// Robert J. Becraft (repaired by Bob : )

#include "colors.inc"

#declare Horsea=union
 {
  cone{<-.71,1.5,0>.45 <-.1,1.5,0> .36} // Rumpf
  cone{<-.1,1.5,0>,.36 <.71,1.5,0> .4}
  sphere{<-.71/.5,1.5,0> .45 scale<.5,1,1>}
  sphere{<0,0,0> .45 scale<1,.75,.9> translate<.61,1.57,0>}

  cone{<-.7,0,-.2>.051 <-.7,.75,-.2> .0610} // Beine  (Front legs)
  cone{<-.7,0,.2>.051 <-.7,.75,.2> .0610}
  cone{<-.7,.75,-.2>.061 <-.7,1.5,-.2> .20} // scale<1.2,1,.5>}
  cone{<-.7,.75,.2>.061 <-.7,1.5,.2> .20} // scale<1.2,1,.5>}
  sphere{<-.7,.15,-.2>.075 scale<1,1.3,1>}
  sphere{<-.7,.15,.2>.075 scale<1,1.3,1>}

  cone{<-.7,0,-.2>.08 <-.7,.08,-.2> .065 pigment{color Gray10}} // front
hooves
  cone{<-.7,0,.2>.08 <-.7,.08,.2>.065 pigment{color Gray10}}
  cone{<.6,0,-.2>.08 <.6,.08,-.2> .065 pigment{color Gray10}} //  back
hooves
  cone{<.6,0,.2>.08 <.6,.08,.2>.065 pigment{color Gray10}}

  cone{<.6,0,-.2>.051 <.6,.25,-.2> .0610}  // Back Legs
  cone{<.6,0,.2>.051 <.6,.25,.2> .0610}
  sphere{<.6,.15,-.2>.075 scale<1,1.3,1>}
  sphere{<.6,.15,.2>.075 scale<1,1.3,1>}

  cone{<.6,.25,-.2>.051 <.8,.8,-.2> .0710}  // Back Legs
  cone{<.6,.25,.2>.051 <.8,.8,.2> .0710}
  sphere{<.8,.8,-.2>.071}
  sphere{<.8,.8,.2>.071}
  cone{<.8,.80,-.2>.071 <.65,1.,-.2> .10}  // Back Legs
  cone{<.8,.80,.2>.071 <.65,1.,.2> .10}
  sphere{<.65,1.,-.2>.1}
  sphere{<.65,1.,.2>.1}
  cone{<.65,1.,-.2>.1 <.75,1.5,-.15> .25}  // Back Legs
  cone{<.65,1.,.2>.1 <.75,1.5,.15> .25}


  cone{<.9,1.85,0> .03 <1.1,1.6,0> .05} // Tail (Schwanz)
  cone{<1.1,1.63,0>.05 <1.15,.9,0> .08}

  cone{<-.7,1.8,0>.2 <-1.1,2.4,0> .15 scale<1,1.2,1> translate<0,-.5,0>}

// Neck (Hals)
 // cylinder{<-1.3,2.3,0>, <-1.6,2.3,0>, .25} //  kopf
 // cone{<-1.6,2.3,0>, .25, <-1.8,2.3,0>, 0}
 // cylinder{<-1.6,2.25/.7,0>, <-1.85,2.25/.7,0>, .2 scale<1,.7,1>}
 // sphere{<-1.85,2.25/.7,0>, .2 scale<1,.7,1>}

  union
   {
     intersection{
       sphere{<0,0,0>, .23}
       box{<0,-.3,-.3>, <.3,.3,.3>}
     }
     difference{
       cone{<0,0,0>, .23, <-.5,0,0>, .1}
       sphere{<-.08,.1,-.17>,.043 scale <1.8,1,1> pigment{color Gray}}
  //  Eyesockets
       sphere{<-.08,.1,.17>,.043  scale <1.8,1,1> pigment{color Gray}}
     }
     sphere{<-.1,.1,-.16>, .024  pigment{color Black}} // eyes
     sphere{<-.091,.1,-.16>, .02435  pigment{color Wheat}}
     sphere{<-.1,.1,.16>, .024 pigment{color Black}}
     sphere{<-.091,.1,.16>, .0245 pigment{color Wheat}}

     difference
     {
       sphere{<-.5,0,0>, .098}             // tip of nose
       box{<-.52,-.05,-.6>, <-.6,-.02,.6>}  // mouth
       sphere{<-.575,.06,-.06>, .035  texture{pigment{color Black}}}
  //  Nostrels
       sphere{<-.575,.06,.06>, .035  texture{pigment{color Black}}}
       cone{<-.585,.05,-.06>,.025,<-.43,.045,-.055>,.015
texture{pigment{color DarkBrown}}}
       cone{<-.585,.05,.06>,.025,<-.43,.045,.055>,.015 texture{pigment{color
DarkBrown}}}
     }

    rotate<0,0,40>

    translate<-1.1,2.4,0>
   }
}

#declare Horse=union{
     object{Horsea}
     union{
       difference{   // Ears (Ohren)
         sphere{<.04,.0571,-.1> .04 rotate<-10,0,0> scale<1,5,1>}
         sphere{<.036,.0571,-.1> .039 rotate<-10,0,0> scale<1,5,1>}
       }
       difference{
         sphere{<.04,.0571,.1> .04 rotate<10,0,0> scale<1,5,1>}
         sphere{<.036,.0571,.1> .039 rotate<10,0,0> scale<1,5,1>}
       }
       translate<-1.15,2.4,0>
     }
}

#declare Horse1=object{Horse
  texture
   {
    pigment
     {
      bozo
      scale .5
      color_map
       {
        [0 color rgb<.7,.6,.4>]
        [.22 color rgb<.6,.5,.3>]
        [.25 color rgb<.5,.4,.2>]
        [.65 color rgb<.5,.4,.1>]
        [.68 color rgb<.6,.5,.3>]
        [1 color rgb<.7,.6,.4>]
       }
      translate<0,1.2,3>
     }
    normal
     {
      bozo .1
//      scale <.01,.03,.01>
      turbulence <1,50,1>
      octaves 9
      lambda 7
     }
    finish
     {
      brilliance .5
      diffuse .4
     }
   }
//  pigment{color Brown}
 }

Horse1

light_source {
  0*x
  color rgb 1.5  // light's color
  translate <-20, 40, -20>
}
camera {
  location <-5,2,-10>
  angle 30
  look_at <0,1.5,0>
}


// Bob
// --
// omniVERSE
// http://users.aol.com/inversez/

Post a reply to this message