(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>"
(id fbo)
(colour_tex fbo)
(depth_tex fbo)
(width fbo)
(height fbo)))
(String str))))