!
! All the definitions required to make the iconbar work.
!

!
! The right way to do this....
!
set ui$bitmap_directory concat(c$libdir, "/icons")
!
! This is the iconbar menu itself.....
!
define widget iconbar menubar " "
	!
	! All this stuff tells the system to put it, unadorned by headers and
	! title bars, where we want it.  DM does "override" by itself now,
	! since this iconbar appears in the display config, so we don't
	! bother with it here.
	!
	noheader
	! size 230 80
	location 100 100
	! vertical
	! override
	!
	! Now we can define the menus themselves.
	!
	menu global bitmap global
		title 'Zeb control options'
		line
		entry 'PACS NSSL GOES' 'display pacs-sat' \
			(dm$config = 'pacs-sat')
		entry 'PACS CIRES' 'display pacs-satcires' \
			(dm$config = 'pacs-satcires')
		entry 'PACS xsect2' 'display pacs_xsect' \
			(dm$config = 'pacs_xsect')
		entry 'PACS timeseries' 'display pacs_ts2' \
			(dm$config = 'pacs_ts')
		entry 'PACS skewt/profiler' 'display iss-combo' \
			(dm$config = 'iss-combo')
		line
		entry 'Position entry widget' 'popup enter'
		entry 'Alarm Widget'	'popup alarm'
		line
		entry 'Time Widget'	'popup time'
		entry 'Configuration editing widget' 'popup ConfigEdit'
		entry 'Data Store display widget' 'shell "dsdwidget &"'
		entry 'Data Store management widget' 'shell "dsmanage &"'
		line
		entry 'Shut down Zeb system' 'shutdown'
	endmenu
	menu printer bitmap printer
		title 'Color prints'
		line
		entry 'Print single window' \
	'shell "/usr/local/bin/xwd|/usr/local/bin/xwd2ps -IL |lpr "'
		entry 'Print entire screen' \
	'shell "/usr/local/bin/xwd -root|/usr/local/bin/xwd2ps -IL -g 0.9|lpr "'
	endmenu
	menu satellite bitmap satellite
		title 'Satellite Data'
		line
		entry 'NSSL GOES  (PACS)' 'putc3 c_nssl_goes platform nssl_goes field ir icon satellite-nssl'
		entry 'CIRES GOES  (PACS)' 'putc3 c_nssl_goes platform cires_goes field ir icon satellite'
		entry 'CIRES SSMI  (PACS)' 'putc3 c_nssl_goes platform cires_ssmi field ir icon satellite-ssmi'
	endmenu
	menu 'overlays' bitmap overlays
		title 'Static Overlays'
		line
		entry 'World Map' 'put_component c_world'
		line
!		entry 'ISS Stations' 'put_component c_iss_loc'
!		entry 'Rawinsondes' 'put_component c_rws_loc'
		entry 'Ports and Airports' 'put_component c_ports'
		entry 'Buoys' 'put_component c_buoys'
		line
		entry 'USA NEXRAD' 'put_component c_nexrad_loc'
		line
		entry 'Scan optimizer boundary' 'PutCompX c_opt_boundary platform boundary'
		line
		entry 'X-Y Grid (km)' 	'PutCompX c_cart_grid lat-lon false'
		entry 'Lat/Lon Grid ' 'PutCompX c_cart_grid lat-lon true'
		entry 'Range Rings' 'put_component c_rings'
!		submenu 'Grids and Range Rings' GridsAndRings
!		submenu 'Maps' 'Maps'
!		submenu 'Locations' LocMenu
		line
		entry 'Lightning Data' 'put_component c_lightning'
!		line
!		entry 'Window Bounds' 'put_wbounds c_wbounds'
	endmenu
	menu radar bitmap radar
		title 'PACS radar data'
		line
		entry 'Brown radar 3D' \
		'PutCompX c_radar platform brown_3d'
		entry 'Brown LowPRF' \
		'PutCompX c_working_map platform brown_lowprf'
		entry 'Brown radar hires' \
		'PutCompX c_radar platform brown_hires'
		entry 'Brown convsf' \
		'putc3 c_convsf_42 platform brown_convsf field convsf icon convsf_kict_icon'
		entry 'Brown rainmap' \
		'PutCompX c_rainmap platform brown_rainmap'
		entry 'tune convsf' \
		'putc3 c_convsf_42 platform tune_convsf field convsf icon convsf_tune_icon'
		entry 'bogus' \
		'putc3 c_bogus platform bogus field rainr icon bogus'
	endmenu
	menu radar bitmap bigboat
		title 'Ship track info'
		line
		entry 'Navigation' \
		'PutCompX c_shiptrack platform brown_pcode'
		entry 'Ocean' \
		'PutCompX c_shiptrack platform brown_ocean'
		endmenu
