Unwrapped for your viewing pleasure:

On Thu, 12 Jul 2001 00:47:04 -0700, Tim Attwood wrote:
>              #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)


-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)merge{R(z+a z)R(-z a-z)R(a
-z-z-z a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro Z(a F T)merge{
P(z+a)P(z-a)R(-z-z-x a)pigment{rgbt 1}hollow interior{media{emission T}}finish{
reflection.1}}#end Z(-x-x.2y)Z(-x-x.4x)camera{location z*-10rotate x*90}

Post a reply to this message