53 |
|
If no view is specified, the view parameters are taken from the picture, |
54 |
|
so the view specification is optional unless you are starting from an |
55 |
|
octree. |
56 |
+ |
|
57 |
|
_EOF_ |
58 |
|
readvar picture |
59 |
|
readvar octree |
131 |
|
if ($?DISPLAY && $picture != $nofile) then |
132 |
|
echo "" |
133 |
|
echo "Displaying glare sources in '$picture'..." |
134 |
< |
xglaresrc $picture $glarefile |
134 |
> |
xglaresrc $picture $glarefile >& /dev/null |
135 |
|
if ($status) then |
136 |
|
x11image =+0+0 -g 2.6 $picture & |
137 |
|
sleep 40 |
173 |
|
else if ($octree != $nofile) then |
174 |
|
set subtitle="$subtitle $octree" |
175 |
|
endif |
176 |
+ |
if ( "$subtitle" == "" ) then |
177 |
+ |
set subtitle="`getinfo < $glarefile | grep findglare`" |
178 |
+ |
endif |
179 |
|
cat <<_EOF_ > $plotfile |
180 |
+ |
include=line.plt |
181 |
|
include=polar.plt |
182 |
|
title="$ndxnam[$choice]" |
183 |
|
subtitle="$subtitle" |