home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / resources / jpeg / scenes / Train < prev   
Encoding:
Text File  |  1995-04-03  |  1.6 KB  |  75 lines
  1. //  Mike Williams
  2. //   111 Evering Road
  3. //    LONDON N16 7SL
  4.  
  5. #include "colors"
  6. #include "textures"
  7. #include "shapes"
  8.  
  9. camera {
  10.    location  <-10 0 -20>
  11.    direction <0 0 1>  // FOV control
  12.    up        <0 1 0>
  13.    right     <1.25 0 0>
  14.    look_at   <0 0 0>
  15. }
  16.  
  17. object { light_source { <-50 100 -50> color White }}
  18. object { light_source { < 50 100 -50> color White }}
  19.  
  20. //Floor
  21. object
  22. { plane {<0 1 0> -6 }
  23.    texture { colour Gray40 }
  24.    colour Gray40
  25. }
  26.  
  27. // Sky Sphere
  28. object 
  29. { sphere {<0 0 0> 1000}
  30.    texture { colour SkyBlue }
  31.    colour SkyBlue
  32. }
  33.  
  34. #default { texture { phong 1 phong_size 50 ambient 0.5 diffuse 0.5}}
  35.  
  36. #declare Train = composite {
  37. object
  38. { union
  39.   { intersection {Disk_X scale <7 3 3>}
  40.     box {<-6 -5 -3><3 -3 3>}
  41.     box {<4 -5 -3><13 -1 3>}
  42.     box {<7 6 -3><12 7 3>}
  43.     difference
  44.     { box {<7 -2 -3><8 7 3>}
  45.       quadric {Cylinder_X translate <0 4.5 -1.5>}
  46.       quadric {Cylinder_X translate <0 4.5 1.5>}
  47.     }
  48.     quadric {Ellipsoid scale <1.5 2.5 1.5> translate <1.5 2.5 0>}
  49.     quadric {Ellipsoid scale <1 3 3> translate <-7 0 0>}
  50.   }
  51.   texture {colour Red}
  52.   colour Red
  53. } 
  54. object
  55. { union
  56.   { intersection {Disk_Z scale <2 2 -.2> translate <-5 -4 -3.3>}
  57.     intersection {Disk_Z scale <2 2 -.2> translate <-5 -4 3.3>}
  58.     intersection {Disk_Z scale <2 2 -.2> translate < 1 -4 -3.3>}
  59.     intersection {Disk_Z scale <2 2 -.2> translate < 1 -4 3.3>}
  60.     intersection {Disk_Z scale <3 3 -.2> translate < 9 -3 -3.3>}
  61.     intersection {Disk_Z scale <3 3 -.2> translate < 9 -3 3.3>}
  62.     
  63.     intersection {Disk_Y scale <1 3 1> translate <-5 2.5 0>}
  64.   }
  65.   texture {colour Gray20}
  66.   colour Black
  67. }
  68. bounded_by {box {<-8 -6 -4><12 7 4>}} 
  69. }
  70.  
  71.  
  72. composite {Train}
  73.  
  74.  
  75.