home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / atari / GRAPHX / POV / 68030.060 / POV31G30 / POVRAY_3.1G / SCENES / ANIMATE / FLOAT1 / FLOAT1.POV < prev   
Text File  |  1999-10-30  |  1KB  |  59 lines
  1. // Persistence Of Vision raytracer version 3.1 sample file.
  2. // Demonstrates various new float math functions.
  3. // Animate this scene with clock values +ki0.0 to +kf1.0
  4.  
  5. global_settings { assumed_gamma 2.2 }
  6.  
  7. #declare A = clock;
  8. #declare B = sin(radians(A*360));
  9. #declare C = cos(radians(A*360));
  10. #declare D = min(B,C);
  11. #declare E = max(B,C);
  12.  
  13. #include "colors.inc"
  14.  
  15. #declare Rad=1/3;
  16. #declare Fudge=5;
  17. #declare TFudge=<-6.25,0,0.2>;
  18. #declare Font="cyrvetic.ttf"
  19.  
  20. camera {
  21.    location  <0, 0, -120>
  22.    direction <0, 0,  12>
  23.    look_at   <0, 0,   0>
  24. }
  25.  
  26. light_source { <5000, 10000, -20000> color White}
  27. plane { z, Rad hollow on pigment {checker color rgb <1,.8,.8> color rgb <1,1,.8> scale <Fudge,1,1>} }
  28.  
  29. union{
  30.  text{ttf Font concat("A=clock=",str(A,0,2)),0.1,0 translate TFudge}
  31.  sphere {<A*Fudge,-0.5,0>,Rad}
  32.  pigment{Red} translate 4*y
  33. }
  34.  
  35. union{
  36.  text{ttf Font concat("B=sin(radians(A*360)=",str(B,0,2)),0.1,0 translate TFudge}
  37.  sphere {<B*Fudge,-0.5,0>,Rad}
  38.  pigment{Green} translate 2*y
  39. }
  40.  
  41. union{
  42.  text{ttf Font concat("C=cos(radians(A*360)=",str(C,0,2)),0.1,0 translate TFudge}
  43.  sphere {<C*Fudge,-0.5,0>,Rad}
  44.  pigment{Blue}
  45. }
  46.  
  47. union{
  48.  text{ttf Font concat("D=min(B,C)=",str(D,0,2)),0.1,0 translate TFudge}
  49.  sphere {<D*Fudge,-0.5,0>,Rad}
  50.  pigment{Cyan} translate -2*y
  51. }
  52.  
  53. union{
  54.  text{ttf Font concat("E=max(B,C)=",str(E,0,2)),0.1,0 translate TFudge}
  55.  sphere {<E*Fudge,-0.5,0>,Rad}
  56.  pigment{Magenta} translate -4*y
  57. }
  58.  
  59.