( || )

Good evening, 

this is my simple attempt, a sort of extension of what we did the first day. I tried to understand the principles of Reichstag's dome by Norman Foster and i generated curves that replicate that form.

I did other attempts changing nothing but the initial polygon or its position on the ground.

Here the code.

Option Explicit

'Script written by

'Script version martedì 3 febbraio 2009 23.47.50

Call Main()

Sub Main()

        Dim strPoly = RhinoGetObject("select polygons",4)

        Dim i, strCrv, j

        if isNull (strPoly) Then exit sub

       For i=0 to 50 Step 0.5

               Call Rhino.MoveObject(strPoly, array(0,0,0), array(0,0,2.5-i/20))

               Call Rhino.RotateObject(strPoly,  array(0,0,0), i*1.8, true)

               strCrv = Rhino.ScaleObject (strPoly, array(0,0,0), array(1+i/1000, 1+i/1000, 1))

               call Rhino.ObjectColor(strCrv, RGB (i*255/50, 255-(i*255/50), 0))

       next

       For j=0 to 30 Step 0.5

               call Rhino.MoveObject(strPoly, array(0,0,0), array(0,0,-j/7))

               call Rhino.RotateObject(strPoly, array(0,0,0), i*1.8, true)

               strCrv= Rhino.ScaleObject(strPoly, array(0,0,0), array(1+(0.05-(j/600)), 1+(0.05-(j/600)),1))

               call Rhino.ObjectColor(strCrv, RGB (255-(j*255/30), j*255/30, 0))

        next

End Sub