home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / misc / parab.pi < prev    next >
Encoding:
Text File  |  1992-09-20  |  688 b   |  35 lines
  1. viewpoint {
  2.    from <0,15,-5>
  3.    at <0,0,0>
  4.    up <0,1,0>
  5.    angle 40
  6.    resolution 320, 240
  7.    aspect 4/3
  8.    }
  9.  
  10. background <0, 0, 0>
  11. light <0, 10, 0>
  12. light <20, 5, -30>
  13.  
  14. include "..\colors.inc"
  15.  
  16. define basic_cone
  17. object { cone <4, 0, 0>, 1, <6, 0, 0>, 0 shiny_red }
  18.  
  19. define basic_parab
  20. object { parabola <2, 0, 0>, <4, 0, 0>, 1 shiny_red }
  21.  
  22. define test_object
  23. object {
  24.      basic_parab
  25.    + basic_cone
  26.    }
  27.  
  28. test_object
  29. test_object { rotate <0, 60, 0> }
  30. test_object { rotate <0,120, 0> }
  31. test_object { rotate <0,180, 0> }
  32. test_object { rotate <0,240, 0> }
  33. test_object { rotate <0,300, 0> }
  34. object { sphere <0, 0, 0>, 2.0 scale <1, 0.3, 1> shiny_green }
  35.