|##########|
|#MAGIC   #|CLABLMHJ
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|-x---x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx------
|##########|
DEFINITION MODULE GfxTurtle;

FROM GfxScreen IMPORT Screen;

(*----------------------------------------------------------------------------*
 * AUFGABE     : Setzt die Turtle auf einen Ausgangspunkt                     *
 * PARAMETER   : scr   <= Screen, auf der gearbeitet werden soll              *
 *               xPos  <= Horizontale Koordinate                              *
 *               yPos  <= Vertikale Koordinate                                *
 *               Angle <= Winkel                                              *
 *               color <= Farbe der Spur                                      *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Start(scr : Screen;xPos,yPos,Angle : FFP;color : INTEGER);

(*----------------------------------------------------------------------------*
 * AUFGABE     : Hebt die Turtle vom Grund ab                                 *
 * PARAMETER   : --                                                           *
 * BEMERKUNGEN : Nach dieser Prozedur wird keine Spur mehr gezeichnet         *
 *----------------------------------------------------------------------------*)

PROCEDURE Up;

(*----------------------------------------------------------------------------*
 * AUFGABE     : Setzt die Turtle auf den Grund                               *
 * PARAMETER   : --                                                           *
 * BEMERKUNGEN : Nach dieser Prozedur wird eine Spur gezeichnet               *
 *----------------------------------------------------------------------------*)

PROCEDURE Down;

(*----------------------------------------------------------------------------*
 * AUFGABE     : Ändert die Farbe der Spur                                    *
 * PARAMETER   : reg   <= Neue Farbe                                          *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Color(reg : INTEGER);

(*----------------------------------------------------------------------------*
 * AUFGABE     : Dreht die Turtle nach links                                  *
 * PARAMETER   : Angle <= Drehwinkel                                          *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Left(Angle : FFP);

(*----------------------------------------------------------------------------*
 * AUFGABE     : Dreht die Turtle nach rechts                                 *
 * PARAMETER   : Angle <= Drehwinkel                                          *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Right(Angle : FFP);

(*----------------------------------------------------------------------------*
 * AUFGABE     : Bewegt die Turtle vorwärts                                   *
 * PARAMETER   : Dist  <= Strecke, um die bewegt wird                         *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Forward(Dist : FFP);

(*----------------------------------------------------------------------------*
 * AUFGABE     : Bewegt die Turtle rückwärts                                  *
 * PARAMETER   : Dist  <= Strecke, um die bewegt wird                         *
 * BEMERKUNGEN : --                                                           *
 *----------------------------------------------------------------------------*)

PROCEDURE Backward(Dist : FFP);

GROUP
  All   = Screen,Start,Up,Down,Color,Left,Right,Forward,Backward;


END GfxTurtle.