!
! Add stuff to a time-height display.
!


!
! Make sure that a given component is in this window, and that it is
! displaying the desired platform.
!
procedure th-cadd comp string plat string win string
	if (not pd_defined (win, comp, 'platform'))
		add #comp #comp #win
	endif
	parameter #win #comp platform #plat
endprocedure





procedure theight-add plat string field string win string
	parameter #win global plot-hold true
!
! What we do depends a lot on what sort of data is coming in.
!
	if (substring (plat, 'prof/') or realplatform (concat ('prof/', plat)))
		th-cadd tc-thcontour #plat #win
		th-cadd tc-thwinds #plat #win
	elseif (substring(plat,'sounding/') or realplatform(concat('sounding/',plat)))
		th-cadd tc-sndcontour #plat #win
		th-cadd tc-sndwinds #plat #win
	elseif (substring(plat,'rass/') or realplatform(concat('rass/',plat)))
	        th-cadd tc-rasscontour #plat #win
	else
		beep	! cant do it
	endif

	parameter #win global plot-hold false
endprocedure