sabato 8 agosto 2009

mercoledì 15 luglio 2009

Lo studiolo


PalaCaprara_WIP

martedì 28 aprile 2009

Angolo poesia #014


LA RICETTA

Grinta 2 lt
Dolcezza 5 cucchiai
Cervello 2 kg
Cuore un pugno

Una scintilla di pazzia in un occhio
Un riflesso di genio nell'altro
Una goccia di sensualità sulle labbra
Un sorriso a 500 denti

Girare un po' intorno
Cuocere a fuoco lento
Servire caldo
Gustare piano

Solo ora puoi renderti conto
che è la cosa più buona del mondo

martedì 21 aprile 2009

Lo schermo piatto

-.-

Lo schermo piatto

Dimentica! Moggi sarebbe contento...

Lo schermo piatto

Ce lo devono far vedere dalla Francia....

http://danielesensi.blogspot.com/search/label/Visti%20dalla%20Francia


lunedì 6 aprile 2009

Angolo poesia #013


L'esecrabilità dell'odeon

Vivo d'insoddisfazione
muoio di me
esercito un'influenza di noia
mentre cerco i miei occhiali nella nebbia

Raccolgo segnali ambientali
di repressione
di rancore
di meraviglia

Cerco d'imporre curiosità
esprimere i denti
mordere il passo
correre sulle spine

Ma sono cosciente del fato
non m'illudo d'assenza
muovo emozioni
dando forma al punto

Giustappunto sono sempre io
e sono ancora punto e a capo
m'immergo nel trascorrere
ma non è la mia vita

Angolo poesia #012


L'onda

Il pensiero di oggi è: cosa dà potere ad un'emozione?

Ti entra dentro e ti pervade della sua linfa
in modo tanto violento da stordirti

E poi... e poi ti è sufficiente così poco
ma così poco....
per spegnerla
o per infiammarla

Ed è lì che diventi in grado di affrontare qualsiasi cosa
di guardare il mondo e gli altri
con occhi che non tradiscono incertezza
con mani che non tremano più
per il freddo

perché tanto sei cosciente del fatto che
"il freddo non esiste" (cit.)

oppure sai di svegliarti
con la voglia di fregartene
e violentare tutta la negatività
che pensavi potesse nuocerti

Certe volte davvero
basta un colpo di spugna
un attimo o 2 ore
2 righe o un'occhiata

e sai già
che per oggi
la tua vita ha messo la freccia
ed ha efettuato il sorpasso

non è necessario che sia decisivo
ma è sufficiente
a spazzare via
il lugubre sguardo che portavi

meglio così...

p.s.

alla fine i gesti meccanici descrivono delle azioni dettate dalle abitudini
è quando ti accorrgi che quel gesto non ti da più niente
che capisci che molto probabilmente hai perso tempo
ma questa è un'altra storia...

venerdì 20 febbraio 2009

La veranda delle domande

Cosa senti?

è vero che esistono piante che producono suoni?
come mai il pipistrello è cieco ma sa benissimo dove sei?
cosa se ne fa il nostro orecchio di martello, incudine e staffa?
come mai la chapelle de ronchamp di Le Corbusier ha un'acustica incredibile?
come si propaga il suono?
con quali mezzi?
e come viene trasmesso?
rimane un'onda o diviene segnale elettrico?

...di cosa sto parlando?

eheh... Work In Progress...

p.s. in caso di problemi dò un colpo di telefono a Piero Angela XD

martedì 3 febbraio 2009

Lo sgabuzzino del pc



Esercitazione sugli array: il DNA

Option Explicit
'Script written by VitrartiV
'Date lunedì 2 febbraio 2009 15.37.50

Sub Main()

Dim intNpoints
Dim arrPt1, arrPt2, i, j
Dim arrPtc1, arrPtc2
Dim strPt1, strPt2
Dim strline0, strline1, strline2
Dim text1, text2
Dim curve1, curve2

'input npoints

'Call Rhino.EnableRedraw(False)

intNpoints=Rhino.GetInteger("n. of points?")


ReDim arrPt1(intNpoints-1)
ReDim arrPt2(intNpoints-1)
ReDim arrPtc1(intNpoints-1)
ReDim arrPtc2(intNpoints-1)

For i=0 To intNpoints-1

arrptc1(i)=array(sin(i),cos(i),i)
arrptc2(i)=array(-sin(i),-cos(i),i)

arrPt1(i)=Rhino.AddPoint(arrptc1(i))
arrPt2(i)=Rhino.AddPoint(arrptc2(i))

strline0= Rhino.AddLine(arrPtc1(i),arrPtc2(i))

Call Rhino.AddLayer("Spiral1")
Call Rhino.ObjectLayer(arrpt1(i),"Spiral1")
Call Rhino.ObjectLayer(arrpt2(i),"Spiral1")

Call Rhino.ObjectColor(arrpt1(i),RGB(0,0,(i*255/(intNpoints-1))))
Call Rhino.ObjectColor(arrpt2(i),RGB((i*255/(intNpoints-1)),0,0))

