go

	#
	# Get the box ready...
	#
	limits $lo_x $hi_x $lo_y $hi_y
	erase
	location 5000 30000 5000 30000
	ctype black
	expand 1.2
	box
	relocate (5000 31000)
	expand 1.8
	xlabel Wavelength (nm)
	ylabel Transmission (%)
	expand 0.8
	

	#
	# Plot CCD efficiency...
	#
	if('$ccd' == 'yes'){
		ctype blue
		data "data/"WFI_CCD57qe
		read {lam2 1 ccd 2}
		ptype 4 3
		ltype 0
		points  lam2 ccd
		connect lam2 ccd
	}

		
	ptype 10 3
	ltype 0
	ctype red


	foreach filt ($filt1 $filt2 $filt3 $filt4){

		if ('$filt' != 'none'){

			#
			# Plot filter TX curve...
			#
			data "data/"$filt.dat
			read {lam 1 tx 2}
			set tx = tx*100		# Convert tx to percentage...
			points  lam tx
			connect lam tx
	
			# Label filter...
			
			if ('$lbls' == 'yes'){
				set x = lam if(lam < 950) # Ignore max TX if in red leak...
				set y = tx  if(lam < 950) # Ignore max TX if in red leak...
				sort {y x}
				define xlab (x[dimen(x)-1])
				define ylab (y[dimen(x)-1])
					relocate $xlab $ylab
				angle 90
				putlabel 6  " "$filt
				angle 0
			}
		}
	}