5603
((3) 0 () 6 ((q lib "slideshow/base.rkt") (q lib "slideshow/text.rkt") (q lib "slideshow/play.rkt") (q lib "slideshow/fullscreen/base.rkt") (q lib "slideshow/widescreen/base.rkt") (q lib "slideshow/step.rkt")) () (h ! (equal) ((c def c (c (? . 2) q animate-slide)) q (12634 . 6)) ((c form c (c (? . 4) q full-page)) q (10333 . 2)) ((c def c (c (? . 0) q set-page-numbers-visible!)) q (4974 . 3)) ((c def c (c (? . 0) q gap-size)) q (5867 . 2)) ((c form c (c (? . 5) q with-steps~)) q (8963 . 2)) ((c def c (c (? . 0) q subitem)) q (2740 . 18)) ((c def c (c (? . 0) q get-client-w)) q (6064 . 3)) ((c def c (c (? . 0) q slide->pict)) q (4726 . 3)) ((c def c (c (? . 0) q titlet)) q (1328 . 3)) ((c def c (c (? . 0) q current-para-width)) q (7254 . 4)) ((c form c (c (? . 1) q italic)) q (9194 . 2)) ((c form c (c (? . 1) q subscript)) q (9216 . 2)) ((c def c (c (? . 2) q play)) q (10372 . 23)) ((c def c (c (? . 3) q slide)) q (9874 . 2)) ((c def c (c (? . 3) q make-outline)) q (9982 . 2)) ((c def c (c (? . 3) q subitem)) q (9953 . 2)) ((c def c (c (? . 0) q tt)) q (1226 . 3)) ((c form c (c (? . 4) q client-w)) q (10301 . 2)) ((c form c (c (? . 0) q full-page)) q (6294 . 2)) ((c def c (c (? . 0) q rt)) q (1277 . 3)) ((c def c (c (? . 0) q size-in-pixels)) q (3757 . 4)) ((c form c (c (? . 3) q full-page)) q (10084 . 2)) ((c def c (c (? . 0) q set-allow-new-slides-after-close!)) q (5734 . 3)) ((c def c (c (? . 0) q retract-most-recent-slide)) q (4577 . 2)) ((c def c (c (? . 2) q play-n)) q (11363 . 28)) ((c def c (c (? . 4) q item)) q (10176 . 2)) ((c def c (c (? . 0) q start-at-recent-slide)) q (4789 . 2)) ((c def c (c (? . 4) q size-in-pixels)) q (10265 . 2)) ((c form c (c (? . 1) q with-style)) q (9141 . 2)) ((c def c (c (? . 0) q t)) q (1022 . 3)) ((c def c (c (? . 0) q slide?)) q (4483 . 3)) ((c def c (c (? . 0) q clickback)) q (3561 . 4)) ((c def c (c (? . 3) q item)) q (9927 . 2)) ((c def c (c (? . 0) q interactive)) q (3650 . 4)) ((c def c (c (? . 0) q get-titleless-page)) q (6420 . 3)) ((c def c (c (? . 0) q most-recent-slide)) q (4535 . 2)) ((c def c (c (? . 0) q current-font-size)) q (6599 . 4)) ((c def c (c (? . 0) q bullet)) q (6000 . 2)) ((c def c (c (? . 0) q current-main-font)) q (6732 . 4)) ((c def c (c (? . 0) q set-use-background-frame!)) q (4902 . 3)) ((c def c (c (? . 0) q o-bullet)) q (6023 . 2)) ((c form c (c (? . 3) q client-w)) q (10052 . 2)) ((c form c (c (? . 4) q client-h)) q (10317 . 2)) ((q def ((lib "slideshow/slides-to-picts.rkt") get-slides-as-picts)) q (9322 . 13)) ((c def c (c (? . 0) q set-spotlight-style!)) q (5519 . 5)) ((c def c (c (? . 0) q current-tt-font-size)) q (6954 . 4)) ((c def c (c (? . 0) q current-titlet)) q (8084 . 4)) ((c def c (c (? . 0) q current-gap-size)) q (5889 . 4)) ((c def c (c (? . 0) q slide)) q (0 . 23)) ((c def c (c (? . 0) q current-line-sep)) q (7123 . 4)) ((c def c (c (? . 0) q get-current-para-width)) q (7389 . 4)) ((c def c (c (? . 0) q commentary-on-slide-font-size)) q (8764 . 4)) ((c def c (c (? . 0) q current-tt-font)) q (6845 . 4)) ((c def c (c (? . 0) q current-page-number-adjust)) q (5352 . 4)) ((c def c (c (? . 0) q item)) q (1945 . 18)) ((c form c (c (? . 1) q with-font)) q (9110 . 2)) ((c def c (c (? . 0) q current-page-number-color)) q (5179 . 4)) ((c def c (c (? . 4) q para)) q (10150 . 2)) ((c def c (c (? . 4) q subitem)) q (10202 . 2)) ((c def c (c (? . 0) q re-slide)) q (4627 . 4)) ((c def c (c (? . 2) q current-play-steps)) q (12873 . 4)) ((c form c (c (? . 1) q caps)) q (9268 . 2)) ((c def c (c (? . 0) q make-slide-inset)) q (8330 . 9)) ((c form c (c (? . 1) q big)) q (9070 . 2)) ((c def c (c (? . 0) q slide-inset?)) q (8706 . 3)) ((c form c (c (? . 1) q small)) q (9089 . 2)) ((c def c (c (? . 0) q aspect?)) q (5814 . 3)) ((c form c (c (? . 3) q client-h)) q (10068 . 2)) ((c def c (c (? . 3) q size-in-pixels)) q (10016 . 2)) ((c form c (c (? . 0) q client-h)) q (6171 . 2)) ((c def c (c (? . 0) q current-page-number-font)) q (5046 . 4)) ((c def c (c (? . 0) q it)) q (1072 . 3)) ((c def c (c (? . 0) q bt)) q (1123 . 3)) ((c def c (c (? . 0) q current-slide-assembler)) q (7683 . 12)) ((c def c (c (? . 0) q para)) q (1383 . 14)) ((c def c (c (? . 3) q para)) q (9901 . 2)) ((c def c (c (? . 0) q make-outline)) q (3940 . 10)) ((c def c (c (? . 0) q comment)) q (4348 . 3)) ((c def c (c (? . 0) q get-client-h)) q (6187 . 3)) ((c form c (c (? . 0) q margin)) q (6512 . 2)) ((c def c (c (? . 0) q condense?)) q (6570 . 2)) ((c def c (c (? . 4) q slide)) q (10123 . 2)) ((c def c (c (? . 0) q enable-click-advance!)) q (4834 . 3)) ((c form c (c (? . 0) q title-h)) q (6526 . 2)) ((c def c (c (? . 0) q pict->pre-render-pict)) q (3870 . 3)) ((c form c (c (? . 4) q titleless-page)) q (10350 . 2)) ((c def c (c (? . 4) q make-outline)) q (10231 . 2)) ((c def c (c (? . 0) q printing?)) q (6541 . 2)) ((c def c (c (? . 0) q set-margin!)) q (8213 . 3)) ((c def c (c (? . 0) q set-title-h!)) q (8271 . 3)) ((c form c (c (? . 0) q client-w)) q (6048 . 2)) ((c form c (c (? . 1) q with-scale)) q (9037 . 2)) ((c form c (c (? . 0) q titleless-page)) q (6398 . 2)) ((c form c (c (? . 1) q superscript)) q (9241 . 2)) ((c def c (c (? . 0) q comment?)) q (4429 . 3)) ((c form c (c (? . 1) q with-size)) q (9006 . 2)) ((c def c (c (? . 0) q bit)) q (1174 . 3)) ((c def c (c (? . 1) q blank-line)) q (9288 . 2)) ((c form c (c (? . 1) q bold)) q (9174 . 2)) ((c form c (c (? . 5) q with-steps)) q (8921 . 2)) ((c form c (c (? . 3) q titleless-page)) q (10101 . 2)) ((c def c (c (? . 0) q get-full-page)) q (6311 . 3)) ((c def c (c (? . 0) q current-title-color)) q (7522 . 4))))
procedure
(slide [#:title title               
        #:name name                 
        #:aspect aspect             
        #: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
  aspect : aspect? = #f
  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 secs #t)
  element : (flat-rec-contract elem/c
              (or/c pict-convertible?
                   '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 [#:aspect aspect        
       #:width width          
       #:align align          
       #:fill? fill?          
       #:decode? decode?]     
       element ...)       -> pict?
  aspect : aspect? = #f
  width : real? = ((get-current-para-width #:aspect aspect))
  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-convertible? (listof elem/c)))
procedure
(item [#:aspect aspect             
       #:width width               
       #:gap-size sep-gap-size     
       #:bullet blt                
       #:align align               
       #:fill? fill?               
       #:decode? decode?]          
       element ...)            -> pict?
  aspect : aspect? = #f
  width : real? = ((get-current-para-width #:aspect aspect))
  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-convertible? (listof elem/c)))
procedure
(subitem [#:aspect aspect             
          #:width width               
          #:gap-size sep-gap-size     
          #:bullet blt                
          #:align align               
          #:fill? fill?               
          #:decode? decode?]          
          element ...)            -> pict?
  aspect : aspect? = #f
  width : real? = ((get-current-para-width #:aspect aspect))
  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-convertible? (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 [#:aspect aspect]) -> pict?
  pict : pict?
  aspect : aspect? = #f
procedure
(pict->pre-render-pict pict) -> pict?
  pict : pict?
procedure
(make-outline  name                  
               title                 
               subitems ...          
              [#:aspect aspect]) -> (symbol? . -> . void?)
  name : (or/c symbol? (listof symbol?))
  title : (or/c string? pict?)
  subitems : (or/c #f null?
                   (symbol? . -> . pict?))
  aspect : aspect? = #f
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?)
procedure
(set-spotlight-style! [#:size size         
                       #:color color]) -> void?
  size : (or/c #f (>=/c 0)) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
procedure
(set-allow-new-slides-after-close! on?) -> void?
  on? : any/c
procedure
(aspect? v) -> boolean?
  v : any/c
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
procedure
(get-client-w [#:aspect aspect]) -> exact-nonnegative-integer?
  aspect : aspect? = #f
syntax
client-h
procedure
(get-client-h [#:aspect aspect]) -> exact-nonnegative-integer?
  aspect : aspect? = #f
syntax
full-page
procedure
(get-full-page [#:aspect aspect]) -> pict?
  aspect : aspect? = #f
syntax
titleless-page
procedure
(get-titleless-page [#:aspect aspect]) -> pict?
  aspect : aspect? = #f
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-tt-font) -> text-style/c
(current-tt-font style) -> void?
  style : text-style/c
parameter
(current-tt-font-size) -> (or/c #f exact-nonnegative-integer?)
(current-tt-font-size size) -> void?
  size : (or/c #f exact-nonnegative-integer?)
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?
procedure
(get-current-para-width [#:aspect aspect])
 -> (parameter/c exact-nonnegative-integer?)
  aspect : aspect? = #f
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
parameter
(commentary-on-slide-font-size) -> exact-positive-integer?
(commentary-on-slide-font-size size) -> void?
  size : exact-positive-integer?
syntax
(with-steps (id ...) body ...)
syntax
(with-steps~ (id ...) body ...)
syntax
(with-size size expr)
syntax
(with-scale scale expr)
syntax
(big text)
syntax
(small text)
syntax
(with-font font expr)
syntax
(with-style style expr)
syntax
(bold text)
syntax
(italic text)
syntax
(subscript text)
syntax
(superscript text)
syntax
(caps text)
procedure
(blank-line) -> pict?
procedure
(get-slides-as-picts  path                  
                      width                 
                      height                
                      condense?             
                     [stop-after            
                      #:aspect aspect]) -> (listof pict?)
  path : path-string?
  width : real?
  height : real?
  condense? : any/c
  stop-after : (or/c #f exact-nonnegative-integer?) = #f
  aspect : (or/c 'fullscreen 'widescreen) = inferred-aspect
value
slide : procedure?
value
para : procedure?
value
item : procedure?
value
subitem : procedure?
value
make-outline : procedure?
value
size-in-pixels : procedure?
syntax
client-w
syntax
client-h
syntax
full-page
syntax
titleless-page
value
slide : procedure?
value
para : procedure?
value
item : procedure?
value
subitem : procedure?
value
make-outline : procedure?
value
size-in-pixels : procedure?
syntax
client-w
syntax
client-h
syntax
full-page
syntax
titleless-page
procedure
(play  gen                           
      [#:steps steps                 
       #:delay delay-secs            
       #:skip-first? skip-first?     
       #:title title                 
       #:name name                   
       #:aspect aspect               
       #:comment comment             
       #:layout layout])         -> void?
  gen : ((real-in 0.0 1.0) . -> . pict?)
  steps : exact-positive-integer? = (current-play-steps)
  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
  aspect : aspect? = #f
  comment : (or/c comment? #f) = #f
  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                   
         #:aspect aspect               
         #:comments comment            
         #:layout layout])         -> void?
  gen* : (and/c (unconstrained-domain-> pict?)
                (λ (x) (number? (procedure-arity x))))
  steps : (list*of exact-positive-integer?
                   (or/c exact-positive-integer? '()))
        = (current-play-steps)
  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
  aspect : aspect? = #f
  comment : (list*of comment? (or/c comment? #f '())) = #f
  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))))
parameter
(current-play-steps) -> exact-positive-integer?
(current-play-steps n) -> void?
  n : exact-positive-integer?
