▼ |  | Turtle Graphics

1 | Traditional Turtles
2 | Value Turtles

► | 1 | Traditional Turtles

1.1 | Examples

On this page:

turtles
move
draw
erase
move-offset
draw-offset
erase-offset
turn
turn/ radians
clear
split
split*
tprompt
1.1`` Examples
regular-poly
regular-polys
radial-turtles
spaced-turtles
spokes
spyro-gyra
neato
graphics-bexam
serp-size
serp
serp-nosplit
koch-size
koch
koch-nosplit
lorenz
lorenz1
peano1
peano2
fern-size
fern1
fern2

Version: 4.1.4
top← prev up next →

### 1`` Traditional Turtles

(require graphics/turtles)

(turtles on?) → void?
on? : any/c
(turtles) → void?

Shows and hides the turtles window based on on?. If on? is not supplied, the state is toggled.

(move n) → void?
n : real?

Moves the turtle n pixels without drawing.

(draw n) → void?
n : real?

Moves the turtle n pixels and draws a line on the path.

(erase n) → void?
n : real?

Moves the turtle n pixels and erase along the path.

(move-offset h v) → void?
h : real?
v : real?

(draw-offset h v) → void?
h : real?
v : real?

(erase-offset h v) → void?
h : real?
v : real?

Like move, draw, and erase, but using a horizontal and vertical offset from the turtle’s current position.

(turn theta) → void?
theta : real?

Turns the turtle theta degrees counter-clockwise.

(turn/radians theta) → void?
theta : real?

Turns the turtle theta radians counter-clockwise.

(clear) → void?

Erases the turtles window.

(split expr ...)

Spawns a new turtle where the turtle is currently located. In order to distinguish the two turtles, only the new one evaluates expr. For example, if you start with a fresh turtle-window and type:

(split (turn/radians (/ pi 2)))

you will have two turtles, pointing at right angles to each other. Continue with

(draw 100)

You will see two lines. Now, if you evaluate those two expression again, you will have four turtles, etc.

(split* expr ...)

Like (split expr ...), except that one turtle is created for each expr.

For example, to create two turtles, one pointing at π/2 and one at π/3, evaluate

(split* (turn/radians (/ pi 3)) (turn/radians (/ pi 2)))

(tprompt expr ...)

Limits the splitting of the turtles. Beforeexpr is evaluated, the state of the turtles (how many, their positions and headings) is “checkpointed.” Then expr is evaluated, and then the state of the turtles is restored, but all drawing that may have occurred during execution of expr remains.

For example

(tprompt (draw 100))

moves a turtle forward 100 pixel while drawing a line, and then moves the turtle be immediately back to it’s original position. Similarly,

(tprompt (split (turn/radians (/ pi 2))))

splits the turtle into two, rotates one 90 degrees, and then collapses back to a single turtle.

The fern functions below demonstrate more advanced use of tprompt.

#### 1.1`` Examples

(require graphics/turtle-examples)

The graphics/turtle-examples library’s source is meant to be read, but it also exports the following examples.

(regular-poly sides radius) → void?
sides : exact-nonnegative-integer?
radius : real?

Draws a regular poly centered at the turtle with sides sides and with radius radius.

(regular-polys n s) → void?
n : exact-nonnegative-integer?
s : any/c

Draws n regular polys each with n sides centered at the turtle.

(radial-turtles n) → void?
n : exact-nonnegative-integer?

Places 2n turtles spaced evenly pointing radially outward.

(spaced-turtles n) → void?
n : exact-nonnegative-integer?

Places 2n turtles evenly spaced in a line and pointing in the same direction as the original turtle.

(spokes) → void?

Draws some spokes, using radial-turtles and spaced-turtles.

(spyro-gyra) → void?

Draws a spyro-grya reminiscent shape.

(neato) → void?

As the name says...

(graphics-bexam) → void?

Draws a fractal that came up on an exam that the author took.

serp-size : real?

A constant that is a good size for the serp procedures.

(serp serp-size) → void?
serp-size : real?

(serp-nosplit serp-size) → void?
serp-size : real?

Draws the Serpinski triangle in two different ways, the first using split heavily. After running the first one, try executing (draw 10).

koch-size : real?

A constant that is a good size for the koch procedures.

(koch koch-size) → void?
koch-size : real?

(koch-nosplit koch-size) → void?
koch-size : real?

Draws the same Koch snowflake in two different ways.

(lorenz a b c) → void?
a : real?
b : real?
c : real?

Watch the Lorenz attractor (a.k.a. butterfly attractor) initial values a, b, and c.

(lorenz1) → void?

Calls lorenze with good initial values.

(peano1 peano-size) → void?
peano-size : real?

(peano2 peano-size) → void?
peano-size : real?

Draws the Peano space-filling curve, where peano1 uses split.

fern-size : exact-nonnegative-integer?

A good size for the fern1 and fern2 functions.

(fern1 fern-size) → void?
fern-size : exact-nonnegative-integer?

(fern2 fern-size) → void?
fern-size : exact-nonnegative-integer?

Draws a fern fractal.

For fern1, you will probably want to point the turtle up before running this one, with something like:

(scheme (turn/radians (- (/ pi 2))))

For fern2, you may need to backup a little.

top← prev up next →