! The toga/coare graphics process initialization file.
!

! added by S.E. Yuter 10 March 1993
set ui$menu_mark_file '/usr/local/include/bitmaps/star'
! added SEY for NMC data 27 Sept 1994
set RequirePath concat('./modules,',RequirePath)

require contour
!
! Control the spacing of a grid.  Assumes that x and y are equal.
!
define widget grid_spacing intmenu 'grid spacing'
	title 'Cartesian grid parameters'
	line
	entry '30 min. lines' 'GridSpacing "30"' \
		(pd_param (icon_component,"x-spacing","string") = "30")
	entry '1 deg. lines' 'GridSpacing "60"' \
		(pd_param (icon_component,"x-spacing","string") = "60")
	entry '5 deg. lines' 'GridSpacing "300"' \
		(pd_param (icon_component,"x-spacing","string") = "300")
	line
	entry 'Latitude/Longitude grid' 'param #icon_component lat-lon true' \
		(pd_param (icon_component, "lat-lon", "string") = "true")
	entry 'Kilometer grid' 'param #icon_component lat-lon false' \
		(pd_param (icon_component, "lat-lon", "string") = "false")
	line
	submenu 'Change origin (km grid only)' CGridOrigin
	entry 'Solid grid lines' 'ToggleBool "solid"' \
		(pd_param (icon_component, "solid", "string") = "true")
endmenu

!
! Change the origin of an cartesian grid
!
define widget CGridOrigin intmenu 'cart grid origin'
	title 'Cartesian grid origin'
	line
	entry 'Honiara' 'parameter #icon_component origin ops-ctr'
	entry 'IMET' 'parameter #icon_component origin imet'
	submenu 'Ships' ship_cg_origin_menu
	submenu 'Aircraft' aircraft_cg_origin_menu
endmenu

define widget ship_cg_origin_menu intmenu 'cartesian grid ship origins'
	title 'Ship Platforms'
	line
	entry 'Ronald H. Brown' 'parameter #icon_component origin rhb_met' \
		(pd_param (icon_component, "origin", "string") = 'rhb_met')
!	entry 'Vickers' 'parameter #icon_component origin vickers' \
!		(pd_param (icon_component, "origin", "string") = 'vickers')
endmenu


define widget aircraft_cg_origin_menu intmenu 'cartesian grid aircraft origins'
	title 'Aircraft Platforms'
	line
	entry 'n42rf (slow tape)' 'parameter #icon_component origin n42rf_st' \
		(pd_param (icon_component, "origin", "string") = 'n42rf_st')
endmenu

!
! Tweak grid spacing.  We enforce equal X and Y spacing.
!
procedure GridSpacing spacing string
	parameter #icon_component x-spacing #spacing
	parameter #icon_component y-spacing #spacing
endprocedure

!
! Zoom to to preset x and y ranges.
!
procedure DoZoom xmin string xmax string ymin string ymax string
	parameter global x-min #xmin
	parameter global x-max #xmax
	parameter global y-min #ymin
	parameter global y-max #ymax
endprocedure

!
! Toggle an arbitrary boolean parameter.  This guy expects to be called
! out of a menu, with icon_component set.
!
procedure ToggleBool param string
	local current (pd_param (icon_component, param, "string") = "true")
	if (current)
		parameter #icon_component #param false
	else
		parameter #icon_component #param true
	endif
endprocedure

!
! Menus for boundaries
!
define widget bdry-right intmenu 'boundary right menu'
	title 'Boundary Options'
	line
	submenu 'Line Width' LineWidth
	submenu 'Labels' LabelOnOff
endmenu

!
! A better boundary control widget.
!
define widget boundary-control intmenu 'stuff'
	title 'Boundary/plan options'
	line
	submenu 'Line Width' LineWidth
	entry 'Label' 'ToggleLabels' \
		(pd_param(icon_component, "label", "string") <> "none")
	line
	entry 'Redraw' 'RedrawBoundary'
endmenu

procedure RedrawBoundary
	local plat concat('l_',pd_param (icon_component, "platform", "string"))
	polyline #plat
endprocedure

define widget labelcontrol intmenu 'tweak labels'
	title 'Location label control'
	line
	entry 'Platform name labels' 'ToggleLabels' \
		(pd_param(icon_component,"label","string") = "platform")
	entry 'Time labels' 'ToggleBool time-label' \
		(pd_param(icon_component,"time-label","string") = "true")
	entry 'Local time' 'ToggleBool local-time' \
		(pd_param(icon_component,"local-time","string") = "true")
	line
	entry 'No update' 'parameter #icon_component trigger "none"'
	entry 'Update Every 1 min' 'parameter #icon_component trigger "1m"' \
		(pd_param(icon_component,"trigger","string") = "1m")
	entry 'Update Every 5 mins' 'parameter #icon_component trigger "5m"' \
		(pd_param(icon_component,"trigger","string") = "5m")
endmenu

!
! Toggle an arbitrary boolean parameter.  This guy expects to be called
! out of a menu, with icon_component set.
!
procedure ToggleBool param string
	local current (pd_param (icon_component, param, "string") = "true")
	if (current)
		parameter #icon_component #param false
	else
		parameter #icon_component #param true
	endif
endprocedure


procedure ToggleLabels
	local enabled (pd_param(icon_component, "label", "string") <> "none")
	if (enabled)
		parameter #icon_component label 'none'
	else
		parameter #icon_component label 'platform'
	endif
endprocedure

!
! Line width menu for maps and such.
!
define widget LineWidth intmenu 'line width'
	title 'Line drawing parameters'
	line
	entry 'Thin lines' 'parameter #icon_component line-width 0'  \
		(pd_param (icon_component, "line-width", "string") = "0" or \
                 pd_param(icon_component,"line-width","string") ="(Undefined)")
	entry 'Thicker lines' 'parameter #icon_component line-width 2' \
		(pd_param (icon_component, "line-width", "string") = "2")
	entry 'Super-thick lines' 'parameter #icon_component line-width 3' \
		(pd_param (icon_component, "line-width", "string") = "3")
endmenu

!
! Degrade levels for wind vectors.
!
define widget degrade intmenu 'degrade levels'
	title 'Degrade Levels'
	line
	entry 'Level 1' 'parameter #icon_component degrade 0'\
		(pd_param (icon_component, "degrade", "string") = "0")
	entry 'Level 2' 'parameter #icon_component degrade 2'\
		(pd_param (icon_component, "degrade", "string") = "2")
	entry 'Level 3' 'parameter #icon_component degrade 3'\
		(pd_param (icon_component, "degrade", "string") = "3")
	entry 'Level 4' 'parameter #icon_component degrade 4'\
		(pd_param (icon_component, "degrade", "string") = "4")
	entry 'Level 5' 'parameter #icon_component degrade 5'\
		(pd_param (icon_component, "degrade", "string") = "5")
	entry 'Level 6' 'parameter #icon_component degrade 6'\
		(pd_param (icon_component, "degrade", "string") = "6")
	entry 'Level 7' 'parameter #icon_component degrade 7'\
		(pd_param (icon_component, "degrade", "string") = "7")
	entry 'Level 8' 'parameter #icon_component degrade 8'\
		(pd_param (icon_component, "degrade", "string") = "8")
endmenu

!
! Scales.
!
define widget ScaleMenu intmenu 'scales'
	title 'Scales'
	line
	entry 'CP4 Scale' 'DoZoom -150 150 -150 150'
	entry 'Missouri Scale' 'DoZoom -100 600 -500 200'
	entry 'Midwest Scale' 'DoZoom -800 700 -500 200'
endmenu

!
! Turn labels on and off.
!
define widget LabelOnOff intmenu "labels on/off"
	title 'Labels'
	line
	entry 'On' 'turnlabelon' \
		(pd_param(icon_component, "label", "string") <> "none")
	entry 'Off' 'parameter #icon_component label none' \
		(pd_param(icon_component, "label", "string") = "none")
endmenu

procedure turnlabelon
	local worked pd_removeparam(icon_component, "label")
endprocedure

!
! The default left button menu.
!
define widget leftmenu intmenu "leftmenu"
	title 'Overlay Operations'
	line
	entry 'Adjust Limits' 'i_adjust limit-proc'
	entry 'Spatial offset options' 'popup offsets'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Disable/reenable' 'toggle_bool "disable" "true"'
	entry 'Remove' 'i_remove_component'
endmenu

!
! Commands to be executed out of the DataAvailable menu.  The invocation
! sequence is:
!
!	DAVCommand  platform  time
!
! Where platform and time correspond to the menu entry which was selected.
!
! The default action is to switch to the given platform and time, in 
! history mode.
!

procedure DefaultDataAvail platform string when string
!
! Switch to the given platform; however, let's check to see that we are
! not already on that one -- we can avoid frame cache invalidations that
! way.
!
	if (pd_param (icon_component, "platform", "string") <> platform)
		parameter #icon_component platform #platform
	endif
!
! Now drop into history mode and display this time.
!
	parameter global plot-mode history
	parameter global plot-time #when
endprocedure


!
! Data available command for ISS stuff.  The only real purpose for this,
! in addition to what DefaultDataAvail provides, is to set the global trigger
! to match our platform.
!
procedure ISSDataAvailable platform string when string
	if (pd_param ("global", "trigger", "string") <> platform)
		parameter global trigger #platform
	endif
	DefaultDataAvail #platform #when
endprocedure


!
! For the CP4 radar, we do pretty much the same thing, but also make
! sure that we are in fixed sweep mode.
!
procedure CP4Volume platform string when string
!
! Just set the params.  Don't even bother with the platform seeing as it
! will not change.
!
	parameter global plot-mode history
	parameter global plot-time #when
!	parameter #icon_component every-sweep false
endprocedure


!
! Aircraft fields.
!
define widget airfield intmenu 'airfield'
	title "Aircraft Color Code Fields"
	line
	entry '2D-C Concentration - Ice' 'fldset "concic"'
	entry '2D-P Concentration - Ice' 'fldset "concip"'
	entry 'IRS Vertical Wind Speed (m/s)' 'fldset "hw"'
	entry 'Pressure (mb)' 'fldset "pmb"'
	entry 'Reverse Flow Temperature (C)' 'fldset "trf"'
	entry 'Rosemont Temperature (C)' 'fldset "trose"'
	entry 'Dewpoint Temperature (C)' 'fldset "tdp"'
	entry 'Potential Temperature (K)' 'fldset "theta"'
	entry 'Equavalent Potential Temperature (K)' 'fldset "thetae"'
	entry 'Mixing Ratio (gm/kg)' 'fldset "w_gkg"'
	entry 'Relative Humidity (%)' 'fldset "rh"'
	entry 'Absolute humidity (g/m3)' 'fldset "rhov"'
	entry 'GPS Altitude' 'fldset "alt"'
	entry 'Radar Altimeter 1 (m)' 'fldset "ralt1"'
	entry 'Radar Altimeter 2 (m)' 'fldset "ralt2"'
	entry '1D-C Concentration (#/liter)' 'fldset "onedc"'
	entry 'FSSP Concentration (#/cm3)' 'fldset "fssp"'
	entry 'FSSP Average Diameter (um)' 'fldset "fdbar"'
	entry 'FSSP Liquid Water Content (g/m3)' 'fldset "flwc"'
	entry 'CSIRO Liquid Water Content (g/m3)' 'fldset "clwc"'
	entry 'JW Liquid Water Content (g/m3)' 'fldset "jwwc"'
	line
	entry 'Color Code by Field?' 'toggle_color_code' \
		(pd_param (icon_component, "field", "string") <> "(Undefined)")
	line
	entry 'Show Plane?' 'toggle_bool "show-position" "true"' \
		(pd_param (icon_component, "show-position", "string") = "true") 
endmenu

!
! P-3 fields.
!
define widget p3-field intmenu 'P-3 fields'
	title "P-3 Color Code Fields"
	line
	entry 'Altitude' 'fldset "ra3"' \
		(pd_param(icon_component, "field", "string") = "ra3")
	entry 'Temperature' 'fldset "temp"' \
		(pd_param(icon_component, "field", "string") = "temp")
	entry 'Dewpoint Temperature' 'fldset "dp"' \
		(pd_param(icon_component, "field", "string") = "dp")
	entry 'Liquid Water Content' 'fldset "lw"' \
		(pd_param(icon_component, "field", "string") = "lw")
	entry 'Wind Speed' 'fldset "wspd"' \
		(pd_param(icon_component, "field", "string") = "wspd")
	entry 'Wind Direction' 'fldset "wdir"' \
		(pd_param(icon_component, "field", "string") = "wdir")
	line
	entry 'Color Code by Field?' 'toggle_color_code' \
		(pd_param (icon_component, "field", "string") <> "(Undefined)")
!	entry 'Wind arrows?' 'toggle_bool "arrow" "true"' \
!		(pd_param (icon_component, "arrow", "string") = "true") 
	line
	entry 'Show Plane?' 'toggle_bool "show-position" "true"' \
		(pd_param (icon_component, "show-position", "string") = "true") 
endmenu

