home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / heineken / heineken.inc next >
Encoding:
Text File  |  1993-09-21  |  5.8 KB  |  153 lines
  1. #declare Beer_Bottle = 
  2.    texture { //color Green } useful for diagnostics
  3.       Glass3
  4.       color red 0.4 green .9 blue 0.5 alpha 0.9
  5.    }
  6.  
  7. #declare Heineken =
  8.  
  9. composite {
  10.        // ********************** Outside Bits ************
  11.          object {
  12.             quartic {   //  Minor Radius = 0.1250  Major Radius = 0.4000
  13.                < 
  14.                +1.0000    +0.0000    +0.0000    +0.0000    +2.0000  
  15.                +0.0000    +0.0000    +2.0000    +0.0000    -0.3513  
  16.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  17.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  18.                +1.0000    +0.0000    +0.0000    +2.0000    +0.0000  
  19.                +0.2888    +0.0000    +0.0000    +0.0000    +0.0000  
  20.                +1.0000    +0.0000    -0.3513    +0.0000    +0.0208  
  21.                >
  22.                translate < 0 7.75 0 >
  23.             }
  24.             texture { Beer_Bottle }
  25.          }
  26.          object {
  27.             quartic {   //  Minor Radius = 0.1250  Major Radius = 0.4000
  28.                < 
  29.                +1.0000    +0.0000    +0.0000    +0.0000    +2.0000  
  30.                +0.0000    +0.0000    +2.0000    +0.0000    -0.3513  
  31.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  32.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  33.                +1.0000    +0.0000    +0.0000    +2.0000    +0.0000  
  34.                +0.2888    +0.0000    +0.0000    +0.0000    +0.0000  
  35.                +1.0000    +0.0000    -0.3513    +0.0000    +0.0208  
  36.                >
  37.                translate < 0 7.51 0 >
  38.             }
  39.             texture { Beer_Bottle }
  40.          }
  41.          object {
  42.             quadric { QCone_Y }
  43.             clipped_by { plane { < 0 -1 0 > 0 } }
  44.             clipped_by { plane { < 0 1 0 > 1 } }
  45.             scale < .75 1 .75 >
  46.             scale < 1 4.26 1 >
  47.             rotate < 0 0 180 >
  48.             translate < 0 10.0165 0 >   
  49.             clipped_by { plane { < 0 1 0 > 7.5 } }
  50.             texture { Beer_Bottle }
  51.          }            
  52.          object {
  53.             sphere { < 0 0 0 > 1 }
  54.             clipped_by { plane { < 0 -1 0 > 0 } } 
  55.             scale < 1.25 1.25 1.25 >
  56.             translate < 0 4.75 0 >
  57.             clipped_by { plane { < 0 1 0 > 5.75 } }
  58.             texture { Beer_Bottle }
  59.          }            
  60.          object {
  61.             quadric { Cylinder_Y }
  62.             clipped_by { plane { < 0 1 0 > 1 } }
  63.             clipped_by { plane { < 0 -1 0 > 0 } }
  64.             scale < 1.25 4.5 1.25 >
  65.             translate < 0 .25 0 >
  66.             texture { Beer_Bottle }
  67.          }           
  68.          object {
  69.             quadric { Cylinder_Y }
  70.             clipped_by { plane { < 0 1 0 > .9 } }
  71.             clipped_by { plane { < 0 -1 0 > 0 } }
  72.             clipped_by { plane { < 1 0 0 > 0 rotate < 0 -75 0 > } }
  73.             clipped_by { plane { < -1 0 0 > 0 rotate < 0 75 0 > } }
  74.             scale < 1.251 4.5 1.251 >
  75.             translate < 0 .25 0 >
  76.             texture { 
  77.                image_map { < 1 -1 0 > gif "heinlabl.gif" 
  78.                         map_type 2 
  79.                         alpha 31 1 
  80.                         once 
  81.                         interpolate 2 }
  82.                scale < 2 3.8 2 >
  83.                translate < 0 .7 0 >
  84.                rotate < 0 -90 0 >
  85.             }  
  86.          }           
  87.          object {
  88.            quartic {    //  Minor Radius =  0.250  Major Radius =  1.000
  89.                < 
  90.                +1.0000    +0.0000    +0.0000    +0.0000    +2.0000  
  91.                +0.0000    +0.0000    +2.0000    +0.0000    -2.1250  
  92.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  93.                +0.0000    +0.0000    +0.0000    +0.0000    +0.0000  
  94.                +1.0000    +0.0000    +0.0000    +2.0000    +0.0000  
  95.                +1.8750    +0.0000    +0.0000    +0.0000    +0.0000  
  96.                +1.0000    +0.0000    -2.1250    +0.0000    +0.8789  
  97.                >
  98.             }
  99.             texture { Beer_Bottle }
  100.             clipped_by { plane { < 0 1 0 > 0 } }
  101.             clipped_by { sphere { < 0 0 0 > 1 inverse } }
  102.             translate < 0 .25 0 >
  103.          }            
  104.          object {   
  105.             sphere { < 0 -2.2917 0 > 2.5 } //2.6667
  106.             clipped_by { plane { < 0 -1 0 > 0 } }
  107.             texture { Beer_Bottle }
  108.          }
  109.  
  110. // ************************  Inside Bits  **************
  111.          object { 
  112.             quadric { Cylinder_Y }
  113.             inverse
  114.             clipped_by { plane { < 0 1 0 > 1 } }
  115.             clipped_by { plane { < 0 -1 0 > 0 } }
  116.             scale < .325 .25 .325 >
  117.             translate < 0 7.625 0 >
  118.             texture { Beer_Bottle }
  119.          }
  120.          object {
  121.             quadric { QCone_Y }
  122.             inverse
  123.             clipped_by { plane { < 0 -1 0 > 0 } }
  124.             clipped_by { plane { < 0 1 0 > 1 } }
  125.             scale < .65 1 .65 >
  126.             scale < 1 4.26 1 >
  127.             rotate < 0 0 180 >
  128.             translate < 0 10.0165 0 >   
  129.             clipped_by { plane { < 0 1 0 > 7.5 } }
  130.             texture { Beer_Bottle }
  131.          }            
  132.          object {
  133.             sphere { < 0 0 0 > 1 }
  134.             inverse
  135.             clipped_by { plane { < 0 -1 0 > 0 } } 
  136.             scale < 1.15 1.15 1.15 >
  137.             translate < 0 4.75 0 >
  138.             clipped_by { plane { < 0 1 0 > 5.75 } }
  139.             texture { Beer_Bottle }
  140.          }            
  141.          object {
  142.             quadric { Cylinder_Y }
  143.             inverse
  144.             clipped_by { plane { < 0 1 0 > 1 } }
  145.             clipped_by { plane { < 0 -1 0 > 0 } }
  146.             scale < 1.15 4.5 1.15 >
  147.             translate < 0 .25 0 >
  148.             texture { Beer_Bottle }
  149.          }
  150.    bounded_by { box { < -2 0 -2 > < 2 8 2 > } }
  151.  
  152. }
  153.