home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / PVDAT.ZIP / TETRA.DAT < prev    next >
Encoding:
Text File  |  1991-09-07  |  2.0 KB  |  116 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By ???
  4.  
  5. #include "shapes.dat"    
  6. #include "colors.dat"
  7. #include "textures.dat"
  8.  
  9. view_point
  10.         location <0.0 30.0 -200.0>
  11.         direction <0.0 -0.15 1.0>
  12.         up <0.0 1.0 0.0>
  13.         right <1.333 0.0 0.0>
  14. end_view_point
  15.  
  16. #declare Tetra = object
  17.   intersection Tetrahedron end_intersection
  18.  
  19.   texture
  20.     0.01
  21.     colour Gold
  22.     ambient 0.1
  23.     diffuse 0.7
  24.     reflection 0.4
  25.     brilliance 6.0
  26.   end_texture
  27.   colour Gold
  28. end_object
  29.  
  30. object Tetra
  31.  scale <10.0 10.0 10.0>
  32.  rotate <0.0 -45.0 0.0>
  33.  translate <-10.0 0.0 -105.0>
  34. end_object
  35.  
  36. object Tetra
  37.  scale <10.0 10.0 10.0>
  38.  rotate <0.0 -40.0 0.0>
  39.  translate <75.0 0.0 50.0>
  40. end_object
  41.  
  42. object Tetra
  43.  scale <10.0 10.0 10.0>
  44.  rotate <0.0 30.0 0.0>
  45.  translate <-60.0 0.0 -50.0>
  46. end_object
  47.  
  48. object Tetra
  49.  scale <10.0 10.0 10.0>
  50.  rotate <0.0 -75.0 0.0>
  51.  translate <60.0 0.0 -65.0>
  52. end_object
  53.  
  54. object
  55.    sphere <-50.0 50.0 100.0> 100.0 end_sphere
  56.    texture
  57.      0.01
  58.      colour White
  59.      ambient 0.05
  60.      diffuse 0.1
  61.      reflection 0.97
  62.      brilliance 4.0
  63.    end_texture
  64.    colour White
  65. end_object
  66.  
  67. object
  68.   plane <0.0 1.0 0.0> -50.0 end_plane
  69.   texture
  70.    0.01
  71.    checker colour CBlue colour Gray
  72.    scale <40.0 40.0 40.0>
  73.    ambient 0.3
  74.    diffuse 0.7
  75.    reflection 0.1
  76.    brilliance 3.0
  77.   end_texture
  78.   colour CBlue
  79. end_object
  80.  
  81. object
  82.   plane <0.0 1.0 0.0> 500.0 end_plane
  83.   texture
  84.     0.05
  85.     Bright_Blue_Sky
  86.     scale <2000.0 500.0 1000.0>
  87.     ambient 0.7
  88.     diffuse 0.0
  89.   end_texture
  90.   colour red 0.5 green 0.5 blue 0.8
  91. end_object
  92.  
  93. object
  94.   sphere <0.0 0.0 0.0> 20.0 end_sphere
  95.   translate <60.0 60.0 -200.0>
  96.   texture
  97.     colour White
  98.     ambient 1.0
  99.     diffuse 0.0
  100.   end_texture
  101.   light_source
  102.   colour White
  103. end_object
  104.  
  105. object
  106.   sphere <0.0 0.0 0.0> 20.0 end_sphere
  107.   translate <-60.0 60.0 -200.0>
  108.   texture
  109.     colour White
  110.     ambient 1.0
  111.     diffuse 0.0
  112.   end_texture
  113.   light_source
  114.   colour White
  115. end_object
  116.