anchor.diff:            '}'+
             'else'+
             '{' +
  -              'return texture2DRect(bitmap,UV);'+ //???
  +          //    'return texture2DRect(bitmap,UV);'+ //???
             '}'+
         '}'+
          'return inColor;'+
  
positive.code: 
      procedure UseNoPaletteShader();
      procedure UsePaletteFlagShader();
      //procedure UseFlagShader();
  
      procedure SetFlagColor(FlagColor: TRBGAColor);
      procedure SetFragmentColor(AColor: TRBGAColor);
  
negative.code:   glUniform1i(UseTextureUniform, GLboolean(Value));
  end;
  
  procedure TShaderContext.UseNoPaletteShader;
  begin
    FCurrentProgram := DefaultProgram;
  