! moved to module track-electra
!
! Electra fields.
!
!define widget electra-field intmenu 'Electra fields'
!	title "Electra Color Code Fields"
!	line
!	entry 'Altitude' 'fldset "alt"' \
!		(pd_param(icon_component, "field", "string") = "alt")
!	entry 'Ambient Temperature (Radome/Boom)' 'fldset "atb"' \
!		(pd_param(icon_component, "field", "string") = "atb")
!!	entry 'Ambient Temperature (Reverse Flow)' 'fldset "atrf"' \
!!		(pd_param(icon_component, "field", "string") = "atrf")
!	entry 'Dewpoint Temperature (Top)' 'fldset "dptc"' \
!		(pd_param(icon_component, "field", "string") = "dptc")
!!	entry 'Dewpoint Temperature (Bottom)' 'fldset "dpbc"' \
!!		(pd_param(icon_component, "field", "string") = "dpbc")
!	entry 'Corrected PMS-King Liquid Water Content' 'fldset "plwcc"' \
!		(pd_param(icon_component, "field", "string") = "plwcc")
!!	entry 'Corrected C-T Liquid Water Content' 'fldset "lwcc"' \
!!		(pd_param(icon_component, "field", "string") = "lwcc")
!!	entry 'Corrected PMS-RAF Liquid Water Content' 'fldset "xrlwcc"' \
!!		(pd_param(icon_component, "field", "string") = "xrlwcc")
!	entry 'Wind Speed' 'fldset "wspd"' \
!		(pd_param(icon_component, "field", "string") = "wspd")
!	entry 'Wind Direction' 'fldset "wdir"' \
!		(pd_param(icon_component, "field", "string") = "wdir")
!	entry 'W Wind' 'fldset "w_wind"' \
!		(pd_param(icon_component, "field", "string") = "w_wind")
!	entry 'U Wind' 'fldset "u_wind"' \
!		(pd_param(icon_component, "field", "string") = "u_wind")
!	entry 'V Wind' 'fldset "v_wind"' \
!		(pd_param(icon_component, "field", "string") = "v_wind")
!	entry 'Theta' 'fldset "theta"' \
!		(pd_param(icon_component, "field", "string") = "theta")
!	entry 'ThetaE' 'fldset "thetae"' \
!		(pd_param(icon_component, "field", "string") = "thetae")
!	entry 'Relative Humidity' 'fldset "rh"' \
!		(pd_param(icon_component, "field", "string") = "rh")
!	entry 'Mixing Ratio' 'fldset "mr"' \
!		(pd_param(icon_component, "field", "string") = "mr")
!	line
!	entry 'Color Code by Field?' 'toggle_color_code' \
!		(pd_param (icon_component, "field", "string") <> "(Undefined)")
!	entry 'Wind arrows?' 'toggle_bool "arrow" "true"' \
!		(pd_param (icon_component, "arrow", "string") = "true") 
!	line
!	entry 'Show Plane?' 'toggle_bool "show-position" "true"' \
!		(pd_param (icon_component, "show-position", "string") = "true")! 
!endmenu

!
! Omega sonde fields.
!
define widget omegafield intmenu 'omegafield'
	title "Omega Sonde Fields"
	line
	entry 'Pressure'		'omega_fldset pres'
	entry 'Temperature'		'omega_fldset temp'
	entry 'Relative Humidity'	'omega_fldset rh'
	entry 'U wind component'	'omega_fldset u_wind'
	entry 'V wind component'	'omega_fldset v_wind'
	entry 'Dewpoint'		'omega_fldset dp'
	entry 'Wind speed'		'omega_fldset wspd'
endmenu

procedure omega_fldset name string
	parameter #icon_component x-field #name
endprocedure

!
! P-3 right menu.
!
define widget air-right intmenu 'P-3 right menu'
	title 'Aircraft Options'
	line
	submenu 'Track Color' 'simple-color'
	submenu 'Winds Color' 'simple-color-winds'
	line
	submenu 'Line Width' 'LineWidth'
endmenu

!
!The dual-Doppler middle button menu.
!
define widget ddop-middle intmenu 'ddop-middle'
	title 'Dual-Doppler Analysis'
	line
	entry 'Divergence contours' 'fldset "div"'
	entry 'Vertical Velocity contours' 'fldset "w_wind"'
	entry 'Cp4 interpelated reflectivity' 'fldset "ref_cp4"'
	entry 'Cp3 interpelated reflectivity' 'fldset "ref_cp3"'
endmenu

!
! Dual-doppler winds menu.
!
define widget ddop-winds intmenu 'ddop-winds'
	title 'Winds Options'
	line
	submenu 'Line Width' linewidth
	submenu 'Degrade' degrade
endmenu

!
! The Dual Doppler left button menu.
!
define widget ddop-left intmenu 'ddop-left'
	title 'Overlay Operations'
	line
	entry 'Adjust Limits' 'i_adjust limit-proc'
	entry 'Spatial offset options' 'popup offsets'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Disable/reenable' 'toggle_bool "disable" "true"'
	entry 'Remove' 'i_remove_ddop'
endmenu

procedure i_remove_ddop
	local dm_cmd concat("parameter ", ourname)
	dm concat(concat(dm_cmd, " "), "global radar-space true")
	local dm_cmd concat("remove ",ourname)
	dm concat(concat (dm_cmd, " "), icon_component)
endprocedure

! for DavidK stuff
define widget doppler-winds intmenu 'doppler-winds'
	title 'Doppler Winds'
	line
	entry 'ctrl' 'wfldset "u_ctrl" "v_ctrl" '\
		(pd_param (icon_component,"u_field","string") = "u_ctrl")
	entry '45' 'wfldset "u_45" "v_45"'\
		(pd_param (icon_component,"u_field","string") = "u_45")
	line
	submenu 'Line Width' linewidth
	submenu 'Degrade' degrade
endmenu
procedure wfldset ulfd string wfld string
	parameter #icon_component u_field #ufld
	parameter #icon_component v_field #vfld
endprocedure
!
! The tseries left button menu.
!
define widget tseries-left intmenu 'TSeries Left'
	title 'Overlay Operations'
	line
	submenu 'Adjust Limits' 'adjust-tseries-limits'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Remove' 'i_remove_component'
endmenu

!
! The track left button menu.
!
define widget track-left intmenu 'Track Left'
	title 'Overlay Operations'
	line
	submenu 'Adjust Limits' 'adjust-track-limits'
	entry 'Spatial offset options' 'popup offsets'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Disable/reenable' 'toggle_bool "disable" "true"'
	entry 'Remove' 'i_remove_component'
endmenu

!
! The raster left button menu.
!
define widget raster-left intmenu 'Raster Left'
	title 'Overlay Operations'
	line
	submenu 'Adjust Limits' 'adjust-raster-limits'
	entry 'Spatial offset options' 'popup offsets'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Disable/reenable' 'toggle_bool "disable" "true"'
	entry 'Remove' 'i_remove_component'
endmenu

!
! The Raster Plot Adjust Limits submenu
!
define widget adjust-raster-limits intmenu 'Adjust Limits'
	title 'Adjust Limits'
	line
	entry 'Center/Step' 'i_adjust centstep-limit-proc'
	entry 'Highlight/Range' 'i_adjust highrange-limit-proc'
endmenu

!
! The Track Adjust Limits submenu
!
define widget adjust-track-limits intmenu 'Adjust Limits'
	title 'Adjust Limits'
	line
	entry 'Time Period' 'i_adjust time-limit-proc'
	entry 'Center/Step' 'i_adjust centstep-limit-proc'
	line
	entry 'Set Annot Time 30m' 'do_annot_time_interval 30m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "30m")
	entry 'Set Annot Time 20m' 'do_annot_time_interval 20m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "20m")
	entry 'Set Annot Time 10m' 'do_annot_time_interval 10m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "10m")
	entry 'Set Annot Time 5m' 'do_annot_time_interval 5m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "5m")
	entry 'Set Annot Time 2m' 'do_annot_time_interval 2m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "2m")
	entry 'Set Annot Time 1m' 'do_annot_time_interval 1m'\
		(pd_param (icon_component, "annot-time-interval", "string") = "1m")
	line
endmenu

!
! The Skewt Adjust Limits submenu
!
define widget adjust-skewt-limits intmenu 'Adjust Limits'
	title 'Adjust Limits'
	line
	entry 'Pressure' 'i_adjust pres-limit-proc'
	entry 'Temperature' 'i_adjust temp-limit-proc'
endmenu

!
! The Skew-t left button menu.
!
define widget skewt-left intmenu 'Skewt left'
	title 'Overlay Operations'
	line
	submenu 'Adjust Limits' 'adjust-skewt-limits'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Remove' 'i_remove_component'
endmenu

!
! The Time Series Adjust Limits submenu
!
define widget adjust-tseries-limits intmenu 'Adjust Limits'
	title 'Adjust Limits'
	line
	entry 'Time Interval' 'i_adjust time-limit-proc'
	entry 'Left Axis' 'i_adjust left-limit-proc'
	entry 'Right Axis' 'i_adjust right-limit-proc'
	entry 'Number of Steps' 'i_adjust nstep-limit-proc'
	entry 'Data Skip' 'i_adjust dskip-limit-proc'
endmenu

!
! Middle icon button field for aircraft data.
!
define widget aircraft-menu intmenu "Aircraft menu"
	title "Aircraft Color Code Fields"
	line
	entry 'Aircraft altitude' 'fldset "alt"'
	entry 'Potential temperature' 'fldset "pt"'
	entry 'Relative humidity' 'fldset "rh"'
	entry 'Mixing ratio' 'fldset "mr"'
	entry 'Dewpoint temperature' 'fldset "dp"'
endmenu

!
! Middle icon button menu for station plots.
!
define widget meso-winds-mid intmenu 'Field control popup'
	title 'PAM Mesonet Winds Fields'
	line
	entry 'Temperature' 'toggle_quad tdry' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"tdry"))
	entry 'Dewpoint Temperature' 'toggle_quad dp' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"dp"))
	entry 'Relative Humidity' 'toggle_quad rh' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"rh"))
	entry 'Raw Pressure' 'toggle_quad pres' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"pres"))
	entry 'Corrected Pressure' 'toggle_quad cpres0' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"cpres0"))
	entry 'Mixing Ratio' 'toggle_quad mr' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"mr"))
	entry 'Potential Temperature' 'toggle_quad pt' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"pt"))
	entry 'Equivalent Potential Temperature' 'toggle_quad ept' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"ept"))
	entry '15-Minute Rain Accumulation' 'toggle_quad raina15' \
	   (substring(pd_param(icon_component, "quadrants","string"),"raina15"))
	entry '60-Minute Rain Accumulation' 'toggle_quad raina60' \
	   (substring(pd_param(icon_component, "quadrants","string"),"raina60"))
endmenu


!
! Middle icon button menu for TAO
!
define widget tao-winds-mid intmenu 'Field control popup'
	title 'TAO Winds Fields'
	line
	entry 'Air Temperature' 'toggle_quad ta' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"ta"))
	entry 'Relative Humidity' 'toggle_quad rh' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"rh"))
	entry 'Sea-Surface Temperature' 'toggle_quad sst' \
	   (substring(pd_param(icon_component, "quadrants", "string"),"sst"))
endmenu


!
! Middle icon menu for radar data.
!
define widget p3analysis-middle intmenu 'Radar field menu'
	title 'P3 composite radar'
	line
	entry 'Reflectivity' 'fldset "reflectivity"'\
		(pd_param (icon_component,"field","string") = "reflectivity")
	entry 'Radial Velocity' 'fldset "radialvelocity"'\
		(pd_param (icon_component,"field","string") = "radialvelocity")
	entry 'Vertical Velocity' 'fldset "w_wind"'\
		(pd_param (icon_component,"field","string") = "w_wind")
	entry 'Maximum Reflectivity' 'fldset "maxdz"'\
		(pd_param (icon_component,"field","string") = "maxdz")
	entry 'Divergence' 'fldset "div"'\
		(pd_param (icon_component,"field","string") = "div")
	entry 'U wind' 'fldset "u_wind"'\
		(pd_param (icon_component,"field","string") = "u_wind")
	entry 'V wind' 'fldset "v_wind"'\
		(pd_param (icon_component,"field","string") = "v_wind")
	line
	entry 'Conv-SF-noecho' 'fldset "convsf"'\
	(pd_param (icon_component,"field","string") = "convsf")
	entry 'Conv Cores' 'fldset "convcore"'\
	(pd_param (icon_component,"field","string") = "convcore")
	line
	submenu	'David Ks Dual' daviddual
	submenu	'David Ks Quad' davidquad
	line
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'contour' 'param #icon_component color-table contour' \
		(pd_param (icon_component,"color-table","string") = "contour")
	entry 'simple10' 'param #icon_component color-table simple10' \
                (pd_param ("icon_component","color-table","string") = "simple10")
	entry 'simple5' 'param #icon_component color-table simple5' \
                (pd_param ("icon_component","color-table","string") = "simple5")
	entry 'simpleredyellow10' 'param #icon_component color-table simpleredyellow10' \
                (pd_param ("icon_component","color-table","string") = "simpleredyellow10")
	entry 'acradar' 'param #icon_component color-table acradar' \
		(pd_param (icon_component,"color-table","string") = "acradar")
	entry 'simpleBW' 'param #icon_component color-table SimpleBW' \
		(pd_param (icon_component,"color-table","string") = "SimpleBW")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'hotcold16' 'param #icon_component color-table hotcold16' \
		(pd_param (icon_component,"color-table","string") = "hotcold16")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
	entry 'DavidK_wild_new' 'param #icon_component color-table david_wild_new' \
		(pd_param (icon_component,"color-table","string") = "david_wild_new")
	entry 'one red' 'param #icon_component color-table onered' \
		(pd_param (icon_component,"color-table","string") = "onered")
	entry 'one green' 'param #icon_component color-table onegreen' \
		(pd_param (icon_component,"color-table","string") = "onegreen")
	entry 'one blue' 'param #icon_component color-table oneblue' \
		(pd_param (icon_component,"color-table","string") = "oneblue")
	line
	entry 'Raster representation' \
		'param #icon_component representation raster'
	entry 'Contour representation' \
		'param #icon_component representation contour'
	entry 'Filled contour representation' \
		'param #icon_component representation filled-contour'
	line
	submenu 'Contour Width' LineWidth
	submenu 'Contour Options' 'contour-right'
