POV-RC3, Duron 800. 512 MB DDR, Win98SE

Enter this code:

#declare sp0 = spline {
 cubic_spline
 -1, <0, -50, -20>
 0.0, <0, 0, 0>
 0.5, <20, 50, 0>
 1.0, <0, 100, 20>
 1.5, <-20, 150, 0>
}
#declare rb = array[2] { 15, 5 }
#declare nseg = 20;

#macro MakeSegs(Level, spl, fName)
 #local i = 0;
 #while ( i<nseg )
  #local pst = spl(i/nseg);
  #local pen = spl((i+1)/nseg);
   #write (pFile, concat("  cylinder {
<",vstr(3,pst,",",0,6),">,<",vstr(3,pen,",",0,6),">,",str(rb[Level],0,5),",
1 }\n")
   #write (pFile, concat("  sphere {
<",vstr(3,pen,",",0,6),">,",str(rb[Level],0,5),", -1 }\n")
   #local i = i + 1;
  #end
#end

#fopen pFile "sktext.inc" write
#write (pFile, "blob {\n  threshold 0\n")
#local i = 0;
#while (i<2000)
 MakeSegs(1,sp0,"rew")
 #local i = i + 1;
#end
#fclose pFile

POV screams: Stack overflow

Post a reply to this message