// 2011.07.04 # Doj
// Модуль, реализующий команды по работе с текстурами в OpenGL

namespace TEXTURE
  // массивы имён загруженных текстур и их идентификаторов
  100 bdyn *names
  100 dyn *textures
  : find? ( B: s - iT|F) *textures dyn# begin dup 0> while 1- 
           bdup dup *names bdyn[]@ str= if bdrop true exit then
         repeat bdrop drop false ;

  variable f
  : << 1 cells f @ file-read ;
  variable *current-byte
  variable *bit-number
  : start-bits *current-byte off *bit-number off ;
  : bit<< *bit-number @ 0= if f @ byte-file-read *current-byte ! then 
          *current-byte @ 1 *bit-number @ shl and 0<> ;

  variable *width
  variable *height
  variable *flags
  variable *ptr
  : load-bit find? if exit then 
    file-r file-open f !
    // *width << *height << *flags <<
    // *width @ *height @ * 4 * malloc *ptr !
  ;
\namespace
