home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsp / povray / !POVscene / level3 / inc / s-head3 < prev    next >
Text File  |  1992-07-21  |  48KB  |  2,044 lines
  1. // Persistence of Vision Raytracer Version 1.0
  2. #include "lizard.inc"
  3.  
  4.  
  5. /*---This dat is the top "head" half of snake------*/
  6.  
  7.  
  8. /***********************************************************************/
  9. /*------------------------------THE HEAD-------------------------------*/
  10.  
  11. #declare Dot =    quadric {
  12.    < 1.0  1.0  1.0>
  13.    < 0.0  0.0  0.0>
  14.    < 0.0  0.0  0.0>
  15.    -1.0
  16. }
  17.  
  18. #declare Connector_1a = 
  19. object {
  20.    quadric {
  21.       < 0.0  1.0  1.0>
  22.       < 0.0  0.0  0.0>
  23.       < 0.0  0.0  0.0>
  24.       -1.0
  25.    }      
  26.    clipped_by {
  27.       plane { < 1.0  0.0  0.0> 1.0  }
  28.       plane { <-1.0  0.0  0.0> 0.0  }
  29.    }      
  30. }
  31.  
  32.  
  33. #declare Connector_2a =
  34. quadric {
  35.    < 1.0 -1.0  1.0>
  36.    < 0.0  0.0  0.0>
  37.    < 0.0  0.0  0.0>
  38.    0.0
  39.    rotate < 0.0  0.0  90.0>
  40. }
  41.  
  42.  
  43.  
  44. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  45. /*---------------------THE NOSE---------------------------------------*/
  46.  
  47. #declare Connector_1b = 
  48. object {
  49.    quadric {
  50.       < 0.0  1.0  1.0>
  51.       < 0.0  0.0  0.0>
  52.       < 0.0  0.0  0.0>
  53.       -1.0
  54.    }      
  55.    clipped_by {
  56.       plane { < 1.0  0.0  0.0> 1.0  }
  57.       plane { <-1.0  0.0  0.0> 0.0  }
  58.    }      
  59. }
  60.  
  61.  
  62. #declare Connector_2b =
  63. quadric {
  64.    < 1.0 -1.0  1.0>
  65.    < 0.0  0.0  0.0>
  66.    < 0.0  0.0  0.0>
  67.    0.0
  68.    rotate < 0.0  0.0  90.0>
  69. }
  70.  
  71.  
  72. #declare c3 = intersection { 
  73.    quadric { Connector_2b  } 
  74.    plane {     < 1.000000  0.000000  0.000000>  4.898979  }
  75.    plane {     < 1.000000  0.000000  0.000000>  3.919184 inverse  }
  76.  
  77.    translate <-3.919184  0.000000  0.000000>
  78.    scale     < 4.898979  1.010000  1.010000>
  79.    translate < 0.800000  0.000000  0.000000>
  80. }
  81.  
  82.  
  83. #declare nose = 
  84.  
  85. union {   
  86.    difference {
  87.       union {
  88.  
  89.          quadric { Dot scale     < 2.300000  4.000000  4.000000>  }
  90.          quadric { Ellipsoid scale <2.5 3.98 3.98> translate <0.3 0 0>  }
  91.          intersection { c3  }
  92.          quadric { Dot scale     < 4.000000  5.000000  5.000000>
  93.             translate < 5.000000  0.000000  0.000000>
  94.          }                  
  95.  
  96.          /*-------------Cleff Palette------------------------------------------*/
  97.          quadric { Ellipsoid scale <3 2 3> translate <1 1.7 -2>  }
  98.          quadric { Ellipsoid scale <3 3 3> translate <1 0.7 -2>  }
  99.  
  100.       }            
  101.  
  102.       quadric { Ellipsoid scale <2.2 1.7 7> translate <-0.5 -0.5 0>  }
  103.  
  104.    }         /*----------MOUTH OPENING--------------*/
  105. }   
  106.  
  107.  
  108. /*-------------------GUMS------------------------------*/
  109. #declare gum = union {
  110.    intersection { Disk_Y scale <3 0.7 3.5> translate <-1 1.3 0>  }
  111.    intersection { Disk_Y scale <3 0.7 3.5> translate <-0.3 -1.2 0>  }
  112. }
  113.  
  114. /*-----------Poodle Chew - Poodle Bite-----------------------------------*/
  115. #declare choppers = object {
  116.    union {
  117.       intersection { Disk_Y scale <2.8 0.7 3.6> translate <-1 1.1 0>  }
  118.       intersection { Disk_Y scale <2.8 0.7 3.6> translate <-0.5 -0.95 0>  }
  119.    }      
  120.    texture { color Firebrick phong 1.0  }
  121. }
  122.  
  123.  
  124.  
  125. #declare fangs = object {
  126.    union {
  127.       intersection { DCone scale <0.5 1.9 0.5> translate <-2.5 -0.5 -2.5>  }
  128.       intersection { DCone scale <0.5 1.9 0.5> translate <-2.5 -0.5 2.5>  }
  129.    }       
  130.    texture { color White phong 1.0  }
  131. }
  132.  
  133.  
  134.  
  135.  
  136.  
  137. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
  138. /*----------------THE SKULL---------------------------------------------*/
  139.  
  140.  
  141.  
  142. #declare Connector_1c = 
  143. object {
  144.    quadric {
  145.       < 0.0  1.0  1.0>
  146.       < 0.0  0.0  0.0>
  147.       < 0.0  0.0  0.0>
  148.       -1.0
  149.    }      
  150.    clipped_by {
  151.       plane { < 1.0  0.0  0.0> 1.0  }
  152.       plane { <-1.0  0.0  0.0> 0.0  }
  153.    }      
  154. }
  155.  
  156.  
  157. #declare Connector_2c =
  158. quadric {
  159.    < 1.0 -1.0  1.0>
  160.    < 0.0  0.0  0.0>
  161.    < 0.0  0.0  0.0>
  162.    0.0
  163.    rotate < 0.0  0.0  90.0>
  164. }
  165.  
  166. #declare skull = 
  167.  
  168. union {
  169.    difference {
  170.       union {
  171.          quadric { Dot scale < 3.200000  6.200000  6.200000>  }
  172.  
  173.          quadric { Dot scale < 6.500000  6.500000  6.500000>
  174.             translate < 3.000000 -0.100000  0.000000>
  175.          }                  
  176.  
  177.          /*------SOCKET MOUND-----------------------------------------*/
  178.          quadric { Ellipsoid scale <2 2 2> translate <1 3.2 -4>  }
  179.          /*
  180. {--------------JAW----------------------------------------------------}
  181. quadric { Ellipsoid SCALE <4 4 2> tranlate <2.3 -0.5 -4.7> }
  182. */
  183.       }            
  184.  
  185.       /*
  186. {----------------Eye Sockets------------------------------------------}
  187. quadric Cylinder_X scale <1 1.3 1.3> translate <0 3.1 3.9> }
  188. quadric Cylinder_X scale <1 1.3 1.3> translate <0 3.1 -3.9> }
  189. */
  190.    }      
  191. }
  192.  
  193.  
  194.  
  195. #declare c4 = intersection {
  196.    quadric { Connector_2c  } 
  197.    plane {     < 1.000000  0.000000  0.000000>  6.467455  }
  198.    plane {     < 1.000000  0.000000  0.000000>  6.168957 inverse  }
  199.  
  200.    translate <-6.168957  0.000000  0.000000>
  201.    scale     < 9.955456  1.000000  1.000000>
  202.    translate < 0.619656  0.000000  0.000000>
  203.    rotate    < 0.000000  0.000000 -1.909152>
  204. }
  205.  
  206.  
  207. #declare eye = /*---------------EYE BALL----------------*/
  208. object {
  209.    quadric { Ellipsoid scale <1.5 1.5 1.5>  }
  210.    texture {
  211.       /*
  212. image_map <1 -1.0 0> gif "s-eye.gif" }
  213. scale <3 3 3> translate <-1.5 -1.5 -1> phong 1.0
  214. rotate <0 25 0>
  215. */
  216.       color Black phong 1.0
  217.    }      
  218. }
  219.  
  220. #declare ear = difference {   /*-----EAR------*/
  221.    quadric { Ellipsoid scale <1.75 3.5 1.75>  }
  222.    quadric { Ellipsoid scale <1.25 3.5 1.25> translate <-0.7 -0.5 0>  }
  223.    rotate <0 -65 0>
  224. }
  225.  
  226. /*---------------------------A Matching set---------------------------------*/
  227.  
  228. #declare ears = 
  229. union {
  230.    difference { ear rotate <0 0 -30> rotate <30 0 0> translate <0 0 6>  }
  231.    difference { ear rotate <0 0 -30> rotate <-30 0 0> translate <0 0 -6>  }
  232. }
  233.  
  234.  
  235. #declare bridge =  /*----------NOSE & BRIDGE------*/
  236. union {
  237.    intersection { Disk_X scale <6.5 1.2 1.2>  }
  238.    quadric { Ellipsoid scale <1 1.5 1.5>  }
  239.    quadric { Ellipsoid scale <1.3 1.3 1.3> translate <0.2 0 0>  }
  240. }
  241.  
  242.  
  243.  
  244. #declare ed = 
  245. object {
  246.    union {
  247.       union { nose scale <1 1 1.4> rotate <0 0 7> translate <-42.5 24.3 0>  }
  248.       union { skull scale <1.2 1 1.2> rotate <0 0 4> translate <-38 26 0>  }
  249.       intersection { c4 scale <1.2 1 1.2> rotate <0 0 4> translate <-38 26 0>  }
  250.       union { ears  translate <-33 29 0>  }
  251.       union { bridge scale <1 1 3> rotate <0 0 16> translate <-44 27.4 0>  }
  252.       union { gum translate <-41 23.2 0>  }
  253.  
  254.  
  255.    }      
  256.  
  257.  
  258.    texture {
  259.       shead
  260.    }      
  261.  
  262.  
  263.  
  264.    bounded_by { 
  265.       intersection { Cube scale <18 11 11> translate <-28.8 24.2 0>  }
  266.    }      
  267. }
  268.  
  269. #declare head =
  270. composite {
  271.    object { ed  }
  272.    object { eye translate <-39 28.3 -6.3>  }
  273.    object { eye translate <-39 28.3 6.3>  }
  274.    object { choppers translate <-41 23.2 0>  }
  275.    object { fangs translate <-41 23.2 0>  }
  276.    bounded_by { 
  277.       intersection { Cube scale <18 11 11> translate <-28.8 24.2 0>  }
  278.    }      
  279.  
  280.    translate <38 -26 0>
  281.  
  282. }
  283.  
  284.  
  285.  
  286. /*-----STRIPPED CTDS DATA / MOVED TEXTURE STATEMENT BEFORE SCALE/TRANS.--*/
  287.  
  288.  
  289.  
  290. #declare top =
  291. composite {
  292.    object {
  293.       quadric {
  294.          Dot  } texture { bones  } 
  295.       scale     < 9.000000  9.000000  9.000000>
  296.       translate < 23.000000  0.000000  0.000000>
  297.    }      
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.    object {
  319.       quadric {
  320.          Connector_2  } texture { skin  }
  321.  
  322.       clipped_by {
  323.          plane {     < 1.000000  0.000000  0.000000>  8.998481  }
  324.          plane {     < 1.000000  0.000000  0.000000>  8.922304 inverse  }
  325.       }            
  326.       translate <-8.998481  0.000000  0.000000>
  327.       scale     < 54.415615  1.000000  1.000000>
  328.       translate <-0.165366  0.000000  0.000000>
  329.       rotate    < 0.000000  180.000000  0.000000>
  330.       rotate    < 0.000000  0.000000  7.920896>
  331.       rotate    < 0.000000 -99.646625  0.000000>
  332.       translate < 23.000000  0.000000  0.000000>
  333.  
  334.  
  335.  
  336.    }      
  337.  
  338.  
  339.    object {
  340.       quadric {
  341.          Dot  } texture { bones  }
  342.       scale     < 8.923810  8.923810  8.923810>
  343.       translate < 22.311775  0.571429  4.048990>
  344.  
  345.  
  346.  
  347.  
  348.    }      
  349.  
  350.  
  351.    object {
  352.       quadric {
  353.          Connector_2  } texture { skin  }
  354.  
  355.       clipped_by {
  356.          plane {     < 1.000000  0.000000  0.000000>  8.922261  }
  357.          plane {     < 1.000000  0.000000  0.000000>  8.846083 inverse  }
  358.       }            
  359.       translate <-8.922261  0.000000  0.000000>
  360.       scale     < 53.662584  1.000000  1.000000>
  361.