init-slides   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/slideshow.xtm

Implementation

(define init-slides
  (lambda (dirpath)
    (let ((file-list (sys:directory-list (sys:expand-path dirpath))))
      (for-each (lambda (f)
                  (if (regex:match? f "png$")
                      (set_slide_texture (string-append (sys:expand-path dirpath) "/" f))))
                file-list)
      (println 'loaded (max_slide_num) 'slides))))


Back to Index