wires

wirescript
wirescript2

rollout SphereTool "WIRE GENERATOR"
(
spinner count "Number: " type:#integer range:[1,1000,100]
spinner growth "Radius: " range:[1,1000,100]
spinner rand "Radius random: " range:[0,1000,0]
spinner thick "thickness: " type:#float range:[0.1,10,.2]
colorpicker couleur "Color:" color:[0,255,255] modal:true
button create "generate line"

on create pressed do
create_sphere count.value growth.value thick.value couleur.color rand.value

)
createDialog SphereTool

fn create_sphere Npoints Nradius Nthick Ncol Nvario=
(
splino = splineShape()
addnewSpline splino
splino.wirecolor = Ncol
splino.steps = 24
splino.baseobject.renderable = true
splino.thickness = Nthick
splino.displayrendermesh = true

for count = 0 to Npoints do(

alph = random 1.0 360
omega = random 1.0 360
variation = random 0 Nvario
rayon = Nradius+variation

px = rayon * (sin alph) * (cos omega)
py = rayon * (sin alph) *(sin omega)
pz = rayon * (cos alph)
point_coord = [px,py,pz]

addKnot splino 1 #smooth #curve point_coord
)
updateshape splino
)