endmenu

define widget shipanalysis-middle intmenu 'Radar field menu'
	title 'shipborne radar'
	line
!	entry 'Reflectivity' 'fldset "reflectivity"'\
!		(pd_param (icon_component,"field","string") = "reflectivity")
	entry 'Radial Velocity' 'fldset "radialvelocity"'\
		(pd_param (icon_component,"field","string") = "radialvelocity")
!	entry 'Vertical Velocity' 'fldset "w_wind"'\
!		(pd_param (icon_component,"field","string") = "w_wind")
	entry 'Maximum Reflectivity' 'fldset "maxdz"'\
		(pd_param (icon_component,"field","string") = "maxdz")
!	entry 'Divergence' 'fldset "div"'\
!		(pd_param (icon_component,"field","string") = "div")
!	entry 'U wind' 'fldset "u_wind"'\
!		(pd_param (icon_component,"field","string") = "u_wind")
!	entry 'V wind' 'fldset "v_wind"'\
!		(pd_param (icon_component,"field","string") = "v_wind")
	line
	entry 'Conv-SF-noecho' 'fldset "convsf"'\
	(pd_param (icon_component,"field","string") = "convsf")
	entry 'Conv Cores' 'fldset "convcore"'\
	(pd_param (icon_component,"field","string") = "convcore")
	line
!	submenu	'David Ks Dual' daviddual
!	submenu	'David Ks Quad' davidquad
	line
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'contour' 'param #icon_component color-table contour' \
		(pd_param (icon_component,"color-table","string") = "contour")
	entry 'simple10' 'param #icon_component color-table simple10' \
                (pd_param ("icon_component","color-table","string") = "simple10")
	entry 'simple5' 'param #icon_component color-table simple5' \
                (pd_param ("icon_component","color-table","string") = "simple5")
	entry 'simpleredyellow10' 'param #icon_component color-table simpleredyellow10' \
                (pd_param ("icon_component","color-table","string") = "simpleredyellow10")
	entry 'acradar' 'param #icon_component color-table acradar' \
		(pd_param (icon_component,"color-table","string") = "acradar")
	entry 'simpleBW' 'param #icon_component color-table SimpleBW' \
		(pd_param (icon_component,"color-table","string") = "SimpleBW")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'hotcold16' 'param #icon_component color-table hotcold16' \
		(pd_param (icon_component,"color-table","string") = "hotcold16")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
	entry 'DavidK_wild_new' 'param #icon_component color-table david_wild_new' \
		(pd_param (icon_component,"color-table","string") = "david_wild_new")
	entry 'one red' 'param #icon_component color-table onered' \
		(pd_param (icon_component,"color-table","string") = "onered")
	entry 'one green' 'param #icon_component color-table onegreen' \
		(pd_param (icon_component,"color-table","string") = "onegreen")
	entry 'one blue' 'param #icon_component color-table oneblue' \
		(pd_param (icon_component,"color-table","string") = "oneblue")
	line
	entry 'Raster representation' \
		'param #icon_component representation raster'
	entry 'Contour representation' \
		'param #icon_component representation contour'
	entry 'Filled contour representation' \
		'param #icon_component representation filled-contour'
	line
	submenu 'Contour Width' LineWidth
	submenu 'Contour Options' 'contour-right'
endmenu

define widget daviddual intmenu 'David Ks Dual'
	title 'Dual analysis fields'
	line
	entry 'Maximum Reflectivity' 'fldset "maxdz"'\
		(pd_param (icon_component,"field","string") = "maxdz")
	entry 'u_ctrl' 'fldset "u_ctrl"'\
		(pd_param (icon_component,"field","string") = "u_ctrl")
	entry 'v_ctrl' 'fldset "v_ctrl"'\
		(pd_param (icon_component,"field","string") = "v_ctrl")
	entry 'div_ctrl' 'fldset "div_ctrl"'\
		(pd_param (icon_component,"field","string") = "div_ctrl")
	entry 'w_ctrl' 'fldset "w_ctrl"'\
		(pd_param (icon_component,"field","string") = "w_ctrl")
	entry 'u_45' 'fldset "u_45"'\
		(pd_param (icon_component,"field","string") = "u_45")
	entry 'v_45' 'fldset "v_45"'\
		(pd_param (icon_component,"field","string") = "v_45")
	entry 'div_45' 'fldset "div_45"'\
		(pd_param (icon_component,"field","string") = "div_45")
	entry 'w_45' 'fldset "w_45"'\
		(pd_param (icon_component,"field","string") = "w_45")
	entry 'w_down' 'fldset "w_down"'\
		(pd_param (icon_component,"field","string") = "w_down")
	entry 'w_bcfract' 'fldset "w_bcfract"'\
		(pd_param (icon_component,"field","string") = "w_bcfract")
endmenu
!
define widget davidquad intmenu 'David Ks Quad'
	title 'Quad analysis fields'
	line
	entry 'Maximum Reflectivity' 'fldset "maxdz"'\
		(pd_param (icon_component,"field","string") = "maxdz")
	entry 'u_ctrl' 'fldset "u_ctrl"'\
		(pd_param (icon_component,"field","string") = "u_ctrl")
	entry 'v_ctrl' 'fldset "v_ctrl"'\
		(pd_param (icon_component,"field","string") = "v_ctrl")
	entry 'div_ctrl' 'fldset "div_ctrl"'\
		(pd_param (icon_component,"field","string") = "div_ctrl")
	entry 'w_ctrl' 'fldset "w_ctrl"'\
		(pd_param (icon_component,"field","string") = "w_ctrl")
	entry 'w_down' 'fldset "w_down"'\
		(pd_param (icon_component,"field","string") = "w_down")
	entry 'w_bc25' 'fldset "w_bc25"'\
		(pd_param (icon_component,"field","string") = "w_bc25")
	entry 'w_dnbc25' 'fldset "w_dnbc25"'\
		(pd_param (icon_component,"field","string") = "w_dnbc25")
	entry 'w_bcfract' 'fldset "w_bcfract"'\
		(pd_param (icon_component,"field","string") = "w_bcfract")
endmenu
!
! Middle icon menu for TAO mooring data (irregular grid)
!
define widget tao-middle intmenu 'TAO contouring menu'
	title 'TAO Mooring Grid'
	line
	entry 'Sea-Surface Temperature' 'fldset "sst"'\
		(pd_param (icon_component,"field","string") = "sst")
	entry 'Air Temperature' 'fldset "ta"'\
		(pd_param (icon_component,"field","string") = "ta")
	entry 'Relative Humidity' 'fldset "rh"'\
		(pd_param (icon_component,"field","string") = "rh")
	line
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'simpleBW' 'param #icon_component color-table SimpleBW' \
		(pd_param (icon_component,"color-table","string") = "SimpleBW")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'contour' 'param #icon_component color-table contour' \
		(pd_param (icon_component,"color-table","string") = "contour")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
	line
!	entry 'Raster representation' \
!		'param #icon_component representation raster'
	entry 'Line Contour' \
		'param #icon_component representation contour'
	entry 'Filled Contour' \
		'param #icon_component representation filled-contour'
	line
	submenu 'Contour Width' LineWidth
endmenu

define widget p3radar-middle intmenu 'Radar field menu'
	title 'P3 composite radar'
	line
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'simpleBW' 'param #icon_component color-table SimpleBW' \
		(pd_param (icon_component,"color-table","string") = "SimpleBW")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'contour' 'param #icon_component color-table contour' \
		(pd_param (icon_component,"color-table","string") = "contour")
	entry 'acradar' 'param #icon_component color-table acradar' \
		(pd_param (icon_component,"color-table","string") = "acradar")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
	line
	entry 'Raster representation' \
		'param #icon_component representation raster'
	entry 'Contour representation' \
		'param #icon_component representation contour'
	entry 'Filled contour representation' \
		'param #icon_component representation filled-contour'
	line
	submenu 'Contour Width' LineWidth
	submenu 'Contour Options' 'contour-right'
endmenu


!
! Middle icon menu for nowrad data.
!
define widget nowrad-middle intmenu 'NOWRAD field menu'
	title 'NOWRAD'
	line
	entry 'nowrad color table' \
		'param #icon_component color-table nowrad' \
		(pd_param (icon_component,"color-table","string") = "nowrad")
	entry 'black & white color table' \
		'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'cook16' 'param #icon_component color-table cook16' \
		(pd_param (icon_component,"color-table","string") = "cook16")
	entry 'cook32' 'param #icon_component color-table cook32' \
		(pd_param (icon_component,"color-table","string") = "cook32")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
endmenu

!
! Middle icon menu for gms data.
!
define widget gms-middle intmenu 'GMS field menu'
	title 'PACS satellite'
	line
	entry 'High resolution' 'gms_resolution high' \
		(pd_param(icon_component,"platform","string") = "gms")
	entry 'Low resolution (wide area)' 'gms_resolution low' \
		(pd_param(icon_component,"platform","string") = "gms-big")
	entry 'Visible (20km Resolution)' 'gms_visible gms-2k' \
		(pd_param(icon_component,"field","string") = "vis")
	line
	entry 'Visible' 'fldset "vis"'\
		(pd_param (icon_component,"field","string") = "vis")
	entry 'IR' 'fldset "ir"'\
		(pd_param (icon_component,"field","string") = "ir")
	entry 'SSMI-rainrate' 'fldset "rainr"'\
		(pd_param (icon_component,"field","string") = "rainr")
	entry 'SSMI-water vapor' 'fldset "wv"'\
		(pd_param (icon_component,"field","string") = "wv")
	entry 'SSMI-liquid water' 'fldset "lw"'\
		(pd_param (icon_component,"field","string") = "lw")
	line
	entry 'Zeb IR Scale' 'zeb_gms_scale'
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
	entry 'black & white + red color table'\
		 'param #icon_component color-table ir_gray' \
		(pd_param (icon_component,"color-table","string") = "ir_gray")
	entry 'black & white "log" color table'\
		 'param #icon_component color-table newgray' \
		(pd_param ("global","color-table","string") = "newgray")
	entry 'simpleBW' 'param #icon_component color-table SimpleBW' \
		(pd_param (icon_component,"color-table","string") = "SimpleBW")
	entry 'scook color table' 'param #icon_component color-table scook' \
		(pd_param (icon_component,"color-table","string") = "scook")
	entry 'cook16' 'param #icon_component color-table cook16' \
		(pd_param (icon_component,"color-table","string") = "cook16")
	entry 'cook32' 'param #icon_component color-table cook32' \
		(pd_param (icon_component,"color-table","string") = "cook32")
	entry 'hotcold' 'param #icon_component color-table hotcold' \
		(pd_param (icon_component,"color-table","string") = "hotcold")
	entry 'wild' 'param #icon_component color-table wild' \
		(pd_param (icon_component,"color-table","string") = "wild")
	entry 'wild_new' 'param #icon_component color-table wild_new' \
		(pd_param (icon_component,"color-table","string") = "wild_new")
	entry 'simple-sat' 'param #icon_component color-table simplesat' \
		(pd_param (icon_component,"color-table","string") = "simplesat")
	submenu 'Chen Color Tables' ChenColorTables
	line
	entry 'Raster representation' \
		'param #icon_component representation raster'
	entry 'Contour representation' \
		'param #icon_component representation contour'
	entry 'Filled contour representation' \
		'param #icon_component representation filled-contour'
	line
	submenu 'Contour Width' LineWidth
endmenu

procedure zeb_gms_scale
	param #icon_component ir-center 280
	param #icon_component ir-step 12
	param #icon_component ir-highlight 208
endprocedure

procedure chen_gms_scale
	param #icon_component ir-center 250
	param #icon_component ir-step 7.5
	param #icon_component ir-highlight 0
endprocedure


define widget ChenColorTables intmenu 'Shuyi Chen climatology palettes'
	title 'Chen Color Tables'
	line
	entry 'Chen IR Scale' 'chen_gms_scale'
	entry 'Black and White' \
	 'param #icon_component color-table ChenBlackWhite' \
	 (pd_param (icon_component,"color-table","string") = "ChenBlackWhite")
	entry 'Grey to White' \
	 'param #icon_component color-table ChenGreyWhite' \
	 (pd_param (icon_component,"color-table","string") = "ChenGreyWhite")
	entry 'Purple to Saturation'\
	 'param #icon_component color-table ChenPtoSat' \
	 (pd_param (icon_component,"color-table","string") = "ChenPtoSat")
	entry 'Blue Sky' \
	 'param #icon_component color-table ChenBlueSky' \
	 (pd_param (icon_component,"color-table","string") = "ChenBlueSky")
	entry 'Maroon to Red' \
	 'param #icon_component color-table ChenMaroonRed' \
	 (pd_param (icon_component,"color-table","string") = "ChenMaroonRed")
	entry 'Blue to Red' \
	 'param #icon_component color-table ChenBlueToRed' \
	 (pd_param (icon_component,"color-table","string") = "ChenBlueToRed")
	entry 'Green to Red' \
	 'param #icon_component color-table ChenGreenToRed' \
	 (pd_param (icon_component,"color-table","string") = "ChenGreenToRed")
