!
! Support for GMS satellite image data.
!

!
! Middle icon menu for gms data.
!
define widget gms-middle intmenu 'GMS field menu'
	title 'GMS satellite'
	line
        entry 'Honiara Wide Area MCIDAS dataset' 'gms_plat gms-big' \
                (pd_param(icon_component,"platform","string") = "gms-big")
	entry 'Honiara MCIDAS dataset' 'gms_plat gms' \
		(pd_param(icon_component,"platform","string") = "gms")
	entry 'Flament dataset' 'gms_plat flament_ir' \
		(pd_param(icon_component,"platform","string") = "flament_ir")
	line
!	entry 'Zeb IR Scale' 'zeb_gms_scale'
	entry 'black & white; red highlight < 208 K color table'\
		 'param #icon_component color-table ir_gray' \
		(pd_param (icon_component,"color-table","string") = "ir_gray")
	entry 'black & white; blue highlight < 226 K color table'\
		 'param #icon_component color-table new_ir_gray' \
		(pd_param (icon_component,"color-table","string") = "new_ir_gray")
	entry 'black & white color table'\
		 'param #icon_component color-table 16gray' \
		(pd_param (icon_component,"color-table","string") = "16gray")
!	entry 'black & white "log" color table'\
!		 'param #icon_component color-table newgray' \
!		(pd_param ("global","color-table","string") = "newgray")
!	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")
!	submenu 'Chen Color Tables' ChenColorTables
	line
	entry 'Raster representation' \
		'param #icon_component representation raster'
	entry 'Contour representation' \
		'param #icon_component representation contour;param #icon_component color-mono true;param #icon_component color white'
!	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


!
! Stuff done for Shuyi.
!

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


procedure gms_plat plat string
	parameter #icon_component platform #plat
endprocedure
