Data commit

Task/Pinstripe-Display/Lambdatalk/pinstripe-display.lambdatalk

@@ -0,0 +1,35 @@
+{def window
+ {lambda {:w :h}
+  div
+  {@ style="position:relative;
+            top:0; left:0;
+            width::wpx; height::hpx;
+            background:#eee;"}}}
+-> window
+
+{def rec
+ {lambda {:x :y :w :h :c}
+  {div
+   {@ style="position:absolute;
+             top::ypx; left::xpx;
+             width::wpx; height::hpx;
+             background::c;"}}}}
+-> rec
+
+{def row
+ {lambda {:w :h :k}
+  {S.map {{lambda {:dx :dy :h :i}
+                  {rec :i         :dy :dx :h #000}
+                  {rec {+ :i :dx} :dy :dx :h #fff}
+          } {pow 2 :k} {* :k {/ :w 8}} {/ :h 4}}
+         {S.serie 0 {- :w 1} {pow 2 {+ :k 1}}}}}}
+-> row
+
+{def WIDTH 512}
+-> WIDTH
+{def HEIGHT 256}
+-> HEIGHT
+
+{{window {WIDTH} {WIDTH}}
+ {S.map {row {WIDTH} {HEIGHT}}
+  0 1 2 3}}