Pinstripe/Printer: Difference between revisions
Content added Content deleted
(Added BBC BASIC) |
|||
Line 113: | Line 113: | ||
(vline X 0 842) ) ) |
(vline X 0 842) ) ) |
||
(page) ) )</lang> |
(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}}== |
=={{header|Tcl}}== |