On this page:
current-ps-setup
get-face-list
get-family-builtin-face
make-bitmap
make-brush
make-color
make-font
make-monochrome-bitmap
make-pen
make-platform-bitmap
read-bitmap
recorded-datum->procedure
the-brush-list
the-color-database
the-font-list
the-font-name-directory
the-pen-list

26 Drawing Functions

parameter

(current-ps-setup)  (is-a?/c ps-setup%)

(current-ps-setup pss)  void?
  pss : (is-a?/c ps-setup%)
A parameter that determines the current PostScript configuration settings. See post-script-dc% and printer-dc%.

procedure

(get-face-list [kind 
  #:all-variants? all-variants?]) 
  (listof string?)
  kind : (or/c 'mono 'all) = 'all
  all-variants? : any/c = #f
Returns a list of font face names available on the current system. If kind is 'mono, then only faces that are known to correspond to monospace fonts are included in the list.

If all-variants? is #f (the default), then the result is in more standard terminology a list of font family names, which are combined with style and weight options to arrive at a face; if all-variants? is true, then the result includes a string for each available face in the family.

procedure

(get-family-builtin-face family)  string?

  family : 
(or/c 'default 'decorative 'roman 'script
      'swiss 'modern 'symbol 'system)
Returns the built-in default face mapping for a particular font family.

See font% for information about family.

procedure

(make-bitmap width height [alpha?])  (is-a?/c bitmap%)

  width : exact-positive-integer?
  height : exact-positive-integer?
  alpha? : any/c = #t
Returns (make-object bitmap% width height #f alpha?), but this procedure is preferred because it defaults alpha? in a more useful way.

See also make-platform-bitmap and Portability and Bitmap Variants.

procedure

(make-brush [#:color color    
  #:style style    
  #:stipple stipple    
  #:gradient gradient    
  #:transformation transformation    
  #:immutable? immutable?])  (is-a?/c brush%)
  color : (or/c string? (is-a?/c color%)) = (make-color 0 0 0)
  style : 
(or/c 'transparent 'solid 'opaque
      'xor 'hilite 'panel
      'bdiagonal-hatch 'crossdiag-hatch
      'fdiagonal-hatch 'cross-hatch
      'horizontal-hatch 'vertical-hatch)
 = 'solid
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
  gradient : 
(or/c #f
     (is-a?/c linear-gradient%)
     (is-a?/c radial-gradient%))
 = #f
  transformation : 
(or/c #f (vector/c (vector/c real? real? real?
                             real? real? real?)
                    real? real? real? real? real?))
   = #f
  immutable? : any/c = #t
Creates a brush% instance. This procedure provides a nearly equivalent interface compared to using make-object with brush%, but it also supports the creation of immutable brushes (and creates immutable burshes by default).

When stipple is #f, gradient is #f, transformation is #f, immutable? is true, and color is either a color% object or a string in the-color-database, the result brush is created via find-or-create-brush of the-brush-list.

procedure

(make-color red green blue [alpha])  (is-a?/c color%)

  red : byte?
  green : byte?
  blue : byte?
  alpha : (real-in 0 1) = 1.0
Creates a color% instance. This procedure provides a nearly equivalent interface compared to using make-object with color%, but it creates an immutable color% object.

To create an immutable color based on a color string, use find-color or the-color-database.

procedure

(make-font [#:size size    
  #:face face    
  #:family family    
  #:style style    
  #:weight weight    
  #:underlined? underlined?    
  #:smoothing smoothing    
  #:size-in-pixels? size-in-pixels?    
  #:hinting hinting])  (is-a?/c font%)
  size : (integer-in 1 1024) = 12
  face : (or/c string? #f) = #f
  family : 
(or/c 'default 'decorative 'roman 'script
      'swiss 'modern 'symbol 'system)
 = 'default
  style : (or/c 'normal 'italic 'slant) = 'normal
  weight : (or/c 'normal 'bold 'light) = 'normal
  underlined? : any/c = #f
  smoothing : 
(or/c 'default 'partly-smoothed
      'smoothed 'unsmoothed)
 = 'default
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
Creates a font% instance. This procedure provides an equivalent but more convenient interface compared to using make-object with font%.

procedure

(make-monochrome-bitmap width height [bits])  (is-a?/c bitmap%)

  width : exact-positive-integer?
  height : exact-positive-integer?
  bits : (or/c bytes? #f) = #f
Returns (make-object bitmap% width height #t) if bits is #f, or (make-object bitmap% bits width height) otherwise. This procedure is preferred to using make-object on bitmap% because it is less overloaded.

procedure

(make-pen [#:color color    
  #:width width    
  #:style style    
  #:cap cap    
  #:join join    
  #:stipple stipple    
  #:immutable? immutable?])  (is-a?/c pen%)
  color : (or/c string? (is-a?/c color%)) = (make-color 0 0 0)
  width : (real-in 0 255) = 0
  style : 
(or/c 'transparent 'solid 'xor 'hilite
      'dot 'long-dash 'short-dash 'dot-dash
      'xor-dot 'xor-long-dash 'xor-short-dash
      'xor-dot-dash)
 = 'solid
  cap : (or/c 'round 'projecting 'butt) = 'round
  join : (or/c 'round 'bevel 'miter) = 'round
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
  immutable? : any/c = #t
Creates a pen% instance. This procedure provides a nearly equivalent interface compared to using make-object with pen%, but it also supports the creation of immutable pens (and creates immutable pens by default).

When stipple is #f, immutable? is true, and color is either a color% object or a string in the-color-database, the result pen is created via find-or-create-pen of the-pen-list.

procedure

(make-platform-bitmap width height)  (is-a?/c bitmap%)

  width : exact-positive-integer?
  height : exact-positive-integer?
Creates a bitmap that uses platform-specific drawing operations as much as possible, which is different than a make-bitmap result on Windows and Mac OS X. See Portability and Bitmap Variants for more information.

procedure

(read-bitmap in    
  [kind    
  bg-color    
  complain-on-failure?])  (is-a?/c bitmap%)
  in : (or path-string? input-port?)
  kind : 
(or/c 'unknown 'unknown/mask 'unknown/alpha
      'gif 'gif/mask 'gif/alpha
      'jpeg 'jpeg/alpha
      'png 'png/mask 'png/alpha
      'xbm 'xbm/alpha 'xpm 'xpm/alpha
      'bmp 'bmp/alpha)
   = 'unknown/alpha
  bg-color : (or/c (is-a?/c color%) #f) = #f
  complain-on-failure? : any/c = #t
Returns (make-object bitmap% in kind bg-color complain-on-failure?), but this procedure is preferred because it defaults kind and complain-on-failure? in a more useful way.

procedure

(recorded-datum->procedure datum)

  ((is-a?/c dc<%>) . -> . void?)
  datum : any/c
Converts a value from get-recorded-datum in record-dc% to a drawing procedure.