Rosetta Code

Colour pinstripe/Printer: Difference between revisions

Page Discussion

Colour pinstripe/Printer (view source)

Revision as of 11:14, 6 July 2011

58 bytes removed ,  12 years ago
Slightly simplified
(Just noticed the second part of the task)
(Slightly simplified)
Line 18:
(pdf "pinstripes"
(a4) # 595 x 842 dots
(uselet (RI G0 B Step 1)
(letfor (IX 0 Step 1)595
(forcolor X(car 595Red) (car Green) (car Blue)
(whenvline (=X Step0 (inc 'I842) )
(when (= Step (setqinc 'I))
(zero I 0)
R (pop 'Red)
G (pop 'Green)
B (pop 'Blue) ) )
(when (=0 (color% X 72)) R# G1 Binch
(vline X 0 842)zero I)
(wheninc (=0'Step) (%) X) 72)) # 1 inch
(setq I 0 Step (* 2 Step)) ) ) ) )
(page) ) )</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/182439"