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