COME SI PIEGA

Sub soddu()
Dim arrCount(1), arrPoints(224), nCount, i, j,xx,yy,zz
arrCount(0) = 15
arrCount(1) =15
nCount = 0
For i = 1 To arrCount(0)' - 1
For j = 1 To arrCount(1)' - 1
xx=5*Sin(i)*Cos(j)
yy=5*Cos(i)*Sin(j)
'zz=Sin(j)*Cos(i)
'zz=Sin(j)+Cos(i)
'zz=14-Abs(7-i)-Abs(7-j)+Sin(i)*Cos(j)
'zz=29-abs(7-Sin(i))-abs(7-Cos(j))+Sin(i)*Cos(j)
zz=5*Cos(i)
'If i=0 Then zz=0
'If j=0 Then zz=0
'If i=arrCount(0) - 1 Then zz=0
'If j=arrCount(1) - 1 Then zz=0
arrPoints(nCount) = Array(xx,yy,zz)
'arrPoints(nCount) = Array(i*2, j*4, 0)
'arrPoints(nCount) = Array(20*Rnd, 20*Rnd, 20*Rndì)
'arrPoints(nCount) = Array(i*Sin(j), j*Cos(i), Sin(i)*Cos(j))

nCount = nCount + 1
Next
Next
Rhino.AddSrfPtGrid arrCount, arrPoints
'SrfPtGrid arrCount, arrPoints
End Sub
soddu

-----------------------------

COME SI TAGLIA

Sub soddu()
Dim arrCount(1), arrPoints(224), nCount, i, j,xx,yy,zz
arrCount(0) = 15
arrCount(1) =15
nCount = 0
For i = 1 To arrCount(0)' - 1
For j = 1 To arrCount(1)' - 1
xx=5*Sin(i)*Cos(j)
yy=5*Cos(i)*Sin(j)elevato5
'zz=Sin(j)*Cos(i)
'zz=Sin(j)+Cos(i)
'zz=14-Abs(7-i)-Abs(7-j)+Sin(i)*Cos(j)
'zz=29-abs(7-Sin(i))-abs(7-Cos(j))+Sin(i)*Cos(j)
zz=5*Cos(i)
'If i=0 Then zz=0
'If j=0 Then zz=0
'If i=arrCount(0) - 1 Then zz=0
'If j=arrCount(1) - 1 Then zz=0
arrPoints(nCount) = Array(xx,yy,zz)
'arrPoints(nCount) = Array(i*2, j*4, 0)
'arrPoints(nCount) = Array(20*Rnd, 20*Rnd, 20*Rndì)
'arrPoints(nCount) = Array(i*Sin(j), j*Cos(i), Sin(i)*Cos(j))

nCount = nCount + 1
Next
Next
Rhino.AddSrfPtGrid arrCount, arrPoints
'SrfPtGrid arrCount, arrPoints
End Sub
soddu

---------------------------------

COME SI BUCA

Sub soddu()
Dim arrCount(1), arrPoints(224), nCount, i, j,xx,yy,zz
arrCount(0) = 15
arrCount(1) =15
nCount = 0
For i = 1 To arrCount(0)' - 1
For j = 1 To arrCount(1)' - 1
xx=5*Sin(j)*Cos(j)
yy=5*Cos(i)*Sin(j)elevato5
'zz=Sin(j)*Cos(i)
'zz=Sin(j)+Cos(i)
'zz=14-Abs(7-i)-Abs(7-j)+Sin(i)*Cos(j)
'zz=29-abs(7-Sin(i))-abs(7-Cos(j))+Sin(i)*Cos(j)
zz=5*Cos(i)
'If i=0 Then zz=0
'If j=0 Then zz=0
'If i=arrCount(0) - 1 Then zz=0
'If j=arrCount(1) - 1 Then zz=0
arrPoints(nCount) = Array(xx,yy,zz)
'arrPoints(nCount) = Array(i*2, j*4, 0)
'arrPoints(nCount) = Array(20*Rnd, 20*Rnd, 20*Rndì)
'arrPoints(nCount) = Array(i*Sin(j), j*Cos(i), Sin(i)*Cos(j))

nCount = nCount + 1
Next
Next
Rhino.AddSrfPtGrid arrCount, arrPoints
'SrfPtGrid arrCount, arrPoints
End Sub
soddu

HEYTHEM_SEFI