home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / lamp.dat < prev    next >
Text File  |  1991-04-12  |  3KB  |  130 lines
  1. { DKB Data file LAMP.DAT originally by ?? }
  2.  
  3. { This would have won the Intl. Obfuscated DKB Code Contest, So I }
  4. { reformatted it while converting it to DKB 2.10 :-)  All kidding }
  5. { aside, nice job, whoever wrote it!  -  Aaron A. Collins }
  6.  
  7. INCLUDE "colors.dat"
  8. INCLUDE "shapes.dat"    { contains the new "X_Disk" primitive }
  9. INCLUDE "textures.dat"
  10.  
  11. VIEW_POINT
  12.   LOCATION <0.0 -80.0 0.0>
  13.   DIRECTION <0.0 1.0 0.0>
  14.   UP <0.0 0.0 1.0>
  15.   RIGHT <1.333333 0.0 0.0>
  16.   TRANSLATE < 25.0 0.0 5.0 >
  17.   ROTATE < -30.0 0.0 30.0 >
  18. END_VIEW_POINT
  19.  
  20. OBJECT
  21.   SPHERE <0.0 0.0 0.0> 1.0 END_SPHERE
  22.   TRANSLATE <44.514 0.0 13.5>
  23.   TEXTURE
  24.     COLOR White
  25.     AMBIENT 1.0
  26.     DIFFUSE 0.0
  27.   END_TEXTURE
  28.   LIGHT_SOURCE
  29.   COLOR White
  30. END_OBJECT
  31.  
  32. OBJECT
  33.   SPHERE <0.0 0.0 0.0> 1.0 END_SPHERE
  34.   TRANSLATE <-60.514 0.0 160.5>
  35.   TEXTURE
  36.     COLOR RED 0.7 GREEN 0.7 BLUE 0.7
  37.     AMBIENT 1.0
  38.     DIFFUSE 0.0
  39.   END_TEXTURE
  40.   LIGHT_SOURCE
  41.   COLOR RED 0.7 GREEN 0.7 BLUE 0.7
  42. END_OBJECT
  43.  
  44. OBJECT
  45.   SPHERE < 0.0 0.0 0.0 > 5.0 END_SPHERE
  46.   TEXTURE Brass END_TEXTURE
  47. END_OBJECT
  48.  
  49. OBJECT
  50.   SPHERE < 38.161 0.0 17.197 > 1.0 END_SPHERE
  51.   TEXTURE Brass END_TEXTURE
  52. END_OBJECT
  53.  
  54. OBJECT
  55.   SPHERE < 9.307 0.0 30.288 > 1.0 END_SPHERE
  56.   TEXTURE Brass END_TEXTURE
  57. END_OBJECT
  58.  
  59. OBJECT
  60.   INTERSECTION X_Disk END_INTERSECTION
  61.   SCALE < 31.685 1.0 1.0 >
  62.   ROTATE < 0.0 -72.9193 0.0 >
  63.   TEXTURE Brass END_TEXTURE
  64. END_OBJECT
  65.  
  66. OBJECT INTERSECTION X_Disk END_INTERSECTION
  67.   SCALE < 31.685 1.0 1.0 >
  68.   ROTATE < 0.0 -155.5969 0.0 >
  69.   TRANSLATE < 38.161 0.0 17.197 >
  70.   TEXTURE Brass END_TEXTURE
  71. END_OBJECT
  72.  
  73. OBJECT
  74.   INTERSECTION X_Disk END_INTERSECTION
  75.   SCALE < 3.2 0.5 0.5 >
  76.   TRANSLATE < 38.161 0.0 17.197 >
  77.   TEXTURE Brass END_TEXTURE
  78. END_OBJECT
  79.  
  80. OBJECT
  81.   INTERSECTION
  82.     QUADRIC
  83.       Cone_Z
  84.       SCALE < 1.0 1.0 1.0 >
  85.       TRANSLATE < 44.514 0.0 17.685 >
  86.     END_QUADRIC
  87.     QUADRIC
  88.       Cone_Z
  89.       SCALE < 1.0 1.0 1.0 >
  90.       TRANSLATE < 44.514 0.0 16.685 >
  91.       INVERSE
  92.     END_QUADRIC
  93.     PLANE < 0.0 0.0 1.0 > 7.685 INVERSE END_PLANE
  94.     PLANE < 0.0 0.0 1.0 > 13.695 END_PLANE
  95.   END_INTERSECTION
  96.   TEXTURE Brass END_TEXTURE
  97. END_OBJECT
  98.  
  99. OBJECT
  100.   INTERSECTION
  101.     QUADRIC
  102.       Cone_Z
  103.       SCALE < 0.2 0.2 1.0 >
  104.       TRANSLATE < 44.514 0.0 33.496 >
  105.     END_QUADRIC
  106.     QUADRIC
  107.       Cone_Z
  108.       SCALE < 0.2 0.2 1.0 >
  109.       TRANSLATE < 44.514 0.0 32.496 >
  110.       INVERSE
  111.     END_QUADRIC
  112.     PLANE < 0.0 0.0 1.0 > 13.695 INVERSE END_PLANE
  113.     PLANE < 0.0 0.0 1.0 > 23.496 END_PLANE
  114.   END_INTERSECTION
  115.   TEXTURE Brass END_TEXTURE
  116. END_OBJECT
  117.  
  118. OBJECT
  119.   PLANE < 0.0 0.0 1.0 > -4.0 END_PLANE
  120.   TEXTURE
  121.     COLOR Red
  122.     AMBIENT 0.4
  123.     DIFFUSE 0.6
  124.     BRILLIANCE 8.0
  125.     REFLECTION 0.8
  126.     PHONG 1.0
  127.     PHONGSIZE 30.0
  128.   END_TEXTURE
  129. END_OBJECT
  130.