Hi All !!!

Here is another mathematical shape made of 50000's of spheres, so it parse
very long ;o) .
Tell me what do you think B) .

parsed - 5 m 19 sec
rendered - 1600x1200 5 m 33 sec


Tomasz Szczurko
---
Try to live your lost illusions
They are the spice of life
---

http://www.shadow.z.pl
email: tom### [at] shadowzpl
ICQ#: 8456229




#declare x_pos = 0
#declare y_pos = 0
#declare quan = 50000
#declare rad = 0.03


#declare counter = 1
#while (counter <= quan)

#declare r = rand( seed( pow(counter,1.8) ) )
//#debug concat("counter =",str(counter,-5,0)," random =",str(r,0,8),"\n")

#if (r <= 0.01)
#declare a = 0
#declare b = 0
#declare c = 0
#declare d = 0.16
#declare e = 0
#declare f = 0
#else
     #if (r > 0.01 & r <= 0.86)
     #declare a = 0.85
     #declare b = 0.04
     #declare c = -0.04
     #declare d = 0.85
     #declare e = 0
     #declare f = 1.6
     #else
          #if (r > 0.86 & r <= 0.93)
          #declare a = 0.2
          #declare b = -0.26
          #declare c = 0.23
          #declare d = 0.22
          #declare e = 0
          #declare f = 1.6
          #else
               #declare a = -0.15
               #declare b = 0.28
               #declare c = 0.26
               #declare d = 0.24
               #declare e = 0
               #declare f = 0.44
          #end
     #end
#end


#declare new_x = (a*x_pos)+(b*y_pos)+e
#declare new_y = (c*x_pos)+(d*y_pos)+f

#declare x_pos = new_x
#declare y_pos = new_y

sphere {
        <x_pos, y_pos, 0>, rad
        pigment {colour rgb <y_pos*0.1, x_pos/6+0.5, 1-y_pos*0.1>}
        }

#declare counter = counter + 1
#end


camera { location <0,5,-10.5> look_at <0,5,0>}
light_source { <-500,100,-500> color 1 }
light_source { <500,100,-500> color 1 }

Post a reply to this message

>Tell me what do you think B) .


Cool.  IFS fractals are pretty neat.

- mark

Post a reply to this message