25 lines
655 B
Text
25 lines
655 B
Text
$ include "seed7_05.s7i";
|
|
include "draw.s7i";
|
|
include "keybd.s7i";
|
|
include "bin64.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 bin64(x) & bin64(y) = bin64(0) then
|
|
point(margin + x, margin + y, black);
|
|
end if;
|
|
end for;
|
|
end for;
|
|
ignore(getc(KEYBOARD));
|
|
end func;
|