6 |
|
{ level selector } |
7 |
|
lvl = $10; |
8 |
|
wt = $11; |
9 |
< |
cond = and( wt-MW, if(LV+.5, and(lvl-LV+.5,LV+.5-lvl), 6.5-lvl) ); |
9 |
> |
acond = and( wt-MW, if(LV+.5, and(lvl-LV+.5,LV+.5-lvl), 6.5-lvl) ); |
10 |
|
px = $1; py = $2; pz = $3; |
11 |
|
r0 = SF*$12; r1 = SF*$13; |
12 |
|
nx = $4; ny = $5; nz = $6; |
20 |
|
pgy = ($17*uy + $18*vy)/SF; |
21 |
|
pgz = ($17*uz + $18*vz)/SF; |
22 |
|
pg = sqrt(pgx*pgx + pgy*pgy + pgz*pgz); |
23 |
+ |
pcond = and( acond, pg - .0001 ); |
24 |
|
{ direction gradient } |
25 |
|
dgx = $19*ux + $20*vx; |
26 |
|
dgy = $19*uy + $20*vy; |
30 |
|
agg = select(lvl+1, 0, val, 0, val, val, 0, val/2); |
31 |
|
agb = select(lvl+1, 0, 0, val, 0, val, val, val/2); |
32 |
|
psiz = r0/10; |
33 |
+ |
dcond = and( acond, dgx*dgx+dgy*dgy+dgz*dgz - 1e-8 ); |
34 |
|
{ base polygon vertices } |
35 |
|
px1 = px + r0*ux + r1*vx + .0001*nx; |
36 |
|
py1 = py + r0*uy + r1*vy + .0001*ny; |