home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / DENTTEST.DAT < prev    next >
Encoding:
Text File  |  1990-10-19  |  1.3 KB  |  69 lines
  1. INCLUDE "BasicShapes.data"
  2.  
  3. DECLARE Yellow = COLOUR RED 0.5 GREEN 0.5 BLUE 0.0
  4. DECLARE Blue = COLOUR RED 0.0 GREEN 0.0 BLUE 1.0
  5. DECLARE White = COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  6.  
  7. VIEW_POINT
  8.    LOCATION <0.0  20.0  -100.0>
  9.    DIRECTION <0.0 0.0  1.0>
  10.    UP  <0.0  1.0  0.0>
  11.    RIGHT <1.33333 0.0 0.0>
  12. END_VIEW_POINT
  13.  
  14. { Put down the beloved famous raytrace checkered floor }
  15. OBJECT
  16.    PLANE <0.0 1.0 0.0> -10.0 END_PLANE
  17.  
  18.    AMBIENT 0.2
  19.    DIFFUSE 0.8
  20.    TEXTURE
  21. {     0.05      }
  22.      CHECKER COLOUR Yellow COLOUR Blue
  23.      TURBULENCE 0.0
  24.      SCALE < 20.0 20.0 20.0 >
  25.    END_TEXTURE
  26.    COLOUR Yellow
  27.    AMBIENT 0.8
  28.    DIFFUSE 0.2
  29. END_OBJECT
  30.  
  31. { Now a dented reflective sphere floating in space over the ground }
  32.  
  33. OBJECT
  34.    SPHERE <0.0 25.0 0.0> 40.0 END_SPHERE
  35.  
  36.    COLOR White
  37.    AMBIENT 0.4
  38.    DIFFUSE 0.6
  39.    REFLECTION 1.0
  40.    BRILLIANCE 5.0
  41.  
  42.   TEXTURE
  43. {     0.05      }
  44.      DENTS 1.0
  45.      SCALE < 2.0 2.0 2.0 >
  46.   END_TEXTURE
  47. END_OBJECT
  48.  
  49. OBJECT
  50.    SPHERE <0.0 0.0 0.0> 2.0 END_SPHERE
  51.  
  52.    TRANSLATE <100.0  120.0  -130.0>
  53.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  54.    AMBIENT 1.0
  55.    DIFFUSE 0.0
  56.    LIGHT_SOURCE
  57. END_OBJECT
  58.  
  59. OBJECT
  60.    SPHERE <0.0 0.0 0.0> 2.0 END_SPHERE
  61.  
  62.    TRANSLATE <-100.0  100.0  -130.0>
  63.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  64.    AMBIENT 1.0
  65.    DIFFUSE 0.0
  66.    LIGHT_SOURCE
  67. END_OBJECT
  68.  
  69.