Sierpinski triangle/Graphical: Difference between revisions
Content added Content deleted
(added ti-basic =D) |
|||
Line 1,227: | Line 1,227: | ||
update; # So we can see progress |
update; # So we can see progress |
||
sierpinski .c {200 10 390 390 10 390} 7</lang> |
sierpinski .c {200 10 390 390 10 390} 7</lang> |
||
=={header|TI-83}== |
|||
<lang ti83b>:1→X:1→Y |
|||
:Zdecimal |
|||
:Horizontal 3.1 |
|||
:Vertical -4.5 |
|||
:While 1 |
|||
:X+1→X |
|||
:DS<(Y,1 |
|||
:While 0 |
|||
:X→Y |
|||
:1→X |
|||
:End |
|||
:If pxl-Test(Y-1,X) xor (pxl-Test(Y,X-1 |
|||
:PxlOn(Y,X |
|||
:End</lang> |
|||
This could be made faster, but I just wanted to use the DS<( command |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |