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

///////////////////