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