This macro does a 5'6" tall (in model units) stylized girl.
I wrote it to double check the scale of a project I am doing.

See if you can use it.

 //a girl
 #macro Girl()
  #local Shirt=color rgb<1,.3,.3>;
  #local Pants=color rgb 1;

  #local Skin=color rgb<.8,.7,.7>;

  #local Dress=color rgb<rand(R),rand(R),rand(R)>;
  #local Hair=color rgb<rand(R), 0, rand(R)/2>;


  //legs
  union{
  cone{<.2,0,0>,.2,<.3,3,0>,.3 pigment{Skin}}
  cone{<-.2,0,0>,.2,<-.3,3,0>,.3 pigment{Skin}}

  //dress
  cone{<0,1,0>,1.5,<0,3.5,0>,.5 pigment{Dress} scale <1,1,.5>}
  cone{<0,3.5,0>,.5,<0,4.5,0>,.8 pigment{Dress} scale <1,1,.5>}

  //arms
  cone{<.8,4.5,0>,.2,<1,2.5,0>,.1 pigment{Skin}}
  cone{<-.8,4.5,0>,.2,<-1,2.5,0>,.1 pigment{Skin}}

  //head
  sphere{<0,0,0>,.5 scale <.8,1,.8> translate y*5.3 pigment{color Skin}}
  cone{<0,5.3,0>,.2,<0,4,0>,.1 pigment{Skin}}

  //hair
  difference{
   union{
    sphere{<0,0,0>,.6 }
    cylinder{<0,0,0>,<0,-2,0>,.6}
   }
   box{<-1,.1,0><1,-3,-1> rotate x*-10}
   scale <.8,1,.8>
   translate y*5.3
   pigment{color Hair}
  }

  //shoulder
  cylinder{<.8,4.5,0><-.8,4.5,0>,.2 pigment{Skin}}
  sphere{<.8,4.5,0>,.2 pigment{Skin}}
  sphere{<-.8,4.5,0>,.2 pigment{Skin}}


  }
 #end


object{ Girl() }

Post a reply to this message