home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pose1os2.zip / EXAMPLES / SHIP / SCENE1 / STATIC.SIM < prev   
Text File  |  1995-05-06  |  3KB  |  110 lines
  1. // Primitives
  2.  
  3. // BEZIER PATCH
  4.  
  5. #declare Fin =  union{
  6.     bicubic_patch{1 8 8
  7.      <-1.9544,  .968,  0 >  < .2,  .6,  0 >  < .38,  .24,  0 >  < .5,  0,  0 >
  8.      <-1.9544,  .968,  0 >  < .1,  .6,  .173 >  < .19,  .24,  .329 >  < .25,  0,  .433 >
  9.      <-1.9544,  .968,  0 >  <-.1,  .6,  .173 >  <-.19,  .24,  .329 >  <-.25,  0,  .433 >
  10.      <-1.9544,  .968,  0 >  <-.2,  .6,  0 >  <-.38,  .24,  0 >  <-.5,  0,  0 >
  11.     }
  12.     bicubic_patch{1 8 8
  13.      <-1.9544,  .968,  0 >  < .2,  .6,  0 >  < .38,  .24,  0 >  < .5,  0,  0 >
  14.      <-1.9544,  .968,  0 >  < .1,  .6, -.173 >  < .19,  .24, -.329 >  < .25,  0, -.433 >
  15.      <-1.9544,  .968,  0 >  <-.1,  .6, -.173 >  <-.19,  .24, -.329 >  <-.25,  0, -.433 >
  16.      <-1.9544,  .968,  0 >  <-.2,  .6,  0 >  <-.38,  .24,  0 >  <-.5,  0,  0 >
  17.     }
  18.     bicubic_patch{1 8 8
  19.      <-1.9544,  .968,  0 >  < .2,  .6,  0 >  < .38,  .24,  0 >  < .5,  0,  0 >
  20.      <-1.9544,  .968,  0 >  < .1,  .6, -.173 >  < .19,  .24, -.329 >  < .25,  0, -.433 >
  21.      <-1.9544,  .968,  0 >  <-.1,  .6, -.173 >  <-.19,  .24, -.329 >  <-.25,  0, -.433 >
  22.      <-1.9544,  .968,  0 >  <-.2,  .6,  0 >  <-.38,  .24,  0 >  <-.5,  0,  0 >
  23.     }
  24.     bicubic_patch{1 8 8
  25.      <-1.9544,  .968,  0 >  < .2,  .6,  0 >  < .38,  .24,  0 >  < .5,  0,  0 >
  26.      <-1.9544,  .968,  0 >  < .1,  .6,  .173 >  < .19,  .24,  .329 >  < .25,  0,  .433 >
  27.      <-1.9544,  .968,  0 >  <-.1,  .6,  .173 >  <-.19,  .24,  .329 >  <-.25,  0,  .433 >
  28.      <-1.9544,  .968,  0 >  <-.2,  .6,  0 >  <-.38,  .24,  0 >  <-.5,  0,  0 >
  29.     }
  30.  
  31.     scale <.75,.75,.75>
  32. }
  33.  
  34. // left rear
  35.  
  36. #declare LeftRearFin = object {
  37.    Fin
  38.    translate <0,0,0>
  39.    rotate <90,0,0>
  40.    texture {
  41.        Brass_Valley
  42.        finish { phong .9 }
  43.    }
  44. }
  45.  
  46. // right rear
  47.  
  48. #declare RightRearFin = object {
  49.    Fin
  50.    translate <0,0,0>
  51.    rotate <-90,0,0>
  52.    texture {
  53.        Brass_Valley
  54.        finish { phong .9 }
  55.    }
  56. }
  57.  
  58. // left front
  59.  
  60. #declare LeftFrontFin = object {
  61.    Fin
  62.    translate <0,0,0>
  63.    rotate <0,180,0>
  64.    translate <0,0,0>
  65.    rotate <90,0,0>
  66.    texture {
  67.        Brass_Valley
  68.        finish { phong .9 }
  69.    }
  70. }
  71.  
  72. // right front
  73.  
  74. #declare RightFrontFin = object {
  75.    Fin
  76.    translate <0,0,0>
  77.    rotate <0,180,0>
  78.    translate <0,0,0>
  79.    rotate <-90,0,0>
  80.    texture {
  81.        Brass_Valley
  82.        finish { phong .9 }
  83.    }
  84. }
  85.  
  86. #declare Body = object {
  87.     sphere { <0,0,0> .5
  88.         texture {
  89.             Brass_Valley
  90.             finish { phong .9 }
  91.         }
  92.     }
  93.  
  94.     scale <1.5,.55,1.1>
  95. }
  96.  
  97. // Create a ground plane
  98.  
  99. plane { y, -4
  100.     pigment {
  101.         color White
  102.     }
  103.     finish {
  104.        reflection 1
  105.        ambient 0.2
  106.        diffuse 0.8
  107.     }
  108. }
  109.  
  110.