home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / DKBPICS.ZIP / TWODICE4.DAT < prev    next >
Encoding:
Text File  |  1990-10-16  |  6.1 KB  |  187 lines
  1. INCLUDE "BasicShapes.data"
  2.  
  3. DECLARE Red = COLOUR RED 1.0 BLUE 0.0 GREEN 0.0
  4.  
  5. VIEW_POINT
  6.    LOCATION <0.0  15.0  -120.0>
  7.    DIRECTION <0.0 0.0  1.0>
  8.    UP  <0.0  1.0  0.0>
  9.    RIGHT <1.333 0.0 0.0>
  10. END_VIEW_POINT
  11.  
  12. OBJECT           { White Marble Dice }
  13.    DIFFERENCE
  14.       INTERSECTION {and the rounded cube}
  15.          PLANE <0.0 0.0 1.0> 1.0 END_PLANE
  16.          PLANE <0.0 0.0 -1.0> 1.0 END_PLANE
  17.          PLANE <0.0 1.0 0.0> 1.0 END_PLANE
  18.          PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
  19.          PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  20.          PLANE <-1.0 0.0 0.0> 1.0 END_PLANE
  21.          SPHERE <0.0 0.0 0.0> 1.4 END_SPHERE
  22.       END_INTERSECTION
  23.       SPHERE <1.0 0.0 0.0> 0.2 END_SPHERE    {pip 1}
  24.       SPHERE <-0.5 -0.5 1.0> 0.2 END_SPHERE  {pip 2a}
  25.       SPHERE <0.5 0.5 1.0> 0.2 END_SPHERE  {pip 2b}
  26.       SPHERE <-0.5 -1.0 0.5> 0.2 END_SPHERE  {pip 3a}
  27.       SPHERE <0.0 -1.0 0.0> 0.2 END_SPHERE  {pip 3b}
  28.       SPHERE <0.5 -1.0 -0.5> 0.2 END_SPHERE  {pip 3c}
  29.       SPHERE <0.5 1.0 0.5> 0.2 END_SPHERE    {pip 4a}
  30.       SPHERE <0.5 1.0 -0.5> 0.2 END_SPHERE    {pip 4b}
  31.       SPHERE <-0.5 1.0 -0.5> 0.2 END_SPHERE    {pip 4c}
  32.       SPHERE <-0.5 1.0 0.5> 0.2 END_SPHERE    {pip 4d}
  33.       SPHERE <0.5 0.5 -1.0> 0.2 END_SPHERE    {pip 5a}
  34.       SPHERE <0.5 -0.5 -1.0> 0.2 END_SPHERE    {pip 5b}
  35.       SPHERE <0.0 0.0 -1.0> 0.2 END_SPHERE    {pip 5c}
  36.       SPHERE <-0.5 -0.5 -1.0> 0.2 END_SPHERE    {pip 5d}
  37.       SPHERE <-0.5 0.5 -1.0> 0.2 END_SPHERE    {pip 5e}
  38.       SPHERE <-1.0 0.5 0.5> 0.2 END_SPHERE    {pip 6a}
  39.       SPHERE <-1.0 0.0 0.5> 0.2 END_SPHERE    {pip 6b}
  40.       SPHERE <-1.0 -0.5 0.5> 0.2 END_SPHERE    {pip 6c}
  41.       SPHERE <-1.0 -0.5 -0.5> 0.2 END_SPHERE    {pip 6d}
  42.       SPHERE <-1.0 0.0 -0.5> 0.2 END_SPHERE    {pip 6e}
  43.       SPHERE <-1.0 0.5 -0.5> 0.2 END_SPHERE    {pip 6f}
  44.    END_DIFFERENCE
  45.    BOUNDED_BY
  46.       SPHERE <0.0 0.0 0.0> 1.41 END_SPHERE
  47.    END_BOUND
  48.    SCALE <10.0 10.0 10.0>
  49.    ROTATE <30.0 30.0 0.0>
  50.    TRANSLATE <5.0 23.0 0.0>
  51.    COLOUR RED 0.7 GREEN 0.4 BLUE 0.2
  52.    TEXTURE
  53.      AGATE
  54.      COLOUR_MAP
  55.           [0.0 0.5  COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  56.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.6]
  57.           [0.5 0.6  COLOUR RED 0.9 GREEN 0.7 BLUE 0.6
  58.                   COLOUR RED 0.9 GREEN 0.7 BLUE 0.4]
  59.           [0.6 1.001 COLOUR RED 0.9 GREEN 0.7 BLUE 0.4
  60.                   COLOUR RED 0.7 GREEN 0.4 BLUE 0.2]
  61.       END_COLOUR_MAP
  62.       SCALE <10.0 10.0 10.0>
  63.    END_TEXTURE
  64.    AMBIENT 0.3
  65.    DIFFUSE 0.7
  66. END_OBJECT
  67.  
  68. OBJECT           { Red Marble Dice }
  69.    DIFFERENCE
  70.       INTERSECTION {and the rounded cube}
  71.          PLANE <0.0 0.0 1.0> 1.0 END_PLANE
  72.          PLANE <0.0 0.0 -1.0> 1.0 END_PLANE
  73.          PLANE <0.0 1.0 0.0> 1.0 END_PLANE
  74.          PLANE <0.0 -1.0 0.0> 1.0 END_PLANE
  75.          PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  76.          PLANE <-1.0 0.0 0.0> 1.0 END_PLANE
  77.          SPHERE <0.0 0.0 0.0> 1.4 END_SPHERE
  78.       END_INTERSECTION
  79.       SPHERE <1.0 0.0 0.0> 0.2 END_SPHERE    {pip 1}
  80.       SPHERE <-0.5 -0.5 1.0> 0.2 END_SPHERE  {pip 2a}
  81.       SPHERE <0.5 0.5 1.0> 0.2 END_SPHERE  {pip 2b}
  82.       SPHERE <-0.5 -1.0 0.5> 0.2 END_SPHERE  {pip 3a}
  83.       SPHERE <0.0 -1.0 0.0> 0.2 END_SPHERE  {pip 3b}
  84.       SPHERE <0.5 -1.0 -0.5> 0.2 END_SPHERE  {pip 3c}
  85.       SPHERE <0.5 1.0 0.5> 0.2 END_SPHERE    {pip 4a}
  86.       SPHERE <0.5 1.0 -0.5> 0.2 END_SPHERE    {pip 4b}
  87.       SPHERE <-0.5 1.0 -0.5> 0.2 END_SPHERE    {pip 4c}
  88.       SPHERE <-0.5 1.0 0.5> 0.2 END_SPHERE    {pip 4d}
  89.       SPHERE <0.5 0.5 -1.0> 0.2 END_SPHERE    {pip 5a}
  90.       SPHERE <0.5 -0.5 -1.0> 0.2 END_SPHERE    {pip 5b}
  91.       SPHERE <0.0 0.0 -1.0> 0.2 END_SPHERE    {pip 5c}
  92.       SPHERE <-0.5 -0.5 -1.0> 0.2 END_SPHERE    {pip 5d}
  93.       SPHERE <-0.5 0.5 -1.0> 0.2 END_SPHERE    {pip 5e}
  94.       SPHERE <-1.0 0.5 0.5> 0.2 END_SPHERE    {pip 6a}
  95.       SPHERE <-1.0 0.0 0.5> 0.2 END_SPHERE    {pip 6b}
  96.       SPHERE <-1.0 -0.5 0.5> 0.2 END_SPHERE    {pip 6c}
  97.       SPHERE <-1.0 -0.5 -0.5> 0.2 END_SPHERE    {pip 6d}
  98.       SPHERE <-1.0 0.0 -0.5> 0.2 END_SPHERE    {pip 6e}
  99.       SPHERE <-1.0 0.5 -0.5> 0.2 END_SPHERE    {pip 6f}
  100.    END_DIFFERENCE
  101.    BOUNDED_BY
  102.       SPHERE <0.0 0.0 0.0> 1.41 END_SPHERE
  103.    END_BOUND
  104.    SCALE <10.0 10.0 10.0>
  105.    ROTATE <230.0 40.0 60.0>
  106.    TRANSLATE <-20.0 45.0 10.0>
  107.    COLOUR Red
  108.    TEXTURE
  109.      Red_Marble
  110.    END_TEXTURE
  111.    AMBIENT 0.3
  112.    DIFFUSE 0.7
  113. END_OBJECT
  114.  
  115. { Put down a wooden floor }
  116. OBJECT
  117.    QUADRIC
  118.       Plane_XZ
  119.       TRANSLATE <0.0  0.0  0.0>
  120.    END_QUADRIC
  121.  
  122.    AMBIENT 0.3
  123.    DIFFUSE 0.7
  124.    REFLECTION 0.2
  125.    COLOUR RED 0.666 GREEN 0.312 BLUE 0.2
  126.    TEXTURE
  127.       0.05
  128.       WOOD
  129.       TURBULENCE 0.1
  130.       ROTATE <60.0 0.0 0.0>
  131.       SCALE <15.0 8.0 8.0>
  132.       COLOUR_MAP
  133.           [0.0 0.8 COLOUR RED 0.666 GREEN 0.312 BLUE 0.2
  134.                   COLOUR RED 0.666 GREEN 0.312 BLUE 0.2]
  135.           [0.8 1.01 COLOUR RED 0.4 GREEN 0.133 BLUE 0.066
  136.                    COLOUR RED 0.2 GREEN 0.065 BLUE 0.033]
  137.       END_COLOUR_MAP
  138.    END_TEXTURE
  139. END_OBJECT
  140.  
  141. { Add the sky to the picture }
  142.  
  143. OBJECT
  144.    QUADRIC
  145.       Sphere
  146.       SCALE <1000.0 1000.0 1000.0>
  147.       TRANSLATE <0.0 -700.0 0.0>
  148.       INVERSE
  149.    END_QUADRIC
  150.    DIFFUSE 0.2
  151.    AMBIENT 0.8
  152.    COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
  153.    TEXTURE
  154.        0.05
  155.        BOZO
  156.        TURBULENCE 0.1
  157.        COLOUR_MAP
  158.           [0.0 0.8  COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
  159.                     COLOUR RED 0.5 GREEN 0.5 BLUE 1.0]
  160.           [0.8 0.85  COLOUR RED 0.5 GREEN 0.5 BLUE 1.0
  161.                     COLOUR RED 1.0 GREEN 1.0 BLUE 1.0]
  162.           [0.85 1.001 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  163.                     COLOUR RED 0.5 GREEN 0.5 BLUE 0.5]
  164.        END_COLOUR_MAP
  165.        SCALE <100.0 100.0 100.0>
  166.        TRANSLATE <0.0 0.0 0.0>
  167.    END_TEXTURE
  168. END_OBJECT
  169.  
  170. OBJECT  { bright light behind & to right }
  171.    SPHERE <0.0 0.0 0.0> 5.0 END_SPHERE
  172.    TRANSLATE <100.0  120.0  -130.0>
  173.    COLOUR RED 1.0 GREEN 1.0 BLUE 1.0
  174.    AMBIENT 1.0
  175.    DIFFUSE 0.0
  176.    LIGHT_SOURCE
  177. END_OBJECT
  178.  
  179. OBJECT  { dimmer light behind & to left }
  180.    SPHERE <0.0 0.0 0.0> 5.0 END_SPHERE
  181.    TRANSLATE <-100.0  120.0  -130.0>
  182.    COLOUR RED 0.5 GREEN 0.5 BLUE 0.5
  183.    AMBIENT 1.0
  184.    DIFFUSE 0.0
  185.    LIGHT_SOURCE
  186. END_OBJECT
  187.