Anonymous user
Sierpinski triangle/Graphical: Difference between revisions
→{{header|Ruby}}
Line 708:
end
end</lang>
=={{header|Run BASIC}}==
[[File : sierpinskiRunBasic.png|thumb|right]]
<lang runbasic>graphic #g, 300,300
order = 8
width = 100
w = width * 11
dim canvas(w,w)
canvas(1,1) = 1
for x = 2 to 2^order -1
canvas(x,1) = 1
canvas(x,x) = 1
for y = 2 to x -1
canvas( x, y) = (canvas(x -1,y -1) + canvas(x -1, y)) mod 2
if canvas(x,y) mod 2 then #g "set "; width + (order*3) + y - x / 2;" "; x
next y
next x
render #g
#g "flush"
wait</lang>
=={{header|Tcl}}==
| |||