home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / GRANITES.DAT < prev    next >
Encoding:
Text File  |  1990-10-19  |  1.3 KB  |  69 lines
  1. INCLUDE "BasicShapes.data"
  2.  
  3. DECLARE Red = COLOUR RED 1.0 GREEN 0.0 BLUE 0.0
  4. DECLARE Green = COLOUR RED 0.0 GREEN 1.0 BLUE 0.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 Red COLOUR Green
  23.      TURBULENCE 0.0
  24.      SCALE < 20.0 20.0 20.0 >
  25.    END_TEXTURE
  26.    COLOUR Green
  27. END_OBJECT
  28.  
  29. { Now a shiny granite sphere floating in space over the ground }
  30.  
  31. OBJECT
  32.    SPHERE <0.0 25.0 0.0> 40.0 END_SPHERE
  33.  
  34.    COLOR White
  35.    AMBIENT 0.3
  36.    DIFFUSE 0.7
  37.    BRILLIANCE 7.0
  38.    REFLECTION 0.1
  39.    PHONG 1.0
  40.    PHONGSIZE 60
  41.  
  42.   TEXTURE
  43.      0.05
  44.      GRANITE
  45.      SCALE < 5.0 5.0 5.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.