|
![](/i/fill.gif) |
>Wlodzimierz ABX Skiba wrote:
> > I know that there is similiar stuff
> > but I want check quality of some idea
> > this is my first try of universal hair generator
> It looks pretty good, can we see some code please?
#macro HairGenerator(Object,Count,Center,Range,Inside,Height)
#local InsidePig=pigment{object{Inside color rgb 0 color rgb 1}}
#local R0=1/sqrt(Count);
#local way=0;
#local theta=0;
#while (theta<pi)
#local way=way+2*pi*sin(theta);
#local theta=theta+(pi/Count);
#end
#local part=way/Count;
#local theta=pi/Count;
#local last=0;
#while (theta<pi)
#local way=2*pi*sin(theta);
#local startangle=-2*pi*last/way;
#local stepangle=2*pi*part/way;
#local way=way+last;
#while (way>=part)
#local way=way-part;
#local startangle=startangle+stepangle;
#local
PointInRange=Center+Range*<sin(theta)*cos(startangle),sin(theta)*sin(sta
rtangle),cos(theta)>;
#local Normal=<0,0,0>;
#local P0=trace(Object,PointInRange,Center-PointInRange,Normal);
#if (vlength(Normal)!=0)
#local P1=eval_pigment(InsidePig,P0);
#if (P1.x != 0)
cone { P0 R0 P0+Height*Normal 0 pigment { color rgb 1 } }
#end
#end
#end
#local last=way;
#local theta=theta+(pi/Count);
#end
#end
I plan add such parameters
1. height of hairs as pigment/pattern
2. direction of hairs as pigment/pattern
3. smoothnes of hairs as pigment/pattern
4. color of hairs as pigment/pattern
> > now I want replace cones with sphere_sweeps
> >
> Try replacing them with a few triangles and make the whole thing a
> mesh, it should render *much* faster...
yes, faster to render but not faster to parse
and I know that it should be faster, but how
interpolate sphere_sweeps to mesh ?
ABX
Post a reply to this message
|
![](/i/fill.gif) |