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