enddef

!
! Tracks.
!
define widget ManualTracks intmenu 'manual tracks'
	title 'Manually-entered tracks'
	line
	entry 'N308D (Electra) position' \
		 'PutCompX c_acpos platform n308d'
	entry 'N42RF (P-3) position' 'PutCompX c_acpos platform n42rf'
	entry 'N43RF (P-3) position' 'PutCompX c_acpos platform n43rf'
	entry 'DC-8 position' 'PutCompX c_acpos platform dc8'
	entry 'ER-2 position' 'PutCompX c_acpos platform er2'
	entry '340-A position' 'PutCompX c_acpos platform 340a'
	entry 'C-130 position' 'PutCompX c_acpos platform c130'
endmenu

define widget P3Analysis intmenu 'analysis data'
	title 'P3 Analysis'
	line
	entry 'N42RF Analysis' \
		'PutCompX c_belly_analysis platform n42rf_comp'
	entry 'N43RF Analysis' \
		'PutCompX c_belly_analysis platform n43rf_comp'
	entry 'N42RF Analysis - Wind Vectors' \
		'PutCompX c_belly_wind platform n42rf_comp'
	entry 'N43RF Analysis - Wind Vectors' \
		'PutCompX c_belly_wind platform n43rf_comp'
	line
	entry 'N42RF LF conv/sf' \
		'PutCompX c_convsf_42 platform convsf_42'
	entry 'N43RF LF conv/sf' \
		'putc3 c_convsf_42 platform convsf_43 field convsf icon convsf_43_icon'
	entry 'Overlap Electra LF conv/sf' \
		'putc3 c_convsf_42 platform convsf_oel field convsf icon convsf_oel_icon'
	entry 'Bogus' \
		'PutCompX c_bogus platform bogus'
	line
	entry 'N42RF Dual' \
		'putc3 c_belly_analysis platform n42rf_dual field maxdz icon n42rf_dual'
	entry 'N42RF Dual - Wind Vectors' \
		'PutCompX c_belly_wind platform n42rf_dual'
	entry 'N43RF Dual' \
		'putc3 c_belly_analysis platform n43rf_dual field maxdz icon n43rf_dual'
	entry 'N43RF Dual - Wind Vectors' \
		'PutCompX c_belly_wind platform n43rf_dual'
	entry 'Quad (42 and 43) Doppler' \
		'PutCompX c_belly_analysis platform wp3d_quad'
	entry 'Quad - Wind Vectors' \
		'PutCompX c_belly_wind platform wp3d_quad'
endmenu
define widget ARMARAnalysis intmenu 'analysis data'
	title 'DC-8 ARMAR Analysis'
	line
	entry 'High resolution (100 m vertical) Analysis' \
		'PutCompX c_belly_analysis platform armar_high'
	entry 'Low resolution (matched to P3, 500 m vertical) Analysis' \
		'PutCompX c_belly_analysis platform armar_low'
endmenu
define widget P3SlowTape intmenu 'slow tape data'
	title 'P3 Slow Tape data'
	line
	entry 'N42RF' \
		'PutCompX c_slow platform n42rf_st'
	entry 'N43RF' \
		'PutCompX c_slow platform n43rf_st'
endmenu
define widget P3FastTape intmenu 'fast tape data'
	title 'P3 UCI Tape data'
	line
	entry 'N42RF UCI version' \
		'PutCompX c_p3uci platform uci-n42rf'
	entry 'N43RF UCI version' \
		'PutCompX c_p3uci platform uci-n43rf'
	line
	entry 'N42RF DK UCI version' \
		'PutCompX c_p3uci platform dkuci-n42rf'
	entry 'N43RF DK UCI version' \
		'PutCompX c_p3uci platform dkuci-n43rf'
