Graphics.WorldTurtle.Commands

This module contains all commands used to create, move and manipulate a turtle.

Types

data Turtle

The Turtle that is drawn on the canvas! Create a new turtle using makeTurtle.

Instances

Eq Turtle

Defined in Graphics.WorldTurtle.Internal.Sequence

Methods

(==) :: Turtle -> Turtle -> Bool

(/=) :: Turtle -> Turtle -> Bool

Ord Turtle

Defined in Graphics.WorldTurtle.Internal.Sequence

Methods

compare :: Turtle -> Turtle -> Ordering

(<) :: Turtle -> Turtle -> Bool

(<=) :: Turtle -> Turtle -> Bool

(>) :: Turtle -> Turtle -> Bool

(>=) :: Turtle -> Turtle -> Bool

max :: Turtle -> Turtle -> Turtle

min :: Turtle -> Turtle -> Turtle

type Point = (Float, Float)

WorldCommand commands.

Creating a turtle.

makeTurtle :: WorldCommand Turtle

Creates a new Turtle and displays it on the canvas. This turtle can then be manipulated! For example, to create a turtle and then move the turtle forward:

 main:: IO ()
 main = runWorld $ do
   t <- makeTurtle
   t >/> forward 90

The default turtle starts at position (0, 0) and is orientated north.

makeTurtle'

Arguments

:: Point

Initial position of the turtle.

-> Float

Initial heading of the turtle.

-> Color

Color of the turtle and the turtle's pen.

-> WorldCommand Turtle

The generated turtle.

This variant of makeTurtle takes a starting position, a starting orientation, and a color to apply to the turtle and the turtle's pen.

 myCommand :: WorldCommand ()
 myCommand = do
   t1 <- makeTurtle' (0, 0)  0 green
   t2 <- makeTurtle' (0, 0) 90 red
   (t1 >/> forward 90) \<|\> (t2 >/> forward 90)

See makeTurtle.

Canvas commands.

clear :: WorldCommand ()

Clears all drawings form the canvas. Does not alter any turtle's state.

sleep :: Float -> WorldCommand ()

Sleep for a given amount of time in seconds. When sleeping no animation runs. A negative value will be clamped to 0.

TurtleCommand commands.

Movement commands.

forward

Arguments

:: Float

Distance to move the turtle.

-> TurtleCommand ()

Move the turtle forward by the specified distance, in the direction the turtle is headed.

fd :: Float -> TurtleCommand ()

Shorthand for forward.

backward

Arguments

:: Float

Distance to move the turtle.

-> TurtleCommand ()

Move the turtle backward by the specified distance, in the direction the turtle is headed.

bk :: Float -> TurtleCommand ()

Shorthand for backward.

left

Arguments

:: Float

Rotation amount to apply to turtle.

-> TurtleCommand ()

Turn a turtle left by the given degrees amount.

lt :: Float -> TurtleCommand ()

Shorthand for left.

right

Arguments

:: Float

Rotation amount to apply to turtle.

-> TurtleCommand ()

Turn a turtle right by the given degrees amount.

rt :: Float -> TurtleCommand ()

Shorthand for right.

circle

Arguments

:: Float

Radius of the circle.

-> TurtleCommand ()

Draw a circle with a given radius. The center is radius units left of the turtle if positive. Otherwise radius units right of the turtle if negative.

The circle is drawn in an anticlockwise direction if the radius is positive, otherwise, it is drawn in a clockwise direction.

Circle is an alias for circle r = arc r 360.

arc

Arguments

:: Float

Radius of the circle.

-> Float

Angle to travel in degrees. For example: 360 for a full circle or 180 for a semicircle.

-> TurtleCommand ()

Draw an arc with a given radius. The center is radius units left of the turtle if positive. Otherwise radius units right of the turtle if negative.

The arc is drawn in an anticlockwise direction if the radius is positive, otherwise, it is drawn in a clockwise direction.

goto

Arguments

:: Point

