(bind-func set_slide_texture (lambda (path) (printf "load img: %s\n" path) (aset! slides slides_end (gl_load_image path 0)) (set! slides_end (+ slides_end 1)) void))