Nope, I'm not done yet, but I made this:
108 vs 381 bytes.
(Source: http://tibasicdev.wikidot.com/sierpinski-triangle )
108 vs 381 bytes.
(Source: http://tibasicdev.wikidot.com/sierpinski-triangle )
[i]BOUNCE
det(0
det(5,0
[maxY]0,8,8,"0000E0E0E0E0000000E0E0E0E0E0E200E0E000E2E2E2E2E2E0E2E2E2E2E2E7E7E2E2E2E7E7E7E7E7E2E7E7E7E7E7E7E700E7E7E7E7E7E7000000E7E7E7E70000"
For(G,0,19
remainder(rand,312->L1(G
remainder(rand,232->L1(G+20
1->L1(G+40
1->L1(G+60
End
det(2,0
Repeat getKey
For(G,0,19
L1(G->H
L1(G+20->I
det(42,H,I,8,8
If H=312 or not(H
0-L1(G+40->L1(G+40
End
If I=232 or not(I
0-L1(G+60->L1(G+60
End
H+L1(G+40->L1(G
I+L1(G+60->L1(G+20
det(59,0,L1(G),L1(G+20
End
Pause 5
End
det(1
det(59,0,L1(G),L1(G+20
[i]A
randInt(1,3→A
det(59,0,L1(G),L1(G+20
[i]A
randInt(1,3→A
Advertisement