Anonymous user
Sierpinski triangle/Graphical: Difference between revisions
Add Seed7 example
(Add XPL0) |
(Add Seed7 example) |
||
Line 773:
#g "flush"
wait</lang>
=={{header|Seed7}}==
[[File : SierpinskiSeed7.png|thumb|right]]
<lang seed7>$ include "seed7_05.s7i";
include "draw.s7i";
include "keybd.s7i";
const proc: main is func
local
const integer: order is 8;
const integer: width is 1 << order;
const integer: margin is 10;
var integer: x is 0;
var integer: y is 0;
begin
screen(width+2*margin, width+2*margin);
clear(curr_win, white);
KEYBOARD := GRAPH_KEYBOARD;
for y range 0 to pred(width) do
for x range 0 to pred(width) do
if bitset conv x & bitset conv y = bitset.value then
point(margin + x, margin + y, black);
end if;
end for;
end for;
ignore(getc(KEYBOARD));
end func;</lang>
=={{header|Tcl}}==
| |||