home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / DKBOS2.ZOO / dkb212dt.zoo / desk.dat < prev    next >
Text File  |  1991-04-12  |  9KB  |  422 lines
  1. INCLUDE "shapes.dat"
  2. INCLUDE "colors.dat"
  3. INCLUDE "textures.dat"
  4.  
  5. DECLARE
  6.   RedPencil = COMPOSITE
  7.     OBJECT
  8.       INTERSECTION
  9.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  10.     PLANE <0.0 1.0 0.0> 30.0 END_PLANE
  11.     PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  12.       END_INTERSECTION
  13.       TEXTURE
  14.         0.05
  15.         AMBIENT 0.3
  16.     DIFFUSE 0.7
  17.     COLOUR RED 1.0
  18.       END_TEXTURE
  19.      END_OBJECT
  20.  
  21.      OBJECT
  22.        INTERSECTION
  23.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  24.     PLANE <0.0 1.0 0.0> 32.0 END_PLANE
  25.     PLANE <0.0 1.0 0.0> 30.0 INVERSE END_PLANE
  26.       END_INTERSECTION
  27.       TEXTURE
  28.         0.05
  29.         AMBIENT 0.3
  30.     DIFFUSE 0.7
  31.     COLOUR Tan
  32.       END_TEXTURE
  33.       END_OBJECT
  34.    END_COMPOSITE
  35.  
  36. DECLARE
  37.   GreenPencil = COMPOSITE
  38.     OBJECT
  39.       INTERSECTION
  40.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  41.     PLANE <0.0 1.0 0.0> 30.0 END_PLANE
  42.     PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  43.       END_INTERSECTION
  44.       TEXTURE
  45.         0.05
  46.         AMBIENT 0.3
  47.     DIFFUSE 0.7
  48.     COLOUR GREEN 1.0
  49.       END_TEXTURE
  50.      END_OBJECT
  51.      OBJECT
  52.        INTERSECTION
  53.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  54.     PLANE <0.0 1.0 0.0> 32.0 END_PLANE
  55.     PLANE <0.0 1.0 0.0> 30.0 INVERSE END_PLANE
  56.       END_INTERSECTION
  57.       TEXTURE
  58.         0.05
  59.         AMBIENT 0.3
  60.     DIFFUSE 0.7
  61.     COLOUR Tan
  62.       END_TEXTURE
  63.       END_OBJECT
  64.    END_COMPOSITE
  65.  
  66. DECLARE
  67.   BluePencil = COMPOSITE
  68.     OBJECT
  69.       INTERSECTION
  70.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  71.     PLANE <0.0 1.0 0.0> 30.0 END_PLANE
  72.     PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  73.       END_INTERSECTION
  74.       TEXTURE
  75.         0.05
  76.         AMBIENT 0.3
  77.     DIFFUSE 0.7
  78.     COLOUR BLUE 1.0
  79.       END_TEXTURE
  80.      END_OBJECT
  81.      OBJECT
  82.        INTERSECTION
  83.     QUADRIC Cylinder_Y SCALE <0.5 1.0 0.5> END_QUADRIC
  84.     PLANE <0.0 1.0 0.0> 32.0 END_PLANE
  85.     PLANE <0.0 1.0 0.0> 30.0 INVERSE END_PLANE
  86.       END_INTERSECTION
  87.         TEXTURE
  88.            0.05
  89.        AMBIENT 0.3
  90.        DIFFUSE 0.7
  91.        COLOUR Tan
  92.         END_TEXTURE
  93.       END_OBJECT
  94.    END_COMPOSITE
  95.  
  96. VIEW_POINT
  97.       LOCATION <0.0 40.0 -150.0>
  98.     UP <0.0 1.0 0.0>
  99.     RIGHT <1.3333 0.0 0.0>
  100.     LOOK_AT <0.0 0.0 0.0>
  101. END_VIEW_POINT
  102.  
  103. {The back wall}
  104.  
  105. OBJECT
  106.     PLANE <0.0 0.0 1.0> 200.0 END_PLANE
  107.     TEXTURE
  108.         0.1
  109.     AMBIENT 0.3
  110.     DIFFUSE 0.7
  111.     COLOUR LightGray
  112.     END_TEXTURE
  113.     COLOUR LightGray
  114. END_OBJECT
  115.  
  116. {The ceiling}
  117. OBJECT
  118.     PLANE <0.0 1.0 0.0> 500.0 END_PLANE
  119.     TEXTURE
  120.         0.1
  121.     AMBIENT 0.3
  122.     DIFFUSE 0.7
  123.     COLOUR White
  124.     END_TEXTURE
  125. END_OBJECT
  126.  
  127.  
  128. {The desk surface}
  129.  
  130. OBJECT
  131.     INTERSECTION
  132.         PLANE <0.0 1.0 0.0> 2.0 END_PLANE
  133.     PLANE <0.0 1.0 0.0> -2.0 INVERSE END_PLANE
  134.     PLANE <0.0 0.0 1.0> 100.0 END_PLANE
  135.     PLANE <0.0 0.0 1.0> -100.0 INVERSE END_PLANE
  136.     PLANE <1.0 0.0 0.0> 125.0 END_PLANE
  137.     PLANE <1.0 0.0 0.0> -125.0 INVERSE END_PLANE
  138.     END_INTERSECTION
  139.     TRANSLATE <0.0 -20.0 0.0>
  140.     TEXTURE
  141.     0.05
  142.     AMBIENT 0.4
  143.     DIFFUSE 0.6
  144.     Dark_Wood
  145.     SCALE <5.0 1.0 1.0>
  146.     REFLECTION 0.2
  147.     BRILLIANCE 3.0
  148.     END_TEXTURE
  149. END_OBJECT
  150.  
  151. {Paperwork}
  152. OBJECT
  153.   UNION
  154.     TRIANGLE
  155.     <0.0 0.0 0.0>
  156.     <8.5 0.0 0.0>
  157.     <0.0 0.0 -11.0>
  158.     END_TRIANGLE
  159.     TRIANGLE
  160.     <0.0 0.0 -11.0>
  161.     <8.5 0.0 -11.0>
  162.     <8.5 0.0 0.0>
  163.     END_TRIANGLE
  164.    END_UNION
  165.    SCALE <3.0 1.0 3.0>
  166.    ROTATE <0.0 -30.0 0.0>
  167.    TRANSLATE <-20.0 -17.9 -40.0>
  168.  
  169.    TEXTURE
  170.         0.05
  171.     AMBIENT 0.1
  172.     DIFFUSE 0.4
  173.     COLOUR RED 0.5 GREEN 0.5 BLUE 0.3
  174.    END_TEXTURE
  175.    COLOUR RED 0.5 GREEN 0.5 BLUE 0.3
  176. END_OBJECT
  177.  
  178. {A glass paperweight}
  179. OBJECT
  180.   INTERSECTION
  181.     SPHERE <0.0 -5.0 0.0> 10.0 END_SPHERE
  182.     PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  183.   END_INTERSECTION
  184.   TRANSLATE <0.0 -17.8 -35.0>
  185.   TEXTURE
  186.     AMBIENT 0.1
  187.     DIFFUSE 0.6
  188.     COLOUR RED 0.3 GREEN 0.5 BLUE 0.3 ALPHA 1.0
  189.     REFLECTION 0.1
  190.     REFRACTION 1.0
  191.     IOR 1.5
  192.     BRILLIANCE 2.0
  193.    END_TEXTURE
  194. END_OBJECT
  195.  
  196. {The desk lamp}
  197.  
  198. COMPOSITE
  199.   OBJECT
  200.      INTERSECTION
  201.       QUADRIC Cylinder_Y SCALE <3.0 1.0 3.0> END_QUADRIC
  202.       PLANE <0.0 1.0 0.0> 40.0 END_PLANE
  203.       PLANE <0.0 1.0 0.0> -18.0 INVERSE END_PLANE
  204.      END_INTERSECTION
  205.      TEXTURE
  206.     Shiny
  207.         0.05
  208.     AMBIENT 0.2
  209.         DIFFUSE 0.7
  210.         COLOUR RED 0.7 GREEN 0.6 BLUE 0.1
  211.      END_TEXTURE
  212.   END_OBJECT
  213.  
  214.   OBJECT
  215.     INTERSECTION
  216.     QUADRIC Cylinder_Y SCALE <25.0 1.0 25.0> END_QUADRIC
  217.     PLANE <0.0 1.0 0.0> 2.0 END_PLANE
  218.     PLANE <0.0 1.0 0.0> -2.0 INVERSE END_PLANE
  219.     END_INTERSECTION
  220.     TRANSLATE <0.0 -16.0 -5.0>
  221.     TEXTURE
  222.     0.05
  223.     AMBIENT 0.3
  224.     DIFFUSE 0.6
  225.     COLOUR RED 0.5 GREEN 0.4 BLUE 0.1
  226.     REFLECTION 0.4
  227.     BRILLIANCE 4.0
  228.     BUMPS 0.1
  229.     END_TEXTURE
  230.   END_OBJECT
  231.  
  232.   OBJECT
  233.    INTERSECTION
  234.      QUADRIC Cylinder_X SCALE <1.0 10.0 10.0> END_QUADRIC
  235.      QUADRIC Cylinder_X SCALE <1.0 9.95 9.95> INVERSE END_QUADRIC
  236.      PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  237.      PLANE <1.0 0.0 0.0> -30.0 INVERSE END_PLANE
  238.      PLANE <1.0 0.0 0.0> 30.0 END_PLANE
  239.    END_INTERSECTION
  240.     TRANSLATE <0.0 35.0 -13.0>
  241.       TEXTURE
  242.     Shiny
  243.     0.05
  244.     AMBIENT 0.5
  245.     DIFFUSE 0.5
  246.     COLOUR DarkGreen 
  247.     REFLECTION 0.3
  248.     BRILLIANCE 4.0
  249.       END_TEXTURE
  250.    END_OBJECT
  251.  
  252.    OBJECT
  253.      UNION
  254.     INTERSECTION
  255.        SPHERE <-30.0 35.0 -13.0> 10.0 END_SPHERE
  256.        SPHERE <-30.0 35.0 -13.0> 9.95 INVERSE END_SPHERE
  257.        PLANE <0.0 1.0 0.0> 35.0 INVERSE END_PLANE
  258.        PLANE <1.0 0.0 0.0> -30.0 END_PLANE
  259.     END_INTERSECTION
  260.     INTERSECTION
  261.        PLANE <0.0 1.0 0.0> 35.0 INVERSE END_PLANE
  262.        PLANE <1.0 0.0 0.0> 30.0 INVERSE END_PLANE
  263.        SPHERE <30.0 35.0 -13.0> 10.0 END_SPHERE
  264.        SPHERE <30.0 35.0 -13.0> 9.95 INVERSE END_SPHERE
  265.     END_INTERSECTION
  266.       END_UNION
  267.       TEXTURE
  268.     Shiny
  269.     0.05
  270.        AMBIENT 0.2
  271.     DIFFUSE 0.7
  272.     COLOUR RED 0.7 GREEN 0.6 BLUE 0.1
  273.     END_TEXTURE
  274.    END_OBJECT
  275.  
  276.  
  277.    ROTATE <0.0 35.0 0.0>
  278.    TRANSLATE <50.0 0.0 30.0>
  279.     
  280. END_COMPOSITE
  281.     
  282. {The fluorescent tube inside the lamp}
  283.  
  284. OBJECT
  285.    INTERSECTION
  286.     QUADRIC Cylinder_X END_QUADRIC
  287.     PLANE <1.0 0.0 0.0> -25.0 INVERSE END_PLANE
  288.     PLANE <1.0 0.0 0.0>  25.0 END_PLANE
  289.    END_INTERSECTION
  290.    TRANSLATE <0.0 43.0 -10.0>
  291.    ROTATE <0.0 35.0 0.0>
  292.    TRANSLATE <50.0 0.0 30.0>
  293.    TEXTURE
  294.     COLOUR White
  295.     AMBIENT 1.0
  296.     DIFFUSE 0.0
  297.    END_TEXTURE
  298.    LIGHT_SOURCE
  299.    COLOUR White
  300. END_OBJECT
  301.  
  302. {The Picture itself}
  303.  
  304. COMPOSITE
  305.   OBJECT
  306.    INTERSECTION
  307.     PLANE <1.0 0.0 0.0> 1.0 END_PLANE
  308.     PLANE <1.0 0.0 0.0> -1.0 INVERSE END_PLANE
  309.     PLANE <0.0 1.0 0.0> 1.0 END_PLANE
  310.     PLANE <0.0 1.0 0.0> -1.0 INVERSE END_PLANE
  311.     PLANE <0.0 0.0 1.0> 1.0 END_PLANE
  312.     PLANE <0.0 0.0 1.0> -1.0 INVERSE END_PLANE
  313.    END_INTERSECTION
  314.    TRANSLATE <1.0 1.0 1.0>
  315.    SCALE <20.0 15.0 1.0>
  316.    TEXTURE
  317.     AMBIENT 0.05
  318.     DIFFUSE 0.9
  319.     IMAGEMAP <1.0 -1.0 0.0> IFF "waterbowl.ham" ONCE
  320.     SCALE <40.0 30.0 1.0>
  321.     SCALE <1.5 1.5 1.0>
  322.    END_TEXTURE
  323.   END_OBJECT
  324.  
  325. { The picture frame }
  326.   OBJECT
  327.     UNION
  328.      INTERSECTION
  329.     UNION
  330.       QUADRIC Cylinder_Y SCALE <1.0 1.0 1.0> TRANSLATE <41.0 0.0 0.0> END_QUADRIC
  331.       QUADRIC Cylinder_Y SCALE <1.0 1.0 1.0> TRANSLATE <-1.0 0.0 0.0> END_QUADRIC
  332.     END_UNION
  333.       PLANE <0.0 1.0 0.0> 31.0 END_PLANE
  334.           PLANE <0.0 1.0 0.0> -1.0 INVERSE END_PLANE
  335.      END_INTERSECTION
  336.      INTERSECTION
  337.     UNION
  338.         QUADRIC Cylinder_X SCALE <1.0 1.0 1.0> TRANSLATE <0.0 31.0 0.0> END_QUADRIC
  339.       QUADRIC Cylinder_X SCALE <1.0 1.0 1.0> TRANSLATE <0.0 -1.0 0.0> END_QUADRIC
  340.     END_UNION
  341.       PLANE <1.0 0.0 0.0> 41.0 END_PLANE
  342.       PLANE <1.0 0.0 0.0> -1.0 INVERSE END_PLANE
  343.      END_INTERSECTION
  344.       SPHERE <-1.0 -1.0 0.0> 1.0 END_SPHERE
  345.       SPHERE <-1.0 31.0 0.0> 1.0 END_SPHERE
  346.       SPHERE <41.0 -1.0 0.0> 1.0 END_SPHERE
  347.       SPHERE <41.0 31.0 0.0> 1.0 END_SPHERE
  348.     END_UNION
  349.     TEXTURE
  350.     0.05
  351.     Shiny
  352.     COLOUR RED 0.6 GREEN 0.5 BLUE 0.1
  353.     AMBIENT 0.3
  354.     DIFFUSE 0.7
  355.     END_TEXTURE
  356.     COLOUR RED 0.6 GREEN 0.5 BLUE 0.1
  357.   END_OBJECT
  358.  
  359.   SCALE <1.5 1.5 1.5>
  360.   ROTATE <10.0 -35.0 0.0>
  361.   TRANSLATE <-65.0 -15.0 -25.0>
  362.  
  363. END_COMPOSITE
  364.  
  365. {The pencil holder}
  366. COMPOSITE
  367.   OBJECT
  368.     INTERSECTION
  369.     QUADRIC Cylinder_Y SCALE <5.0 1.0 5.0> END_QUADRIC
  370.     QUADRIC Cylinder_Y SCALE <4.8 1.0 4.8> INVERSE END_QUADRIC
  371.     PLANE <0.0 1.0 0.0> 0.0 INVERSE END_PLANE
  372.     PLANE <0.0 1.0 0.0> 15.0 ROTATE <-45.0 0.0 0.0> END_PLANE
  373.     END_INTERSECTION
  374.     TEXTURE
  375.     0.05
  376.     Shiny
  377.     AMBIENT 0.3
  378.     DIFFUSE 0.7
  379.         COLOUR RED 0.7 GREEN 0.6 BLUE 0.1
  380.     REFLECTION 0.4
  381.     BRILLIANCE 6.0
  382.     END_TEXTURE
  383.   END_OBJECT
  384.   COMPOSITE RedPencil
  385.     ROTATE <0.0 0.0 -2.0>
  386.     TRANSLATE <1.0 0.0 1.0>
  387.   END_COMPOSITE
  388.   COMPOSITE GreenPencil
  389.     ROTATE <0.0 0.0 2.0>
  390.     TRANSLATE <-1.0 3.0 0.0>
  391.   END_COMPOSITE
  392.   COMPOSITE BluePencil
  393.     ROTATE <-2.0 0.0 3.0>
  394.     TRANSLATE <0.0 -2.0 -1.0>
  395.   END_COMPOSITE
  396.   BOUNDED_BY
  397.     INTERSECTION
  398.     QUADRIC Cylinder_Y SCALE <6.0 1.0 6.0> END_QUADRIC
  399.     PLANE <0.0 1.0 0.0> 36.0 END_PLANE
  400.     PLANE <0.0 1.0 0.0> -4.0 INVERSE END_PLANE
  401.     END_INTERSECTION
  402.   END_BOUND
  403.  
  404.   ROTATE <0.0 45.0 0.0>
  405.   TRANSLATE <70.0 -18.0 -20.0>
  406.  
  407. END_COMPOSITE
  408.  
  409. {The light source}
  410.  
  411. OBJECT
  412.     SPHERE <0.0 0.0 0.0> 20.0 END_SPHERE
  413.     TRANSLATE <20.0 100.0 -200.0>
  414.     TEXTURE
  415.     COLOUR White
  416.     AMBIENT 0.3
  417.     DIFFUSE 0.0
  418.     END_TEXTURE
  419.     LIGHT_SOURCE
  420.     COLOUR White
  421. END_OBJECT
  422.