Postovati slike pocetnog elementa (300x300 piksela), deo skripta koji je izmenjen i formu generisanu skriptom (300x300 piksela ili 3D model).
3D VIZ
Rhino script - Vezba 2
dx = 10
dy = 5
dz = 15
If grid(x-1,y-1,z) Then lcn = lcn + 2
If grid(x,y-1,z) Then lcn = lcn + 1
If grid(x+1,y-1,z) Then lcn = lcn + 2
If grid(x-1,y,z) Then lcn = lcn + 1
If grid(x+1,y,z) Then lcn = lcn + 2
If grid(x-1,y+1,z) Then lcn = lcn + 1
If grid(x,y+1,z) Then lcn = lcn + 2
If grid(x+1,y+1,z) Then lcn = lcn + 1
'set rule
rule = Array(2,3,3)
'set dimensions of grid
dx = 10
dy = 10
dz = 8
ReDim grid(dx,dy,dz)
'set objects
objects = Rhino.GetObjects("Select objects...")
'randomly populate first level with living cells
z=0
For x = 0 To dx
For y = 0 To dy
grid(x,y,z) = x^2 < x+2
If grid(x,y,z) Then
Pocetni:
Konacni:
'set rule
rule = Array(9,2,7)
'set dimensions of grid
dx = 3
dy = 3
dz = 3
...
If grid(x,y,z) Then
transformMatrix = Rhino.XformRotation (15, Array(1,0,0), Array(0,0,0))
...
If grid(x,y,z+1) Then
transformMatrix = Rhino.XformRotation (45, Array(1,0,0), Array(0,0,0))
....
AND SUB.
rule = Array(9,2,7)
'set dimensions of grid
dx = 3
dy = 3
dz = 3
...
If grid(x,y,z) Then
transformMatrix = Rhino.XformRotation (15, Array(1,0,0), Array(0,0,0))
...
If grid(x,y,z+1) Then
transformMatrix = Rhino.XformRotation (45, Array(1,0,0), Array(0,0,0))
....
AND SUB.