home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / morya1 / moray.pov < prev   
Encoding:
Text File  |  1993-05-25  |  5.7 KB  |  341 lines
  1. #include "colors.inc"
  2. #include "shapes.inc"
  3. #include "textures.inc"
  4. #include "eelbody.inc"
  5. #include "eelfin1.inc"
  6. #include "eelfin2.inc"
  7. #include "eelhole.inc"
  8. #include "eelhole2.inc"
  9.  
  10. camera {
  11.   location  <0 1 -15>
  12.   direction <0 0 1.5>
  13.   up        <0 1 0>
  14.   right     <1.33 0 0>
  15.   look_at   <0 0 2>
  16. }
  17.  
  18. object {
  19.   plane {<0 1 0> -4 }
  20.   texture {
  21.     color red 0.812 green 0.761 blue 0.455
  22.     ambient 0.1
  23.     diffuse 0.6
  24.     ripples .35
  25.     frequency 100
  26.     turbulence 0.75
  27.     scale <100 100 100>
  28.    }
  29. }
  30.  
  31. object { light_source { <2 10 -5> color White } }
  32.  
  33. object {
  34.   sphere {<0 0 0> 1000}
  35.   texture {color SlateBlue}
  36. }
  37.  
  38. fog {
  39.   color SlateBlue
  40.   200 
  41. }
  42.  
  43. #declare Eyeball =
  44.   union {
  45.     quadric {
  46.       Ellipsoid
  47.       texture {
  48.         color White
  49.         specular 1.0
  50.         roughness .001
  51.       }
  52.       scale <1 .45 1>
  53.       rotate <-90 0 0>
  54.     }
  55.     quadric {
  56.       Ellipsoid
  57.       texture {
  58.         color Black
  59.         specular 1.0
  60.         roughness .001
  61.       }
  62.       scale <.5 .225 .5>
  63.       rotate <-90 0 0>
  64.       translate <0 0 -.45>
  65.     }
  66.   }
  67.  
  68. #declare YourTexture =
  69.   texture {
  70.     bozo
  71.     color_map {
  72.       [0.0 0.5 color White color White]
  73.       [0.5 1.0 color Black color Black]
  74.     }
  75.     scale <.06 .06 .06>
  76.     ambient 0.3
  77.     diffuse 0.5
  78.     specular .75
  79.     roughness .001
  80.   }
  81.  
  82. #declare Tooth1 = 
  83.   intersection {
  84.     Cone_Y
  85.     scale <.1 .25 .1>
  86.     rotate <0 0 180>
  87.   }
  88.  
  89. #declare Tooth2 =
  90.   intersection {
  91.     Cone_Y
  92.     scale <.1 .25 .1>
  93. }
  94.   
  95. #declare ToothTexture =
  96.   texture {
  97.     color White
  98.     specular .75
  99.     ambient 0.3
  100.     diffuse 0.5
  101.   }  
  102.   
  103. composite {
  104.   composite {
  105.     EelBody
  106.     scale <.25 .25 .15>
  107.     translate <.15 0 0>
  108.     clipped_by {
  109.       quadric {
  110.         Ellipsoid
  111.         scale <.125 1 1>
  112.         rotate <0 0 -70>
  113.         translate <1.8 1.2 0>
  114.         inverse
  115.       }
  116.     }
  117.     clipped_by {
  118.       quadric {
  119.         Ellipsoid
  120.         scale <.1 .6 .5>
  121.         rotate <0 0 -90>
  122.         translate <1.75 .825 0>
  123.         inverse
  124.       }
  125.     }
  126.   }
  127.   composite {
  128.     EelFin1
  129.     scale <.225 .25 .025>
  130.     rotate <0 0 -2>
  131.     translate <0 .085 0>
  132.   }
  133.   composite {
  134.     EelFin2
  135.     scale <.18 .25 .025>
  136.     rotate <0 0 -15>
  137.     translate <-.1 -.3 0>
  138.   }
  139.   object {
  140.     union {
  141.       Eyeball
  142.       scale <.15 .15 .15>
  143.       translate <1.15 1.3 -.25>
  144.     }
  145.   }
  146.   object {
  147.     union {
  148.       Eyeball
  149.       rotate <0 180 0>
  150.       scale <.15 .15 .15>
  151.       translate <1.15 1.3 .25>
  152.     }
  153.   }
  154.   object {
  155.     quadric {
  156.       Ellipsoid
  157.       scale <.5 1 .35>
  158.       rotate <0 0 90>
  159.       translate <-.5 .5 0>
  160.     }
  161.     texture {YourTexture}
  162.   }
  163.   object {
  164.     intersection {
  165.       Tooth1
  166.       scale <.2 .4 .2>
  167.       translate <2 1.35 0>
  168.     }
  169.     texture {ToothTexture}
  170.   }
  171.   object {
  172.     intersection {
  173.       Tooth1
  174.       scale <.2 .4 .2>
  175.       translate <1.85 1.3 -.08>
  176.     }
  177.     texture {ToothTexture}
  178.   }
  179.   object {
  180.     intersection {
  181.       Tooth1 
  182.       scale <.2 .4 .2>
  183.       translate <1.85 1.3 .08>
  184.     }
  185.     texture {ToothTexture}
  186.   }
  187.   object {
  188.     intersection {
  189.       Tooth1
  190.       scale <.2 .4 .2>
  191.       translate <1.7 1.25 -.09>
  192.     }
  193.     texture {ToothTexture}
  194.   }
  195.   object {
  196.     intersection {
  197.       Tooth1
  198.       scale <.2 .4 .2>
  199.       translate <1.7 1.25 .09>
  200.     }
  201.     texture {ToothTexture}
  202.   }
  203.   object {
  204.     intersection {
  205.       Tooth1
  206.       scale <.2 .4 .2>
  207.       translate <1.55 1.2 -.1>
  208.     }
  209.     texture {ToothTexture}
  210.   }
  211.   object {
  212.     intersection {
  213.       Tooth1
  214.       scale <.2 .4 .2>
  215.       translate <1.55 1.2 .1>
  216.     }
  217.     texture {ToothTexture}
  218.   }
  219.   object {
  220.     intersection {
  221.       Tooth1
  222.       scale <.2 .4 .2>
  223.       translate <1.4 1.15 -.1>
  224.     }
  225.     texture {ToothTexture}
  226.   }
  227.   object {
  228.     intersection {
  229.       Tooth1
  230.       scale <.2 .4 .2>
  231.       translate <1.4 1.15 .1>
  232.     }
  233.     texture {ToothTexture}
  234.   }
  235.   object {
  236.     intersection {
  237.       Tooth2
  238.       scale <.2 .4 .2>
  239.       translate <2.25 .8 0>
  240.     }
  241.     texture {ToothTexture}
  242.   }
  243.   object {
  244.     intersection {
  245.       Tooth2
  246.       scale <.2 .4 .2>
  247.       translate <2.1 .8 -.08>
  248.     }
  249.     texture {ToothTexture}
  250.   }
  251.   object {
  252.     intersection {
  253.       Tooth2
  254.       scale <.2 .4 .2>
  255.       translate <2.1 .8 .08>
  256.     }
  257.     texture {ToothTexture}
  258.   }
  259.   object {
  260.     intersection {
  261.       Tooth2
  262.       scale <.2 .4 .2>
  263.       translate <1.95 .8 -.08>
  264.     }
  265.     texture {ToothTexture}
  266.   }
  267.   object {
  268.     intersection {
  269.       Tooth2
  270.       scale <.2 .4 .2>
  271.       translate <1.95 .8 .08>
  272.     }
  273.     texture {ToothTexture}
  274.   }
  275.   object {
  276.     intersection {
  277.       Tooth2
  278.       scale <.2 .4 .2>
  279.       translate <1.8 .775 -.1>
  280.     }
  281.     texture {ToothTexture}
  282.   }
  283.   object {
  284.     intersection {
  285.       Tooth2
  286.       scale <.2 .4 .2>
  287.       translate <1.8 .775 .1>
  288.     }
  289.     texture {ToothTexture}
  290.   }
  291.   object {
  292.     intersection {
  293.       Tooth2
  294.       scale <.2 .4 .2>
  295.       translate <1.65 .75 -.1>
  296.     }
  297.     texture {ToothTexture}
  298.   }
  299.   object {
  300.     intersection {
  301.       Tooth2
  302.       scale <.2 .4 .2>
  303.       translate <1.65 .75 .1>
  304.     }
  305.     texture {ToothTexture}
  306.   }
  307.   object {
  308.     intersection {
  309.       Tooth2
  310.       scale <.2 .4 .2>
  311.       translate <1.5 .725 -.1>
  312.     }
  313.     texture {ToothTexture}
  314.   }
  315.   object {
  316.     intersection {
  317.       Tooth2 
  318.       scale <.2 .4 .2>
  319.       translate <1.5 .725 .1>
  320.     }
  321.     texture {ToothTexture}
  322.   }
  323.   rotate <0 0 -10>
  324.   scale <1.25 1 1>
  325.   rotate <0 30 0>
  326.   translate <.7 -.7 -.7>
  327. }
  328.  
  329. composite {
  330.   EelHole2
  331.   scale <1 1 1>
  332.   rotate <0 -25 0>
  333.   translate <-3 1.2 2>
  334. }
  335.  
  336. composite {
  337.   EelHole
  338.   scale <1 1 1>
  339.   rotate <0 0 0>
  340.   translate <8 0 10>
  341. }