endmenu


!
! The various maps.
!
define widget Maps intmenu 'Maps'
	title 'Map overlays'
	line
	entry 'Island map' 'put_component c_island'
	entry 'IFA boundary' 'put_component c_ifa'
endmenu


!
! Location submenu.
!
define widget LocMenu intmenu 'Location menu'
	title 'Static locations'
	line
	entry 'Ops Center' 'put_component c_ops-ctr'
	entry 'ISS stations' 'put_component c_iss_loc'
	entry 'Rawinsondes' 'put_component c_rws_loc'
endmenu


!
! Submenu for grids and range rings.
!
define widget GridsAndRings intmenu 'grid and rings and nifty stuff'
	title 'Grids, rings, etc.'
	line
!	submenu 'Radar Range Rings' RadarRings
!	line
!	submenu 'VOR/DME Range Rings' VORRings 
!	line
	entry 'X-Y Grid (km)' \
			'PutCompX c_cart_grid lat-lon false'
	entry 'Lat/Lon Grid ' \
		'PutCompX c_cart_grid lat-lon true'
endmenu

!
! VOR/DME range ring menu.
!
define widget VORRings intmenu 'VOR range rings'
	title 'VOR/DME Range Rings'
	line
	entry 'STJ range rings' 'PutCompX c_vor platform vor-stj'
	entry 'MKC range rings' 'PutCompX c_vor platform vor-mkc'
	entry 'PWE range rings' 'PutCompX c_vor platform vor-pwe'
	entry 'TOP range rings' 'PutCompX c_vor platform vor-top'
	entry 'DUC range rings' 'PutCompX c_vor platform vor-duc'
	entry 'IRW range rings' 'PutCompX c_vor platform vor-irw'
	entry 'HBR range rings' 'PutCompX c_vor platform vor-hbr'
	entry 'IFI range rings' 'PutCompX c_vor platform vor-ifi'
	entry 'IRK range rings' 'PutCompX c_vor platform vor-irk'
	entry 'DSM range rings' 'PutCompX c_vor platform vor-dsm'
	entry 'FSM range rings' 'PutCompX c_vor platform vor-fsm'	
	entry 'Other VOR (keyboard entry)' 'popup vor-origin'
endmenu



!
! Menus for mesonet contours.  Two completely separate menus required
! for the filled and line cases, alas.
!
define widget FilledMesonet intmenu 'Filled mesonet contour selection'
	title 'Mesonet data in filled contours'
	line
	entry 'Temperature' 		'PutBCompField c_fmesonet tdry false'
	entry 'Dewpoint Temperature'	'PutBCompField c_fmesonet dp false'
	entry 'Relative Humidity'	'PutBCompField c_fmesonet rh false'
	entry 'Raw Pressure'		'PutBCompField c_fmesonet pres false'
	entry 'Corrected Pressure' 	'PutBCompField c_fmesonet cpres0 false'
	entry 'Mixing Ratio'		'PutBCompField c_fmesonet mr false'
	entry 'Potential Temperature'	'PutBCompField c_fmesonet pt false'
	entry 'Equivalent Potential Temperature' 'PutBCompField c_fmesonet ept false'
	entry '15-Minute Rain Accumulation' 'PutBCompField c_fmesonet raina15 false'
	entry '60-Minute Rain Accumulation' 'PutBCompField c_fmesonet raina60 false'
endmenu

define widget LineMesonet intmenu 'Line mesonet contour selection'
	title 'Mesonet data in line contours'
	line
	entry 'Temperature' 		'PutCompField c_mesonet tdry'
	entry 'Dewpoint Temperature'	'PutCompField c_mesonet dp'
	entry 'Relative Humidity'	'PutCompField c_mesonet rh'
	entry 'Raw Pressure'		'PutCompField c_mesonet pres'
	entry 'Corrected Pressure' 	'PutCompField c_mesonet cpres0'
	entry 'Mixing Ratio'		'PutCompField c_mesonet mr'
	entry 'Potential Temperature'	'PutCompField c_mesonet pt'
	entry 'Equivalent Potential Temperature' 'PutCompField c_mesonet ept'
	entry '15-Minute Rain Accumulation' 'PutCompField c_mesonet raina15'
	entry '60-Minute Rain Accumulation' 'PutCompField c_mesonet raina60'