endmenu


!
! Toggle the attribute for cp4 radar data.
!
procedure toggle_sur
	if (pd_param ("global", "cp4-filter-attribute", "string") = "sur")
		param global cp4-filter-attribute "radar"
	else
		param global cp4-filter-attribute "sur"
	endif
endprocedure
!
! Change the endpoints for an associated (presumably cross-section) window.
! The parameter command is a kluge to force ourself to update, in case we're
! displaying the limits of the cross-section window.
!
procedure ChangeXSect
        drawline sendendpoints
        parameter global kluge-force-update kluge
endprocedure
!
! to adjust the top of the xsect SEY 5 July 1994
!
procedure xsect_top_twenty
	parameter global z-min 0
	parameter global z-max 20
endprocedure
!
procedure xsect_top_twelve
	parameter global z-min 0
	parameter global z-max 12
endprocedure
!
! Left button menu for the global component.
!
define widget global-left intmenu 'Global left menu'
	title 'Global Options'
	line
	entry 'Scale back to big picture' 'DoZoom -3500 1500 -1500 3000'
	submenu 'Adjust Global Limits' 'adjust_global_limits'
	entry 'Enlarge Window' 'dm "zoom #dm$button_window"'
	entry 'Popup Overlay Times Window' 'popup overlay'
	entry 'Popup Movie Controller' 'popup movie'
	entry 'Popup position readout widget' 'popup position'
	submenu 'Movies' movie-control
endmenu

!
! Movie control menu.
!
define widget movie-control intmenu 'movie control'
	title 'Movie Control'
	line
	entry 'Popup Movie Controller' 'popup movie'
	entry 'Run Movie' 'movie run'
	entry 'Stop Movie' 'movie stop'
endmenu

!
! Boundary drawing menu.
!
define widget boundary intmenu 'boundaries'
	title 'Boundary Entry'
	line
	entry 'Enter Scan Optimizer Boundary' 'polyline l_boundary'
	entry '      Spotlight Boundary' 'polyline l_spotlight'
	line
	entry 'Enter Storm 1 flight plan' 'polyline l_n2uw-plan'
	entry 'Enter Storm 2 flight plan' 'polyline l_n312d-plan'
	entry 'Enter Storm 3 flight plan' 'polyline l_n43rf-plan'
	entry 'Enter Storm 4 flight plan' 'polyline l_n327uw-plan'
	entry 'Enter Storm 5 flight plan' 'polyline l_n709na-plan'
endmenu

!
! The Global Adjust Limits submenu
!
define widget adjust_global_limits intmenu "Adjust Global Limits"
	entry 'X Limits' 'i_adjust_global x-limit-proc'
	entry 'Y Limits' 'i_adjust_global y-limit-proc'
endmenu

!
! Toggle between ft and km.
!
define widget feet-km intmenu 'feet/km'
	title 'Feet/Kilometers'
	line
	entry 'Ft' 'do-feet-proc true'
	entry 'Km' 'do-feet-proc false'
endmenu

procedure do-feet-proc value string
	parameter #icon_component do-feet #value
endprocedure

!
! Middle button for soundings.
!
define widget skewt-middle intmenu 'sounding middle'
	title 'Available soundings'
	line
	entry 'Byers, 21:30' 'do_sounding byr 870717,21:30'
	line
	entry 'Denver, 21:30' 'do_sounding dvr 870717,21:30'
	entry 'Denver, 21:35' 'do_sounding dvr 870717,21:35'
	entry 'Denver, 22:42' 'do_sounding dvr 870717,22:42'
	line
	entry 'Elizabeth, 21:33' 'do_sounding elz 870717,21:33'
	entry 'Elizabeth, 22:47' 'do_sounding elz 870717,22:47'
	line
	entry 'Golden, 21:30' 'do_sounding gdn 870717,21:30'
	entry 'Golden, 22:44' 'do_sounding gdn 870717,22:44'
	line
	entry 'Hudson, 22:12' 'do_sounding hud 870717,22:12'
	entry 'Hudson, 22:40' 'do_sounding hud 870717,22:40'
	line
	entry 'Mobile 1, 21:32' 'do_sounding mb1 870717,21:32'
	entry 'Mobile 1, 22:38' 'do_sounding mb1 870717,22:38'
	entry 'Mobile 2, 21:32' 'do_sounding mb2 870717,21:32'
	entry 'Mobile 2, 22:36' 'do_sounding mb2 870717,22:36'
	entry 'Mobile 3, 21:30' 'do_sounding mb3 870717,21:30'
endmenu



procedure do_sounding platform string when string
	parameter skewt platform #platform
	parameter global plot-time #when
endprocedure

define widget gcip_rr_origin_menu intmenu 'gcip origin for range rings'
	title 'GCIP Platforms'
	line
	entry 'KICT' 'parameter #icon_component platform KICT' \
		(pd_param (icon_component, "platform", "string") = 'KICT')
	endmenu

define widget ship_rr_origin_menu intmenu 'ship origin for range rings'
	title 'Ship Platforms'
	line
	entry 'Vickers' 'parameter #icon_component platform vickers' \
		(pd_param (icon_component, "platform", "string") = 'vickers')
	entry 'Xiang5' 'parameter #icon_component platform xiang5' \
		(pd_param (icon_component, "platform", "string") = 'xiang5')
	entry 'Kexue 1' 'parameter #icon_component platform kexue1' \
		(pd_param (icon_component, "platform", "string") = 'kexue1')
	entry 'Shiyan 3' 'parameter #icon_component platform shiyan3' \
		(pd_param (icon_component, "platform", "string") = 'shiyan3')
	entry 'Wecoma' 'parameter #icon_component platform wecoma' \
		(pd_param (icon_component, "platform", "string") = 'wecoma')
	entry 'Moana Wave' 'parameter #icon_component platform moana' \
		(pd_param (icon_component, "platform", "string") = 'moana')
	entry 'Le Noroit' 'parameter #icon_component platform noroit' \
		(pd_param (icon_component, "platform", "string") = 'noroit')
	entry 'Franklin' 'parameter #icon_component platform franklin' \
		(pd_param (icon_component, "platform", "string") = 'franklin')
	entry 'Alis' 'parameter #icon_component platform alis' \
		(pd_param (icon_component, "platform", "string") = 'alis')
	entry 'Hakuho-Maru' 'parameter #icon_component platform hakuho' \
		(pd_param (icon_component, "platform", "string") = 'hakuho')
	entry 'Keifu-Maru' 'parameter #icon_component platform keifu' \
		(pd_param (icon_component, "platform", "string") = 'keifu')
	entry 'Natsushima' 'parameter #icon_component platform natsu' \
		(pd_param (icon_component, "platform", "string") = 'natsu')
	entry 'Kaiyo' 'parameter #icon_component platform kaiyo' \
		(pd_param (icon_component, "platform", "string") = 'kaiyo')
	entry 'Malaita' 'parameter #icon_component platform malaita' \
		(pd_param (icon_component, "platform", "string") = 'malaita')
endmenu


define widget aircraft_rr_origin_menu intmenu 'range ring aircraft origins'
	title 'Aircraft Platforms'
	line
	entry 'n308d (DAP data)' 'parameter #icon_component platform n308d_dap' \
		(pd_param (icon_component, "platform", "string") = 'n308d_dap')
	entry 'n308d (manual)' 'parameter #icon_component platform n308d' \
		(pd_param (icon_component, "platform", "string") = 'n308d')
	entry 'n42rf (slow tape)' 'parameter #icon_component platform n42rf_st' \
		(pd_param (icon_component, "platform", "string") = 'n42rf_st')
	entry 'n42rf (manual)' 'parameter #icon_component platform n42rf' \
		(pd_param (icon_component, "platform", "string") = 'n42rf')
	entry 'n43rf (slow tape)' 'parameter #icon_component platform n43rf_st' \
		(pd_param (icon_component, "platform", "string") = 'n43rf_st')
	entry 'n43rf (manual)' 'parameter #icon_component platform n43rf' \
		(pd_param (icon_component, "platform", "string") = 'n43rf')
	entry 'DC-8 (manual)' 'parameter #icon_component platform dc8' \
		(pd_param (icon_component, "platform", "string") = 'dc8')
	entry 'DC-8 (track)' 'parameter #icon_component platform dc8_st' \
		(pd_param (icon_component, "platform", "string") = 'dc8_st')
	entry 'ER-2 (manual)' 'parameter #icon_component platform er2' \
		(pd_param (icon_component, "platform", "string") = 'er2')
	entry 'ER-2 (track)' 'parameter #icon_component platform er2_st' \
		(pd_param (icon_component, "platform", "string") = 'er2_st')
	entry '340-A (manual)' 'parameter #icon_component platform 340a' \
		(pd_param (icon_component, "platform", "string") = '340a')
	entry 'C-130 (manual)' 'parameter #icon_component platform c130' \
		(pd_param (icon_component, "platform", "string") = 'c130')
endmenu

!
! Adjustments to range rings.
!
define widget rings-menu intmenu 'rings adjustment'
	title 'Range ring parameters'
	line
	entry 'Hurricane Guillermo Origin' 'parameter #icon_component platform hurricane' \
		(pd_param (icon_component, "platform", "string") = 'hurricane')
!	entry 'IMET Origin' 'parameter #icon_component platform imet' \
!		(pd_param (icon_component, "platform", "string") = 'imet')
	submenu 'Ship Origins' ship_rr_origin_menu
!	submenu 'Aircraft Origins' aircraft_rr_origin_menu
!	submenu 'GCIP Origins' gcip_rr_origin_menu
	line
	entry '10 km rings' 'parameter #icon_component ring-interval 10' \
		(pd_param (icon_component, "ring-interval", "string") = '10')
	entry '20 km rings' 'parameter #icon_component ring-interval 20' \
		(pd_param (icon_component, "ring-interval", "string") = '20')
	entry '30 km rings' 'parameter #icon_component ring-interval 30' \
		(pd_param (icon_component, "ring-interval", "string") = '30')
	entry '40 km rings' 'parameter #icon_component ring-interval 40' \
		(pd_param (icon_component, "ring-interval", "string") = '40')
	line
	entry '10 degree lines' \
		'parameter #icon_component azimuth-interval 10' \
		(pd_param(icon_component, "azimuth-interval", "string") = '10')
	entry '30 degree lines' \
		'parameter #icon_component azimuth-interval 30' \
		(pd_param(icon_component, "azimuth-interval", "string") = '30')
	entry '45 degree lines' \
		'parameter #icon_component azimuth-interval 45' \
		(pd_param(icon_component, "azimuth-interval", "string") = '45')
	entry '90 degree lines' \
		'parameter #icon_component azimuth-interval 90' \
		(pd_param(icon_component, "azimuth-interval", "string") = '90')
	line
	submenu 'Line Width' linewidth
	line
	submenu	'Label On/Off' 'do-labels'
endmenu



!
! Adjustments to VOR rings.
!
define widget vor-rings-menu intmenu 'rings adjustment'
	title 'Range ring parameters'
	line
	entry 'STJ VOR' 'parameter #icon_component platform vor-stj' \
		(pd_param (icon_component, "platform", "string") = 'vor-stj')
	entry 'MKC VOR' 'parameter #icon_component platform vor-mkc' \
		(pd_param (icon_component, "platform", "string") = 'vor-mkc')
	entry 'PWE VOR' 'parameter #icon_component platform vor-pwe' \
		(pd_param (icon_component, "platform", "string") = 'vor-pwe')
	entry 'TOP VOR' 'parameter #icon_component platform vor-top' \
		(pd_param (icon_component, "platform", "string") = 'vor-top')
	entry 'DUC VOR' 'parameter #icon_component platform vor-duc' \
		(pd_param (icon_component, "platform", "string") = 'vor-duc')
	entry 'IRW VOR' 'parameter #icon_component platform vor-irw' \
		(pd_param (icon_component, "platform", "string") = 'vor-irw')
	entry 'HBR VOR' 'parameter #icon_component platform vor-hbr' \
		(pd_param (icon_component, "platform", "string") = 'vor-hbr')
	entry 'IFI VOR' 'parameter #icon_component platform vor-ifi' \
		(pd_param (icon_component, "platform", "string") = 'vor-ifi')
	entry 'IRK VOR' 'parameter #icon_component platform vor-irk' \
		(pd_param (icon_component, "platform", "string") = 'vor-irk')
	entry 'DSM VOR' 'parameter #icon_component platform vor-dsm' \
		(pd_param (icon_component, "platform", "string") = 'vor-dsm')
	entry 'FSM VOR' 'parameter #icon_component platform vor-fsm' \
		(pd_param (icon_component, "platform", "string") = 'vor-fsm')
	entry 'Other VOR (keyboard entry)' 'popup vor-origin'
	line
