Data commit

Task/Colour-bars-Display/M2000-Interpreter/colour-bars-display.m2000

@@ -0,0 +1,23 @@
+Module Checkit {
+      Module Bars {
+            barwidth=x.twips div 8
+            barheight=y.twips
+            barcolors=(0,#ff0000,#00ff00, #0000ff, #FF00FF, #00ffff, #ffff00, #ffffff)
+            For i=0 to 7
+                  Move i*barwidth, 0
+                  \\ gradient fill. Here second color are the same as first color
+                  Fill barwidth, barheight, array(barcolors, i), array(barcolors, i)
+            Next i
+      }
+      \\ first draw on console
+      Call Bars
+      Declare Form1 Form
+      Layer Form1 {
+            window 12, 10000,8000;
+            \\ now draw on Form1 layer, above console, in a window
+            Call Bars
+      }
+      Method Form1, "Show", 1 ' open modal
+      Declare Form1 Nothing
+}
+Checkit