home *** CD-ROM | disk | FTP | other *** search
/ Avalon - 3D Objects & Resources / Avalon.iso / objects / dkb / escher.dat < prev    next >
Encoding:
Text File  |  1995-01-01  |  1.6 KB  |  97 lines
  1. {
  2. *
  3. *   ESCHER.DAT      8-29-91
  4. *
  5. *   Written by: Sandford Bostic
  6. *
  7. *                bostic@cs.wvu.wvnet.edu
  8. *
  9. *   DKBTrace scene description of an Escher print made up of 3 cubes rotated
  10. *   at different angles.
  11. *
  12. *   This file is released into the public domain and may be used or altered
  13. *   by anyone as desired.
  14. *
  15. }
  16.  
  17. INCLUDE "shapes.dat"
  18. INCLUDE "colors.dat"
  19. INCLUDE "textures.dat"
  20.  
  21. DECLARE Box = INTERSECTION
  22.     Cube
  23.     SCALE <2.0 2.0 2.0>
  24. END_INTERSECTION
  25.  
  26. VIEW_POINT
  27.     LOCATION <0.0 3.0 -10.0>
  28.     UP <0.0 1.0 0.0>
  29.     RIGHT <1.3333 0.0 0.0>
  30. END_VIEW_POINT
  31.  
  32. OBJECT
  33.     SPHERE <0.0 0.0 0.0> 3.0 END_SPHERE
  34.     TRANSLATE <10.0 10.0 -10.0>
  35.     TEXTURE
  36.         COLOR White
  37.         AMBIENT 1.0
  38.         DIFFUSE 0.0
  39.     END_TEXTURE
  40.     LIGHT_SOURCE
  41. COLOR White
  42. END_OBJECT
  43.  
  44. OBJECT
  45.     PLANE <0.0 1.0 0.0> 0 END_PLANE
  46.     TEXTURE
  47.         CHECKER
  48.             COLOR Magenta
  49.             COLOR MidnightBlue
  50.     END_TEXTURE
  51. END_OBJECT
  52.  
  53. OBJECT
  54.     PLANE <0.0 0.0 -1.0> -20.0 END_PLANE
  55.     TEXTURE
  56.         Cloud_Sky
  57.     END_TEXTURE
  58. END_OBJECT
  59.  
  60. OBJECT
  61.     INTERSECTION Box END_INTERSECTION
  62.     TEXTURE
  63.         Red_Marble
  64.     AMBIENT 1.0
  65.     REFLECTION 0.3 
  66.     END_TEXTURE
  67.     ROTATE <0.0 45.0 0.0>
  68.     ROTATE <0.0 -15.0 0.0>
  69.     TRANSLATE <0.0 3.0 0.0>
  70. END_OBJECT
  71.  
  72. OBJECT
  73.     INTERSECTION Box END_INTERSECTION
  74.     TEXTURE
  75.         Red_Marble
  76.     AMBIENT 1.0
  77.     REFLECTION 0.3
  78.     END_TEXTURE
  79.     ROTATE <45.0 0.0 0.0>
  80.     ROTATE <0.0 -15.0 0.0>
  81.     TRANSLATE <0.0 3.0 0.0>
  82. END_OBJECT
  83.  
  84. OBJECT
  85.     INTERSECTION Box END_INTERSECTION
  86.     TEXTURE
  87.         Red_Marble
  88.     AMBIENT 1.0
  89.     REFLECTION 0.3
  90.     END_TEXTURE
  91.     ROTATE <0.0 0.0 45.0>
  92.     ROTATE <0.0 -15.0 0.0>
  93.     TRANSLATE <0.0 3.0 0.0>
  94. END_OBJECT
  95.  
  96.  
  97.