home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / portray / die.inc < prev    next >
Encoding:
Text File  |  1993-12-30  |  4.2 KB  |  124 lines
  1. ~ definition of red and blue dice ~
  2. define
  3.    material
  4.       named die-pips
  5.       colour (0 0 0)
  6.       spec-colour (1 1 1)
  7.       diffuse-reflection 0.0
  8.       specular-reflection 0.8
  9.       reflection 0.0
  10.    ;
  11.    object
  12.       name pips
  13.       object sphere centre (0 0 -1.2) radius 0.25 ; material called die-pips ; ;
  14.  
  15.       object sphere centre (0.4 -0.4 1.2) radius 0.25 ; material called die-pips ; ;
  16.       object sphere centre (0.4  0.0 1.2) radius 0.25 ; material called die-pips ; ;
  17.       object sphere centre (0.4  0.4 1.2) radius 0.25 ; material called die-pips ; ;
  18.       object sphere centre (-.4 -0.4 1.2) radius 0.25 ; material called die-pips ; ;
  19.       object sphere centre (-.4  0.0 1.2) radius 0.25 ; material called die-pips ; ;
  20.       object sphere centre (-.4  0.4 1.2) radius 0.25 ; material called die-pips ; ;
  21.  
  22.       object sphere centre (1.2 -0.4  0.4) radius 0.25 ; material called die-pips ; ;
  23.       object sphere centre (1.2  0.4 -0.4) radius 0.25 ; material called die-pips ; ;
  24.  
  25.       object sphere centre (-1.2 -0.4  0.4 ) radius 0.25 ; material called die-pips ; ;
  26.       object sphere centre (-1.2  0.0  0.0 ) radius 0.25 ; material called die-pips ; ;
  27.       object sphere centre (-1.2  0.4  0.4 ) radius 0.25 ; material called die-pips ; ;
  28.       object sphere centre (-1.2 -0.4 -0.4 ) radius 0.25 ; material called die-pips ; ;
  29.       object sphere centre (-1.2  0.4 -0.4 ) radius 0.25 ; material called die-pips ; ;
  30.  
  31.       object sphere centre (-0.4 -1.2  0.4 ) radius 0.25 ; material called die-pips ; ;
  32.       object sphere centre ( 0.4 -1.2  0.4 ) radius 0.25 ; material called die-pips ; ;
  33.       object sphere centre (-0.4 -1.2 -0.4 ) radius 0.25 ; material called die-pips ; ;
  34.       object sphere centre ( 0.4 -1.2 -0.4 ) radius 0.25 ; material called die-pips ; ;
  35.  
  36.       object sphere centre (-0.4 1.2  0.4 ) radius 0.25 ; material called die-pips ; ;
  37.       object sphere centre ( 0.0 1.2  0.0 ) radius 0.25 ; material called die-pips ; ;
  38.       object sphere centre ( 0.4 1.2 -0.4 ) radius 0.25 ; material called die-pips ; ;
  39.    ;
  40.    object
  41.       name blue-die
  42.       object
  43.          csg
  44.             subtract
  45.             operand1
  46.                csg
  47.                   intersect
  48.                   operand1
  49.                      sphere
  50.                         centre (0 0 0)
  51.                         radius 1.414
  52.                      ;
  53.                      material
  54.                         named bdie-stuff
  55.                         colour (0.2 0.2 0.8)
  56.                         diffuse-reflection 0.7
  57.                         specular-reflection 0.4
  58.                         specular-power 100
  59.                         reflection 0.0
  60.                      ;
  61.                   ;
  62.                   operand2
  63.                      box
  64.                         a (-1 -1 -1)
  65.                         b ( 1 1  1)
  66.                      ;
  67.                      material
  68.                         called bdie-stuff
  69.                      ;
  70.                   ;
  71.                ;
  72.             ;
  73.             operand2
  74.                pips
  75.                   at (0 0 0)
  76.                ;
  77.             ;
  78.          ;
  79.       ;
  80.    ;
  81.    object
  82.       name red-die
  83.       object
  84.          csg
  85.             subtract
  86.             operand1
  87.                csg
  88.                   intersect
  89.                   operand1
  90.                      sphere
  91.                         centre (0 0 0)
  92.                         radius 1.414
  93.                      ;
  94.                      material
  95.                         named rdie-stuff
  96.                         colour (0.8 0.2 0.2)
  97.                         diffuse-reflection 0.7
  98.                         specular-reflection 0.4
  99.                         specular-power 100
  100.                         reflection 0.0
  101.                      ;
  102.                   ;
  103.                   operand2
  104.                      box
  105.                         a (-1 -1 -1)
  106.                         b ( 1 1  1)
  107.                      ;
  108.                      material
  109.                         called rdie-stuff
  110.                      ;
  111.                   ;
  112.                ;
  113.             ;
  114.             operand2
  115.                pips
  116.                   at (0 0 0)
  117.                ;
  118.             ;
  119.          ;
  120.       ;
  121.    ;
  122. ;
  123.  
  124.