Texture   xtlang

;; create data
(bind-func Texture
  (lambda (width:i32 height:i32 comp:i32)
    (let ((tex (cond ((= comp 1)
                      (Texture:[Texture*,i32]* GL_DEPTH_COMPONENT))
                     ((= comp 3)
                      (Texture:[Texture*,i32]* GL_RGB))
                     (else
                      (Texture:[Texture*,i32]* GL_RGBA)))))
      (create_data tex width height comp)
      (update tex)
      tex)))