! Ugly.  But easy.
	entry '5 nm rings' 'parameter #icon_component ring-interval 9.27' \
	  (pd_param (icon_component, "ring-interval", "string") = '9.27')
	entry '10 nm rings' 'parameter #icon_component ring-interval 18.54' \
	  (pd_param (icon_component, "ring-interval", "string") = '18.54')
	entry '20 nm rings' 'parameter #icon_component ring-interval 37.09' \
	  (pd_param (icon_component, "ring-interval", "string") = '37.09')
	entry '30 nm rings' 'parameter #icon_component ring-interval 55.63' \
	  (pd_param (icon_component, "ring-interval", "string") = '55.63')
	line
	entry '10 km rings' 'parameter #icon_component ring-interval 10.0' \
	  (pd_param (icon_component, "ring-interval", "string") = '10.0')
	entry '20 km rings' 'parameter #icon_component ring-interval 20.0' \
	  (pd_param (icon_component, "ring-interval", "string") = '20.0')
	entry '30 km rings' 'parameter #icon_component ring-interval 30.0' \
	  (pd_param (icon_component, "ring-interval", "string") = '30.0')
	entry '40 km rings' 'parameter #icon_component ring-interval 40.0' \
	  (pd_param (icon_component, "ring-interval", "string") = '40.0')
	line
	entry '10 degree lines' \
		'parameter #icon_component azimuth-interval 10' \
		(pd_param(icon_component, "azimuth-interval", "string") = '10')
	entry '30 degree lines' \
		'parameter #icon_component azimuth-interval 30' \
		(pd_param(icon_component, "azimuth-interval", "string") = '30')
	entry '45 degree lines' \
		'parameter #icon_component azimuth-interval 45' \
		(pd_param(icon_component, "azimuth-interval", "string") = '45')
	entry '90 degree lines' \
		'parameter #icon_component azimuth-interval 90' \
		(pd_param(icon_component, "azimuth-interval", "string") = '90')
	line
	submenu 'Line Width' linewidth
	line
	submenu	'Label On/Off' 'do-labels'
endmenu

!
! A form widget for manual VOR entry.
!
define widget vor-origin form 'VOR origin'
	noheader
	popup vor_popup
	label comp 'component'
	label l1 'VOR/DME origin:'
	blank origin 'vor-top' command 'vor_origin_enter' width 100
	newline
	button cancel 'Cancel' color red command 'popdown #ui$form'
	button apply 'Apply' command 'vor_origin_enter'
!	newline
	label gripe ' ' color red width 200
enddef


!
! Initialize a VOR form.
!
procedure vor_popup
	formtext #ui$form comp #icon_component
	formtext #ui$form gripe ' '
endprocedure


procedure vor_origin_enter 
	local comp getftext(ui$form,'comp')
	local origin getftext(ui$form,'origin')
	local loc pd_paramsearch(comp, 'location', origin, "string")
!
! Give them a chance without "vor-"
!
	if (loc = '(Undefined)')
		local origin concat('vor-',origin)
		local loc pd_paramsearch(comp, 'location', origin, "string")
	endif
!
! Make sure we know about this location.
!
	if (loc = '(Undefined)')
		local complaint quote(concat3('Location ',origin,' unknown'))
		formtext #ui$form gripe #complaint
		return
	endif
!
! Looks cool -- let's do it.
!
	parameter #comp 'platform' #origin
	parameter #comp 'icon' 'vor'
	popdown #ui$form
endprocedure


!
! A color menu for components with a simple "color" component.
!
! NOTE uses the definition in /zeb/lib/gplib/simple-color
! unless superceded by one in modules which is the case
! ignores the one here
define widget simple-color intmenu 'simple colors'
	title 'Change Color'
	line
	entry 'white' 'do_simple_color white'
	entry 'black' 'do_simple_color black'
	entry 'lavender' 'do_simple_color lavender'
	entry 'blue' 'do_simple_color blue'
	entry 'cyan' 'do_simple_color cyan'
	entry 'green' 'do_simple_color green'
	entry 'khaki' 'do_simple_color khaki'
	entry 'yellow' 'do_simple_color yellow'
	entry 'red' 'do_simple_color red'
	entry 'pink' 'do_simple_color "HotPink"'
	entry 'violet' 'do_simple_color violet'
	entry 'forest' 'do_simple_color forestgreen'
        entry 'Dark Pink' 'do_simple_color DeepPink1'
        entry 'orange' 'do_simple_color orange'
        entry 'DarkGoldenrod' 'do_simple_color DarkGoldenrod'
        entry 'dodger blue' 'do_simple_color DodgerBlue'
        entry 'cadet blue' 'do_simple_color CadetBlue'
        entry 'chartreuse' 'do_simple_color chartreuse'
        entry 'gold' 'do_simple_color gold'
        entry 'coral' 'do_simple_color coral'
        entry 'maroon' 'do_simple_color maroon'
        entry 'magenta' 'do_simple_color magenta'
        entry 'blue violet' 'do_simple_color BlueViolet'
        entry 'dark violet' 'do_simple_color DarkViolet'
        entry 'plum' 'do_simple_color plum'
        entry 'lt pink' 'do_simple_color LightPink'
        entry 'orange red' 'do_simple_color OrangeRed'
        entry 'medium blue' 'do_simple_color MediumBlue'
        entry 'light sky blue' 'do_simple_color LightSkyBlue'
        entry 'powder blue' 'do_simple_color PowderBlue'
        entry 'light slate blue' 'do_simple_color LightSlateBlue'
        entry 'cornflower blue' 'do_simple_color CornflowerBlue'
        entry 'medium turquoise' 'do_simple_color MediumTurquoise'
        entry 'aquamarine' 'do_simple_color Aquamarine'
	submenu 'Gray scales' 'simple-gray'
endmenu

define widget simple-gray intmenu 'Grayscale submenu for simple color'
	title 'Gray scale colors'
	line
	entry '10-Percent' 'do_simple_color gray10'
	entry '20-Percent' 'do_simple_color gray20'
	entry '30-Percent' 'do_simple_color gray30'
	entry '40-Percent' 'do_simple_color gray40'
	entry '50-Percent' 'do_simple_color gray50'
	entry '60-Percent' 'do_simple_color gray60'
	entry '70-Percent' 'do_simple_color gray70'
	entry '80-Percent' 'do_simple_color gray80'
	entry '90-Percent' 'do_simple_color gray90'
endmenu


define widget contour-options intmenu 'Contour Options'
	title 'Contour Options'
	line
	submenu 'Contour Color' 'contour-color'
	line
	submenu 'Label Blanking' 'label-blanking'
	line
	submenu	'Line Width' 'linewidth'
	line
	submenu 'Show Annotation' 'annot-onoff'
	line
	submenu 'Annotation Size' 'side-annot-scale'
	line
	submenu 'Annotation Skip' 'annot-skip'
	line
	submenu 'Toggle Platform' 'toggle-meso-platform'
endmenu


define widget meso-winds-options intmenu 'Line Contour Options'
	title 'Winds Options'
	line
	submenu 'Annotation Size' 'side-annot-scale'
	line
	submenu 'Arrow Color' 'simple-color'
	line
	submenu	'Line Width' 'linewidth'
	line
	submenu 'Platform' 'toggle-meso-platform'
endmenu

define widget tao-winds-options intmenu 'Line Contour Options'
	title 'Winds Options'
	line
	submenu 'Annotation Size' 'side-annot-scale'
	line
	submenu 'Arrow Color' 'simple-color'
	line
	submenu	'Line Width' 'linewidth'
endmenu

define widget meso-station-options intmenu 'Line Contour Options'
	title 'Winds Options'
	line
	submenu 'Annotation Size' 'side-annot-scale'
	line
	submenu 'Arrow Color' 'simple-color'
	line
	submenu	'Line Width' 'linewidth'
endmenu


define widget annot-skip intmenu 'Annotation Skipping'
	title 'Annotation Skip'
	line
	entry 'On' 'do_annot_skip 2'  
	entry 'Off' 'do_annot_skip 1'   
endmenu

define widget annot-onoff intmenu 'Annotation On/Off'
	title 'Show Annotation'
	line
	entry 'On' 'do_side_annot_show true' \
		(pd_param (icon_component, "sa-show", "string") = "true")
	entry 'Off' 'do_side_annot_show false' \
		(pd_param (icon_component, "sa-show", "string") = "false")
endmenu

define widget label-blanking intmenu 'Contour Label Blanking'
	title 'Label Blanking'
	line
	entry 'On' 'do_blank_label true' \
		(pd_param (icon_component, "label-blanking", "string") = "true")
	entry 'Off' 'do_blank_label false' \
		(pd_param(icon_component, "label-blanking", "string") = "false")
endmenu

define widget contour-color intmenu 'Contour Color'
	title 'Select Color'
	line
	entry 'white' 'do_contour_color white'
	entry 'black' 'do_contour_color black'
	entry 'gray' 'do_contour_color gray60'
	entry 'lavender' 'do_contour_color lavender'
	entry 'blue' 'do_contour_color blue'
	entry 'cyan' 'do_contour_color cyan'
	entry 'green' 'do_contour_color green'
	entry 'khaki' 'do_contour_color khaki'
	entry 'yellow' 'do_contour_color yellow'
	entry 'tan' 'do_contour_color tan'
	entry 'brown' 'do_contour_color brown'
	entry 'orange' 'do_contour_color orange'
	entry 'red' 'do_contour_color red'
	entry 'pink' 'do_contour_color "HotPink"'
	entry 'violet' 'do_contour_color violet'

	entry 'Multi-Colored Contours ' 'do_mono_color'
endmenu

define widget track-color intmenu 'Track Color'
	title 'Select Color'
	line
	submenu 'Track Color' 'simple-color'
	line
	entry 'Show Plane?' 'toggle_bool "show-position" "true"'
	entry 'Color Code by Altitude' 'toggle_color_code' \
	  (pd_param(icon_component, "field", "string") <> "(Undefined)")
endmenu

define widget quadrant-color intmenu 'Quadrant Color'
	title 'Select Color'
	line
	entry 'white' 'do_quad_color white'
	entry 'black' 'do_quad_color black'
	entry 'gray' 'do_quad_color gray60'
	entry 'lavender' 'do_quad_color lavender'
	entry 'blue' 'do_quad_color blue'
	entry 'cyan' 'do_quad_color cyan'
	entry 'green' 'do_quad_color green'
	entry 'khaki' 'do_quad_color khaki'
	entry 'yellow' 'do_quad_color yellow'
	entry 'tan' 'do_quad_color tan'
	entry 'brown' 'do_quad_color brown'
	entry 'orange' 'do_quad_color orange'
	entry 'red' 'do_quad_color red'
	entry 'pink' 'do_quad_color "HotPink"'
	entry 'violet' 'do_quad_color violet'
endmenu

define widget air-arrow-options intmenu 'Aircraft Arrow Options'
	title 'Aircraft Options'
	line
	submenu 'Arrow Color' 'arrow-color'
	line
	submenu 'Annotation Size' 'side-annot-scale'
	line
	submenu 'Annotation Skip' 'annot-skip'
endmenu

define widget arrow-color intmenu 'Arrow Color'
	title 'Arrow Color'
	line
	entry 'white' 'do_air_color white'
	entry 'black' 'do_air_color black'
	entry 'gray' 'do_air_color gray60'
	entry 'lavender' 'do_air_color lavender'
	entry 'blue' 'do_air_color blue'
	entry 'cyan' 'do_air_color cyan'
	entry 'green' 'do_air_color green'
	entry 'khaki' 'do_air_color khaki'
	entry 'yellow' 'do_air_color yellow'
	entry 'tan' 'do_air_color tan'
	entry 'brown' 'do_air_color brown'
	entry 'orange' 'do_air_color orange'
	entry 'red' 'do_air_color red'
	entry 'pink' 'do_air_color "HotPink"'
	entry 'violet' 'do_air_color violet'
	line
	entry 'No Arrows' 'remove_air_arrows'
endmenu

define widget annot-color intmenu 'Annotation colors'
	title 'Top Annotation'
	line
	submenu 'Color' 'top-annot-color'
	line
	entry 'Small' 'do_annot_size 0.03' \
		(pd_param(icon_component, "ta-scale", "string") = "0.03")
	entry 'Medium' 'do_annot_size 0.035' \
		(pd_param(icon_component, "ta-scale", "string") = "0.035")
	entry 'Large' 'do_annot_size 0.04' \
		(pd_param(icon_component, "ta-scale", "string") = "0.04")
	line
	entry 'Color Match On' 'color_match true'  \
		(pd_param (icon_component, "ta-color-match", "string") = "true")
	entry 'Color Match Off' 'color_match false'  \
		(pd_param(icon_component, "ta-color-match", "string") = "false")
endmenu

