Turtle-Graphiken III

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

Hilbert.om
PROCEDURE GenCurve(graphic: TurtleGraphics.Graphic;
                   level: INTEGER);

   PROCEDURE Left;
   BEGIN TurtleGraphics.Left(graphic);
   END Left;

   PROCEDURE Right;
   BEGIN TurtleGraphics.Right(graphic);
   END Right;

   PROCEDURE Forward;
   BEGIN TurtleGraphics.Forward(graphic);
   END Forward;

   (* ... *)

END GenCurve;

*Um die rekursiven Prozeduren L und R möglichst kompakt zu halten, werden die Operationen Left, Right und Forward definiert, die die entsprechenden Prozeduren aus dem Modul TurtleGraphics aufrufen.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005