New site

Monday, August 25, 2008

the beauty of chaos

Latley i have been playing around with an 3D strange attractors rendering software, for generating iterative chaotic function fractals. Here are some of the fractals i have generated hope you like them.

A fractal is generally "a rough or fragmented
geometric shape that can be split into parts, each of which is (at least approximately) a reduced-size copy of the whole,a property called self-similarity.

Monday, August 18, 2008

Scripted Creature

Lately i have beeen working back with RhinoScript and as a prctice excercise i wanted to create a script wich helped me to create a generative sculpture like object.The result of playing around with this idea is this scripted creature. For the creation of this figure i developed a script wich works in a simple way , the user needs to input a set of points , the the script will elaborate a net work beetween those points withe a distance conditional then script will ask the user to select the created lines he wants to use for the creation of the structure , then script will complete the task making a lofted surface.

Here is the script perhaps it can be usfel to perform other tasks if you find one please let me know.

Option Explicit
'Script written by Rodrigo Medina Garcia
'Script copyrighted by
'Script version miércoles, 23 de julio de 2008 15:49:30

Call Main()
Sub Main()
Dim arrpts,strcrv,strcrv2,crvdomain,evapoints
Dim i,u,k,j
arrpts=rhino.GetPointCoordinates("select points for structure creation")
If isNull (arrpts) Then Exit Sub
For i = 0 To uBound(arrpts)
For u =0 To UBound(arrpts)
If Rhino.distance(arrpts(i),arrpts(u)) <80 Then Call lines(arrpts,i,u,strcrv)

Call rhino.addsphere(arrpts(i),1)

strcrv2=rhino.GetObjects("select the created line structures",4)

For k =0 To ubound (strcrv2)


For j= crvdomain(0)To crvdomain(1) Step crvdomain(1)/4
If j = crvdomain(1)/2 Then
Call circles1(strcrv2,k,j)
ElseIf j <> crvdomain(1)/2 Then
Call circles2(strcrv2,k,j)
End If

Call rhino.Command("_selnone _selclosedcrv -_loft _enter _enter _delete ")

End Sub
Function lines(arrpts,i,u,strcrv)
End Function
Function circles1(strcrv,k,j)
Dim frame,radi
Call rhino.AddCircle(frame,radi)

End Function
Function circles2(strcrv,k,j)
Dim frame,radi
Call rhino.AddCircle(frame,radi)

End Function

Related Posts with Thumbnails