DIRECTORY  Graphics USING [PaintMode, FontRef, Color, StrokeEnds],  ViewerClasses,  Rope,  Terminal;HerculesGraphics: DEFINITIONS =  BEGIN     DcGetsPressContext: PUBLIC PROC[filename: Rope.ROPE];     DcGetsScreenContext: PUBLIC PROC;     GetNewFont: PUBLIC PROC;     DrawPattern: PUBLIC PROC[p:Terminal.BWCursorBitmap, x, y: REAL];     Hylite: PUBLIC PROC[x,y: INTEGER, d:INTEGER];     RopeBox: PUBLIC PROC[myRope: Rope.ROPE]                            RETURNS [REAL, REAL, REAL, REAL];     CharWidth: PUBLIC PROC[char: CHAR] RETURNS [REAL, REAL];     DrawChar: PUBLIC PROC [char: CHAR, x, y: REAL];     DrawRope: PUBLIC PROC [myRope: Rope.ROPE, x, y: REAL];     PaintMe: PUBLIC ViewerClasses.PaintProc;     Whiten: PUBLIC PROC;     SetPaintMode: PUBLIC PROC [mode: Graphics.PaintMode];     DrawPoint: PUBLIC PROC[x, y: REAL];     DrawEdge: PUBLIC PROC[x1, y1, x2, y2: REAL];     DrawArc: PUBLIC PROC[x1, y1, x2, y2, x3, y3, x4, y4: REAL];     DrawString: PUBLIC PROC[x3, y3: REAL,                                 myRope: Rope.ROPE,                                 stringFont: Graphics.FontRef _ myfont,                                fontName: Rope.ROPE,                                fontSize: INT,                                bold, italic: BOOL];     Log: PUBLIC PROC [item1, item2, item3, item4,                                      item5:  Rope.ROPE _ NIL];     Error: PUBLIC PROC[item1, item2, item3, item4, item5:  Rope.ROPE _ NIL];                                  Blink: PUBLIC PROC[item1, item2, item3, item4, item5:  Rope.ROPE _ NIL];                                  viewerChanged: PUBLIC BOOLEAN;      myfont: PUBLIC Graphics.FontRef;     fontHeight : PUBLIC INTEGER;     currentFont: PUBLIC Rope.ROPE;     currentPointSize: PUBLIC INT;      currentBold: PUBLIC BOOL;     currentItalic: PUBLIC BOOL;     cursorOffsetY: PUBLIC REAL;              BeginStroke: PUBLIC PROC;     EdgeStroke: PUBLIC PROC[x1, y1, x2, y2: REAL];     ArcStroke: PUBLIC PROC[x1, y1, x2, y2, x3, y3, x4, y4: REAL];     DrawStroke: PUBLIC PROC;     DrawArea: PUBLIC PROC;     PushColor: PUBLIC PROC[newColor: Graphics.Color];     PopColor: PUBLIC PROC;     PushEnds: PUBLIC PROC[newEnds: Graphics.StrokeEnds];     PopEnds: PUBLIC PROC;     PushWidth: PUBLIC PROC[r: REAL];     PopWidth: PUBLIC PROC;                END.    HerculesGraphics.mesa (ex JunoGraphics.mesa)Coded July 1982 by Donna M. Auguste & Greg NelsonLast Edited by: Stolfi, February 10, 1984 0:16 amEdited on January 26, 1984 7:57 pm, by Stolfichanges to: PushColor (changed parameter to Graphics.Color), PushEnds (changed parameter to Graphics.StrokeEnds)  Edited on February 7, 1984 7:30 pm, by Stolfi-- Renamed HerculesGraphics.mesa  changes to:   Edited on February 10, 1984 0:08 am, by Stolfichanges to: Error (new), DrawPoint (parameters are REAL)Э╩╤  Ш JЪЬ-Щ-JЪЬ╧kЬЩ2JЩ2JЪЭ	ЬЭЬOШiJЪЬЭЬЭШ'JШ JЪ	Ь╧nЬЭЬЭЬЭЬШ;JЪЬЮЬЭЬЭЬШ'JЪЬЮ
ЬЭЬЭЬШJЪ	ЬЮЬЭЬЭЬ"ЭЬШFJЪЬЮЬЭЬЭЬЭЬЭЬШ3JЪЬЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШkJЪЬЮ	ЬЭЬЭЬЭЬЭЬЭЬЭЬШ>JЪЬЮЬЭЬЭЬЭЬЭЬШ5JЪЬЮЬЭЬЭЬЭЬЭЬШ<JЪЬЭЬШ.JЪЬЮЬЭЬЭЬШJЪЬЮЬЭЬЭЬШ;JЪ	ЬЮ	ЬЭЬЭЬЭЬШ)JЪ	ЬЮЬЭЬЭЬЭЬШ2JЪ	ЬЮЬЭЬЭЬ!ЭЬШAJЪЬЮ
ЬЭЬЭЬ	ЭЬ0ЭЬyЭЬ,ЭЬ0ЭЬШ└JЪЬЮЬЭЬЭЬQЭЬЭЬШsJЪЬЮЬЭЬЭЬ*ЭЬЭЬ ШkJЪЬЮЬЭЬЭЬ*ЭЬЭЬ ШkJЪЬЭЬЭЬШ%JЪЬЭЬШ&JЪЬЭЬЭЬШ"JЪЬЭЬЭЬШ$JЪЬЭЬЭЬШ$JЪЬЭЬЭЬШJЪЬЭЬЭЬШ!JЪЬЭЬЭЬШ*JЪЬЮЬЭЬЭЬШJЪ	ЬЮ
ЬЭЬЭЬЭЬШ4JЪ	ЬЮ	ЬЭЬЭЬ!ЭЬШCJЪЬЮ
ЬЭЬЭЬШJЪЬЮЬЭЬЭЬШJЪЬЮ	ЬЭЬЭЬШ7JЪЬЮЬЭЬЭЬШJЪЬЮЬЭЬЭЬ Ш:JЪЬЮЬЭЬЭЬШJЪ	ЬЮ	ЬЭЬЭЬЭЬШ&JЪЬЮЬЭЬЭЬШ)JЪЬЭЬШЩ-JЪ	Ь╧r	ЬЯЬЯЬЯ	ЬЩrЧJЩ Щ-JЪЬ"Щ"JЪЬЩЧJЩ Щ.JЪЬЯ	ЬЩ8ЧJЩ Ч ЕЧ    	d  ;  