home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / room.dat < prev    next >
Text File  |  1991-04-12  |  4KB  |  177 lines
  1.  
  2. { Room.dat - Empty room created for CIS Comart Raytracing Group Project }
  3. { See Room.doc for guidelines }
  4. { 12/31/90 Drew Wells 73767,1244 - Feel free to make suggestions,}
  5. {                                  it's a group project! }
  6. { DEADLINE for objects is 1/20/91 }
  7.  
  8. INCLUDE "shapes.dat"
  9. INCLUDE "colors.dat"
  10. INCLUDE "textures.dat"
  11.  
  12. { Camera Facing North}
  13. VIEW_POINT
  14.    DIRECTION <0.0 0.0  1.5>
  15.    UP  <0.0  1.0  0.0>
  16.    RIGHT <1.333333 0.0 0.0>
  17.    TRANSLATE < 10.0  5.0  -30.0>
  18.    LOOK_AT <0.0 5.0 0.0>
  19. END_VIEW_POINT
  20.  
  21. {***********************************************}
  22. { Define objects for use in scene               }
  23. { Your object should be DECLAREd here           }
  24. {***********************************************}
  25.  
  26. DECLARE North_Wall = OBJECT 
  27.    PLANE <0.0 0.0 1.0> 10.0 END_PLANE
  28.    TEXTURE 
  29.      GRANITE
  30.      SCALE <1.0 20.0 1.0>
  31.    END_TEXTURE
  32.    COLOR Yellow
  33.  END_OBJECT
  34. { South Wall commented out so camera can see in}
  35. DECLARE South_Wall = OBJECT
  36.    PLANE <0.0 0.0 1.0> -10.0 END_PLANE
  37.    TEXTURE 
  38.      Cherry_Wood
  39.      0.05
  40.      SCALE <10.0 10.0 10.0>
  41.    END_TEXTURE
  42.    COLOR Red
  43.  END_OBJECT
  44.  
  45. { Not visible with current viewpoint}
  46. { But could be useful for light coming through window etc. }
  47. DECLARE East_Wall = OBJECT
  48.    PLANE <1.0 0.0 0.0> 15.0 END_PLANE
  49.    TEXTURE
  50.      Jade
  51.      SCALE <10.0 10.0 10.0>
  52.    END_TEXTURE
  53.    COLOR Green  
  54.  END_OBJECT
  55. DECLARE West_Wall = OBJECT
  56.    PLANE <1.0 0.0 0.0> -15.0 END_PLANE
  57.    TEXTURE 
  58.      White_Wood
  59.      0.05
  60.      SCALE <15.0 20.0 3.0>
  61.    END_TEXTURE
  62.    COLOR Blue
  63.  END_OBJECT
  64. DECLARE Ceiling = OBJECT
  65.    PLANE <0.0 1.0 0.0> 15.0 END_PLANE
  66.    TEXTURE 
  67.      Red_Marble
  68.      SCALE <10.0 10.0 10.0>
  69.    END_TEXTURE
  70.    COLOR White
  71.  END_OBJECT 
  72. DECLARE Floor = OBJECT
  73.    PLANE <0.0 1.0 0.0> 0.0 END_PLANE
  74.    TEXTURE 
  75.      Pine_Wood
  76.      0.05
  77.      SCALE <40.0 3.0 3.0>
  78.    END_TEXTURE
  79.    COLOR Violet
  80.  END_OBJECT
  81.  
  82. {*****************************************}
  83. { Scene description                       }
  84. {*****************************************}
  85. OBJECT
  86.   North_Wall
  87. END_OBJECT
  88. { Comment out South Wall so camera can see in }
  89. {OBJECT
  90.   South_Wall
  91. END_OBJECT}
  92. OBJECT
  93.   East_Wall
  94. END_OBJECT
  95. OBJECT
  96.   West_Wall
  97. END_OBJECT
  98. OBJECT
  99.   Ceiling
  100. END_OBJECT
  101. OBJECT
  102.   Floor
  103. END_OBJECT
  104.  
  105. { Colored spheres to help visualize coordinates}
  106. OBJECT {North}
  107.  SPHERE <0.0 7.0 9.0> 1.0 END_SPHERE
  108.  TEXTURE COLOR Yellow END_TEXTURE
  109.  COLOR Yellow
  110. END_OBJECT
  111. { South sphere not visible in example gif}
  112. {OBJECT {South}
  113.  SPHERE <0.0 5.0 -10.0> 1.0 END_SPHERE
  114.  TEXTURE COLOR Red END_TEXTURE
  115.  COLOR Red
  116. END_OBJECT}
  117. OBJECT {East}
  118.  SPHERE <10.0 7.0 0.0> 1.0 END_SPHERE
  119.  TEXTURE COLOR Green END_TEXTURE
  120.  COLOR Green
  121. END_OBJECT
  122. OBJECT {West}
  123.  SPHERE <-14.0 7.0 0.0> 1.0 END_SPHERE
  124.  TEXTURE COLOR Blue END_TEXTURE
  125.  COLOR Blue
  126. END_OBJECT
  127. OBJECT {Up}
  128.  SPHERE <0.0 14.0 0.0> 1.0 END_SPHERE
  129.  TEXTURE COLOR White END_TEXTURE
  130.  COLOR White
  131. END_OBJECT
  132. OBJECT {Down}
  133.  SPHERE <0.0 1.0 0.0> 1.0 END_SPHERE
  134.  TEXTURE COLOR Violet END_TEXTURE
  135.  COLOR Violet
  136. END_OBJECT
  137.  
  138.  
  139. {Crude Spot light - feel free to add more light sources.}
  140. OBJECT
  141.  INTERSECTION
  142.    SPHERE <0.0 0.0 0.0> 2.0 INVERSE END_SPHERE
  143.    SPHERE <0.0 0.0 0.0> 2.1 END_SPHERE
  144.    PLANE  <0.0 0.0 1.0> 1.2 END_PLANE
  145.  END_INTERSECTION 
  146.  TEXTURE
  147.    Brown_Agate
  148.    SCALE <3.0 3.0 3.0>
  149.    SPECULAR 1.0
  150.  END_TEXTURE
  151.  ROTATE <45.0 -40.0 0.0>
  152.  TRANSLATE <10.0 10.0 -8.0>
  153. END_OBJECT
  154.  
  155. OBJECT
  156.   SPHERE <0.0 0.0 0.0> 0.0005 END_SPHERE
  157.   TRANSLATE <10.0 10.0 -8.0>
  158.   TEXTURE
  159.     COLOUR White
  160.     AMBIENT 0.001
  161.   END_TEXTURE
  162.   LIGHT_SOURCE
  163.   COLOUR White
  164. END_OBJECT
  165.  
  166. { Far light source to light where spot doesn't }   
  167. OBJECT
  168.   SPHERE <0.0 0.0 0.0> 0.0008 END_SPHERE
  169.   TRANSLATE <-10.0 10.0 -40.0>
  170.   TEXTURE
  171.     COLOUR White
  172.     AMBIENT 0.001
  173.   END_TEXTURE
  174.   LIGHT_SOURCE
  175.   COLOUR White
  176. END_OBJECT
  177.