'ERR'Call Rhino.Addpolyline (arrPt1(i))
'ERR'Call Rhino.AddPolyline (arrPt2(i))

text1 =Rhino.AddText("1."&i,Rhino.PointCoordinates(arrpt1(i)),0.3)
Call Rhino.ObjectColor(text1,RGB(0,0,255))
text2 =Rhino.AddText("1."&i,Rhino.PointCoordinates(arrpt2(i)),0.3)
Call Rhino.ObjectColor(text2,RGB(255,0,0))
Next

Curve1= Rhino.AddInterpCurve(arrptc1)
Curve2= Rhino.AddInterpCurve(arrptc2)
Call Rhino.ObjectColor(Curve1,RGB(0,0,(i*255/(intNpoints-1))))
Call Rhino.ObjectColor(Curve2,RGB((i*255/(intNpoints-1)),0,0))

For i=1 To intNpoints-1

strline1= Rhino.AddLine(Rhino.PointCoordinates(arrpt1(i-1)),Rhino.PointCoordinates(arrpt1(i)))
strline2= Rhino.AddLine(Rhino.PointCoordinates(arrpt2(i-1)),Rhino.PointCoordinates(arrpt2(i)))
Call Rhino.ObjectColor(strline1,RGB((i*255/(intNpoints-1)),(i*255/(intNpoints-1)),(i*255/(intNpoints-1))))
Call Rhino.ObjectColor(strline2,RGB((i*255/(intNpoints-1)),(i*255/(intNpoints-1)),(i*255/(intNpoints-1))))
Next
'Call Rhino.SelectObjects(array(arrPt(5),arrPt(6)))
'Call Rhino.SelectObjects(arrPoints(10))
'Call Rhino.SelectObjects(arrPoints(15))
'Call Rhino.SelectObjects(arrPoints(20))

End Sub

Call Main()

domenica 1 febbraio 2009

Lo sgabuzzino del pc

Rhinoscript: esercizio con le stringhe

Option Explicit
Sub Main()
Dim name
Dim surname
Dim nameres
Dim surnameres
Dim namecode

name = Rhino.Getstring("What's your name?")
surname = Rhino.Getstring("What's your surname?")

nameres = UCase(name)
surnameres = UCase(surname)

nameres = Left(nameres, 1)
surnameres = Left(surnameres, 3)

namecode = nameres & "." & surnameres

Rhino.Messagebox ("your personal code is: " & namecode)

End Sub

Main



in questo modo rhino chiede nome e cognome
e restituisce un codice con le prime tre lettere del cognome e una lettera del nome
enjoy

venerdì 16 gennaio 2009

sabato 10 gennaio 2009

Lo scantinato degli esperimenti

Paneling tools
A new release of PanelingTools plugin for Rhino 4.0 SR4 is now available for download from:
http://en.wiki.mcneel.com/default.aspx/McNeel/PanelingTools.html

A description of commands and options is available from:
http://en.wiki.mcneel.com/default.aspx/McNeel/PanelingCommands.html

There are 2 new tutorials add to examples page:
http://en.wiki.mcneel.com/default.aspx/McNeel/PanelingExamples.html

ArchCut

A new release of ArchCut plugin for Rhino 4.0 SR4 is now available for download from:
http://en.wiki.mcneel.com/default.aspx/McNeel/ArchCut.html

venerdì 9 gennaio 2009

Lo scantinato degli esperimenti

un po' di programmazione?

parlavo di rhinoscript >)
parliamone...
ma prima avete bisogno di un po' di materiale no? ;)
a voi:
RhinoScript101
Rhinoscript Wiki
RhinoBlog
Kokkugia
Workshop handout
rhinoscript playground
digital architecture tagger

io ve li butto lì così
e intanto torno al mio option explicit XD

giovedì 8 gennaio 2009

Lo scantinato degli esperimenti

l'isola che (non) c'è

vediamo, sono alla ricerca di qualcosa che non c'è
o meglio, di qualcosa che forse c'è ma non si vede
partiamo dalla modellazione parametrica....
a parte il fatto che sono ancora in alto mare col rhinoscript,
mi è venuta un'idea da matti,
che però se riesco a realizzarla viene fuori una roba storica

ho detto rhinoscript...
per i profani si tratta di uno "stratagemma"
per lavorare più in fretta nel mondo della grafica 3d
per gli esperti... AIUTOOO

in ogni caso
dato che ho realizzato un analisi tridimensionale
del rumore su una strada
la prima cosa venutami in mente è stata:
il rumore è un miscuglio di suoni, di onde sonore

alle onde si accende la lampadina....
un'onda rispetta la sua funzione,
perciò è un evento parametrizzabile... in teoria

...

ripercorro al contrario l'idea ed arrivo al dunque
se io ho le mie superfici di analisi,
ne posso estrapolare curve e algoritmi

e qui viene il bello
è possibile tirare fuori una funzione d'onda??
anche fosse
è possibile trasformarla in suono?
e in ultima...
è possibile che il rumore di quella strada diventi melodia?

probabilmente sto esagerando o meglio sognando
però devo tire che mi stuzzica un mondo
e non esiterò ad approfondire