POV-Ray : Newsgroups : povray.general : Spline Sweep / While: The Tragedy of the Last Comma : Re: Spline Sweep / While: The Tragedy of the Last Comma Server Time
26 Apr 2024 14:55:27 EDT (-0400)
  Re: Spline Sweep / While: The Tragedy of the Last Comma  
From: Sven Littkowski
Date: 25 Feb 2018 00:29:23
Message: <5a9249b3$1@news.povray.org>
Still getting errors. Here's the relevant code:
--------------------------


#declare MySeed          = seed(now*24*60*60);
#declare MySegmentAmount = 0; // just to initialize
#while(MySegmentAmount<10)    // I need a minimum of 10 items
 #declare MySegmentAmount = int(rand(MySeed)*75);
#end
#declare MyHMovement     = 0.75;
#declare MyVMovement     = 0.5;
#declare MyY             = 0.0;
#declare MyX             = rand(MySeed)*MyHMovement;
#declare MyZ             = rand(MySeed)*MyHMovement;
#declare MyXNegative     = rand(MySeed)*1.0;
#declare MyZNegative     = rand(MySeed)*1.0;
#declare MyCount         = 0;
#if(MyXNegative<=0.5)
 #declare MyX=MyX*(-1.0);
#end
#if(MyZNegative<=0.5)
 #declare MyZ=MyZ*(-1.0);
#end

sphere_sweep
{
 b_spline
 MySegmentAmount,
 #while (MyCount<=MySegmentAmount)
  < MyX, MyY, MyZ > 0.35
  #declare MyY             = MyY+MyVMovement;
  #declare MyX             = rand(MySeed)*MyHMovement;
  #declare MyZ             = rand(MySeed)*MyHMovement;
  #declare MyXNegative     = rand(MySeed)*1.0;
  #declare MyZNegative     = rand(MySeed)*1.0;
  #if(MyXNegative<=0.5)
   #declare MyX=MyX*(-1.0);
  #end
  #if(MyZNegative<=0.5)
   #declare MyZ=MyZ*(-1.0);
  #end
  #declare MyCount=MyCount+1;
 #end
 tolerance 0.1
 texture
 {
  pigment
  {
   onion
   color_map
   {
    [ 0.0 color rgbf < 0.2352941,  0.1607843,  0.1568627, 0.5 > ]
    [ 1.0 color rgbf < 0.2352941,  0.1607843,  0.1568627, 0.5 > ]
   }
   rotate < 0, 0, 90 >
   scale 0.6
  }
  normal
  {
   granite 0.15
   scale 1
  }
  finish { phong 0.1 }
 }
 scale<1,1,1>   rotate<0,0,0>  translate<0,0.5,0>
 rotate < -90.0, 0.0, 0.0 >
 translate < 0.0, 0.0, 0.0 >
 scale < 0.015,0.05,0.015 >
}


---
Diese E-Mail wurde von AVG auf Viren geprüft.
http://www.avg.com


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.