Gail Shaw <gsh### [at] monotixcoza> wrote:
: #local A=seed(4);#macro B()<rand(A),0,rand(A)>#end#macro I(G,S)sphere{0,
: 1 pigment{rgbf 1}interior{media{emission 4 density{spherical color_map{[0
: rgb
: 0][1 rgb B()]}}}}hollow scale .4 translate<G-5,S-4,9>}#end
: I(4,6)I(3,6.5)I(2,6
: )I(1.6,5)I(1.5,4)I(1.6,3)I(2,2)I(3,1.5)I(4,1.7)I(4.2,2.6)I(4.1,3.5)I(3.4,3.5
: )I
: (9,6)I(8,6.5)I(7,6)I(7,5)I(7.7,4.3)I(8.3,3.7)I(9,3)I(9,2)I(8,1.5)I(7,2)///GS

: Anyone going to shorten it?

  How about this:

#local A=seed(4);#macro I(G,S)disc{0z.4pigment{onion color_map{[0rgb<rand(A)0
rand(A)>*18][.4rgb 0]}}translate<G-5S-4,9>}#end I(4,6)I(3,6.5)I(2,6)I(1.6,5)I
(1.5,4)I(1.6,3)I(2,2)I(3,1.5)I(4,1.7)I(4.2,2.6)I(4.1,3.5)I(3.4,3.5)I(9,6)I(8,
6.5)I(7,6)I(7,5)I(7.7,4.3)I(8.3,3.7)I(9,3)I(9,2)I(8,1.5)I(7,2)///GS


-- 
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -

Post a reply to this message