define widget top-annot-color intmenu 'Top annotation color'
	title 'Top annotation color'
	line
	entry 'white' 'do_annot_color white'
	entry 'black' 'do_annot_color black'
	entry 'gray' 'do_annot_color gray60'
	entry 'lavender' 'do_air_color lavender'
	entry 'blue' 'do_annot_color blue'
	entry 'cyan' 'do_annot_color cyan'
	entry 'green' 'do_annot_color green'
	entry 'khaki' 'do_annot_color khaki'
	entry 'yellow' 'do_annot_color yellow'
	entry 'tan' 'do_annot_color tan'
	entry 'brown' 'do_annot_color brown'
	entry 'orange' 'do_annot_color orange'
	entry 'red' 'do_annot_color red'
	entry 'pink' 'do_annot_color "HotPink"'
	entry 'violet' 'do_annot_color violet'
endmenu


define widget side-annot-scale intmenu 'Side annotation'
	title 'Annotation Size'
	line
	entry 'Small' 'do_side_annot_size 0.02' \
		(pd_param(icon_component, "sa-scale", "string") = "0.02")
	entry 'Medium' 'do_side_annot_size 0.025' \
		(pd_param(icon_component, "sa-scale", "string") = "0.025")
	entry 'Large' 'do_side_annot_size 0.03' \
		(pd_param(icon_component, "sa-scale", "string") = "0.03")
endmenu

define widget toggle-meso-platform intmenu 'Toggle mesonet platform'
	title 'Mesonet Platform'
	line
	entry 'All PAM stations' 'parameter #icon_component platform mesonet' \
		(pd_param (icon_component, "platform", "string") = "mesonet")
	entry 'PAM PBL stations' 'parameter #icon_component platform pampbl' \
		(pd_param (icon_component, "platform", "string") = "pampbl")
endmenu


procedure do_grid_toggle value string
	parameter #icon_component grid #value
endprocedure

procedure do_blank_label value string
	parameter #icon_component label-blanking #value
endprocedure

procedure color_match value string
	parameter #icon_component ta-color-match #value
endprocedure

procedure do_side_annot_show show string
	parameter #icon_component sa-show #show
endprocedure

procedure do_side_annot_size size string
	parameter #icon_component sa-scale #size
endprocedure

procedure do_annot_skip skip string
	parameter #icon_component ct-limit #skip
endprocedure

procedure do_annot_size size string
	parameter #icon_component ta-scale #size
endprocedure

procedure do_annot_color color string
	parameter #icon_component ta-color #color
endprocedure

procedure do_mono_color
	parameter #icon_component color-mono false
endprocedure

procedure remove_air_arrows
	parameter #icon_component arrow false
endprocedure

procedure do_contour_color color string
	parameter #icon_component color #color
	parameter #icon_component color-mono true
endprocedure

procedure do_air_color color string
	parameter #icon_component arrow-color #color
	parameter #icon_component arrow true
endprocedure

procedure do_simple_color color string
	parameter #icon_component color #color
endprocedure

procedure do_quad_color color string
	parameter #icon_component quad-color #color
endprocedure

procedure toggle_color_code
	if ((pd_param(icon_component, "field", "string")) <> "(Undefined)")
		local worked (pd_removeparam(icon_component, "field"))
		local color (pd_param(icon_component, "color", "string"))
		if (color = "(Undefined)")
			parameter #icon_component color yellow
		else
			parameter #icon_component color #color
		endif
	else
		parameter #icon_component field alt
		parameter #icon_component color-table contour
	endif
endprocedure

procedure fldset name string
	parameter #icon_component field #name
endprocedure


!
! Remove a component.
!
procedure i_remove_component
	local dm_cmd concat("remove ",ourname)
	dm concat(concat (dm_cmd, " "), icon_component)
endprocedure

!
! Toggle the winds overlay.  For now, we have to ask DM to do it for us,
! since we don't have this stuff around.
!
procedure change_winds
	if (pd_defined ("winds-mesonet", "u-field"))
		dm "remove #dm$button_window winds-mesonet"
	else
		dm "add winds winds-mesonet #dm$button_window"
	endif
endprocedure

!
! Similar stuff for the aircraft overlay.
!
procedure change_aircraft
	if (pd_defined ("aircraft", "platform"))
		dm "remove #dm$button_window aircraft"
	else
		dm "add kingair aircraft #dm$button_window"
	endif
endprocedure

!
! Toggle radar or GOES field, if they're there
!
procedure toggle_main
        if (pd_defined ("c_radar", "field"))
                if (pd_param ("c_radar", "field", "string") = "reflectivity")
                        parameter c_radar field "velocity"
                else
                        parameter c_radar field "reflectivity"
                endif
        elseif (pd_defined ("c_goes", "field"))
                if (pd_param ("c_goes", "field", "string") = "vis")
                        parameter c_goes field "ir"
                else
                        parameter c_goes field "vis"
                endif
        endif
endprocedure
! for convsf toggling
procedure toggle_maxdz-convsf
if (pd_param ("c_convsf_42", "field", "string") = "maxdz")
		parameter c_convsf_42 field "convsf"
	else
		parameter c_convsf_42 field "maxdz"
	endif
if (pd_param ("c_convsf_42.0", "field", "string") = "maxdz")
		parameter c_convsf_42.0 field "convsf"
	else
		parameter c_convsf_42.0 field "maxdz"
	endif
if (pd_param ("c_convsf_42.1", "field", "string") = "maxdz")
		parameter c_convsf_42.1 field "convsf"
	else
		parameter c_convsf_42.1 field "maxdz"
	endif
endprocedure
procedure toggle_convcore-convsf
if (pd_param ("c_convsf_42", "field", "string") = "convcore")
		parameter c_convsf_42 field "convsf"
	else
		parameter c_convsf_42 field "convcore"
	endif
if (pd_param ("c_convsf_42.0", "field", "string") = "convcore")
		parameter c_convsf_42.0 field "convsf"
	else
		parameter c_convsf_42.0 field "convcore"
	endif
if (pd_param ("c_convsf_42.1", "field", "string") = "convcore")
		parameter c_convsf_42.1 field "convsf"
	else
		parameter c_convsf_42.1 field "convcore"
	endif
endprocedure
procedure toggle_convcore-maxdz
if (pd_param ("c_convsf_42", "field", "string") = "convcore")
		parameter c_convsf_42 field "maxdz"
	else
		parameter c_convsf_42 field "convcore"
	endif
if (pd_param ("c_convsf_42.0", "field", "string") = "convcore")
		parameter c_convsf_42.0 field "maxdz"
	else
		parameter c_convsf_42.0 field "convcore"
	endif
if (pd_param ("c_convsf_42.1", "field", "string") = "convcore")
		parameter c_convsf_42.1 field "maxdz"
	else
		parameter c_convsf_42.1 field "convcore"
	endif
endprocedure
!
procedure toggle_sat
	if (pd_param ("c_goes", "platform", "string") = "goes_8km")
		parameter c_goes platform "goes_16km"
	elseif (pd_param ("c_goes", "platform", "string") = "goes_16km")
		parameter c_goes platform "goes_32km"
	else
		parameter c_goes platform "goes_8km"
        endif
endprocedure

procedure toggle_radar 
	if (pd_param ("c_radar", "field", "string") = "reflectivity")
		parameter c_radar field "velocity"
	else
		parameter c_radar field "reflectivity"
	endif
endprocedure

! set up the altitude controls
procedure kludge_ship_radar_altitudes
	parameter global altitude-control c_ship_radar
	parameter global altitude-label   "Elev:  deg"
	if (pd_defined ("c_ship_radar", "field"))
		parameter c_ship_radar altitude-control "true"
	endif
	if (pd_defined ("c_ship_radar.0", "field"))
		parameter c_ship_radar.0 altitude-control "true"
	endif
	if (pd_defined ("c_belly_analysis", "field"))
		parameter c_belly_analysis altitude-control "false"
	endif
	if (pd_defined ("c_belly_analysis.0", "field"))
		parameter c_belly_analysis.0 altitude-control "false"
	endif
	if (pd_defined ("p_model_winds", "field"))
		parameter p_model_winds altitude-control "false"
	endif
endprocedure

procedure kludge_aircraft_radar_altitudes
	parameter global altitude-control c_belly_analysis
	parameter global altitude-label   "Alt:  km MSL"
	if (pd_defined ("c_ship_radar", "field"))
		parameter c_ship_radar altitude-control "false"
	endif
	if (pd_defined ("c_ship_radar.0", "field"))
		parameter c_ship_radar.0 altitude-control "false"
	endif
	if (pd_defined ("c_belly_analysis", "field"))
		parameter c_belly_analysis altitude-control "true"
	endif
	if (pd_defined ("c_belly_analysis.0", "field"))
		parameter c_belly_analysis.0 altitude-control "true"
	endif
	if (pd_defined ("p_model_winds", "field"))
		parameter p_model_winds altitude-control "false"	
	endif
endprocedure

procedure kludge_nmc_wind_altitudes
	parameter global altitude-control p_model_winds
	parameter global altitude-label   "Alt:  hPa"
	if (pd_defined ("c_ship_radar", "field"))
		parameter c_ship_radar altitude-control "false"
	endif
	if (pd_defined ("c_ship_radar.0", "field"))
		parameter c_ship_radar.0 altitude-control "false"
	endif
	if (pd_defined ("c_belly_analysis", "field"))
		parameter c_belly_analysis altitude-control "false"
	endif
	if (pd_defined ("c_belly_analysis.0", "field"))
		parameter c_belly_analysis.0 altitude-control "false"
	endif
	if (pd_defined ("p_model_winds", "field"))
		parameter p_model_winds altitude-control "true"	
	endif
endprocedure



!
! Toggle between satellite and radar or nowrad.
!
procedure toggle_satellite
	local current (pd_param ("c_goes", "disable", "string"))
	if (current = "(Undefined)")
		parameter "c_goes" "disable" "true"
	elseif (current = "true")
		parameter "c_goes" "disable" "false"
	else
		parameter "c_goes" "disable" "true"
	endif
	if (pd_defined ("c_radar", "representation"))
		if (current = "(Undefined)")
			parameter "c_radar" "disable" "false"
		elseif (current = "true")
			parameter "c_radar" "disable" "true"
		else
			parameter "c_radar" "disable" "false"
		endif
	elseif (pd_defined ("c_nowrad", "representation"))
		if (current = "(Undefined)")
			parameter "c_nowrad" "disable" "false"
		elseif (current = "true")
			parameter "c_nowrad" "disable" "true"
		else
			parameter "c_nowrad" "disable" "false"
		endif
	endif
endprocedure

!
! Adjust the limits on the global component.
!
procedure i_adjust_global procparam string
	local proc pd_paramsearch(icon_component,procparam,"global","string")
	if (proc <> "(Undefined)")
		#proc 
	else
		dm "beep"
	endif
endprocedure

!
! Adjust the limits on a component.
!
procedure i_adjust procparam string
	local rep pd_param(icon_component, "representation", "string")
	local proc pd_paramsearch(icon_component, procparam, rep, "string")
	if (proc <> "(Undefined)")
		#proc #icon_component
	else
		dm "beep"
	endif
endprocedure

!
! The pressure minval maxval adjuster.
!
procedure adj_pres_minmax comp string
	local rep pd_param(comp, "representation", "string")
	local minval pd_paramsearch(comp, "pres-minval", rep, "string")
	local maxval pd_paramsearch(comp, "pres-maxval", rep, "string")
	activate doublefloat #comp "pres-minval" "Pressure Minval: " #minval \
		"pres-maxval" "Pressure Maxval: " #maxval
endprocedure

!
! The temperature minval maxval adjuster.
!
procedure adj_temp_minmax comp string
	local rep pd_param(comp, "representation", "string")
	local minval pd_paramsearch(comp, "temp-minval", rep, "string")
	local maxval pd_paramsearch(comp, "temp-maxval", rep, "string")
	activate doublefloat #comp "temp-minval" "Temperature Minval: " \
		#minval "temp-maxval" "Temperature Maxval: " #maxval
endprocedure


!
! The time series left center step adjuster.
!
procedure adj_left_centstep comp string
	activate timeseries #comp "left" "center" "Center: "  "step" "Step: " 
endprocedure

!
! The time series right center step adjuster.
!
procedure adj_right_centstep comp string
	activate timeseries #comp "right" "center" "Center: "  "step" "Step: " 
endprocedure

!
! The time series time interval adjuster.
!
procedure adj_time_int comp string
	local time pd_paramsearch(comp, "time-interval", "tseries", "string")
	activate singlestring #comp "time-interval" "Time Interval: " #time
endprocedure

!
! The lightning location time step adjuster.
!
procedure adj_time_step comp string
	local time pd_paramsearch(comp, "time-step", "lightning", "string")
	activate singlestring #comp "time-step" "Time Step: " #time
endprocedure

!
! The track time period adjuster.
!
procedure adj_time_period comp string
	local time pd_paramsearch(comp, "time-period", "track", "string")
	activate singlestring #comp "time-period" "Time Period: " #time
endprocedure

!
! The time series number of steps adjuster.
!
procedure adj_num_step comp string
	local num pd_paramsearch(comp, "nstep", "tseries", "string")
	activate singleint #comp "nstep" "Number of Steps: " #num
endprocedure

!
! The time series data skip adjuster.
!
procedure adj_data_skip comp string
	local dskip pd_paramsearch(comp, "data-skip", "tseries", "string")
	activate singleint #comp "data-skip" "Data Skip: " #dskip
endprocedure

