!
! The menu for uci data 
!


define widget p3uci-field intmenu 'Electra fields'
	title "P3 UCI Color Code Fields"
	line
	entry 'Altitude (m above MSL)' 'fldset "alt"' \
		(pd_param(icon_component, "field", "string") = "alt")
	entry 'Pressure (mb)' 'fldset "pres"' \
		(pd_param(icon_component, "field", "string") = "pres")
	entry 'Ambient Temperature (C)' 'fldset "temperature"' \
		(pd_param(icon_component, "field", "string") = "temperature")
	entry 'Dew point (C)' 'fldset "dp"' \
		(pd_param(icon_component, "field", "string") = "dp")
	entry 'J-W cloud liquid water (g/m3)' 'fldset "jwclw"' \
		(pd_param(icon_component, "field", "string") = "jwclw")
	entry 'Wind Speed (m/s)' 'fldset "wspd"' \
		(pd_param(icon_component, "field", "string") = "wspd")
	entry 'Wind Direction (deg)' 'fldset "wdir"' \
		(pd_param(icon_component, "field", "string") = "wdir")
	entry 'Vertical Wind (m/s)' 'fldset "w_wind"' \
		(pd_param(icon_component, "field", "string") = "w_wind")
	entry 'Downward-looking CO2 radiometer (C)' 'fldset "dlco2r"' \
		(pd_param(icon_component, "field", "string") = "dlco2r")
	entry 'Side-looking CO2 radiometer (C)' 'fldset "slco2r"' \
		(pd_param(icon_component, "field", "string") = "slco2r")
	entry 'Ground Speed (m/s)' 'fldset "gspeed"' \
		(pd_param(icon_component, "field", "string") = "gspeed")
	entry 'True Air Speed (m/s)' 'fldset "taspeed"' \
		(pd_param(icon_component, "field", "string") = "taspeed")
	entry 'Track Angle (deg)' 'fldset "track"' \
		(pd_param(icon_component, "field", "string") = "track")
	entry 'Heading Angle (deg)' 'fldset "heading"' \
		(pd_param(icon_component, "field", "string") = "heading")
	entry 'Pitch (deg)' 'fldset "pitch"' \
		(pd_param(icon_component, "field", "string") = "pitch")
	entry 'Roll (deg)' 'fldset "roll"' \
		(pd_param(icon_component, "field", "string") = "roll")
	! added to accomodate additional fields in dkuci platforms
	line
	entry 'CP temperature (deg)' 'fldset "cp_temperature"' \
		(pd_param(icon_component, "field", "string") = "cp_temperature")
	entry 'CP Dewpoint (deg)' 'fldset "cp_dp"' \
		(pd_param(icon_component, "field", "string") = "cp_dp")
	entry 'Theta (deg)' 'fldset "theta"' \
		(pd_param(icon_component, "field", "string") = "theta")
	entry 'ThetaE (deg)' 'fldset "thetae"' \
		(pd_param(icon_component, "field", "string") = "thetae")
	entry 'ThetaV (deg)' 'fldset "thetav"' \
		(pd_param(icon_component, "field", "string") = "thetav")
	entry 'U Wind (m/s)' 'fldset "u_wind"' \
		(pd_param(icon_component, "field", "string") = "u_wind")
	entry 'V Wind (m/s)' 'fldset "v_wind"' \
		(pd_param(icon_component, "field", "string") = "v_wind")
	entry 'Precip Flag' 'fldset "precip_flag"' \
		(pd_param(icon_component, "field", "string") = "precip_flag")
	entry 'U Grd Speed (m/s)' 'fldset "u_gspeed"' \
		(pd_param(icon_component, "field", "string") = "u_gspeed")
	entry 'V Grd Speed (m/s)' 'fldset "v_gspeed"' \
		(pd_param(icon_component, "field", "string") = "v_gspeed")
	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

!
! Simple color menus for the winds.
!
!
! A color menu for components with a simple "color" component.
!
define widget simple-color-winds intmenu 'simple colors'
	title 'Change Color'
	line
	entry 'white' 'do_air_color white'
	entry 'black' 'do_air_color black'
	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'
	entry 'forest' 'do_air_color forestgreen'
	entry 'Dark Pink' 'do_air_color DeepPink1'
	entry 'orange' 'do_air_color orange'
	entry 'DarkGoldenrod' 'do_air_color DarkGoldenrod'
	entry 'dodger blue' 'do_air_color DodgerBlue'
	entry 'cadet blue' 'do_air_color CadetBlue'
	entry 'chartreuse' 'do_air_color chartreuse'
	entry 'gold' 'do_air_color gold'
	entry 'coral' 'do_air_color coral'
	entry 'maroon' 'do_air_color maroon'
	entry 'magenta' 'do_air_color magenta'
	entry 'blue violet' 'do_air_color BlueViolet'
	entry 'dark violet' 'do_air_color DarkViolet'
	entry 'plum' 'do_air_color plum'
	entry 'lt pink' 'do_air_color LightPink'
	entry 'orange red' 'do_air_color OrangeRed'
	entry 'medium blue' 'do_air_color MediumBlue'
	entry 'light sky blue' 'do_air_color LightSkyBlue'
	entry 'powder blue' 'do_air_color PowderBlue'
	entry 'light slate blue' 'do_air_color LightSlateBlue'
	entry 'cornflower blue' 'do_air_color CornflowerBlue'
	entry 'medium turquoise' 'do_air_color MediumTurquoise'
	entry 'aquamarine' 'do_air_color Aquamarine'        
	submenu 'Gray scales' 'simple-gray-winds'
