home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polyray / dat / animate / whirl / busyb1.pi next >
Text File  |  1994-12-31  |  879b  |  38 lines
  1. include "..\..\colors.inc"
  2.  
  3. viewpoint {
  4.    from <0,0,-12>
  5.    at <0,0,0>
  6.    up <0,1,0>
  7.    angle 30
  8.    resolution 160, 160
  9.    }
  10.  
  11. light <-10,10,-10>
  12. light < 10,10,-10>
  13.  
  14. start_frame 0
  15. end_frame 100
  16. total_frames 101
  17.  
  18. define increment frame / total_frames
  19. define ang_inc radians(720 * increment)
  20.  
  21. define ang00 ang_inc
  22. define ang01 ang_inc
  23. define ang10 ang_inc
  24. define ang11 ang_inc + 2
  25. define ang20 ang_inc
  26. define ang21 ang_inc + 1
  27.  
  28. define pos00 <cos(ang00), 0, sin(ang00)>
  29. define pos01 rotate(pos00, <1, 0, 0>, degrees(ang01))
  30. define pos10 <cos(ang10), 0, sin(ang10)>
  31. define pos11 rotate(pos10, <0, 0, 1>, 2 * degrees(ang11))
  32. define pos20 <cos(ang20), 0, sin(ang20)>
  33. define pos21 rotate(pos20, <1, 0, 1>, 1.5 * degrees(ang21))
  34.  
  35. object { sphere pos01, 0.2 shiny_red }
  36. object { sphere pos11, 0.2 shiny_green }
  37. object { sphere pos21, 0.2 shiny_blue }
  38.