!
! The highlight range adjuster.
!
procedure adj_highlight_range comp string
	local field pd_param(comp, "field", "string")
	local repr pd_param(comp, "representation", "string")
	local high_param concat(field, "-highlight")
	local highlight pd_paramsearch(comp, high_param, repr, "string")
	local range_param concat(field, "-highlight-range")
	local range pd_paramsearch(comp, range_param, repr, "string")
	activate doublefloat #comp #high_param "Highlight: " #highlight \
		#range_param "Range: " #range
endprocedure

!
! The center step adjuster.
!
procedure adj_center_step comp string
	local field pd_param(comp, "field", "string")
	local repr pd_param(comp, "representation", "string")
	local center_param concat(field, "-center")
	local center pd_paramsearch(comp, center_param, repr, "string")
	local step_param concat(field, "-step")
	local step pd_paramsearch(comp, step_param, repr, "string")
	activate doublefloat #comp #center_param "Center: " #center \
		#step_param "Step: " #step
endprocedure

!
! The x-spacing y-spacing adjuster.
!
procedure adj_xy_spacing comp string
	local x pd_param(comp, "x-spacing", "string")
	local y pd_param(comp, "y-spacing", "string")
	activate doublefloat #comp "x-spacing" "X-Spacing: " #x \
		"y-spacing" "Y-Spacing: " #y
endprocedure

!
! The filled contour center step adjuster.
!
procedure adj_fill_centstep comp string
	local field pd_param(comp, "field", "string")
	local center_param concat(field, "-center")
	local center pd_paramsearch(comp, center_param, "contour", "string")
	local step_param concat(field, "-step")
	local step pd_paramsearch(comp, step_param, "contour", "string")
	activate doublefloat #comp #center_param "Center: " #center \
		#step_param "Step: " #step
endprocedure

!
! The x min max adjuster.
!
procedure adj_x_minmax 
	local xmin pd_paramsearch("global", "x-min", "", "string")
	local xmax pd_paramsearch("global", "x-max", "", "string")
	activate doublefloat "global" "x-min" "X Min: " #xmin \
		"x-max" "X Max: " #xmax
endprocedure

!
! The y min max adjuster.
!
procedure adj_y_minmax 
	local ymin pd_paramsearch("global", "y-min", "", "string")
	local ymax pd_paramsearch("global", "y-max", "", "string")
	activate doublefloat "global" "y-min" "Y Min: " #ymin \
		"y-max" "Y Max: " #ymax
endprocedure

!
! The line contour center step adjuster.
!
procedure adj_line_centstep comp string
	local field pd_param(comp, "field", "string")
	local center_param concat(field, "-center")
	local center pd_paramsearch(comp, center_param, "contour", "string")
	local step_param concat(field, "-step")
	local step pd_paramsearch(comp, step_param, "contour", "string")
	activate doublefloat #comp #center_param "Center: " #center \
		#step_param "Step: " #step
endprocedure

!
! The arrow scale adjuster.
!
procedure adj_arrow_scale comp string
	local current pd_param(icon_component, "arrow-scale", "string")
	activate singlefloat #comp 'arrow-scale' "Arrow Scale: " #current
endprocedure

!
! Time series right button.
!

define widget tseries-right intmenu 'TSeries Right'
	title 'Time Series Options'
	line
	submenu 'Axis Color' 'tseries-color'
	line
	submenu 'Flip Time' 'tseries-flip'
	line
	submenu 'Annotation Size' 'side-annot-scale'
endmenu

define widget tseries-flip intmenu 'TSeries Flip Time'
	title 'Flip Time'
	line
	entry 'On' 'do_flip_time true' \
		(pd_param (icon_component, "flip-time", "string") = "true")
	entry 'Off' 'do_flip_time false' \
		(pd_param (icon_component, "flip-time", "string") = "false")
endmenu

define widget tseries-color intmenu 'TSeries Axis Color'
	title 'Axis Color'
	line
	entry 'white' 'do_axis_color white'
	entry 'black' 'do_axis_color black'
	entry 'lavender' 'do_axis_color lavender'
	entry 'blue' 'do_axis_color blue'
	entry 'cyan' 'do_axis_color cyan'
	entry 'green' 'do_axis_color green'
	entry 'khaki' 'do_axis_color khaki'
	entry 'yellow' 'do_axis_color yellow'
	entry 'tan' 'do_axis_color tan'
	entry 'brown' 'do_axis_color brown'
	entry 'orange' 'do_axis_color orange'
	entry 'red' 'do_axis_color red'
	entry 'pink' 'do_axis_color "HotPink"'
	entry 'violet' 'do_axis_color violet'
endmenu

procedure do_axis_color value string
	parameter #icon_component axis-color #value
endprocedure

procedure do_flip_time value string
	parameter #icon_component flip-time #value
endprocedure

procedure do_annot_time_interval value string
	parameter #icon_component annot-time-interval #value
endprocedure

define widget capow-bdry-plat intmenu 'CaPOW Boundary Platforms'
	title 'Select Platforms'
	line
	entry 'Boundaries' 'activate stationwidget #icon_component capow_bdry'
endmenu

define widget capow-core-plat intmenu 'CaPOW Cores Platforms'
	title 'Select Platforms'
	line
	entry 'Cores' 'activate stationwidget #icon_component capow_core'
endmenu

define widget capow-now-plat intmenu 'CaPOW Nowcast Platforms'
	title 'Select Platforms'
	line
	entry 'Nowcasts' 'activate stationwidget #icon_component capow_now'
endmenu


!
! A bunch of stuff for dealing with time series platforms and fields.
!
define widget tseries-middle intmenu 'TSeries Platforms/Fields'
	title 'Time Series Options'
	line
	submenu 'Select Fields' 'tseries-fields'
	line
	entry 'Surface Met' 'toggle_plat rhb_met' \
	(substring(pd_param(icon_component, "platform", "string"),"rhb_met"))
	entry 'Ocean' 'toggle_plat rhb_sea' \
	(substring(pd_param(icon_component, "platform", "string"),"rhb_sea"))
	entry 'Rain Gauges' 'toggle_plat rhb_rain' \
	(substring(pd_param(icon_component, "platform", "string"),"rhb_rain"))
	entry 'Navigation' 'toggle_plat rhb_nav' \
	(substring(pd_param(icon_component, "platform", "string"),"rhb_nav"))
	line
	entry 'IMET' 'toggle_plat brown_imet' \
	(substring(pd_param(icon_component, "platform", "string"),"brown_imet"))
	entry 'Ocean' 'toggle_plat brown_ocean' \
	(substring(pd_param(icon_component, "platform", "string"),"brown_ocean"))
	entry 'Ship Rain' 'toggle_plat brown_rain' \
	(substring(pd_param(icon_component, "platform", "string"),"brown_rain"))	
	entry 'Navigation' 'toggle_plat brown_pcode' \
	(substring(pd_param(icon_component, "platform", "string"),"brown_pcode"))
	entry 'JW Distrometer' 'toggle_plat jw_distro' \
	(substring(pd_param(icon_component, "platform", "string"),"jw_distro"))
endmenu

define widget tseries-middle-old intmenu 'TSeries Platforms/Fields'
	title 'Time Series Options'
	line
	submenu 'Select Fields' 'tseries-fields'
	line
	!submenu 'Select Platforms' 'tseries-plat'
	entry 'N308D' 'toggle_plat n308d_dap' \
	(substring(pd_param(icon_component, "platform", "string"),"n308d_dap"))
	entry 'UCI N42RF' 'toggle_plat uci-n42rf' \
	(ListPosition("uci-n42rf",PDParam(icon_component, "platform")) > -1)
	!(substring(pd_param(icon_component, "platform", "string"),"uci-n42rf"))
	entry 'UCI N43RF' 'toggle_plat uci-n43rf' \
	(ListPosition("uci-n43rf",PDParam(icon_component, "platform")) > -1)
	!(substring(pd_param(icon_component, "platform", "string"),"uci-n43rf"))
	entry 'DK UCI N42RF' 'toggle_plat dkuci-n42rf' \
	(substring(pd_param(icon_component, "platform", "string"),"dkuci-n42rf"))
	entry 'DK UCI N43RF' 'toggle_plat dkuci-n43rf' \
	(substring(pd_param(icon_component, "platform", "string"),"dkuci-n43rf"))	
	entry 'DC8' 'toggle_plat dc8_st' \
	(substring(pd_param(icon_component, "platform", "string"),"dc8_st"))
	entry 'ER2' 'toggle_plat er2_st' \
	(substring(pd_param(icon_component, "platform", "string"),"er2_st"))
	submenu 'Surface Platforms' 'tseries-surface'
endmenu

define widget tseries-plat intmenu 'TSeries Platforms'
	title 'Select Platforms'
	line
	submenu 'Aircraft' 'tseries-aircraft'
	line
	entry 'Surface ' 'tseries-surface'
endmenu

define widget tseries-surface intmenu 'TSeries Surface'
	title 'Select Surface Station'
	line
	entry 'Kapinga' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"kapinga/surface"))
	entry 'Manus' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"manus/surface"))
	entry 'Kavieng' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"kavieng/surface"))
	entry 'Nauru' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"nauru/surface"))
	entry 'Experiment 3' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"exp3/surface"))
	entry 'Science 1' 'toggle_plat kapinga/surface' \
	(substring(pd_param(icon_component,"platform","string"),"sci1/surface"))
endmenu

! put into select tseries middle menu, so change it there!!
define widget tseries-aircraft intmenu 'TSeries Aircraft'
	title 'Select Aircraft'
	line
	entry 'N308D' 'toggle_plat n308d_dap' \
	(substring(pd_param(icon_component, "platform", "string"),"n308d_dap"))
	entry 'UCI N42RF' 'toggle_plat uci-n42rf' \
	(substring(pd_param(icon_component, "platform", "string"),"uci-n42rf"))
	entry 'UCI N43RF' 'toggle_plat uci-n43rf' \
	(substring(pd_param(icon_component, "platform", "string"),"uci-n43rf"))
	entry 'DK UCI N42RF' 'toggle_plat dkuci-n42rf' \
	(substring(pd_param(icon_component,"platform","string"),"dkuci-n42rf"))
	entry 'DK UCI N43RF' 'toggle_plat dkuci-n43rf' \
	(substring(pd_param(icon_component,"platform","string"),"dkuci-n43rf"))
	entry 'DC8' 'toggle_plat dc8_st' \
	(substring(pd_param(icon_component, "platform", "string"),"dc8_st"))
	entry 'ER2' 'toggle_plat er2_st' \
	(substring(pd_param(icon_component, "platform", "string"),"er2_st"))
endmenu

require track-uci
require track-electra
require brown-scs

define widget tseries-fields intmenu 'TSeries Fields'
	title 'Select Fields'
	line
	submenu 'SCS Fields' tseries-scs-fields
!	submenu 'IMET Fields' tseries-imet-fields
!	submenu 'Ocean Fields' tseries-ocean-fields
!	submenu 'Rain Fields' tseries-rain-fields
!	submenu 'Pcode Fields' tseries-pcode-fields
endmenu

define widget tseries-fields-old intmenu 'TSeries Fields'
	title 'Select Fields'
	line
	submenu 'P3 UCI Fields' tseries-p3uci-fields
!	submenu 'P3 Fields' tseries-p3-fields
	submenu 'Electra Fields' tseries-electra-fields
	submenu 'Surface Fields' tseries-surface-fields
endmenu

define widget tseries-surface-fields intmenu 'TSeries Fields'
	title 'Select Fields'
	line
	entry 'Pressure' 'toggle_field pres' \
	   (substring(pd_param(icon_component, "field", "string"),"pres"))
	entry 'Temperature' 'toggle_field tdry' \
	   (substring(pd_param(icon_component, "field", "string"),"tdry"))
	entry 'Relative Humidity' 'toggle_field rh' \
	   (substring(pd_param(icon_component, "field", "string"),"rh"))
	entry 'Wind Speed' 'toggle_field wspd' \
	   (substring(pd_param(icon_component, "field", "string"),"wspd"))
	entry 'Wind Direction' 'toggle_field wdir' \
	   (substring(pd_param(icon_component, "field", "string"),"wdir"))
	entry 'Total Visible' 'toggle_field sol' \
	   (substring(pd_param(icon_component, "field", "string"),"sol"))
	entry 'Incoming Longwave' 'toggle_field irin' \
	   (substring(pd_param(icon_component, "field", "string"),"irin"))
	entry 'Net Radiation' 'toggle_field netrad' \
	   (substring(pd_param(icon_component, "field", "string"),"netrad"))
	entry 'Rainfall' 'toggle_field rain' \
	   (substring(pd_param(icon_component, "field", "string"),"rain"))
	entry 'Campbell Battery' 'toggle_field batt' \
	   (substring(pd_param(icon_component, "field", "string"),"batt"))
	entry 'Campbell Temperature' 'toggle_field tbox' \
	   (substring(pd_param(icon_component, "field", "string"),"tbox"))
endmenu

