A bigger image (~170K 1024x768 png) is at
http://freelocus.com/s05.html

Gleb

#local i=888;#while(i)#macro
p(m)(asc(substr("@:.*7@0-'F&10Y(1-F110Y.1",m,1))/3
-16.1)#end#macro _(o,O)#local O=O+o;#end#macro
s(d)(p(d+1)*sin(p(d+2)/888*i+p(d
+3))+p(d+4))*(j>1?j>3?y:z:x)#end#local L=x;#local
j=0;#while(j<6)_(s(j*4)L)_(1j
)#end sphere{L.x*<-cos(L.z)sin(L.z)8/L.x>L.y/4pigment{rgb
L*3}}_(-1i)#end//GK

Post a reply to this message

Attachments:
Download 's05.jpg' (9 KB)

Preview of image 's05.jpg'