all tasks

Task/Sierpinski-triangle-Graphical/Seed7/sierpinski-triangle-graphical.seed7

@@ -0,0 +1,24 @@
+$ 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;