Generic Function | Package: cg | ToC | DocOverview | CGDoc | RelNotes | FAQ | Index | PermutedIndex
| Allegro CL version 9.0 Unrevised from 8.2 to 9.0. 8.2 version

## fill-texture

Arguments: stream

Returns (or sets with setf) the fill-texture of a stream. The fill-texture is used by drawing functions that fill an area of a stream (as opposed to drawing lines), and may be used to fill with a pattern rather than with a solid color. The pattern will automatically be clipped at the edge of the area being filled, even if it is irregularly shaped. Functions that use the fill-texture of a stream include fill-box, fill-polygon, fill-circle, fill-circle-sector, fill-ellipse, fill-ellipse-sector, fill-rounded-box, and flood-fill.

The value should be any Common Graphics pixmap (see cg-pixmaps.htm) or one of the special symbols discussed further below. (For backward compatibility, the value may alternately be a texture, though it will draw correctly only if its width is a multiple of 32.)

The default value is the keyword `:solid`, which effectively means that the stream does not have a fill texture, and so the filling functions will simply draw in the current foreground-color of the stream.

If the value is a pixmap, then it behaves differently depending on whether it is monochrome. If the pixmap's bits-per-pixel property is 1 (indicating a monochrome pixmap), then the filling functions will draw the pixmap in the stream's current foreground-color wherever the pixmap has a "1" pixel, and in the stream's current background-color wherever it has a "0" pixel. Otherwise the pixmap will be drawn in its own colors, as with copy-to-stream.

As an alternative to specifying a custom pixmap, any of several special built-in fill-textures may be used by specifying a particular keyword symbol rather than a pixmap. These symbols include `:12%foreground`, `:25%foreground`, `:37%foreground`, `:50%foreground`, `:62%foreground`, `:75%foreground`, and `:87%foreground`. These fill-textures draw a pattern consisting of the indicated portion of pixels being drawn in the stream's current foreground-color, with the remaining pixels being drawn in the background-color. The foreground-color pixels are intermingled amongst the background-color pixels as evenly as possible, to "dither" the two colors. For example, if a stream's current background-color is `yellow`, its foreground-color is `dark-red`, and its fill-texture is the symbol `:25%foreground`, then filling functions will draw three-quarters of the pixels in the filled area as yellow, with one-quarter of the pixels sprinkled throughout as red.

A second set of special fill-texture symbols draw parallel straight lines in the foreground-color of a stream, with the remaining pixels in the background-color. These values are `:horizontal`, `:vertical`, `:left-diagonal` (drawing lines from upper-right to lower-left), and :right-diagonal (drawing lines from upper-left to lower-right).

### Examples

    ;; This example uses the built-in :left-diagonal fill-texture.
    (let* ((frame (make-window :filler :class 'bitmap-window
                               :interior (make-box 100 100 300 300)))
           (drawing-pane (frame-child frame)))
      (setf (foreground-color drawing-pane) red)
      (setf (background-color drawing-pane) yellow)
      (setf (fill-texture drawing-pane) :left-diagonal)
      (fill-ellipse drawing-pane (make-position 100 100) 80 50 0)
      (draw-ellipse drawing-pane (make-position 100 100) 80 50 0))

    ;; This example uses a multicolor pixmap.
    (let* ((frame (make-window :filler :class 'bitmap-window
                    :interior (make-box 100 100 300 300)))
           (drawing-pane (frame-child frame)))
      (setf (fill-texture drawing-pane)(find-pixmap :melvin))
      (fill-ellipse drawing-pane (make-position 100 100) 80 50 0)
      (draw-ellipse drawing-pane (make-position 100 100) 80 50 0))

    ;; This example uses a monochrome pixmap.
    (let* ((frame (make-window :filler :class 'bitmap-window
                    :interior (make-box 100 100 300 300)))
           (drawing-pane (frame-child frame)))
      (setf (foreground-color drawing-pane) dark-blue)
      (setf (background-color drawing-pane) cyan)
      (setf (fill-texture drawing-pane)
            (make-instance 'pixmap
               :bits-per-pixel 1
               :contents '(#*000111100000
                           #*001000010000
                           #*010000001000
                           #*100000000111
                           #*010000001000
                           #*001000010000)))
      (fill-ellipse drawing-pane (make-position 100 100) 80 50 0)
      (draw-ellipse drawing-pane (make-position 100 100) 80 50 0))

    #|

    These are used as the bar-fill-textures
    property in the chart-widget example in the
    Navigator Dialog.

    These pixmaps specify their own colors, unlike the 1-bit-per-pixel
    pixmap above that uses the window's current foreground-color and background-color.  You might want to
    use the actual :contents values shown here (or variations of them)
    with other colors that you prefer.

    |#

    (make-instance 'pixmap
      :name :diagonals
      :bits-per-pixel 8
      :colors (vector light-green dark-green)
      :contents '((1 0 0 0 0 1)
                  (0 0 0 0 1 1)
                  (0 0 0 1 1 0)
                  (0 0 1 1 0 0)
                  (0 1 1 0 0 0)
                  (1 1 0 0 0 0)))

    (make-instance 'pixmap
      :name :dots
      :bits-per-pixel 8
      :colors (vector light-yellow red)
      :contents '((0 0 0 1 0 0 0 0)
                  (0 0 0 0 0 0 0 1)
                  (0 1 0 0 0 0 0 0)
                  (0 0 0 0 0 1 0 0)))

    (make-instance 'pixmap
      :name :spots
      :bits-per-pixel 8
      :colors (vector cyan dark-blue)
      :contents '((1 0 0 0 0 0 0 1 1 1)
                  (0 0 0 1 1 0 0 0 1 1)
                  (0 0 1 1 1 1 0 0 0 0)
                  (0 0 1 1 1 1 0 0 0 0)
                  (0 0 1 1 1 1 0 0 1 1)
                  (1 0 0 1 1 0 0 1 1 1)))

    (make-instance 'pixmap
      :name :hexagons
      :bits-per-pixel 8
      :colors (vector cyan dark-blue)
      :contents '((0 0 0 1 1 1 1 0 0 0 0 0)
                  (0 0 1 0 0 0 0 1 0 0 0 0)
                  (0 1 0 0 0 0 0 0 1 0 0 0)
                  (1 0 0 0 0 0 0 0 0 1 1 1)
                  (0 1 0 0 0 0 0 0 1 0 0 0)
                  (0 0 1 0 0 0 0 1 0 0 0 0)))

    (make-instance 'pixmap
      :name :squares
      :bits-per-pixel 8
      :colors (vector yellow dark-yellow)
      :contents '((1 0 0 0 0 0)
                  (1 0 0 0 0 0)
                  (1 0 0 0 0 0)
                  (1 0 0 0 0 0)
                  (1 0 0 0 0 0)
                  (1 1 1 1 1 1)))

    (make-instance 'pixmap
      :name :eksuz
      :bits-per-pixel 8
      :colors (vector light-gray red)
      :contents '((1 0 0 0 0 0 1)
                  (0 1 0 0 0 1 0)
                  (0 0 1 0 1 1 0)
                  (0 0 0 1 0 0 0)
                  (0 0 1 0 1 0 0)
                  (0 1 0 0 0 1 0)
                  (1 0 0 0 0 0 1)))

Copyright (c) 1998-2019, Franz Inc. Oakland, CA., USA. All rights reserved.
This page was not revised from the 8.2 page.
Created 2012.5.30.

|  | ToC | DocOverview | CGDoc | RelNotes | FAQ | Index | PermutedIndex
| Allegro CL version 9.0 Unrevised from 8.2 to 9.0. 8.2 version