Skip to content

Latest commit

 

History

History
32 lines (18 loc) · 407 Bytes

gradient2.toby

File metadata and controls

32 lines (18 loc) · 407 Bytes
 
Apr 18, 2001
Apr 18, 2001
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function main() returns nothing
number i = 0
number stepSizeH = 1 / getTurtleSpaceWidth()
number stepSizeV = 1 / getTurtleSpaceHeight()
number r = 0.0
number b = 0.0
disableFence()
hideTurtle()
turnRight(90)
for b = 0.0 to 1.0 step stepSizeV
setTurtleXY(0, i)
for r = 0.0 to 1.0 step stepSizeH
setPenColorRGB(r, 0.0, b)
goForward(1)
endfor
i = i + 1
endfor
endfunction