#!/bin/csh -f

cd /jgofsopt/$REMOTE_HOST

echo "Content-type: text/html"
echo ""
echo "<pre>"

eval `/data/globec/htmlbin/bin/postit`
set tmp=$PATH_INFO
setenv OBJ $tmp:r
unsetenv PATH_INFO
if ( "$QUERY_STRING" != "" ) then
  setenv OBJ "$OBJ($QUERY_STRING)"
endif

switch ( "$proj" )
case "Mercator":
  set p="-Jm$projpar"
  breaksw
case "Lambert Azimuthal Equal-Area":
  set p="-Ja$projpar"
  breaksw
case "Albers Conic Equal-Area":
  set p="-Jb$projpar"
  breaksw
case "Cassini":
  set p="-Jc$projpar"
  breaksw
case "Azimuthal Equidistant":
  set p="-Je$projpar"
  breaksw
case "Orthographic":
  set p="-Jg$projpar"
  breaksw
case "Hammer Equal-Area":
  set p="-Jh$projpar"
  breaksw
case "Interrupted Sinusoidal Equal-Area":
  set p="-Ji$projpar"
  breaksw
case "Lambert Conic Conformal":
  set p="-Jl$projpar"
  breaksw
case "Oblique Mercator":
  set p="-Jo$projpar"
  breaksw
case "Winkel Tripel":
  set p="-Jr$projpar"
  breaksw
case "General Stereographic":
  set p="-Js$projpar"
  breaksw
case "Transverse Mercator":
  set p="-Jt$projpar"
  breaksw
case "Universal Transverse Mercator":
  set p="-Ju$projpar"
  breaksw
case "Mollweide Equal-Area":
  set p="-Jw$projpar"
  breaksw
endsw

switch ( "$marker" )
case "none":
  set m=""
  breaksw
case "circle":
  set m="-Sc0.1"
  breaksw
case "diamond":
  set m="-Sd0.1"
  breaksw
case "point":
  set m="-Sp"
  breaksw
case "square":
  set m="_Ss0.1"
  breaksw
case "triangle":
  set m="-St0.1"
  breaksw
endsw

set g="-B${gridlabel[1]}g${gridtick[1]}/${gridlabel[2]}g${gridtick[2]}:.${QUERY_STRING}:"

set path=(/usr/local/bin $path)

rm -f *.gif
pscoast $p -R$range $g -W -P -K > map.ps

/data/globec/htmlbin/bin/listspec "$OBJ" lon lat | psxy $p -R$range -O -P -L $m >> map.ps

setenv TMP `date '+%H%M%S'`
gs -sDEVICE=gif8 -sOutputFile=temp$TMP.gif -q map.ps << STUFF

quit
STUFF
echo \<p\>\<img src=\"/jgofsopt/$REMOTE_HOST/temp$TMP.gif\"\>\<p\>

echo </pre>"