Anonymous user
Colour pinstripe/Printer: Difference between revisions
Just noticed the second part of the task
(Added PicoLisp) |
(Just noticed the second part of the task) |
||
Line 18:
(pdf "pinstripes"
(a4) # 595 x 842 dots
(
(
(
(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>
| |||