13544
((3) 0 () 22 ((q lib "slideshow/pict.rkt") (q lib "slideshow/code-pict.rkt") (q lib "slideshow/base.rkt") (q 9652 . 25) (q 0 . 18) (q lib "slideshow/balloon.rkt") (q 20580 . 13) (q 10320 . 31) (q 698 . 10) (q lib "slideshow/play.rkt") (q lib "slideshow/flash.rkt") (q 15022 . 46) (q 1682 . 9) (q 4164 . 13) (q 2282 . 15) (q lib "slideshow/face.rkt") (q lib "slideshow/pict-convert.rkt") (q 4454 . 108) (q 2763 . 10) (q 4000 . 7) (q lib "slideshow/step.rkt") (q 3082 . 19)) () (h ! (equal) ((c def c (c (? . 0) q black-and-white)) q (13966 . 4)) ((c def c (c (? . 2) q subitem)) q (28262 . 16)) ((c def c (c (? . 0) q hyperlinkize)) q (23407 . 3)) ((c def c (c (? . 0) q ht-append)) c (? . 3)) ((c def c (c (? . 0) q pict-descent)) c (? . 4)) ((c def c (c (? . 1) q current-comment-color)) q (33842 . 4)) ((c def c (c (? . 0) q child-pict)) c (? . 8)) ((c form c (c (? . 1) q define-exec-code)) q (36320 . 3)) ((c def c (c (? . 0) q use-last*)) q (14926 . 4)) ((c def c (c (? . 0) q angel-wing)) q (17591 . 5)) ((c def c (c (? . 9) q sequence-animations)) q (39475 . 4)) ((c def c (c (? . 2) q current-page-number-font)) q (30181 . 4)) ((c def c (c (? . 0) q hc-append)) c (? . 3)) ((c def c (c (? . 2) q set-page-numbers-visible!)) q (30109 . 3)) ((c def c (c (? . 1) q current-literal-color)) q (34327 . 4)) ((c def c (c (? . 1) q id-color)) q (36608 . 2)) ((c def c (c (? . 2) q clickback)) q (28971 . 4)) ((c def c (c (? . 2) q o-bullet)) q (30810 . 2)) ((c def c (c (? . 1) q comment-color)) q (36490 . 2)) ((c def c (c (? . 2) q item)) q (27576 . 16)) ((c def c (c (? . 1) q code-colorize-quote-enabled)) q (35586 . 4)) ((c def c (c (? . 0) q pict)) c (? . 4)) ((c def c (c (? . 0) q text)) q (1495 . 6)) ((c def c (c (? . 0) q pip-line)) c (? . 13)) ((c def c (c (? . 5) q balloon-point-y)) c (? . 6)) ((c def c (c (? . 2) q current-gap-size)) q (30676 . 4)) ((c def c (c (? . 0) q colorize)) q (13190 . 5)) ((c def c (c (? . 0) q rb-superimpose)) c (? . 7)) ((c def c (c (? . 5) q balloon-point-x)) c (? . 6)) ((c def c (c (? . 2) q current-line-sep)) q (31239 . 4)) ((c def c (c (? . 0) q ellipse)) c (? . 14)) ((c def c (c (? . 0) q bitmap)) q (3851 . 5)) ((c def c (c (? . 15) q face)) q (21132 . 4)) ((c def c (c (? . 0) q lc-superimpose)) c (? . 7)) ((c def c (c (? . 0) q cbl-find)) c (? . 11)) ((c def c (c (? . 1) q code-colorize-enabled)) q (35480 . 4)) ((c def c (c (? . 10) q outline-flash)) q (23020 . 11)) ((c def c (c (? . 0) q child)) c (? . 8)) ((c def c (c (? . 0) q lt-superimpose)) c (? . 7)) ((c def c (c (? . 0) q clip-descent)) q (14387 . 3)) ((c def c (c (? . 0) q ltl-superimpose)) c (? . 7)) ((c def c (c (? . 0) q text-style/c)) q (9521 . 2)) ((c def c (c (? . 0) q rbl-superimpose)) c (? . 7)) ((c def c (c (? . 5) q make-balloon)) c (? . 6)) ((c def c (c (? . 9) q split-phase)) q (40068 . 3)) ((c def c (c (? . 0) q pict-width)) c (? . 4)) ((c def c (c (? . 0) q vr-append)) c (? . 3)) ((c def c (c (? . 2) q t)) q (26757 . 3)) ((c def c (c (? . 5) q balloon-pict)) c (? . 6)) ((c def c (c (? . 0) q cc-superimpose)) c (? . 7)) ((c def c (c (? . 0) q filled-rectangle)) c (? . 18)) ((c def c (c (? . 10) q filled-flash)) q (22638 . 11)) ((c def c (c (? . 2) q current-titlet)) q (32067 . 4)) ((c def c (c (? . 0) q rc-superimpose)) c (? . 7)) ((c def c (c (? . 2) q make-slide-inset)) q (32313 . 9)) ((c def c (c (? . 1) q mzscheme-const-list)) q (35432 . 2)) ((c def c (c (? . 2) q interactive)) q (29060 . 4)) ((c form c (c (? . 1) q code)) q (33300 . 2)) ((c def c (c (? . 2) q gap-size)) q (30654 . 2)) ((c def c (c (? . 0) q make-pict)) c (? . 4)) ((c def c (c (? . 0) q htl-append)) c (? . 3)) ((c def c (c (? . 9) q slide-pict)) q (39310 . 7)) ((c def c (c (? . 5) q wrap-balloon)) q (18896 . 13)) ((c def c (c (? . 0) q rbl-find)) c (? . 11)) ((c def c (c (? . 0) q pict-last)) c (? . 4)) ((c def c (c (? . 0) q inset/clip)) q (13505 . 14)) ((c def c (c (? . 1) q current-literal-list)) q (35252 . 4)) ((c def c (c (? . 2) q current-slide-assembler)) q (31666 . 12)) ((c def c (c (? . 0) q make-child)) c (? . 8)) ((c def c (c (? . 0) q scale-to-fit)) q (12448 . 8)) ((c def c (c (? . 2) q bullet)) q (30787 . 2)) ((c def c (c (? . 16) q prop:pict-convertible?)) q (25633 . 2)) ((c def c (c (? . 0) q lc-find)) c (? . 11)) ((c form c (c (? . 2) q full-page)) q (30867 . 2)) ((c def c (c (? . 0) q clip)) q (13453 . 3)) ((c def c (c (? . 0) q pict-panbox)) c (? . 4)) ((c def c (c (? . 0) q ltl-find)) c (? . 11)) ((c def c (c (? . 2) q current-font-size)) q (30993 . 4)) ((c def c (c (? . 2) q tt)) q (26961 . 3)) ((c def c (c (? . 9) q fast-start)) q (39745 . 3)) ((c def c (c (? . 9) q fast-end)) q (39826 . 3)) ((c def c (c (? . 0) q filled-rounded-rectangle)) c (? . 21)) ((c def c (c (? . 0) q pin-line)) c (? . 17)) ((c def c (c (? . 0) q child-sxy)) c (? . 8)) ((c def c (c (? . 0) q lb-find)) c (? . 11)) ((c def c (c (? . 0) q refocus)) q (14685 . 4)) ((c def c (c (? . 2) q it)) q (26807 . 3)) ((c def c (c (? . 1) q current-const-color)) q (34492 . 4)) ((c def c (c (? . 0) q child-dy)) c (? . 8)) ((c def c (c (? . 1) q get-current-code-font-size)) q (33570 . 4)) ((c def c (c (? . 0) q vline)) c (? . 12)) ((c def c (c (? . 0) q file-icon)) q (16531 . 6)) ((c def c (c (? . 1) q keyword-color)) q (36549 . 2)) ((c def c (c (? . 0) q use-last)) q (14831 . 4)) ((c def c (c (? . 2) q set-title-h!)) q (32254 . 3)) ((c def c (c (? . 9) q play-n)) q (37724 . 22)) ((c def c (c (? . 2) q comment?)) q (29564 . 3)) ((c def c (c (? . 0) q child-sx)) c (? . 8)) ((c def c (c (? . 2) q condense?)) q (30964 . 2)) ((c def c (c (? . 0) q hline)) c (? . 12)) ((c def c (c (? . 0) q dc)) q (919 . 11)) ((c def c (c (? . 2) q current-main-font)) q (31126 . 4)) ((c def c (c (? . 0) q linestyle)) q (12876 . 7)) ((c def c (c (? . 1) q current-keyword-list)) q (34998 . 4)) ((c def c (c (? . 0) q pip-arrow-line)) c (? . 13)) ((c def c (c (? . 0) q cloud)) q (16395 . 5)) ((c def c (c (? . 0) q lbl-superimpose)) c (? . 7)) ((c def c (c (? . 1) q current-keyword-color)) q (34007 . 4)) ((c def c (c (? . 0) q scale)) q (12255 . 8)) ((c def c (c (? . 9) q reverse-animations)) q (39611 . 3)) ((c def c (c (? . 0) q pict-path?)) q (16283 . 3)) ((c def c (c (? . 1) q code-pict-bottom-line-pict)) q (36721 . 3)) ((c def c (c (? . 0) q hbl-append)) c (? . 3)) ((c def c (c (? . 1) q code-transformer?)) q (36257 . 3)) ((c def c (c (? . 1) q current-code-tt)) q (33439 . 4)) ((c form c (c (? . 2) q client-h)) q (30851 . 2)) ((c def c (c (? . 2) q bt)) q (26858 . 3)) ((c def c (c (? . 0) q dc-for-text-size)) q (24203 . 4)) ((c def c (c (? . 1) q current-reader-forms)) q (34812 . 4)) ((c def c (c (? . 0) q make-pict-drawer)) q (24542 . 4)) ((c def c (c (? . 0) q show-pict)) q (24650 . 15)) ((c def c (c (? . 1) q current-const-list)) q (35127 . 4)) ((c def c (c (? . 2) q current-title-color)) q (31505 . 4)) ((c def c (c (? . 0) q cb-find)) c (? . 11)) ((c def c (c (? . 0) q circle)) c (? . 14)) ((c def c (c (? . 5) q pip-wrap-balloon)) q (19403 . 13)) ((c def c (c (? . 0) q pict-height)) c (? . 4)) ((c def c (c (? . 0) q draw-pict)) q (24340 . 6)) ((c def c (c (? . 0) q vl-append)) c (? . 3)) ((c def c (c (? . 0) q current-expected-text-scale)) q (25428 . 4)) ((c def c (c (? . 0) q cb-superimpose)) c (? . 7)) ((c def c (c (? . 0) q pip-arrows-line)) c (? . 13)) ((c form c (c (? . 2) q titleless-page)) q (30884 . 2)) ((c def c (c (? . 1) q typeset-code)) q (33239 . 3)) ((c def c (c (? . 0) q rtl-superimpose)) c (? . 7)) ((c def c (c (? . 9) q fade-around-pict)) q (39168 . 5)) ((c def c (c (? . 9) q animate-slide)) q (38734 . 6)) ((c def c (c (? . 2) q slide?)) q (29618 . 3)) ((c def c (c (? . 0) q cbl-superimpose)) c (? . 7)) ((c def c (c (? . 5) q pin-balloon)) q (19931 . 11)) ((c def c (c (? . 0) q pin-over)) q (11206 . 11)) ((c def c (c (? . 2) q bit)) q (26909 . 3)) ((c def c (c (? . 2) q current-page-number-adjust)) q (30487 . 4)) ((c def c (c (? . 0) q rb-find)) c (? . 11)) ((c def c (c (? . 0) q child?)) c (? . 8)) ((c def c (c (? . 1) q prop:code-transformer)) q (36203 . 2)) ((c def c (c (? . 15) q face*)) q (21267 . 30)) ((c def c (c (? . 16) q prop:pict-convertible)) q (25579 . 2)) ((c def c (c (? . 0) q hb-append)) c (? . 3)) ((c def c (c (? . 9) q fast-middle)) q (39986 . 3)) ((c def c (c (? . 2) q para)) q (27118 . 12)) ((c form c (c (? . 1) q define-exec-code/scale)) q (36396 . 3)) ((c def c (c (? . 2) q most-recent-slide)) q (29670 . 2)) ((c def c (c (? . 0) q rc-find)) c (? . 11)) ((c def c (c (? . 0) q table)) q (11812 . 13)) ((c def c (c (? . 0) q pin-arrows-line)) c (? . 17)) ((c def c (c (? . 9) q fast-edges)) q (39905 . 3)) ((c def c (c (? . 0) q drop-below-ascent)) q (14539 . 4)) ((c def c (c (? . 0) q arrowhead)) c (? . 19)) ((c def c (c (? . 0) q child-sy)) c (? . 8)) ((c def c (c (? . 0) q panorama)) q (14774 . 3)) ((c def c (c (? . 2) q slide-inset?)) q (32689 . 3)) ((c def c (c (? . 0) q ct-find)) c (? . 11)) ((c def c (c (? . 15) q default-face-color)) q (21069 . 2)) ((c def c (c (? . 5) q balloon-enable-3d)) q (20971 . 4)) ((c def c (c (? . 0) q blank)) q (1205 . 15)) ((c def c (c (? . 0) q rectangle)) c (? . 18)) ((c def c (c (? . 0) q lift-above-baseline)) q (14448 . 4)) ((c def c (c (? . 2) q current-para-width)) q (31370 . 4)) ((c def c (c (? . 0) q standard-fish)) q (16705 . 13)) ((c def c (c (? . 0) q color-series)) q (23599 . 17)) ((c def c (c (? . 0) q pict-children)) c (? . 4)) ((c def c (c (? . 1) q code-italic-underscore-enabled)) q (35704 . 4)) ((c def c (c (? . 0) q cc-find)) c (? . 11)) ((c def c (c (? . 1) q current-code-line-sep)) q (33739 . 4)) ((c def c (c (? . 0) q desktop-machine)) q (17690 . 4)) ((c def c (c (? . 2) q printing?)) q (30935 . 2)) ((c def c (c (? . 0) q child-syx)) c (? . 8)) ((c def c (c (? . 0) q launder)) q (16339 . 3)) ((c def c (c (? . 2) q retract-most-recent-slide)) q (29712 . 2)) ((c def c (c (? . 0) q pict->bitmap)) q (24468 . 3)) ((c def c (c (? . 5) q balloon)) q (20254 . 9)) ((c def c (c (? . 0) q child-dx)) c (? . 8)) ((c def c (c (? . 2) q slide->pict)) q (29861 . 3)) ((c def c (c (? . 16) q pict-convertible?)) q (25688 . 3)) ((c def c (c (? . 0) q disk)) c (? . 14)) ((c form c (c (? . 2) q margin)) q (30906 . 2)) ((c def c (c (? . 0) q filled-ellipse)) c (? . 14)) ((c form c (c (? . 2) q title-h)) q (30920 . 2)) ((c def c (c (? . 9) q fade-pict)) q (38973 . 6)) ((c def c (c (? . 9) q play)) q (36915 . 19)) ((c def c (c (? . 0) q thermometer)) q (17806 . 20)) ((c def c (c (? . 0) q lb-superimpose)) c (? . 7)) ((c def c (c (? . 2) q set-margin!)) q (32196 . 3)) ((c def c (c (? . 5) q balloon-color)) q (20912 . 2)) ((c def c (c (? . 0) q rt-find)) c (? . 11)) ((c def c (c (? . 1) q racket/base-const-list)) q (35381 . 2)) ((c def c (c (? . 2) q set-use-background-frame!)) q (30037 . 3)) ((c form c (c (? . 0) q scale/improve-new-text)) q (13847 . 3)) ((c def c (c (? . 0) q linewidth)) q (12787 . 4)) ((c def c (c (? . 2) q make-outline)) q (29230 . 6)) ((c def c (c (? . 0) q rotate)) q (12651 . 4)) ((c def c (c (? . 0) q rt-superimpose)) c (? . 7)) ((c form c (c (? . 1) q define-code)) q (35932 . 3)) ((c def c (c (? . 2) q size-in-pixels)) q (29167 . 3)) ((c def c (c (? . 16) q pict-convert)) q (25751 . 3)) ((c def c (c (? . 0) q pict?)) c (? . 4)) ((c def c (c (? . 0) q pin-under)) q (11513 . 11)) ((c def c (c (? . 0) q vc-append)) c (? . 3)) ((c def c (c (? . 2) q comment)) q (29483 . 3)) ((c form c (c (? . 20) q with-steps~)) q (32789 . 2)) ((c def c (c (? . 1) q literal-color)) q (36662 . 2)) ((c def c (c (? . 0) q baseless)) q (14628 . 3)) ((c def c (c (? . 0) q ctl-find)) c (? . 11)) ((c def c (c (? . 5) q balloon?)) c (? . 6)) ((c def c (c (? . 0) q ct-superimpose)) c (? . 7)) ((c def c (c (? . 2) q titlet)) q (27063 . 3)) ((c def c (c (? . 0) q pict-draw)) c (? . 4)) ((c def c (c (? . 0) q ghost)) q (12733 . 3)) ((c form c (c (? . 2) q client-w)) q (30835 . 2)) ((c def c (c (? . 0) q ctl-superimpose)) c (? . 7)) ((c def c (c (? . 1) q code-align)) q (34939 . 3)) ((c def c (c (? . 1) q current-code-font)) q (33326 . 4)) ((c def c (c (? . 2) q start-at-recent-slide)) q (29924 . 2)) ((c def c (c (? . 0) q struct:child)) c (? . 8)) ((c def c (c (? . 0) q scale-color)) q (23468 . 4)) ((c def c (c (? . 0) q struct:pict)) c (? . 4)) ((c def c (c (? . 2) q re-slide)) q (29762 . 4)) ((c def c (c (? . 0) q bitmap-draft-mode)) q (9554 . 4)) ((c def c (c (? . 1) q make-code-transformer)) q (36030 . 4)) ((c def c (c (? . 0) q arrow)) c (? . 19)) ((q def ((lib "slideshow/slides-to-picts.rkt") get-slides-as-picts)) q (32832 . 11)) ((c def c (c (? . 0) q rtl-find)) c (? . 11)) ((c def c (c (? . 2) q enable-click-advance!)) q (29969 . 3)) ((c def c (c (? . 2) q slide)) q (25818 . 21)) ((c def c (c (? . 0) q lt-find)) c (? . 11)) ((c def c (c (? . 0) q inset)) q (14060 . 14)) ((c def c (c (? . 1) q pict->code-pict)) q (36808 . 4)) ((c form c (c (? . 20) q with-steps)) q (32747 . 2)) ((c def c (c (? . 1) q current-base-color)) q (34653 . 4)) ((c def c (c (? . 2) q rt)) q (27012 . 3)) ((c def c (c (? . 0) q pin-arrow-line)) c (? . 17)) ((c def c (c (? . 2) q current-page-number-color)) q (30314 . 4)) ((c def c (c (? . 0) q rounded-rectangle)) c (? . 21)) ((c def c (c (? . 0) q frame)) q (1944 . 9)) ((c def c (c (? . 0) q jack-o-lantern)) q (17299 . 7)) ((c def c (c (? . 1) q current-id-color)) q (34172 . 4)) ((c def c (c (? . 0) q cellophane)) q (13353 . 4)) ((c def c (c (? . 0) q pict-ascent)) c (? . 4)) ((c def c (c (? . 0) q lbl-find)) c (? . 11)) ((c def c (c (? . 1) q code-scripts-enabled)) q (35828 . 4))))
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)
  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? any/c)  -> 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)
  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
  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? any/c)  -> 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)
  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
  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
