(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))))