15 May 2009

Multiple Points Attractors 02






"hot code"
///////////////////
Function ColorAndMaterial (arrcone,color)

Dim material

Call rhino.ObjectColor (arrcone, rgb(50,dbldistance*100,200))
material = rhino.AddMaterialToObject (arrcone)
Call rhino.MaterialColor (material, rgb(50,dbldistance*100,200))
Call rhino.MaterialShine (material, 255)

End Function
///////////////////

0 commenti: