programs/sabrina2.toby
author Ryan C. Gordon <icculus@icculus.org>
Tue, 18 Mar 2008 02:05:22 +0000
changeset 499 96e88f292dc8
parent 1 d7cb562e4e24
permissions -rw-r--r--
Updated Lua from 5.1.1 to 5.1.3.

function main() returns nothing

	number myValue

	number i

	while (true)
		for i = 1 to 36
			setPenColor(round(random() * 15))	
			myValue = random() * 100
			box(myValue)

			turnRight(10)
		endfor
			cleanupTurtleSpace()
	endwhile
endfunction


function box(number size) returns nothing

	number counter

	for counter = 1 to 4
		goForward(size)
		turnRight(90)
	endfor

endfunction