On this page:
scale
scale-to-fit
rotate
ghost
linewidth
linestyle
colorize
cellophane
clip
inset/  clip
scale/  improve-new-text
black-and-white
freeze

4 Pict Drawing Adjusters

procedure

(scale pict factor)  pict?

  pict : pict?
  factor : real?
(scale pict w-factor h-factor)  pict?
  pict : pict?
  w-factor : real?
  h-factor : real?
Scales a pict drawing, as well as its bounding box, by multiplying it current size by factor (if two arguments are supplied) or by multiplying the current width by w-factor and current height by h-factor (if three arguments are supplied).

The drawing is scaled by adjusting the destination dc<%>’s scale while drawing the original pict.

Examples:

> (filled-rectangle 80 40)

image

> (scale (filled-rectangle 40 20) 2)

image

> (scale (filled-rectangle 20 20) 4 2)

image

procedure

(scale-to-fit pict size-pict [#:mode mode])  pict?

  pict : pict?
  size-pict : pict?
  mode : (or/c 'preserve 'inset 'distort) = 'preserve
(scale-to-fit pict width height [#:mode mode])  pict?
  pict : pict?
  width : real?
  height : real?
  mode : (or/c 'preserve 'inset 'distort) = 'preserve
Scales pict so that it fits within the bounding box of size-pict (if two arguments are supplied) or into a box of size width by height (if three arguments are supplied).

If mode is 'preserve, the width and height are scaled by the same factor so pict’s aspect ratio is preserved; the result’s bounding box may be smaller than width by height. If mode is 'inset, the aspect ratio is preserved as with 'preserve, but the resulting pict is centered in a bounding box of exactly width by height. If mode is 'distort, the width and height are scaled separately.

procedure

(rotate pict theta)  pict?

  pict : pict?
  theta : real?
Rotates a pict’s drawing by theta radians counter-clockwise.

The bounding box of the resulting pict is the box encloses the rotated corners of pict (which inflates the area of the bounding box, unless theta is a multiple of half of pi). The ascent and descent lines of the result’s bounding box are the horizontal lines that bisect the rotated original lines; if the ascent line drops below the descent line, the two lines are flipped.

procedure

(ghost pict)  pict?

  pict : pict?
Creates a container picture that doesn’t draw the child picture, but uses the child’s size.

procedure

(linewidth w pict)  pict?

  w : (or/c real? #f)
  pict : pict?
Selects a specific pen width for drawing, which applies to pen drawing for pict that does not already use a specific pen width. A #f value for w makes the pen transparent (in contrast to a zero value, which means “as thin as possible for the target device”).

procedure

(linestyle style pict)  pict?

  style : 
(one-of/c 'transparent 'solid 'xor 'hilite
          'dot 'long-dash 'short-dash 'dot-dash
          'xor-dot 'xor-long-dash 'xor-short-dash
          'xor-dot-dash)
  pict : pict?
Selects a specific pen style for drawing, which applies to pen drawing for pict that does not already use a specific pen style.

procedure

(colorize pict color)  pict?

  pict : pict?
  color : 
(or/c string? (is-a?/c color%)
      (list/c byte? byte? byte?))
Selects a specific color drawing, which applies to drawing in pict that does not already use a specific color. The black-and-white parameter causes all non-white colors to be converted to black.

procedure

(cellophane pict opacity)  pict?

  pict : pict?
  opacity : (real-in 0 1)
Makes the given pict semi-transparent, where an opacity of 0 is fully transparent, and an opacity of 1 is fully opaque. See set-alpha for information about the contexts and cases when semi-transparent drawing works.

procedure

(clip pict)  pict

  pict : pict?
Clips a pict’s drawing to its bounding box.

procedure

(inset/clip pict amt)  pict?

  pict : pict?
  amt : real?
(inset/clip pict h-amt v-amt)  pict?
  pict : pict?
  h-amt : real?
  v-amt : real?
(inset/clip pict l-amt t-amt r-amt b-amt)  pict?
  pict : pict?
  l-amt : real?
  t-amt : real?
  r-amt : real?
  b-amt : real?
Insets and clips the pict’s drawing to its bounding box. Usually, the inset amounts are negative.

syntax

(scale/improve-new-text pict-expr scale-expr)

(scale/improve-new-text pict-expr x-scale-expr y-scale-expr)
Like the scale procedure, but also sets current-expected-text-scale while evaluating pict-expr.

parameter

(black-and-white)  boolean?

(black-and-white on?)  void?
  on? : any/c
A parameter that determines whether colorize uses color or black-and-white colors.

procedure

(freeze pict)  pict?

  pict : pict?
Creates a bitmap with the same size as pict, draws pict into the bitmap, and then returns a pict that draws with the bitmap.

This has the effect of speeding up subsequent drawing of the pict and also of cropping it to its bounding box. Any sub-picts of pict remain intact within the new pict.