|
@@ -627,7 +627,7 @@ MODULE GfxPaths; (** portable *) (* eos *)
|
|
END
|
|
END
|
|
END Scan;
|
|
END Scan;
|
|
|
|
|
|
- PROCEDURE- get (VAR x, y: REAL);
|
|
|
|
|
|
+ PROCEDURE get (VAR x, y: REAL);
|
|
BEGIN
|
|
BEGIN
|
|
IF SELF.cpos = CoordBlockSize THEN
|
|
IF SELF.cpos = CoordBlockSize THEN
|
|
SELF.curCB := SELF.curCB.next; SELF.cpos := 0
|
|
SELF.curCB := SELF.curCB.next; SELF.cpos := 0
|