| 50 |
|
breaksw |
| 51 |
|
case -ip: |
| 52 |
|
case -pi: |
| 53 |
< |
shiftargv |
| 53 |
> |
shift argv |
| 54 |
|
set picture="$argv[1]" |
| 55 |
|
set cpict="$argv[1]" |
| 56 |
|
breaksw |
| 61 |
|
set docont=b |
| 62 |
|
breaksw |
| 63 |
|
case -n: |
| 64 |
< |
shiftargv |
| 64 |
> |
shift argv |
| 65 |
|
set ndivs="$argv[1]" |
| 66 |
< |
breadsw |
| 66 |
> |
breaksw |
| 67 |
|
default: |
| 68 |
|
echo bad option "'$argv[1]'" |
| 69 |
|
exit 1 |
| 119 |
|
-e 'ra=0;ga=0;ba=0' -x 100 -y 200 \ |
| 120 |
|
> $tempdir/scol.pic |
| 121 |
|
(echo $label; cnt $ndivs |rcalc -e '$1='"($scale)/$ndivs*($ndivs"'-.5-$1)') \ |
| 122 |
< |
| psign -cf 1 1 1 -cb 0 0 0 -h `ev "floor(200/$ndivs+.5)"` \ |
| 123 |
< |
> $tempdir/slab.pic |
| 122 |
> |
| psign -cf 1 1 1 -cb 0 0 0 -h `ev "floor(2*200/$ndivs+.5)"` \ |
| 123 |
> |
| pfilt -1 -x /2 -y /2 > $tempdir/slab.pic |
| 124 |
|
pcomb $pcargs $picture $cpict \ |
| 125 |
< |
| pcompos $tempdir/scol.pic 0 0 -t .5 $tempdir/slab.pic 25 0 - 100 0 |
| 125 |
> |
| pcompos $tempdir/scol.pic 0 0 -t .2 $tempdir/slab.pic 25 0 - 100 0 |
| 126 |
|
quit: |
| 127 |
|
rm -rf $tempdir |