endmenu

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


!
! Actually tweak the color.
!
procedure do_simple_color color string
	local colortweaker PDParam(icon_component,'color-tweaker')
	if (colortweaker <> "(Undefined)")
		#colortweaker #color
	else
		if (icon_component = 'global' or icon_component = 'GLOBAL')
			parameter global ta-color #color
		else
			parameter #icon_component color #color
		endif
	endif
endprocedure

! do_air_color is defined in gp.init

define widget tseries-p3uci-fields intmenu 'TSeries Fields'
	title 'Select Two Fields'
	line
	entry 'Altitude (m)' 'toggle_field alt' \
	   (substring(pd_param(icon_component, "field", "string"),"alt"))
	entry 'Pressure' 'toggle_field pres' \
	   (substring(pd_param(icon_component, "field", "string"),"pres"))
	entry 'Temperature' 'toggle_field temperature' \
	   (substring(pd_param(icon_component, "field", "string"),"temperature"))
	entry 'Dewpoint' 'toggle_field dp' \
	   (substring(pd_param(icon_component, "field", "string"),"dp"))
	entry 'J-W Cloud Liquid Water Content' 'toggle_field jwclw' \
	   (substring(pd_param(icon_component, "field", "string"),"jwclw"))
	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 'Downward-looking CO2 radiometer' 'toggle_field dlco2r'\
	   (substring(pd_param(icon_component,"field","string"),"dlco2r"))
	entry 'Side-looking CO2 radiometer' 'toggle_field slco2r'\
	   (substring(pd_param(icon_component,"field","string"),"slco2r"))
	entry 'Ground Speed' 'toggle_field gspeed'\
	   (substring(pd_param(icon_component,"field","string"),"gspeed"))
	entry 'True Air Speed' 'toggle_field taspeed'\
	   (substring(pd_param(icon_component,"field","string"),"taspeed"))
	entry 'Track Angle' 'toggle_field track'\
	   (substring(pd_param(icon_component,"field","string"),"track"))
	entry 'Heading' 'toggle_field heading'\
	   (substring(pd_param(icon_component,"field","string"),"heading"))
	entry 'Pitch' 'toggle_field pitch'\
	   (substring(pd_param(icon_component,"field","string"),"pitch"))
	entry 'Roll' 'toggle_field roll'\
	   (substring(pd_param(icon_component,"field","string"),"roll"))
! added to accomodate additional fields in dkuci platforms
	line
	entry 'CP temperature' 'toggle_field cp_temperature'\
	   (substring(pd_param(icon_component,"field","string"),"cp_temperature"))
	entry 'CP Dewpoint' 'toggle_field cp_dp'\
	   (substring(pd_param(icon_component,"field","string"),"cp_dp"))
! this menu flag is not highlighting when selected
	!entry 'Theta' 'toggle_field theta'\
	!   (PDParam(icon_component,'field') = 'theta' or \
        !        substring(PDParam(icon_component,'field'),'theta,') or \
        !        substring(PDParam(icon_component,'field'),',theta'))
	entry 'Theta' 'toggle_field theta'\
	    (ListPosition("theta",PDParam(icon_component, "field")) > -1)
	!   (substring(pd_param(icon_component,"field","string"),"theta"))
	entry 'ThetaE' 'toggle_field thetae'\
	   (substring(pd_param(icon_component,"field","string"),"thetae"))
	entry 'ThetaV' 'toggle_field thetav'\
	   (substring(pd_param(icon_component,"field","string"),"thetav"))
	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 'Precip Flag' 'toggle_field precip_flag'\
	   (substring(pd_param(icon_component,"field","string"),"precip_flag"))
	entry 'U Grnd Speed' 'toggle_field u_gspeed'\
	   (substring(pd_param(icon_component,"field","string"),"u_gspeed"))
	entry 'V Grnd Speed' 'toggle_field v_gspeed'\
	   (substring(pd_param(icon_component,"field","string"),"v_gspeed"))
!	line
!	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