#macro Head(Loc, Height, EyeWidth, Lip)#local
       Width = 0.66*Height;#local XEye=(0.125+0.25*EyeWidth)*Width;
      #local ZEye=-0.25*Height; #local PupilSize = .05*Width; #local
  Crown=0.5*Height;#local NoseTip=-0.5*Height;#local
LipSize=Lip*0.2*Width;
 union{sphere        {<-1*XEye,0,ZEye>,PupilSize
pigment{rgb<0,0,1>}
 no_shadow}sphere    {<XEye,0,ZEye>,PupilSize
pigment{rgb<0,0,1>}
 no_shadow}blob      {threshold 0.65cylinder{<-1*
XEye,-0.66*Crown,0.75
 *NoseTip>,<         -0.51*LipSize,-0.66*Crown+         0.25*LipSize,
0.8*
 NoseTip>,LipSize,1}cylinder{<XEye, -0.66*Crown,
0.75*NoseTip>,<0.51*LipSize,
 -0.66*Crown+0.25*LipSize,0.8*NoseTip     >,LipSize,1}
sphere{<-1*XEye,-0.66*
 Crown,0.75*NoseTip>,LipSize*2,                -.326}
sphere{<XEye,-0.66*Crown,
 0.75*NoseTip >, LipSize*2, -.326}      pigment{rgb <1,0,0>} no_shadow }
blob {
 threshold 0.65 cylinder{ <-1*XEye ,-0.65*Crown, 0.75*NoseTip>,
<-0.45*LipSize,
 -0.65*Crown -0.3*LipSize, 0.8*NoseTip>, LipSize,1}
cylinder{<XEye,-0.65*Crown,
   0.75*NoseTip>, <0.45*LipSize, -0.65*Crown -0.3* LipSize, 0.8*
NoseTip>,
    LipSize,1}
sphere{<-1*XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326}
       sphere{<XEye,-0.65*Crown,0.75*NoseTip>,LipSize*2,-.326} pigment
          {rgb <1,0,0>}    no_shadow}disc{<0,0,     ZEye>,z,.5*Width
             pigment{rgb                          <1,1,0>}scale
                <1,1.5,1>}translate Loc } #end light_source
                    {<-40,50,-50> rgb 10     }camera{
                    location<0, 0, -4.0>   look_at 0}
                         Head(<0,0,0>,3,.5,.5)

--
light_source{<-9,9,-9>rgb x+y+z}text{ttf"timrom.ttf"    // timothyea
"Tim Attwood".1,0 pigment{rgb x+y}translate<-2.7,-.3,5>}//
@worldnet.att.net
sky_sphere {pigment{gradient y color_map{[.45 rgb<.2,.3,.2>][0.5 rgb
x+y+z]
[0.55 rgb x+y][0.6 rgb x+.5*y][.7 rgb 0]}scale 2 translate -1}}

Post a reply to this message