Chapter 5 Drawing in Color
:ink +foreground-ink+
. To erase, specify:ink +background-ink+
.
To draw in color, specify:ink +green+
,:ink (make-rgb-color 0.6 0.0 0.4)
, and so forth.
To draw an opaque gray, specify:ink (make-gray-color 0.25)
. This will draw a shade of gray independent of the window's foreground color. On a non-color, non-grayscale display this will generally turn into a stipple.
To draw a stipple of little bricks, specify:ink bricks
, wherebricks
is defined as:
(make-rectangular-tile (make-pattern #2a(0 0 0 0 1 0 0 0 0) (0 0 0 1 0 0 0 0) (0 0 0 1 0 0 0 0) (1 1 1 1 1 1 1 1) (0 0 0 0 0 0 0 1) (0 0 0 0 0 0 0 1) (0 0 0 0 0 0 0 1) (1 1 1 1 1 1 1 1)) (list +background+ +foreground+)) 8 8)To draw a tiled pattern, specify
:ink (make-rectangular-tile (make-pattern array colors)).
To draw a pixmap, use(draw-design (make-pattern array colors) medium).
Generated with Harlequin WebMaker