(bind-func load-tex (lambda (id) ;(let ((t (gl-load-tex "C:/Users/andrew/Desktop/Extempore/Horde3D/textures/particles/star.png" id))) (let ((t (gl_load_image_sqr "Horde3D/textures/particles/star.png" id))) (set! texture1 t))))