Data commit

Task/Colour-pinstripe-Printer/FutureBasic/colour-pinstripe-printer.basic

@@ -0,0 +1,36 @@
+include "NSLog.incl"
+
+void local fn BuildWindow
+  CGRect     r = { 0, 0, 612, 791 } // U.S. Letter Portrait
+  long       i, j, colorCount, bars = 612
+  CGFloat    y = 0.0, w = 1
+  CFArrayRef colors = @[¬
+  fn ColorBlack,¬
+  fn ColorRed,¬
+  fn ColorGreen,¬
+  fn ColorBlue,¬
+  fn ColorMagenta,¬
+  fn ColorCyan,¬
+  fn ColorYellow,¬
+  fn ColorWhite]
+
+  window 1, @"Color Pinstripe Printer Page [U.S. Letter Portrait]", r
+
+  pen -1
+  for j = 1 to 4
+    r = fn CGRectMake( 0, y, w, 197.75 )
+    colorCount = 0
+    for i = 0 to bars - 1
+      rect fill r, colors[colorCount]
+      r.origin.x += w
+      colorCount++
+      if colorCount == 8 then colorCount = 0
+    next
+    bars = bars << 1
+    y += 197.75 : w++
+  next
+end fn
+
+fn BuildWindow
+
+HandleEvents