Turtle-Graphiken

TurtleGraphics.od

DEFINITION TurtleGraphics; IMPORT Plotters, Services; TYPE Graphic = POINTER TO GraphicRec; GraphicRec = RECORD (Services.ObjectRec) END; PROCEDURE Create(VAR graphic: Graphic; angle: REAL); PROCEDURE EnableRoundCorners(graphic: Graphic; cornerFraction: REAL); PROCEDURE PenDown(graphic: Graphic); PROCEDURE PenUp(graphic: Graphic); PROCEDURE Save(graphic: Graphic); PROCEDURE Restore(graphic: Graphic); PROCEDURE Left(graphic: Graphic); PROCEDURE Forward(graphic: Graphic); PROCEDURE Right(graphic: Graphic); PROCEDURE ApplySymbols(graphic: Graphic; symbols: ARRAY OF CHAR); PROCEDURE Plot(graphic: Graphic; plotter: Plotters.Plotter); END TurtleGraphics.