ðQSyntax10.Scn.Fnt/Syntax10b.Scn.Fnt   Syntax10i.Scn.Fntï6T ` {^X`‚{ ^ˆ {j¥ÆMODULE Printer; IMPORT Printers, Fonts; VAR PageHeight*, PageWidth*: INTEGER; (** in 300 dpi pixels **) res*: INTEGER; PROCEDURE Open* (name, user: ARRAY OF CHAR; password: LONGINT); BEGIN Printers.Current.Open(name, user, password); PageHeight := Printers.Current.pageHeight; PageWidth := Printers.Current.pageWidth; res := Printers.Current.res; END Open; PROCEDURE Close*; BEGIN Printers.Current.Close END Close; PROCEDURE Page* (nofcopies: INTEGER); BEGIN Printers.Current.Page(nofcopies) END Page; PROCEDURE ReplConst* (x, y, w, h: INTEGER); BEGIN Printers.Current.ReplConst(x, y, w, h) END ReplConst; PROCEDURE ReplPattern* (x, y, w, h: INTEGER; patno: INTEGER); BEGIN Printers.Current.ReplPattern(x, y, w, h, patno) END ReplPattern; PROCEDURE Line* (x0, y0, x1, y1: INTEGER); BEGIN Printers.Current.Line(x0, y0, x1, y1) END Line; PROCEDURE Circle* (x0, y0, r: INTEGER); BEGIN Printers.Current.Circle(x0, y0, r) END Circle; PROCEDURE Ellipse* (x0, y0, a, b: INTEGER); BEGIN Printers.Current.Ellipse(x0, y0, a, b) END Ellipse; PROCEDURE Spline* (x0, y0, n, open: INTEGER; X, Y: ARRAY OF INTEGER); BEGIN Printers.Current.Spline(x0, y0, n, open, X, Y) END Spline; PROCEDURE Picture* (x, y, w, h, mode: INTEGER; adr: LONGINT); BEGIN Printers.Current.Picture(x, y, w, h, mode, adr) END Picture; PROCEDURE UseListFont* (name: ARRAY OF CHAR); BEGIN Printers.Current.UseListFont(name) END UseListFont; PROCEDURE String* (x, y: INTEGER; str: ARRAY OF CHAR; VAR fname: ARRAY OF CHAR); BEGIN Printers.Current.String(x, y, str, fname) END String; PROCEDURE ContString* (str: ARRAY OF CHAR; VAR fname: ARRAY OF CHAR); BEGIN Printers.Current.ContString(str, fname) END ContString; PROCEDURE UseColor* (red, green, blue: INTEGER); BEGIN Printers.Current.UseColor(red, green, blue) END UseColor; PROCEDURE GetChar* (f: Fonts.Font; ch: CHAR; VAR dx, x, y, w, h: INTEGER); (* 300 dpi metrics *) BEGIN Printers.Current.GetChar(f, ch, dx, x, y, w, h) END GetChar; END Printer.