POV-Ray : Newsgroups : povray.general : My kingdom for a horse.... : Re: My kingdom for a horse.... Server Time
10 Aug 2024 23:17:29 EDT (-0400)
  Re: My kingdom for a horse....  
From: Robert J Becraft
Date: 20 Oct 1999 07:48:41
Message: <380dac19@news.povray.org>
A horse....It's not animated.

#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}
 }


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.