Turtle-Graphiken V

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

Hilbert.om
MODULE Hilbert;

   IMPORT Args := UnixArguments, Conclusions, Errors,
      Plot5Streams, Plotters, Read, RelatedEvents, Streams,
      TurtleGraphics, UnixFiles, UnixPipes;

   VAR
      level: INTEGER;
      graphic: TurtleGraphics.Graphic;
      plotter: Plotters.Plotter;
      out: Streams.Stream;

   PROCEDURE ProcessArgs;
      (* ... *)
   END ProcessArgs;

   PROCEDURE GenCurve(graphic: TurtleGraphics.Graphic;
                      level: INTEGER);
      (* ... *)
   END GenCurve;

BEGIN
   ProcessArgs;
   TurtleGraphics.Create(graphic, 90);
   GenCurve(graphic, level);
   Plot5Streams.Create(plotter, out);
   TurtleGraphics.Plot(graphic, plotter);
END Hilbert.

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