81 |
|
mult : $mult ; |
82 |
|
ndivs : $ndivs ; |
83 |
|
|
84 |
+ |
norm : if(nfiles-.5, mult/scale/le(1), 0); |
85 |
+ |
|
86 |
|
or(a,b) : if(a,a,b); |
87 |
|
EPS : 1e-7; |
88 |
|
neq(a,b) : if(a-b-EPS,1,b-a-EPS); |
95 |
|
grn = $grnv; |
96 |
|
blu = $bluv; |
97 |
|
|
98 |
< |
v = map(li(1)*(mult/scale)); |
99 |
< |
vleft = map(li(1,-1,0)*(mult/scale)); |
100 |
< |
vright = map(li(1,1,0)*(mult/scale)); |
101 |
< |
vabove = map(li(1,0,1)*(mult/scale)); |
102 |
< |
vbelow = map(li(1,0,-1)*(mult/scale)); |
98 |
> |
v = map(li(1)*norm); |
99 |
> |
vleft = map(li(1,-1,0)*norm); |
100 |
> |
vright = map(li(1,1,0)*norm); |
101 |
> |
vabove = map(li(1,0,1)*norm); |
102 |
> |
vbelow = map(li(1,0,-1)*norm); |
103 |
|
isconta = or(boundary(vleft,vright),boundary(vabove,vbelow)); |
104 |
|
iscontb = if(btwn(0,v,1),btwn(.4,frac(ndivs*v),.6),0); |
105 |
|
|
113 |
|
|
114 |
|
in = 1; |
115 |
|
_EOF_ |
116 |
< |
set pcargs=(-o -f $tempdir/pc.cal) |
116 |
> |
set pcargs=(-f $tempdir/pc.cal) |
117 |
|
if ($?docont) then |
118 |
|
set pcargs=($pcargs -e "in=iscont$docont") |
119 |
|
endif |