2.4 Pict Drawing Adjusters
procedure
pict : pict? factor : real? (scale pict w-factor h-factor) → pict? pict : pict? w-factor : real? h-factor : real?
procedure
(scale-to-fit pict size-pict) → pict?
pict : pict? size-pict : pict? (scale-to-fit pict width height) → pict? pict : pict? width : real? height : real?
The aspect ratio of the pict is preserved, so the resulting pict will have either the width or the height of the size-pict (or width by height box), but not necessarily both.
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
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?
procedure
(cellophane pict opacity) → pict?
pict : pict? opacity : (real-in 0 1)
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?
syntax
(scale/improve-new-text pict-expr scale-expr)
(scale/improve-new-text pict-expr x-scale-expr y-scale-expr)
parameter
(black-and-white on?) → void? on? : any/c