Category : Modula II Source Code
Archive   : M2GRAPH.ZIP
Filename : TURTLEGR.DEF

 
Output of file : TURTLEGR.DEF contained in archive : M2GRAPH.ZIP
DEFINITION MODULE TurtleGraphics;
(* Simple Turtle Graphics routines based on BasicGraphics
Pat Terry and Robin Roos, December 1988 *)

PROCEDURE Move (Distance : REAL);
(* Move Distance in the direction in which turtle is pointing *)

PROCEDURE MoveLap (Distance : REAL);
(* Move as above, but lap round if turtle goes off the screen *)

PROCEDURE MoveTo (X, Y : REAL);
(* Move to a specific location in a straight line *)

PROCEDURE Turn (Rotation : REAL);
(* Default : Positive Rotation = Turn to the Right *)

PROCEDURE TurnRight (Rotation : REAL);
(* Turn Right by an angle given in degrees *)

PROCEDURE TurnLeft (Rotation : REAL);
(* Turn Right by an angle given in degrees *)

PROCEDURE TurnTo (Heading : REAL);
(* Turn to a specific heading given in degrees *)

PROCEDURE SetPenColor (Shade : INTEGER);
(* Set pen colour to 1 (Drawing) or 0 (Erasing) *)

PROCEDURE PenUp();
(* Do not draw until pen is down *)

PROCEDURE PenDown();
(* Draw all paths followed in set colour *)

PROCEDURE Home();
(* Return turtle to a set position and heading following a straight line *)

PROCEDURE ClearTurtleScreen();
(* Clear the screen and Home the turtle *)

PROCEDURE ShowTurtle();
(* Cause the turtle's position and heading to be indicated after each move *)

PROCEDURE HideTurtle();
(* No longer show position and heading *)

PROCEDURE InitialiseTurtle();
(* Set Graphics Mode and Home Turtle *)

PROCEDURE KillTurtle();
(* Clear Display and restore to Text Mode *)

END TurtleGraphics.


  3 Responses to “Category : Modula II Source Code
Archive   : M2GRAPH.ZIP
Filename : TURTLEGR.DEF

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/