|
 |
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
|
|
|
|
Marc-Hendrik Bremer <Mar### [at] t-online de> wrote:
:>> #local Shirt=color rgb<1,.3,.3>;
:>> #local Pants=color rgb 1;
: No.
What about:
#local Shirt=color rgbt 1;
#local Pants=color rgbt 1;
;)
--
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}// - Warp -
Post a reply to this message
|
|
