Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Sierpinski-triangle-Graphical/Action-/sierpinski-triangle-graphical.action
+++ b/Task/Sierpinski-triangle-Graphical/Action-/sierpinski-triangle-graphical.action
@ -0,0 +1,29 @@
+PROC Draw(INT x0 BYTE y0,depth)
+  BYTE i,x,y,size
+
+  size=1 LSH depth
+
+  FOR y=0 TO size-1
+  DO
+    FOR x=0 TO size-1
+    DO
+      IF (x&y)=0 THEN
+        Plot(x0+x,y0+y)
+      FI
+    OD
+  OD
+RETURN
+
+PROC Main()
+  BYTE CH=$02FC,COLOR1=$02C5,COLOR2=$02C6
+
+  Graphics(8+16)
+  Color=1
+  COLOR1=$0C
+  COLOR2=$02
+
+  Draw(96,32,7)
+
+  DO UNTIL CH#$FF OD
+  CH=$FF
+RETURN