89 |
|
set ndivs="$argv[1]" |
90 |
|
breaksw |
91 |
|
default: |
92 |
< |
echo bad option "'$argv[1]'" >/dev/tty |
92 |
> |
echo bad option "'$argv[1]'" |
93 |
|
exit 1 |
94 |
|
endsw |
95 |
|
shift argv |
162 |
|
pcomb $pc0args -e 'v=(y+.5)/yres;vleft=v;vright=v' \ |
163 |
|
-e 'vbelow=(y-.5)/yres;vabove=(y+1.5)/yres' \ |
164 |
|
-x $legwidth -y $legheight > $td/scol.pic |
165 |
< |
( echo $label; cnt $ndivs \ |
165 |
> |
( echo "$label"; cnt $ndivs \ |
166 |
|
| rcalc -e '$1='"($scale)*imap(($ndivs-.5-"'$1'")/$ndivs)" \ |
167 |
|
-e "$imap" | sed -e 's/\(\.[0-9][0-9][0-9]\)[0-9]*/\1/' ) \ |
168 |
|
| psign -s -.15 -cf 1 1 1 -cb 0 0 0 \ |