(bind-func load-tex (lambda (id) (let ((t (gl_load_image "assets/images/star.png" id))) (set! texture1 t) (printf "texture: %d\n" texture1) void)))