Pinstripe/Printer: Difference between revisions

Added PicoLisp
(→‎Tcl: Added implementation)
(Added PicoLisp)
Line 3:
 
After the first inch of printing, we switch to a wider 2 point wide vertical pinstripe pattern. alternating two points white, two points black. We then switch to 3 points wide for the next inch, and then 4 points wide, etc. This trend continues for the entire length of the page (or for 12 inches of run length in the case of a printer using continuous roll stationery). After printing the test pattern the page is ejected (or the test pattern is rolled clear of the printer enclosure, in the case of continuous roll printers).
 
=={{header|PicoLisp}}==
<lang PicoLisp>(load "@lib/ps.l")
 
(call 'lpr
(pdf "pinstripes"
(a4) # 595 x 842 dots
(for X 595
(gray (if (bit? 1 X) 0 100)
(vline X 0 842) ) )
(page) ) )</lang>
 
=={{header|Tcl}}==
Anonymous user