home *** CD-ROM | disk | FTP | other *** search
/ Computerspiele Selbermachen / computerspieleselbermachen.iso / pov / panther.inc < prev    next >
Text File  |  1993-09-27  |  35KB  |  1,203 lines
  1. // Persistence of Vision Raytracer Version 2.0
  2.  
  3. #declare Panther_Inc_Temp = version
  4. #version 1.0
  5.  
  6. /*                PANTHER         M.Miller 11/18/91 - with help from Truman*/
  7.  
  8. #declare DCone = /*---------CONE POINT DOWN /POINT at 000--------*/
  9. intersection {
  10.    quadric { QCone_Y scale <1 1 1>  }
  11.    plane { <0 -1 0> 0  } plane { <0 1 0> 1   }  }
  12.  
  13. #declare UCone = /*---------CONE POINT UP /POINT at 000--------*/
  14. intersection {
  15.    quadric { QCone_Y scale <1 1 1>  }
  16.    plane { <0 1 0> 0    } plane { <0 1 0> -1 inverse  }
  17. }
  18.  
  19.  
  20. #declare pan1 = texture { 
  21.    /* image_map { <1.0 -1.0 0> gif "frac3.gif"  }       */ 
  22.    scale <40 40 4> rotate <0 0 180>
  23.    color green 0.3 red 0.16 blue 0.16
  24.    ambient 0.4 diffuse 0.7 phong 0.8 phong_size 25  }
  25.  
  26.  
  27.  
  28. /***********************************************************************/
  29. /*------------------------------THE HEAD-------------------------------*/
  30.  
  31. #declare Dot =    quadric {
  32.    < 1.0  1.0  1.0>
  33.    < 0.0  0.0  0.0>
  34.    < 0.0  0.0  0.0>
  35.    -1.0
  36. }
  37.  
  38. #declare Connector_1a = 
  39. object {
  40.    quadric {
  41.       < 0.0  1.0  1.0>
  42.       < 0.0  0.0  0.0>
  43.       < 0.0  0.0  0.0>
  44.       -1.0
  45.    }      
  46.    clipped_by {
  47.       plane { < 1.0  0.0  0.0> 1.0  }
  48.       plane { <-1.0  0.0  0.0> 0.0  }
  49.    }     
  50. }
  51.  
  52.  
  53. #declare Connector_2a =
  54. quadric {
  55.    < 1.0 -1.0  1.0>
  56.    < 0.0  0.0  0.0>
  57.    < 0.0  0.0  0.0>
  58.    0.0
  59.    rotate < 0.0  0.0  90.0>
  60. }
  61.  
  62.  
  63. /*************************************************************************/
  64. /*------------------THE NECK---------------------------------------------*/
  65. #declare neck =
  66.  
  67. union {
  68.    quadric { Dot scale < 6.000000  6.000000  6.000000>
  69.    }      
  70.  
  71.    quadric { Dot scale < 6.600000  6.600000  6.600000>
  72.       translate < 7.000000 -1.500000  0.000000>
  73.    }      
  74.  
  75.    quadric { Dot scale     < 7.000000  7.000000  7.000000>
  76.       translate < 16.500000 -5.000000  0.000000>
  77.    }      
  78. }
  79.  
  80.  
  81. #declare c1 = intersection { 
  82.    quadric { Connector_2a  } 
  83.    plane {     < 1.000000  0.000000  0.000000>  6.576779  }
  84.    plane {     < 1.000000  0.000000  0.000000>  5.978890 inverse  }
  85.  
  86.    translate <-5.978890  0.000000  0.000000>
  87.    scale     < 11.889538  1.000000  1.000000>
  88.    translate < 0.502870  0.000000  0.000000>
  89.    rotate    < 0.000000  0.000000 -12.094757>
  90. } 
  91.  
  92. #declare c2 = intersection {         
  93.    quadric { Connector_2a  } 
  94.    plane {     < 1.000000  0.000000  0.000000>  6.994534  }
  95.    plane {     < 1.000000  0.000000  0.000000>  6.594847 inverse  }
  96.    translate <-6.594847  0.000000  0.000000>
  97.    scale     < 25.290809  1.000000  1.000000>
  98.    translate < 0.260761  0.000000  0.000000>
  99.    rotate    < 0.000000  0.000000 -20.224859>
  100.    translate < 7.000000 -1.500000  0.000000>
  101. }
  102.  
  103. /*---------------------THE NOSE---------------------------------------*/
  104.  
  105. #declare Connector_1b = 
  106. object {
  107.    quadric {
  108.       < 0.0  1.0  1.0>
  109.       < 0.0  0.0  0.0>
  110.       < 0.0  0.0  0.0>
  111.       -1.0
  112.    }      
  113.    clipped_by {
  114.       plane { < 1.0  0.0  0.0> 1.0  }
  115.       plane { <-1.0  0.0  0.0> 0.0  }
  116.    }     
  117. }
  118.  
  119.  
  120. #declare Connector_2b =
  121. quadric {
  122.    < 1.0 -1.0  1.0>
  123.    < 0.0  0.0  0.0>
  124.    < 0.0  0.0  0.0>
  125.    0.0
  126.    rotate < 0.0  0.0  90.0>
  127. }
  128.  
  129.  
  130. #declare c3 = intersection { 
  131.    quadric { Connector_2b  } 
  132.    plane {     < 1.000000  0.000000  0.000000>  4.898979  }
  133.    plane {     < 1.000000  0.000000  0.000000>  3.919184 inverse  }
  134.  
  135.    translate <-3.919184  0.000000  0.000000>
  136.    scale     < 4.898979  1.010000  1.010000>
  137.    translate < 0.800000  0.000000  0.000000>
  138. }
  139.  
  140.  
  141. #declare nose = 
  142.  
  143. union {   
  144.    difference {
  145.       union {
  146.  
  147.          quadric { Dot scale     < 2.300000  4.000000  4.000000>  }
  148.          quadric { Ellipsoid scale <2.5 3.98 3.98> translate <0.3 0 0>  }
  149.          intersection { c3  }
  150.          quadric { Dot scale     < 4.000000  5.000000  5.000000>
  151.             translate < 5.000000  0.000000  0.000000>
  152.          }                  
  153.  
  154.          /*-------------Cleff Palette------------------------------------------*/
  155.          quadric { Ellipsoid scale <3 2 3> translate <1 1.7 -2>  }
  156.          quadric { Ellipsoid scale <3 3 3> translate <1 0.7 -2>  }
  157.  
  158.       }            
  159.  
  160.       quadric { Ellipsoid scale <2.2 1.7 7> translate <-0.5 -0.5 0>  }
  161.  
  162.    }         /*----------MOUTH OPENING--------------*/
  163. }   
  164.  
  165.  
  166. /*-------------------GUMS------------------------------*/
  167. #declare gum = union {
  168.    cylinder { <0,0,0>, y, 1 scale <3 0.7 3.5> translate <0 1.2 0>  }
  169.    cylinder { <0,0,0>, y, 1 scale <3 0.7 3.5> translate <0 -1 0>  }
  170. }
  171.  
  172. /*-----------Poodle Chew - Poodle Bite-----------------------------------*/
  173. #declare choppers = object {
  174.    union {
  175.       cylinder { <0,0,0>, y, 1 scale <2.8 0.7 3.3> translate <0 0.9 0>  }
  176.       cylinder { <0,0,0>, y, 1 scale <2.8 0.7 3.3> translate <0 -0.7 0>  }
  177.       intersection { DCone scale <0.4 1.5 0.4> translate <-2 -0.2 -2>  }
  178.       intersection { DCone scale <0.4 1.5 0.4> translate <-2 -0.2 2>  }
  179.    }       
  180.    texture { color White phong 1.0  }
  181. }
  182.  
  183.  
  184. /*----------------THE SKULL---------------------------------------------*/
  185.  
  186.  
  187.  
  188. #declare Connector_1c = 
  189. object {
  190.    quadric {
  191.       < 0.0  1.0  1.0>
  192.       < 0.0  0.0  0.0>
  193.       < 0.0  0.0  0.0>
  194.       -1.0
  195.    }      
  196.    clipped_by {
  197.       plane { < 1.0  0.0  0.0> 1.0  }
  198.       plane { <-1.0  0.0  0.0> 0.0  }
  199.    }     
  200. }
  201.  
  202.  
  203. #declare Connector_2c =
  204. quadric {
  205.    < 1.0 -1.0  1.0>
  206.    < 0.0  0.0  0.0>
  207.    < 0.0  0.0  0.0>
  208.    0.0
  209.    rotate < 0.0  0.0  90.0>
  210. }
  211.  
  212. #declare skull = 
  213.  
  214. union {
  215.    difference {
  216.       union {
  217.          quadric { Dot scale < 3.200000  6.200000  6.200000>  }
  218.  
  219.          quadric { Dot scale < 6.500000  6.500000  6.500000>
  220.             translate < 3.000000 -0.100000  0.000000>
  221.          }                  
  222.  
  223.          /*------SOCKET MOUND-----------------------------------------*/
  224.          quadric { Ellipsoid scale <2 2 2> translate <1 3.2 -4>  }
  225.          /*
  226. {--------------JAW----------------------------------------------------}
  227. quadric { Ellipsoid scale <4 4 2> translate <2.3 -0.5 -4.7> }
  228. */
  229.       }            
  230.  
  231.  
  232.       /*----------------Eye Sockets------------------------------------------*/
  233.       quadric { Cylinder_X scale <1 1.3 1.3> translate <0 3.1 3.9>  }
  234.       quadric { Cylinder_X scale <1 1.3 1.3> translate <0 3.1 -3.9>  }
  235.    }      
  236. }
  237.  
  238.  
  239.  
  240. #declare c4 = intersection {
  241.    quadric { Connector_2c  } 
  242.    plane {     < 1.000000  0.000000  0.000000>  6.467455  }
  243.    plane {     < 1.000000  0.000000  0.000000>  6.168957 inverse  }
  244.  
  245.    translate <-6.168957  0.000000  0.000000>
  246.    scale     < 9.955456  1.000000  1.000000>
  247.    translate < 0.619656  0.000000  0.000000>
  248.    rotate    < 0.000000  0.000000 -1.909152>
  249. }
  250.  
  251.  
  252. #declare eye = /*---------------EYE BALL----------------*/
  253. object {
  254.    quadric { Ellipsoid scale <1.2 1 1.2>  }
  255.    texture {
  256.       /*
  257. image_map { <1.0 -1.0 0> gif "pantheye.gif" }
  258. */
  259.       scale <2 1.8 1> translate <-1 -0.9 -1> color Black phong 1.0
  260.  
  261.    }      
  262.    rotate <0 50 0>
  263. }
  264.  
  265. #declare ear = difference {   /*-----EAR------*/
  266.    quadric { Ellipsoid scale <1.75 3.5 1.75>  }
  267.    quadric { Ellipsoid scale <1.25 3.5 1.25> translate <-0.7 -0.5 0>  }
  268.    rotate <0 -65 0>
  269. }
  270.  
  271. /*---------------------------A Matching set---------------------------------*/
  272.  
  273. #declare ears = 
  274. union {
  275.    difference { ear rotate <0 0 -30> rotate <30 0 0> translate <0 0 6>  }
  276.    difference { ear rotate <0 0 -30> rotate <-30 0 0> translate <0 0 -6>  }
  277. }
  278.  
  279.  
  280. #declare bridge =  /*----------NOSE & BRIDGE------*/
  281. union {
  282.    cylinder { <0,0,0>, x, 1 scale <6.5 1.2 1.2>  }
  283.    quadric { Ellipsoid scale <1 1.5 1.5>  }
  284.    quadric { Ellipsoid scale <1.3 1.3 1.3> translate <0.2 0 0>  }
  285. }
  286.  
  287.  
  288.  
  289. #declare ed = 
  290. object {
  291.    union {
  292.       union { nose scale <1 1 1.4> rotate <0 0 7> translate <-42.5 24.3 0>  }
  293.       union { skull scale <1.2 1 1.2> rotate <0 0 4> translate <-38 26 0>  }
  294.       union { neck scale <1 1 0.8> translate <-33 26.5 0>  }
  295.       intersection { c1 translate <-33 26.5 0>  }
  296.       intersection { c2 translate <-33 26.5 0>  }
  297.       intersection { c4 scale <1.2 1 1.2> rotate <0 0 4> translate <-38