tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Pinstripe-Display/PicoLisp/pinstripe-display.l
+++ b/Task/Pinstripe-Display/PicoLisp/pinstripe-display.l
@ -0,0 +1,14 @@
+(let Pbm  # Create PBM of 384 x 288 pixels
+   (make
+      (for N 4
+         (let
+            (C 0
+               L (make
+                  (do (/ 384 N)
+                     (do N (link C))
+                     (setq C (x| 1 C)) ) ) )
+            (do 72 (link L)) ) ) )
+   (out '(display)  # Pipe to ImageMagick
+      (prinl "P1")
+      (prinl (length (car Pbm)) " " (length Pbm))
+      (mapc prinl Pbm) ) )