(bind-func toString
(lambda (fbo:FBO*)
(let ((str:i8* (zalloc 256)))
(if (null? fbo)
(sprintf str "<FBO: 0x0>")
(sprintf str "<FBO: id=%d color_tex=%d depth_tex=%d width=%d height=%d>"
(FBO_id fbo)
(FBO_color_texture fbo)
(FBO_depth_texture fbo)
(FBO_width fbo)
(FBO_height fbo)))
(String str))))