Anonymous user
Pinstripe/Printer: Difference between revisions
→{{header|Racket}}
(Added BBC BASIC) |
|||
Line 113:
(vline X 0 842) ) )
(page) ) )</lang>
=={{header|Racket}}==
The drawing code is exactly the same code as [[Pinstripe/Display#Racket]], only
drawing onto a printer device context now.
<lang Racket>
#lang racket/gui
(define parts 4)
(define dc (new printer-dc%))
(send* dc (start-doc "Pinstripe") (start-page))
(define-values [W H] (send dc get-size))
(send dc set-pen "black" 0 'solid)
(send dc set-brush "black" 'solid)
(define H* (round (/ H parts)))
(for ([row parts])
(define Y (* row H*))
(for ([X (in-range 0 W (* (add1 row) 2))])
(send dc draw-rectangle X Y (add1 row) H*)))
(send* dc (end-page) (end-doc))
</lang>
=={{header|Tcl}}==
| |||