endmenu


!
! The simple case: add a component to a window with no changes.
!
procedure put_component name string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
!
! If this component is already present in the window, remove it.  Otherwise
! put it in.
!
	if (pd_defined (target_win, name, "platform"))
		message 'Already there'
		remove #target_win #name
	else
		add #name #name #target_win
	endif
endprocedure

! copied from stout 23 Sept 1994, modified 23 March 95 to add comp
procedure RadarAdd comp string plat string icon string
	pickwin target_win
	parameter #comp #comp platform #plat
	parameter #target_win global radar-space true
	parameter  #target_win #comp icon #icon
	sendout #comp #target_win
endprocedure


!
! Add a component to a window, changing the field name.
!
procedure PutCompField comp string field string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
	sound chord
!
! Send the stuff over.
!
	parameter #comp #comp "field" #field
	add #comp #comp #target_win
endprocedure


!
! Add a component to a window, changing the field name.  This version puts
! the component at the bottom of the stack.
!
procedure PutBCompField comp string field string radarspace string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
	sound chord
!
! If the component is already in the window, just change the field.
!
	if (pd_defined (target_win, comp, "platform"))
		parameter #target_win #comp "field" #field
!
! Otherwise change the field *in DM* to avoid making the GP draw twice,
! then send it over.
!
	else
		parameter #comp #comp "field" #field
		add #comp #comp #target_win 1
	!
	!  Take care of the radar-space parameter.
	!
		parameter #target_win "global" "radar-space" #radarspace
	endif
endprocedure


!
! Remove a component from a window.
!
procedure ZapComp comp string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
!
! If this component truly exists in the window, get rid of it.
!
	if (pd_defined (target_win, comp, "platform"))
		remove #target_win #comp
	endif
endprocedure



!
! Put in window bounds.
!
procedure put_wbounds comp string
!
! Get the window we want to see.
!
	set wbounds_win "none"
	pickwin wbounds_win
	if (wbounds_win = "none")
		beep
		return
	endif
!
! And now the place where it goes.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")
		beep
		return
	endif
!
! Fix up the component and ship it over.
!
	parameter #comp #comp platform #wbounds_win
	add #comp #comp #target_win
endprocedure




!
! pconfig -- switch between the various 'picture' configs.
!
procedure pconfig config string
!
! Switch over to the new config.
!
	display #config
!
! Figure out what we're doing with window boxes.
!
!	if (config = 'picture' or config = 'picturex')
!		parameter big wbox disable false
!	elseif (config = 'pictures')
!		parameter big wbox disable true
!	endif
endprocedure



!
! Add a component to a window, changing an arbitrary parameter.
!
procedure PutCompX comp string param string value string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
	sound chord

	parameter #comp #comp #param #value
	add #comp #comp #target_win
endprocedure



procedure vor_origin_enter
!
! Get some parameters
!
        local comp getftext(ui$form,'comp')
        local origin getftext(ui$form,'origin')
	local originname concat(origin, '-location')
        local loc pd_param('defaults', 'defaults', originname, "string")
