objective-C.c3dg

shading extended {
    point(0.0) { A 1
        RGB lirp(0,1,.5,.3,SAT) lirp(0,1,.5,.1,SAT) lirp(0,1,.5,0,SAT)}
    point(0.25) { A 1
        RGB lirp(0,1,.5,.9,SAT) lirp(0,1,.5,0,SAT) lirp(0,1,.5,.6,SAT) }
    point(.5) { A 1
        RGB lirp(0,1,.5,.1,SAT) lirp(0,1,.25,1,SAT) lirp(0,1,.5,.8,SAT) }
    point(.75) { A 1
        RGB lirp(0,1,.5,1,SAT) lirp(0,1,.5,.7,SAT) lirp(0,1,.5,.7,SAT) }
    point(1) { A 1
        RGB lirp(0,1,.9,1,SAT) lirp(0,1,.9,.7,SAT) lirp(0,1,1,1,SAT) }
}

camera { z -10}
fx 0*30{777 777 777}
fx 1*3{777 777 777}

dd{3*{x 2.5 z -1 col0 (col0+.2)}do{x -3 z .5 ry 45}}
rule do { 
  820* { ry -1 rx 180 rz -25 } 
    tree { y -1 s .5 d 10 shading extended} 
}
 
rule tree {
    hexagon { s .95 d 4 sx .5} 
    tree { s .925 y 1 rx 3}
    cont { col0 (col0+1/30)} 
    cont2 { col0 (col0+1/30) }
}
rule cont { pre { d%3<1 }
    tree { s .75 rz 60 skewz 15 y 1 z -.1 }
}
rule cont2 { pre { d%3>1.9 }
    tree { s .75 rz -60 skewx 10 y 1 z -.1 }
}


rule hexagon {
  3* { {SAT=SAT+square(d)*.4} s .75}
    CSQU { d (d) layer abs(floor(z))}
}