4 Pict Drawing Adjusters

▼ |  | Pict: Functional Pictures

1 | Pict Datatype
2 | Basic Pict Constructors
3 | Pict Combiners
4 | Pict Drawing Adjusters
5 | Bounding Box Adjusters
6 | Pict Finders
7 | More Pict Constructors
8 | Animation Helpers
9 | Color Helpers
10 | Shadows
11 | Conditional Combinations
12 | Tree Layout
13 | Miscellaneous
14 | Rendering
15 | Conversion to Picts

On this page:

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

top ← prev up next →

### 4`` Pict Drawing Adjusters

> procedure (scale pict factor) → pict?
> pict : pict-convertible?
> factor : real?
> (scale pict w-factor h-factor) → pict?
> pict : pict-convertible?
> 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 40 40)
> > (scale (filled-rectangle 40 40) 1.5)
> > (scale (filled-rectangle 40 40) 2 1.5)

> procedure (scale-to-fit pict size-pict [#:mode mode]) → pict?
> pict : pict-convertible?
> size-pict : pict-convertible?
> | mode |  | : |  |
> (or/c 'preserve 'inset
> 'preserve/max 'inset/max
> 'distort)
> |  | = |  | 'preserve
> (scale-to-fit pict width height [#:mode mode]) → pict?
> pict : pict-convertible?
> width : real?
> height : real?
> | mode |  | : |  |
> (or/c 'preserve 'inset
> 'preserve/max 'inset/max
> '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 or 'preserve/max, the width and height are scaled by the same factor so pict’s aspect ratio is preserved. If mode is 'preserve the result’s bounding box will not be larger than width by height but it may be smaller. When mode is 'preserve/max, the opposite is true; the bounding box will never be smaller, but might be larger.

If mode is 'inset or 'inset/max, the aspect ratio is preserved as with 'preserve and 'preserve/max, but the resulting pict is centered on a bounding box of exactly width by height.

If mode is 'distort, the width and height are scaled separately.

Examples:

> > (define rect (colorize (filled-rectangle 40 40) "olive"))
> > rect
> > (scale-to-fit rect (disk 60))
> > (scale-to-fit rect 80 30 #:mode 'preserve)
> > (frame (scale-to-fit rect 80 30 #:mode 'inset))
> > (scale-to-fit rect 80 30 #:mode 'preserve/max)
> > (cc-superimpose (blank 100 100)
> (frame (scale-to-fit rect 80 30 #:mode 'inset/max)))
> > (scale-to-fit rect 80 30 #:mode 'distort)

Changed in version 1.4 of package pict-lib: Added #:mode argument.

> procedure (rotate pict theta) → pict?
> pict : pict-convertible?
> 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.

Example:

> > (rotate (colorize (filled-rectangle 30 30)
> "chartreuse")
> (/ pi 3))

> procedure (ghost pict) → pict?
> pict : pict-convertible?

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

Example:

> > (frame (hc-append (ghost (filled-rectangle 30 30))
> (colorize (disk 30) "turquoise")))

> procedure (linewidth w pict) → pict?
> w : (or/c real? #f)
> pict : pict-convertible?

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”).

Examples:

> > (linewidth 3 (hline 40 1))
> > (linewidth 5 (hline 40 1))

> procedure (linestyle style pict) → pict?
> | 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)
> pict : pict-convertible?

Selects a specific pen style for drawing, which applies to pen drawing for pict that does not already use a specific pen style.

Examples:

> > (define styles
> '(transparent solid xor hilite dot long-dash short-dash
> dot-dash xor-dot xor-long-dash xor-short-dash xor-dot-dash))
> > (apply ht-append
> 10
> (for/list ([style (in-list styles)])
> (vc-append 5
> (text (symbol->string style))
> (linewidth 3 (linestyle style (hline 40 1))))))

> procedure (colorize pict color) → pict?
> pict : pict-convertible?
> | 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.

Examples:

> > (colorize (disk 40) "lavender")
> > (colorize (filled-rectangle 40 40)
> (list 255 153 85))
> > (colorize (arrow 40 0)
> (make-color 170 180 120))

> procedure (cellophane pict opacity) → pict?
> pict : pict-convertible?
> 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.

Examples:

> > (cc-superimpose (filled-rectangle 70 45 #:color "darkcyan")
> (cellophane (disk 40) 0.2))
> > (cc-superimpose (filled-rectangle 70 45 #:color "darkcyan")
> (cellophane (disk 40) 0.8))

> procedure (clip pict) → pict
> pict : pict-convertible?

Clips a pict’s drawing to its bounding box.

Examples:

> > (define shape
> (inset (colorize (filled-rectangle 40 40) "thistle") -10))
> > shape
> > (clip shape)

> procedure (inset/clip pict amt) → pict?
> pict : pict-convertible?
> amt : real?
> (inset/clip pict h-amt v-amt) → pict?
> pict : pict-convertible?
> h-amt : real?
> v-amt : real?
> (inset/clip pict l-amt t-amt r-amt b-amt) → pict?
> pict : pict-convertible?
> 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.

Examples:

> > (filled-rectangle 40 40 #:color "forestgreen")
> > (inset/clip (filled-rectangle 40 40 #:color "forestgreen") -10)
> > (inset/clip (filled-rectangle 40 40 #:color "forestgreen")
> -10 -5)
> > (inset/clip (filled-rectangle 40 40 #:color "forestgreen")
> -2 -4 -8 -16)

> 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.

Examples:

> > (text "Hello World" null 25)
> > (scale/improve-new-text (text "Hello World" null 25) 2)
> > (scale (text "Hello World" null 25) 2)

> 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.

Examples:

> > (colorize (disk 40) "seagreen")
> > (parameterize ([black-and-white #t])
> (colorize (disk 40) "seagreen"))

> procedure (freeze pict) → pict?
> pict : pict-convertible?

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.

Examples:

> > (define txt
> (colorize (text "Freeze!" null 25) "deepskyblue"))
> > (scale txt 2.5)
> > (scale (freeze txt) 2.5)

top ← prev up next →