!
! Give them a chance without "vor-"
!
        if (loc = '(Undefined)')
                local origin concat('vor-', origin)
		local originname concat(origin, '-location')
                local loc pd_param('defaults', 'defaults', originname, "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.
!
	formtext #ui$form gripe 'Please select window'
	PutCompX 'c_vordef' 'platform' #origin
	popdown #ui$form
endprocedure

! for the model data added 30 Sept 1994
!
! Add basic model data: ModelAdd <platform> <field> <color>
!
procedure ModelAdd plat string field string color string
        parameter p_model p_model platform #plat
        parameter p_model p_model icon #plat
	parameter p_model p_model field #field
        parameter p_model p_model color #color
        parameter p_model p_model altitude-control true
        sendout p_model 'pick'
	if (plat = 'ecmwf' or plat = 'ecmwf_sfc')
	  	parameter #target_win p_model require ecmwf
	endif
endprocedure

!
! Add model winds data: ModelWindsAdd <platform> <icon> <color> <degrade>
!
procedure ModelWindsAdd plat string color string degrade string
        local iconname concat(plat,"_winds")
        parameter p_model_winds p_model_winds platform #plat
        parameter p_model_winds p_model_winds icon #iconname
        parameter p_model_winds p_model_winds color #color
        parameter p_model_winds p_model_winds degrade #degrade
        parameter p_model_winds p_model_winds u-field u_wind
	parameter p_model_winds p_model_winds v-field v_wind
        parameter p_model_winds p_model_winds altitude-control true
        sendout p_model_winds 'pick'
	if (plat = 'ecmwf' or plat = 'ecmwf_sfc')
	  	parameter #target_win p_model require ecmwf
	endif
endprocedure

!
! Add surface-only model data: SfcModelAdd <platform> <field> <color>
! (This is like ModelAdd above, except we turn off altitude-control)
!
procedure SfcModelAdd plat string field string color string
        parameter p_model p_model platform #plat
        parameter p_model p_model icon #plat
        parameter p_model p_model color #color
        parameter p_model p_model field #field
        parameter p_model p_model altitude-control false
        sendout p_model 'pick'
	if (plat = 'ecmwf' or plat = 'ecmwf_sfc')
	  	parameter #target_win p_model require ecmwf
	endif
endprocedure

!
! Add surface winds model data: SfcModelWindsAdd <platform> <color> <degrade>
! (This is like ModelWindsAdd above, except we turn off altitude-control)
!
procedure SfcModelWindsAdd plat string color string degrade string
        local iconname concat(plat,"_winds")
        parameter p_model_winds p_model_winds platform #plat
        parameter p_model_winds p_model_winds icon #iconname
        parameter p_model_winds p_model_winds color #color
        parameter p_model_winds p_model_winds degrade #degrade
        parameter p_model_winds p_model_winds u-field u_wind_10m
	parameter p_model_winds p_model_winds v-field v_wind_10m
	parameter p_model_winds p_model_winds altitude-control false
        sendout p_model_winds 'pick'
	if (plat = 'ecmwf' or plat = 'ecmwf_sfc')
	  	parameter #target_win p_model require ecmwf
	endif
endprocedure

! copied from Zeb AIW on 23 March 1995
! SEY modified from PutCompX 11 Nov 1994
! add component and while at it set color for field, icon and
! set fieldname and menu-platform
! Add a component to a window, changing an arbitrary parameter.
!
procedure PutCompXwplatform comp string param string value string plat string color string iconname string
!
! Get the target window.
!
	set target_win "none"
	pickwin target_win
	if (target_win = "none")	! They picked root or something
		beep
		return
	endif
	sound chord

	parameter #comp #comp #param #value
!	add #comp #comp #target_win
! now reset the platform as well 
	parameter #comp #comp field #param
	parameter #comp  #comp platform #plat
	parameter #comp  #comp menu-platform #plat
	parameter #comp  #comp field-color #color
	parameter #comp  #comp icon-color #color
	parameter #comp #comp icon #iconname
! this HAS to be last
	add #comp #comp #target_win
endprocedure

define widget ssmi2_menu intmenu 'SSMI channel temperatures'
	title 'F-8 Antenna Temps (K)'
	line
	entry '19 GHz v-pol' 'putssmi2 ta19v'
	entry '19 GHz h-pol' 'putssmi2 ta19h'
	entry '22 GHz v-pol' 'putssmi2 ta22v'
	entry '37 GHz v-pol' 'putssmi2 ta37v'
	entry '37 GHz h-pol' 'putssmi2 ta37h'
	entry '85 GHz v-pol' 'putssmi2 ta85v'
	entry '85 GHz h-pol' 'putssmi2 ta85h'
	line
	entry 'F-8 Brightness Temps (K)' 'beep'
	line
	entry '19 GHz v-pol' 'putssmi2 tb19v'
	entry '19 GHz h-pol' 'putssmi2 tb19h'
	entry '22 GHz v-pol' 'putssmi2 tb22v'
	entry '37 GHz v-pol' 'putssmi2 tb37v'
	entry '37 GHz h-pol' 'putssmi2 tb37h'
	entry '85 GHz v-pol' 'putssmi2 tb85v'
	entry '85 GHz h-pol' 'putssmi2 tb85h'
	line
	entry 'Rainfall rate (mm/hr)' 'putssmi2 rr'
endmenu

define widget ssmi4_menu intmenu 'SSMI channel temperatures'
	title 'F-10 Antenna Temps (K)'
	line
	entry '19 GHz v-pol' 'putssmi4 ta19v'
	entry '19 GHz h-pol' 'putssmi4 ta19h'
	entry '22 GHz v-pol' 'putssmi4 ta22v'
	entry '37 GHz v-pol' 'putssmi4 ta37v'
	entry '37 GHz h-pol' 'putssmi4 ta37h'
	entry '85 GHz v-pol' 'putssmi4 ta85v'
	entry '85 GHz h-pol' 'putssmi4 ta85h'
	line
	entry 'F-10 Brightness Temps (K)' 'beep'
	line
	entry '19 GHz v-pol' 'putssmi4 tb19v'
	entry '19 GHz h-pol' 'putssmi4 tb19h'
	entry '22 GHz v-pol' 'putssmi4 tb22v'
	entry '37 GHz v-pol' 'putssmi4 tb37v'
	entry '37 GHz h-pol' 'putssmi4 tb37h'
	entry '85 GHz v-pol' 'putssmi4 tb85v'
	entry '85 GHz h-pol' 'putssmi4 tb85h'
	line
	entry 'Rainfall rate (mm/hr)' 'putssmi4 rr'
endmenu

define widget ssmi5_menu intmenu 'SSMI channel temperatures'
	title 'F-11 Antenna Temps (K)'
	line
	entry '19 GHz v-pol' 'putssmi5 ta19v'
	entry '19 GHz h-pol' 'putssmi5 ta19h'
	entry '22 GHz v-pol' 'putssmi5 ta22v'
	entry '37 GHz v-pol' 'putssmi5 ta37v'
	entry '37 GHz h-pol' 'putssmi5 ta37h'
	entry '85 GHz v-pol' 'putssmi5 ta85v'
	entry '85 GHz h-pol' 'putssmi5 ta85h'
	line
	entry 'F-11 Brightness Temps (K)' 'beep'
	line
	entry '19 GHz v-pol' 'putssmi5 tb19v'
	entry '19 GHz h-pol' 'putssmi5 tb19h'
	entry '22 GHz v-pol' 'putssmi5 tb22v'
	entry '37 GHz v-pol' 'putssmi5 tb37v'
	entry '37 GHz h-pol' 'putssmi5 tb37h'
	entry '85 GHz v-pol' 'putssmi5 tb85v'
	entry '85 GHz h-pol' 'putssmi5 tb85h'
	line
	entry 'Rainfall rate (mm/hr)' 'putssmi5 rr'
endmenu

procedure putssmi2 fld string
	if (fld = 'ta19v' or fld = 'ta19h' or fld = 'ta22v' or fld = 'ta37v' or fld = 'ta37h' or fld = 'ta85v' or fld = 'ta85h')
		putc3 tc_ssmi platform ssmi_s2 field #fld icon ssmi-f8
	else
		putc3 tc_ssmi platform ssmi_s2_tb field #fld icon ssmi-f8
	endif
endprocedure

procedure putssmi4 fld string
	if (fld = 'ta19v' or fld = 'ta19h' or fld = 'ta22v' or fld = 'ta37v' or fld = 'ta37h' or fld = 'ta85v' or fld = 'ta85h')
		putc3 tc_ssmi platform ssmi_s4 field #fld icon ssmi-f10
	else
		putc3 tc_ssmi platform ssmi_s4_tb field #fld icon ssmi-f10
	endif
endprocedure

procedure putssmi5 fld string
	if (fld = 'ta19v' or fld = 'ta19h' or fld = 'ta22v' or fld = 'ta37v' or fld = 'ta37h' or fld = 'ta85v' or fld = 'ta85h')
		putc3 tc_ssmi platform ssmi_s5 field #fld icon ssmi-f11
	else
		putc3 tc_ssmi platform ssmi_s5_tb field #fld icon ssmi-f11
	endif
endprocedure


procedure do-kict-origin aconfig string
	parameter defaults defaults origin-lat 37.6536
	parameter defaults defaults origin-lon -97.4428
!	parameter defaults defaults origin-alt 0.0
	display empty
	display #aconfig
	parameter big c_rings platform KICT
endprocedure