//_Header
//*******************************************************************
//    NOVA Central Controls  ---  Lawrence Livermore Laboratory
//*******************************************************************
//
//_Module_Name:  ccdimage	_File:  [LDDEV.MENU]ccdimage.PRX
//
//_Description:
//
//	This module is the frame definition module for the
//	dummy frame to allow DISSPLA to plot data on one of
//	the side screens of the console.
//
//_Call:
//	
//		$ RUN CCDIMAGE
//	
//_References:
//	
//		USE FRAMEDEF
//	
//_Identifier: { none }
//*******************************************************************
//_Author:  John R. Hill		_Creation_Date:   24-SEP-1982
//
//_Revisions:
//  1.000  24-SEP-1982  JRH	Initial Key-in.
//  1.001   8-DEC-1982  JLW	MAKE CCDIMAGE.
//*******************************************************************
//_End


MAIN MODULE	ccdimage


	USE	framedef

	frame_define( "reserved_ccd", 1, "CCD IMAGE FRAME", "dark_blue" );


    	//  We need to define these buttons:
    	//	execute
    	// 	erase image
    	// 	lineout label select
    	// 	do lineout ( after lineout select )
    	// 	hardcopy
    	// 	listing of lineout
    	//	
    	//	and these information
    	//	location of lineout
    	// 	width
    	declare
    		blank_char is char initially $<sp>
    		button_labels_type is packed array [1..9] of blank_char
    		ccd_image_button_labels_type is array [1..5] of button_labels_type 
    		ccd_image_button_labels = table ccd_image_button_labels_type 
    		(       "EXECUTE  ",
    	 		"ERASE    ",
    	 		"HARDCOPY ",
	 		"LINEOUT  ",
    	 		"LISTING  " )

    		    //   12345678901234567890

    		frequency_buttons_type is array [1..3] of button_labels_type 

    		frequency_buttons = table frequency_buttons_type
    		(       "ONE OMEGA",
    	 		"TWO OMEGA",
	 		"TRI OMEGA" )
    
    			numbers is packed array [1..4] of BLANK_char
    			number_text_type is array [-1..10] of numbers
    		number_text = 
		  table number_text_type ( "FIDU", "COMB", "   1", "   2", 
					   "   3", "   4", "   5", "   6", 
					   "   7", "   8", "   9", "  10"   )
    	enddeclare

	df_move (0, 0)
	df_draw_line (   0, 511, "dark_blue")
	df_draw_line ( 639, 511, "dark_blue")
	df_draw_line ( 639,   0, "dark_blue")
	df_draw_line (   0,   0, "dark_blue")
	df_move (239, 0)
	df_draw_line (   239, 511, "dark_blue")
	df_move ( 559, 0)
	df_draw_line (   559, 511, "dark_blue")

    	declare 
    		x_begin = 10
    		x_end = x_begin + 50
		x : integer
		y : integer
    	enddeclare

    		DECLARE ( CHAIN_ORIGIN = 300 )
    	df_draw_text ( "CHAIN:", 0, 134, CHAIN_ORIGIN,
			 "CHAIN : ", "bright_yellow", 1,"nosel" )


    		Y := CHAIN_ORIGIN - 30
		x := 120

	for j := 10 DOWNto -1 do
     	    df_draw_text ( "number text", J, x, y,
			 number_text[J],"bright_yellow", 1,"sel" )
		y *= -21
    	endfor

    		y := 130

    	for i := 1 to 5 do
    		y *= +30
    	df_draw_text ( ccd_image_button_labels [i], 1, 
		x_begin, y, ccd_image_button_labels [i],  
		"bright_yellow", 1,"sel" )
    	endfor

    

  frame_end()


ENDMODULE