5.6 Examples of Simple Drawing Effects

To draw in the foreground color, use the default, or specify :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 , where bricks 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 ).

5.6.1 Using Flipping Ink

Common Lisp Interface Manager 2.0 User's Guide - 3 Mar 2015