#! /usr/bin/perl

use WXP;

$dom = "ne";
$dom = $ARGV[0] if $#ARGV >= 0;
$nf=1;
$nf = $ARGV[1] if $#ARGV >= 1;

WXP::Prog::readResrcFile( "sfcmap", "/home/wxp/etc" );
WXP::setMessageLevel( "debug3" );

#WXP::setInitTime( WXP::DateTool::getSeconds( "#200701130800" ));

#
#  Set up background image (relief map)
#
$back = new WXP::ImagePlot( "file=us_relief.gif" );
#
#  Set up satellite image
#
$sat = new WXP::SatPlot( "if=sat_ir_g16w,ct=sat.clr,cof=sat_ir16.cfl,cutoff=-1:1,mod_mask" );
#
#  Set up radar mosaic plot
#
$rad = new WXP::RadPlot( "if=rad_wxpmos,ct=radar1.clr,cof=radmos2a.cfl,bar,sync" );
#
#  Set up SL pressure contour plot
#
$grd = new WXP::GridPlot( "mo=ruc,va=init:sl:presm:mb,pl=ln,in=4,coln=blue:w2" );
#
#  Set up other plots
#
$frt = new WXP::FrontPlot( "shadow=3" );
$wat = new WXP::WatchPlot( "shadow=3" );
$wat->setColor("yellow:wi=2:st=dsh,lred:wi=2:st=dsh" );
$warn = new WXP::WarnPlot( "shadow=3,nolabel" );
$lgt = new WXP::LightPlot( "mark=light,sc=.3" );
$lgt->setColor( "lblue,sh=3" );
$sfc = new WXP::SfcPlot( "va=all,co=lcyan,sc=.65,pr=+1" );
$dplot = new WXP::DatumPlot;
#
#  Set up map
#
#$map = new WXP::MapPlot( "mf=cnty.mpl,mk:40.05:-76.51:co=lcyan:sc=2:wi=2" );
$map = new WXP::MapPlot;
$map->setMapFiles( "cnty.mpl,mk:39.24:-94.58:co=white:mk=+::we=2" );
#
#  Set up plot domain
#
$domain = new WXP::Domain;
WXP::DomainTool::decode( $domain, $dom );
#
#  Open new plot
#
$plot = 0;
if( $plot ){
   $plot = new WXP::Plot;
   $plot->open( "de=d,ge=1050x850" );
   $plot->setDomain( $domain );
   $plot->setLabelFormat( "co=dgray" );
   $back->draw( $plot );
   $plot->setLabelFormat( "" );
   $sat->draw( $plot );
   $rad->draw( $plot );
   $map->draw( $plot );
   $plot->setLabelFormat( "co=lcyan" );
   $sfc->draw( $plot );
   $plot->setLabelFormat( "co=lblue" );
   $grd->draw( $plot );
   $plot->setLabelFormat( "" );
   $wat->draw( $plot );
   $warn->draw( $plot );
   $frt->draw( $plot );
   #$dplot->draw( $plot, 40.05491, -75.51085, WXP::Datum::MARK, "+", "co=white" );
   #$dplot->draw( $plot, 39.91289, -75.57531, WXP::Datum::MARK, "+", "co=white" );
   #$dplot->draw( $plot, 39.99965, -75.74295, WXP::Datum::MARK, "+", "co=white" );
   $plot->drawBorder();
   $plot->drawLabels();
   $plot->manage();
} else {
   $figure = new WXP::Figure;
   $figure->open( "de=d,ge=1050x850,nf=$nf,refresh" );
   #$figure->open( "de=d,ge=1050x850" );
   $figure->startPlot( $domain );
   $figure->addDrawing( $back );
   $figure->addDrawing( $sat );
   $figure->addDrawing( $rad );
   $figure->addDrawing( $map );
   $figure->addDrawing( $sfc );
   $figure->addDrawing( $grd );
   $figure->addDrawing( $lgt );
   $figure->addDrawing( $wat );
   $figure->addDrawing( $warn );
   $figure->addDrawing( $frt );
   $figure->endPlot();
   $figure->manage();
}