Fleeting flower arrangement

[phtolo]

Fleeting flower arrangement



http://www.fractalforums.com/index.php?action=gallery;sa=view;id=18429

Code:

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