! moved to module track-electra
!define widget tseries-electra-fields intmenu 'TSeries Fields'
!	title 'Select Fields'
!	line
!	entry 'Altitude (m)' 'toggle_field alt' \
!	   (substring(pd_param(icon_component, "field", "string"),"alt"))
!	entry 'Pressure' 'toggle_field psfdc' \
!	   (substring(pd_param(icon_component, "field", "string"),"psfdc"))
!	entry 'Temperature (Boom)' 'toggle_field atb' \
!	   (substring(pd_param(icon_component, "field", "string"),"atb"))
!	entry 'Dewpoint (Top)' 'toggle_field dptc' \
!	   (substring(pd_param(icon_component, "field", "string"),"dptc"))
!	entry 'Corrected PMS-King Liquid Water Content' 'toggle_field plwcc' \
!	   (substring(pd_param(icon_component, "field", "string"),"plwcc"))
!	entry 'Wind Speed' 'toggle_field wspd' \
!	   (substring(pd_param(icon_component, "field", "string"),"wspd"))
!	entry 'Wind Direction' 'toggle_field wdir' \
!	   (substring(pd_param(icon_component, "field", "string"),"wdir"))
!	entry 'Vertical Wind' 'toggle_field w_wind'\
!	   (substring(pd_param(icon_component,"field","string"),"w_wind"))
!	entry 'Theta' 'toggle_field theta'\
!	   (pd_param(icon_component, "field", "string") = "theta")
!	entry 'ThetaE' 'toggle_field thetae'\
!	   (substring(pd_param(icon_component,"field","string"),"thetae"))
!	entry 'U Wind' 'toggle_field u_wind'\
!	   (substring(pd_param(icon_component,"field","string"),"u_wind"))
!	entry 'V Wind' 'toggle_field v_wind'\
!	   (substring(pd_param(icon_component,"field","string"),"v_wind"))
!	entry 'Relative Humidity' 'toggle_field rh'\
!	   (substring(pd_param(icon_component,"field","string"),"rh"))
!	entry 'Mixing Ratio' 'toggle_field mr'\
!	   (substring(pd_param(icon_component,"field","string"),"mr"))
!endmenu

define widget tseries-p3-fields intmenu 'TSeries Fields'
	title 'Select Fields'
	line
	entry 'Altitude' 'toggle_field ra3' \
	   (substring(pd_param(icon_component, "field", "string"),"ra3"))
	entry 'Temperature' 'toggle_field temp' \
	   (substring(pd_param(icon_component, "field", "string"),"temp"))
	entry 'Dewpoint Temperature' 'toggle_field dp' \
	   (substring(pd_param(icon_component, "field", "string"),"dp"))
	entry 'Liquid Water Content' 'toggle_field lw' \
	   (substring(pd_param(icon_component, "field", "string"),"lw"))
	entry 'Raw Pressure' 'toggle_field pres' \
	   (substring(pd_param(icon_component, "field", "string"),"pres"))
	entry 'Wind Speed' 'toggle_field wspd'\
	   (substring(pd_param(icon_component,"field","string"),"wspd"))
	entry 'Wind Direction' 'toggle_field wdir'\
	   (substring(pd_param(icon_component,"field","string"),"wdir"))
	entry 'Theta_e' 'toggle_field theta_e'\
	   (substring(pd_param(icon_component,"field","string"),"theta_e"))
	entry 'Emanuel Theta_e' 'toggle_field theta_ee'\
	   (substring(pd_param(icon_component,"field","string"),"theta_ee"))
endmenu

!
! Toggle the presence of a given platform.
!
procedure toggle_plat platform string
	local oldplat (pd_param (icon_component, "platform", "string"))
!
! See if it's already there.  If so, we remove.
!
	if (substring (oldplat, platform))
		local newplat substr_remove(oldplat, platform)

! Otherwise we just add it.  If there is a maximum number of platforms,
! though, we have to enforce it.
!
	else
	    local newplat (concat(oldplat, concat (",",platform)))
	    local max pd_param(icon_component,"max-platform","string")
	    if (max <> "(Undefined)")
	    	local imax pd_param(icon_component,"max-platform","integer")
		if (n_occur (newplat, ",") >= imax)
			dm "beep"
			return
		endif
	    endif
	endif
!
! Store the thing.
!
	param #icon_component platform #newplat
endprocedure


!
! Toggle the presence of a given field.
!
procedure toggle_field field string
	local oldfld (pd_param (icon_component, "field", "string"))
!
! See if it's already there.  If so, we remove.
!
	if (substring (oldfld, field))
		local newfld substr_remove(oldfld, field)
!
! Otherwise we just add it.  If there is a maximum number of fields,
! though, we have to enforce it.
!
	else
	    local newfld (concat(oldfld, concat (",",field)))
	    local max pd_param(icon_component,"max-field","string")
	    if (max <> "(Undefined)")
	    	local imax pd_param(icon_component,"max-field","integer")
		if (n_occur (newfld, ",") >= imax)
			dm "beep"
			return
		endif
	    endif
	endif
!
! Store the thing.
!
	param #icon_component field #newfld
endprocedure

!
! Toggle the presence of a given field for quadrants.
!
procedure toggle_quad field string
	local oldfld (pd_param (icon_component, "quadrants", "string"))
!
! See if it's already there.  If so, we remove.
!
	if (substring (oldfld, field))
		local newfld substr_remove(oldfld, field)
!
! Otherwise we just add it.  If there is a maximum number of fields,
! though, we have to enforce it.
!
	else
	    if (oldfld <> "(Undefined)")
	        local newfld (concat(oldfld, concat (",",field)))
	    else
		local newfld field
	    endif
	    local max pd_param(icon_component,"max-field","string")
	    if (max <> "(Undefined)")
	    	local imax pd_param(icon_component,"max-field","integer")
		if (n_occur (newfld, ",") >= imax)
			dm "beep"
			return
		endif
	    endif
	endif
!
! Store the thing.
!
	if (strlength (newfld) = 0)
		local worked (pd_removeparam (icon_component, "quadrants"))
	else
		param #icon_component quadrants #newfld
	endif
endprocedure


!
! A bunch of stuff for dealing with cross section platforms.
!
define widget xsect-plat intmenu "Cross section platforms"
	title 'Soundings Used'
	line
	entry 'Storm Lake (SLB)' 'toggle_xsp slb' \
	   (substring(pd_param(icon_component, "platform", "string"),"slb"))
	entry 'Iowa City (IOW)' 'toggle_xsp iow' \
	   (substring(pd_param(icon_component, "platform", "string"),"iow"))
	entry 'Kearney (EAR)' 'toggle_xsp ear' \
	   (substring(pd_param(icon_component, "platform", "string"),"ear"))
	entry 'Burlington (3V1)' 'toggle_xsp 3v1' \
	   (substring(pd_param(icon_component, "platform", "string"),"3v1"))
	entry 'Hays (HYS)' 'toggle_xsp hys' \
	   (substring(pd_param(icon_component, "platform", "string"),"hys"))
	entry 'Seneca (62K)' 'toggle_xsp 62k' \
	   (substring(pd_param(icon_component, "platform", "string"),"62k"))
	entry 'Arkansas City (AKZ)' 'toggle_xsp akz' \
	   (substring(pd_param(icon_component, "platform", "string"),"akz"))
	entry 'Kirksville (IRK)' 'toggle_xsp irk' \
	   (substring(pd_param(icon_component, "platform", "string"),"irk"))
	entry 'Columbia (COU)' 'toggle_xsp cou' \
	   (substring(pd_param(icon_component, "platform", "string"),"cou"))
	entry 'St. Louis (STL)' 'toggle_xsp stl' \
	   (substring(pd_param(icon_component, "platform", "string"),"stl"))
	entry 'Henderson (HEN)' 'toggle_xsp hen' \
	   (substring(pd_param(icon_component, "platform", "string"),"hen"))
	entry 'Guymon (GUY)' 'toggle_xsp guy' \
	   (substring(pd_param(icon_component, "platform", "string"),"guy"))
	entry 'Mobile' 'toggle_xsp mobile' \
	   (substring(pd_param(icon_component, "platform", "string"),"mobile"))
endmenu

!
! Basic boolean toggle.
!
procedure toggle_bool param string default string
	local current (pd_param (icon_component, param, "string"))
	if (current = "(Undefined)")
		parameter #icon_component #param #default
	elseif (current = "true")
		parameter #icon_component #param "false"
	else
		parameter #icon_component #param "true"
	endif
endprocedure



!
! Toggle the presence of a given sounding.
!
procedure toggle_xsp platform string
	local oldplat (pd_param (icon_component, "platform", "string"))
!
! See if it's already there.  If so, we remove it.
!
	if (substring (oldplat, platform))
		local newplat substr_remove(oldplat, platform)
!
! Otherwise we just add it.  If there is a maximum number of platforms,
! though, we have to enforce it.
!
	else
	    local newplat (concat(oldplat, concat (",",platform)))
	    local max pd_param(icon_component,"max-platform","string")
	    if (max <> "(Undefined)")
	    	local imax pd_param(icon_component,"max-platform","integer")
		if (n_occur (newplat, ",") >= imax)
			dm "beep"
			return
		endif
	    endif
	endif
!
! Store the thing.
!
	param #icon_component platform #newplat
endprocedure

!
! XY stuff.
!

procedure adjust_tic_interval sideParam string type string
	local side pd_paramsearch(icon_component,sideParam,"xy","string")
	local param concat(concat("axis-",side),"-tic-interval")
	if ( icon_component = "global" )
		local param concat("xy-",param)
	endif
	local tint pd_paramsearch(icon_component,param,"xy","string")
	if ( type = "time" )
		activate singlestring #icon_component #param  "Tic Interval: "\
			 #tintelseif ( type = "float" )
		activate singlefloat #icon_component #param  "Tic Interval: "\
			 #tint
	endif
endprocedure

	
procedure adj_series_span component string
	local span pd_paramsearch("global","xy-series-span","","string")
	activate singlestring "global" "xy-series-span" "Time Span: " #span
endprocedure

procedure adjust_height_scale
	local min pd_param("global", "height-scale-y-min", "string")
	local max pd_param("global", "height-scale-y-max", "string")
	activate doublefloat "global" "height-scale-y-min" "Y Min: " #min \
		"height-scale-y-max" "Y Max: " #max
endprocedure

!
! GMS satellite control.
!
procedure gms_resolution which string
	if (which = "high")
		local plat 'gms'
	else
		local plat 'gms-big'
	endif
	parameter #icon_component platform #plat
	parameter #icon_component field ir
	parameter global trigger #plat
endprocedure

procedure gms_visible plat string
	parameter #icon_component platform #plat
	parameter #icon_component field vis
	parameter global trigger #plat
endprocedure

!
! Imported from ISS
!
define widget time-height-winds intmenu 'Generic winds'
	title 'Time-Height Winds'
	line
	entry 'Vector' 'adjust_representation_style vector' (pd_param(icon_component,"representation-style","string") = "vector")
	entry 'Barb' 'adjust_representation_style barb'  (pd_param(icon_component,"representation-style","string") = "barb")
	line
	entry 'Grids on/off' 'toggle_grid adj-axis-side'
	entry 'Set Height...' 'adjust_height_scale'
	entry 'Set Tic Interval...' 'adjust_tic_interval adj-axis-side float'
	line
	entry 'Data Skip Factor...' 'adjust_data_skip xy-wind'
	entry 'Wind Scale...' 'adjust_wind_scale'
endmenu

procedure toggle_grid sideParam string
	local side pd_paramsearch(icon_component,sideParam,"xy","string")
	local param concat(concat("axis-",side),"-grid-intensity")
	local grid pd_paramsearch(icon_component,param,"xy","string")
	if ( grid = "0.0" )
	    param #icon_component #param 0.75
	else
	    param #icon_component #param 0.0
	endif
endprocedure

procedure adjust_wind_scale
	local symbol pd_paramsearch(icon_component,"representation-style","xy-wind","string")
	if ( symbol = "barb" )
	    local scale pd_paramsearch(icon_component,"barb-scale","xy-wind","string")
	    activate singlefloat #icon_component "barb-scale" \
		"Barb shaft length: " #scale 
	else
	    local scale pd_paramsearch(icon_component,"vec-scale","xy-wind","string")
	    activate singlefloat #icon_component "vec-scale" \
		"Vector scale: " #scale 
	endif
endprocedure


procedure adjust_representation_style style string
	param #icon_component representation-style #style
endprocedure

procedure adjust_data_skip qual string
    local n pd_paramsearch(icon_component,"data-skip",qual,"string")
    activate singleint #icon_component "data-skip"  "Data-skip factor: " #n 
endprocedure

procedure adjust_tic_interval sideParam string type string
	local side pd_paramsearch(icon_component,sideParam,"xy","string")
	local param concat(concat("axis-",side),"-tic-interval")
	if ( icon_component = "global" )
	     local param concat("xy-",param)
	endif
	local tint pd_paramsearch(icon_component,param,"xy","string")
	if ( type = "time" )
            activate singlestring #icon_component #param  "Tic Interval: " #tint
	elseif ( type = "float" )
            activate singlefloat #icon_component #param  "Tic Interval: " #tint
	endif
endprocedure

! copied from Zeb AIW on 31 August 1995
define widget do-labels intmenu 'Contour Labels'
	title 'Show Labels'
	line
	entry 'On' 'do-labels true' \
		(pd_param (icon_component, "do-labels", "string") = "true")
	entry 'Off' 'do-labels false' \
		(pd_param(icon_component, "do-labels", "string") = "false")
endmenu

!
! Get our field definitions.
!
set DefFile (concat (concat (c$libdir, "/"), "FieldDefs"))
read #DefFile