Colour pinstripe/Printer: Difference between revisions

Content added Content deleted

Inline

@@ Line 18: / Line 18: @@
    (pdf "pinstripes"
       (a4)  # 595 x 842 dots
-      (for X 595
+      (use (R G B)
-         (color (pop 'Red) (pop 'Green) (pop 'Blue)
+         (let (I 0  Step 1)
-            (vline X 0 842) ) )
+            (for X 595
+               (when (= Step (inc 'I))
+                  (setq
+                     I 0
+                     R (pop 'Red)
+                     G (pop 'Green)
+                     B (pop 'Blue) ) )
+               (color R G B
+                  (vline X 0 842) )
+               (when (=0 (% X 72))  # 1 inch
+                  (setq I 0  Step (* 2 Step)) ) ) ) )
       (page) ) )</lang>