(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?
procedure
(slide [#:title title               
        #:name name                 
        #:layout layout             
        #:gap-size sep-gap-size     
        #:inset inset               
        #:timeout secs              
        #:condense? condense?]      
        element ...)            -> void?
  title : (or/c #f string? pict?) = #f
  name : (or/c #f string?) = title
  layout : (or/c 'auto 'center 'top 'tall) = 'auto
  sep-gap-size : real? = (current-gap-size)
  inset : slide-inset? = (make-slide-inset 0 0 0 0)
  secs : (or/c #f real?) = #f
  condense? : any/c = (and timeout #t)
  element : (flat-rec-contract elem/c
              (or/c pict?
                   'next 'next! 'alts 'alts~ 'nothing
                   comment?
                   (listof (listof elem/c))))
procedure
(t str) -> pict?
  str : string?
procedure
(it str) -> pict?
  str : string?
procedure
(bt str) -> pict?
  str : string?
procedure
(bit str) -> pict?
  str : string?
procedure
(tt str) -> pict?
  str : string?
procedure
(rt str) -> pict?
  str : string?
procedure
(titlet str) -> pict?
  str : string?
procedure
(para [#:width width          
       #:align align          
       #:fill? fill?          
       #:decode? decode?]     
       element ...)       -> pict?
  width : real? = (current-para-width)
  align : (or/c 'left 'center 'right) = 'left
  fill? : any/c = #t
  decode? : any/c = #t
  element : (flat-rec-contract elem/c
              (or/c string? pict? (listof elem/c)))
procedure
(item [#:width width               
       #:gap-size sep-gap-size     
       #:bullet blt                
       #:align align               
       #:fill? fill?               
       #:decode? decode?]          
       element ...)            -> pict?
  width : real? = (current-para-width)
  sep-gap-size : real? = (current-gap-size)
  blt : pict? = (scale bullet (/ sep-gap-size gap-size))
  align : (or/c 'left 'center 'right) = 'left
  fill? : any/c = #t
  decode? : any/c = #t
  element : (flat-rec-contract elem/c
              (or/c string? pict? (listof elem/c)))
procedure
(subitem [#:width width               
          #:gap-size sep-gap-size     
          #:bullet blt                
          #:align align               
          #:fill? fill?               
          #:decode? decode?]          
          element ...)            -> pict?
  width : real? = (current-para-width)
  sep-gap-size : real? = (current-gap-size)
  blt : pict? = (scale o-bullet (/ sep-gap-size gap-size))
  align : (or/c 'left 'center 'right) = 'left
  fill? : any/c = #t
  decode? : any/c = #t
  element : (flat-rec-contract elem/c
              (or/c string? pict? (listof elem/c)))
procedure
(clickback pict thunk) -> pict?
  pict : pict?
  thunk : (-> any)
procedure
(interactive pict proc) -> pict?
  pict : pict?
  proc : (frame% . -> . (-> any))
procedure
(size-in-pixels pict) -> pict?
  pict : pict?
procedure
(make-outline name title subitems ...) -> (symbol? . -> . void?)
  name : (or/c symbol? (listof symbol?))
  title : (or/c string? pict?)
  subitems : (or/c #f null?
                   (symbol? . -> . pict?))
procedure
(comment text ...) -> comment?
  text : (or/c string? pict?)
procedure
(comment? v) -> boolean?
  v : any/c
procedure
(slide? v) -> boolean?
  v : any/c
procedure
(most-recent-slide) -> slide?
procedure
(retract-most-recent-slide) -> slide?
procedure
(re-slide slide [pict]) -> void?
  slide : slide?
  pict : pict? = (blank)
procedure
(slide->pict slide) -> pict?
  slide : slide?
procedure
(start-at-recent-slide) -> void?
procedure
(enable-click-advance! on?) -> void?
  on? : any/c
procedure
(set-use-background-frame! on?) -> void?
  on? : any/c
procedure
(set-page-numbers-visible! on?) -> void?
  on? : any/c
parameter
(current-page-number-font) -> (is-a?/c font%)
(current-page-number-font font) -> void?
  font : (is-a?/c font%)
parameter
(current-page-number-color) -> (or/c string? (is-a?/c color%))
(current-page-number-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-page-number-adjust) -> (-> number? string? string?)
(current-page-number-adjust proc) -> void?
  proc : (-> number? string? string?)
value
gap-size : 24
parameter
(current-gap-size) -> real?
(current-gap-size sep-gap-size) -> void?
  sep-gap-size : real?
value
bullet : pict?
value
o-bullet : pict?
syntax
client-w
syntax
client-h
syntax
full-page
syntax
titleless-page
syntax
margin
syntax
title-h
value
printing? : boolean?
value
condense? : boolean?
parameter
(current-font-size) -> exact-nonnegative-integer?
(current-font-size n) -> void?
  n : exact-nonnegative-integer?
parameter
(current-main-font) -> text-style/c
(current-main-font style) -> void?
  style : text-style/c
parameter
(current-line-sep) -> exact-nonnegative-integer?
(current-line-sep n) -> void?
  n : exact-nonnegative-integer?
parameter
(current-para-width) -> exact-nonnegative-integer?
(current-para-width n) -> void?
  n : exact-nonnegative-integer?
parameter
(current-title-color) -> (or/c string? (is-a?/c color%))
(current-title-color color) -> void?
  color : (or/c string? (is-a?/c color%))
parameter
(current-slide-assembler) -> ((or/c string? #f)
                              exact-nonnegative-integer?
                              pict?
                              . -> .
                              pict?)
(current-slide-assembler proc) -> void?
  proc : ((or/c string? #f)
          exact-nonnegative-integer?
          pict?
          . -> .
          pict?)
parameter
(current-titlet) -> (string? . -> . pict?)
(current-titlet proc) -> void?
  proc : (string? . -> . pict?)
procedure
(set-margin! amt) -> void?
  amt : real?
procedure
(set-title-h! amt) -> void?
  amt : real?
procedure
(make-slide-inset left-inset        
                  top-inset         
                  right-inset       
                  bottom-inset) -> slide-inset?
  left-inset : exact-nonnegative-integer?
  top-inset : exact-nonnegative-integer?
  right-inset : exact-nonnegative-integer?
  bottom-inset : exact-nonnegative-integer?
procedure
(slide-inset? v) -> boolean?
  v : any/c
syntax
(with-steps (id ...) body ...)
syntax
(with-steps~ (id ...) body ...)
procedure
(get-slides-as-picts  path             
                      width            
                      height           
                      condense?        
                     [stop-after]) -> (listof pict?)
  path : path-string?
  width : real?
  height : real?
  condense? : any/c
  stop-after : (or/c #f exact-nonnegative-integer?) = #f
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
(play  gen                           
      [#:steps steps                 
       #:delay delay-secs            
       #:skip-first? skip-first?     
       #:title title                 
       #:name name                   
       #:layout layout])         -> void?
  gen : ((real-in 0.0 1.0) . -> . pict?)
  steps : exact-positive-integer? = 10
  delay-secs : real? = 0.05
  skip-first? : any/c = #f
  title : (or/c string? pict? #f
                ((real-in 0.0 1.0) . -> . (or/c string? pict? #f)))
        = #f
  name : (or/c string? #f
               ((real-in 0.0 1.0) . -> . (or/c string? #f)))
       = title
  layout : (or/c 'auto 'center 'top 'tall) = 'auto
procedure
(play-n  gen*                          
        [#:steps steps                 
         #:delay delay-secs            
         #:skip-first? skip-first?     
         #:skip-last? skip-last?       
         #:title title                 
         #:name name                   
         #:layout layout])         -> void?
  gen* : (() (listof (real-in 0.0 1.0)) . ->* . pict?)
  steps : (or/c exact-positive-integer?                    = 10
                (improper-listof exact-positive-integer?))
  delay-secs : real? = 0.05
  skip-first? : any/c = #f
  skip-last? : any/c = #f
  title : (or/c string? pict? #f
                ((real-in 0.0 1.0) . -> . (or/c string? pict? #f)))
        = #f
  name : (or/c string? #f
               ((real-in 0.0 1.0) . -> . (or/c string? #f)))
       = title
  layout : (or/c 'auto 'center 'top 'tall) = 'auto
procedure
(animate-slide element ...)
 -> (() (listof (real-in 0.0 1.0)) . ->* . pict?)
  element : (flat-rec-contract elem/c
              (or/c pict? 'next 'alts
                   (listof (listof elem/c))))
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 : (in-real 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) -> (in-real 0.0 1.0)
  n : (in-real 0.0 1.0)
procedure
(fast-end n) -> (in-real 0.0 1.0)
  n : (in-real 0.0 1.0)
procedure
(fast-edges n) -> (in-real 0.0 1.0)
  n : (in-real 0.0 1.0)
procedure
(fast-middle n) -> (in-real 0.0 1.0)
  n : (in-real 0.0 1.0)
procedure
(split-phase n) -> (in-real 0.0 1.0) (in-real 0.0 1.0)
  n : (in-real 0.0 1.0)
