slideshow: add `slide->pict'

collects/scribblings/slideshow/slides.scrbl

@@ -239,10 +239,16 @@ Returns @racket[#t] if @racket[v] is a comment produced by
 
 @section{Slide Registration}
 
+@defproc[(slide? [v any/c]) boolean?]{
+
+Returns @racket[#t] if @racket[v] is a slide produced by
+@racket[most-recent-slide] or @racket[retract-most-recent-slide].}
+
 @defproc[(most-recent-slide) slide?]{
 
 Returns a slide structure that be supplied @racket[re-slide] to make a
-copy of the slide.}
+copy of the slide or @racket[slide->pict] to re-extract the entire
+slide as a pict.}
 
 @defproc[(retract-most-recent-slide) slide?]{
 
@@ -256,10 +262,11 @@ structure that be supplied to @racket[re-slide] to restore the slide
 Re-inserts a slide, @racket[lt-superimpose]ing the given additional
 @racket[pict].}
 
-@defproc[(slide? [v any/c]) boolean?]{
+@defproc[(slide->pict [slide slide?])
+         pict?]{
 
-Returns @racket[#t] if @racket[v] is a slide produced by
+Converts a complete slide to a @racket[pict]. The bounding box of the
-@racket[most-recent-slide] or @racket[retract-most-recent-slide].}
+result corresponds to the slide within its margins.}
 
 @; ------------------------------------------------------------------------
 

collects/slideshow/base.rkt

@@ -24,7 +24,7 @@
                        [sliderec? slide?]
                        [just-a-comment? comment?])
            comment
-           most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
+           most-recent-slide retract-most-recent-slide re-slide slide->pict start-at-recent-slide
 	   make-outline
 	   (rename-out [item/kw item]
                        [subitem/kw subitem]

collects/slideshow/core.rkt

@@ -561,6 +561,12 @@
             (sliderec-timeout s)))
 	  (set! page-number (+ page-number 1))))
       
+      (define (slide->pict s)
+        (unless (sliderec? s)
+          (raise-type-error 'slide->pict "slide" s))
+        (let ([orig (sliderec-drawer s)])
+          (dc orig client-w client-h)))
+
       (define (start-at-recent-slide)
 	(viewer:set-init-page! (max 0 (- page-number 2))))
 

collects/slideshow/sig.rkt

@@ -55,7 +55,7 @@
      slide/center/timeout
      slide/title/center/timeout
      
-     most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
+     most-recent-slide retract-most-recent-slide re-slide slide->pict start-at-recent-slide
      scroll-transition pause-transition
      comment make-outline
      item/kw item item* page-item page-item*

collects/slideshow/slide.rkt

@@ -102,7 +102,7 @@
                     [rt (string? . -> . pict?)]
                     [tt* (() () #:rest (listof string?) . ->* . pict?)])
   (provide slide/kw
-           most-recent-slide retract-most-recent-slide re-slide start-at-recent-slide
+           most-recent-slide retract-most-recent-slide re-slide slide->pict start-at-recent-slide
 	   scroll-transition pause-transition
 	   make-outline
 	   item item* page-item page-item*