16692
#hash(((def ((lib "slideshow/pict.rkt") child?)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") text-style/c)) . ((9259 . 2))) ((form ((lib "slideshow/base.rkt") full-page)) . ((30400 . 2))) ((def ((lib "slideshow/pict.rkt") rounded-rectangle)) . ((3082 . 19))) ((def ((lib "slideshow/base.rkt") t)) . ((26397 . 3))) ((def ((lib "slideshow/pict.rkt") child-dx)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") show-pict)) . ((24290 . 15))) ((def ((lib "slideshow/pict.rkt") rc-find)) . ((14760 . 46))) ((def ((lib "slideshow/code-pict.rkt") code-transformer?)) . ((35790 . 3))) ((def ((lib "slideshow/pict.rkt") struct:pict)) . ((0 . 18))) ((def ((lib "slideshow/code-pict.rkt") code-scripts-enabled)) . ((35361 . 4))) ((def ((lib "slideshow/code-pict.rkt") code-pict-bottom-line-pict)) . ((36254 . 3))) ((def ((lib "slideshow/pict.rkt") scale-color)) . ((23108 . 4))) ((def ((lib "slideshow/pict.rkt") ctl-find)) . ((14760 . 46))) ((def ((lib "slideshow/balloon.rkt") balloon?)) . ((20318 . 13))) ((def ((lib "slideshow/pict.rkt") child-pict)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") lt-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") ltl-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") cellophane)) . ((13091 . 4))) ((def ((lib "slideshow/pict.rkt") cc-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") circle)) . ((2282 . 15))) ((def ((lib "slideshow/base.rkt") set-use-background-frame!)) . ((29570 . 3))) ((def ((lib "slideshow/base.rkt") current-page-number-adjust)) . ((30020 . 4))) ((def ((lib "slideshow/pict.rkt") scale)) . ((11993 . 8))) ((def ((lib "slideshow/pict.rkt") rtl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") draw-pict)) . ((23980 . 6))) ((def ((lib "slideshow/code-pict.rkt") current-base-color)) . ((34186 . 4))) ((def ((lib "slideshow/base.rkt") bt)) . ((26498 . 3))) ((def ((lib "slideshow/base.rkt") make-outline)) . ((28763 . 6))) ((def ((lib "slideshow/pict.rkt") pin-arrow-line)) . ((4454 . 102))) ((def ((lib "slideshow/base.rkt") o-bullet)) . ((30343 . 2))) ((def ((lib "slideshow/code-pict.rkt") racket/base-const-list)) . ((34914 . 2))) ((def ((lib "slideshow/play.rkt") sequence-animations)) . ((39008 . 4))) ((form ((lib "slideshow/base.rkt") title-h)) . ((30453 . 2))) ((def ((lib "slideshow/pict.rkt") drop-below-ascent)) . ((14277 . 4))) ((def ((lib "slideshow/pict.rkt") lbl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/code-pict.rkt") current-const-list)) . ((34660 . 4))) ((def ((lib "slideshow/pict.rkt") ct-superimpose)) . ((10058 . 31))) ((form ((lib "slideshow/pict.rkt") scale/improve-new-text)) . ((13585 . 3))) ((def ((lib "slideshow/code-pict.rkt") current-code-tt)) . ((32972 . 4))) ((def ((lib "slideshow/pict.rkt") vc-append)) . ((9390 . 25))) ((def ((lib "slideshow/pict.rkt") child-sxy)) . ((698 . 10))) ((def ((lib "slideshow/base.rkt") comment)) . ((29016 . 3))) ((def ((lib "slideshow/base.rkt") make-slide-inset)) . ((31846 . 9))) ((def ((lib "slideshow/pict-convert.rkt") prop:pict-convertible)) . ((25219 . 2))) ((def ((lib "slideshow/pict.rkt") rt-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") linewidth)) . ((12525 . 4))) ((def ((lib "slideshow/play.rkt") fast-middle)) . ((39519 . 3))) ((def ((lib "slideshow/pict.rkt") angel-wing)) . ((17329 . 5))) ((def ((lib "slideshow/pict.rkt") hyperlinkize)) . ((23047 . 3))) ((def ((lib "slideshow/base.rkt") current-slide-assembler)) . ((31199 . 12))) ((def ((lib "slideshow/pict.rkt") pin-arrows-line)) . ((4454 . 102))) ((def ((lib "slideshow/face.rkt") default-face-color)) . ((20709 . 2))) ((form ((lib "slideshow/step.rkt") with-steps~)) . ((32322 . 2))) ((def ((lib "slideshow/pict.rkt") lb-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") pict-last)) . ((0 . 18))) ((def ((lib "slideshow/play.rkt") split-phase)) . ((39601 . 3))) ((def ((lib "slideshow/pict.rkt") rotate)) . ((12389 . 4))) ((def ((lib "slideshow/base.rkt") item)) . ((27216 . 16))) ((def ((lib "slideshow/pict.rkt") ht-append)) . ((9390 . 25))) ((def ((lib "slideshow/pict.rkt") hline)) . ((1682 . 9))) ((def ((lib "slideshow/code-pict.rkt") current-comment-color)) . ((33375 . 4))) ((def ((lib "slideshow/base.rkt") titlet)) . ((26703 . 3))) ((def ((lib "slideshow/base.rkt") rt)) . ((26652 . 3))) ((def ((lib "slideshow/pict.rkt") lb-find)) . ((14760 . 46))) ((def ((lib "slideshow/play.rkt") play-n)) . ((37257 . 22))) ((def ((lib "slideshow/base.rkt") re-slide)) . ((29295 . 4))) ((def ((lib "slideshow/face.rkt") face)) . ((20772 . 4))) ((def ((lib "slideshow/pict.rkt") rectangle)) . ((2763 . 10))) ((def ((lib "slideshow/pict.rkt") ghost)) . ((12471 . 3))) ((form ((lib "slideshow/code-pict.rkt") define-code)) . ((35465 . 3))) ((def ((lib "slideshow/pict-convert.rkt") prop:pict-convertible?)) . ((25273 . 2))) ((form ((lib "slideshow/base.rkt") client-h)) . ((30384 . 2))) ((def ((lib "slideshow/base.rkt") slide?)) . ((29151 . 3))) ((def ((lib "slideshow/pict.rkt") inset)) . ((13798 . 14))) ((def ((lib "slideshow/pict.rkt") standard-fish)) . ((16443 . 13))) ((def ((lib "slideshow/balloon.rkt") wrap-balloon)) . ((18634 . 13))) ((def ((lib "slideshow/pict.rkt") blank)) . ((1205 . 15))) ((def ((lib "slideshow/pict.rkt") pin-under)) . ((11251 . 11))) ((def ((lib "slideshow/pict.rkt") clip)) . ((13191 . 3))) ((def ((lib "slideshow/pict.rkt") filled-rectangle)) . ((2763 . 10))) ((def ((lib "slideshow/pict.rkt") pict-height)) . ((0 . 18))) ((def ((lib "slideshow/pict.rkt") use-last)) . ((14569 . 4))) ((def ((lib "slideshow/pict.rkt") color-series)) . ((23239 . 17))) ((def ((lib "slideshow/pict.rkt") child-dy)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") dc-for-text-size)) . ((23843 . 4))) ((def ((lib "slideshow/pict.rkt") rbl-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") child)) . ((698 . 10))) ((def ((lib "slideshow/code-pict.rkt") current-literal-list)) . ((34785 . 4))) ((def ((lib "slideshow/code-pict.rkt") code-align)) . ((34472 . 3))) ((def ((lib "slideshow/pict.rkt") cbl-find)) . ((14760 . 46))) ((def ((lib "slideshow/base.rkt") slide->pict)) . ((29394 . 3))) ((def ((lib "slideshow/base.rkt") set-page-numbers-visible!)) . ((29642 . 3))) ((def ((lib "slideshow/base.rkt") current-page-number-font)) . ((29714 . 4))) ((def ((lib "slideshow/base.rkt") current-main-font)) . ((30659 . 4))) ((def ((lib "slideshow/balloon.rkt") pip-wrap-balloon)) . ((19141 . 13))) ((def ((lib "slideshow/pict.rkt") hb-append)) . ((9390 . 25))) ((def ((lib "slideshow/code-pict.rkt") comment-color)) . ((36023 . 2))) ((def ((lib "slideshow/base.rkt") current-title-color)) . ((31038 . 4))) ((def ((lib "slideshow/pict.rkt") panorama)) . ((14512 . 3))) ((def ((lib "slideshow/base.rkt") bullet)) . ((30320 . 2))) ((def ((lib "slideshow/pict.rkt") child-sx)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") pict->bitmap)) . ((24108 . 3))) ((def ((lib "slideshow/code-pict.rkt") current-id-color)) . ((33705 . 4))) ((def ((lib "slideshow/pict.rkt") rtl-find)) . ((14760 . 46))) ((def ((lib "slideshow/code-pict.rkt") current-const-color)) . ((34025 . 4))) ((def ((lib "slideshow/balloon.rkt") balloon-point-y)) . ((20318 . 13))) ((def ((lib "slideshow/play.rkt") fast-start)) . ((39278 . 3))) ((def ((lib "slideshow/base.rkt") subitem)) . ((27902 . 16))) ((def ((lib "slideshow/code-pict.rkt") current-keyword-color)) . ((33540 . 4))) ((def ((lib "slideshow/pict.rkt") make-child)) . ((698 . 10))) ((def ((lib "slideshow/code-pict.rkt") pict->code-pict)) . ((36341 . 4))) ((def ((lib "slideshow/flash.rkt") filled-flash)) . ((22278 . 11))) ((def ((lib "slideshow/pict.rkt") lift-above-baseline)) . ((14186 . 4))) ((def ((lib "slideshow/pict.rkt") pict-path?)) . ((16021 . 3))) ((def ((lib "slideshow/pict.rkt") ct-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") rbl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/base.rkt") slide)) . ((25458 . 21))) ((def ((lib "slideshow/pict.rkt") pip-arrow-line)) . ((4164 . 13))) ((def ((lib "slideshow/pict.rkt") clip-descent)) . ((14125 . 3))) ((def ((lib "slideshow/play.rkt") animate-slide)) . ((38267 . 6))) ((def ((lib "slideshow/pict.rkt") linestyle)) . ((12614 . 7))) ((def ((lib "slideshow/pict.rkt") launder)) . ((16077 . 3))) ((def ((lib "slideshow/pict.rkt") filled-ellipse)) . ((2282 . 15))) ((def ((lib "slideshow/base.rkt") bit)) . ((26549 . 3))) ((def ((lib "slideshow/pict.rkt") text)) . ((1495 . 6))) ((def ((lib "slideshow/base.rkt") printing?)) . ((30468 . 2))) ((def ((lib "slideshow/pict.rkt") lc-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") bitmap)) . ((3851 . 5))) ((def ((lib "slideshow/pict.rkt") pict-descent)) . ((0 . 18))) ((def ((lib "slideshow/slides-to-picts.rkt") get-slides-as-picts)) . ((32365 . 11))) ((def ((lib "slideshow/pict.rkt") arrow)) . ((4000 . 7))) ((def ((lib "slideshow/pict.rkt") hc-append)) . ((9390 . 25))) ((def ((lib "slideshow/pict.rkt") vline)) . ((1682 . 9))) ((def ((lib "slideshow/base.rkt") gap-size)) . ((30187 . 2))) ((def ((lib "slideshow/code-pict.rkt") code-colorize-enabled)) . ((35013 . 4))) ((def ((lib "slideshow/pict.rkt") dc)) . ((919 . 11))) ((def ((lib "slideshow/pict.rkt") colorize)) . ((12928 . 5))) ((def ((lib "slideshow/pict.rkt") rc-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") lt-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") pict-width)) . ((0 . 18))) ((def ((lib "slideshow/base.rkt") enable-click-advance!)) . ((29502 . 3))) ((def ((lib "slideshow/play.rkt") fade-pict)) . ((38506 . 6))) ((def ((lib "slideshow/balloon.rkt") balloon-pict)) . ((20318 . 13))) ((def ((lib "slideshow/pict.rkt") pin-line)) . ((4454 . 102))) ((def ((lib "slideshow/play.rkt") fast-end)) . ((39359 . 3))) ((def ((lib "slideshow/balloon.rkt") balloon-point-x)) . ((20318 . 13))) ((def ((lib "slideshow/pict.rkt") pict-children)) . ((0 . 18))) ((form ((lib "slideshow/base.rkt") client-w)) . ((30368 . 2))) ((def ((lib "slideshow/pict.rkt") bitmap-draft-mode)) . ((9292 . 4))) ((def ((lib "slideshow/play.rkt") play)) . ((36448 . 19))) ((def ((lib "slideshow/code-pict.rkt") current-literal-color)) . ((33860 . 4))) ((def ((lib "slideshow/base.rkt") para)) . ((26758 . 12))) ((def ((lib "slideshow/code-pict.rkt") mzscheme-const-list)) . ((34965 . 2))) ((def ((lib "slideshow/pict.rkt") ctl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") pip-arrows-line)) . ((4164 . 13))) ((def ((lib "slideshow/pict.rkt") pict-ascent)) . ((0 . 18))) ((def ((lib "slideshow/pict.rkt") baseless)) . ((14366 . 3))) ((def ((lib "slideshow/code-pict.rkt") current-keyword-list)) . ((34531 . 4))) ((def ((lib "slideshow/pict.rkt") child-syx)) . ((698 . 10))) ((def ((lib "slideshow/base.rkt") current-line-sep)) . ((30772 . 4))) ((def ((lib "slideshow/pict-convert.rkt") pict-convertible?)) . ((25328 . 3))) ((def ((lib "slideshow/pict.rkt") rb-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") file-icon)) . ((16269 . 6))) ((def ((lib "slideshow/balloon.rkt") balloon)) . ((19992 . 9))) ((def ((lib "slideshow/base.rkt") set-margin!)) . ((31729 . 3))) ((form ((lib "slideshow/code-pict.rkt") define-exec-code/scale)) . ((35929 . 3))) ((def ((lib "slideshow/pict.rkt") rt-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") frame)) . ((1944 . 9))) ((def ((lib "slideshow/pict.rkt") struct:child)) . ((698 . 10))) ((def ((lib "slideshow/pict.rkt") htl-append)) . ((9390 . 25))) ((def ((lib "slideshow/pict.rkt") refocus)) . ((14423 . 4))) ((def ((lib "slideshow/base.rkt") size-in-pixels)) . ((28700 . 3))) ((def ((lib "slideshow/pict.rkt") child-sy)) . ((698 . 10))) ((def ((lib "slideshow/face.rkt") face*)) . ((20907 . 30))) ((def ((lib "slideshow/base.rkt") most-recent-slide)) . ((29203 . 2))) ((def ((lib "slideshow/base.rkt") current-gap-size)) . ((30209 . 4))) ((def ((lib "slideshow/pict.rkt") make-pict)) . ((0 . 18))) ((def ((lib "slideshow/code-pict.rkt") get-current-code-font-size)) . ((33103 . 4))) ((def ((lib "slideshow/base.rkt") set-title-h!)) . ((31787 . 3))) ((form ((lib "slideshow/code-pict.rkt") code)) . ((32833 . 2))) ((def ((lib "slideshow/pict.rkt") cb-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict-convert.rkt") pict-convert)) . ((25391 . 3))) ((def ((lib "slideshow/pict.rkt") arrowhead)) . ((4000 . 7))) ((def ((lib "slideshow/code-pict.rkt") current-code-font)) . ((32859 . 4))) ((def ((lib "slideshow/base.rkt") tt)) . ((26601 . 3))) ((def ((lib "slideshow/pict.rkt") hbl-append)) . ((9390 . 25))) ((def ((lib "slideshow/pict.rkt") scale-to-fit)) . ((12186 . 8))) ((def ((lib "slideshow/pict.rkt") cc-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") inset/clip)) . ((13243 . 14))) ((def ((lib "slideshow/pict.rkt") cb-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/play.rkt") reverse-animations)) . ((39144 . 3))) ((def ((lib "slideshow/pict.rkt") pip-line)) . ((4164 . 13))) ((def ((lib "slideshow/pict.rkt") filled-rounded-rectangle)) . ((3082 . 19))) ((def ((lib "slideshow/base.rkt") current-font-size)) . ((30526 . 4))) ((def ((lib "slideshow/pict.rkt") pict?)) . ((0 . 18))) ((def ((lib "slideshow/code-pict.rkt") keyword-color)) . ((36082 . 2))) ((def ((lib "slideshow/pict.rkt") jack-o-lantern)) . ((17037 . 7))) ((def ((lib "slideshow/pict.rkt") make-pict-drawer)) . ((24182 . 4))) ((def ((lib "slideshow/base.rkt") slide-inset?)) . ((32222 . 3))) ((def ((lib "slideshow/pict.rkt") cloud)) . ((16133 . 5))) ((def ((lib "slideshow/code-pict.rkt") make-code-transformer)) . ((35563 . 4))) ((def ((lib "slideshow/pict.rkt") table)) . ((11550 . 13))) ((def ((lib "slideshow/code-pict.rkt") prop:code-transformer)) . ((35736 . 2))) ((def ((lib "slideshow/pict.rkt") ltl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") pin-over)) . ((10944 . 11))) ((def ((lib "slideshow/base.rkt") current-page-number-color)) . ((29847 . 4))) ((def ((lib "slideshow/code-pict.rkt") code-italic-underscore-enabled)) . ((35237 . 4))) ((def ((lib "slideshow/code-pict.rkt") id-color)) . ((36141 . 2))) ((def ((lib "slideshow/pict.rkt") pict)) . ((0 . 18))) ((def ((lib "slideshow/base.rkt") start-at-recent-slide)) . ((29457 . 2))) ((form ((lib "slideshow/code-pict.rkt") define-exec-code)) . ((35853 . 3))) ((def ((lib "slideshow/code-pict.rkt") typeset-code)) . ((32772 . 3))) ((def ((lib "slideshow/pict.rkt") vr-append)) . ((9390 . 25))) ((def ((lib "slideshow/base.rkt") condense?)) . ((30497 . 2))) ((def ((lib "slideshow/play.rkt") fast-edges)) . ((39438 . 3))) ((def ((lib "slideshow/pict.rkt") rb-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") black-and-white)) . ((13704 . 4))) ((def ((lib "slideshow/pict.rkt") ellipse)) . ((2282 . 15))) ((form ((lib "slideshow/step.rkt") with-steps)) . ((32280 . 2))) ((def ((lib "slideshow/balloon.rkt") make-balloon)) . ((20318 . 13))) ((def ((lib "slideshow/pict.rkt") desktop-machine)) . ((17428 . 4))) ((def ((lib "slideshow/play.rkt") fade-around-pict)) . ((38701 . 5))) ((def ((lib "slideshow/play.rkt") slide-pict)) . ((38843 . 7))) ((def ((lib "slideshow/base.rkt") comment?)) . ((29097 . 3))) ((def ((lib "slideshow/base.rkt") current-para-width)) . ((30903 . 4))) ((def ((lib "slideshow/pict.rkt") pict-panbox)) . ((0 . 18))) ((def ((lib "slideshow/base.rkt") current-titlet)) . ((31600 . 4))) ((def ((lib "slideshow/balloon.rkt") balloon-color)) . ((20650 . 2))) ((def ((lib "slideshow/pict.rkt") use-last*)) . ((14664 . 4))) ((def ((lib "slideshow/code-pict.rkt") current-reader-forms)) . ((34345 . 4))) ((def ((lib "slideshow/code-pict.rkt") current-code-line-sep)) . ((33272 . 4))) ((form ((lib "slideshow/base.rkt") titleless-page)) . ((30417 . 2))) ((def ((lib "slideshow/pict.rkt") cbl-superimpose)) . ((10058 . 31))) ((def ((lib "slideshow/pict.rkt") lc-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") disk)) . ((2282 . 15))) ((def ((lib "slideshow/pict.rkt") pict-draw)) . ((0 . 18))) ((def ((lib "slideshow/pict.rkt") lbl-find)) . ((14760 . 46))) ((def ((lib "slideshow/pict.rkt") vl-append)) . ((9390 . 25))) ((def ((lib "slideshow/code-pict.rkt") code-colorize-quote-enabled)) . ((35119 . 4))) ((def ((lib "slideshow/flash.rkt") outline-flash)) . ((22660 . 11))) ((def ((lib "slideshow/base.rkt") clickback)) . ((28611 . 4))) ((def ((lib "slideshow/pict.rkt") current-expected-text-scale)) . ((25068 . 4))) ((def ((lib "slideshow/code-pict.rkt") literal-color)) . ((36195 . 2))) ((def ((lib "slideshow/pict.rkt") thermometer)) . ((17544 . 20))) ((def ((lib "slideshow/balloon.rkt") pin-balloon)) . ((19669 . 11))) ((def ((lib "slideshow/base.rkt") it)) . ((26447 . 3))) ((def ((lib "slideshow/base.rkt") retract-most-recent-slide)) . ((29245 . 2))) ((form ((lib "slideshow/base.rkt") margin)) . ((30439 . 2))))
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                 
           #: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
  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                 
                 #: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
  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]                
                  #: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
  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%))
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
(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)
