home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 4428 / woildat / utildecl.dat < prev    next >
Text File  |  1991-08-31  |  2KB  |  51 lines
  1. DECLARE LightSource = OBJECT             { Just reference and TRANSLATE }
  2.    SPHERE <0.0 0.0 0.0> 1.0 END_SPHERE
  3.    TEXTURE
  4.       COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  5.       AMBIENT 1.0
  6.       DIFFUSE 0.0
  7.    END_TEXTURE
  8.    LIGHT_SOURCE
  9.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  10. END_OBJECT
  11.  
  12. DECLARE SunSource = OBJECT               { Just reference and TRANSLATE }
  13.    SPHERE <0.0 0.0 0.0> 1.0 END_SPHERE
  14.    TEXTURE
  15.       COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  16.       AMBIENT 1.0
  17.       DIFFUSE 0.0
  18.    END_TEXTURE
  19.    LIGHT_SOURCE
  20.    COLOUR RED 0.8 GREEN 0.196078 BLUE 0.196078
  21. END_OBJECT
  22.  
  23. {
  24.   The correct syntax to use these would be:
  25.   DECLARE XPipe_Id = 0.5    { or whatever }
  26.   OBJECT
  27.     DIFFERENCE XPipe END_DIFFERENCE
  28.     COLOR Blah
  29.     TEXTURE Blah_blah_blah COLOR Blah END_TEXTURE
  30.     SCALE <WhateverX WhateverY WhateverZ>
  31.   END_OBJECT
  32. }
  33.  
  34. DECLARE XPipe_Od = 1.0   DECLARE XPipe_Id = 0.999
  35. DECLARE XPipe = DIFFERENCE
  36.     INTERSECTION X_Disk SCALE <1.0 XPipe_Od XPipe_Od> END_INTERSECTION
  37.     QUADRIC Cylinder_X  SCALE <1.0 XPipe_Id XPipe_Id> END_QUADRIC
  38. END_DIFFERENCE
  39.  
  40. DECLARE YPipe_Od = 1.0  DECLARE YPipe_Id = 0.999
  41. DECLARE YPipe = DIFFERENCE
  42.     INTERSECTION Y_Disk SCALE <1.0 YPipe_Od YPipe_Od> END_INTERSECTION
  43.     QUADRIC Cylinder_Y  SCALE <1.0 YPipe_Id YPipe_Id> END_QUADRIC
  44. END_DIFFERENCE
  45.  
  46. DECLARE ZPipe_Od = 1.0  DECLARE ZPipe_Id = 0.999
  47. DECLARE ZPipe = DIFFERENCE
  48.     INTERSECTION Z_Disk SCALE <1.0 ZPipe_Od ZPipe_Od> END_INTERSECTION
  49.     QUADRIC Cylinder_Z  SCALE <1.0 ZPipe_Id ZPipe_Id> END_QUADRIC
  50. END_DIFFERENCE
  51.