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