(****************************************************************************)
(*                                                                          *)
(*                           GSX Text Module                                *)
(*                           ===============                                *)
(* This Module contains all GSX functions for drawing text on graphic 	    *)
(* devices. Note that not all functions may be implemented for each device, *)
(* but 1 font, 1 size and 1 direction should be available.		    *)
(*                                                                          *)
(* 26.1.1988          Wolfgang Muees, Hagenring 22, 3300 Braunschweig       *)
(*                                                                          *)
(****************************************************************************)

DEFINITION MODULE GSXTEXT;

VAR CharWidth  : CARDINAL;	(* X dimension of an uppercase "W" *)
    CharHeight : CARDINAL;	(* Y dimension of an uppercase "W" *)
    CellWidth  : CARDINAL;	(* X Dimension for character & boarder *)
    CellHeight : CARDINAL;	(* Y Dimension for character & boarder *)

PROCEDURE DrawText ( X, Y : CARDINAL; Text : ARRAY OF CHAR );  (* Draw a text string,
					starting at coordinates X,Y. If the string cross
					screen bounds, nothing harmfull happens, however,
					you might not se him. Note that Text length is
					trunced to CinLen ( see GSXMAIN.DEF ). *)

PROCEDURE PGC ( X, Y : CARDINAL; Text : ARRAY OF CHAR );       (* Draw graphic characters.
					Same as DrawText, but the ASCII values in Text are
					translated in graphic symbols like frames, edges etc.
					This function is device-dependent ! *)

PROCEDURE CharSize ( Height : CARDINAL );  (* Trys to set a text zoom factor. Actual values
					for text dimensions are returned in GSXTEXT VARs
					defined above. *)

PROCEDURE CharAngle ( Angle : CARDINAL ); (* Sets direction vector for writing text or symbols.
					Range is from [0..3600] in 1/10 deg. increment. 0 deg.
					is the normal text direction, values increasing ccw. *)

PROCEDURE CharFont ( Number : CARDINAL ); (* Select a text font. Highly device dependent. *)

PROCEDURE CharColor ( Color : CARDINAL ); (* Select a character color index. *)

END GSXTEXT.

                                                                                                              