#!/bin/csh -f
echo "Content-type: text/html"
echo ""

cat << XXSTUFFXX
Note - if this page is incomplete, try clicking <a href="/jg/cleanplot$PATH_INFO.mapoptjg?$QUERY_STRING">here</a>.
XXSTUFFXX

setenv HD /data/globec

if ( ! -e /jgofsopt/$REMOTE_HOST ) then
        mkdir /jgofsopt/$REMOTE_HOST
	cp $HD/htmlsrc/setup/* /jgofsopt/$REMOTE_HOST
        endif
cd /jgofsopt/$REMOTE_HOST

set tmp=$PATH_INFO
setenv OBJ $tmp:r
setenv FULLOBJ $OBJ
setenv UQOBJ $OBJ
setenv QS ""
unsetenv PATH_INFO
if ( "$QUERY_STRING" != "" ) then
  setenv QS "`$HD/htmlbin/bin/htmlesc '$QUERY_STRING'`"
  setenv FULLOBJ "$OBJ($QS)"
  setenv UQOBJ "$OBJ($QUERY_STRING)"
endif

set CUROPT=(`cat mapopt`)

cat << XXSTUFFXX
<h1>$FULLOBJ -- Map options</h1>

If the options below are satisfactory, then just click on <form action="/jg/plotmap$OBJ?$QS" method="POST">
<input type="submit" value="Make Plot"><p>

Projection ($CUROPT[1]) [see end for descriptions]:  <select name="proj">
XXSTUFFXX

$HD/htmlbin/bin/nawkscr $CUROPT[1] << XXSTUFFXX
mercator      preserves shapes & direction
equicylinder  simple to make, preserves North-South distance
areacylinder  preserves area
gnomic        great circles become straight lines
equiplanar    preserves distance from center point
areaplanar    preserves area
stereographic projection from antipode onto tangent
sinusoidal    preserves area
hammer        preserves area
peters        woce
lambert       preserves area, ellipse
orthographic  3-D 1-hemisphere; only center not distorted
XXSTUFFXX
echo "</select><p>"

cat << XXSTUFFXX
Central latitude ($CUROPT[2]) [sets latitude of center point for
transformation - use 0 for Mercator]:
<input name="cent_lat" type="text" value="$CUROPT[2]">
<p>

Central longitude ($CUROPT[3]) [sets longitude of center point for
transformation]:
<input name="cent_lon" type="text" value="$CUROPT[3]">
<p>

Shift latitude ($CUROPT[4]) [shifts specified latitude to center of
graph - use this to do a Mercator projection with the map center not
at the equator]:
<input name="shift_lat" type="text" value="$CUROPT[4]">
<p>

Magnification ($CUROPT[5]) [scale factor for map 1=full globe, order 5
for regional map]:
<input name="mag" type="text" value="$CUROPT[5]">
<p>

Grid Lines ($CUROPT[6]) [lon,lat spacing of grid or 
lonmin,latmin,lonmax,latmax or lonmin,latmin,lonmax,latmax,deltalon,deltalat]:
<input name="grid" type="text" value="$CUROPT[6]">
<p>
XXSTUFFXX

echo "Symbol for stations ($CUROPT[7]): <select name="\""sym"\"">"
$HD/htmlbin/bin/nawkscr $CUROPT[7] << XXSTUFFXX
line
+
o
x
+(connected)
o(connected)
x(connected)
XXSTUFFXX
echo "</select><p>"

cat << XXSTUFFXX
Symbol size ($CUROPT[8]) [2 is normal]:
<input name="siz" type="text" value="$CUROPT[8]">
<p>

<hr>
<h2>Description of projections:</h2><p>
<pre>
mercator      preserves shapes & direction
equicylinder  simple to make, preserves North-South distance
areacylinder  preserves area
gnomic        great circles become straight lines
equiplanar    preserves distance from center point
areaplanar    preserves area
stereographic projection from antipode onto tangent
sinusoidal    preserves area
hammer        preserves area
peters        woce
lambert       preserves area, ellipse
orthographic  3-D 1-hemisphere; only center not distorted
</pre>

</form>
XXSTUFFXX