Oberon/V2/GraphicFrames

MODULE GraphicFrames; (*NW 18.4.88 / 22.11.91*) IMPORT Display, Viewers, Input, Fonts, Texts, Graphics, Oberon, MenuViewers; CONST (*update message ids*) restore = 0; drawobj = 1; drawobjs = 2; drawobjd = 3; drawnorm = 4; drawsel = 5; drawdel = 6; markW = 5; TYPE Frame* = POINTER TO FrameDesc; Location* = POINTER TO LocDesc; LocDesc* = RECORD x*, y*: INTEGER; next*: Location END ; FrameDesc* = RECORD (Display.FrameDesc) graph*: Graphics.Graph; Xg*, Yg*: INTEGER; (*pos rel to graph origin*) X1*, Y1*: INTEGER; (*right and upper margins*) x*, y*, col*: INTEGER; (*x = X + Xg, y = Y + Yg*) marked*, ticked*: BOOLEAN; mark*: LocDesc END ; DrawMsg* = RECORD (Graphics.Msg) f*: Frame; x*, y*, col*, mode*: INTEGER END ; CtrlMsg* = RECORD (Graphics.Msg) f*: Frame; res*: INTEGER END ; UpdateMsg = RECORD (Display.FrameMsg) id: INTEGER; graph: Graphics.Graph; obj: Graphics.Object END ; SelQuery = RECORD (Display.FrameMsg) f: Frame; time: LONGINT END ; FocusQuery = RECORD (Display.FrameMsg) f: Frame END ; PosQuery = RECORD (Display.FrameMsg) f: Frame; x, y: INTEGER END ; DispMsg = RECORD (Display.FrameMsg) x1, y1, w: INTEGER; pat: Display.Pattern; graph: Graphics.Graph END ; VAR Crosshair*: Oberon.Marker; newcap: Graphics.Caption; DW, DH, CL: INTEGER; W: Texts.Writer; (*Exported procedures: 		Restore, Focus, Selected, This, Draw, Erase, 		DrawObj, EraseObj, Change, Defocus, Deselect, Macro, New*) PROCEDURE Restore*(F: Frame); VAR M: DrawMsg; x, y, col: INTEGER; BEGIN F.X1 := F.X + F.W; F.Y1 := F.Y + F.H; 		F.x := F.X + F.Xg; F.y := F.Y1 + F.Yg; F.marked := FALSE; F.mark.next := NIL; IF F.X < CL THEN col := Display.black ELSE col := F.col END ; Oberon.RemoveMarks(F.X, F.Y, F.W, F.H); Display.ReplConst(col, F.X, F.Y, F.W, F.H, 0); IF F.ticked THEN y := F.Yg MOD 16 + F.Y1 - 16; WHILE y >= F.Y DO (*draw ticks*) x := F.Xg MOD 16 + F.X; 				WHILE x < F.X1 DO Display.Dot(Display.white, x, y, 0); INC(x, 16) END ; DEC(y, 16) END END ; M.f := F; M.x := F.x; M.y := F.y; M.col := 0; M.mode := 0; Graphics.Draw(F.graph, M) 	END Restore; PROCEDURE Focus*: Frame; VAR FQ: FocusQuery; BEGIN FQ.f := NIL; Viewers.Broadcast(FQ); RETURN FQ.f 	END Focus; PROCEDURE Selected*: Frame; VAR SQ: SelQuery; BEGIN SQ.f := NIL; SQ.time := 0; Viewers.Broadcast(SQ); RETURN SQ.f 	END Selected; PROCEDURE This*(x, y: INTEGER): Frame; VAR PQ: PosQuery; BEGIN PQ.f := NIL; PQ.x := x; PQ.y := y; Viewers.Broadcast(PQ); RETURN PQ.f 	END This; PROCEDURE Draw*(F: Frame); VAR UM: UpdateMsg; BEGIN UM.id := drawsel; UM.graph := F.graph; Viewers.Broadcast(UM) END Draw; PROCEDURE DrawNorm(F: Frame); VAR UM: UpdateMsg; BEGIN UM.id := drawnorm; UM.graph := F.graph; Viewers.Broadcast(UM) END DrawNorm; PROCEDURE Erase*(F: Frame); VAR UM: UpdateMsg; BEGIN UM.id := drawdel; UM.graph := F.graph; Viewers.Broadcast(UM) END Erase; PROCEDURE DrawObj*(F: Frame; obj: Graphics.Object); VAR UM: UpdateMsg; BEGIN UM.id := drawobj; UM.graph := F.graph; UM.obj := obj; Viewers.Broadcast(UM) END DrawObj; PROCEDURE EraseObj*(F: Frame; obj: Graphics.Object); VAR UM: UpdateMsg; BEGIN UM.id := drawobjd; UM.graph := F.graph; UM.obj := obj; Viewers.Broadcast(UM) END EraseObj; PROCEDURE Change*(F: Frame; VAR msg: Graphics.Msg); BEGIN IF F # NIL THEN Erase(F); Graphics.Handle(F.graph, msg); Draw(F) END END Change; PROCEDURE FlipMark(x, y: INTEGER); BEGIN Display.ReplConst(Display.white, x-7, y, 15, 1, 2); Display.ReplConst(Display.white, x, y-7, 1, 15, 2) END FlipMark; PROCEDURE Defocus*(F: Frame); VAR m: Location; BEGIN newcap := NIL; IF F.marked THEN FlipMark(F.mark.x, F.mark.y); m := F.mark.next; WHILE m # NIL DO FlipMark(m.x, m.y); m := m.next END ; F.marked := FALSE; F.mark.next := NIL END END Defocus; PROCEDURE Deselect*(F: Frame); VAR UM: UpdateMsg; BEGIN IF F # NIL THEN UM.id := drawnorm; UM.graph := F.graph; Viewers.Broadcast(UM); Graphics.Deselect(F.graph) END END Deselect; PROCEDURE Macro*(VAR Lname, Mname: ARRAY OF CHAR); VAR x, y: INTEGER; F: Frame; mac: Graphics.Macro; mh: Graphics.MacHead; L: Graphics.Library; BEGIN F := Focus; IF F # NIL THEN x := F.mark.x - F.x; y := F.mark.y - F.y; 			L := Graphics.ThisLib(Lname, FALSE); IF L # NIL THEN mh := Graphics.ThisMac(L, Mname); IF mh # NIL THEN Deselect(F); Defocus(F); NEW(mac); mac.x := x; mac.y := y; mac.w := mh.w; mac.h := mh.h; 					mac.mac := mh; mac.do := Graphics.MacMethod; mac.col := Oberon.CurCol; Graphics.Add(F.graph, mac); DrawObj(F, mac) END END END END Macro; PROCEDURE CaptionCopy(F: Frame; 			x1, y1: INTEGER; T: Texts.Text; beg, end: LONGINT): Graphics.Caption; VAR ch: CHAR; dx, w, x2, y2, w1, h1: INTEGER; cap: Graphics.Caption; pat: Display.Pattern; R: Texts.Reader; BEGIN Texts.Write(W, 0DX); NEW(cap); cap.len := SHORT(end - beg); cap.pos := SHORT(Graphics.T.len)+1; cap.do := Graphics.CapMethod; Texts.OpenReader(R, T, beg); Texts.Read(R, ch); W.fnt := R.fnt; W.col := R.col; w := 0; cap.x := x1 - F.x; cap.y := y1 - F.y + R.fnt.minY; WHILE beg < end DO 			Display.GetChar(R.fnt.raster, ch, dx, x2, y2, w1, h1, pat); INC(w, dx); INC(beg); Texts.Write(W, ch); Texts.Read(R, ch) END ; cap.w := w; cap.h := W.fnt.height; cap.col := W.col; Texts.Append(Graphics.T, W.buf); Graphics.Add(F.graph, cap); RETURN cap END CaptionCopy; PROCEDURE SendCaption(cap: Graphics.Caption); VAR M: Oberon.CopyOverMsg; BEGIN M. text := Graphics.T; M.beg := cap.pos; M.end := M.beg + cap.len; Viewers.Broadcast(M) END SendCaption; PROCEDURE Edit(F: Frame; x0, y0: INTEGER; k0: SET); VAR obj: Graphics.Object; x1, y1, w, h, t, pos: INTEGER; beg, end, time: LONGINT; k1, k2: SET; ch: CHAR; mark, newmark: Location; T: Texts.Text; Fd: Frame; G: Graphics.Graph; CM: CtrlMsg; name: ARRAY 32 OF CHAR; PROCEDURE NewLine(x, y, w, h: INTEGER); VAR line: Graphics.Line; BEGIN NEW(line); line.col := Oberon.CurCol; line.x := x - F.x; line.y := y - F.y; 			line.w := w; line.h := h; line.do := Graphics.LineMethod; Graphics.Add(G, line) END NewLine; BEGIN k1 := k0; G := F.graph; IF k0 = {1} THEN obj := Graphics.ThisObj(G, x0 - F.x, y0 - F.y); IF (obj # NIL) & ~obj.selected THEN CM.f := F; CM.res := 0; obj.do.handle(obj, CM); IF CM.res # 0 THEN (*done*) k0 := {} END END END ; REPEAT Input.Mouse(k2, x1, y1); k1 := k1 + k2; DEC(x1, (x1-F.x) MOD 4); DEC(y1, (y1-F.y) MOD 4); Oberon.DrawCursor(Oberon.Mouse, Crosshair, x1, y1) UNTIL k2 = {}; Oberon.FadeCursor(Oberon.Mouse); IF k0 = {2} THEN (*left key*) w := ABS(x1-x0); h := ABS(y1-y0); IF k1 = {2} THEN IF (w < 7) & (h < 7) THEN (*set mark*) IF (x1 - markW >= F.X) & (x1 + markW < F.X1) & (y1 - markW >= F.Y) & (y1 + markW < F.Y1) THEN Defocus(F); Oberon.PassFocus(Viewers.This(F.X, F.Y)); F.mark.x := x1; F.mark.y := y1; F.marked := TRUE; FlipMark(x1, y1) END ELSE (*draw line*) Deselect(F); IF w < h THEN IF y1 < y0 THEN y0 := y1 END ; NewLine(x0, y0, Graphics.width, h) 					ELSE IF x1 < x0 THEN x0 := x1 END ; NewLine(x0, y0, w, Graphics.width) END ; Draw(F) END ELSIF k1 = {2, 1} THEN (*copy selection to caret mark*) Deselect(F); Oberon.GetSelection(T, beg, end, time); IF time >= 0 THEN DrawObj(F, CaptionCopy(F, x1, y1, T, beg, end)) END ELSIF k1 = {2, 0} THEN IF F.marked THEN (*set secondary mark*) NEW(newmark); newmark.x := x1; newmark.y := y1; newmark.next := NIL; FlipMark(x1, y1); mark := F.mark.next; IF mark = NIL THEN F.mark.next := newmark ELSE WHILE mark.next # NIL DO mark := mark.next END ; mark.next := newmark END END END ELSIF k0 = {1} THEN (*middle key*) IF k1 = {1} THEN (*move*) IF (x0 # x1) OR (y0 # y1) THEN Fd := This(x1, y1); Erase(F); IF Fd = F THEN Graphics.Move(G, x1-x0, y1-y0) ELSIF (Fd # NIL) & (Fd.graph = G) THEN Graphics.Move(G, (x1-Fd.x-x0+F.x) DIV 4 * 4, (y1-Fd.y-y0+F.y) DIV 4 * 4) END ; Draw(F) END ELSIF k1 = {1, 2} THEN (*copy*) Fd := This(x1, y1); IF Fd # NIL THEN DrawNorm(F); IF Fd = F THEN Graphics.Copy(G, G, x1-x0, y1-y0) ELSE Deselect(Fd); Graphics.Copy(G, Fd.graph, (x1-Fd.x-x0+F.x) DIV 4 * 4, (y1-Fd.y-y0+F.y) DIV 4 * 4) END ; Draw(Fd) END ELSIF k1 = {1, 0} THEN (*shift graph origin*) INC(F.Xg, x1-x0); INC(F.Yg, y1-y0); Restore(F) END ELSIF k0 = {0} THEN (*right key: select*) newcap := NIL; IF (ABS(x0-x1) < 7) & (ABS(y0-y1) < 7) THEN IF ~(2 IN k1) THEN Deselect(F) END ; obj := Graphics.ThisObj(G, x1 - F.x, y1 - F.y); IF obj # NIL THEN Graphics.SelectObj(G, obj); DrawObj(F, obj); IF (k1 = {0, 1}) & (obj IS Graphics.Caption) THEN SendCaption(obj(Graphics.Caption)) END END ELSE Deselect(F); IF x1 < x0 THEN t := x0; x0 := x1; x1 := t END ; IF y1 < y0 THEN t := y0; y0 := y1; y1 := t END ; Graphics.SelectArea(G, x0 - F.x, y0 - F.y, x1 - F.x, y1 - F.y); Draw(F) END END END Edit; PROCEDURE NewCaption(F: Frame; col: INTEGER; font: Fonts.Font); BEGIN Texts.Write(W, 0DX); NEW(newcap); newcap.x := F.mark.x - F.x; newcap.y := F.mark.y - F.y + font.minY; newcap.w := 0; newcap.h := font.height; newcap.col := col; newcap.pos := SHORT(Graphics.T.len + 1); newcap.len := 0; newcap.do := Graphics.CapMethod; Graphics.Add(F.graph, newcap); W.fnt := font END NewCaption; PROCEDURE InsertChar(F: Frame; ch: CHAR); VAR w1, h1: INTEGER; DM: DispMsg; BEGIN DM.graph := F.graph; Display.GetChar(W.fnt.raster, ch, DM.w, DM.x1, DM.y1, w1, h1, DM.pat); DEC(DM.y1, W.fnt.minY); IF newcap.x + newcap.w + DM.w + F.x < F.X1 THEN Viewers.Broadcast(DM); INC(newcap.w, DM.w); INC(newcap.len); Texts.Write(W, ch) END ; Texts.Append(Graphics.T, W.buf) END InsertChar; PROCEDURE DeleteChar(F: Frame); VAR w1, h1: INTEGER; ch: CHAR; pos: LONGINT; DM: DispMsg; R: Texts.Reader; BEGIN DM.graph := F.graph; IF newcap.len > 0 THEN pos := Graphics.T.len; Texts.OpenReader(R, Graphics.T, pos-1); (*backspace*) Texts.Read(R, ch); IF ch >= " " THEN Display.GetChar(R.fnt.raster, ch, DM.w, DM.x1, DM.y1, w1, h1, DM.pat); DEC(newcap.w, DM.w); DEC(newcap.len); DEC(DM.y1, R.fnt.minY); Viewers.Broadcast(DM); Texts.Delete(Graphics.T, pos-1, pos) END END END DeleteChar; PROCEDURE GetSelection(F: Frame; VAR text: Texts.Text; VAR beg, end, time: LONGINT); VAR obj: Graphics.Object; BEGIN obj := F.graph.sel; IF (obj # NIL) & (obj IS Graphics.Caption) & (F.graph.time >= time) THEN WITH obj: Graphics.Caption DO beg := obj.pos; end := obj.pos + obj.len END ; text := Graphics.T; time := F.graph.time END END GetSelection; PROCEDURE* Handle(G: Display.Frame; VAR M: Display.FrameMsg); VAR i: LONGINT; ch: CHAR; x, y: INTEGER; DM: DispMsg; dM: DrawMsg; G1: Frame; PROCEDURE move(G: Frame; dx, dy: INTEGER); VAR M: UpdateMsg; BEGIN Defocus(G); Oberon.FadeCursor(Oberon.Mouse); M.id := drawdel; M.graph := G.graph; Viewers.Broadcast(M); Graphics.Move(G.graph, dx, dy); M.id := drawsel; Viewers.Broadcast(M) END move; BEGIN WITH G: Frame DO 			IF M IS Oberon.InputMsg THEN WITH M: Oberon.InputMsg DO 					IF M.id = Oberon.track THEN x := M.X - (M.X - G.x) MOD 4; y := M.Y - (M.Y - G.y) MOD 4; IF M.keys # {} THEN Edit(G, x, y, M.keys) ELSE Oberon.DrawCursor(Oberon.Mouse, Crosshair, x, y) 						END ELSIF M.id = Oberon.consume THEN IF M.ch = 7FX THEN IF newcap # NIL THEN DeleteChar(G) ELSE Oberon.FadeCursor(Oberon.Mouse); Defocus(G); Erase(G); Graphics.Delete(G.graph) END ELSIF M.ch = 91X THEN Restore(G) ELSIF M.ch = 93X THEN G.Xg := -1; G.Yg := 0; Restore(G) (*reset*) ELSIF M.ch = 0C1X THEN move(G, 0, 1) ELSIF M.ch = 0C2X THEN move(G, 0, -1) ELSIF M.ch = 0C3X THEN move(G, 1, 0) ELSIF M.ch = 0C4X THEN move(G, -1, 0) ELSIF (M.ch >= 20X) & (M.ch <= 86X) THEN IF newcap # NIL THEN InsertChar(G, M.ch) ELSIF G.marked THEN Defocus(G); Deselect(G); NewCaption(G, M.col, M.fnt); InsertChar(G, M.ch) END END END END ELSIF M IS UpdateMsg THEN WITH M: UpdateMsg DO 					IF M.graph = G.graph THEN dM.f := G; dM.x := G.x; dM.y := G.y; dM.col := 0; CASE M.id OF 							restore: Restore(G) | drawobj: dM.mode := 0; M.obj.do.draw(M.obj, dM) | drawobjs: dM.mode := 1; M.obj.do.draw(M.obj, dM) | drawobjd: dM.mode := 3; M.obj.do.draw(M.obj, dM) | drawsel: dM.mode := 0; Graphics.DrawSel(G.graph, dM) | drawnorm: dM.mode := 2; Graphics.DrawSel(G.graph, dM) | drawdel: dM.mode := 3; Graphics.DrawSel(G.graph, dM) END END END ELSIF M IS SelQuery THEN WITH M: SelQuery DO 					IF (G.graph.sel # NIL) & (M.time < G.graph.time) THEN M.f := G; M.time := G.graph.time END END ELSIF M IS FocusQuery THEN IF G.marked THEN M(FocusQuery).f := G END ELSIF M IS PosQuery THEN WITH M: PosQuery DO 					IF (G.X <= M.x) & (M.x < G.X1) & (G.Y <= M.y) & (M.y < G.Y1) THEN M.f := G 					END END ELSIF M IS DispMsg THEN DM := M(DispMsg); x := G.x + newcap.x + newcap.w; y := G.y + newcap.y; 				IF (DM.graph = G.graph) & (x >= G.X) & (x + DM.w < G.X1) & (y >= G.Y) & (y < G.Y1) THEN Display.CopyPattern(Oberon.CurCol, DM.pat, x + DM.x1, y + DM.y1, 2); Display.ReplConst(Display.white, x, y, DM.w, newcap.h, 2) END ELSIF M IS Oberon.ControlMsg THEN WITH M: Oberon.ControlMsg DO 					IF M.id = Oberon.neutralize THEN Oberon.RemoveMarks(G.X, G.Y, G.W, G.H); Defocus(G); DrawNorm(G); Graphics.Deselect(G.graph) ELSIF M.id = Oberon.defocus THEN Defocus(G) END END ELSIF M IS Oberon.SelectionMsg THEN WITH M: Oberon.SelectionMsg DO GetSelection(G, M.text, M.beg, M.end, M.time) END ELSIF M IS Oberon.CopyMsg THEN Oberon.RemoveMarks(G.X, G.Y, G.W, G.H); Defocus(G); NEW(G1); G1^ := G^; M(Oberon.CopyMsg).F := G1 			ELSIF M IS MenuViewers.ModifyMsg THEN WITH M: MenuViewers.ModifyMsg DO G.Y := M.Y; G.H := M.H; Restore(G) END ELSIF M IS Oberon.CopyOverMsg THEN WITH M: Oberon.CopyOverMsg DO 					IF G.marked THEN DrawObj(G, CaptionCopy(G, G.mark.x, G.mark.y, M.text, M.beg, M.end)) END END END END END Handle; (*--- Methods ---*) PROCEDURE* DrawLine(obj: Graphics.Object; VAR M: Graphics.Msg); (*M.mode = 0: draw according to state, 			= 1: normal -> selected, 			= 2: selected -> normal, 			= 3: erase*) VAR x, y, w, h, col: INTEGER; f: Frame; BEGIN WITH M: DrawMsg DO 			x := obj.x + M.x; y := obj.y + M.y; w := obj.w; h := obj.h; f := M.f; 			IF (x+w > f.X) & (x < f.X1) & (y+h > f.Y) & (y < f.Y1) THEN IF x < f.X THEN DEC(w, f.X-x); x := f.X END ; IF x+w > f.X1 THEN w := f.X1-x END ; IF y < f.Y THEN DEC(h, f.Y-y); y := f.Y END ; IF y+h > f.Y1 THEN h := f.Y1-y END ; IF M.col = Display.black THEN col := obj.col ELSE col := M.col (*macro*) END ; IF (M.mode = 0) & obj.selected OR (M.mode = 1) THEN Display.ReplPattern(col, Display.grey2, x, y, w, h, 0) ELSIF M.mode = 3 THEN Display.ReplConst(Display.black, x, y, w, h, 0) (*erase*) ELSE Display.ReplConst(col, x, y, w, h, 0) END END END END DrawLine; PROCEDURE* DrawCaption(obj: Graphics.Object; VAR M: Graphics.Msg); VAR x, y, dx, x0, x1, y0, y1, w, h, w1, h1, col: INTEGER; f: Frame; ch: CHAR; pat: Display.Pattern; fnt: Fonts.Font; R: Texts.Reader; BEGIN WITH M: DrawMsg DO 			x := obj.x + M.x; y := obj.y + M.y; w := obj.w; h := obj.h; f := M.f; 			IF (f.X <= x) & (x <= f.X1) & (f.Y <= y) & (y+h <= f.Y1) THEN IF x+w > f.X1 THEN w := f.X1-x END ; Texts.OpenReader(R, Graphics.T, obj(Graphics.Caption).pos); Texts.Read(R, ch); IF M.mode = 0 THEN IF ch >= " " THEN IF M.col = Display.black THEN col := obj.col ELSE col := M.col (*macro*) END ; fnt := R.fnt; x0 := x; y0 := y - fnt.minY; LOOP Display.GetChar(fnt.raster, ch, dx, x1, y1, w1, h1, pat); IF x0+x1+w1 <= f.X1 THEN Display.CopyPattern(col, pat, x0+x1, y0+y1, 1) ELSE EXIT END ; INC(x0, dx); Texts.Read(R, ch); IF ch < " " THEN EXIT END END ; IF obj.selected THEN Display.ReplConst(Display.white, x, y, w, h, 2) END END ELSIF M.mode < 3 THEN Display.ReplConst(Display.white, x, y, w, h, 2) ELSE Display.ReplConst(Display.black, x, y, w, h, 0) END END END END DrawCaption; PROCEDURE* DrawMacro(obj: Graphics.Object; VAR M: Graphics.Msg); VAR x, y, w, h: INTEGER; f: Frame; M1: DrawMsg; BEGIN WITH M: DrawMsg DO 			x := obj.x + M.x; y := obj.y + M.y; w := obj.w; h := obj.h; f := M.f; 			IF (x+w > f.X) & (x < f.X1) & (y+h > f.Y) & (y < f.Y1) THEN M1.x := x; M1.y := y; 				IF x < f.X THEN DEC(w, f.X-x); x := f.X END ; IF x+w > f.X1 THEN w := f.X1-x END ; IF y < f.Y THEN DEC(h, f.Y-y); y := f.Y END ; IF y+h > f.Y1 THEN h := f.Y1-y END ; IF M.mode = 0 THEN M1.f := f; M1.col := obj.col; M1.mode := 0; Graphics.DrawMac(obj(Graphics.Macro).mac, M1); IF obj.selected THEN Display.ReplConst(Display.white, x, y, w, h, 2) END ELSIF M.mode < 3 THEN Display.ReplConst(Display.white, x, y, w, h, 2) ELSE Display.ReplConst(Display.black, x, y, w, h, 0) END END END END DrawMacro; PROCEDURE New*(graph: Graphics.Graph; X, Y, col: INTEGER; ticked: BOOLEAN): Frame; VAR G: Frame; BEGIN NEW(G); G.graph := graph; G.Xg := X; G.Yg := Y; G.col := col; G.marked := FALSE; G.mark.next := NIL; G.ticked := ticked; G.handle := Handle; RETURN G 	END New; PROCEDURE* DrawCrosshair(x, y: INTEGER); BEGIN IF x < CL THEN IF x < markW THEN x := markW ELSIF x > DW THEN x := DW - markW END ELSE IF x < CL + markW THEN x := CL + markW ELSIF x > CL + DW THEN x := CL + DW - markW END END ; IF y < markW THEN y := markW ELSIF y > DH THEN y := DH - markW END ; Display.CopyPattern(Display.white, Display.cross, x - markW, y - markW, 2) END DrawCrosshair; BEGIN DW := Display.Width - 8; DH := Display.Height - 8; CL := Display.ColLeft; Crosshair.Draw := DrawCrosshair; Crosshair.Fade := DrawCrosshair; Texts.OpenWriter(W); Graphics.LineMethod.draw := DrawLine; Graphics.CapMethod.draw := DrawCaption; Graphics.MacMethod.draw := DrawMacro END GraphicFrames.