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 >
Wrap
Text File
|
1994-05-25
|
4KB
|
87 lines
|##########|
|#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.