let a, pi*2/6
let s,0.5
let t,0.5
let offs,3*pi/2
let lut,30
let s2,0.5
let rot,35
let sr1,0.01
let sr2,1
newmap 0
tag g
rotate sin(a*0+offs),cos(a*0+offs),0,lut
scale s,s,s
translate t*sin(a*0),t*cos(a*0),0
newmap 1
tag g
rotate sin(a*1+offs),cos(a*1+offs),0,lut
scale s,s,s
translate t*sin(a*1),t*cos(a*1),0
newmap 2
tag g
rotate sin(a*2+offs),cos(a*2+offs),0,lut
scale s,s,s
translate t*sin(a*2),t*cos(a*2),0
newmap 3
tag g
rotate sin(a*3+offs),cos(a*3+offs),0,lut
scale s,s,s
translate t*sin(a*3),t*cos(a*3),0
newmap 4
tag g
rotate sin(a*4+offs),cos(a*4+offs),0,lut
scale s,s,s
translate t*sin(a*4),t*cos(a*4),0
newmap 5
tag g
rotate sin(a*5+offs),cos(a*5+offs),0,lut
scale s,s,s
translate t*sin(a*5),t*cos(a*5),0
newmap 6
rotate z,rot
scale s2,s2,s2
ifs
path (0,0,0)(1,1,1)(2,2,2)(3,3,3)(4,4,4)(5,5,5)(6,6,6)
sphere_radius_factor sr2
else
sphere_radius_factor sr1
end
path ,g,g,g,g
color 1,1
else
path 6,6,6
path ,,,6,6
color 1,0
else
color 0,1
end
else
color 0,0
end
end