//---------------------------------------------------------

// A basic test of multiturtling capabilities.

//

// This should have four turtles each draw

// a circle, so you get a diamond-like

// cluster. The north circle should be blue,

// the west green, east cyan, and south red.

//

// Written by Ryan C. Gordon.

// Copyright (c) Lighting and Sound Technologies, 2000.

//---------------------------------------------------------

function main() returns nothing

number i

number turtleId

disableFence()

addTurtle()

addTurtle()

addTurtle()

setPenColor(3)

useTurtle(1)

turnRight(90)

setPenColor(4)

useTurtle(2)

turnLeft(90)

setPenColor(1)

useTurtle(3)

turnLeft(180)

setPenColor(2)

for i = 1 to 360

for turtleId = 0 to 3

useTurtle(turtleId)

turnRight(1)

goForward(1)

endfor

endfor

endfunction