| 5 |
|
# |
| 6 |
|
# Added user-definable legend 2004/01/20 Rob Guglielmetti |
| 7 |
|
|
| 8 |
< |
set td=/usr/tmp/fc$$ |
| 8 |
> |
set td=/tmp/fc$$ |
| 9 |
|
onintr quit |
| 10 |
|
set mult=179 |
| 11 |
|
set label=Nits |
| 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 \ |