Position to warp to.

-> TurtleCommand ()

Warps the turtle to a new position. The turtle jumps to this new position with no animation. If the pen is down then a line is drawn.

This does not affect the turtle's heading.

setPosition :: Point -> TurtleCommand ()

Alias of goto.

home :: TurtleCommand ()

Warps the turtle to its starting position (0, 0) and resets the orientation to north (90 degrees). No line is drawn moving the turtle.

setHeading

Arguments

:: Float

Heading to apply.

-> TurtleCommand ()

Sets the turtle's heading. See heading.

setSpeed

Arguments

:: Float

New speed.

-> TurtleCommand ()

Sets the turtle's speed. See speed.

setRotationSpeed

Arguments

:: Float

New rotation speed.

-> TurtleCommand ()

Sets the turtle's rotation speed. See rotationSpeed.

Styling commands.

stamp :: TurtleCommand ()

Stamp a copy of the turtle shape onto the canvas at the current turtle position.

representation :: TurtleCommand Picture

Gets the turtle's representation as a Picture.

Query turtle's state.

position

Arguments

:: TurtleCommand Point

Returned current point.

Returns the turtle's current position. Default (starting) position is (0, 0).

heading

Arguments

:: TurtleCommand Float

Returned heading as angle in degrees.

Returns the turtle's heading.

0 is along the positive x-axis, going anticlockwise. So:

• East is 0 degrees.
• North is 90 degrees.
• West is 180 degrees.
• South is 270 degrees.

The default heading is North (90 degrees).

speed

Arguments

:: TurtleCommand Float

Speed of turtle.

Returns the turtle's current speed. Speed is is distance per second. A speed of 0 is equivalent to no animation being performed and instant movement. The default value is 200.

rotationSpeed

Arguments

:: TurtleCommand Float

Rotation speed of turtle.

Returns the turtle's current rotation speed. Rotation speed is is the speed in seconds it takes to do a full revolution. A speed of 0 is equivalent to no animation being performed and instant rotation. The default value is 20.

penColor

Arguments

:: TurtleCommand Color

Returned current pen color.

Returns the turtle's pen color. The color of the turtle's pen.The default color is black.

penDown

Arguments

:: TurtleCommand Bool

True if pen is down, false if not.

Returns whether the turtle's pen is down. When the turtle's pen is down it will draw a line when it moves. The default value is True.

penSize

Arguments

:: TurtleCommand Float

Size of turtle's pen.

Returns the turtle's pen size. Defaults to 2.

visible

Arguments

:: TurtleCommand Bool

True if turtle is visible, False if not.

Returns whether the turtle is visible. The default value is True.

Mutate turtle's state.

branch :: TurtleCommand a -> TurtleCommand a

Given a command, runs the command, then resets the turtle's state back to what the state was before the command was run.

setPenColor

Arguments

:: Color

New pen color to apply

-> TurtleCommand ()

Set the turtle's pen color. See penColor.

setPenDown

Arguments

:: Bool

New state for pen flag. True for down. False for up.

-> TurtleCommand ()

Sets the turtle's pen to down or up. See penDown.

setPenSize

Arguments

:: Float

New size for turtle's pen.

-> TurtleCommand ()

Sets the turtle's pen size. See penSize.

setRepresentation

Arguments

:: Picture

Picture to apply.

-> TurtleCommand ()

Sets the turtle's representation to a Picture. See representation. For example, to set the turtle as a red circle:

import Graphics.WorldTurtle
import qualified Graphics.Gloss.Data.Picture as G

 myCommand :: TurtleCommand ()
 myCommand = do
   setPenColor red
   setRepresentation (G.color red $ G.circleSolid 10)
   forward 90

setVisible

Arguments

:: Bool

New state for visible flag.

-> TurtleCommand ()

Sets the turtle's visibility. See visible.

Common constants

east :: Float

0 degrees.

north :: Float

90 degrees.

west :: Float

180 degrees.

south :: Float

270 degrees.