home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / GfxTurtle.def < prev    next >
Encoding:
Text File  |  1994-05-25  |  4.1 KB  |  87 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMHJ
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|-x---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE GfxTurtle;
  11.  
  12. FROM GfxScreen IMPORT Screen;
  13.  
  14. (*----------------------------------------------------------------------------*
  15.  * AUFGABE     : Setzt die Turtle auf einen Ausgangspunkt                     *
  16.  * PARAMETER   : scr   <= Screen, auf der gearbeitet werden soll              *
  17.  *               xPos  <= Horizontale Koordinate                              *
  18.  *               yPos  <= Vertikale Koordinate                                *
  19.  *               Angle <= Winkel                                              *
  20.  *               color <= Farbe der Spur                                      *
  21.  * BEMERKUNGEN : --                                                           *
  22.  *----------------------------------------------------------------------------*)
  23.  
  24. PROCEDURE Start(scr : Screen;xPos,yPos,Angle : FFP;color : INTEGER);
  25.  
  26. (*----------------------------------------------------------------------------*
  27.  * AUFGABE     : Hebt die Turtle vom Grund ab                                 *
  28.  * PARAMETER   : --                                                           *
  29.  * BEMERKUNGEN : Nach dieser Prozedur wird keine Spur mehr gezeichnet         *
  30.  *----------------------------------------------------------------------------*)
  31.  
  32. PROCEDURE Up;
  33.  
  34. (*----------------------------------------------------------------------------*
  35.  * AUFGABE     : Setzt die Turtle auf den Grund                               *
  36.  * PARAMETER   : --                                                           *
  37.  * BEMERKUNGEN : Nach dieser Prozedur wird eine Spur gezeichnet               *
  38.  *----------------------------------------------------------------------------*)
  39.  
  40. PROCEDURE Down;
  41.  
  42. (*----------------------------------------------------------------------------*
  43.  * AUFGABE     : Ändert die Farbe der Spur                                    *
  44.  * PARAMETER   : reg   <= Neue Farbe                                          *
  45.  * BEMERKUNGEN : --                                                           *
  46.  *----------------------------------------------------------------------------*)
  47.  
  48. PROCEDURE Color(reg : INTEGER);
  49.  
  50. (*----------------------------------------------------------------------------*
  51.  * AUFGABE     : Dreht die Turtle nach links                                  *
  52.  * PARAMETER   : Angle <= Drehwinkel                                          *
  53.  * BEMERKUNGEN : --                                                           *
  54.  *----------------------------------------------------------------------------*)
  55.  
  56. PROCEDURE Left(Angle : FFP);
  57.  
  58. (*----------------------------------------------------------------------------*
  59.  * AUFGABE     : Dreht die Turtle nach rechts                                 *
  60.  * PARAMETER   : Angle <= Drehwinkel                                          *
  61.  * BEMERKUNGEN : --                                                           *
  62.  *----------------------------------------------------------------------------*)
  63.  
  64. PROCEDURE Right(Angle : FFP);
  65.  
  66. (*----------------------------------------------------------------------------*
  67.  * AUFGABE     : Bewegt die Turtle vorwärts                                   *
  68.  * PARAMETER   : Dist  <= Strecke, um die bewegt wird                         *
  69.  * BEMERKUNGEN : --                                                           *
  70.  *----------------------------------------------------------------------------*)
  71.  
  72. PROCEDURE Forward(Dist : FFP);
  73.  
  74. (*----------------------------------------------------------------------------*
  75.  * AUFGABE     : Bewegt die Turtle rückwärts                                  *
  76.  * PARAMETER   : Dist  <= Strecke, um die bewegt wird                         *
  77.  * BEMERKUNGEN : --                                                           *
  78.  *----------------------------------------------------------------------------*)
  79.  
  80. PROCEDURE Backward(Dist : FFP);
  81.  
  82. GROUP
  83.   All   = Screen,Start,Up,Down,Color,Left,Right,Forward,Backward;
  84.  
  85.  
  86. END GfxTurtle.
  87.