//---------------------------------------------------------// 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 endforendfunction