static int padTo4 (const int width)
{
   if (width&3)
      return ((width>>2)<<2) + 4;
   else
      return width;
}

int getGLFrame (TFRAME *frame, int glwidth, int glheight)
{
   int pad = padTo4(glwidth);
   if (pad)
      pad -= glwidth;

    unsigned char *data = calloc(1, glwidth * glheight*4);
    if (data != NULL){
      glReadPixels(0, 0, glwidth, glheight, GL_RGB, GL_UNSIGNED_BYTE, data);
      int r,g,b,x,y;
      for (y = frame->height-1; y>= 0; y--){
         for (x = 0; x < frame->width; x++){
            r = (*data++&0xF0)<<4;
            g = (*data++&0xF0);
            b = (*data++&0xF0)>>4;
            lSetPixel_NB(frame, x, y, r|g|b);
         }
         data += pad;
      }   
      free(data);
      return 1;
   }
   return 0;
}