| 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 |
