10303
((3) 0 () 19 ((q lib "pict/code.rkt") (q lib "pict/main.rkt") (q 2282 . 15) (q 15423 . 46) (q 0 . 18) (q lib "pict/balloon.rkt") (q 10053 . 25) (q 698 . 10) (q 10721 . 31) (q lib "pict/flash.rkt") (q lib "pict/face.rkt") (q 20981 . 13) (q 4000 . 7) (q 2763 . 10) (q 4454 . 108) (q lib "pict/convert.rkt") (q 1682 . 9) (q 4164 . 13) (q 3082 . 19)) () (h ! (equal) ((c def c (c (? . 0) q mzscheme-const-list)) q (26001 . 2)) ((c def c (c (? . 1) q make-pict-drawer)) q (29796 . 4)) ((c form c (c (? . 0) q define-exec-code)) q (26889 . 3)) ((c def c (c (? . 1) q lt-find)) c (? . 3)) ((c def c (c (? . 1) q filled-ellipse)) c (? . 2)) ((c def c (c (? . 1) q standard-fish)) q (17106 . 13)) ((c def c (c (? . 1) q clip-descent)) q (14788 . 3)) ((c def c (c (? . 1) q pict-panbox)) c (? . 4)) ((c def c (c (? . 1) q fade-pict)) q (27484 . 6)) ((c def c (c (? . 1) q thermometer)) q (18207 . 20)) ((c def c (c (? . 1) q disk)) c (? . 2)) ((c def c (c (? . 1) q ct-find)) c (? . 3)) ((c def c (c (? . 1) q ht-append)) c (? . 6)) ((c def c (c (? . 1) q pict-ascent)) c (? . 4)) ((c def c (c (? . 1) q rbl-find)) c (? . 3)) ((c def c (c (? . 1) q child-sy)) c (? . 7)) ((c form c (c (? . 0) q define-code)) q (26501 . 3)) ((c def c (c (? . 1) q ltl-superimpose)) c (? . 8)) ((c def c (c (? . 0) q current-code-line-sep)) q (24308 . 4)) ((c def c (c (? . 1) q dc-for-text-size)) q (29457 . 4)) ((c def c (c (? . 9) q outline-flash)) q (23421 . 11)) ((c def c (c (? . 1) q pin-arrows-line)) c (? . 14)) ((c def c (c (? . 5) q wrap-balloon)) q (19297 . 13)) ((c def c (c (? . 1) q pict-descent)) c (? . 4)) ((c def c (c (? . 1) q fast-start)) q (28235 . 3)) ((c def c (c (? . 1) q rc-find)) c (? . 3)) ((c def c (c (? . 0) q current-literal-color)) q (24896 . 4)) ((c def c (c (? . 1) q struct:pict)) c (? . 4)) ((c def c (c (? . 1) q use-last*)) q (15327 . 4)) ((c def c (c (? . 1) q rectangle)) c (? . 13)) ((c def c (c (? . 10) q face*)) q (21668 . 30)) ((c def c (c (? . 5) q balloon?)) c (? . 11)) ((c def c (c (? . 1) q hbl-append)) c (? . 6)) ((c def c (c (? . 1) q pict-last)) c (? . 4)) ((c def c (c (? . 0) q current-comment-color)) q (24411 . 4)) ((c def c (c (? . 1) q lb-find)) c (? . 3)) ((c def c (c (? . 0) q id-color)) q (27177 . 2)) ((c def c (c (? . 0) q current-code-font)) q (23895 . 4)) ((c def c (c (? . 1) q cellophane)) q (13754 . 4)) ((c def c (c (? . 1) q scale-color)) q (28722 . 4)) ((c def c (c (? . 1) q make-child)) c (? . 7)) ((c def c (c (? . 1) q cb-find)) c (? . 3)) ((c def c (c (? . 5) q balloon-color)) q (21313 . 2)) ((c def c (c (? . 1) q blank)) q (1205 . 15)) ((c def c (c (? . 1) q rbl-superimpose)) c (? . 8)) ((c def c (c (? . 1) q scale)) q (12656 . 8)) ((c def c (c (? . 5) q pin-balloon)) q (20332 . 11)) ((c def c (c (? . 9) q filled-flash)) q (23039 . 11)) ((c def c (c (? . 1) q child)) c (? . 7)) ((c def c (c (? . 0) q code-transformer?)) q (26826 . 3)) ((c def c (c (? . 1) q color-series)) q (28853 . 17)) ((c def c (c (? . 0) q keyword-color)) q (27118 . 2)) ((c def c (c (? . 1) q slide-pict)) q (27821 . 7)) ((c def c (c (? . 1) q cbl-superimpose)) c (? . 8)) ((c def c (c (? . 15) q prop:pict-convertible)) q (30833 . 2)) ((c def c (c (? . 0) q code-pict-bottom-line-pict)) q (27290 . 3)) ((c def c (c (? . 1) q lift-above-baseline)) q (14849 . 4)) ((c def c (c (? . 1) q reverse-animations)) q (28111 . 3)) ((c def c (c (? . 10) q face)) q (21533 . 4)) ((c def c (c (? . 1) q use-last)) q (15232 . 4)) ((c def c (c (? . 1) q pict-path?)) q (16684 . 3)) ((c def c (c (? . 1) q fast-edges)) q (28395 . 3)) ((c def c (c (? . 1) q linestyle)) q (13277 . 7)) ((c form c (c (? . 1) q scale/improve-new-text)) q (14248 . 3)) ((c def c (c (? . 5) q balloon-enable-3d)) q (21372 . 4)) ((c def c (c (? . 5) q balloon-point-x)) c (? . 11)) ((c def c (c (? . 10) q default-face-color)) q (21470 . 2)) ((c def c (c (? . 5) q pip-wrap-balloon)) q (19804 . 13)) ((c def c (c (? . 1) q bitmap)) q (3851 . 5)) ((c def c (c (? . 1) q cc-superimpose)) c (? . 8)) ((c def c (c (? . 1) q arrow)) c (? . 12)) ((c def c (c (? . 1) q pict->bitmap)) q (29722 . 3)) ((c def c (c (? . 0) q get-current-code-font-size)) q (24139 . 4)) ((c def c (c (? . 1) q text)) q (1495 . 6)) ((c form c (c (? . 0) q code)) q (23869 . 2)) ((c def c (c (? . 1) q file-icon)) q (16932 . 6)) ((c def c (c (? . 1) q hb-append)) c (? . 6)) ((c def c (c (? . 1) q circle)) c (? . 2)) ((c def c (c (? . 1) q refocus)) q (15086 . 4)) ((c def c (c (? . 1) q arrowhead)) c (? . 12)) ((c def c (c (? . 1) q lbl-find)) c (? . 3)) ((c def c (c (? . 1) q cloud)) q (16796 . 5)) ((c def c (c (? . 1) q scale-to-fit)) q (12849 . 8)) ((c def c (c (? . 1) q child?)) c (? . 7)) ((c def c (c (? . 1) q filled-rectangle)) c (? . 13)) ((c def c (c (? . 1) q ellipse)) c (? . 2)) ((c def c (c (? . 0) q prop:code-transformer)) q (26772 . 2)) ((c def c (c (? . 1) q fast-end)) q (28316 . 3)) ((c def c (c (? . 1) q rt-find)) c (? . 3)) ((c def c (c (? . 0) q code-scripts-enabled)) q (26397 . 4)) ((c def c (c (? . 1) q child-sxy)) c (? . 7)) ((c def c (c (? . 1) q lc-superimpose)) c (? . 8)) ((c def c (c (? . 1) q launder)) q (16740 . 3)) ((c def c (c (? . 1) q ghost)) q (13134 . 3)) ((c def c (c (? . 1) q make-pict)) c (? . 4)) ((c def c (c (? . 1) q table)) q (12213 . 13)) ((c def c (c (? . 0) q current-keyword-list)) q (25567 . 4)) ((c def c (c (? . 0) q current-const-list)) q (25696 . 4)) ((c def c (c (? . 1) q pin-line)) c (? . 14)) ((c def c (c (? . 1) q hyperlinkize)) q (28661 . 3)) ((c def c (c (? . 1) q black-and-white)) q (14367 . 4)) ((c def c (c (? . 1) q fast-middle)) q (28476 . 3)) ((c def c (c (? . 1) q jack-o-lantern)) q (17700 . 7)) ((c def c (c (? . 1) q hline)) c (? . 16)) ((c def c (c (? . 1) q filled-rounded-rectangle)) c (? . 18)) ((c def c (c (? . 0) q pict->code-pict)) q (27377 . 4)) ((c def c (c (? . 1) q rotate)) q (13052 . 4)) ((c def c (c (? . 1) q pin-arrow-line)) c (? . 14)) ((c def c (c (? . 1) q sequence-animations)) q (27986 . 3)) ((c def c (c (? . 0) q make-code-transformer)) q (26599 . 4)) ((c def c (c (? . 1) q rb-superimpose)) c (? . 8)) ((c def c (c (? . 1) q rt-superimpose)) c (? . 8)) ((c def c (c (? . 1) q child-sx)) c (? . 7)) ((c def c (c (? . 1) q pin-under)) q (11914 . 11)) ((c def c (c (? . 15) q prop:pict-convertible?)) q (30887 . 2)) ((c def c (c (? . 1) q colorize)) q (13591 . 5)) ((c def c (c (? . 0) q current-id-color)) q (24741 . 4)) ((c def c (c (? . 0) q code-colorize-enabled)) q (26049 . 4)) ((c def c (c (? . 1) q vc-append)) c (? . 6)) ((c def c (c (? . 1) q pict-children)) c (? . 4)) ((c def c (c (? . 0) q current-code-tt)) q (24008 . 4)) ((c def c (c (? . 1) q fade-around-pict)) q (27679 . 5)) ((c def c (c (? . 1) q lbl-superimpose)) c (? . 8)) ((c def c (c (? . 1) q rtl-find)) c (? . 3)) ((c def c (c (? . 0) q comment-color)) q (27059 . 2)) ((c def c (c (? . 1) q child-dx)) c (? . 7)) ((c def c (c (? . 1) q child-syx)) c (? . 7)) ((c def c (c (? . 1) q lc-find)) c (? . 3)) ((c def c (c (? . 1) q desktop-machine)) q (18091 . 4)) ((c def c (c (? . 0) q code-italic-underscore-enabled)) q (26273 . 4)) ((c def c (c (? . 1) q ct-superimpose)) c (? . 8)) ((c def c (c (? . 1) q vline)) c (? . 16)) ((c def c (c (? . 0) q code-colorize-quote-enabled)) q (26155 . 4)) ((c def c (c (? . 5) q balloon-pict)) c (? . 11)) ((c def c (c (? . 5) q make-balloon)) c (? . 11)) ((c def c (c (? . 1) q rc-superimpose)) c (? . 8)) ((c def c (c (? . 1) q htl-append)) c (? . 6)) ((c def c (c (? . 5) q balloon)) q (20655 . 9)) ((c def c (c (? . 1) q pin-over)) q (11607 . 11)) ((c def c (c (? . 5) q balloon-point-y)) c (? . 11)) ((c def c (c (? . 1) q struct:child)) c (? . 7)) ((c def c (c (? . 1) q rtl-superimpose)) c (? . 8)) ((c def c (c (? . 0) q current-base-color)) q (25222 . 4)) ((c def c (c (? . 0) q literal-color)) q (27231 . 2)) ((c def c (c (? . 1) q pict)) c (? . 4)) ((c form c (c (? . 0) q define-exec-code/scale)) q (26965 . 3)) ((c def c (c (? . 1) q ctl-find)) c (? . 3)) ((c def c (c (? . 1) q bitmap-draft-mode)) q (9955 . 4)) ((c def c (c (? . 1) q angel-wing)) q (17992 . 5)) ((c def c (c (? . 15) q pict-convert)) q (31005 . 3)) ((c def c (c (? . 1) q pict-draw)) c (? . 4)) ((c def c (c (? . 1) q pict-width)) c (? . 4)) ((c def c (c (? . 1) q baseless)) q (15029 . 3)) ((c def c (c (? . 1) q dc)) q (919 . 11)) ((c def c (c (? . 1) q pip-arrow-line)) c (? . 17)) ((c def c (c (? . 0) q current-reader-forms)) q (25381 . 4)) ((c def c (c (? . 1) q pip-arrows-line)) c (? . 17)) ((c def c (c (? . 0) q current-literal-list)) q (25821 . 4)) ((c def c (c (? . 1) q inset)) q (14461 . 14)) ((c def c (c (? . 1) q cc-find)) c (? . 3)) ((c def c (c (? . 1) q inset/clip)) q (13906 . 14)) ((c def c (c (? . 0) q current-const-color)) q (25061 . 4)) ((c def c (c (? . 1) q current-expected-text-scale)) q (30682 . 4)) ((c def c (c (? . 1) q hc-append)) c (? . 6)) ((c def c (c (? . 1) q panorama)) q (15175 . 3)) ((c def c (c (? . 1) q linewidth)) q (13188 . 4)) ((c def c (c (? . 15) q pict-convertible?)) q (30942 . 3)) ((c def c (c (? . 0) q racket/base-const-list)) q (25950 . 2)) ((c def c (c (? . 1) q ltl-find)) c (? . 3)) ((c def c (c (? . 1) q frame)) q (1944 . 9)) ((c def c (c (? . 0) q typeset-code)) q (23808 . 3)) ((c def c (c (? . 1) q ctl-superimpose)) c (? . 8)) ((c def c (c (? . 1) q drop-below-ascent)) q (14940 . 4)) ((c def c (c (? . 0) q current-keyword-color)) q (24576 . 4)) ((c def c (c (? . 1) q split-phase)) q (28558 . 3)) ((c def c (c (? . 1) q child-dy)) c (? . 7)) ((c def c (c (? . 1) q show-pict)) q (29904 . 15)) ((c def c (c (? . 1) q pict?)) c (? . 4)) ((c def c (c (? . 0) q code-align)) q (25508 . 3)) ((c def c (c (? . 1) q pip-line)) c (? . 17)) ((c def c (c (? . 1) q cbl-find)) c (? . 3)) ((c def c (c (? . 1) q rounded-rectangle)) c (? . 18)) ((c def c (c (? . 1) q pict-height)) c (? . 4)) ((c def c (c (? . 1) q vr-append)) c (? . 6)) ((c def c (c (? . 1) q clip)) q (13854 . 3)) ((c def c (c (? . 1) q cb-superimpose)) c (? . 8)) ((c def c (c (? . 1) q child-pict)) c (? . 7)) ((c def c (c (? . 1) q lt-superimpose)) c (? . 8)) ((c def c (c (? . 1) q draw-pict)) q (29594 . 6)) ((c def c (c (? . 1) q text-style/c)) q (9922 . 2)) ((c def c (c (? . 1) q rb-find)) c (? . 3)) ((c def c (c (? . 1) q lb-superimpose)) c (? . 8)) ((c def c (c (? . 1) q vl-append)) c (? . 6))))
struct
(struct pict                                (draw
                                            width
                                            height
                                            ascent
                                            descent
                                            children
                                            panbox
                                            last)
        #:extra-constructor-name make-pict)
  draw : any/c
  width : real?
  height : real?
  ascent : real?
  descent : real?
  children : (listof child?)
  panbox : (or/c #f any/c)
  last : (or/c #f pict-path?)
struct
(struct child (pict dx dy sx sy sxy syx)
        #:extra-constructor-name make-child)
  pict : pict?
  dx : real?
  dy : real?
  sx : real?
  sy : real?
  sxy : real?
  syx : real?
procedure
(dc draw w h) -> pict?
  draw : ((is-a?/c dc<%>) real? real? . -> . any)
  w : real?
  h : real?
(dc draw w h a d) -> pict?
  draw : ((is-a?/c dc<%>) real? real? . -> . any)
  w : real?
  h : real?
  a : real?
  d : real?
procedure
(blank [size]) -> pict?
  size : real? = 0
(blank w h) -> pict?
  w : real?
  h : real?
(blank w a d) -> pict?
  w : real?
  a : real?
  d : real?
(blank w h a d) -> pict?
  w : real?
  h : real?
  a : real?
  d : real?
procedure
(text content [style size angle]) -> pict?
  content : string?
  style : text-style/c = null
  size : (integer-in 1 1024) = 12
  angle : real? = 0
procedure
(hline w h [#:segment seg-length]) -> pict?
  w : real?
  h : real?
  seg-length : (or/c #f real?) = #f
(vline w h [#:segment seg-length]) -> pict?
  w : real?
  h : real?
  seg-length : (or/c #f real?) = #f
procedure
(frame  pict                     
       [#:segment seg-length     
        #:color color            
        #:line-width width]) -> pict?
  pict : pict?
  seg-length : (or/c #f real?) = #f
  color : (or/c #f string? (is-a?/c color<%>)) = #f
  width : (or/c #f real?) = #f
procedure
(ellipse w h) -> pict?
  w : real?
  h : real?
(circle diameter) -> pict?
  diameter : real?
(filled-ellipse  w                                 
                 h                                 
                [#:draw-border? draw-border?]) -> pict?
  w : real?
  h : real?
  draw-border? : any/c = #t
(disk diameter [#:draw-border? draw-border?]) -> pict?
  diameter : real?
  draw-border? : any/c = #t
procedure
(rectangle w h) -> pict?
  w : real?
  h : real?
(filled-rectangle  w                                 
                   h                                 
                  [#:draw-border? draw-border?]) -> pict?
  w : real?
  h : real?
  draw-border? : any/c = #t
procedure
(rounded-rectangle  w                   
                    h                   
                   [corner-radius       
                    #:angle angle]) -> pict?
  w : real?
  h : real?
  corner-radius : real? = -0.25
  angle : real? = 0
(filled-rounded-rectangle  w                                 
                           h                                 
                          [corner-radius                     
                           #:angle angle                     
                           #:draw-border? draw-border?]) -> pict?
  w : real?
  h : real?
  corner-radius : real? = -0.25
  angle : real? = 0
  draw-border? : any/c = #t
procedure
(bitmap img) -> pict
  img : (or/c path-string?
              (is-a?/c bitmap%)
              (is-a?/c image-snip%))
procedure
(arrow size radians) -> pict?
  size : real?
  radians : real?
(arrowhead size radians) -> pict?
  size : real?
  radians : real?
procedure
(pip-line dx dy size) -> pict?
  dx : real?
  dy : real?
  size : real?
(pip-arrow-line dx dy size) -> pict?
  dx : real?
  dy : real?
  size : real?
(pip-arrows-line dx dy size) -> pict?
  dx : real?
  dy : real?
  size : real?
procedure
(pin-line  pict                          
           src                           
           find-src                      
           dest                          
           find-dest                     
          [#:start-angle start-angle     
           #:end-angle end-angle         
           #:start-pull start-pull       
           #:end-pull end-pull           
           #:line-width line-width       
           #:color color                 
           #:alpha alpha                 
           #:style style                 
           #:under? under?])         -> pict?
  pict : pict?
  src : pict-path?
  find-src : (pict? pict-path? . -> . (values real? real?))
  dest : pict-path?
  find-dest : (pict? pict-path? . -> . (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c #f real?) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0.0 1.0) = #f
  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)
        = 'solid
  under? : any/c = #f
(pin-arrow-line  arrow-size                              
                 pict                                    
                 src                                     
                 find-src                                
                 dest                                    
                 find-dest                               
                [#:start-angle start-angle               
                 #:end-angle end-angle                   
                 #:start-pull start-pull                 
                 #:end-pull end-pull                     
                 #:line-width line-width                 
                 #:color color                           
                 #:alpha alpha                           
                 #:style style                           
                 #:under? under?                         
                 #:solid? solid?                         
                 #:hide-arrowhead? hide-arrowhead?]) -> pict?
  arrow-size : real?
  pict : pict?
  src : pict-path?
  find-src : (pict? pict-path? . -> . (values real? real?))
  dest : pict-path?
  find-dest : (pict? pict-path? . -> . (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c #f real?) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0.0 1.0) = #f
  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)
        = 'solid
  under? : any/c = #f
  solid? : any/c = #t
  hide-arrowhead? : any/c = #f
(pin-arrows-line  arrow-size                              
                  pict                                    
                  src                                     
                  find-src                                
                  dest                                    
                  find-dest                               
                 [#:start-angle start-angle               
                  #:end-angle end-angle                   
                  #:start-pull start-pull                 
                  #:end-pull end-pull                     
                  #:line-width line-width                 
                  #:color color                           
                  #:alpha alpha]                          
                  #:style style                           
                 [#:under? under?                         
                  #:solid? solid?                         
                  #:hide-arrowhead? hide-arrowhead?]) -> pict?
  arrow-size : real?
  pict : pict?
  src : pict-path?
  find-src : (pict? pict-path? . -> . (values real? real?))
  dest : pict-path?
  find-dest : (pict? pict-path? . -> . (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c #f real?) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  alpha : (real-in 0.0 1.0) = #f
  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)
  under? : any/c = #f
  solid? : any/c = #t
  hide-arrowhead? : any/c = #f
value
text-style/c : contract?
parameter
(bitmap-draft-mode) -> boolean?
(bitmap-draft-mode on?) -> void?
  on? : any/c
procedure
(vl-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(vc-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(vr-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(ht-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(htl-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(hc-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(hbl-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
(hb-append [d] pict ...) -> pict?
  d : real? = 0.0
  pict : pict?
procedure
(lt-superimpose pict ...) -> pict?
  pict : pict?
(ltl-superimpose pict ...) -> pict?
  pict : pict?
(lc-superimpose pict ...) -> pict?
  pict : pict?
(lbl-superimpose pict ...) -> pict?
  pict : pict?
(lb-superimpose pict ...) -> pict?
  pict : pict?
(ct-superimpose pict ...) -> pict?
  pict : pict?
(ctl-superimpose pict ...) -> pict?
  pict : pict?
(cc-superimpose pict ...) -> pict?
  pict : pict?
(cbl-superimpose pict ...) -> pict?
  pict : pict?
(cb-superimpose pict ...) -> pict?
  pict : pict?
(rt-superimpose pict ...) -> pict?
  pict : pict?
(rtl-superimpose pict ...) -> pict?
  pict : pict?
(rc-superimpose pict ...) -> pict?
  pict : pict?
(rbl-superimpose pict ...) -> pict?
  pict : pict?
(rb-superimpose pict ...) -> pict?
  pict : pict?
procedure
(pin-over base dx dy pict) -> pict?
  base : pict?
  dx : real?
  dy : real?
  pict : pict?
(pin-over base find-pict find pict) -> pict?
  base : pict?
  find-pict : pict-path?
  find : (pict? pict-path? . -> . (values real? real?))
  pict : pict?
procedure
(pin-under base dx dy pict) -> pict?
  base : pict?
  dx : real?
  dy : real?
  pict : pict?
(pin-under base find-pict find pict) -> pict?
  base : pict?
  find-pict : pict?
  find : (pict? pict? . -> . (values real? real?))
  pict : pict?
procedure
(table ncols          
       picts          
       col-aligns     
       row-aligns     
       col-seps       
       row-seps)  -> pict?
  ncols : exact-positive-integer?
  picts : (non-empty-listof pict?)
  col-aligns : (list*of (pict? pict? -> pict?))
  row-aligns : (list*of (pict? pict? -> pict?))
  col-seps : (list*of real?)
  row-seps : (list*of real?)
procedure
(scale pict factor) -> pict?
  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?
procedure
(rotate pict theta) -> pict?
  pict : pict?
  theta : real?
procedure
(ghost pict) -> pict?
  pict : pict?
procedure
(linewidth w pict) -> pict?
  w : (or/c real? #f)
  pict : pict?
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?
procedure
(colorize pict color) -> pict?
  pict : pict?
  color : (or/c string? (is-a?/c color%)
                (list byte? byte? byte?))
procedure
(cellophane pict opacity) -> pict?
  pict : pict?
  opacity : (real-in 0 1)
procedure
(clip pict) -> pict
  pict : pict?
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) -> boolean?
(black-and-white on?) -> void?
  on? : any/c
procedure
(inset pict amt) -> pict?
  pict : pict?
  amt : real?
(inset pict h-amt v-amt) -> pict?
  pict : pict?
  h-amt : real?
  v-amt : real?
(inset pict l-amt t-amt r-amt b-amt) -> pict?
  pict : pict?
  l-amt : real?
  t-amt : real?
  r-amt : real?
  b-amt : real?
procedure
(clip-descent pict) -> pict?
  pict : pict?
procedure
(lift-above-baseline pict amt) -> pict?
  pict : pict?
  amt : real?
procedure
(drop-below-ascent pict amt) -> pict?
  pict : pict?
  amt : real?
procedure
(baseless pict) -> pict?
  pict : pict?
procedure
(refocus pict sub-pict) -> pict?
  pict : pict?
  sub-pict : pict?
procedure
(panorama pict) -> pict?
  pict : pict?
procedure
(use-last pict sub-pict) -> pict?
  pict : pict?
  sub-pict : pict-path?
procedure
(use-last* pict sub-pict) -> pict?
  pict : pict?
  sub-pict : pict-path?
procedure
(lt-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(ltl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(lc-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(lbl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(lb-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(ct-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(ctl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(cc-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(cbl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(cb-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(rt-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(rtl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(rc-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(rbl-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
(rb-find pict find) -> real? real?
  pict : pict?
  find : pict-path?
procedure
(pict-path? v) -> boolean?
  v : any/c
procedure
(launder pict) -> pict?
  pict : pict?
procedure
(cloud w h [color]) -> pict?
  w : real?
  h : real?
  color : (or/c string? (is-a?/c color%)) = "gray"
procedure
(file-icon w h color [shaded?]) -> pict?
  w : real?
  h : real?
  color : (or/c string? (is-a?/c color%) any/c)
  shaded? : any/c = #f
procedure
(standard-fish  w                             
                h                             
               [#:direction direction         
                #:color color                 
                #:eye-color eye-color         
                #:open-mouth open-mouth]) -> pict?
  w : real?
  h : real?
  direction : (or/c 'left 'right) = 'left
  color : (or/c string? (is-a?/c color%)) = "blue"
  eye-color : (or/c string? (is-a?/c color%) #f) = "black"
  open-mouth : (or/c boolean? real?) = #f
procedure
(jack-o-lantern  size              
                [pumpkin-color     
                 face-color])  -> pict?
  size : real?
  pumpkin-color : (or/c string? (is-a?/c color%)) = "orange"
  face-color : (or/c string? (is-a?/c color%)) = "black"
procedure
(angel-wing w h left?) -> pict?
  w : real?
  h : real?
  left? : any/c
procedure
(desktop-machine scale [style]) -> pict?
  scale : real?
  style : (listof symbol?) = null
procedure
(thermometer [#:height-% height-%                             
              #:color-% color-%                               
              #:ticks ticks                                   
              #:start-color start-color                       
              #:end-color end-color                           
              #:top-circle-diameter top-circle-diameter       
              #:bottom-circle-diameter bottom-circle-diameter 
              #:stem-height stem-height                       
              #:mercury-inset mercury-inset])                 
 -> pict?
  height-% : (between/c 0 1) = 1
  color-% : (between/c 0 1) = height-%
  ticks : non-exact-negative-integer? = 4
  start-color : (or/c string? (is-a?/c color%)) = "lightblue"
  end-color : (or/c string? (is-a?/c color%)) = "lightcoral"
  top-circle-diameter : positive-real? = 40
  bottom-circle-diameter : positive-real? = 80
  stem-height : positive-real? = 180
  mercury-inset : positive-real? = 8
procedure
(wrap-balloon  pict                
               spike               
               dx                  
               dy                  
              [color               
               corner-radius]) -> balloon?
  pict : pict?
  spike : (or/c 'n 's 'e 'w 'ne 'se 'sw 'nw)
  dx : real?
  dy : real?
  color : (or/c string? (is-a?/c color%)) = balloon-color
  corner-radius : (and/c real? (not/c negative?)) = 32
procedure
(pip-wrap-balloon  pict                
                   spike               
                   dx                  
                   dy                  
                  [color               
                   corner-radius]) -> pict?
  pict : pict?
  spike : (or/c 'n 's 'e 'w 'ne 'se 'sw 'nw)
  dx : real?
  dy : real?
  color : (or/c string? (is-a?/c color%)) = balloon-color
  corner-radius : (and/c real? (not/c negative?)) = 32
procedure
(pin-balloon balloon base x y) -> pict?
  balloon : balloon?
  base : pict?
  x : real?
  y : real?
(pin-balloon balloon base at-pict find) -> pict?
  balloon : balloon?
  base : pict?
  at-pict : pict-path?
  find : (pict? pict-path? . -> . (values real? real?))
procedure
(balloon w h corner-radius spike dx dy [color]) -> balloon?
  w : real?
  h : real?
  corner-radius : (and/c real? (not/c negative?))
  spike : (or/c 'n 's 'e 'w 'ne 'se 'sw 'nw)
  dx : real?
  dy : real?
  color : (or/c string? (is-a?/c color%)) = balloon-color
procedure
(balloon? v) -> boolean?
  v : any/c
(make-balloon pict x y) -> balloon?
  pict : pict?
  x : real?
  y : real?
(balloon-pict balloon) -> pict?
  balloon : balloon?
(balloon-point-x balloon) -> real?
  balloon : balloon?
(balloon-point-y balloon) -> real?
  balloon : balloon?
value
balloon-color : (or/c string? (is-a?/c color%))
parameter
(balloon-enable-3d) -> boolean?
(balloon-enable-3d on?) -> void?
  on? : any/c
value
default-face-color : (or/c string (is-a?/c color%))
procedure
(face mood [color]) -> pict?
  mood : symbol?
  color : (or/c string (is-a?/c color%)) = default-face-color
procedure
(face*  eyebrow-kind                               
        mouth-kind                                 
        frown?                                     
        color                                      
        eye-inset                                  
        eyebrow-dy                                 
        pupil-dx                                   
        pupil-dy                                   
       [#:eyebrow-shading? eyebrow-on?             
        #:mouth-shading? mouth-on?                 
        #:eye-shading? eye-on?                     
        #:tongue-shading? tongue-on?               
        #:face-background-shading? face-bg-on?     
        #:teeth? teeth-on?])                   -> pict?
  eyebrow-kind : (or/c 'none 'normal 'worried 'angry)
  mouth-kind : (or/c 'plain 'smaller 'narrow 'medium 'large
                     'huge 'grimace 'oh 'tongue)
  frown? : any/c
  color : (or/c string (is-a?/c color%))
  eye-inset : real?
  eyebrow-dy : real?
  pupil-dx : real?
  pupil-dy : real?
  eyebrow-on? : any/c = #t
  mouth-on? : any/c = #t
  eye-on? : any/c = #t
  tongue-on? : any/c = #t
  face-bg-on? : any/c = #t
  teeth-on? : any/c = #t
procedure
(filled-flash  width              
               height             
              [n-points           
               spike-fraction     
               rotation])     -> pict?
  width : real?
  height : real?
  n-points : exact-positive-integer? = 10
  spike-fraction : (real-in 0 1) = 0.25
  rotation : real? = 0
procedure
(outline-flash  width              
                height             
               [n-points           
                spike-fraction     
                rotation])     -> pict?
  width : real?
  height : real?
  n-points : exact-positive-integer? = 10
  spike-fraction : (real-in 0 1) = 0.25
  rotation : real? = 0
procedure
(typeset-code stx) -> pict?
  stx : syntax?
syntax
(code datum ...)
parameter
(current-code-font) -> text-style/c
(current-code-font style) -> void?
  style : text-style/c
parameter
(current-code-tt) -> (string? . -> . pict?)
(current-code-tt proc) -> void?
  proc : (string? . -> . pict?)
parameter
(get-current-code-font-size) -> (-> exact-nonnegative-integer?)
(get-current-code-font-size proc) -> void?
  proc : (-> exact-nonnegative-integer?)
parameter
(current-code-line-sep) -> real?
(current-code-line-sep amt) -> void?
  amt : real?
parameter
(current-comment-color) -> (or/c string? (is-a?/c color%))
(current-comment-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-keyword-color) -> (or/c string? (is-a?/c color%))
(current-keyword-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-id-color) -> (or/c string? (is-a?/c color%))
(current-id-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-literal-color) -> (or/c string? (is-a?/c color%))
(current-literal-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-const-color) -> (or/c string? (is-a?/c color%))
(current-const-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-base-color) -> (or/c string? (is-a?/c color%))
(current-base-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-reader-forms) -> (listof symbol?)
(current-reader-forms syms) -> void?
  syms : (listof symbol?)
procedure
(code-align pict) -> pict?
  pict : pict?
parameter
(current-keyword-list) -> (listof string?)
(current-keyword-list names) -> void?
  names : (listof string?)
parameter
(current-const-list) -> (listof string?)
(current-const-list names) -> void?
  names : (listof string?)
parameter
(current-literal-list) -> (listof string?)
(current-literal-list names) -> void?
  names : (listof string?)
value
racket/base-const-list : (listof string?)
value
mzscheme-const-list : (listof string?)
parameter
(code-colorize-enabled) -> boolean?
(code-colorize-enabled on?) -> void?
  on? : any/c
parameter
(code-colorize-quote-enabled) -> boolean?
(code-colorize-quote-enabled on?) -> void?
  on? : any/c
parameter
(code-italic-underscore-enabled) -> boolean?
(code-italic-underscore-enabled on?) -> void?
  on? : any/c
parameter
(code-scripts-enabled) -> boolean?
(code-scripts-enabled on?) -> void?
  on? : any/c
syntax
(define-code code-id typeset-code-id)
(define-code code-id typeset-code-id escape-id)
procedure
(make-code-transformer proc-or-stx) -> code-transformer?
  proc-or-stx : (or/c (syntax? . -> . (or/c syntax? #f))
                      syntax?)
value
prop:code-transformer : struct-type-property?
procedure
(code-transformer? v) -> boolean?
  v : any/c
syntax
(define-exec-code (pict-id runnable-id string-id)
  datum ...)
syntax
(define-exec-code/scale scale-expr (pict-id runnable-id string-id)
  datum ...)
value
comment-color : (or/c string? (is-a?/c color%))
value
keyword-color : (or/c string? (is-a?/c color%))
value
id-color : (or/c string? (is-a?/c color%))
value
literal-color : (or/c string? (is-a?/c color%))
procedure
(code-pict-bottom-line-pict pict) -> (or/c pict? #f)
  pict : pict?
procedure
(pict->code-pict pict bl-pict) -> pict?
  pict : pict?
  bl-pict : (or/c pict? #f)
procedure
(fade-pict n p1 p2 [#:combine combine]) -> pict?
  n : (real-in 0.0 1.0)
  p1 : pict?
  p2 : pict?
  combine : (pict? pict? . -> . pict?) = cc-superimpose
procedure
(fade-around-pict n p1 make-p2) -> pict?
  n : (real-in 0.0 1.0)
  p1 : pict?
  make-p2 : (pict? . -> . pict?)
procedure
(slide-pict base p p-from p-to n) -> pict?
  base : pict?
  p : pict?
  p-from : pict?
  p-to : pict?
  n : (real-in 0.0 1.0)
procedure
(sequence-animations gen ...) -> (-> (real-in 0.0 1.0) pict?)
  gen : (-> (real-in 0.0 1.0) pict?)
procedure
(reverse-animations gen ...) -> (-> (real-in 0.0 1.0) pict?)
  gen : (-> (real-in 0.0 1.0) pict?)
procedure
(fast-start n) -> (real-in 0.0 1.0)
  n : (real-in 0.0 1.0)
procedure
(fast-end n) -> (real-in 0.0 1.0)
  n : (real-in 0.0 1.0)
procedure
(fast-edges n) -> (real-in 0.0 1.0)
  n : (real-in 0.0 1.0)
procedure
(fast-middle n) -> (real-in 0.0 1.0)
  n : (real-in 0.0 1.0)
procedure
(split-phase n) -> (real-in 0.0 1.0) (real-in 0.0 1.0)
  n : (real-in 0.0 1.0)
procedure
(hyperlinkize pict) -> pict?
  pict : pict?
procedure
(scale-color factor color) -> (is-a?/c color%)
  factor : real?
  color : (or/c string (is-a?/c color%))
procedure
(color-series dc              
              max-step        
              step-delta      
              start           
              end             
              proc            
              set-pen?        
              set-brush?) -> void?
  dc : (is-a?/c dc<%>)
  max-step : exact-nonnegative-integer?
  step-delta : (and/c exact? positive?)
  start : (or/c string? (is-a?/c color%))
  end : (or/c string? (is-a?/c color%))
  proc : (exact? . -> . any)
  set-pen? : any/c
  set-brush? : any/c
parameter
(dc-for-text-size) -> (or/c #f (is-a?/c dc<%>))
(dc-for-text-size dc) -> void?
  dc : (or/c #f (is-a?/c dc<%>))
procedure
(draw-pict pict dc x y) -> void?
  pict : pict?
  dc : (is-a?/c dc<%>)
  x : real?
  y : real?
procedure
(pict->bitmap pict) -> (is-a?/c bitmap%)
  pict : pict?
procedure
(make-pict-drawer pict)
 -> ((is-a?/c dc<%>) real? real? . -> . void?)
  pict : pict?
procedure
(show-pict  pict                           
           [w                              
            h]                             
            #:frame-x frame-x              
            #:frame-y frame-y              
            #:frame-style frame-style) -> void?
  pict : pict?
  w : (or/c #f exact-nonnegative-integer?) = #f
  h : (or/c #f exact-nonnegative-integer?) = #f
  frame-x : (or/c (integer-in -10000 10000) #f)
  frame-y : (or/c (integer-in -10000 10000) #f)
  frame-style : (listof (or/c 'no-resize-border 'no-caption
                              'no-system-menu 'hide-menu-bar
                              'toolbar-button 'float 'metal))
parameter
(current-expected-text-scale) -> (list real? real?)
(current-expected-text-scale scales) -> void?
  scales : (list real? real?)
value
prop:pict-convertible : struct-type-property?
value
prop:pict-convertible? : struct-type-property?
procedure
(pict-convertible? v) -> boolean?
  v : any/c
procedure
(pict-convert v) -> pict?
  v : pict-convertible?
