hopefully no more windows

author FGSFDSFGS <derp.primus@gmail.com>

Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)

committer FGSFDSFGS <derp.primus@gmail.com>

Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)
author FGSFDSFGS <derp.primus@gmail.com>
Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)
committer FGSFDSFGS <derp.primus@gmail.com>
Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)
diff --git a/src/editor/Editor.lpi b/src/editor/Editor.lpi

index 46e8ea60a02f84e999ce1c6edb494cabd84c7a00..6125b9787042dc1de1aed5da40e45011bca91477 100644 (file)
--- a/src/editor/Editor.lpi
+++ b/src/editor/Editor.lpi
@@ -31,10 +31,13 @@
          <FormatVersion Value="1"/>
        </local>
      </RunParams>
          <FormatVersion Value="1"/>
        </local>
      </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
        <Item1>
        <Item1>
-        <PackageName Value="LCL"/>
+        <PackageName Value="LazOpenGLContext"/>
        </Item1>
        </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
+      </Item2>
      </RequiredPackages>
      <Units Count="40">
        <Unit0>
      </RequiredPackages>
      <Units Count="40">
        <Unit0>
@@ -98,7 +101,9 @@
        <Unit14>
          <Filename Value="f_main.pas"/>
          <IsPartOfProject Value="True"/>
        <Unit14>
          <Filename Value="f_main.pas"/>
          <IsPartOfProject Value="True"/>
+        <ComponentName Value="MainForm"/>
          <HasResources Value="True"/>
          <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
        </Unit14>
        <Unit15>
          <Filename Value="g_map.pas"/>
        </Unit14>
        <Unit15>
          <Filename Value="g_map.pas"/>
@@ -224,8 +229,8 @@
        <Filename Value="../../bin/editor"/>
      </Target>
      <SearchPaths>
        <Filename Value="../../bin/editor"/>
      </Target>
      <SearchPaths>
-      <IncludeFiles Value="..;../lib/dgl;../engine;../shared;../lib/fmod;$(ProjOutDir)"/>
-      <OtherUnitFiles Value="..;../lib/dgl;../engine;../shared;../lib/fmod"/>
+      <IncludeFiles Value="..;../engine;../shared;../lib/fmod;../lib/vampimg;../lib/vampimg/JpegLib;../lib/vampimg/ZLib;$(ProjOutDir)"/>
+      <OtherUnitFiles Value="..;../engine;../shared;../lib/fmod;../lib/vampimg;../lib/vampimg/JpegLib;../lib/vampimg/ZLib"/>
        <UnitOutputDirectory Value="../../tmp"/>
        <ObjectPath Value=".."/>
      </SearchPaths>
        <UnitOutputDirectory Value="../../tmp"/>
        <ObjectPath Value=".."/>
      </SearchPaths>
diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr

index a0da9cee345627e9a57ab9fcbcab4aab587b794d..647bfae8129308cbab1781174315cc8acacfec16 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -4,7 +4,7 @@ program Editor;
  
  uses
    Forms, Interfaces,
  
  uses
    Forms, Interfaces,
-  dglOpenGL in '../lib/dgl/dglOpenGL.pas',
+  GL, GLExt,
    e_graphics in '../engine/e_graphics.pas',
    e_log in '../engine/e_log.pas',
    e_textures in '../engine/e_textures.pas',
    e_graphics in '../engine/e_graphics.pas',
    e_log in '../engine/e_log.pas',
    e_textures in '../engine/e_textures.pas',
@@ -37,10 +37,13 @@ uses
    f_packmap in 'f_packmap.pas' {PackMapForm},
    f_maptest in 'f_maptest.pas' {MapTestForm},
    f_choosetype in 'f_choosetype.pas' {ChooseTypeForm},
    f_packmap in 'f_packmap.pas' {PackMapForm},
    f_maptest in 'f_maptest.pas' {MapTestForm},
    f_choosetype in 'f_choosetype.pas' {ChooseTypeForm},
-  fmod in '../lib/fmod/fmod.pas',
-  fmoderrors in '../lib/fmod/fmoderrors.pas',
-  fmodpresets in '../lib/fmod/fmodpresets.pas',
-  fmodtypes in '../lib/fmod/fmodtypes.pas',
+  fmod,
+  fmoderrors,
+  fmodpresets,
+  fmodtypes,
+  ImagingTypes,
+  Imaging,
+  ImagingUtility,
    g_language in 'g_language.pas',
    f_selectlang in 'f_selectlang.pas' {SelectLanguageForm};
  
    g_language in 'g_language.pas',
    f_selectlang in 'f_selectlang.pas' {SelectLanguageForm};
  
diff --git a/src/editor/f_addresource_sound.pas b/src/editor/f_addresource_sound.pas

index 4efa9878cc1be4d8c082dd6f64beb944b94a6131..2dfc49d720e0e7c8505a828866e0fc40f83c9c66 100644 (file)
--- a/src/editor/f_addresource_sound.pas
+++ b/src/editor/f_addresource_sound.pas
@@ -105,7 +105,8 @@ function CreateSoundWAD(Resource: String): Boolean;
  var
    WAD: TWADEditor_1;
    FileName, SectionName, ResourceName: String;
  var
    WAD: TWADEditor_1;
    FileName, SectionName, ResourceName: String;
-  ResLength, sz: Integer;
+  ResLength: Integer;
+  sz: LongWord;
    soundExInfo: FMOD_CREATESOUNDEXINFO;
    res: FMOD_RESULT;
  
    soundExInfo: FMOD_CREATESOUNDEXINFO;
    res: FMOD_RESULT;
  
@@ -126,10 +127,10 @@ begin
        sz := SizeOf(FMOD_CREATESOUNDEXINFO);
        FillMemory(@soundExInfo, sz, 0);
        soundExInfo.cbsize := sz;
        sz := SizeOf(FMOD_CREATESOUNDEXINFO);
        FillMemory(@soundExInfo, sz, 0);
        soundExInfo.cbsize := sz;
-      soundExInfo.length := ResLength;
+      soundExInfo.length := LongWord(ResLength);
  
        res := FMOD_System_CreateStream(F_System, SoundData,
  
        res := FMOD_System_CreateStream(F_System, SoundData,
-        FMOD_LOOP_OFF + FMOD_2D + FMOD_SOFTWARE + FMOD_OPENMEMORY,
+        FMOD_LOOP_OFF or FMOD_2D or FMOD_OPENMEMORY,
          @soundExInfo, Sound);
          
        if res <> FMOD_OK then
          @soundExInfo, Sound);
          
        if res <> FMOD_OK then
diff --git a/src/editor/f_addresource_texture.pas b/src/editor/f_addresource_texture.pas

index f9ebe0a83fc499ab110bf1718250b61d94178f0a..ce9a073d40b5e6fafddff15b492908cfb9b0f213 100644 (file)
--- a/src/editor/f_addresource_texture.pas
+++ b/src/editor/f_addresource_texture.pas
@@ -37,13 +37,13 @@ var
    AddTextureForm: TAddTextureForm;
  
  function IsAnim(Res: String): Boolean;
    AddTextureForm: TAddTextureForm;
  
  function IsAnim(Res: String): Boolean;
-function GetFrame(Res: String; var Data: Pointer;
+function GetFrame(Res: String; var Data: Pointer; var DataLen: Integer;
                    var Width, Height: Word): Boolean;
  
  implementation
  
  uses
                    var Width, Height: Word): Boolean;
  
  implementation
  
  uses
-  BinEditor, WADEDITOR, f_main, g_textures, WADSTRUCT, CONFIG, g_map,
+  BinEditor, WADEDITOR, WADSTRUCT, f_main, g_textures, CONFIG, g_map,
    g_language;
  
  type
    g_language;
  
  type
@@ -169,7 +169,7 @@ begin
    Result := ok;
  end;
  
    Result := ok;
  end;
  
-function GetFrame(Res: String; var Data: Pointer;
+function GetFrame(Res: String; var Data: Pointer; var DataLen: Integer;
                    var Width, Height: Word): Boolean;
  var
    AnimWAD:      Pointer;
                    var Width, Height: Word): Boolean;
  var
    AnimWAD:      Pointer;
@@ -232,6 +232,8 @@ begin
      Exit;
    end;
  
      Exit;
    end;
  
+  DataLen := Len;
+
    Height := config.ReadInt('', 'frameheight', 0);
    Width := config.ReadInt('', 'framewidth', 0);
  
    Height := config.ReadInt('', 'frameheight', 0);
    Width := config.ReadInt('', 'framewidth', 0);
  
diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm

index 58c22a2c9caf246492beaca129eda9a4d2084ece..fcc7377e6df71a29c4e52a7d2adb963b3cb7cd50 100644 (file)
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
@@ -1,21 +1,19 @@
  object MainForm: TMainForm
    Left = 434
  object MainForm: TMainForm
    Left = 434
+  Height = 480
    Top = 255
    Top = 255
-  AutoScroll = False
+  Width = 672
    Caption = '2'
    Caption = '2'
-  ClientHeight = 554
-  ClientWidth = 792
+  ClientHeight = 460
+  ClientWidth = 672
    Color = clBtnFace
    Constraints.MinHeight = 480
    Constraints.MinWidth = 672
    Color = clBtnFace
    Constraints.MinHeight = 480
    Constraints.MinWidth = 672
-  Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
-  Font.Style = []
    KeyPreview = True
    Menu = MainMenu
    KeyPreview = True
    Menu = MainMenu
-  Position = poDefault
    OnActivate = FormActivate
    OnCloseQuery = FormCloseQuery
    OnCreate = FormCreate
    OnActivate = FormActivate
    OnCloseQuery = FormCloseQuery
    OnCreate = FormCreate
@@ -23,303 +21,333 @@ object MainForm: TMainForm
    OnKeyDown = FormKeyDown
    OnKeyUp = FormKeyUp
    OnResize = FormResize
    OnKeyDown = FormKeyDown
    OnKeyUp = FormKeyUp
    OnResize = FormResize
-  PixelsPerInch = 96
+  Position = poDefault
+  LCLVersion = '1.6.0.4'
    object Splitter1: TSplitter
    object Splitter1: TSplitter
-    Left = 640
+    Left = 518
+    Height = 289
      Top = 34
      Top = 34
-    Height = 387
+    Width = 5
      Align = alRight
      Beveled = True
      MinSize = 64
      OnCanResize = Splitter1CanResize
      Align = alRight
      Beveled = True
      MinSize = 64
      OnCanResize = Splitter1CanResize
+    ResizeAnchor = akRight
    end
    object Splitter2: TSplitter
    end
    object Splitter2: TSplitter
+    Cursor = crVSplit
      Left = 0
      Left = 0
-    Top = 421
-    Width = 792
      Height = 3
      Height = 3
-    Cursor = crVSplit
+    Top = 323
+    Width = 672
      Align = alBottom
      MinSize = 64
      OnCanResize = Splitter2CanResize
      Align = alBottom
      MinSize = 64
      OnCanResize = Splitter2CanResize
+    ResizeAnchor = akBottom
    end
    object PanelProps: TPanel
    end
    object PanelProps: TPanel
-    Left = 643
+    Left = 523
+    Height = 289
      Top = 34
      Width = 149
      Top = 34
      Width = 149
-    Height = 387
      Align = alRight
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Align = alRight
      BevelInner = bvRaised
      BevelOuter = bvLowered
+    ClientHeight = 289
+    ClientWidth = 149
      TabOrder = 0
      object vleObjectProperty: TValueListEditor
      TabOrder = 0
      object vleObjectProperty: TValueListEditor
-      Left = 0
-      Top = 0
+      Left = 2
+      Height = 255
+      Top = 2
        Width = 145
        Width = 145
-      Height = 353
        Align = alClient
        Constraints.MinWidth = 145
        DefaultColWidth = 60
        DefaultRowHeight = 16
        Align = alClient
        Constraints.MinWidth = 145
        DefaultColWidth = 60
        DefaultRowHeight = 16
-      DisplayOptions = [doColumnTitles, doAutoColResize]
-      DropDownRows = 11
-      FixedCols = 1
-      Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
-      Font.Style = []
        ParentFont = False
        ParentFont = False
+      RowCount = 2
        ScrollBars = ssVertical
        TabOrder = 0
        ScrollBars = ssVertical
        TabOrder = 0
-      TitleCaptions.Strings = (
-        'Свойство'
-        'Значение')
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -12
+      TitleFont.Name = 'MS Sans Serif'
        OnEditButtonClick = vleObjectPropertyEditButtonClick
        OnEnter = vleObjectPropertyEnter
        OnExit = vleObjectPropertyExit
        OnEditButtonClick = vleObjectPropertyEditButtonClick
        OnEnter = vleObjectPropertyEnter
        OnExit = vleObjectPropertyExit
-      OnGetPickList = vleObjectPropertyGetPickList
        OnKeyDown = vleObjectPropertyKeyDown
        OnKeyDown = vleObjectPropertyKeyDown
+      DisplayOptions = [doColumnTitles, doAutoColResize]
+      DropDownRows = 11
+      Strings.Strings = (
+        ''
+      )
+      TitleCaptions.Strings = (
+        'Свойство'
+        'Значение'
+      )
+      OnGetPickList = vleObjectPropertyGetPickList
        ColWidths = (
        ColWidths = (
-        70
-        71)
+        62
+        62
+      )
      end
      object PanelPropApply: TPanel
      end
      object PanelPropApply: TPanel
-      Left = 0
-      Top = 353
-      Width = 145
+      Left = 2
        Height = 30
        Height = 30
+      Top = 257
+      Width = 145
        Align = alBottom
        BevelOuter = bvNone
        Align = alBottom
        BevelOuter = bvNone
+      ClientHeight = 30
+      ClientWidth = 145
        TabOrder = 1
        object bApplyProperty: TButton
          Left = 6
        TabOrder = 1
        object bApplyProperty: TButton
          Left = 6
+        Height = 25
          Top = 1
          Width = 129
          Top = 1
          Width = 129
-        Height = 25
          Caption = 'Применить свойства'
          Caption = 'Применить свойства'
-        TabOrder = 0
          OnClick = bApplyPropertyClick
          OnClick = bApplyPropertyClick
+        TabOrder = 0
        end
      end
    end
    object PanelMap: TPanel
      Left = 0
        end
      end
    end
    object PanelMap: TPanel
      Left = 0
+    Height = 289
      Top = 34
      Top = 34
-    Width = 640
-    Height = 387
+    Width = 518
      Align = alClient
      BevelOuter = bvNone
      Align = alClient
      BevelOuter = bvNone
+    ClientHeight = 289
+    ClientWidth = 518
      TabOrder = 1
      TabOrder = 1
-    object RenderPanel: TPanel
+    object sbHorizontal: TScrollBar
+      Left = 0
+      Height = 13
+      Top = 276
+      Width = 518
+      Align = alBottom
+      LargeChange = 256
+      Max = 0
+      PageSize = 0
+      SmallChange = 16
+      TabOrder = 0
+      TabStop = False
+      OnScroll = sbHorizontalScroll
+    end
+    object sbVertical: TScrollBar
+      Left = 504
+      Height = 276
+      Top = 0
+      Width = 14
+      Align = alRight
+      Kind = sbVertical
+      LargeChange = 256
+      Max = 0
+      PageSize = 0
+      SmallChange = 16
+      TabOrder = 1
+      TabStop = False
+      OnScroll = sbVerticalScroll
+    end
+    object RenderPanel: TOpenGLControl
        Left = 0
        Left = 0
+      Height = 276
        Top = 0
        Top = 0
-      Width = 626
-      Height = 374
+      Width = 504
        Align = alClient
        Align = alClient
-      BevelInner = bvRaised
-      BevelOuter = bvLowered
-      TabOrder = 0
+      AlphaBits = 8
        OnMouseDown = RenderPanelMouseDown
        OnMouseMove = RenderPanelMouseMove
        OnMouseUp = RenderPanelMouseUp
        OnMouseDown = RenderPanelMouseDown
        OnMouseMove = RenderPanelMouseMove
        OnMouseUp = RenderPanelMouseUp
+      OnPaint = RenderPanelPaint
        OnResize = RenderPanelResize
        object pLoadProgress: TPanel
          Left = 142
        OnResize = RenderPanelResize
        object pLoadProgress: TPanel
          Left = 142
+        Height = 49
          Top = 94
          Width = 185
          Top = 94
          Width = 185
-        Height = 49
+        ClientHeight = 49
+        ClientWidth = 185
          TabOrder = 0
          Visible = False
          object lLoad: TLabel
            Left = 6
          TabOrder = 0
          Visible = False
          object lLoad: TLabel
            Left = 6
+          Height = 13
            Top = 30
            Width = 169
            Top = 30
            Width = 169
-          Height = 13
            AutoSize = False
            AutoSize = False
+          ParentColor = False
          end
          object pbLoad: TProgressBar
            Left = 6
          end
          object pbLoad: TProgressBar
            Left = 6
+          Height = 16
            Top = 6
            Width = 169
            Top = 6
            Width = 169
-          Height = 16
            Step = 1
            TabOrder = 0
          end
        end
      end
            Step = 1
            TabOrder = 0
          end
        end
      end
-    object sbHorizontal: TScrollBar
-      Left = 0
-      Top = 372
-      Width = 640
-      Height = 13
-      Align = alBottom
-      LargeChange = 256
-      Max = 0
-      PageSize = 0
-      SmallChange = 16
-      TabOrder = 1
-      TabStop = False
-      OnScroll = sbHorizontalScroll
-    end
-    object sbVertical: TScrollBar
-      Left = 624
-      Top = 0
-      Width = 14
-      Height = 374
-      Align = alRight
-      Kind = sbVertical
-      LargeChange = 256
-      Max = 0
-      PageSize = 0
-      SmallChange = 16
-      TabOrder = 2
-      TabStop = False
-      OnScroll = sbVerticalScroll
-    end
    end
    object StatusBar: TStatusBar
      Left = 0
    end
    object StatusBar: TStatusBar
      Left = 0
-    Top = 535
-    Width = 792
-    Height = 19
+    Height = 23
+    Top = 437
+    Width = 672
      AutoHint = True
      AutoHint = True
-    Panels = <
+    Panels = <    
        item
          Width = 600
        item
          Width = 600
-      end
+      end    
        item
          Width = 50
        end>
        item
          Width = 50
        end>
-    SizeGrip = False
      SimplePanel = False
      SimplePanel = False
+    SizeGrip = False
    end
    object PanelObjs: TPanel
      Left = 0
    end
    object PanelObjs: TPanel
      Left = 0
-    Top = 424
-    Width = 792
      Height = 111
      Height = 111
+    Top = 326
+    Width = 672
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
+    ClientHeight = 111
+    ClientWidth = 672
      Constraints.MinHeight = 111
      TabOrder = 3
      object pcObjects: TPageControl
      Constraints.MinHeight = 111
      TabOrder = 3
      object pcObjects: TPageControl
-      Left = 0
-      Top = 0
-      Width = 788
+      Left = 2
        Height = 107
        Height = 107
+      Top = 2
+      Width = 668
        ActivePage = tsPanels
        Align = alClient
        Images = ImageList
        ActivePage = tsPanels
        Align = alClient
        Images = ImageList
+      TabIndex = 0
        TabOrder = 0
        object tsPanels: TTabSheet
          Caption = 'Панели'
        TabOrder = 0
        object tsPanels: TTabSheet
          Caption = 'Панели'
+        ClientHeight = 80
+        ClientWidth = 660
          ImageIndex = 12
          object lbTextureList: TListBox
            Left = 206
          ImageIndex = 12
          object lbTextureList: TListBox
            Left = 206
-          Top = 0
-          Width = 362
-          Height = 78
+          Height = 80
            Hint = 'Список текстур'
            Hint = 'Список текстур'
-          Style = lbOwnerDrawFixed
+          Top = 0
+          Width = 242
            Align = alClient
            Constraints.MaxHeight = 600
            Constraints.MinHeight = 70
            ItemHeight = 13
            Align = alClient
            Constraints.MaxHeight = 600
            Constraints.MinHeight = 70
            ItemHeight = 13
-          TabOrder = 0
            OnClick = lbTextureListClick
            OnClick = lbTextureListClick
+          Style = lbOwnerDrawFixed
+          TabOrder = 0
          end
          object PanelTextures: TPanel
          end
          object PanelTextures: TPanel
-          Left = 568
+          Left = 448
+          Height = 80
            Top = 0
            Width = 212
            Top = 0
            Width = 212
-          Height = 78
            Align = alRight
            BevelOuter = bvNone
            Align = alRight
            BevelOuter = bvNone
+          ClientHeight = 80
+          ClientWidth = 212
            TabOrder = 1
            object LabelTxH: TLabel
              Left = 33
            TabOrder = 1
            object LabelTxH: TLabel
              Left = 33
+            Height = 13
              Top = 22
              Width = 91
              Top = 22
              Width = 91
-            Height = 13
              Caption = 'Высота текстуры:'
              Caption = 'Высота текстуры:'
+            ParentColor = False
            end
            object LabelTxW: TLabel
              Left = 33
            end
            object LabelTxW: TLabel
              Left = 33
+            Height = 13
              Top = 0
              Width = 92
              Top = 0
              Width = 92
-            Height = 13
              Caption = 'Ширина текстуры:'
              Caption = 'Ширина текстуры:'
+            ParentColor = False
            end
            object lTextureHeight: TLabel
              Left = 139
            end
            object lTextureHeight: TLabel
              Left = 139
+            Height = 13
              Top = 22
              Width = 33
              Top = 22
              Width = 33
-            Height = 13
              AutoSize = False
              AutoSize = False
+            ParentColor = False
            end
            object lTextureWidth: TLabel
              Left = 139
            end
            object lTextureWidth: TLabel
              Left = 139
+            Height = 13
              Top = 0
              Width = 33
              Top = 0
              Width = 33
-            Height = 13
              AutoSize = False
              AutoSize = False
+            ParentColor = False
            end
            object cbPreview: TCheckBox
              Left = 35
            end
            object cbPreview: TCheckBox
              Left = 35
+            Height = 19
              Top = 54
              Top = 54
-            Width = 169
-            Height = 17
+            Width = 165
              Caption = 'Предварительный просмотр'
              TabOrder = 0
            end
            object bbAddTexture: TBitBtn
              Left = 3
              Caption = 'Предварительный просмотр'
              TabOrder = 0
            end
            object bbAddTexture: TBitBtn
              Left = 3
-            Top = 0
-            Width = 25
              Height = 25
              Hint = 'Добавить текстуру в список'
              Height = 25
              Hint = 'Добавить текстуру в список'
+            Top = 0
+            Width = 25
              Caption = '+'
              Caption = '+'
-            TabOrder = 1
              OnClick = bbAddTextureClick
              OnClick = bbAddTextureClick
+            TabOrder = 1
            end
            object bbRemoveTexture: TBitBtn
              Left = 3
            end
            object bbRemoveTexture: TBitBtn
              Left = 3
-            Top = 24
-            Width = 25
              Height = 25
              Hint = 'Удалить текстуру из списка'
              Height = 25
              Hint = 'Удалить текстуру из списка'
+            Top = 24
+            Width = 25
              Caption = '-'
              Caption = '-'
-            TabOrder = 2
              OnClick = bbRemoveTextureClick
              OnClick = bbRemoveTextureClick
+            TabOrder = 2
            end
            object bClearTexture: TButton
              Left = 3
            end
            object bClearTexture: TButton
              Left = 3
-            Top = 48
-            Width = 25
              Height = 25
              Hint = 'Убрать выбор текстуры'
              Height = 25
              Hint = 'Убрать выбор текстуры'
-            TabOrder = 3
+            Top = 48
+            Width = 25
              OnClick = bClearTextureClick
              OnClick = bClearTextureClick
+            TabOrder = 3
            end
          end
          object PanelPanelType: TPanel
            Left = 0
            end
          end
          object PanelPanelType: TPanel
            Left = 0
+          Height = 80
            Top = 0
            Width = 206
            Top = 0
            Width = 206
-          Height = 78
            Align = alLeft
            BevelOuter = bvNone
            Align = alLeft
            BevelOuter = bvNone
+          ClientHeight = 80
+          ClientWidth = 206
            TabOrder = 2
            object lbPanelType: TListBox
              Left = 0
            TabOrder = 2
            object lbPanelType: TListBox
              Left = 0
+            Height = 80
+            Hint = 'Тип панели'
              Top = 0
              Width = 201
              Top = 0
              Width = 201
-            Height = 78
-            Hint = 'Тип панели'
              Align = alLeft
              Align = alLeft
-            ItemHeight = 13
              Items.Strings = (
                'Стена'
                'Фон'
              Items.Strings = (
                'Стена'
                'Фон'
@@ -332,22 +360,25 @@ object MainForm: TMainForm
                'Кислота 2'
                'Лифт вверх'
                'Лифт вниз'
                'Кислота 2'
                'Лифт вверх'
                'Лифт вниз'
-              'Блокиратор монстров')
+              'Блокиратор монстров'
+            )
+            ItemHeight = 13
              TabOrder = 0
            end
          end
        end
        object tsItems: TTabSheet
          Caption = 'Предметы'
              TabOrder = 0
            end
          end
        end
        object tsItems: TTabSheet
          Caption = 'Предметы'
+        ClientHeight = 0
+        ClientWidth = 0
          ImageIndex = 4
          object lbItemList: TListBox
            Left = 0
          ImageIndex = 4
          object lbItemList: TListBox
            Left = 0
-          Top = 0
-          Width = 201
            Height = 78
            Hint = 'Список предметов'
            Height = 78
            Hint = 'Список предметов'
+          Top = 0
+          Width = 201
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              'Аптечка'
              'Большая аптечка'
            Items.Strings = (
              'Аптечка'
              'Большая аптечка'
@@ -380,37 +411,40 @@ object MainForm: TMainForm
              'Зеленый ключ'
              'Синий ключ'
              'Бутылек здоровья'
              'Зеленый ключ'
              'Синий ключ'
              'Бутылек здоровья'
-            'Часть брони')
+            'Часть брони'
+          )
+          ItemHeight = 13
            TabOrder = 0
          end
          object cbOnlyDM: TCheckBox
            Left = 208
            TabOrder = 0
          end
          object cbOnlyDM: TCheckBox
            Left = 208
+          Height = 17
            Top = 0
            Width = 97
            Top = 0
            Width = 97
-          Height = 17
            Caption = 'Только в DM'
            TabOrder = 1
          end
          object cbFall: TCheckBox
            Left = 208
            Caption = 'Только в DM'
            TabOrder = 1
          end
          object cbFall: TCheckBox
            Left = 208
+          Height = 17
            Top = 16
            Width = 97
            Top = 16
            Width = 97
-          Height = 17
            Caption = 'Падает'
            TabOrder = 2
          end
        end
        object tsMonsters: TTabSheet
          Caption = 'Монстры'
            Caption = 'Падает'
            TabOrder = 2
          end
        end
        object tsMonsters: TTabSheet
          Caption = 'Монстры'
+        ClientHeight = 0
+        ClientWidth = 0
          ImageIndex = 15
          object lbMonsterList: TListBox
            Left = 0
          ImageIndex = 15
          object lbMonsterList: TListBox
            Left = 0
-          Top = 0
-          Width = 201
            Height = 78
            Hint = 'Список монстров'
            Height = 78
            Hint = 'Список монстров'
+          Top = 0
+          Width = 201
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              'Демон'
              'Бес'
            Items.Strings = (
              'Демон'
              'Бес'
@@ -431,14 +465,16 @@ object MainForm: TMainForm
              'Рыба'
              'Бочка'
              'Робот'
              'Рыба'
              'Бочка'
              'Робот'
-            'Приколист')
+            'Приколист'
+          )
+          ItemHeight = 13
            TabOrder = 0
          end
          object rbMonsterLeft: TRadioButton
            Left = 208
            TabOrder = 0
          end
          object rbMonsterLeft: TRadioButton
            Left = 208
+          Height = 17
            Top = 0
            Width = 113
            Top = 0
            Width = 113
-          Height = 17
            Caption = 'Влево'
            Checked = True
            TabOrder = 1
            Caption = 'Влево'
            Checked = True
            TabOrder = 1
@@ -446,24 +482,25 @@ object MainForm: TMainForm
          end
          object rbMonsterRight: TRadioButton
            Left = 208
          end
          object rbMonsterRight: TRadioButton
            Left = 208
+          Height = 17
            Top = 16
            Width = 113
            Top = 16
            Width = 113
-          Height = 17
            Caption = 'Вправо'
            TabOrder = 2
          end
        end
        object tsAreas: TTabSheet
          Caption = 'Области'
            Caption = 'Вправо'
            TabOrder = 2
          end
        end
        object tsAreas: TTabSheet
          Caption = 'Области'
+        ClientHeight = 0
+        ClientWidth = 0
          ImageIndex = 3
          object lbAreasList: TListBox
            Left = 0
          ImageIndex = 3
          object lbAreasList: TListBox
            Left = 0
-          Top = 0
-          Width = 201
            Height = 78
            Hint = 'Список областей'
            Height = 78
            Hint = 'Список областей'
+          Top = 0
+          Width = 201
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              '1ый игрок'
              '2ой игрок'
            Items.Strings = (
              '1ый игрок'
              '2ой игрок'
@@ -472,14 +509,16 @@ object MainForm: TMainForm
              'Синий флаг'
              'DOM флаг'
              'Красная команда'
              'Синий флаг'
              'DOM флаг'
              'Красная команда'
-            'Синяя команда')
+            'Синяя команда'
+          )
+          ItemHeight = 13
            TabOrder = 0
          end
          object rbAreaLeft: TRadioButton
            Left = 208
            TabOrder = 0
          end
          object rbAreaLeft: TRadioButton
            Left = 208
+          Height = 17
            Top = 0
            Width = 113
            Top = 0
            Width = 113
-          Height = 17
            Caption = 'Влево'
            Checked = True
            TabOrder = 1
            Caption = 'Влево'
            Checked = True
            TabOrder = 1
@@ -487,24 +526,25 @@ object MainForm: TMainForm
          end
          object rbAreaRight: TRadioButton
            Left = 208
          end
          object rbAreaRight: TRadioButton
            Left = 208
+          Height = 17
            Top = 16
            Width = 113
            Top = 16
            Width = 113
-          Height = 17
            Caption = 'Вправо'
            TabOrder = 2
          end
        end
        object tsTriggers: TTabSheet
          Caption = 'Триггеры'
            Caption = 'Вправо'
            TabOrder = 2
          end
        end
        object tsTriggers: TTabSheet
          Caption = 'Триггеры'
+        ClientHeight = 0
+        ClientWidth = 0
          ImageIndex = 6
          object lbTriggersList: TListBox
            Left = 0
          ImageIndex = 6
          object lbTriggersList: TListBox
            Left = 0
-          Top = 0
-          Width = 201
            Height = 78
            Hint = 'Список триггеров'
            Height = 78
            Hint = 'Список триггеров'
+          Top = 0
+          Width = 201
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              'Выход'
              'Телепортация'
            Items.Strings = (
              'Выход'
              'Телепортация'
@@ -526,125 +566,137 @@ object MainForm: TMainForm
              'Звук'
              'Создать монстра'
              'Создать предмет'
              'Звук'
              'Создать монстра'
              'Создать предмет'
-            'Музыка')
+            'Музыка'
+          )
+          ItemHeight = 13
            TabOrder = 0
          end
          object clbActivationType: TCheckListBox
            Left = 201
            TabOrder = 0
          end
          object clbActivationType: TCheckListBox
            Left = 201
-          Top = 0
-          Width = 128
            Height = 78
            Hint = 'Тип активации триггера'
            Height = 78
            Hint = 'Тип активации триггера'
+          Top = 0
+          Width = 128
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              'Игрок близко'
              'Монстр близко'
              'Игрок нажал'
              'Монстр нажал'
              'Выстрел'
            Items.Strings = (
              'Игрок близко'
              'Монстр близко'
              'Игрок нажал'
              'Монстр нажал'
              'Выстрел'
-            'Монстров нет')
+            'Монстров нет'
+          )
+          ItemHeight = 17
            TabOrder = 1
            TabOrder = 1
+          Data = {
+            06000000000000000000
+          }
          end
          object clbKeys: TCheckListBox
            Left = 329
          end
          object clbKeys: TCheckListBox
            Left = 329
-          Top = 0
-          Width = 128
            Height = 78
            Hint = 'Ключи для активации'
            Height = 78
            Hint = 'Ключи для активации'
+          Top = 0
+          Width = 128
            Align = alLeft
            Align = alLeft
-          ItemHeight = 13
            Items.Strings = (
              'Красный ключ'
              'Зеленый ключ'
              'Синий ключ'
              'Красная команда'
            Items.Strings = (
              'Красный ключ'
              'Зеленый ключ'
              'Синий ключ'
              'Красная команда'
-            'Синяя команда')
+            'Синяя команда'
+          )
+          ItemHeight = 17
            TabOrder = 2
            TabOrder = 2
+          Data = {
+            050000000000000000
+          }
          end
        end
      end
    end
    object MainToolBar: TToolBar
      Left = 0
          end
        end
      end
    end
    object MainToolBar: TToolBar
      Left = 0
-    Top = 0
-    Width = 792
      Height = 34
      Height = 34
+    Top = 0
+    Width = 672
      ButtonHeight = 31
      ButtonWidth = 31
      Caption = 'MainToolBar'
      ButtonHeight = 31
      ButtonWidth = 31
      Caption = 'MainToolBar'
-    Flat = True
      Images = ilToolbar
      TabOrder = 4
      object tbNewMap: TToolButton
      Images = ilToolbar
      TabOrder = 4
      object tbNewMap: TToolButton
-      Left = 0
-      Top = 0
+      Left = 1
        Hint = 'Очистить карту'
        Hint = 'Очистить карту'
+      Top = 2
        Caption = 'tbNewMap'
        ImageIndex = 0
        OnClick = aNewMapExecute
      end
      object tbOpenMap: TToolButton
        Caption = 'tbNewMap'
        ImageIndex = 0
        OnClick = aNewMapExecute
      end
      object tbOpenMap: TToolButton
-      Left = 31
-      Top = 0
+      Left = 32
        Hint = 'Открыть карту'
        Hint = 'Открыть карту'
+      Top = 2
        Caption = 'tbOpenMap'
        ImageIndex = 1
        OnClick = aOpenMapExecute
      end
      object tbSaveMap: TToolButton
        Caption = 'tbOpenMap'
        ImageIndex = 1
        OnClick = aOpenMapExecute
      end
      object tbSaveMap: TToolButton
-      Left = 62
-      Top = 0
+      Left = 63
        Hint = 'Сохранить карту'
        Hint = 'Сохранить карту'
+      Top = 2
        Caption = 'tbSaveMap'
        ImageIndex = 2
        OnClick = aSaveMapExecute
      end
      object tbOpenWadMap: TToolButton
        Caption = 'tbSaveMap'
        ImageIndex = 2
        OnClick = aSaveMapExecute
      end
      object tbOpenWadMap: TToolButton
-      Left = 93
-      Top = 0
+      Left = 94
        Hint = 'Открыть другую карты из этого же WAD''а'
        Hint = 'Открыть другую карты из этого же WAD''а'
+      Top = 2
        Caption = 'tbOpenWadMap'
        ImageIndex = 8
        OnClick = miOpenWadMapClick
      end
      object tbLine1: TToolButton
        Caption = 'tbOpenWadMap'
        ImageIndex = 8
        OnClick = miOpenWadMapClick
      end
      object tbLine1: TToolButton
-      Left = 124
-      Top = 0
+      Left = 125
+      Height = 31
+      Top = 2
        Width = 8
        Caption = 'tbLine1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbShowMap: TToolButton
        Width = 8
        Caption = 'tbLine1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbShowMap: TToolButton
-      Left = 132
-      Top = 0
+      Left = 133
        Hint = 'Показать мини-карту'
        Hint = 'Показать мини-карту'
+      Top = 2
        Caption = 'tbShowMap'
        ImageIndex = 3
        OnClick = miMiniMapClick
      end
      object tbLine2: TToolButton
        Caption = 'tbShowMap'
        ImageIndex = 3
        OnClick = miMiniMapClick
      end
      object tbLine2: TToolButton
-      Left = 163
-      Top = 0
+      Left = 164
+      Height = 31
+      Top = 2
        Width = 8
        Caption = 'tbLine2'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object tbShow: TToolButton
        Width = 8
        Caption = 'tbLine2'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object tbShow: TToolButton
-      Left = 171
-      Top = 0
+      Left = 172
        Hint = 'Отрисовка панелей/объектов'
        Hint = 'Отрисовка панелей/объектов'
+      Top = 2
        Caption = 'tbShow'
        DropdownMenu = pmShow
        ImageIndex = 4
        Caption = 'tbShow'
        DropdownMenu = pmShow
        ImageIndex = 4
-      Style = tbsDropDown
        OnClick = tbShowClick
        OnClick = tbShowClick
+      Style = tbsDropDown
      end
      object tbLine3: TToolButton
        Left = 215
      end
      object tbLine3: TToolButton
        Left = 215
-      Top = 0
+      Height = 31
+      Top = 2
        Width = 8
        Caption = 'tbLine3'
        ImageIndex = 7
        Width = 8
        Caption = 'tbLine3'
        ImageIndex = 7
@@ -652,23 +704,24 @@ object MainForm: TMainForm
      end
      object tbGridOn: TToolButton
        Left = 223
      end
      object tbGridOn: TToolButton
        Left = 223
-      Top = 0
        Hint = 'Включить/Отключить отображение сетки'
        Hint = 'Включить/Отключить отображение сетки'
+      Top = 2
        Caption = 'tbGridOn'
        ImageIndex = 6
        OnClick = tbGridOnClick
      end
      object tbGrid: TToolButton
        Left = 254
        Caption = 'tbGridOn'
        ImageIndex = 6
        OnClick = tbGridOnClick
      end
      object tbGrid: TToolButton
        Left = 254
-      Top = 0
        Hint = 'Изменить шаг сетки'
        Hint = 'Изменить шаг сетки'
+      Top = 2
        Caption = 'tbGrid'
        ImageIndex = 5
        OnClick = miSwitchGridClick
      end
      object tbLine4: TToolButton
        Left = 285
        Caption = 'tbGrid'
        ImageIndex = 5
        OnClick = miSwitchGridClick
      end
      object tbLine4: TToolButton
        Left = 285
-      Top = 0
+      Height = 31
+      Top = 2
        Width = 8
        Caption = 'tbLine4'
        ImageIndex = 7
        Width = 8
        Caption = 'tbLine4'
        ImageIndex = 7
@@ -676,97 +729,598 @@ object MainForm: TMainForm
      end
      object tbTestMap: TToolButton
        Left = 293
      end
      object tbTestMap: TToolButton
        Left = 293
-      Top = 0
        Hint = 'Тест карты в игре'
        Hint = 'Тест карты в игре'
+      Top = 2
        Caption = 'tbTestMap'
        DropdownMenu = pmMapTest
        ImageIndex = 7
        Caption = 'tbTestMap'
        DropdownMenu = pmMapTest
        ImageIndex = 7
-      Style = tbsDropDown
        OnClick = miTestMapClick
        OnClick = miTestMapClick
+      Style = tbsDropDown
      end
    end
    object OpenDialog: TOpenDialog
      end
    end
    object OpenDialog: TOpenDialog
-    DefaultExt = 'wad'
-    Filter = 
-      'Карты Doom 2D: Forever (*.wad)|*.wad|Старые карты Doom 2D: Forev' +
-      'er (*.ini)|*.ini|Все файлы (*.*)|*.*'
+    DefaultExt = '.wad'
+    Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Старые карты Doom 2D: Forever (*.ini)|*.ini|Все файлы (*.*)|*.*'
      Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent]
      Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofDontAddToRecent]
-    Left = 32
-    Top = 64
+    left = 32
+    top = 64
    end
    object ImageList: TImageList
    end
    object ImageList: TImageList
-    Left = 32
-    Top = 101
+    left = 32
+    top = 101
      Bitmap = {
      Bitmap = {
-      494C01011E002200040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
-      0000000000003600000028000000400000009000000001002000000000000090
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      4C691E000000100000001000000000000000737373FF737373FF737373FF7373
+      73FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF848484FF848484FF848484FF8484
+      84FF000000000000000000000000000000006B6B6BFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECECEFFFFFFFFFFB5D6
+      CEFF737373FF0000000000000000000000006B6B6BFFFFFFFFFFE7FFF7FFE7FF
+      F7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FFB5B5B5FFFFFFFFFFD6F7
+      EFFFB5D6CEFF6B6B6BFF00000000000000006B6B6BFFFFFFFFFFE7FFF7FFE7FF
+      F7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FFA5A5A5FFFFFFFFFFFFFF
+      FFFFFFFFFFFF5A5A5AFF00000000000000006B6B6BFFFFFFFFFFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFF7F7F7FF949494FF8C8C8CFF7373
+      73FF5A5A5AFF5A5A5AFF00000000000000006B6B6BFFFFFFFFFFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFF7F7F7FFD6D6D6FFC6C6C6FFB5B5
+      B5FF9C9C9CFF525252FF00000000000000006B6B6BFFFFFFFFFFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFCEEFE7FFC6DE
+      DEFFDEDEDEFF525252FF0000000000000000636363FFFFFFFFFFD6EFEFFFD6EF
+      EFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EF
+      EFFFFFFFFFFF4A4A4AFF00000000000000005A5A5AFFFFFFFFFFD6EFE7FFD6EF
+      E7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EF
+      E7FFFFFFFFFF424242FF00000000000000005A5A5AFFFFFFFFFFD6EFE7FFD6EF
+      E7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EF
+      E7FFFFFFFFFF424242FF00000000000000004A4A4AFFFFFFFFFFCEE7E7FFCEE7
+      E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+      E7FFFFFFFFFF393939FF00000000000000004A4A4AFFFFFFFFFFCEE7E7FFCEE7
+      E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+      E7FFFFFFFFFF313131FF00000000000000004A4A4AFFFFFFFFFFBDDED6FFBDDE
+      D6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDE
+      D6FFFFFFFFFF313131FF0000000000000000424242FFFFFFFFFFC6DEDEFFC6DE
+      DEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+      DEFFFFFFFFFF313131FF0000000000000000424242FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF292929FF00000000000000006B6B6BFF292929FF212121FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+      18FF181818FF4A4A4AFF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000008C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF00000000000000000000000000000000000000000000
+      000000000000000000000000000000000000949494FF9C9C9CFF9C9C9CFF9C9C
+      9CFF9C9C9CFF9C9C9CFF949494FF000000000000000000000000000000000000
+      0000000000000000000000000000000000008C8C8CFF949494FF8C948CFF8C94
+      94FF949494FF949494FF8C8C8CFF7B7B7BFF7B7B7BFF737373FF737373FF7373
+      73FF737373FF000000000000000000000000848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF848C84FF848C
+      84FF848C84FF848484FF00000000000000007B7B7BFF848484FF848484FF8484
+      84FF848484FF848484FF848484FF7B7B7BFF848C84FFD6EFE7FFDEF7F7FFDEF7
+      F7FFDEF7F7FFE7F7F7FF7B9494FF00000000737373FF847B7BFF7B7B7BFF6B6B
+      6BFF737373FF737373FF737373FF6B736BFFADC6BDFFCEE7E7FFC6DED6FFC6DE
+      D6FFC6DED6FFC6E7DEFF7B9494FF000000006B6B6BFF7B7373FF6B6B6BFF7B84
+      84FFB5CECEFFB5CECEFFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6
+      D6FFBDDED6FFCEE7DEFF7B9494FF00000000636363FF6B6B6BFF636363FFA5B5
+      B5FFBDD6D6FFBDD6D6FFB5D6CEFFB5D6CEFFB5CECEFFB5CECEFFB5CECEFFB5D6
+      CEFFBDD6D6FFC6DEDEFF7B9494FF000000005A5A5AFF5A5A5AFF737B7BFFB5CE
+      C6FFADC6BDFFADC6BDFFADC6BDFFADC6C6FFADC6BDFFADC6BDFFB5CEC6FFB5CE
+      CEFFBDDED6FF7B9494FF0000000000000000525252FF5A5A5AFF7B8C8CFFADC6
+      C6FFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFADC6
+      C6FFBDD6CEFF7B9494FF00000000000000004A4A4AFF5A5A5AFF94B5ADFFA5BD
+      B5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BD
+      BDFFADCEC6FF7B9494FF0000000000000000424242FF5A6363FF9CB5ADFF94AD
+      ADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF9CB5B5FF9CBD
+      B5FFA5BDBDFF7B9494FF0000000000000000393939FF7B9494FF94ADADFF94AD
+      A5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADADFF94B5ADFF94B5
+      B5FF7B9494FF000000000000000000000000393939FF7B8C8CFF849C94FF7B94
+      94FF7B9494FF7B9494FF7B9494FF7B9494FF7B9494FF7B9494FF7B9494FF7B94
+      94FF7B9494FF0000000000000000000000004A4A52FF4A4A52FF4A4A52FF4A4A
+      52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A
+      52FF7B9494FF000000000000000000000000848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF00000000848484FFDEF7F7FFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF9CB5ADFFB5CECEFF737373FF7B7B7BFFD6F7EFFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFF94ADA5FFADCEC6FF6B6B6BFF7B7B7BFFD6EFE7FFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFF94ADADFFADC6C6FF636363FF7B7B7BFFCEE7DEFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFF8CA5A5FFADC6C6FF5A5A5AFF6B6B6BFFADCEC6FF9CB5ADFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF7B9C94FF9CB5B5FF525252FF636363FFADC6C6FF94ADADFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF7B9494FF94ADADFF4A4A4AFF5A5A5AFFADC6BDFF94ADA5FFE7E7E7FFF7F7
+      F7FFF7F7F7FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF7F7F7FFEFEFEFFFDEDE
+      DEFF73948CFF94ADADFF4A4A4AFF5A5A5AFFA5C6BDFF8CA59CFF8CA5A5FF849C
+      9CFF7B948CFF738C84FF738C84FF738C84FF738C8CFF738C8CFF738C8CFF738C
+      8CFF6B8484FF8CADA5FF424242FF525252FFA5BDB5FFA5BDB5FFA5BDB5FF94B5
+      ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF424242FF525252FF9CB5B5FF9CB5ADFF9C9C9CFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF7B7B
+      7BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF424242FF7B9494FF7B9494FF6B6B6BFFFFFF
+      FFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEFEFFFE7E7E7FFE7E7E7FF6B6B
+      6BFF7B9494FF7B9494FF292929FF393939FF7B9494FF7B9494FF636363FFE7E7
+      E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FFD6D6D6FFE7E7E7FF5A5A
+      5AFF7B9494FF7B9494FF292929FF00000000292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF849CB5FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF315284FF000052FF0000
+      52FF000052FF000052FF000052FF000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF315284FF0800A5FF0800
+      A5FF0800A5FF08008CFF0800C6FF000052FF000052FF000052FF000052FF0000
+      52FF000052FF000000000000000000000000849CB5FF315284FF0800A5FF0800
+      A5FF08008CFF0800C6FF0800C6FF08008CFF0800A5FF0800A5FF0800A5FF0000
+      52FF00000000000000000000000000000000849CB5FF315284FF0800A5FF0800
+      A5FF0800A5FF08008CFF0800C6FF08008CFF08008CFF0800A5FF000052FF0000
+      000000000000000000000000000000000000849CB5FF315284FF0800A5FF0800
+      A5FF08008CFF0800C6FF0800C6FF08008CFF0800A5FF000052FF000000000000
+      000000000000000000000000000000000000849CB5FF315284FF0800A5FF0800
+      A5FF0800A5FF08008CFF0800C6FF08008CFF08008CFF000052FF000000000000
+      000000000000000000000000000000000000849CB5FF315284FF08008CFF0800
+      8CFF08008CFF0800C6FF0800C6FF08008CFF0800A5FF0800A5FF000052FF0000
+      000000000000000000000000000000000000849CB5FF315284FF000052FF0000
+      52FF000052FF000052FF000052FF08008CFF08008CFF08008CFF08008CFF0000
+      52FF00000000000000000000000000000000849CB5FF315284FF000000000000
+      0000000000000000000000000000000052FF000052FF000052FF000052FF0000
+      52FF000052FF000000000000000000000000849CB5FF315284FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF315284FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF315284FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000849CB5FF315284FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000315284FF315284FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00004A3939FF4A3939FF4A3939FF4A3939FF4A3939FF4A3939FF000000000000
+      0000000000000000000000000000000000000000000000000000080000FF2118
+      18FF000000FF180000FF180000FF210000FF210000FF100000FF210808FF0800
+      00FF0000000000000000000000000000000000000000080000FF080000FF1000
+      00FF520000FF9C0000FF9C0000FF9C0000FF9C0000FF730000FF4A0000FF1800
+      00FF080000FF000000000000000000000000080000FF080000FF180000FFBD18
+      18FFF74A4AFFF73939FFF74242FFF74242FFFF3939FFF70808FFC60000FF5200
+      00FF210000FF080000FF0000000000000000000000FF840000FF840000FFFF4A
+      4AFFFF9C9CFFFF5252FFFF4A4AFFFF6363FFFF3131FFE70000FFDE0000FFAD00
+      00FF940000FF000000FF000000004A3939FF100000FF840000FFA50000FFDE10
+      10FFFF4A4AFFC61818FFCE0000FFDE0000FF940000FF8C0000FFC60808FFBD00
+      00FF940000FF420000FF421010FF423131FF840000FF840000FFCE0000FFCE10
+      10FFF73939FFA50808FF840000FF8C0000FF630000FFD64242FFF73131FFAD00
+      00FF940000FF730000FF290808FF4A3939FF9C0000FFA50000FFBD0000FFA500
+      00FFCE1010FFE70000FFE70808FFE71010FFC60000FFDE0808FFC60808FF9400
+      00FFA50000FF9C0000FF421010FF523131FF940000FF9C0000FFE70000FFF721
+      21FFF71818FFEF0000FFB50000FF9C0808FFE70000FFF71010FFF72929FFDE00
+      00FFB50000FF940000FF421010FF4A3131FF840000FF9C0000FFCE0000FFE700
+      00FFEF0000FFDE0000FFAD1010FFA51818FFCE0000FFD60000FFEF0000FFDE00
+      00FFB50000FF840000FF310808FF4A3131FF290000FFCE0000FFCE0000FFDE00
+      00FFCE0000FFCE0000FFB51010FFB51010FFCE0000FFBD0000FFDE0000FFBD00
+      00FFAD0000FF630000FF310808FF00000000000000FF000000FFAD0000FFF710
+      10FFC61010FF5A0000FF080000FF080000FF420000FFB50000FFF70808FFC600
+      00FF6B0000FF421818FF0000000000000000080000FF210000FF630000FFCE00
+      00FFAD0000FF630000FF420000FF420000FF5A0000FF9C0000FFBD0000FF9400
+      00FF290000FF080000FF000000000000000000000000080000FF100000FF6B00
+      00FF840000FFAD0000FFEF1010FFEF1818FFBD0000FF8C0000FF730000FF3100
+      00FF080000FF0000000000000000000000000000000000000000080000FF3921
+      21FF210000FF520000FF6B0808FF6B0808FF5A0000FF290000FF291010FF0800
+      00FF000000000000000000000000000000000000000000000000000000000000
+      00004A3939FF4A3939FF4A3939FF4A3939FF4A3939FF4A3939FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000006B8484FF6B8484FF6B8484FF6B8484FF6B8484FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006B8484FF42635AFF42635AFF42635AFF42635AFF42635AFF6B84
+      84FF000000000000000000000000000000000000000000000000000000000000
+      00006B8484FF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF6B8484FF0000000000000000000000000000000000000000000000000000
+      000042635AFF42635AFF294A4AFF294A4AFF294A4AFF294A4AFF294A4AFF4263
+      5AFF42635AFF000000000000000000000000000000006B8484FF000000006B84
+      84FF42635AFF294A4AFF294A4AFF00000000000000000000000000000000294A
+      4AFF42635AFF6B8484FF0000000000000000000000006B8484FF6B8484FF4263
+      5AFF294A4AFF294A4AFF00000000000000000000000000000000000000000000
+      000042635AFF294A4AFF0000000000000000000000006B8484FF42635AFF4263
+      5AFF294A4AFF0000000000000000000000000000000000000000000000000000
+      0000294A4AFF000000000000000000000000000000006B8484FF42635AFF294A
+      4AFF294A4AFF0000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000294A4AFF294A4AFF294A
+      4AFF294A4AFF294A4AFF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000949494FF848484FF7B7B7BFF9C9C
+      9CFF9C9C9CFF9C9C9CFF7B7B7BFF8C8C8CFF9C9C9CFFA5A5A5FF8C8C8CFF7B7B
+      7BFF7B7B7BFF5A5A5AFF00000000000000007B7B7BFF6B6B6BFF636363FF7373
+      73FF737373FF737373FF636363FF6B6B6BFF737373FF848484FF6B6B6BFF6363
+      63FF636363FF424242FF0000000000000000848484FF6B6B6BFF6B6B6BFF7B7B
+      7BFF7B7B7BFF7B7B7BFF424242FF424242FF7B7B7BFF8C8C8CFF737373FF6363
+      63FF6B6B6BFF4A4A4AFF0000000000000000949494FF737373FF6B6B6BFF8484
+      84FF848484FF848484FF292929FF212121FF7B7B7BFF8C8C8CFF7B7B7BFF6B6B
+      6BFF6B6B6BFF4A4A4AFF0000000000000000949494FF737373FF6B6B6BFF8C8C
+      8CFF8C8C8CFF8C8C8CFF212121FF101010FF848484FF949494FF7B7B7BFF6B6B
+      6BFF6B6B6BFF4A4A4AFF00000000000000009C9C9CFF7B7B7BFF6B6B6BFF5252
+      52FF4A4A4AFF636363FF212121FF101010FF636363FF525252FF525252FF6B6B
+      6BFF737373FF525252FF0000000000000000A5A5A5FF848484FF4A6B63FF3939
+      39FF636363FF4A4A4AFF393939FF313131FF424242FF5A5A5AFF212121FF4A6B
+      63FF7B7B7BFF5A5A5AFF00000000000000009C9C9CFF7B7B7BFF8C8C8CFF4242
+      42FF8C8C8CFF8C8C8CFF737373FF737373FF8C8C8CFF949494FF313131FF7373
+      73FF737373FF5A5A5AFF00000000000000009C9C9CFF7B7B7BFF636363FF4242
+      42FF6B6B6BFF8C8C8CFF737373FF7B7B7BFF8C8C8CFF6B6B6BFF393939FF5A5A
+      5AFF737373FF525252FF0000000000000000949494FF737373FF7B7B7BFF8484
+      84FF848484FF848484FF6B6B6BFF737373FF848484FF949494FF7B7B7BFF7373
+      73FF6B6B6BFF4A4A4AFF00000000000000008C8C8CFF6B6B6BFF6B6B6BFF7B7B
+      7BFF7B7B7BFF7B7B7BFF6B6B6BFF6B6B6BFF7B7B7BFF848484FF737373FF6363
+      63FF636363FF4A4A4AFF0000000000000000848484FF6B6B6BFF636363FF7373
+      73FF737373FF737373FF636363FF6B6B6BFF737373FF848484FF6B6B6BFF6363
+      63FF636363FF424242FF00000000000000007B7B7BFF636363FF636363FF6B6B
+      6BFF6B6B6BFF6B6B6BFF5A5A5AFF636363FF6B6B6BFF7B7B7BFF6B6B6BFF5A5A
+      5AFF5A5A5AFF424242FF0000000000000000424242FF393939FF393939FF4242
+      42FF424242FF424242FF313131FF393939FF424242FF424242FF393939FF3939
+      39FF292929FF393939FF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000A5A5
+      A5FFA5A5A5FF000000000000000000000000A5A5A5FFA5A5A5FF000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      84FFA5A5A5FF000000000000000000000000A5A5A5FF848484FF000000000000
+      0000000000000000000000000000000000000000000000000000000000008484
+      84FFA5A5A5FF000000000000000000000000A5A5A5FF848484FF000000000000
+      0000000000000000000000000000000000000000000000000000000000006B6B
+      6BFF848484FFA5A5A5FF00000000A5A5A5FF848484FF6B6B6BFF000000000000
+      0000000000000000000000000000000000000000000000000000000000004A4A
+      4AFF6B6B6BFFA5A5A5FF00000000A5A5A5FF6B6B6BFF4A4A4AFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00006B6B6BFF848484FF4A4A4AFF848484FF6B6B6BFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00004A4A4AFF6B6B6BFF4A4A4AFF6B6B6BFF4A4A4AFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000004A4A4AFF4A4A4AFF4A4A4AFF0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000004A6B
+      5AFF6B8C7BFF52846BFF6B9C8CFF6B9C8CFF527363FF526B63FF000000000000
+      00000000000000000000000000000000000000000000000000004A6B5AFF5273
+      63FF00000000315A4AFF4A7B6BFF295A4AFF000000004A7363FF4A6B5AFF0000
+      00000000000000000000000000000000000000000000000000004A6B5AFF0000
+      00000000000000000000426B5AFF000000000000000000000000527B63FF0000
+      00000000000000000000000000000000000000000000294231FF4A7B63FF0000
+      000000000000637B73FF396352FF5A7B6BFF0000000000000000527B63FF395A
+      42FF0000000000000000000000000000000000000000315242FF52846BFF528C
+      6BFF5A8C73FF4A6B5AFF00000000426B5AFF5A8473FF5A9473FF639473FF214A
+      31FF000000000000000000000000000000000000000000000000295239FF315A
+      4AFF295239FF000000000000000000000000295239FF31634AFF214A31FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000737373FF737373FF737373FF737373FF7B7B
+      7BFF848484FF848484FF848484FF000000000000000000000000000000000000
+      00000000000000000000000000006B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFCECECEFFB5D6CEFF737373FF0000000000000000000000000000
+      00000000000000000000000000006B6B6BFFFFFFFFFFE7FFF7FFE7FFF7FFE7FF
+      F7FFF7F7F7FF737373FF737373FF737373FF737373FF7B7B7BFF848484FF8484
+      84FF848484FF00000000000000006B6B6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7
+      F7FFF7F7F7FF6B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECE
+      CEFFDEB5BDFF737373FF000000006B6B6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7
+      F7FFF7F7F7FF6B6B6BFFFFFFFFFFFFE7EFFFFFE7EFFFFFE7EFFFF7F7F7FFA5A5
+      A5FFFFFFFFFFFFFFFFFF5A5A5AFF6B6B6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7
+      F7FFDEF7F7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDEDEFFFFDEDEFFF7F7F7FF9494
+      94FF737373FF5A5A5AFF5A5A5AFF5A5A5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EF
+      E7FFD6EFE7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDEDEFFFFDEDEFFF7F7F7FFD6D6
+      D6FFB5B5B5FF9C9C9CFF525252FF5A5A5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EF
+      E7FFD6EFE7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDEDEFFFFDEDEFFFFDEDEFFFFDE
+      DEFFE7C6C6FFDEDEDEFF525252FF4A4A4AFFFFFFFFFFCEE7E7FFCEE7E7FFCEE7
+      E7FFCEE7E7FF5A5A5AFFFFFFFFFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6
+      DEFFF7D6DEFFFFFFFFFF424242FF424242FFFFFFFFFFC6DEDEFFC6DEDEFFC6DE
+      DEFFC6DEDEFF5A5A5AFFFFFFFFFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6
+      DEFFF7D6DEFFFFFFFFFF424242FF424242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF4A4A4AFFFFFFFFFFEFCECEFFEFCECEFFEFCECEFFEFCECEFFEFCE
+      CEFFEFCECEFFFFFFFFFF313131FF6B6B6BFF292929FF212121FF181818FF1818
+      18FF181818FF424242FFFFFFFFFFE7C6C6FFE7C6C6FFE7C6C6FFE7C6C6FFE7C6
+      C6FFE7C6C6FFFFFFFFFF313131FF000000000000000000000000000000000000
+      000000000000424242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF292929FF000000000000000000000000000000000000
+      0000000000006B6B6BFF292929FF212121FF181818FF181818FF181818FF1818
+      18FF181818FF181818FF4A4A4AFF000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000737373FF737373FF737373FF848484FF8484
+      84FF848484FF0000000000000000000000000000000000000000000000000000
+      00000000000000000000000000006B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFCECE
+      CEFFDEB5BDFF737373FF00000000848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF6B6B6BFFFFFFFFFFFFE7EFFFF7F7F7FFA5A5
+      A5FFFFFFFFFFFFFFFFFF5A5A5AFF848484FF525A5AFF4A5A52FF525A5AFF525A
+      5AFF525A5AFF525A5AFF525A5AFF6B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFF9494
+      94FF737373FF5A5A5AFF5A5A5AFF7B7B7BFF394242FF394242FF394242FF3942
+      42FF394242FF394242FF394242FF6B6B6BFFFFFFFFFF6B8484FFFFFFFFFFFFFF
+      FFFFB5B5B5FF9C9C9CFF525252FF5A5A5AFF313939FF313939FF313939FF3139
+      39FF313939FF313939FF313939FFFFFFFFFF6B8484FF6B8484FF42635AFFFFFF
+      FFFFFFFFFFFFDEDEDEFF525252FF7B7B7BFF212929FF212929FFF7F7F7FFF7F7
+      F7FFF7F7F7FF212929FFF7F7F7FF6B8484FF6B8484FF5A7373FF42635AFF4263
+      5AFFFFFFFFFFFFFFFFFF313131FF5A5A5AFF080808FF212929FFDEE7E7FF6B84
+      84FFDEE7E7FFF7F7F7FF6B8484FF6B8484FF5A7373FF42635AFF42635AFFFFFF
+      FFFFFFFFFFFFFFFFFFFF292929FF5A5A5AFF080808FF080808FFDEDEDEFF6B84
+      84FF6B8484FF6B8484FF6B8484FF5A7373FF42635AFF42635AFFEFEFEFFF1818
+      18FF181818FF181818FF4A4A4AFF525252FFFFFFFFFFFFFFFFFFFFFFFFFF6B84
+      84FF5A7373FF6B8484FF5A7373FF42635AFF42635AFFDEDEDEFF080808FF4242
+      42FF000000000000000000000000525252FFFFFFFFFFEF0000FFFFDEDEFF6B84
+      84FF5A7373FF5A7373FF42635AFF42635AFFFFFFFFFF000000FF000000FF3939
+      39FF0000000000000000000000004A4A4AFFFFFFFFFFD60000FFFFDEDEFF6B84
+      84FF5A7373FF5A7373FF5A7373FF42635AFFFFFFFFFF000000FF000000FF3939
+      39FF0000000000000000000000004A4A4AFFFFFFFFFFBD0000FFFFDEDEFF4A63
+      52FF42635AFF42635AFF42635AFF42635AFF42635AFFDEDEDEFF000000FF3939
+      39FF000000000000000000000000424242FFFFFFFFFF8C0000FFFFDEDEFFFFDE
+      DEFFFFDEDEFFFFDEDEFFFFDEDEFFFFDEDEFFFFFFFFFFDEDEDEFF000000FF2929
+      29FF000000000000000000000000393939FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF2929
+      29FF000000000000000000000000292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF292929FF292929FF2121
+      21FF00000000000000000000000000000000000000007B7B7BFF848484FF8484
+      84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
+      84FF737373FF00000000000000000000000000000000848484FFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+      F7FF737373FF000000000000000000000000000000007B7B7BFFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+      F7FF6B6B6BFF000000000000000000000000000000007B7B7BFFD6EFEFFFD6EF
+      EFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EF
+      EFFF636363FF000000000000000000000000000000007B7B7BFFCEE7E7FFCEE7
+      E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+      E7FF5A5A5AFF000000000000000000000000000000006B6B6BFFC6DEDEFFC6DE
+      DEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+      DEFF525252FF00000000000000000000000000000000636363FFBDD6D6FFBDD6
+      D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6
+      D6FF4A4A4AFF000000000000000000000000000000005A5A5AFFB5CECEFFB5CE
+      CEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CE
+      CEFF4A4A4AFF000000000000000000000000000000005A5A5AFFADC6C6FFADC6
+      C6FFADC6C6FFADC6C6FFADC6C6FFADC6C6FFADC6C6FFDEF7F7FF7B9C9CFFADC6
+      C6FF424242FF00000000000000000000000000000000525252FFA5BDBDFFA5BD
+      BDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFF7B9C9CFF6B8484FFA5BD
+      BDFF424242FF00000000000000000000000000000000525252FF9CB5B5FF9CB5
+      B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5
+      B5FF393939FF000000000000000000000000000000004A4A4AFF94ADADFF94AD
+      ADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94AD
+      ADFF393939FF000000000000000000000000000000004A4A4AFF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF393939FF00000000000000000000000000000000424242FF849C9CFF849C
+      9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C
+      9CFF292929FF00000000000000000000000000000000393939FF7B9C9CFF7B9C
+      9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C
+      9CFF292929FF00000000000000000000000000000000292929FF292929FF2929
+      29FF292929FF292929FF292929FF292929FF292929FF292929FF292929FF2121
+      21FF292929FF000000000000000000000000737373FF737373FF737373FF7373
+      73FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF848484FF848484FF848484FF8484
+      84FF000000000000000000000000000000006B6B6BFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECECEFFFFFFFFFFB5D6
+      CEFF737373FF0000000000000000000000006B6B6BFFFFFFFFFFE7FFF7FFE7FF
+      F7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FFB5B5B5FFFFFFFFFFD6F7
+      EFFFB5D6CEFF6B6B6BFF00000000000000006B6B6BFFFFFFFFFFE7FFF7FF4A4A
+      FFFF4A4AFFFFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FFA5A5A5FFFFFFFFFFFFFF
+      FFFFFFFFFFFF5A5A5AFF4A4AFFFF000000006B6B6BFFFFFFFFFF4A4AFFFF4A4A
+      FFFF4A4AFFFFDEF7F7FFDEF7F7FFDEF7F7FFF7F7F7FF949494FF8C8C8CFF7373
+      73FF5A5A5AFF4A4AFFFF4A4AFFFF000000006B6B6BFFFFFFFFFFB5B5B5FF4A4A
+      FFFF4A4AFFFF4A4AFFFFDEF7F7FFDEF7F7FFF7F7F7FFD6D6D6FFC6C6C6FFB5B5
+      B5FF4A4AFFFF4A4AFFFF4A4AFFFF000000006B6B6BFFFFFFFFFFDEF7F7FFB5B5
+      B5FF4A4AFFFF4A4AFFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFCEEFE7FF4A4A
+      FFFF4A4AFFFF4A4AFFFF0000000000000000636363FFFFFFFFFFD6EFEFFFD6EF
+      EFFFB5B5B5FF4A4AFFFF4A4AFFFFD6EFEFFFD6EFEFFFD6EFEFFF4A4AFFFF4A4A
+      FFFF4A4AFFFF4A4A4AFF00000000000000005A5A5AFFFFFFFFFFD6EFE7FFD6EF
+      E7FFD6EFE7FF4A4AFFFF4A4AFFFF4A4AFFFFD6EFE7FF4A4AFFFF4A4AFFFF4A4A
+      FFFFB5B5B5FF424242FF00000000000000005A5A5AFFFFFFFFFFD6EFE7FFD6EF
+      E7FFD6EFE7FFB5B5B5FF4A4AFFFF4A4AFFFF4A4AFFFF4A4AFFFFB5B5B5FFB5B5
+      B5FFFFFFFFFF424242FF00000000000000004A4A4AFFFFFFFFFFCEE7E7FFCEE7
+      E7FFCEE7E7FFCEE7E7FF4A4AFFFF4A4AFFFF4A4AFFFFB5B5B5FFCEE7E7FFCEE7
+      E7FFFFFFFFFF393939FF00000000000000004A4A4AFFFFFFFFFFCEE7E7FFCEE7
+      E7FFCEE7E7FF4A4AFFFF4A4AFFFFB5B5B5FF4A4AFFFF4A4AFFFFCEE7E7FFCEE7
+      E7FFFFFFFFFF313131FF00000000000000004A4A4AFFFFFFFFFFBDDED6FFBDDE
+      D6FF4A4AFFFFB5B5B5FFB5B5B5FFBDDED6FFB5B5B5FF4A4AFFFF4A4AFFFFBDDE
+      D6FFFFFFFFFF313131FF0000000000000000424242FFFFFFFFFFC6DEDEFFC6DE
+      DEFFB5B5B5FFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFB5B5B5FF4A4AFFFF4A4A
+      FFFFFFFFFFFF313131FF0000000000000000424242FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5B5B5FF4A4A
+      FFFF4A4AFFFF292929FF00000000000000006B6B6BFF292929FF212121FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+      18FF4A4AFFFF4A4AFFFF00000000949494FF949494FF949494FF949494FF9494
+      94FF949494FF949494FF949494FF949494FF949494FF949494FF8C8C8CFF0000
+      0000000000000000000000000000949494FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF7B7B7BFF0000
+      0000000000000000000000000000949494FF8C8C8CFFD6D6D6FF949494FF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFFD6D6D6FF949494FF8C8C8CFF7B7B7BFF0000
+      0000000000000000000000000000949494FF8C8C8CFF949494FF424242FF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF949494FF424242FF8C8C8CFF7B7B7BFF0000
+      0000000000000000000000000000949494FF8C8C8CFF8C8C8CFF8C8C8CFF394A
+      7BFF394A7BFF394A7BFF394A7BFF394A7BFF213173FF213173FF394A7BFF394A
+      7BFF394A7BFF394A7BFF213173FF949494FF8C8C8CFF8C8C8CFF8C8C8CFF394A
+      7BFF213173FF213173FF213173FF213173FF10186BFF394A7BFF213173FF2131
+      73FF213173FF213173FF10186BFF949494FF8C8C8CFF8C8C8CFF8C8C8CFF394A
+      7BFF213173FF213173FF213173FF213173FF10186BFF394A7BFF213173FF2131
+      73FF213173FF213173FF10186BFF949494FF8C8C8CFF8C8C8CFF8C8C8CFF2131
+      73FF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF1018
+      6BFF10186BFF10186BFF10186BFF949494FF8C8C8CFFD6D6D6FF949494FF2131
+      73FF394A7BFF394A7BFF394A7BFF394A7BFF394A7BFF394A7BFF394A7BFF394A
+      7BFF394A7BFF394A7BFF10186BFF949494FF8C8C8CFF949494FF424242FF394A
+      7BFF213173FF213173FF213173FF213173FF213173FF213173FF213173FF2131
+      73FF213173FF213173FF10186BFF949494FF8C8C8CFF8C8C8CFF8C8C8CFF394A
+      7BFF213173FF213173FF213173FF213173FF213173FF213173FF213173FF2131
+      73FF213173FF213173FF10186BFF8C8C8CFF7B7B7BFF7B7B7BFF7B7B7BFF2131
+      73FF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF1018
+      6BFF10186BFF10186BFF10186BFF000000000000000000000000000000002131
+      73FF394A7BFF394A7BFF394A7BFF394A7BFF394A7BFF10186BFF394A7BFF394A
+      7BFF394A7BFF394A7BFF10186BFF00000000000000000000000000000000394A
+      7BFF213173FF213173FF213173FF213173FF213173FF10186BFF394A7BFF2131
+      73FF213173FF213173FF10186BFF00000000000000000000000000000000394A
+      7BFF213173FF213173FF213173FF213173FF213173FF10186BFF394A7BFF2131
+      73FF213173FF213173FF10186BFF000000000000000000000000000000002131
+      73FF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF10186BFF1018
+      6BFF10186BFF10186BFF10186BFF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5A
+      B5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF3139ADFF00000000000000000000
+      00000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF00000000000000000000
+      00000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF00000000000000000000
+      00000000000000000000000000004A5AB5FF3139ADFF3139ADFF5A736BFF5A73
+      6BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF4263
+      5AFF0000000000000000000000004A5AB5FF3139ADFF3139ADFF5A736BFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF294A
+      4AFF0000000000000000000000004A5AB5FF3139ADFF3139ADFF5A736BFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF294A
+      4AFF0000000000000000000000004A5AB5FF3139ADFF3139ADFF5A736BFF4263
+      5AFF42635AFF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF6B84
+      84FF6B8484FF6B8484FF5A7373FF4A5AB5FF3139ADFF3139ADFF5A736BFF4263
+      5AFF42635AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF4A5AB5FF3139ADFF3139ADFF5A736BFF4263
+      5AFF42635AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF3139ADFF10219CFF10219CFF5A736BFF4263
+      5AFF42635AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF0000000000000000000000005A736BFF4263
+      5AFF42635AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF0000000000000000000000005A736BFF4263
+      5AFF42635AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF00000000000000000000000042635AFF294A
+      4AFF294A4AFF6B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF000000000000000000000000000000000000
+      0000000000006B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF000000000000000000000000000000000000
+      0000000000006B8484FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF42635AFF000000000000000000000000000000000000
+      0000000000005A7373FF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF42635AFF42635AFF42635AFF848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF848484FF848484FF525A5AFF4A5A52FF525A5AFF525A
+      5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A
+      5AFF4A5A52FF4A5A52FF737373FF7B7B7BFF394242FF394242FF394242FF3942
+      42FF394242FF394242FF394242FF394242FF394242FF394242FF394242FF3942
+      42FF394242FF394242FF6B6B6BFF7B7B7BFF313939FF313939FF313939FF3139
+      39FF313939FF313939FF313939FF313939FF313939FF313939FF313939FF3139
+      39FFC6C6C6FFC6C6C6FF636363FF7B7B7BFF212929FF212929FF212929FF2129
+      29FF212929FF212929FF212929FFFFFFFFFF212929FF212929FF212929FF2129
+      29FF212929FF212929FF5A5A5AFF6B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF182118FF182118FF182118FF1821
+      18FF182118FF182118FF525252FF636363FF081810FF081810FF081810FF0818
+      10FF081810FF081810FF081810FF081810FF081810FF081810FF081810FF0818
+      10FFC6C6C6FFC6C6C6FF4A4A4AFF5A5A5AFF080808FF080808FF080808FF0808
+      08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+      08FF080808FF080808FF4A4A4AFF5A5A5AFF080808FF080808FF080808FF0808
+      08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+      08FF080808FF080808FF424242FF525252FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000FFFFFFFFFF080808FF0808
+      08FFC6C6C6FFC6C6C6FF424242FF525252FFFFFFFFFFEF0000FFEF0000FFEF00
+      00FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFFFFFFFFF000000FF0000
+      00FF000000FF000000FF393939FF4A4A4AFFFFFFFFFFD60000FFD60000FFD600
+      00FFD60000FFD60000FFD60000FFD60000FFD60000FFFFFFFFFF000000FF0000
+      00FF000000FF000000FF393939FF4A4A4AFFFFFFFFFFBD0000FFBD0000FFBD00
+      00FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFFFFFFFFF000000FF0000
+      00FFC6C6C6FFC6C6C6FF393939FF424242FFFFFFFFFF8C0000FF8C0000FF8C00
+      00FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FFFFFFFFFF000000FF0000
+      00FF000000FF000000FF292929FF393939FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000
+      00FF000000FF000000FF292929FF292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF212121FF000000000000000000000000000000000000
+      00000000000031319CFF5A5ABDFF5A5ABDFF31319CFF00000000000000000000
+      0000000000000000000000000000000000004A4A4AFF5A5ABDFF6B6BCEFF6B6B
+      CEFF5252BDFF6B6BCEFF8C8CE7FF8C8CE7FF8C8CE7FF6B6BCEFF31319CFF7B7B
+      DEFF5A5ABDFF4A4A4AFF00000000212121FF6B6B6BFF5A5A5AFF8C8CE7FF9494
+      EFFF6B6BCEFF8C8CE7FFA5A5F7FFB5B5FFFFA5A5F7FF8C8CE7FF8C8CE7FF2929
+      8CFF5A5A5AFF6B6B6BFF212121FF212121FF5A5A5AFF212121FF5252BDFF6B6B
+      CEFF31319CFF6B6BCEFF8C8CE7FF8C8CE7FF8C8CE7FF6B6BCEFF6B6BCEFF0000
+      52FF212121FF5A5A5AFF212121FF212121FF4A4A4AFF212121FF181884FF6B6B
+      CEFF5252BDFF7373D6FF5A5ABDFF4A4AB5FF5A5ABDFF6B6BCEFF7373D6FF1818
+      7BFF212121FF4A4A4AFF212121FF00000000212121FF00005AFF101073FF8484
+      DEFF7B7BDEFF6B6BCEFF8484DEFF6B6BCEFF8484DEFF7B7BDEFF8C8CE7FF5252
+      BDFF212121FF212121FF00000000000000000000000031319CFF18187BFF3939
+      A5FFA5A5F7FFA5A5F7FF8C8CE7FF3939A5FF8C8CE7FFA5A5F7FF8C8CE7FF0000
+      5AFF31319CFF00000000000000000000000031319CFF6B6BCEFF31319CFF1818
+      7BFF00005AFF00005AFF00005AFF00004AFF18187BFF00005AFF000042FF6363
+      C6FF6B6BCEFF7B7BDEFF000000000000000021218CFF6B6BCEFF7B7BDEFF1010
+      73FF5A5ABDFF31319CFF6B6BCEFF5252BDFF6B6BCEFF31319CFF29298CFF3939
+      A5FF8C8CE7FF292994FF0000000000000000101073FF080863FF080863FF0000
+      42FF6B6BCEFF4A4AB5FF9494EFFF7B7BDEFF9494EFFF4A4AB5FF6B6BCEFF0000
+      00FF00005AFF000052FF0000000000000000000000000000000031319CFF0000
+      42FF7B7BDEFF6363C6FF31319CFF5A5ABDFF31319CFF6363C6FF7B7BDEFF0000
+      00FF31319CFF0000000000000000000000000000000000000000000000003131
+      9CFF29298CFF31319CFF000052FF000052FF000042FF4242ADFF31319CFF3131
+      9CFF000000000000000000000000000000000000000000000000000000000000
+      42FF9494EFFF000042FF31319CFF181884FF21218CFF00005AFF8484DEFF0000
+      42FF000000000000000000000000000000000000000000000000000000000000
+      42FF6B6B6BFF5A5ABDFF4A4AB5FF3939A5FF3939A5FF4A4AB5FF424242FF0000
+      42FF000000000000000000000000000000000000000000000000000000000000
+      42FF292994FF21218CFF393939FF393939FF292929FF292929FF4A4AB5FF0000
+      42FF000000000000000000000000000000000000000000000000000000000000
+      00000000000000005AFF00005AFF000042FF00004AFF292994FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00007BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5
+      B5FF5A8C8CFF0000000000000000000000000000000000000000000000000000
+      00007BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+      8CFF216B5AFF000000000000000000000000000000006BA59CFF6BA59CFF6BA5
+      9CFF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+      8CFF216B5AFF000000000000000000000000000000006BA59CFF427B73FF427B
+      73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+      8CFF216B5AFF000000000000000000000000000000006BA59CFF427B73FF427B
+      73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF000000FF000000FF5A8C8CFF5A8C
+      8CFF216B5AFF00000000000000005A8C84FF5A8C84FF6BA59CFF427B73FF427B
+      73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF000000FFF7F7F7FF000000FF5A8C
+      8CFF216B5AFF00000000000000005A8C84FF316B63FF6BA59CFF427B73FF427B
+      73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF000000FFF7F7EFFFFFFFFFFF0000
+      00FF216B5AFF00000000000000005A8C84FF316B63FF6BA59CFF427B73FF427B
+      73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF000000FFE7E7E7FFF7F7F7FFFFFF
+      FFFF000000FF00000000000000005A8C84FF316B63FF6BA59CFF427B73FF427B
+      73FF5A8C8CFF216B5AFF216B5AFF216B5AFF000000FFDEDEDEFFEFEFEFFFF7F7
+      F7FFFFFFFFFF000000FF000000005A8C84FF316B63FF6BA59CFF427B73FF427B
+      73FF427B73FF427B73FF427B73FF427B73FF000000FFCECECEFFDEDEDEFFEFEF
+      EFFFFFFFFFFFFFFFFFFF000000FF5A8C84FF316B63FF427B73FF10524AFF1052
+      4AFF10524AFF10524AFF10524AFF10524AFF000000FFC6C6C6FFD6D6D6FFE7E7
+      E7FF8C8C8CFF000000FF000000FF5A8C84FF316B63FF316B63FF316B63FF316B
+      63FF316B63FF316B63FF316B63FF004239FF000000FF9C9C9CFF8C8C8CFFCECE
+      CEFFDEDEDEFF000000FF000000005A8C84FF316B63FF316B63FF316B63FF316B
+      63FF316B63FF316B63FF316B63FF004239FF000000FF8C8C8CFF000000FFC6C6
+      C6FFD6D6D6FF000000FF00000000316B63FF004239FF004239FF004239FF0042
+      39FF004239FF004239FF004239FF004239FF000000FF000000FF000000000000
+      00FFB5B5B5FFCEC6CEFF000000FF000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00FFADADADFFBDBDBDFF000000FF000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000FF000000FF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006B8484FF6B8484FF6B8484FF6B8484FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00006B8484FF5A7373FF42635AFF42635AFF5A7373FF6B8484FF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000042635AFF42635AFF000000000000000042635AFF5A7373FF6B8484FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000006B8484FF5A7373FF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000005A7373FF42635AFF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000006B8484FF6B8484FF42635AFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000006B8484FF5A7373FF42635AFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000042635AFF42635AFF0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000006B8484FF6B8484FF0000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000042635AFF42635AFF0000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
@@ -778,1159 +1332,604 @@ object MainForm: TMainForm
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000002929290029292900292929002929
-      2900292929002929290029292900292929002929290029292900292929002929
-      2900292929002929290029292900292929002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100212121000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000029292900FFFFFF00DEDEDE00C7C7
-      C700FFFFFF00FFFFFF00A2A2A200FFFFFF00DEDEDE00DEDEDE00FFFFFF00A2A2
-      A200A2A2A200BBBBBB00FFFFFF0029292900393939006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800292929000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000029292900FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF0029292900424242006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800292929000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000039393900FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00393939004A4A4A00372E2400372E2400372E
-      2400372E2400372E2400372E2400372E2400372E2400372E2400372E2400372E
-      24006F5438006F5438006F543800393939000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000039393900C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C00393939004A4A4A006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F543800372E
-      24006F5438006F5438006F543800393939000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000039393900C2975C00CAA67600CAA6
-      7600C2975C00C2975C00D2B48E00D2B48E00C2975C00C2975C00D2B48E00D2B4
-      8E00C2975C00C2975C00C2975C0039393900525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F543800372E
-      24006F5438006F5438006F543800393939000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000042424200C2975C00D2B48E00D2B4
-      8E00D2B48E00C2975C00E1CEB700DAC2A300E5D5C100E5D5C100DAC2A300E1CE
-      B700C2975C00C2975C00C2975C0042424200525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F543800372E
-      24006F5438006F5438006F543800424242000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000042424200C2975C00D2B48E00D6BB
-      9900E9DBCA00DEC8AE00E1CEB700C2975C00E1CEB700E1CEB700C2975C00E9DB
-      CA00E1CEB700E1CEB700C2975C00424242005A5A5A0071573C0071573C007157
-      3C0071573C0071573C0071573C0071573C0071573C0071573C0071573C00382F
-      250071573C0071573C0071573C00424242000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A00C2975C00D2B48E00F4ED
-      E500C69E6A00DAC2A300E5D5C100C2975C00DEC8AE00E1CEB700C2975C00E1CE
-      B700C2975C00E5D5C100C2975C004A4A4A005A5A5A00745B4000745B4000745B
-      4000745B4000745B4000745B4000745B4000745B4000745B4000745B40003930
-      2600745B4000745B4000745B40004A4A4A000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A00C2975C00CEAD8200D6BB
-      9900C2975C00C2975C00E1CEB700C2975C00CEAD8200CEAD8200C2975C00E1CE
-      B700E1CEB700DAC2A300C2975C004A4A4A0063636300775F4400775F4400775F
-      4400775F4400775F4400775F4400775F4400775F4400775F4400775F44003A32
-      2800775F4400775F4400775F44004A4A4A000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000052525200C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C00525252006B6B6B007A644A007A644A007A64
-      4A007A644A007A644A007A644A007A644A007A644A007A644A007A644A003B33
-      2A007A644A007A644A007A644A00525252000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000005A5A5A00C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C2975C00C297
-      5C00C2975C00C2975C00C2975C005A5A5A007B7B7B007E6950007E6950007E69
-      50007E6950007E6950007E6950007E6950007E6950007E6950007E6950003D35
-      2C007E6950007E6950007E6950005A5A5A000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000063636300FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00636363007B7B7B00826F5700826F5700826F
-      5700826F5700826F5700826F5700826F5700826F5700826F5700826F57003E37
-      2F00826F5700826F5700826F5700636363000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000006B6B6B00FFFFFF00E9E9E900E9E9
-      E900FFFFFF00FFFFFF00D3D3D300D3D3D300FFFFFF00FFFFFF00D3D3D300D3D3
-      D300FFFFFF00FFFFFF00FFFFFF006B6B6B007B7B7B0086765E0086765E008676
-      5E0086765E0086765E0086765E0086765E0086765E0086765E0086765E00403A
-      310086765E0086765E0086765E006B6B6B000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000073737300FFFFFF00D3D3D300D3D3
-      D300D3D3D300FFFFFF00A2A2A200BBBBBB009494940094949400BBBBBB00A2A2
-      A200FFFFFF00FFFFFF00FFFFFF0073737300848484008B7C65008B7C65008B7C
-      65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C6500413C
-      34008B7C65008B7C65008B7C6500737373000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C0084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C0084848400848484000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100212121000000000000000000000000000000
-      000000000000000000003139AD0010219C0010219C0010219C0010219C001021
-      9C0010219C0010219C0010219C0010219C00000000006B6B6B00292929002121
-      2100181818001818180018181800181818001818180018181800181818001818
-      180018181800181818004A4A4A00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000003939390000006300000063000000
-      63000000630000006B0000006300000063000000630000006B00000063000000
-      0000000000000000000000000000292929000000000000000000000000000000
-      000000000000000000004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C000000000042424200FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF0029292900000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000004242420000007300000073000000
-      7300000073000000730000007300000073000000730000007300000073000000
-      0000000000000000000000000000292929000000000000000000000000000000
-      000000000000000000004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C000000000042424200FFFFFF00C8E0
-      E000C8E0DF00C8E0E000C8E0E000C8E0DF00B5B5B500C8DFDF00C7DFDF00C8DF
-      E000C8E0DF00FFFFFF0031313100000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A0000008400000084000000
-      8400000084000000840000008400000084000000840000008400000084000000
-      0000000000000000840000008400393939000000000000000000000000004263
-      5A00294A4A00294A4A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C00000000004A4A4A00FFFFFF00CAE2
-      E100CAE2E100CAE2E100CAE2E100B5B5B50072282800B5B5B500B5B5B500B5B5
-      B500B5B5B500B5B5B50018181800B5B5B5000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A0000009400000094000000
-      9400000094000000940000009400000094000000940000009400000094000000
-      0000000000000000000000000000393939000000000000000000000000005A73
-      6B0042635A0042635A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C00000000004A4A4A00FFFFFF00CDE5
-      E300CCE5E300CDE5E300B5B5B500812D2D00812D2D00812D2D00812D2D00812D
-      2D00812D2D00812D2D00812D2D00812D2D004E63630042555500364545000000
-      0000000000004E636300425555003645450000000000000000004E6363004255
-      550036454500000000000000000000000000525252000000A5000000A5000000
-      A50000009C0000009C0000009C000000A5000000A5000000A5000000A5000000
-      0000000000000000000000000000393939000000000000000000000000005A73
-      6B0042635A0042635A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C00000000004A4A4A00FFFFFF00D0E8
-      E500D0E8E600CFE8E50092333300923333009233330092333300923333009233
-      33009233330092333300923333009233330000000000788C8C005A7373004254
-      54000000000000000000788C8C005A737300425454000000000000000000788C
-      8C005A737300425454000000000000000000525252000000AD000000AD000000
-      AD000000AD000000AD000000AD000000AD000000AD000000AD000000AD000808
-      0800000000000000AD000000AD004242420039524A0029423900294239005A73
-      6B0042635A0042635A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C00000000005A5A5A00FFFFFF00D3EB
-      E800D3EBE800A3393900A3393900A3393900A3393900A3393900A3393900A339
-      3900A3393900A3393900A3393900A33939000000000000000000788C8C005A73
-      7300425454000000000000000000788C8C005A73730042545400000000000000
-      0000788C8C005A73730042545400000000005A5A5A0008080800080808000808
-      0800080808000808080008080800080808000808080008080800080808000808
-      080000000000000000000000000042424200425A520039524A0039524A005A73
-      6B0042635A0042635A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C00000000005A5A5A00FFFFFF00D7EE
-      EA00D7EEEB00D6EEEB00B23E3E00B23E3E00B23E3E00B23E3E00B33F3F00B23E
-      3E00B23E3E00B23E3E00B23E3E00B23E3E00000000000000000000000000788C
-      8C005A737300425454000000000000000000788C8C005A737300425454000000
-      000000000000788C8C005A737300425454005A5A5A0000080800000808000008
-      0800000808000008080000080800000808000008080000080800000808000008
-      08000008080000080800000808004A4A4A00425A520039524A0039524A005A73
-      6B0042635A0042635A004A5AB5003139AD003139AD003139AD003139AD003139
-      AD003139AD003139AD003139AD0010219C000000000063636300FFFFFF00DAF2
-      ED00DAF2ED00DAF2ED00DAF2ED00BD424200BD424200BD424200BD424200BD42
-      4200BD424200BD424200BD424200BD4242000000000000000000000000004254
-      54005A737300788C8C000000000000000000425454005A737300788C8C000000
-      000000000000425454005A737300788C8C006363630008100800081008000810
-      0800081008000810080008100800081008000810080008100800081008000810
-      0800081008002929AD002929AD004A4A4A00425A520039524A0039524A005A73
-      6B0042635A0042635A004A5AB5004A5AB5004A5AB5004A5AB5004A5AB5004A5A
-      B5004A5AB5004A5AB5004A5AB5003139AD00000000006B6B6B00FFFFFF00DEF6
-      F000DEF6F000DDF5F000DDF5EF00DDF5F000BD424200DDF5EF00DDF5F000DEF5
-      F000C6DEDE00DEDEDE0052525200000000000000000000000000425454005A73
-      7300788C8C000000000000000000425454005A737300788C8C00000000000000
-      0000425454005A737300788C8C00000000006B6B6B003939AD003939AD003939
-      AD003939AD003939AD003939AD003939AD003939AD0010181000101810001018
-      100010181000101810001018100052525200425A520039524A0039524A005A73
-      6B0042635A0042635A0042635A0042635A0042635A0042635A0042635A004263
-      5A00294A4A00000000000000000000000000000000006B6B6B00FFFFFF00E0F9
-      F200E1F9F200E0F8F200E0F8F200E0F8F200E1F9F200F7F7F700D6D6D600C6C6
-      C600B5B5B5009C9C9C00525252000000000000000000425454005A737300788C
-      8C000000000000000000425454005A737300788C8C0000000000000000004254
-      54005A737300788C8C0000000000000000007B7B7B0018212100182121001821
-      2100182121001821210018212100182121004A4AAD0018212100182121001821
-      21001821210018212100182121005A5A5A00425A520039524A0039524A005A73
-      6B0042635A0042635A0042635A0042635A0042635A0042635A0042635A004263
-      5A00294A4A00000000000000000000000000000000006B6B6B00FFFFFF00E3FB
-      F400E3FBF400E3FBF300E3FBF400E3FCF400E3FBF400F7F7F700949494008C8C
-      8C00737373005A5A5A005A5A5A0000000000687F7F00798D8D00879999000000
-      000000000000687F7F00798D8D00879999000000000000000000687F7F00798D
-      8D00879999000000000000000000000000007B7B7B0021292900212929002129
-      2900212929002129290021292900212929002129290021292900212929002129
-      2900212929005252AD005252AD0063636300425A520039524A0039524A005A73
-      6B005A736B005A736B005A736B005A736B005A736B005A736B005A736B005A73
-      6B0042635A00000000000000000000000000000000006B6B6B00FFFFFF00E5FE
-      F600E5FDF600E5FDF600E5FEF600E6FEF600E5FDF600F7F7F700A5A5A500FFFF
-      FF00FFFFFF00FFFFFF005A5A5A00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000007B7B7B0029293100292931002929
-      3100292931002929310029293100292931002929310029293100292931002929
-      31002929310029293100292931006B6B6B00425A520039524A0039524A003952
-      4A0039524A0039524A0039524A0039524A0039524A0029423900000000000000
-      000000000000000000000000000000000000000000006B6B6B00FFFFFF00E7FF
-      F700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700F7F7F700B5B5B500FFFF
-      FF00D6F7EF00B5D6CE006B6B6B00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000084848400525A5A004A5A5200525A
-      5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A
-      5A00525A5A004A5A52004A5A520073737300425A520039524A0039524A003952
-      4A0039524A0039524A0039524A0039524A0039524A0029423900000000000000
-      000000000000000000000000000000000000000000006B6B6B00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CECECE00FFFF
-      FF00B5D6CE007373730000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C008484840084848400425A5200425A5200425A5200425A
-      5200425A5200425A5200425A5200425A5200425A520039524A00000000000000
-      0000000000000000000000000000000000000000000073737300737373007373
-      7300737373007B7B7B007B7B7B007B7B7B008484840084848400848484008484
-      8400848484000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100212121000000000029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100000000000000000029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000393939006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F54380029292900393939007B9494007B9494006363
-      6300E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7E700D6D6D600E7E7
-      E7005A5A5A007B9494007B94940029292900393939007B9494007B9494006363
-      6300E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7E700D6D6D600E7E7
-      E7005A5A5A007B9494007B949400292929000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000424242006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F54380029292900424242007B9494007B9494006B6B
-      6B00FFFFFF00E7E7E700A5BDB500FFFFFF00FFFFFF00EFEFEF00E7E7E700E7E7
-      E7006B6B6B007B9494007B94940029292900424242007B9494007B9494006B6B
-      6B00FFFFFF00E7E7E700A5BDB500FFFFFF00FFFFFF00EFEFEF00E7E7E700E7E7
-      E7006B6B6B007B9494007B949400292929000000000000000000000000000000
-      0000C6CED600ADB5B500ADB5B500ADB5B500ADB5B500C6CED600000000000000
-      0000000000000000000000000000000000004A4A4A006F5438006F5438006F54
-      3800393939006F5438006F5438006F543800393939006F5438006F5438006F54
-      3800393939006F5438006F543800393939004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C00393939004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C0039393900000000000000000000000000BDC6
-      C600848C8C00424242003939390039393900394242007B848400BDC6CE00C6CE
-      D600000000000000000000000000000000004A4A4A006F5438006F543800FFFF
-      FF006F5438006F5438006F543800FFFFFF006F5438006F5438006F543800FFFF
-      FF006F5438006F5438006F543800393939004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C00393939004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C00393939000000000000000000C6CED6002929
-      2900636B6B009C9CA500ADB5B500ADB5B500BDC6C600737B7B0018181800848C
-      8C00C6CED600000000000000000000000000525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F54380039393900525252009CB5B5009CB5AD009C9C
-      9C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7007B7B7B00849C9C00849C9C0039393900525252009CB5B5009CB5AD009C9C
-      9C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7007B7B7B00849C9C00849C9C00393939000000000000000000C6CECE00ADB5
-      BD00C6CED60039424200000000000000000018181800ADB5B500ADB5B5001010
-      10007B7B8400000000000000000000000000525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F5438004242420052525200A5BDB500A5BDB500A5BD
-      B50094B5AD008CADA5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5008CA5A5008CA5A5004242420052525200A5BDB500A5BDB500A5BD
-      B50094B5AD008CADA5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5008CA5A5008CA5A5004242420000000000000000009CA5AD009CA5
-      AD0021292900000000000000000000000000000000000000000094949C00848C
-      8C00182121000000000000000000000000005A5A5A0071573C0071573C007157
-      3C003939390071573C0071573C0071573C003939390071573C0071573C007157
-      3C003939390071573C0071573C00424242005A5A5A00A5C6BD008CA59C008CA5
-      A500849C9C007B948C00738C8400738C8400738C8400738C8C00738C8C00738C
-      8C00738C8C006B8484008CADA500424242005A5A5A00A5C6BD008CA59C008CA5
-      A500849C9C007B948C00738C8400738C8400738C8400738C8C00738C8C00738C
-      8C00738C8C006B8484008CADA5004242420000000000000000005A5A6300848C
-      8C000000000042424200C6CECE0000000000000000000000000084848C003139
-      390029313100B5BDBD0000000000000000005A5A5A00745B4000745B4000FFFF
-      FF00745B4000745B4000745B4000FFFFFF00745B4000745B4000745B4000FFFF
-      FF00745B4000745B4000745B40004A4A4A005A5A5A00ADC6BD0094ADA500E7E7
-      E700F7F7F700F7F7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700EFEF
-      EF00DEDEDE0073948C0094ADAD004A4A4A005A5A5A00ADC6BD0094ADA500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
-      00000000000073948C0094ADAD004A4A4A000000000000000000949C9C002121
-      2100000000000000000029292900080808000000000000000000393939002129
-      29007B8484008C8C8C00000000000000000063636300775F4400775F4400775F
-      4400775F4400775F4400775F4400775F4400775F4400775F4400775F4400775F
-      4400775F4400775F4400775F44004A4A4A0063636300ADC6C60094ADAD00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF006B6B6B006B6B6B00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7007B94940094ADAD004A4A4A0063636300ADC6C60094ADAD00FFFF
-      FF008C0000008C0000008C0000008C0000008C000000FFFFFF00000000000000
-      0000C6C6C6007B94940094ADAD004A4A4A0000000000000000004A5252008484
-      8C0073737B0042424A00101010001818180010101000525252005A6363008C8C
-      940042424200949C9C0000000000000000006B6B6B007A644A007A644A007A64
-      4A007A644A007A644A007A644A007A644A007A644A007A644A007A644A007A64
-      4A007A644A007A644A007A644A00525252006B6B6B00ADCEC6009CB5AD00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7007B9C94009CB5B500525252006B6B6B00ADCEC6009CB5AD00FFFF
-      FF00EF000000EF000000EF000000EF000000EF000000FFFFFF00000000000000
-      0000000000007B9C94009CB5B500525252000000000000000000949C9C004A4A
-      4A00737B7B00737B7B00949C9C0094949C0094949C007B8484006B6B73005252
-      5200A5A5AD000000000000000000000000007B7B7B007E6950007E6950007E69
-      5000393939007E6950007E6950007E695000393939007E6950007E6950007E69
-      5000393939007E6950007E6950005A5A5A007B7B7B00CEE7DE00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF006B6B6B006B6B6B00DEDEDE00FFFFFF00FFFF
-      FF00FFFFFF008CA5A500ADC6C6005A5A5A007B7B7B00CEE7DE00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FFFFFF00080808000808
-      0800C6C6C6008CA5A500ADC6C6005A5A5A000000000000000000C6CED600BDC6
-      C60084848C00737B7B005252520052525200525252006B737300848C8C00BDBD
-      C600000000000000000000000000000000007B7B7B00826F5700826F5700FFFF
-      FF00826F5700826F5700826F5700FFFFFF00826F5700826F5700826F5700FFFF
-      FF00826F5700826F5700826F5700636363007B7B7B00D6EFE700A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEDE006B6B6B00FFFFFF00FFFF
-      FF00FFFFFF0094ADAD00ADC6C600636363007B7B7B00D6EFE700A5BDB5000818
-      1000081810000818100008181000081810000818100008181000081810000818
-      10000818100094ADAD00ADC6C600636363000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000007B7B7B0086765E0086765E008676
-      5E0086765E0086765E0086765E0086765E0086765E0086765E0086765E008676
-      5E0086765E0086765E0086765E006B6B6B007B7B7B00D6F7EF00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF008C8C8C006B6B6B006B6B6B00DEDEDE00FFFFFF00FFFF
-      FF00FFFFFF0094ADA500ADCEC6006B6B6B007B7B7B00D6F7EF00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0018211800182118001821
-      1800C6C6C60094ADA500ADCEC6006B6B6B000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000848484008B7C65008B7C65008B7C
-      65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C
-      65008B7C65008B7C65008B7C65007373730084848400DEF7F700A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7009CB5AD00B5CECE007373730084848400DEF7F700A5BDB5002129
-      290021292900212929002129290021292900FFFFFF0021292900212929002129
-      2900212929009CB5AD00B5CECE00737373000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C00848484008484840000000000848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C00848484000000000000000000848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C0084848400000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100212121000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000ADADAD00BDBDBD00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000393939006F5438006F5438006F54
-      38006F5438006F5438006F5438006F543800393939006F5438006F5438006F54
-      38006F5438006F5438003939390029292900316B630000423900004239000042
-      3900004239000042390000423900004239000042390000000000000000000000
-      000000000000B5B5B500CEC6CE00000000000000000000000000000000000000
-      000000000000000000000000000042635A0042635A0000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000010219C00000000000000000000000000000000000000
-      000000000000000000000000000000000000424242006F5438006F5438006F54
-      38006F5438006F5438006F543800FFFFFF006F5438006F5438006F5438006F54
-      38006F543800FFFFFF006F543800292929005A8C8400316B6300316B6300316B
-      6300316B6300316B6300316B6300316B630000423900000000008C8C8C000000
-      0000C6C6C600D6D6D60000000000000000000000000000000000000000000000
-      00000000000000000000000000006B8484006B84840000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000010219C003139AD0010219C000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800393939005A8C8400316B6300316B6300316B
-      6300316B6300316B6300316B6300316B630000423900000000009C9C9C008C8C
-      8C00CECECE00DEDEDE0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000003139AD004A5AB5003139AD000000000000000000000000000000
-      0000000000000000000000000000000000004A4A4A006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800393939005A8C8400316B6300427B73001052
-      4A0010524A0010524A0010524A0010524A0010524A0000000000C6C6C600D6D6
-      D600E7E7E7008C8C8C0000000000000000000000000000000000000000000000
-      000000000000000000000000000042635A0042635A0000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000010219C003139AD00000000003139AD0010219C0000000000000000000000
-      000000000000000000000000000000000000525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800393939005A8C8400316B63006BA59C00427B
-      7300427B7300427B7300427B7300427B7300427B730000000000CECECE00DEDE
-      DE00EFEFEF00FFFFFF00FFFFFF00000000000000000000000000000000000000
-      00000000000000000000000000006B8484005A73730042635A00000000000000
+      0000000000000000000000000000000000000000000000000000000000004A5A
+      B5FF4A5AB5FF0000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000004A5AB5FF4A5AB5FF3139
+      ADFF3139ADFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF1021
+      9CFF10219CFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000003139ADFF10219CFF10219CFF0000
+      00000000000000000000000000000000000000000000000000004A5AB5FF0000
+      00000000000000000000000000004A5AB5FF3139ADFF00000000000000000000
+      00000000000000000000000000000000000000000000000000003139ADFF4A5A
+      B5FF0000000000000000000000003139ADFF10219CFF00000000000000000000
+      000000000000000000000000000000000000000000000000000010219CFF3139
+      ADFF4A5AB5FF000000004A5AB5FF3139ADFF0000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000001021
        0000000000000000000000000000000000000000000000000000000000001021
-      9C003139AD004A5AB500000000004A5AB5003139AD0000000000000000000000
-      000000000000000000000000000000000000525252006F5438006F5438006F54
-      38006F5438006F5438006F5438006F5438006F5438006F5438006F5438006F54
-      38006F5438006F5438006F543800424242005A8C8400316B63006BA59C00427B
-      7300427B73005A8C8C00216B5A00216B5A00216B5A0000000000DEDEDE00EFEF
-      EF00F7F7F700FFFFFF0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000006B8484006B84840042635A000000
-      0000000000000000000000000000000000000000000000000000000000003139
-      AD004A5AB5000000000000000000000000003139AD0010219C00000000000000
-      0000000000000000000000000000000000005A5A5A0071573C0071573C007157
-      3C0071573C0071573C0071573C0071573C003939390071573C0071573C007157
-      3C0071573C0071573C0039393900424242005A8C8400316B63006BA59C00427B
-      7300427B73007BB5B5005A8C8C005A8C8C005A8C8C0000000000E7E7E700F7F7
-      F700FFFFFF000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000000000005A7373004263
-      5A00000000000000000000000000000000000000000000000000000000004A5A
-      B500000000000000000000000000000000004A5AB5003139AD00000000000000
-      0000000000000000000000000000000000005A5A5A00745B4000745B4000745B
-      4000745B4000745B4000745B4000FFFFFF00745B4000745B4000745B4000745B
-      4000745B4000FFFFFF00745B40004A4A4A005A8C8400316B63006BA59C00427B
-      7300427B73007BB5B5005A8C8C005A8C8C005A8C8C0000000000F7F7EF00FFFF
-      FF0000000000216B5A0000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000000000006B8484005A73
-      7300000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000003139AD0010219C001021
-      9C000000000000000000000000000000000063636300775F4400775F44003939
-      3900775F4400775F440039393900775F4400775F4400775F4400775F4400775F
-      4400775F4400775F4400775F44004A4A4A005A8C84005A8C84006BA59C00427B
-      7300427B73007BB5B5005A8C8C005A8C8C005A8C8C0000000000F7F7F7000000
-      00005A8C8C00216B5A0000000000000000000000000000000000000000000000
-      00000000000042635A0042635A00000000000000000042635A005A7373006B84
-      8400000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD0010219C0010219C0000000000000000006B6B6B007A644A00FFFFFF007A64
-      4A007A644A00FFFFFF007A644A007A644A007A644A007A644A007A644A007A64
-      4A007A644A007A644A007A644A005252520000000000000000006BA59C00427B
-      7300427B73007BB5B5005A8C8C005A8C8C005A8C8C0000000000000000005A8C
-      8C005A8C8C00216B5A0000000000000000000000000000000000000000000000
-      0000000000006B8484005A73730042635A0042635A005A7373006B8484000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000000000004A5AB5004A5A
-      B5003139AD003139AD0000000000000000007B7B7B007E6950007E6950007E69
-      50007E6950007E6950007E6950007E6950007E6950007E6950007E6950007E69
-      50007E6950007E6950007E6950005A5A5A0000000000000000006BA59C00427B
-      7300427B73007BB5B5005A8C8C005A8C8C005A8C8C005A8C8C005A8C8C005A8C
-      8C005A8C8C00216B5A0000000000000000000000000000000000000000000000
-      000000000000000000006B8484006B8484006B8484006B848400000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00004A5AB5004A5AB50000000000000000007B7B7B00826F5700826F57003939
-      3900826F5700826F570039393900826F5700826F5700826F5700826F5700826F
-      5700826F5700826F5700826F57006363630000000000000000006BA59C006BA5
-      9C006BA59C007BB5B5005A8C8C005A8C8C005A8C8C005A8C8C005A8C8C005A8C
-      8C005A8C8C00216B5A0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000007B7B7B0086765E00FFFFFF008676
-      5E0086765E00FFFFFF0086765E0086765E0086765E0086765E0086765E008676
-      5E0086765E0086765E0086765E006B6B6B000000000000000000000000000000
-      0000000000007BB5B5005A8C8C005A8C8C005A8C8C005A8C8C005A8C8C005A8C
-      8C005A8C8C00216B5A0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000848484008B7C65008B7C65008B7C
-      65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C65008B7C
-      65008B7C65008B7C65008B7C6500737373000000000000000000000000000000
-      0000000000007BB5B5007BB5B5007BB5B5007BB5B5007BB5B5007BB5B5007BB5
-      B5007BB5B5005A8C8C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C0084848400848484000000000000000000000000000000
-      00002131730010186B0010186B0010186B0010186B0010186B0010186B001018
-      6B0010186B0010186B0010186B0010186B000000000000000000000000000000
-      000000000000000000005A73730042635A0042635A0042635A0042635A004263
-      5A0042635A0042635A0042635A0042635A002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100212121000000000000000000000000000000
-      0000000000000000000000005A0000005A000000420000004A00292994000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000394A7B00213173002131730021317300213173002131730010186B00394A
-      7B0021317300213173002131730010186B000000000000000000000000000000
-      000000000000000000006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A0039393900FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
-      0000000000000000000000000000292929000000000000000000000000000000
-      0000000042002929940021218C00393939003939390029292900292929004A4A
-      B500000042000000000000000000000000000000000000000000000000000000
-      0000394A7B00213173002131730021317300213173002131730010186B00394A
-      7B0021317300213173002131730010186B000000000000000000000000000000
-      000000000000000000006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A0042424200FFFFFF008C0000008C00
-      00008C0000008C0000008C0000008C0000008C0000008C000000FFFFFF000000
-      0000000000000000000000000000292929000000000000000000000000000000
-      0000000042006B6B6B005A5ABD004A4AB5003939A5003939A5004A4AB5004242
-      4200000042000000000000000000000000000000000000000000000000000000
-      000021317300394A7B00394A7B00394A7B00394A7B00394A7B0010186B00394A
-      7B00394A7B00394A7B00394A7B0010186B000000000000000000000000004263
-      5A00294A4A00294A4A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A004A4A4A00FFFFFF00BD000000BD00
-      0000BD000000BD000000BD000000BD000000BD000000BD000000FFFFFF000000
-      000000000000C6C6C600C6C6C600393939000000000000000000000000000000
-      0000000042009494EF000000420031319C001818840021218C0000005A008484
-      DE00000042000000000000000000000000008C8C8C007B7B7B007B7B7B007B7B
-      7B002131730010186B0010186B0010186B0010186B0010186B0010186B001018
-      6B0010186B0010186B0010186B0010186B000000000000000000000000005A73
-      6B0042635A0042635A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A004A4A4A00FFFFFF00D6000000D600
-      0000D6000000D6000000D6000000D6000000D6000000D6000000FFFFFF000000
-      0000000000000000000000000000393939000000000000000000000000000000
-      000031319C0029298C0031319C000000520000005200000042004242AD003131
-      9C0031319C00000000000000000000000000949494008C8C8C008C8C8C008C8C
-      8C00394A7B002131730021317300213173002131730021317300213173002131
-      730021317300213173002131730010186B000000000000000000000000005A73
-      6B0042635A0042635A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A0052525200FFFFFF00EF000000EF00
-      0000EF000000EF000000EF000000EF000000EF000000EF000000FFFFFF000000
-      0000000000000000000000000000393939000000000000000000000000003131
-      9C00000042007B7BDE006363C60031319C005A5ABD0031319C006363C6007B7B
-      DE000000000031319C000000000000000000949494008C8C8C00949494004242
-      4200394A7B002131730021317300213173002131730021317300213173002131
-      730021317300213173002131730010186B003139AD0010219C0010219C005A73
-      6B0042635A0042635A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A0052525200FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FF000000FF000000FF000000FFFFFF000808
-      080008080800C6C6C600C6C6C600424242000000000010107300080863000808
-      6300000042006B6BCE004A4AB5009494EF007B7BDE009494EF004A4AB5006B6B
-      CE000000000000005A000000520000000000949494008C8C8C00D6D6D6009494
-      940021317300394A7B00394A7B00394A7B00394A7B00394A7B00394A7B00394A
-      7B00394A7B00394A7B00394A7B0010186B004A5AB5003139AD003139AD005A73
-      6B0042635A0042635A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A005A5A5A0008080800080808000808
-      0800080808000808080008080800080808000808080008080800080808000808
-      0800080808000808080008080800424242000000000021218C006B6BCE007B7B
-      DE00101073005A5ABD0031319C006B6BCE005252BD006B6BCE0031319C002929
-      8C003939A5008C8CE7002929940000000000949494008C8C8C008C8C8C008C8C
-      8C002131730010186B0010186B0010186B0010186B0010186B0010186B001018
-      6B0010186B0010186B0010186B0010186B004A5AB5003139AD003139AD005A73
-      6B0042635A0042635A006B8484005A7373005A7373005A7373005A7373005A73
-      73005A7373005A7373005A73730042635A005A5A5A0008080800080808000808
-      0800080808000808080008080800080808000808080008080800080808000808
-      08000808080008080800080808004A4A4A000000000031319C006B6BCE003131
-      9C0018187B0000005A0000005A0000005A0000004A0018187B0000005A000000
-      42006363C6006B6BCE007B7BDE0000000000949494008C8C8C008C8C8C008C8C
-      8C00394A7B002131730021317300213173002131730010186B00394A7B002131
-      730021317300213173002131730010186B004A5AB5003139AD003139AD005A73
-      6B0042635A0042635A006B8484006B8484006B8484006B8484006B8484006B84
-      84006B8484006B8484006B8484005A7373006363630008181000081810000818
-      1000081810000818100008181000081810000818100008181000081810000818
-      100008181000C6C6C600C6C6C6004A4A4A00000000000000000031319C001818
-      7B003939A500A5A5F700A5A5F7008C8CE7003939A5008C8CE700A5A5F7008C8C
-      E70000005A0031319C000000000000000000949494008C8C8C008C8C8C008C8C
-      8C00394A7B002131730021317300213173002131730010186B00394A7B002131
-      730021317300213173002131730010186B004A5AB5003139AD003139AD005A73
-      6B0042635A0042635A0042635A0042635A0042635A0042635A0042635A004263
-      5A00294A4A000000000000000000000000006B6B6B00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0018211800182118001821
-      180018211800182118001821180052525200000000002121210000005A001010
-      73008484DE007B7BDE006B6BCE008484DE006B6BCE008484DE007B7BDE008C8C
-      E7005252BD00212121002121210000000000949494008C8C8C008C8C8C008C8C
-      8C00394A7B00394A7B00394A7B00394A7B00394A7B002131730021317300394A
-      7B00394A7B00394A7B00394A7B00213173004A5AB5003139AD003139AD005A73
-      6B0042635A0042635A0042635A0042635A0042635A0042635A0042635A004263
-      5A00294A4A000000000000000000000000007B7B7B0021292900212929002129
-      290021292900212929002129290021292900FFFFFF0021292900212929002129
-      29002129290021292900212929005A5A5A00212121004A4A4A00212121001818
-      84006B6BCE005252BD007373D6005A5ABD004A4AB5005A5ABD006B6BCE007373
-      D60018187B00212121004A4A4A0021212100949494008C8C8C00949494004242
-      42008C8C8C008C8C8C008C8C8C008C8C8C0094949400424242008C8C8C007B7B
-      7B00000000000000000000000000000000004A5AB5003139AD003139AD005A73
-      6B005A736B005A736B005A736B005A736B005A736B005A736B005A736B005A73
-      6B0042635A000000000000000000000000007B7B7B0031393900313939003139
-      3900313939003139390031393900313939003139390031393900313939003139
-      390031393900C6C6C600C6C6C60063636300212121005A5A5A00212121005252
-      BD006B6BCE0031319C006B6BCE008C8CE7008C8CE7008C8CE7006B6BCE006B6B
-      CE0000005200212121005A5A5A0021212100949494008C8C8C00D6D6D6009494
-      94008C8C8C008C8C8C008C8C8C008C8C8C00D6D6D600949494008C8C8C007B7B
-      7B00000000000000000000000000000000004A5AB5003139AD003139AD003139
-      AD003139AD003139AD003139AD003139AD003139AD0010219C00000000000000
-      0000000000000000000000000000000000007B7B7B0039424200394242003942
-      4200394242003942420039424200394242003942420039424200394242003942
-      42003942420039424200394242006B6B6B00212121006B6B6B005A5A5A008C8C
-      E7009494EF006B6BCE008C8CE700A5A5F700B5B5FF00A5A5F7008C8CE7008C8C
-      E70029298C005A5A5A006B6B6B0021212100949494008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C007B7B
-      7B00000000000000000000000000000000004A5AB5003139AD003139AD003139
-      AD003139AD003139AD003139AD003139AD003139AD0010219C00000000000000
-      00000000000000000000000000000000000084848400525A5A004A5A5200525A
-      5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A5A00525A
-      5A00525A5A004A5A52004A5A520073737300000000004A4A4A005A5ABD006B6B
-      CE006B6BCE005252BD006B6BCE008C8CE7008C8CE7008C8CE7006B6BCE003131
-      9C007B7BDE005A5ABD004A4A4A00000000009494940094949400949494009494
-      9400949494009494940094949400949494009494940094949400949494008C8C
-      8C00000000000000000000000000000000004A5AB5004A5AB5004A5AB5004A5A
-      B5004A5AB5004A5AB5004A5AB5004A5AB5004A5AB5003139AD00000000000000
-      00000000000000000000000000000000000084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C0084848400848484000000000000000000000000000000
-      0000000000000000000031319C005A5ABD005A5ABD0031319C00000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000002929290029292900212121001818
-      1800181818001818180018181800181818001818180018181800292929002929
-      2900212121000000000000000000000000000000000000000000292929002929
-      2900292929002929290029292900292929002929290029292900292929002929
-      290021212100292929000000000000000000000000006B6B6B00292929002121
-      2100181818001818180018181800181818001818180018181800181818001818
-      1800181818004A4AFF004A4AFF00000000000000000000000000000000000000
-      000000000000000000006B6B6B00292929002121210018181800181818001818
-      18001818180018181800181818004A4A4A0039393900FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
-      0000292929000000000000000000000000000000000000000000393939007B9C
-      9C007B9C9C007B9C9C007B9C9C007B9C9C007B9C9C007B9C9C007B9C9C007B9C
-      9C007B9C9C002929290000000000000000000000000042424200FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B5B5
-      B5004A4AFF004A4AFF0029292900000000000000000000000000000000000000
-      0000000000000000000042424200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF002929290042424200FFFFFF008C000000FFDE
-      DE00FFDEDE00FFDEDE00FFDEDE00FFDEDE00FFDEDE00FFFFFF00DEDEDE000000
-      000029292900000000000000000000000000000000000000000042424200849C
-      9C00849C9C00849C9C00849C9C00849C9C00849C9C00849C9C00849C9C00849C
-      9C00849C9C002929290000000000000000000000000042424200FFFFFF00C6DE
-      DE00C6DEDE00B5B5B500C6DEDE00C6DEDE00C6DEDE00C6DEDE00B5B5B5004A4A
-      FF004A4AFF00FFFFFF0031313100000000006B6B6B0029292900212121001818
-      1800181818001818180042424200FFFFFF00E7C6C600E7C6C600E7C6C600E7C6
-      C600E7C6C600E7C6C600FFFFFF00313131004A4A4A00FFFFFF00BD000000FFDE
-      DE004A63520042635A0042635A0042635A0042635A0042635A00DEDEDE000000
-      00003939390000000000000000000000000000000000000000004A4A4A008CA5
-      A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A500393939000000000000000000000000004A4A4A00FFFFFF00BDDE
-      D600BDDED6004A4AFF00B5B5B500B5B5B500BDDED600B5B5B5004A4AFF004A4A
-      FF00BDDED600FFFFFF00313131000000000042424200FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF004A4A4A00FFFFFF00EFCECE00EFCECE00EFCECE00EFCE
-      CE00EFCECE00EFCECE00FFFFFF00313131004A4A4A00FFFFFF00D6000000FFDE
-      DE006B8484005A7373005A7373005A73730042635A00FFFFFF00000000000000
-      00003939390000000000000000000000000000000000000000004A4A4A0094AD
-      AD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094AD
-      AD0094ADAD00393939000000000000000000000000004A4A4A00FFFFFF00CEE7
-      E700CEE7E700CEE7E7004A4AFF004A4AFF00B5B5B5004A4AFF004A4AFF00CEE7
-      E700CEE7E700FFFFFF00313131000000000042424200FFFFFF00C6DEDE00C6DE
-      DE00C6DEDE00C6DEDE005A5A5A00FFFFFF00F7D6DE00F7D6DE00F7D6DE00F7D6
-      DE00F7D6DE00F7D6DE00FFFFFF004242420052525200FFFFFF00EF000000FFDE
-      DE006B8484005A7373005A73730042635A0042635A00FFFFFF00000000000000
-      0000393939000000000000000000000000000000000000000000525252009CB5
-      B5009CB5B5009CB5B5009CB5B5009CB5B5009CB5B5009CB5B5009CB5B5009CB5
-      B5009CB5B500393939000000000000000000000000004A4A4A00FFFFFF00CEE7
-      E700CEE7E700CEE7E700CEE7E7004A4AFF004A4AFF004A4AFF00B5B5B500CEE7
-      E700CEE7E700FFFFFF0039393900000000004A4A4A00FFFFFF00CEE7E700CEE7
-      E700CEE7E700CEE7E7005A5A5A00FFFFFF00F7D6DE00F7D6DE00F7D6DE00F7D6
-      DE00F7D6DE00F7D6DE00FFFFFF004242420052525200FFFFFF00FFFFFF00FFFF
-      FF006B8484005A7373006B8484005A73730042635A0042635A00DEDEDE000808
-      080042424200000000000000000000000000000000000000000052525200A5BD
-      BD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD007B9C9C006B84
-      8400A5BDBD00424242000000000000000000000000005A5A5A00FFFFFF00D6EF
-      E700D6EFE700D6EFE700B5B5B5004A4AFF004A4AFF004A4AFF004A4AFF00B5B5
-      B500B5B5B500FFFFFF0042424200000000005A5A5A00FFFFFF00D6EFE700D6EF
-      E700D6EFE700D6EFE7006B6B6B00FFFFFF00FFDEDE00FFDEDE00FFDEDE00FFDE
-      DE00FFDEDE00E7C6C600DEDEDE00525252005A5A5A000808080008080800DEDE
-      DE006B8484006B8484006B8484006B8484005A73730042635A0042635A00EFEF
-      EF001818180018181800181818004A4A4A0000000000000000005A5A5A00ADC6
-      C600ADC6C600ADC6C600ADC6C600ADC6C600ADC6C600ADC6C600DEF7F7007B9C
-      9C00ADC6C600424242000000000000000000000000005A5A5A00FFFFFF00D6EF
-      E700D6EFE700D6EFE7004A4AFF004A4AFF004A4AFF00D6EFE7004A4AFF004A4A
-      FF004A4AFF00B5B5B50042424200000000005A5A5A00FFFFFF00D6EFE700D6EF
-      E700D6EFE700D6EFE7006B6B6B00FFFFFF00FFDEDE00FFDEDE00FFDEDE00F7F7
-      F700D6D6D600B5B5B5009C9C9C00525252005A5A5A000808080021292900DEE7
-      E7006B848400DEE7E700F7F7F7006B8484006B8484005A73730042635A004263
-      5A00FFFFFF00FFFFFF00FFFFFF002929290000000000000000005A5A5A00B5CE
-      CE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CE
-      CE00B5CECE004A4A4A0000000000000000000000000063636300FFFFFF00D6EF
-      EF00D6EFEF00B5B5B5004A4AFF004A4AFF00D6EFEF00D6EFEF00D6EFEF004A4A
-      FF004A4AFF004A4AFF004A4A4A00000000006B6B6B00FFFFFF00DEF7F700DEF7
-      F700DEF7F700DEF7F7006B6B6B00FFFFFF00FFDEDE00FFDEDE00FFDEDE00F7F7
-      F70094949400737373005A5A5A005A5A5A007B7B7B002129290021292900F7F7
-      F700F7F7F700F7F7F70021292900F7F7F7006B8484006B8484005A7373004263
-      5A0042635A00FFFFFF00FFFFFF0031313100000000000000000063636300BDD6
-      D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6
-      D600BDD6D6004A4A4A000000000000000000000000006B6B6B00FFFFFF00DEF7
-      F700B5B5B5004A4AFF004A4AFF00DEF7F700DEF7F700DEF7F700DEF7F700CEEF
-      E7004A4AFF004A4AFF004A4AFF00000000006B6B6B00FFFFFF00DEF7F700DEF7
-      F700DEF7F700F7F7F7006B6B6B00FFFFFF00FFE7EF00FFE7EF00FFE7EF00F7F7
-      F700A5A5A500FFFFFF00FFFFFF005A5A5A005A5A5A0031393900313939003139
-      390031393900313939003139390031393900FFFFFF006B8484006B8484004263
-      5A00FFFFFF00FFFFFF00DEDEDE005252520000000000000000006B6B6B00C6DE
-      DE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00C6DEDE00525252000000000000000000000000006B6B6B00FFFFFF00B5B5
-      B5004A4AFF004A4AFF004A4AFF00DEF7F700DEF7F700F7F7F700D6D6D600C6C6
-      C600B5B5B5004A4AFF004A4AFF004A4AFF006B6B6B00FFFFFF00DEF7F700DEF7
-      F700DEF7F700F7F7F7006B6B6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00CECECE00DEB5BD0073737300000000007B7B7B0039424200394242003942
-      4200394242003942420039424200394242006B6B6B00FFFFFF006B848400FFFF
-      FF00FFFFFF00B5B5B5009C9C9C005252520000000000000000007B7B7B00CEE7
-      E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7
-      E700CEE7E7005A5A5A000000000000000000000000006B6B6B00FFFFFF004A4A
-      FF004A4AFF004A4AFF00DEF7F700DEF7F700DEF7F700F7F7F700949494008C8C
-      8C00737373005A5A5A004A4AFF004A4AFF006B6B6B00FFFFFF00E7FFF700E7FF
-      F700E7FFF700F7F7F700737373007373730073737300737373007B7B7B008484
-      84008484840084848400000000000000000084848400525A5A004A5A5200525A
-      5A00525A5A00525A5A00525A5A00525A5A006B6B6B00FFFFFF00FFFFFF00FFFF
-      FF0094949400737373005A5A5A005A5A5A0000000000000000007B7B7B00D6EF
-      EF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EF
-      EF00D6EFEF00636363000000000000000000000000006B6B6B00FFFFFF00E7FF
-      F7004A4AFF004A4AFF00E7FFF700E7FFF700E7FFF700F7F7F700A5A5A500FFFF
-      FF00FFFFFF00FFFFFF005A5A5A004A4AFF006B6B6B00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00CECECE00B5D6CE007373730000000000000000000000
-      00000000000000000000000000000000000084848400848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C006B6B6B00FFFFFF00FFE7EF00F7F7
-      F700A5A5A500FFFFFF00FFFFFF005A5A5A0000000000000000007B7B7B00DEF7
-      F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7
-      F700DEF7F7006B6B6B000000000000000000000000006B6B6B00FFFFFF00E7FF
-      F700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700F7F7F700B5B5B500FFFF
-      FF00D6F7EF00B5D6CE006B6B6B00000000007373730073737300737373007373
-      73007B7B7B008484840084848400848484000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000006B6B6B00FFFFFF00FFFFFF00FFFF
-      FF00CECECE00DEB5BD007373730000000000000000000000000084848400DEF7
-      F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7
-      F700DEF7F700737373000000000000000000000000006B6B6B00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CECECE00FFFF
-      FF00B5D6CE007373730000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000007373730073737300737373008484
-      84008484840084848400000000000000000000000000000000007B7B7B008484
-      8400848484008484840084848400848484008484840084848400848484008484
-      8400848484007373730000000000000000000000000073737300737373007373
-      7300737373007B7B7B007B7B7B007B7B7B008484840084848400848484008484
-      8400848484000000000000000000000000000000000000000000000000000000
-      0000000000004A3939004A3939004A3939004A3939004A3939004A3939000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000800
-      00003921210021000000520000006B0808006B0808005A000000290000002910
-      1000080000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000042424200393939003939
-      3900424242004242420042424200313131003939390042424200424242003939
-      3900393939002929290039393900000000000000000000000000000000002952
-      3900315A4A00295239000000000000000000000000002952390031634A00214A
-      3100000000000000000000000000000000000000000000000000080000001000
-      00006B00000084000000AD000000EF101000EF181800BD0000008C0000007300
-      0000310000000800000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007B7B7B00636363006363
-      63006B6B6B006B6B6B006B6B6B005A5A5A00636363006B6B6B007B7B7B006B6B
-      6B005A5A5A005A5A5A0042424200000000000000000000000000315242005284
-      6B00528C6B005A8C73004A6B5A0000000000426B5A005A8473005A9473006394
-      7300214A31000000000000000000000000000000000008000000210000006300
-      0000CE000000AD0000006300000042000000420000005A0000009C000000BD00
-      0000940000002900000008000000000000000000000000000000294A4A00294A
-      4A00294A4A00294A4A00294A4A00000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000848484006B6B6B006363
-      6300737373007373730073737300636363006B6B6B0073737300848484006B6B
-      6B00636363006363630042424200000000000000000000000000294231004A7B
-      63000000000000000000637B7300396352005A7B6B000000000000000000527B
-      6300395A4200000000000000000000000000000000000000000000000000AD00
-      0000F7101000C61010005A000000080000000800000042000000B5000000F708
-      0800C60000006B000000421818000000000000000000000000006B8484004263
-      5A00294A4A00294A4A0000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000008C8C8C006B6B6B006B6B
-      6B007B7B7B007B7B7B007B7B7B006B6B6B006B6B6B007B7B7B00848484007373
-      730063636300636363004A4A4A00000000000000000000000000000000004A6B
-      5A00000000000000000000000000426B5A00000000000000000000000000527B
-      6300000000000000000000000000000000004A31310029000000CE000000CE00
-      0000DE000000CE000000CE000000B5101000B5101000CE000000BD000000DE00
-      0000BD000000AD000000630000003108080000000000000000006B8484004263
-      5A0042635A00294A4A0000000000000000000000000000000000000000000000
-      000000000000294A4A0000000000000000000000000094949400737373007B7B
-      7B008484840084848400848484006B6B6B007373730084848400949494007B7B
-      7B00737373006B6B6B004A4A4A00000000000000000000000000000000004A6B
-      5A005273630000000000315A4A004A7B6B00295A4A00000000004A7363004A6B
-      5A00000000000000000000000000000000004A313100840000009C000000CE00
-      0000E7000000EF000000DE000000AD101000A5181800CE000000D6000000EF00
-      0000DE000000B5000000840000003108080000000000000000006B8484006B84
-      840042635A00294A4A00294A4A00000000000000000000000000000000000000
-      00000000000042635A00294A4A0000000000000000009C9C9C007B7B7B006363
-      6300424242006B6B6B008C8C8C00737373007B7B7B008C8C8C006B6B6B003939
-      39005A5A5A007373730052525200000000000000000000000000000000000000
-      00004A6B5A006B8C7B0052846B006B9C8C006B9C8C0052736300526B63000000
-      00000000000000000000000000000000000052313100940000009C000000E700
-      0000F7212100F7181800EF000000B50000009C080800E7000000F7101000F729
-      2900DE000000B5000000940000004210100000000000000000006B8484000000
-      00006B84840042635A00294A4A00294A4A000000000000000000000000000000
-      0000294A4A0042635A006B84840000000000000000009C9C9C007B7B7B008C8C
-      8C00424242008C8C8C008C8C8C0073737300737373008C8C8C00949494003131
-      310073737300737373005A5A5A00000000000000000000000000000000000000
-      000000000000000000004A4A4A004A4A4A004A4A4A0000000000000000000000
-      0000000000000000000000000000000000004A3939009C000000A5000000BD00
-      0000A5000000CE101000E7000000E7080800E7101000C6000000DE080800C608
-      080094000000A50000009C000000421010000000000000000000000000000000
-      00000000000042635A0042635A00294A4A00294A4A00294A4A00294A4A00294A
-      4A0042635A0042635A00000000000000000000000000A5A5A500848484004A6B
-      630039393900636363004A4A4A003939390031313100424242005A5A5A002121
-      21004A6B63007B7B7B005A5A5A00000000000000000000000000000000000000
-      0000000000004A4A4A006B6B6B004A4A4A006B6B6B004A4A4A00000000000000
-      000000000000000000000000000000000000423131008400000084000000CE00
-      0000CE101000F7393900A5080800840000008C00000063000000D6424200F731
-      3100AD0000009400000073000000290808000000000000000000000000000000
-      0000000000006B84840042635A0042635A0042635A0042635A0042635A004263
-      5A0042635A006B8484000000000000000000000000009C9C9C007B7B7B006B6B
-      6B00525252004A4A4A0063636300212121001010100063636300525252005252
-      52006B6B6B007373730052525200000000000000000000000000000000000000
-      0000000000006B6B6B00848484004A4A4A00848484006B6B6B00000000000000
-      0000000000000000000000000000000000004A3939001000000084000000A500
-      0000DE101000FF4A4A00C6181800CE000000DE000000940000008C000000C608
-      0800BD0000009400000042000000421010000000000000000000000000000000
-      000000000000000000006B84840042635A0042635A0042635A0042635A004263
-      5A006B8484000000000000000000000000000000000094949400737373006B6B
-      6B008C8C8C008C8C8C008C8C8C00212121001010100084848400949494007B7B
-      7B006B6B6B006B6B6B004A4A4A00000000000000000000000000000000000000
-      00004A4A4A006B6B6B00A5A5A50000000000A5A5A5006B6B6B004A4A4A000000
-      0000000000000000000000000000000000000000000000000000840000008400
-      0000FF4A4A00FF9C9C00FF525200FF4A4A00FF636300FF313100E7000000DE00
-      0000AD0000009400000000000000000000000000000000000000000000000000
-      00000000000000000000000000006B8484006B8484006B8484006B8484006B84
-      8400000000000000000000000000000000000000000094949400737373006B6B
-      6B0084848400848484008484840029292900212121007B7B7B008C8C8C007B7B
-      7B006B6B6B006B6B6B004A4A4A00000000000000000000000000000000000000
-      00006B6B6B0084848400A5A5A50000000000A5A5A500848484006B6B6B000000
-      0000000000000000000000000000000000000000000008000000080000001800
-      0000BD181800F74A4A00F7393900F7424200F7424200FF393900F7080800C600
-      0000520000002100000008000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000848484006B6B6B006B6B
-      6B007B7B7B007B7B7B007B7B7B0042424200424242007B7B7B008C8C8C007373
-      7300636363006B6B6B004A4A4A00000000000000000000000000000000000000
-      000084848400A5A5A500000000000000000000000000A5A5A500848484000000
-      0000000000000000000000000000000000000000000000000000080000000800
-      000010000000520000009C0000009C0000009C0000009C000000730000004A00
-      0000180000000800000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007B7B7B006B6B6B006363
-      6300737373007373730073737300636363006B6B6B0073737300848484006B6B
-      6B00636363006363630042424200000000000000000000000000000000000000
-      000084848400A5A5A500000000000000000000000000A5A5A500848484000000
-      0000000000000000000000000000000000000000000000000000000000000800
-      0000211818000000000018000000180000002100000021000000100000002108
-      0800080000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000094949400848484007B7B
-      7B009C9C9C009C9C9C009C9C9C007B7B7B008C8C8C009C9C9C00A5A5A5008C8C
-      8C007B7B7B007B7B7B005A5A5A00000000000000000000000000000000000000
-      0000A5A5A500A5A5A500000000000000000000000000A5A5A500A5A5A5000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000004A3939004A3939004A3939004A3939004A3939004A3939000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000006B6B6B00292929002121
-      2100181818001818180018181800181818001818180018181800181818001818
-      180018181800181818004A4A4A0000000000000000004A4A52004A4A52004A4A
-      52004A4A52004A4A52004A4A52004A4A52004A4A52004A4A52004A4A52004A4A
-      52004A4A52007B94940000000000000000000000000029292900212121001818
-      1800181818001818180018181800181818001818180018181800181818002929
-      2900292929002121210021212100000000000000000031528400315284000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000042424200FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00292929000000000000000000393939007B8C8C00849C
-      94007B9494007B9494007B9494007B9494007B9494007B9494007B9494007B94
-      94007B9494007B9494000000000000000000393939007B9494007B9494006363
-      6300E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7E700D6D6D600E7E7
-      E7005A5A5A007B9494007B9494002929290000000000849CB500315284000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000042424200FFFFFF00C6DE
-      DE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00C6DEDE00FFFFFF00313131000000000000000000393939007B94940094AD
-      AD0094ADA50094ADA50094ADA50094ADA50094ADA50094ADA50094ADAD0094B5
-      AD0094B5B5007B9494000000000000000000424242007B9494007B9494006B6B
-      6B00FFFFFF00E7E7E700A5BDB500FFFFFF00FFFFFF00EFEFEF00E7E7E700E7E7
-      E7006B6B6B007B9494007B9494002929290000000000849CB500315284000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A4A4A00FFFFFF00BDDE
-      D600BDDED600BDDED600BDDED600BDDED600BDDED600BDDED600BDDED600BDDE
-      D600BDDED600FFFFFF00313131000000000000000000424242005A6363009CB5
-      AD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD009CB5
-      B5009CBDB500A5BDBD007B949400000000004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C003939390000000000849CB500315284000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A4A4A00FFFFFF00CEE7
-      E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7
-      E700CEE7E700FFFFFF003131310000000000000000004A4A4A005A5A5A0094B5
-      AD00A5BDB500A5BDB500A5BDB500A5BDB500A5BDB500A5BDB500A5BDB500A5BD
-      B500A5BDBD00ADCEC6007B949400000000004A4A4A0094ADA5008CA5A5007B7B
-      7B00FFFFFF005A736B008CA5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7006B6B6B00849C9C00849C9C003939390000000000849CB500315284000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A4A4A00FFFFFF00CEE7
-      E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7
-      E700CEE7E700FFFFFF00393939000000000000000000525252005A5A5A007B8C
-      8C00ADC6C600A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BD
-      BD00ADC6C600BDD6CE007B94940000000000525252009CB5B5009CB5AD009C9C
-      9C00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7E7
-      E7007B7B7B00849C9C00849C9C003939390000000000849CB500315284000000
-      0000000000000000000000000000000000000000520000005200000052000000
-      520000005200000052000000000000000000000000005A5A5A00FFFFFF00D6EF
-      E700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EF
-      E700D6EFE700FFFFFF004242420000000000000000005A5A5A005A5A5A00737B
-      7B00B5CEC600ADC6BD00ADC6BD00ADC6BD00ADC6C600ADC6BD00ADC6BD00B5CE
-      C600B5CECE00BDDED6007B9494000000000052525200A5BDB500A5BDB500A5BD
-      B50094B5AD008CADA5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5008CA5A5008CA5A5004242420000000000849CB500315284000000
-      52000000520000005200000052000000520008008C0008008C0008008C000800
-      8C0000005200000000000000000000000000000000005A5A5A00FFFFFF00D6EF
-      E700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EF
-      E700D6EFE700FFFFFF00424242000000000000000000636363006B6B6B006363
-      6300A5B5B500BDD6D600BDD6D600B5D6CE00B5D6CE00B5CECE00B5CECE00B5CE
-      CE00B5D6CE00BDD6D600C6DEDE007B9494005A5A5A00A5C6BD008CA59C008CA5
-      A500849C9C007B948C00738C8400738C8400738C8400738C8C00738C8C00738C
-      8C00738C8C006B8484008CADA5004242420000000000849CB500315284000800
-      8C0008008C0008008C000800C6000800C60008008C000800A5000800A5000000
-      5200000000000000000000000000000000000000000063636300FFFFFF00D6EF
-      EF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EF
-      EF00D6EFEF00FFFFFF004A4A4A0000000000000000006B6B6B007B7373006B6B
-      6B007B848400B5CECE00B5CECE00BDD6D600BDD6D600BDD6D600BDD6D600BDD6
-      D600BDD6D600BDDED600CEE7DE007B9494005A5A5A00ADC6BD0094ADA500E7E7
-      E700F7F7F700F7F7F700EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700EFEF
-      EF00DEDEDE0073948C0094ADAD004A4A4A0000000000849CB500315284000800
-      A5000800A5000800A50008008C000800C60008008C0008008C00000052000000
-      000000000000000000000000000000000000000000006B6B6B00FFFFFF00DEF7
-      F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700CEEF
-      E700C6DEDE00DEDEDE0052525200000000000000000073737300847B7B007B7B
-      7B006B6B6B007373730073737300737373006B736B00ADC6BD00CEE7E700C6DE
-      D600C6DED600C6DED600C6E7DE007B94940063636300ADC6C60094ADAD00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7007B94940094ADAD004A4A4A0000000000849CB500315284000800
-      A5000800A50008008C000800C6000800C60008008C000800A500000052000000
-      000000000000000000000000000000000000000000006B6B6B00FFFFFF00DEF7
-      F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700F7F7F700D6D6D600C6C6
-      C600B5B5B5009C9C9C005252520000000000000000007B7B7B00848484008484
-      8400848484008484840084848400848484007B7B7B00848C8400D6EFE700DEF7
-      F700DEF7F700DEF7F700E7F7F7007B9494006B6B6B00ADCEC6009CB5AD00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7007B9C94009CB5B5005252520000000000849CB500315284000800
-      A5000800A5000800A50008008C000800C60008008C0008008C000800A5000000
-      520000000000000000000000000000000000000000006B6B6B00FFFFFF00DEF7
-      F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700F7F7F700949494008C8C
-      8C00737373005A5A5A005A5A5A000000000000000000848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008484840084848400848C
-      8400848C8400848C840084848400000000007B7B7B00CEE7DE00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF008CA5A500ADC6C6005A5A5A0000000000849CB500315284000800
-      A5000800A50008008C000800C6000800C60008008C000800A5000800A5000800
-      A50000005200000000000000000000000000000000006B6B6B00FFFFFF00E7FF
-      F700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700F7F7F700A5A5A500FFFF
-      FF00FFFFFF00FFFFFF005A5A5A0000000000000000008C8C8C00949494008C94
-      8C008C94940094949400949494008C8C8C007B7B7B007B7B7B00737373007373
-      7300737373007373730000000000000000007B7B7B00D6EFE700A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF0094ADAD00ADC6C6006363630000000000849CB500315284000800
-      A5000800A5000800A50008008C000800C6000000520000005200000052000000
-      520000005200000052000000000000000000000000006B6B6B00FFFFFF00E7FF
-      F700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700F7F7F700B5B5B500FFFF
-      FF00D6F7EF00B5D6CE006B6B6B000000000000000000949494009C9C9C009C9C
-      9C009C9C9C009C9C9C009C9C9C00949494000000000000000000000000000000
-      0000000000000000000000000000000000007B7B7B00D6F7EF00A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF0094ADA500ADCEC6006B6B6B0000000000849CB500315284000000
-      5200000052000000520000005200000052000000000000000000000000000000
-      000000000000000000000000000000000000000000006B6B6B00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CECECE00FFFF
-      FF00B5D6CE0073737300000000000000000000000000000000008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C00000000000000000000000000000000000000
-      00000000000000000000000000000000000084848400DEF7F700A5BDB500FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00F7F7F7009CB5AD00B5CECE007373730000000000849CB500849CB5000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000073737300737373007373
-      7300737373007B7B7B007B7B7B007B7B7B008484840084848400848484008484
-      8400848484000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000848484008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C0084848400000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000424D3E000000000000003E000000
-      2800000040000000900000000100010000000000800400000000000000000000
-      000000000000000000000000FFFFFF0000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000FC008001FFFF0000FC008001FFFF
-      0000FC008001FFFF0000E0008000FFFF0000E000800018C70000E00080008C63
-      000000008000C631000000008000E318000000008000E318000000008001C631
-      0000000780018C6300000007800118C7000000078001FFFF0000003F8001FFFF
-      0000003F8003FFFF0000003F8007FFFF000080018001FFFF000000000000FFFF
-      000000000000F03F000000000000E00F000000000000C007000000000000C007
-      000000000000C007000000000000C003000000000000C003000000000000C003
-      000000000000C007000000000000C00F000000000000FFFF000000000000FFFF
-      000000000000FFFF000080018001FFFFFFF9FFFFFFFF0000FFF0FFFFFFFF0000
-      0010FE7FFDFF00000001FE7FF8FF00000001FFFFF8FF00000000FE7FF27F0000
-      0000FE3FE27F00000001FF1FE73F00000003FFCFEF3F00000003FFCFFF8F0000
-      0003F98FFF830000C003F81FFFC30000C003FC3FFFF30000C003FFFFFFFF0000
-      F803FFFFFFFF0000F803FFFFFFFF0000F000FC000000FC1FF000FC000000F007
-      F000FC000000F007F000E0000000F0070000E0000000F0070000E0000000E003
-      000000000000800100000000000080010000000000008001000000000000C003
-      00000007000080010000000700000000000F000700000000000F003F00000000
-      000F003F00008001000F003F0000FC3FFFFF0007C0038001FC000007C0038001
-      FC000007C003800100000007C003800100000007C003800100000007C0038001
-      00000007C003800100000000C003800100000000C003800100000000C0038001
-      00000000C003800000010000C003800000030000C0038000007F0000C0038001
-      00FFFF01C0038003FFFFFF03C0038007F81FFFFFFFFFFFFFE007FFFF8001E38F
-      C003FFFF8001C1078001C1FF8001CC678001C3FF8001EEEF0000C3FB8001E44F
-      0000C1F98001F01F0000D0F18001FC7F0000F8038001F83F0000F8038001F83F
-      0000FC078001F11F8001FE0F8001F11F8001FFFF8001F39FC003FFFF8001F39F
-      E007FFFF8001F39FF81FFFFFFFFFFFFF8001800380019FFF8001800300009FFF
-      8001800300009FFF8001800100009FFF8001800100009FFF8001800100009F03
-      8001800100008007800180000000800F800180000000801F800180000000801F
-      800180000000800F80018001000080078001800300008003800180FF000080FF
-      8003C1FF00009FFF8007FFFF8001FFFF00000000000000000000000000000000
-      000000000000}
+      9CFF3139ADFF000000003139ADFF10219CFF0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00003139ADFF4A5AB5FF3139ADFF000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000010219CFF3139ADFF10219CFF000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000010219CFF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF848484FF848484FF8B7C65FF8B7C65FF8B7C65FF8B7C
+      65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C
+      65FF8B7C65FF8B7C65FF737373FF7B7B7BFF86765EFFFFFFFFFF86765EFF8676
+      5EFFFFFFFFFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF8676
+      5EFF86765EFF86765EFF6B6B6BFF7B7B7BFF826F57FF826F57FF393939FF826F
+      57FF826F57FF393939FF826F57FF826F57FF826F57FF826F57FF826F57FF826F
+      57FF826F57FF826F57FF636363FF7B7B7BFF7E6950FF7E6950FF7E6950FF7E69
+      50FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E69
+      50FF7E6950FF7E6950FF5A5A5AFF6B6B6BFF7A644AFFFFFFFFFF7A644AFF7A64
+      4AFFFFFFFFFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A64
+      4AFF7A644AFF7A644AFF525252FF636363FF775F44FF775F44FF393939FF775F
+      44FF775F44FF393939FF775F44FF775F44FF775F44FF775F44FF775F44FF775F
+      44FF775F44FF775F44FF4A4A4AFF5A5A5AFF745B40FF745B40FF745B40FF745B
+      40FF745B40FF745B40FFFFFFFFFF745B40FF745B40FF745B40FF745B40FF745B
+      40FFFFFFFFFF745B40FF4A4A4AFF5A5A5AFF71573CFF71573CFF71573CFF7157
+      3CFF71573CFF71573CFF71573CFF393939FF71573CFF71573CFF71573CFF7157
+      3CFF71573CFF393939FF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF393939FF424242FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FFFFFFFFFF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FFFFFFFFFF6F5438FF292929FF393939FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF393939FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF393939FF292929FF292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF212121FF848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF848484FF848484FF8B7C65FF8B7C65FF8B7C65FF8B7C
+      65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C
+      65FF8B7C65FF8B7C65FF737373FF7B7B7BFF86765EFF86765EFF86765EFF8676
+      5EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF8676
+      5EFF86765EFF86765EFF6B6B6BFF7B7B7BFF826F57FF826F57FFFFFFFFFF826F
+      57FF826F57FF826F57FFFFFFFFFF826F57FF826F57FF826F57FFFFFFFFFF826F
+      57FF826F57FF826F57FF636363FF7B7B7BFF7E6950FF7E6950FF7E6950FF3939
+      39FF7E6950FF7E6950FF7E6950FF393939FF7E6950FF7E6950FF7E6950FF3939
+      39FF7E6950FF7E6950FF5A5A5AFF6B6B6BFF7A644AFF7A644AFF7A644AFF7A64
+      4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A64
+      4AFF7A644AFF7A644AFF525252FF636363FF775F44FF775F44FF775F44FF775F
+      44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F
+      44FF775F44FF775F44FF4A4A4AFF5A5A5AFF745B40FF745B40FFFFFFFFFF745B
+      40FF745B40FF745B40FFFFFFFFFF745B40FF745B40FF745B40FFFFFFFFFF745B
+      40FF745B40FF745B40FF4A4A4AFF5A5A5AFF71573CFF71573CFF71573CFF3939
+      39FF71573CFF71573CFF71573CFF393939FF71573CFF71573CFF71573CFF3939
+      39FF71573CFF71573CFF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF6F5438FF6F5438FFFFFFFFFF6F54
+      38FF6F5438FF6F5438FFFFFFFFFF6F5438FF6F5438FF6F5438FFFFFFFFFF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF6F5438FF6F5438FF6F5438FF3939
+      39FF6F5438FF6F5438FF6F5438FF393939FF6F5438FF6F5438FF6F5438FF3939
+      39FF6F5438FF6F5438FF393939FF424242FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF292929FF393939FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF292929FF292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF212121FF00000000848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF00000000848484FFDEF7F7FFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF9CB5ADFFB5CECEFF737373FF7B7B7BFFD6F7EFFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFF8C8C8CFF6B6B6BFF6B6B6BFFDEDEDEFFFFFFFFFFFFFFFFFFFFFF
+      FFFF94ADA5FFADCEC6FF6B6B6BFF7B7B7BFFD6EFE7FFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDEFF6B6B6BFFFFFFFFFFFFFFFFFFFFFF
+      FFFF94ADADFFADC6C6FF636363FF7B7B7BFFCEE7DEFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF6B6B6BFF6B6B6BFFDEDEDEFFFFFFFFFFFFFFFFFFFFFF
+      FFFF8CA5A5FFADC6C6FF5A5A5AFF6B6B6BFFADCEC6FF9CB5ADFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFDEDEDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF7B9C94FF9CB5B5FF525252FF636363FFADC6C6FF94ADADFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF6B6B6BFF6B6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
+      F7FF7B9494FF94ADADFF4A4A4AFF5A5A5AFFADC6BDFF94ADA5FFE7E7E7FFF7F7
+      F7FFF7F7F7FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF7F7F7FFEFEFEFFFDEDE
+      DEFF73948CFF94ADADFF4A4A4AFF5A5A5AFFA5C6BDFF8CA59CFF8CA5A5FF849C
+      9CFF7B948CFF738C84FF738C84FF738C84FF738C8CFF738C8CFF738C8CFF738C
+      8CFF6B8484FF8CADA5FF424242FF525252FFA5BDB5FFA5BDB5FFA5BDB5FF94B5
+      ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF424242FF525252FF9CB5B5FF9CB5ADFF9C9C9CFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF7B7B
+      7BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF424242FF7B9494FF7B9494FF6B6B6BFFFFFF
+      FFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEFEFFFE7E7E7FFE7E7E7FF6B6B
+      6BFF7B9494FF7B9494FF292929FF393939FF7B9494FF7B9494FF636363FFE7E7
+      E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FFD6D6D6FFE7E7E7FF5A5A
+      5AFF7B9494FF7B9494FF292929FF00000000292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF0000000000000000848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF00000000848484FFDEF7F7FFA5BDB5FF212929FF2129
+      29FF212929FF212929FF212929FFFFFFFFFF212929FF212929FF212929FF2129
+      29FF9CB5ADFFB5CECEFF737373FF7B7B7BFFD6F7EFFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF182118FF182118FF182118FFC6C6
+      C6FF94ADA5FFADCEC6FF6B6B6BFF7B7B7BFFD6EFE7FFA5BDB5FF081810FF0818
+      10FF081810FF081810FF081810FF081810FF081810FF081810FF081810FF0818
+      10FF94ADADFFADC6C6FF636363FF7B7B7BFFCEE7DEFFA5BDB5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFFFFFFFF080808FF080808FFC6C6
+      C6FF8CA5A5FFADC6C6FF5A5A5AFF6B6B6BFFADCEC6FF9CB5ADFFFFFFFFFFEF00
+      00FFEF0000FFEF0000FFEF0000FFEF0000FFFFFFFFFF000000FF000000FF0000
+      00FF7B9C94FF9CB5B5FF525252FF636363FFADC6C6FF94ADADFFFFFFFFFF8C00
+      00FF8C0000FF8C0000FF8C0000FF8C0000FFFFFFFFFF000000FF000000FFC6C6
+      C6FF7B9494FF94ADADFF4A4A4AFF5A5A5AFFADC6BDFF94ADA5FFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF0000
+      00FF73948CFF94ADADFF4A4A4AFF5A5A5AFFA5C6BDFF8CA59CFF8CA5A5FF849C
+      9CFF7B948CFF738C84FF738C84FF738C84FF738C8CFF738C8CFF738C8CFF738C
+      8CFF6B8484FF8CADA5FF424242FF525252FFA5BDB5FFA5BDB5FFA5BDB5FF94B5
+      ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF424242FF525252FF9CB5B5FF9CB5ADFF9C9C9CFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF7B7B
+      7BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF4A4A4AFF94ADA5FF8CA5A5FF7B7B7BFFFFFF
+      FFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FF6B6B
+      6BFF849C9CFF849C9CFF393939FF424242FF7B9494FF7B9494FF6B6B6BFFFFFF
+      FFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEFEFFFE7E7E7FFE7E7E7FF6B6B
+      6BFF7B9494FF7B9494FF292929FF393939FF7B9494FF7B9494FF636363FFE7E7
+      E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FFD6D6D6FFE7E7E7FF5A5A
+      5AFF7B9494FF7B9494FF292929FF00000000292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000C6CED6FFBDC6C6FF8484
+      8CFF737B7BFF525252FF525252FF525252FF6B7373FF848C8CFFBDBDC6FF0000
+      00000000000000000000000000000000000000000000949C9CFF4A4A4AFF737B
+      7BFF737B7BFF949C9CFF94949CFF94949CFF7B8484FF6B6B73FF525252FFA5A5
+      ADFF00000000000000000000000000000000000000004A5252FF84848CFF7373
+      7BFF42424AFF101010FF181818FF101010FF525252FF5A6363FF8C8C94FF4242
+      42FF949C9CFF00000000000000000000000000000000949C9CFF212121FF0000
+      00FF000000FF292929FF080808FF000000FF000000FF393939FF212929FF7B84
+      84FF8C8C8CFF000000000000000000000000000000005A5A63FF848C8CFF0000
+      00FF424242FFC6CECEFF000000FF000000FF000000FF84848CFF313939FF2931
+      31FFB5BDBDFF000000000000000000000000000000009CA5ADFF9CA5ADFF2129
+      29FF000000FF000000FF000000FF000000FF000000FF94949CFF848C8CFF1821
+      21FF0000000000000000000000000000000000000000C6CECEFFADB5BDFFC6CE
+      D6FF394242FF000000FF000000FF181818FFADB5B5FFADB5B5FF101010FF7B7B
+      84FF0000000000000000000000000000000000000000C6CED6FF292929FF636B
+      6BFF9C9CA5FFADB5B5FFADB5B5FFBDC6C6FF737B7BFF181818FF848C8CFFC6CE
+      D6FF000000000000000000000000000000000000000000000000BDC6C6FF848C
+      8CFF424242FF393939FF393939FF394242FF7B8484FFBDC6CEFFC6CED6FF0000
+      000000000000000000000000000000000000000000000000000000000000C6CE
+      D6FFADB5B5FFADB5B5FFADB5B5FFADB5B5FFC6CED6FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF848484FF848484FF525A5AFF4A5A52FF525A5AFF525A
+      5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A
+      5AFF4A5A52FF4A5A52FF737373FF7B7B7BFF292931FF292931FF292931FF2929
+      31FF292931FF292931FF292931FF292931FF292931FF292931FF292931FF2929
+      31FF292931FF292931FF6B6B6BFF7B7B7BFF212929FF212929FF212929FF2129
+      29FF212929FF212929FF212929FF212929FF212929FF212929FF212929FF2129
+      29FF5252ADFF5252ADFF636363FF7B7B7BFF182121FF182121FF182121FF1821
+      21FF182121FF182121FF182121FF4A4AADFF182121FF182121FF182121FF1821
+      21FF182121FF182121FF5A5A5AFF6B6B6BFF3939ADFF3939ADFF3939ADFF3939
+      ADFF3939ADFF3939ADFF3939ADFF3939ADFF101810FF101810FF101810FF1018
+      10FF101810FF101810FF525252FF636363FF081008FF081008FF081008FF0810
+      08FF081008FF081008FF081008FF081008FF081008FF081008FF081008FF0810
+      08FF2929ADFF2929ADFF4A4A4AFF5A5A5AFF000808FF000808FF000808FF0008
+      08FF000808FF000808FF000808FF000808FF000808FF000808FF000808FF0008
+      08FF000808FF000808FF4A4A4AFF5A5A5AFF080808FF080808FF080808FF0808
+      08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0000
+      00FF000000FF000000FF424242FF525252FF0000ADFF0000ADFF0000ADFF0000
+      ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000ADFF080808FF0000
+      00FF0000ADFF0000ADFF424242FF525252FF0000A5FF0000A5FF0000A5FF0000
+      9CFF00009CFF00009CFF0000A5FF0000A5FF0000A5FF0000A5FF000000FF0000
+      00FF000000FF000000FF393939FF4A4A4AFF000094FF000094FF000094FF0000
+      94FF000094FF000094FF000094FF000094FF000094FF000094FF000000FF0000
+      00FF000000FF000000FF393939FF4A4A4AFF000084FF000084FF000084FF0000
+      84FF000084FF000084FF000084FF000084FF000084FF000084FF000000FF0000
+      00FF000084FF000084FF393939FF424242FF000073FF000073FF000073FF0000
+      73FF000073FF000073FF000073FF000073FF000073FF000073FF000000FF0000
+      00FF000000FF000000FF292929FF393939FF000063FF000063FF000063FF0000
+      63FF00006BFF000063FF000063FF000063FF00006BFF000063FF000000FF0000
+      00FF000000FF000000FF292929FF292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF212121FF425A52FF425A52FF425A52FF425A52FF425A
+      52FF425A52FF425A52FF425A52FF425A52FF39524AFF00000000000000000000
+      0000000000000000000000000000425A52FF39524AFF39524AFF39524AFF3952
+      4AFF39524AFF39524AFF39524AFF39524AFF294239FF00000000000000000000
+      0000000000000000000000000000425A52FF39524AFF39524AFF39524AFF3952
+      4AFF39524AFF39524AFF39524AFF39524AFF294239FF00000000000000000000
+      0000000000000000000000000000425A52FF39524AFF39524AFF5A736BFF5A73
+      6BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF4263
+      5AFF000000000000000000000000425A52FF39524AFF39524AFF5A736BFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF294A
+      4AFF000000000000000000000000425A52FF39524AFF39524AFF5A736BFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF294A
+      4AFF000000000000000000000000425A52FF39524AFF39524AFF5A736BFF4263
+      5AFF42635AFF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5A
+      B5FF4A5AB5FF4A5AB5FF3139ADFF425A52FF39524AFF39524AFF5A736BFF4263
+      5AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF425A52FF39524AFF39524AFF5A736BFF4263
+      5AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF39524AFF294239FF294239FF5A736BFF4263
+      5AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF0000000000000000000000005A736BFF4263
+      5AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF0000000000000000000000005A736BFF4263
+      5AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF00000000000000000000000042635AFF294A
+      4AFF294A4AFF4A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF000000000000000000000000000000000000
+      0000000000004A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF000000000000000000000000000000000000
+      0000000000004A5AB5FF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF10219CFF000000000000000000000000000000000000
+      0000000000003139ADFF10219CFF10219CFF10219CFF10219CFF10219CFF1021
+      9CFF10219CFF10219CFF10219CFF00000000737373FF737373FF737373FF7373
+      73FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF848484FF848484FF848484FF8484
+      84FF000000000000000000000000000000006B6B6BFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECECEFFFFFFFFFFB5D6
+      CEFF737373FF0000000000000000000000006B6B6BFFFFFFFFFFE7FFF7FFE7FF
+      F7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FFB5B5B5FFFFFFFFFFD6F7
+      EFFFB5D6CEFF6B6B6BFF00000000000000006B6B6BFFFFFFFFFFE5FEF6FFE5FD
+      F6FFE5FDF6FFE5FEF6FFE6FEF6FFE5FDF6FFF7F7F7FFA5A5A5FFFFFFFFFFFFFF
+      FFFFFFFFFFFF5A5A5AFF00000000000000006B6B6BFFFFFFFFFFE3FBF4FFE3FB
+      F4FFE3FBF3FFE3FBF4FFE3FCF4FFE3FBF4FFF7F7F7FF949494FF8C8C8CFF7373
+      73FF5A5A5AFF5A5A5AFF00000000000000006B6B6BFFFFFFFFFFE0F9F2FFE1F9
+      F2FFE0F8F2FFE0F8F2FFE0F8F2FFE1F9F2FFF7F7F7FFD6D6D6FFC6C6C6FFB5B5
+      B5FF9C9C9CFF525252FF00000000000000006B6B6BFFFFFFFFFFDEF6F0FFDEF6
+      F0FFDDF5F0FFDDF5EFFFDDF5F0FFBD4242FFDDF5EFFFDDF5F0FFDEF5F0FFC6DE
+      DEFFDEDEDEFF525252FF0000000000000000636363FFFFFFFFFFDAF2EDFFDAF2
+      EDFFDAF2EDFFDAF2EDFFBD4242FFBD4242FFBD4242FFBD4242FFBD4242FFBD42
+      42FFBD4242FFBD4242FFBD4242FF000000005A5A5AFFFFFFFFFFD7EEEAFFD7EE
+      EBFFD6EEEBFFB23E3EFFB23E3EFFB23E3EFFB23E3EFFB33F3FFFB23E3EFFB23E
+      3EFFB23E3EFFB23E3EFFB23E3EFF000000005A5A5AFFFFFFFFFFD3EBE8FFD3EB
+      E8FFA33939FFA33939FFA33939FFA33939FFA33939FFA33939FFA33939FFA339
+      39FFA33939FFA33939FFA33939FF000000004A4A4AFFFFFFFFFFD0E8E5FFD0E8
+      E6FFCFE8E5FF923333FF923333FF923333FF923333FF923333FF923333FF9233
+      33FF923333FF923333FF923333FF000000004A4A4AFFFFFFFFFFCDE5E3FFCCE5
+      E3FFCDE5E3FFB5B5B5FF812D2DFF812D2DFF812D2DFF812D2DFF812D2DFF812D
+      2DFF812D2DFF812D2DFF812D2DFF000000004A4A4AFFFFFFFFFFCAE2E1FFCAE2
+      E1FFCAE2E1FFCAE2E1FFB5B5B5FF722828FFB5B5B5FFB5B5B5FFB5B5B5FFB5B5
+      B5FFB5B5B5FF181818FFB5B5B5FF00000000424242FFFFFFFFFFC8E0E0FFC8E0
+      DFFFC8E0E0FFC8E0E0FFC8E0DFFFB5B5B5FFC8DFDFFFC7DFDFFFC8DFE0FFC8E0
+      DFFFFFFFFFFF313131FF0000000000000000424242FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFF292929FF00000000000000006B6B6BFF292929FF212121FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+      18FF181818FF4A4A4AFF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000687F7FFF798D8DFF879999FF000000000000
+      0000687F7FFF798D8DFF879999FF0000000000000000687F7FFF798D8DFF8799
+      99FF00000000000000000000000000000000425454FF5A7373FF788C8CFF0000
+      000000000000425454FF5A7373FF788C8CFF0000000000000000425454FF5A73
+      73FF788C8CFF00000000000000000000000000000000425454FF5A7373FF788C
+      8CFF0000000000000000425454FF5A7373FF788C8CFF00000000000000004254
+      54FF5A7373FF788C8CFF00000000000000000000000000000000425454FF5A73
+      73FF788C8CFF0000000000000000425454FF5A7373FF788C8CFF000000000000
+      0000425454FF5A7373FF788C8CFF000000000000000000000000788C8CFF5A73
+      73FF425454FF0000000000000000788C8CFF5A7373FF425454FF000000000000
+      0000788C8CFF5A7373FF425454FF0000000000000000788C8CFF5A7373FF4254
+      54FF0000000000000000788C8CFF5A7373FF425454FF0000000000000000788C
+      8CFF5A7373FF425454FF0000000000000000788C8CFF5A7373FF425454FF0000
+      000000000000788C8CFF5A7373FF425454FF0000000000000000788C8CFF5A73
+      73FF425454FF00000000000000004E6363FF425555FF364545FF000000000000
+      00004E6363FF425555FF364545FF00000000000000004E6363FF425555FF3645
+      45FF000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000008C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF737373FFFFFFFFFFD3D3D3FFD3D3D3FFD3D3
+      D3FFFFFFFFFFA2A2A2FFBBBBBBFF949494FF949494FFBBBBBBFFA2A2A2FFFFFF
+      FFFFFFFFFFFFFFFFFFFF737373FF6B6B6BFFFFFFFFFFE9E9E9FFE9E9E9FFFFFF
+      FFFFFFFFFFFFD3D3D3FFD3D3D3FFFFFFFFFFFFFFFFFFD3D3D3FFD3D3D3FFFFFF
+      FFFFFFFFFFFFFFFFFFFF6B6B6BFF636363FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF636363FF5A5A5AFFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFF5A5A5AFF525252FFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFF525252FF4A4A4AFFC2975CFFCEAD82FFD6BB99FFC297
+      5CFFC2975CFFE1CEB7FFC2975CFFCEAD82FFCEAD82FFC2975CFFE1CEB7FFE1CE
+      B7FFDAC2A3FFC2975CFF4A4A4AFF4A4A4AFFC2975CFFD2B48EFFF4EDE5FFC69E
+      6AFFDAC2A3FFE5D5C1FFC2975CFFDEC8AEFFE1CEB7FFC2975CFFE1CEB7FFC297
+      5CFFE5D5C1FFC2975CFF4A4A4AFF424242FFC2975CFFD2B48EFFD6BB99FFE9DB
+      CAFFDEC8AEFFE1CEB7FFC2975CFFE1CEB7FFE1CEB7FFC2975CFFE9DBCAFFE1CE
+      B7FFE1CEB7FFC2975CFF424242FF424242FFC2975CFFD2B48EFFD2B48EFFD2B4
+      8EFFC2975CFFE1CEB7FFDAC2A3FFE5D5C1FFE5D5C1FFDAC2A3FFE1CEB7FFC297
+      5CFFC2975CFFC2975CFF424242FF393939FFC2975CFFCAA676FFCAA676FFC297
+      5CFFC2975CFFD2B48EFFD2B48EFFC2975CFFC2975CFFD2B48EFFD2B48EFFC297
+      5CFFC2975CFFC2975CFF393939FF393939FFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+      5CFFC2975CFFC2975CFF393939FF393939FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF393939FF292929FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFF292929FF292929FFFFFFFFFFDEDEDEFFC7C7C7FFFFFF
+      FFFFFFFFFFFFA2A2A2FFFFFFFFFFDEDEDEFFDEDEDEFFFFFFFFFFA2A2A2FFA2A2
+      A2FFBBBBBBFFFFFFFFFF292929FF292929FF292929FF292929FF292929FF2929
+      29FF292929FF292929FF292929FF292929FF292929FF292929FF292929FF2929
+      29FF292929FF292929FF292929FF848484FF848484FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF848484FF848484FF848484FF8B7C65FF8B7C65FF8B7C65FF8B7C
+      65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF413C34FF8B7C
+      65FF8B7C65FF8B7C65FF737373FF7B7B7BFF86765EFF86765EFF86765EFF8676
+      5EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF403A31FF8676
+      5EFF86765EFF86765EFF6B6B6BFF7B7B7BFF826F57FF826F57FF826F57FF826F
+      57FF826F57FF826F57FF826F57FF826F57FF826F57FF826F57FF3E372FFF826F
+      57FF826F57FF826F57FF636363FF7B7B7BFF7E6950FF7E6950FF7E6950FF7E69
+      50FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF3D352CFF7E69
+      50FF7E6950FF7E6950FF5A5A5AFF6B6B6BFF7A644AFF7A644AFF7A644AFF7A64
+      4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF3B332AFF7A64
+      4AFF7A644AFF7A644AFF525252FF636363FF775F44FF775F44FF775F44FF775F
+      44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF3A3228FF775F
+      44FF775F44FF775F44FF4A4A4AFF5A5A5AFF745B40FF745B40FF745B40FF745B
+      40FF745B40FF745B40FF745B40FF745B40FF745B40FF745B40FF393026FF745B
+      40FF745B40FF745B40FF4A4A4AFF5A5A5AFF71573CFF71573CFF71573CFF7157
+      3CFF71573CFF71573CFF71573CFF71573CFF71573CFF71573CFF382F25FF7157
+      3CFF71573CFF71573CFF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF372E24FF6F54
+      38FF6F5438FF6F5438FF424242FF525252FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF372E24FF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF372E24FF6F54
+      38FF6F5438FF6F5438FF393939FF4A4A4AFF372E24FF372E24FF372E24FF372E
+      24FF372E24FF372E24FF372E24FF372E24FF372E24FF372E24FF372E24FF6F54
+      38FF6F5438FF6F5438FF393939FF424242FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF292929FF393939FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+      38FF6F5438FF6F5438FF292929FF292929FF292929FF212121FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF292929FF2929
+      29FF212121FF212121FF212121FF
+    }
    end
    object SaveDialog: TSaveDialog
    end
    object SaveDialog: TSaveDialog
-    DefaultExt = 'wad'
+    DefaultExt = '.wad'
      Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Все файлы (*.*)|*.*'
      Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent]
      Filter = 'Карты Doom 2D: Forever (*.wad)|*.wad|Все файлы (*.*)|*.*'
      Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofDontAddToRecent]
-    Left = 64
-    Top = 64
+    left = 64
+    top = 64
    end
    object MainMenu: TMainMenu
      Images = ImageList
    end
    object MainMenu: TMainMenu
      Images = ImageList
-    Left = 96
-    Top = 64
+    left = 96
+    top = 64
      object miMenuFile: TMenuItem
        Caption = 'Файл'
        object miNewMap: TMenuItem
          Caption = 'Новая карта'
      object miMenuFile: TMenuItem
        Caption = 'Файл'
        object miNewMap: TMenuItem
          Caption = 'Новая карта'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000006B6B
+          6BFF292929FF212121FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF181818FF181818FF181818FF4A4A4AFF00000000000000004242
+          42FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF00000000000000004242
+          42FFFFFFFFFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+          DEFFC6DEDEFFC6DEDEFFC6DEDEFFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDE
+          D6FFBDDED6FFBDDED6FFBDDED6FFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+          E7FFCEE7E7FFCEE7E7FFCEE7E7FFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+          E7FFCEE7E7FFCEE7E7FFCEE7E7FFFFFFFFFF393939FF00000000000000005A5A
+          5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EF
+          E7FFD6EFE7FFD6EFE7FFD6EFE7FFFFFFFFFF424242FF00000000000000005A5A
+          5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EF
+          E7FFD6EFE7FFD6EFE7FFD6EFE7FFFFFFFFFF424242FF00000000000000006363
+          63FFFFFFFFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EF
+          EFFFD6EFEFFFD6EFEFFFD6EFEFFFFFFFFFFF4A4A4AFF00000000000000006B6B
+          6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+          F7FFDEF7F7FFCEEFE7FFC6DEDEFFDEDEDEFF525252FF00000000000000006B6B
+          6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFF7F7
+          F7FFD6D6D6FFC6C6C6FFB5B5B5FF9C9C9CFF525252FF00000000000000006B6B
+          6BFFFFFFFFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFF7F7
+          F7FF949494FF8C8C8CFF737373FF5A5A5AFF5A5A5AFF00000000000000006B6B
+          6BFFFFFFFFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7
+          F7FFA5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFF5A5A5AFF00000000000000006B6B
+          6BFFFFFFFFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7
+          F7FFB5B5B5FFFFFFFFFFD6F7EFFFB5D6CEFF6B6B6BFF00000000000000006B6B
+          6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFCECECEFFFFFFFFFFB5D6CEFF737373FF0000000000000000000000007373
+          73FF737373FF737373FF737373FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF8484
+          84FF848484FF848484FF848484FF000000000000000000000000
+        }
          ImageIndex = 0
          ShortCut = 16462
          OnClick = aNewMapExecute
        end
        object miOpenMap: TMenuItem
          Caption = 'Открыть карту'
          ImageIndex = 0
          ShortCut = 16462
          OnClick = aNewMapExecute
        end
        object miOpenMap: TMenuItem
          Caption = 'Открыть карту'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000004A4A
+          52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A52FF4A4A
+          52FF4A4A52FF4A4A52FF4A4A52FF7B9494FF0000000000000000000000003939
+          39FF7B8C8CFF849C94FF7B9494FF7B9494FF7B9494FF7B9494FF7B9494FF7B94
+          94FF7B9494FF7B9494FF7B9494FF7B9494FF0000000000000000000000003939
+          39FF7B9494FF94ADADFF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94AD
+          A5FF94ADADFF94B5ADFF94B5B5FF7B9494FF0000000000000000000000004242
+          42FF5A6363FF9CB5ADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94AD
+          ADFF94ADADFF9CB5B5FF9CBDB5FFA5BDBDFF7B9494FF00000000000000004A4A
+          4AFF5A5A5AFF94B5ADFFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BD
+          B5FFA5BDB5FFA5BDB5FFA5BDBDFFADCEC6FF7B9494FF00000000000000005252
+          52FF5A5A5AFF7B8C8CFFADC6C6FFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BD
+          BDFFA5BDBDFFA5BDBDFFADC6C6FFBDD6CEFF7B9494FF00000000000000005A5A
+          5AFF5A5A5AFF737B7BFFB5CEC6FFADC6BDFFADC6BDFFADC6BDFFADC6C6FFADC6
+          BDFFADC6BDFFB5CEC6FFB5CECEFFBDDED6FF7B9494FF00000000000000006363
+          63FF6B6B6BFF636363FFA5B5B5FFBDD6D6FFBDD6D6FFB5D6CEFFB5D6CEFFB5CE
+          CEFFB5CECEFFB5CECEFFB5D6CEFFBDD6D6FFC6DEDEFF7B9494FF000000006B6B
+          6BFF7B7373FF6B6B6BFF7B8484FFB5CECEFFB5CECEFFBDD6D6FFBDD6D6FFBDD6
+          D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDDED6FFCEE7DEFF7B9494FF000000007373
+          73FF847B7BFF7B7B7BFF6B6B6BFF737373FF737373FF737373FF6B736BFFADC6
+          BDFFCEE7E7FFC6DED6FFC6DED6FFC6DED6FFC6E7DEFF7B9494FF000000007B7B
+          7BFF848484FF848484FF848484FF848484FF848484FF848484FF7B7B7BFF848C
+          84FFD6EFE7FFDEF7F7FFDEF7F7FFDEF7F7FFE7F7F7FF7B9494FF000000008484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8484
+          84FF848484FF848C84FF848C84FF848C84FF848484FF00000000000000008C8C
+          8CFF949494FF8C948CFF8C9494FF949494FF949494FF8C8C8CFF7B7B7BFF7B7B
+          7BFF737373FF737373FF737373FF737373FF0000000000000000000000009494
+          94FF9C9C9CFF9C9C9CFF9C9C9CFF9C9C9CFF9C9C9CFF949494FF000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00008C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 1
          ShortCut = 16463
          OnClick = aOpenMapExecute
        end
        object miSaveMap: TMenuItem
          Caption = 'Сохранить карту'
          ImageIndex = 1
          ShortCut = 16463
          OnClick = aOpenMapExecute
        end
        object miSaveMap: TMenuItem
          Caption = 'Сохранить карту'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000002929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF00000000393939FF7B94
+          94FF7B9494FF636363FFE7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7
+          E7FFD6D6D6FFE7E7E7FF5A5A5AFF7B9494FF7B9494FF292929FF424242FF7B94
+          94FF7B9494FF6B6B6BFFFFFFFFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEF
+          EFFFE7E7E7FFE7E7E7FF6B6B6BFF7B9494FF7B9494FF292929FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF525252FF9CB5
+          B5FF9CB5ADFF9C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF7B7B7BFF849C9CFF849C9CFF393939FF525252FFA5BD
+          B5FFA5BDB5FFA5BDB5FF94B5ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+          A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF424242FF5A5A5AFFA5C6
+          BDFF8CA59CFF8CA5A5FF849C9CFF7B948CFF738C84FF738C84FF738C84FF738C
+          8CFF738C8CFF738C8CFF738C8CFF6B8484FF8CADA5FF424242FF5A5A5AFFADC6
+          BDFF94ADA5FFE7E7E7FFF7F7F7FFF7F7F7FFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
+          EFFFF7F7F7FFEFEFEFFFDEDEDEFF73948CFF94ADADFF4A4A4AFF636363FFADC6
+          C6FF94ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9494FF94ADADFF4A4A4AFF6B6B6BFFADCE
+          C6FF9CB5ADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9C94FF9CB5B5FF525252FF7B7B7BFFCEE7
+          DEFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF8CA5A5FFADC6C6FF5A5A5AFF7B7B7BFFD6EF
+          E7FFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADADFFADC6C6FF636363FF7B7B7BFFD6F7
+          EFFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADA5FFADCEC6FF6B6B6BFF848484FFDEF7
+          F7FFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF9CB5ADFFB5CECEFF737373FF000000008484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF00000000
+        }
          ImageIndex = 2
          ShortCut = 16467
          OnClick = aSaveMapExecute
        end
        object miSaveMapAs: TMenuItem
          Caption = 'Сохранить карту как...'
          ImageIndex = 2
          ShortCut = 16467
          OnClick = aSaveMapExecute
        end
        object miSaveMapAs: TMenuItem
          Caption = 'Сохранить карту как...'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000002929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF00000000393939FF7B94
+          94FF7B9494FF636363FFE7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7
+          E7FFD6D6D6FFE7E7E7FF5A5A5AFF7B9494FF7B9494FF292929FF424242FF7B94
+          94FF7B9494FF6B6B6BFFFFFFFFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEF
+          EFFFE7E7E7FFE7E7E7FF6B6B6BFF7B9494FF7B9494FF292929FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF525252FF9CB5
+          B5FF9CB5ADFF9C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF7B7B7BFF849C9CFF849C9CFF393939FF525252FFA5BD
+          B5FFA5BDB5FFA5BDB5FF94B5ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+          A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF424242FF5A5A5AFFA5C6
+          BDFF8CA59CFF8CA5A5FF849C9CFF7B948CFF738C84FF738C84FF738C84FF738C
+          8CFF738C8CFF738C8CFF738C8CFF6B8484FF8CADA5FF424242FF5A5A5AFFADC6
+          BDFF94ADA5FFE7E7E7FFF7F7F7FFF7F7F7FFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
+          EFFFF7F7F7FFEFEFEFFFDEDEDEFF73948CFF94ADADFF4A4A4AFF636363FFADC6
+          C6FF94ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6B6B6BFF6B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9494FF94ADADFF4A4A4AFF6B6B6BFFADCE
+          C6FF9CB5ADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDEFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9C94FF9CB5B5FF525252FF7B7B7BFFCEE7
+          DEFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6B6B6BFF6B6B6BFFDEDE
+          DEFFFFFFFFFFFFFFFFFFFFFFFFFF8CA5A5FFADC6C6FF5A5A5AFF7B7B7BFFD6EF
+          E7FFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEDEFF6B6B
+          6BFFFFFFFFFFFFFFFFFFFFFFFFFF94ADADFFADC6C6FF636363FF7B7B7BFFD6F7
+          EFFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFF8C8C8CFF6B6B6BFF6B6B6BFFDEDE
+          DEFFFFFFFFFFFFFFFFFFFFFFFFFF94ADA5FFADCEC6FF6B6B6BFF848484FFDEF7
+          F7FFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFF7F7F7FF9CB5ADFFB5CECEFF737373FF000000008484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF00000000
+        }
          ImageIndex = 21
          OnClick = aSaveMapAsExecute
        end
        object miOpenWadMap: TMenuItem
          Caption = 'Выбрать карту'
          ImageIndex = 21
          OnClick = aSaveMapAsExecute
        end
        object miOpenWadMap: TMenuItem
          Caption = 'Выбрать карту'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF292929FF292929FF292929FF292929FF292929FF292929FF292929FF2929
+          29FF292929FF292929FF292929FF292929FF292929FF292929FF292929FFFFFF
+          FFFFDEDEDEFFC7C7C7FFFFFFFFFFFFFFFFFFA2A2A2FFFFFFFFFFDEDEDEFFDEDE
+          DEFFFFFFFFFFA2A2A2FFA2A2A2FFBBBBBBFFFFFFFFFF292929FF292929FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF393939FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF393939FF393939FFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFF393939FF393939FFC297
+          5CFFCAA676FFCAA676FFC2975CFFC2975CFFD2B48EFFD2B48EFFC2975CFFC297
+          5CFFD2B48EFFD2B48EFFC2975CFFC2975CFFC2975CFF393939FF424242FFC297
+          5CFFD2B48EFFD2B48EFFD2B48EFFC2975CFFE1CEB7FFDAC2A3FFE5D5C1FFE5D5
+          C1FFDAC2A3FFE1CEB7FFC2975CFFC2975CFFC2975CFF424242FF424242FFC297
+          5CFFD2B48EFFD6BB99FFE9DBCAFFDEC8AEFFE1CEB7FFC2975CFFE1CEB7FFE1CE
+          B7FFC2975CFFE9DBCAFFE1CEB7FFE1CEB7FFC2975CFF424242FF4A4A4AFFC297
+          5CFFD2B48EFFF4EDE5FFC69E6AFFDAC2A3FFE5D5C1FFC2975CFFDEC8AEFFE1CE
+          B7FFC2975CFFE1CEB7FFC2975CFFE5D5C1FFC2975CFF4A4A4AFF4A4A4AFFC297
+          5CFFCEAD82FFD6BB99FFC2975CFFC2975CFFE1CEB7FFC2975CFFCEAD82FFCEAD
+          82FFC2975CFFE1CEB7FFE1CEB7FFDAC2A3FFC2975CFF4A4A4AFF525252FFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFF525252FF5A5A5AFFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFFC297
+          5CFFC2975CFFC2975CFFC2975CFFC2975CFFC2975CFF5A5A5AFF636363FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF636363FF6B6B6BFFFFFF
+          FFFFE9E9E9FFE9E9E9FFFFFFFFFFFFFFFFFFD3D3D3FFD3D3D3FFFFFFFFFFFFFF
+          FFFFD3D3D3FFD3D3D3FFFFFFFFFFFFFFFFFFFFFFFFFF6B6B6BFF737373FFFFFF
+          FFFFD3D3D3FFD3D3D3FFD3D3D3FFFFFFFFFFA2A2A2FFBBBBBBFF949494FF9494
+          94FFBBBBBBFFA2A2A2FFFFFFFFFFFFFFFFFFFFFFFFFF737373FF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF
+        }
          ImageIndex = 28
          OnClick = miOpenWadMapClick
        end
          ImageIndex = 28
          OnClick = miOpenWadMapClick
        end
@@ -1939,16 +1938,124 @@ object MainForm: TMainForm
        end
        object miSaveMiniMap: TMenuItem
          Caption = 'Сохранить мини-карту'
        end
        object miSaveMiniMap: TMenuItem
          Caption = 'Сохранить мини-карту'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000002929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF00000000393939FF7B94
+          94FF7B9494FF636363FFE7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7
+          E7FFD6D6D6FFE7E7E7FF5A5A5AFF7B9494FF7B9494FF292929FF424242FF7B94
+          94FF7B9494FF6B6B6BFFFFFFFFFFE7E7E7FFA5BDB5FFFFFFFFFFFFFFFFFFEFEF
+          EFFFE7E7E7FFE7E7E7FF6B6B6BFF7B9494FF7B9494FF292929FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF4A4A4AFF94AD
+          A5FF8CA5A5FF7B7B7BFFFFFFFFFF5A736BFF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF6B6B6BFF849C9CFF849C9CFF393939FF525252FF9CB5
+          B5FF9CB5ADFF9C9C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFE7E7E7FF7B7B7BFF849C9CFF849C9CFF393939FF525252FFA5BD
+          B5FFA5BDB5FFA5BDB5FF94B5ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+          A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF424242FF5A5A5AFFA5C6
+          BDFF8CA59CFF8CA5A5FF849C9CFF7B948CFF738C84FF738C84FF738C84FF738C
+          8CFF738C8CFF738C8CFF738C8CFF6B8484FF8CADA5FF424242FF5A5A5AFFADC6
+          BDFF94ADA5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFF000000FF000000FF000000FF73948CFF94ADADFF4A4A4AFF636363FFADC6
+          C6FF94ADADFFFFFFFFFF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FFFFFF
+          FFFF000000FF000000FFC6C6C6FF7B9494FF94ADADFF4A4A4AFF6B6B6BFFADCE
+          C6FF9CB5ADFFFFFFFFFFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFFFFF
+          FFFF000000FF000000FF000000FF7B9C94FF9CB5B5FF525252FF7B7B7BFFCEE7
+          DEFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFFFF
+          FFFF080808FF080808FFC6C6C6FF8CA5A5FFADC6C6FF5A5A5AFF7B7B7BFFD6EF
+          E7FFA5BDB5FF081810FF081810FF081810FF081810FF081810FF081810FF0818
+          10FF081810FF081810FF081810FF94ADADFFADC6C6FF636363FF7B7B7BFFD6F7
+          EFFFA5BDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1821
+          18FF182118FF182118FFC6C6C6FF94ADA5FFADCEC6FF6B6B6BFF848484FFDEF7
+          F7FFA5BDB5FF212929FF212929FF212929FF212929FF212929FFFFFFFFFF2129
+          29FF212929FF212929FF212929FF9CB5ADFFB5CECEFF737373FF000000008484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF00000000
+        }
          ImageIndex = 22
          OnClick = miSaveMiniMapClick
        end
        object miDeleteMap: TMenuItem
          Caption = 'Удалить карту из WAD...'
          ImageIndex = 22
          OnClick = miSaveMiniMapClick
        end
        object miDeleteMap: TMenuItem
          Caption = 'Удалить карту из WAD...'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000006B6B
+          6BFF292929FF212121FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF181818FF181818FF4A4AFFFF4A4AFFFF00000000000000004242
+          42FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFB5B5B5FF4A4AFFFF4A4AFFFF292929FF00000000000000004242
+          42FFFFFFFFFFC6DEDEFFC6DEDEFFB5B5B5FFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+          DEFFB5B5B5FF4A4AFFFF4A4AFFFFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFBDDED6FFBDDED6FF4A4AFFFFB5B5B5FFB5B5B5FFBDDED6FFB5B5
+          B5FF4A4AFFFF4A4AFFFFBDDED6FFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFCEE7E7FFCEE7E7FFCEE7E7FF4A4AFFFF4A4AFFFFB5B5B5FF4A4A
+          FFFF4A4AFFFFCEE7E7FFCEE7E7FFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FF4A4AFFFF4A4AFFFF4A4A
+          FFFFB5B5B5FFCEE7E7FFCEE7E7FFFFFFFFFF393939FF00000000000000005A5A
+          5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EFE7FFB5B5B5FF4A4AFFFF4A4AFFFF4A4A
+          FFFF4A4AFFFFB5B5B5FFB5B5B5FFFFFFFFFF424242FF00000000000000005A5A
+          5AFFFFFFFFFFD6EFE7FFD6EFE7FFD6EFE7FF4A4AFFFF4A4AFFFF4A4AFFFFD6EF
+          E7FF4A4AFFFF4A4AFFFF4A4AFFFFB5B5B5FF424242FF00000000000000006363
+          63FFFFFFFFFFD6EFEFFFD6EFEFFFB5B5B5FF4A4AFFFF4A4AFFFFD6EFEFFFD6EF
+          EFFFD6EFEFFF4A4AFFFF4A4AFFFF4A4AFFFF4A4A4AFF00000000000000006B6B
+          6BFFFFFFFFFFDEF7F7FFB5B5B5FF4A4AFFFF4A4AFFFFDEF7F7FFDEF7F7FFDEF7
+          F7FFDEF7F7FFCEEFE7FF4A4AFFFF4A4AFFFF4A4AFFFF00000000000000006B6B
+          6BFFFFFFFFFFB5B5B5FF4A4AFFFF4A4AFFFF4A4AFFFFDEF7F7FFDEF7F7FFF7F7
+          F7FFD6D6D6FFC6C6C6FFB5B5B5FF4A4AFFFF4A4AFFFF4A4AFFFF000000006B6B
+          6BFFFFFFFFFF4A4AFFFF4A4AFFFF4A4AFFFFDEF7F7FFDEF7F7FFDEF7F7FFF7F7
+          F7FF949494FF8C8C8CFF737373FF5A5A5AFF4A4AFFFF4A4AFFFF000000006B6B
+          6BFFFFFFFFFFE7FFF7FF4A4AFFFF4A4AFFFFE7FFF7FFE7FFF7FFE7FFF7FFF7F7
+          F7FFA5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFF5A5A5AFF4A4AFFFF000000006B6B
+          6BFFFFFFFFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7
+          F7FFB5B5B5FFFFFFFFFFD6F7EFFFB5D6CEFF6B6B6BFF00000000000000006B6B
+          6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFCECECEFFFFFFFFFFB5D6CEFF737373FF0000000000000000000000007373
+          73FF737373FF737373FF737373FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF8484
+          84FF848484FF848484FF848484FF000000000000000000000000
+        }
          ImageIndex = 11
          OnClick = aDeleteMap
        end
        object miPackMap: TMenuItem
          Caption = 'Упаковать карту'
          ImageIndex = 11
          OnClick = aDeleteMap
        end
        object miPackMap: TMenuItem
          Caption = 'Упаковать карту'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000006B6B
+          6BFF292929FF212121FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF181818FF181818FF181818FF4A4A4AFF00000000000000004242
+          42FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF00000000000000004242
+          42FFFFFFFFFFC8E0E0FFC8E0DFFFC8E0E0FFC8E0E0FFC8E0DFFFB5B5B5FFC8DF
+          DFFFC7DFDFFFC8DFE0FFC8E0DFFFFFFFFFFF313131FF00000000000000004A4A
+          4AFFFFFFFFFFCAE2E1FFCAE2E1FFCAE2E1FFCAE2E1FFB5B5B5FF722828FFB5B5
+          B5FFB5B5B5FFB5B5B5FFB5B5B5FFB5B5B5FF181818FFB5B5B5FF000000004A4A
+          4AFFFFFFFFFFCDE5E3FFCCE5E3FFCDE5E3FFB5B5B5FF812D2DFF812D2DFF812D
+          2DFF812D2DFF812D2DFF812D2DFF812D2DFF812D2DFF812D2DFF000000004A4A
+          4AFFFFFFFFFFD0E8E5FFD0E8E6FFCFE8E5FF923333FF923333FF923333FF9233
+          33FF923333FF923333FF923333FF923333FF923333FF923333FF000000005A5A
+          5AFFFFFFFFFFD3EBE8FFD3EBE8FFA33939FFA33939FFA33939FFA33939FFA339
+          39FFA33939FFA33939FFA33939FFA33939FFA33939FFA33939FF000000005A5A
+          5AFFFFFFFFFFD7EEEAFFD7EEEBFFD6EEEBFFB23E3EFFB23E3EFFB23E3EFFB23E
+          3EFFB33F3FFFB23E3EFFB23E3EFFB23E3EFFB23E3EFFB23E3EFF000000006363
+          63FFFFFFFFFFDAF2EDFFDAF2EDFFDAF2EDFFDAF2EDFFBD4242FFBD4242FFBD42
+          42FFBD4242FFBD4242FFBD4242FFBD4242FFBD4242FFBD4242FF000000006B6B
+          6BFFFFFFFFFFDEF6F0FFDEF6F0FFDDF5F0FFDDF5EFFFDDF5F0FFBD4242FFDDF5
+          EFFFDDF5F0FFDEF5F0FFC6DEDEFFDEDEDEFF525252FF00000000000000006B6B
+          6BFFFFFFFFFFE0F9F2FFE1F9F2FFE0F8F2FFE0F8F2FFE0F8F2FFE1F9F2FFF7F7
+          F7FFD6D6D6FFC6C6C6FFB5B5B5FF9C9C9CFF525252FF00000000000000006B6B
+          6BFFFFFFFFFFE3FBF4FFE3FBF4FFE3FBF3FFE3FBF4FFE3FCF4FFE3FBF4FFF7F7
+          F7FF949494FF8C8C8CFF737373FF5A5A5AFF5A5A5AFF00000000000000006B6B
+          6BFFFFFFFFFFE5FEF6FFE5FDF6FFE5FDF6FFE5FEF6FFE6FEF6FFE5FDF6FFF7F7
+          F7FFA5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFF5A5A5AFF00000000000000006B6B
+          6BFFFFFFFFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7F7
+          F7FFB5B5B5FFFFFFFFFFD6F7EFFFB5D6CEFF6B6B6BFF00000000000000006B6B
+          6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFCECECEFFFFFFFFFFB5D6CEFF737373FF0000000000000000000000007373
+          73FF737373FF737373FF737373FF7B7B7BFF7B7B7BFF7B7B7BFF848484FF8484
+          84FF848484FF848484FF848484FF000000000000000000000000
+        }
          ImageIndex = 26
          OnClick = miPackMapClick
        end
          ImageIndex = 26
          OnClick = miPackMapClick
        end
@@ -1957,6 +2064,42 @@ object MainForm: TMainForm
        end
        object miExit: TMenuItem
          Caption = 'Выход'
        end
        object miExit: TMenuItem
          Caption = 'Выход'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000292929FF292929FF292929FF292929FF292929FF292929FF292929FF2929
+          29FF292929FF292929FF212121FF292929FF0000000000000000000000000000
+          0000393939FF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C9CFF7B9C
+          9CFF7B9C9CFF7B9C9CFF7B9C9CFF292929FF0000000000000000000000000000
+          0000424242FF849C9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C9CFF849C
+          9CFF849C9CFF849C9CFF849C9CFF292929FF0000000000000000000000000000
+          00004A4A4AFF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+          A5FF8CA5A5FF8CA5A5FF8CA5A5FF393939FF0000000000000000000000000000
+          00004A4A4AFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94AD
+          ADFF94ADADFF94ADADFF94ADADFF393939FF0000000000000000000000000000
+          0000525252FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5B5FF9CB5
+          B5FF9CB5B5FF9CB5B5FF9CB5B5FF393939FF0000000000000000000000000000
+          0000525252FFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BD
+          BDFF7B9C9CFF6B8484FFA5BDBDFF424242FF0000000000000000000000000000
+          00005A5A5AFFADC6C6FFADC6C6FFADC6C6FFADC6C6FFADC6C6FFADC6C6FFADC6
+          C6FFDEF7F7FF7B9C9CFFADC6C6FF424242FF0000000000000000000000000000
+          00005A5A5AFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CE
+          CEFFB5CECEFFB5CECEFFB5CECEFF4A4A4AFF0000000000000000000000000000
+          0000636363FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6
+          D6FFBDD6D6FFBDD6D6FFBDD6D6FF4A4A4AFF0000000000000000000000000000
+          00006B6B6BFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+          DEFFC6DEDEFFC6DEDEFFC6DEDEFF525252FF0000000000000000000000000000
+          00007B7B7BFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+          E7FFCEE7E7FFCEE7E7FFCEE7E7FF5A5A5AFF0000000000000000000000000000
+          00007B7B7BFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EF
+          EFFFD6EFEFFFD6EFEFFFD6EFEFFF636363FF0000000000000000000000000000
+          00007B7B7BFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+          F7FFDEF7F7FFDEF7F7FFDEF7F7FF6B6B6BFF0000000000000000000000000000
+          0000848484FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+          F7FFDEF7F7FFDEF7F7FFDEF7F7FF737373FF0000000000000000000000000000
+          00007B7B7BFF848484FF848484FF848484FF848484FF848484FF848484FF8484
+          84FF848484FF848484FF848484FF737373FF0000000000000000
+        }
          ImageIndex = 10
          ShortCut = 121
          OnClick = aExitExecute
          ImageIndex = 10
          ShortCut = 121
          OnClick = aExitExecute
@@ -1967,6 +2110,42 @@ object MainForm: TMainForm
        object miUndo: TMenuItem
          Caption = 'Отменить'
          Enabled = False
        object miUndo: TMenuItem
          Caption = 'Отменить'
          Enabled = False
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000294A4AFF294A4AFF294A4AFF294A4AFF294A4AFF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00006B8484FF42635AFF294A4AFF294A4AFF0000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00006B8484FF42635AFF42635AFF294A4AFF0000000000000000000000000000
+          0000000000000000000000000000294A4AFF0000000000000000000000000000
+          00006B8484FF6B8484FF42635AFF294A4AFF294A4AFF00000000000000000000
+          000000000000000000000000000042635AFF294A4AFF00000000000000000000
+          00006B8484FF000000006B8484FF42635AFF294A4AFF294A4AFF000000000000
+          00000000000000000000294A4AFF42635AFF6B8484FF00000000000000000000
+          000000000000000000000000000042635AFF42635AFF294A4AFF294A4AFF294A
+          4AFF294A4AFF294A4AFF42635AFF42635AFF0000000000000000000000000000
+          00000000000000000000000000006B8484FF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF42635AFF6B8484FF0000000000000000000000000000
+          0000000000000000000000000000000000006B8484FF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF6B8484FF000000000000000000000000000000000000
+          000000000000000000000000000000000000000000006B8484FF6B8484FF6B84
+          84FF6B8484FF6B8484FF00000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 5
          ShortCut = 16474
          OnClick = aUndoExecute
          ImageIndex = 5
          ShortCut = 16474
          OnClick = aUndoExecute
@@ -1977,6 +2156,42 @@ object MainForm: TMainForm
        object miCopy: TMenuItem
          Caption = 'Копировать объект'
          Enabled = False
        object miCopy: TMenuItem
          Caption = 'Копировать объект'
          Enabled = False
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000006B6B6BFF292929FF212121FF1818
+          18FF181818FF181818FF181818FF181818FF181818FF4A4A4AFF000000000000
+          000000000000000000000000000000000000424242FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF6B6B6BFF2929
+          29FF212121FF181818FF181818FF181818FF424242FFFFFFFFFFE7C6C6FFE7C6
+          C6FFE7C6C6FFE7C6C6FFE7C6C6FFE7C6C6FFFFFFFFFF313131FF424242FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4A4A4AFFFFFFFFFFEFCECEFFEFCE
+          CEFFEFCECEFFEFCECEFFEFCECEFFEFCECEFFFFFFFFFF313131FF424242FFFFFF
+          FFFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFF5A5A5AFFFFFFFFFFF7D6DEFFF7D6
+          DEFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6DEFFFFFFFFFF424242FF4A4A4AFFFFFF
+          FFFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FF5A5A5AFFFFFFFFFFF7D6DEFFF7D6
+          DEFFF7D6DEFFF7D6DEFFF7D6DEFFF7D6DEFFFFFFFFFF424242FF5A5A5AFFFFFF
+          FFFFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDE
+          DEFFFFDEDEFFFFDEDEFFFFDEDEFFE7C6C6FFDEDEDEFF525252FF5A5A5AFFFFFF
+          FFFFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDE
+          DEFFFFDEDEFFF7F7F7FFD6D6D6FFB5B5B5FF9C9C9CFF525252FF6B6B6BFFFFFF
+          FFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FF6B6B6BFFFFFFFFFFFFDEDEFFFFDE
+          DEFFFFDEDEFFF7F7F7FF949494FF737373FF5A5A5AFF5A5A5AFF6B6B6BFFFFFF
+          FFFFDEF7F7FFDEF7F7FFDEF7F7FFF7F7F7FF6B6B6BFFFFFFFFFFFFE7EFFFFFE7
+          EFFFFFE7EFFFF7F7F7FFA5A5A5FFFFFFFFFFFFFFFFFF5A5A5AFF6B6B6BFFFFFF
+          FFFFDEF7F7FFDEF7F7FFDEF7F7FFF7F7F7FF6B6B6BFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFCECECEFFDEB5BDFF737373FF000000006B6B6BFFFFFF
+          FFFFE7FFF7FFE7FFF7FFE7FFF7FFF7F7F7FF737373FF737373FF737373FF7373
+          73FF7B7B7BFF848484FF848484FF848484FF00000000000000006B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECECEFFB5D6CEFF737373FF0000
+          0000000000000000000000000000000000000000000000000000737373FF7373
+          73FF737373FF737373FF7B7B7BFF848484FF848484FF848484FF000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 8
          ShortCut = 16451
          OnClick = aCopyObjectExecute
          ImageIndex = 8
          ShortCut = 16451
          OnClick = aCopyObjectExecute
@@ -1984,12 +2199,84 @@ object MainForm: TMainForm
        object miCut: TMenuItem
          Caption = 'Вырезать объект'
          Enabled = False
        object miCut: TMenuItem
          Caption = 'Вырезать объект'
          Enabled = False
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000295239FF315A4AFF295239FF0000000000000000000000002952
+          39FF31634AFF214A31FF00000000000000000000000000000000000000000000
+          0000315242FF52846BFF528C6BFF5A8C73FF4A6B5AFF00000000426B5AFF5A84
+          73FF5A9473FF639473FF214A31FF000000000000000000000000000000000000
+          0000294231FF4A7B63FF0000000000000000637B73FF396352FF5A7B6BFF0000
+          000000000000527B63FF395A42FF000000000000000000000000000000000000
+          0000000000004A6B5AFF000000000000000000000000426B5AFF000000000000
+          000000000000527B63FF00000000000000000000000000000000000000000000
+          0000000000004A6B5AFF527363FF00000000315A4AFF4A7B6BFF295A4AFF0000
+          00004A7363FF4A6B5AFF00000000000000000000000000000000000000000000
+          000000000000000000004A6B5AFF6B8C7BFF52846BFF6B9C8CFF6B9C8CFF5273
+          63FF526B63FF0000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000004A4A4AFF4A4A4AFF4A4A4AFF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000004A4A4AFF6B6B6BFF4A4A4AFF6B6B6BFF4A4A
+          4AFF000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000006B6B6BFF848484FF4A4A4AFF848484FF6B6B
+          6BFF000000000000000000000000000000000000000000000000000000000000
+          000000000000000000004A4A4AFF6B6B6BFFA5A5A5FF00000000A5A5A5FF6B6B
+          6BFF4A4A4AFF0000000000000000000000000000000000000000000000000000
+          000000000000000000006B6B6BFF848484FFA5A5A5FF00000000A5A5A5FF8484
+          84FF6B6B6BFF0000000000000000000000000000000000000000000000000000
+          00000000000000000000848484FFA5A5A5FF000000000000000000000000A5A5
+          A5FF848484FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000848484FFA5A5A5FF000000000000000000000000A5A5
+          A5FF848484FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000A5A5A5FFA5A5A5FF000000000000000000000000A5A5
+          A5FFA5A5A5FF0000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 7
          ShortCut = 16472
          OnClick = aCutObjectExecute
        end
        object miPaste: TMenuItem
          Caption = 'Вставить объект'
          ImageIndex = 7
          ShortCut = 16472
          OnClick = aCutObjectExecute
        end
        object miPaste: TMenuItem
          Caption = 'Вставить объект'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF292929FF292929FF212121FF000000000000000000000000393939FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFF000000FF000000FF292929FF000000000000000000000000424242FFFFFF
+          FFFF8C0000FFFFDEDEFFFFDEDEFFFFDEDEFFFFDEDEFFFFDEDEFFFFDEDEFFFFFF
+          FFFFDEDEDEFF000000FF292929FF0000000000000000000000004A4A4AFFFFFF
+          FFFFBD0000FFFFDEDEFF4A6352FF42635AFF42635AFF42635AFF42635AFF4263
+          5AFFDEDEDEFF000000FF393939FF0000000000000000000000004A4A4AFFFFFF
+          FFFFD60000FFFFDEDEFF6B8484FF5A7373FF5A7373FF5A7373FF42635AFFFFFF
+          FFFF000000FF000000FF393939FF000000000000000000000000525252FFFFFF
+          FFFFEF0000FFFFDEDEFF6B8484FF5A7373FF5A7373FF42635AFF42635AFFFFFF
+          FFFF000000FF000000FF393939FF000000000000000000000000525252FFFFFF
+          FFFFFFFFFFFFFFFFFFFF6B8484FF5A7373FF6B8484FF5A7373FF42635AFF4263
+          5AFFDEDEDEFF080808FF424242FF0000000000000000000000005A5A5AFF0808
+          08FF080808FFDEDEDEFF6B8484FF6B8484FF6B8484FF6B8484FF5A7373FF4263
+          5AFF42635AFFEFEFEFFF181818FF181818FF181818FF4A4A4AFF5A5A5AFF0808
+          08FF212929FFDEE7E7FF6B8484FFDEE7E7FFF7F7F7FF6B8484FF6B8484FF5A73
+          73FF42635AFF42635AFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF7B7B7BFF2129
+          29FF212929FFF7F7F7FFF7F7F7FFF7F7F7FF212929FFF7F7F7FF6B8484FF6B84
+          84FF5A7373FF42635AFF42635AFFFFFFFFFFFFFFFFFF313131FF5A5A5AFF3139
+          39FF313939FF313939FF313939FF313939FF313939FF313939FFFFFFFFFF6B84
+          84FF6B8484FF42635AFFFFFFFFFFFFFFFFFFDEDEDEFF525252FF7B7B7BFF3942
+          42FF394242FF394242FF394242FF394242FF394242FF394242FF6B6B6BFFFFFF
+          FFFF6B8484FFFFFFFFFFFFFFFFFFB5B5B5FF9C9C9CFF525252FF848484FF525A
+          5AFF4A5A52FF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF6B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFF949494FF737373FF5A5A5AFF5A5A5AFF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF6B6B6BFFFFFF
+          FFFFFFE7EFFFF7F7F7FFA5A5A5FFFFFFFFFFFFFFFFFF5A5A5AFF000000000000
+          00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFFCECECEFFDEB5BDFF737373FF00000000000000000000
+          0000000000000000000000000000000000000000000000000000737373FF7373
+          73FF737373FF848484FF848484FF848484FF0000000000000000
+        }
          ImageIndex = 9
          ShortCut = 16470
          OnClick = aPasteObjectExecute
          ImageIndex = 9
          ShortCut = 16470
          OnClick = aPasteObjectExecute
@@ -1999,6 +2286,42 @@ object MainForm: TMainForm
        end
        object miSelectAll: TMenuItem
          Caption = 'Выделить все объекты'
        end
        object miSelectAll: TMenuItem
          Caption = 'Выделить все объекты'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FF0000
+          63FF000063FF000063FF000063FF00006BFF000063FF000063FF000063FF0000
+          6BFF000063FF000000FF000000FF000000FF000000FF292929FF424242FF0000
+          73FF000073FF000073FF000073FF000073FF000073FF000073FF000073FF0000
+          73FF000073FF000000FF000000FF000000FF000000FF292929FF4A4A4AFF0000
+          84FF000084FF000084FF000084FF000084FF000084FF000084FF000084FF0000
+          84FF000084FF000000FF000000FF000084FF000084FF393939FF4A4A4AFF0000
+          94FF000094FF000094FF000094FF000094FF000094FF000094FF000094FF0000
+          94FF000094FF000000FF000000FF000000FF000000FF393939FF525252FF0000
+          A5FF0000A5FF0000A5FF00009CFF00009CFF00009CFF0000A5FF0000A5FF0000
+          A5FF0000A5FF000000FF000000FF000000FF000000FF393939FF525252FF0000
+          ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000ADFF0000
+          ADFF0000ADFF080808FF000000FF0000ADFF0000ADFF424242FF5A5A5AFF0808
+          08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+          08FF080808FF080808FF000000FF000000FF000000FF424242FF5A5A5AFF0008
+          08FF000808FF000808FF000808FF000808FF000808FF000808FF000808FF0008
+          08FF000808FF000808FF000808FF000808FF000808FF4A4A4AFF636363FF0810
+          08FF081008FF081008FF081008FF081008FF081008FF081008FF081008FF0810
+          08FF081008FF081008FF081008FF2929ADFF2929ADFF4A4A4AFF6B6B6BFF3939
+          ADFF3939ADFF3939ADFF3939ADFF3939ADFF3939ADFF3939ADFF3939ADFF1018
+          10FF101810FF101810FF101810FF101810FF101810FF525252FF7B7B7BFF1821
+          21FF182121FF182121FF182121FF182121FF182121FF182121FF4A4AADFF1821
+          21FF182121FF182121FF182121FF182121FF182121FF5A5A5AFF7B7B7BFF2129
+          29FF212929FF212929FF212929FF212929FF212929FF212929FF212929FF2129
+          29FF212929FF212929FF212929FF5252ADFF5252ADFF636363FF7B7B7BFF2929
+          31FF292931FF292931FF292931FF292931FF292931FF292931FF292931FF2929
+          31FF292931FF292931FF292931FF292931FF292931FF6B6B6BFF848484FF525A
+          5AFF4A5A52FF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A
+          5AFF525A5AFF525A5AFF525A5AFF4A5A52FF4A5A52FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 24
          ShortCut = 16449
          OnClick = aSelectAllExecute
          ImageIndex = 24
          ShortCut = 16449
          OnClick = aSelectAllExecute
@@ -2009,6 +2332,42 @@ object MainForm: TMainForm
        object miToFore: TMenuItem
          Caption = 'Передвинуть вперед'
          Enabled = False
        object miToFore: TMenuItem
          Caption = 'Передвинуть вперед'
          Enabled = False
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000003139ADFF10219CFF10219CFF1021
+          9CFF10219CFF10219CFF10219CFF10219CFF10219CFF10219CFF000000000000
+          0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          00000000000042635AFF294A4AFF294A4AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000005A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000005A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF39524AFF2942
+          39FF294239FF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF4A5AB5FF4A5AB5FF4A5A
+          B5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF3139ADFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A73
+          6BFF5A736BFF5A736BFF42635AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF2942
+          39FF000000000000000000000000000000000000000000000000425A52FF3952
+          4AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF2942
+          39FF000000000000000000000000000000000000000000000000425A52FF425A
+          52FF425A52FF425A52FF425A52FF425A52FF425A52FF425A52FF425A52FF3952
+          4AFF000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 25
          ShortCut = 16605
          OnClick = aMoveToFore
          ImageIndex = 25
          ShortCut = 16605
          OnClick = aMoveToFore
@@ -2016,6 +2375,42 @@ object MainForm: TMainForm
        object miToBack: TMenuItem
          Caption = 'Передвинуть назад'
          Enabled = False
        object miToBack: TMenuItem
          Caption = 'Передвинуть назад'
          Enabled = False
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000005A7373FF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF000000000000
+          0000000000000000000000000000000000006B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF000000000000
+          0000000000000000000000000000000000006B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF000000000000
+          00000000000042635AFF294A4AFF294A4AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF000000000000
+          0000000000005A736BFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF000000000000
+          0000000000005A736BFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF3139ADFF1021
+          9CFF10219CFF5A736BFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF4A5AB5FF3139
+          ADFF3139ADFF5A736BFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF4A5AB5FF3139
+          ADFF3139ADFF5A736BFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+          73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF42635AFF4A5AB5FF3139
+          ADFF3139ADFF5A736BFF42635AFF42635AFF6B8484FF6B8484FF6B8484FF6B84
+          84FF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF5A7373FF4A5AB5FF3139
+          ADFF3139ADFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF0000000000000000000000004A5AB5FF3139
+          ADFF3139ADFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF0000000000000000000000004A5AB5FF3139
+          ADFF3139ADFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A73
+          6BFF5A736BFF5A736BFF42635AFF0000000000000000000000004A5AB5FF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF1021
+          9CFF0000000000000000000000000000000000000000000000004A5AB5FF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF1021
+          9CFF0000000000000000000000000000000000000000000000004A5AB5FF4A5A
+          B5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF3139
+          ADFF000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 13
          ShortCut = 16603
          OnClick = aMoveToBack
          ImageIndex = 13
          ShortCut = 16603
          OnClick = aMoveToBack
@@ -2025,29 +2420,209 @@ object MainForm: TMainForm
        Caption = 'Инструменты'
        object miSnapToGrid: TMenuItem
          Caption = 'Привязка к сетке'
        Caption = 'Инструменты'
        object miSnapToGrid: TMenuItem
          Caption = 'Привязка к сетке'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF292929FF424242FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF292929FF4A4A4AFF6F54
+          38FF6F5438FF6F5438FF393939FF6F5438FF6F5438FF6F5438FF393939FF6F54
+          38FF6F5438FF6F5438FF393939FF6F5438FF6F5438FF393939FF4A4A4AFF6F54
+          38FF6F5438FFFFFFFFFF6F5438FF6F5438FF6F5438FFFFFFFFFF6F5438FF6F54
+          38FF6F5438FFFFFFFFFF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF424242FF5A5A5AFF7157
+          3CFF71573CFF71573CFF393939FF71573CFF71573CFF71573CFF393939FF7157
+          3CFF71573CFF71573CFF393939FF71573CFF71573CFF424242FF5A5A5AFF745B
+          40FF745B40FFFFFFFFFF745B40FF745B40FF745B40FFFFFFFFFF745B40FF745B
+          40FF745B40FFFFFFFFFF745B40FF745B40FF745B40FF4A4A4AFF636363FF775F
+          44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F
+          44FF775F44FF775F44FF775F44FF775F44FF775F44FF4A4A4AFF6B6B6BFF7A64
+          4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A64
+          4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF525252FF7B7B7BFF7E69
+          50FF7E6950FF7E6950FF393939FF7E6950FF7E6950FF7E6950FF393939FF7E69
+          50FF7E6950FF7E6950FF393939FF7E6950FF7E6950FF5A5A5AFF7B7B7BFF826F
+          57FF826F57FFFFFFFFFF826F57FF826F57FF826F57FFFFFFFFFF826F57FF826F
+          57FF826F57FFFFFFFFFF826F57FF826F57FF826F57FF636363FF7B7B7BFF8676
+          5EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF8676
+          5EFF86765EFF86765EFF86765EFF86765EFF86765EFF6B6B6BFF848484FF8B7C
+          65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C
+          65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 20
          ShortCut = 16465
          OnClick = miSnapToGridClick
        end
        object miMiniMap: TMenuItem
          Caption = 'Мини-карта'
          ImageIndex = 20
          ShortCut = 16465
          OnClick = miSnapToGridClick
        end
        object miMiniMap: TMenuItem
          Caption = 'Мини-карта'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFF000000FF000000FF000000FF000000FF292929FF424242FFFFFF
+          FFFF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C00
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF292929FF4A4A4AFFFFFF
+          FFFFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD00
+          00FFFFFFFFFF000000FF000000FFC6C6C6FFC6C6C6FF393939FF4A4A4AFFFFFF
+          FFFFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD600
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF393939FF525252FFFFFF
+          FFFFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF00
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF393939FF525252FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF00
+          00FFFFFFFFFF080808FF080808FFC6C6C6FFC6C6C6FF424242FF5A5A5AFF0808
+          08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+          08FF080808FF080808FF080808FF080808FF080808FF424242FF5A5A5AFF0808
+          08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+          08FF080808FF080808FF080808FF080808FF080808FF4A4A4AFF636363FF0818
+          10FF081810FF081810FF081810FF081810FF081810FF081810FF081810FF0818
+          10FF081810FF081810FF081810FFC6C6C6FFC6C6C6FF4A4A4AFF6B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1821
+          18FF182118FF182118FF182118FF182118FF182118FF525252FF7B7B7BFF2129
+          29FF212929FF212929FF212929FF212929FF212929FF212929FFFFFFFFFF2129
+          29FF212929FF212929FF212929FF212929FF212929FF5A5A5AFF7B7B7BFF3139
+          39FF313939FF313939FF313939FF313939FF313939FF313939FF313939FF3139
+          39FF313939FF313939FF313939FFC6C6C6FFC6C6C6FF636363FF7B7B7BFF3942
+          42FF394242FF394242FF394242FF394242FF394242FF394242FF394242FF3942
+          42FF394242FF394242FF394242FF394242FF394242FF6B6B6BFF848484FF525A
+          5AFF4A5A52FF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A
+          5AFF525A5AFF525A5AFF525A5AFF4A5A52FF4A5A52FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 14
          ShortCut = 16471
          OnClick = miMiniMapClick
        end
        object miSwitchGrid: TMenuItem
          Caption = 'Переключить сетку'
          ImageIndex = 14
          ShortCut = 16471
          OnClick = miMiniMapClick
        end
        object miSwitchGrid: TMenuItem
          Caption = 'Переключить сетку'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF292929FF424242FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FFFFFFFFFF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FFFFFFFFFF6F5438FF292929FF4A4A4AFF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF4A4A4AFF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF424242FF5A5A5AFF7157
+          3CFF71573CFF71573CFF71573CFF71573CFF71573CFF71573CFF393939FF7157
+          3CFF71573CFF71573CFF71573CFF71573CFF393939FF424242FF5A5A5AFF745B
+          40FF745B40FF745B40FF745B40FF745B40FF745B40FFFFFFFFFF745B40FF745B
+          40FF745B40FF745B40FF745B40FFFFFFFFFF745B40FF4A4A4AFF636363FF775F
+          44FF775F44FF393939FF775F44FF775F44FF393939FF775F44FF775F44FF775F
+          44FF775F44FF775F44FF775F44FF775F44FF775F44FF4A4A4AFF6B6B6BFF7A64
+          4AFFFFFFFFFF7A644AFF7A644AFFFFFFFFFF7A644AFF7A644AFF7A644AFF7A64
+          4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF525252FF7B7B7BFF7E69
+          50FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E69
+          50FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF5A5A5AFF7B7B7BFF826F
+          57FF826F57FF393939FF826F57FF826F57FF393939FF826F57FF826F57FF826F
+          57FF826F57FF826F57FF826F57FF826F57FF826F57FF636363FF7B7B7BFF8676
+          5EFFFFFFFFFF86765EFF86765EFFFFFFFFFF86765EFF86765EFF86765EFF8676
+          5EFF86765EFF86765EFF86765EFF86765EFF86765EFF6B6B6BFF848484FF8B7C
+          65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C
+          65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 19
          ShortCut = 16453
          OnClick = miSwitchGridClick
        end
        object miShowEdges: TMenuItem
          Caption = 'Границы карты'
          ImageIndex = 19
          ShortCut = 16453
          OnClick = miSwitchGridClick
        end
        object miShowEdges: TMenuItem
          Caption = 'Границы карты'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF292929FF424242FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF292929FF4A4A4AFF372E
+          24FF372E24FF372E24FF372E24FF372E24FF372E24FF372E24FF372E24FF372E
+          24FF372E24FF372E24FF6F5438FF6F5438FF6F5438FF393939FF4A4A4AFF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF372E24FF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF372E24FF6F5438FF6F5438FF6F5438FF393939FF525252FF6F54
+          38FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F5438FF6F54
+          38FF6F5438FF372E24FF6F5438FF6F5438FF6F5438FF424242FF5A5A5AFF7157
+          3CFF71573CFF71573CFF71573CFF71573CFF71573CFF71573CFF71573CFF7157
+          3CFF71573CFF382F25FF71573CFF71573CFF71573CFF424242FF5A5A5AFF745B
+          40FF745B40FF745B40FF745B40FF745B40FF745B40FF745B40FF745B40FF745B
+          40FF745B40FF393026FF745B40FF745B40FF745B40FF4A4A4AFF636363FF775F
+          44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F44FF775F
+          44FF775F44FF3A3228FF775F44FF775F44FF775F44FF4A4A4AFF6B6B6BFF7A64
+          4AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A644AFF7A64
+          4AFF7A644AFF3B332AFF7A644AFF7A644AFF7A644AFF525252FF7B7B7BFF7E69
+          50FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E6950FF7E69
+          50FF7E6950FF3D352CFF7E6950FF7E6950FF7E6950FF5A5A5AFF7B7B7BFF826F
+          57FF826F57FF826F57FF826F57FF826F57FF826F57FF826F57FF826F57FF826F
+          57FF826F57FF3E372FFF826F57FF826F57FF826F57FF636363FF7B7B7BFF8676
+          5EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF86765EFF8676
+          5EFF86765EFF403A31FF86765EFF86765EFF86765EFF6B6B6BFF848484FF8B7C
+          65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C65FF8B7C
+          65FF8B7C65FF413C34FF8B7C65FF8B7C65FF8B7C65FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 29
          OnClick = miShowEdgesClick
        end
        object miLayers: TMenuItem
          Caption = 'Слои'
          ImageIndex = 29
          OnClick = miShowEdgesClick
        end
        object miLayers: TMenuItem
          Caption = 'Слои'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000003139ADFF10219CFF10219CFF1021
+          9CFF10219CFF10219CFF10219CFF10219CFF10219CFF10219CFF000000000000
+          0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          00000000000042635AFF294A4AFF294A4AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000005A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF000000000000
+          0000000000005A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF39524AFF2942
+          39FF294239FF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF3139ADFF3139ADFF3139
+          ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF10219CFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF4A5AB5FF4A5AB5FF4A5AB5FF4A5A
+          B5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF3139ADFF425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+          5AFF42635AFF42635AFF294A4AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A73
+          6BFF5A736BFF5A736BFF42635AFF000000000000000000000000425A52FF3952
+          4AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF2942
+          39FF000000000000000000000000000000000000000000000000425A52FF3952
+          4AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF39524AFF2942
+          39FF000000000000000000000000000000000000000000000000425A52FF425A
+          52FF425A52FF425A52FF425A52FF425A52FF425A52FF425A52FF425A52FF3952
+          4AFF000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 25
          object miLayer1: TMenuItem
            Caption = 'Фон'
          ImageIndex = 25
          object miLayer1: TMenuItem
            Caption = 'Фон'
@@ -2101,22 +2676,166 @@ object MainForm: TMainForm
        Caption = 'Сервис'
        object miCheckMap: TMenuItem
          Caption = 'Проверка карты'
        Caption = 'Сервис'
        object miCheckMap: TMenuItem
          Caption = 'Проверка карты'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000042635AFF42635AFF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000000000000000000000000000000000006B8484FF6B8484FF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000042635AFF42635AFF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000000000000000000000000000000000006B8484FF5A7373FF4263
+          5AFF000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000000000000000000000000000006B8484FF6B84
+          84FF42635AFF0000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00005A7373FF42635AFF00000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00006B8484FF5A7373FF00000000000000000000000000000000000000000000
+          000000000000000000000000000042635AFF42635AFF00000000000000004263
+          5AFF5A7373FF6B8484FF00000000000000000000000000000000000000000000
+          00000000000000000000000000006B8484FF5A7373FF42635AFF42635AFF5A73
+          73FF6B8484FF0000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000006B8484FF6B8484FF6B8484FF6B84
+          84FF000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 17
          OnClick = aCheckMapExecute
        end
        object miOptimmization: TMenuItem
          Caption = 'Оптимизация карты'
          ImageIndex = 17
          OnClick = aCheckMapExecute
        end
        object miOptimmization: TMenuItem
          Caption = 'Оптимизация карты'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000000000000010219CFF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000000000000000000010219CFF3139ADFF10219CFF000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000003139ADFF4A5AB5FF3139ADFF000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000010219CFF3139ADFF000000003139ADFF10219CFF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000010219CFF3139ADFF4A5AB5FF000000004A5AB5FF3139ADFF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000003139ADFF4A5AB5FF0000000000000000000000003139ADFF1021
+          9CFF000000000000000000000000000000000000000000000000000000000000
+          0000000000004A5AB5FF000000000000000000000000000000004A5AB5FF3139
+          ADFF000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000003139
+          ADFF10219CFF10219CFF00000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000004A5A
+          B5FF3139ADFF3139ADFF10219CFF10219CFF0000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00004A5AB5FF4A5AB5FF3139ADFF3139ADFF0000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000000000004A5AB5FF4A5AB5FF0000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 18
          OnClick = aOptimizeExecute
        end
        object miMapPreview: TMenuItem
          Caption = 'Предварительный просмотр'
          ImageIndex = 18
          OnClick = aOptimizeExecute
        end
        object miMapPreview: TMenuItem
          Caption = 'Предварительный просмотр'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000C6CED6FFADB5B5FFADB5B5FFADB5B5FFADB5B5FFC6CE
+          D6FF000000000000000000000000000000000000000000000000000000000000
+          000000000000BDC6C6FF848C8CFF424242FF393939FF393939FF394242FF7B84
+          84FFBDC6CEFFC6CED6FF00000000000000000000000000000000000000000000
+          0000C6CED6FF292929FF636B6BFF9C9CA5FFADB5B5FFADB5B5FFBDC6C6FF737B
+          7BFF181818FF848C8CFFC6CED6FF000000000000000000000000000000000000
+          0000C6CECEFFADB5BDFFC6CED6FF394242FF000000FF000000FF181818FFADB5
+          B5FFADB5B5FF101010FF7B7B84FF000000000000000000000000000000000000
+          00009CA5ADFF9CA5ADFF212929FF000000FF000000FF000000FF000000FF0000
+          00FF94949CFF848C8CFF182121FF000000000000000000000000000000000000
+          00005A5A63FF848C8CFF000000FF424242FFC6CECEFF000000FF000000FF0000
+          00FF84848CFF313939FF293131FFB5BDBDFF0000000000000000000000000000
+          0000949C9CFF212121FF000000FF000000FF292929FF080808FF000000FF0000
+          00FF393939FF212929FF7B8484FF8C8C8CFF0000000000000000000000000000
+          00004A5252FF84848CFF73737BFF42424AFF101010FF181818FF101010FF5252
+          52FF5A6363FF8C8C94FF424242FF949C9CFF0000000000000000000000000000
+          0000949C9CFF4A4A4AFF737B7BFF737B7BFF949C9CFF94949CFF94949CFF7B84
+          84FF6B6B73FF525252FFA5A5ADFF000000000000000000000000000000000000
+          0000C6CED6FFBDC6C6FF84848CFF737B7BFF525252FF525252FF525252FF6B73
+          73FF848C8CFFBDBDC6FF00000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 23
          ShortCut = 9
          OnClick = miMapPreviewClick
        end
        object miTestMap: TMenuItem
          Caption = 'Тест карты в игре'
          ImageIndex = 23
          ShortCut = 9
          OnClick = miMapPreviewClick
        end
        object miTestMap: TMenuItem
          Caption = 'Тест карты в игре'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000000000000000000000000000004E6363FF4255
+          55FF364545FF00000000000000004E6363FF425555FF364545FF000000000000
+          00004E6363FF425555FF364545FF00000000000000000000000000000000788C
+          8CFF5A7373FF425454FF0000000000000000788C8CFF5A7373FF425454FF0000
+          000000000000788C8CFF5A7373FF425454FF0000000000000000000000000000
+          0000788C8CFF5A7373FF425454FF0000000000000000788C8CFF5A7373FF4254
+          54FF0000000000000000788C8CFF5A7373FF425454FF00000000000000000000
+          000000000000788C8CFF5A7373FF425454FF0000000000000000788C8CFF5A73
+          73FF425454FF0000000000000000788C8CFF5A7373FF425454FF000000000000
+          000000000000425454FF5A7373FF788C8CFF0000000000000000425454FF5A73
+          73FF788C8CFF0000000000000000425454FF5A7373FF788C8CFF000000000000
+          0000425454FF5A7373FF788C8CFF0000000000000000425454FF5A7373FF788C
+          8CFF0000000000000000425454FF5A7373FF788C8CFF00000000000000004254
+          54FF5A7373FF788C8CFF0000000000000000425454FF5A7373FF788C8CFF0000
+          000000000000425454FF5A7373FF788C8CFF0000000000000000687F7FFF798D
+          8DFF879999FF0000000000000000687F7FFF798D8DFF879999FF000000000000
+          0000687F7FFF798D8DFF879999FF000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
          ImageIndex = 27
          OnClick = miTestMapClick
        end
          ImageIndex = 27
          OnClick = miTestMapClick
        end
@@ -2125,6 +2844,42 @@ object MainForm: TMainForm
        Caption = 'Настройка'
        object miMapOptions: TMenuItem
          Caption = 'Карта'
        Caption = 'Настройка'
        object miMapOptions: TMenuItem
          Caption = 'Карта'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000292929FF2929
+          29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+          18FF181818FF292929FF292929FF212121FF212121FF212121FF393939FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFF000000FF000000FF000000FF000000FF292929FF424242FFFFFF
+          FFFF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C00
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF292929FF4A4A4AFFFFFF
+          FFFFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD00
+          00FFFFFFFFFF000000FF000000FFC6C6C6FFC6C6C6FF393939FF4A4A4AFFFFFF
+          FFFFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD600
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF393939FF525252FFFFFF
+          FFFFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF00
+          00FFFFFFFFFF000000FF000000FF000000FF000000FF393939FF525252FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF00
+          00FFFFFFFFFF080808FF080808FFC6C6C6FFC6C6C6FF424242FF5A5A5AFF0808
+          08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+          08FF080808FF080808FF080808FF080808FF080808FF424242FF5A5A5AFF0808
+          08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+          08FF080808FF080808FF080808FF080808FF080808FF4A4A4AFF636363FF0818
+          10FF081810FF081810FF081810FF081810FF081810FF081810FF081810FF0818
+          10FF081810FF081810FF081810FFC6C6C6FFC6C6C6FF4A4A4AFF6B6B6BFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1821
+          18FF182118FF182118FF182118FF182118FF182118FF525252FF7B7B7BFF2129
+          29FF212929FF212929FF212929FF212929FF212929FF212929FFFFFFFFFF2129
+          29FF212929FF212929FF212929FF212929FF212929FF5A5A5AFF7B7B7BFF3139
+          39FF313939FF313939FF313939FF313939FF313939FF313939FF313939FF3139
+          39FF313939FF313939FF313939FFC6C6C6FFC6C6C6FF636363FF7B7B7BFF3942
+          42FF394242FF394242FF394242FF394242FF394242FF394242FF394242FF3942
+          42FF394242FF394242FF394242FF394242FF394242FF6B6B6BFF848484FF525A
+          5AFF4A5A52FF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A5AFF525A
+          5AFF525A5AFF525A5AFF525A5AFF4A5A52FF4A5A52FF737373FF848484FF8484
+          84FF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+          8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF848484FF848484FF
+        }
          ImageIndex = 14
          ShortCut = 16461
          OnClick = aMapOptionsExecute
          ImageIndex = 14
          ShortCut = 16461
          OnClick = aMapOptionsExecute
@@ -2134,6 +2889,42 @@ object MainForm: TMainForm
        end
        object miOptions: TMenuItem
          Caption = 'Редактор'
        end
        object miOptions: TMenuItem
          Caption = 'Редактор'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000FF000000FF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFADADADFFBDBDBDFF000000FF316B63FF0042
+          39FF004239FF004239FF004239FF004239FF004239FF004239FF004239FF0000
+          00FF000000FF00000000000000FFB5B5B5FFCEC6CEFF000000FF5A8C84FF316B
+          63FF316B63FF316B63FF316B63FF316B63FF316B63FF316B63FF004239FF0000
+          00FF8C8C8CFF000000FFC6C6C6FFD6D6D6FF000000FF000000005A8C84FF316B
+          63FF316B63FF316B63FF316B63FF316B63FF316B63FF316B63FF004239FF0000
+          00FF9C9C9CFF8C8C8CFFCECECEFFDEDEDEFF000000FF000000005A8C84FF316B
+          63FF427B73FF10524AFF10524AFF10524AFF10524AFF10524AFF10524AFF0000
+          00FFC6C6C6FFD6D6D6FFE7E7E7FF8C8C8CFF000000FF000000FF5A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF427B73FF427B73FF427B73FF427B73FF0000
+          00FFCECECEFFDEDEDEFFEFEFEFFFFFFFFFFFFFFFFFFF000000FF5A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF5A8C8CFF216B5AFF216B5AFF216B5AFF0000
+          00FFDEDEDEFFEFEFEFFFF7F7F7FFFFFFFFFF000000FF000000005A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFE7E7E7FFF7F7F7FFFFFFFFFF000000FF00000000000000005A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFF7F7EFFFFFFFFFFF000000FF216B5AFF00000000000000005A8C84FF5A8C
+          84FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFF7F7F7FF000000FF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FF000000FF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF6BA59CFF6BA59CFF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00000000000000000000000000007BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00000000000000000000000000007BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5
+          B5FF7BB5B5FF7BB5B5FF7BB5B5FF5A8C8CFF0000000000000000
+        }
          ImageIndex = 16
          OnClick = aEditorOptionsExecute
        end
          ImageIndex = 16
          OnClick = aEditorOptionsExecute
        end
@@ -2149,6 +2940,42 @@ object MainForm: TMainForm
        Caption = 'Справка'
        object miAbout: TMenuItem
          Caption = 'О программе'
        Caption = 'Справка'
        object miAbout: TMenuItem
          Caption = 'О программе'
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000FF000000FF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFADADADFFBDBDBDFF000000FF316B63FF0042
+          39FF004239FF004239FF004239FF004239FF004239FF004239FF004239FF0000
+          00FF000000FF00000000000000FFB5B5B5FFCEC6CEFF000000FF5A8C84FF316B
+          63FF316B63FF316B63FF316B63FF316B63FF316B63FF316B63FF004239FF0000
+          00FF8C8C8CFF000000FFC6C6C6FFD6D6D6FF000000FF000000005A8C84FF316B
+          63FF316B63FF316B63FF316B63FF316B63FF316B63FF316B63FF004239FF0000
+          00FF9C9C9CFF8C8C8CFFCECECEFFDEDEDEFF000000FF000000005A8C84FF316B
+          63FF427B73FF10524AFF10524AFF10524AFF10524AFF10524AFF10524AFF0000
+          00FFC6C6C6FFD6D6D6FFE7E7E7FF8C8C8CFF000000FF000000FF5A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF427B73FF427B73FF427B73FF427B73FF0000
+          00FFCECECEFFDEDEDEFFEFEFEFFFFFFFFFFFFFFFFFFF000000FF5A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF5A8C8CFF216B5AFF216B5AFF216B5AFF0000
+          00FFDEDEDEFFEFEFEFFFF7F7F7FFFFFFFFFF000000FF000000005A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFE7E7E7FFF7F7F7FFFFFFFFFF000000FF00000000000000005A8C84FF316B
+          63FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFF7F7EFFFFFFFFFFF000000FF216B5AFF00000000000000005A8C84FF5A8C
+          84FF6BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FFF7F7F7FF000000FF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF0000
+          00FF000000FF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF427B73FF427B73FF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00006BA59CFF6BA59CFF6BA59CFF7BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00000000000000000000000000007BB5B5FF5A8C8CFF5A8C8CFF5A8C8CFF5A8C
+          8CFF5A8C8CFF5A8C8CFF5A8C8CFF216B5AFF0000000000000000000000000000
+          00000000000000000000000000007BB5B5FF7BB5B5FF7BB5B5FF7BB5B5FF7BB5
+          B5FF7BB5B5FF7BB5B5FF7BB5B5FF5A8C8CFF0000000000000000
+        }
          ImageIndex = 16
          OnClick = aAboutExecute
        end
          ImageIndex = 16
          OnClick = aAboutExecute
        end
@@ -2170,8 +2997,8 @@ object MainForm: TMainForm
    end
    object pmShow: TPopupMenu
      Images = ImageList
    end
    object pmShow: TPopupMenu
      Images = ImageList
-    Left = 128
-    Top = 64
+    left = 128
+    top = 64
      object miLayerP1: TMenuItem
        Caption = 'Фон'
        Checked = True
      object miLayerP1: TMenuItem
        Caption = 'Фон'
        Checked = True
@@ -2221,178 +3048,508 @@ object MainForm: TMainForm
    object ilToolbar: TImageList
      Height = 24
      Width = 24
    object ilToolbar: TImageList
      Height = 24
      Width = 24
-    Left = 64
-    Top = 101
+    left = 64
+    top = 101
      Bitmap = {
      Bitmap = {
-      494C010109000E00040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
-      0000000000003600000028000000600000006000000001002000000000000090
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      4C69090000001800000018000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000737373FF7373
+      73FF737373FF737373FF7B7B7BFF7B7B7BFF848484FF848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF0000000000000000000000000000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFCECECEFFFFFFFFFFB5D6CEFF737373FF00000000000000000000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFC6C6C6FFFFFFFFFFD6F7EFFFB5D6CEFF6B6B6BFF000000000000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FF
+      F7FFF7F7F7FFB5B5B5FFFFFFFFFFD6F7EFFFD6F7EFFFB5D6CEFF6B6B6BFF0000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FF
+      F7FFF7F7F7FFA5A5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5A5A5AFF0000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+      F7FFF7F7F7FF949494FF8C8C8CFF737373FF737373FF5A5A5AFF5A5A5AFF0000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+      F7FFF7F7F7FFD6D6D6FFC6C6C6FFB5B5B5FFADADADFF9C9C9CFF525252FF0000
+      00000000000000000000000000000000000000000000000000006B6B6BFFFFFF
+      FFFFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7F7FFDEF7
+      F7FFDEF7F7FFDEF7F7FFCEEFE7FFC6DEDEFFC6DEDEFFDEDEDEFF525252FF0000
+      0000000000000000000000000000000000000000000000000000636363FFFFFF
+      FFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7
+      EFFFD6F7EFFFD6F7EFFFD6F7EFFFD6F7EFFFDEFFF7FFFFFFFFFF4A4A4AFF0000
+      0000000000000000000000000000000000000000000000000000636363FFFFFF
+      FFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EF
+      EFFFD6EFEFFFD6EFEFFFD6EFEFFFD6EFEFFFDEF7F7FFFFFFFFFF4A4A4AFF0000
+      00000000000000000000000000000000000000000000000000005A5A5AFFFFFF
+      FFFFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EF
+      E7FFD6EFE7FFD6EFE7FFD6EFE7FFD6EFE7FFDEF7F7FFFFFFFFFF424242FF0000
+      00000000000000000000000000000000000000000000000000005A5A5AFFFFFF
+      FFFFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7
+      E7FFCEE7E7FFCEE7E7FFCEE7E7FFCEE7E7FFDEF7F7FFFFFFFFFF424242FF0000
+      0000000000000000000000000000000000000000000000000000525252FFFFFF
+      FFFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7
+      DEFFC6E7DEFFC6E7DEFFC6E7DEFFC6E7DEFFD6F7EFFFFFFFFFFF393939FF0000
+      00000000000000000000000000000000000000000000000000004A4A4AFFFFFF
+      FFFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+      DEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFD6EFEFFFFFFFFFFF393939FF0000
+      00000000000000000000000000000000000000000000000000004A4A4AFFFFFF
+      FFFFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DE
+      D6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFD6EFE7FFFFFFFFFF393939FF0000
+      00000000000000000000000000000000000000000000000000004A4A4AFFFFFF
+      FFFFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DE
+      D6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFD6EFE7FFFFFFFFFF393939FF0000
+      00000000000000000000000000000000000000000000000000004A4A4AFFFFFF
+      FFFFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDE
+      D6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFCEE7E7FFFFFFFFFF313131FF0000
+      00000000000000000000000000000000000000000000000000004A4A4AFFFFFF
+      FFFFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFBDDE
+      D6FFBDDED6FFBDDED6FFBDDED6FFBDDED6FFCEE7E7FFFFFFFFFF313131FF0000
+      0000000000000000000000000000000000000000000000000000424242FFFFFF
+      FFFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+      DEFFC6DEDEFFC6DEDEFFC6E7DEFFC6DEDEFFC6E7DEFFFFFFFFFF313131FF0000
+      0000000000000000000000000000000000000000000000000000424242FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929FF0000
+      00000000000000000000000000000000000000000000000000006B6B6BFF2929
+      29FF212121FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF4A4A4AFF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000848484FF9C9C9CFF9C9C9CFF9C9C
+      9CFF9C9C9CFF9C9C9CFF9C9C9CFF9C9C9CFF848484FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000848484FF949494FF949494FF9494
+      94FF949494FF949494FF949494FF949494FF848484FF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000007B7B7BFF948C8CFF948C94FF8C8C
+      8CFF8C948CFF8C8C94FF8C948CFF8C9494FF7B7B7BFF7B7B7BFF7B7B7BFF7B7B
+      7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF7B7B7BFF000000000000
+      000000000000000000000000000000000000737373FF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF6B6B6BFF6B6B6BFF6B6B6BFF6B6B6BFF6B6B6BFF6B6B6BFF6B6B
+      6BFF6B6B6BFF000000000000000000000000737373FF848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
+      84FF6B6B63FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFE7FFF7FFF7FF
+      FFFFEFFFFFFF8CA5A5FF00000000000000006B6B6BFF848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF6B6B
+      63FFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DE
+      DEFFD6EFE7FF8CA5A5FF0000000000000000636363FF7B7B7BFF7B7B7BFF7B7B
+      7BFF737373FF636363FF636363FF636363FF636363FF636363FF636363FF7B94
+      8CFFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFC6DED6FFCEE7
+      E7FFBDD6D6FF8CA5A5FF0000000000000000636363FF7B7373FF737373FF7373
+      73FF636363FF7B948CFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFC6DEDEFFBDD6
+      D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFBDD6D6FFCEE7DEFFBDD6
+      D6FF8CA5A5FF0000000000000000000000005A5A5AFF737373FF737373FF7373
+      73FF636363FFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CE
+      CEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFB5CECEFFBDD6D6FFC6DE
+      D6FF8CA5A5FF000000000000000000000000525252FF6B6B6BFF6B6B6BFF5A5A
+      5AFF7B948CFFB5CEC6FFB5CEC6FFB5CEC6FFB5CEC6FFB5CEC6FFB5CEC6FFB5CE
+      C6FFB5CEC6FFB5CEC6FFB5CEC6FFB5CEC6FFBDD6D6FFBDD6CEFFBDD6D6FFC6DE
+      D6FF8CA5A5FF000000000000000000000000525252FF636363FF636363FF5A5A
+      5AFFADC6C6FFADC6BDFFADC6BDFFADC6BDFFADC6BDFFADC6BDFFADC6C6FFADC6
+      BDFFADC6BDFFADC6BDFFADC6BDFFB5CECEFFADC6C6FFB5D6CEFFC6DEDEFFBDD6
+      D6FF8CA5A5FF0000000000000000000000004A4A4AFF5A6363FF636363FF5A52
+      5AFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BD
+      BDFFA5BDBDFFA5BDBDFFA5BDBDFFA5BDBDFFB5CEC6FFBDD6D6FFB5CECEFF8CA5
+      A5FF00000000000000000000000000000000424242FF5A5A5AFF525252FF7B94
+      8CFFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BDB5FFA5BD
+      B5FFA5BDB5FFA5BDB5FFA5BDB5FFADC6BDFFA5BDBDFFADC6BDFFADCEC6FF8CA5
+      A5FF00000000000000000000000000000000424242FF525252FF525252FF9CB5
+      ADFF9CB5ADFF9CB5ADFF9CB5ADFF9CB5ADFF9CB5ADFF9CB5ADFF9CB5ADFF9CB5
+      ADFF9CB5ADFF9CB5ADFFA5BDB5FF9CB5B5FFA5BDBDFFADCEC6FFADC6C6FF8CA5
+      A5FF00000000000000000000000000000000393939FF525252FF4A4A52FF94AD
+      ADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94ADADFF94AD
+      ADFF94ADADFF94ADADFF94ADADFFA5BDB5FF9CB5B5FF9CB5B5FFA5C6BDFF8CA5
+      A5FF00000000000000000000000000000000313139FF4A4A4AFF7B948CFF94AD
+      A5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94ADA5FF94AD
+      A5FF94ADA5FF94ADA5FF9CB5ADFF94ADADFF9CB5B5FF9CBDB5FF8CA5A5FF0000
+      000000000000000000000000000000000000313131FF4A4A4AFF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF8CA5A5FF94ADADFF8CA5A5FF94ADADFF8CA5A5FF9CBDB5FF8CA5A5FF0000
+      000000000000000000000000000000000000313131FF4A4A4AFF7B948CFF7B94
+      8CFF7B948CFF7B948CFF7B948CFF7B948CFF7B948CFF7B948CFF7B948CFF7B94
+      8CFF7B948CFF7B948CFF7B948CFF7B948CFF94ADADFF8CA5A5FF8CA5A5FF0000
+      0000000000000000000000000000000000000000000042424AFF42424AFF4242
+      4AFF42424AFF42424AFF42424AFF42424AFF42424AFF42424AFF42424AFF4242
+      4AFF42424AFF42424AFF42424AFF42424AFF42424AFF42424AFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000848484FF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C
+      8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8C8C8CFF8484
+      84FF00000000000000000000000000000000848484FFDEF7F7FFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FF9CB5ADFFB5CE
+      CEFF737373FF0000000000000000000000007B7B7BFFD6F7EFFFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADA5FFADCE
+      C6FF6B6B6BFF0000000000000000000000007B7B7BFFD6EFE7FFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADADFFADC6
+      C6FF636363FF0000000000000000000000007B7B7BFFCEE7DEFFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8CA5A5FFADC6
+      C6FF5A5A5AFF000000000000000000000000737373FFC6DED6FFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF849C9CFFA5C6
+      BDFF5A5A5AFF000000000000000000000000737373FFB5D6CEFFA5BDB5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF849C9CFFA5BD
+      B5FF5A5A5AFF0000000000000000000000006B6B6BFFB5CEC6FF9CB5B5FFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF849C94FF9CBD
+      B5FF525252FF0000000000000000000000006B6B6BFFADCEC6FF9CB5ADFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9C94FF9CB5
+      B5FF525252FF000000000000000000000000636363FFADC6C6FF94ADADFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FF7B9494FF94AD
+      ADFF4A4A4AFF0000000000000000000000005A5A5AFFADC6BDFF94ADA5FFE7E7
+      E7FFF7F7F7FFF7F7F7FFF7F7F7FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
+      EFFFEFEFEFFFEFEFEFFFEFEFEFFFF7F7F7FFEFEFEFFFDEDEDEFF73948CFF94AD
+      ADFF4A4A4AFF0000000000000000000000005A5A5AFFA5C6BDFF8CA59CFF8CA5
+      A5FF8CA5A5FF849C9CFF7B948CFF738C84FF738C84FF738C84FF738C84FF738C
+      84FF738C84FF738C8CFF738C8CFF738C8CFF738C8CFF738C8CFF6B8484FF8CAD
+      A5FF424242FF000000000000000000000000525252FFA5BDB5FFA5BDB5FFA5BD
+      B5FF9CB5B5FF94B5ADFF8CADA5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5A5FF8CA5
+      A5FF424242FF000000000000000000000000525252FF9CB5B5FF9CB5ADFF9C9C
+      9CFFB5CECEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADA5FF7B7B7BFF849C9CFF849C
+      9CFF393939FF0000000000000000000000004A4A4AFF94ADA5FF8CA5A5FF7B7B
+      7BFF9CB5B5FFFFFFFFFF5A736BFF6B8C84FF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9CB5B5FF6B6B6BFF849C9CFF849C
+      9CFF393939FF0000000000000000000000004A4A4AFF94ADA5FF8CA5A5FF7B7B
+      7BFF9CB5B5FFFFFFFFFF5A736BFF6B8C84FF8CA5A5FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9CB5B5FF6B6B6BFF849C9CFF849C
+      9CFF393939FF0000000000000000000000004A4A4AFF849C9CFF7B9C94FF7373
+      73FF94ADADFFFFFFFFFF52736BFF73948CFF94ADADFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF94ADADFF6B6B6BFF7B9C94FF7B9C
+      94FF313131FF000000000000000000000000424242FF7B9C94FF7B9C94FF6B6B
+      6BFF8CADA5FFFFFFFFFF6B847BFF738C8CFF94ADA5FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FF94ADADFF6B6B6BFF7B9C94FF7B9C
+      94FF313131FF000000000000000000000000424242FF7B9494FF7B9494FF6B6B
+      6BFF8CA59CFFFFFFFFFFE7E7E7FF9CB5ADFFA5BDB5FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFEFEFEFFFEFEFEFFFE7E7E7FF94ADA5FF6B6B6BFF7B9494FF7B94
+      94FF292929FF000000000000000000000000393939FF7B9494FF7B9494FF6363
+      63FF738C8CFFE7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFF7F7F7FFE7E7E7FFE7E7E7FFD6D6D6FF6B8C84FF5A5A5AFF7B9494FF7B94
+      94FF292929FF00000000000000000000000000000000292929FF212121FF1818
+      18FF181818FF181818FF181818FF181818FF181818FF181818FF181818FF1818
+      18FF181818FF181818FF181818FF181818FF292929FF292929FF212121FF2121
+      21FF000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000007B8C8CFF7B8C8CFF7B8C8CFF7B8C
+      8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C
+      8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C8CFF7B8C
+      8CFF7B8C8CFF0000000000000000000000007B8C8CFF4A5A52FF4A5A52FF4A5A
+      52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A
+      52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A52FF4A5A
+      52FF7B8C8CFF0000000000000000000000007B8C8CFF424A4AFF424A4AFF424A
+      4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A
+      4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A4AFF424A
+      4AFF7B8C8CFF0000000000000000000000007B8C8CFF394242FF394242FF3942
+      42FF394242FF394242FF394242FF394242FF394242FF394242FF394242FF3942
+      42FF394242FF394242FF394242FF394242FF394242FF394242FFA5ADADFFA5AD
+      ADFF7B8C8CFF000000000000000000000000848C8CFF313939FF313939FF3139
+      39FF313939FF313939FF313939FF313939FF313939FF313939FFCED6D6FF3139
+      39FF313939FF313939FF313939FF313939FF313939FF313939FF313939FF3139
+      39FF848C8CFF000000000000000000000000848C8CFF293131FF293131FF2931
+      31FF293131FF293131FF293131FF293131FF293131FF293131FFD6DEDEFF2931
+      31FF293131FF293131FF293131FF293131FF293131FF293131FF293131FF2931
+      31FF848C8CFF000000000000000000000000848C84FFDEE7E7FFDEE7E7FFDEE7
+      E7FFDEE7E7FFDEE7E7FFDEE7E7FFDEE7E7FFDEE7E7FFDEE7E7FFDEE7E7FF2129
+      29FF212929FF212929FF212929FF212929FF212929FF212929FFB5BDB5FFB5BD
+      B5FF848C84FF000000000000000000000000848484FF182118FF182118FF1821
+      18FF182118FF182118FF182118FF182118FF182118FF182118FF182118FF1821
+      18FF182118FF182118FF182118FF182118FF182118FF182118FF182118FF1821
+      18FF848484FF000000000000000000000000848484FF101810FF101810FF1018
+      10FF101810FF101810FF101810FF101810FF101810FF101810FF101810FF1018
+      10FF101810FF101810FF101810FF101810FF101810FF101810FF101810FF1018
+      10FF848484FF000000000000000000000000848484FF081010FF081010FF0810
+      10FF081010FF081010FF081010FF081010FF081010FF081010FF081010FF0810
+      10FF081010FF081010FF081010FF081010FF081010FF081010FFBDC6C6FFBDC6
+      C6FF848484FF000000000000000000000000848484FF080808FF080808FF0808
+      08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+      08FF080808FF080808FF080808FF080808FF080808FF080808FF080808FF0808
+      08FF848484FF000000000000000000000000848484FF000000FF000000FF0000
+      00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+      00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF00
+      00FFFF0000FFFF0000FFFFFFFFFF000000FF000000FF000000FFC6C6C6FFC6C6
+      C6FF848484FF000000000000000000000000848484FFFFFFFFFFFF0000FFFF00
+      00FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00
+      00FFFF0000FFFF0000FFFFFFFFFF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FFFFFFFFFFEF0000FFEF00
+      00FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF0000FFEF00
+      00FFEF0000FFEF0000FFFFFFFFFF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FFFFFFFFFFD60000FFD600
+      00FFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD60000FFD600
+      00FFD60000FFD60000FFFFFFFFFF000000FF000000FF000000FFC6C6C6FFC6C6
+      C6FF848484FF000000000000000000000000848484FFFFFFFFFFBD0000FFBD00
+      00FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD0000FFBD00
+      00FFBD0000FFBD0000FFFFFFFFFF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FFFFFFFFFFA50000FFA500
+      00FFA50000FFA50000FFA50000FFA50000FFA50000FFA50000FFA50000FFA500
+      00FFA50000FFA50000FFFFFFFFFF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FFFFFFFFFF8C0000FF8C00
+      00FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C0000FF8C00
+      00FF8C0000FF8C0000FFFFFFFFFF000000FF000000FF000000FFC6C6C6FFC6C6
+      C6FF848484FF000000000000000000000000848484FFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000
+      00FF848484FF000000000000000000000000848484FF848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
+      84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
+      84FF848484FF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF4A5AB5FF4A5AB5FF4A5A
+      B5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5AB5FF4A5A
+      B5FF3139ADFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF10219CFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF10219CFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139ADFF3139
+      ADFF10219CFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A736BFF5A73
+      6BFF5A736BFF5A736BFF5A736BFF5A736BFF42635AFF00000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF294A4AFF00000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF294A4AFF00000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF294A4AFF00000000000000000000
+      0000000000000000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF6B8484FF6B8484FF6B8484FF6B84
+      84FF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF6B8484FF6B84
+      84FF5A7373FF0000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000004A5AB5FF3139ADFF3139ADFF3139
+      ADFF5A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000003139ADFF10219CFF10219CFF1021
+      9CFF5A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      00005A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      00005A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      00005A736BFF42635AFF42635AFF42635AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      000042635AFF294A4AFF294A4AFF294A4AFF6B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000006B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000006B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000006B8484FF5A7373FF5A7373FF5A73
+      73FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A7373FF5A73
+      73FF42635AFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000005A7373FF42635AFF42635AFF4263
+      5AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF42635AFF4263
+      5AFF42635AFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF000000000000000000000000828282FFA8A191FFA8A191FFA8A1
+      91FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A1
+      91FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A1
+      91FF777777FF0000000000000000000000007E7E7EFFA59C8CFFFFFFFFFFA59C
+      8CFFA59C8CFFA59C8CFFFFFFFFFFA59C8CFFA59C8CFFA59C8CFFA59C8CFFA59C
+      8CFFA59C8CFFA59C8CFFA59C8CFFA59C8CFFA59C8CFFA59C8CFFA59C8CFFA59C
+      8CFF686868FF0000000000000000000000007D7D7DFFA19785FFA19785FF665F
+      54FFA19785FFA19785FFA19785FF665F54FFA19785FFA19785FFA19785FFA197
+      85FFA19785FFA19785FFA19785FFA19785FFA19785FFA19785FFA19785FFA197
+      85FF616161FF000000000000000000000000787878FF9D9280FF9D9280FF9D92
+      80FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D92
+      80FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D92
+      80FF5E5E5EFF000000000000000000000000757575FF9A8D7AFF9A8D7AFF9A8D
+      7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D
+      7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D
+      7AFF5B5B5BFF000000000000000000000000717171FF998C79FFFFFFFFFF9788
+      75FF978875FF978875FFFFFFFFFF978875FF978875FF978875FF978875FF9788
+      75FF978875FF978875FF978875FF978875FF978875FF978875FF978875FF9788
+      75FF585858FF0000000000000000000000006C6C6CFF93846FFF93846FFF5D53
+      46FF93846FFF93846FFF93846FFF5D5346FF93846FFF93846FFF93846FFF9384
+      6FFF93846FFF93846FFF93846FFF93846FFF93846FFF93846FFF93846FFF9384
+      6FFF555555FF000000000000000000000000686868FF917F6BFF917F6BFF917F
+      6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F
+      6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F
+      6BFF525252FF000000000000000000000000656565FF8E7C66FF8E7C66FF8E7C
+      66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FFFFFFFFFF8E7C66FF8E7C
+      66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FFFFFFFFFF8E7C
+      66FF4C4C4CFF0000000000000000000000005F5F5FFF8B7862FF8B7862FF8B78
+      62FF8B7862FF8B7862FF8B7862FF8B7862FF8B7862FF8B7862FF584C3EFF8B78
+      62FF8B7862FF8B7862FF8B7862FF8B7862FF8B7862FF8B7862FF8B7862FF584C
+      3EFF484848FF0000000000000000000000005B5B5BFF8A765FFF8A765FFF8A76
+      5FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A76
+      5FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A765FFF8A76
+      5FFF454545FF000000000000000000000000555555FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF404040FF000000000000000000000000525252FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF3C3C3CFF0000000000000000000000004C4C4CFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF383838FF0000000000000000000000004C4C4CFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF383838FF000000000000000000000000484848FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF333333FF000000000000000000000000434343FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF323232FF000000000000000000000000404040FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFFFFFFFFFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFFFFFFFFFF8873
+      5DFF2C2C2CFF0000000000000000000000003D3D3DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF56493BFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF5649
+      3BFF2A2A2AFF0000000000000000000000002C2C2CFF2C2C2CFF222222FF1F1F
+      1FFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C
+      1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF292929FF2A2A2AFF202020FF2525
+      25FF2C2C2CFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF000000000000000000000000828282FFA8A191FFA8A191FFA8A1
+      91FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A1
+      91FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A191FFA8A1
+      91FF777777FF0000000000000000000000007E7E7EFFA59C8CFFFFFFFFFFA59C
+      8CFFA59C8CFFA59C8CFFFFFFFFFFA59C8CFFA59C8CFFA59C8CFFFFFFFFFFA59C
+      8CFFA59C8CFFA59C8CFFFFFFFFFFA59C8CFFA59C8CFFA59C8CFFFFFFFFFFA59C
+      8CFF686868FF0000000000000000000000007D7D7DFFA19785FFA19785FF665F
+      54FFA19785FFA19785FFA19785FF665F54FFA19785FFA19785FFA19785FF665F
+      54FFA19785FFA19785FFA19785FF665F54FFA19785FFA19785FFA19785FF665F
+      54FF616161FF000000000000000000000000787878FF9D9280FF9D9280FF9D92
+      80FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D92
+      80FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D9280FF9D92
+      80FF5E5E5EFF000000000000000000000000757575FF9A8D7AFF9A8D7AFF9A8D
+      7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D
+      7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D7AFF9A8D
+      7AFF5B5B5BFF000000000000000000000000717171FF998C79FFFFFFFFFF9788
+      75FF978875FF978875FFFFFFFFFF978875FF978875FF978875FFFFFFFFFF9788
+      75FF978875FF978875FFFFFFFFFF978875FF978875FF978875FFFFFFFFFF9788
+      75FF585858FF0000000000000000000000006C6C6CFF93846FFF93846FFF5D53
+      46FF93846FFF93846FFF93846FFF5D5346FF93846FFF93846FFF93846FFF5D53
+      46FF93846FFF93846FFF93846FFF5D5346FF93846FFF93846FFF93846FFF5D53
+      46FF555555FF000000000000000000000000686868FF917F6BFF917F6BFF917F
+      6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F
+      6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F6BFF917F
+      6BFF525252FF000000000000000000000000656565FF8E7C66FF8E7C66FF8E7C
+      66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C
+      66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C66FF8E7C
+      66FF4C4C4CFF0000000000000000000000005F5F5FFF8B7862FFFFFFFFFF8B78
+      62FF8B7862FF8B7862FFFFFFFFFF8B7862FF8B7862FF8B7862FFFFFFFFFF8B78
+      62FF8B7862FF8B7862FFFFFFFFFF8B7862FF8B7862FF8B7862FFFFFFFFFF8B78
+      62FF484848FF0000000000000000000000005B5B5BFF8A765FFF8A765FFF574B
+      3CFF8A765FFF8A765FFF8A765FFF574B3CFF8A765FFF8A765FFF8A765FFF574B
+      3CFF8A765FFF8A765FFF8A765FFF574B3CFF8A765FFF8A765FFF8A765FFF574B
+      3CFF454545FF000000000000000000000000555555FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF404040FF000000000000000000000000525252FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF3C3C3CFF0000000000000000000000004C4C4CFF88735DFFFFFFFFFF8873
+      5DFF88735DFF88735DFFFFFFFFFF88735DFF88735DFF88735DFFFFFFFFFF8873
+      5DFF88735DFF88735DFFFFFFFFFF88735DFF88735DFF88735DFFFFFFFFFF8873
+      5DFF383838FF0000000000000000000000004C4C4CFF88735DFF88735DFF5649
+      3BFF88735DFF88735DFF88735DFF56493BFF88735DFF88735DFF88735DFF5649
+      3BFF88735DFF88735DFF88735DFF56493BFF88735DFF88735DFF88735DFF5649
+      3BFF383838FF000000000000000000000000484848FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF333333FF000000000000000000000000434343FF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF88735DFF8873
+      5DFF323232FF000000000000000000000000404040FF88735DFFFFFFFFFF8873
+      5DFF88735DFF88735DFFFFFFFFFF88735DFF88735DFF88735DFFFFFFFFFF8873
+      5DFF88735DFF88735DFFFFFFFFFF88735DFF88735DFF88735DFFFFFFFFFF8873
+      5DFF2C2C2CFF0000000000000000000000003D3D3DFF88735DFF88735DFF5649
+      3BFF88735DFF88735DFF88735DFF56493BFF88735DFF88735DFF88735DFF5649
+      3BFF88735DFF88735DFF88735DFF56493BFF88735DFF88735DFF88735DFF5649
+      3BFF2A2A2AFF0000000000000000000000002C2C2CFF2C2C2CFF222222FF1F1F
+      1FFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C
+      1CFF1C1C1CFF1C1C1CFF1C1C1CFF1C1C1CFF292929FF2A2A2AFF202020FF2525
+      25FF2C2C2CFF0000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
@@ -2410,10 +3567,54 @@ object MainForm: TMainForm
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000006B84
+      84FF6B8484FF6B8484FF00000000000000006B8484FF6B8484FF6B8484FF0000
+      0000000000006B8484FF6B8484FF6B8484FF0000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      000042635AFF5A7373FF6B8484FF000000000000000042635AFF5A7373FF6B84
+      84FF000000000000000042635AFF5A7373FF6B8484FF00000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      00000000000042635AFF5A7373FF6B8484FF000000000000000042635AFF5A73
+      73FF6B8484FF000000000000000042635AFF5A7373FF6B8484FF000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000042635AFF5A7373FF6B8484FF00000000000000004263
+      5AFF5A7373FF6B8484FF000000000000000042635AFF5A7373FF6B8484FF0000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000005A7373FF5A7373FF6B8484FF000000000000
+      00005A7373FF5A7373FF6B8484FF00000000000000005A7373FF5A7373FF6B84
+      84FF000000000000000000000000000000000000000000000000000000000000
+      000000000000000000006B8484FF5A7373FF42635AFF00000000000000006B84
+      84FF5A7373FF42635AFF00000000000000006B8484FF5A7373FF42635AFF0000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006B8484FF5A7373FF42635AFF00000000000000006B8484FF5A73
+      73FF42635AFF00000000000000006B8484FF5A7373FF42635AFF000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00006B8484FF5A7373FF42635AFF00000000000000006B8484FF5A7373FF4263
+      5AFF00000000000000006B8484FF5A7373FF42635AFF00000000000000000000
+      0000000000000000000000000000000000000000000000000000000000005A73
+      73FF42635AFF42635AFF00000000000000005A7373FF42635AFF42635AFF0000
+      0000000000005A7373FF42635AFF42635AFF0000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000FF000000FF0000
+      00FF000000FF00000000000000FF000000FF000000FF000000FF000000000000
+      00FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000
+      00FF000000000000000000000000000000000000000000000000000000FF0000
+      00FF0000000000000000000000FF000000FF0000000000000000000000000000
+      00FF000000FF00000000000000000000000000000000000000FF000000FF0000
+      0000000000000000000000000000000000000000000000000000000000FF0000
+      00FF0000000000000000000000FF000000FF000000FF00000000000000000000
+      00FF000000FF000000FF000000FF0000000000000000000000FF000000FF0000
+      0000000000000000000000000000000000000000000000000000000000FF0000
+      00FF0000000000000000000000FF000000FF0000000000000000000000000000
+      000000000000000000FF000000FF0000000000000000000000FF000000FF0000
+      0000000000000000000000000000000000000000000000000000000000FF0000
+      00FF0000000000000000000000FF000000FF000000FF000000FF000000000000
+      00FF000000FF000000FF000000FF0000000000000000000000FF000000FF0000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
@@ -2429,1006 +3630,111 @@ object MainForm: TMainForm
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D9CFF8D9D
+      9CFF8D9D9CFF000000000000000000000000828282FF9D9D9DFFF4F4F4FFC8C8
+      C8FF737373FFF4F4F4FFF0F0F0FFADADADFFADADADFFF4F4F4FFADADADFFF4F4
+      F4FF9D9D9DFFEAEAEAFFC8C8C8FFF4F4F4FF9D9D9DFFEAEAEAFFBCBCBCFFDDDD
+      DDFF777777FF0000000000000000000000007E7E7EFF9D9D9DFFF0F0F0FF9D9D
+      9DFFADADADFFF4F4F4FFC8C8C8FFEAEAEAFF9D9D9DFFF4F4F4FF898989FFADAD
+      ADFFADADADFFDDDDDDFFDDDDDDFFF4F4F4FFADADADFFF4F4F4FFDDDDDDFFDDDD
+      DDFF686868FF0000000000000000000000007D7D7DFFEAEAEAFF737373FFC8C8
+      C8FFADADADFFF4F4F4FF9D9D9DFFADADADFF898989FFD4D4D4FFADADADFFF4F4
+      F4FFF4F4F4FFE4E4E4FFC8C8C8FFF4F4F4FFADADADFFF4F4F4FFDDDDDDFFDDDD
+      DDFF616161FF000000000000000000000000787878FFF4F4F4FF898989FFF4F4
+      F4FFC8C8C8FFF4F4F4FFBCBCBCFFF4F4F4FFF4F4F4FFBCBCBCFFC8C8C8FFF4F4
+      F4FFF4F4F4FFF4F4F4FFADADADFFADADADFFE4E4E4FFEAEAEAFF9D9D9DFF9D9D
+      9DFF5E5E5EFF000000000000000000000000757575FFF2F2F2FFF2F2F2FFF2F2
+      F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
+      F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2
+      F2FF5B5B5BFF000000000000000000000000717171FFC6A069FFC6A069FFC6A0
+      69FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A0
+      69FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A0
+      69FF585858FF0000000000000000000000006C6C6CFFC6A069FFC6A069FFC6A0
+      69FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A0
+      69FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A069FFC6A0
+      69FF555555FF000000000000000000000000686868FFD2B790FFC6A069FFC6A0
+      69FFE9E0D1FFC6A069FFC6A069FFE7DAC6FFD2B790FFC6A069FFE7DAC6FFEEE5
+      DAFFDDC9B0FFC6A069FFDDC9B0FFEEE5DAFFCCAD7CFFD2B790FFEEE5DAFFDDC9
+      B0FF525252FF000000000000000000000000656565FFEFE8DEFFC2975CFFDAC7
+      A8FFFAF8F5FFC2975CFFC2975CFFF3EEE7FFE9DECCFFC2975CFFEDE4D7FFC297
+      5CFFF3EEE7FFC7A56FFFEDE4D7FFC7A56FFFEFE8DEFFCDAE83FFC2975CFFEFE8
+      DEFF4C4C4CFF0000000000000000000000005F5F5FFFEEE7DDFFBE9258FFEEE7
+      DDFFECE2D5FFBE9258FFDECDB1FFD3B892FFEEE7DDFFBE9258FFEEE7DDFFD8C3
+      A5FFF2EDE6FFD8C3A5FFD8C3A5FFBE9258FFECE2D5FFBE9258FFBE9258FFEEE7
+      DDFF484848FF0000000000000000000000005B5B5BFFD8C1A0FFEBE0D3FFE7DA
+      CBFFEBE0D3FFBF9154FFEFE6DCFFEBE1D4FFF5F0EBFFD2B790FFEFE6DCFFD8C1
+      A0FFBF9154FFD8C1A0FFDECAB1FFBF9154FFEBE0D3FFBF9154FFEEE5DCFFD2B7
+      90FF454545FF000000000000000000000000555555FFBC8B51FFFBFAF9FFC399
+      63FFEBE1D4FFBC8B51FFEEE5DCFFBC8B51FFC39963FFEEE5DCFFEBE1D4FFBC8B
+      51FFBC8B51FFBC8B51FFF2EBE5FFEBE1D4FFDDC9B0FFE2D3BEFFF5EFEBFFEBE1
+      D4FF404040FF000000000000000000000000525252FFBC8B51FFBC8B51FFBC8B
+      51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B
+      51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B
+      51FF3C3C3CFF0000000000000000000000004C4C4CFFBC8B51FFBC8B51FFBC8B
+      51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B
+      51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B51FFBC8B
+      51FF383838FF0000000000000000000000004C4C4CFFE5E5E5FFE5E5E5FFE5E5
+      E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5
+      E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5
+      E5FF383838FF000000000000000000000000484848FFE5E5E5FFE5E5E5FFE5E5
+      E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5
+      E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5E5FFE5E5
+      E5FF333333FF000000000000000000000000434343FF9E9E9EFFE5E5E5FFDEDE
+      DEFF0C0C0CFFE5E5E5FFE5E5E5FF232323FFB1B1B1FFE5E5E5FF464646FF6F6F
+      6FFF464646FFE5E5E5FF585858FF585858FFB1B1B1FF9E9E9EFF6F6F6FFF6F6F
+      6FFF323232FF000000000000000000000000404040FF464646FFE5E5E5FF6F6F
+      6FFF464646FFE5E5E5FFD6D6D6FF9E9E9EFF6F6F6FFFE5E5E5FF6F6F6FFFE5E5
+      E5FF585858FFCDCDCDFFB1B1B1FFE5E5E5FF585858FFE5E5E5FFDEDEDEFF5858
+      58FF2C2C2CFF0000000000000000000000003D3D3DFF898989FFD6D6D6FF6F6F
+      6FFF6F6F6FFFE5E5E5FF898989FFB1B1B1FF323232FFDEDEDEFF464646FF6F6F
+      6FFFB1B1B1FFC0C0C0FFC0C0C0FFE5E5E5FF6F6F6FFFD6D6D6FF6F6F6FFF6F6F
+      6FFF2A2A2AFF0000000000000000000000002A2A2AFF2A2A2AFF2A2A2AFF2A2A
+      2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A
+      2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A2AFF2A2A
+      2AFF2A2A2AFF0000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000002A2A2A002A2A2A002A2A
-      2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A
-      2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A2A002A2A
-      2A002A2A2A002A2A2A0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000003D3D3D0089898900D6D6
-      D6006F6F6F006F6F6F00E5E5E50089898900B1B1B10032323200DEDEDE004646
-      46006F6F6F00B1B1B100C0C0C000C0C0C000E5E5E5006F6F6F00D6D6D6006F6F
-      6F006F6F6F002A2A2A0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004040400046464600E5E5
-      E5006F6F6F0046464600E5E5E500D6D6D6009E9E9E006F6F6F00E5E5E5006F6F
-      6F00E5E5E50058585800CDCDCD00B1B1B100E5E5E50058585800E5E5E500DEDE
-      DE00585858002C2C2C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000434343009E9E9E00E5E5
-      E500DEDEDE000C0C0C00E5E5E500E5E5E50023232300B1B1B100E5E5E5004646
-      46006F6F6F0046464600E5E5E5005858580058585800B1B1B1009E9E9E006F6F
-      6F006F6F6F003232320000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000048484800E5E5E500E5E5
-      E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5
-      E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5
-      E500E5E5E5003333330000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004C4C4C00E5E5E500E5E5
-      E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5
-      E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5E500E5E5
-      E500E5E5E5003838380000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004C4C4C00BC8B5100BC8B
-      5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B
-      5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B
-      5100BC8B51003838380000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000052525200BC8B5100BC8B
-      5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B
-      5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B5100BC8B
-      5100BC8B51003C3C3C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000055555500BC8B5100FBFA
-      F900C3996300EBE1D400BC8B5100EEE5DC00BC8B5100C3996300EEE5DC00EBE1
-      D400BC8B5100BC8B5100BC8B5100F2EBE500EBE1D400DDC9B000E2D3BE00F5EF
-      EB00EBE1D4004040400000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000005B5B5B00D8C1A000EBE0
-      D300E7DACB00EBE0D300BF915400EFE6DC00EBE1D400F5F0EB00D2B79000EFE6
-      DC00D8C1A000BF915400D8C1A000DECAB100BF915400EBE0D300BF915400EEE5
-      DC00D2B790004545450000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000005F5F5F00EEE7DD00BE92
-      5800EEE7DD00ECE2D500BE925800DECDB100D3B89200EEE7DD00BE925800EEE7
-      DD00D8C3A500F2EDE600D8C3A500D8C3A500BE925800ECE2D500BE925800BE92
-      5800EEE7DD004848480000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000065656500EFE8DE00C297
-      5C00DAC7A800FAF8F500C2975C00C2975C00F3EEE700E9DECC00C2975C00EDE4
-      D700C2975C00F3EEE700C7A56F00EDE4D700C7A56F00EFE8DE00CDAE8300C297
-      5C00EFE8DE004C4C4C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000068686800D2B79000C6A0
-      6900C6A06900E9E0D100C6A06900C6A06900E7DAC600D2B79000C6A06900E7DA
-      C600EEE5DA00DDC9B000C6A06900DDC9B000EEE5DA00CCAD7C00D2B79000EEE5
-      DA00DDC9B0005252520000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000006C6C6C00C6A06900C6A0
-      6900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A0
-      6900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A0
-      6900C6A069005555550000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000071717100C6A06900C6A0
-      6900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A0
-      6900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A06900C6A0
-      6900C6A069005858580000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000075757500F2F2F200F2F2
-      F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2
-      F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2F200F2F2
-      F200F2F2F2005B5B5B0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000078787800F4F4F4008989
-      8900F4F4F400C8C8C800F4F4F400BCBCBC00F4F4F400F4F4F400BCBCBC00C8C8
-      C800F4F4F400F4F4F400F4F4F400ADADAD00ADADAD00E4E4E400EAEAEA009D9D
-      9D009D9D9D005E5E5E0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007D7D7D00EAEAEA007373
-      7300C8C8C800ADADAD00F4F4F4009D9D9D00ADADAD0089898900D4D4D400ADAD
-      AD00F4F4F400F4F4F400E4E4E400C8C8C800F4F4F400ADADAD00F4F4F400DDDD
-      DD00DDDDDD006161610000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007E7E7E009D9D9D00F0F0
-      F0009D9D9D00ADADAD00F4F4F400C8C8C800EAEAEA009D9D9D00F4F4F4008989
-      8900ADADAD00ADADAD00DDDDDD00DDDDDD00F4F4F400ADADAD00F4F4F400DDDD
-      DD00DDDDDD006868680000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000828282009D9D9D00F4F4
-      F400C8C8C80073737300F4F4F400F0F0F000ADADAD00ADADAD00F4F4F400ADAD
-      AD00F4F4F4009D9D9D00EAEAEA00C8C8C800F4F4F4009D9D9D00EAEAEA00BCBC
-      BC00DDDDDD007777770000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000005A73730042635A004263
-      5A0042635A0042635A0042635A0042635A0042635A0042635A0042635A004263
-      5A0042635A0042635A000000000000000000000000002C2C2C002C2C2C002222
-      22001F1F1F001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C
-      1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C00292929002A2A2A002020
-      2000252525002C2C2C000000000000000000000000002C2C2C002C2C2C002222
-      22001F1F1F001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C
-      1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C00292929002A2A2A002020
-      2000252525002C2C2C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000003D3D3D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D005649
-      3B0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0056493B002A2A2A000000000000000000000000003D3D3D0088735D008873
-      5D0056493B0088735D0088735D0088735D0056493B0088735D0088735D008873
-      5D0056493B0088735D0088735D0088735D0056493B0088735D0088735D008873
-      5D0056493B002A2A2A0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000004040400088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D00FFFFFF008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D00FFFF
-      FF0088735D002C2C2C000000000000000000000000004040400088735D00FFFF
-      FF0088735D0088735D0088735D00FFFFFF0088735D0088735D0088735D00FFFF
-      FF0088735D0088735D0088735D00FFFFFF0088735D0088735D0088735D00FFFF
-      FF0088735D002C2C2C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000004343430088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D00323232000000000000000000000000004343430088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D003232320000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000042635A00294A4A00294A4A00294A4A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000004848480088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D00333333000000000000000000000000004848480088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D003333330000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000004C4C4C0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D00383838000000000000000000000000004C4C4C0088735D008873
-      5D0056493B0088735D0088735D0088735D0056493B0088735D0088735D008873
-      5D0056493B0088735D0088735D0088735D0056493B0088735D0088735D008873
-      5D0056493B003838380000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000004C4C4C0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D00383838000000000000000000000000004C4C4C0088735D00FFFF
-      FF0088735D0088735D0088735D00FFFFFF0088735D0088735D0088735D00FFFF
-      FF0088735D0088735D0088735D00FFFFFF0088735D0088735D0088735D00FFFF
-      FF0088735D003838380000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000005252520088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D003C3C3C000000000000000000000000005252520088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D003C3C3C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000003139AD0010219C001021
-      9C0010219C005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000005555550088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D00404040000000000000000000000000005555550088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D0088735D0088735D0088735D0088735D0088735D0088735D008873
-      5D0088735D004040400000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000005B5B5B008A765F008A76
-      5F008A765F008A765F008A765F008A765F008A765F008A765F008A765F008A76
-      5F008A765F008A765F008A765F008A765F008A765F008A765F008A765F008A76
-      5F008A765F00454545000000000000000000000000005B5B5B008A765F008A76
-      5F00574B3C008A765F008A765F008A765F00574B3C008A765F008A765F008A76
-      5F00574B3C008A765F008A765F008A765F00574B3C008A765F008A765F008A76
-      5F00574B3C004545450000000000000000000000000000000000000000000000
-      00005A73730042635A0042635A0000000000000000005A73730042635A004263
-      5A0000000000000000005A73730042635A0042635A0000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A000000000000000000000000005F5F5F008B7862008B78
-      62008B7862008B7862008B7862008B7862008B7862008B7862008B786200584C
-      3E008B7862008B7862008B7862008B7862008B7862008B7862008B7862008B78
-      6200584C3E00484848000000000000000000000000005F5F5F008B786200FFFF
-      FF008B7862008B7862008B786200FFFFFF008B7862008B7862008B786200FFFF
-      FF008B7862008B7862008B786200FFFFFF008B7862008B7862008B786200FFFF
-      FF008B7862004848480000000000000000000000000000000000000000000000
-      0000000000006B8484005A73730042635A0000000000000000006B8484005A73
-      730042635A0000000000000000006B8484005A73730042635A00000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A006B8484005A7373005A73
-      73005A7373005A7373005A7373005A7373005A7373005A7373005A7373005A73
-      73005A73730042635A00000000000000000000000000656565008E7C66008E7C
-      66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C6600FFFFFF008E7C
-      66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C6600FFFF
-      FF008E7C66004C4C4C00000000000000000000000000656565008E7C66008E7C
-      66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C
-      66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C66008E7C
-      66008E7C66004C4C4C0000000000000000000000000000000000000000000000
-      000000000000000000006B8484005A73730042635A0000000000000000006B84
-      84005A73730042635A0000000000000000006B8484005A73730042635A000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A006B8484006B8484006B84
-      84006B8484006B8484006B8484006B8484006B8484006B8484006B8484006B84
-      84006B8484005A73730000000000000000000000000068686800917F6B00917F
-      6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F
-      6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F
-      6B00917F6B005252520000000000000000000000000068686800917F6B00917F
-      6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F
-      6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F6B00917F
-      6B00917F6B005252520000000000000000000000000000000000000000000000
-      00000000000000000000000000006B8484005A73730042635A00000000000000
-      00006B8484005A73730042635A0000000000000000006B8484005A7373004263
-      5A0000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A0042635A0042635A004263
-      5A0042635A0042635A0042635A0042635A0042635A00294A4A00000000000000
-      000000000000000000000000000000000000000000006C6C6C0093846F009384
-      6F005D53460093846F0093846F0093846F005D53460093846F0093846F009384
-      6F0093846F0093846F0093846F0093846F0093846F0093846F0093846F009384
-      6F0093846F00555555000000000000000000000000006C6C6C0093846F009384
-      6F005D53460093846F0093846F0093846F005D53460093846F0093846F009384
-      6F005D53460093846F0093846F0093846F005D53460093846F0093846F009384
-      6F005D5346005555550000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000005A7373005A7373006B8484000000
-      0000000000005A7373005A7373006B84840000000000000000005A7373005A73
-      73006B848400000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A0042635A0042635A004263
-      5A0042635A0042635A0042635A0042635A0042635A00294A4A00000000000000
-      0000000000000000000000000000000000000000000071717100998C7900FFFF
-      FF00978875009788750097887500FFFFFF009788750097887500978875009788
-      7500978875009788750097887500978875009788750097887500978875009788
-      7500978875005858580000000000000000000000000071717100998C7900FFFF
-      FF00978875009788750097887500FFFFFF00978875009788750097887500FFFF
-      FF00978875009788750097887500FFFFFF00978875009788750097887500FFFF
-      FF00978875005858580000000000000000000000000000000000000000000000
-      000000000000000000000000000042635A005A7373006B848400000000000000
-      000042635A005A7373006B848400000000000000000042635A005A7373006B84
-      840000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B0042635A0042635A0042635A0042635A0042635A004263
-      5A0042635A0042635A0042635A0042635A0042635A00294A4A00000000000000
-      00000000000000000000000000000000000000000000757575009A8D7A009A8D
-      7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D
-      7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D
-      7A009A8D7A005B5B5B00000000000000000000000000757575009A8D7A009A8D
-      7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D
-      7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D7A009A8D
-      7A009A8D7A005B5B5B0000000000000000000000000000000000000000000000
-      0000000000000000000042635A005A7373006B84840000000000000000004263
-      5A005A7373006B848400000000000000000042635A005A7373006B8484000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD005A736B005A736B005A736B005A736B005A736B005A736B005A73
-      6B005A736B005A736B005A736B005A736B005A736B0042635A00000000000000
-      00000000000000000000000000000000000000000000787878009D9280009D92
-      80009D9280009D9280009D9280009D9280009D9280009D9280009D9280009D92
-      80009D9280009D9280009D9280009D9280009D9280009D9280009D9280009D92
-      80009D9280005E5E5E00000000000000000000000000787878009D9280009D92
-      80009D9280009D9280009D9280009D9280009D9280009D9280009D9280009D92
-      80009D9280009D9280009D9280009D9280009D9280009D9280009D9280009D92
-      80009D9280005E5E5E0000000000000000000000000000000000000000000000
-      00000000000042635A005A7373006B848400000000000000000042635A005A73
-      73006B848400000000000000000042635A005A7373006B848400000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD003139AD003139AD003139AD003139AD003139AD003139AD003139
-      AD003139AD0010219C0000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007D7D7D00A1978500A197
-      8500665F5400A1978500A1978500A1978500665F5400A1978500A1978500A197
-      8500A1978500A1978500A1978500A1978500A1978500A1978500A1978500A197
-      8500A1978500616161000000000000000000000000007D7D7D00A1978500A197
-      8500665F5400A1978500A1978500A1978500665F5400A1978500A1978500A197
-      8500665F5400A1978500A1978500A1978500665F5400A1978500A1978500A197
-      8500665F54006161610000000000000000000000000000000000000000000000
-      00006B8484006B8484006B84840000000000000000006B8484006B8484006B84
-      840000000000000000006B8484006B8484006B84840000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD003139AD003139AD003139AD003139AD003139AD003139AD003139
-      AD003139AD0010219C0000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007E7E7E00A59C8C00FFFF
-      FF00A59C8C00A59C8C00A59C8C00FFFFFF00A59C8C00A59C8C00A59C8C00A59C
-      8C00A59C8C00A59C8C00A59C8C00A59C8C00A59C8C00A59C8C00A59C8C00A59C
-      8C00A59C8C00686868000000000000000000000000007E7E7E00A59C8C00FFFF
-      FF00A59C8C00A59C8C00A59C8C00FFFFFF00A59C8C00A59C8C00A59C8C00FFFF
-      FF00A59C8C00A59C8C00A59C8C00FFFFFF00A59C8C00A59C8C00A59C8C00FFFF
-      FF00A59C8C006868680000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5003139AD003139
-      AD003139AD003139AD003139AD003139AD003139AD003139AD003139AD003139
-      AD003139AD0010219C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000082828200A8A19100A8A1
-      9100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A1
-      9100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A1
-      9100A8A191007777770000000000000000000000000082828200A8A19100A8A1
-      9100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A1
-      9100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A19100A8A1
-      9100A8A191007777770000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000004A5AB5004A5AB5004A5A
-      B5004A5AB5004A5AB5004A5AB5004A5AB5004A5AB5004A5AB5004A5AB5004A5A
-      B5004A5AB5003139AD0000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C000000000000000000000000008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D9C008D9D
-      9C008D9D9C008D9D9C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000006B6B
-      6B00292929002121210018181800181818001818180018181800181818001818
-      1800181818001818180018181800181818001818180018181800181818004A4A
-      4A0000000000000000000000000000000000000000000000000042424A004242
-      4A0042424A0042424A0042424A0042424A0042424A0042424A0042424A004242
-      4A0042424A0042424A0042424A0042424A0042424A0042424A0042424A000000
-      0000000000000000000000000000000000000000000000000000292929002121
-      2100181818001818180018181800181818001818180018181800181818001818
-      1800181818001818180018181800181818001818180029292900292929002121
-      2100212121000000000000000000000000000000000084848400848484008484
-      8400848484008484840084848400848484008484840084848400848484008484
-      8400848484008484840084848400848484008484840084848400848484008484
-      8400848484008484840000000000000000000000000000000000000000004242
-      4200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002929
-      29000000000000000000000000000000000000000000313131004A4A4A007B94
-      8C007B948C007B948C007B948C007B948C007B948C007B948C007B948C007B94
-      8C007B948C007B948C007B948C007B948C007B948C0094ADAD008CA5A5008CA5
-      A5000000000000000000000000000000000000000000393939007B9494007B94
-      940063636300738C8C00E7E7E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00F7F7F700E7E7E700E7E7E700D6D6D6006B8C84005A5A5A007B94
-      94007B9494002929290000000000000000000000000084848400FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000004242
-      4200FFFFFF00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00C6DEDE00C6DEDE00C6DEDE00C6E7DE00C6DEDE00C6E7DE00FFFFFF003131
-      31000000000000000000000000000000000000000000313131004A4A4A008CA5
-      A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5008CA5A50094ADAD008CA5A50094ADAD008CA5A5009CBDB5008CA5
-      A5000000000000000000000000000000000000000000424242007B9494007B94
-      94006B6B6B008CA59C00FFFFFF00E7E7E7009CB5AD00A5BDB500FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00EFEFEF00EFEFEF00E7E7E70094ADA5006B6B6B007B94
-      94007B9494002929290000000000000000000000000084848400FFFFFF008C00
-      00008C0000008C0000008C0000008C0000008C0000008C0000008C0000008C00
-      00008C0000008C0000008C000000FFFFFF00000000000000000000000000C6C6
-      C600C6C6C6008484840000000000000000000000000000000000000000004A4A
-      4A00FFFFFF00BDDED600BDDED600BDDED600BDDED600BDDED600BDDED600BDDE
-      D600BDDED600BDDED600BDDED600BDDED600BDDED600CEE7E700FFFFFF003131
-      31000000000000000000000000000000000000000000313139004A4A4A007B94
-      8C0094ADA50094ADA50094ADA50094ADA50094ADA50094ADA50094ADA50094AD
-      A50094ADA50094ADA50094ADA5009CB5AD0094ADAD009CB5B5009CBDB5008CA5
-      A5000000000000000000000000000000000000000000424242007B9C94007B9C
-      94006B6B6B008CADA500FFFFFF006B847B00738C8C0094ADA500FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F70094ADAD006B6B6B007B9C
-      94007B9C94003131310000000000000000000000000084848400FFFFFF00A500
-      0000A5000000A5000000A5000000A5000000A5000000A5000000A5000000A500
-      0000A5000000A5000000A5000000FFFFFF000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000004A4A
-      4A00FFFFFF00BDDED600BDDED600BDDED600BDDED600BDDED600BDDED600BDDE
-      D600BDDED600BDDED600BDDED600BDDED600BDDED600CEE7E700FFFFFF003131
-      3100000000000000000000000000000000000000000039393900525252004A4A
-      520094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094ADAD0094AD
-      AD0094ADAD0094ADAD0094ADAD0094ADAD00A5BDB5009CB5B5009CB5B500A5C6
-      BD008CA5A500000000000000000000000000000000004A4A4A00849C9C007B9C
-      94007373730094ADAD00FFFFFF0052736B0073948C0094ADAD00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0094ADAD006B6B6B007B9C
-      94007B9C94003131310000000000000000000000000084848400FFFFFF00BD00
-      0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000BD00
-      0000BD000000BD000000BD000000FFFFFF000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000004A4A
-      4A00FFFFFF00C6DED600C6DED600C6DED600C6DED600C6DED600C6DED600C6DE
-      D600C6DED600C6DED600C6DED600C6DED600C6DED600D6EFE700FFFFFF003939
-      3900000000000000000000000000000000000000000042424200525252005252
-      52009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5AD009CB5
-      AD009CB5AD009CB5AD009CB5AD00A5BDB5009CB5B500A5BDBD00ADCEC600ADC6
-      C6008CA5A500000000000000000000000000000000004A4A4A0094ADA5008CA5
-      A5007B7B7B009CB5B500FFFFFF005A736B006B8C84008CA5A500FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009CB5B5006B6B6B00849C
-      9C00849C9C003939390000000000000000000000000084848400FFFFFF00D600
-      0000D6000000D6000000D6000000D6000000D6000000D6000000D6000000D600
-      0000D6000000D6000000D6000000FFFFFF00000000000000000000000000C6C6
-      C600C6C6C6008484840000000000000000000000000000000000000000004A4A
-      4A00FFFFFF00C6DED600C6DED600C6DED600C6DED600C6DED600C6DED600C6DE
-      D600C6DED600C6DED600C6DED600C6DED600C6DED600D6EFE700FFFFFF003939
-      39000000000000000000000000000000000000000000424242005A5A5A005252
-      52007B948C00A5BDB500A5BDB500A5BDB500A5BDB500A5BDB500A5BDB500A5BD
-      B500A5BDB500A5BDB500A5BDB500A5BDB500ADC6BD00A5BDBD00ADC6BD00ADCE
-      C6008CA5A500000000000000000000000000000000004A4A4A0094ADA5008CA5
-      A5007B7B7B009CB5B500FFFFFF005A736B006B8C84008CA5A500FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009CB5B5006B6B6B00849C
-      9C00849C9C003939390000000000000000000000000084848400FFFFFF00EF00
-      0000EF000000EF000000EF000000EF000000EF000000EF000000EF000000EF00
-      0000EF000000EF000000EF000000FFFFFF000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000004A4A
-      4A00FFFFFF00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00D6EFEF00FFFFFF003939
-      390000000000000000000000000000000000000000004A4A4A005A6363006363
-      63005A525A00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BD
-      BD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00A5BDBD00B5CEC600BDD6D600B5CE
-      CE008CA5A50000000000000000000000000000000000525252009CB5B5009CB5
-      AD009C9C9C00B5CECE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0094ADA5007B7B7B00849C
-      9C00849C9C003939390000000000000000000000000084848400FFFFFF00FF00
-      0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
-      0000FF000000FF000000FF000000FFFFFF000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000005252
-      5200FFFFFF00C6E7DE00C6E7DE00C6E7DE00C6E7DE00C6E7DE00C6E7DE00C6E7
-      DE00C6E7DE00C6E7DE00C6E7DE00C6E7DE00C6E7DE00D6F7EF00FFFFFF003939
-      3900000000000000000000000000000000000000000052525200636363006363
-      63005A5A5A00ADC6C600ADC6BD00ADC6BD00ADC6BD00ADC6BD00ADC6BD00ADC6
-      C600ADC6BD00ADC6BD00ADC6BD00ADC6BD00B5CECE00ADC6C600B5D6CE00C6DE
-      DE00BDD6D6008CA5A50000000000000000000000000052525200A5BDB500A5BD
-      B500A5BDB5009CB5B50094B5AD008CADA5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5A5008CA5
-      A5008CA5A5004242420000000000000000000000000084848400FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF000000FF00
-      0000FF000000FF000000FF000000FFFFFF00000000000000000000000000C6C6
-      C600C6C6C6008484840000000000000000000000000000000000000000005A5A
-      5A00FFFFFF00CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7
-      E700CEE7E700CEE7E700CEE7E700CEE7E700CEE7E700DEF7F700FFFFFF004242
-      42000000000000000000000000000000000000000000525252006B6B6B006B6B
-      6B005A5A5A007B948C00B5CEC600B5CEC600B5CEC600B5CEC600B5CEC600B5CE
-      C600B5CEC600B5CEC600B5CEC600B5CEC600B5CEC600BDD6D600BDD6CE00BDD6
-      D600C6DED6008CA5A5000000000000000000000000005A5A5A00A5C6BD008CA5
-      9C008CA5A5008CA5A500849C9C007B948C00738C8400738C8400738C8400738C
-      8400738C8400738C8400738C8C00738C8C00738C8C00738C8C00738C8C006B84
-      84008CADA5004242420000000000000000000000000084848400000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000008484840000000000000000000000000000000000000000005A5A
-      5A00FFFFFF00D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700D6EF
-      E700D6EFE700D6EFE700D6EFE700D6EFE700D6EFE700DEF7F700FFFFFF004242
-      420000000000000000000000000000000000000000005A5A5A00737373007373
-      73007373730063636300B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CE
-      CE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00B5CECE00BDD6
-      D600C6DED6008CA5A5000000000000000000000000005A5A5A00ADC6BD0094AD
-      A500E7E7E700F7F7F700F7F7F700F7F7F700EFEFEF00EFEFEF00EFEFEF00EFEF
-      EF00EFEFEF00EFEFEF00EFEFEF00EFEFEF00F7F7F700EFEFEF00DEDEDE007394
-      8C0094ADAD004A4A4A0000000000000000000000000084848400080808000808
-      0800080808000808080008080800080808000808080008080800080808000808
-      0800080808000808080008080800080808000808080008080800080808000808
-      0800080808008484840000000000000000000000000000000000000000006363
-      6300FFFFFF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EF
-      EF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00D6EFEF00DEF7F700FFFFFF004A4A
-      4A000000000000000000000000000000000000000000636363007B7373007373
-      730073737300636363007B948C00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600BDD6D600CEE7
-      DE00BDD6D6008CA5A50000000000000000000000000063636300ADC6C60094AD
-      AD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F7007B94
-      940094ADAD004A4A4A0000000000000000000000000084848400081010000810
-      1000081010000810100008101000081010000810100008101000081010000810
-      100008101000081010000810100008101000081010000810100008101000BDC6
-      C600BDC6C6008484840000000000000000000000000000000000000000006363
-      6300FFFFFF00D6F7EF00D6F7EF00D6F7EF00D6F7EF00D6F7EF00D6F7EF00D6F7
-      EF00D6F7EF00D6F7EF00D6F7EF00D6F7EF00D6F7EF00DEFFF700FFFFFF004A4A
-      4A000000000000000000000000000000000000000000636363007B7B7B007B7B
-      7B007B7B7B007373730063636300636363006363630063636300636363006363
-      63007B948C00C6DED600C6DED600C6DED600C6DED600C6DED600C6DED600C6DE
-      D600CEE7E700BDD6D6008CA5A50000000000000000006B6B6B00ADCEC6009CB5
-      AD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F7007B9C
-      94009CB5B5005252520000000000000000000000000084848400101810001018
-      1000101810001018100010181000101810001018100010181000101810001018
-      1000101810001018100010181000101810001018100010181000101810001018
-      1000101810008484840000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7
-      F700DEF7F700DEF7F700DEF7F700CEEFE700C6DEDE00C6DEDE00DEDEDE005252
-      520000000000000000000000000000000000000000006B6B6B00848484008484
-      8400848484008484840084848400848484008484840084848400848484008484
-      84006B6B6300C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DEDE00C6DE
-      DE00C6DEDE00D6EFE7008CA5A50000000000000000006B6B6B00B5CEC6009CB5
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00849C
-      94009CBDB5005252520000000000000000000000000084848400182118001821
-      1800182118001821180018211800182118001821180018211800182118001821
-      1800182118001821180018211800182118001821180018211800182118001821
-      1800182118008484840000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7
-      F700DEF7F700F7F7F700D6D6D600C6C6C600B5B5B500ADADAD009C9C9C005252
-      5200000000000000000000000000000000000000000073737300848484008484
-      8400848484008484840084848400848484008484840084848400848484008484
-      8400848484006B6B6300E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700E7FF
-      F700F7FFFF00EFFFFF008CA5A500000000000000000073737300B5D6CE00A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00849C
-      9C00A5BDB5005A5A5A00000000000000000000000000848C8400DEE7E700DEE7
-      E700DEE7E700DEE7E700DEE7E700DEE7E700DEE7E700DEE7E700DEE7E700DEE7
-      E70021292900212929002129290021292900212929002129290021292900B5BD
-      B500B5BDB500848C840000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7F700DEF7
-      F700DEF7F700F7F7F700949494008C8C8C0073737300737373005A5A5A005A5A
-      5A000000000000000000000000000000000000000000737373008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B
-      6B006B6B6B006B6B6B0000000000000000000000000073737300C6DED600A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00849C
-      9C00A5C6BD005A5A5A00000000000000000000000000848C8C00293131002931
-      310029313100293131002931310029313100293131002931310029313100D6DE
-      DE00293131002931310029313100293131002931310029313100293131002931
-      310029313100848C8C0000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700E7FF
-      F700E7FFF700F7F7F700A5A5A500FFFFFF00FFFFFF00FFFFFF00FFFFFF005A5A
-      5A0000000000000000000000000000000000000000007B7B7B00948C8C00948C
-      94008C8C8C008C948C008C8C94008C948C008C9494007B7B7B007B7B7B007B7B
-      7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B000000
-      000000000000000000000000000000000000000000007B7B7B00CEE7DE00A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008CA5
-      A500ADC6C6005A5A5A00000000000000000000000000848C8C00313939003139
-      390031393900313939003139390031393900313939003139390031393900CED6
-      D600313939003139390031393900313939003139390031393900313939003139
-      390031393900848C8C0000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700E7FFF700E7FF
-      F700E7FFF700F7F7F700B5B5B500FFFFFF00D6F7EF00D6F7EF00B5D6CE006B6B
-      6B00000000000000000000000000000000000000000084848400949494009494
-      9400949494009494940094949400949494009494940084848400000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007B7B7B00D6EFE700A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0094AD
-      AD00ADC6C600636363000000000000000000000000007B8C8C00394242003942
-      4200394242003942420039424200394242003942420039424200394242003942
-      420039424200394242003942420039424200394242003942420039424200A5AD
-      AD00A5ADAD007B8C8C0000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00C6C6C600FFFFFF00D6F7EF00B5D6CE006B6B6B000000
-      00000000000000000000000000000000000000000000848484009C9C9C009C9C
-      9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C0084848400000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000000000007B7B7B00D6F7EF00A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0094AD
-      A500ADCEC6006B6B6B000000000000000000000000007B8C8C00424A4A00424A
-      4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A
-      4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A4A00424A
-      4A00424A4A007B8C8C0000000000000000000000000000000000000000006B6B
-      6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00CECECE00FFFFFF00B5D6CE0073737300000000000000
-      0000000000000000000000000000000000000000000000000000848484008484
-      8400848484008484840084848400848484008484840000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000084848400DEF7F700A5BD
-      B500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F7F7F7009CB5
-      AD00B5CECE00737373000000000000000000000000007B8C8C004A5A52004A5A
-      52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A
-      52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A52004A5A
-      52004A5A52007B8C8C0000000000000000000000000000000000000000007373
-      73007373730073737300737373007B7B7B007B7B7B0084848400848484008484
-      8400848484008484840084848400848484008484840000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000848484008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C8C008C8C
-      8C0084848400000000000000000000000000000000007B8C8C007B8C8C007B8C
-      8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C
-      8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C8C007B8C
-      8C007B8C8C007B8C8C0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      000000000000000000000000000000000000424D3E000000000000003E000000
-      2800000060000000600000000100010000000000800400000000000000000000
-      000000000000000000000000FFFFFF0000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000FFFFFF000000000000000000FFFFFF00
-      0000000000000000800003000000000000000000800003000000000000000000
-      8000030000000000000000008000030000000000000000008000030000000000
-      0000000080000300000000000000000080000300000000000000000080000300
-      0000000000000000800003000000000000000000800003000000000000000000
-      8000030000000000000000008000030000000000000000008000030000000000
-      0000000080000300000000000000000080000300000000000000000080000300
-      0000000000000000800003000000000000000000800003000000000000000000
-      8000030000000000000000008000030000000000000000008000030000000000
-      00000000FFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFF8003800003800003FFFFFFFF8003800003800003FFFFFF
-      FF8003800003800003E610CFFF8003800003800003E67CCFF800038000038000
-      03E630CFF80003800003800003E673CFF80003800003800003C21087F8000380
-      0003800003FFFFFF800003800003800003FFFFFF800003800003800003F18C7F
-      800003800003800003F8C63F800003800003800003FC631F8000038000038000
-      03FE318F80003F800003800003FF18C780003F800003800003FE318F80003F80
-      0003800003FC631F80003F800003800003F8C63F8003FF800003800003F18C7F
-      8003FF800003800003FFFFFF8003FF800003800003FFFFFF8003FF8000038000
-      03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFE0000FC0001FC00007800003E0000F80000F800003800003
-      E0000F80000F800003800003E0000F80000F800003800003E0000F8000078000
-      03800003E0000F800007800003800003E0000F800007800003800003E0000F80
-      0007800003800003E0000F800003800003800003E0000F800003800003800003
-      E0000F800003800003800003E0000F800003800003800003E0000F8000018000
-      03800003E0000F800001800003800003E0000F800001800003800003E0000F80
-      0003800003800003E0000F80001F800003800003E0000F803FFF800003800003
-      E0001F803FFF800003800003E0003FC07FFF800003800003E0007FFFFFFFC000
-      07800003FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
-      000000000000}
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000
+    }
    end
    object pmMapTest: TPopupMenu
    end
    object pmMapTest: TPopupMenu
-    Left = 160
-    Top = 64
+    left = 160
+    top = 64
      object miMapTestPMSet: TMenuItem
        Caption = 'Параметры'
        OnClick = miMapTestSettingsClick
      end
    end
    object ColorDialog: TColorDialog
      object miMapTestPMSet: TMenuItem
        Caption = 'Параметры'
        OnClick = miMapTestSettingsClick
      end
    end
    object ColorDialog: TColorDialog
-    Left = 64
-    Top = 146
+    Color = clBlack
+    CustomColors.Strings = (
+      'ColorA=000000'
+      'ColorB=000080'
+      'ColorC=008000'
+      'ColorD=008080'
+      'ColorE=800000'
+      'ColorF=800080'
+      'ColorG=808000'
+      'ColorH=808080'
+      'ColorI=C0C0C0'
+      'ColorJ=0000FF'
+      'ColorK=00FF00'
+      'ColorL=00FFFF'
+      'ColorM=FF0000'
+      'ColorN=FF00FF'
+      'ColorO=FFFF00'
+      'ColorP=FFFFFF'
+      'ColorQ=C0DCC0'
+      'ColorR=F0CAA6'
+      'ColorS=F0FBFF'
+      'ColorT=A4A0A0'
+    )
+    left = 64
+    top = 146
    end
  end
    end
  end
diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas

index d3193006eebd27184d3b0bc384de61a50d60962e..9167af7bd3a34d88085e7006fc671d0d9ac12ec7 100644 (file)
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -8,10 +8,14 @@ uses
    LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes, Graphics,
    Controls, Forms, Dialogs, ImgList, StdCtrls, Buttons,
    ComCtrls, ValEdit, Types, ToolWin, Menus, ExtCtrls,
    LCLIntf, LCLType, LMessages, SysUtils, Variants, Classes, Graphics,
    Controls, Forms, Dialogs, ImgList, StdCtrls, Buttons,
    ComCtrls, ValEdit, Types, ToolWin, Menus, ExtCtrls,
-  CheckLst, Grids;
+  CheckLst, Grids, OpenGLContext;
  
  type
  
  type
+
+  { TMainForm }
+
    TMainForm = class(TForm)
    TMainForm = class(TForm)
+    lLoad: TLabel;
    // Главное меню:
      MainMenu: TMainMenu;
    // "Файл":
    // Главное меню:
      MainMenu: TMainMenu;
    // "Файл":
@@ -77,6 +81,9 @@ type
  
    // Панель инструментов:
      MainToolBar: TToolBar;
  
    // Панель инструментов:
      MainToolBar: TToolBar;
+    pbLoad: TProgressBar;
+    pLoadProgress: TPanel;
+    RenderPanel: TOpenGLControl;
      tbNewMap: TToolButton;
      tbOpenMap: TToolButton;
      tbSaveMap: TToolButton;
      tbNewMap: TToolButton;
      tbOpenMap: TToolButton;
      tbSaveMap: TToolButton;
@@ -107,12 +114,6 @@ type
  
    // Панель карты:
      PanelMap: TPanel;
  
    // Панель карты:
      PanelMap: TPanel;
-  // Панель отображения карты:
-    RenderPanel: TPanel;
-  // Панель загрузки:
-    pLoadProgress: TPanel;
-    lLoad: TLabel;
-    pbLoad: TProgressBar;
    // Полосы прокрутки:
      sbHorizontal: TScrollBar;
      sbVertical: TScrollBar;
    // Полосы прокрутки:
      sbHorizontal: TScrollBar;
      sbVertical: TScrollBar;
@@ -209,6 +210,7 @@ type
      procedure RenderPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
      procedure RenderPanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
      procedure RenderPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
      procedure RenderPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
      procedure RenderPanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
      procedure RenderPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure RenderPanelPaint(Sender: TObject);
      procedure RenderPanelResize(Sender: TObject);
      procedure vleObjectPropertyEditButtonClick(Sender: TObject);
      procedure vleObjectPropertyGetPickList(Sender: TObject; const KeyName: String; Values: TStrings);
      procedure RenderPanelResize(Sender: TObject);
      procedure vleObjectPropertyEditButtonClick(Sender: TObject);
      procedure vleObjectPropertyGetPickList(Sender: TObject; const KeyName: String; Values: TStrings);
@@ -321,14 +323,14 @@ procedure ChangeShownProperty(Name: String; NewValue: String);
  implementation
  
  uses
  implementation
  
  uses
-  f_options, e_graphics, e_log, dglOpenGL, Math,
+  f_options, e_graphics, e_log, GL, GLExt, Math,
    f_mapoptions, g_basic, f_about, f_mapoptimization,
    f_mapcheck, f_addresource_texture, g_textures,
    f_activationtype, f_keys, MAPWRITER, MAPSTRUCT,
    f_mapoptions, g_basic, f_about, f_mapoptimization,
    f_mapcheck, f_addresource_texture, g_textures,
    f_activationtype, f_keys, MAPWRITER, MAPSTRUCT,
-  MAPREADER, f_selectmap, f_savemap, WADEDITOR, MAPDEF,
+  MAPREADER, f_selectmap, f_savemap, WADEDITOR, WADSTRUCT, MAPDEF,
    g_map, f_saveminimap, f_addresource, CONFIG, f_packmap,
    f_addresource_sound, f_maptest, f_choosetype,
    g_map, f_saveminimap, f_addresource, CONFIG, f_packmap,
    f_addresource_sound, f_maptest, f_choosetype,
-  g_language, f_selectlang, ClipBrd, Windows;
+  g_language, f_selectlang, ClipBrd;
  
  const
    UNDO_DELETE_PANEL   = 1;
  
  const
    UNDO_DELETE_PANEL   = 1;
@@ -419,9 +421,8 @@ type
    TCopyRecArray = Array of TCopyRec;
  
  var
    TCopyRecArray = Array of TCopyRec;
  
  var
-  hDC: THandle;
-  hRC: THandle;
    gEditorFont: DWORD;
    gEditorFont: DWORD;
+  gDataLoaded: Boolean = False;
    ShowMap: Boolean = False;
    DrawRect: PRect = nil;
    SnapToGrid: Boolean = True;
    ShowMap: Boolean = False;
    DrawRect: PRect = nil;
    SnapToGrid: Boolean = True;
@@ -1869,7 +1870,7 @@ end;
  
  function AddTexture(aWAD, aSection, aTex: String; silent: Boolean): Boolean;
  var
  
  function AddTexture(aWAD, aSection, aTex: String; silent: Boolean): Boolean;
  var
-  a: Integer;
+  a, FrameLen: Integer;
    ok: Boolean;
    FileName: String;
    ResourceName: String;
    ok: Boolean;
    FileName: String;
    ResourceName: String;
@@ -1940,9 +1941,9 @@ begin
  
      if IsAnim(FullResourceName) then
        begin // Аним. текстура
  
      if IsAnim(FullResourceName) then
        begin // Аним. текстура
-        GetFrame(FullResourceName, Data, Width, Height);
+        GetFrame(FullResourceName, Data, FrameLen, Width, Height);
  
  
-        if g_CreateTextureMemorySize(Data, ResourceName, 0, 0, Width, Height, 1) then
+        if g_CreateTextureMemorySize(Data, FrameLen, ResourceName, 0, 0, Width, Height, 1) then
            a := MainForm.lbTextureList.Items.Add(ResourceName);
        end
      else // Обычная текстура
            a := MainForm.lbTextureList.Items.Add(ResourceName);
        end
      else // Обычная текстура
@@ -2520,51 +2521,57 @@ begin
    OptionsForm.ShowModal();
  end;
  
    OptionsForm.ShowModal();
  end;
  
-procedure TMainForm.FormCreate(Sender: TObject);
+procedure LoadStdFont(cfgres, texture: string; var FontID: DWORD);
  var
  var
-  PixelFormat: GLuint;
-  pfd: TPIXELFORMATDESCRIPTOR;
+  cwdt, chgt: Byte;
+  spc: ShortInt;
+  ID: DWORD;
+  wad: TWADEditor_1;
+  cfgdata: Pointer;
+  cfglen: Integer;
    config: TConfig;
    config: TConfig;
-  i: Integer;
-  s: String;
  begin
  begin
-  Randomize();
+  cfglen := 0;
  
  
-  EditorDir := ExtractFilePath(Application.ExeName);
+  wad := TWADEditor_1.Create;
+  if wad.ReadFile(EditorDir+'data\Game.wad') then
+    wad.GetResource('FONTS', cfgres, cfgdata, cfglen);
+  wad.Free();
  
  
-  e_InitLog(EditorDir+'Editor.log', WM_NEWFILE);
+  if cfglen <> 0 then
+  begin
+    if not g_CreateTextureWAD('FONT_STD', EditorDir+'data\Game.wad:FONTS\'+texture) then
+      e_WriteLog('ERROR ERROR ERROR', MSG_WARNING);
  
  
-  e_WriteLog('Init OpenGL', MSG_NOTIFY);
+    config := TConfig.CreateMem(cfgdata, cfglen);
+    cwdt := Min(Max(config.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
+    chgt := Min(Max(config.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
+    spc := Min(Max(config.ReadInt('FontMap', 'Kerning', 0), -128), 127);
  
  
-  InitOpenGL();
-  hDC := GetDC(RenderPanel.Handle);
+    if g_GetTexture('FONT_STD', ID) then
+      e_TextureFontBuild(ID, FontID, cwdt, chgt, spc-2);
  
  
-  FillChar(pfd, SizeOf(pfd), 0);
-  with pfd do
-  begin
-    nSize := SizeOf(pfd);
-    nVersion := 1;
-    dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
-    dwLayerMask := PFD_MAIN_PLANE;
-    iPixelType := PFD_TYPE_RGBA;
-    cColorBits := 24;
-    cDepthBits := 32;
-    iLayerType := PFD_MAIN_PLANE;
-  end;
-  PixelFormat := ChoosePixelFormat (hDC, @pfd);
-  SetPixelFormat(hDC, PixelFormat, @pfd);
+    config.Free();
+  end
+  else
+    e_WriteLog('Could not load FONT_STD', MSG_WARNING);
  
  
-  hRC := wglCreateContext(hDC);
-  ActivateRenderingContext(hDC, hRC);
+  if cfglen <> 0 then FreeMem(cfgdata);
+end;
  
  
-  e_InitGL(False);
+procedure TMainForm.FormCreate(Sender: TObject);
+var
+  config: TConfig;
+  i: Integer;
+  s: String;
+begin
+  Randomize();
  
  
-  gEditorFont := e_SimpleFontCreate('Arial Cyr', 12, FW_BOLD, hDC);
+  EditorDir := ExtractFilePath(Application.ExeName);
  
  
-  slInvalidTextures := TStringList.Create;
+  e_InitLog(EditorDir+'Editor.log', WM_NEWFILE);
  
  
-  e_WriteLog('Loading data', MSG_NOTIFY);
-  LoadData();
+  slInvalidTextures := TStringList.Create;
  
    ShowLayer(LAYER_BACK, True);
    ShowLayer(LAYER_WALLS, True);
  
    ShowLayer(LAYER_BACK, True);
    ShowLayer(LAYER_WALLS, True);
@@ -2657,9 +2664,14 @@ begin
    Application.OnIdle := OnIdle;
  end;
  
    Application.OnIdle := OnIdle;
  end;
  
+procedure PrintBlack(X, Y: Integer; Text: string; FontID: DWORD);
+begin
+  // NOTE: all the font printing routines assume CP1251
+  e_TextureFontPrintEx(X, Y, Text, FontID, 0, 0, 0, 1.0);
+end;
+
  procedure TMainForm.Draw();
  var
  procedure TMainForm.Draw();
  var
-  ps: TPaintStruct;
    x, y: Integer;
    a, b: Integer;
    ID: DWORD;
    x, y: Integer;
    a, b: Integer;
    ID: DWORD;
@@ -2668,7 +2680,6 @@ var
    ObjCount: Word;
    aX, aY, aX2, aY2, XX, ScaleSz: Integer;
  begin
    ObjCount: Word;
    aX, aY, aX2, aY2, XX, ScaleSz: Integer;
  begin
-  BeginPaint(Handle, ps);
    e_BeginRender();
  
    e_Clear(GL_COLOR_BUFFER_BIT,
    e_BeginRender();
  
    e_Clear(GL_COLOR_BUFFER_BIT,
@@ -2755,7 +2766,7 @@ begin
  
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
  
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_TELEPORT]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_TELEPORT], gEditorFont);
    end;
  
  // Подсказка при выборе точки появления:
    end;
  
  // Подсказка при выборе точки появления:
@@ -2766,7 +2777,7 @@ begin
                 0, 0, 255);
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
                 0, 0, 255);
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_SPAWN]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_SPAWN], gEditorFont);
    end;
  
  // Подсказка при выборе панели двери:
    end;
  
  // Подсказка при выборе панели двери:
@@ -2774,7 +2785,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_PANEL_DOOR]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_DOOR], gEditorFont);
    end;
  
  // Подсказка при выборе панели с текстурой:
    end;
  
  // Подсказка при выборе панели с текстурой:
@@ -2782,7 +2793,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+196, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_PANEL_TEXTURE]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_TEXTURE], gEditorFont);
    end;
  
  // Подсказка при выборе панели индикации выстрела:
    end;
  
  // Подсказка при выборе панели индикации выстрела:
@@ -2790,7 +2801,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+316, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_PANEL_SHOT]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_SHOT], gEditorFont);
    end;
  
  // Подсказка при выборе панели лифта:
    end;
  
  // Подсказка при выборе панели лифта:
@@ -2798,7 +2809,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+180, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_PANEL_LIFT]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_PANEL_LIFT], gEditorFont);
    end;
  
  // Подсказка при выборе монстра:
    end;
  
  // Подсказка при выборе монстра:
@@ -2806,7 +2817,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+120, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_MONSTER]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_MONSTER], gEditorFont);
    end;
  
  // Подсказка при выборе области воздействия:
    end;
  
  // Подсказка при выборе области воздействия:
@@ -2814,7 +2825,7 @@ begin
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 255, 255, 255);
    begin
      e_DrawFillQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 192, 192, 192, 127);
      e_DrawQuad(MousePos.X, MousePos.Y, MousePos.X+204, MousePos.Y+18, 255, 255, 255);
-    e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(_lc[I_HINT_EXT_AREA]), gEditorFont, 0, 0, 0);
+    PrintBlack(MousePos.X+2, MousePos.Y+2, _glc[I_HINT_EXT_AREA], gEditorFont);
    end;
  
  // Рисуем текстуры, если чертим панель:
    end;
  
  // Рисуем текстуры, если чертим панель:
@@ -2844,10 +2855,10 @@ begin
  
      if MouseAction in [MOUSEACTION_DRAWPANEL, MOUSEACTION_DRAWTRIGGER] then
        begin // Чертим новый
  
      if MouseAction in [MOUSEACTION_DRAWPANEL, MOUSEACTION_DRAWTRIGGER] then
        begin // Чертим новый
-        e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(Format(_lc[I_HINT_WIDTH],
-                          [Abs(MousePos.X-MouseLDownPos.X)])), gEditorFont, 0, 0, 0);
-        e_SimpleFontPrint(MousePos.X+8, MousePos.Y+28, PChar(Format(_lc[I_HINT_HEIGHT],
-                          [Abs(MousePos.Y-MouseLDownPos.Y)])), gEditorFont, 0, 0, 0);
+        PrintBlack(MousePos.X+2, MousePos.Y+2, Format(_glc[I_HINT_WIDTH],
+                          [Abs(MousePos.X-MouseLDownPos.X)]), gEditorFont);
+        PrintBlack(MousePos.X+2, MousePos.Y+14, Format(_glc[I_HINT_HEIGHT],
+                          [Abs(MousePos.Y-MouseLDownPos.Y)]), gEditorFont);
        end
      else // Растягиваем существующий
        if SelectedObjects[GetFirstSelected].ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER] then
        end
      else // Растягиваем существующий
        if SelectedObjects[GetFirstSelected].ObjectType in [OBJECT_PANEL, OBJECT_TRIGGER] then
@@ -2863,10 +2874,10 @@ begin
              Height := gTriggers[SelectedObjects[GetFirstSelected].ID].Height;
            end;
  
              Height := gTriggers[SelectedObjects[GetFirstSelected].ID].Height;
            end;
  
-        e_SimpleFontPrint(MousePos.X+8, MousePos.Y+14, PChar(Format(_lc[I_HINT_WIDTH], [Width])),
-                          gEditorFont, 0, 0, 0);
-        e_SimpleFontPrint(MousePos.X+8, MousePos.Y+28, PChar(Format(_lc[I_HINT_HEIGHT], [Height])),
-                          gEditorFont, 0, 0, 0);
+        PrintBlack(MousePos.X+2, MousePos.Y+2, Format(_glc[I_HINT_WIDTH], [Width]),
+                          gEditorFont);
+        PrintBlack(MousePos.X+2, MousePos.Y+14, Format(_glc[I_HINT_HEIGHT], [Height]),
+                          gEditorFont);
        end;
    end;
  
        end;
    end;
  
@@ -2962,8 +2973,7 @@ begin
    end; // Мини-карта
  
    e_EndRender();
    end; // Мини-карта
  
    e_EndRender();
-  SwapBuffers(hDC);
-  EndPaint(Handle, ps);
+  RenderPanel.SwapBuffers();
  end;
  
  procedure TMainForm.FormResize(Sender: TObject);
  end;
  
  procedure TMainForm.FormResize(Sender: TObject);
@@ -3616,7 +3626,7 @@ begin
                    trigger.Key := Trigger.Key or KEY_BLUETEAM;
  
                // Параметры триггера:
                    trigger.Key := Trigger.Key or KEY_BLUETEAM;
  
                // Параметры триггера:
-                ZeroMemory(@trigger.Data.Default[0], 128);
+                FillByte(trigger.Data.Default[0], 128, 0);
  
                  case trigger.TriggerType of
                  // Переключаемая панель:
  
                  case trigger.TriggerType of
                  // Переключаемая панель:
@@ -3837,6 +3847,11 @@ begin
      end;
  end;
  
      end;
  end;
  
+procedure TMainForm.RenderPanelPaint(Sender: TObject);
+begin
+  Draw();
+end;
+
  procedure TMainForm.RenderPanelMouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
  var
  procedure TMainForm.RenderPanelMouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
  var
@@ -3909,8 +3924,10 @@ begin
        begin
          if DrawRect = nil then
            New(DrawRect);
        begin
          if DrawRect = nil then
            New(DrawRect);
-        DrawRect.TopLeft := MouseRDownPos;
-        DrawRect.BottomRight := MousePos;
+        DrawRect.Top := MouseRDownPos.y;
+        DrawRect.Left := MouseRDownPos.x;
+        DrawRect.Bottom := MousePos.y;
+        DrawRect.Right := MousePos.x;
        end
      else
      // Двигаем выделенные объекты:
        end
      else
      // Двигаем выделенные объекты:
@@ -3959,8 +3976,10 @@ begin
        begin
          if DrawRect = nil then
            New(DrawRect);
        begin
          if DrawRect = nil then
            New(DrawRect);
-        DrawRect.TopLeft := MouseLDownPos;
-        DrawRect.BottomRight := MousePos;
+        DrawRect.Top := MouseLDownPos.y;
+        DrawRect.Left := MouseLDownPos.x;
+        DrawRect.Bottom := MousePos.y;
+        DrawRect.Right := MousePos.x;
        end
      else // Двигаем карту:
        if MouseAction = MOUSEACTION_MOVEMAP then
        end
      else // Двигаем карту:
        if MouseAction = MOUSEACTION_MOVEMAP then
@@ -3983,7 +4002,7 @@ begin
    CanClose := MessageBox(0, PChar(_lc[I_MSG_EXIT_PROMT]),
                           PChar(_lc[I_MSG_EXIT]),
                           MB_ICONQUESTION or MB_YESNO or
    CanClose := MessageBox(0, PChar(_lc[I_MSG_EXIT_PROMT]),
                           PChar(_lc[I_MSG_EXIT]),
                           MB_ICONQUESTION or MB_YESNO or
-                         MB_TASKMODAL or MB_DEFBUTTON1) = idYes;
+                         MB_DEFBUTTON1) = idYes;
  end;
  
  procedure TMainForm.aExitExecute(Sender: TObject);
  end;
  
  procedure TMainForm.aExitExecute(Sender: TObject);
@@ -4023,8 +4042,6 @@ begin
    config.Free();
  
    slInvalidTextures.Free;
    config.Free();
  
    slInvalidTextures.Free;
-
-  wglDeleteContext(hRC);
  end;
  
  procedure TMainForm.RenderPanelResize(Sender: TObject);
  end;
  
  procedure TMainForm.RenderPanelResize(Sender: TObject);
@@ -4632,9 +4649,9 @@ begin
              TRIGGER_EXIT:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_NEXT_MAP]];
              TRIGGER_EXIT:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_NEXT_MAP]];
-                ZeroMemory(@Data.MapName[0], 16);
+                FillByte(Data.MapName[0], 16, 0);
                  if s <> '' then
                  if s <> '' then
-                  CopyMemory(@Data.MapName[0], @s[1], Min(Length(s), 16));
+                  Move(Data.MapName[0], s[1], Min(Length(s), 16));
                end;
  
              TRIGGER_TEXTURE:
                end;
  
              TRIGGER_TEXTURE:
@@ -4671,9 +4688,9 @@ begin
              TRIGGER_SOUND:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_NAME]];
              TRIGGER_SOUND:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_NAME]];
-                ZeroMemory(@Data.SoundName[0], 64);
+                FillByte(Data.SoundName[0], 64, 0);
                  if s <> '' then
                  if s <> '' then
-                  CopyMemory(@Data.SoundName[0], @s[1], Min(Length(s), 64));
+                  Move(Data.SoundName[0], s[1], Min(Length(s), 64));
  
                  Data.Volume := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_VOLUME]], 0), 255);
                  Data.Pan := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_PAN]], 0), 255);
  
                  Data.Volume := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_VOLUME]], 0), 255);
                  Data.Pan := Min(StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_SOUND_PAN]], 0), 255);
@@ -4725,9 +4742,9 @@ begin
              TRIGGER_MUSIC:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_NAME]];
              TRIGGER_MUSIC:
                begin
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_NAME]];
-                ZeroMemory(@Data.MusicName[0], 64);
+                FillByte(Data.MusicName[0], 64, 0);
                  if s <> '' then
                  if s <> '' then
-                  CopyMemory(@Data.MusicName[0], @s[1], Min(Length(s), 64));
+                  Move(Data.MusicName[0], s[1], Min(Length(s), 64));
  
                  if vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_ACT]] = _lc[I_PROP_TR_MUSIC_ON] then
                    Data.MusicAction := 1
  
                  if vleObjectProperty.Values[_lc[I_PROP_TR_MUSIC_ACT]] = _lc[I_PROP_TR_MUSIC_ON] then
                    Data.MusicAction := 1
@@ -4785,9 +4802,9 @@ begin
                    Data.MessageSendTo := 5;
  
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TEXT]];
                    Data.MessageSendTo := 5;
  
                  s := vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TEXT]];
-                ZeroMemory(@Data.MessageText[0], 100);
+                FillByte(Data.MessageText[0], 100, 0);
                  if s <> '' then
                  if s <> '' then
-                  CopyMemory(@Data.MessageText[0], @s[1], Min(Length(s), 100));
+                  Move(Data.MessageText[0], s[1], Min(Length(s), 100));
  
                  Data.MessageTime := Min(Max(
                    StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TIME]], 0), 0), 65535);
  
                  Data.MessageTime := Min(Max(
                    StrToIntDef(vleObjectProperty.Values[_lc[I_PROP_TR_MESSAGE_TIME]], 0), 0), 65535);
@@ -4915,7 +4932,7 @@ begin
                                  [SelectedTexture()])),
                  PChar(_lc[I_MSG_DEL_TEXTURE]),
                  MB_ICONQUESTION or MB_YESNO or
                                  [SelectedTexture()])),
                  PChar(_lc[I_MSG_DEL_TEXTURE]),
                  MB_ICONQUESTION or MB_YESNO or
-                MB_TASKMODAL or MB_DEFBUTTON1) <> idYes then
+                MB_DEFBUTTON1) <> idYes then
      Exit;
  
    if gPanels <> nil then
      Exit;
  
    if gPanels <> nil then
@@ -4940,7 +4957,7 @@ begin
    if (MessageBox(0, PChar(_lc[I_MSG_CLEAR_MAP_PROMT]),
                   PChar(_lc[I_MSG_CLEAR_MAP]),
                   MB_ICONQUESTION or MB_YESNO or
    if (MessageBox(0, PChar(_lc[I_MSG_CLEAR_MAP_PROMT]),
                   PChar(_lc[I_MSG_CLEAR_MAP]),
                   MB_ICONQUESTION or MB_YESNO or
-                 MB_TASKMODAL or MB_DEFBUTTON1) = mrYes) then
+                 MB_DEFBUTTON1) = mrYes) then
      FullClear();
  end;
  
      FullClear();
  end;
  
@@ -5761,13 +5778,13 @@ begin
    begin
      str := SelectMapForm.lbMapList.Items[SelectMapForm.lbMapList.ItemIndex];
      MapName := '';
    begin
      str := SelectMapForm.lbMapList.Items[SelectMapForm.lbMapList.ItemIndex];
      MapName := '';
-    CopyMemory(@MapName[0], @str[1], Min(16, Length(str)));
+    Move(MapName[0], str[1], Min(16, Length(str)));
  
      if MessageBox(0, PChar(Format(_lc[I_MSG_DELETE_MAP_PROMT],
                             [MapName, OpenDialog.FileName])),
                    PChar(_lc[I_MSG_DELETE_MAP]),
                    MB_ICONQUESTION or MB_YESNO or
  
      if MessageBox(0, PChar(Format(_lc[I_MSG_DELETE_MAP_PROMT],
                             [MapName, OpenDialog.FileName])),
                    PChar(_lc[I_MSG_DELETE_MAP]),
                    MB_ICONQUESTION or MB_YESNO or
-                  MB_TASKMODAL or MB_DEFBUTTON2) <> mrYes then
+                  MB_DEFBUTTON2) <> mrYes then
        Exit;
  
      WAD.RemoveResource('', MapName);
        Exit;
  
      WAD.RemoveResource('', MapName);
@@ -5776,7 +5793,7 @@ begin
                                 [MapName])),
                 PChar(_lc[I_MSG_MAP_DELETED]),
                 MB_ICONINFORMATION or MB_OK or
                                 [MapName])),
                 PChar(_lc[I_MSG_MAP_DELETED]),
                 MB_ICONINFORMATION or MB_OK or
-               MB_TASKMODAL or MB_DEFBUTTON1);
+               MB_DEFBUTTON1);
  
      WAD.SaveTo(OpenDialog.FileName);
  
  
      WAD.SaveTo(OpenDialog.FileName);
  
@@ -6014,6 +6031,17 @@ end;
  
  procedure TMainForm.OnIdle(Sender: TObject; var Done: Boolean);
  begin
  
  procedure TMainForm.OnIdle(Sender: TObject; var Done: Boolean);
  begin
+  // FIXME: this is a shitty hack
+  if not gDataLoaded then
+  begin
+    e_WriteLog('Init OpenGL', MSG_NOTIFY);
+    e_InitGL();
+    e_WriteLog('Loading data', MSG_NOTIFY);
+    LoadStdFont('STDTXT', 'STDFONT', gEditorFont);
+    LoadData();
+    gDataLoaded := True;
+    MainForm.FormResize(nil);
+  end;
    Draw();
  end;
  
    Draw();
  end;
  
@@ -6222,10 +6250,7 @@ begin
    Application.Minimize();
    if ExecuteProcess(TestD2dExe, cmd) < 0 then
    begin
    Application.Minimize();
    if ExecuteProcess(TestD2dExe, cmd) < 0 then
    begin
-    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
-                  nil, GetLastError(), LANG_SYSTEM_DEFAULT,
-                  @lpMsgBuf, 0, nil);
-    MessageBox(0, lpMsgBuf,
+    MessageBox(0, 'FIXME',
                 PChar(_lc[I_MSG_EXEC_ERROR]),
                 MB_OK or MB_ICONERROR);
    end;
                 PChar(_lc[I_MSG_EXEC_ERROR]),
                 MB_OK or MB_ICONERROR);
    end;
diff --git a/src/editor/f_mapoptions.lfm b/src/editor/f_mapoptions.lfm

index 418547a9b35399e201b55c70217de5776512c3b2..f33a7b63f189b2e6dafe1756b7d93349b7cd849a 100644 (file)
--- a/src/editor/f_mapoptions.lfm
+++ b/src/editor/f_mapoptions.lfm
@@ -1,247 +1,274 @@
  object MapOptionsForm: TMapOptionsForm
    Left = 594
  object MapOptionsForm: TMapOptionsForm
    Left = 594
+  Height = 350
    Top = 204
    Top = 204
+  Width = 340
    BorderIcons = [biSystemMenu]
    BorderStyle = bsSingle
    Caption = 'Параметры карты'
    ClientHeight = 350
    ClientWidth = 340
    Color = clBtnFace
    BorderIcons = [biSystemMenu]
    BorderStyle = bsSingle
    Caption = 'Параметры карты'
    ClientHeight = 350
    ClientWidth = 340
    Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
-  Font.Style = []
+  OnActivate = FormActivate
    Position = poScreenCenter
    ShowHint = True
    Position = poScreenCenter
    ShowHint = True
-  OnActivate = FormActivate
-  PixelsPerInch = 96
+  LCLVersion = '1.6.0.4'
    object LabelDesc: TLabel
      Left = 3
    object LabelDesc: TLabel
      Left = 3
+    Height = 13
      Top = 43
      Width = 87
      Top = 43
      Width = 87
-    Height = 13
      Caption = 'Описание карты:'
      Caption = 'Описание карты:'
+    ParentColor = False
    end
    object lCharCountName: TLabel
      Left = 131
    end
    object lCharCountName: TLabel
      Left = 131
+    Height = 13
      Top = 3
      Width = 41
      Top = 3
      Width = 41
-    Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '00\32'
      Alignment = taRightJustify
      AutoSize = False
      Caption = '00\32'
+    ParentColor = False
    end
    object lCharCountDescription: TLabel
      Left = 131
    end
    object lCharCountDescription: TLabel
      Left = 131
+    Height = 13
      Top = 43
      Width = 41
      Top = 43
      Width = 41
-    Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '000\256'
      Alignment = taRightJustify
      AutoSize = False
      Caption = '000\256'
+    ParentColor = False
    end
    object LabelName: TLabel
      Left = 3
    end
    object LabelName: TLabel
      Left = 3
+    Height = 13
      Top = 3
      Width = 87
      Top = 3
      Width = 87
-    Height = 13
      Caption = 'Название карты:'
      Caption = 'Название карты:'
+    ParentColor = False
    end
    object LabelBack: TLabel
      Left = 3
    end
    object LabelBack: TLabel
      Left = 3
+    Height = 13
      Top = 131
      Width = 26
      Top = 131
      Width = 26
-    Height = 13
      Caption = 'Фон:'
      Caption = 'Фон:'
+    ParentColor = False
    end
    object LabelMusic: TLabel
      Left = 3
    end
    object LabelMusic: TLabel
      Left = 3
+    Height = 13
      Top = 171
      Width = 43
      Top = 171
      Width = 43
-    Height = 13
      Caption = 'Музыка:'
      Caption = 'Музыка:'
+    ParentColor = False
    end
    object LabelAuthor: TLabel
      Left = 3
    end
    object LabelAuthor: TLabel
      Left = 3
+    Height = 13
      Top = 83
      Width = 33
      Top = 83
      Width = 33
-    Height = 13
      Caption = 'Автор:'
      Caption = 'Автор:'
+    ParentColor = False
    end
    object lCharCountAuthor: TLabel
      Left = 131
    end
    object lCharCountAuthor: TLabel
      Left = 131
+    Height = 13
      Top = 83
      Width = 41
      Top = 83
      Width = 41
-    Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = '00\32'
      Alignment = taRightJustify
      AutoSize = False
      Caption = '00\32'
+    ParentColor = False
    end
    object GBStats: TGroupBox
      Left = 179
    end
    object GBStats: TGroupBox
      Left = 179
+    Height = 118
      Top = 3
      Width = 158
      Top = 3
      Width = 158
-    Height = 118
      Caption = 'Статистика:'
      Caption = 'Статистика:'
+    ClientHeight = 100
+    ClientWidth = 154
      TabOrder = 3
      object lPanelCount: TLabel
        Left = 80
      TabOrder = 3
      object lPanelCount: TLabel
        Left = 80
+      Height = 13
        Top = 18
        Width = 64
        Top = 18
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object lTextureCount: TLabel
        Left = 80
      end
      object lTextureCount: TLabel
        Left = 80
+      Height = 13
        Top = 2
        Width = 64
        Top = 2
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object lItemCount: TLabel
        Left = 80
      end
      object lItemCount: TLabel
        Left = 80
+      Height = 13
        Top = 34
        Width = 64
        Top = 34
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object LabelPanels: TLabel
        Left = 6
      end
      object LabelPanels: TLabel
        Left = 6
+      Height = 13
        Top = 18
        Width = 47
        Top = 18
        Width = 47
-      Height = 13
        Caption = 'Панелей:'
        Caption = 'Панелей:'
+      ParentColor = False
      end
      object LabelTexs: TLabel
        Left = 6
      end
      object LabelTexs: TLabel
        Left = 6
+      Height = 13
        Top = 2
        Width = 44
        Top = 2
        Width = 44
-      Height = 13
        Caption = 'Текстур:'
        Caption = 'Текстур:'
+      ParentColor = False
      end
      object LabelItems: TLabel
        Left = 6
      end
      object LabelItems: TLabel
        Left = 6
+      Height = 13
        Top = 34
        Width = 60
        Top = 34
        Width = 60
-      Height = 13
        Caption = 'Предметов:'
        Caption = 'Предметов:'
+      ParentColor = False
      end
      object LabelMonsters: TLabel
        Left = 6
      end
      object LabelMonsters: TLabel
        Left = 6
+      Height = 13
        Top = 50
        Width = 53
        Top = 50
        Width = 53
-      Height = 13
        Caption = 'Монстров:'
        Caption = 'Монстров:'
+      ParentColor = False
      end
      object lMonsterCount: TLabel
        Left = 80
      end
      object lMonsterCount: TLabel
        Left = 80
+      Height = 13
        Top = 50
        Width = 64
        Top = 50
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object LabelAreas: TLabel
        Left = 6
      end
      object LabelAreas: TLabel
        Left = 6
+      Height = 13
        Top = 66
        Width = 52
        Top = 66
        Width = 52
-      Height = 13
        Caption = 'Областей:'
        Caption = 'Областей:'
+      ParentColor = False
      end
      object lAreaCount: TLabel
        Left = 80
      end
      object lAreaCount: TLabel
        Left = 80
+      Height = 13
        Top = 66
        Width = 64
        Top = 66
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object LabelTriggers: TLabel
        Left = 6
      end
      object LabelTriggers: TLabel
        Left = 6
+      Height = 13
        Top = 82
        Width = 56
        Top = 82
        Width = 56
-      Height = 13
        Caption = 'Триггеров:'
        Caption = 'Триггеров:'
+      ParentColor = False
      end
      object lTriggerCount: TLabel
        Left = 80
      end
      object lTriggerCount: TLabel
        Left = 80
+      Height = 13
        Top = 82
        Width = 64
        Top = 82
        Width = 64
-      Height = 13
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
    end
    object bOK: TButton
      Left = 163
      end
    end
    object bOK: TButton
      Left = 163
+    Height = 25
      Top = 323
      Width = 75
      Top = 323
      Width = 75
-    Height = 25
      Caption = 'ОК'
      Default = True
      Caption = 'ОК'
      Default = True
-    TabOrder = 11
      OnClick = bOKClick
      OnClick = bOKClick
+    TabOrder = 11
    end
    object bCancel: TButton
      Left = 251
    end
    object bCancel: TButton
      Left = 251
+    Height = 25
      Top = 323
      Width = 75
      Top = 323
      Width = 75
-    Height = 25
      Cancel = True
      Caption = 'Отмена'
      Cancel = True
      Caption = 'Отмена'
-    TabOrder = 12
      OnClick = bCancelClick
      OnClick = bCancelClick
+    TabOrder = 12
    end
    object GBSizes: TGroupBox
      Left = 3
    end
    object GBSizes: TGroupBox
      Left = 3
+    Height = 105
      Top = 216
      Width = 334
      Top = 216
      Width = 334
-    Height = 105
      Caption = 'Размеры:'
      Caption = 'Размеры:'
+    ClientHeight = 87
+    ClientWidth = 330
      TabOrder = 10
      object LabelWidth: TLabel
      TabOrder = 10
      object LabelWidth: TLabel
-      Left = 14
-      Top = 10
-      Width = 42
+      Left = 8
        Height = 13
        Height = 13
+      Top = 3
+      Width = 42
        AutoSize = False
        Caption = 'Ширина:'
        AutoSize = False
        Caption = 'Ширина:'
+      ParentColor = False
      end
      object LabelHeight: TLabel
      end
      object LabelHeight: TLabel
-      Left = 14
-      Top = 36
-      Width = 41
+      Left = 8
        Height = 13
        Height = 13
+      Top = 29
+      Width = 41
        AutoSize = False
        Caption = 'Высота:'
        AutoSize = False
        Caption = 'Высота:'
+      ParentColor = False
      end
      object LabelCurSize: TLabel
      end
      object LabelCurSize: TLabel
-      Left = 14
-      Top = 66
-      Width = 48
+      Left = 2
        Height = 13
        Height = 13
+      Top = 56
+      Width = 48
        AutoSize = False
        Caption = 'Текущий:'
        AutoSize = False
        Caption = 'Текущий:'
+      ParentColor = False
      end
      object lCurrentMapSizes: TLabel
      end
      object lCurrentMapSizes: TLabel
-      Left = 67
-      Top = 66
-      Width = 68
+      Left = 56
        Height = 13
        Height = 13
+      Top = 59
+      Width = 68
        AutoSize = False
        AutoSize = False
+      ParentColor = False
      end
      object sbMoveCenter: TSpeedButton
      end
      object sbMoveCenter: TSpeedButton
-      Left = 262
-      Top = 26
-      Width = 25
+      Left = 280
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 20
+      Width = 25
        Down = True
        Down = True
+      GroupIndex = 1
      end
      object sbMoveUpLeft: TSpeedButton
      end
      object sbMoveUpLeft: TSpeedButton
-      Left = 238
-      Top = 2
-      Width = 25
+      Left = 256
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = -4
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -268,14 +295,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveUp: TSpeedButton
      end
      object sbMoveUp: TSpeedButton
-      Left = 262
-      Top = 2
-      Width = 25
+      Left = 280
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = -4
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -302,14 +330,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveUpRight: TSpeedButton
      end
      object sbMoveUpRight: TSpeedButton
-      Left = 286
-      Top = 2
-      Width = 25
+      Left = 304
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = -4
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -336,14 +365,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveRight: TSpeedButton
      end
      object sbMoveRight: TSpeedButton
-      Left = 286
-      Top = 26
-      Width = 25
+      Left = 304
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 20
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -370,14 +400,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveLeft: TSpeedButton
      end
      object sbMoveLeft: TSpeedButton
-      Left = 238
-      Top = 26
-      Width = 25
+      Left = 256
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 20
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -404,14 +435,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveDownLeft: TSpeedButton
      end
      object sbMoveDownLeft: TSpeedButton
-      Left = 238
-      Top = 50
-      Width = 25
+      Left = 256
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 44
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -438,14 +470,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveDown: TSpeedButton
      end
      object sbMoveDown: TSpeedButton
-      Left = 262
-      Top = 50
-      Width = 25
+      Left = 280
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 44
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -472,14 +505,15 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object sbMoveDownRight: TSpeedButton
      end
      object sbMoveDownRight: TSpeedButton
-      Left = 286
-      Top = 50
-      Width = 25
+      Left = 304
        Height = 25
        Height = 25
-      GroupIndex = 1
+      Top = 44
+      Width = 25
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
@@ -506,67 +540,75 @@ object MapOptionsForm: TMapOptionsForm
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
-        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+      }
+      GroupIndex = 1
      end
      object LabelMapMove: TLabel
      end
      object LabelMapMove: TLabel
-      Left = 142
-      Top = 4
-      Width = 85
+      Left = 160
        Height = 39
        Height = 39
+      Top = 0
+      Width = 85
        Alignment = taRightJustify
        AutoSize = False
        Alignment = taRightJustify
        AutoSize = False
-      BiDiMode = bdLeftToRight
        Caption = 'Направление смещения объектов карты:'
        Caption = 'Направление смещения объектов карты:'
-      ParentBiDiMode = False
+      ParentBidiMode = False
+      ParentColor = False
        WordWrap = True
      end
      object eMapWidth: TEdit
        WordWrap = True
      end
      object eMapWidth: TEdit
-      Left = 66
-      Top = 7
-      Width = 45
+      Left = 60
        Height = 21
        Height = 21
+      Top = 0
+      Width = 45
        MaxLength = 5
        MaxLength = 5
+      OnKeyPress = eMapSizeKeyPress
        TabOrder = 0
        Text = '0'
        TabOrder = 0
        Text = '0'
-      OnKeyPress = eMapSizeKeyPress
      end
      object UpDown1: TUpDown
      end
      object UpDown1: TUpDown
-      Left = 111
-      Top = 7
-      Width = 17
+      Left = 105
        Height = 21
        Height = 21
+      Top = 0
+      Width = 17
        Associate = eMapWidth
        Associate = eMapWidth
-      Max = 16384
        Increment = 16
        Increment = 16
+      Max = 16384
+      Min = 0
+      Position = 0
        TabOrder = 1
        Thousands = False
        TabOrder = 1
        Thousands = False
+      Wrap = False
      end
      object eMapHeight: TEdit
      end
      object eMapHeight: TEdit
-      Left = 66
-      Top = 33
-      Width = 45
+      Left = 60
        Height = 21
        Height = 21
+      Top = 26
+      Width = 45
        MaxLength = 5
        MaxLength = 5
+      OnKeyPress = eMapSizeKeyPress
        TabOrder = 2
        Text = '0'
        TabOrder = 2
        Text = '0'
-      OnKeyPress = eMapSizeKeyPress
      end
      object UpDown2: TUpDown
      end
      object UpDown2: TUpDown
-      Left = 111
-      Top = 33
-      Width = 17
+      Left = 105
        Height = 21
        Height = 21
+      Top = 26
+      Width = 17
        Associate = eMapHeight
        Associate = eMapHeight
-      Max = 16384
        Increment = 16
        Increment = 16
+      Max = 16384
+      Min = 0
+      Position = 0
        TabOrder = 3
        Thousands = False
        TabOrder = 3
        Thousands = False
+      Wrap = False
      end
      object cbSnapping: TCheckBox
      end
      object cbSnapping: TCheckBox
-      Left = 158
+      Left = 128
+      Height = 19
        Top = 50
        Top = 50
-      Width = 73
-      Height = 33
+      Width = 123
        Alignment = taLeftJustify
        Caption = 'Сохранять привязку'
        Checked = True
        Alignment = taLeftJustify
        Caption = 'Сохранять привязку'
        Checked = True
@@ -576,89 +618,89 @@ object MapOptionsForm: TMapOptionsForm
    end
    object eMapDescription: TEdit
      Left = 3
    end
    object eMapDescription: TEdit
      Left = 3
+    Height = 21
      Top = 59
      Width = 174
      Top = 59
      Width = 174
-    Height = 21
      MaxLength = 256
      MaxLength = 256
-    TabOrder = 1
      OnChange = eMapDescriptionChange
      OnChange = eMapDescriptionChange
+    TabOrder = 1
    end
    object eMapName: TEdit
      Left = 3
    end
    object eMapName: TEdit
      Left = 3
+    Height = 21
      Top = 19
      Width = 174
      Top = 19
      Width = 174
-    Height = 21
      MaxLength = 32
      MaxLength = 32
-    TabOrder = 0
      OnChange = eMapNameChange
      OnChange = eMapNameChange
+    TabOrder = 0
    end
    object eBack: TEdit
      Left = 3
    end
    object eBack: TEdit
      Left = 3
+    Height = 21
      Top = 147
      Width = 278
      Top = 147
      Width = 278
-    Height = 21
-    TabStop = False
      Color = clBtnFace
      Color = clBtnFace
+    OnChange = eMapDescriptionChange
      ReadOnly = True
      ReadOnly = True
+    TabStop = False
      TabOrder = 4
      TabOrder = 4
-    OnChange = eMapDescriptionChange
    end
    object eMusic: TEdit
      Left = 3
    end
    object eMusic: TEdit
      Left = 3
+    Height = 21
      Top = 187
      Width = 278
      Top = 187
      Width = 278
-    Height = 21
-    TabStop = False
      Color = clBtnFace
      Color = clBtnFace
+    OnChange = eMapDescriptionChange
      ReadOnly = True
      ReadOnly = True
+    TabStop = False
      TabOrder = 7
      TabOrder = 7
-    OnChange = eMapDescriptionChange
    end
    object bSelectBack: TButton
      Left = 311
    end
    object bSelectBack: TButton
      Left = 311
-    Top = 146
-    Width = 23
      Height = 23
      Hint = 'Выбрать фон'
      Height = 23
      Hint = 'Выбрать фон'
+    Top = 146
+    Width = 23
      Caption = '...'
      Caption = '...'
-    TabOrder = 5
      OnClick = bSelectBackClick
      OnClick = bSelectBackClick
+    TabOrder = 5
    end
    object bSelectMusic: TButton
      Left = 311
    end
    object bSelectMusic: TButton
      Left = 311
-    Top = 186
-    Width = 23
      Height = 23
      Hint = 'Выбрать музыку'
      Height = 23
      Hint = 'Выбрать музыку'
+    Top = 186
+    Width = 23
      Caption = '...'
      Caption = '...'
-    TabOrder = 8
      OnClick = bSelectMusicClick
      OnClick = bSelectMusicClick
+    TabOrder = 8
    end
    object eAuthor: TEdit
      Left = 3
    end
    object eAuthor: TEdit
      Left = 3
+    Height = 21
      Top = 99
      Width = 174
      Top = 99
      Width = 174
-    Height = 21
      MaxLength = 32
      MaxLength = 32
-    TabOrder = 2
      OnChange = eAuthorChange
      OnChange = eAuthorChange
+    TabOrder = 2
    end
    object bRemoveBack: TButton
      Left = 285
    end
    object bRemoveBack: TButton
      Left = 285
-    Top = 146
-    Width = 23
      Height = 23
      Hint = 'Убрать фон'
      Height = 23
      Hint = 'Убрать фон'
-    TabOrder = 6
+    Top = 146
+    Width = 23
      OnClick = bRemoveBackClick
      OnClick = bRemoveBackClick
+    TabOrder = 6
    end
    object bRemoveMusic: TButton
      Left = 285
    end
    object bRemoveMusic: TButton
      Left = 285
-    Top = 186
-    Width = 23
      Height = 23
      Hint = 'Убрать музыку'
      Height = 23
      Hint = 'Убрать музыку'
-    TabOrder = 9
+    Top = 186
+    Width = 23
      OnClick = bRemoveMusicClick
      OnClick = bRemoveMusicClick
+    TabOrder = 9
    end
  end
    end
  end
diff --git a/src/editor/f_options.lfm b/src/editor/f_options.lfm

index 37d9ec1d18babbcd207d8964b80b01e9a7e7390c..d400d8b7b215853f1e49457b8ac95929fc667b1c 100644 (file)
--- a/src/editor/f_options.lfm
+++ b/src/editor/f_options.lfm
@@ -1,232 +1,246 @@
  object OptionsForm: TOptionsForm
    Left = 202
  object OptionsForm: TOptionsForm
    Left = 202
+  Height = 262
    Top = 174
    Top = 174
+  Width = 435
    BorderIcons = [biSystemMenu]
    BorderStyle = bsSingle
    Caption = 'Настройки редактора'
    ClientHeight = 262
    BorderIcons = [biSystemMenu]
    BorderStyle = bsSingle
    Caption = 'Настройки редактора'
    ClientHeight = 262
-  ClientWidth = 415
+  ClientWidth = 435
    Color = clBtnFace
    Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  Position = poScreenCenter
    OnActivate = FormActivate
    OnActivate = FormActivate
-  PixelsPerInch = 96
+  Position = poScreenCenter
+  LCLVersion = '1.6.0.4'
    object GroupBox1: TGroupBox
      Left = 8
    object GroupBox1: TGroupBox
      Left = 8
-    Top = 0
-    Width = 401
      Height = 225
      Height = 225
+    Top = 0
+    Width = 425
+    ClientHeight = 207
+    ClientWidth = 421
      TabOrder = 0
      object sDotColor: TShape
      TabOrder = 0
      object sDotColor: TShape
-      Left = 318
+      Left = 344
+      Height = 25
        Top = 2
        Width = 57
        Top = 2
        Width = 57
-      Height = 25
      end
      object LabelGrid: TLabel
        Left = 6
      end
      object LabelGrid: TLabel
        Left = 6
+      Height = 13
        Top = 74
        Width = 61
        Top = 74
        Width = 61
-      Height = 13
        Caption = 'Шаги сетки:'
        Caption = 'Шаги сетки:'
+      ParentColor = False
      end
      object LabelGridCol: TLabel
        Left = 190
      end
      object LabelGridCol: TLabel
        Left = 190
+      Height = 13
        Top = 2
        Width = 60
        Top = 2
        Width = 60
-      Height = 13
        Caption = 'Цвет сетки:'
        Caption = 'Цвет сетки:'
+      ParentColor = False
      end
      object LabelBack: TLabel
        Left = 190
      end
      object LabelBack: TLabel
        Left = 190
+      Height = 13
        Top = 43
        Width = 57
        Top = 43
        Width = 57
-      Height = 13
        Caption = 'Цвет фона:'
        Caption = 'Цвет фона:'
+      ParentColor = False
      end
      object sBackColor: TShape
      end
      object sBackColor: TShape
-      Left = 318
+      Left = 344
+      Height = 25
        Top = 43
        Width = 57
        Top = 43
        Width = 57
-      Height = 25
        Brush.Color = clBlack
      end
      object LabelPreview: TLabel
        Left = 190
        Brush.Color = clBlack
      end
      object LabelPreview: TLabel
        Left = 190
-      Top = 73
-      Width = 84
-      Height = 39
+      Height = 13
+      Top = 72
+      Width = 216
        Caption = 'Цвет фона поля предпросмотра текстуры:'
        Caption = 'Цвет фона поля предпросмотра текстуры:'
+      ParentColor = False
        WordWrap = True
      end
      object sPreviewColor: TShape
        WordWrap = True
      end
      object sPreviewColor: TShape
-      Left = 318
-      Top = 83
-      Width = 57
+      Left = 344
        Height = 25
        Height = 25
+      Top = 88
+      Width = 57
        Brush.Color = clBlack
      end
      object LabelMinimap: TLabel
        Left = 190
        Brush.Color = clBlack
      end
      object LabelMinimap: TLabel
        Left = 190
+      Height = 13
        Top = 131
        Width = 112
        Top = 131
        Width = 112
-      Height = 13
        Caption = 'Масштаб мини-карты:'
        Caption = 'Масштаб мини-карты:'
+      ParentColor = False
      end
      object LabelRecent: TLabel
        Left = 190
      end
      object LabelRecent: TLabel
        Left = 190
+      Height = 13
        Top = 162
        Top = 162
-      Width = 121
-      Height = 26
+      Width = 199
        Caption = 'Запоминать последних открытых карт:'
        Caption = 'Запоминать последних открытых карт:'
+      ParentColor = False
        WordWrap = True
      end
      object LabelLanguage: TLabel
        Left = 6
        WordWrap = True
      end
      object LabelLanguage: TLabel
        Left = 6
+      Height = 13
        Top = 162
        Width = 31
        Top = 162
        Width = 31
-      Height = 13
        Caption = 'Язык:'
        Caption = 'Язык:'
+      ParentColor = False
      end
      object LabelGridSize: TLabel
        Left = 6
      end
      object LabelGridSize: TLabel
        Left = 6
+      Height = 13
        Top = 122
        Top = 122
-      Width = 73
-      Height = 26
+      Width = 105
        Caption = 'Размер точек сетки:'
        Caption = 'Размер точек сетки:'
+      ParentColor = False
        WordWrap = True
      end
      object cbShowDots: TCheckBox
        Left = 6
        WordWrap = True
      end
      object cbShowDots: TCheckBox
        Left = 6
+      Height = 19
        Top = 2
        Top = 2
-      Width = 121
-      Height = 17
+      Width = 114
        Caption = 'Показывать сетку'
        TabOrder = 0
      end
      object UpDown1: TUpDown
        Left = 143
        Caption = 'Показывать сетку'
        TabOrder = 0
      end
      object UpDown1: TUpDown
        Left = 143
+      Height = 21
        Top = 74
        Width = 12
        Top = 74
        Width = 12
-      Height = 21
        Associate = eDotStepOne
        Associate = eDotStepOne
-      Min = 2
        Max = 255
        Max = 255
+      Min = 2
        Position = 16
        TabOrder = 6
        Position = 16
        TabOrder = 6
+      Wrap = False
      end
      object eDotStepOne: TEdit
        Left = 86
      end
      object eDotStepOne: TEdit
        Left = 86
+      Height = 21
        Top = 74
        Width = 57
        Top = 74
        Width = 57
-      Height = 21
        TabOrder = 1
        Text = '16'
      end
      object bGrid: TButton
        TabOrder = 1
        Text = '16'
      end
      object bGrid: TButton
-      Left = 376
+      Left = 402
+      Height = 25
        Top = 2
        Width = 11
        Top = 2
        Width = 11
-      Height = 25
        Caption = '..'
        Caption = '..'
-      TabOrder = 2
        OnClick = bGridClick
        OnClick = bGridClick
+      TabOrder = 2
      end
      object bBack: TButton
      end
      object bBack: TButton
-      Left = 376
+      Left = 402
+      Height = 25
        Top = 43
        Width = 11
        Top = 43
        Width = 11
-      Height = 25
        Caption = '..'
        Caption = '..'
-      TabOrder = 3
        OnClick = bBackClick
        OnClick = bBackClick
+      TabOrder = 3
      end
      object bPreview: TButton
      end
      object bPreview: TButton
-      Left = 376
-      Top = 83
-      Width = 11
+      Left = 402
        Height = 25
        Height = 25
+      Top = 88
+      Width = 11
        Caption = '..'
        Caption = '..'
-      TabOrder = 4
        OnClick = bPreviewClick
        OnClick = bPreviewClick
+      TabOrder = 4
      end
      object cbScale: TComboBox
      end
      object cbScale: TComboBox
-      Left = 318
+      Left = 344
+      Height = 21
        Top = 131
        Width = 70
        Top = 131
        Width = 70
-      Height = 21
-      Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        ItemHeight = 13
        ItemIndex = 0
-      TabOrder = 5
-      Text = '1x'
        Items.Strings = (
          '1x'
        Items.Strings = (
          '1x'
-        '2x')
+        '2x'
+      )
+      Style = csDropDownList
+      TabOrder = 5
+      Text = '1x'
      end
      object cbShowTexture: TCheckBox
        Left = 6
      end
      object cbShowTexture: TCheckBox
        Left = 6
+      Height = 19
        Top = 18
        Width = 169
        Top = 18
        Width = 169
-      Height = 17
        Caption = 'Показывать текстуру панели'
        TabOrder = 7
      end
      object cbShowSize: TCheckBox
        Left = 6
        Caption = 'Показывать текстуру панели'
        TabOrder = 7
      end
      object cbShowSize: TCheckBox
        Left = 6
+      Height = 19
        Top = 34
        Top = 34
-      Width = 169
-      Height = 17
+      Width = 171
        Caption = 'Показывать размеры панели'
        TabOrder = 8
      end
      object eRecent: TEdit
        Caption = 'Показывать размеры панели'
        TabOrder = 8
      end
      object eRecent: TEdit
-      Left = 318
-      Top = 166
-      Width = 57
+      Left = 344
        Height = 21
        Height = 21
+      Top = 184
+      Width = 57
        TabOrder = 9
        Text = '5'
      end
      object UpDown3: TUpDown
        TabOrder = 9
        Text = '5'
      end
      object UpDown3: TUpDown
-      Left = 375
-      Top = 166
-      Width = 12
+      Left = 401
        Height = 21
        Height = 21
+      Top = 184
+      Width = 12
        Associate = eRecent
        Associate = eRecent
-      Min = 2
        Max = 10
        Max = 10
+      Min = 2
        Position = 5
        TabOrder = 10
        Position = 5
        TabOrder = 10
+      Wrap = False
      end
      object eDotStepTwo: TEdit
        Left = 86
      end
      object eDotStepTwo: TEdit
        Left = 86
+      Height = 21
        Top = 98
        Width = 57
        Top = 98
        Width = 57
-      Height = 21
        TabOrder = 11
        Text = '8'
      end
      object UpDown2: TUpDown
        Left = 143
        TabOrder = 11
        Text = '8'
      end
      object UpDown2: TUpDown
        Left = 143
+      Height = 21
        Top = 98
        Width = 12
        Top = 98
        Width = 12
-      Height = 21
        Associate = eDotStepTwo
        Associate = eDotStepTwo
-      Min = 2
        Max = 255
        Max = 255
+      Min = 2
        Position = 8
        TabOrder = 12
        Position = 8
        TabOrder = 12
+      Wrap = False
      end
      object rbRussian: TRadioButton
        Left = 86
      end
      object rbRussian: TRadioButton
        Left = 86
+      Height = 19
        Top = 162
        Top = 162
-      Width = 81
-      Height = 17
+      Width = 62
        Caption = 'Русский'
        Checked = True
        TabOrder = 13
        Caption = 'Русский'
        Checked = True
        TabOrder = 13
@@ -234,47 +248,72 @@ object OptionsForm: TOptionsForm
      end
      object rbEnglish: TRadioButton
        Left = 86
      end
      object rbEnglish: TRadioButton
        Left = 86
+      Height = 19
        Top = 186
        Top = 186
-      Width = 81
-      Height = 17
+      Width = 54
        Caption = 'English'
        TabOrder = 14
      end
      object cbDotSize: TComboBox
        Caption = 'English'
        TabOrder = 14
      end
      object cbDotSize: TComboBox
-      Left = 86
-      Top = 126
-      Width = 73
+      Left = 82
        Height = 21
        Height = 21
+      Top = 136
+      Width = 73
        ItemHeight = 13
        ItemHeight = 13
-      TabOrder = 15
-      Text = '1'
+      ItemIndex = 0
        Items.Strings = (
          '1'
        Items.Strings = (
          '1'
-        '2')
+        '2'
+      )
+      TabOrder = 15
+      Text = '1'
      end
    end
    object bOK: TButton
      end
    end
    object bOK: TButton
-    Left = 240
+    Left = 262
+    Height = 25
      Top = 232
      Width = 75
      Top = 232
      Width = 75
-    Height = 25
      Caption = 'ОК'
      Default = True
      Caption = 'ОК'
      Default = True
-    TabOrder = 1
      OnClick = bOKClick
      OnClick = bOKClick
+    TabOrder = 1
    end
    object bCancel: TButton
    end
    object bCancel: TButton
-    Left = 336
+    Left = 358
+    Height = 25
      Top = 232
      Width = 75
      Top = 232
      Width = 75
-    Height = 25
      Cancel = True
      Caption = 'Отмена'
      Cancel = True
      Caption = 'Отмена'
-    TabOrder = 2
      OnClick = bCancelClick
      OnClick = bCancelClick
+    TabOrder = 2
    end
    object ColorDialog: TColorDialog
    end
    object ColorDialog: TColorDialog
-    Left = 200
-    Top = 232
+    Color = clBlack
+    CustomColors.Strings = (
+      'ColorA=000000'
+      'ColorB=000080'
+      'ColorC=008000'
+      'ColorD=008080'
+      'ColorE=800000'
+      'ColorF=800080'
+      'ColorG=808000'
+      'ColorH=808080'
+      'ColorI=C0C0C0'
+      'ColorJ=0000FF'
+      'ColorK=00FF00'
+      'ColorL=00FFFF'
+      'ColorM=FF0000'
+      'ColorN=FF00FF'
+      'ColorO=FFFF00'
+      'ColorP=FFFFFF'
+      'ColorQ=C0DCC0'
+      'ColorR=F0CAA6'
+      'ColorS=F0FBFF'
+      'ColorT=A4A0A0'
+    )
+    left = 200
+    top = 232
    end
  end
    end
  end
diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas

index 2a99675348972c5a22f5cfaff359af8fa72b4c1a..7a9b194002a0a0f1ca487f542dc44d0307b509be 100644 (file)
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -1,4 +1,4 @@
-Unit g_language;
+Unit g_language;
  
  {$MODE Delphi}
  
  
  {$MODE Delphi}
  
@@ -602,7 +602,8 @@ Const
    LANGUAGE_ENGLISH_N = 2;
  
  Var
    LANGUAGE_ENGLISH_N = 2;
  
  Var
-  _lc: Array [TStrings_Locale] of String;
+  _lc: Array [TStrings_Locale] of String;  // for the GUI (in UTF-8)
+  _glc: Array [TStrings_Locale] of String; // for GL text (in CP1251)
  
    BoolNames: Array [False..True] of String;
    DirNames: Array [D_LEFT..D_RIGHT] of String;
  
    BoolNames: Array [False..True] of String;
    DirNames: Array [D_LEFT..D_RIGHT] of String;
@@ -628,7 +629,7 @@ Uses
    f_addresource_sky, f_addresource_sound,
    f_addresource_texture, f_choosetype, f_keys, f_mapcheck,
    f_mapoptions, f_maptest, f_mapoptimization, f_options,
    f_addresource_sky, f_addresource_sound,
    f_addresource_texture, f_choosetype, f_keys, f_mapcheck,
    f_mapoptions, f_maptest, f_mapoptimization, f_options,
-  f_packmap, f_savemap, f_saveminimap, f_selectmap, Forms;
+  f_packmap, f_savemap, f_saveminimap, f_selectmap, Forms, utils;
  
  Const
    g_lang_default: Array [TStrings_Locale] of Array [1..3] of String = (
  
  Const
    g_lang_default: Array [TStrings_Locale] of Array [1..3] of String = (
@@ -2441,7 +2442,11 @@ begin
      n := LANGUAGE_RUSSIAN_N;
  
    for i := Low(TStrings_Locale) to High(TStrings_Locale) do
      n := LANGUAGE_RUSSIAN_N;
  
    for i := Low(TStrings_Locale) to High(TStrings_Locale) do
+  begin
      _lc[i] := g_lang_default[i][n];
      _lc[i] := g_lang_default[i][n];
+    // have to cache a CP1251 version for GL text
+    _glc[i] := utf8to1251(g_lang_default[i][n]);
+  end;
  
    SetupArrays();
    SetupCaptions();
  
    SetupArrays();
    SetupCaptions();
@@ -2463,4 +2468,4 @@ begin
    CloseFile(F);
  end;
  
    CloseFile(F);
  end;
  
-End.
-\ No newline at end of file
+End.
diff --git a/src/editor/g_map.pas b/src/editor/g_map.pas

index d61a0e2c2fc57d1617ca4b2220de416176c749b2..a49b6f9edb7872fcd0d577db2ffad2f1bed88324 100644 (file)
--- a/src/editor/g_map.pas
+++ b/src/editor/g_map.pas
@@ -1378,7 +1378,7 @@ var
    FileName, SectionName, ResName, _fn: String;
    TextureRes: String;
    pData: Pointer;
    FileName, SectionName, ResName, _fn: String;
    TextureRes: String;
    pData: Pointer;
-  Len: Integer;
+  Len, FrameLen: Integer;
    Error: Boolean;
    NoTextureID: DWORD;
    NW, NH: Word;
    Error: Boolean;
    NoTextureID: DWORD;
    NW, NH: Word;
@@ -1457,14 +1457,14 @@ begin
          end
        else // Anim
          begin // Анимированная текстура
          end
        else // Anim
          begin // Анимированная текстура
-          if not GetFrame(TextureRes, Data, Width, Height) then
+          if not GetFrame(TextureRes, Data, FrameLen, Width, Height) then
            begin // Кадры
              e_WriteLog(Format('GetFrame() error, res=%s',
                                [textures[a].Resource]), MSG_WARNING);
              Error := True;
            end;
  
            begin // Кадры
              e_WriteLog(Format('GetFrame() error, res=%s',
                                [textures[a].Resource]), MSG_WARNING);
              Error := True;
            end;
  
-          if not g_CreateTextureMemorySize(Data, textures[a].Resource, 0, 0, Width, Height, 1) then
+          if not g_CreateTextureMemorySize(Data, FrameLen, textures[a].Resource, 0, 0, Width, Height, 1) then
            begin // Сама текстура
              e_WriteLog(Format('g_CreateTextureMemorySize() error, res=%s',
                                [textures[a].Resource]), MSG_WARNING);
            begin // Сама текстура
              e_WriteLog(Format('g_CreateTextureMemorySize() error, res=%s',
                                [textures[a].Resource]), MSG_WARNING);
diff --git a/src/editor/g_textures.pas b/src/editor/g_textures.pas

index 5cad990728fdeef920044afd92044e06680ab12e..7c130136b8a53f6a035b92cfac6dcdba877465d8 100644 (file)
--- a/src/editor/g_textures.pas
+++ b/src/editor/g_textures.pas
@@ -13,7 +13,7 @@ function g_SimpleCreateTextureWADSize(var ID: DWORD; Resource: string;
  function g_CreateTextureWAD(TextureName: ShortString; Resource: string; flag: Byte = 0): Boolean;
  function g_CreateTextureWADSize(TextureName: ShortString; Resource: string;
                                  X, Y, Width, Height: Word; flag: Byte = 0): Boolean;
  function g_CreateTextureWAD(TextureName: ShortString; Resource: string; flag: Byte = 0): Boolean;
  function g_CreateTextureWADSize(TextureName: ShortString; Resource: string;
                                  X, Y, Width, Height: Word; flag: Byte = 0): Boolean;
-function g_CreateTextureMemorySize(pData: Pointer; Name: ShortString; X, Y,
+function g_CreateTextureMemorySize(pData: Pointer; dataLen: Integer; Name: ShortString; X, Y,
                                     Width, Height: Word; flag: Byte = 0): Boolean;
  
  function g_GetTexture(TextureName: ShortString; var ID: DWORD): Boolean;
                                     Width, Height: Word; flag: Byte = 0): Boolean;
  
  function g_GetTexture(TextureName: ShortString; var ID: DWORD): Boolean;
@@ -82,7 +82,7 @@ begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
-  if e_CreateTextureMem(TextureData, ID) then Result := True;
+  if e_CreateTextureMem(TextureData, ResourceLength, ID) then Result := True;
    FreeMem(TextureData);
   end
    else
    FreeMem(TextureData);
   end
    else
@@ -93,7 +93,7 @@ begin
   WAD.Destroy;
  end;
  
   WAD.Destroy;
  end;
  
-function g_CreateTextureMemorySize(pData: Pointer; Name: ShortString; X, Y,
+function g_CreateTextureMemorySize(pData: Pointer; dataLen: Integer; Name: ShortString; X, Y,
                                     Width, Height: Word; flag: Byte = 0): Boolean;
  var
    find_id: DWORD;
                                     Width, Height: Word; flag: Byte = 0): Boolean;
  var
    find_id: DWORD;
@@ -104,7 +104,7 @@ begin
  
    find_id := FindTexture;
  
  
    find_id := FindTexture;
  
-  if not e_CreateTextureMemEx(pData, TexturesArray[find_id].ID, X, Y, Width, Height) then
+  if not e_CreateTextureMemEx(pData, dataLen, TexturesArray[find_id].ID, X, Y, Width, Height) then
    begin
      FreeMem(pData);
      Exit;
    begin
      FreeMem(pData);
      Exit;
@@ -139,7 +139,7 @@ begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
-  Result := e_CreateTextureMem(TextureData, TexturesArray[find_id].ID);
+  Result := e_CreateTextureMem(TextureData, ResourceLength, TexturesArray[find_id].ID);
    FreeMem(TextureData);
    if Result then
    begin
    FreeMem(TextureData);
    if Result then
    begin
@@ -176,7 +176,7 @@ begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
-  if e_CreateTextureMemEx(TextureData, ID, X, Y, Width, Height) then Result := True;
+  if e_CreateTextureMemEx(TextureData, ResourceLength, ID, X, Y, Width, Height) then Result := True;
    FreeMem(TextureData);
   end
    else
    FreeMem(TextureData);
   end
    else
@@ -207,7 +207,7 @@ begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
  
   if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then
   begin
-  Result := e_CreateTextureMemEx(TextureData, TexturesArray[find_id].ID, X, Y, Width, Height);
+  Result := e_CreateTextureMemEx(TextureData, ResourceLength, TexturesArray[find_id].ID, X, Y, Width, Height);
    FreeMem(TextureData);
    if Result then
    begin
    FreeMem(TextureData);
    if Result then
    begin
diff --git a/src/engine/e_graphics.pas b/src/engine/e_graphics.pas

index e4eb35a89ed96385e90571c40c9d4d8d6959f5bc..63a9e5bc113c6569f0cda0a65bcf5bc5d63c9bd6 100644 (file)
--- a/src/engine/e_graphics.pas
+++ b/src/engine/e_graphics.pas
@@ -1,9 +1,26 @@
+(* Copyright (C)  DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$MODE DELPHI}
  unit e_graphics;
  
  interface
  
  uses
  unit e_graphics;
  
  interface
  
  uses
-  windows, SysUtils, Math, e_log, e_textures, dglOpenGL;
+  SysUtils, Classes, Math, e_log, e_textures, GL, GLExt, MAPDEF,
+  ImagingTypes, Imaging, ImagingUtility;
  
  type
    TMirrorType=(M_NONE, M_HORIZONTAL, M_VERTICAL);
  
  type
    TMirrorType=(M_NONE, M_HORIZONTAL, M_VERTICAL);
@@ -13,11 +30,16 @@ type
      X, Y: Integer;
    end;
  
      X, Y: Integer;
    end;
  
+  TPoint = MAPDEF.TPoint; // TODO: create an utiltypes.pas or something
+                          //       for other types like rect as well
+
    TPoint2f = record
      X, Y: Double;
    end;
  
    TPoint2f = record
      X, Y: Double;
    end;
  
-  TRect = windows.TRect;
+  TRect = record
+    Left, Top, Right, Bottom: Integer;
+  end;
  
    TRectWH = record
     X, Y: Integer;
  
    TRectWH = record
     X, Y: Integer;
@@ -37,7 +59,7 @@ type
  //------------------------------------------------------------------
  // ïðîòîòèïû ôóíêöèé
  //------------------------------------------------------------------
  //------------------------------------------------------------------
  // ïðîòîòèïû ôóíêöèé
  //------------------------------------------------------------------
-procedure e_InitGL(VSync: Boolean);
+procedure e_InitGL();
  procedure e_SetViewPort(X, Y, Width, Height: Word);
  procedure e_ResizeWindow(Width, Height: Integer);
  
  procedure e_SetViewPort(X, Y, Width, Height: Word);
  procedure e_ResizeWindow(Width, Height: Integer);
  
@@ -57,22 +79,16 @@ procedure e_DrawQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byt
  procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte;
                           Blending: TBlending = B_NONE);
  
  procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte;
                           Blending: TBlending = B_NONE);
  
+function e_CreateTextureImg (var img: TImageData; var ID: DWORD): Boolean;
  function e_CreateTexture(FileName: string; var ID: DWORD): Boolean;
  function e_CreateTextureEx(FileName: string; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
  function e_CreateTexture(FileName: string; var ID: DWORD): Boolean;
  function e_CreateTextureEx(FileName: string; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
-function e_CreateTextureMem(pData: Pointer; var ID: DWORD): Boolean;
-function e_CreateTextureMemEx(pData: Pointer; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
+function e_CreateTextureMem(pData: Pointer; dataSize: LongInt; var ID: DWORD): Boolean;
+function e_CreateTextureMemEx(pData: Pointer; dataSize: LongInt; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
  procedure e_GetTextureSize(ID: DWORD; Width, Height: PWord);
  function e_GetTextureSize2(ID: DWORD): TRectWH;
  procedure e_DeleteTexture(ID: DWORD);
  procedure e_RemoveAllTextures();
  
  procedure e_GetTextureSize(ID: DWORD; Width, Height: PWord);
  function e_GetTextureSize2(ID: DWORD): TRectWH;
  procedure e_DeleteTexture(ID: DWORD);
  procedure e_RemoveAllTextures();
  
-// SimpleFont
-function e_SimpleFontCreate(FontName: PChar; Size: Byte; Weight: Word; DC: HDC): DWORD;
-procedure e_SimpleFontFree(Font: DWORD);
-procedure e_SimpleFontPrint(X, Y: SmallInt; Text: PChar; Font: Integer; Red, Green, Blue: Byte);
-procedure e_SimpleFontPrintEx(X, Y: SmallInt; Text: PChar; Font: DWORD; Red, Green, Blue,
-                      sRed, sGreen, sBlue, sWidth: Byte);
-
  // CharFont
  function e_CharFont_Create(sp: ShortInt=0): DWORD;
  procedure e_CharFont_AddChar(FontID: DWORD; Texture: Integer; c: Char; w: Byte);
  // CharFont
  function e_CharFont_Create(sp: ShortInt=0): DWORD;
  procedure e_CharFont_AddChar(FontID: DWORD; Texture: Integer; c: Char; w: Byte);
@@ -88,7 +104,7 @@ procedure e_CharFont_Remove(FontID: DWORD);
  procedure e_CharFont_RemoveAll();
  
  // TextureFont
  procedure e_CharFont_RemoveAll();
  
  // TextureFont
-procedure e_TextureFontBuild(Texture: DWORD; var FontID: DWORD; XCount, YCount: Word;
+procedure e_TextureFontBuild(Tex: DWORD; var FontID: DWORD; XCount, YCount: Word;
                               Space: ShortInt=0);
  procedure e_TextureFontKill(FontID: DWORD);
  procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD);
                               Space: ShortInt=0);
  procedure e_TextureFontKill(FontID: DWORD);
  procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD);
@@ -98,38 +114,46 @@ procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD; Shadow
  procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
  procedure e_RemoveAllTextureFont();
  
  procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
  procedure e_RemoveAllTextureFont();
  
+function e_TextureFontCharWidth (ch: Char; FontID: DWORD): Integer;
+procedure e_TextureFontPrintCharEx (X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False);
+
  procedure e_ReleaseEngine();
  procedure e_BeginRender();
  procedure e_ReleaseEngine();
  procedure e_BeginRender();
-procedure e_Clear(Mask: TGLbitfield; Red, Green, Blue: Single);
+procedure e_Clear(Mask: TGLbitfield; Red, Green, Blue: Single); overload;
+procedure e_Clear(); overload;
  procedure e_EndRender();
  
  procedure e_EndRender();
  
-function e_GetGamma(DC: HDC): Byte;
-procedure e_SetGamma(Gamma: Byte; DC: HDC);
-
-procedure e_MakeScreenshot(FileName: string; Width, Height: Word);
-
  function _RGB(Red, Green, Blue: Byte): TRGB;
  function _Point(X, Y: Integer): TPoint2i;
  function _Rect(X, Y: Integer; Width, Height: Word): TRectWH;
  function _RGB(Red, Green, Blue: Byte): TRGB;
  function _Point(X, Y: Integer): TPoint2i;
  function _Rect(X, Y: Integer; Width, Height: Word): TRectWH;
+function _TRect(L, T, R, B: LongInt): TRect;
  
  
+//function e_getTextGLId (ID: DWORD): GLuint;
  
  var
    e_Colors: TRGB;
  
  var
    e_Colors: TRGB;
+  e_NoGraphics: Boolean = False;
+  e_FastScreenshots: Boolean = true; // it's REALLY SLOW with `false`
+
  
  implementation
  
  
  implementation
  
+uses
+  paszlib, crc, utils;
+
+
  type
    TTexture = record
  type
    TTexture = record
-   ID:     DWORD;
-   Width:  Word;
-   Height: Word;
+   tx:     GLTexture;
    end;
  
    TTextureFont = record
    end;
  
    TTextureFont = record
-   TextureID:  DWORD;
-   Base:       GLuint;
-   CharWidth:  Byte;
-   CharHeight: Byte;
+   Texture:     DWORD;
+   TextureID:   DWORD;
+   Base:        Uint32;
+   CharWidth:   Byte;
+   CharHeight:  Byte;
+   XC, YC, SPC: Word;
    end;
  
    TCharFont = record
    end;
  
    TCharFont = record
@@ -143,25 +167,35 @@ type
     Live: Boolean;
    end;
  
     Live: Boolean;
    end;
  
+  TSavedTexture = record
+    TexID:  DWORD;
+    OldID:  DWORD;
+    Pixels: Pointer;
+  end;
+
  var
    e_Textures: array of TTexture = nil;
    e_TextureFonts: array of TTextureFont = nil;
    e_CharFonts: array of TCharFont;
  var
    e_Textures: array of TTexture = nil;
    e_TextureFonts: array of TTextureFont = nil;
    e_CharFonts: array of TCharFont;
+  //e_SavedTextures: array of TSavedTexture;
+
+//function e_getTextGLId (ID: DWORD): GLuint; begin result := e_Textures[ID].tx.id; end;
  
  //------------------------------------------------------------------
  // Èíèöèàëèçèðóåò OpenGL
  //------------------------------------------------------------------
  
  //------------------------------------------------------------------
  // Èíèöèàëèçèðóåò OpenGL
  //------------------------------------------------------------------
-procedure e_InitGL(VSync: Boolean);
+procedure e_InitGL();
  begin
  begin
-  if VSync then
-    wglSwapIntervalEXT(1)
-  else
-    wglSwapIntervalEXT(0);
-  glDisable(GL_DEPTH_TEST);
-  glEnable(GL_SCISSOR_TEST);
+  if e_NoGraphics then
+  begin
+    e_DummyTextures := True;
+    Exit;
+  end;
    e_Colors.R := 255;
    e_Colors.G := 255;
    e_Colors.B := 255;
    e_Colors.R := 255;
    e_Colors.G := 255;
    e_Colors.B := 255;
+  glDisable(GL_DEPTH_TEST);
+  glEnable(GL_SCISSOR_TEST);
    glClearColor(0, 0, 0, 0);
  end;
  
    glClearColor(0, 0, 0, 0);
  end;
  
@@ -170,6 +204,7 @@ var
    mat: Array [0..15] of GLDouble;
  
  begin
    mat: Array [0..15] of GLDouble;
  
  begin
+  if e_NoGraphics then Exit;
    glLoadIdentity();
    glScissor(X, Y, Width, Height);
    glViewport(X, Y, Width, Height);
    glLoadIdentity();
    glScissor(X, Y, Width, Height);
    glViewport(X, Y, Width, Height);
@@ -200,7 +235,7 @@ begin
    glLoadMatrixd(@mat[0]);
  
    glMatrixMode(GL_MODELVIEW);
    glLoadMatrixd(@mat[0]);
  
    glMatrixMode(GL_MODELVIEW);
-  glLoadIdentity();   
+  glLoadIdentity();
  end;
  
  //------------------------------------------------------------------
  end;
  
  //------------------------------------------------------------------
@@ -212,7 +247,7 @@ var
  begin
   if e_Textures <> nil then
   for i := 0 to High(e_Textures) do
  begin
   if e_Textures <> nil then
   for i := 0 to High(e_Textures) do
-  if e_Textures[i].Width = 0 then
+  if e_Textures[i].tx.Width = 0 then
    begin
     Result := i;
     Exit;
    begin
     Result := i;
     Exit;
@@ -236,6 +271,7 @@ end;
  function e_CreateTexture(FileName: String; var ID: DWORD): Boolean;
  var
    find_id: DWORD;
  function e_CreateTexture(FileName: String; var ID: DWORD): Boolean;
  var
    find_id: DWORD;
+  fmt:     Word;
  begin
   Result := False;
  
  begin
   Result := False;
  
@@ -243,8 +279,8 @@ begin
  
   find_id := FindTexture();
  
  
   find_id := FindTexture();
  
- if not LoadTexture(FileName, e_Textures[find_id].ID, e_Textures[find_id].Width,
-                    e_Textures[find_id].Height) then Exit;
+ if not LoadTexture(FileName, e_Textures[find_id].tx, e_Textures[find_id].tx.Width,
+                    e_Textures[find_id].tx.Height, @fmt) then Exit;
  
   ID := find_id;
  
  
   ID := find_id;
  
@@ -254,81 +290,92 @@ end;
  function e_CreateTextureEx(FileName: String; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
  var
    find_id: DWORD;
  function e_CreateTextureEx(FileName: String; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
  var
    find_id: DWORD;
+  fmt:     Word;
  begin
   Result := False;
  
   find_id := FindTexture();
  
  begin
   Result := False;
  
   find_id := FindTexture();
  
- if not LoadTextureEx(FileName, e_Textures[find_id].ID, fX, fY, fWidth, fHeight) then Exit;
-
- e_Textures[find_id].Width := fWidth;
- e_Textures[find_id].Height := fHeight;
+ if not LoadTextureEx(FileName, e_Textures[find_id].tx, fX, fY, fWidth, fHeight, @fmt) then exit;
  
   ID := find_id;
  
   Result := True;
  end;
  
  
   ID := find_id;
  
   Result := True;
  end;
  
-function e_CreateTextureMem(pData: Pointer; var ID: DWORD): Boolean;
+function e_CreateTextureMem(pData: Pointer; dataSize: LongInt; var ID: DWORD): Boolean;
  var
    find_id: DWORD;
  var
    find_id: DWORD;
+  fmt:     Word;
  begin
   Result := False;
  
   find_id := FindTexture;
  
  begin
   Result := False;
  
   find_id := FindTexture;
  
- if not LoadTextureMem(pData, e_Textures[find_id].ID, e_Textures[find_id].Width,
-                   e_Textures[find_id].Height) then Exit;
+ if not LoadTextureMem(pData, dataSize, e_Textures[find_id].tx, e_Textures[find_id].tx.Width, e_Textures[find_id].tx.Height, @fmt) then exit;
  
   id := find_id;
  
   Result := True;
  end;
  
  
   id := find_id;
  
   Result := True;
  end;
  
-function e_CreateTextureMemEx(pData: Pointer; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
+function e_CreateTextureMemEx(pData: Pointer; dataSize: LongInt; var ID: DWORD; fX, fY, fWidth, fHeight: Word): Boolean;
  var
    find_id: DWORD;
  var
    find_id: DWORD;
+  fmt:     Word;
  begin
   Result := False;
  
   find_id := FindTexture();
  
  begin
   Result := False;
  
   find_id := FindTexture();
  
- if not LoadTextureMemEx(pData, e_Textures[find_id].ID, fX, fY, fWidth, fHeight) then Exit;
-
- e_Textures[find_id].Width := fWidth;
- e_Textures[find_id].Height := fHeight;
+ if not LoadTextureMemEx(pData, dataSize, e_Textures[find_id].tx, fX, fY, fWidth, fHeight, @fmt) then exit;
  
   ID := find_id;
  
   Result := True;
  end;
  
  
   ID := find_id;
  
   Result := True;
  end;
  
+function e_CreateTextureImg (var img: TImageData; var ID: DWORD): Boolean;
+var
+  find_id: DWORD;
+  fmt, tw, th: Word;
+begin
+  result := false;
+  find_id := FindTexture();
+  if not LoadTextureImg(img, e_Textures[find_id].tx, tw, th, @fmt) then exit;
+  ID := find_id;
+  result := True;
+end;
+
  procedure e_GetTextureSize(ID: DWORD; Width, Height: PWord);
  begin
  procedure e_GetTextureSize(ID: DWORD; Width, Height: PWord);
  begin
- if Width <> nil then Width^ := e_Textures[ID].Width;
- if Height <> nil then Height^ := e_Textures[ID].Height;
+ if Width <> nil then Width^ := e_Textures[ID].tx.Width;
+ if Height <> nil then Height^ := e_Textures[ID].tx.Height;
  end;
  
  function e_GetTextureSize2(ID: DWORD): TRectWH;
  var
  end;
  
  function e_GetTextureSize2(ID: DWORD): TRectWH;
  var
-  data: Pointer;
+  data: PChar;
    x, y: Integer;
    w, h: Word;
    a: Boolean;
    lastline: Integer;
  begin
    x, y: Integer;
    w, h: Word;
    a: Boolean;
    lastline: Integer;
  begin
- w := e_Textures[ID].Width;
- h := e_Textures[ID].Height;
- data := GetMemory(w*h*4);
- glEnable(GL_TEXTURE_2D);
- glBindTexture(GL_TEXTURE_2D, e_Textures[ID].ID);
- glGetTexImage(GL_TEXTURE_2D, 0, GL_RGBA, GL_UNSIGNED_BYTE, data);
+ w := e_Textures[ID].tx.Width;
+ h := e_Textures[ID].tx.Height;
  
   Result.Y := 0;
   Result.X := 0;
   Result.Width := w;
   Result.Height := h;
  
  
   Result.Y := 0;
   Result.X := 0;
   Result.Width := w;
   Result.Height := h;
  
+ if e_NoGraphics then Exit;
+
+ data := GetMemory(w*h*4);
+ glEnable(GL_TEXTURE_2D);
+ glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id);
+ glGetTexImage(GL_TEXTURE_2D, 0, GL_RGBA, GL_UNSIGNED_BYTE, data);
+
   for y := h-1 downto 0 do
   begin
    lastline := y;
   for y := h-1 downto 0 do
   begin
    lastline := y;
@@ -336,7 +383,7 @@ begin
  
    for x := 1 to w-4 do
    begin
  
    for x := 1 to w-4 do
    begin
-   a := Byte(Pointer(Integer(data)+y*w*4+x*4+3)^) <> 0;
+   a := Byte((data+y*w*4+x*4+3)^) <> 0;
     if a then Break;
    end;
  
     if a then Break;
    end;
  
@@ -354,7 +401,7 @@ begin
  
    for x := 1 to w-4 do
    begin
  
    for x := 1 to w-4 do
    begin
-   a := Byte(Pointer(Integer(data)+y*w*4+x*4+3)^) <> 0;
+   a := Byte((data+y*w*4+x*4+3)^) <> 0;
     if a then Break;
    end;
  
     if a then Break;
    end;
  
@@ -372,7 +419,7 @@ begin
  
    for y := 1 to h-4 do
    begin
  
    for y := 1 to h-4 do
    begin
-   a := Byte(Pointer(Integer(data)+y*w*4+x*4+3)^) <> 0;
+   a := Byte((data+y*w*4+x*4+3)^) <> 0;
     if a then Break;
    end;
  
     if a then Break;
    end;
  
@@ -390,7 +437,7 @@ begin
  
    for y := 1 to h-4 do
    begin
  
    for y := 1 to h-4 do
    begin
-   a := Byte(Pointer(Integer(data)+y*w*4+x*4+3)^) <> 0;
+   a := Byte((data+y*w*4+x*4+3)^) <> 0;
     if a then Break;
    end;
  
     if a then Break;
    end;
  
@@ -411,11 +458,27 @@ begin
    e_SetViewPort(0, 0, Width, Height);
  end;
  
    e_SetViewPort(0, 0, Width, Height);
  end;
  
+procedure drawTxQuad (x0, y0, w, h: Integer; u, v: single; Mirror: TMirrorType);
+var
+  x1, y1, tmp: Integer;
+begin
+  if (w < 1) or (h < 1) then exit;
+  x1 := x0+w;
+  y1 := y0+h;
+       if Mirror = M_HORIZONTAL then begin tmp := x1; x1 := x0; x0 := tmp; end
+  else if Mirror = M_VERTICAL then begin tmp := y1; y1 := y0; y0 := tmp; end;
+  glTexCoord2f(0, v); glVertex2i(x0, y0);
+  glTexCoord2f(0, 0); glVertex2i(x0, y1);
+  glTexCoord2f(u, 0); glVertex2i(x1, y1);
+  glTexCoord2f(u, v); glVertex2i(x1, y0);
+end;
+
  procedure e_Draw(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                   Blending: Boolean; Mirror: TMirrorType = M_NONE);
  procedure e_Draw(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                   Blending: Boolean; Mirror: TMirrorType = M_NONE);
-begin  
+begin
+  if e_NoGraphics then Exit;
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
-     
+
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
      glEnable(GL_BLEND)
    else
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
      glEnable(GL_BLEND)
    else
@@ -431,32 +494,39 @@ begin
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].ID);
+  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id);
    glBegin(GL_QUADS);
  
    glBegin(GL_QUADS);
  
+  drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror);
+
+  //u := e_Textures[ID].tx.u;
+  //v := e_Textures[ID].tx.v;
+
+  {
    if Mirror = M_NONE then
      begin
    if Mirror = M_NONE then
      begin
-      glTexCoord2i(1,  0); glVertex2i(X + e_Textures[id].Width, Y);
-      glTexCoord2i(0,  0); glVertex2i(X,                        Y);
-      glTexCoord2i(0, -1); glVertex2i(X,                        Y + e_Textures[id].Height);
-      glTexCoord2i(1, -1); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
+      glTexCoord2f(u,  0); glVertex2i(X + e_Textures[id].tx.Width, Y);
+      glTexCoord2f(0,  0); glVertex2i(X,                        Y);
+      glTexCoord2f(0, -v); glVertex2i(X,                        Y + e_Textures[id].tx.Height);
+      glTexCoord2f(u, -v); glVertex2i(X + e_Textures[id].tx.Width, Y + e_Textures[id].tx.Height);
      end
    else
      if Mirror = M_HORIZONTAL then
        begin
      end
    else
      if Mirror = M_HORIZONTAL then
        begin
-        glTexCoord2i(1,  0); glVertex2i(X,                        Y);
-        glTexCoord2i(0,  0); glVertex2i(X + e_Textures[id].Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
-        glTexCoord2i(1, -1); glVertex2i(X,                        Y + e_Textures[id].Height);
+        glTexCoord2f(u,  0); glVertex2i(X,                        Y);
+        glTexCoord2f(0,  0); glVertex2i(X + e_Textures[id].tx.Width, Y);
+        glTexCoord2f(0, -v); glVertex2i(X + e_Textures[id].tx.Width, Y + e_Textures[id].tx.Height);
+        glTexCoord2f(u, -v); glVertex2i(X,                        Y + e_Textures[id].tx.Height);
        end
      else
        if Mirror = M_VERTICAL then
        begin
        end
      else
        if Mirror = M_VERTICAL then
        begin
-        glTexCoord2i(1, -1); glVertex2i(X + e_Textures[id].Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X,                        Y);
-        glTexCoord2i(0,  0); glVertex2i(X,                        Y + e_Textures[id].Height);
-        glTexCoord2i(1,  0); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
+        glTexCoord2f(u, -v); glVertex2i(X + e_Textures[id].tx.Width, Y);
+        glTexCoord2f(0, -v); glVertex2i(X,                        Y);
+        glTexCoord2f(0,  0); glVertex2i(X,                        Y + e_Textures[id].tx.Height);
+        glTexCoord2f(u,  0); glVertex2i(X + e_Textures[id].tx.Width, Y + e_Textures[id].tx.Height);
        end;
        end;
+  }
  
    glEnd();
  
  
    glEnd();
  
@@ -465,7 +535,10 @@ end;
  
  procedure e_DrawSize(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                       Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE);
  
  procedure e_DrawSize(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                       Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE);
+var
+  u, v: Single;
  begin
  begin
+  if e_NoGraphics then Exit;
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
@@ -483,13 +556,16 @@ begin
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].ID);
+  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id);
+
+  u := e_Textures[ID].tx.u;
+  v := e_Textures[ID].tx.v;
  
    glBegin(GL_QUADS);
  
    glBegin(GL_QUADS);
-    glTexCoord2i(0, 1); glVertex2i(X,         Y);
-    glTexCoord2i(1, 1); glVertex2i(X + Width, Y);
-    glTexCoord2i(1, 0); glVertex2i(X + Width, Y + Height);
-    glTexCoord2i(0, 0); glVertex2i(X,         Y + Height);
+    glTexCoord2f(0, v); glVertex2i(X,         Y);
+    glTexCoord2f(u, v); glVertex2i(X + Width, Y);
+    glTexCoord2f(u, 0); glVertex2i(X + Width, Y + Height);
+    glTexCoord2f(0, 0); glVertex2i(X,         Y + Height);
    glEnd();
  
    glDisable(GL_BLEND);
    glEnd();
  
    glDisable(GL_BLEND);
@@ -498,6 +574,7 @@ end;
  procedure e_DrawSizeMirror(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                             Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE);
  begin
  procedure e_DrawSizeMirror(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                             Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE);
  begin
+  if e_NoGraphics then Exit;
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
@@ -515,33 +592,9 @@ begin
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
      glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  
    glEnable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].ID);
+  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id);
    glBegin(GL_QUADS);
    glBegin(GL_QUADS);
-
-  if Mirror = M_NONE then
-    begin
-      glTexCoord2i(1,  0); glVertex2i(X + Width, Y);
-      glTexCoord2i(0,  0); glVertex2i(X,         Y);
-      glTexCoord2i(0, -1); glVertex2i(X,         Y + Height);
-      glTexCoord2i(1, -1); glVertex2i(X + Width, Y + Height);
-    end
-  else
-    if Mirror = M_HORIZONTAL then
-      begin
-        glTexCoord2i(1,  0); glVertex2i(X,         Y);
-        glTexCoord2i(0,  0); glVertex2i(X + Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X + Width, Y + Height);
-        glTexCoord2i(1, -1); glVertex2i(X,         Y + Height);
-      end
-    else
-      if Mirror = M_VERTICAL then
-      begin
-        glTexCoord2i(1, -1); glVertex2i(X + Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X,         Y);
-        glTexCoord2i(0,  0); glVertex2i(X,         Y + Height);
-        glTexCoord2i(1,  0); glVertex2i(X + Width, Y + Height);
-      end;
-
+  drawTxQuad(X, Y, Width, Height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror);
    glEnd();
  
    glDisable(GL_BLEND);
    glEnd();
  
    glDisable(GL_BLEND);
@@ -550,9 +603,10 @@ end;
  procedure e_DrawFill(ID: DWORD; X, Y: Integer; XCount, YCount: Word; Alpha: Integer;
                       AlphaChannel: Boolean; Blending: Boolean);
  var
  procedure e_DrawFill(ID: DWORD; X, Y: Integer; XCount, YCount: Word; Alpha: Integer;
                       AlphaChannel: Boolean; Blending: Boolean);
  var
-  X2, Y2: Integer;
-  
+  X2, Y2, dx, w, h: Integer;
+  u, v: Single;
  begin
  begin
+  if e_NoGraphics then Exit;
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
@@ -576,31 +630,64 @@ begin
      YCount := 1;
  
    glEnable(GL_TEXTURE_2D);
      YCount := 1;
  
    glEnable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].ID);
+  glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id);
  
  
-  X2 := X + e_Textures[ID].Width * XCount;
-  Y2 := Y + e_Textures[ID].Height * YCount;
- 
-  glBegin(GL_QUADS);
-    glTexCoord2i(0,      YCount); glVertex2i(X,  Y);
-    glTexCoord2i(XCount, YCount); glVertex2i(X2, Y);
-    glTexCoord2i(XCount, 0);      glVertex2i(X2, Y2);
-    glTexCoord2i(0,      0);      glVertex2i(X,  Y2);
-  glEnd();
+  X2 := X + e_Textures[ID].tx.width * XCount;
+  Y2 := Y + e_Textures[ID].tx.height * YCount;
+
+  //k8: this SHOULD work... i hope
+  if (e_Textures[ID].tx.width = e_Textures[ID].tx.glwidth) and (e_Textures[ID].tx.height = e_Textures[ID].tx.glheight) then
+  begin
+    glBegin(GL_QUADS);
+      glTexCoord2i(0,      YCount); glVertex2i(X,  Y);
+      glTexCoord2i(XCount, YCount); glVertex2i(X2, Y);
+      glTexCoord2i(XCount, 0);      glVertex2i(X2, Y2);
+      glTexCoord2i(0,      0);      glVertex2i(X,  Y2);
+    glEnd();
+  end
+  else
+  begin
+    glBegin(GL_QUADS);
+    // hard day's night
+    u := e_Textures[ID].tx.u;
+    v := e_Textures[ID].tx.v;
+    w := e_Textures[ID].tx.width;
+    h := e_Textures[ID].tx.height;
+    while YCount > 0 do
+    begin
+      dx := XCount;
+      x2 := X;
+      while dx > 0 do
+      begin
+        glTexCoord2f(0, v); glVertex2i(X,  Y);
+        glTexCoord2f(u, v); glVertex2i(X+w, Y);
+        glTexCoord2f(u, 0); glVertex2i(X+w, Y+h);
+        glTexCoord2f(0, 0); glVertex2i(X,  Y+h);
+        Inc(X, w);
+        Dec(dx);
+      end;
+      X := x2;
+      Inc(Y, h);
+      Dec(YCount);
+    end;
+    glEnd();
+  end;
  
    glDisable(GL_BLEND);
  end;
  
  procedure e_DrawAdv(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                      Blending: Boolean; Angle: Single; RC: PPoint; Mirror: TMirrorType = M_NONE);
  
    glDisable(GL_BLEND);
  end;
  
  procedure e_DrawAdv(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean;
                      Blending: Boolean; Angle: Single; RC: PPoint; Mirror: TMirrorType = M_NONE);
-begin  
+begin
+  if e_NoGraphics then Exit;
+
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
      glEnable(GL_BLEND)
    else
      glDisable(GL_BLEND);
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  
    if (Alpha > 0) or (AlphaChannel) or (Blending) then
      glEnable(GL_BLEND)
    else
      glDisable(GL_BLEND);
-      
+
    if (AlphaChannel) or (Alpha > 0) then
      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  
    if (AlphaChannel) or (Alpha > 0) then
      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  
@@ -619,33 +706,10 @@ begin
    end;
  
    glEnable(GL_TEXTURE_2D);
    end;
  
    glEnable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, e_Textures[id].ID);
+  glBindTexture(GL_TEXTURE_2D, e_Textures[id].tx.id);
    glBegin(GL_QUADS);                           //0-1        1-1
                                                 //00         10
    glBegin(GL_QUADS);                           //0-1        1-1
                                                 //00         10
-  if Mirror = M_NONE then
-    begin
-      glTexCoord2i(1,  0); glVertex2i(X + e_Textures[id].Width, Y);
-      glTexCoord2i(0,  0); glVertex2i(X,                        Y);
-      glTexCoord2i(0, -1); glVertex2i(X,                        Y + e_Textures[id].Height);
-      glTexCoord2i(1, -1); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
-    end
-  else
-    if Mirror = M_HORIZONTAL then
-      begin
-        glTexCoord2i(1,  0); glVertex2i(X,                        Y);
-        glTexCoord2i(0,  0); glVertex2i(X + e_Textures[id].Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
-        glTexCoord2i(1, -1); glVertex2i(X,                        Y + e_Textures[id].Height);
-      end
-    else
-      if Mirror = M_VERTICAL then
-      begin
-        glTexCoord2i(1, -1); glVertex2i(X + e_Textures[id].Width, Y);
-        glTexCoord2i(0, -1); glVertex2i(X,                        Y);
-        glTexCoord2i(0,  0); glVertex2i(X,                        Y + e_Textures[id].Height);
-        glTexCoord2i(1,  0); glVertex2i(X + e_Textures[id].Width, Y + e_Textures[id].Height);
-      end;
-
+  drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror);
    glEnd();
  
    if Angle <> 0 then
    glEnd();
  
    if Angle <> 0 then
@@ -656,10 +720,11 @@ end;
  
  procedure e_DrawPoint(Size: Byte; X, Y: Integer; Red, Green, Blue: Byte);
  begin
  
  procedure e_DrawPoint(Size: Byte; X, Y: Integer; Red, Green, Blue: Byte);
  begin
+  if e_NoGraphics then Exit;
    glDisable(GL_TEXTURE_2D);
    glColor3ub(Red, Green, Blue);
    glPointSize(Size);
    glDisable(GL_TEXTURE_2D);
    glColor3ub(Red, Green, Blue);
    glPointSize(Size);
-  
+
    if (Size = 2) or (Size = 4) then
      X := X + 1;
  
    if (Size = 2) or (Size = 4) then
      X := X + 1;
  
@@ -670,45 +735,9 @@ begin
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  end;
  
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
  end;
  
-procedure e_LineCorrection(var X1, Y1, X2, Y2: Integer);
-begin
-  // Make lines only top-left/bottom-right and top-right/bottom-left
-  if Y2 < Y1 then
-  begin
-    X1 := X1 xor X2;
-    X2 := X1 xor X2;
-    X1 := X1 xor X2;
-
-    Y1 := Y1 xor Y2;
-    Y2 := Y1 xor Y2;
-    Y1 := Y1 xor Y2;
-  end;
-
-  // Pixel-perfect hack
-  if X1 < X2 then
-    Inc(X2)
-  else
-    Inc(X1);
-  Inc(Y2);
-end;
-
  procedure e_DrawQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0);
  procedure e_DrawQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0);
-var
-  nX1, nY1, nX2, nY2: Integer;
  begin
  begin
-  // Only top-left/bottom-right quad
-  if X1 > X2 then
-  begin
-    X1 := X1 xor X2;
-    X2 := X1 xor X2;
-    X1 := X1 xor X2;
-  end;
-  if Y1 > Y2 then
-  begin
-    Y1 := Y1 xor Y2;
-    Y2 := Y1 xor Y2;
-    Y1 := Y1 xor Y2;
-  end;
+  if e_NoGraphics then Exit;
  
    if Alpha > 0 then
    begin
  
    if Alpha > 0 then
    begin
@@ -721,30 +750,11 @@ begin
    glColor4ub(Red, Green, Blue, 255-Alpha);
    glLineWidth(1);
  
    glColor4ub(Red, Green, Blue, 255-Alpha);
    glLineWidth(1);
  
-  glBegin(GL_LINES);
-    nX1 := X1; nY1 := Y1;
-    nX2 := X2; nY2 := Y1;
-    e_LineCorrection(nX1, nY1, nX2, nY2); // Pixel-perfect lines
-    glVertex2i(nX1, nY1);
-    glVertex2i(nX2, nY2);
-
-    nX1 := X2; nY1 := Y1;
-    nX2 := X2; nY2 := Y2;
-    e_LineCorrection(nX1, nY1, nX2, nY2);
-    glVertex2i(nX1, nY1);
-    glVertex2i(nX2, nY2);
-
-    nX1 := X2; nY1 := Y2;
-    nX2 := X1; nY2 := Y2;
-    e_LineCorrection(nX1, nY1, nX2, nY2);
-    glVertex2i(nX1, nY1);
-    glVertex2i(nX2, nY2);
-
-    nX1 := X1; nY1 := Y2;
-    nX2 := X1; nY2 := Y1;
-    e_LineCorrection(nX1, nY1, nX2, nY2);
-    glVertex2i(nX1, nY1);
-    glVertex2i(nX2, nY2);
+  glBegin(GL_LINE_LOOP);
+    glVertex2f(X1 + 0.5, Y1 + 0.5);
+    glVertex2f(X2 + 0.5, Y1 + 0.5);
+    glVertex2f(X2 + 0.5, Y2 + 0.5);
+    glVertex2f(X1 + 0.5, Y2 + 0.5);
    glEnd();
  
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
    glEnd();
  
    glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255);
@@ -755,6 +765,7 @@ end;
  procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte;
                           Blending: TBlending = B_NONE);
  begin
  procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte;
                           Blending: TBlending = B_NONE);
  begin
+  if e_NoGraphics then Exit;
    if (Alpha > 0) or (Blending <> B_NONE) then
      glEnable(GL_BLEND)
    else
    if (Alpha > 0) or (Blending <> B_NONE) then
      glEnable(GL_BLEND)
    else
@@ -792,9 +803,10 @@ end;
  
  procedure e_DrawLine(Width: Byte; X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0);
  begin
  
  procedure e_DrawLine(Width: Byte; X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0);
  begin
+  if e_NoGraphics then Exit;
    // Pixel-perfect lines
    // Pixel-perfect lines
-  if Width = 1 then
-    e_LineCorrection(X1, Y1, X2, Y2);
+  //if Width = 1 then
+  //  e_LineCorrection(X1, Y1, X2, Y2);
  
    if Alpha > 0 then
    begin
  
    if Alpha > 0 then
    begin
@@ -822,10 +834,11 @@ end;
  //------------------------------------------------------------------
  procedure e_DeleteTexture(ID: DWORD);
  begin
  //------------------------------------------------------------------
  procedure e_DeleteTexture(ID: DWORD);
  begin
-  glDeleteTextures(1, @e_Textures[ID].ID);
-  e_Textures[ID].ID := 0;
-  e_Textures[ID].Width := 0;
-  e_Textures[ID].Height := 0;
+  if not e_NoGraphics then
+    glDeleteTextures(1, @e_Textures[ID].tx.id);
+  e_Textures[ID].tx.id := 0;
+  e_Textures[ID].tx.Width := 0;
+  e_Textures[ID].tx.Height := 0;
  end;
  
  //------------------------------------------------------------------
  end;
  
  //------------------------------------------------------------------
@@ -838,7 +851,7 @@ begin
   if e_Textures = nil then Exit;
  
   for i := 0 to High(e_Textures) do
   if e_Textures = nil then Exit;
  
   for i := 0 to High(e_Textures) do
-  if e_Textures[i].Width <> 0 then e_DeleteTexture(i);
+  if e_Textures[i].tx.Width <> 0 then e_DeleteTexture(i);
   e_Textures := nil;
  end;
  
   e_Textures := nil;
  end;
  
@@ -853,196 +866,29 @@ end;
  
  procedure e_BeginRender();
  begin
  
  procedure e_BeginRender();
  begin
+  if e_NoGraphics then Exit;
    glEnable(GL_ALPHA_TEST);
    glAlphaFunc(GL_GREATER, 0.0);
  end;
  
    glEnable(GL_ALPHA_TEST);
    glAlphaFunc(GL_GREATER, 0.0);
  end;
  
-procedure e_Clear(Mask: TGLbitfield; Red, Green, Blue: Single);
-begin
- glClearColor(Red, Green, Blue, 0);
- glClear(Mask);
-end;
-
-procedure e_EndRender();
-begin
-  glPopMatrix();
-end;
-
-procedure e_MakeScreenshot(FileName: String; Width, Height: Word);
-type
-  aRGB  = Array [0..1] of TRGB;
-  PaRGB = ^aRGB;
-
-  TByteArray = Array [0..1] of Byte;
-  PByteArray = ^TByteArray;
-
-var
-  FILEHEADER: BITMAPFILEHEADER;
-  INFOHEADER: BITMAPINFOHEADER;
-  pixels: PByteArray;
-  tmp:    Byte;
-  i:      Integer;
-  F:      File of Byte;
-
-begin
-  if (Width mod 4) > 0 then
-    Width := Width + 4 - (Width mod 4);
-
-  GetMem(pixels, Width*Height*3);
-  glReadPixels(0, 0, Width, Height, GL_RGB, GL_UNSIGNED_BYTE, pixels);
-
-  {$R-}
-  for i := 0 to Width * Height - 1 do
-    with PaRGB(pixels)[i] do
-    begin
-      tmp := R;
-      R := B;
-      B := tmp;
-    end;
-  {$R+}
-
-  with FILEHEADER do
-  begin
-    bfType := $4D42; // "BM"
-    bfSize := Width*Height*3 + SizeOf(BITMAPFILEHEADER) + SizeOf(BITMAPINFOHEADER);
-    bfReserved1 := 0;
-    bfReserved2 := 0;
-    bfOffBits := SizeOf(BITMAPFILEHEADER) + SizeOf(BITMAPINFOHEADER);
-  end;
-
-  with INFOHEADER do
-  begin
-    biSize := SizeOf(BITMAPINFOHEADER);
-    biWidth := Width;
-    biHeight := Height;
-    biPlanes := 1;
-    biBitCount := 24;
-    biCompression := 0;
-    biSizeImage := Width*Height*3;
-    biXPelsPerMeter := 0;
-    biYPelsPerMeter := 0;
-    biClrUsed := 0;
-    biClrImportant := 0;
-  end;
-
-  AssignFile(F, FileName);
-  Rewrite(F);
-
-  BlockWrite(F, FILEHEADER, SizeOf(FILEHEADER));
-  BlockWrite(F, INFOHEADER, SizeOf(INFOHEADER));
-  BlockWrite(F, pixels[0], Width*Height*3);
-
-  CloseFile(F);
-
-  FreeMem(pixels);
-end;
-
-function e_GetGamma(DC: HDC): Byte;
-var
-  ramp: array [0..256*3-1] of Word;
-  rgb: array [0..2] of Double;
-  sum: double;
-  count: integer;
-  min: integer;
-  max: integer;
-  A, B: double;
-  i, j: integer;
-begin
- rgb[0] := 1.0;
- rgb[1] := 1.0;
- rgb[2] := 1.0;
-
- GetDeviceGammaRamp(DC, ramp);
-
- for i := 0 to 2 do
- begin
-  sum := 0;
-  count := 0;
-  min := 256 * i;
-  max := min + 256;
-
-  for j := min to max - 1 do
-  if ramp[j] > 0 then
-  begin
-   B := (j mod 256)/256;
-   A := ramp[j]/65536;
-   sum := sum + ln(A)/ln(B);
-   inc(count);
-  end;
-  rgb[i] := sum / count;
- end;
-
- Result := 100 - Trunc(((rgb[0] + rgb[1] + rgb[2])/3 - 0.23) * 100/(2.7 - 0.23));
-end;
-
-procedure e_SetGamma(Gamma: Byte; DC: HDC);
-var
-  ramp: array [0..256*3-1] of Word;
-  i: integer;
-  r: double;
-  g: double;
-begin
- g := (100 - Gamma)*(2.7 - 0.23)/100 + 0.23;
-
- for i := 0 to 255 do
- begin
-  r := Exp(g * ln(i/256))*65536;
-  if r < 0 then r := 0
-   else if r > 65535 then r := 65535;
-  ramp[i] := trunc(r);
-  ramp[i + 256] := trunc(r);
-  ramp[i + 512] := trunc(r);
- end;
-
- SetDeviceGammaRamp(DC, ramp);
-end;
-
-function e_SimpleFontCreate(FontName: PChar; Size: Byte; Weight: Word; DC: HDC): DWORD;
-var
- font: HFONT;
-begin
- Result := glGenLists(96);                           // Generate enough display lists to hold
- font := CreateFont(-Size,                             // height of font
-                    0,                             // average character width
-                    0,                             // angle of escapement
-                               0,                             // base-line orientation angle
-                               Weight,                       // font weight
-                    0,                             // italic
-                               0,                             // underline
-                               0,                                  // strikeout
-                               RUSSIAN_CHARSET,               // character set
-                               OUT_TT_PRECIS,              // output precision
-                    CLIP_DEFAULT_PRECIS,           // clipping precision
-                    ANTIALIASED_QUALITY,           // output quality
-                               FF_DONTCARE or DEFAULT_PITCH,  // pitch and family
-                               FontName);                      // font
- SelectObject(DC, font);                   // Sets the new font as the current font in the device context
- wglUseFontBitmaps(DC, 32, 224, Result); // Creates a set display lists containing the bitmap fonts
-end;
-
-procedure e_SimpleFontFree(Font: DWORD);
+procedure e_Clear(Mask: TGLbitfield; Red, Green, Blue: Single); overload;
  begin
  begin
- glDeleteLists(Font, 223);             // Delete the font display lists, returning used memory
+  if e_NoGraphics then Exit;
+  glClearColor(Red, Green, Blue, 0);
+  glClear(Mask);
  end;
  
  end;
  
-procedure e_SimpleFontPrint(X, Y: SmallInt; Text: PChar; Font: Integer; Red, Green, Blue: Byte);
+procedure e_Clear(); overload;
  begin
  begin
- glPopAttrib(); // Rendering bug workaround
-
- glColor3ub(Red, Green, Blue);
- glDisable(GL_TEXTURE_2D);     // Turn off textures, don't want our text textured
- glRasterPos2i(X, Y);                                // Position the Text
- glPushAttrib(GL_LIST_BIT);                          // Save's the current base list
-  glListBase(DWORD(Font-32));                              // Set the base list to our character list
-  glCallLists(Length(Text), GL_UNSIGNED_BYTE, Text);  // Display the text
- glPopAttrib();                                     // Restore the old base list
+  if e_NoGraphics then Exit;
+  glClearColor(0, 0, 0, 0);
+  glClear(GL_COLOR_BUFFER_BIT);
  end;
  
  end;
  
-procedure e_SimpleFontPrintEx(X, Y: SmallInt; Text: PChar; Font: DWORD; Red, Green, Blue,
-                      sRed, sGreen, sBlue, sWidth: Byte);
+procedure e_EndRender();
  begin
  begin
- e_SimpleFontPrint(X, Y, Text, Font, Red, Green, Blue);
- e_SimpleFontPrint(X+sWidth, Y+sWidth, Text, Font, sRed, sGreen, sBlue);
+  if e_NoGraphics then Exit;
+  glPopMatrix();
  end;
  
  function e_CharFont_Create(sp: ShortInt=0): DWORD;
  end;
  
  function e_CharFont_Create(sp: ShortInt=0): DWORD;
@@ -1096,6 +942,7 @@ procedure e_CharFont_Print(FontID: DWORD; X, Y: Integer; Text: string);
  var
    a: Integer;
  begin
  var
    a: Integer;
  begin
+ if e_NoGraphics then Exit;
   if Text = '' then Exit;
   if e_CharFonts = nil then Exit;
   if Integer(FontID) > High(e_CharFonts) then Exit;
   if Text = '' then Exit;
   if e_CharFonts = nil then Exit;
   if Integer(FontID) > High(e_CharFonts) then Exit;
@@ -1118,6 +965,7 @@ var
    a: Integer;
    c: TRGB;
  begin
    a: Integer;
    c: TRGB;
  begin
+ if e_NoGraphics then Exit;
   if Text = '' then Exit;
   if e_CharFonts = nil then Exit;
   if Integer(FontID) > High(e_CharFonts) then Exit;
   if Text = '' then Exit;
   if e_CharFonts = nil then Exit;
   if Integer(FontID) > High(e_CharFonts) then Exit;
@@ -1152,6 +1000,7 @@ var
    tc, c: TRGB;
    w, h: Word;
  begin
    tc, c: TRGB;
    w, h: Word;
  begin
+  if e_NoGraphics then Exit;
    if Text = '' then Exit;
    if e_CharFonts = nil then Exit;
    if Integer(FontID) > High(e_CharFonts) then Exit;
    if Text = '' then Exit;
    if e_CharFonts = nil then Exit;
    if Integer(FontID) > High(e_CharFonts) then Exit;
@@ -1356,18 +1205,19 @@ begin
   if e_CharFonts = nil then Exit;
  
   for a := 0 to High(e_CharFonts) do
   if e_CharFonts = nil then Exit;
  
   for a := 0 to High(e_CharFonts) do
-  e_CharFont_Remove(a); 
+  e_CharFont_Remove(a);
  
   e_CharFonts := nil;
  end;
  
  
   e_CharFonts := nil;
  end;
  
-procedure e_TextureFontBuild(Texture: DWORD; var FontID: DWORD; XCount, YCount: Word;
+procedure e_TextureFontBuild(Tex: DWORD; var FontID: DWORD; XCount, YCount: Word;
                               Space: ShortInt=0);
  var
    loop1 : GLuint;
    cx, cy : real;
    i, id: DWORD;
  begin
                               Space: ShortInt=0);
  var
    loop1 : GLuint;
    cx, cy : real;
    i, id: DWORD;
  begin
+ if e_NoGraphics then Exit;
   e_WriteLog('Creating texture font...', MSG_NOTIFY);
  
   id := DWORD(-1);
   e_WriteLog('Creating texture font...', MSG_NOTIFY);
  
   id := DWORD(-1);
@@ -1389,33 +1239,37 @@ begin
   with e_TextureFonts[id] do
   begin
    Base := glGenLists(XCount*YCount);
   with e_TextureFonts[id] do
   begin
    Base := glGenLists(XCount*YCount);
-  TextureID := e_Textures[Texture].ID;
-  CharWidth := (e_Textures[Texture].Width div XCount)+Space;
-  CharHeight := e_Textures[Texture].Height div YCount;
+  TextureID := e_Textures[Tex].tx.id;
+  CharWidth := (e_Textures[Tex].tx.Width div XCount)+Space;
+  CharHeight := e_Textures[Tex].tx.Height div YCount;
+  XC := XCount;
+  YC := YCount;
+  Texture := Tex;
+  SPC := Space;
   end;
   end;
- 
- glBindTexture(GL_TEXTURE_2D, e_Textures[Texture].ID);
+
+ glBindTexture(GL_TEXTURE_2D, e_Textures[Tex].tx.id);
   for loop1 := 0 to XCount*YCount-1 do
   begin
    cx := (loop1 mod XCount)/XCount;
   for loop1 := 0 to XCount*YCount-1 do
   begin
    cx := (loop1 mod XCount)/XCount;
-       cy := (loop1 div YCount)/YCount;
+  cy := (loop1 div YCount)/YCount;
  
  
-       glNewList(e_TextureFonts[id].Base+loop1, GL_COMPILE);
-        glBegin(GL_QUADS);
+  glNewList(e_TextureFonts[id].Base+loop1, GL_COMPILE);
+   glBegin(GL_QUADS);
      glTexCoord2f(cx, 1.0-cy-1/YCount);
      glTexCoord2f(cx, 1.0-cy-1/YCount);
-    glVertex2d(0, e_Textures[Texture].Height div YCount);
+    glVertex2d(0, e_Textures[Tex].tx.Height div YCount);
  
  
-         glTexCoord2f(cx+1/XCount, 1.0-cy-1/YCount);
-    glVertex2i(e_Textures[Texture].Width div XCount, e_Textures[Texture].Height div YCount);
+    glTexCoord2f(cx+1/XCount, 1.0-cy-1/YCount);
+    glVertex2i(e_Textures[Tex].tx.Width div XCount, e_Textures[Tex].tx.Height div YCount);
  
  
-               glTexCoord2f(cx+1/XCount, 1.0-cy);
-    glVertex2i(e_Textures[Texture].Width div XCount, 0);
+    glTexCoord2f(cx+1/XCount, 1.0-cy);
+    glVertex2i(e_Textures[Tex].tx.Width div XCount, 0);
  
  
-               glTexCoord2f(cx, 1.0-cy);
+    glTexCoord2f(cx, 1.0-cy);
      glVertex2i(0, 0);
     glEnd();
      glVertex2i(0, 0);
     glEnd();
-        glTranslated((e_Textures[Texture].Width div XCount)+Space, 0, 0);
-       glEndList();
+   glTranslated((e_Textures[Tex].tx.Width div XCount)+Space, 0, 0);
+  glEndList();
   end;
  
   FontID := id;
   end;
  
   FontID := id;
@@ -1423,12 +1277,14 @@ end;
  
  procedure e_TextureFontKill(FontID: DWORD);
  begin
  
  procedure e_TextureFontKill(FontID: DWORD);
  begin
-       glDeleteLists(e_TextureFonts[FontID].Base, 256);
+  if e_NoGraphics then Exit;
+  glDeleteLists(e_TextureFonts[FontID].Base, 256);
    e_TextureFonts[FontID].Base := 0;
  end;
  
  procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD);
  begin
    e_TextureFonts[FontID].Base := 0;
  end;
  
  procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD);
  begin
+  if e_NoGraphics then Exit;
    if Integer(FontID) > High(e_TextureFonts) then Exit;
    if Text = '' then Exit;
  
    if Integer(FontID) > High(e_TextureFonts) then Exit;
    if Text = '' then Exit;
  
@@ -1452,6 +1308,7 @@ end;
  // god forgive me for this, but i cannot figure out how to do it without lists
  procedure e_TextureFontPrintChar(X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False);
  begin
  // god forgive me for this, but i cannot figure out how to do it without lists
  procedure e_TextureFontPrintChar(X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False);
  begin
+  if e_NoGraphics then Exit;
    glPushMatrix;
  
    if Shadow then
    glPushMatrix;
  
    if Shadow then
@@ -1470,12 +1327,31 @@ begin
    glPopMatrix;
  end;
  
    glPopMatrix;
  end;
  
+procedure e_TextureFontPrintCharEx (X, Y: Integer; Ch: Char; FontID: DWORD; Shadow: Boolean = False);
+begin
+  glBindTexture(GL_TEXTURE_2D, e_TextureFonts[FontID].TextureID);
+  glEnable(GL_TEXTURE_2D);
+  //glListBase(DWORD(Integer(e_TextureFonts[FontID].Base)-32));
+
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glEnable(GL_BLEND);
+  e_TextureFontPrintChar(X, Y, Ch, FontID, Shadow);
+  glDisable(GL_TEXTURE_2D);
+  glDisable(GL_BLEND);
+end;
+
+function e_TextureFontCharWidth (ch: Char; FontID: DWORD): Integer;
+begin
+  result := e_TextureFonts[FontID].CharWidth;
+end;
+
  procedure e_TextureFontPrintFmt(X, Y: Integer; Text: string; FontID: DWORD; Shadow: Boolean = False);
  var
    a, TX, TY, len: Integer;
    tc, c: TRGB;
    w: Word;
  begin
  procedure e_TextureFontPrintFmt(X, Y: Integer; Text: string; FontID: DWORD; Shadow: Boolean = False);
  var
    a, TX, TY, len: Integer;
    tc, c: TRGB;
    w: Word;
  begin
+  if e_NoGraphics then Exit;
    if Text = '' then Exit;
    if e_TextureFonts = nil then Exit;
    if Integer(FontID) > High(e_TextureFonts) then Exit;
    if Text = '' then Exit;
    if e_TextureFonts = nil then Exit;
    if Integer(FontID) > High(e_TextureFonts) then Exit;
@@ -1565,6 +1441,7 @@ end;
  procedure e_TextureFontPrintEx(X, Y: GLint; Text: string; FontID: DWORD; Red, Green,
                      Blue: Byte; Scale: Single; Shadow: Boolean = False);
  begin
  procedure e_TextureFontPrintEx(X, Y: GLint; Text: string; FontID: DWORD; Red, Green,
                      Blue: Byte; Scale: Single; Shadow: Boolean = False);
  begin
+  if e_NoGraphics then Exit;
    if Text = '' then Exit;
  
    glPushMatrix;
    if Text = '' then Exit;
  
    glPushMatrix;
@@ -1598,6 +1475,9 @@ end;
  
  procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
  begin
  
  procedure e_TextureFontGetSize(ID: DWORD; var CharWidth, CharHeight: Byte);
  begin
+  CharWidth := 16;
+  CharHeight := 16;
+  if e_NoGraphics then Exit;
    if Integer(ID) > High(e_TextureFonts) then
      Exit;
    CharWidth := e_TextureFonts[ID].CharWidth;
    if Integer(ID) > High(e_TextureFonts) then
      Exit;
    CharWidth := e_TextureFonts[ID].CharWidth;
@@ -1608,6 +1488,7 @@ procedure e_RemoveAllTextureFont();
  var
   i: integer;
  begin
  var
   i: integer;
  begin
+ if e_NoGraphics then Exit;
   if e_TextureFonts = nil then Exit;
  
   for i := 0 to High(e_TextureFonts) do
   if e_TextureFonts = nil then Exit;
  
   for i := 0 to High(e_TextureFonts) do
@@ -1641,6 +1522,12 @@ begin
   Result.Height := Height;
  end;
  
   Result.Height := Height;
  end;
  
+function _TRect(L, T, R, B: LongInt): TRect;
+begin
+ Result.Top := T;
+ Result.Left := L;
+ Result.Right := R;
+ Result.Bottom := B;
+end;
  
  end.
  
  end.
-
diff --git a/src/engine/e_textures.pas b/src/engine/e_textures.pas

index 9dd9192c6128331dac154c196071e97afcac172c..e6246bcc0f833de66dd39080ce5893b272d2f8ad 100644 (file)
--- a/src/engine/e_textures.pas
+++ b/src/engine/e_textures.pas
@@ -1,3 +1,19 @@
+(* Copyright (C)  DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$MODE DELPHI}
  unit e_textures;
  
  { This unit provides interface to load 24-bit and 32-bit uncompressed images
  unit e_textures;
  
  { This unit provides interface to load 24-bit and 32-bit uncompressed images
@@ -7,53 +23,98 @@ unit e_textures;
  interface
  
  uses
  interface
  
  uses
-  Windows, dglOpenGL, SysUtils, e_log;
+  GL, GLExt, SysUtils, e_log,
+  ImagingTypes, Imaging, ImagingUtility;
+
+type
+  GLTexture = record
+    id: GLuint;
+    width, height: Word; // real
+    glwidth, glheight: Word; // powerof2
+    u, v: Single; // usually 1.0
+    fmt: GLuint;
+  end;
  
  var
  
  var
-  fUseMipmaps: Boolean = False;
+  e_DummyTextures: Boolean = False;
+  e_glLegacyNPOT: Boolean = False;
    TEXTUREFILTER: Integer = GL_NEAREST;
  
    TEXTUREFILTER: Integer = GL_NEAREST;
  
-// Standard set of images loading functions
-function LoadTexture( Filename: String; var Texture: GLuint;
-                      var pWidth, pHeight: Word ): Boolean;
+function CreateTexture (var tex: GLTexture; Width, Height, aFormat: Word; pData: Pointer): Boolean;
  
  
-function LoadTextureEx( Filename: String; var Texture: GLuint;
-                        fX, fY, fWidth, fHeight: Word ): Boolean;
+// Standard set of images loading functions
+function LoadTexture (Filename: String; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
+function LoadTextureEx (Filename: String; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
+function LoadTextureMem (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
+function LoadTextureMemEx (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
  
  
-function LoadTextureMem( pData: Pointer; var Texture: GLuint;
-                         var pWidth, pHeight: Word ): Boolean;
+// `img` must be valid!
+function LoadTextureImg (var img: TImageData; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
  
  
-function LoadTextureMemEx( pData: Pointer; var Texture: GLuint;
-                           fX, fY, fWidth, fHeight: Word ): Boolean;
  
  implementation
  
  
  implementation
  
-type
-  TTGAHeader = packed record
-    FileType:     Byte;
-    ColorMapType: Byte;
-    ImageType:    Byte;
-    ColorMapSpec: array[0..4] of Byte;
-    OrigX:        array[0..1] of Byte;
-    OrigY:        array[0..1] of Byte;
-    Width:        array[0..1] of Byte;
-    Height:       array[0..1] of Byte;
-    BPP:          Byte;
-    ImageInfo:    Byte;
-  end;
+uses
+  Classes, BinEditor, utils;
+
+
+function AlignP2 (n: Word): Word;
+begin
+  Dec(n);
+  n := n or (n shr 1);
+  n := n or (n shr 2);
+  n := n or (n shr 4);
+  n := n or (n shr 8);
+  n := n or (n shr 16);
+  Inc(n);
+  Result := n;
+end;
+
  
  // This is auxiliary function that creates OpenGL texture from raw image data
  
  // This is auxiliary function that creates OpenGL texture from raw image data
-function CreateTexture( Width, Height, Format: Word; pData: Pointer ): Integer;
+function CreateTexture (var tex: GLTexture; Width, Height, aFormat: Word; pData: Pointer): Boolean;
  var
    Texture: GLuint;
  var
    Texture: GLuint;
+  fmt: GLenum;
+  buf: PByte;
+  f, c: Integer;
  begin
  begin
-  glGenTextures( 1, @Texture );
-  glBindTexture( GL_TEXTURE_2D, Texture );
+  tex.width := Width;
+  tex.height := Height;
+  tex.glwidth := Width;
+  tex.glheight := Height;
+  tex.u := 1;
+  tex.v := 1;
+
+  if e_glLegacyNPOT then
+  begin
+    tex.glwidth := AlignP2(Width);
+    tex.glheight := AlignP2(Height);
+    if tex.glwidth <> tex.width then tex.u := (tex.width+0.0)/(tex.glwidth+0.0);
+    if tex.glheight <> tex.height then tex.v := (tex.height+0.0)/(tex.glheight+0.0);
+  end;
  
  
-    {Texture blends with object background}
-  glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE );
-    {Texture does NOT blend with object background}
- // glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL);
+  //if (tex.glwidth <> tex.width) or (tex.glheight <> tex.height) then
+  //  e_WriteLog(Format('NPOT: orig is %ux%u; gl is %ux%u; u=%f; v=%f', [Width, Height, tex.glwidth, tex.glheight, tex.u, tex.v]), MSG_NOTIFY);
+
+  if e_DummyTextures then
+  begin
+    tex.id := GLuint(-1);
+    Result := True;
+    Exit;
+  end;
+
+  glGenTextures(1, @Texture);
+  tex.id := Texture;
+  glBindTexture(GL_TEXTURE_2D, Texture);
+
+  if (tex.glwidth <> tex.width) or (tex.glheight <> tex.height) then
+    e_WriteLog(Format('NPOT: %u is %ux%u; gl is %ux%u; u=%f; v=%f', [tex.id, Width, Height, tex.glwidth, tex.glheight, tex.u, tex.v]), MSG_NOTIFY);
+
+  // texture blends with object background
+  glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
+  // texture does NOT blend with object background
+  //glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL);
  
    {
      Select a filtering type.
  
    {
      Select a filtering type.
@@ -66,370 +127,249 @@ begin
    }
  
    // for GL_TEXTURE_MAG_FILTER only first two can be used
    }
  
    // for GL_TEXTURE_MAG_FILTER only first two can be used
-  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, TEXTUREFILTER );
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, TEXTUREFILTER);
    // for GL_TEXTURE_MIN_FILTER all of the above can be used
    // for GL_TEXTURE_MIN_FILTER all of the above can be used
-  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, TEXTUREFILTER );
-
-  if Format = GL_RGBA then
-  begin
-    if fUseMipmaps then
-      gluBuild2DMipmaps( GL_TEXTURE_2D, GL_RGBA, Width, Height, GL_RGBA,
-                         GL_UNSIGNED_BYTE, pData )
-    else
-      glTexImage2D( GL_TEXTURE_2D, 0, 4, Width, Height,
-                    0, GL_RGBA, GL_UNSIGNED_BYTE, pData );
-  end else
-  begin
-    if fUseMipmaps then
-      gluBuild2DMipmaps( GL_TEXTURE_2D, 3, Width, Height, GL_RGB,
-                         GL_UNSIGNED_BYTE, pData )
-    else
-      glTexImage2D( GL_TEXTURE_2D, 0, 3, Width, Height,
-                    0, GL_RGB, GL_UNSIGNED_BYTE, pData );
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, TEXTUREFILTER);
+
+  // create empty texture
+  if aFormat = GL_RGBA then fmt := GL_RGBA else fmt := GL_RGB; // silly, yeah?
+  glTexImage2D(GL_TEXTURE_2D, 0, fmt, tex.glwidth, tex.glheight, 0, GL_RGBA, GL_UNSIGNED_BYTE, nil);
+
+  (*
+  GetMem(buf, tex.glwidth*4*tex.glheight);
+  try
+    FillChar(buf^, tex.glwidth*4*tex.glheight, 255);
+    glTexSubImage2D(GL_TEXTURE_2D, 0,  0, 0, tex.glwidth, tex.glheight, fmt, GL_UNSIGNED_BYTE, buf);
+    if (tex.glheight = 128) and (tex.height = 80) then
+    begin
+      for f := 0 to tex.glheight-1 do
+      begin
+        for c := 0 to tex.glwidth-1 do
+        begin
+          buf[f*(tex.glwidth*4)+c*4+0] := 255;
+          buf[f*(tex.glwidth*4)+c*4+1] := 127;
+          buf[f*(tex.glwidth*4)+c*4+2] := 0;
+        end;
+      end;
+      glTexSubImage2D(GL_TEXTURE_2D, 0,  0, 82, tex.glwidth, {tex.glheight}1, fmt, GL_UNSIGNED_BYTE, buf);
+    end;
+  finally
+    FreeMem(buf);
    end;
    end;
+  *)
  
  
-  Result := Texture;
+  glTexSubImage2D(GL_TEXTURE_2D, 0,  0, 0, Width, Height, fmt, GL_UNSIGNED_BYTE, pData);
+  //glTexSubImage2D(GL_TEXTURE_2D, 0,  0, tex.glheight-tex.height, Width, Height, fmt, GL_UNSIGNED_BYTE, pData);
+
+  glBindTexture(GL_TEXTURE_2D, 0);
+
+  Result := true;
  end;
  
  end;
  
-function LoadTextureMem( pData: Pointer; var Texture: GLuint;
-                         var pWidth, pHeight: Word ): Boolean;
+// `img` must be valid!
+function LoadTextureImg (var img: TImageData; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
  var
  var
-  TGAHeader:     TTGAHeader;
-  image:         Pointer;
-  Width, Height: Integer;
-  ImageSize:     Integer;
-  i:             Integer;
-  Front:         ^Byte;
-  Back:          ^Byte;
-  Temp:          Byte;
-  BPP:           Byte;
-
+  image, ii: PByte;
+  width, height: Integer;
+  imageSize: Integer;
+  x, y: Integer;
+  clr: TColor32Rec;
  begin
  begin
-  Result := False;
+  result := false;
    pWidth := 0;
    pHeight := 0;
    pWidth := 0;
    pHeight := 0;
+  if Fmt <> nil then Fmt^ := GL_RGBA; // anyway
  
  
-  CopyMemory( @TGAHeader, pData, SizeOf(TGAHeader) );
-
-  if ( TGAHeader.ImageType <> 2 ) then
+  if (img.width < 1) or (img.width > 32768) or (img.height < 1) or (img.height > 32768) then
    begin
    begin
-    e_WriteLog( 'Error loading texture: Bad ImageType', MSG_WARNING );
-    Exit;
+    e_WriteLog('Error loading texture: invalid image dimensions', MSG_WARNING);
+    exit;
    end;
    end;
-
-  if ( TGAHeader.ColorMapType <> 0 ) then
-  begin
-    e_WriteLog( 'Error loading texture: Bad ColorMapType', MSG_WARNING );
-    Exit;
+  //ConvertImage(img, ifA8R8G8B8);
+  width := img.width;
+  height := img.height;
+  pWidth := width;
+  pHeight := height;
+  imageSize := Width*Height*4;
+  GetMem(image, imageSize);
+  try
+    // it's slow, but i don't care for now
+    ii := image;
+    for y := height-1 downto 0 do
+    begin
+      for x := 0 to width-1 do
+      begin
+        clr := GetPixel32(img, x, y);
+        ii^ := clr.r; Inc(ii);
+        ii^ := clr.g; Inc(ii);
+        ii^ := clr.b; Inc(ii);
+        ii^ := clr.a; Inc(ii);
+      end;
+    end;
+    CreateTexture(Texture, width, height, GL_RGBA, image);
+    result := true;
+  finally
+    FreeMem(image);
    end;
    end;
-
-  if ( TGAHeader.BPP < 24 ) then
-  begin
-    e_WriteLog( 'Error loading texture: BPP less than 24', MSG_WARNING );
-    Exit;
-  end;
-
-  Width  := TGAHeader.Width[0]  + TGAHeader.Width[1]  * 256;
-  Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
-  BPP := TGAHeader.BPP;
-
-  ImageSize := Width * Height * (BPP div 8);
-
-  GetMem( Image, ImageSize );
-  CopyMemory( Image, Pointer( Integer(pData) + SizeOf(TGAHeader) ), ImageSize );
-
-  for i := 0 to Width * Height - 1 do
-  begin
-    Front := Pointer( Integer(Image) + i*(BPP div 8) );
-    Back  := Pointer( Integer(Image) + i*(BPP div 8) + 2 );
-    Temp   := Front^;
-    Front^ := Back^;
-    Back^  := Temp;
-  end;
-
-  if ( BPP = 24 ) then
-    Texture := CreateTexture( Width, Height, GL_RGB, Image )
-  else
-    Texture := CreateTexture( Width, Height, GL_RGBA, Image );
-
-  FreeMem( Image );
-
-  pWidth := Width;
-  pHeight := Height;
-
-  Result := True;
  end;
  
  end;
  
-function LoadTextureMemEx( pData: Pointer; var Texture: GLuint;
-                           fX, fY, fWidth, fHeight: Word ): Boolean;
-var
-  TGAHeader:     TTGAHeader;
-  image, image2: Pointer;
-  Width, Height: Integer;
-  ImageSize:     Integer;
-  i, a, b:       Integer;
-  Front:         ^Byte;
-  Back:          ^Byte;
-  Temp:          Byte;
-  BPP:           Byte;
-  Base:          Integer;
  
  
+function LoadTextureMem (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
+var
+  image, ii: PByte;
+  width, height: Integer;
+  imageSize: Integer;
+  img: TImageData;
+  x, y: Integer;
+  clr: TColor32Rec;
  begin
  begin
-  Result := False;
-
-  CopyMemory( @TGAHeader, pData, SizeOf(TGAHeader) );
-
-  if ( TGAHeader.ImageType <> 2 ) then
-  begin
-    e_WriteLog( 'Error loading texture: Bad ImageType', MSG_WARNING );
-    Exit;
-  end;
+  result := false;
+  pWidth := 0;
+  pHeight := 0;
+  if Fmt <> nil then Fmt^ := GL_RGBA; // anyway
  
  
-  if ( TGAHeader.ColorMapType <> 0 ) then
+  InitImage(img);
+  if not LoadImageFromMemory(pData, dataSize, img) then
    begin
    begin
-    e_WriteLog( 'Error loading texture: Bad ColorMapType', MSG_WARNING );
-    Exit;
+    e_WriteLog('Error loading texture: unknown image format', MSG_WARNING);
+    exit;
    end;
    end;
-
-  if ( TGAHeader.BPP < 24 ) then
-  begin
-    e_WriteLog( 'Error loading texture: BPP less than 24', MSG_WARNING );
-    Exit;
+  try
+    result := LoadTextureImg(img, Texture, pWidth, pHeight, Fmt);
+  finally
+    FreeImage(img);
    end;
    end;
+end;
  
  
-  Width  := TGAHeader.Width[0]  + TGAHeader.Width[1]  * 256;
-  Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
-  BPP := TGAHeader.BPP;
-
-  if fX > Width then Exit;
-  if fY > Height then Exit;
-  if fX+fWidth > Width then Exit;
-  if fY+fHeight > Height then Exit;
-
-  ImageSize := Width * Height * (BPP div 8);
-  GetMem( Image2, ImageSize );
-  CopyMemory( Image2, Pointer( Integer(pData) + SizeOf(TGAHeader) ), ImageSize );
  
  
-  a := BPP div 8;
+function LoadTextureMemEx (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
+var
+  image, ii: PByte;
+  width, height: Integer;
+  imageSize: Integer;
+  img: TImageData;
+  x, y: Integer;
+  clr: TColor32Rec;
+begin
+  result := false;
+  if Fmt <> nil then Fmt^ := GL_RGBA; // anyway
  
  
-  for i := 0 to Width * Height - 1 do
+  InitImage(img);
+  if not LoadImageFromMemory(pData, dataSize, img) then
    begin
    begin
-    Front := Pointer( Integer(Image2) + i * a );
-    Back  := Pointer( Integer(Image2) + i * a + 2 );
-    Temp   := Front^;
-    Front^ := Back^;
-    Back^  := Temp;
+    e_WriteLog('Error loading texture: unknown image format', MSG_WARNING);
+    exit;
+  end;
+  try
+    if (img.width < 1) or (img.width > 32768) or (img.height < 1) or (img.height > 32768) then
+    begin
+      e_WriteLog('Error loading texture: invalid image dimensions', MSG_WARNING);
+      exit;
+    end;
+    //ConvertImage(img, ifA8R8G8B8);
+    if fX > img.width then exit;
+    if fY > img.height then exit;
+    if fX+fWidth > img.width then exit;
+    if fY+fHeight > img.height then exit;
+    //writeln('fX=', fX, '; fY=', fY, '; fWidth=', fWidth, '; fHeight=', fHeight);
+    imageSize := img.width*img.height*4;
+    GetMem(image, imageSize);
+    try
+      // it's slow, but i don't care for now
+      ii := image;
+      for y := fY+fHeight-1 downto fY do
+      begin
+        for x := fX to fX+fWidth-1 do
+        begin
+          clr := GetPixel32(img, x, y);
+          ii^ := clr.r; Inc(ii);
+          ii^ := clr.g; Inc(ii);
+          ii^ := clr.b; Inc(ii);
+          ii^ := clr.a; Inc(ii);
+        end;
+      end;
+      CreateTexture(Texture, fWidth, fHeight, GL_RGBA, image);
+      result := true;
+    finally
+      FreeMem(image);
+    end;
+  finally
+    FreeImage(img);
    end;
    end;
-
-  fY := Height - (fY + fHeight);
-
-  ImageSize := fHeight * fWidth * (BPP div 8);
-  GetMem( Image, ImageSize );
-
-  Base := Integer( Image2 ) + fY * Width * (BPP div 8) + fX * (BPP div 8);
-  a := fWidth * (BPP div 8);
-  b := Width * (BPP div 8);
-
-  for i := 0 to fHeight-1 do
-    CopyMemory( Pointer( Integer(image) + a*i ), Pointer( Base + b*i ), a );
-
-  if ( BPP = 24 ) then
-    Texture := CreateTexture( fWidth, fHeight, GL_RGB, image )
-  else
-    Texture := CreateTexture( fWidth, fHeight, GL_RGBA, image );
-
-  FreeMem( Image );
-  FreeMem( Image2 );
-
-  Result := True;
  end;
  
  end;
  
-function LoadTexture( Filename: String; var Texture: GLuint;
-                      var pWidth, pHeight: Word ): Boolean;
-var
-  TGAHeader:     TTGAHeader;
-  TGAFile:       File;
-  bytesRead:     Integer;
-  image:         Pointer;
-  Width, Height: Integer;
-  ImageSize:     Integer;
-  i:             Integer;
-  Front:         ^Byte;
-  Back:          ^Byte;
-  Temp:          Byte;
-  BPP:           Byte;
  
  
+function LoadTexture (filename: AnsiString; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
+var
+  fs: TStream;
+  img: Pointer;
+  imageSize: LongInt;
  begin
  begin
-  Result := False;
+  result := False;
    pWidth := 0;
    pHeight := 0;
    pWidth := 0;
    pHeight := 0;
+  if Fmt <> nil then Fmt^ := GL_RGBA; // anyway
+  fs := nil;
  
  
-  if not FileExists(Filename) then
-  begin
-    e_WriteLog('Texture ' + Filename + ' not found', MSG_WARNING);
-    Exit;
+  try
+    fs := openDiskFileRO(filename);
+  except
+    fs := nil;
    end;
    end;
-
-  AssignFile( TGAFile, Filename );
-  Reset( TGAFile, 1 );
-  BlockRead( TGAFile, TGAHeader, SizeOf(TGAHeader) );
-
-  if ( TGAHeader.ImageType <> 2 ) then
+  if fs = nil then
    begin
    begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: Bad ImageType', MSG_WARNING );
-    Exit;
+    e_WriteLog('Texture "'+filename+'" not found', MSG_WARNING);
+    exit;
    end;
  
    end;
  
-  if ( TGAHeader.ColorMapType <> 0 ) then
-  begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: Bad ColorMapType', MSG_WARNING );
-    Exit;
+  try
+    imageSize := fs.size;
+    GetMem(img, imageSize);
+    try
+      fs.readBuffer(img^, imageSize);
+      result := LoadTextureMem(img, imageSize, Texture, pWidth, pHeight, Fmt);
+    finally
+      FreeMem(img);
+    end;
+  finally
+    fs.Free();
    end;
    end;
-
-  if ( TGAHeader.BPP < 24 ) then
-  begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: BPP less than 24', MSG_WARNING );
-    Exit;
-  end;
-
-  Width  := TGAHeader.Width[0]  + TGAHeader.Width[1]  * 256;
-  Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
-  BPP := TGAHeader.BPP;
-
-  ImageSize := Width * Height * (BPP div 8);
-
-  GetMem( Image, ImageSize );
-
-  BlockRead( TGAFile, image^, ImageSize, bytesRead );
-  if ( bytesRead <> ImageSize ) then
-  begin
-    CloseFile( TGAFile );
-    Exit;
-  end;
-
-  CloseFile( TGAFile );
-
-  for i := 0 to Width * Height - 1 do
-  begin
-    Front := Pointer( Integer(Image) + i * (BPP div 8) );
-    Back  := Pointer( Integer(Image) + i * (BPP div 8) + 2 );
-    Temp   := Front^;
-    Front^ := Back^;
-    Back^  := Temp;
-  end;
-
-  if ( BPP = 24 ) then
-    Texture := CreateTexture( Width, Height, GL_RGB, Image )
-  else
-    Texture := CreateTexture( Width, Height, GL_RGBA, Image );
-
-  FreeMem( Image );
-
-  pWidth := Width;
-  pHeight := Height;
-
-  Result := True;
  end;
  
  end;
  
-function LoadTextureEx( Filename: String; var Texture: GLuint;
-                        fX, fY, fWidth, fHeight: Word ): Boolean;
+
+function LoadTextureEx (filename: AnsiString; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
  var
  var
-  TGAHeader:     TTGAHeader;
-  TGAFile:       File;
-  image, image2: Pointer;
-  Width, Height: Integer;
-  ImageSize:     Integer;
-  i:             Integer;
-  Front:         ^Byte;
-  Back:          ^Byte;
-  Temp:          Byte;
-  BPP:           Byte;
-  Base:          Integer;
-  
+  fs: TStream;
+  img: Pointer;
+  imageSize: LongInt;
  begin
  begin
-  Result := False;
-
-  if not FileExists(Filename) then
-  begin
-    e_WriteLog( 'Texture ' + Filename + ' not found', MSG_WARNING );
-    Exit;
-  end;
-
-  AssignFile( TGAFile, Filename );
-  Reset( TGAFile, 1 );
-  BlockRead( TGAFile, TGAHeader, SizeOf(TGAHeader) );
-
-  if ( TGAHeader.ImageType <> 2 ) then
-  begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: Bad ImageType', MSG_WARNING );
-    Exit;
-  end;
-
-  if ( TGAHeader.ColorMapType <> 0 ) then
-  begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: Bad ColorMapType', MSG_WARNING );
-    Exit;
+  result := False;
+  if Fmt <> nil then Fmt^ := GL_RGBA; // anyway
+  fs := nil;
+
+  try
+    fs := openDiskFileRO(filename);
+  except
+    fs := nil;
    end;
    end;
-
-  if ( TGAHeader.BPP < 24 ) then
+  if fs = nil then
    begin
    begin
-    CloseFile( TGAFile );
-    e_WriteLog( 'Error loading texture: BPP less than 24', MSG_WARNING );
-    Exit;
+    e_WriteLog('Texture "'+filename+'" not found', MSG_WARNING);
+    exit;
    end;
  
    end;
  
-  Width  := TGAHeader.Width[0]  + TGAHeader.Width[1]  * 256;
-  Height := TGAHeader.Height[0] + TGAHeader.Height[1] * 256;
-  BPP := TGAHeader.BPP;
-
-  if fX > Width then Exit;
-  if fY > Height then Exit;
-  if fX+fWidth > Width then Exit;
-  if fY+fHeight > Height then Exit;
-
-  ImageSize := Width * Height * (BPP div 8);
-  GetMem( Image2, ImageSize );
-  BlockRead( TGAFile, Image2^, ImageSize );
-
-  CloseFile( TGAFile );
-
-  for i := 0 to Width * Height - 1 do
-  begin
-    Front := Pointer( Integer(Image2) + i * (BPP div 8) );
-    Back  := Pointer( Integer(Image2) + i * (BPP div 8) + 2 );
-    Temp   := Front^;
-    Front^ := Back^;
-    Back^  := Temp;
+  try
+    imageSize := fs.size;
+    GetMem(img, imageSize);
+    try
+      fs.readBuffer(img^, imageSize);
+      result := LoadTextureMemEx(img, imageSize, Texture, fX, fY, fWidth, fHeight, Fmt);
+    finally
+      FreeMem(img);
+    end;
+  finally
+    fs.Free();
    end;
    end;
-
-  fY := Height - (fY + fHeight);
-
-  ImageSize := fHeight * fWidth * (BPP div 8);
-  GetMem( Image, ImageSize );
-
-  Base := Integer(Image2) + fY * Width * (BPP div 8) + fX * (BPP div 8);
-
-  for i := 0 to fHeight-1 do
-  begin
-    CopyMemory( Pointer( Integer(image) + fWidth * (BPP div 8) * i ),
-                Pointer( Base + Width * (BPP div 8) * i), fWidth * (BPP div 8) );
-  end;                                                
-
-  if ( BPP = 24 ) then
-    Texture := CreateTexture( fWidth, fHeight, GL_RGB, Image )
-  else
-    Texture := CreateTexture( fWidth, fHeight, GL_RGBA, Image );
-
-  FreeMem( Image );
-  FreeMem( Image2 );
-
-  Result := True;
  end;
  
  end.
  end;
  
  end.
-
diff --git a/src/lib/dgl/GL.pas b/src/lib/dgl/GL.pas

deleted file mode 100644 (file)

index c3eda2f..0000000
--- a/src/lib/dgl/GL.pas
+++ /dev/null
@@ -1,2226 +0,0 @@
-(*++ BUILD Version: 0004    // Increment this if a change has global effects
-
-Copyright (c) 1985-96, Microsoft Corporation
-
-Module Name:
-
-    gl.h
-
-Abstract:
-
-    Procedure declarations, constant definitions and macros for the OpenGL
-    component.
-
---*)
-
-(*
-** Copyright 1996 Silicon Graphics, Inc.
-** All Rights Reserved.
-**
-** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
-** the contents of this file may not be disclosed to third parties, copied or
-** duplicated in any form, in whole or in part, without the prior written
-** permission of Silicon Graphics, Inc.
-**
-** RESTRICTED RIGHTS LEGEND:
-** Use, duplication or disclosure by the Government is subject to restrictions
-** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
-** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
-** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
-** rights reserved under the Copyright Laws of the United States.
-*)
-
-{******************************************************************************}
-{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }
-{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
-{******************************************************************************}
-
-unit GL;
-
-interface
-
-uses
-  SysUtils, Windows;
-
-type
-  GLenum     = Cardinal;      PGLenum     = ^GLenum;
-  GLboolean  = Byte;          PGLboolean  = ^GLboolean;
-  GLbitfield = Cardinal;      PGLbitfield = ^GLbitfield;
-  GLbyte     = ShortInt;      PGLbyte     = ^GLbyte;
-  GLshort    = SmallInt;      PGLshort    = ^GLshort;
-  GLint      = Integer;       PGLint      = ^GLint;
-  GLsizei    = Integer;       PGLsizei    = ^GLsizei;
-  GLubyte    = Byte;          PGLubyte    = ^GLubyte;
-  GLushort   = Word;          PGLushort   = ^GLushort;
-  GLuint     = Cardinal;      PGLuint     = ^GLuint;
-  GLfloat    = Single;        PGLfloat    = ^GLfloat;
-  GLclampf   = Single;        PGLclampf   = ^GLclampf;
-  GLdouble   = Double;        PGLdouble   = ^GLdouble;
-  GLclampd   = Double;        PGLclampd   = ^GLclampd;
-{ GLvoid     = void; }        PGLvoid     = Pointer;
-
-{******************************************************************************}
-
-const
-  // Version
-  GL_VERSION_1_1                    = 1;
-
-  // AccumOp
-  GL_ACCUM                          = $0100;
-  GL_LOAD                           = $0101;
-  GL_RETURN                         = $0102;
-  GL_MULT                           = $0103;
-  GL_ADD                            = $0104;
-
-  // AlphaFunction
-  GL_NEVER                          = $0200;
-  GL_LESS                           = $0201;
-  GL_EQUAL                          = $0202;
-  GL_LEQUAL                         = $0203;
-  GL_GREATER                        = $0204;
-  GL_NOTEQUAL                       = $0205;
-  GL_GEQUAL                         = $0206;
-  GL_ALWAYS                         = $0207;
-
-  // AttribMask
-  GL_CURRENT_BIT                    = $00000001;
-  GL_POINT_BIT                      = $00000002;
-  GL_LINE_BIT                       = $00000004;
-  GL_POLYGON_BIT                    = $00000008;
-  GL_POLYGON_STIPPLE_BIT            = $00000010;
-  GL_PIXEL_MODE_BIT                 = $00000020;
-  GL_LIGHTING_BIT                   = $00000040;
-  GL_FOG_BIT                        = $00000080;
-  GL_DEPTH_BUFFER_BIT               = $00000100;
-  GL_ACCUM_BUFFER_BIT               = $00000200;
-  GL_STENCIL_BUFFER_BIT             = $00000400;
-  GL_VIEWPORT_BIT                   = $00000800;
-  GL_TRANSFORM_BIT                  = $00001000;
-  GL_ENABLE_BIT                     = $00002000;
-  GL_COLOR_BUFFER_BIT               = $00004000;
-  GL_HINT_BIT                       = $00008000;
-  GL_EVAL_BIT                       = $00010000;
-  GL_LIST_BIT                       = $00020000;
-  GL_TEXTURE_BIT                    = $00040000;
-  GL_SCISSOR_BIT                    = $00080000;
-  GL_ALL_ATTRIB_BITS                = $000FFFFF;
-
-  // BeginMode
-  GL_POINTS                         = $0000;
-  GL_LINES                          = $0001;
-  GL_LINE_LOOP                      = $0002;
-  GL_LINE_STRIP                     = $0003;
-  GL_TRIANGLES                      = $0004;
-  GL_TRIANGLE_STRIP                 = $0005;
-  GL_TRIANGLE_FAN                   = $0006;
-  GL_QUADS                          = $0007;
-  GL_QUAD_STRIP                     = $0008;
-  GL_POLYGON                        = $0009;
-
-  // BlendingFactorDest
-  GL_ZERO                           = 0;
-  GL_ONE                            = 1;
-  GL_SRC_COLOR                      = $0300;
-  GL_ONE_MINUS_SRC_COLOR            = $0301;
-  GL_SRC_ALPHA                      = $0302;
-  GL_ONE_MINUS_SRC_ALPHA            = $0303;
-  GL_DST_ALPHA                      = $0304;
-  GL_ONE_MINUS_DST_ALPHA            = $0305;
-
-  // BlendingFactorSrc
-  //      GL_ZERO
-  //      GL_ONE
-  GL_DST_COLOR                      = $0306;
-  GL_ONE_MINUS_DST_COLOR            = $0307;
-  GL_SRC_ALPHA_SATURATE             = $0308;
-  //      GL_SRC_ALPHA
-  //      GL_ONE_MINUS_SRC_ALPHA
-  //      GL_DST_ALPHA
-  //      GL_ONE_MINUS_DST_ALPHA
-
-  // Boolean
-  GL_TRUE                           = 1;
-  GL_FALSE                          = 0;
-
-  // ClearBufferMask
-  //      GL_COLOR_BUFFER_BIT
-  //      GL_ACCUM_BUFFER_BIT
-  //      GL_STENCIL_BUFFER_BIT
-  //      GL_DEPTH_BUFFER_BIT
-
-  // ClientArrayType
-  //      GL_VERTEX_ARRAY
-  //      GL_NORMAL_ARRAY
-  //      GL_COLOR_ARRAY
-  //      GL_INDEX_ARRAY
-  //      GL_TEXTURE_COORD_ARRAY
-  //      GL_EDGE_FLAG_ARRAY
-
-  // ClipPlaneName
-  GL_CLIP_PLANE0                    = $3000;
-  GL_CLIP_PLANE1                    = $3001;
-  GL_CLIP_PLANE2                    = $3002;
-  GL_CLIP_PLANE3                    = $3003;
-  GL_CLIP_PLANE4                    = $3004;
-  GL_CLIP_PLANE5                    = $3005;
-
-  // ColorMaterialFace
-  //      GL_FRONT
-  //      GL_BACK
-  //      GL_FRONT_AND_BACK
-
-  // ColorMaterialParameter
-  //      GL_AMBIENT
-  //      GL_DIFFUSE
-  //      GL_SPECULAR
-  //      GL_EMISSION
-  //      GL_AMBIENT_AND_DIFFUSE
-
-  // ColorPointerType
-  //      GL_BYTE
-  //      GL_UNSIGNED_BYTE
-  //      GL_SHORT
-  //      GL_UNSIGNED_SHORT
-  //      GL_INT
-  //      GL_UNSIGNED_INT
-  //      GL_FLOAT
-  //      GL_DOUBLE
-
-  // CullFaceMode
-  //      GL_FRONT
-  //      GL_BACK
-  //      GL_FRONT_AND_BACK
-
-  // DataType
-  GL_BYTE                           = $1400;
-  GL_UNSIGNED_BYTE                  = $1401;
-  GL_SHORT                          = $1402;
-  GL_UNSIGNED_SHORT                 = $1403;
-  GL_INT                            = $1404;
-  GL_UNSIGNED_INT                   = $1405;
-  GL_FLOAT                          = $1406;
-  GL_2_BYTES                        = $1407;
-  GL_3_BYTES                        = $1408;
-  GL_4_BYTES                        = $1409;
-  GL_DOUBLE                         = $140A;
-
-  // DepthFunction
-  //      GL_NEVER
-  //      GL_LESS
-  //      GL_EQUAL
-  //      GL_LEQUAL
-  //      GL_GREATER
-  //      GL_NOTEQUAL
-  //      GL_GEQUAL
-  //      GL_ALWAYS
-
-  // DrawBufferMode
-  GL_NONE                           = 0;
-  GL_FRONT_LEFT                     = $0400;
-  GL_FRONT_RIGHT                    = $0401;
-  GL_BACK_LEFT                      = $0402;
-  GL_BACK_RIGHT                     = $0403;
-  GL_FRONT                          = $0404;
-  GL_BACK                           = $0405;
-  GL_LEFT                           = $0406;
-  GL_RIGHT                          = $0407;
-  GL_FRONT_AND_BACK                 = $0408;
-  GL_AUX0                           = $0409;
-  GL_AUX1                           = $040A;
-  GL_AUX2                           = $040B;
-  GL_AUX3                           = $040C;
-
-  // Enable
-  //      GL_FOG
-  //      GL_LIGHTING
-  //      GL_TEXTURE_1D
-  //      GL_TEXTURE_2D
-  //      GL_LINE_STIPPLE
-  //      GL_POLYGON_STIPPLE
-  //      GL_CULL_FACE
-  //      GL_ALPHA_TEST
-  //      GL_BLEND
-  //      GL_INDEX_LOGIC_OP
-  //      GL_COLOR_LOGIC_OP
-  //      GL_DITHER
-  //      GL_STENCIL_TEST
-  //      GL_DEPTH_TEST
-  //      GL_CLIP_PLANE0
-  //      GL_CLIP_PLANE1
-  //      GL_CLIP_PLANE2
-  //      GL_CLIP_PLANE3
-  //      GL_CLIP_PLANE4
-  //      GL_CLIP_PLANE5
-  //      GL_LIGHT0
-  //      GL_LIGHT1
-  //      GL_LIGHT2
-  //      GL_LIGHT3
-  //      GL_LIGHT4
-  //      GL_LIGHT5
-  //      GL_LIGHT6
-  //      GL_LIGHT7
-  //      GL_TEXTURE_GEN_S
-  //      GL_TEXTURE_GEN_T
-  //      GL_TEXTURE_GEN_R
-  //      GL_TEXTURE_GEN_Q
-  //      GL_MAP1_VERTEX_3
-  //      GL_MAP1_VERTEX_4
-  //      GL_MAP1_COLOR_4
-  //      GL_MAP1_INDEX
-  //      GL_MAP1_NORMAL
-  //      GL_MAP1_TEXTURE_COORD_1
-  //      GL_MAP1_TEXTURE_COORD_2
-  //      GL_MAP1_TEXTURE_COORD_3
-  //      GL_MAP1_TEXTURE_COORD_4
-  //      GL_MAP2_VERTEX_3
-  //      GL_MAP2_VERTEX_4
-  //      GL_MAP2_COLOR_4
-  //      GL_MAP2_INDEX
-  //      GL_MAP2_NORMAL
-  //      GL_MAP2_TEXTURE_COORD_1
-  //      GL_MAP2_TEXTURE_COORD_2
-  //      GL_MAP2_TEXTURE_COORD_3
-  //      GL_MAP2_TEXTURE_COORD_4
-  //      GL_POINT_SMOOTH
-  //      GL_LINE_SMOOTH
-  //      GL_POLYGON_SMOOTH
-  //      GL_SCISSOR_TEST
-  //      GL_COLOR_MATERIAL
-  //      GL_NORMALIZE
-  //      GL_AUTO_NORMAL
-  //      GL_VERTEX_ARRAY
-  //      GL_NORMAL_ARRAY
-  //      GL_COLOR_ARRAY
-  //      GL_INDEX_ARRAY
-  //      GL_TEXTURE_COORD_ARRAY
-  //      GL_EDGE_FLAG_ARRAY
-  //      GL_POLYGON_OFFSET_POINT
-  //      GL_POLYGON_OFFSET_LINE
-  //      GL_POLYGON_OFFSET_FILL
-
-  // ErrorCode
-  GL_NO_ERROR                       = 0;
-  GL_INVALID_ENUM                   = $0500;
-  GL_INVALID_VALUE                  = $0501;
-  GL_INVALID_OPERATION              = $0502;
-  GL_STACK_OVERFLOW                 = $0503;
-  GL_STACK_UNDERFLOW                = $0504;
-  GL_OUT_OF_MEMORY                  = $0505;
-
-  // FeedBackMode
-  GL_2D                             = $0600;
-  GL_3D                             = $0601;
-  GL_3D_COLOR                       = $0602;
-  GL_3D_COLOR_TEXTURE               = $0603;
-  GL_4D_COLOR_TEXTURE               = $0604;
-
-  // FeedBackToken
-  GL_PASS_THROUGH_TOKEN             = $0700;
-  GL_POINT_TOKEN                    = $0701;
-  GL_LINE_TOKEN                     = $0702;
-  GL_POLYGON_TOKEN                  = $0703;
-  GL_BITMAP_TOKEN                   = $0704;
-  GL_DRAW_PIXEL_TOKEN               = $0705;
-  GL_COPY_PIXEL_TOKEN               = $0706;
-  GL_LINE_RESET_TOKEN               = $0707;
-
-  // FogMode
-  //      GL_LINEAR
-  GL_EXP                            = $0800;
-  GL_EXP2                           = $0801;
-
-  // FogParameter
-  //      GL_FOG_COLOR
-  //      GL_FOG_DENSITY
-  //      GL_FOG_END
-  //      GL_FOG_INDEX
-  //      GL_FOG_MODE
-  //      GL_FOG_START
-
-  // FrontFaceDirection
-  GL_CW                             = $0900;
-  GL_CCW                            = $0901;
-
-  // GetMapTarget
-  GL_COEFF                          = $0A00;
-  GL_ORDER                          = $0A01;
-  GL_DOMAIN                         = $0A02;
-
-  // GetPixelMap
-  //      GL_PIXEL_MAP_I_TO_I 
-  //      GL_PIXEL_MAP_S_TO_S 
-  //      GL_PIXEL_MAP_I_TO_R 
-  //      GL_PIXEL_MAP_I_TO_G 
-  //      GL_PIXEL_MAP_I_TO_B 
-  //      GL_PIXEL_MAP_I_TO_A
-  //      GL_PIXEL_MAP_R_TO_R
-  //      GL_PIXEL_MAP_G_TO_G 
-  //      GL_PIXEL_MAP_B_TO_B 
-  //      GL_PIXEL_MAP_A_TO_A 
-
-  // GetPointerTarget 
-  //      GL_VERTEX_ARRAY_POINTER 
-  //      GL_NORMAL_ARRAY_POINTER 
-  //      GL_COLOR_ARRAY_POINTER 
-  //      GL_INDEX_ARRAY_POINTER 
-  //      GL_TEXTURE_COORD_ARRAY_POINTER 
-  //      GL_EDGE_FLAG_ARRAY_POINTER 
-
-  // GetTarget 
-  GL_CURRENT_COLOR                  = $0B00;
-  GL_CURRENT_INDEX                  = $0B01;
-  GL_CURRENT_NORMAL                 = $0B02;
-  GL_CURRENT_TEXTURE_COORDS         = $0B03;
-  GL_CURRENT_RASTER_COLOR           = $0B04;
-  GL_CURRENT_RASTER_INDEX           = $0B05;
-  GL_CURRENT_RASTER_TEXTURE_COORDS  = $0B06;
-  GL_CURRENT_RASTER_POSITION        = $0B07;
-  GL_CURRENT_RASTER_POSITION_VALID  = $0B08;
-  GL_CURRENT_RASTER_DISTANCE        = $0B09;
-  GL_POINT_SMOOTH                   = $0B10;
-  GL_POINT_SIZE                     = $0B11;
-  GL_POINT_SIZE_RANGE               = $0B12;
-  GL_POINT_SIZE_GRANULARITY         = $0B13;
-  GL_LINE_SMOOTH                    = $0B20;
-  GL_LINE_WIDTH                     = $0B21;
-  GL_LINE_WIDTH_RANGE               = $0B22;
-  GL_LINE_WIDTH_GRANULARITY         = $0B23;
-  GL_LINE_STIPPLE                   = $0B24;
-  GL_LINE_STIPPLE_PATTERN           = $0B25;
-  GL_LINE_STIPPLE_REPEAT            = $0B26;
-  GL_LIST_MODE                      = $0B30;
-  GL_MAX_LIST_NESTING               = $0B31;
-  GL_LIST_BASE                      = $0B32;
-  GL_LIST_INDEX                     = $0B33;
-  GL_POLYGON_MODE                   = $0B40;
-  GL_POLYGON_SMOOTH                 = $0B41;
-  GL_POLYGON_STIPPLE                = $0B42;
-  GL_EDGE_FLAG                      = $0B43;
-  GL_CULL_FACE                      = $0B44;
-  GL_CULL_FACE_MODE                 = $0B45;
-  GL_FRONT_FACE                     = $0B46;
-  GL_LIGHTING                       = $0B50;
-  GL_LIGHT_MODEL_LOCAL_VIEWER       = $0B51;
-  GL_LIGHT_MODEL_TWO_SIDE           = $0B52;
-  GL_LIGHT_MODEL_AMBIENT            = $0B53;
-  GL_SHADE_MODEL                    = $0B54;
-  GL_COLOR_MATERIAL_FACE            = $0B55;
-  GL_COLOR_MATERIAL_PARAMETER       = $0B56;
-  GL_COLOR_MATERIAL                 = $0B57;
-  GL_FOG                            = $0B60;
-  GL_FOG_INDEX                      = $0B61;
-  GL_FOG_DENSITY                    = $0B62;
-  GL_FOG_START                      = $0B63;
-  GL_FOG_END                        = $0B64;
-  GL_FOG_MODE                       = $0B65;
-  GL_FOG_COLOR                      = $0B66;
-  GL_DEPTH_RANGE                    = $0B70;
-  GL_DEPTH_TEST                     = $0B71;
-  GL_DEPTH_WRITEMASK                = $0B72;
-  GL_DEPTH_CLEAR_VALUE              = $0B73;
-  GL_DEPTH_FUNC                     = $0B74;
-  GL_ACCUM_CLEAR_VALUE              = $0B80;
-  GL_STENCIL_TEST                   = $0B90;
-  GL_STENCIL_CLEAR_VALUE            = $0B91;
-  GL_STENCIL_FUNC                   = $0B92;
-  GL_STENCIL_VALUE_MASK             = $0B93;
-  GL_STENCIL_FAIL                   = $0B94;
-  GL_STENCIL_PASS_DEPTH_FAIL        = $0B95;
-  GL_STENCIL_PASS_DEPTH_PASS        = $0B96;
-  GL_STENCIL_REF                    = $0B97;
-  GL_STENCIL_WRITEMASK              = $0B98;
-  GL_MATRIX_MODE                    = $0BA0;
-  GL_NORMALIZE                      = $0BA1;
-  GL_VIEWPORT                       = $0BA2;
-  GL_MODELVIEW_STACK_DEPTH          = $0BA3;
-  GL_PROJECTION_STACK_DEPTH         = $0BA4;
-  GL_TEXTURE_STACK_DEPTH            = $0BA5;
-  GL_MODELVIEW_MATRIX               = $0BA6;
-  GL_PROJECTION_MATRIX              = $0BA7;
-  GL_TEXTURE_MATRIX                 = $0BA8;
-  GL_ATTRIB_STACK_DEPTH             = $0BB0;
-  GL_CLIENT_ATTRIB_STACK_DEPTH      = $0BB1;
-  GL_ALPHA_TEST                     = $0BC0;
-  GL_ALPHA_TEST_FUNC                = $0BC1;
-  GL_ALPHA_TEST_REF                 = $0BC2;
-  GL_DITHER                         = $0BD0;
-  GL_BLEND_DST                      = $0BE0;
-  GL_BLEND_SRC                      = $0BE1;
-  GL_BLEND                          = $0BE2;
-  GL_LOGIC_OP_MODE                  = $0BF0;
-  GL_INDEX_LOGIC_OP                 = $0BF1;
-  GL_COLOR_LOGIC_OP                 = $0BF2;
-  GL_AUX_BUFFERS                    = $0C00;
-  GL_DRAW_BUFFER                    = $0C01;
-  GL_READ_BUFFER                    = $0C02;
-  GL_SCISSOR_BOX                    = $0C10;
-  GL_SCISSOR_TEST                   = $0C11;
-  GL_INDEX_CLEAR_VALUE              = $0C20;
-  GL_INDEX_WRITEMASK                = $0C21;
-  GL_COLOR_CLEAR_VALUE              = $0C22;
-  GL_COLOR_WRITEMASK                = $0C23;
-  GL_INDEX_MODE                     = $0C30;
-  GL_RGBA_MODE                      = $0C31;
-  GL_DOUBLEBUFFER                   = $0C32;
-  GL_STEREO                         = $0C33;
-  GL_RENDER_MODE                    = $0C40;
-  GL_PERSPECTIVE_CORRECTION_HINT    = $0C50;
-  GL_POINT_SMOOTH_HINT              = $0C51;
-  GL_LINE_SMOOTH_HINT               = $0C52;
-  GL_POLYGON_SMOOTH_HINT            = $0C53;
-  GL_FOG_HINT                       = $0C54;
-  GL_TEXTURE_GEN_S                  = $0C60;
-  GL_TEXTURE_GEN_T                  = $0C61;
-  GL_TEXTURE_GEN_R                  = $0C62;
-  GL_TEXTURE_GEN_Q                  = $0C63;
-  GL_PIXEL_MAP_I_TO_I               = $0C70;
-  GL_PIXEL_MAP_S_TO_S               = $0C71;
-  GL_PIXEL_MAP_I_TO_R               = $0C72;
-  GL_PIXEL_MAP_I_TO_G               = $0C73;
-  GL_PIXEL_MAP_I_TO_B               = $0C74;
-  GL_PIXEL_MAP_I_TO_A               = $0C75;
-  GL_PIXEL_MAP_R_TO_R               = $0C76;
-  GL_PIXEL_MAP_G_TO_G               = $0C77;
-  GL_PIXEL_MAP_B_TO_B               = $0C78;
-  GL_PIXEL_MAP_A_TO_A               = $0C79;
-  GL_PIXEL_MAP_I_TO_I_SIZE          = $0CB0;
-  GL_PIXEL_MAP_S_TO_S_SIZE          = $0CB1;
-  GL_PIXEL_MAP_I_TO_R_SIZE          = $0CB2;
-  GL_PIXEL_MAP_I_TO_G_SIZE          = $0CB3;
-  GL_PIXEL_MAP_I_TO_B_SIZE          = $0CB4;
-  GL_PIXEL_MAP_I_TO_A_SIZE          = $0CB5;
-  GL_PIXEL_MAP_R_TO_R_SIZE          = $0CB6;
-  GL_PIXEL_MAP_G_TO_G_SIZE          = $0CB7;
-  GL_PIXEL_MAP_B_TO_B_SIZE          = $0CB8;
-  GL_PIXEL_MAP_A_TO_A_SIZE          = $0CB9;
-  GL_UNPACK_SWAP_BYTES              = $0CF0;
-  GL_UNPACK_LSB_FIRST               = $0CF1;
-  GL_UNPACK_ROW_LENGTH              = $0CF2;
-  GL_UNPACK_SKIP_ROWS               = $0CF3;
-  GL_UNPACK_SKIP_PIXELS             = $0CF4;
-  GL_UNPACK_ALIGNMENT               = $0CF5;
-  GL_PACK_SWAP_BYTES                = $0D00;
-  GL_PACK_LSB_FIRST                 = $0D01;
-  GL_PACK_ROW_LENGTH                = $0D02;
-  GL_PACK_SKIP_ROWS                 = $0D03;
-  GL_PACK_SKIP_PIXELS               = $0D04;
-  GL_PACK_ALIGNMENT                 = $0D05;
-  GL_MAP_COLOR                      = $0D10;
-  GL_MAP_STENCIL                    = $0D11;
-  GL_INDEX_SHIFT                    = $0D12;
-  GL_INDEX_OFFSET                   = $0D13;
-  GL_RED_SCALE                      = $0D14;
-  GL_RED_BIAS                       = $0D15;
-  GL_ZOOM_X                         = $0D16;
-  GL_ZOOM_Y                         = $0D17;
-  GL_GREEN_SCALE                    = $0D18;
-  GL_GREEN_BIAS                     = $0D19;
-  GL_BLUE_SCALE                     = $0D1A;
-  GL_BLUE_BIAS                      = $0D1B;
-  GL_ALPHA_SCALE                    = $0D1C;
-  GL_ALPHA_BIAS                     = $0D1D;
-  GL_DEPTH_SCALE                    = $0D1E;
-  GL_DEPTH_BIAS                     = $0D1F;
-  GL_MAX_EVAL_ORDER                 = $0D30;
-  GL_MAX_LIGHTS                     = $0D31;
-  GL_MAX_CLIP_PLANES                = $0D32;
-  GL_MAX_TEXTURE_SIZE               = $0D33;
-  GL_MAX_PIXEL_MAP_TABLE            = $0D34;
-  GL_MAX_ATTRIB_STACK_DEPTH         = $0D35;
-  GL_MAX_MODELVIEW_STACK_DEPTH      = $0D36;
-  GL_MAX_NAME_STACK_DEPTH           = $0D37;
-  GL_MAX_PROJECTION_STACK_DEPTH     = $0D38;
-  GL_MAX_TEXTURE_STACK_DEPTH        = $0D39;
-  GL_MAX_VIEWPORT_DIMS              = $0D3A;
-  GL_MAX_CLIENT_ATTRIB_STACK_DEPTH  = $0D3B;
-  GL_SUBPIXEL_BITS                  = $0D50;
-  GL_INDEX_BITS                     = $0D51;
-  GL_RED_BITS                       = $0D52;
-  GL_GREEN_BITS                     = $0D53;
-  GL_BLUE_BITS                      = $0D54;
-  GL_ALPHA_BITS                     = $0D55;
-  GL_DEPTH_BITS                     = $0D56;
-  GL_STENCIL_BITS                   = $0D57;
-  GL_ACCUM_RED_BITS                 = $0D58;
-  GL_ACCUM_GREEN_BITS               = $0D59;
-  GL_ACCUM_BLUE_BITS                = $0D5A;
-  GL_ACCUM_ALPHA_BITS               = $0D5B;
-  GL_NAME_STACK_DEPTH               = $0D70;
-  GL_AUTO_NORMAL                    = $0D80;
-  GL_MAP1_COLOR_4                   = $0D90;
-  GL_MAP1_INDEX                     = $0D91;
-  GL_MAP1_NORMAL                    = $0D92;
-  GL_MAP1_TEXTURE_COORD_1           = $0D93;
-  GL_MAP1_TEXTURE_COORD_2           = $0D94;
-  GL_MAP1_TEXTURE_COORD_3           = $0D95;
-  GL_MAP1_TEXTURE_COORD_4           = $0D96;
-  GL_MAP1_VERTEX_3                  = $0D97;
-  GL_MAP1_VERTEX_4                  = $0D98;
-  GL_MAP2_COLOR_4                   = $0DB0;
-  GL_MAP2_INDEX                     = $0DB1;
-  GL_MAP2_NORMAL                    = $0DB2;
-  GL_MAP2_TEXTURE_COORD_1           = $0DB3;
-  GL_MAP2_TEXTURE_COORD_2           = $0DB4;
-  GL_MAP2_TEXTURE_COORD_3           = $0DB5;
-  GL_MAP2_TEXTURE_COORD_4           = $0DB6;
-  GL_MAP2_VERTEX_3                  = $0DB7;
-  GL_MAP2_VERTEX_4                  = $0DB8;
-  GL_MAP1_GRID_DOMAIN               = $0DD0;
-  GL_MAP1_GRID_SEGMENTS             = $0DD1;
-  GL_MAP2_GRID_DOMAIN               = $0DD2;
-  GL_MAP2_GRID_SEGMENTS             = $0DD3;
-  GL_TEXTURE_1D                     = $0DE0;
-  GL_TEXTURE_2D                     = $0DE1;
-  GL_FEEDBACK_BUFFER_POINTER        = $0DF0;
-  GL_FEEDBACK_BUFFER_SIZE           = $0DF1;
-  GL_FEEDBACK_BUFFER_TYPE           = $0DF2;
-  GL_SELECTION_BUFFER_POINTER       = $0DF3;
-  GL_SELECTION_BUFFER_SIZE          = $0DF4;
-  //      GL_TEXTURE_BINDING_1D
-  //      GL_TEXTURE_BINDING_2D 
-  //      GL_VERTEX_ARRAY 
-  //      GL_NORMAL_ARRAY 
-  //      GL_COLOR_ARRAY 
-  //      GL_INDEX_ARRAY 
-  //      GL_TEXTURE_COORD_ARRAY 
-  //      GL_EDGE_FLAG_ARRAY
-  //      GL_VERTEX_ARRAY_SIZE
-  //      GL_VERTEX_ARRAY_TYPE 
-  //      GL_VERTEX_ARRAY_STRIDE 
-  //      GL_NORMAL_ARRAY_TYPE 
-  //      GL_NORMAL_ARRAY_STRIDE 
-  //      GL_COLOR_ARRAY_SIZE 
-  //      GL_COLOR_ARRAY_TYPE 
-  //      GL_COLOR_ARRAY_STRIDE 
-  //      GL_INDEX_ARRAY_TYPE 
-  //      GL_INDEX_ARRAY_STRIDE 
-  //      GL_TEXTURE_COORD_ARRAY_SIZE 
-  //      GL_TEXTURE_COORD_ARRAY_TYPE 
-  //      GL_TEXTURE_COORD_ARRAY_STRIDE 
-  //      GL_EDGE_FLAG_ARRAY_STRIDE 
-  //      GL_POLYGON_OFFSET_FACTOR 
-  //      GL_POLYGON_OFFSET_UNITS 
-
-  // GetTextureParameter 
-  //      GL_TEXTURE_MAG_FILTER 
-  //      GL_TEXTURE_MIN_FILTER 
-  //      GL_TEXTURE_WRAP_S
-  //      GL_TEXTURE_WRAP_T
-  GL_TEXTURE_WIDTH                  = $1000;
-  GL_TEXTURE_HEIGHT                 = $1001;
-  GL_TEXTURE_INTERNAL_FORMAT        = $1003;
-  GL_TEXTURE_BORDER_COLOR           = $1004;
-  GL_TEXTURE_BORDER                 = $1005;
-  //      GL_TEXTURE_RED_SIZE
-  //      GL_TEXTURE_GREEN_SIZE
-  //      GL_TEXTURE_BLUE_SIZE
-  //      GL_TEXTURE_ALPHA_SIZE
-  //      GL_TEXTURE_LUMINANCE_SIZE
-  //      GL_TEXTURE_INTENSITY_SIZE
-  //      GL_TEXTURE_PRIORITY
-  //      GL_TEXTURE_RESIDENT
-
-  // HintMode
-  GL_DONT_CARE                      = $1100;
-  GL_FASTEST                        = $1101;
-  GL_NICEST                         = $1102;
-
-  // HintTarget
-  //      GL_PERSPECTIVE_CORRECTION_HINT
-  //      GL_POINT_SMOOTH_HINT
-  //      GL_LINE_SMOOTH_HINT
-  //      GL_POLYGON_SMOOTH_HINT
-  //      GL_FOG_HINT
-
-  // IndexPointerType
-  //      GL_SHORT
-  //      GL_INT
-  //      GL_FLOAT
-  //      GL_DOUBLE
-
-  // LightModelParameter
-  //      GL_LIGHT_MODEL_AMBIENT
-  //      GL_LIGHT_MODEL_LOCAL_VIEWER
-  //      GL_LIGHT_MODEL_TWO_SIDE
-
-  // LightName
-  GL_LIGHT0                         = $4000;
-  GL_LIGHT1                         = $4001;
-  GL_LIGHT2                         = $4002;
-  GL_LIGHT3                         = $4003;
-  GL_LIGHT4                         = $4004;
-  GL_LIGHT5                         = $4005;
-  GL_LIGHT6                         = $4006;
-  GL_LIGHT7                         = $4007;
-
-  // LightParameter
-  GL_AMBIENT                        = $1200;
-  GL_DIFFUSE                        = $1201;
-  GL_SPECULAR                       = $1202;
-  GL_POSITION                       = $1203;
-  GL_SPOT_DIRECTION                 = $1204;
-  GL_SPOT_EXPONENT                  = $1205;
-  GL_SPOT_CUTOFF                    = $1206;
-  GL_CONSTANT_ATTENUATION           = $1207;
-  GL_LINEAR_ATTENUATION             = $1208;
-  GL_QUADRATIC_ATTENUATION          = $1209;
-
-  // InterleavedArrays
-  //      GL_V2F
-  //      GL_V3F
-  //      GL_C4UB_V2F
-  //      GL_C4UB_V3F
-  //      GL_C3F_V3F
-  //      GL_N3F_V3F
-  //      GL_C4F_N3F_V3F
-  //      GL_T2F_V3F
-  //      GL_T4F_V4F
-  //      GL_T2F_C4UB_V3F
-  //      GL_T2F_C3F_V3F
-  //      GL_T2F_N3F_V3F
-  //      GL_T2F_C4F_N3F_V3F
-  //      GL_T4F_C4F_N3F_V4F
-
-  // ListMode
-  GL_COMPILE                        = $1300;
-  GL_COMPILE_AND_EXECUTE            = $1301;
-
-  // ListNameType
-  //      GL_BYTE
-  //      GL_UNSIGNED_BYTE
-  //      GL_SHORT
-  //      GL_UNSIGNED_SHORT
-  //      GL_INT
-  //      GL_UNSIGNED_INT
-  //      GL_FLOAT
-  //      GL_2_BYTES
-  //      GL_3_BYTES
-  //      GL_4_BYTES
-
-  // LogicOp
-  GL_CLEAR                          = $1500;
-  GL_AND                            = $1501;
-  GL_AND_REVERSE                    = $1502;
-  GL_COPY                           = $1503;
-  GL_AND_INVERTED                   = $1504;
-  GL_NOOP                           = $1505;
-  GL_XOR                            = $1506;
-  GL_OR                             = $1507;
-  GL_NOR                            = $1508;
-  GL_EQUIV                          = $1509;
-  GL_INVERT                         = $150A;
-  GL_OR_REVERSE                     = $150B;
-  GL_COPY_INVERTED                  = $150C;
-  GL_OR_INVERTED                    = $150D;
-  GL_NAND                           = $150E;
-  GL_SET                            = $150F;
-
-  // MapTarget
-  //      GL_MAP1_COLOR_4
-  //      GL_MAP1_INDEX
-  //      GL_MAP1_NORMAL
-  //      GL_MAP1_TEXTURE_COORD_1
-  //      GL_MAP1_TEXTURE_COORD_2
-  //      GL_MAP1_TEXTURE_COORD_3
-  //      GL_MAP1_TEXTURE_COORD_4
-  //      GL_MAP1_VERTEX_3
-  //      GL_MAP1_VERTEX_4
-  //      GL_MAP2_COLOR_4
-  //      GL_MAP2_INDEX
-  //      GL_MAP2_NORMAL
-  //      GL_MAP2_TEXTURE_COORD_1
-  //      GL_MAP2_TEXTURE_COORD_2
-  //      GL_MAP2_TEXTURE_COORD_3
-  //      GL_MAP2_TEXTURE_COORD_4
-  //      GL_MAP2_VERTEX_3
-  //      GL_MAP2_VERTEX_4
-
-  // MaterialFace
-  //      GL_FRONT
-  //      GL_BACK
-  //      GL_FRONT_AND_BACK
-
-  // MaterialParameter
-  GL_EMISSION                       = $1600;
-  GL_SHININESS                      = $1601;
-  GL_AMBIENT_AND_DIFFUSE            = $1602;
-  GL_COLOR_INDEXES                  = $1603;
-  //      GL_AMBIENT
-  //      GL_DIFFUSE
-  //      GL_SPECULAR
-
-  // MatrixMode
-  GL_MODELVIEW                      = $1700;
-  GL_PROJECTION                     = $1701;
-  GL_TEXTURE                        = $1702;
-
-  // MeshMode1
-  //      GL_POINT
-  //      GL_LINE
-
-  // MeshMode2
-  //      GL_POINT
-  //      GL_LINE
-  //      GL_FILL
-
-  // NormalPointerType
-  //      GL_BYTE
-  //      GL_SHORT
-  //      GL_INT
-  //      GL_FLOAT
-  //      GL_DOUBLE
-
-  // PixelCopyType
-  GL_COLOR                          = $1800;
-  GL_DEPTH                          = $1801;
-  GL_STENCIL                        = $1802;
-
-  // PixelFormat
-  GL_COLOR_INDEX                    = $1900;
-  GL_STENCIL_INDEX                  = $1901;
-  GL_DEPTH_COMPONENT                = $1902;
-  GL_RED                            = $1903;
-  GL_GREEN                          = $1904;
-  GL_BLUE                           = $1905;
-  GL_ALPHA                          = $1906;
-  GL_RGB                            = $1907;
-  GL_RGBA                           = $1908;
-  GL_LUMINANCE                      = $1909;
-  GL_LUMINANCE_ALPHA                = $190A;
-
-  // PixelMap
-  //      GL_PIXEL_MAP_I_TO_I
-  //      GL_PIXEL_MAP_S_TO_S
-  //      GL_PIXEL_MAP_I_TO_R
-  //      GL_PIXEL_MAP_I_TO_G
-  //      GL_PIXEL_MAP_I_TO_B
-  //      GL_PIXEL_MAP_I_TO_A
-  //      GL_PIXEL_MAP_R_TO_R
-  //      GL_PIXEL_MAP_G_TO_G
-  //      GL_PIXEL_MAP_B_TO_B
-  //      GL_PIXEL_MAP_A_TO_A
-
-  // PixelStore
-  //      GL_UNPACK_SWAP_BYTES
-  //      GL_UNPACK_LSB_FIRST
-  //      GL_UNPACK_ROW_LENGTH
-  //      GL_UNPACK_SKIP_ROWS
-  //      GL_UNPACK_SKIP_PIXELS
-  //      GL_UNPACK_ALIGNMENT
-  //      GL_PACK_SWAP_BYTES
-  //      GL_PACK_LSB_FIRST
-  //      GL_PACK_ROW_LENGTH
-  //      GL_PACK_SKIP_ROWS
-  //      GL_PACK_SKIP_PIXELS
-  //      GL_PACK_ALIGNMENT
-
-  // PixelTransfer
-  //      GL_MAP_COLOR
-  //      GL_MAP_STENCIL
-  //      GL_INDEX_SHIFT
-  //      GL_INDEX_OFFSET
-  //      GL_RED_SCALE
-  //      GL_RED_BIAS
-  //      GL_GREEN_SCALE
-  //      GL_GREEN_BIAS
-  //      GL_BLUE_SCALE
-  //      GL_BLUE_BIAS
-  //      GL_ALPHA_SCALE
-  //      GL_ALPHA_BIAS
-  //      GL_DEPTH_SCALE
-  //      GL_DEPTH_BIAS
-
-  // PixelType
-  GL_BITMAP                         = $1A00;
-  //      GL_BYTE
-  //      GL_UNSIGNED_BYTE
-  //      GL_SHORT
-  //      GL_UNSIGNED_SHORT
-  //      GL_INT
-  //      GL_UNSIGNED_INT
-  //      GL_FLOAT
-
-  // PolygonMode
-  GL_POINT                          = $1B00;
-  GL_LINE                           = $1B01;
-  GL_FILL                           = $1B02;
-
-  // ReadBufferMode
-  //      GL_FRONT_LEFT
-  //      GL_FRONT_RIGHT
-  //      GL_BACK_LEFT
-  //      GL_BACK_RIGHT
-  //      GL_FRONT
-  //      GL_BACK
-  //      GL_LEFT
-  //      GL_RIGHT
-  //      GL_AUX0
-  //      GL_AUX1
-  //      GL_AUX2
-  //      GL_AUX3
-
-  // RenderingMode
-  GL_RENDER                         = $1C00;
-  GL_FEEDBACK                       = $1C01;
-  GL_SELECT                         = $1C02;
-
-  // ShadingModel
-  GL_FLAT                           = $1D00;
-  GL_SMOOTH                         = $1D01;
-
-  // StencilFunction
-  //      GL_NEVER
-  //      GL_LESS
-  //      GL_EQUAL
-  //      GL_LEQUAL
-  //      GL_GREATER
-  //      GL_NOTEQUAL
-  //      GL_GEQUAL
-  //      GL_ALWAYS
-
-  // StencilOp
-  //      GL_ZERO
-  GL_KEEP                           = $1E00;
-  GL_REPLACE                        = $1E01;
-  GL_INCR                           = $1E02;
-  GL_DECR                           = $1E03;
-  //      GL_INVERT
-
-  // StringName
-  GL_VENDOR                         = $1F00;
-  GL_RENDERER                       = $1F01;
-  GL_VERSION                        = $1F02;
-  GL_EXTENSIONS                     = $1F03;
-
-  // TextureCoordName
-  GL_S                              = $2000;
-  GL_T                              = $2001;
-  GL_R                              = $2002;
-  GL_Q                              = $2003;
-
-  // TexCoordPointerType
-  //      GL_SHORT
-  //      GL_INT
-  //      GL_FLOAT
-  //      GL_DOUBLE
-
-  // TextureEnvMode
-  GL_MODULATE                       = $2100;
-  GL_DECAL                          = $2101;
-  //      GL_BLEND
-  //      GL_REPLACE
-
-  // TextureEnvParameter
-  GL_TEXTURE_ENV_MODE               = $2200;
-  GL_TEXTURE_ENV_COLOR              = $2201;
-
-  // TextureEnvTarget
-  GL_TEXTURE_ENV                    = $2300;
-
-  // TextureGenMode
-  GL_EYE_LINEAR                     = $2400;
-  GL_OBJECT_LINEAR                  = $2401;
-  GL_SPHERE_MAP                     = $2402;
-
-  // TextureGenParameter
-  GL_TEXTURE_GEN_MODE               = $2500;
-  GL_OBJECT_PLANE                   = $2501;
-  GL_EYE_PLANE                      = $2502;
-
-  // TextureMagFilter
-  GL_NEAREST                        = $2600;
-  GL_LINEAR                         = $2601;
-
-  // TextureMinFilter
-  //      GL_NEAREST
-  //      GL_LINEAR
-  GL_NEAREST_MIPMAP_NEAREST         = $2700;
-  GL_LINEAR_MIPMAP_NEAREST          = $2701;
-  GL_NEAREST_MIPMAP_LINEAR          = $2702;
-  GL_LINEAR_MIPMAP_LINEAR           = $2703;
-
-  // TextureParameterName
-  GL_TEXTURE_MAG_FILTER             = $2800;
-  GL_TEXTURE_MIN_FILTER             = $2801;
-  GL_TEXTURE_WRAP_S                 = $2802;
-  GL_TEXTURE_WRAP_T                 = $2803;
-  //      GL_TEXTURE_BORDER_COLOR
-  //      GL_TEXTURE_PRIORITY
-
-  // TextureTarget
-  //      GL_TEXTURE_1D
-  //      GL_TEXTURE_2D
-  //      GL_PROXY_TEXTURE_1D
-  //      GL_PROXY_TEXTURE_2D
-
-  // TextureWrapMode
-  GL_CLAMP                          = $2900;
-  GL_REPEAT                         = $2901;
-
-  // VertexPointerType
-  //      GL_SHORT
-  //      GL_INT
-  //      GL_FLOAT
-  //      GL_DOUBLE
-
-  // ClientAttribMask
-  GL_CLIENT_PIXEL_STORE_BIT         = $00000001;
-  GL_CLIENT_VERTEX_ARRAY_BIT        = $00000002;
-  GL_CLIENT_ALL_ATTRIB_BITS         = $FFFFFFFF;
-
-  // polygon_offset
-  GL_POLYGON_OFFSET_FACTOR          = $8038;
-  GL_POLYGON_OFFSET_UNITS           = $2A00;
-  GL_POLYGON_OFFSET_POINT           = $2A01;
-  GL_POLYGON_OFFSET_LINE            = $2A02;
-  GL_POLYGON_OFFSET_FILL            = $8037;
-
-  // texture
-  GL_ALPHA4                         = $803B;
-  GL_ALPHA8                         = $803C;
-  GL_ALPHA12                        = $803D;
-  GL_ALPHA16                        = $803E;
-  GL_LUMINANCE4                     = $803F;
-  GL_LUMINANCE8                     = $8040;
-  GL_LUMINANCE12                    = $8041;
-  GL_LUMINANCE16                    = $8042;
-  GL_LUMINANCE4_ALPHA4              = $8043;
-  GL_LUMINANCE6_ALPHA2              = $8044;
-  GL_LUMINANCE8_ALPHA8              = $8045;
-  GL_LUMINANCE12_ALPHA4             = $8046;
-  GL_LUMINANCE12_ALPHA12            = $8047;
-  GL_LUMINANCE16_ALPHA16            = $8048;
-  GL_INTENSITY                      = $8049;
-  GL_INTENSITY4                     = $804A;
-  GL_INTENSITY8                     = $804B;
-  GL_INTENSITY12                    = $804C;
-  GL_INTENSITY16                    = $804D;
-  GL_R3_G3_B2                       = $2A10;
-  GL_RGB4                           = $804F;
-  GL_RGB5                           = $8050;
-  GL_RGB8                           = $8051;
-  GL_RGB10                          = $8052;
-  GL_RGB12                          = $8053;
-  GL_RGB16                          = $8054;
-  GL_RGBA2                          = $8055;
-  GL_RGBA4                          = $8056;
-  GL_RGB5_A1                        = $8057;
-  GL_RGBA8                          = $8058;
-  GL_RGB10_A2                       = $8059;
-  GL_RGBA12                         = $805A;
-  GL_RGBA16                         = $805B;
-  GL_TEXTURE_RED_SIZE               = $805C;
-  GL_TEXTURE_GREEN_SIZE             = $805D;
-  GL_TEXTURE_BLUE_SIZE              = $805E;
-  GL_TEXTURE_ALPHA_SIZE             = $805F;
-  GL_TEXTURE_LUMINANCE_SIZE         = $8060;
-  GL_TEXTURE_INTENSITY_SIZE         = $8061;
-  GL_PROXY_TEXTURE_1D               = $8063;
-  GL_PROXY_TEXTURE_2D               = $8064;
-
-  // texture_object
-  GL_TEXTURE_PRIORITY               = $8066;
-  GL_TEXTURE_RESIDENT               = $8067;
-  GL_TEXTURE_BINDING_1D             = $8068;
-  GL_TEXTURE_BINDING_2D             = $8069;
-
-  // vertex_array
-  GL_VERTEX_ARRAY                   = $8074;
-  GL_NORMAL_ARRAY                   = $8075;
-  GL_COLOR_ARRAY                    = $8076;
-  GL_INDEX_ARRAY                    = $8077;
-  GL_TEXTURE_COORD_ARRAY            = $8078;
-  GL_EDGE_FLAG_ARRAY                = $8079;
-  GL_VERTEX_ARRAY_SIZE              = $807A;
-  GL_VERTEX_ARRAY_TYPE              = $807B;
-  GL_VERTEX_ARRAY_STRIDE            = $807C;
-  GL_NORMAL_ARRAY_TYPE              = $807E;
-  GL_NORMAL_ARRAY_STRIDE            = $807F;
-  GL_COLOR_ARRAY_SIZE               = $8081;
-  GL_COLOR_ARRAY_TYPE               = $8082;
-  GL_COLOR_ARRAY_STRIDE             = $8083;
-  GL_INDEX_ARRAY_TYPE               = $8085;
-  GL_INDEX_ARRAY_STRIDE             = $8086;
-  GL_TEXTURE_COORD_ARRAY_SIZE       = $8088;
-  GL_TEXTURE_COORD_ARRAY_TYPE       = $8089;
-  GL_TEXTURE_COORD_ARRAY_STRIDE     = $808A;
-  GL_EDGE_FLAG_ARRAY_STRIDE         = $808C;
-  GL_VERTEX_ARRAY_POINTER           = $808E;
-  GL_NORMAL_ARRAY_POINTER           = $808F;
-  GL_COLOR_ARRAY_POINTER            = $8090;
-  GL_INDEX_ARRAY_POINTER            = $8091;
-  GL_TEXTURE_COORD_ARRAY_POINTER    = $8092;
-  GL_EDGE_FLAG_ARRAY_POINTER        = $8093;
-  GL_V2F                            = $2A20;
-  GL_V3F                            = $2A21;
-  GL_C4UB_V2F                       = $2A22;
-  GL_C4UB_V3F                       = $2A23;
-  GL_C3F_V3F                        = $2A24;
-  GL_N3F_V3F                        = $2A25;
-  GL_C4F_N3F_V3F                    = $2A26;
-  GL_T2F_V3F                        = $2A27;
-  GL_T4F_V4F                        = $2A28;
-  GL_T2F_C4UB_V3F                   = $2A29;
-  GL_T2F_C3F_V3F                    = $2A2A;
-  GL_T2F_N3F_V3F                    = $2A2B;
-  GL_T2F_C4F_N3F_V3F                = $2A2C;
-  GL_T4F_C4F_N3F_V4F                = $2A2D;
-
-  // Extensions
-  GL_EXT_vertex_array               = 1;
-  GL_WIN_swap_hint                  = 1;
-  GL_EXT_bgra                       = 1;
-  GL_EXT_paletted_texture           = 1;
-
-  // EXT_vertex_array
-  GL_VERTEX_ARRAY_EXT               = $8074;
-  GL_NORMAL_ARRAY_EXT               = $8075;
-  GL_COLOR_ARRAY_EXT                = $8076;
-  GL_INDEX_ARRAY_EXT                = $8077;
-  GL_TEXTURE_COORD_ARRAY_EXT        = $8078;
-  GL_EDGE_FLAG_ARRAY_EXT            = $8079;
-  GL_VERTEX_ARRAY_SIZE_EXT          = $807A;
-  GL_VERTEX_ARRAY_TYPE_EXT          = $807B;
-  GL_VERTEX_ARRAY_STRIDE_EXT        = $807C;
-  GL_VERTEX_ARRAY_COUNT_EXT         = $807D;
-  GL_NORMAL_ARRAY_TYPE_EXT          = $807E;
-  GL_NORMAL_ARRAY_STRIDE_EXT        = $807F;
-  GL_NORMAL_ARRAY_COUNT_EXT         = $8080;
-  GL_COLOR_ARRAY_SIZE_EXT           = $8081;
-  GL_COLOR_ARRAY_TYPE_EXT           = $8082;
-  GL_COLOR_ARRAY_STRIDE_EXT         = $8083;
-  GL_COLOR_ARRAY_COUNT_EXT          = $8084;
-  GL_INDEX_ARRAY_TYPE_EXT           = $8085;
-  GL_INDEX_ARRAY_STRIDE_EXT         = $8086;
-  GL_INDEX_ARRAY_COUNT_EXT          = $8087;
-  GL_TEXTURE_COORD_ARRAY_SIZE_EXT   = $8088;
-  GL_TEXTURE_COORD_ARRAY_TYPE_EXT   = $8089;
-  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
-  GL_TEXTURE_COORD_ARRAY_COUNT_EXT  = $808B;
-  GL_EDGE_FLAG_ARRAY_STRIDE_EXT     = $808C;
-  GL_EDGE_FLAG_ARRAY_COUNT_EXT      = $808D;
-  GL_VERTEX_ARRAY_POINTER_EXT       = $808E;
-  GL_NORMAL_ARRAY_POINTER_EXT       = $808F;
-  GL_COLOR_ARRAY_POINTER_EXT        = $8090;
-  GL_INDEX_ARRAY_POINTER_EXT        = $8091;
-  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
-  GL_EDGE_FLAG_ARRAY_POINTER_EXT    = $8093;
-  GL_DOUBLE_EXT                     = GL_DOUBLE;
-
-  // EXT_bgra 
-  GL_BGR_EXT                        = $80E0;
-  GL_BGRA_EXT                       = $80E1;
-
-  // EXT_paletted_texture
-
-  // These must match the GL_COLOR_TABLE_*_SGI enumerants
-  GL_COLOR_TABLE_FORMAT_EXT         = $80D8;
-  GL_COLOR_TABLE_WIDTH_EXT          = $80D9;
-  GL_COLOR_TABLE_RED_SIZE_EXT       = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE_EXT     = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE_EXT      = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE_EXT     = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
-
-  GL_COLOR_INDEX1_EXT               = $80E2;
-  GL_COLOR_INDEX2_EXT               = $80E3;
-  GL_COLOR_INDEX4_EXT               = $80E4;
-  GL_COLOR_INDEX8_EXT               = $80E5;
-  GL_COLOR_INDEX12_EXT              = $80E6;
-  GL_COLOR_INDEX16_EXT              = $80E7;
-
-  // For compatibility with OpenGL v1.0
-  GL_LOGIC_OP                       = GL_INDEX_LOGIC_OP;
-  GL_TEXTURE_COMPONENTS             = GL_TEXTURE_INTERNAL_FORMAT;
-
-{******************************************************************************}
-
-var
-  glAccum: procedure(op: GLenum; value: GLfloat); stdcall;
-  glAlphaFunc: procedure(func: GLenum; ref: GLclampf); stdcall;
-  glAreTexturesResident: function (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; stdcall;
-  glArrayElement: procedure(i: GLint); stdcall;
-  glBegin: procedure(mode: GLenum); stdcall;
-  glBindTexture: procedure(target: GLenum; texture: GLuint); stdcall;
-  glBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); stdcall;
-  glBlendFunc: procedure(sfactor, dfactor: GLenum); stdcall;
-  glCallList: procedure(list: GLuint); stdcall;
-  glCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); stdcall;
-  glClear: procedure(mask: GLbitfield); stdcall;
-  glClearAccum: procedure(red, green, blue, alpha: GLfloat); stdcall;
-  glClearColor: procedure(red, green, blue, alpha: GLclampf); stdcall;
-  glClearDepth: procedure(depth: GLclampd); stdcall;
-  glClearIndex: procedure(c: GLfloat); stdcall;
-  glClearStencil: procedure(s: GLint); stdcall;
-  glClipPlane: procedure(plane: GLenum; const equation: PGLdouble); stdcall;
-  glColor3b: procedure(red, green, blue: GLbyte); stdcall;
-  glColor3bv: procedure(const v: PGLbyte); stdcall;
-  glColor3d: procedure(red, green, blue: GLdouble); stdcall;
-  glColor3dv: procedure(const v: PGLdouble); stdcall;
-  glColor3f: procedure(red, green, blue: GLfloat); stdcall;
-  glColor3fv: procedure(const v: PGLfloat); stdcall;
-  glColor3i: procedure(red, green, blue: GLint); stdcall;
-  glColor3iv: procedure(const v: PGLint); stdcall;
-  glColor3s: procedure(red, green, blue: GLshort); stdcall;
-  glColor3sv: procedure(const v: PGLshort); stdcall;
-  glColor3ub: procedure(red, green, blue: GLubyte); stdcall;
-  glColor3ubv: procedure(const v: PGLubyte); stdcall;
-  glColor3ui: procedure(red, green, blue: GLuint); stdcall;
-  glColor3uiv: procedure(const v: PGLuint); stdcall;
-  glColor3us: procedure(red, green, blue: GLushort); stdcall;
-  glColor3usv: procedure(const v: PGLushort); stdcall;
-  glColor4b: procedure(red, green, blue, alpha: GLbyte); stdcall;
-  glColor4bv: procedure(const v: PGLbyte); stdcall;
-  glColor4d: procedure(red, green, blue, alpha: GLdouble); stdcall;
-  glColor4dv: procedure(const v: PGLdouble); stdcall;
-  glColor4f: procedure(red, green, blue, alpha: GLfloat); stdcall;
-  glColor4fv: procedure(const v: PGLfloat); stdcall;
-  glColor4i: procedure(red, green, blue, alpha: GLint); stdcall;
-  glColor4iv: procedure(const v: PGLint); stdcall;
-  glColor4s: procedure(red, green, blue, alpha: GLshort); stdcall;
-  glColor4sv: procedure(const v: PGLshort); stdcall;
-  glColor4ub: procedure(red, green, blue, alpha: GLubyte); stdcall;
-  glColor4ubv: procedure(const v: PGLubyte); stdcall;
-  glColor4ui: procedure(red, green, blue, alpha: GLuint); stdcall;
-  glColor4uiv: procedure(const v: PGLuint); stdcall;
-  glColor4us: procedure(red, green, blue, alpha: GLushort); stdcall;
-  glColor4usv: procedure(const v: PGLushort); stdcall;
-  glColorMask: procedure(red, green, blue, alpha: GLboolean); stdcall;
-  glColorMaterial: procedure(face, mode: GLenum); stdcall;
-  glColorPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glCopyPixels: procedure(x, y: GLint; width, height: GLsizei; atype: GLenum); stdcall;
-  glCopyTexImage1D: procedure (target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width: GLsizei; border: GLint); stdcall;
-  glCopyTexImage2D: procedure(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); stdcall;
-  glCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y: GLint; width: GLsizei); stdcall;
-  glCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y: GLint; width, height: GLsizei); stdcall;
-  glCullFace: procedure(mode: GLenum); stdcall;
-  glDeleteLists: procedure(list: GLuint; range: GLsizei); stdcall;
-  glDeleteTextures: procedure(n: GLsizei; const textures: PGLuint); stdcall;
-  glDepthFunc: procedure(func: GLenum); stdcall;
-  glDepthMask: procedure(flag: GLboolean); stdcall;
-  glDepthRange: procedure(zNear, zFar: GLclampd); stdcall;
-  glDisable: procedure(cap: GLenum); stdcall;
-  glDisableClientState: procedure(aarray: GLenum); stdcall;
-  glDrawArrays: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall;
-  glDrawBuffer: procedure(mode: GLenum); stdcall;
-  glDrawElements: procedure(mode: GLenum; count: GLsizei; atype: GLenum; const indices: Pointer); stdcall;
-  glDrawPixels: procedure(width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
-  glEdgeFlag: procedure(flag: GLboolean); stdcall;
-  glEdgeFlagPointer: procedure(stride: GLsizei; const pointer: Pointer); stdcall;
-  glEdgeFlagv: procedure(const flag: PGLboolean); stdcall;
-  glEnable: procedure(cap: GLenum); stdcall;
-  glEnableClientState: procedure(aarray: GLenum); stdcall;
-  glEnd: procedure; stdcall;
-  glEndList: procedure; stdcall;
-  glEvalCoord1d: procedure(u: GLdouble); stdcall;
-  glEvalCoord1dv: procedure(const u: PGLdouble); stdcall;
-  glEvalCoord1f: procedure(u: GLfloat); stdcall;
-  glEvalCoord1fv: procedure(const u: PGLfloat); stdcall;
-  glEvalCoord2d: procedure(u, v: GLdouble); stdcall;
-  glEvalCoord2dv: procedure(const u: PGLdouble); stdcall;
-  glEvalCoord2f: procedure(u, v: GLfloat); stdcall;
-  glEvalCoord2fv: procedure(const u: PGLfloat); stdcall;
-  glEvalMesh1: procedure(mode: GLenum; i1, i2: GLint); stdcall;
-  glEvalMesh2: procedure(mode: GLenum; i1, i2, j1, j2: GLint); stdcall;
-  glEvalPoint1: procedure(i: GLint); stdcall;
-  glEvalPoint2: procedure(i, j: GLint); stdcall;
-  glFeedbackBuffer: procedure(size: GLsizei; atype: GLenum; buffer: PGLfloat); stdcall;
-  glFinish: procedure; stdcall;
-  glFlush: procedure; stdcall;
-  glFogf: procedure(pname: GLenum; param: GLfloat); stdcall;
-  glFogfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
-  glFogi: procedure(pname: GLenum; param: GLint); stdcall;
-  glFogiv: procedure(pname: GLenum; const params: PGLint); stdcall;
-  glFrontFace: procedure(mode: GLenum); stdcall;
-  glFrustum: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
-  glGenLists: function(range: GLsizei): GLuint; stdcall;
-  glGenTextures: procedure(n: GLsizei; textures: PGLuint); stdcall;
-  glGetBooleanv: procedure(pname: GLenum; params: PGLboolean); stdcall;
-  glGetClipPlane: procedure(plane: GLenum; equation: PGLdouble); stdcall;
-  glGetDoublev: procedure(pname: GLenum; params: PGLdouble); stdcall;
-  glGetError: function: GLenum; stdcall;
-  glGetFloatv: procedure(pname: GLenum; params: PGLfloat); stdcall;
-  glGetIntegerv: procedure(pname: GLenum; params: PGLint); stdcall;
-  glGetLightfv: procedure(light, pname: GLenum; params: PGLfloat); stdcall;
-  glGetLightiv: procedure(light, pname: GLenum; params: PGLint); stdcall;
-  glGetMapdv: procedure(target, query: GLenum; v: PGLdouble); stdcall;
-  glGetMapfv: procedure(target, query: GLenum; v: PGLfloat); stdcall;
-  glGetMapiv: procedure(target, query: GLenum; v: GLint); stdcall;
-  glGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); stdcall;
-  glGetMaterialiv: procedure(face, pname: GLenum; params: GLint); stdcall;
-  glGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); stdcall;
-  glGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); stdcall;
-  glGetPixelMapusv: procedure(map: GLenum; values: PGLushort); stdcall;
-  glGetPointerv: procedure(pname: GLenum; params: Pointer); stdcall;
-  glGetPolygonStipple: procedure(mask: PGLubyte); stdcall;
-  glGetString: function(name: GLenum): PGLubyte; stdcall;
-  glGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
-  glGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); stdcall;
-  glGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); stdcall;
-  glGetTexGenfv: procedure(coord, pname: GLenum; params: PGLfloat); stdcall;
-  glGetTexGeniv: procedure(coord, pname: GLenum; params: PGLint); stdcall;
-  glGetTexImage: procedure(target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); stdcall;
-  glGetTexLevelParameterfv: procedure(target: GLenum; level: GLint; pname: GLenum; params: Pointer); stdcall;
-  glGetTexLevelParameteriv: procedure(target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall;
-  glGetTexParameterfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
-  glGetTexParameteriv: procedure(target, pname: GLenum; params: PGLint); stdcall;
-  glHint: procedure(target, mode: GLenum); stdcall;
-  glIndexMask: procedure(mask: GLuint); stdcall;
-  glIndexPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glIndexd: procedure(c: GLdouble); stdcall;
-  glIndexdv: procedure(const c: PGLdouble); stdcall;
-  glIndexf: procedure(c: GLfloat); stdcall;
-  glIndexfv: procedure(const c: PGLfloat); stdcall;
-  glIndexi: procedure(c: GLint); stdcall;
-  glIndexiv: procedure(const c: PGLint); stdcall;
-  glIndexs: procedure(c: GLshort); stdcall;
-  glIndexsv: procedure(const c: PGLshort); stdcall;
-  glIndexub: procedure(c: GLubyte); stdcall;
-  glIndexubv: procedure(const c: PGLubyte); stdcall;
-  glInitNames: procedure; stdcall;
-  glInterleavedArrays: procedure(format: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glIsEnabled: function(cap: GLenum): GLboolean; stdcall;
-  glIsList: function(list: GLuint): GLboolean; stdcall;
-  glIsTexture: function(texture: GLuint): GLboolean; stdcall;
-  glLightModelf: procedure(pname: GLenum; param: GLfloat); stdcall;
-  glLightModelfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
-  glLightModeli: procedure(pname: GLenum; param: GLint); stdcall;
-  glLightModeliv: procedure(pname: GLenum; const params: PGLint); stdcall;
-  glLightf: procedure(light, pname: GLenum; param: GLfloat); stdcall;
-  glLightfv: procedure(light, pname: GLenum; const params: PGLfloat); stdcall;
-  glLighti: procedure(light, pname: GLenum; param: GLint); stdcall;
-  glLightiv: procedure(light, pname: GLenum; const params: GLint); stdcall;
-  glLineStipple: procedure(factor: GLint; pattern: GLushort); stdcall;
-  glLineWidth: procedure(width: GLfloat); stdcall;
-  glListBase: procedure(base: GLuint); stdcall;
-  glLoadIdentity: procedure; stdcall;
-  glLoadMatrixd: procedure(const m: PGLdouble); stdcall;
-  glLoadMatrixf: procedure(const m: PGLfloat); stdcall;
-  glLoadName: procedure(name: GLuint); stdcall;
-  glLogicOp: procedure(opcode: GLenum); stdcall;
-  glMap1d: procedure(target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); stdcall;
-  glMap1f: procedure(target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); stdcall;
-  glMap2d: procedure(target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); stdcall;
-  glMap2f: procedure(target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); stdcall;
-  glMapGrid1d: procedure(un: GLint; u1, u2: GLdouble); stdcall;
-  glMapGrid1f: procedure(un: GLint; u1, u2: GLfloat); stdcall;
-  glMapGrid2d: procedure(un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); stdcall;
-  glMapGrid2f: procedure(un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); stdcall;
-  glMaterialf: procedure(face, pname: GLenum; param: GLfloat); stdcall;
-  glMaterialfv: procedure(face, pname: GLenum; const params: PGLfloat); stdcall;
-  glMateriali: procedure(face, pname: GLenum; param: GLint); stdcall;
-  glMaterialiv: procedure(face, pname: GLenum; const params: PGLint); stdcall;
-  glMatrixMode: procedure(mode: GLenum); stdcall;
-  glMultMatrixd: procedure(const m: PGLdouble); stdcall;
-  glMultMatrixf: procedure(const m: PGLfloat); stdcall;
-  glNewList: procedure(list: GLuint; mode: GLenum); stdcall;
-  glNormal3b: procedure(nx, ny, nz: GLbyte); stdcall;
-  glNormal3bv: procedure(const v: PGLbyte); stdcall;
-  glNormal3d: procedure(nx, ny, nz: GLdouble); stdcall;
-  glNormal3dv: procedure(const v: PGLdouble); stdcall;
-  glNormal3f: procedure(nx, ny, nz: GLfloat); stdcall;
-  glNormal3fv: procedure(const v: PGLfloat); stdcall;
-  glNormal3i: procedure(nx, ny, nz: GLint); stdcall;
-  glNormal3iv: procedure(const v: PGLint); stdcall;
-  glNormal3s: procedure(nx, ny, nz: GLshort); stdcall;
-  glNormal3sv: procedure(const v: PGLshort); stdcall;
-  glNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
-  glPassThrough: procedure(token: GLfloat); stdcall;
-  glPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); stdcall;
-  glPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); stdcall;
-  glPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); stdcall;
-  glPixelStoref: procedure(pname: GLenum; param: GLfloat); stdcall;
-  glPixelStorei: procedure(pname: GLenum; param: GLint); stdcall;
-  glPixelTransferf: procedure(pname: GLenum; param: GLfloat); stdcall;
-  glPixelTransferi: procedure(pname: GLenum; param: GLint); stdcall;
-  glPixelZoom: procedure(xfactor, yfactor: GLfloat); stdcall;
-  glPointSize: procedure(size: GLfloat); stdcall;
-  glPolygonMode: procedure(face, mode: GLenum); stdcall;
-  glPolygonOffset: procedure(factor, units: GLfloat); stdcall;
-  glPolygonStipple: procedure(const mask: PGLubyte); stdcall;
-  glPopAttrib: procedure; stdcall;
-  glPopClientAttrib: procedure; stdcall;
-  glPopMatrix: procedure; stdcall;
-  glPopName: procedure; stdcall;
-  glPrioritizeTextures: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); stdcall;
-  glPushAttrib: procedure(mask: GLbitfield); stdcall;
-  glPushClientAttrib: procedure(mask: GLbitfield); stdcall;
-  glPushMatrix: procedure; stdcall;
-  glPushName: procedure(name: GLuint); stdcall;
-  glRasterPos2d: procedure(x, y: GLdouble); stdcall;
-  glRasterPos2dv: procedure(const v: PGLdouble); stdcall;
-  glRasterPos2f: procedure(x, y: GLfloat); stdcall;
-  glRasterPos2fv: procedure(const v: PGLfloat); stdcall;
-  glRasterPos2i: procedure(x, y: GLint); stdcall;
-  glRasterPos2iv: procedure(const v: PGLint); stdcall;
-  glRasterPos2s: procedure(x, y: GLshort); stdcall;
-  glRasterPos2sv: procedure(const v: PGLshort); stdcall;
-  glRasterPos3d: procedure(x, y, z: GLdouble); stdcall;
-  glRasterPos3dv: procedure(const v: PGLdouble); stdcall;
-  glRasterPos3f: procedure(x, y, z: GLfloat); stdcall;
-  glRasterPos3fv: procedure(const v: PGLfloat); stdcall;
-  glRasterPos3i: procedure(x, y, z: GLint); stdcall;
-  glRasterPos3iv: procedure(const v: PGLint); stdcall;
-  glRasterPos3s: procedure(x, y, z: GLshort); stdcall;
-  glRasterPos3sv: procedure(const v: PGLshort); stdcall;
-  glRasterPos4d: procedure(x, y, z, w: GLdouble); stdcall;
-  glRasterPos4dv: procedure(const v: PGLdouble); stdcall;
-  glRasterPos4f: procedure(x, y, z, w: GLfloat); stdcall;
-  glRasterPos4fv: procedure(const v: PGLfloat); stdcall;
-  glRasterPos4i: procedure(x, y, z, w: GLint); stdcall;
-  glRasterPos4iv: procedure(const v: PGLint); stdcall;
-  glRasterPos4s: procedure(x, y, z, w: GLshort); stdcall;
-  glRasterPos4sv: procedure(const v: PGLshort); stdcall;
-  glReadBuffer: procedure(mode: GLenum); stdcall;
-  glReadPixels: procedure(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); stdcall;
-  glRectd: procedure(x1, y1, x2, y2: GLdouble); stdcall;
-  glRectdv: procedure(const v1: PGLdouble; const v2: PGLdouble); stdcall;
-  glRectf: procedure(x1, y1, x2, y2: GLfloat); stdcall;
-  glRectfv: procedure(const v1: PGLfloat; const v2: PGLfloat); stdcall;
-  glRecti: procedure(x1, y1, x2, y2: GLint); stdcall;
-  glRectiv: procedure(const v1: PGLint; const v2: PGLint); stdcall;
-  glRects: procedure(x1, y1, x2, y2: GLshort); stdcall;
-  glRectsv: procedure(const v1: PGLshort; const v2: PGLshort); stdcall;
-  glRenderMode: function(mode: GLint): GLint; stdcall;
-  glRotated: procedure(angle, x, y, z: GLdouble); stdcall;
-  glRotatef: procedure(angle, x, y, z: GLfloat); stdcall;
-  glScaled: procedure(x, y, z: GLdouble); stdcall;
-  glScalef: procedure(x, y, z: GLfloat); stdcall;
-  glScissor: procedure(x, y: GLint; width, height: GLsizei); stdcall;
-  glSelectBuffer: procedure(size: GLsizei; buffer: PGLuint); stdcall;
-  glShadeModel: procedure(mode: GLenum); stdcall;
-  glStencilFunc: procedure(func: GLenum; ref: GLint; mask: GLuint); stdcall;
-  glStencilMask: procedure(mask: GLuint); stdcall;
-  glStencilOp: procedure(fail, zfail, zpass: GLenum); stdcall;
-  glTexCoord1d: procedure(s: GLdouble); stdcall;
-  glTexCoord1dv: procedure(const v: PGLdouble); stdcall;
-  glTexCoord1f: procedure(s: GLfloat); stdcall;
-  glTexCoord1fv: procedure(const v: PGLfloat); stdcall;
-  glTexCoord1i: procedure(s: GLint); stdcall;
-  glTexCoord1iv: procedure(const v: PGLint); stdcall;
-  glTexCoord1s: procedure(s: GLshort); stdcall;
-  glTexCoord1sv: procedure(const v: PGLshort); stdcall;
-  glTexCoord2d: procedure(s, t: GLdouble); stdcall;
-  glTexCoord2dv: procedure(const v: PGLdouble); stdcall;
-  glTexCoord2f: procedure(s, t: GLfloat); stdcall;
-  glTexCoord2fv: procedure(const v: PGLfloat); stdcall;
-  glTexCoord2i: procedure(s, t: GLint); stdcall;
-  glTexCoord2iv: procedure(const v: PGLint); stdcall;
-  glTexCoord2s: procedure(s, t: GLshort); stdcall;
-  glTexCoord2sv: procedure(const v: PGLshort); stdcall;
-  glTexCoord3d: procedure(s, t, r: GLdouble); stdcall;
-  glTexCoord3dv: procedure(const v: PGLdouble); stdcall;
-  glTexCoord3f: procedure(s, t, r: GLfloat); stdcall;
-  glTexCoord3fv: procedure(const v: PGLfloat); stdcall;
-  glTexCoord3i: procedure(s, t, r: GLint); stdcall;
-  glTexCoord3iv: procedure(const v: PGLint); stdcall;
-  glTexCoord3s: procedure(s, t, r: GLshort); stdcall;
-  glTexCoord3sv: procedure(const v: PGLshort); stdcall;
-  glTexCoord4d: procedure(s, t, r, q: GLdouble); stdcall;
-  glTexCoord4dv: procedure(const v: PGLdouble); stdcall;
-  glTexCoord4f: procedure(s, t, r, q: GLfloat); stdcall;
-  glTexCoord4fv: procedure(const v: PGLfloat); stdcall;
-  glTexCoord4i: procedure(s, t, r, q: GLint); stdcall;
-  glTexCoord4iv: procedure(const v: PGLint); stdcall;
-  glTexCoord4s: procedure(s, t, r, q: GLshort); stdcall;
-  glTexCoord4sv: procedure(const v: PGLshort); stdcall;
-  glTexCoordPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glTexEnvf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
-  glTexEnvfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
-  glTexEnvi: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
-  glTexEnviv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
-  glTexGend: procedure(coord: GLenum; pname: GLenum; param: GLdouble); stdcall;
-  glTexGendv: procedure(coord: GLenum; pname: GLenum; const params: PGLdouble); stdcall;
-  glTexGenf: procedure(coord: GLenum; pname: GLenum; param: GLfloat); stdcall;
-  glTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
-  glTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); stdcall;
-  glTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); stdcall;
-  glTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
-  glTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
-  glTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
-  glTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
-  glTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
-  glTexParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
-  glTexSubImage1D: procedure(target: GLenum; level, xoffset: GLint; width: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
-  glTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
-  glTranslated: procedure(x, y, z: GLdouble); stdcall;
-  glTranslatef: procedure(x, y, z: GLfloat); stdcall;
-  glVertex2d: procedure(x, y: GLdouble); stdcall;
-  glVertex2dv: procedure(const v: PGLdouble); stdcall;
-  glVertex2f: procedure(x, y: GLfloat); stdcall;
-  glVertex2fv: procedure(const v: PGLfloat); stdcall;
-  glVertex2i: procedure(x, y: GLint); stdcall;
-  glVertex2iv: procedure(const v: PGLint); stdcall;
-  glVertex2s: procedure(x, y: GLshort); stdcall;
-  glVertex2sv: procedure(const v: PGLshort); stdcall;
-  glVertex3d: procedure(x, y, z: GLdouble); stdcall;
-  glVertex3dv: procedure(const v: PGLdouble); stdcall;
-  glVertex3f: procedure(x, y, z: GLfloat); stdcall;
-  glVertex3fv: procedure(const v: PGLfloat); stdcall;
-  glVertex3i: procedure(x, y, z: GLint); stdcall;
-  glVertex3iv: procedure(const v: PGLint); stdcall;
-  glVertex3s: procedure(x, y, z: GLshort); stdcall;
-  glVertex3sv: procedure(const v: PGLshort); stdcall;
-  glVertex4d: procedure(x, y, z, w: GLdouble); stdcall;
-  glVertex4dv: procedure(const v: PGLdouble); stdcall;
-  glVertex4f: procedure(x, y, z, w: GLfloat); stdcall;
-  glVertex4fv: procedure(const v: PGLfloat); stdcall;
-  glVertex4i: procedure(x, y, z, w: GLint); stdcall;
-  glVertex4iv: procedure(const v: PGLint); stdcall;
-  glVertex4s: procedure(x, y, z, w: GLshort); stdcall;
-  glVertex4sv: procedure(const v: PGLshort); stdcall;
-  glVertexPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
-  glViewport: procedure(x, y: GLint; width, height: GLsizei); stdcall;
-  ChoosePixelFormat: function(DC: HDC; p2: PPixelFormatDescriptor): Integer; stdcall;
-
-type
-  // EXT_vertex_array
-  PFNGLARRAYELEMENTEXTPROC = procedure(i: GLint); stdcall;
-  PFNGLDRAWARRAYSEXTPROC = procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall;
-  PFNGLVERTEXPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
-                                        stride, count: GLsizei; const pointer: Pointer); stdcall;
-  PFNGLNORMALPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
-                                        const pointer: Pointer); stdcall;
-  PFNGLCOLORPOINTEREXTPROC = procedure(size: GLint; atype: GLenum; stride, count: GLsizei;
-                                       const pointer: Pointer); stdcall;
-  PFNGLINDEXPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
-                                       const pointer: Pointer); stdcall;
-  PFNGLTEXCOORDPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
-                                          stride, count: GLsizei; const pointer: Pointer); stdcall;
-  PFNGLEDGEFLAGPOINTEREXTPROC = procedure(stride, count: GLsizei;
-                                          const pointer: PGLboolean); stdcall;
-  PFNGLGETPOINTERVEXTPROC = procedure(pname: GLenum; params: Pointer); stdcall;
-  PFNGLARRAYELEMENTARRAYEXTPROC = procedure(mode: GLenum; count: GLsizei;
-                                            const pi: Pointer); stdcall;
-
-  // WIN_swap_hint
-  PFNGLADDSWAPHINTRECTWINPROC = procedure(x, y: GLint; width, height: GLsizei); stdcall;
-
-  // EXT_paletted_texture
-  PFNGLCOLORTABLEEXTPROC = procedure(target, internalFormat: GLenum; width: GLsizei;
-                                     format, atype: GLenum; const data: Pointer); stdcall;
-  PFNGLCOLORSUBTABLEEXTPROC = procedure(target: GLenum; start, count: GLsizei;
-                                        format, atype: GLenum; const data: Pointer); stdcall;
-  PFNGLGETCOLORTABLEEXTPROC = procedure(target, format, atype: GLenum; data: Pointer); stdcall;
-  PFNGLGETCOLORTABLEPARAMETERIVEXTPROC = procedure(target, pname: GLenum; params: PGLint); stdcall;
-  PFNGLGETCOLORTABLEPARAMETERFVEXTPROC = procedure(target, pname: GLenum; params: PGLfloat); stdcall;
-
-procedure LoadOpenGL(const dll: String);
-procedure FreeOpenGL;
-
-implementation
-
-var
-  hDLL: THandle;
-
-procedure FreeOpenGL;
-begin
-
-  @glAccum := nil;
-  @glAlphaFunc := nil;
-  @glAreTexturesResident := nil;
-  @glArrayElement := nil;
-  @glBegin := nil;
-  @glBindTexture := nil;
-  @glBitmap := nil;
-  @glBlendFunc := nil;
-  @glCallList := nil;
-  @glCallLists := nil;
-  @glClear := nil;
-  @glClearAccum := nil;
-  @glClearColor := nil;
-  @glClearDepth := nil;
-  @glClearIndex := nil;
-  @glClearStencil := nil;
-  @glClipPlane := nil;
-  @glColor3b := nil;
-  @glColor3bv := nil;
-  @glColor3d := nil;
-  @glColor3dv := nil;
-  @glColor3f := nil;
-  @glColor3fv := nil;
-  @glColor3i := nil;
-  @glColor3iv := nil;
-  @glColor3s := nil;
-  @glColor3sv := nil;
-  @glColor3ub := nil;
-  @glColor3ubv := nil;
-  @glColor3ui := nil;
-  @glColor3uiv := nil;
-  @glColor3us := nil;
-  @glColor3usv := nil;
-  @glColor4b := nil;
-  @glColor4bv := nil;
-  @glColor4d := nil;
-  @glColor4dv := nil;
-  @glColor4f := nil;
-  @glColor4fv := nil;
-  @glColor4i := nil;
-  @glColor4iv := nil;
-  @glColor4s := nil;
-  @glColor4sv := nil;
-  @glColor4ub := nil;
-  @glColor4ubv := nil;
-  @glColor4ui := nil;
-  @glColor4uiv := nil;
-  @glColor4us := nil;
-  @glColor4usv := nil;
-  @glColorMask := nil;
-  @glColorMaterial := nil;
-  @glColorPointer := nil;
-  @glCopyPixels := nil;
-  @glCopyTexImage1D := nil;
-  @glCopyTexImage2D := nil;
-  @glCopyTexSubImage1D := nil;
-  @glCopyTexSubImage2D := nil;
-  @glCullFace := nil;
-  @glDeleteLists := nil;
-  @glDeleteTextures := nil;
-  @glDepthFunc := nil;
-  @glDepthMask := nil;
-  @glDepthRange := nil;
-  @glDisable := nil;
-  @glDisableClientState := nil;
-  @glDrawArrays := nil;
-  @glDrawBuffer := nil;
-  @glDrawElements := nil;
-  @glDrawPixels := nil;
-  @glEdgeFlag := nil;
-  @glEdgeFlagPointer := nil;
-  @glEdgeFlagv := nil;
-  @glEnable := nil;
-  @glEnableClientState := nil;
-  @glEnd := nil;
-  @glEndList := nil;
-  @glEvalCoord1d := nil;
-  @glEvalCoord1dv := nil;
-  @glEvalCoord1f := nil;
-  @glEvalCoord1fv := nil;
-  @glEvalCoord2d := nil;
-  @glEvalCoord2dv := nil;
-  @glEvalCoord2f := nil;
-  @glEvalCoord2fv := nil;
-  @glEvalMesh1 := nil;
-  @glEvalMesh2 := nil;
-  @glEvalPoint1 := nil;
-  @glEvalPoint2 := nil;
-  @glFeedbackBuffer := nil;
-  @glFinish := nil;
-  @glFlush := nil;
-  @glFogf := nil;
-  @glFogfv := nil;
-  @glFogi := nil;
-  @glFogiv := nil;
-  @glFrontFace := nil;
-  @glFrustum := nil;
-  @glGenLists := nil;
-  @glGenTextures := nil;
-  @glGetBooleanv := nil;
-  @glGetClipPlane := nil;
-  @glGetDoublev := nil;
-  @glGetError := nil;
-  @glGetFloatv := nil;
-  @glGetIntegerv := nil;
-  @glGetLightfv := nil;
-  @glGetLightiv := nil;
-  @glGetMapdv := nil;
-  @glGetMapfv := nil;
-  @glGetMapiv := nil;
-  @glGetMaterialfv := nil;
-  @glGetMaterialiv := nil;
-  @glGetPixelMapfv := nil;
-  @glGetPixelMapuiv := nil;
-  @glGetPixelMapusv := nil;
-  @glGetPointerv := nil;
-  @glGetPolygonStipple := nil;
-  @glGetString := nil;
-  @glGetTexEnvfv := nil;
-  @glGetTexEnviv := nil;
-  @glGetTexGendv := nil;
-  @glGetTexGenfv := nil;
-  @glGetTexGeniv := nil;
-  @glGetTexImage := nil;
-  @glGetTexLevelParameterfv := nil;
-  @glGetTexLevelParameteriv := nil;
-  @glGetTexParameterfv := nil;
-  @glGetTexParameteriv := nil;
-  @glHint := nil;
-  @glIndexMask := nil;
-  @glIndexPointer := nil;
-  @glIndexd := nil;
-  @glIndexdv := nil;
-  @glIndexf := nil;
-  @glIndexfv := nil;
-  @glIndexi := nil;
-  @glIndexiv := nil;
-  @glIndexs := nil;
-  @glIndexsv := nil;
-  @glIndexub := nil;
-  @glIndexubv := nil;
-  @glInitNames := nil;
-  @glInterleavedArrays := nil;
-  @glIsEnabled := nil;
-  @glIsList := nil;
-  @glIsTexture := nil;
-  @glLightModelf := nil;
-  @glLightModelfv := nil;
-  @glLightModeli := nil;
-  @glLightModeliv := nil;
-  @glLightf := nil;
-  @glLightfv := nil;
-  @glLighti := nil;
-  @glLightiv := nil;
-  @glLineStipple := nil;
-  @glLineWidth := nil;
-  @glListBase := nil;
-  @glLoadIdentity := nil;
-  @glLoadMatrixd := nil;
-  @glLoadMatrixf := nil;
-  @glLoadName := nil;
-  @glLogicOp := nil;
-  @glMap1d := nil;
-  @glMap1f := nil;
-  @glMap2d := nil;
-  @glMap2f := nil;
-  @glMapGrid1d := nil;
-  @glMapGrid1f := nil;
-  @glMapGrid2d := nil;
-  @glMapGrid2f := nil;
-  @glMaterialf := nil;
-  @glMaterialfv := nil;
-  @glMateriali := nil;
-  @glMaterialiv := nil;
-  @glMatrixMode := nil;
-  @glMultMatrixd := nil;
-  @glMultMatrixf := nil;
-  @glNewList := nil;
-  @glNormal3b := nil;
-  @glNormal3bv := nil;
-  @glNormal3d := nil;
-  @glNormal3dv := nil;
-  @glNormal3f := nil;
-  @glNormal3fv := nil;
-  @glNormal3i := nil;
-  @glNormal3iv := nil;
-  @glNormal3s := nil;
-  @glNormal3sv := nil;
-  @glNormalPointer := nil;
-  @glOrtho := nil;
-  @glPassThrough := nil;
-  @glPixelMapfv := nil;
-  @glPixelMapuiv := nil;
-  @glPixelMapusv := nil;
-  @glPixelStoref := nil;
-  @glPixelStorei := nil;
-  @glPixelTransferf := nil;
-  @glPixelTransferi := nil;
-  @glPixelZoom := nil;
-  @glPointSize := nil;
-  @glPolygonMode := nil;
-  @glPolygonOffset := nil;
-  @glPolygonStipple := nil;
-  @glPopAttrib := nil;
-  @glPopClientAttrib := nil;
-  @glPopMatrix := nil;
-  @glPopName := nil;
-  @glPrioritizeTextures := nil;
-  @glPushAttrib := nil;
-  @glPushClientAttrib := nil;
-  @glPushMatrix := nil;
-  @glPushName := nil;
-  @glRasterPos2d := nil;
-  @glRasterPos2dv := nil;
-  @glRasterPos2f := nil;
-  @glRasterPos2fv := nil;
-  @glRasterPos2i := nil;
-  @glRasterPos2iv := nil;
-  @glRasterPos2s := nil;
-  @glRasterPos2sv := nil;
-  @glRasterPos3d := nil;
-  @glRasterPos3dv := nil;
-  @glRasterPos3f := nil;
-  @glRasterPos3fv := nil;
-  @glRasterPos3i := nil;
-  @glRasterPos3iv := nil;
-  @glRasterPos3s := nil;
-  @glRasterPos3sv := nil;
-  @glRasterPos4d := nil;
-  @glRasterPos4dv := nil;
-  @glRasterPos4f := nil;
-  @glRasterPos4fv := nil;
-  @glRasterPos4i := nil;
-  @glRasterPos4iv := nil;
-  @glRasterPos4s := nil;
-  @glRasterPos4sv := nil;
-  @glReadBuffer := nil;
-  @glReadPixels := nil;
-  @glRectd := nil;
-  @glRectdv := nil;
-  @glRectf := nil;
-  @glRectfv := nil;
-  @glRecti := nil;
-  @glRectiv := nil;
-  @glRects := nil;
-  @glRectsv := nil;
-  @glRenderMode := nil;
-  @glRotated := nil;
-  @glRotatef := nil;
-  @glScaled := nil;
-  @glScalef := nil;
-  @glScissor := nil;
-  @glSelectBuffer := nil;
-  @glShadeModel := nil;
-  @glStencilFunc := nil;
-  @glStencilMask := nil;
-  @glStencilOp := nil;
-  @glTexCoord1d := nil;
-  @glTexCoord1dv := nil;
-  @glTexCoord1f := nil;
-  @glTexCoord1fv := nil;
-  @glTexCoord1i := nil;
-  @glTexCoord1iv := nil;
-  @glTexCoord1s := nil;
-  @glTexCoord1sv := nil;
-  @glTexCoord2d := nil;
-  @glTexCoord2dv := nil;
-  @glTexCoord2f := nil;
-  @glTexCoord2fv := nil;
-  @glTexCoord2i := nil;
-  @glTexCoord2iv := nil;
-  @glTexCoord2s := nil;
-  @glTexCoord2sv := nil;
-  @glTexCoord3d := nil;
-  @glTexCoord3dv := nil;
-  @glTexCoord3f := nil;
-  @glTexCoord3fv := nil;
-  @glTexCoord3i := nil;
-  @glTexCoord3iv := nil;
-  @glTexCoord3s := nil;
-  @glTexCoord3sv := nil;
-  @glTexCoord4d := nil;
-  @glTexCoord4dv := nil;
-  @glTexCoord4f := nil;
-  @glTexCoord4fv := nil;
-  @glTexCoord4i := nil;
-  @glTexCoord4iv := nil;
-  @glTexCoord4s := nil;
-  @glTexCoord4sv := nil;
-  @glTexCoordPointer := nil;
-  @glTexEnvf := nil;
-  @glTexEnvfv := nil;
-  @glTexEnvi := nil;
-  @glTexEnviv := nil;
-  @glTexGend := nil;
-  @glTexGendv := nil;
-  @glTexGenf := nil;
-  @glTexGenfv := nil;
-  @glTexGeni := nil;
-  @glTexGeniv := nil;
-  @glTexImage1D := nil;
-  @glTexImage2D := nil;
-  @glTexParameterf := nil;
-  @glTexParameterfv := nil;
-  @glTexParameteri := nil;
-  @glTexParameteriv := nil;
-  @glTexSubImage1D := nil;
-  @glTexSubImage2D := nil;
-  @glTranslated := nil;
-  @glTranslatef := nil;
-  @glVertex2d := nil;
-  @glVertex2dv := nil;
-  @glVertex2f := nil;
-  @glVertex2fv := nil;
-  @glVertex2i := nil;
-  @glVertex2iv := nil;
-  @glVertex2s := nil;
-  @glVertex2sv := nil;
-  @glVertex3d := nil;
-  @glVertex3dv := nil;
-  @glVertex3f := nil;
-  @glVertex3fv := nil;
-  @glVertex3i := nil;
-  @glVertex3iv := nil;
-  @glVertex3s := nil;
-  @glVertex3sv := nil;
-  @glVertex4d := nil;
-  @glVertex4dv := nil;
-  @glVertex4f := nil;
-  @glVertex4fv := nil;
-  @glVertex4i := nil;
-  @glVertex4iv := nil;
-  @glVertex4s := nil;
-  @glVertex4sv := nil;
-  @glVertexPointer := nil;
-  @glViewport := nil;
-  @ChoosePixelFormat := nil;
-
-  FreeLibrary(hDLL);
-
-end;
-
-procedure LoadOpenGL(const dll: String);
-begin
-
-  FreeOpenGL;
-
-  hDLL := LoadLibrary(PChar(dll));
-  if hDLL = 0 then raise Exception.Create('Could not load OpenGL from ' + dll);
-
-  @glAccum := GetProcAddress(hDLL, 'glAccum');
-  @glAlphaFunc := GetProcAddress(hDLL, 'glAlphaFunc');
-  @glAreTexturesResident := GetProcAddress(hDLL, 'glAreTexturesResident');
-  @glArrayElement := GetProcAddress(hDLL, 'glArrayElement');
-  @glBegin := GetProcAddress(hDLL, 'glBegin');
-  @glBindTexture := GetProcAddress(hDLL, 'glBindTexture');
-  @glBitmap := GetProcAddress(hDLL, 'glBitmap');
-  @glBlendFunc := GetProcAddress(hDLL, 'glBlendFunc');
-  @glCallList := GetProcAddress(hDLL, 'glCallList');
-  @glCallLists := GetProcAddress(hDLL, 'glCallLists');
-  @glClear := GetProcAddress(hDLL, 'glClear');
-  @glClearAccum := GetProcAddress(hDLL, 'glClearAccum');
-  @glClearColor := GetProcAddress(hDLL, 'glClearColor');
-  @glClearDepth := GetProcAddress(hDLL, 'glClearDepth');
-  @glClearIndex := GetProcAddress(hDLL, 'glClearIndex');
-  @glClearStencil := GetProcAddress(hDLL, 'glClearStencil');
-  @glClipPlane := GetProcAddress(hDLL, 'glClipPlane');
-  @glColor3b := GetProcAddress(hDLL, 'glColor3b');
-  @glColor3bv := GetProcAddress(hDLL, 'glColor3bv');
-  @glColor3d := GetProcAddress(hDLL, 'glColor3d');
-  @glColor3dv := GetProcAddress(hDLL, 'glColor3dv');
-  @glColor3f := GetProcAddress(hDLL, 'glColor3f');
-  @glColor3fv := GetProcAddress(hDLL, 'glColor3fv');
-  @glColor3i := GetProcAddress(hDLL, 'glColor3i');
-  @glColor3iv := GetProcAddress(hDLL, 'glColor3iv');
-  @glColor3s := GetProcAddress(hDLL, 'glColor3s');
-  @glColor3sv := GetProcAddress(hDLL, 'glColor3sv');
-  @glColor3ub := GetProcAddress(hDLL, 'glColor3ub');
-  @glColor3ubv := GetProcAddress(hDLL, 'glColor3ubv');
-  @glColor3ui := GetProcAddress(hDLL, 'glColor3ui');
-  @glColor3uiv := GetProcAddress(hDLL, 'glColor3uiv');
-  @glColor3us := GetProcAddress(hDLL, 'glColor3us');
-  @glColor3usv := GetProcAddress(hDLL, 'glColor3usv');
-  @glColor4b := GetProcAddress(hDLL, 'glColor4b');
-  @glColor4bv := GetProcAddress(hDLL, 'glColor4bv');
-  @glColor4d := GetProcAddress(hDLL, 'glColor4d');
-  @glColor4dv := GetProcAddress(hDLL, 'glColor4dv');
-  @glColor4f := GetProcAddress(hDLL, 'glColor4f');
-  @glColor4fv := GetProcAddress(hDLL, 'glColor4fv');
-  @glColor4i := GetProcAddress(hDLL, 'glColor4i');
-  @glColor4iv := GetProcAddress(hDLL, 'glColor4iv');
-  @glColor4s := GetProcAddress(hDLL, 'glColor4s');
-  @glColor4sv := GetProcAddress(hDLL, 'glColor4sv');
-  @glColor4ub := GetProcAddress(hDLL, 'glColor4ub');
-  @glColor4ubv := GetProcAddress(hDLL, 'glColor4ubv');
-  @glColor4ui := GetProcAddress(hDLL, 'glColor4ui');
-  @glColor4uiv := GetProcAddress(hDLL, 'glColor4uiv');
-  @glColor4us := GetProcAddress(hDLL, 'glColor4us');
-  @glColor4usv := GetProcAddress(hDLL, 'glColor4usv');
-  @glColorMask := GetProcAddress(hDLL, 'glColorMask');
-  @glColorMaterial := GetProcAddress(hDLL, 'glColorMaterial');
-  @glColorPointer := GetProcAddress(hDLL, 'glColorPointer');
-  @glCopyPixels := GetProcAddress(hDLL, 'glCopyPixels');
-  @glCopyTexImage1D := GetProcAddress(hDLL, 'glCopyTexImage1D');
-  @glCopyTexImage2D := GetProcAddress(hDLL, 'glCopyTexImage2D');
-  @glCopyTexSubImage1D := GetProcAddress(hDLL, 'glCopyTexSubImage1D');
-  @glCopyTexSubImage2D := GetProcAddress(hDLL, 'glCopyTexSubImage2D');
-  @glCullFace := GetProcAddress(hDLL, 'glCullFace');
-  @glDeleteLists := GetProcAddress(hDLL, 'glDeleteLists');
-  @glDeleteTextures := GetProcAddress(hDLL, 'glDeleteTextures');
-  @glDepthFunc := GetProcAddress(hDLL, 'glDepthFunc');
-  @glDepthMask := GetProcAddress(hDLL, 'glDepthMask');
-  @glDepthRange := GetProcAddress(hDLL, 'glDepthRange');
-  @glDisable := GetProcAddress(hDLL, 'glDisable');
-  @glDisableClientState := GetProcAddress(hDLL, 'glDisableClientState');
-  @glDrawArrays := GetProcAddress(hDLL, 'glDrawArrays');
-  @glDrawBuffer := GetProcAddress(hDLL, 'glDrawBuffer');
-  @glDrawElements := GetProcAddress(hDLL, 'glDrawElements');
-  @glDrawPixels := GetProcAddress(hDLL, 'glDrawPixels');
-  @glEdgeFlag := GetProcAddress(hDLL, 'glEdgeFlag');
-  @glEdgeFlagPointer := GetProcAddress(hDLL, 'glEdgeFlagPointer');
-  @glEdgeFlagv := GetProcAddress(hDLL, 'glEdgeFlagv');
-  @glEnable := GetProcAddress(hDLL, 'glEnable');
-  @glEnableClientState := GetProcAddress(hDLL, 'glEnableClientState');
-  @glEnd := GetProcAddress(hDLL, 'glEnd');
-  @glEndList := GetProcAddress(hDLL, 'glEndList');
-  @glEvalCoord1d := GetProcAddress(hDLL, 'glEvalCoord1d');
-  @glEvalCoord1dv := GetProcAddress(hDLL, 'glEvalCoord1dv');
-  @glEvalCoord1f := GetProcAddress(hDLL, 'glEvalCoord1f');
-  @glEvalCoord1fv := GetProcAddress(hDLL, 'glEvalCoord1fv');
-  @glEvalCoord2d := GetProcAddress(hDLL, 'glEvalCoord2d');
-  @glEvalCoord2dv := GetProcAddress(hDLL, 'glEvalCoord2dv');
-  @glEvalCoord2f := GetProcAddress(hDLL, 'glEvalCoord2f');
-  @glEvalCoord2fv := GetProcAddress(hDLL, 'glEvalCoord2fv');
-  @glEvalMesh1 := GetProcAddress(hDLL, 'glEvalMesh1');
-  @glEvalMesh2 := GetProcAddress(hDLL, 'glEvalMesh2');
-  @glEvalPoint1 := GetProcAddress(hDLL, 'glEvalPoint1');
-  @glEvalPoint2 := GetProcAddress(hDLL, 'glEvalPoint2');
-  @glFeedbackBuffer := GetProcAddress(hDLL, 'glFeedbackBuffer');
-  @glFinish := GetProcAddress(hDLL, 'glFinish');
-  @glFlush := GetProcAddress(hDLL, 'glFlush');
-  @glFogf := GetProcAddress(hDLL, 'glFogf');
-  @glFogfv := GetProcAddress(hDLL, 'glFogfv');
-  @glFogi := GetProcAddress(hDLL, 'glFogi');
-  @glFogiv := GetProcAddress(hDLL, 'glFogiv');
-  @glFrontFace := GetProcAddress(hDLL, 'glFrontFace');
-  @glFrustum := GetProcAddress(hDLL, 'glFrustum');
-  @glGenLists := GetProcAddress(hDLL, 'glGenLists');
-  @glGenTextures := GetProcAddress(hDLL, 'glGenTextures');
-  @glGetBooleanv := GetProcAddress(hDLL, 'glGetBooleanv');
-  @glGetClipPlane := GetProcAddress(hDLL, 'glGetClipPlane');
-  @glGetDoublev := GetProcAddress(hDLL, 'glGetDoublev');
-  @glGetError := GetProcAddress(hDLL, 'glGetError');
-  @glGetFloatv := GetProcAddress(hDLL, 'glGetFloatv');
-  @glGetIntegerv := GetProcAddress(hDLL, 'glGetIntegerv');
-  @glGetLightfv := GetProcAddress(hDLL, 'glGetLightfv');
-  @glGetLightiv := GetProcAddress(hDLL, 'glGetLightiv');
-  @glGetMapdv := GetProcAddress(hDLL, 'glGetMapdv');
-  @glGetMapfv := GetProcAddress(hDLL, 'glGetMapfv');
-  @glGetMapiv := GetProcAddress(hDLL, 'glGetMapiv');
-  @glGetMaterialfv := GetProcAddress(hDLL, 'glGetMaterialfv');
-  @glGetMaterialiv := GetProcAddress(hDLL, 'glGetMaterialiv');
-  @glGetPixelMapfv := GetProcAddress(hDLL, 'glGetPixelMapfv');
-  @glGetPixelMapuiv := GetProcAddress(hDLL, 'glGetPixelMapuiv');
-  @glGetPixelMapusv := GetProcAddress(hDLL, 'glGetPixelMapusv');
-  @glGetPointerv := GetProcAddress(hDLL, 'glGetPointerv');
-  @glGetPolygonStipple := GetProcAddress(hDLL, 'glGetPolygonStipple');
-  @glGetString := GetProcAddress(hDLL, 'glGetString');
-  @glGetTexEnvfv := GetProcAddress(hDLL, 'glGetTexEnvfv');
-  @glGetTexEnviv := GetProcAddress(hDLL, 'glGetTexEnviv');
-  @glGetTexGendv := GetProcAddress(hDLL, 'glGetTexGendv');
-  @glGetTexGenfv := GetProcAddress(hDLL, 'glGetTexGenfv');
-  @glGetTexGeniv := GetProcAddress(hDLL, 'glGetTexGeniv');
-  @glGetTexImage := GetProcAddress(hDLL, 'glGetTexImage');
-  @glGetTexLevelParameterfv := GetProcAddress(hDLL, 'glGetTexLevelParameterfv');
-  @glGetTexLevelParameteriv := GetProcAddress(hDLL, 'glGetTexLevelParameteriv');
-  @glGetTexParameterfv := GetProcAddress(hDLL, 'glGetTexParameterfv');
-  @glGetTexParameteriv := GetProcAddress(hDLL, 'glGetTexParameteriv');
-  @glHint := GetProcAddress(hDLL, 'glHint');
-  @glIndexMask := GetProcAddress(hDLL, 'glIndexMask');
-  @glIndexPointer := GetProcAddress(hDLL, 'glIndexPointer');
-  @glIndexd := GetProcAddress(hDLL, 'glIndexd');
-  @glIndexdv := GetProcAddress(hDLL, 'glIndexdv');
-  @glIndexf := GetProcAddress(hDLL, 'glIndexf');
-  @glIndexfv := GetProcAddress(hDLL, 'glIndexfv');
-  @glIndexi := GetProcAddress(hDLL, 'glIndexi');
-  @glIndexiv := GetProcAddress(hDLL, 'glIndexiv');
-  @glIndexs := GetProcAddress(hDLL, 'glIndexs');
-  @glIndexsv := GetProcAddress(hDLL, 'glIndexsv');
-  @glIndexub := GetProcAddress(hDLL, 'glIndexub');
-  @glIndexubv := GetProcAddress(hDLL, 'glIndexubv');
-  @glInitNames := GetProcAddress(hDLL, 'glInitNames');
-  @glInterleavedArrays := GetProcAddress(hDLL, 'glInterleavedArrays');
-  @glIsEnabled := GetProcAddress(hDLL, 'glIsEnabled');
-  @glIsList := GetProcAddress(hDLL, 'glIsList');
-  @glIsTexture := GetProcAddress(hDLL, 'glIsTexture');
-  @glLightModelf := GetProcAddress(hDLL, 'glLightModelf');
-  @glLightModelfv := GetProcAddress(hDLL, 'glLightModelfv');
-  @glLightModeli := GetProcAddress(hDLL, 'glLightModeli');
-  @glLightModeliv := GetProcAddress(hDLL, 'glLightModeliv');
-  @glLightf := GetProcAddress(hDLL, 'glLightf');
-  @glLightfv := GetProcAddress(hDLL, 'glLightfv');
-  @glLighti := GetProcAddress(hDLL, 'glLighti');
-  @glLightiv := GetProcAddress(hDLL, 'glLightiv');
-  @glLineStipple := GetProcAddress(hDLL, 'glLineStipple');
-  @glLineWidth := GetProcAddress(hDLL, 'glLineWidth');
-  @glListBase := GetProcAddress(hDLL, 'glListBase');
-  @glLoadIdentity := GetProcAddress(hDLL, 'glLoadIdentity');
-  @glLoadMatrixd := GetProcAddress(hDLL, 'glLoadMatrixd');
-  @glLoadMatrixf := GetProcAddress(hDLL, 'glLoadMatrixf');
-  @glLoadName := GetProcAddress(hDLL, 'glLoadName');
-  @glLogicOp := GetProcAddress(hDLL, 'glLogicOp');
-  @glMap1d := GetProcAddress(hDLL, 'glMap1d');
-  @glMap1f := GetProcAddress(hDLL, 'glMap1f');
-  @glMap2d := GetProcAddress(hDLL, 'glMap2d');
-  @glMap2f := GetProcAddress(hDLL, 'glMap2f');
-  @glMapGrid1d := GetProcAddress(hDLL, 'glMapGrid1d');
-  @glMapGrid1f := GetProcAddress(hDLL, 'glMapGrid1f');
-  @glMapGrid2d := GetProcAddress(hDLL, 'glMapGrid2d');
-  @glMapGrid2f := GetProcAddress(hDLL, 'glMapGrid2f');
-  @glMaterialf := GetProcAddress(hDLL, 'glMaterialf');
-  @glMaterialfv := GetProcAddress(hDLL, 'glMaterialfv');
-  @glMateriali := GetProcAddress(hDLL, 'glMateriali');
-  @glMaterialiv := GetProcAddress(hDLL, 'glMaterialiv');
-  @glMatrixMode := GetProcAddress(hDLL, 'glMatrixMode');
-  @glMultMatrixd := GetProcAddress(hDLL, 'glMultMatrixd');
-  @glMultMatrixf := GetProcAddress(hDLL, 'glMultMatrixf');
-  @glNewList := GetProcAddress(hDLL, 'glNewList');
-  @glNormal3b := GetProcAddress(hDLL, 'glNormal3b');
-  @glNormal3bv := GetProcAddress(hDLL, 'glNormal3bv');
-  @glNormal3d := GetProcAddress(hDLL, 'glNormal3d');
-  @glNormal3dv := GetProcAddress(hDLL, 'glNormal3dv');
-  @glNormal3f := GetProcAddress(hDLL, 'glNormal3f');
-  @glNormal3fv := GetProcAddress(hDLL, 'glNormal3fv');
-  @glNormal3i := GetProcAddress(hDLL, 'glNormal3i');
-  @glNormal3iv := GetProcAddress(hDLL, 'glNormal3iv');
-  @glNormal3s := GetProcAddress(hDLL, 'glNormal3s');
-  @glNormal3sv := GetProcAddress(hDLL, 'glNormal3sv');
-  @glNormalPointer := GetProcAddress(hDLL, 'glNormalPointer');
-  @glOrtho := GetProcAddress(hDLL, 'glOrtho');
-  @glPassThrough := GetProcAddress(hDLL, 'glPassThrough');
-  @glPixelMapfv := GetProcAddress(hDLL, 'glPixelMapfv');
-  @glPixelMapuiv := GetProcAddress(hDLL, 'glPixelMapuiv');
-  @glPixelMapusv := GetProcAddress(hDLL, 'glPixelMapusv');
-  @glPixelStoref := GetProcAddress(hDLL, 'glPixelStoref');
-  @glPixelStorei := GetProcAddress(hDLL, 'glPixelStorei');
-  @glPixelTransferf := GetProcAddress(hDLL, 'glPixelTransferf');
-  @glPixelTransferi := GetProcAddress(hDLL, 'glPixelTransferi');
-  @glPixelZoom := GetProcAddress(hDLL, 'glPixelZoom');
-  @glPointSize := GetProcAddress(hDLL, 'glPointSize');
-  @glPolygonMode := GetProcAddress(hDLL, 'glPolygonMode');
-  @glPolygonOffset := GetProcAddress(hDLL, 'glPolygonOffset');
-  @glPolygonStipple := GetProcAddress(hDLL, 'glPolygonStipple');
-  @glPopAttrib := GetProcAddress(hDLL, 'glPopAttrib');
-  @glPopClientAttrib := GetProcAddress(hDLL, 'glPopClientAttrib');
-  @glPopMatrix := GetProcAddress(hDLL, 'glPopMatrix');
-  @glPopName := GetProcAddress(hDLL, 'glPopName');
-  @glPrioritizeTextures := GetProcAddress(hDLL, 'glPrioritizeTextures');
-  @glPushAttrib := GetProcAddress(hDLL, 'glPushAttrib');
-  @glPushClientAttrib := GetProcAddress(hDLL, 'glPushClientAttrib');
-  @glPushMatrix := GetProcAddress(hDLL, 'glPushMatrix');
-  @glPushName := GetProcAddress(hDLL, 'glPushName');
-  @glRasterPos2d := GetProcAddress(hDLL, 'glRasterPos2d');
-  @glRasterPos2dv := GetProcAddress(hDLL, 'glRasterPos2dv');
-  @glRasterPos2f := GetProcAddress(hDLL, 'glRasterPos2f');
-  @glRasterPos2fv := GetProcAddress(hDLL, 'glRasterPos2fv');
-  @glRasterPos2i := GetProcAddress(hDLL, 'glRasterPos2i');
-  @glRasterPos2iv := GetProcAddress(hDLL, 'glRasterPos2iv');
-  @glRasterPos2s := GetProcAddress(hDLL, 'glRasterPos2s');
-  @glRasterPos2sv := GetProcAddress(hDLL, 'glRasterPos2sv');
-  @glRasterPos3d := GetProcAddress(hDLL, 'glRasterPos3d');
-  @glRasterPos3dv := GetProcAddress(hDLL, 'glRasterPos3dv');
-  @glRasterPos3f := GetProcAddress(hDLL, 'glRasterPos3f');
-  @glRasterPos3fv := GetProcAddress(hDLL, 'glRasterPos3fv');
-  @glRasterPos3i := GetProcAddress(hDLL, 'glRasterPos3i');
-  @glRasterPos3iv := GetProcAddress(hDLL, 'glRasterPos3iv');
-  @glRasterPos3s := GetProcAddress(hDLL, 'glRasterPos3s');
-  @glRasterPos3sv := GetProcAddress(hDLL, 'glRasterPos3sv');
-  @glRasterPos4d := GetProcAddress(hDLL, 'glRasterPos4d');
-  @glRasterPos4dv := GetProcAddress(hDLL, 'glRasterPos4dv');
-  @glRasterPos4f := GetProcAddress(hDLL, 'glRasterPos4f');
-  @glRasterPos4fv := GetProcAddress(hDLL, 'glRasterPos4fv');
-  @glRasterPos4i := GetProcAddress(hDLL, 'glRasterPos4i');
-  @glRasterPos4iv := GetProcAddress(hDLL, 'glRasterPos4iv');
-  @glRasterPos4s := GetProcAddress(hDLL, 'glRasterPos4s');
-  @glRasterPos4sv := GetProcAddress(hDLL, 'glRasterPos4sv');
-  @glReadBuffer := GetProcAddress(hDLL, 'glReadBuffer');
-  @glReadPixels := GetProcAddress(hDLL, 'glReadPixels');
-  @glRectd := GetProcAddress(hDLL, 'glRectd');
-  @glRectdv := GetProcAddress(hDLL, 'glRectdv');
-  @glRectf := GetProcAddress(hDLL, 'glRectf');
-  @glRectfv := GetProcAddress(hDLL, 'glRectfv');
-  @glRecti := GetProcAddress(hDLL, 'glRecti');
-  @glRectiv := GetProcAddress(hDLL, 'glRectiv');
-  @glRects := GetProcAddress(hDLL, 'glRects');
-  @glRectsv := GetProcAddress(hDLL, 'glRectsv');
-  @glRenderMode := GetProcAddress(hDLL, 'glRenderMode');
-  @glRotated := GetProcAddress(hDLL, 'glRotated');
-  @glRotatef := GetProcAddress(hDLL, 'glRotatef');
-  @glScaled := GetProcAddress(hDLL, 'glScaled');
-  @glScalef := GetProcAddress(hDLL, 'glScalef');
-  @glScissor := GetProcAddress(hDLL, 'glScissor');
-  @glSelectBuffer := GetProcAddress(hDLL, 'glSelectBuffer');
-  @glShadeModel := GetProcAddress(hDLL, 'glShadeModel');
-  @glStencilFunc := GetProcAddress(hDLL, 'glStencilFunc');
-  @glStencilMask := GetProcAddress(hDLL, 'glStencilMask');
-  @glStencilOp := GetProcAddress(hDLL, 'glStencilOp');
-  @glTexCoord1d := GetProcAddress(hDLL, 'glTexCoord1d');
-  @glTexCoord1dv := GetProcAddress(hDLL, 'glTexCoord1dv');
-  @glTexCoord1f := GetProcAddress(hDLL, 'glTexCoord1f');
-  @glTexCoord1fv := GetProcAddress(hDLL, 'glTexCoord1fv');
-  @glTexCoord1i := GetProcAddress(hDLL, 'glTexCoord1i');
-  @glTexCoord1iv := GetProcAddress(hDLL, 'glTexCoord1iv');
-  @glTexCoord1s := GetProcAddress(hDLL, 'glTexCoord1s');
-  @glTexCoord1sv := GetProcAddress(hDLL, 'glTexCoord1sv');
-  @glTexCoord2d := GetProcAddress(hDLL, 'glTexCoord2d');
-  @glTexCoord2dv := GetProcAddress(hDLL, 'glTexCoord2dv');
-  @glTexCoord2f := GetProcAddress(hDLL, 'glTexCoord2f');
-  @glTexCoord2fv := GetProcAddress(hDLL, 'glTexCoord2fv');
-  @glTexCoord2i := GetProcAddress(hDLL, 'glTexCoord2i');
-  @glTexCoord2iv := GetProcAddress(hDLL, 'glTexCoord2iv');
-  @glTexCoord2s := GetProcAddress(hDLL, 'glTexCoord2s');
-  @glTexCoord2sv := GetProcAddress(hDLL, 'glTexCoord2sv');
-  @glTexCoord3d := GetProcAddress(hDLL, 'glTexCoord3d');
-  @glTexCoord3dv := GetProcAddress(hDLL, 'glTexCoord3dv');
-  @glTexCoord3f := GetProcAddress(hDLL, 'glTexCoord3f');
-  @glTexCoord3fv := GetProcAddress(hDLL, 'glTexCoord3fv');
-  @glTexCoord3i := GetProcAddress(hDLL, 'glTexCoord3i');
-  @glTexCoord3iv := GetProcAddress(hDLL, 'glTexCoord3iv');
-  @glTexCoord3s := GetProcAddress(hDLL, 'glTexCoord3s');
-  @glTexCoord3sv := GetProcAddress(hDLL, 'glTexCoord3sv');
-  @glTexCoord4d := GetProcAddress(hDLL, 'glTexCoord4d');
-  @glTexCoord4dv := GetProcAddress(hDLL, 'glTexCoord4dv');
-  @glTexCoord4f := GetProcAddress(hDLL, 'glTexCoord4f');
-  @glTexCoord4fv := GetProcAddress(hDLL, 'glTexCoord4fv');
-  @glTexCoord4i := GetProcAddress(hDLL, 'glTexCoord4i');
-  @glTexCoord4iv := GetProcAddress(hDLL, 'glTexCoord4iv');
-  @glTexCoord4s := GetProcAddress(hDLL, 'glTexCoord4s');
-  @glTexCoord4sv := GetProcAddress(hDLL, 'glTexCoord4sv');
-  @glTexCoordPointer := GetProcAddress(hDLL, 'glTexCoordPointer');
-  @glTexEnvf := GetProcAddress(hDLL, 'glTexEnvf');
-  @glTexEnvfv := GetProcAddress(hDLL, 'glTexEnvfv');
-  @glTexEnvi := GetProcAddress(hDLL, 'glTexEnvi');
-  @glTexEnviv := GetProcAddress(hDLL, 'glTexEnviv');
-  @glTexGend := GetProcAddress(hDLL, 'glTexGend');
-  @glTexGendv := GetProcAddress(hDLL, 'glTexGendv');
-  @glTexGenf := GetProcAddress(hDLL, 'glTexGenf');
-  @glTexGenfv := GetProcAddress(hDLL, 'glTexGenfv');
-  @glTexGeni := GetProcAddress(hDLL, 'glTexGeni');
-  @glTexGeniv := GetProcAddress(hDLL, 'glTexGeniv');
-  @glTexImage1D := GetProcAddress(hDLL, 'glTexImage1D');
-  @glTexImage2D := GetProcAddress(hDLL, 'glTexImage2D');
-  @glTexParameterf := GetProcAddress(hDLL, 'glTexParameterf');
-  @glTexParameterfv := GetProcAddress(hDLL, 'glTexParameterfv');
-  @glTexParameteri := GetProcAddress(hDLL, 'glTexParameteri');
-  @glTexParameteriv := GetProcAddress(hDLL, 'glTexParameteriv');
-  @glTexSubImage1D := GetProcAddress(hDLL, 'glTexSubImage1D');
-  @glTexSubImage2D := GetProcAddress(hDLL, 'glTexSubImage2D');
-  @glTranslated := GetProcAddress(hDLL, 'glTranslated');
-  @glTranslatef := GetProcAddress(hDLL, 'glTranslatef');
-  @glVertex2d := GetProcAddress(hDLL, 'glVertex2d');
-  @glVertex2dv := GetProcAddress(hDLL, 'glVertex2dv');
-  @glVertex2f := GetProcAddress(hDLL, 'glVertex2f');
-  @glVertex2fv := GetProcAddress(hDLL, 'glVertex2fv');
-  @glVertex2i := GetProcAddress(hDLL, 'glVertex2i');
-  @glVertex2iv := GetProcAddress(hDLL, 'glVertex2iv');
-  @glVertex2s := GetProcAddress(hDLL, 'glVertex2s');
-  @glVertex2sv := GetProcAddress(hDLL, 'glVertex2sv');
-  @glVertex3d := GetProcAddress(hDLL, 'glVertex3d');
-  @glVertex3dv := GetProcAddress(hDLL, 'glVertex3dv');
-  @glVertex3f := GetProcAddress(hDLL, 'glVertex3f');
-  @glVertex3fv := GetProcAddress(hDLL, 'glVertex3fv');
-  @glVertex3i := GetProcAddress(hDLL, 'glVertex3i');
-  @glVertex3iv := GetProcAddress(hDLL, 'glVertex3iv');
-  @glVertex3s := GetProcAddress(hDLL, 'glVertex3s');
-  @glVertex3sv := GetProcAddress(hDLL, 'glVertex3sv');
-  @glVertex4d := GetProcAddress(hDLL, 'glVertex4d');
-  @glVertex4dv := GetProcAddress(hDLL, 'glVertex4dv');
-  @glVertex4f := GetProcAddress(hDLL, 'glVertex4f');
-  @glVertex4fv := GetProcAddress(hDLL, 'glVertex4fv');
-  @glVertex4i := GetProcAddress(hDLL, 'glVertex4i');
-  @glVertex4iv := GetProcAddress(hDLL, 'glVertex4iv');
-  @glVertex4s := GetProcAddress(hDLL, 'glVertex4s');
-  @glVertex4sv := GetProcAddress(hDLL, 'glVertex4sv');
-  @glVertexPointer := GetProcAddress(hDLL, 'glVertexPointer');
-  @glViewport := GetProcAddress(hDLL, 'glViewport');
-
-  @ChoosePixelFormat := GetProcAddress(hDLL, 'ChoosePixelFormat');
-  if not Assigned(ChoosePixelFormat) then
-    @ChoosePixelFormat := @Windows.ChoosePixelFormat;
-
-end;
-
-initialization
-
-  Set8087CW($133F);
-
-  try
-    LoadOpenGL('opengl32.dll');
-  except end;
-
-finalization
-
-  FreeOpenGL;
-
-end.
diff --git a/src/lib/dgl/dglOpenGL.pas b/src/lib/dgl/dglOpenGL.pas

deleted file mode 100644 (file)

index 80c8231..0000000
--- a/src/lib/dgl/dglOpenGL.pas
+++ /dev/null
@@ -1,15296 +0,0 @@
-{==============================================================================}
-{                                                                              }
-{       OpenGL 3.2 - Headertranslation                                         }
-{       Version 3.2.1                                                          }
-{       Date : 15.09.2009                                                      }
-{                                                                              }
-{       Works with :                                                           }
-{        - Delphi 3 and up                                                     }
-{        - FreePascal (1.9.3 and up)                                           }
-{                                                                              }
-{==============================================================================}
-{                                                                              }
-{       Containts the translations of glext.h, gl_1_1.h, glu.h and weglext.h.  }
-{       It also contains some helperfunctions that were inspired by those      }
-{       found in Mike Lischke's OpenGL12.pas.                                  }
-{                                                                              }
-{       Copyright (C) DGL-OpenGL2-Portteam                                     }
-{       All Rights Reserved                                                    }
-{                                                                              }
-{       Obtained through:                                                      }
-{       Delphi OpenGL Community(DGL) - www.delphigl.com                        }
-{                                                                              }
-{       Converted and maintained by DGL's GL2.0-Team :                         }
-{         - Sascha Willems                - http://www.delphigl.de             }
-{         - Steffen Xonna (Lossy eX)      - http://www.dev-center.de           }
-{         - Lars Middendorf               - http://www.3d-seite.de             }
-{       Additional input :                                                     }
-{         - Martin Waldegger (Mars)       - http://www.basegraph.com           }
-{         - Benjamin Rosseaux (BeRo)      - http://www.0ok.de                  }
-{       Additional thanks:                                                     }
-{           sigsegv (libdl.so)                                                 }
-{                                                                              }
-{                                                                              }
-{==============================================================================}
-{ You may retrieve the latest version of this file at the Delphi OpenGL        }
-{ Community home page, located at http://www.delphigl.com/                     }
-{                                                                              }
-{ The contents of this file are used with permission, subject to               }
-{ the Mozilla Public License Version 1.1 (the "License"); you may              }
-{ not use this file except in compliance with the License. You may             }
-{ obtain a copy of the License at                                              }
-{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
-{                                                                              }
-{ Software distributed under the License is distributed on an                  }
-{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
-{ implied. See the License for the specific language governing                 }
-{ rights and limitations under the License.                                    }
-{                                                                              }
-{==============================================================================}
-{ History :                                                                    }
-{ Version 1.0    Initial Release                                               }
-{ Version 1.1    Added PPointer in Tpyessection for compatiblity with Delphi   }
-{                versions lower than 7                                    (SW) }
-{                Added a function named RaiseLastOSError including a comment   }
-{                on how to make it run under Delphi versions lower than 7 (SW) }
-{                Added some data types according to the GL-Syntax         (SW) }
-{ Version 1.2    Fixed some problems with getting the addresses of some        }
-{                Extensions (e.g. glTexImage3D) where the EXT/ARB did work     }
-{                but not the core-functions                               (SW) }
-{ Version 1.3    A second call to ReadimplementationProperties won't           }
-{                revert to the default libs anymore                       (MW) }
-{                Libraries now will be released if necessary              (MW) }
-{ Version 1.3a   Small fixes for glSlang-functions                        (SW) }
-{ Version 1.3b   Fixed a small bug with GL_ARB_shader_objects, that lead       }
-{                lead to that extension not loaded correctly              (SW) }
-{ Version 1.3c   more GL 1.5 compliance by FOG_COORD_xx and                    }
-{                ARB less VBO and occlusion query routines                (MW) }
-{ Version 1.3d   Fixed linebreaks (should now be corrected under D5)      (SW) }
-{ Version 1.4    Changed header to correspond to the OpenGL-Shading            }
-{                Language specification 1.10 :                                 }
-{                - Added new GL_SAMPLER_*-Constants                            }
-{                - Added Constant GL_SHADING_LANGUAGE_VERSION_ARB              }
-{                - Added Constant GL_FRAGMENT_SHADER_DERIVATIVE_HINT_ARB       }
-{                - Added Constant GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB  (SW) }
-{ Version 1.4a   Fixed a missing stdcall for glBindAttribLocationARB      (SW) }
-{ Version 1.4b   Fixed declaration for glUniform*(f/i)vARB (added count)  (MW) }
-{                glCompileShaderARB changed from function to procedure    (MW) }
-{ Version 1.5    Added support for FreePascal                             (BR) }
-{                Added type TGLVectorf3/TGLVector3f                       (SW) }
-{ Version 1.6    Added Extension GL_EXT_framebuffer_object                (SX) }
-{ Version 1.7    Added Extension GL_ARB_fragment_program_shadow           (SX) }
-{                Added Extension GL_ARB_draw_buffers                      (SX) }
-{                Added Extension GL_ARB_texture_rectangle                 (SX) }
-{                Added Extension GL_ARB_color_buffer_float                (SX) }
-{                Added Extension GL_ARB_half_float_pixel                  (SX) }
-{                Added Extension GL_ARB_texture_float                     (SX) }
-{                Added Extension GL_ARB_pixel_buffer_object               (SX) }
-{                Added Extension GL_EXT_depth_bounds_test                 (SX) }
-{                Added Extension GL_EXT_texture_mirror_clamp              (SX) }
-{                Added Extension GL_EXT_blend_equation_separate           (SX) }
-{                Added Extension GL_EXT_pixel_buffer_object               (SX) }
-{                Added Extension GL_EXT_texture_compression_dxt1          (SX) }
-{                Added Extension GL_NV_fragment_program_option            (SX) }
-{                Added Extension GL_NV_fragment_program2                  (SX) }
-{                Added Extension GL_NV_vertex_program2_option             (SX) }
-{                Added Extension GL_NV_vertex_program3                    (SX) }
-{ Version 1.8    Added explicit delegate type definitions                 (LM) }
-{                Added .Net 1.1 Support                                   (LM) }
-{                Added .Net overloaded functions                          (LM) }
-{                Added delayed extension loading and stubs                (LM) }
-{                Added automatic InitOpenGL call in CreateRenderingContext(LM) }
-{                Added extra Read_* function                              (LM) }
-{ Version 2.0    fixed some Problem with version string and damn drivers.      }
-{                String 1.15 identified as OpenGL 1.5 not as OpenGL 1.1   (SX) }
-{                Removed unexisting extension GL_ARB_texture_mirror_repeat(SX) }
-{                Added Extension WGL_ARB_pixel_format_float               (SX) }
-{                Added Extension GL_EXT_stencil_clear_tag                 (SX) }
-{                Added Extension GL_EXT_texture_rectangle                 (SX) }
-{                Added Extension GL_EXT_texture_edge_clamp                (SX) }
-{                Some 1.5 Core Consts added (now completed)               (SX) }
-{                gluProject need pointer for not .net                     (SX) }
-{                gluUnProject need pointer for not .net                   (SX) }
-{                wglUseFontOutlines* need pointer for not .net            (SX) }
-{                wglSwapMultipleBuffers need pointer for not .net         (SX) }
-{                Bug with wglGetExtensionsStringEXT removed                    }
-{                different type for .net                                  (SX) }
-{                Added OpenGL 2.0 Core                                    (SX) }
-{ Version 2.0.1  fixed some problems with glGetActiveAttrib in 2.0 Core   (SX) }
-{                fixes some problems with gluProject                      (SX) }
-{                fixes some problems with gluUnProject                    (SX) }
-{                fixes some problems with gluTessVertex                   (SX) }
-{                fixes some problems with gluLoadSamplingMatrices         (SX) }
-{ Version 2.1    Removed .NET Support                                     (SX) }
-{                Better support for Linux                                 (SX) }
-{                Better Codeformation                                     (SX) }
-{                Added some more Vector/Matrix types                      (SX) }
-{                Added OpenGL 2.1 Core                                    (SX) }
-{                Added Extension GL_EXT_packed_depth_stencil              (SX) }
-{                Added Extension GL_EXT_texture_sRGB                      (SX) }
-{                Added Extension GL_EXT_framebuffer_blit                  (SX) }
-{                Added Extension GL_EXT_framebuffer_multisample           (SX) }
-{                Added Extension GL_EXT_timer_query                       (SX) }
-{                Added Extension GL_EXT_gpu_program_parameters            (SX) }
-{                Added Extension GL_EXT_bindable_uniform                  (SX) }
-{                Added Extension GL_EXT_draw_buffers2                     (SX) }
-{                Added Extension GL_EXT_draw_instanced                    (SX) }
-{                Added Extension GL_EXT_framebuffer_sRGB                  (SX) }
-{                Added Extension GL_EXT_geometry_shader4                  (SX) }
-{                Added Extension GL_EXT_gpu_shader4                       (SX) }
-{                Added Extension GL_EXT_packed_float                      (SX) }
-{                Added Extension GL_EXT_texture_array                     (SX) }
-{                Added Extension GL_EXT_texture_buffer_object             (SX) }
-{                Added Extension GL_EXT_texture_compression_latc          (SX) }
-{                Added Extension GL_EXT_texture_compression_rgtc          (SX) }
-{                Added Extension GL_EXT_texture_integer                   (SX) }
-{                Added Extension GL_EXT_texture_shared_exponent           (SX) }
-{                Added Extension GL_NV_depth_buffer_float                 (SX) }
-{                Added Extension GL_NV_fragment_program4                  (SX) }
-{                Added Extension GL_NV_framebuffer_multisample_coverage   (SX) }
-{                Added Extension GL_NV_geometry_program4                  (SX) }
-{                Added Extension GL_NV_gpu_program4                       (SX) }
-{                Added Extension GL_NV_parameter_buffer_object            (SX) }
-{                Added Extension GL_NV_transform_feedback                 (SX) }
-{                Added Extension GL_NV_vertex_program4                    (SX) }
-{ Version 3.0    fixed some const of GL_EXT_texture_shared_exponent       (SX) }
-{                possible better support for mac                          (SX) }
-{                Added OpenGL 3.0 Core                                    (SX) }
-{                Added Extension GL_ARB_depth_buffer_float                (SX) }
-{                Added Extension GL_ARB_draw_instanced                    (SX) }
-{                Added Extension GL_ARB_framebuffer_object                (SX) }
-{                Added Extension GL_ARB_framebuffer_sRGB                  (SX) }
-{                Added Extension GL_ARB_geometry_shader4                  (SX) }
-{                Added Extension GL_ARB_half_float_vertex                 (SX) }
-{                Added Extension GL_ARB_instanced_arrays                  (SX) }
-{                Added Extension GL_ARB_map_buffer_range                  (SX) }
-{                Added Extension GL_ARB_texture_buffer_object             (SX) }
-{                Added Extension GL_ARB_texture_compression_rgtc          (SX) }
-{                Added Extension GL_ARB_texture_rg                        (SX) }
-{                Added Extension GL_ARB_vertex_array_object               (SX) }
-{                Added Extension GL_NV_conditional_render                 (SX) }
-{                Added Extension GL_NV_present_video                      (SX) }
-{                Added Extension GL_EXT_transform_feedback                (SX) }
-{                Added Extension GL_EXT_direct_state_access               (SX) }
-{                Added Extension GL_EXT_vertex_array_bgra                 (SX) }
-{                Added Extension GL_EXT_texture_swizzle                   (SX) }
-{                Added Extension GL_NV_explicit_multisample               (SX) }
-{                Added Extension GL_NV_transform_feedback2                (SX) }
-{                Added Extension WGL_ARB_create_context                   (SX) }
-{                Added Extension WGL_NV_present_video                     (SX) }
-{                Added Extension WGL_NV_video_out                         (SX) }
-{                Added Extension WGL_NV_swap_group                        (SX) }
-{                Added Extension WGL_NV_gpu_affinity                      (SX) }
-{                Added define DGL_TINY_HEADER to suppress automatic            }
-{                function loading                                         (SX) }
-{                glProcedure renamed to dglGetProcAddress and now it's         }
-{                visible from outside the unit to custom load functions   (SX) }
-{                dglCheckExtension added to check if an extension exists  (SX) }
-{                Read_GL_ARB_buffer_object renamed to                          }
-{                Read_GL_ARB_vertex_buffer_object                         (SX) }
-{ Version 3.0.1  fixed an problem with fpc                                (SX) }
-{ Version 3.0.2  fixed an problem with WGL_ARB_create_context             (SX) }
-{ Version 3.2    Functions from GL_VERSION_3_0 where updated              (SX) }
-{                Functions from GL_ARB_map_buffer_range where updated     (SX) }
-{                Functions from GL_NV_present_video where added           (SX) }
-{                Added consts of GL_ARB_instanced_arrays                  (SX) }
-{                Defines to identify Delphi was changed (prevent for           }
-{                feature maintenance)                                     (SX) }
-{                Added Extension GL_ATI_meminfo                           (SX) }
-{                Added Extension GL_AMD_performance_monitor               (SX) }
-{                Added Extension GL_AMD_texture_texture4                  (SX) }
-{                Added Extension GL_AMD_vertex_shader_tesselator          (SX) }
-{                Added Extension GL_EXT_provoking_vertex                  (SX) }
-{                Added Extension WGL_AMD_gpu_association                  (SX) }
-{                Added OpenGL 3.1 Core                                    (SX) }
-{                All deprecated stuff can be disabled if you undef the         }
-{                define DGL_DEPRECATED                                    (SX) }
-{                Added Extension GL_ARB_uniform_buffer_object             (SX) }
-{                Added Extension GL_ARB_compatibility                     (SX) }
-{                Added Extension GL_ARB_copy_buffer                       (SX) }
-{                Added Extension GL_ARB_shader_texture_lod                (SX) }
-{                Remove function from GL_NV_present_video                 (SX) }
-{                Added Extension WGL_3DL_stereo_control                   (SX) }
-{                Added Extension GL_EXT_texture_snorm                     (SX) }
-{                Added Extension GL_AMD_draw_buffers_blend                (SX) }
-{                Added Extension GL_APPLE_texture_range                   (SX) }
-{                Added Extension GL_APPLE_float_pixels                    (SX) }
-{                Added Extension GL_APPLE_vertex_program_evaluators       (SX) }
-{                Added Extension GL_APPLE_aux_depth_stencil               (SX) }
-{                Added Extension GL_APPLE_object_purgeable                (SX) }
-{                Added Extension GL_APPLE_row_bytes                       (SX) }
-{                Added OpenGL 3.2 Core                                    (SX) }
-{                Added Extension GL_ARB_depth_clamp                       (SX) }
-{                Added Extension GL_ARB_draw_elements_base_vertex         (SX) }
-{                Added Extension GL_ARB_fragment_coord_conventions        (SX) }
-{                Added Extension GL_ARB_provoking_vertex                  (SX) }
-{                Added Extension GL_ARB_seamless_cube_map                 (SX) }
-{                Added Extension GL_ARB_sync                              (SX) }
-{                Added Extension GL_ARB_texture_multisample               (SX) }
-{                Added Extension GL_ARB_vertex_array_bgra                 (SX) }
-{                Added Extension GL_ARB_draw_buffers_blend                (SX) }
-{                Added Extension GL_ARB_sample_shading                    (SX) }
-{                Added Extension GL_ARB_texture_cube_map_array            (SX) }
-{                Added Extension GL_ARB_texture_gather                    (SX) }
-{                Added Extension GL_ARB_texture_query_lod                 (SX) }
-{                Added Extension WGL_ARB_create_context_profile           (SX) }
-{                Added GLX Core up to Version 1.4                         (SX) }
-{                Added Extension GLX_ARB_multisample                      (SX) }
-{                Added Extension GLX_ARB_fbconfig_float                   (SX) }
-{                Added Extension GLX_ARB_get_proc_address                 (SX) }
-{                Added Extension GLX_ARB_create_context                   (SX) }
-{                Added Extension GLX_ARB_create_context_profile           (SX) }
-{                Added Extension GLX_EXT_visual_info                      (SX) }
-{                Added Extension GLX_EXT_visual_rating                    (SX) }
-{                Added Extension GLX_EXT_import_context                   (SX) }
-{                Added Extension GLX_EXT_fbconfig_packed_float            (SX) }
-{                Added Extension GLX_EXT_framebuffer_sRGB                 (SX) }
-{                Added Extension GLX_EXT_texture_from_pixmap              (SX) }
-{ Version 3.2.1  Fixed some problems with Delphi < 6                      (SX) }
-
-
-{==============================================================================}
-{ Header based on glext.h rev 54 (2009-08-03)                                  }
-{ This is an important notice for maintaining. Dont remove it. And make sure   }
-{ to keep him up to date                                                       }
-{==============================================================================}
-
-
-{$define DGL_DEPRECATED}
-{
-  This define defines if the header should use deprecated ARB stuff or not.
-  per Default the Header use deprecated Stuff.
-}
-
-
-{.$define DGL_TINY_HEADER}
-{
-  If you enable the define DGL_TINY_HEADER no function automatically will be loaded if you
-  call ActivateRenderingContext. This may some bit faster and the smart linker can delete
-  all non used functions. This will reduce the filesize of your binary file. But in this
-  case you have to load the functions by yourself. There are two ways to do this.
-  
-  1. You can load whole extension by calling the func Read_Extensionname. But if you do
-     this it's possible to load functions you dont use. So you have the same "problem"
-     like before. But it's only an bit smaler.
-     > Read_GL_ARB_multitexture;
-
-  2. You are able to load only the functions you exactly need. In this case you are able
-     to use the variables of the dglOpenGL.pas. So you only need to load the functions
-     and you can use the header like before.
-     To do this you have to created and activated an opengl context and than you can load
-     the needed functions.
-     > ActivateRenderingContext(fDC, fRC);
-     > glActiveTextureARB := dglGetProcAddress('glActiveTextureARB');
-     > glMultiTexCoord2fARB := dglGetProcAddress('glMultiTexCoord2fARB');
-
-     So only the function "glActiveTextureARB" and "glMultiTexCoord2fARB" will be loaded.
-
-
-  Please notice that the extension variables won't be loaded if this define is active. But
-  you can call dglCheckExtension to check if any extension exists. You can assign them to
-  the variables of the dglOpenGL.pas so all code they use this will find them.
-
-  > GL_ARB_shading_language_100 := dglCheckExtension('GL_ARB_shading_language_100');
-}
-
-
-unit dglOpenGL;
-
-interface
-
-// defines to configure freepascal
-{$IFDEF FPC}
-  {$MODE Delphi}
-
-  {$IFNDEF WINDOWS}
-    {$LINKLIB c}
-  {$ENDIF}
-{$ENDIF}
-
-// known delphi versions
-{$IFNDEF FPC}       // if freepascal isnt defined
-  {$IFDEF VER140}   // Delphi 6
-    {$DEFINE DELPHI6_AND_DOWN}
-  {$ENDIF}
-
-  {$IFDEF VER130}   // Delphi 5
-    {$DEFINE DELPHI6_AND_DOWN}
-  {$ENDIF}
-
-  {$IFDEF VER120}   // Delphi 4
-    {$DEFINE DELPHI6_AND_DOWN}
-  {$ENDIF}
-
-  {$IFDEF VER110}   // C++ Builder 3
-    {$DEFINE DELPHI6_AND_DOWN}
-  {$ENDIF}
-
-  {$IFDEF VER100}   // Delphi 3
-    {$DEFINE DELPHI6_AND_DOWN}
-  {$ENDIF}
-{$ENDIF}
-
-// Options for Delphi < 5
-{$IFDEF DELPHI6_AND_DOWN}
-  {$A+}
-{$ELSE}
-  {$A4}
-{$ENDIF}
-
-// generell options
-{$H+,O+,X+}
-
-// detecting Windows
-{$IFDEF Win32}          // Delphi and fpc of 32 Bit Windows
-  {$DEFINE DGL_WIN}
-{$ENDIF}
-
-{$IFDEF Win64}          // Delphi and fpc of 32 Bit Windows
-  {$DEFINE DGL_WIN}
-{$ENDIF}
-
-// detecting Linux
-{$IFDEF linux}          // Linux
-  {$DEFINE DGL_LINUX}
-{$ENDIF}
-
-// detecting 64 Bit CPU
-{$IFDEF CPU64}          // fpc on 64 bit cpus
-  {$DEFINE DGL_64BIT}   // dgl define for 64 bit
-{$ENDIF}
-
-
-
-uses
-  SysUtils
-  {$IFDEF DGL_WIN}, Windows{$ENDIF}
-  {$IFDEF DGL_LINUX}, X, XLib, XUtil{$ENDIF}
-  ;
-
-type
-  // Needed for Delphi 6 and less (defined in system.pas for Delphi 7)
-  PPointer = ^Pointer;
-  PCardinal = ^Cardinal;
-
-  GLenum = Cardinal;
-  GLboolean = BYTEBOOL;
-  GLbitfield = Cardinal;
-  GLbyte = Shortint;
-  GLshort = SmallInt;
-  GLint = Integer;
-  GLsizei = Integer;
-  GLubyte = Byte;
-  GLushort = Word;
-  GLuint = Cardinal;
-  GLfloat = Single;
-  GLclampf = Single;
-  GLdouble = Double;
-  GLclampd = Double;
-  GLvoid = Pointer;
-  GLint64 = Int64;
-  GLuint64 = {$IFDEF DELPHI6_AND_DOWN} Int64 {$ELSE} UInt64 {$ENDIF};
-
-  TGLenum = GLenum;
-  TGLboolean = GLboolean;
-  TGLbitfield = GLbitfield;
-  TGLbyte = GLbyte;
-  TGLshort = GLshort;
-  TGLint = GLint;
-  TGLsizei = GLsizei;
-  TGLubyte = GLubyte;
-  TGLushort = GLushort;
-  TGLuint = GLuint;
-  TGLfloat = GLfloat;
-  TGLclampf = GLclampf;
-  TGLdouble = GLdouble;
-  TGLclampd = GLclampd;
-  TGLvoid = GLvoid;
-  TGLint64 = GLint64;
-  TGLuint64 = GLuint64;
-
-  PGLboolean = ^GLboolean;
-  PGLbyte = ^GLbyte;
-  PGLshort = ^GLshort;
-  PGLint = ^GLint;
-  PGLsizei = ^GLsizei;
-  PGLubyte = ^GLubyte;
-  PGLushort = ^GLushort;
-  PGLuint = ^GLuint;
-  PGLclampf = ^GLclampf;
-  PGLfloat = ^GLfloat;
-  PGLdouble = ^GLdouble;
-  PGLclampd = ^GLclampd;
-  PGLenum = ^GLenum;
-  PGLvoid = Pointer;
-  PPGLvoid = ^PGLvoid;
-  PGLint64 = ^GLint64;
-
-  // GL_NV_half_float
-  GLhalfNV = WORD;
-  TGLhalfNV = GLhalfNV;
-  PGLhalfNV = ^GLhalfNV;
-
-  // GL_ARB_shader_objects
-  PGLHandleARB = ^GLHandleARB;
-  GLHandleARB = Integer;
-  GLcharARB = AnsiChar;
-  PGLcharARB = PAnsiChar;
-  PPGLcharARB = ^PGLcharARB;
-
-  // GL_VERSION_2_0
-  GLHandle = Integer;
-  PGLchar = PAnsiChar;
-  PPGLchar = ^PGLChar;
-
-  // GL_EXT_timer_query
-  GLint64EXT = Int64;
-  TGLint64EXT = GLint64EXT;
-  PGLint64EXT = ^TGLint64EXT;
-
-  GLuint64EXT = TGLuint64;
-  TGLuint64EXT = GLuint64EXT;
-  PGLuint64EXT = ^TGLuint64EXT;
-
-  // WGL_ARB_pbuffer
-  HPBUFFERARB = THandle;
-
-  // WGL_EXT_pbuffer
-  HPBUFFEREXT = THandle;
-
-  // WGL_NV_present_video
-  PHVIDEOOUTPUTDEVICENV = ^HVIDEOOUTPUTDEVICENV;
-  HVIDEOOUTPUTDEVICENV = THandle;
-
-  // WGL_NV_video_out
-  PHPVIDEODEV = ^HPVIDEODEV;
-  HPVIDEODEV = THandle;
-
-  // WGL_NV_gpu_affinity
-  PHPGPUNV = ^HPGPUNV;
-  PHGPUNV = ^HGPUNV;
-
-  HPGPUNV = THandle;
-  HGPUNV = THandle;
-
-  // ARB_sync
-  GLsync = Pointer;
-
-  // GLX
-  {$IFDEF DGL_LINUX}
-    GLXContext = Pointer;
-    GLXContextID = TXID;
-    GLXDrawable = TXID;
-    GLXFBConfig = Pointer;
-    GLXPbuffer = TXID;
-    GLXPixmap = TXID;
-    GLXWindow = TXID;
-
-    Window = TXID;
-    Colormap = TXID;
-    Pixmap = TXID;
-    Font = TXID;
-  {$ENDIF}
-
-  // Datatypes corresponding to GL's types TGL(name)(type)(count)
-  TGLVectorub2 = array[0..1] of TGLubyte;
-  TGLVectori2  = array[0..1] of TGLint;
-  TGLVectorf2  = array[0..1] of TGLfloat;
-  TGLVectord2  = array[0..1] of TGLdouble;
-  TGLVectorp2  = array[0..1] of Pointer;
-
-  TGLVectorub3 = array[0..2] of TGLubyte;
-  TGLVectori3  = array[0..2] of TGLint;
-  TGLVectorf3  = array[0..2] of TGLfloat;
-  TGLVectord3  = array[0..2] of TGLdouble;
-  TGLVectorp3  = array[0..2] of Pointer;
-
-  TGLVectorub4 = array[0..3] of TGLubyte;
-  TGLVectori4  = array[0..3] of TGLint;
-  TGLVectorf4  = array[0..3] of TGLfloat;
-  TGLVectord4  = array[0..3] of TGLdouble;
-  TGLVectorp4  = array[0..3] of Pointer;
-
-  TGLArrayf4 = TGLVectorf4;
-  TGLArrayf3 = TGLVectorf3;
-  TGLArrayd3 = TGLVectord3;
-  TGLArrayi4 = TGLVectori4;
-  TGLArrayp4 = TGLVectorp4;
-
-  TGlMatrixub3 = array[0..2, 0..2] of TGLubyte;
-  TGlMatrixi3  = array[0..2, 0..2] of TGLint;
-  TGLMatrixf3  = array[0..2, 0..2] of TGLfloat;
-  TGLMatrixd3  = array[0..2, 0..2] of TGLdouble;
-
-  TGlMatrixub4 = array[0..3, 0..3] of TGLubyte;
-  TGlMatrixi4  = array[0..3, 0..3] of TGLint;
-  TGLMatrixf4  = array[0..3, 0..3] of TGLfloat;
-  TGLMatrixd4  = array[0..3, 0..3] of TGLdouble;
-
-  TGLVector3f = TGLVectorf3;
-
-  // Datatypes corresponding to OpenGL12.pas for easy porting
-  TVector3d = TGLVectord3;
-
-  TVector4i = TGLVectori4;
-  TVector4f = TGLVectorf4;
-  TVector4p = TGLVectorp4;
-
-  TMatrix4f = TGLMatrixf4;
-  TMatrix4d = TGLMatrixd4;
-
-  PGLMatrixd4 = ^TGLMatrixd4;
-  PVector4i = ^TVector4i;
-
-
-
-{$IFDEF FPC}
-  TRect = packed record
-    Left, Top, Right, Bottom: Longint;
-  end;
-{$ENDIF}
-
-
-  PGPU_DEVICE = ^GPU_DEVICE;
-  GPU_DEVICE = record
-    cb: DWORD;
-    DeviceName: array [0..31] of AnsiChar;
-    DeviceString: array [0..127] of AnsiChar;
-    Flags: DWORD;
-    rcVirtualScreen: TRect;
-  end;
-  
-
-type
-{$IFDEF FPC}
-  {$IFDEF DGL_WIN}
-    PWGLSwap = ^TWGLSwap;
-    {$EXTERNALSYM _WGLSWAP}
-      _WGLSWAP = packed record
-        hdc: HDC;
-        uiFlags: UINT;
-      end;
-
-    TWGLSwap = _WGLSWAP;
-  {$EXTERNALSYM WGLSWAP}
-    WGLSWAP = _WGLSWAP;
-
-  {$ENDIF}
-{$ENDIF}
-
-  // GLU types
-  TGLUNurbs = record
-  end;
-  TGLUQuadric = record
-  end;
-  TGLUTesselator = record
-  end;
-  PGLUNurbs = ^TGLUNurbs;
-  PGLUQuadric = ^TGLUQuadric;
-  PGLUTesselator = ^TGLUTesselator;
-  // backwards compatibility
-  TGLUNurbsObj = TGLUNurbs;
-  TGLUQuadricObj = TGLUQuadric;
-  TGLUTesselatorObj = TGLUTesselator;
-  TGLUTriangulatorObj = TGLUTesselator;
-  PGLUNurbsObj = PGLUNurbs;
-  PGLUQuadricObj = PGLUQuadric;
-  PGLUTesselatorObj = PGLUTesselator;
-  PGLUTriangulatorObj = PGLUTesselator;
-
-  // GLUQuadricCallback
-  TGLUQuadricErrorProc = procedure(errorCode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  // GLUTessCallback
-  TGLUTessBeginProc = procedure(AType: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessEdgeFlagProc = procedure(Flag: GLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessVertexProc = procedure(VertexData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessEndProc = procedure; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessErrorProc = procedure(ErrNo: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessCombineProc = procedure(Coords: TGLArrayd3; VertexData: TGLArrayp4; Weight: TGLArrayf4; OutData: PPointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessBeginDataProc = procedure(AType: GLenum; UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessEdgeFlagDataProc = procedure(Flag: GLboolean; UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessVertexDataProc = procedure(VertexData: Pointer; UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessEndDataProc = procedure(UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessErrorDataProc = procedure(ErrNo: GLenum; UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TGLUTessCombineDataProc = procedure(Coords: TGLArrayd3; VertexData: TGLArrayp4; Weight: TGLArrayf4; OutData: PPointer; UserData: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  // GLUNurbsCallback
-  TGLUNurbsErrorProc = procedure(ErrorCode: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-var
-  GL_VERSION_1_0,
-  GL_VERSION_1_1,
-  GL_VERSION_1_2,
-  GL_VERSION_1_3,
-  GL_VERSION_1_4,
-  GL_VERSION_1_5,
-  GL_VERSION_2_0,
-  GL_VERSION_2_1,
-  GL_VERSION_3_0,
-  GL_VERSION_3_1,
-  GL_VERSION_3_2,
-  GLU_VERSION_1_1,
-  GLU_VERSION_1_2,
-  GLU_VERSION_1_3,
-  GL_3DFX_multisample,
-  GL_3DFX_tbuffer,
-  GL_3DFX_texture_compression_FXT1,
-  GL_APPLE_client_storage,
-  GL_APPLE_element_array,
-  GL_APPLE_fence,
-  GL_APPLE_specular_vector,
-  GL_APPLE_transform_hint,
-  GL_APPLE_vertex_array_object,
-  GL_APPLE_vertex_array_range,
-  GL_APPLE_ycbcr_422,
-  GL_APPLE_texture_range,
-  GL_APPLE_float_pixels,
-  GL_APPLE_vertex_program_evaluators,
-  GL_APPLE_aux_depth_stencil,
-  GL_APPLE_object_purgeable,
-  GL_APPLE_row_bytes,
-  GL_ARB_depth_texture,
-  GL_ARB_fragment_program,
-  GL_ARB_imaging,
-  GL_ARB_matrix_palette,
-  GL_ARB_multisample,
-  GL_ARB_multitexture,
-  GL_ARB_point_parameters,
-  GL_ARB_shadow,
-  GL_ARB_shadow_ambient,
-  GL_ARB_texture_border_clamp,
-  GL_ARB_texture_compression,
-  GL_ARB_texture_cube_map,
-  GL_ARB_texture_env_add,
-  GL_ARB_texture_env_combine,
-  GL_ARB_texture_env_crossbar,
-  GL_ARB_texture_env_dot3,
-  GL_ARB_texture_mirrored_repeat,
-  GL_ARB_transpose_matrix,
-  GL_ARB_vertex_blend,
-  GL_ARB_vertex_buffer_object,
-  GL_ARB_vertex_program,
-  GL_ARB_window_pos,
-  GL_ARB_shader_objects,
-  GL_ARB_vertex_shader,
-  GL_ARB_fragment_shader,
-  GL_ARB_shading_language_100,
-  GL_ARB_occlusion_query,
-  GL_ARB_texture_non_power_of_two,
-  GL_ARB_point_sprite,
-  GL_ARB_fragment_program_shadow,
-  GL_ARB_draw_buffers,
-  GL_ARB_texture_rectangle,
-  GL_ARB_color_buffer_float,
-  GL_ARB_half_float_pixel,
-  GL_ARB_texture_float,
-  GL_ARB_pixel_buffer_object,
-  GL_ARB_depth_buffer_float,
-  GL_ARB_draw_instanced,
-  GL_ARB_framebuffer_object,
-  GL_ARB_framebuffer_sRGB,
-  GL_ARB_geometry_shader4,
-  GL_ARB_half_float_vertex,
-  GL_ARB_instanced_arrays,
-  GL_ARB_map_buffer_range,
-  GL_ARB_texture_buffer_object,
-  GL_ARB_texture_compression_rgtc,
-  GL_ARB_texture_rg,
-  GL_ARB_vertex_array_object,
-  GL_ARB_uniform_buffer_object,
-  GL_ARB_compatibility,
-  GL_ARB_copy_buffer,
-  GL_ARB_shader_texture_lod,
-  GL_ARB_depth_clamp,
-  GL_ARB_draw_elements_base_vertex,
-  GL_ARB_fragment_coord_conventions,
-  GL_ARB_provoking_vertex,
-  GL_ARB_seamless_cube_map,
-  GL_ARB_sync,
-  GL_ARB_texture_multisample,
-  GL_ARB_vertex_array_bgra,
-  GL_ARB_draw_buffers_blend,
-  GL_ARB_sample_shading,
-  GL_ARB_texture_cube_map_array,
-  GL_ARB_texture_gather,
-  GL_ARB_texture_query_lod,
-  GL_ATI_draw_buffers,
-  GL_ATI_element_array,
-  GL_ATI_envmap_bumpmap,
-  GL_ATI_fragment_shader,
-  GL_ATI_map_object_buffer,
-  GL_ATI_pn_triangles,
-  GL_ATI_separate_stencil,
-  GL_ATI_text_fragment_shader,
-  GL_ATI_texture_env_combine3,
-  GL_ATI_texture_float,
-  GL_ATI_texture_mirror_once,
-  GL_ATI_vertex_array_object,
-  GL_ATI_vertex_attrib_array_object,
-  GL_ATI_vertex_streams,
-  GL_ATI_meminfo,
-  GL_AMD_performance_monitor,
-  GL_AMD_texture_texture4,
-  GL_AMD_vertex_shader_tesselator,
-  GL_AMD_draw_buffers_blend,
-  GL_EXT_422_pixels,
-  GL_EXT_abgr,
-  GL_EXT_bgra,
-  GL_EXT_blend_color,
-  GL_EXT_blend_func_separate,
-  GL_EXT_blend_logic_op,
-  GL_EXT_blend_minmax,
-  GL_EXT_blend_subtract,
-  GL_EXT_clip_volume_hint,
-  GL_EXT_cmyka,
-  GL_EXT_color_matrix,
-  GL_EXT_color_subtable,
-  GL_EXT_compiled_vertex_array,
-  GL_EXT_convolution,
-  GL_EXT_coordinate_frame,
-  GL_EXT_copy_texture,
-  GL_EXT_cull_vertex,
-  GL_EXT_draw_range_elements,
-  GL_EXT_fog_coord,
-  GL_EXT_framebuffer_object,
-  GL_EXT_histogram,
-  GL_EXT_index_array_formats,
-  GL_EXT_index_func,
-  GL_EXT_index_material,
-  GL_EXT_index_texture,
-  GL_EXT_light_texture,
-  GL_EXT_misc_attribute,
-  GL_EXT_multi_draw_arrays,
-  GL_EXT_multisample,
-  GL_EXT_packed_pixels,
-  GL_EXT_paletted_texture,
-  GL_EXT_pixel_transform,
-  GL_EXT_pixel_transform_color_table,
-  GL_EXT_point_parameters,
-  GL_EXT_polygon_offset,
-  GL_EXT_rescale_normal,
-  GL_EXT_secondary_color,
-  GL_EXT_separate_specular_color,
-  GL_EXT_shadow_funcs,
-  GL_EXT_shared_texture_palette,
-  GL_EXT_stencil_two_side,
-  GL_EXT_stencil_wrap,
-  GL_EXT_subtexture,
-  GL_EXT_texture,
-  GL_EXT_texture3D,
-  GL_EXT_texture_compression_s3tc,
-  GL_EXT_texture_cube_map,
-  GL_EXT_texture_edge_clamp,
-  GL_EXT_texture_env_add,
-  GL_EXT_texture_env_combine,
-  GL_EXT_texture_env_dot3,
-  GL_EXT_texture_filter_anisotropic,
-  GL_EXT_texture_lod_bias,
-  GL_EXT_texture_object,
-  GL_EXT_texture_perturb_normal,
-  GL_EXT_texture_rectangle,
-  GL_EXT_vertex_array,
-  GL_EXT_vertex_shader,
-  GL_EXT_vertex_weighting,
-  GL_EXT_depth_bounds_test,
-  GL_EXT_texture_mirror_clamp,
-  GL_EXT_blend_equation_separate,
-  GL_EXT_pixel_buffer_object,
-  GL_EXT_texture_compression_dxt1,
-  GL_EXT_stencil_clear_tag,
-  GL_EXT_packed_depth_stencil,
-  GL_EXT_texture_sRGB,
-  GL_EXT_framebuffer_blit,
-  GL_EXT_framebuffer_multisample,
-  GL_EXT_timer_query,
-  GL_EXT_gpu_program_parameters,
-  GL_EXT_bindable_uniform,
-  GL_EXT_draw_buffers2,
-  GL_EXT_draw_instanced,
-  GL_EXT_framebuffer_sRGB,
-  GL_EXT_geometry_shader4,
-  GL_EXT_gpu_shader4,
-  GL_EXT_packed_float,
-  GL_EXT_texture_array,
-  GL_EXT_texture_buffer_object,
-  GL_EXT_texture_compression_latc,
-  GL_EXT_texture_compression_rgtc,
-  GL_EXT_texture_integer,
-  GL_EXT_texture_shared_exponent,
-  GL_EXT_transform_feedback,
-  GL_EXT_direct_state_access,
-  GL_EXT_vertex_array_bgra,
-  GL_EXT_texture_swizzle,
-  GL_EXT_provoking_vertex,
-  GL_EXT_texture_snorm,
-  GL_FfdMaskSGIX,
-  GL_HP_convolution_border_modes,
-  GL_HP_image_transform,
-  GL_HP_occlusion_test,
-  GL_HP_texture_lighting,
-  GL_IBM_cull_vertex,
-  GL_IBM_multimode_draw_arrays,
-  GL_IBM_rasterpos_clip,
-  GL_IBM_texture_mirrored_repeat,
-  GL_IBM_vertex_array_lists,
-  GL_INGR_blend_func_separate,
-  GL_INGR_color_clamp,
-  GL_INGR_interlace_read,
-  GL_INGR_palette_buffer,
-  GL_INTEL_parallel_arrays,
-  GL_INTEL_texture_scissor,
-  GL_MESA_resize_buffers,
-  GL_MESA_window_pos,
-  GL_NV_blend_square,
-  GL_NV_copy_depth_to_color,
-  GL_NV_depth_clamp,
-  GL_NV_evaluators,
-  GL_NV_fence,
-  GL_NV_float_buffer,
-  GL_NV_fog_distance,
-  GL_NV_fragment_program,
-  GL_NV_half_float,
-  GL_NV_light_max_exponent,
-  GL_NV_multisample_filter_hint,
-  GL_NV_occlusion_query,
-  GL_NV_packed_depth_stencil,
-  GL_NV_pixel_data_range,
-  GL_NV_point_sprite,
-  GL_NV_primitive_restart,
-  GL_NV_register_combiners,
-  GL_NV_register_combiners2,
-  GL_NV_texgen_emboss,
-  GL_NV_texgen_reflection,
-  GL_NV_texture_compression_vtc,
-  GL_NV_texture_env_combine4,
-  GL_NV_texture_expand_normal,
-  GL_NV_texture_rectangle,
-  GL_NV_texture_shader,
-  GL_NV_texture_shader2,
-  GL_NV_texture_shader3,
-  GL_NV_vertex_array_range,
-  GL_NV_vertex_array_range2,
-  GL_NV_vertex_program,
-  GL_NV_vertex_program1_1,
-  GL_NV_vertex_program2,
-  GL_NV_fragment_program_option,
-  GL_NV_fragment_program2,
-  GL_NV_vertex_program2_option,
-  GL_NV_vertex_program3,
-  GL_NV_depth_buffer_float,
-  GL_NV_fragment_program4,
-  GL_NV_framebuffer_multisample_coverage,
-  GL_NV_geometry_program4,
-  GL_NV_gpu_program4,
-  GL_NV_parameter_buffer_object,
-  GL_NV_transform_feedback,
-  GL_NV_vertex_program4,
-  GL_NV_conditional_render,
-  GL_NV_present_video,
-  GL_NV_explicit_multisample,
-  GL_NV_transform_feedback2,
-  GL_OML_interlace,
-  GL_OML_resample,
-  GL_OML_subsample,
-  GL_PGI_misc_hints,
-  GL_PGI_vertex_hints,
-  GL_REND_screen_coordinates,
-  GL_S3_s3tc,
-  GL_SGIS_detail_texture,
-  GL_SGIS_fog_function,
-  GL_SGIS_generate_mipmap,
-  GL_SGIS_multisample,
-  GL_SGIS_pixel_texture,
-  GL_SGIS_point_line_texgen,
-  GL_SGIS_point_parameters,
-  GL_SGIS_sharpen_texture,
-  GL_SGIS_texture4D,
-  GL_SGIS_texture_border_clamp,
-  GL_SGIS_texture_color_mask,
-  GL_SGIS_texture_edge_clamp,
-  GL_SGIS_texture_filter4,
-  GL_SGIS_texture_lod,
-  GL_SGIS_texture_select,
-  GL_SGIX_async,
-  GL_SGIX_async_histogram,
-  GL_SGIX_async_pixel,
-  GL_SGIX_blend_alpha_minmax,
-  GL_SGIX_calligraphic_fragment,
-  GL_SGIX_clipmap,
-  GL_SGIX_convolution_accuracy,
-  GL_SGIX_depth_pass_instrument,
-  GL_SGIX_depth_texture,
-  GL_SGIX_flush_raster,
-  GL_SGIX_fog_offset,
-  GL_SGIX_fog_scale,
-  GL_SGIX_fragment_lighting,
-  GL_SGIX_framezoom,
-  GL_SGIX_igloo_interface,
-  GL_SGIX_impact_pixel_texture,
-  GL_SGIX_instruments,
-  GL_SGIX_interlace,
-  GL_SGIX_ir_instrument1,
-  GL_SGIX_list_priority,
-  GL_SGIX_pixel_texture,
-  GL_SGIX_pixel_tiles,
-  GL_SGIX_polynomial_ffd,
-  GL_SGIX_reference_plane,
-  GL_SGIX_resample,
-  GL_SGIX_scalebias_hint,
-  GL_SGIX_shadow,
-  GL_SGIX_shadow_ambient,
-  GL_SGIX_sprite,
-  GL_SGIX_subsample,
-  GL_SGIX_tag_sample_buffer,
-  GL_SGIX_texture_add_env,
-  GL_SGIX_texture_coordinate_clamp,
-  GL_SGIX_texture_lod_bias,
-  GL_SGIX_texture_multi_buffer,
-  GL_SGIX_texture_scale_bias,
-  GL_SGIX_texture_select,
-  GL_SGIX_vertex_preclip,
-  GL_SGIX_ycrcb,
-  GL_SGIX_ycrcb_subsample,
-  GL_SGIX_ycrcba,
-  GL_SGI_color_matrix,
-  GL_SGI_color_table,
-  GL_SGI_depth_pass_instrument,
-  GL_SGI_texture_color_table,
-  GL_SUNX_constant_data,
-  GL_SUN_convolution_border_modes,
-  GL_SUN_global_alpha,
-  GL_SUN_mesh_array,
-  GL_SUN_slice_accum,
-  GL_SUN_triangle_list,
-  GL_SUN_vertex,
-
-  GL_WIN_phong_shading,
-  GL_WIN_specular_fog,
-  WGL_3DFX_multisample,
-  WGL_ARB_buffer_region,
-  WGL_ARB_extensions_string,
-  WGL_ARB_make_current_read,
-  WGL_ARB_multisample,
-  WGL_ARB_pbuffer,
-  WGL_ARB_pixel_format,
-  WGL_ARB_pixel_format_float,
-  WGL_ARB_render_texture,
-  WGL_ARB_create_context,
-  WGL_ARB_create_context_profile,
-  WGL_ATI_pixel_format_float,
-  WGL_AMD_gpu_association,
-  WGL_EXT_depth_float,
-  WGL_EXT_display_color_table,
-  WGL_EXT_extensions_string,
-  WGL_EXT_make_current_read,
-  WGL_EXT_multisample,
-  WGL_EXT_pbuffer,
-  WGL_EXT_pixel_format,
-  WGL_EXT_swap_control,
-  WGL_I3D_digital_video_control,
-  WGL_I3D_gamma,
-  WGL_I3D_genlock,
-  WGL_I3D_image_buffer,
-  WGL_I3D_swap_frame_lock,
-  WGL_I3D_swap_frame_usage,
-  WGL_NV_float_buffer,
-  WGL_NV_render_depth_texture,
-  WGL_NV_render_texture_rectangle,
-  WGL_NV_vertex_array_range,
-  WGL_NV_present_video,
-  WGL_NV_video_out,
-  WGL_NV_swap_group,
-  WGL_NV_gpu_affinity,
-  WGL_OML_sync_control,
-  WGL_3DL_stereo_control,
-  WIN_draw_range_elements,
-  WIN_swap_hint,
-  
-//  GLX_VERSION_1_0,
-  GLX_VERSION_1_3,
-  GLX_VERSION_1_4,
-  GLX_ARB_multisample,
-  GLX_ARB_fbconfig_float,
-  GLX_ARB_get_proc_address,
-  GLX_ARB_create_context,
-  GLX_ARB_create_context_profile,
-  GLX_EXT_visual_info,
-  GLX_EXT_visual_rating,
-  GLX_EXT_import_context,
-  GLX_EXT_fbconfig_packed_float,
-  GLX_EXT_framebuffer_sRGB,
-  GLX_EXT_texture_from_pixmap: Boolean;
-
-const
-  // GL_VERSION_1_1
-  { AttribMask }
-  GL_DEPTH_BUFFER_BIT = $00000100;
-  GL_STENCIL_BUFFER_BIT = $00000400;
-  GL_COLOR_BUFFER_BIT = $00004000;
-  { Boolean }
-  GL_TRUE = 1;
-  GL_FALSE = 0;
-  { BeginMode }
-  GL_POINTS = $0000;
-  GL_LINES = $0001;
-  GL_LINE_LOOP = $0002;
-  GL_LINE_STRIP = $0003;
-  GL_TRIANGLES = $0004;
-  GL_TRIANGLE_STRIP = $0005;
-  GL_TRIANGLE_FAN = $0006;
-  { AlphaFunction }
-  GL_NEVER = $0200;
-  GL_LESS = $0201;
-  GL_EQUAL = $0202;
-  GL_LEQUAL = $0203;
-  GL_GREATER = $0204;
-  GL_NOTEQUAL = $0205;
-  GL_GEQUAL = $0206;
-  GL_ALWAYS = $0207;
-  { BlendingFactorDest }
-  GL_ZERO = 0;
-  GL_ONE = 1;
-  GL_SRC_COLOR = $0300;
-  GL_ONE_MINUS_SRC_COLOR = $0301;
-  GL_SRC_ALPHA = $0302;
-  GL_ONE_MINUS_SRC_ALPHA = $0303;
-  GL_DST_ALPHA = $0304;
-  GL_ONE_MINUS_DST_ALPHA = $0305;
-  { BlendingFactorSrc }
-  GL_DST_COLOR = $0306;
-  GL_ONE_MINUS_DST_COLOR = $0307;
-  GL_SRC_ALPHA_SATURATE = $0308;
-  { DrawBufferMode }
-  GL_NONE = 0;
-  GL_FRONT_LEFT = $0400;
-  GL_FRONT_RIGHT = $0401;
-  GL_BACK_LEFT = $0402;
-  GL_BACK_RIGHT = $0403;
-  GL_FRONT = $0404;
-  GL_BACK = $0405;
-  GL_LEFT = $0406;
-  GL_RIGHT = $0407;
-  GL_FRONT_AND_BACK = $0408;
-  { ErrorCode }
-  GL_NO_ERROR = 0;
-  GL_INVALID_ENUM = $0500;
-  GL_INVALID_VALUE = $0501;
-  GL_INVALID_OPERATION = $0502;
-  GL_OUT_OF_MEMORY = $0505;
-  { FrontFaceDirection }
-  GL_CW = $0900;
-  GL_CCW = $0901;
-  { GetPName }
-  GL_POINT_SIZE = $0B11;
-  GL_POINT_SIZE_RANGE = $0B12;
-  GL_POINT_SIZE_GRANULARITY = $0B13;
-  GL_LINE_SMOOTH = $0B20;
-  GL_LINE_WIDTH = $0B21;
-  GL_LINE_WIDTH_RANGE = $0B22;
-  GL_LINE_WIDTH_GRANULARITY = $0B23;
-  GL_POLYGON_SMOOTH = $0B41;
-  GL_CULL_FACE = $0B44;
-  GL_CULL_FACE_MODE = $0B45;
-  GL_FRONT_FACE = $0B46;
-  GL_DEPTH_RANGE = $0B70;
-  GL_DEPTH_TEST = $0B71;
-  GL_DEPTH_WRITEMASK = $0B72;
-  GL_DEPTH_CLEAR_VALUE = $0B73;
-  GL_DEPTH_FUNC = $0B74;
-  GL_STENCIL_TEST = $0B90;
-  GL_STENCIL_CLEAR_VALUE = $0B91;
-  GL_STENCIL_FUNC = $0B92;
-  GL_STENCIL_VALUE_MASK = $0B93;
-  GL_STENCIL_FAIL = $0B94;
-  GL_STENCIL_PASS_DEPTH_FAIL = $0B95;
-  GL_STENCIL_PASS_DEPTH_PASS = $0B96;
-  GL_STENCIL_REF = $0B97;
-  GL_STENCIL_WRITEMASK = $0B98;
-  GL_VIEWPORT = $0BA2;
-  GL_DITHER = $0BD0;
-  GL_BLEND_DST = $0BE0;
-  GL_BLEND_SRC = $0BE1;
-  GL_BLEND = $0BE2;
-  GL_LOGIC_OP_MODE = $0BF0;
-  GL_COLOR_LOGIC_OP = $0BF2;
-  GL_DRAW_BUFFER = $0C01;
-  GL_READ_BUFFER = $0C02;
-  GL_SCISSOR_BOX = $0C10;
-  GL_SCISSOR_TEST = $0C11;
-  GL_COLOR_CLEAR_VALUE = $0C22;
-  GL_COLOR_WRITEMASK = $0C23;
-  GL_DOUBLEBUFFER = $0C32;
-  GL_STEREO = $0C33;
-  GL_LINE_SMOOTH_HINT = $0C52;
-  GL_POLYGON_SMOOTH_HINT = $0C53;
-  GL_UNPACK_SWAP_BYTES = $0CF0;
-  GL_UNPACK_LSB_FIRST = $0CF1;
-  GL_UNPACK_ROW_LENGTH = $0CF2;
-  GL_UNPACK_SKIP_ROWS = $0CF3;
-  GL_UNPACK_SKIP_PIXELS = $0CF4;
-  GL_UNPACK_ALIGNMENT = $0CF5;
-  GL_PACK_SWAP_BYTES = $0D00;
-  GL_PACK_LSB_FIRST = $0D01;
-  GL_PACK_ROW_LENGTH = $0D02;
-  GL_PACK_SKIP_ROWS = $0D03;
-  GL_PACK_SKIP_PIXELS = $0D04;
-  GL_PACK_ALIGNMENT = $0D05;
-  GL_MAX_TEXTURE_SIZE = $0D33;
-  GL_MAX_VIEWPORT_DIMS = $0D3A;
-  GL_SUBPIXEL_BITS = $0D50;
-  GL_TEXTURE_1D = $0DE0;
-  GL_TEXTURE_2D = $0DE1;
-  GL_POLYGON_OFFSET_UNITS = $2A00;
-  GL_POLYGON_OFFSET_POINT = $2A01;
-  GL_POLYGON_OFFSET_LINE = $2A02;
-  GL_POLYGON_OFFSET_FILL = $8037;
-  GL_POLYGON_OFFSET_FACTOR = $8038;
-  GL_TEXTURE_BINDING_1D = $8068;
-  GL_TEXTURE_BINDING_2D = $8069;
-  { GetTextureParameter }
-  GL_TEXTURE_WIDTH = $1000;
-  GL_TEXTURE_HEIGHT = $1001;
-  GL_TEXTURE_INTERNAL_FORMAT = $1003;
-  GL_TEXTURE_BORDER_COLOR = $1004;
-  GL_TEXTURE_BORDER = $1005;
-  GL_TEXTURE_RED_SIZE = $805C;
-  GL_TEXTURE_GREEN_SIZE = $805D;
-  GL_TEXTURE_BLUE_SIZE = $805E;
-  GL_TEXTURE_ALPHA_SIZE = $805F;
-  { HintMode }
-  GL_DONT_CARE = $1100;
-  GL_FASTEST = $1101;
-  GL_NICEST = $1102;
-  { DataType }
-  GL_BYTE = $1400;
-  GL_UNSIGNED_BYTE = $1401;
-  GL_SHORT = $1402;
-  GL_UNSIGNED_SHORT = $1403;
-  GL_INT = $1404;
-  GL_UNSIGNED_INT = $1405;
-  GL_FLOAT = $1406;
-  GL_DOUBLE = $140A;
-  { LogicOp }
-  GL_CLEAR = $1500;
-  GL_AND = $1501;
-  GL_AND_REVERSE = $1502;
-  GL_COPY = $1503;
-  GL_AND_INVERTED = $1504;
-  GL_NOOP = $1505;
-  GL_XOR = $1506;
-  GL_OR = $1507;
-  GL_NOR = $1508;
-  GL_EQUIV = $1509;
-  GL_INVERT = $150A;
-  GL_OR_REVERSE = $150B;
-  GL_COPY_INVERTED = $150C;
-  GL_OR_INVERTED = $150D;
-  GL_NAND = $150E;
-  GL_SET = $150F;
-  { MatrixMode (for gl3.h, FBO attachment type) }
-  GL_TEXTURE = $1702;
-  { PixelCopyType }
-  GL_COLOR = $1800;
-  GL_DEPTH = $1801;
-  GL_STENCIL = $1802;
-  { PixelFormat }
-  GL_STENCIL_INDEX = $1901;
-  GL_DEPTH_COMPONENT = $1902;
-  GL_RED = $1903;
-  GL_GREEN = $1904;
-  GL_BLUE = $1905;
-  GL_ALPHA = $1906;
-  GL_RGB = $1907;
-  GL_RGBA = $1908;
-  { PolygonMode }
-  GL_POINT = $1B00;
-  GL_LINE = $1B01;
-  GL_FILL = $1B02;
-  { StencilOp }
-  GL_KEEP = $1E00;
-  GL_REPLACE = $1E01;
-  GL_INCR = $1E02;
-  GL_DECR = $1E03;
-  { StringName }
-  GL_VENDOR = $1F00;
-  GL_RENDERER = $1F01;
-  GL_VERSION = $1F02;
-  GL_EXTENSIONS = $1F03;
-  { TextureMagFilter }
-  GL_NEAREST = $2600;
-  GL_LINEAR = $2601;
-  { TextureMinFilter }
-  GL_NEAREST_MIPMAP_NEAREST = $2700;
-  GL_LINEAR_MIPMAP_NEAREST = $2701;
-  GL_NEAREST_MIPMAP_LINEAR = $2702;
-  GL_LINEAR_MIPMAP_LINEAR = $2703;
-  { TextureParameterName }
-  GL_TEXTURE_MAG_FILTER = $2800;
-  GL_TEXTURE_MIN_FILTER = $2801;
-  GL_TEXTURE_WRAP_S = $2802;
-  GL_TEXTURE_WRAP_T = $2803;
-  { TextureTarget }
-  GL_PROXY_TEXTURE_1D = $8063;
-  GL_PROXY_TEXTURE_2D = $8064;
-  { TextureWrapMode }
-  GL_REPEAT = $2901;
-  { PixelInternalFormat }
-  GL_R3_G3_B2 = $2A10;
-  GL_RGB4 = $804F;
-  GL_RGB5 = $8050;
-  GL_RGB8 = $8051;
-  GL_RGB10 = $8052;
-  GL_RGB12 = $8053;
-  GL_RGB16 = $8054;
-  GL_RGBA2 = $8055;
-  GL_RGBA4 = $8056;
-  GL_RGB5_A1 = $8057;
-  GL_RGBA8 = $8058;
-  GL_RGB10_A2 = $8059;
-  GL_RGBA12 = $805A;
-  GL_RGBA16 = $805B;
-{$ifdef DGL_DEPRECATED}
-  GL_ACCUM = $0100;
-  GL_LOAD = $0101;
-  GL_RETURN = $0102;
-  GL_MULT = $0103;
-  GL_ADD = $0104;
-  GL_CURRENT_BIT = $00000001;
-  GL_POINT_BIT = $00000002;
-  GL_LINE_BIT = $00000004;
-  GL_POLYGON_BIT = $00000008;
-  GL_POLYGON_STIPPLE_BIT = $00000010;
-  GL_PIXEL_MODE_BIT = $00000020;
-  GL_LIGHTING_BIT = $00000040;
-  GL_FOG_BIT = $00000080;
-  GL_ACCUM_BUFFER_BIT = $00000200;
-  GL_VIEWPORT_BIT = $00000800;
-  GL_TRANSFORM_BIT = $00001000;
-  GL_ENABLE_BIT = $00002000;
-  GL_HINT_BIT = $00008000;
-  GL_EVAL_BIT = $00010000;
-  GL_LIST_BIT = $00020000;
-  GL_TEXTURE_BIT = $00040000;
-  GL_SCISSOR_BIT = $00080000;
-  GL_ALL_ATTRIB_BITS = $000FFFFF;
-  GL_QUADS = $0007;
-  GL_QUAD_STRIP = $0008;
-  GL_POLYGON = $0009;
-  GL_CLIP_PLANE0 = $3000;
-  GL_CLIP_PLANE1 = $3001;
-  GL_CLIP_PLANE2 = $3002;
-  GL_CLIP_PLANE3 = $3003;
-  GL_CLIP_PLANE4 = $3004;
-  GL_CLIP_PLANE5 = $3005;
-  GL_2_BYTES = $1407;
-  GL_3_BYTES = $1408;
-  GL_4_BYTES = $1409;
-  GL_AUX0 = $0409;
-  GL_AUX1 = $040A;
-  GL_AUX2 = $040B;
-  GL_AUX3 = $040C;
-  GL_STACK_OVERFLOW = $0503;
-  GL_STACK_UNDERFLOW = $0504;
-  GL_2D = $0600;
-  GL_3D = $0601;
-  GL_3D_COLOR = $0602;
-  GL_3D_COLOR_TEXTURE = $0603;
-  GL_4D_COLOR_TEXTURE = $0604;
-  GL_PASS_THROUGH_TOKEN = $0700;
-  GL_POINT_TOKEN = $0701;
-  GL_LINE_TOKEN = $0702;
-  GL_POLYGON_TOKEN = $0703;
-  GL_BITMAP_TOKEN = $0704;
-  GL_DRAW_PIXEL_TOKEN = $0705;
-  GL_COPY_PIXEL_TOKEN = $0706;
-  GL_LINE_RESET_TOKEN = $0707;
-  GL_EXP = $0800;
-  GL_EXP2 = $0801;
-  GL_COEFF = $0A00;
-  GL_ORDER = $0A01;
-  GL_DOMAIN = $0A02;
-  GL_CURRENT_COLOR = $0B00;
-  GL_CURRENT_INDEX = $0B01;
-  GL_CURRENT_NORMAL = $0B02;
-  GL_CURRENT_TEXTURE_COORDS = $0B03;
-  GL_CURRENT_RASTER_COLOR = $0B04;
-  GL_CURRENT_RASTER_INDEX = $0B05;
-  GL_CURRENT_RASTER_TEXTURE_COORDS = $0B06;
-  GL_CURRENT_RASTER_POSITION = $0B07;
-  GL_CURRENT_RASTER_POSITION_VALID = $0B08;
-  GL_CURRENT_RASTER_DISTANCE = $0B09;
-  GL_POINT_SMOOTH = $0B10;
-  GL_LINE_STIPPLE = $0B24;
-  GL_LINE_STIPPLE_PATTERN = $0B25;
-  GL_LINE_STIPPLE_REPEAT = $0B26;
-  GL_LIST_MODE = $0B30;
-  GL_MAX_LIST_NESTING = $0B31;
-  GL_LIST_BASE = $0B32;
-  GL_LIST_INDEX = $0B33;
-  GL_POLYGON_MODE = $0B40;
-  GL_POLYGON_STIPPLE = $0B42;
-  GL_EDGE_FLAG = $0B43;
-  GL_LIGHTING = $0B50;
-  GL_LIGHT_MODEL_LOCAL_VIEWER = $0B51;
-  GL_LIGHT_MODEL_TWO_SIDE = $0B52;
-  GL_LIGHT_MODEL_AMBIENT = $0B53;
-  GL_SHADE_MODEL = $0B54;
-  GL_COLOR_MATERIAL_FACE = $0B55;
-  GL_COLOR_MATERIAL_PARAMETER = $0B56;
-  GL_COLOR_MATERIAL = $0B57;
-  GL_FOG = $0B60;
-  GL_FOG_INDEX = $0B61;
-  GL_FOG_DENSITY = $0B62;
-  GL_FOG_START = $0B63;
-  GL_FOG_END = $0B64;
-  GL_FOG_MODE = $0B65;
-  GL_FOG_COLOR = $0B66;
-  GL_ACCUM_CLEAR_VALUE = $0B80;
-  GL_MATRIX_MODE = $0BA0;
-  GL_NORMALIZE = $0BA1;
-  GL_MODELVIEW_STACK_DEPTH = $0BA3;
-  GL_PROJECTION_STACK_DEPTH = $0BA4;
-  GL_TEXTURE_STACK_DEPTH = $0BA5;
-  GL_MODELVIEW_MATRIX = $0BA6;
-  GL_PROJECTION_MATRIX = $0BA7;
-  GL_TEXTURE_MATRIX = $0BA8;
-  GL_ATTRIB_STACK_DEPTH = $0BB0;
-  GL_CLIENT_ATTRIB_STACK_DEPTH = $0BB1;
-  GL_ALPHA_TEST = $0BC0;
-  GL_ALPHA_TEST_FUNC = $0BC1;
-  GL_ALPHA_TEST_REF = $0BC2;
-  GL_INDEX_LOGIC_OP = $0BF1;
-  GL_AUX_BUFFERS = $0C00;
-  GL_INDEX_CLEAR_VALUE = $0C20;
-  GL_INDEX_WRITEMASK = $0C21;
-  GL_INDEX_MODE = $0C30;
-  GL_RGBA_MODE = $0C31;
-  GL_RENDER_MODE = $0C40;
-  GL_PERSPECTIVE_CORRECTION_HINT = $0C50;
-  GL_POINT_SMOOTH_HINT = $0C51;
-  GL_FOG_HINT = $0C54;
-  GL_TEXTURE_GEN_S = $0C60;
-  GL_TEXTURE_GEN_T = $0C61;
-  GL_TEXTURE_GEN_R = $0C62;
-  GL_TEXTURE_GEN_Q = $0C63;
-  GL_PIXEL_MAP_I_TO_I = $0C70;
-  GL_PIXEL_MAP_S_TO_S = $0C71;
-  GL_PIXEL_MAP_I_TO_R = $0C72;
-  GL_PIXEL_MAP_I_TO_G = $0C73;
-  GL_PIXEL_MAP_I_TO_B = $0C74;
-  GL_PIXEL_MAP_I_TO_A = $0C75;
-  GL_PIXEL_MAP_R_TO_R = $0C76;
-  GL_PIXEL_MAP_G_TO_G = $0C77;
-  GL_PIXEL_MAP_B_TO_B = $0C78;
-  GL_PIXEL_MAP_A_TO_A = $0C79;
-  GL_PIXEL_MAP_I_TO_I_SIZE = $0CB0;
-  GL_PIXEL_MAP_S_TO_S_SIZE = $0CB1;
-  GL_PIXEL_MAP_I_TO_R_SIZE = $0CB2;
-  GL_PIXEL_MAP_I_TO_G_SIZE = $0CB3;
-  GL_PIXEL_MAP_I_TO_B_SIZE = $0CB4;
-  GL_PIXEL_MAP_I_TO_A_SIZE = $0CB5;
-  GL_PIXEL_MAP_R_TO_R_SIZE = $0CB6;
-  GL_PIXEL_MAP_G_TO_G_SIZE = $0CB7;
-  GL_PIXEL_MAP_B_TO_B_SIZE = $0CB8;
-  GL_PIXEL_MAP_A_TO_A_SIZE = $0CB9;
-  GL_MAP_COLOR = $0D10;
-  GL_MAP_STENCIL = $0D11;
-  GL_INDEX_SHIFT = $0D12;
-  GL_INDEX_OFFSET = $0D13;
-  GL_RED_SCALE = $0D14;
-  GL_RED_BIAS = $0D15;
-  GL_ZOOM_X = $0D16;
-  GL_ZOOM_Y = $0D17;
-  GL_GREEN_SCALE = $0D18;
-  GL_GREEN_BIAS = $0D19;
-  GL_BLUE_SCALE = $0D1A;
-  GL_BLUE_BIAS = $0D1B;
-  GL_ALPHA_SCALE = $0D1C;
-  GL_ALPHA_BIAS = $0D1D;
-  GL_DEPTH_SCALE = $0D1E;
-  GL_DEPTH_BIAS = $0D1F;
-  GL_MAX_EVAL_ORDER = $0D30;
-  GL_MAX_LIGHTS = $0D31;
-  GL_MAX_CLIP_PLANES = $0D32;
-  GL_MAX_PIXEL_MAP_TABLE = $0D34;
-  GL_MAX_ATTRIB_STACK_DEPTH = $0D35;
-  GL_MAX_MODELVIEW_STACK_DEPTH = $0D36;
-  GL_MAX_NAME_STACK_DEPTH = $0D37;
-  GL_MAX_PROJECTION_STACK_DEPTH = $0D38;
-  GL_MAX_TEXTURE_STACK_DEPTH = $0D39;
-  GL_MAX_CLIENT_ATTRIB_STACK_DEPTH = $0D3B;
-  GL_INDEX_BITS = $0D51;
-  GL_RED_BITS = $0D52;
-  GL_GREEN_BITS = $0D53;
-  GL_BLUE_BITS = $0D54;
-  GL_ALPHA_BITS = $0D55;
-  GL_DEPTH_BITS = $0D56;
-  GL_STENCIL_BITS = $0D57;
-  GL_ACCUM_RED_BITS = $0D58;
-  GL_ACCUM_GREEN_BITS = $0D59;
-  GL_ACCUM_BLUE_BITS = $0D5A;
-  GL_ACCUM_ALPHA_BITS = $0D5B;
-  GL_NAME_STACK_DEPTH = $0D70;
-  GL_AUTO_NORMAL = $0D80;
-  GL_MAP1_COLOR_4 = $0D90;
-  GL_MAP1_INDEX = $0D91;
-  GL_MAP1_NORMAL = $0D92;
-  GL_MAP1_TEXTURE_COORD_1 = $0D93;
-  GL_MAP1_TEXTURE_COORD_2 = $0D94;
-  GL_MAP1_TEXTURE_COORD_3 = $0D95;
-  GL_MAP1_TEXTURE_COORD_4 = $0D96;
-  GL_MAP1_VERTEX_3 = $0D97;
-  GL_MAP1_VERTEX_4 = $0D98;
-  GL_MAP2_COLOR_4 = $0DB0;
-  GL_MAP2_INDEX = $0DB1;
-  GL_MAP2_NORMAL = $0DB2;
-  GL_MAP2_TEXTURE_COORD_1 = $0DB3;
-  GL_MAP2_TEXTURE_COORD_2 = $0DB4;
-  GL_MAP2_TEXTURE_COORD_3 = $0DB5;
-  GL_MAP2_TEXTURE_COORD_4 = $0DB6;
-  GL_MAP2_VERTEX_3 = $0DB7;
-  GL_MAP2_VERTEX_4 = $0DB8;
-  GL_MAP1_GRID_DOMAIN = $0DD0;
-  GL_MAP1_GRID_SEGMENTS = $0DD1;
-  GL_MAP2_GRID_DOMAIN = $0DD2;
-  GL_MAP2_GRID_SEGMENTS = $0DD3;
-  GL_FEEDBACK_BUFFER_POINTER = $0DF0;
-  GL_FEEDBACK_BUFFER_SIZE = $0DF1;
-  GL_FEEDBACK_BUFFER_TYPE = $0DF2;
-  GL_SELECTION_BUFFER_POINTER = $0DF3;
-  GL_SELECTION_BUFFER_SIZE = $0DF4;
-  GL_LIGHT0 = $4000;
-  GL_LIGHT1 = $4001;
-  GL_LIGHT2 = $4002;
-  GL_LIGHT3 = $4003;
-  GL_LIGHT4 = $4004;
-  GL_LIGHT5 = $4005;
-  GL_LIGHT6 = $4006;
-  GL_LIGHT7 = $4007;
-  GL_AMBIENT = $1200;
-  GL_DIFFUSE = $1201;
-  GL_SPECULAR = $1202;
-  GL_POSITION = $1203;
-  GL_SPOT_DIRECTION = $1204;
-  GL_SPOT_EXPONENT = $1205;
-  GL_SPOT_CUTOFF = $1206;
-  GL_CONSTANT_ATTENUATION = $1207;
-  GL_LINEAR_ATTENUATION = $1208;
-  GL_QUADRATIC_ATTENUATION = $1209;
-  GL_COMPILE = $1300;
-  GL_COMPILE_AND_EXECUTE = $1301;
-  GL_EMISSION = $1600;
-  GL_SHININESS = $1601;
-  GL_AMBIENT_AND_DIFFUSE = $1602;
-  GL_COLOR_INDEXES = $1603;
-  GL_MODELVIEW = $1700;
-  GL_PROJECTION = $1701;
-  GL_COLOR_INDEX = $1900;
-  GL_LUMINANCE = $1909;
-  GL_LUMINANCE_ALPHA = $190A;
-  GL_BITMAP = $1A00;
-  GL_RENDER = $1C00;
-  GL_FEEDBACK = $1C01;
-  GL_SELECT = $1C02;
-  GL_FLAT = $1D00;
-  GL_SMOOTH = $1D01;
-  GL_S = $2000;
-  GL_T = $2001;
-  GL_R = $2002;
-  GL_Q = $2003;
-  GL_MODULATE = $2100;
-  GL_DECAL = $2101;
-  GL_TEXTURE_ENV_MODE = $2200;
-  GL_TEXTURE_ENV_COLOR = $2201;
-  GL_TEXTURE_ENV = $2300;
-  GL_EYE_LINEAR = $2400;
-  GL_OBJECT_LINEAR = $2401;
-  GL_SPHERE_MAP = $2402;
-  GL_TEXTURE_GEN_MODE = $2500;
-  GL_OBJECT_PLANE = $2501;
-  GL_EYE_PLANE = $2502;
-  GL_CLAMP = $2900;
-  GL_CLIENT_PIXEL_STORE_BIT = $00000001;
-  GL_CLIENT_VERTEX_ARRAY_BIT = $00000002;
-  GL_CLIENT_ALL_ATTRIB_BITS = $FFFFFFFF;
-  GL_ALPHA4 = $803B;
-  GL_ALPHA8 = $803C;
-  GL_ALPHA12 = $803D;
-  GL_ALPHA16 = $803E;
-  GL_LUMINANCE4 = $803F;
-  GL_LUMINANCE8 = $8040;
-  GL_LUMINANCE12 = $8041;
-  GL_LUMINANCE16 = $8042;
-  GL_LUMINANCE4_ALPHA4 = $8043;
-  GL_LUMINANCE6_ALPHA2 = $8044;
-  GL_LUMINANCE8_ALPHA8 = $8045;
-  GL_LUMINANCE12_ALPHA4 = $8046;
-  GL_LUMINANCE12_ALPHA12 = $8047;
-  GL_LUMINANCE16_ALPHA16 = $8048;
-  GL_INTENSITY = $8049;
-  GL_INTENSITY4 = $804A;
-  GL_INTENSITY8 = $804B;
-  GL_INTENSITY12 = $804C;
-  GL_INTENSITY16 = $804D;
-  GL_TEXTURE_LUMINANCE_SIZE = $8060;
-  GL_TEXTURE_INTENSITY_SIZE = $8061;
-  GL_TEXTURE_PRIORITY = $8066;
-  GL_TEXTURE_RESIDENT = $8067;
-  GL_VERTEX_ARRAY = $8074;
-  GL_NORMAL_ARRAY = $8075;
-  GL_COLOR_ARRAY = $8076;
-  GL_INDEX_ARRAY = $8077;
-  GL_TEXTURE_COORD_ARRAY = $8078;
-  GL_EDGE_FLAG_ARRAY = $8079;
-  GL_VERTEX_ARRAY_SIZE = $807A;
-  GL_VERTEX_ARRAY_TYPE = $807B;
-  GL_VERTEX_ARRAY_STRIDE = $807C;
-  GL_NORMAL_ARRAY_TYPE = $807E;
-  GL_NORMAL_ARRAY_STRIDE = $807F;
-  GL_COLOR_ARRAY_SIZE = $8081;
-  GL_COLOR_ARRAY_TYPE = $8082;
-  GL_COLOR_ARRAY_STRIDE = $8083;
-  GL_INDEX_ARRAY_TYPE = $8085;
-  GL_INDEX_ARRAY_STRIDE = $8086;
-  GL_TEXTURE_COORD_ARRAY_SIZE = $8088;
-  GL_TEXTURE_COORD_ARRAY_TYPE = $8089;
-  GL_TEXTURE_COORD_ARRAY_STRIDE = $808A;
-  GL_EDGE_FLAG_ARRAY_STRIDE = $808C;
-  GL_VERTEX_ARRAY_POINTER = $808E;
-  GL_NORMAL_ARRAY_POINTER = $808F;
-  GL_COLOR_ARRAY_POINTER = $8090;
-  GL_INDEX_ARRAY_POINTER = $8091;
-  GL_TEXTURE_COORD_ARRAY_POINTER = $8092;
-  GL_EDGE_FLAG_ARRAY_POINTER = $8093;
-  GL_V2F = $2A20;
-  GL_V3F = $2A21;
-  GL_C4UB_V2F = $2A22;
-  GL_C4UB_V3F = $2A23;
-  GL_C3F_V3F = $2A24;
-  GL_N3F_V3F = $2A25;
-  GL_C4F_N3F_V3F = $2A26;
-  GL_T2F_V3F = $2A27;
-  GL_T4F_V4F = $2A28;
-  GL_T2F_C4UB_V3F = $2A29;
-  GL_T2F_C3F_V3F = $2A2A;
-  GL_T2F_N3F_V3F = $2A2B;
-  GL_T2F_C4F_N3F_V3F = $2A2C;
-  GL_T4F_C4F_N3F_V4F = $2A2D;
-  GL_COLOR_TABLE_FORMAT_EXT = $80D8;
-  GL_COLOR_TABLE_WIDTH_EXT = $80D9;
-  GL_COLOR_TABLE_RED_SIZE_EXT = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE_EXT = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE_EXT = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE_EXT = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
-  GL_LOGIC_OP = GL_INDEX_LOGIC_OP;
-  GL_TEXTURE_COMPONENTS = GL_TEXTURE_INTERNAL_FORMAT;
-{$endif}
-
-  // GL_VERSION_1_2
-  GL_UNSIGNED_BYTE_3_3_2 = $8032;
-  GL_UNSIGNED_SHORT_4_4_4_4 = $8033;
-  GL_UNSIGNED_SHORT_5_5_5_1 = $8034;
-  GL_UNSIGNED_INT_8_8_8_8 = $8035;
-  GL_UNSIGNED_INT_10_10_10_2 = $8036;
-  GL_TEXTURE_BINDING_3D = $806A;
-  GL_PACK_SKIP_IMAGES = $806B;
-  GL_PACK_IMAGE_HEIGHT = $806C;
-  GL_UNPACK_SKIP_IMAGES = $806D;
-  GL_UNPACK_IMAGE_HEIGHT = $806E;
-  GL_TEXTURE_3D = $806F;
-  GL_PROXY_TEXTURE_3D = $8070;
-  GL_TEXTURE_DEPTH = $8071;
-  GL_TEXTURE_WRAP_R = $8072;
-  GL_MAX_3D_TEXTURE_SIZE = $8073;
-  GL_UNSIGNED_BYTE_2_3_3_REV = $8362;
-  GL_UNSIGNED_SHORT_5_6_5 = $8363;
-  GL_UNSIGNED_SHORT_5_6_5_REV = $8364;
-  GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;
-  GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;
-  GL_UNSIGNED_INT_8_8_8_8_REV = $8367;
-  GL_UNSIGNED_INT_2_10_10_10_REV = $8368;
-  GL_BGR = $80E0;
-  GL_BGRA = $80E1;
-  GL_MAX_ELEMENTS_VERTICES = $80E8;
-  GL_MAX_ELEMENTS_INDICES = $80E9;
-  GL_CLAMP_TO_EDGE = $812F;
-  GL_TEXTURE_MIN_LOD = $813A;
-  GL_TEXTURE_MAX_LOD = $813B;
-  GL_TEXTURE_BASE_LEVEL = $813C;
-  GL_TEXTURE_MAX_LEVEL = $813D;
-  GL_SMOOTH_POINT_SIZE_RANGE = $0B12;
-  GL_SMOOTH_POINT_SIZE_GRANULARITY = $0B13;
-  GL_SMOOTH_LINE_WIDTH_RANGE = $0B22;
-  GL_SMOOTH_LINE_WIDTH_GRANULARITY = $0B23;
-  GL_ALIASED_LINE_WIDTH_RANGE = $846E;
-{$ifdef DGL_DEPRECATED}
-  GL_RESCALE_NORMAL = $803A;
-  GL_LIGHT_MODEL_COLOR_CONTROL = $81F8;
-  GL_SINGLE_COLOR = $81F9;
-  GL_SEPARATE_SPECULAR_COLOR = $81FA;
-  GL_ALIASED_POINT_SIZE_RANGE = $846D;
-{$endif}
-
-  // GL_VERSION_1_3
-  GL_TEXTURE0 = $84C0;
-  GL_TEXTURE1 = $84C1;
-  GL_TEXTURE2 = $84C2;
-  GL_TEXTURE3 = $84C3;
-  GL_TEXTURE4 = $84C4;
-  GL_TEXTURE5 = $84C5;
-  GL_TEXTURE6 = $84C6;
-  GL_TEXTURE7 = $84C7;
-  GL_TEXTURE8 = $84C8;
-  GL_TEXTURE9 = $84C9;
-  GL_TEXTURE10 = $84CA;
-  GL_TEXTURE11 = $84CB;
-  GL_TEXTURE12 = $84CC;
-  GL_TEXTURE13 = $84CD;
-  GL_TEXTURE14 = $84CE;
-  GL_TEXTURE15 = $84CF;
-  GL_TEXTURE16 = $84D0;
-  GL_TEXTURE17 = $84D1;
-  GL_TEXTURE18 = $84D2;
-  GL_TEXTURE19 = $84D3;
-  GL_TEXTURE20 = $84D4;
-  GL_TEXTURE21 = $84D5;
-  GL_TEXTURE22 = $84D6;
-  GL_TEXTURE23 = $84D7;
-  GL_TEXTURE24 = $84D8;
-  GL_TEXTURE25 = $84D9;
-  GL_TEXTURE26 = $84DA;
-  GL_TEXTURE27 = $84DB;
-  GL_TEXTURE28 = $84DC;
-  GL_TEXTURE29 = $84DD;
-  GL_TEXTURE30 = $84DE;
-  GL_TEXTURE31 = $84DF;
-  GL_ACTIVE_TEXTURE = $84E0;
-  GL_MULTISAMPLE = $809D;
-  GL_SAMPLE_ALPHA_TO_COVERAGE = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE = $809F;
-  GL_SAMPLE_COVERAGE = $80A0;
-  GL_SAMPLE_BUFFERS = $80A8;
-  GL_SAMPLES = $80A9;
-  GL_SAMPLE_COVERAGE_VALUE = $80AA;
-  GL_SAMPLE_COVERAGE_INVERT = $80AB;
-  GL_TEXTURE_CUBE_MAP = $8513;
-  GL_TEXTURE_BINDING_CUBE_MAP = $8514;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_X = $8515;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X = $8516;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y = $8517;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = $8518;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z = $8519;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = $851A;
-  GL_PROXY_TEXTURE_CUBE_MAP = $851B;
-  GL_MAX_CUBE_MAP_TEXTURE_SIZE = $851C;
-  GL_COMPRESSED_RGB = $84ED;
-  GL_COMPRESSED_RGBA = $84EE;
-  GL_TEXTURE_COMPRESSION_HINT = $84EF;
-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE = $86A0;
-  GL_TEXTURE_COMPRESSED = $86A1;
-  GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2;
-  GL_COMPRESSED_TEXTURE_FORMATS = $86A3;
-  GL_CLAMP_TO_BORDER = $812D;
-{$ifdef DGL_DEPRECATED}
-  GL_CLIENT_ACTIVE_TEXTURE = $84E1;
-  GL_MAX_TEXTURE_UNITS = $84E2;
-  GL_TRANSPOSE_MODELVIEW_MATRIX = $84E3;
-  GL_TRANSPOSE_PROJECTION_MATRIX = $84E4;
-  GL_TRANSPOSE_TEXTURE_MATRIX = $84E5;
-  GL_TRANSPOSE_COLOR_MATRIX = $84E6;
-  GL_MULTISAMPLE_BIT = $20000000;
-  GL_NORMAL_MAP = $8511;
-  GL_REFLECTION_MAP = $8512;
-  GL_COMPRESSED_ALPHA = $84E9;
-  GL_COMPRESSED_LUMINANCE = $84EA;
-  GL_COMPRESSED_LUMINANCE_ALPHA = $84EB;
-  GL_COMPRESSED_INTENSITY = $84EC;
-  GL_COMBINE = $8570;
-  GL_COMBINE_RGB = $8571;
-  GL_COMBINE_ALPHA = $8572;
-  GL_SOURCE0_RGB = $8580;
-  GL_SOURCE1_RGB = $8581;
-  GL_SOURCE2_RGB = $8582;
-  GL_SOURCE0_ALPHA = $8588;
-  GL_SOURCE1_ALPHA = $8589;
-  GL_SOURCE2_ALPHA = $858A;
-  GL_OPERAND0_RGB = $8590;
-  GL_OPERAND1_RGB = $8591;
-  GL_OPERAND2_RGB = $8592;
-  GL_OPERAND0_ALPHA = $8598;
-  GL_OPERAND1_ALPHA = $8599;
-  GL_OPERAND2_ALPHA = $859A;
-  GL_RGB_SCALE = $8573;
-  GL_ADD_SIGNED = $8574;
-  GL_INTERPOLATE = $8575;
-  GL_SUBTRACT = $84E7;
-  GL_CONSTANT = $8576;
-  GL_PRIMARY_COLOR = $8577;
-  GL_PREVIOUS = $8578;
-  GL_DOT3_RGB = $86AE;
-  GL_DOT3_RGBA = $86AF;
-{$endif}
-
-  // GL_VERSION_1_4
-  GL_BLEND_DST_RGB = $80C8;
-  GL_BLEND_SRC_RGB = $80C9;
-  GL_BLEND_DST_ALPHA = $80CA;
-  GL_BLEND_SRC_ALPHA = $80CB;
-  GL_POINT_FADE_THRESHOLD_SIZE = $8128;
-  GL_DEPTH_COMPONENT16 = $81A5;
-  GL_DEPTH_COMPONENT24 = $81A6;
-  GL_DEPTH_COMPONENT32 = $81A7;
-  GL_MIRRORED_REPEAT = $8370;
-  GL_MAX_TEXTURE_LOD_BIAS = $84FD;
-  GL_TEXTURE_LOD_BIAS = $8501;
-  GL_INCR_WRAP = $8507;
-  GL_DECR_WRAP = $8508;
-  GL_TEXTURE_DEPTH_SIZE = $884A;
-  GL_TEXTURE_COMPARE_MODE = $884C;
-  GL_TEXTURE_COMPARE_FUNC = $884D;
-{$ifdef DGL_DEPRECATED}
-  GL_POINT_SIZE_MIN = $8126;
-  GL_POINT_SIZE_MAX = $8127;
-  GL_POINT_DISTANCE_ATTENUATION = $8129;
-  GL_GENERATE_MIPMAP = $8191;
-  GL_GENERATE_MIPMAP_HINT = $8192;
-  GL_FOG_COORDINATE_SOURCE = $8450;
-  GL_FOG_COORDINATE = $8451;
-  GL_FRAGMENT_DEPTH = $8452;
-  GL_CURRENT_FOG_COORDINATE = $8453;
-  GL_FOG_COORDINATE_ARRAY_TYPE = $8454;
-  GL_FOG_COORDINATE_ARRAY_STRIDE = $8455;
-  GL_FOG_COORDINATE_ARRAY_POINTER = $8456;
-  GL_FOG_COORDINATE_ARRAY = $8457;
-  GL_COLOR_SUM = $8458;
-  GL_CURRENT_SECONDARY_COLOR = $8459;
-  GL_SECONDARY_COLOR_ARRAY_SIZE = $845A;
-  GL_SECONDARY_COLOR_ARRAY_TYPE = $845B;
-  GL_SECONDARY_COLOR_ARRAY_STRIDE = $845C;
-  GL_SECONDARY_COLOR_ARRAY_POINTER = $845D;
-  GL_SECONDARY_COLOR_ARRAY = $845E;
-  GL_TEXTURE_FILTER_CONTROL = $8500;
-  GL_DEPTH_TEXTURE_MODE = $884B;
-  GL_COMPARE_R_TO_TEXTURE = $884E;
-{$endif}
-
-  // GL_VERSION_1_5
-  GL_BUFFER_SIZE = $8764;
-  GL_BUFFER_USAGE = $8765;
-  GL_QUERY_COUNTER_BITS = $8864;
-  GL_CURRENT_QUERY = $8865;
-  GL_QUERY_RESULT = $8866;
-  GL_QUERY_RESULT_AVAILABLE = $8867;
-  GL_ARRAY_BUFFER = $8892;
-  GL_ELEMENT_ARRAY_BUFFER = $8893;
-  GL_ARRAY_BUFFER_BINDING = $8894;
-  GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895;
-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = $889F;
-  GL_READ_ONLY = $88B8;
-  GL_WRITE_ONLY = $88B9;
-  GL_READ_WRITE = $88BA;
-  GL_BUFFER_ACCESS = $88BB;
-  GL_BUFFER_MAPPED = $88BC;
-  GL_BUFFER_MAP_POINTER = $88BD;
-  GL_STREAM_DRAW = $88E0;
-  GL_STREAM_READ = $88E1;
-  GL_STREAM_COPY = $88E2;
-  GL_STATIC_DRAW = $88E4;
-  GL_STATIC_READ = $88E5;
-  GL_STATIC_COPY = $88E6;
-  GL_DYNAMIC_DRAW = $88E8;
-  GL_DYNAMIC_READ = $88E9;
-  GL_DYNAMIC_COPY = $88EA;
-  GL_SAMPLES_PASSED = $8914;
-{$ifdef DGL_DEPRECATED}
-  GL_VERTEX_ARRAY_BUFFER_BINDING = $8896;
-  GL_NORMAL_ARRAY_BUFFER_BINDING = $8897;
-  GL_COLOR_ARRAY_BUFFER_BINDING = $8898;
-  GL_INDEX_ARRAY_BUFFER_BINDING = $8899;
-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A;
-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = $889B;
-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = $889C;
-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = $889D;
-  GL_WEIGHT_ARRAY_BUFFER_BINDING = $889E;
-  GL_FOG_COORD_SRC = $8450;
-  GL_FOG_COORD = $8451;
-  GL_CURRENT_FOG_COORD = $8453;
-  GL_FOG_COORD_ARRAY_TYPE = $8454;
-  GL_FOG_COORD_ARRAY_STRIDE = $8455;
-  GL_FOG_COORD_ARRAY_POINTER = $8456;
-  GL_FOG_COORD_ARRAY = $8457;
-  GL_FOG_COORD_ARRAY_BUFFER_BINDING = $889D;
-  GL_SRC0_RGB = $8580;
-  GL_SRC1_RGB = $8581;
-  GL_SRC2_RGB = $8582;
-  GL_SRC0_ALPHA = $8588;
-  GL_SRC1_ALPHA = $8589;
-  GL_SRC2_ALPHA = $858A;
-{$endif}
-
-  // GL_VERSION_2_0
-  GL_BLEND_EQUATION_RGB = $8009;
-  GL_VERTEX_ATTRIB_ARRAY_ENABLED = $8622;
-  GL_VERTEX_ATTRIB_ARRAY_SIZE = $8623;
-  GL_VERTEX_ATTRIB_ARRAY_STRIDE = $8624;
-  GL_VERTEX_ATTRIB_ARRAY_TYPE = $8625;
-  GL_CURRENT_VERTEX_ATTRIB = $8626;
-  GL_VERTEX_PROGRAM_POINT_SIZE = $8642;
-  GL_VERTEX_ATTRIB_ARRAY_POINTER = $8645;
-  GL_STENCIL_BACK_FUNC = $8800;
-  GL_STENCIL_BACK_FAIL = $8801;
-  GL_STENCIL_BACK_PASS_DEPTH_FAIL = $8802;
-  GL_STENCIL_BACK_PASS_DEPTH_PASS = $8803;
-  GL_MAX_DRAW_BUFFERS = $8824;
-  GL_DRAW_BUFFER0 = $8825;
-  GL_DRAW_BUFFER1 = $8826;
-  GL_DRAW_BUFFER2 = $8827;
-  GL_DRAW_BUFFER3 = $8828;
-  GL_DRAW_BUFFER4 = $8829;
-  GL_DRAW_BUFFER5 = $882A;
-  GL_DRAW_BUFFER6 = $882B;
-  GL_DRAW_BUFFER7 = $882C;
-  GL_DRAW_BUFFER8 = $882D;
-  GL_DRAW_BUFFER9 = $882E;
-  GL_DRAW_BUFFER10 = $882F;
-  GL_DRAW_BUFFER11 = $8830;
-  GL_DRAW_BUFFER12 = $8831;
-  GL_DRAW_BUFFER13 = $8832;
-  GL_DRAW_BUFFER14 = $8833;
-  GL_DRAW_BUFFER15 = $8834;
-  GL_BLEND_EQUATION_ALPHA = $883D;
-  GL_MAX_VERTEX_ATTRIBS = $8869;
-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = $886A;
-  GL_MAX_TEXTURE_IMAGE_UNITS = $8872;
-  GL_FRAGMENT_SHADER = $8B30;
-  GL_VERTEX_SHADER = $8B31;
-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = $8B49;
-  GL_MAX_VERTEX_UNIFORM_COMPONENTS = $8B4A;
-  GL_MAX_VARYING_FLOATS = $8B4B;
-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = $8B4C;
-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = $8B4D;
-  GL_SHADER_TYPE = $8B4F;
-  GL_FLOAT_VEC2 = $8B50;
-  GL_FLOAT_VEC3 = $8B51;
-  GL_FLOAT_VEC4 = $8B52;
-  GL_INT_VEC2 = $8B53;
-  GL_INT_VEC3 = $8B54;
-  GL_INT_VEC4 = $8B55;
-  GL_BOOL = $8B56;
-  GL_BOOL_VEC2 = $8B57;
-  GL_BOOL_VEC3 = $8B58;
-  GL_BOOL_VEC4 = $8B59;
-  GL_FLOAT_MAT2 = $8B5A;
-  GL_FLOAT_MAT3 = $8B5B;
-  GL_FLOAT_MAT4 = $8B5C;
-  GL_SAMPLER_1D = $8B5D;
-  GL_SAMPLER_2D = $8B5E;
-  GL_SAMPLER_3D = $8B5F;
-  GL_SAMPLER_CUBE = $8B60;
-  GL_SAMPLER_1D_SHADOW = $8B61;
-  GL_SAMPLER_2D_SHADOW = $8B62;
-  GL_DELETE_STATUS = $8B80;
-  GL_COMPILE_STATUS = $8B81;
-  GL_LINK_STATUS = $8B82;
-  GL_VALIDATE_STATUS = $8B83;
-  GL_INFO_LOG_LENGTH = $8B84;
-  GL_ATTACHED_SHADERS = $8B85;
-  GL_ACTIVE_UNIFORMS = $8B86;
-  GL_ACTIVE_UNIFORM_MAX_LENGTH = $8B87;
-  GL_SHADER_SOURCE_LENGTH = $8B88;
-  GL_ACTIVE_ATTRIBUTES = $8B89;
-  GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = $8B8A;
-  GL_FRAGMENT_SHADER_DERIVATIVE_HINT = $8B8B;
-  GL_SHADING_LANGUAGE_VERSION = $8B8C;
-  GL_CURRENT_PROGRAM = $8B8D;
-  GL_POINT_SPRITE_COORD_ORIGIN = $8CA0;
-  GL_LOWER_LEFT = $8CA1;
-  GL_UPPER_LEFT = $8CA2;
-  GL_STENCIL_BACK_REF = $8CA3;
-  GL_STENCIL_BACK_VALUE_MASK = $8CA4;
-  GL_STENCIL_BACK_WRITEMASK = $8CA5;
-{$ifdef DGL_DEPRECATED}
-  GL_VERTEX_PROGRAM_TWO_SIDE = $8643;
-  GL_POINT_SPRITE = $8861;
-  GL_COORD_REPLACE = $8862;
-  GL_MAX_TEXTURE_COORDS = $8871;
-{$endif}
-
-  // GL_VERSION_2_1
-  GL_PIXEL_PACK_BUFFER = $88EB;
-  GL_PIXEL_UNPACK_BUFFER = $88EC;
-  GL_PIXEL_PACK_BUFFER_BINDING = $88ED;
-  GL_PIXEL_UNPACK_BUFFER_BINDING = $88EF;
-  GL_FLOAT_MAT2x3 = $8B65;
-  GL_FLOAT_MAT2x4 = $8B66;
-  GL_FLOAT_MAT3x2 = $8B67;
-  GL_FLOAT_MAT3x4 = $8B68;
-  GL_FLOAT_MAT4x2 = $8B69;
-  GL_FLOAT_MAT4x3 = $8B6A;
-  GL_SRGB = $8C40;
-  GL_SRGB8 = $8C41;
-  GL_SRGB_ALPHA = $8C42;
-  GL_SRGB8_ALPHA8 = $8C43;
-  GL_COMPRESSED_SRGB = $8C48;
-  GL_COMPRESSED_SRGB_ALPHA = $8C49;
-{$ifdef DGL_DEPRECATED}
-  GL_CURRENT_RASTER_SECONDARY_COLOR = $845F;
-  GL_SLUMINANCE_ALPHA = $8C44;
-  GL_SLUMINANCE8_ALPHA8 = $8C45;
-  GL_SLUMINANCE = $8C46;
-  GL_SLUMINANCE8 = $8C47;
-  GL_COMPRESSED_SLUMINANCE = $8C4A;
-  GL_COMPRESSED_SLUMINANCE_ALPHA = $8C4B;
-{$endif}
-
-  // GL_VERSION_3_0
-  GL_COMPARE_REF_TO_TEXTURE = $884E;
-  GL_CLIP_DISTANCE0 = $3000;
-  GL_CLIP_DISTANCE1 = $3001;
-  GL_CLIP_DISTANCE2 = $3002;
-  GL_CLIP_DISTANCE3 = $3003;
-  GL_CLIP_DISTANCE4 = $3004;
-  GL_CLIP_DISTANCE5 = $3005;
-  GL_CLIP_DISTANCE6 = $3006;
-  GL_CLIP_DISTANCE7 = $3007;
-  GL_MAX_CLIP_DISTANCES = $0D32;
-  GL_MAJOR_VERSION = $821B;
-  GL_MINOR_VERSION = $821C;
-  GL_NUM_EXTENSIONS = $821D;
-  GL_CONTEXT_FLAGS = $821E;
-  GL_DEPTH_BUFFER = $8223;
-  GL_STENCIL_BUFFER = $8224;
-  GL_COMPRESSED_RED = $8225;
-  GL_COMPRESSED_RG = $8226;
-  GL_CONTEXT_FLAG_FORWARD_COMPATIBLE_BIT = $0001;
-  GL_RGBA32F = $8814;
-  GL_RGB32F = $8815;
-  GL_RGBA16F = $881A;
-  GL_RGB16F = $881B;
-  GL_VERTEX_ATTRIB_ARRAY_INTEGER = $88FD;
-  GL_MAX_ARRAY_TEXTURE_LAYERS = $88FF;
-  GL_MIN_PROGRAM_TEXEL_OFFSET = $8904;
-  GL_MAX_PROGRAM_TEXEL_OFFSET = $8905;
-  GL_CLAMP_READ_COLOR = $891C;
-  GL_FIXED_ONLY = $891D;
-  GL_MAX_VARYING_COMPONENTS = $8B4B;
-  GL_TEXTURE_1D_ARRAY = $8C18;
-  GL_PROXY_TEXTURE_1D_ARRAY = $8C19;
-  GL_TEXTURE_2D_ARRAY = $8C1A;
-  GL_PROXY_TEXTURE_2D_ARRAY = $8C1B;
-  GL_TEXTURE_BINDING_1D_ARRAY = $8C1C;
-  GL_TEXTURE_BINDING_2D_ARRAY = $8C1D;
-  GL_R11F_G11F_B10F = $8C3A;
-  GL_UNSIGNED_INT_10F_11F_11F_REV = $8C3B;
-  GL_RGB9_E5 = $8C3D;
-  GL_UNSIGNED_INT_5_9_9_9_REV = $8C3E;
-  GL_TEXTURE_SHARED_SIZE = $8C3F;
-  GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH = $8C76;
-  GL_TRANSFORM_FEEDBACK_BUFFER_MODE = $8C7F;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = $8C80;
-  GL_TRANSFORM_FEEDBACK_VARYINGS = $8C83;
-  GL_TRANSFORM_FEEDBACK_BUFFER_START = $8C84;
-  GL_TRANSFORM_FEEDBACK_BUFFER_SIZE = $8C85;
-  GL_PRIMITIVES_GENERATED = $8C87;
-  GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = $8C88;
-  GL_RASTERIZER_DISCARD = $8C89;
-  GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = $8C8A;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = $8C8B;
-  GL_INTERLEAVED_ATTRIBS = $8C8C;
-  GL_SEPARATE_ATTRIBS = $8C8D;
-  GL_TRANSFORM_FEEDBACK_BUFFER = $8C8E;
-  GL_TRANSFORM_FEEDBACK_BUFFER_BINDING = $8C8F;
-  GL_RGBA32UI = $8D70;
-  GL_RGB32UI = $8D71;
-  GL_RGBA16UI = $8D76;
-  GL_RGB16UI = $8D77;
-  GL_RGBA8UI = $8D7C;
-  GL_RGB8UI = $8D7D;
-  GL_RGBA32I = $8D82;
-  GL_RGB32I = $8D83;
-  GL_RGBA16I = $8D88;
-  GL_RGB16I = $8D89;
-  GL_RGBA8I = $8D8E;
-  GL_RGB8I = $8D8F;
-  GL_RED_INTEGER = $8D94;
-  GL_GREEN_INTEGER = $8D95;
-  GL_BLUE_INTEGER = $8D96;
-  GL_RGB_INTEGER = $8D98;
-  GL_RGBA_INTEGER = $8D99;
-  GL_BGR_INTEGER = $8D9A;
-  GL_BGRA_INTEGER = $8D9B;
-  GL_SAMPLER_1D_ARRAY = $8DC0;
-  GL_SAMPLER_2D_ARRAY = $8DC1;
-  GL_SAMPLER_1D_ARRAY_SHADOW = $8DC3;
-  GL_SAMPLER_2D_ARRAY_SHADOW = $8DC4;
-  GL_SAMPLER_CUBE_SHADOW = $8DC5;
-  GL_UNSIGNED_INT_VEC2 = $8DC6;
-  GL_UNSIGNED_INT_VEC3 = $8DC7;
-  GL_UNSIGNED_INT_VEC4 = $8DC8;
-  GL_INT_SAMPLER_1D = $8DC9;
-  GL_INT_SAMPLER_2D = $8DCA;
-  GL_INT_SAMPLER_3D = $8DCB;
-  GL_INT_SAMPLER_CUBE = $8DCC;
-  GL_INT_SAMPLER_1D_ARRAY = $8DCE;
-  GL_INT_SAMPLER_2D_ARRAY = $8DCF;
-  GL_UNSIGNED_INT_SAMPLER_1D = $8DD1;
-  GL_UNSIGNED_INT_SAMPLER_2D = $8DD2;
-  GL_UNSIGNED_INT_SAMPLER_3D = $8DD3;
-  GL_UNSIGNED_INT_SAMPLER_CUBE = $8DD4;
-  GL_UNSIGNED_INT_SAMPLER_1D_ARRAY = $8DD6;
-  GL_UNSIGNED_INT_SAMPLER_2D_ARRAY = $8DD7;
-  GL_QUERY_WAIT = $8E13;
-  GL_QUERY_NO_WAIT = $8E14;
-  GL_QUERY_BY_REGION_WAIT = $8E15;
-  GL_QUERY_BY_REGION_NO_WAIT = $8E16;
-  GL_BUFFER_ACCESS_FLAGS = $911F;
-  GL_BUFFER_MAP_LENGTH = $9120;
-  GL_BUFFER_MAP_OFFSET = $9121;
-  { Reuse tokens from ARB_depth_buffer_float }
-  { reuse GL_DEPTH_COMPONENT32F }
-  { reuse GL_DEPTH32F_STENCIL8 }
-  { reuse GL_FLOAT_32_UNSIGNED_INT_24_8_REV }
-  { Reuse tokens from ARB_framebuffer_object }
-  { reuse GL_INVALID_FRAMEBUFFER_OPERATION }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_RED_SIZE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_GREEN_SIZE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_BLUE_SIZE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE }
-  { reuse GL_FRAMEBUFFER_DEFAULT }
-  { reuse GL_FRAMEBUFFER_UNDEFINED }
-  { reuse GL_DEPTH_STENCIL_ATTACHMENT }
-  { reuse GL_INDEX }
-  { reuse GL_MAX_RENDERBUFFER_SIZE }
-  { reuse GL_DEPTH_STENCIL }
-  { reuse GL_UNSIGNED_INT_24_8 }
-  { reuse GL_DEPTH24_STENCIL8 }
-  { reuse GL_TEXTURE_STENCIL_SIZE }
-  { reuse GL_TEXTURE_RED_TYPE }
-  { reuse GL_TEXTURE_GREEN_TYPE }
-  { reuse GL_TEXTURE_BLUE_TYPE }
-  { reuse GL_TEXTURE_ALPHA_TYPE }
-  { reuse GL_TEXTURE_DEPTH_TYPE }
-  { reuse GL_UNSIGNED_NORMALIZED }
-  { reuse GL_FRAMEBUFFER_BINDING }
-  { reuse GL_DRAW_FRAMEBUFFER_BINDING }
-  { reuse GL_RENDERBUFFER_BINDING }
-  { reuse GL_READ_FRAMEBUFFER }
-  { reuse GL_DRAW_FRAMEBUFFER }
-  { reuse GL_READ_FRAMEBUFFER_BINDING }
-  { reuse GL_RENDERBUFFER_SAMPLES }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER }
-  { reuse GL_FRAMEBUFFER_COMPLETE }
-  { reuse GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT }
-  { reuse GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT }
-  { reuse GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER }
-  { reuse GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER }
-  { reuse GL_FRAMEBUFFER_UNSUPPORTED }
-  { reuse GL_MAX_COLOR_ATTACHMENTS }
-  { reuse GL_COLOR_ATTACHMENT0 }
-  { reuse GL_COLOR_ATTACHMENT1 }
-  { reuse GL_COLOR_ATTACHMENT2 }
-  { reuse GL_COLOR_ATTACHMENT3 }
-  { reuse GL_COLOR_ATTACHMENT4 }
-  { reuse GL_COLOR_ATTACHMENT5 }
-  { reuse GL_COLOR_ATTACHMENT6 }
-  { reuse GL_COLOR_ATTACHMENT7 }
-  { reuse GL_COLOR_ATTACHMENT8 }
-  { reuse GL_COLOR_ATTACHMENT9 }
-  { reuse GL_COLOR_ATTACHMENT10 }
-  { reuse GL_COLOR_ATTACHMENT11 }
-  { reuse GL_COLOR_ATTACHMENT12 }
-  { reuse GL_COLOR_ATTACHMENT13 }
-  { reuse GL_COLOR_ATTACHMENT14 }
-  { reuse GL_COLOR_ATTACHMENT15 }
-  { reuse GL_DEPTH_ATTACHMENT }
-  { reuse GL_STENCIL_ATTACHMENT }
-  { reuse GL_FRAMEBUFFER }
-  { reuse GL_RENDERBUFFER }
-  { reuse GL_RENDERBUFFER_WIDTH }
-  { reuse GL_RENDERBUFFER_HEIGHT }
-  { reuse GL_RENDERBUFFER_INTERNAL_FORMAT }
-  { reuse GL_STENCIL_INDEX1 }
-  { reuse GL_STENCIL_INDEX4 }
-  { reuse GL_STENCIL_INDEX8 }
-  { reuse GL_STENCIL_INDEX16 }
-  { reuse GL_RENDERBUFFER_RED_SIZE }
-  { reuse GL_RENDERBUFFER_GREEN_SIZE }
-  { reuse GL_RENDERBUFFER_BLUE_SIZE }
-  { reuse GL_RENDERBUFFER_ALPHA_SIZE }
-  { reuse GL_RENDERBUFFER_DEPTH_SIZE }
-  { reuse GL_RENDERBUFFER_STENCIL_SIZE }
-  { reuse GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE }
-  { reuse GL_MAX_SAMPLES }
-  { Reuse tokens from ARB_framebuffer_sRGB }
-  { reuse GL_FRAMEBUFFER_SRGB }
-  { Reuse tokens from ARB_half_float_vertex }
-  { reuse GL_HALF_FLOAT }
-  { Reuse tokens from ARB_map_buffer_range }
-  { reuse GL_MAP_READ_BIT }
-  { reuse GL_MAP_WRITE_BIT }
-  { reuse GL_MAP_INVALIDATE_RANGE_BIT }
-  { reuse GL_MAP_INVALIDATE_BUFFER_BIT }
-  { reuse GL_MAP_FLUSH_EXPLICIT_BIT }
-  { reuse GL_MAP_UNSYNCHRONIZED_BIT }
-  { Reuse tokens from ARB_texture_compression_rgtc }
-  { reuse GL_COMPRESSED_RED_RGTC1 }
-  { reuse GL_COMPRESSED_SIGNED_RED_RGTC1 }
-  { reuse GL_COMPRESSED_RG_RGTC2 }
-  { reuse GL_COMPRESSED_SIGNED_RG_RGTC2 }
-  { Reuse tokens from ARB_texture_rg }
-  { reuse GL_RG }
-  { reuse GL_RG_INTEGER }
-  { reuse GL_R8 }
-  { reuse GL_R16 }
-  { reuse GL_RG8 }
-  { reuse GL_RG16 }
-  { reuse GL_R16F }
-  { reuse GL_R32F }
-  { reuse GL_RG16F }
-  { reuse GL_RG32F }
-  { reuse GL_R8I }
-  { reuse GL_R8UI }
-  { reuse GL_R16I }
-  { reuse GL_R16UI }
-  { reuse GL_R32I }
-  { reuse GL_R32UI }
-  { reuse GL_RG8I }
-  { reuse GL_RG8UI }
-  { reuse GL_RG16I }
-  { reuse GL_RG16UI }
-  { reuse GL_RG32I }
-  { reuse GL_RG32UI }
-  { Reuse tokens from ARB_vertex_array_object }
-  { reuse GL_VERTEX_ARRAY_BINDING }
-{$ifdef DGL_DEPRECATED}
-  GL_CLAMP_VERTEX_COLOR = $891A;
-  GL_CLAMP_FRAGMENT_COLOR = $891B;
-  GL_ALPHA_INTEGER = $8D97;
-  { Reuse tokens from ARB_framebuffer_object }
-  { reuse GL_TEXTURE_LUMINANCE_TYPE }
-  { reuse GL_TEXTURE_INTENSITY_TYPE }
-{$endif}
-
-  // GL_VERSION_3_1
-  GL_SAMPLER_2D_RECT = $8B63;
-  GL_SAMPLER_2D_RECT_SHADOW = $8B64;
-  GL_SAMPLER_BUFFER = $8DC2;
-  GL_INT_SAMPLER_2D_RECT = $8DCD;
-  GL_INT_SAMPLER_BUFFER = $8DD0;
-  GL_UNSIGNED_INT_SAMPLER_2D_RECT = $8DD5;
-  GL_UNSIGNED_INT_SAMPLER_BUFFER = $8DD8;
-  GL_TEXTURE_BUFFER = $8C2A;
-  GL_MAX_TEXTURE_BUFFER_SIZE = $8C2B;
-  GL_TEXTURE_BINDING_BUFFER = $8C2C;
-  GL_TEXTURE_BUFFER_DATA_STORE_BINDING = $8C2D;
-  GL_TEXTURE_BUFFER_FORMAT = $8C2E;
-  GL_TEXTURE_RECTANGLE = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE = $84F8;
-  GL_RED_SNORM = $8F90;
-  GL_RG_SNORM = $8F91;
-  GL_RGB_SNORM = $8F92;
-  GL_RGBA_SNORM = $8F93;
-  GL_R8_SNORM = $8F94;
-  GL_RG8_SNORM = $8F95;
-  GL_RGB8_SNORM = $8F96;
-  GL_RGBA8_SNORM = $8F97;
-  GL_R16_SNORM = $8F98;
-  GL_RG16_SNORM = $8F99;
-  GL_RGB16_SNORM = $8F9A;
-  GL_RGBA16_SNORM = $8F9B;
-  GL_SIGNED_NORMALIZED = $8F9C;
-  GL_PRIMITIVE_RESTART = $8F9D;
-  GL_PRIMITIVE_RESTART_INDEX = $8F9E;
-  { Reuse tokens from ARB_copy_buffer }
-  { reuse GL_COPY_READ_BUFFER }
-  { reuse GL_COPY_WRITE_BUFFER }
-  { Would reuse tokens from ARB_draw_instanced, but it has none }
-  { Reuse tokens from ARB_uniform_buffer_object }
-  { reuse GL_UNIFORM_BUFFER }
-  { reuse GL_UNIFORM_BUFFER_BINDING }
-  { reuse GL_UNIFORM_BUFFER_START }
-  { reuse GL_UNIFORM_BUFFER_SIZE }
-  { reuse GL_MAX_VERTEX_UNIFORM_BLOCKS }
-  { reuse GL_MAX_FRAGMENT_UNIFORM_BLOCKS }
-  { reuse GL_MAX_COMBINED_UNIFORM_BLOCKS }
-  { reuse GL_MAX_UNIFORM_BUFFER_BINDINGS }
-  { reuse GL_MAX_UNIFORM_BLOCK_SIZE }
-  { reuse GL_MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS }
-  { reuse GL_MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS }
-  { reuse GL_UNIFORM_BUFFER_OFFSET_ALIGNMENT }
-  { reuse GL_ACTIVE_UNIFORM_BLOCK_MAX_NAME_LENGTH }
-  { reuse GL_ACTIVE_UNIFORM_BLOCKS }
-  { reuse GL_UNIFORM_TYPE }
-  { reuse GL_UNIFORM_SIZE }
-  { reuse GL_UNIFORM_NAME_LENGTH }
-  { reuse GL_UNIFORM_BLOCK_INDEX }
-  { reuse GL_UNIFORM_OFFSET }
-  { reuse GL_UNIFORM_ARRAY_STRIDE }
-  { reuse GL_UNIFORM_MATRIX_STRIDE }
-  { reuse GL_UNIFORM_IS_ROW_MAJOR }
-  { reuse GL_UNIFORM_BLOCK_BINDING }
-  { reuse GL_UNIFORM_BLOCK_DATA_SIZE }
-  { reuse GL_UNIFORM_BLOCK_NAME_LENGTH }
-  { reuse GL_UNIFORM_BLOCK_ACTIVE_UNIFORMS }
-  { reuse GL_UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES }
-  { reuse GL_UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER }
-  { reuse GL_UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER }
-  { reuse GL_INVALID_INDEX }
-
-  // GL_VERSION_3_2
-  GL_CONTEXT_CORE_PROFILE_BIT = $00000001;
-  GL_CONTEXT_COMPATIBILITY_PROFILE_BIT = $00000002;
-  GL_LINES_ADJACENCY = $000A;
-  GL_LINE_STRIP_ADJACENCY = $000B;
-  GL_TRIANGLES_ADJACENCY = $000C;
-  GL_TRIANGLE_STRIP_ADJACENCY = $000D;
-  GL_PROGRAM_POINT_SIZE = $8642;
-  GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS = $8C29;
-  GL_FRAMEBUFFER_ATTACHMENT_LAYERED = $8DA7;
-  GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS = $8DA8;
-  GL_GEOMETRY_SHADER = $8DD9;
-  GL_GEOMETRY_VERTICES_OUT = $8916;
-  GL_GEOMETRY_INPUT_TYPE = $8917;
-  GL_GEOMETRY_OUTPUT_TYPE = $8918;
-  GL_MAX_GEOMETRY_UNIFORM_COMPONENTS = $8DDF;
-  GL_MAX_GEOMETRY_OUTPUT_VERTICES = $8DE0;
-  GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS = $8DE1;
-  GL_MAX_VERTEX_OUTPUT_COMPONENTS = $9122;
-  GL_MAX_GEOMETRY_INPUT_COMPONENTS = $9123;
-  GL_MAX_GEOMETRY_OUTPUT_COMPONENTS = $9124;
-  GL_MAX_FRAGMENT_INPUT_COMPONENTS = $9125;
-  GL_CONTEXT_PROFILE_MASK = $9126;
-  { reuse GL_MAX_VARYING_COMPONENTS }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER }
-  { Reuse tokens from ARB_depth_clamp }
-  { reuse GL_DEPTH_CLAMP }
-  { Would reuse tokens from ARB_draw_elements_base_vertex, but it has none }
-  { Would reuse tokens from ARB_fragment_coord_conventions, but it has none }
-  { Reuse tokens from ARB_provoking_vertex }
-  { reuse GL_QUADS_FOLLOW_PROVOKING_VERTEX_CONVENTION }
-  { reuse GL_FIRST_VERTEX_CONVENTION }
-  { reuse GL_LAST_VERTEX_CONVENTION }
-  { reuse GL_PROVOKING_VERTEX }
-  { Reuse tokens from ARB_seamless_cube_map }
-  { reuse GL_TEXTURE_CUBE_MAP_SEAMLESS }
-  { Reuse tokens from ARB_sync }
-  { reuse GL_MAX_SERVER_WAIT_TIMEOUT }
-  { reuse GL_OBJECT_TYPE }
-  { reuse GL_SYNC_CONDITION }
-  { reuse GL_SYNC_STATUS }
-  { reuse GL_SYNC_FLAGS }
-  { reuse GL_SYNC_FENCE }
-  { reuse GL_SYNC_GPU_COMMANDS_COMPLETE }
-  { reuse GL_UNSIGNALED }
-  { reuse GL_SIGNALED }
-  { reuse GL_ALREADY_SIGNALED }
-  { reuse GL_TIMEOUT_EXPIRED }
-  { reuse GL_CONDITION_SATISFIED }
-  { reuse GL_WAIT_FAILED }
-  { reuse GL_TIMEOUT_IGNORED }
-  { reuse GL_SYNC_FLUSH_COMMANDS_BIT }
-  { reuse GL_TIMEOUT_IGNORED }
-  { Reuse tokens from ARB_texture_multisample }
-  { reuse GL_SAMPLE_POSITION }
-  { reuse GL_SAMPLE_MASK }
-  { reuse GL_SAMPLE_MASK_VALUE }
-  { reuse GL_MAX_SAMPLE_MASK_WORDS }
-  { reuse GL_TEXTURE_2D_MULTISAMPLE }
-  { reuse GL_PROXY_TEXTURE_2D_MULTISAMPLE }
-  { reuse GL_TEXTURE_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_PROXY_TEXTURE_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_TEXTURE_BINDING_2D_MULTISAMPLE }
-  { reuse GL_TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_TEXTURE_SAMPLES }
-  { reuse GL_TEXTURE_FIXED_SAMPLE_LOCATIONS }
-  { reuse GL_SAMPLER_2D_MULTISAMPLE }
-  { reuse GL_INT_SAMPLER_2D_MULTISAMPLE }
-  { reuse GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE }
-  { reuse GL_SAMPLER_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_INT_SAMPLER_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY }
-  { reuse GL_MAX_COLOR_TEXTURE_SAMPLES }
-  { reuse GL_MAX_DEPTH_TEXTURE_SAMPLES }
-  { reuse GL_MAX_INTEGER_SAMPLES }
-  { Don't need to reuse tokens from ARB_vertex_array_bgra since they're already in 1.2 core }
-
-  // GL_3DFX_multisample
-  GL_MULTISAMPLE_3DFX = $86B2;
-  GL_SAMPLE_BUFFERS_3DFX = $86B3;
-  GL_SAMPLES_3DFX = $86B4;
-  GL_MULTISAMPLE_BIT_3DFX = $20000000;
-
-  // GL_3DFX_texture_compression_FXT1
-  GL_COMPRESSED_RGB_FXT1_3DFX = $86B0;
-  GL_COMPRESSED_RGBA_FXT1_3DFX = $86B1;
-
-  // GL_APPLE_client_storage
-  GL_UNPACK_CLIENT_STORAGE_APPLE = $85B2;
-
-  // GL_APPLE_element_array
-  GL_ELEMENT_ARRAY_APPLE = $8768;
-  GL_ELEMENT_ARRAY_TYPE_APPLE = $8769;
-  GL_ELEMENT_ARRAY_POINTER_APPLE = $876A;
-
-  // GL_APPLE_fence
-  GL_DRAW_PIXELS_APPLE = $8A0A;
-  GL_FENCE_APPLE = $8A0B;
-
-  // GL_APPLE_specular_vector
-  GL_LIGHT_MODEL_SPECULAR_VECTOR_APPLE = $85B0;
-
-  // GL_APPLE_transform_hint
-  GL_TRANSFORM_HINT_APPLE = $85B1;
-
-  // GL_APPLE_vertex_array_object
-  GL_VERTEX_ARRAY_BINDING_APPLE = $85B5;
-
-  // GL_APPLE_vertex_array_range
-  GL_VERTEX_ARRAY_RANGE_APPLE = $851D;
-  GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE = $851E;
-  GL_VERTEX_ARRAY_STORAGE_HINT_APPLE = $851F;
-  GL_VERTEX_ARRAY_RANGE_POINTER_APPLE = $8521;
-  GL_STORAGE_CACHED_APPLE = $85BE;
-  GL_STORAGE_SHARED_APPLE = $85BF;
-
-  // GL_APPLE_ycbcr_422
-  GL_YCBCR_422_APPLE = $85B9;
-  GL_UNSIGNED_SHORT_8_8_APPLE = $85BA;
-  GL_UNSIGNED_SHORT_8_8_REV_APPLE = $85BB;
-
-  // GL_APPLE_texture_range
-  GL_TEXTURE_RANGE_LENGTH_APPLE = $85B7;
-  GL_TEXTURE_RANGE_POINTER_APPLE = $85B8;
-  GL_TEXTURE_STORAGE_HINT_APPLE = $85BC;
-  GL_STORAGE_PRIVATE_APPLE = $85BD;
-  { reuse GL_STORAGE_CACHED_APPLE }
-  { reuse GL_STORAGE_SHARED_APPLE }
-
-  // GL_APPLE_float_pixels
-  GL_HALF_APPLE = $140B;
-  GL_RGBA_FLOAT32_APPLE = $8814;
-  GL_RGB_FLOAT32_APPLE = $8815;
-  GL_ALPHA_FLOAT32_APPLE = $8816;
-  GL_INTENSITY_FLOAT32_APPLE = $8817;
-  GL_LUMINANCE_FLOAT32_APPLE = $8818;
-  GL_LUMINANCE_ALPHA_FLOAT32_APPLE = $8819;
-  GL_RGBA_FLOAT16_APPLE = $881A;
-  GL_RGB_FLOAT16_APPLE = $881B;
-  GL_ALPHA_FLOAT16_APPLE = $881C;
-  GL_INTENSITY_FLOAT16_APPLE = $881D;
-  GL_LUMINANCE_FLOAT16_APPLE = $881E;
-  GL_LUMINANCE_ALPHA_FLOAT16_APPLE = $881F;
-  GL_COLOR_FLOAT_APPLE = $8A0F;
-
-  // GL_APPLE_vertex_program_evaluators
-  GL_VERTEX_ATTRIB_MAP1_APPLE = $8A00;
-  GL_VERTEX_ATTRIB_MAP2_APPLE = $8A01;
-  GL_VERTEX_ATTRIB_MAP1_SIZE_APPLE = $8A02;
-  GL_VERTEX_ATTRIB_MAP1_COEFF_APPLE = $8A03;
-  GL_VERTEX_ATTRIB_MAP1_ORDER_APPLE = $8A04;
-  GL_VERTEX_ATTRIB_MAP1_DOMAIN_APPLE = $8A05;
-  GL_VERTEX_ATTRIB_MAP2_SIZE_APPLE = $8A06;
-  GL_VERTEX_ATTRIB_MAP2_COEFF_APPLE = $8A07;
-  GL_VERTEX_ATTRIB_MAP2_ORDER_APPLE = $8A08;
-  GL_VERTEX_ATTRIB_MAP2_DOMAIN_APPLE = $8A09;
-
-  // GL_APPLE_aux_depth_stencil
-  GL_AUX_DEPTH_STENCIL_APPLE = $8A14;
-
-  // GL_APPLE_object_purgeable
-  GL_BUFFER_OBJECT_APPLE = $85B3;
-  GL_RELEASED_APPLE = $8A19;
-  GL_VOLATILE_APPLE = $8A1A;
-  GL_RETAINED_APPLE = $8A1B;
-  GL_UNDEFINED_APPLE = $8A1C;
-  GL_PURGEABLE_APPLE = $8A1D;
-
-  // GL_APPLE_row_bytes
-  GL_PACK_ROW_BYTES_APPLE = $8A15;
-  GL_UNPACK_ROW_BYTES_APPLE = $8A16;
-  
-  
-  // GL_ARB_depth_texture
-  GL_DEPTH_COMPONENT16_ARB = $81A5;
-  GL_DEPTH_COMPONENT24_ARB = $81A6;
-  GL_DEPTH_COMPONENT32_ARB = $81A7;
-  GL_TEXTURE_DEPTH_SIZE_ARB = $884A;
-  GL_DEPTH_TEXTURE_MODE_ARB = $884B;
-
-  // GL_ARB_fragment_program
-  GL_FRAGMENT_PROGRAM_ARB = $8804;
-  GL_PROGRAM_ALU_INSTRUCTIONS_ARB = $8805;
-  GL_PROGRAM_TEX_INSTRUCTIONS_ARB = $8806;
-  GL_PROGRAM_TEX_INDIRECTIONS_ARB = $8807;
-  GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $8808;
-  GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $8809;
-  GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $880A;
-  GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB = $880B;
-  GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB = $880C;
-  GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB = $880D;
-  GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $880E;
-  GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $880F;
-  GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $8810;
-  GL_MAX_TEXTURE_COORDS_ARB = $8871;
-  GL_MAX_TEXTURE_IMAGE_UNITS_ARB = $8872;
-
-  // GL_ARB_imaging
-  GL_CONSTANT_COLOR_ARB = $8001;
-  GL_ONE_MINUS_CONSTANT_COLOR = $8002;
-  GL_CONSTANT_ALPHA = $8003;
-  GL_ONE_MINUS_CONSTANT_ALPHA = $8004;
-  GL_BLEND_COLOR = $8005;
-  GL_FUNC_ADD = $8006;
-  GL_MIN = $8007;
-  GL_MAX = $8008;
-  GL_BLEND_EQUATION = $8009;
-  GL_FUNC_SUBTRACT = $800A;
-  GL_FUNC_REVERSE_SUBTRACT = $800B;
-{$ifdef DGL_DEPRECATED}
-  GL_CONVOLUTION_1D = $8010;
-  GL_CONVOLUTION_2D = $8011;
-  GL_SEPARABLE_2D = $8012;
-  GL_CONVOLUTION_BORDER_MODE = $8013;
-  GL_CONVOLUTION_FILTER_SCALE = $8014;
-  GL_CONVOLUTION_FILTER_BIAS = $8015;
-  GL_REDUCE = $8016;
-  GL_CONVOLUTION_FORMAT = $8017;
-  GL_CONVOLUTION_WIDTH = $8018;
-  GL_CONVOLUTION_HEIGHT = $8019;
-  GL_MAX_CONVOLUTION_WIDTH = $801A;
-  GL_MAX_CONVOLUTION_HEIGHT = $801B;
-  GL_POST_CONVOLUTION_RED_SCALE = $801C;
-  GL_POST_CONVOLUTION_GREEN_SCALE = $801D;
-  GL_POST_CONVOLUTION_BLUE_SCALE = $801E;
-  GL_POST_CONVOLUTION_ALPHA_SCALE = $801F;
-  GL_POST_CONVOLUTION_RED_BIAS = $8020;
-  GL_POST_CONVOLUTION_GREEN_BIAS = $8021;
-  GL_POST_CONVOLUTION_BLUE_BIAS = $8022;
-  GL_POST_CONVOLUTION_ALPHA_BIAS = $8023;
-  GL_HISTOGRAM = $8024;
-  GL_PROXY_HISTOGRAM = $8025;
-  GL_HISTOGRAM_WIDTH = $8026;
-  GL_HISTOGRAM_FORMAT = $8027;
-  GL_HISTOGRAM_RED_SIZE = $8028;
-  GL_HISTOGRAM_GREEN_SIZE = $8029;
-  GL_HISTOGRAM_BLUE_SIZE = $802A;
-  GL_HISTOGRAM_ALPHA_SIZE = $802B;
-  GL_HISTOGRAM_LUMINANCE_SIZE = $802C;
-  GL_HISTOGRAM_SINK = $802D;
-  GL_MINMAX = $802E;
-  GL_MINMAX_FORMAT = $802F;
-  GL_MINMAX_SINK = $8030;
-  GL_TABLE_TOO_LARGE = $8031;
-  GL_COLOR_MATRIX = $80B1;
-  GL_COLOR_MATRIX_STACK_DEPTH = $80B2;
-  GL_MAX_COLOR_MATRIX_STACK_DEPTH = $80B3;
-  GL_POST_COLOR_MATRIX_RED_SCALE = $80B4;
-  GL_POST_COLOR_MATRIX_GREEN_SCALE = $80B5;
-  GL_POST_COLOR_MATRIX_BLUE_SCALE = $80B6;
-  GL_POST_COLOR_MATRIX_ALPHA_SCALE = $80B7;
-  GL_POST_COLOR_MATRIX_RED_BIAS = $80B8;
-  GL_POST_COLOR_MATRIX_GREEN_BIAS = $80B9;
-  GL_POST_COLOR_MATRIX_BLUE_BIAS = $80BA;
-  GL_POST_COLOR_MATRIX_ALPHA_BIAS = $80BB;
-  GL_COLOR_TABLE = $80D0;
-  GL_POST_CONVOLUTION_COLOR_TABLE = $80D1;
-  GL_POST_COLOR_MATRIX_COLOR_TABLE = $80D2;
-  GL_PROXY_COLOR_TABLE = $80D3;
-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = $80D4;
-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = $80D5;
-  GL_COLOR_TABLE_SCALE = $80D6;
-  GL_COLOR_TABLE_BIAS = $80D7;
-  GL_COLOR_TABLE_FORMAT = $80D8;
-  GL_COLOR_TABLE_WIDTH = $80D9;
-  GL_COLOR_TABLE_RED_SIZE = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE = $80DF;
-  GL_CONSTANT_BORDER = $8151;
-  GL_REPLICATE_BORDER = $8153;
-  GL_CONVOLUTION_BORDER_COLOR = $8154;
-{$endif}
-
-  // GL_ARB_matrix_palette
-  GL_MATRIX_PALETTE_ARB = $8840;
-  GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = $8841;
-  GL_MAX_PALETTE_MATRICES_ARB = $8842;
-  GL_CURRENT_PALETTE_MATRIX_ARB = $8843;
-  GL_MATRIX_INDEX_ARRAY_ARB = $8844;
-  GL_CURRENT_MATRIX_INDEX_ARB = $8845;
-  GL_MATRIX_INDEX_ARRAY_SIZE_ARB = $8846;
-  GL_MATRIX_INDEX_ARRAY_TYPE_ARB = $8847;
-  GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = $8848;
-  GL_MATRIX_INDEX_ARRAY_POINTER_ARB = $8849;
-
-  // GL_ARB_multisample
-  GL_MULTISAMPLE_ARB = $809D;
-  GL_SAMPLE_ALPHA_TO_COVERAGE_ARB = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE_ARB = $809F;
-  GL_SAMPLE_COVERAGE_ARB = $80A0;
-  GL_SAMPLE_BUFFERS_ARB = $80A8;
-  GL_SAMPLES_ARB = $80A9;
-  GL_SAMPLE_COVERAGE_VALUE_ARB = $80AA;
-  GL_SAMPLE_COVERAGE_INVERT_ARB = $80AB;
-  GL_MULTISAMPLE_BIT_ARB = $20000000;
-
-  // GL_ARB_multitexture
-  GL_TEXTURE0_ARB = $84C0;
-  GL_TEXTURE1_ARB = $84C1;
-  GL_TEXTURE2_ARB = $84C2;
-  GL_TEXTURE3_ARB = $84C3;
-  GL_TEXTURE4_ARB = $84C4;
-  GL_TEXTURE5_ARB = $84C5;
-  GL_TEXTURE6_ARB = $84C6;
-  GL_TEXTURE7_ARB = $84C7;
-  GL_TEXTURE8_ARB = $84C8;
-  GL_TEXTURE9_ARB = $84C9;
-  GL_TEXTURE10_ARB = $84CA;
-  GL_TEXTURE11_ARB = $84CB;
-  GL_TEXTURE12_ARB = $84CC;
-  GL_TEXTURE13_ARB = $84CD;
-  GL_TEXTURE14_ARB = $84CE;
-  GL_TEXTURE15_ARB = $84CF;
-  GL_TEXTURE16_ARB = $84D0;
-  GL_TEXTURE17_ARB = $84D1;
-  GL_TEXTURE18_ARB = $84D2;
-  GL_TEXTURE19_ARB = $84D3;
-  GL_TEXTURE20_ARB = $84D4;
-  GL_TEXTURE21_ARB = $84D5;
-  GL_TEXTURE22_ARB = $84D6;
-  GL_TEXTURE23_ARB = $84D7;
-  GL_TEXTURE24_ARB = $84D8;
-  GL_TEXTURE25_ARB = $84D9;
-  GL_TEXTURE26_ARB = $84DA;
-  GL_TEXTURE27_ARB = $84DB;
-  GL_TEXTURE28_ARB = $84DC;
-  GL_TEXTURE29_ARB = $84DD;
-  GL_TEXTURE30_ARB = $84DE;
-  GL_TEXTURE31_ARB = $84DF;
-  GL_ACTIVE_TEXTURE_ARB = $84E0;
-  GL_CLIENT_ACTIVE_TEXTURE_ARB = $84E1;
-  GL_MAX_TEXTURE_UNITS_ARB = $84E2;
-
-  // GL_ARB_point_parameters
-  GL_POINT_SIZE_MIN_ARB = $8126;
-  GL_POINT_SIZE_MAX_ARB = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE_ARB = $8128;
-  GL_POINT_DISTANCE_ATTENUATION_ARB = $8129;
-
-  // GL_ARB_shadow
-  GL_TEXTURE_COMPARE_MODE_ARB = $884C;
-  GL_TEXTURE_COMPARE_FUNC_ARB = $884D;
-  GL_COMPARE_R_TO_TEXTURE_ARB = $884E;
-
-  // GL_ARB_shadow_ambient
-  GL_TEXTURE_COMPARE_FAIL_VALUE_ARB = $80BF;
-
-  // GL_ARB_texture_border_clamp
-  GL_CLAMP_TO_BORDER_ARB = $812D;
-
-  // GL_ARB_texture_compression
-  GL_COMPRESSED_ALPHA_ARB = $84E9;
-  GL_COMPRESSED_LUMINANCE_ARB = $84EA;
-  GL_COMPRESSED_LUMINANCE_ALPHA_ARB = $84EB;
-  GL_COMPRESSED_INTENSITY_ARB = $84EC;
-  GL_COMPRESSED_RGB_ARB = $84ED;
-  GL_COMPRESSED_RGBA_ARB = $84EE;
-  GL_TEXTURE_COMPRESSION_HINT_ARB = $84EF;
-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB = $86A0;
-  GL_TEXTURE_COMPRESSED_ARB = $86A1;
-  GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB = $86A2;
-  GL_COMPRESSED_TEXTURE_FORMATS_ARB = $86A3;
-
-  // GL_ARB_texture_cube_map
-  GL_NORMAL_MAP_ARB = $8511;
-  GL_REFLECTION_MAP_ARB = $8512;
-  GL_TEXTURE_CUBE_MAP_ARB = $8513;
-  GL_TEXTURE_BINDING_CUBE_MAP_ARB = $8514;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $8515;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $8516;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $8517;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $8518;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $8519;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $851A;
-  GL_PROXY_TEXTURE_CUBE_MAP_ARB = $851B;
-  GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB = $851C;
-
-  // GL_ARB_texture_env_combine
-  GL_COMBINE_ARB = $8570;
-  GL_COMBINE_RGB_ARB = $8571;
-  GL_COMBINE_ALPHA_ARB = $8572;
-  GL_SOURCE0_RGB_ARB = $8580;
-  GL_SOURCE1_RGB_ARB = $8581;
-  GL_SOURCE2_RGB_ARB = $8582;
-  GL_SOURCE0_ALPHA_ARB = $8588;
-  GL_SOURCE1_ALPHA_ARB = $8589;
-  GL_SOURCE2_ALPHA_ARB = $858A;
-  GL_OPERAND0_RGB_ARB = $8590;
-  GL_OPERAND1_RGB_ARB = $8591;
-  GL_OPERAND2_RGB_ARB = $8592;
-  GL_OPERAND0_ALPHA_ARB = $8598;
-  GL_OPERAND1_ALPHA_ARB = $8599;
-  GL_OPERAND2_ALPHA_ARB = $859A;
-  GL_RGB_SCALE_ARB = $8573;
-  GL_ADD_SIGNED_ARB = $8574;
-  GL_INTERPOLATE_ARB = $8575;
-  GL_SUBTRACT_ARB = $84E7;
-  GL_CONSTANT_ARB = $8576;
-  GL_PRIMARY_COLOR_ARB = $8577;
-  GL_PREVIOUS_ARB = $8578;
-
-  // GL_ARB_texture_env_dot3
-  GL_DOT3_RGB_ARB = $86AE;
-  GL_DOT3_RGBA_ARB = $86AF;
-
-  // GL_ARB_texture_mirrored_repeat
-  GL_MIRRORED_REPEAT_ARB = $8370;
-
-  // GL_ARB_transpose_matrix
-  GL_TRANSPOSE_MODELVIEW_MATRIX_ARB = $84E3;
-  GL_TRANSPOSE_PROJECTION_MATRIX_ARB = $84E4;
-  GL_TRANSPOSE_TEXTURE_MATRIX_ARB = $84E5;
-  GL_TRANSPOSE_COLOR_MATRIX_ARB = $84E6;
-
-  // GL_ARB_vertex_blend
-  GL_MAX_VERTEX_UNITS_ARB = $86A4;
-  GL_ACTIVE_VERTEX_UNITS_ARB = $86A5;
-  GL_WEIGHT_SUM_UNITY_ARB = $86A6;
-  GL_VERTEX_BLEND_ARB = $86A7;
-  GL_CURRENT_WEIGHT_ARB = $86A8;
-  GL_WEIGHT_ARRAY_TYPE_ARB = $86A9;
-  GL_WEIGHT_ARRAY_STRIDE_ARB = $86AA;
-  GL_WEIGHT_ARRAY_SIZE_ARB = $86AB;
-  GL_WEIGHT_ARRAY_POINTER_ARB = $86AC;
-  GL_WEIGHT_ARRAY_ARB = $86AD;
-  GL_MODELVIEW0_ARB = $1700;
-  GL_MODELVIEW1_ARB = $850A;
-  GL_MODELVIEW2_ARB = $8722;
-  GL_MODELVIEW3_ARB = $8723;
-  GL_MODELVIEW4_ARB = $8724;
-  GL_MODELVIEW5_ARB = $8725;
-  GL_MODELVIEW6_ARB = $8726;
-  GL_MODELVIEW7_ARB = $8727;
-  GL_MODELVIEW8_ARB = $8728;
-  GL_MODELVIEW9_ARB = $8729;
-  GL_MODELVIEW10_ARB = $872A;
-  GL_MODELVIEW11_ARB = $872B;
-  GL_MODELVIEW12_ARB = $872C;
-  GL_MODELVIEW13_ARB = $872D;
-  GL_MODELVIEW14_ARB = $872E;
-  GL_MODELVIEW15_ARB = $872F;
-  GL_MODELVIEW16_ARB = $8730;
-  GL_MODELVIEW17_ARB = $8731;
-  GL_MODELVIEW18_ARB = $8732;
-  GL_MODELVIEW19_ARB = $8733;
-  GL_MODELVIEW20_ARB = $8734;
-  GL_MODELVIEW21_ARB = $8735;
-  GL_MODELVIEW22_ARB = $8736;
-  GL_MODELVIEW23_ARB = $8737;
-  GL_MODELVIEW24_ARB = $8738;
-  GL_MODELVIEW25_ARB = $8739;
-  GL_MODELVIEW26_ARB = $873A;
-  GL_MODELVIEW27_ARB = $873B;
-  GL_MODELVIEW28_ARB = $873C;
-  GL_MODELVIEW29_ARB = $873D;
-  GL_MODELVIEW30_ARB = $873E;
-  GL_MODELVIEW31_ARB = $873F;
-
-  // GL_ARB_vertex_buffer_object
-  GL_BUFFER_SIZE_ARB = $8764;
-  GL_BUFFER_USAGE_ARB = $8765;
-  GL_ARRAY_BUFFER_ARB = $8892;
-  GL_ELEMENT_ARRAY_BUFFER_ARB = $8893;
-  GL_ARRAY_BUFFER_BINDING_ARB = $8894;
-  GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB = $8895;
-  GL_VERTEX_ARRAY_BUFFER_BINDING_ARB = $8896;
-  GL_NORMAL_ARRAY_BUFFER_BINDING_ARB = $8897;
-  GL_COLOR_ARRAY_BUFFER_BINDING_ARB = $8898;
-  GL_INDEX_ARRAY_BUFFER_BINDING_ARB = $8899;
-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB = $889A;
-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB = $889B;
-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB = $889C;
-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB = $889D;
-  GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB = $889E;
-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB = $889F;
-  GL_READ_ONLY_ARB = $88B8;
-  GL_WRITE_ONLY_ARB = $88B9;
-  GL_READ_WRITE_ARB = $88BA;
-  GL_BUFFER_ACCESS_ARB = $88BB;
-  GL_BUFFER_MAPPED_ARB = $88BC;
-  GL_BUFFER_MAP_POINTER_ARB = $88BD;
-  GL_STREAM_DRAW_ARB = $88E0;
-  GL_STREAM_READ_ARB = $88E1;
-  GL_STREAM_COPY_ARB = $88E2;
-  GL_STATIC_DRAW_ARB = $88E4;
-  GL_STATIC_READ_ARB = $88E5;
-  GL_STATIC_COPY_ARB = $88E6;
-  GL_DYNAMIC_DRAW_ARB = $88E8;
-  GL_DYNAMIC_READ_ARB = $88E9;
-  GL_DYNAMIC_COPY_ARB = $88EA;
-
-  // GL_ARB_vertex_program
-  GL_COLOR_SUM_ARB = $8458;
-  GL_VERTEX_PROGRAM_ARB = $8620;
-  GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB = $8622;
-  GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB = $8623;
-  GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB = $8624;
-  GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB = $8625;
-  GL_CURRENT_VERTEX_ATTRIB_ARB = $8626;
-  GL_PROGRAM_LENGTH_ARB = $8627;
-  GL_PROGRAM_STRING_ARB = $8628;
-  GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB = $862E;
-  GL_MAX_PROGRAM_MATRICES_ARB = $862F;
-  GL_CURRENT_MATRIX_STACK_DEPTH_ARB = $8640;
-  GL_CURRENT_MATRIX_ARB = $8641;
-  GL_VERTEX_PROGRAM_POINT_SIZE_ARB = $8642;
-  GL_VERTEX_PROGRAM_TWO_SIDE_ARB = $8643;
-  GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB = $8645;
-  GL_PROGRAM_ERROR_POSITION_ARB = $864B;
-  GL_PROGRAM_BINDING_ARB = $8677;
-  GL_MAX_VERTEX_ATTRIBS_ARB = $8869;
-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB = $886A;
-  GL_PROGRAM_ERROR_STRING_ARB = $8874;
-  GL_PROGRAM_FORMAT_ASCII_ARB = $8875;
-  GL_PROGRAM_FORMAT_ARB = $8876;
-  GL_PROGRAM_INSTRUCTIONS_ARB = $88A0;
-  GL_MAX_PROGRAM_INSTRUCTIONS_ARB = $88A1;
-  GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A2;
-  GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A3;
-  GL_PROGRAM_TEMPORARIES_ARB = $88A4;
-  GL_MAX_PROGRAM_TEMPORARIES_ARB = $88A5;
-  GL_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A6;
-  GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A7;
-  GL_PROGRAM_PARAMETERS_ARB = $88A8;
-  GL_MAX_PROGRAM_PARAMETERS_ARB = $88A9;
-  GL_PROGRAM_NATIVE_PARAMETERS_ARB = $88AA;
-  GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB = $88AB;
-  GL_PROGRAM_ATTRIBS_ARB = $88AC;
-  GL_MAX_PROGRAM_ATTRIBS_ARB = $88AD;
-  GL_PROGRAM_NATIVE_ATTRIBS_ARB = $88AE;
-  GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB = $88AF;
-  GL_PROGRAM_ADDRESS_REGISTERS_ARB = $88B0;
-  GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB = $88B1;
-  GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B2;
-  GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B3;
-  GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB = $88B4;
-  GL_MAX_PROGRAM_ENV_PARAMETERS_ARB = $88B5;
-  GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB = $88B6;
-  GL_TRANSPOSE_CURRENT_MATRIX_ARB = $88B7;
-  GL_MATRIX0_ARB = $88C0;
-  GL_MATRIX1_ARB = $88C1;
-  GL_MATRIX2_ARB = $88C2;
-  GL_MATRIX3_ARB = $88C3;
-  GL_MATRIX4_ARB = $88C4;
-  GL_MATRIX5_ARB = $88C5;
-  GL_MATRIX6_ARB = $88C6;
-  GL_MATRIX7_ARB = $88C7;
-  GL_MATRIX8_ARB = $88C8;
-  GL_MATRIX9_ARB = $88C9;
-  GL_MATRIX10_ARB = $88CA;
-  GL_MATRIX11_ARB = $88CB;
-  GL_MATRIX12_ARB = $88CC;
-  GL_MATRIX13_ARB = $88CD;
-  GL_MATRIX14_ARB = $88CE;
-  GL_MATRIX15_ARB = $88CF;
-  GL_MATRIX16_ARB = $88D0;
-  GL_MATRIX17_ARB = $88D1;
-  GL_MATRIX18_ARB = $88D2;
-  GL_MATRIX19_ARB = $88D3;
-  GL_MATRIX20_ARB = $88D4;
-  GL_MATRIX21_ARB = $88D5;
-  GL_MATRIX22_ARB = $88D6;
-  GL_MATRIX23_ARB = $88D7;
-  GL_MATRIX24_ARB = $88D8;
-  GL_MATRIX25_ARB = $88D9;
-  GL_MATRIX26_ARB = $88DA;
-  GL_MATRIX27_ARB = $88DB;
-  GL_MATRIX28_ARB = $88DC;
-  GL_MATRIX29_ARB = $88DD;
-  GL_MATRIX30_ARB = $88DE;
-  GL_MATRIX31_ARB = $88DF;
-
-  // GL_ARB_draw_buffers
-  GL_MAX_DRAW_BUFFERS_ARB = $8824;
-  GL_DRAW_BUFFER0_ARB = $8825;
-  GL_DRAW_BUFFER1_ARB = $8826;
-  GL_DRAW_BUFFER2_ARB = $8827;
-  GL_DRAW_BUFFER3_ARB = $8828;
-  GL_DRAW_BUFFER4_ARB = $8829;
-  GL_DRAW_BUFFER5_ARB = $882A;
-  GL_DRAW_BUFFER6_ARB = $882B;
-  GL_DRAW_BUFFER7_ARB = $882C;
-  GL_DRAW_BUFFER8_ARB = $882D;
-  GL_DRAW_BUFFER9_ARB = $882E;
-  GL_DRAW_BUFFER10_ARB = $882F;
-  GL_DRAW_BUFFER11_ARB = $8830;
-  GL_DRAW_BUFFER12_ARB = $8831;
-  GL_DRAW_BUFFER13_ARB = $8832;
-  GL_DRAW_BUFFER14_ARB = $8833;
-  GL_DRAW_BUFFER15_ARB = $8834;
-
-  // GL_ARB_texture_rectangle
-  GL_TEXTURE_RECTANGLE_ARB = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_ARB = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_ARB = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB = $84F8;
-
-  // GL_ARB_color_buffer_float
-  GL_RGBA_FLOAT_MODE_ARB = $8820;
-  GL_CLAMP_VERTEX_COLOR_ARB = $891A;
-  GL_CLAMP_FRAGMENT_COLOR_ARB = $891B;
-  GL_CLAMP_READ_COLOR_ARB = $891C;
-  GL_FIXED_ONLY_ARB = $891D;
-  WGL_TYPE_RGBA_FLOAT_ARB = $21A0;
-  GLX_RGBA_FLOAT_TYPE = $20B9;
-  GLX_RGBA_FLOAT_BIT = $00000004;
-
-  // GL_ARB_half_float_pixel
-  GL_HALF_FLOAT_ARB = $140B;
-
-  // GL_ARB_texture_float
-  GL_TEXTURE_RED_TYPE_ARB = $8C10;
-  GL_TEXTURE_GREEN_TYPE_ARB = $8C11;
-  GL_TEXTURE_BLUE_TYPE_ARB = $8C12;
-  GL_TEXTURE_ALPHA_TYPE_ARB = $8C13;
-  GL_TEXTURE_LUMINANCE_TYPE_ARB = $8C14;
-  GL_TEXTURE_INTENSITY_TYPE_ARB = $8C15;
-  GL_TEXTURE_DEPTH_TYPE_ARB = $8C16;
-  GL_UNSIGNED_NORMALIZED_ARB = $8C17;
-  GL_RGBA32F_ARB = $8814;
-  GL_RGB32F_ARB = $8815;
-  GL_ALPHA32F_ARB = $8816;
-  GL_INTENSITY32F_ARB = $8817;
-  GL_LUMINANCE32F_ARB = $8818;
-  GL_LUMINANCE_ALPHA32F_ARB = $8819;
-  GL_RGBA16F_ARB = $881A;
-  GL_RGB16F_ARB = $881B;
-  GL_ALPHA16F_ARB = $881C;
-  GL_INTENSITY16F_ARB = $881D;
-  GL_LUMINANCE16F_ARB = $881E;
-  GL_LUMINANCE_ALPHA16F_ARB = $881F;
-
-  // GL_ARB_pixel_buffer_object
-  GL_PIXEL_PACK_BUFFER_ARB = $88EB;
-  GL_PIXEL_UNPACK_BUFFER_ARB = $88EC;
-  GL_PIXEL_PACK_BUFFER_BINDING_ARB = $88ED;
-  GL_PIXEL_UNPACK_BUFFER_BINDING_ARB = $88EF;
-
-  // GL_ARB_depth_buffer_float
-  GL_DEPTH_COMPONENT32F = $8CAC;
-  GL_DEPTH32F_STENCIL8 = $8CAD;
-  GL_FLOAT_32_UNSIGNED_INT_24_8_REV = $8DAD;
-
-  // GL_ARB_framebuffer_object
-  GL_INVALID_FRAMEBUFFER_OPERATION = $0506;
-  GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING = $8210;
-  GL_FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE = $8211;
-  GL_FRAMEBUFFER_ATTACHMENT_RED_SIZE = $8212;
-  GL_FRAMEBUFFER_ATTACHMENT_GREEN_SIZE = $8213;
-  GL_FRAMEBUFFER_ATTACHMENT_BLUE_SIZE = $8214;
-  GL_FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE = $8215;
-  GL_FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE = $8216;
-  GL_FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE = $8217;
-  GL_FRAMEBUFFER_DEFAULT = $8218;
-  GL_FRAMEBUFFER_UNDEFINED = $8219;
-  GL_DEPTH_STENCIL_ATTACHMENT = $821A;
-  GL_MAX_RENDERBUFFER_SIZE = $84E8;
-  GL_DEPTH_STENCIL = $84F9;
-  GL_UNSIGNED_INT_24_8 = $84FA;
-  GL_DEPTH24_STENCIL8 = $88F0;
-  GL_TEXTURE_STENCIL_SIZE = $88F1;
-  GL_TEXTURE_RED_TYPE = $8C10;
-  GL_TEXTURE_GREEN_TYPE = $8C11;
-  GL_TEXTURE_BLUE_TYPE = $8C12;
-  GL_TEXTURE_ALPHA_TYPE = $8C13;
-  GL_TEXTURE_DEPTH_TYPE = $8C16;
-  GL_UNSIGNED_NORMALIZED = $8C17;
-  GL_FRAMEBUFFER_BINDING = $8CA6;
-  GL_DRAW_FRAMEBUFFER_BINDING = GL_FRAMEBUFFER_BINDING;
-  GL_RENDERBUFFER_BINDING = $8CA7;
-  GL_READ_FRAMEBUFFER = $8CA8;
-  GL_DRAW_FRAMEBUFFER = $8CA9;
-  GL_READ_FRAMEBUFFER_BINDING = $8CAA;
-  GL_RENDERBUFFER_SAMPLES = $8CAB;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = $8CD0;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = $8CD1;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = $8CD2;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = $8CD3;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER = $8CD4;
-  GL_FRAMEBUFFER_COMPLETE = $8CD5;
-  GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT = $8CD6;
-  GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = $8CD7;
-  GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER = $8CDB;
-  GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER = $8CDC;
-  GL_FRAMEBUFFER_UNSUPPORTED = $8CDD;
-  GL_MAX_COLOR_ATTACHMENTS = $8CDF;
-  GL_COLOR_ATTACHMENT0 = $8CE0;
-  GL_COLOR_ATTACHMENT1 = $8CE1;
-  GL_COLOR_ATTACHMENT2 = $8CE2;
-  GL_COLOR_ATTACHMENT3 = $8CE3;
-  GL_COLOR_ATTACHMENT4 = $8CE4;
-  GL_COLOR_ATTACHMENT5 = $8CE5;
-  GL_COLOR_ATTACHMENT6 = $8CE6;
-  GL_COLOR_ATTACHMENT7 = $8CE7;
-  GL_COLOR_ATTACHMENT8 = $8CE8;
-  GL_COLOR_ATTACHMENT9 = $8CE9;
-  GL_COLOR_ATTACHMENT10 = $8CEA;
-  GL_COLOR_ATTACHMENT11 = $8CEB;
-  GL_COLOR_ATTACHMENT12 = $8CEC;
-  GL_COLOR_ATTACHMENT13 = $8CED;
-  GL_COLOR_ATTACHMENT14 = $8CEE;
-  GL_COLOR_ATTACHMENT15 = $8CEF;
-  GL_DEPTH_ATTACHMENT = $8D00;
-  GL_STENCIL_ATTACHMENT = $8D20;
-  GL_FRAMEBUFFER = $8D40;
-  GL_RENDERBUFFER = $8D41;
-  GL_RENDERBUFFER_WIDTH = $8D42;
-  GL_RENDERBUFFER_HEIGHT = $8D43;
-  GL_RENDERBUFFER_INTERNAL_FORMAT = $8D44;
-  GL_STENCIL_INDEX1 = $8D46;
-  GL_STENCIL_INDEX4 = $8D47;
-  GL_STENCIL_INDEX8 = $8D48;
-  GL_STENCIL_INDEX16 = $8D49;
-  GL_RENDERBUFFER_RED_SIZE = $8D50;
-  GL_RENDERBUFFER_GREEN_SIZE = $8D51;
-  GL_RENDERBUFFER_BLUE_SIZE = $8D52;
-  GL_RENDERBUFFER_ALPHA_SIZE = $8D53;
-  GL_RENDERBUFFER_DEPTH_SIZE = $8D54;
-  GL_RENDERBUFFER_STENCIL_SIZE = $8D55;
-  GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE = $8D56;
-  GL_MAX_SAMPLES = $8D57;
-{$ifdef DGL_DEPRECATED}
-  GL_INDEX = $8222;
-  GL_TEXTURE_LUMINANCE_TYPE = $8C14;
-  GL_TEXTURE_INTENSITY_TYPE = $8C15;
-{$endif}
-
-  // GL_ARB_framebuffer_sRGB
-  GL_FRAMEBUFFER_SRGB = $8DB9;
-
-  // GL_ARB_geometry_shader4
-  GL_LINES_ADJACENCY_ARB = $000A;
-  GL_LINE_STRIP_ADJACENCY_ARB = $000B;
-  GL_TRIANGLES_ADJACENCY_ARB = $000C;
-  GL_TRIANGLE_STRIP_ADJACENCY_ARB = $000D;
-  GL_PROGRAM_POINT_SIZE_ARB = $8642;
-  GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS_ARB = $8C29;
-  GL_FRAMEBUFFER_ATTACHMENT_LAYERED_ARB = $8DA7;
-  GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_ARB = $8DA8;
-  GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_ARB = $8DA9;
-  GL_GEOMETRY_SHADER_ARB = $8DD9;
-  GL_GEOMETRY_VERTICES_OUT_ARB = $8DDA;
-  GL_GEOMETRY_INPUT_TYPE_ARB = $8DDB;
-  GL_GEOMETRY_OUTPUT_TYPE_ARB = $8DDC;
-  GL_MAX_GEOMETRY_VARYING_COMPONENTS_ARB = $8DDD;
-  GL_MAX_VERTEX_VARYING_COMPONENTS_ARB = $8DDE;
-  GL_MAX_GEOMETRY_UNIFORM_COMPONENTS_ARB = $8DDF;
-  GL_MAX_GEOMETRY_OUTPUT_VERTICES_ARB = $8DE0;
-  GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS_ARB = $8DE1;
-  { reuse GL_MAX_VARYING_COMPONENTS }
-  { reuse GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER }
-
-  // GL_ARB_half_float_vertex
-  GL_HALF_FLOAT = $140B;
-
-  // GL_ARB_instanced_arrays
-  GL_VERTEX_ATTRIB_ARRAY_DIVISOR_ARB = $88FE;
-
-  // GL_ARB_map_buffer_range
-  GL_MAP_READ_BIT = $0001;
-  GL_MAP_WRITE_BIT = $0002;
-  GL_MAP_INVALIDATE_RANGE_BIT = $0004;
-  GL_MAP_INVALIDATE_BUFFER_BIT = $0008;
-  GL_MAP_FLUSH_EXPLICIT_BIT = $0010;
-  GL_MAP_UNSYNCHRONIZED_BIT = $0020;
-
-  // GL_ARB_texture_buffer_object
-  GL_TEXTURE_BUFFER_ARB = $8C2A;
-  GL_MAX_TEXTURE_BUFFER_SIZE_ARB = $8C2B;
-  GL_TEXTURE_BINDING_BUFFER_ARB = $8C2C;
-  GL_TEXTURE_BUFFER_DATA_STORE_BINDING_ARB = $8C2D;
-  GL_TEXTURE_BUFFER_FORMAT_ARB = $8C2E;
-
-  // GL_ARB_texture_compression_rgtc
-  GL_COMPRESSED_RED_RGTC1 = $8DBB;
-  GL_COMPRESSED_SIGNED_RED_RGTC1 = $8DBC;
-  GL_COMPRESSED_RG_RGTC2 = $8DBD;
-  GL_COMPRESSED_SIGNED_RG_RGTC2 = $8DBE;
-
-  // GL_ARB_texture_rg
-  GL_RG = $8227;
-  GL_RG_INTEGER = $8228;
-  GL_R8 = $8229;
-  GL_R16 = $822A;
-  GL_RG8 = $822B;
-  GL_RG16 = $822C;
-  GL_R16F = $822D;
-  GL_R32F = $822E;
-  GL_RG16F = $822F;
-  GL_RG32F = $8230;
-  GL_R8I = $8231;
-  GL_R8UI = $8232;
-  GL_R16I = $8233;
-  GL_R16UI = $8234;
-  GL_R32I = $8235;
-  GL_R32UI = $8236;
-  GL_RG8I = $8237;
-  GL_RG8UI = $8238;
-  GL_RG16I = $8239;
-  GL_RG16UI = $823A;
-  GL_RG32I = $823B;
-  GL_RG32UI = $823C;
-
-  // GL_ARB_vertex_array_object
-  GL_VERTEX_ARRAY_BINDING = $85B5;
-
-  // GL_ARB_uniform_buffer_object
-  GL_UNIFORM_BUFFER = $8A11;
-  GL_UNIFORM_BUFFER_BINDING = $8A28;
-  GL_UNIFORM_BUFFER_START = $8A29;
-  GL_UNIFORM_BUFFER_SIZE = $8A2A;
-  GL_MAX_VERTEX_UNIFORM_BLOCKS = $8A2B;
-  GL_MAX_GEOMETRY_UNIFORM_BLOCKS = $8A2C;
-  GL_MAX_FRAGMENT_UNIFORM_BLOCKS = $8A2D;
-  GL_MAX_COMBINED_UNIFORM_BLOCKS = $8A2E;
-  GL_MAX_UNIFORM_BUFFER_BINDINGS = $8A2F;
-  GL_MAX_UNIFORM_BLOCK_SIZE = $8A30;
-  GL_MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS = $8A31;
-  GL_MAX_COMBINED_GEOMETRY_UNIFORM_COMPONENTS = $8A32;
-  GL_MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS = $8A33;
-  GL_UNIFORM_BUFFER_OFFSET_ALIGNMENT = $8A34;
-  GL_ACTIVE_UNIFORM_BLOCK_MAX_NAME_LENGTH = $8A35;
-  GL_ACTIVE_UNIFORM_BLOCKS = $8A36;
-  GL_UNIFORM_TYPE = $8A37;
-  GL_UNIFORM_SIZE = $8A38;
-  GL_UNIFORM_NAME_LENGTH = $8A39;
-  GL_UNIFORM_BLOCK_INDEX = $8A3A;
-  GL_UNIFORM_OFFSET = $8A3B;
-  GL_UNIFORM_ARRAY_STRIDE = $8A3C;
-  GL_UNIFORM_MATRIX_STRIDE = $8A3D;
-  GL_UNIFORM_IS_ROW_MAJOR = $8A3E;
-  GL_UNIFORM_BLOCK_BINDING = $8A3F;
-  GL_UNIFORM_BLOCK_DATA_SIZE = $8A40;
-  GL_UNIFORM_BLOCK_NAME_LENGTH = $8A41;
-  GL_UNIFORM_BLOCK_ACTIVE_UNIFORMS = $8A42;
-  GL_UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES = $8A43;
-  GL_UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER = $8A44;
-  GL_UNIFORM_BLOCK_REFERENCED_BY_GEOMETRY_SHADER = $8A45;
-  GL_UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER = $8A46;
-  GL_INVALID_INDEX = $FFFFFFFF;
-
-  // GL_ARB_compatibility
-  { ARB_compatibility just defines tokens from core 3.0 }
-
-  // GL_ARB_copy_buffer
-  GL_COPY_READ_BUFFER = $8F36;
-  GL_COPY_WRITE_BUFFER = $8F37;
-
-  // GL_ARB_depth_clamp
-  GL_DEPTH_CLAMP = $864F;
-
-  // GL_ARB_provoking_vertex
-  GL_QUADS_FOLLOW_PROVOKING_VERTEX_CONVENTION = $8E4C;
-  GL_FIRST_VERTEX_CONVENTION = $8E4D;
-  GL_LAST_VERTEX_CONVENTION = $8E4E;
-  GL_PROVOKING_VERTEX = $8E4F;
-
-  // GL_ARB_seamless_cube_map
-  GL_TEXTURE_CUBE_MAP_SEAMLESS = $884F;
-
-  // GL_ARB_sync
-  GL_MAX_SERVER_WAIT_TIMEOUT = $9111;
-  GL_OBJECT_TYPE = $9112;
-  GL_SYNC_CONDITION = $9113;
-  GL_SYNC_STATUS = $9114;
-  GL_SYNC_FLAGS = $9115;
-  GL_SYNC_FENCE = $9116;
-  GL_SYNC_GPU_COMMANDS_COMPLETE = $9117;
-  GL_UNSIGNALED = $9118;
-  GL_SIGNALED = $9119;
-  GL_ALREADY_SIGNALED = $911A;
-  GL_TIMEOUT_EXPIRED = $911B;
-  GL_CONDITION_SATISFIED = $911C;
-  GL_WAIT_FAILED = $911D;
-  GL_SYNC_FLUSH_COMMANDS_BIT = $00000001;
-  GL_TIMEOUT_IGNORED = $FFFFFFFFFFFFFFFF;
-
-  // GL_ARB_texture_multisample
-  GL_SAMPLE_POSITION = $8E50;
-  GL_SAMPLE_MASK = $8E51;
-  GL_SAMPLE_MASK_VALUE = $8E52;
-  GL_MAX_SAMPLE_MASK_WORDS = $8E59;
-  GL_TEXTURE_2D_MULTISAMPLE = $9100;
-  GL_PROXY_TEXTURE_2D_MULTISAMPLE = $9101;
-  GL_TEXTURE_2D_MULTISAMPLE_ARRAY = $9102;
-  GL_PROXY_TEXTURE_2D_MULTISAMPLE_ARRAY = $9103;
-  GL_TEXTURE_BINDING_2D_MULTISAMPLE = $9104;
-  GL_TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY = $9105;
-  GL_TEXTURE_SAMPLES = $9106;
-  GL_TEXTURE_FIXED_SAMPLE_LOCATIONS = $9107;
-  GL_SAMPLER_2D_MULTISAMPLE = $9108;
-  GL_INT_SAMPLER_2D_MULTISAMPLE = $9109;
-  GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE = $910A;
-  GL_SAMPLER_2D_MULTISAMPLE_ARRAY = $910B;
-  GL_INT_SAMPLER_2D_MULTISAMPLE_ARRAY = $910C;
-  GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY = $910D;
-  GL_MAX_COLOR_TEXTURE_SAMPLES = $910E;
-  GL_MAX_DEPTH_TEXTURE_SAMPLES = $910F;
-  GL_MAX_INTEGER_SAMPLES = $9110;
-
-  // GL_ARB_vertex_array_bgra
-  { reuse GL_BGRA }
-
-  // GL_ARB_sample_shading
-  GL_SAMPLE_SHADING = $8C36;
-  GL_MIN_SAMPLE_SHADING_VALUE = $8C37;
-
-  // GL_ARB_texture_cube_map_array
-  GL_TEXTURE_CUBE_MAP_ARRAY = $9009;
-  GL_TEXTURE_BINDING_CUBE_MAP_ARRAY = $900A;
-  GL_PROXY_TEXTURE_CUBE_MAP_ARRAY = $900B;
-  GL_SAMPLER_CUBE_MAP_ARRAY = $900C;
-  GL_SAMPLER_CUBE_MAP_ARRAY_SHADOW = $900D;
-  GL_INT_SAMPLER_CUBE_MAP_ARRAY = $900E;
-  GL_UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY = $900F;
-
-  // GL_ARB_texture_gather
-  GL_MIN_PROGRAM_TEXTURE_GATHER_OFFSET = $8E5E;
-  GL_MAX_PROGRAM_TEXTURE_GATHER_OFFSET = $8E5F;
-  GL_MAX_PROGRAM_TEXTURE_GATHER_COMPONENTS = $8F9F;
-
-  // GL_ATI_draw_buffers
-  GL_MAX_DRAW_BUFFERS_ATI = $8824;
-  GL_DRAW_BUFFER0_ATI = $8825;
-  GL_DRAW_BUFFER1_ATI = $8826;
-  GL_DRAW_BUFFER2_ATI = $8827;
-  GL_DRAW_BUFFER3_ATI = $8828;
-  GL_DRAW_BUFFER4_ATI = $8829;
-  GL_DRAW_BUFFER5_ATI = $882A;
-  GL_DRAW_BUFFER6_ATI = $882B;
-  GL_DRAW_BUFFER7_ATI = $882C;
-  GL_DRAW_BUFFER8_ATI = $882D;
-  GL_DRAW_BUFFER9_ATI = $882E;
-  GL_DRAW_BUFFER10_ATI = $882F;
-  GL_DRAW_BUFFER11_ATI = $8830;
-  GL_DRAW_BUFFER12_ATI = $8831;
-  GL_DRAW_BUFFER13_ATI = $8832;
-  GL_DRAW_BUFFER14_ATI = $8833;
-  GL_DRAW_BUFFER15_ATI = $8834;
-
-  // GL_ATI_element_array
-  GL_ELEMENT_ARRAY_ATI = $8768;
-  GL_ELEMENT_ARRAY_TYPE_ATI = $8769;
-  GL_ELEMENT_ARRAY_POINTER_ATI = $876A;
-
-  // GL_ATI_envmap_bumpmap
-  GL_BUMP_ROT_MATRIX_ATI = $8775;
-  GL_BUMP_ROT_MATRIX_SIZE_ATI = $8776;
-  GL_BUMP_NUM_TEX_UNITS_ATI = $8777;
-  GL_BUMP_TEX_UNITS_ATI = $8778;
-  GL_DUDV_ATI = $8779;
-  GL_DU8DV8_ATI = $877A;
-  GL_BUMP_ENVMAP_ATI = $877B;
-  GL_BUMP_TARGET_ATI = $877C;
-
-  // GL_ATI_fragment_shader
-  GL_FRAGMENT_SHADER_ATI = $8920;
-  GL_REG_0_ATI = $8921;
-  GL_REG_1_ATI = $8922;
-  GL_REG_2_ATI = $8923;
-  GL_REG_3_ATI = $8924;
-  GL_REG_4_ATI = $8925;
-  GL_REG_5_ATI = $8926;
-  GL_REG_6_ATI = $8927;
-  GL_REG_7_ATI = $8928;
-  GL_REG_8_ATI = $8929;
-  GL_REG_9_ATI = $892A;
-  GL_REG_10_ATI = $892B;
-  GL_REG_11_ATI = $892C;
-  GL_REG_12_ATI = $892D;
-  GL_REG_13_ATI = $892E;
-  GL_REG_14_ATI = $892F;
-  GL_REG_15_ATI = $8930;
-  GL_REG_16_ATI = $8931;
-  GL_REG_17_ATI = $8932;
-  GL_REG_18_ATI = $8933;
-  GL_REG_19_ATI = $8934;
-  GL_REG_20_ATI = $8935;
-  GL_REG_21_ATI = $8936;
-  GL_REG_22_ATI = $8937;
-  GL_REG_23_ATI = $8938;
-  GL_REG_24_ATI = $8939;
-  GL_REG_25_ATI = $893A;
-  GL_REG_26_ATI = $893B;
-  GL_REG_27_ATI = $893C;
-  GL_REG_28_ATI = $893D;
-  GL_REG_29_ATI = $893E;
-  GL_REG_30_ATI = $893F;
-  GL_REG_31_ATI = $8940;
-  GL_CON_0_ATI = $8941;
-  GL_CON_1_ATI = $8942;
-  GL_CON_2_ATI = $8943;
-  GL_CON_3_ATI = $8944;
-  GL_CON_4_ATI = $8945;
-  GL_CON_5_ATI = $8946;
-  GL_CON_6_ATI = $8947;
-  GL_CON_7_ATI = $8948;
-  GL_CON_8_ATI = $8949;
-  GL_CON_9_ATI = $894A;
-  GL_CON_10_ATI = $894B;
-  GL_CON_11_ATI = $894C;
-  GL_CON_12_ATI = $894D;
-  GL_CON_13_ATI = $894E;
-  GL_CON_14_ATI = $894F;
-  GL_CON_15_ATI = $8950;
-  GL_CON_16_ATI = $8951;
-  GL_CON_17_ATI = $8952;
-  GL_CON_18_ATI = $8953;
-  GL_CON_19_ATI = $8954;
-  GL_CON_20_ATI = $8955;
-  GL_CON_21_ATI = $8956;
-  GL_CON_22_ATI = $8957;
-  GL_CON_23_ATI = $8958;
-  GL_CON_24_ATI = $8959;
-  GL_CON_25_ATI = $895A;
-  GL_CON_26_ATI = $895B;
-  GL_CON_27_ATI = $895C;
-  GL_CON_28_ATI = $895D;
-  GL_CON_29_ATI = $895E;
-  GL_CON_30_ATI = $895F;
-  GL_CON_31_ATI = $8960;
-  GL_MOV_ATI = $8961;
-  GL_ADD_ATI = $8963;
-  GL_MUL_ATI = $8964;
-  GL_SUB_ATI = $8965;
-  GL_DOT3_ATI = $8966;
-  GL_DOT4_ATI = $8967;
-  GL_MAD_ATI = $8968;
-  GL_LERP_ATI = $8969;
-  GL_CND_ATI = $896A;
-  GL_CND0_ATI = $896B;
-  GL_DOT2_ADD_ATI = $896C;
-  GL_SECONDARY_INTERPOLATOR_ATI = $896D;
-  GL_NUM_FRAGMENT_REGISTERS_ATI = $896E;
-  GL_NUM_FRAGMENT_CONSTANTS_ATI = $896F;
-  GL_NUM_PASSES_ATI = $8970;
-  GL_NUM_INSTRUCTIONS_PER_PASS_ATI = $8971;
-  GL_NUM_INSTRUCTIONS_TOTAL_ATI = $8972;
-  GL_NUM_INPUT_INTERPOLATOR_COMPONENTS_ATI = $8973;
-  GL_NUM_LOOPBACK_COMPONENTS_ATI = $8974;
-  GL_COLOR_ALPHA_PAIRING_ATI = $8975;
-  GL_SWIZZLE_STR_ATI = $8976;
-  GL_SWIZZLE_STQ_ATI = $8977;
-  GL_SWIZZLE_STR_DR_ATI = $8978;
-  GL_SWIZZLE_STQ_DQ_ATI = $8979;
-  GL_SWIZZLE_STRQ_ATI = $897A;
-  GL_SWIZZLE_STRQ_DQ_ATI = $897B;
-  GL_RED_BIT_ATI = $00000001;
-  GL_GREEN_BIT_ATI = $00000002;
-  GL_BLUE_BIT_ATI = $00000004;
-  GL_2X_BIT_ATI = $00000001;
-  GL_4X_BIT_ATI = $00000002;
-  GL_8X_BIT_ATI = $00000004;
-  GL_HALF_BIT_ATI = $00000008;
-  GL_QUARTER_BIT_ATI = $00000010;
-  GL_EIGHTH_BIT_ATI = $00000020;
-  GL_SATURATE_BIT_ATI = $00000040;
-  GL_COMP_BIT_ATI = $00000002;
-  GL_NEGATE_BIT_ATI = $00000004;
-  GL_BIAS_BIT_ATI = $00000008;
-
-  // GL_ATI_pn_triangles
-  GL_PN_TRIANGLES_ATI = $87F0;
-  GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F1;
-  GL_PN_TRIANGLES_POINT_MODE_ATI = $87F2;
-  GL_PN_TRIANGLES_NORMAL_MODE_ATI = $87F3;
-  GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F4;
-  GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI = $87F5;
-  GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI = $87F6;
-  GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI = $87F7;
-  GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI = $87F8;
-
-  // GL_ATI_separate_stencil
-  GL_STENCIL_BACK_FUNC_ATI = $8800;
-  GL_STENCIL_BACK_FAIL_ATI = $8801;
-  GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI = $8802;
-  GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI = $8803;
-
-  // GL_ATI_text_fragment_shader
-  GL_TEXT_FRAGMENT_SHADER_ATI = $8200;
-
-  // GL_ATI_texture_env_combine3
-  GL_MODULATE_ADD_ATI = $8744;
-  GL_MODULATE_SIGNED_ADD_ATI = $8745;
-  GL_MODULATE_SUBTRACT_ATI = $8746;
-
-  // GL_ATI_texture_float
-  GL_RGBA_FLOAT32_ATI = $8814;
-  GL_RGB_FLOAT32_ATI = $8815;
-  GL_ALPHA_FLOAT32_ATI = $8816;
-  GL_INTENSITY_FLOAT32_ATI = $8817;
-  GL_LUMINANCE_FLOAT32_ATI = $8818;
-  GL_LUMINANCE_ALPHA_FLOAT32_ATI = $8819;
-  GL_RGBA_FLOAT16_ATI = $881A;
-  GL_RGB_FLOAT16_ATI = $881B;
-  GL_ALPHA_FLOAT16_ATI = $881C;
-  GL_INTENSITY_FLOAT16_ATI = $881D;
-  GL_LUMINANCE_FLOAT16_ATI = $881E;
-  GL_LUMINANCE_ALPHA_FLOAT16_ATI = $881F;
-
-  // GL_ATI_texture_mirror_once
-  GL_MIRROR_CLAMP_ATI = $8742;
-  GL_MIRROR_CLAMP_TO_EDGE_ATI = $8743;
-
-  // GL_ATI_vertex_array_object
-  GL_STATIC_ATI = $8760;
-  GL_DYNAMIC_ATI = $8761;
-  GL_PRESERVE_ATI = $8762;
-  GL_DISCARD_ATI = $8763;
-  GL_OBJECT_BUFFER_SIZE_ATI = $8764;
-  GL_OBJECT_BUFFER_USAGE_ATI = $8765;
-  GL_ARRAY_OBJECT_BUFFER_ATI = $8766;
-  GL_ARRAY_OBJECT_OFFSET_ATI = $8767;
-
-  // GL_ATI_vertex_streams
-  GL_MAX_VERTEX_STREAMS_ATI = $876B;
-  GL_VERTEX_STREAM0_ATI = $876C;
-  GL_VERTEX_STREAM1_ATI = $876D;
-  GL_VERTEX_STREAM2_ATI = $876E;
-  GL_VERTEX_STREAM3_ATI = $876F;
-  GL_VERTEX_STREAM4_ATI = $8770;
-  GL_VERTEX_STREAM5_ATI = $8771;
-  GL_VERTEX_STREAM6_ATI = $8772;
-  GL_VERTEX_STREAM7_ATI = $8773;
-  GL_VERTEX_SOURCE_ATI = $8774;
-
-  // GL_ATI_meminfo
-  GL_VBO_FREE_MEMORY_ATI = $87FB;
-  GL_TEXTURE_FREE_MEMORY_ATI = $87FC;
-  GL_RENDERBUFFER_FREE_MEMORY_ATI = $87FD;
-
-  // GL_AMD_performance_monitor
-  GL_COUNTER_TYPE_AMD = $8BC0;
-  GL_COUNTER_RANGE_AMD = $8BC1;
-  GL_UNSIGNED_INT64_AMD = $8BC2;
-  GL_PERCENTAGE_AMD = $8BC3;
-  GL_PERFMON_RESULT_AVAILABLE_AMD = $8BC4;
-  GL_PERFMON_RESULT_SIZE_AMD = $8BC5;
-  GL_PERFMON_RESULT_AMD = $8BC6;
-  
-  // GL_AMD_vertex_shader_tesselator
-  GL_SAMPLER_BUFFER_AMD = $9001;
-  GL_INT_SAMPLER_BUFFER_AMD = $9002;
-  GL_UNSIGNED_INT_SAMPLER_BUFFER_AMD = $9003;
-  GL_TESSELLATION_MODE_AMD = $9004;
-  GL_TESSELLATION_FACTOR_AMD = $9005;
-  GL_DISCRETE_AMD = $9006;
-  GL_CONTINUOUS_AMD = $9007;
-
-  // GL_EXT_422_pixels
-  GL_422_EXT = $80CC;
-  GL_422_REV_EXT = $80CD;
-  GL_422_AVERAGE_EXT = $80CE;
-  GL_422_REV_AVERAGE_EXT = $80CF;
-
-  // GL_EXT_abgr
-  GL_ABGR_EXT = $8000;
-
-  // GL_EXT_bgra
-  GL_BGR_EXT = $80E0;
-  GL_BGRA_EXT = $80E1;
-
-  // GL_EXT_blend_color
-  GL_CONSTANT_COLOR_EXT = $8001;
-  GL_ONE_MINUS_CONSTANT_COLOR_EXT = $8002;
-  GL_CONSTANT_ALPHA_EXT = $8003;
-  GL_ONE_MINUS_CONSTANT_ALPHA_EXT = $8004;
-  GL_BLEND_COLOR_EXT = $8005;
-
-  // GL_EXT_blend_func_separate
-  GL_BLEND_DST_RGB_EXT = $80C8;
-  GL_BLEND_SRC_RGB_EXT = $80C9;
-  GL_BLEND_DST_ALPHA_EXT = $80CA;
-  GL_BLEND_SRC_ALPHA_EXT = $80CB;
-
-  // GL_EXT_blend_minmax
-  GL_FUNC_ADD_EXT = $8006;
-  GL_MIN_EXT = $8007;
-  GL_MAX_EXT = $8008;
-  GL_BLEND_EQUATION_EXT = $8009;
-
-  // GL_EXT_blend_subtract
-  GL_FUNC_SUBTRACT_EXT = $800A;
-  GL_FUNC_REVERSE_SUBTRACT_EXT = $800B;
-
-  // GL_EXT_clip_volume_hint
-  GL_CLIP_VOLUME_CLIPPING_HINT_EXT = $80F0;
-
-  // GL_EXT_cmyka
-  GL_CMYK_EXT = $800C;
-  GL_CMYKA_EXT = $800D;
-  GL_PACK_CMYK_HINT_EXT = $800E;
-  GL_UNPACK_CMYK_HINT_EXT = $800F;
-
-  // GL_EXT_compiled_vertex_array
-  GL_ARRAY_ELEMENT_LOCK_FIRST_EXT = $81A8;
-  GL_ARRAY_ELEMENT_LOCK_COUNT_EXT = $81A9;
-
-  // GL_EXT_convolution
-  GL_CONVOLUTION_1D_EXT = $8010;
-  GL_CONVOLUTION_2D_EXT = $8011;
-  GL_SEPARABLE_2D_EXT = $8012;
-  GL_CONVOLUTION_BORDER_MODE_EXT = $8013;
-  GL_CONVOLUTION_FILTER_SCALE_EXT = $8014;
-  GL_CONVOLUTION_FILTER_BIAS_EXT = $8015;
-  GL_REDUCE_EXT = $8016;
-  GL_CONVOLUTION_FORMAT_EXT = $8017;
-  GL_CONVOLUTION_WIDTH_EXT = $8018;
-  GL_CONVOLUTION_HEIGHT_EXT = $8019;
-  GL_MAX_CONVOLUTION_WIDTH_EXT = $801A;
-  GL_MAX_CONVOLUTION_HEIGHT_EXT = $801B;
-  GL_POST_CONVOLUTION_RED_SCALE_EXT = $801C;
-  GL_POST_CONVOLUTION_GREEN_SCALE_EXT = $801D;
-  GL_POST_CONVOLUTION_BLUE_SCALE_EXT = $801E;
-  GL_POST_CONVOLUTION_ALPHA_SCALE_EXT = $801F;
-  GL_POST_CONVOLUTION_RED_BIAS_EXT = $8020;
-  GL_POST_CONVOLUTION_GREEN_BIAS_EXT = $8021;
-  GL_POST_CONVOLUTION_BLUE_BIAS_EXT = $8022;
-  GL_POST_CONVOLUTION_ALPHA_BIAS_EXT = $8023;
-
-  // GL_EXT_coordinate_frame
-  GL_TANGENT_ARRAY_EXT = $8439;
-  GL_BINORMAL_ARRAY_EXT = $843A;
-  GL_CURRENT_TANGENT_EXT = $843B;
-  GL_CURRENT_BINORMAL_EXT = $843C;
-  GL_TANGENT_ARRAY_TYPE_EXT = $843E;
-  GL_TANGENT_ARRAY_STRIDE_EXT = $843F;
-  GL_BINORMAL_ARRAY_TYPE_EXT = $8440;
-  GL_BINORMAL_ARRAY_STRIDE_EXT = $8441;
-  GL_TANGENT_ARRAY_POINTER_EXT = $8442;
-  GL_BINORMAL_ARRAY_POINTER_EXT = $8443;
-  GL_MAP1_TANGENT_EXT = $8444;
-  GL_MAP2_TANGENT_EXT = $8445;
-  GL_MAP1_BINORMAL_EXT = $8446;
-  GL_MAP2_BINORMAL_EXT = $8447;
-
-  // GL_EXT_cull_vertex
-  GL_CULL_VERTEX_EXT = $81AA;
-  GL_CULL_VERTEX_EYE_POSITION_EXT = $81AB;
-  GL_CULL_VERTEX_OBJECT_POSITION_EXT = $81AC;
-
-  // GL_EXT_draw_range_elements
-  GL_MAX_ELEMENTS_VERTICES_EXT = $80E8;
-  GL_MAX_ELEMENTS_INDICES_EXT = $80E9;
-
-  // GL_EXT_fog_coord
-  GL_FOG_COORDINATE_SOURCE_EXT = $8450;
-  GL_FOG_COORDINATE_EXT = $8451;
-  GL_FRAGMENT_DEPTH_EXT = $8452;
-  GL_CURRENT_FOG_COORDINATE_EXT = $8453;
-  GL_FOG_COORDINATE_ARRAY_TYPE_EXT = $8454;
-  GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = $8455;
-  GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456;
-  GL_FOG_COORDINATE_ARRAY_EXT = $8457;
-
-  // GL_EXT_framebuffer_object
-  GL_FRAMEBUFFER_EXT = $8D40;
-  GL_RENDERBUFFER_EXT = $8D41;
-  GL_STENCIL_INDEX_EXT = $8D45;
-  GL_STENCIL_INDEX1_EXT = $8D46;
-  GL_STENCIL_INDEX4_EXT = $8D47;
-  GL_STENCIL_INDEX8_EXT = $8D48;
-  GL_STENCIL_INDEX16_EXT = $8D49;
-  GL_RENDERBUFFER_WIDTH_EXT = $8D42;
-  GL_RENDERBUFFER_HEIGHT_EXT = $8D43;
-  GL_RENDERBUFFER_INTERNAL_FORMAT_EXT = $8D44;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT = $8CD0;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT = $8CD1;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT = $8CD2;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT = $8CD3;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT = $8CD4;
-  GL_COLOR_ATTACHMENT0_EXT = $8CE0;
-  GL_COLOR_ATTACHMENT1_EXT = $8CE1;
-  GL_COLOR_ATTACHMENT2_EXT = $8CE2;
-  GL_COLOR_ATTACHMENT3_EXT = $8CE3;
-  GL_COLOR_ATTACHMENT4_EXT = $8CE4;
-  GL_COLOR_ATTACHMENT5_EXT = $8CE5;
-  GL_COLOR_ATTACHMENT6_EXT = $8CE6;
-  GL_COLOR_ATTACHMENT7_EXT = $8CE7;
-  GL_COLOR_ATTACHMENT8_EXT = $8CE8;
-  GL_COLOR_ATTACHMENT9_EXT = $8CE9;
-  GL_COLOR_ATTACHMENT10_EXT = $8CEA;
-  GL_COLOR_ATTACHMENT11_EXT = $8CEB;
-  GL_COLOR_ATTACHMENT12_EXT = $8CEC;
-  GL_COLOR_ATTACHMENT13_EXT = $8CED;
-  GL_COLOR_ATTACHMENT14_EXT = $8CEE;
-  GL_COLOR_ATTACHMENT15_EXT = $8CEF;
-  GL_DEPTH_ATTACHMENT_EXT = $8D00;
-  GL_STENCIL_ATTACHMENT_EXT = $8D20;
-  GL_FRAMEBUFFER_COMPLETE_EXT = $8CD5;
-  GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT = $8CD6;
-  GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT = $8CD7;
-  GL_FRAMEBUFFER_INCOMPLETE_DUPLICATE_ATTACHMENT_EXT = $8CD8;
-  GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT = $8CD9;
-  GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT = $8CDA;
-  GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT = $8CDB;
-  GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT = $8CDC;
-  GL_FRAMEBUFFER_UNSUPPORTED_EXT = $8CDD;
-  GL_FRAMEBUFFER_STATUS_ERROR_EXT = $8CDE;
-  GL_FRAMEBUFFER_BINDING_EXT = $8CA6;
-  GL_RENDERBUFFER_BINDING_EXT = $8CA7;
-  GL_MAX_COLOR_ATTACHMENTS_EXT = $8CDF;
-  GL_MAX_RENDERBUFFER_SIZE_EXT = $84E8;
-  GL_INVALID_FRAMEBUFFER_OPERATION_EXT = $0506;
-
-  // GL_EXT_histogram
-  GL_HISTOGRAM_EXT = $8024;
-  GL_PROXY_HISTOGRAM_EXT = $8025;
-  GL_HISTOGRAM_WIDTH_EXT = $8026;
-  GL_HISTOGRAM_FORMAT_EXT = $8027;
-  GL_HISTOGRAM_RED_SIZE_EXT = $8028;
-  GL_HISTOGRAM_GREEN_SIZE_EXT = $8029;
-  GL_HISTOGRAM_BLUE_SIZE_EXT = $802A;
-  GL_HISTOGRAM_ALPHA_SIZE_EXT = $802B;
-  GL_HISTOGRAM_LUMINANCE_SIZE_EXT = $802C;
-  GL_HISTOGRAM_SINK_EXT = $802D;
-  GL_MINMAX_EXT = $802E;
-  GL_MINMAX_FORMAT_EXT = $802F;
-  GL_MINMAX_SINK_EXT = $8030;
-  GL_TABLE_TOO_LARGE_EXT = $8031;
-
-  // GL_EXT_index_array_formats
-  GL_IUI_V2F_EXT = $81AD;
-  GL_IUI_V3F_EXT = $81AE;
-  GL_IUI_N3F_V2F_EXT = $81AF;
-  GL_IUI_N3F_V3F_EXT = $81B0;
-  GL_T2F_IUI_V2F_EXT = $81B1;
-  GL_T2F_IUI_V3F_EXT = $81B2;
-  GL_T2F_IUI_N3F_V2F_EXT = $81B3;
-  GL_T2F_IUI_N3F_V3F_EXT = $81B4;
-
-  // GL_EXT_index_func
-  GL_INDEX_TEST_EXT = $81B5;
-  GL_INDEX_TEST_FUNC_EXT = $81B6;
-  GL_INDEX_TEST_REF_EXT = $81B7;
-
-  // GL_EXT_index_material
-  GL_INDEX_MATERIAL_EXT = $81B8;
-  GL_INDEX_MATERIAL_PARAMETER_EXT = $81B9;
-  GL_INDEX_MATERIAL_FACE_EXT = $81BA;
-
-  // GL_EXT_light_texture
-  GL_FRAGMENT_MATERIAL_EXT = $8349;
-  GL_FRAGMENT_NORMAL_EXT = $834A;
-  GL_FRAGMENT_COLOR_EXT = $834C;
-  GL_ATTENUATION_EXT = $834D;
-  GL_SHADOW_ATTENUATION_EXT = $834E;
-  GL_TEXTURE_APPLICATION_MODE_EXT = $834F;
-  GL_TEXTURE_LIGHT_EXT = $8350;
-  GL_TEXTURE_MATERIAL_FACE_EXT = $8351;
-  GL_TEXTURE_MATERIAL_PARAMETER_EXT = $8352;
-
-  // GL_EXT_multisample
-  GL_MULTISAMPLE_EXT = $809D;
-  GL_SAMPLE_ALPHA_TO_MASK_EXT = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE_EXT = $809F;
-  GL_SAMPLE_MASK_EXT = $80A0;
-  GL_1PASS_EXT = $80A1;
-  GL_2PASS_0_EXT = $80A2;
-  GL_2PASS_1_EXT = $80A3;
-  GL_4PASS_0_EXT = $80A4;
-  GL_4PASS_1_EXT = $80A5;
-  GL_4PASS_2_EXT = $80A6;
-  GL_4PASS_3_EXT = $80A7;
-  GL_SAMPLE_BUFFERS_EXT = $80A8;
-  GL_SAMPLES_EXT = $80A9;
-  GL_SAMPLE_MASK_VALUE_EXT = $80AA;
-  GL_SAMPLE_MASK_INVERT_EXT = $80AB;
-  GL_SAMPLE_PATTERN_EXT = $80AC;
-  GL_MULTISAMPLE_BIT_EXT = $20000000;
-
-  // GL_EXT_packed_pixels
-  GL_UNSIGNED_BYTE_3_3_2_EXT = $8032;
-  GL_UNSIGNED_SHORT_4_4_4_4_EXT = $8033;
-  GL_UNSIGNED_SHORT_5_5_5_1_EXT = $8034;
-  GL_UNSIGNED_INT_8_8_8_8_EXT = $8035;
-  GL_UNSIGNED_INT_10_10_10_2_EXT = $8036;
-
-  // GL_EXT_paletted_texture
-  GL_COLOR_INDEX1_EXT = $80E2;
-  GL_COLOR_INDEX2_EXT = $80E3;
-  GL_COLOR_INDEX4_EXT = $80E4;
-  GL_COLOR_INDEX8_EXT = $80E5;
-  GL_COLOR_INDEX12_EXT = $80E6;
-  GL_COLOR_INDEX16_EXT = $80E7;
-  GL_TEXTURE_INDEX_SIZE_EXT = $80ED;
-
-  // GL_EXT_pixel_transform
-  GL_PIXEL_TRANSFORM_2D_EXT = $8330;
-  GL_PIXEL_MAG_FILTER_EXT = $8331;
-  GL_PIXEL_MIN_FILTER_EXT = $8332;
-  GL_PIXEL_CUBIC_WEIGHT_EXT = $8333;
-  GL_CUBIC_EXT = $8334;
-  GL_AVERAGE_EXT = $8335;
-  GL_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT = $8336;
-  GL_MAX_PIXEL_TRANSFORM_2D_STACK_DEPTH_EXT = $8337;
-  GL_PIXEL_TRANSFORM_2D_MATRIX_EXT = $8338;
-
-  // GL_EXT_point_parameters
-  GL_POINT_SIZE_MIN_EXT = $8126;
-  GL_POINT_SIZE_MAX_EXT = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE_EXT = $8128;
-  GL_DISTANCE_ATTENUATION_EXT = $8129;
-
-  // GL_EXT_polygon_offset
-  GL_POLYGON_OFFSET_EXT = $8037;
-  GL_POLYGON_OFFSET_FACTOR_EXT = $8038;
-  GL_POLYGON_OFFSET_BIAS_EXT = $8039;
-
-  // GL_EXT_rescale_normal
-  GL_RESCALE_NORMAL_EXT = $803A;
-
-  // GL_EXT_secondary_color
-  GL_COLOR_SUM_EXT = $8458;
-  GL_CURRENT_SECONDARY_COLOR_EXT = $8459;
-  GL_SECONDARY_COLOR_ARRAY_SIZE_EXT = $845A;
-  GL_SECONDARY_COLOR_ARRAY_TYPE_EXT = $845B;
-  GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT = $845C;
-  GL_SECONDARY_COLOR_ARRAY_POINTER_EXT = $845D;
-  GL_SECONDARY_COLOR_ARRAY_EXT = $845E;
-
-  // GL_EXT_separate_specular_color
-  GL_LIGHT_MODEL_COLOR_CONTROL_EXT = $81F8;
-  GL_SINGLE_COLOR_EXT = $81F9;
-  GL_SEPARATE_SPECULAR_COLOR_EXT = $81FA;
-
-  // GL_EXT_shared_texture_palette
-  GL_SHARED_TEXTURE_PALETTE_EXT = $81FB;
-
-  // GL_EXT_stencil_two_side
-  GL_STENCIL_TEST_TWO_SIDE_EXT = $8910;
-  GL_ACTIVE_STENCIL_FACE_EXT = $8911;
-
-  // GL_EXT_stencil_wrap
-  GL_INCR_WRAP_EXT = $8507;
-  GL_DECR_WRAP_EXT = $8508;
-
-  // GL_EXT_texture
-  GL_ALPHA4_EXT = $803B;
-  GL_ALPHA8_EXT = $803C;
-  GL_ALPHA12_EXT = $803D;
-  GL_ALPHA16_EXT = $803E;
-  GL_LUMINANCE4_EXT = $803F;
-  GL_LUMINANCE8_EXT = $8040;
-  GL_LUMINANCE12_EXT = $8041;
-  GL_LUMINANCE16_EXT = $8042;
-  GL_LUMINANCE4_ALPHA4_EXT = $8043;
-  GL_LUMINANCE6_ALPHA2_EXT = $8044;
-  GL_LUMINANCE8_ALPHA8_EXT = $8045;
-  GL_LUMINANCE12_ALPHA4_EXT = $8046;
-  GL_LUMINANCE12_ALPHA12_EXT = $8047;
-  GL_LUMINANCE16_ALPHA16_EXT = $8048;
-  GL_INTENSITY_EXT = $8049;
-  GL_INTENSITY4_EXT = $804A;
-  GL_INTENSITY8_EXT = $804B;
-  GL_INTENSITY12_EXT = $804C;
-  GL_INTENSITY16_EXT = $804D;
-  GL_RGB2_EXT = $804E;
-  GL_RGB4_EXT = $804F;
-  GL_RGB5_EXT = $8050;
-  GL_RGB8_EXT = $8051;
-  GL_RGB10_EXT = $8052;
-  GL_RGB12_EXT = $8053;
-  GL_RGB16_EXT = $8054;
-  GL_RGBA2_EXT = $8055;
-  GL_RGBA4_EXT = $8056;
-  GL_RGB5_A1_EXT = $8057;
-  GL_RGBA8_EXT = $8058;
-  GL_RGB10_A2_EXT = $8059;
-  GL_RGBA12_EXT = $805A;
-  GL_RGBA16_EXT = $805B;
-  GL_TEXTURE_RED_SIZE_EXT = $805C;
-  GL_TEXTURE_GREEN_SIZE_EXT = $805D;
-  GL_TEXTURE_BLUE_SIZE_EXT = $805E;
-  GL_TEXTURE_ALPHA_SIZE_EXT = $805F;
-  GL_TEXTURE_LUMINANCE_SIZE_EXT = $8060;
-  GL_TEXTURE_INTENSITY_SIZE_EXT = $8061;
-  GL_REPLACE_EXT = $8062;
-  GL_PROXY_TEXTURE_1D_EXT = $8063;
-  GL_PROXY_TEXTURE_2D_EXT = $8064;
-  GL_TEXTURE_TOO_LARGE_EXT = $8065;
-
-  // GL_EXT_texture3D
-  GL_PACK_SKIP_IMAGES_EXT = $806B;
-  GL_PACK_IMAGE_HEIGHT_EXT = $806C;
-  GL_UNPACK_SKIP_IMAGES_EXT = $806D;
-  GL_UNPACK_IMAGE_HEIGHT_EXT = $806E;
-  GL_TEXTURE_3D_EXT = $806F;
-  GL_PROXY_TEXTURE_3D_EXT = $8070;
-  GL_TEXTURE_DEPTH_EXT = $8071;
-  GL_TEXTURE_WRAP_R_EXT = $8072;
-  GL_MAX_3D_TEXTURE_SIZE_EXT = $8073;
-
-  // GL_EXT_texture_compression_s3tc
-  GL_COMPRESSED_RGB_S3TC_DXT1_EXT = $83F0;
-  GL_COMPRESSED_RGBA_S3TC_DXT1_EXT = $83F1;
-  GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = $83F2;
-  GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = $83F3;
-
-  // GL_EXT_texture_cube_map
-  GL_NORMAL_MAP_EXT = $8511;
-  GL_REFLECTION_MAP_EXT = $8512;
-  GL_TEXTURE_CUBE_MAP_EXT = $8513;
-  GL_TEXTURE_BINDING_CUBE_MAP_EXT = $8514;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_X_EXT = $8515;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X_EXT = $8516;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y_EXT = $8517;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_EXT = $8518;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z_EXT = $8519;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_EXT = $851A;
-  GL_PROXY_TEXTURE_CUBE_MAP_EXT = $851B;
-  GL_MAX_CUBE_MAP_TEXTURE_SIZE_EXT = $851C;
-
-  // GL_EXT_texture_edge_clamp
-  GL_CLAMP_TO_EDGE_EXT = $812F;
-
-  // GL_EXT_texture_env_combine
-  GL_COMBINE_EXT = $8570;
-  GL_COMBINE_RGB_EXT = $8571;
-  GL_COMBINE_ALPHA_EXT = $8572;
-  GL_RGB_SCALE_EXT = $8573;
-  GL_ADD_SIGNED_EXT = $8574;
-  GL_INTERPOLATE_EXT = $8575;
-  GL_CONSTANT_EXT = $8576;
-  GL_PRIMARY_COLOR_EXT = $8577;
-  GL_PREVIOUS_EXT = $8578;
-  GL_SOURCE0_RGB_EXT = $8580;
-  GL_SOURCE1_RGB_EXT = $8581;
-  GL_SOURCE2_RGB_EXT = $8582;
-  GL_SOURCE0_ALPHA_EXT = $8588;
-  GL_SOURCE1_ALPHA_EXT = $8589;
-  GL_SOURCE2_ALPHA_EXT = $858A;
-  GL_OPERAND0_RGB_EXT = $8590;
-  GL_OPERAND1_RGB_EXT = $8591;
-  GL_OPERAND2_RGB_EXT = $8592;
-  GL_OPERAND0_ALPHA_EXT = $8598;
-  GL_OPERAND1_ALPHA_EXT = $8599;
-  GL_OPERAND2_ALPHA_EXT = $859A;
-
-  // GL_EXT_texture_env_dot3
-  GL_DOT3_RGB_EXT = $8740;
-  GL_DOT3_RGBA_EXT = $8741;
-
-  // GL_EXT_texture_filter_anisotropic
-  GL_TEXTURE_MAX_ANISOTROPY_EXT = $84FE;
-  GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT = $84FF;
-
-  // GL_EXT_texture_lod_bias
-  GL_MAX_TEXTURE_LOD_BIAS_EXT = $84FD;
-  GL_TEXTURE_FILTER_CONTROL_EXT = $8500;
-  GL_TEXTURE_LOD_BIAS_EXT = $8501;
-
-  // GL_EXT_texture_object
-  GL_TEXTURE_PRIORITY_EXT = $8066;
-  GL_TEXTURE_RESIDENT_EXT = $8067;
-  GL_TEXTURE_1D_BINDING_EXT = $8068;
-  GL_TEXTURE_2D_BINDING_EXT = $8069;
-  GL_TEXTURE_3D_BINDING_EXT = $806A;
-
-  // GL_EXT_texture_perturb_normal
-  GL_PERTURB_EXT = $85AE;
-  GL_TEXTURE_NORMAL_EXT = $85AF;
-
-  // GL_EXT_texture_rectangle
-  GL_TEXTURE_RECTANGLE_EXT = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_EXT = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_EXT = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_EXT = $84F8;
-
-  // GL_EXT_vertex_array
-  GL_VERTEX_ARRAY_EXT = $8074;
-  GL_NORMAL_ARRAY_EXT = $8075;
-  GL_COLOR_ARRAY_EXT = $8076;
-  GL_INDEX_ARRAY_EXT = $8077;
-  GL_TEXTURE_COORD_ARRAY_EXT = $8078;
-  GL_EDGE_FLAG_ARRAY_EXT = $8079;
-  GL_VERTEX_ARRAY_SIZE_EXT = $807A;
-  GL_VERTEX_ARRAY_TYPE_EXT = $807B;
-  GL_VERTEX_ARRAY_STRIDE_EXT = $807C;
-  GL_VERTEX_ARRAY_COUNT_EXT = $807D;
-  GL_NORMAL_ARRAY_TYPE_EXT = $807E;
-  GL_NORMAL_ARRAY_STRIDE_EXT = $807F;
-  GL_NORMAL_ARRAY_COUNT_EXT = $8080;
-  GL_COLOR_ARRAY_SIZE_EXT = $8081;
-  GL_COLOR_ARRAY_TYPE_EXT = $8082;
-  GL_COLOR_ARRAY_STRIDE_EXT = $8083;
-  GL_COLOR_ARRAY_COUNT_EXT = $8084;
-  GL_INDEX_ARRAY_TYPE_EXT = $8085;
-  GL_INDEX_ARRAY_STRIDE_EXT = $8086;
-  GL_INDEX_ARRAY_COUNT_EXT = $8087;
-  GL_TEXTURE_COORD_ARRAY_SIZE_EXT = $8088;
-  GL_TEXTURE_COORD_ARRAY_TYPE_EXT = $8089;
-  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
-  GL_TEXTURE_COORD_ARRAY_COUNT_EXT = $808B;
-  GL_EDGE_FLAG_ARRAY_STRIDE_EXT = $808C;
-  GL_EDGE_FLAG_ARRAY_COUNT_EXT = $808D;
-  GL_VERTEX_ARRAY_POINTER_EXT = $808E;
-  GL_NORMAL_ARRAY_POINTER_EXT = $808F;
-  GL_COLOR_ARRAY_POINTER_EXT = $8090;
-  GL_INDEX_ARRAY_POINTER_EXT = $8091;
-  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
-  GL_EDGE_FLAG_ARRAY_POINTER_EXT = $8093;
-
-  // GL_EXT_vertex_shader
-  GL_VERTEX_SHADER_EXT = $8780;
-  GL_VERTEX_SHADER_BINDING_EXT = $8781;
-  GL_OP_INDEX_EXT = $8782;
-  GL_OP_NEGATE_EXT = $8783;
-  GL_OP_DOT3_EXT = $8784;
-  GL_OP_DOT4_EXT = $8785;
-  GL_OP_MUL_EXT = $8786;
-  GL_OP_ADD_EXT = $8787;
-  GL_OP_MADD_EXT = $8788;
-  GL_OP_FRAC_EXT = $8789;
-  GL_OP_MAX_EXT = $878A;
-  GL_OP_MIN_EXT = $878B;
-  GL_OP_SET_GE_EXT = $878C;
-  GL_OP_SET_LT_EXT = $878D;
-  GL_OP_CLAMP_EXT = $878E;
-  GL_OP_FLOOR_EXT = $878F;
-  GL_OP_ROUND_EXT = $8790;
-  GL_OP_EXP_BASE_2_EXT = $8791;
-  GL_OP_LOG_BASE_2_EXT = $8792;
-  GL_OP_POWER_EXT = $8793;
-  GL_OP_RECIP_EXT = $8794;
-  GL_OP_RECIP_SQRT_EXT = $8795;
-  GL_OP_SUB_EXT = $8796;
-  GL_OP_CROSS_PRODUCT_EXT = $8797;
-  GL_OP_MULTIPLY_MATRIX_EXT = $8798;
-  GL_OP_MOV_EXT = $8799;
-  GL_OUTPUT_VERTEX_EXT = $879A;
-  GL_OUTPUT_COLOR0_EXT = $879B;
-  GL_OUTPUT_COLOR1_EXT = $879C;
-  GL_OUTPUT_TEXTURE_COORD0_EXT = $879D;
-  GL_OUTPUT_TEXTURE_COORD1_EXT = $879E;
-  GL_OUTPUT_TEXTURE_COORD2_EXT = $879F;
-  GL_OUTPUT_TEXTURE_COORD3_EXT = $87A0;
-  GL_OUTPUT_TEXTURE_COORD4_EXT = $87A1;
-  GL_OUTPUT_TEXTURE_COORD5_EXT = $87A2;
-  GL_OUTPUT_TEXTURE_COORD6_EXT = $87A3;
-  GL_OUTPUT_TEXTURE_COORD7_EXT = $87A4;
-  GL_OUTPUT_TEXTURE_COORD8_EXT = $87A5;
-  GL_OUTPUT_TEXTURE_COORD9_EXT = $87A6;
-  GL_OUTPUT_TEXTURE_COORD10_EXT = $87A7;
-  GL_OUTPUT_TEXTURE_COORD11_EXT = $87A8;
-  GL_OUTPUT_TEXTURE_COORD12_EXT = $87A9;
-  GL_OUTPUT_TEXTURE_COORD13_EXT = $87AA;
-  GL_OUTPUT_TEXTURE_COORD14_EXT = $87AB;
-  GL_OUTPUT_TEXTURE_COORD15_EXT = $87AC;
-  GL_OUTPUT_TEXTURE_COORD16_EXT = $87AD;
-  GL_OUTPUT_TEXTURE_COORD17_EXT = $87AE;
-  GL_OUTPUT_TEXTURE_COORD18_EXT = $87AF;
-  GL_OUTPUT_TEXTURE_COORD19_EXT = $87B0;
-  GL_OUTPUT_TEXTURE_COORD20_EXT = $87B1;
-  GL_OUTPUT_TEXTURE_COORD21_EXT = $87B2;
-  GL_OUTPUT_TEXTURE_COORD22_EXT = $87B3;
-  GL_OUTPUT_TEXTURE_COORD23_EXT = $87B4;
-  GL_OUTPUT_TEXTURE_COORD24_EXT = $87B5;
-  GL_OUTPUT_TEXTURE_COORD25_EXT = $87B6;
-  GL_OUTPUT_TEXTURE_COORD26_EXT = $87B7;
-  GL_OUTPUT_TEXTURE_COORD27_EXT = $87B8;
-  GL_OUTPUT_TEXTURE_COORD28_EXT = $87B9;
-  GL_OUTPUT_TEXTURE_COORD29_EXT = $87BA;
-  GL_OUTPUT_TEXTURE_COORD30_EXT = $87BB;
-  GL_OUTPUT_TEXTURE_COORD31_EXT = $87BC;
-  GL_OUTPUT_FOG_EXT = $87BD;
-  GL_SCALAR_EXT = $87BE;
-  GL_VECTOR_EXT = $87BF;
-  GL_MATRIX_EXT = $87C0;
-  GL_VARIANT_EXT = $87C1;
-  GL_INVARIANT_EXT = $87C2;
-  GL_LOCAL_CONSTANT_EXT = $87C3;
-  GL_LOCAL_EXT = $87C4;
-  GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT = $87C5;
-  GL_MAX_VERTEX_SHADER_VARIANTS_EXT = $87C6;
-  GL_MAX_VERTEX_SHADER_INVARIANTS_EXT = $87C7;
-  GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87C8;
-  GL_MAX_VERTEX_SHADER_LOCALS_EXT = $87C9;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CA;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT = $87CB;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87CC;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT = $87CD;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT = $87CE;
-  GL_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CF;
-  GL_VERTEX_SHADER_VARIANTS_EXT = $87D0;
-  GL_VERTEX_SHADER_INVARIANTS_EXT = $87D1;
-  GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87D2;
-  GL_VERTEX_SHADER_LOCALS_EXT = $87D3;
-  GL_VERTEX_SHADER_OPTIMIZED_EXT = $87D4;
-  GL_X_EXT = $87D5;
-  GL_Y_EXT = $87D6;
-  GL_Z_EXT = $87D7;
-  GL_W_EXT = $87D8;
-  GL_NEGATIVE_X_EXT = $87D9;
-  GL_NEGATIVE_Y_EXT = $87DA;
-  GL_NEGATIVE_Z_EXT = $87DB;
-  GL_NEGATIVE_W_EXT = $87DC;
-  GL_ZERO_EXT = $87DD;
-  GL_ONE_EXT = $87DE;
-  GL_NEGATIVE_ONE_EXT = $87DF;
-  GL_NORMALIZED_RANGE_EXT = $87E0;
-  GL_FULL_RANGE_EXT = $87E1;
-  GL_CURRENT_VERTEX_EXT = $87E2;
-  GL_MVP_MATRIX_EXT = $87E3;
-  GL_VARIANT_VALUE_EXT = $87E4;
-  GL_VARIANT_DATATYPE_EXT = $87E5;
-  GL_VARIANT_ARRAY_STRIDE_EXT = $87E6;
-  GL_VARIANT_ARRAY_TYPE_EXT = $87E7;
-  GL_VARIANT_ARRAY_EXT = $87E8;
-  GL_VARIANT_ARRAY_POINTER_EXT = $87E9;
-  GL_INVARIANT_VALUE_EXT = $87EA;
-  GL_INVARIANT_DATATYPE_EXT = $87EB;
-  GL_LOCAL_CONSTANT_VALUE_EXT = $87EC;
-  GL_LOCAL_CONSTANT_DATATYPE_EXT = $87ED;
-
-  // GL_EXT_vertex_weighting
-  GL_MODELVIEW0_STACK_DEPTH_EXT = $0BA3;
-  GL_MODELVIEW1_STACK_DEPTH_EXT = $8502;
-  GL_MODELVIEW0_MATRIX_EXT = $0BA6;
-  GL_MODELVIEW1_MATRIX_EXT = $8506;
-  GL_VERTEX_WEIGHTING_EXT = $8509;
-  GL_MODELVIEW0_EXT = $1700;
-  GL_MODELVIEW1_EXT = $850A;
-  GL_CURRENT_VERTEX_WEIGHT_EXT = $850B;
-  GL_VERTEX_WEIGHT_ARRAY_EXT = $850C;
-  GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = $850D;
-  GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = $850E;
-  GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = $850F;
-  GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = $8510;
-
-  // GL_EXT_depth_bounds_test
-  GL_DEPTH_BOUNDS_TEST_EXT = $8890;
-  GL_DEPTH_BOUNDS_EXT = $8891;
-
-  // GL_EXT_texture_mirror_clamp
-  GL_MIRROR_CLAMP_EXT = $8742;
-  GL_MIRROR_CLAMP_TO_EDGE_EXT = $8743;
-  GL_MIRROR_CLAMP_TO_BORDER_EXT = $8912;
-
-  // GL_EXT_blend_equation_separate
-  GL_BLEND_EQUATION_RGB_EXT = $8009; 
-  GL_BLEND_EQUATION_ALPHA_EXT = $883D;
-
-  // GL_EXT_pixel_buffer_object
-  GL_PIXEL_PACK_BUFFER_EXT = $88EB;
-  GL_PIXEL_UNPACK_BUFFER_EXT = $88EC;
-  GL_PIXEL_PACK_BUFFER_BINDING_EXT = $88ED;
-  GL_PIXEL_UNPACK_BUFFER_BINDING_EXT = $88EF;
-
-  // GL_EXT_stencil_clear_tag
-  GL_STENCIL_TAG_BITS_EXT = $88F2;
-  GL_STENCIL_CLEAR_TAG_VALUE_EXT = $88F3;
-
-  // GL_EXT_packed_depth_stencil
-  GL_DEPTH_STENCIL_EXT = $84F9;
-  GL_UNSIGNED_INT_24_8_EXT = $84FA;
-  GL_DEPTH24_STENCIL8_EXT = $88F0;
-  GL_TEXTURE_STENCIL_SIZE_EXT = $88F1;
-
-  // GL_EXT_texture_sRGB
-  GL_SRGB_EXT = $8C40;
-  GL_SRGB8_EXT = $8C41;
-  GL_SRGB_ALPHA_EXT = $8C42;
-  GL_SRGB8_ALPHA8_EXT = $8C43;
-  GL_SLUMINANCE_ALPHA_EXT = $8C44;
-  GL_SLUMINANCE8_ALPHA8_EXT = $8C45;
-  GL_SLUMINANCE_EXT = $8C46;
-  GL_SLUMINANCE8_EXT = $8C47;
-  GL_COMPRESSED_SRGB_EXT = $8C48;
-  GL_COMPRESSED_SRGB_ALPHA_EXT = $8C49;
-  GL_COMPRESSED_SLUMINANCE_EXT = $8C4A;
-  GL_COMPRESSED_SLUMINANCE_ALPHA_EXT = $8C4B;
-  GL_COMPRESSED_SRGB_S3TC_DXT1_EXT = $8C4C;
-  GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT1_EXT = $8C4D;
-  GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT3_EXT = $8C4E;
-  GL_COMPRESSED_SRGB_ALPHA_S3TC_DXT5_EXT = $8C4F;
-
-  // GL_EXT_framebuffer_blit
-  GL_READ_FRAMEBUFFER_EXT = $8CA8;
-  GL_DRAW_FRAMEBUFFER_EXT = $8CA9;
-  GL_READ_FRAMEBUFFER_BINDING_EXT = GL_FRAMEBUFFER_BINDING_EXT;
-  GL_DRAW_FRAMEBUFFER_BINDING_EXT = $8CAA;
-
-  // GL_EXT_framebuffer_multisample
-  GL_RENDERBUFFER_SAMPLES_EXT = $8CAB;
-  GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE_EXT = $8D56;
-  GL_MAX_SAMPLES_EXT = $8D57;
-
-  // GL_EXT_timer_query
-  GL_TIME_ELAPSED_EXT = $88BF;
-
-  // GL_EXT_bindable_uniform
-  GL_MAX_VERTEX_BINDABLE_UNIFORMS_EXT = $8DE2;
-  GL_MAX_FRAGMENT_BINDABLE_UNIFORMS_EXT = $8DE3;
-  GL_MAX_GEOMETRY_BINDABLE_UNIFORMS_EXT = $8DE4;
-  GL_MAX_BINDABLE_UNIFORM_SIZE_EXT = $8DED;
-  GL_UNIFORM_BUFFER_BINDING_EXT = $8DEF;
-
-  // GL_EXT_framebuffer_sRGB
-  GLX_FRAMEBUFFER_SRGB_CAPABLE_EXT = $20B2;
-  WGL_FRAMEBUFFER_SRGB_CAPABLE_EXT = $20A9;
-  GL_FRAMEBUFFER_SRGB_EXT = $8DB9;
-  GL_FRAMEBUFFER_SRGB_CAPABLE_EXT = $8DBA;
-
-  // GL_EXT_geometry_shader4
-  GL_GEOMETRY_SHADER_EXT = $8DD9;
-  GL_GEOMETRY_VERTICES_OUT_EXT = $8DDA;
-  GL_GEOMETRY_INPUT_TYPE_EXT = $8DDB;
-  GL_GEOMETRY_OUTPUT_TYPE_EXT = $8DDC;
-  GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS_EXT = $8C29;
-  GL_MAX_GEOMETRY_VARYING_COMPONENTS_EXT = $8DDD;
-  GL_MAX_VERTEX_VARYING_COMPONENTS_EXT = $8DDE;
-  GL_MAX_VARYING_COMPONENTS_EXT = $8B4B;
-  GL_MAX_GEOMETRY_UNIFORM_COMPONENTS_EXT = $8DDF;
-  GL_MAX_GEOMETRY_OUTPUT_VERTICES_EXT = $8DE0;
-  GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS_EXT = $8DE1;
-  GL_LINES_ADJACENCY_EXT = $A;
-  GL_LINE_STRIP_ADJACENCY_EXT = $B;
-  GL_TRIANGLES_ADJACENCY_EXT = $C;
-  GL_TRIANGLE_STRIP_ADJACENCY_EXT = $D;
-  GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS_EXT = $8DA8;
-  GL_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT_EXT = $8DA9;
-  GL_FRAMEBUFFER_ATTACHMENT_LAYERED_EXT = $8DA7;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER_EXT = $8CD4;
-  GL_PROGRAM_POINT_SIZE_EXT = $8642;
-
-  // GL_EXT_gpu_shader4
-  GL_VERTEX_ATTRIB_ARRAY_INTEGER_EXT = $88FD;
-  GL_SAMPLER_1D_ARRAY_EXT = $8DC0;
-  GL_SAMPLER_2D_ARRAY_EXT = $8DC1;
-  GL_SAMPLER_BUFFER_EXT = $8DC2;
-  GL_SAMPLER_1D_ARRAY_SHADOW_EXT = $8DC3;
-  GL_SAMPLER_2D_ARRAY_SHADOW_EXT = $8DC4;
-  GL_SAMPLER_CUBE_SHADOW_EXT = $8DC5;
-  GL_UNSIGNED_INT_VEC2_EXT = $8DC6;
-  GL_UNSIGNED_INT_VEC3_EXT = $8DC7;
-  GL_UNSIGNED_INT_VEC4_EXT = $8DC8;
-  GL_INT_SAMPLER_1D_EXT = $8DC9;
-  GL_INT_SAMPLER_2D_EXT = $8DCA;
-  GL_INT_SAMPLER_3D_EXT = $8DCB;
-  GL_INT_SAMPLER_CUBE_EXT = $8DCC;
-  GL_INT_SAMPLER_2D_RECT_EXT = $8DCD;
-  GL_INT_SAMPLER_1D_ARRAY_EXT = $8DCE;
-  GL_INT_SAMPLER_2D_ARRAY_EXT = $8DCF;
-  GL_INT_SAMPLER_BUFFER_EXT = $8DD0;
-  GL_UNSIGNED_INT_SAMPLER_1D_EXT = $8DD1;
-  GL_UNSIGNED_INT_SAMPLER_2D_EXT = $8DD2;
-  GL_UNSIGNED_INT_SAMPLER_3D_EXT = $8DD3;
-  GL_UNSIGNED_INT_SAMPLER_CUBE_EXT = $8DD4;
-  GL_UNSIGNED_INT_SAMPLER_2D_RECT_EXT = $8DD5;
-  GL_UNSIGNED_INT_SAMPLER_1D_ARRAY_EXT = $8DD6;
-  GL_UNSIGNED_INT_SAMPLER_2D_ARRAY_EXT = $8DD7;
-  GL_UNSIGNED_INT_SAMPLER_BUFFER_EXT = $8DD8;
-  GL_MIN_PROGRAM_TEXEL_OFFSET_EXT = $8904;
-  GL_MAX_PROGRAM_TEXEL_OFFSET_EXT = $8905;
-
-  // GL_EXT_packed_float
-  GL_R11F_G11F_B10F_EXT = $8C3A;
-  GL_UNSIGNED_INT_10F_11F_11F_REV_EXT = $8C3B;
-  RGBA_SIGNED_COMPONENTS_EXT = $8C3C;
-  WGL_TYPE_RGBA_UNSIGNED_FLOAT_EXT = $20A8;
-  GLX_RGBA_UNSIGNED_FLOAT_TYPE_EXT = $20B1;
-  GLX_RGBA_UNSIGNED_FLOAT_BIT_EXT = $00000008;
-
-  // GL_EXT_texture_array
-  GL_TEXTURE_1D_ARRAY_EXT = $8C18;
-  GL_TEXTURE_2D_ARRAY_EXT = $8C1A;
-  GL_PROXY_TEXTURE_2D_ARRAY_EXT = $8C1B;
-  GL_PROXY_TEXTURE_1D_ARRAY_EXT = $8C19;
-  GL_TEXTURE_BINDING_1D_ARRAY_EXT = $8C1C;
-  GL_TEXTURE_BINDING_2D_ARRAY_EXT = $8C1D;
-  GL_MAX_ARRAY_TEXTURE_LAYERS_EXT = $88FF;
-  GL_COMPARE_REF_DEPTH_TO_TEXTURE_EXT = $884E;
-
-  // GL_EXT_texture_buffer_object
-  GL_TEXTURE_BUFFER_EXT = $8C2A;
-  GL_MAX_TEXTURE_BUFFER_SIZE_EXT = $8C2B;
-  GL_TEXTURE_BINDING_BUFFER_EXT = $8C2C;
-  GL_TEXTURE_BUFFER_DATA_STORE_BINDING_EXT = $8C2D;
-  GL_TEXTURE_BUFFER_FORMAT_EXT = $8C2E;
-
-  // GL_EXT_texture_compression_latc
-  GL_COMPRESSED_LUMINANCE_LATC1_EXT = $8C70;
-  GL_COMPRESSED_SIGNED_LUMINANCE_LATC1_EXT = $8C71;
-  GL_COMPRESSED_LUMINANCE_ALPHA_LATC2_EXT = $8C72;
-  GL_COMPRESSED_SIGNED_LUMINANCE_ALPHA_LATC2_EXT = $8C73;
-
-  // GL_EXT_texture_compression_rgtc
-  GL_COMPRESSED_RED_RGTC1_EXT = $8DBB;
-  GL_COMPRESSED_SIGNED_RED_RGTC1_EXT = $8DBC;
-  GL_COMPRESSED_RED_GREEN_RGTC2_EXT = $8DBD;
-  GL_COMPRESSED_SIGNED_RED_GREEN_RGTC2_EXT = $8DBE;
-
-  // GL_EXT_texture_integer
-  GL_RGBA_INTEGER_MODE_EXT = $8D9E;
-  GL_RGBA32UI_EXT = $8D70;
-  GL_RGB32UI_EXT = $8D71;
-  GL_ALPHA32UI_EXT = $8D72;
-  GL_INTENSITY32UI_EXT = $8D73;
-  GL_LUMINANCE32UI_EXT = $8D74;
-  GL_LUMINANCE_ALPHA32UI_EXT = $8D75;
-  GL_RGBA16UI_EXT = $8D76;
-  GL_RGB16UI_EXT = $8D77;
-  GL_ALPHA16UI_EXT = $8D78;
-  GL_INTENSITY16UI_EXT = $8D79;
-  GL_LUMINANCE16UI_EXT = $8D7A;
-  GL_LUMINANCE_ALPHA16UI_EXT = $8D7B;
-  GL_RGBA8UI_EXT = $8D7C;
-  GL_RGB8UI_EXT = $8D7D;
-  GL_ALPHA8UI_EXT = $8D7E;
-  GL_INTENSITY8UI_EXT = $8D7F;
-  GL_LUMINANCE8UI_EXT = $8D80;
-  GL_LUMINANCE_ALPHA8UI_EXT = $8D81;
-  GL_RGBA32I_EXT = $8D82;
-  GL_RGB32I_EXT = $8D83;
-  GL_ALPHA32I_EXT = $8D84;
-  GL_INTENSITY32I_EXT = $8D85;
-  GL_LUMINANCE32I_EXT = $8D86;
-  GL_LUMINANCE_ALPHA32I_EXT = $8D87;
-  GL_RGBA16I_EXT = $8D88;
-  GL_RGB16I_EXT = $8D89;
-  GL_ALPHA16I_EXT = $8D8A;
-  GL_INTENSITY16I_EXT = $8D8B;
-  GL_LUMINANCE16I_EXT = $8D8C;
-  GL_LUMINANCE_ALPHA16I_EXT = $8D8D;
-  GL_RGBA8I_EXT = $8D8E;
-  GL_RGB8I_EXT = $8D8F;
-  GL_ALPHA8I_EXT = $8D90;
-  GL_INTENSITY8I_EXT = $8D91;
-  GL_LUMINANCE8I_EXT = $8D92;
-  GL_LUMINANCE_ALPHA8I_EXT = $8D93;
-  GL_RED_INTEGER_EXT = $8D94;
-  GL_GREEN_INTEGER_EXT = $8D95;
-  GL_BLUE_INTEGER_EXT = $8D96;
-  GL_ALPHA_INTEGER_EXT = $8D97;
-  GL_RGB_INTEGER_EXT = $8D98;
-  GL_RGBA_INTEGER_EXT = $8D99;
-  GL_BGR_INTEGER_EXT = $8D9A;
-  GL_BGRA_INTEGER_EXT = $8D9B;
-  GL_LUMINANCE_INTEGER_EXT = $8D9C;
-  GL_LUMINANCE_ALPHA_INTEGER_EXT = $8D9D;
-
-  // GL_EXT_texture_shared_exponent
-  GL_RGB9_E5_EXT = $8C3D;
-  GL_UNSIGNED_INT_5_9_9_9_REV_EXT = $8C3E;
-  GL_TEXTURE_SHARED_SIZE_EXT = $8C3F;
-
-  // GL_EXT_transform_feedback
-  GL_TRANSFORM_FEEDBACK_BUFFER_EXT = $8C8E;
-  GL_TRANSFORM_FEEDBACK_BUFFER_START_EXT = $8C84;
-  GL_TRANSFORM_FEEDBACK_BUFFER_SIZE_EXT = $8C85;
-  GL_TRANSFORM_FEEDBACK_BUFFER_BINDING_EXT = $8C8F;
-  GL_INTERLEAVED_ATTRIBS_EXT = $8C8C;
-  GL_SEPARATE_ATTRIBS_EXT = $8C8D;
-  GL_PRIMITIVES_GENERATED_EXT = $8C87;
-  GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN_EXT = $8C88;
-  GL_RASTERIZER_DISCARD_EXT = $8C89;
-  GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS_EXT = $8C8A;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS_EXT = $8C8B;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS_EXT = $8C80;
-  GL_TRANSFORM_FEEDBACK_VARYINGS_EXT = $8C83;
-  GL_TRANSFORM_FEEDBACK_BUFFER_MODE_EXT = $8C7F;
-  GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH_EXT = $8C76;
-
-  // GL_EXT_direct_state_access
-  GL_PROGRAM_MATRIX_EXT = $8E2D;
-  GL_TRANSPOSE_PROGRAM_MATRIX_EXT = $8E2E;
-  GL_PROGRAM_MATRIX_STACK_DEPTH_EXT = $8E2F;
-
-  // GL_EXT_texture_swizzle
-  GL_TEXTURE_SWIZZLE_R_EXT = $8E42;
-  GL_TEXTURE_SWIZZLE_G_EXT = $8E43;
-  GL_TEXTURE_SWIZZLE_B_EXT = $8E44;
-  GL_TEXTURE_SWIZZLE_A_EXT = $8E45;
-  GL_TEXTURE_SWIZZLE_RGBA_EXT = $8E46;
-
-  // GL_EXT_provoking_vertex
-  GL_QUADS_FOLLOW_PROVOKING_VERTEX_CONVENTION_EXT = $8E4C;
-  GL_FIRST_VERTEX_CONVENTION_EXT = $8E4D;
-  GL_LAST_VERTEX_CONVENTION_EXT = $8E4E;
-  GL_PROVOKING_VERTEX_EXT = $8E4F;
-  
-  // GL_EXT_texture_snorm
-  GL_ALPHA_SNORM = $9010;
-  GL_LUMINANCE_SNORM = $9011;
-  GL_LUMINANCE_ALPHA_SNORM = $9012;
-  GL_INTENSITY_SNORM = $9013;
-  GL_ALPHA8_SNORM = $9014;
-  GL_LUMINANCE8_SNORM = $9015;
-  GL_LUMINANCE8_ALPHA8_SNORM = $9016;
-  GL_INTENSITY8_SNORM = $9017;
-  GL_ALPHA16_SNORM = $9018;
-  GL_LUMINANCE16_SNORM = $9019;
-  GL_LUMINANCE16_ALPHA16_SNORM = $901A;
-  GL_INTENSITY16_SNORM = $901B;
-  { reuse GL_R_SNORM }
-  { reuse GL_RG_SNORM }
-  { reuse GL_RGB_SNORM }
-  { reuse GL_RGBA_SNORM }
-  { reuse GL_R8_SNORM }
-  { reuse GL_RG8_SNORM }
-  { reuse GL_RGB8_SNORM }
-  { reuse GL_RGBA8_SNORM }
-  { reuse GL_R16_SNORM }
-  { reuse GL_RG16_SNORM }
-  { reuse GL_RGB16_SNORM }
-  { reuse GL_RGBA16_SNORM }
-  { reuse GL_SIGNED_NORMALIZED }
-  
-  // GL_FfdMaskSGIX
-  GL_TEXTURE_DEFORMATION_BIT_SGIX = $00000001;
-  GL_GEOMETRY_DEFORMATION_BIT_SGIX = $00000002;
-
-  // GL_HP_convolution_border_modes
-  GL_IGNORE_BORDER_HP = $8150;
-  GL_CONSTANT_BORDER_HP = $8151;
-  GL_REPLICATE_BORDER_HP = $8153;
-  GL_CONVOLUTION_BORDER_COLOR_HP = $8154;
-
-  // GL_HP_image_transform
-  GL_IMAGE_SCALE_X_HP = $8155;
-  GL_IMAGE_SCALE_Y_HP = $8156;
-  GL_IMAGE_TRANSLATE_X_HP = $8157;
-  GL_IMAGE_TRANSLATE_Y_HP = $8158;
-  GL_IMAGE_ROTATE_ANGLE_HP = $8159;
-  GL_IMAGE_ROTATE_ORIGIN_X_HP = $815A;
-  GL_IMAGE_ROTATE_ORIGIN_Y_HP = $815B;
-  GL_IMAGE_MAG_FILTER_HP = $815C;
-  GL_IMAGE_MIN_FILTER_HP = $815D;
-  GL_IMAGE_CUBIC_WEIGHT_HP = $815E;
-  GL_CUBIC_HP = $815F;
-  GL_AVERAGE_HP = $8160;
-  GL_IMAGE_TRANSFORM_2D_HP = $8161;
-  GL_POST_IMAGE_TRANSFORM_COLOR_TABLE_HP = $8162;
-  GL_PROXY_POST_IMAGE_TRANSFORM_COLOR_TABLE_HP = $8163;
-
-  // GL_HP_occlusion_test
-  GL_OCCLUSION_TEST_HP = $8165;
-  GL_OCCLUSION_TEST_RESULT_HP = $8166;
-
-  // GL_HP_texture_lighting
-  GL_TEXTURE_LIGHTING_MODE_HP = $8167;
-  GL_TEXTURE_POST_SPECULAR_HP = $8168;
-  GL_TEXTURE_PRE_SPECULAR_HP = $8169;
-
-  // GL_IBM_cull_vertex
-  GL_CULL_VERTEX_IBM = 103050;
-
-  // GL_IBM_rasterpos_clip
-  GL_RASTER_POSITION_UNCLIPPED_IBM = $19262;
-
-  // GL_IBM_texture_mirrored_repeat
-  GL_MIRRORED_REPEAT_IBM = $8370;
-
-  // GL_IBM_vertex_array_lists
-  GL_VERTEX_ARRAY_LIST_IBM = 103070;
-  GL_NORMAL_ARRAY_LIST_IBM = 103071;
-  GL_COLOR_ARRAY_LIST_IBM = 103072;
-  GL_INDEX_ARRAY_LIST_IBM = 103073;
-  GL_TEXTURE_COORD_ARRAY_LIST_IBM = 103074;
-  GL_EDGE_FLAG_ARRAY_LIST_IBM = 103075;
-  GL_FOG_COORDINATE_ARRAY_LIST_IBM = 103076;
-  GL_SECONDARY_COLOR_ARRAY_LIST_IBM = 103077;
-  GL_VERTEX_ARRAY_LIST_STRIDE_IBM = 103080;
-  GL_NORMAL_ARRAY_LIST_STRIDE_IBM = 103081;
-  GL_COLOR_ARRAY_LIST_STRIDE_IBM = 103082;
-  GL_INDEX_ARRAY_LIST_STRIDE_IBM = 103083;
-  GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = 103084;
-  GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = 103085;
-  GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = 103086;
-  GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = 103087;
-
-  // GL_INGR_color_clamp
-  GL_RED_MIN_CLAMP_INGR = $8560;
-  GL_GREEN_MIN_CLAMP_INGR = $8561;
-  GL_BLUE_MIN_CLAMP_INGR = $8562;
-  GL_ALPHA_MIN_CLAMP_INGR = $8563;
-  GL_RED_MAX_CLAMP_INGR = $8564;
-  GL_GREEN_MAX_CLAMP_INGR = $8565;
-  GL_BLUE_MAX_CLAMP_INGR = $8566;
-  GL_ALPHA_MAX_CLAMP_INGR = $8567;
-
-  // GL_INGR_interlace_read
-  GL_INTERLACE_READ_INGR = $8568;
-
-  // GL_INTEL_parallel_arrays
-  GL_PARALLEL_ARRAYS_INTEL = $83F4;
-  GL_VERTEX_ARRAY_PARALLEL_POINTERS_INTEL = $83F5;
-  GL_NORMAL_ARRAY_PARALLEL_POINTERS_INTEL = $83F6;
-  GL_COLOR_ARRAY_PARALLEL_POINTERS_INTEL = $83F7;
-  GL_TEXTURE_COORD_ARRAY_PARALLEL_POINTERS_INTEL = $83F8;
-
-  // GL_NV_copy_depth_to_color
-  GL_DEPTH_STENCIL_TO_RGBA_NV = $886E;
-  GL_DEPTH_STENCIL_TO_BGRA_NV = $886F;
-
-  // GL_NV_depth_clamp
-  GL_DEPTH_CLAMP_NV = $864F;
-
-  // GL_NV_evaluators
-  GL_EVAL_2D_NV = $86C0;
-  GL_EVAL_TRIANGULAR_2D_NV = $86C1;
-  GL_MAP_TESSELLATION_NV = $86C2;
-  GL_MAP_ATTRIB_U_ORDER_NV = $86C3;
-  GL_MAP_ATTRIB_V_ORDER_NV = $86C4;
-  GL_EVAL_FRACTIONAL_TESSELLATION_NV = $86C5;
-  GL_EVAL_VERTEX_ATTRIB0_NV = $86C6;
-  GL_EVAL_VERTEX_ATTRIB1_NV = $86C7;
-  GL_EVAL_VERTEX_ATTRIB2_NV = $86C8;
-  GL_EVAL_VERTEX_ATTRIB3_NV = $86C9;
-  GL_EVAL_VERTEX_ATTRIB4_NV = $86CA;
-  GL_EVAL_VERTEX_ATTRIB5_NV = $86CB;
-  GL_EVAL_VERTEX_ATTRIB6_NV = $86CC;
-  GL_EVAL_VERTEX_ATTRIB7_NV = $86CD;
-  GL_EVAL_VERTEX_ATTRIB8_NV = $86CE;
-  GL_EVAL_VERTEX_ATTRIB9_NV = $86CF;
-  GL_EVAL_VERTEX_ATTRIB10_NV = $86D0;
-  GL_EVAL_VERTEX_ATTRIB11_NV = $86D1;
-  GL_EVAL_VERTEX_ATTRIB12_NV = $86D2;
-  GL_EVAL_VERTEX_ATTRIB13_NV = $86D3;
-  GL_EVAL_VERTEX_ATTRIB14_NV = $86D4;
-  GL_EVAL_VERTEX_ATTRIB15_NV = $86D5;
-  GL_MAX_MAP_TESSELLATION_NV = $86D6;
-  GL_MAX_RATIONAL_EVAL_ORDER_NV = $86D7;
-
-  // GL_NV_fence
-  GL_ALL_COMPLETED_NV = $84F2;
-  GL_FENCE_STATUS_NV = $84F3;
-  GL_FENCE_CONDITION_NV = $84F4;
-
-  // GL_NV_float_buffer
-  GL_FLOAT_R_NV = $8880;
-  GL_FLOAT_RG_NV = $8881;
-  GL_FLOAT_RGB_NV = $8882;
-  GL_FLOAT_RGBA_NV = $8883;
-  GL_FLOAT_R16_NV = $8884;
-  GL_FLOAT_R32_NV = $8885;
-  GL_FLOAT_RG16_NV = $8886;
-  GL_FLOAT_RG32_NV = $8887;
-  GL_FLOAT_RGB16_NV = $8888;
-  GL_FLOAT_RGB32_NV = $8889;
-  GL_FLOAT_RGBA16_NV = $888A;
-  GL_FLOAT_RGBA32_NV = $888B;
-  GL_TEXTURE_FLOAT_COMPONENTS_NV = $888C;
-  GL_FLOAT_CLEAR_COLOR_VALUE_NV = $888D;
-  GL_FLOAT_RGBA_MODE_NV = $888E;
-
-  // GL_NV_fog_distance
-  GL_FOG_DISTANCE_MODE_NV = $855A;
-  GL_EYE_RADIAL_NV = $855B;
-  GL_EYE_PLANE_ABSOLUTE_NV = $855C;
-
-  // GL_NV_fragment_program
-  GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV = $8868;
-  GL_FRAGMENT_PROGRAM_NV = $8870;
-  GL_MAX_TEXTURE_COORDS_NV = $8871;
-  GL_MAX_TEXTURE_IMAGE_UNITS_NV = $8872;
-  GL_FRAGMENT_PROGRAM_BINDING_NV = $8873;
-  GL_PROGRAM_ERROR_STRING_NV = $8874;
-
-  // GL_NV_half_float
-  GL_HALF_FLOAT_NV = $140B;
-
-  // GL_NV_light_max_exponent
-  GL_MAX_SHININESS_NV = $8504;
-  GL_MAX_SPOT_EXPONENT_NV = $8505;
-
-  // GL_NV_multisample_filter_hint
-  GL_MULTISAMPLE_FILTER_HINT_NV = $8534;
-
-  // GL_NV_occlusion_query
-  GL_PIXEL_COUNTER_BITS_NV = $8864;
-  GL_CURRENT_OCCLUSION_QUERY_ID_NV = $8865;
-  GL_PIXEL_COUNT_NV = $8866;
-  GL_PIXEL_COUNT_AVAILABLE_NV = $8867;
-
-  // GL_NV_packed_depth_stencil
-  GL_DEPTH_STENCIL_NV = $84F9;
-  GL_UNSIGNED_INT_24_8_NV = $84FA;
-
-  // GL_NV_pixel_data_range
-  GL_WRITE_PIXEL_DATA_RANGE_NV = $8878;
-  GL_READ_PIXEL_DATA_RANGE_NV = $8879;
-  GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV = $887A;
-  GL_READ_PIXEL_DATA_RANGE_LENGTH_NV = $887B;
-  GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV = $887C;
-  GL_READ_PIXEL_DATA_RANGE_POINTER_NV = $887D;
-
-  // GL_NV_point_sprite
-  GL_POINT_SPRITE_NV = $8861;
-  GL_COORD_REPLACE_NV = $8862;
-  GL_POINT_SPRITE_R_MODE_NV = $8863;
-
-  // GL_NV_primitive_restart
-  GL_PRIMITIVE_RESTART_NV = $8558;
-  GL_PRIMITIVE_RESTART_INDEX_NV = $8559;
-
-  // GL_NV_register_combiners
-  GL_REGISTER_COMBINERS_NV = $8522;
-  GL_VARIABLE_A_NV = $8523;
-  GL_VARIABLE_B_NV = $8524;
-  GL_VARIABLE_C_NV = $8525;
-  GL_VARIABLE_D_NV = $8526;
-  GL_VARIABLE_E_NV = $8527;
-  GL_VARIABLE_F_NV = $8528;
-  GL_VARIABLE_G_NV = $8529;
-  GL_CONSTANT_COLOR0_NV = $852A;
-  GL_CONSTANT_COLOR1_NV = $852B;
-  GL_PRIMARY_COLOR_NV = $852C;
-  GL_SECONDARY_COLOR_NV = $852D;
-  GL_SPARE0_NV = $852E;
-  GL_SPARE1_NV = $852F;
-  GL_DISCARD_NV = $8530;
-  GL_E_TIMES_F_NV = $8531;
-  GL_SPARE0_PLUS_SECONDARY_COLOR_NV = $8532;
-  GL_UNSIGNED_IDENTITY_NV = $8536;
-  GL_UNSIGNED_INVERT_NV = $8537;
-  GL_EXPAND_NORMAL_NV = $8538;
-  GL_EXPAND_NEGATE_NV = $8539;
-  GL_HALF_BIAS_NORMAL_NV = $853A;
-  GL_HALF_BIAS_NEGATE_NV = $853B;
-  GL_SIGNED_IDENTITY_NV = $853C;
-  GL_SIGNED_NEGATE_NV = $853D;
-  GL_SCALE_BY_TWO_NV = $853E;
-  GL_SCALE_BY_FOUR_NV = $853F;
-  GL_SCALE_BY_ONE_HALF_NV = $8540;
-  GL_BIAS_BY_NEGATIVE_ONE_HALF_NV = $8541;
-  GL_COMBINER_INPUT_NV = $8542;
-  GL_COMBINER_MAPPING_NV = $8543;
-  GL_COMBINER_COMPONENT_USAGE_NV = $8544;
-  GL_COMBINER_AB_DOT_PRODUCT_NV = $8545;
-  GL_COMBINER_CD_DOT_PRODUCT_NV = $8546;
-  GL_COMBINER_MUX_SUM_NV = $8547;
-  GL_COMBINER_SCALE_NV = $8548;
-  GL_COMBINER_BIAS_NV = $8549;
-  GL_COMBINER_AB_OUTPUT_NV = $854A;
-  GL_COMBINER_CD_OUTPUT_NV = $854B;
-  GL_COMBINER_SUM_OUTPUT_NV = $854C;
-  GL_MAX_GENERAL_COMBINERS_NV = $854D;
-  GL_NUM_GENERAL_COMBINERS_NV = $854E;
-  GL_COLOR_SUM_CLAMP_NV = $854F;
-  GL_COMBINER0_NV = $8550;
-  GL_COMBINER1_NV = $8551;
-  GL_COMBINER2_NV = $8552;
-  GL_COMBINER3_NV = $8553;
-  GL_COMBINER4_NV = $8554;
-  GL_COMBINER5_NV = $8555;
-  GL_COMBINER6_NV = $8556;
-  GL_COMBINER7_NV = $8557;
-
-  // GL_NV_register_combiners2
-  GL_PER_STAGE_CONSTANTS_NV = $8535;
-
-  // GL_NV_texgen_emboss
-  GL_EMBOSS_LIGHT_NV = $855D;
-  GL_EMBOSS_CONSTANT_NV = $855E;
-  GL_EMBOSS_MAP_NV = $855F;
-
-  // GL_NV_texgen_reflection
-  GL_NORMAL_MAP_NV = $8511;
-  GL_REFLECTION_MAP_NV = $8512;
-
-  // GL_NV_texture_env_combine4
-  GL_COMBINE4_NV = $8503;
-  GL_SOURCE3_RGB_NV = $8583;
-  GL_SOURCE3_ALPHA_NV = $858B;
-  GL_OPERAND3_RGB_NV = $8593;
-  GL_OPERAND3_ALPHA_NV = $859B;
-
-  // GL_NV_texture_expand_normal
-  GL_TEXTURE_UNSIGNED_REMAP_MODE_NV = $888F;
-
-  // GL_NV_texture_rectangle
-  GL_TEXTURE_RECTANGLE_NV = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_NV = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_NV = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_NV = $84F8;
-
-  // GL_NV_texture_shader
-  GL_OFFSET_TEXTURE_RECTANGLE_NV = $864C;
-  GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV = $864D;
-  GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV = $864E;
-  GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV = $86D9;
-  GL_UNSIGNED_INT_S8_S8_8_8_NV = $86DA;
-  GL_UNSIGNED_INT_8_8_S8_S8_REV_NV = $86DB;
-  GL_DSDT_MAG_INTENSITY_NV = $86DC;
-  GL_SHADER_CONSISTENT_NV = $86DD;
-  GL_TEXTURE_SHADER_NV = $86DE;
-  GL_SHADER_OPERATION_NV = $86DF;
-  GL_CULL_MODES_NV = $86E0;
-  GL_OFFSET_TEXTURE_MATRIX_NV = $86E1;
-  GL_OFFSET_TEXTURE_SCALE_NV = $86E2;
-  GL_OFFSET_TEXTURE_BIAS_NV = $86E3;
-  GL_OFFSET_TEXTURE_2D_MATRIX_NV = GL_OFFSET_TEXTURE_MATRIX_NV;
-  GL_OFFSET_TEXTURE_2D_SCALE_NV = GL_OFFSET_TEXTURE_SCALE_NV;
-  GL_OFFSET_TEXTURE_2D_BIAS_NV = GL_OFFSET_TEXTURE_BIAS_NV;
-  GL_PREVIOUS_TEXTURE_INPUT_NV = $86E4;
-  GL_CONST_EYE_NV = $86E5;
-  GL_PASS_THROUGH_NV = $86E6;
-  GL_CULL_FRAGMENT_NV = $86E7;
-  GL_OFFSET_TEXTURE_2D_NV = $86E8;
-  GL_DEPENDENT_AR_TEXTURE_2D_NV = $86E9;
-  GL_DEPENDENT_GB_TEXTURE_2D_NV = $86EA;
-  GL_DOT_PRODUCT_NV = $86EC;
-  GL_DOT_PRODUCT_DEPTH_REPLACE_NV = $86ED;
-  GL_DOT_PRODUCT_TEXTURE_2D_NV = $86EE;
-  GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV = $86F0;
-  GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV = $86F1;
-  GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV = $86F2;
-  GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV = $86F3;
-  GL_HILO_NV = $86F4;
-  GL_DSDT_NV = $86F5;
-  GL_DSDT_MAG_NV = $86F6;
-  GL_DSDT_MAG_VIB_NV = $86F7;
-  GL_HILO16_NV = $86F8;
-  GL_SIGNED_HILO_NV = $86F9;
-  GL_SIGNED_HILO16_NV = $86FA;
-  GL_SIGNED_RGBA_NV = $86FB;
-  GL_SIGNED_RGBA8_NV = $86FC;
-  GL_SIGNED_RGB_NV = $86FE;
-  GL_SIGNED_RGB8_NV = $86FF;
-  GL_SIGNED_LUMINANCE_NV = $8701;
-  GL_SIGNED_LUMINANCE8_NV = $8702;
-  GL_SIGNED_LUMINANCE_ALPHA_NV = $8703;
-  GL_SIGNED_LUMINANCE8_ALPHA8_NV = $8704;
-  GL_SIGNED_ALPHA_NV = $8705;
-  GL_SIGNED_ALPHA8_NV = $8706;
-  GL_SIGNED_INTENSITY_NV = $8707;
-  GL_SIGNED_INTENSITY8_NV = $8708;
-  GL_DSDT8_NV = $8709;
-  GL_DSDT8_MAG8_NV = $870A;
-  GL_DSDT8_MAG8_INTENSITY8_NV = $870B;
-  GL_SIGNED_RGB_UNSIGNED_ALPHA_NV = $870C;
-  GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV = $870D;
-  GL_HI_SCALE_NV = $870E;
-  GL_LO_SCALE_NV = $870F;
-  GL_DS_SCALE_NV = $8710;
-  GL_DT_SCALE_NV = $8711;
-  GL_MAGNITUDE_SCALE_NV = $8712;
-  GL_VIBRANCE_SCALE_NV = $8713;
-  GL_HI_BIAS_NV = $8714;
-  GL_LO_BIAS_NV = $8715;
-  GL_DS_BIAS_NV = $8716;
-  GL_DT_BIAS_NV = $8717;
-  GL_MAGNITUDE_BIAS_NV = $8718;
-  GL_VIBRANCE_BIAS_NV = $8719;
-  GL_TEXTURE_BORDER_VALUES_NV = $871A;
-  GL_TEXTURE_HI_SIZE_NV = $871B;
-  GL_TEXTURE_LO_SIZE_NV = $871C;
-  GL_TEXTURE_DS_SIZE_NV = $871D;
-  GL_TEXTURE_DT_SIZE_NV = $871E;
-  GL_TEXTURE_MAG_SIZE_NV = $871F;
-
-  // GL_NV_texture_shader2
-  GL_DOT_PRODUCT_TEXTURE_3D_NV = $86EF;
-
-  // GL_NV_texture_shader3
-  GL_OFFSET_PROJECTIVE_TEXTURE_2D_NV = $8850;
-  GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV = $8851;
-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8852;
-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV = $8853;
-  GL_OFFSET_HILO_TEXTURE_2D_NV = $8854;
-  GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV = $8855;
-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV = $8856;
-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8857;
-  GL_DEPENDENT_HILO_TEXTURE_2D_NV = $8858;
-  GL_DEPENDENT_RGB_TEXTURE_3D_NV = $8859;
-  GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV = $885A;
-  GL_DOT_PRODUCT_PASS_THROUGH_NV = $885B;
-  GL_DOT_PRODUCT_TEXTURE_1D_NV = $885C;
-  GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV = $885D;
-  GL_HILO8_NV = $885E;
-  GL_SIGNED_HILO8_NV = $885F;
-  GL_FORCE_BLUE_TO_ONE_NV = $8860;
-
-  // GL_NV_vertex_array_range
-  GL_VERTEX_ARRAY_RANGE_NV = $851D;
-  GL_VERTEX_ARRAY_RANGE_LENGTH_NV = $851E;
-  GL_VERTEX_ARRAY_RANGE_VALID_NV = $851F;
-  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV = $8520;
-  GL_VERTEX_ARRAY_RANGE_POINTER_NV = $8521;
-
-  // GL_NV_vertex_array_range2
-  GL_VERTEX_ARRAY_RANGE_WITHOUT_FLUSH_NV = $8533;
-
-  // GL_NV_vertex_program
-  GL_VERTEX_PROGRAM_NV = $8620;
-  GL_VERTEX_STATE_PROGRAM_NV = $8621;
-  GL_ATTRIB_ARRAY_SIZE_NV = $8623;
-  GL_ATTRIB_ARRAY_STRIDE_NV = $8624;
-  GL_ATTRIB_ARRAY_TYPE_NV = $8625;
-  GL_CURRENT_ATTRIB_NV = $8626;
-  GL_PROGRAM_LENGTH_NV = $8627;
-  GL_PROGRAM_STRING_NV = $8628;
-  GL_MODELVIEW_PROJECTION_NV = $8629;
-  GL_IDENTITY_NV = $862A;
-  GL_INVERSE_NV = $862B;
-  GL_TRANSPOSE_NV = $862C;
-  GL_INVERSE_TRANSPOSE_NV = $862D;
-  GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV = $862E;
-  GL_MAX_TRACK_MATRICES_NV = $862F;
-  GL_MATRIX0_NV = $8630;
-  GL_MATRIX1_NV = $8631;
-  GL_MATRIX2_NV = $8632;
-  GL_MATRIX3_NV = $8633;
-  GL_MATRIX4_NV = $8634;
-  GL_MATRIX5_NV = $8635;
-  GL_MATRIX6_NV = $8636;
-  GL_MATRIX7_NV = $8637;
-  GL_CURRENT_MATRIX_STACK_DEPTH_NV = $8640;
-  GL_CURRENT_MATRIX_NV = $8641;
-  GL_VERTEX_PROGRAM_POINT_SIZE_NV = $8642;
-  GL_VERTEX_PROGRAM_TWO_SIDE_NV = $8643;
-  GL_PROGRAM_PARAMETER_NV = $8644;
-  GL_ATTRIB_ARRAY_POINTER_NV = $8645;
-  GL_PROGRAM_TARGET_NV = $8646;
-  GL_PROGRAM_RESIDENT_NV = $8647;
-  GL_TRACK_MATRIX_NV = $8648;
-  GL_TRACK_MATRIX_TRANSFORM_NV = $8649;
-  GL_VERTEX_PROGRAM_BINDING_NV = $864A;
-  GL_PROGRAM_ERROR_POSITION_NV = $864B;
-  GL_VERTEX_ATTRIB_ARRAY0_NV = $8650;
-  GL_VERTEX_ATTRIB_ARRAY1_NV = $8651;
-  GL_VERTEX_ATTRIB_ARRAY2_NV = $8652;
-  GL_VERTEX_ATTRIB_ARRAY3_NV = $8653;
-  GL_VERTEX_ATTRIB_ARRAY4_NV = $8654;
-  GL_VERTEX_ATTRIB_ARRAY5_NV = $8655;
-  GL_VERTEX_ATTRIB_ARRAY6_NV = $8656;
-  GL_VERTEX_ATTRIB_ARRAY7_NV = $8657;
-  GL_VERTEX_ATTRIB_ARRAY8_NV = $8658;
-  GL_VERTEX_ATTRIB_ARRAY9_NV = $8659;
-  GL_VERTEX_ATTRIB_ARRAY10_NV = $865A;
-  GL_VERTEX_ATTRIB_ARRAY11_NV = $865B;
-  GL_VERTEX_ATTRIB_ARRAY12_NV = $865C;
-  GL_VERTEX_ATTRIB_ARRAY13_NV = $865D;
-  GL_VERTEX_ATTRIB_ARRAY14_NV = $865E;
-  GL_VERTEX_ATTRIB_ARRAY15_NV = $865F;
-  GL_MAP1_VERTEX_ATTRIB0_4_NV = $8660;
-  GL_MAP1_VERTEX_ATTRIB1_4_NV = $8661;
-  GL_MAP1_VERTEX_ATTRIB2_4_NV = $8662;
-  GL_MAP1_VERTEX_ATTRIB3_4_NV = $8663;
-  GL_MAP1_VERTEX_ATTRIB4_4_NV = $8664;
-  GL_MAP1_VERTEX_ATTRIB5_4_NV = $8665;
-  GL_MAP1_VERTEX_ATTRIB6_4_NV = $8666;
-  GL_MAP1_VERTEX_ATTRIB7_4_NV = $8667;
-  GL_MAP1_VERTEX_ATTRIB8_4_NV = $8668;
-  GL_MAP1_VERTEX_ATTRIB9_4_NV = $8669;
-  GL_MAP1_VERTEX_ATTRIB10_4_NV = $866A;
-  GL_MAP1_VERTEX_ATTRIB11_4_NV = $866B;
-  GL_MAP1_VERTEX_ATTRIB12_4_NV = $866C;
-  GL_MAP1_VERTEX_ATTRIB13_4_NV = $866D;
-  GL_MAP1_VERTEX_ATTRIB14_4_NV = $866E;
-  GL_MAP1_VERTEX_ATTRIB15_4_NV = $866F;
-  GL_MAP2_VERTEX_ATTRIB0_4_NV = $8670;
-  GL_MAP2_VERTEX_ATTRIB1_4_NV = $8671;
-  GL_MAP2_VERTEX_ATTRIB2_4_NV = $8672;
-  GL_MAP2_VERTEX_ATTRIB3_4_NV = $8673;
-  GL_MAP2_VERTEX_ATTRIB4_4_NV = $8674;
-  GL_MAP2_VERTEX_ATTRIB5_4_NV = $8675;
-  GL_MAP2_VERTEX_ATTRIB6_4_NV = $8676;
-  GL_MAP2_VERTEX_ATTRIB7_4_NV = $8677;
-  GL_MAP2_VERTEX_ATTRIB8_4_NV = $8678;
-  GL_MAP2_VERTEX_ATTRIB9_4_NV = $8679;
-  GL_MAP2_VERTEX_ATTRIB10_4_NV = $867A;
-  GL_MAP2_VERTEX_ATTRIB11_4_NV = $867B;
-  GL_MAP2_VERTEX_ATTRIB12_4_NV = $867C;
-  GL_MAP2_VERTEX_ATTRIB13_4_NV = $867D;
-  GL_MAP2_VERTEX_ATTRIB14_4_NV = $867E;
-  GL_MAP2_VERTEX_ATTRIB15_4_NV = $867F;
-
-  // GL_NV_fragment_program2 and GL_NV_vertex_program2_option
-  GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV = $88F4;
-  GL_MAX_PROGRAM_CALL_DEPTH_NV = $88F5;
-
-  // GL_NV_fragment_program2
-  GL_MAX_PROGRAM_IF_DEPTH_NV = $88F6;
-  GL_MAX_PROGRAM_LOOP_DEPTH_NV = $88F7;
-  GL_MAX_PROGRAM_LOOP_COUNT_NV = $88F8;
-
-  // GL_NV_vertex_program3
-  MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = $8B4C;
-
-  // GL_NV_depth_buffer_float
-  GL_FLOAT_32_UNSIGNED_INT_24_8_REV_NV = $8DAD;
-  GL_DEPTH_BUFFER_FLOAT_MODE_NV = $8DAF;
-
-  // GL_NV_framebuffer_multisample_coverage
-  GL_RENDERBUFFER_COVERAGE_SAMPLES_NV = $8CAB;
-  GL_RENDERBUFFER_COLOR_SAMPLES_NV = $8E10;
-
-  // GL_NV_geometry_program4
-  GL_GEOMETRY_PROGRAM_NV = $8C26;
-  GL_MAX_PROGRAM_OUTPUT_VERTICES_NV = $8C27;
-  GL_MAX_PROGRAM_TOTAL_OUTPUT_COMPONENTS_NV = $8C28;
-
-  // GL_NV_gpu_program4
-  GL_PROGRAM_ATTRIB_COMPONENTS_NV = $8906;
-  GL_PROGRAM_RESULT_COMPONENTS_NV = $8907;
-  GL_MAX_PROGRAM_ATTRIB_COMPONENTS_NV = $8908;
-  GL_MAX_PROGRAM_RESULT_COMPONENTS_NV = $8909;
-  GL_MAX_PROGRAM_GENERIC_ATTRIBS_NV = $8DA5;
-  GL_MAX_PROGRAM_GENERIC_RESULTS_NV = $8DA6;
-
-  // GL_NV_parameter_buffer_object
-  GL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV = $8DA0;
-  GL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV = $8DA1;
-  GL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV = $8DA2;
-  GL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV = $8DA3;
-  GL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV = $8DA4;
-
-  // GL_NV_transform_feedback
-  GL_TRANSFORM_FEEDBACK_BUFFER_NV = $8C8E;
-  GL_TRANSFORM_FEEDBACK_BUFFER_START_NV = $8C84;
-  GL_TRANSFORM_FEEDBACK_BUFFER_SIZE_NV = $8C85;
-  GL_TRANSFORM_FEEDBACK_RECORD_NV = $8C86;
-  GL_TRANSFORM_FEEDBACK_BUFFER_BINDING_NV = $8C8F;
-  GL_INTERLEAVED_ATTRIBS_NV = $8C8C;
-  GL_SEPARATE_ATTRIBS_NV = $8C8D;
-  GL_PRIMITIVES_GENERATED_NV = $8C87;
-  GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN_NV = $8C88;
-  GL_RASTERIZER_DISCARD_NV = $8C89;
-  GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS_NV = $8C8A;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS_NV = $8C8B;
-  GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS_NV = $8C80;
-  GL_TRANSFORM_FEEDBACK_ATTRIBS_NV = $8C7E;
-  GL_ACTIVE_VARYINGS_NV = $8C81;
-  GL_ACTIVE_VARYING_MAX_LENGTH_NV = $8C82;
-  GL_TRANSFORM_FEEDBACK_VARYINGS_NV = $8C83;
-  GL_TRANSFORM_FEEDBACK_BUFFER_MODE_NV = $8C7F;
-  GL_BACK_PRIMARY_COLOR_NV = $8C77;
-  GL_BACK_SECONDARY_COLOR_NV = $8C78;
-  GL_TEXTURE_COORD_NV = $8C79;
-  GL_CLIP_DISTANCE_NV = $8C7A;
-  GL_VERTEX_ID_NV = $8C7B;
-  GL_PRIMITIVE_ID_NV = $8C7C;
-  GL_GENERIC_ATTRIB_NV = $8C7D;
-
-  // GL_NV_conditional_render
-  GL_QUERY_WAIT_NV = $8E13;
-  GL_QUERY_NO_WAIT_NV = $8E14;
-  GL_QUERY_BY_REGION_WAIT_NV = $8E15;
-  GL_QUERY_BY_REGION_NO_WAIT_NV = $8E16;
-
-  // GL_NV_present_video
-  GL_FRAME_NV = $8E26;
-  GL_FIELDS_NV = $8E27;
-  GL_CURRENT_TIME_NV = $8E28;
-  GL_NUM_FILL_STREAMS_NV = $8E29;
-  GL_PRESENT_TIME_NV = $8E2A;
-  GL_PRESENT_DURATION_NV = $8E2B;
-
-  // GL_NV_explicit_multisample
-  GL_SAMPLE_POSITION_NV = $8E50;
-  GL_SAMPLE_MASK_NV = $8E51;
-  GL_SAMPLE_MASK_VALUE_NV = $8E52;
-  GL_TEXTURE_BINDING_RENDERBUFFER_NV = $8E53;
-  GL_TEXTURE_RENDERBUFFER_DATA_STORE_BINDING_NV = $8E54;
-  GL_TEXTURE_RENDERBUFFER_NV = $8E55;
-  GL_SAMPLER_RENDERBUFFER_NV = $8E56;
-  GL_INT_SAMPLER_RENDERBUFFER_NV = $8E57;
-  GL_UNSIGNED_INT_SAMPLER_RENDERBUFFER_NV = $8E58;
-  GL_MAX_SAMPLE_MASK_WORDS_NV = $8E59;
-
-  // GL_NV_transform_feedback2
-  GL_TRANSFORM_FEEDBACK_NV = $8E22;
-  GL_TRANSFORM_FEEDBACK_BUFFER_PAUSED_NV = $8E23;
-  GL_TRANSFORM_FEEDBACK_BUFFER_ACTIVE_NV = $8E24;
-  GL_TRANSFORM_FEEDBACK_BINDING_NV = $8E25;
-
-  // GL_OML_interlace
-  GL_INTERLACE_OML = $8980;
-  GL_INTERLACE_READ_OML = $8981;
-
-  // GL_OML_resample
-  GL_PACK_RESAMPLE_OML = $8984;
-  GL_UNPACK_RESAMPLE_OML = $8985;
-  GL_RESAMPLE_REPLICATE_OML = $8986;
-  GL_RESAMPLE_ZERO_FILL_OML = $8987;
-  GL_RESAMPLE_AVERAGE_OML = $8988;
-  GL_RESAMPLE_DECIMATE_OML = $8989;
-
-  // GL_OML_subsample
-  GL_FORMAT_SUBSAMPLE_24_24_OML = $8982;
-  GL_FORMAT_SUBSAMPLE_244_244_OML = $8983;
-
-  // GL_PGI_misc_hints
-  GL_PREFER_DOUBLEBUFFER_HINT_PGI = $1A1F8;
-  GL_CONSERVE_MEMORY_HINT_PGI = $1A1FD;
-  GL_RECLAIM_MEMORY_HINT_PGI = $1A1FE;
-  GL_NATIVE_GRAPHICS_HANDLE_PGI = $1A202;
-  GL_NATIVE_GRAPHICS_BEGIN_HINT_PGI = $1A203;
-  GL_NATIVE_GRAPHICS_END_HINT_PGI = $1A204;
-  GL_ALWAYS_FAST_HINT_PGI = $1A20C;
-  GL_ALWAYS_SOFT_HINT_PGI = $1A20D;
-  GL_ALLOW_DRAW_OBJ_HINT_PGI = $1A20E;
-  GL_ALLOW_DRAW_WIN_HINT_PGI = $1A20F;
-  GL_ALLOW_DRAW_FRG_HINT_PGI = $1A210;
-  GL_ALLOW_DRAW_MEM_HINT_PGI = $1A211;
-  GL_STRICT_DEPTHFUNC_HINT_PGI = $1A216;
-  GL_STRICT_LIGHTING_HINT_PGI = $1A217;
-  GL_STRICT_SCISSOR_HINT_PGI = $1A218;
-  GL_FULL_STIPPLE_HINT_PGI = $1A219;
-  GL_CLIP_NEAR_HINT_PGI = $1A220;
-  GL_CLIP_FAR_HINT_PGI = $1A221;
-  GL_WIDE_LINE_HINT_PGI = $1A222;
-  GL_BACK_NORMALS_HINT_PGI = $1A223;
-
-  // GL_PGI_vertex_hints
-  GL_VERTEX_DATA_HINT_PGI = $1A22A;
-  GL_VERTEX_CONSISTENT_HINT_PGI = $1A22B;
-  GL_MATERIAL_SIDE_HINT_PGI = $1A22C;
-  GL_MAX_VERTEX_HINT_PGI = $1A22D;
-  GL_COLOR3_BIT_PGI = $00010000;
-  GL_COLOR4_BIT_PGI = $00020000;
-  GL_EDGEFLAG_BIT_PGI = $00040000;
-  GL_INDEX_BIT_PGI = $00080000;
-  GL_MAT_AMBIENT_BIT_PGI = $00100000;
-  GL_MAT_AMBIENT_AND_DIFFUSE_BIT_PGI = $00200000;
-  GL_MAT_DIFFUSE_BIT_PGI = $00400000;
-  GL_MAT_EMISSION_BIT_PGI = $00800000;
-  GL_MAT_COLOR_INDEXES_BIT_PGI = $01000000;
-  GL_MAT_SHININESS_BIT_PGI = $02000000;
-  GL_MAT_SPECULAR_BIT_PGI = $04000000;
-  GL_NORMAL_BIT_PGI = $08000000;
-  GL_TEXCOORD1_BIT_PGI = $10000000;
-  GL_TEXCOORD2_BIT_PGI = $20000000;
-  GL_TEXCOORD3_BIT_PGI = $40000000;
-  GL_TEXCOORD4_BIT_PGI = $80000000;
-  GL_VERTEX23_BIT_PGI = $00000004;
-  GL_VERTEX4_BIT_PGI = $00000008;
-
-  // GL_REND_screen_coordinates
-  GL_SCREEN_COORDINATES_REND = $8490;
-  GL_INVERTED_SCREEN_W_REND = $8491;
-
-  // GL_S3_s3tc
-  GL_RGB_S3TC = $83A0;
-  GL_RGB4_S3TC = $83A1;
-  GL_RGBA_S3TC = $83A2;
-  GL_RGBA4_S3TC = $83A3;
-
-  // GL_SGIS_detail_texture
-  GL_DETAIL_TEXTURE_2D_SGIS = $8095;
-  GL_DETAIL_TEXTURE_2D_BINDING_SGIS = $8096;
-  GL_LINEAR_DETAIL_SGIS = $8097;
-  GL_LINEAR_DETAIL_ALPHA_SGIS = $8098;
-  GL_LINEAR_DETAIL_COLOR_SGIS = $8099;
-  GL_DETAIL_TEXTURE_LEVEL_SGIS = $809A;
-  GL_DETAIL_TEXTURE_MODE_SGIS = $809B;
-  GL_DETAIL_TEXTURE_FUNC_POINTS_SGIS = $809C;
-
-  // GL_SGIS_fog_function
-  GL_FOG_FUNC_SGIS = $812A;
-  GL_FOG_FUNC_POINTS_SGIS = $812B;
-  GL_MAX_FOG_FUNC_POINTS_SGIS = $812C;
-
-  // GL_SGIS_generate_mipmap
-  GL_GENERATE_MIPMAP_SGIS = $8191;
-  GL_GENERATE_MIPMAP_HINT_SGIS = $8192;
-
-  // GL_SGIS_multisample
-  GL_MULTISAMPLE_SGIS = $809D;
-  GL_SAMPLE_ALPHA_TO_MASK_SGIS = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE_SGIS = $809F;
-  GL_SAMPLE_MASK_SGIS = $80A0;
-  GL_1PASS_SGIS = $80A1;
-  GL_2PASS_0_SGIS = $80A2;
-  GL_2PASS_1_SGIS = $80A3;
-  GL_4PASS_0_SGIS = $80A4;
-  GL_4PASS_1_SGIS = $80A5;
-  GL_4PASS_2_SGIS = $80A6;
-  GL_4PASS_3_SGIS = $80A7;
-  GL_SAMPLE_BUFFERS_SGIS = $80A8;
-  GL_SAMPLES_SGIS = $80A9;
-  GL_SAMPLE_MASK_VALUE_SGIS = $80AA;
-  GL_SAMPLE_MASK_INVERT_SGIS = $80AB;
-  GL_SAMPLE_PATTERN_SGIS = $80AC;
-
-  // GL_SGIS_pixel_texture
-  GL_PIXEL_TEXTURE_SGIS = $8353;
-  GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS = $8354;
-  GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS = $8355;
-  GL_PIXEL_GROUP_COLOR_SGIS = $8356;
-
-  // GL_SGIS_point_line_texgen
-  GL_EYE_DISTANCE_TO_POINT_SGIS = $81F0;
-  GL_OBJECT_DISTANCE_TO_POINT_SGIS = $81F1;
-  GL_EYE_DISTANCE_TO_LINE_SGIS = $81F2;
-  GL_OBJECT_DISTANCE_TO_LINE_SGIS = $81F3;
-  GL_EYE_POINT_SGIS = $81F4;
-  GL_OBJECT_POINT_SGIS = $81F5;
-  GL_EYE_LINE_SGIS = $81F6;
-  GL_OBJECT_LINE_SGIS = $81F7;
-
-  // GL_SGIS_point_parameters
-  GL_POINT_SIZE_MIN_SGIS = $8126;
-  GL_POINT_SIZE_MAX_SGIS = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE_SGIS = $8128;
-  GL_DISTANCE_ATTENUATION_SGIS = $8129;
-
-  // GL_SGIS_sharpen_texture
-  GL_LINEAR_SHARPEN_SGIS = $80AD;
-  GL_LINEAR_SHARPEN_ALPHA_SGIS = $80AE;
-  GL_LINEAR_SHARPEN_COLOR_SGIS = $80AF;
-  GL_SHARPEN_TEXTURE_FUNC_POINTS_SGIS = $80B0;
-
-  // GL_SGIS_texture4D
-  GL_PACK_SKIP_VOLUMES_SGIS = $8130;
-  GL_PACK_IMAGE_DEPTH_SGIS = $8131;
-  GL_UNPACK_SKIP_VOLUMES_SGIS = $8132;
-  GL_UNPACK_IMAGE_DEPTH_SGIS = $8133;
-  GL_TEXTURE_4D_SGIS = $8134;
-  GL_PROXY_TEXTURE_4D_SGIS = $8135;
-  GL_TEXTURE_4DSIZE_SGIS = $8136;
-  GL_TEXTURE_WRAP_Q_SGIS = $8137;
-  GL_MAX_4D_TEXTURE_SIZE_SGIS = $8138;
-  GL_TEXTURE_4D_BINDING_SGIS = $814F;
-
-  // GL_SGIS_texture_color_mask
-  GL_TEXTURE_COLOR_WRITEMASK_SGIS = $81EF;
-
-  // GL_SGIS_texture_edge_clamp
-  GL_CLAMP_TO_EDGE_SGIS = $812F;
-
-  // GL_SGIS_texture_filter4
-  GL_FILTER4_SGIS = $8146;
-  GL_TEXTURE_FILTER4_SIZE_SGIS = $8147;
-
-  // GL_SGIS_texture_lod
-  GL_TEXTURE_MIN_LOD_SGIS = $813A;
-  GL_TEXTURE_MAX_LOD_SGIS = $813B;
-  GL_TEXTURE_BASE_LEVEL_SGIS = $813C;
-  GL_TEXTURE_MAX_LEVEL_SGIS = $813D;
-
-  // GL_SGIS_texture_select
-  GL_DUAL_ALPHA4_SGIS = $8110;
-  GL_DUAL_ALPHA8_SGIS = $8111;
-  GL_DUAL_ALPHA12_SGIS = $8112;
-  GL_DUAL_ALPHA16_SGIS = $8113;
-  GL_DUAL_LUMINANCE4_SGIS = $8114;
-  GL_DUAL_LUMINANCE8_SGIS = $8115;
-  GL_DUAL_LUMINANCE12_SGIS = $8116;
-  GL_DUAL_LUMINANCE16_SGIS = $8117;
-  GL_DUAL_INTENSITY4_SGIS = $8118;
-  GL_DUAL_INTENSITY8_SGIS = $8119;
-  GL_DUAL_INTENSITY12_SGIS = $811A;
-  GL_DUAL_INTENSITY16_SGIS = $811B;
-  GL_DUAL_LUMINANCE_ALPHA4_SGIS = $811C;
-  GL_DUAL_LUMINANCE_ALPHA8_SGIS = $811D;
-  GL_QUAD_ALPHA4_SGIS = $811E;
-  GL_QUAD_ALPHA8_SGIS = $811F;
-  GL_QUAD_LUMINANCE4_SGIS = $8120;
-  GL_QUAD_LUMINANCE8_SGIS = $8121;
-  GL_QUAD_INTENSITY4_SGIS = $8122;
-  GL_QUAD_INTENSITY8_SGIS = $8123;
-  GL_DUAL_TEXTURE_SELECT_SGIS = $8124;
-  GL_QUAD_TEXTURE_SELECT_SGIS = $8125;
-
-  // GL_SGIX_async
-  GL_ASYNC_MARKER_SGIX = $8329;
-
-  // GL_SGIX_async_histogram
-  GL_ASYNC_HISTOGRAM_SGIX = $832C;
-  GL_MAX_ASYNC_HISTOGRAM_SGIX = $832D;
-
-  // GL_SGIX_async_pixel
-  GL_ASYNC_TEX_IMAGE_SGIX = $835C;
-  GL_ASYNC_DRAW_PIXELS_SGIX = $835D;
-  GL_ASYNC_READ_PIXELS_SGIX = $835E;
-  GL_MAX_ASYNC_TEX_IMAGE_SGIX = $835F;
-  GL_MAX_ASYNC_DRAW_PIXELS_SGIX = $8360;
-  GL_MAX_ASYNC_READ_PIXELS_SGIX = $8361;
-
-  // GL_SGIX_blend_alpha_minmax
-  GL_ALPHA_MIN_SGIX = $8320;
-  GL_ALPHA_MAX_SGIX = $8321;
-
-  // GL_SGIX_calligraphic_fragment
-  GL_CALLIGRAPHIC_FRAGMENT_SGIX = $8183;
-
-  // GL_SGIX_clipmap
-  GL_LINEAR_CLIPMAP_LINEAR_SGIX = $8170;
-  GL_TEXTURE_CLIPMAP_CENTER_SGIX = $8171;
-  GL_TEXTURE_CLIPMAP_FRAME_SGIX = $8172;
-  GL_TEXTURE_CLIPMAP_OFFSET_SGIX = $8173;
-  GL_TEXTURE_CLIPMAP_VIRTUAL_DEPTH_SGIX = $8174;
-  GL_TEXTURE_CLIPMAP_LOD_OFFSET_SGIX = $8175;
-  GL_TEXTURE_CLIPMAP_DEPTH_SGIX = $8176;
-  GL_MAX_CLIPMAP_DEPTH_SGIX = $8177;
-  GL_MAX_CLIPMAP_VIRTUAL_DEPTH_SGIX = $8178;
-  GL_NEAREST_CLIPMAP_NEAREST_SGIX = $844D;
-  GL_NEAREST_CLIPMAP_LINEAR_SGIX = $844E;
-  GL_LINEAR_CLIPMAP_NEAREST_SGIX = $844F;
-
-  // GL_SGIX_convolution_accuracy
-  GL_CONVOLUTION_HINT_SGIX = $8316;
-
-  // GL_SGIX_depth_texture
-  GL_DEPTH_COMPONENT16_SGIX = $81A5;
-  GL_DEPTH_COMPONENT24_SGIX = $81A6;
-  GL_DEPTH_COMPONENT32_SGIX = $81A7;
-
-  // GL_SGIX_fog_offset
-  GL_FOG_OFFSET_SGIX = $8198;
-  GL_FOG_OFFSET_VALUE_SGIX = $8199;
-
-  // GL_SGIX_fog_scale
-  GL_FOG_SCALE_SGIX = $81FC;
-  GL_FOG_SCALE_VALUE_SGIX = $81FD;
-
-  // GL_SGIX_fragment_lighting
-  GL_FRAGMENT_LIGHTING_SGIX = $8400;
-  GL_FRAGMENT_COLOR_MATERIAL_SGIX = $8401;
-  GL_FRAGMENT_COLOR_MATERIAL_FACE_SGIX = $8402;
-  GL_FRAGMENT_COLOR_MATERIAL_PARAMETER_SGIX = $8403;
-  GL_MAX_FRAGMENT_LIGHTS_SGIX = $8404;
-  GL_MAX_ACTIVE_LIGHTS_SGIX = $8405;
-  GL_CURRENT_RASTER_NORMAL_SGIX = $8406;
-  GL_LIGHT_ENV_MODE_SGIX = $8407;
-  GL_FRAGMENT_LIGHT_MODEL_LOCAL_VIEWER_SGIX = $8408;
-  GL_FRAGMENT_LIGHT_MODEL_TWO_SIDE_SGIX = $8409;
-  GL_FRAGMENT_LIGHT_MODEL_AMBIENT_SGIX = $840A;
-  GL_FRAGMENT_LIGHT_MODEL_NORMAL_INTERPOLATION_SGIX = $840B;
-  GL_FRAGMENT_LIGHT0_SGIX = $840C;
-  GL_FRAGMENT_LIGHT1_SGIX = $840D;
-  GL_FRAGMENT_LIGHT2_SGIX = $840E;
-  GL_FRAGMENT_LIGHT3_SGIX = $840F;
-  GL_FRAGMENT_LIGHT4_SGIX = $8410;
-  GL_FRAGMENT_LIGHT5_SGIX = $8411;
-  GL_FRAGMENT_LIGHT6_SGIX = $8412;
-  GL_FRAGMENT_LIGHT7_SGIX = $8413;
-
-  // GL_SGIX_framezoom
-  GL_FRAMEZOOM_SGIX = $818B;
-  GL_FRAMEZOOM_FACTOR_SGIX = $818C;
-  GL_MAX_FRAMEZOOM_FACTOR_SGIX = $818D;
-
-  // GL_SGIX_impact_pixel_texture
-  GL_PIXEL_TEX_GEN_Q_CEILING_SGIX = $8184;
-  GL_PIXEL_TEX_GEN_Q_ROUND_SGIX = $8185;
-  GL_PIXEL_TEX_GEN_Q_FLOOR_SGIX = $8186;
-  GL_PIXEL_TEX_GEN_ALPHA_REPLACE_SGIX = $8187;
-  GL_PIXEL_TEX_GEN_ALPHA_NO_REPLACE_SGIX = $8188;
-  GL_PIXEL_TEX_GEN_ALPHA_LS_SGIX = $8189;
-  GL_PIXEL_TEX_GEN_ALPHA_MS_SGIX = $818A;
-
-  // GL_SGIX_instruments
-  GL_INSTRUMENT_BUFFER_POINTER_SGIX = $8180;
-  GL_INSTRUMENT_MEASUREMENTS_SGIX = $8181;
-
-  // GL_SGIX_interlace
-  GL_INTERLACE_SGIX = $8094;
-
-  // GL_SGIX_ir_instrument1
-  GL_IR_INSTRUMENT1_SGIX = $817F;
-
-  // GL_SGIX_list_priority
-  GL_LIST_PRIORITY_SGIX = $8182;
-
-  // GL_SGIX_pixel_texture
-  GL_PIXEL_TEX_GEN_SGIX = $8139;
-  GL_PIXEL_TEX_GEN_MODE_SGIX = $832B;
-
-  // GL_SGIX_pixel_tiles
-  GL_PIXEL_TILE_BEST_ALIGNMENT_SGIX = $813E;
-  GL_PIXEL_TILE_CACHE_INCREMENT_SGIX = $813F;
-  GL_PIXEL_TILE_WIDTH_SGIX = $8140;
-  GL_PIXEL_TILE_HEIGHT_SGIX = $8141;
-  GL_PIXEL_TILE_GRID_WIDTH_SGIX = $8142;
-  GL_PIXEL_TILE_GRID_HEIGHT_SGIX = $8143;
-  GL_PIXEL_TILE_GRID_DEPTH_SGIX = $8144;
-  GL_PIXEL_TILE_CACHE_SIZE_SGIX = $8145;
-
-  // GL_SGIX_polynomial_ffd
-  GL_GEOMETRY_DEFORMATION_SGIX = $8194;
-  GL_TEXTURE_DEFORMATION_SGIX = $8195;
-  GL_DEFORMATIONS_MASK_SGIX = $8196;
-  GL_MAX_DEFORMATION_ORDER_SGIX = $8197;
-
-  // GL_SGIX_reference_plane
-  GL_REFERENCE_PLANE_SGIX = $817D;
-  GL_REFERENCE_PLANE_EQUATION_SGIX = $817E;
-
-  // GL_SGIX_resample
-  GL_PACK_RESAMPLE_SGIX = $842C;
-  GL_UNPACK_RESAMPLE_SGIX = $842D;
-  GL_RESAMPLE_REPLICATE_SGIX = $842E;
-  GL_RESAMPLE_ZERO_FILL_SGIX = $842F;
-  GL_RESAMPLE_DECIMATE_SGIX = $8430;
-
-  // GL_SGIX_scalebias_hint
-  GL_SCALEBIAS_HINT_SGIX = $8322;
-
-  // GL_SGIX_shadow
-  GL_TEXTURE_COMPARE_SGIX = $819A;
-  GL_TEXTURE_COMPARE_OPERATOR_SGIX = $819B;
-  GL_TEXTURE_LEQUAL_R_SGIX = $819C;
-  GL_TEXTURE_GEQUAL_R_SGIX = $819D;
-
-  // GL_SGIX_shadow_ambient
-  GL_SHADOW_AMBIENT_SGIX = $80BF;
-
-  // GL_SGIX_sprite
-  GL_SPRITE_SGIX = $8148;
-  GL_SPRITE_MODE_SGIX = $8149;
-  GL_SPRITE_AXIS_SGIX = $814A;
-  GL_SPRITE_TRANSLATION_SGIX = $814B;
-  GL_SPRITE_AXIAL_SGIX = $814C;
-  GL_SPRITE_OBJECT_ALIGNED_SGIX = $814D;
-  GL_SPRITE_EYE_ALIGNED_SGIX = $814E;
-
-  // GL_SGIX_subsample
-  GL_PACK_SUBSAMPLE_RATE_SGIX = $85A0;
-  GL_UNPACK_SUBSAMPLE_RATE_SGIX = $85A1;
-  GL_PIXEL_SUBSAMPLE_4444_SGIX = $85A2;
-  GL_PIXEL_SUBSAMPLE_2424_SGIX = $85A3;
-  GL_PIXEL_SUBSAMPLE_4242_SGIX = $85A4;
-
-  // GL_SGIX_texture_add_env
-  GL_TEXTURE_ENV_BIAS_SGIX = $80BE;
-
-  // GL_SGIX_texture_coordinate_clamp
-  GL_TEXTURE_MAX_CLAMP_S_SGIX = $8369;
-  GL_TEXTURE_MAX_CLAMP_T_SGIX = $836A;
-  GL_TEXTURE_MAX_CLAMP_R_SGIX = $836B;
-
-  // GL_SGIX_texture_lod_bias
-  GL_TEXTURE_LOD_BIAS_S_SGIX = $818E;
-  GL_TEXTURE_LOD_BIAS_T_SGIX = $818F;
-  GL_TEXTURE_LOD_BIAS_R_SGIX = $8190;
-
-  // GL_SGIX_texture_multi_buffer
-  GL_TEXTURE_MULTI_BUFFER_HINT_SGIX = $812E;
-
-  // GL_SGIX_texture_scale_bias
-  GL_POST_TEXTURE_FILTER_BIAS_SGIX = $8179;
-  GL_POST_TEXTURE_FILTER_SCALE_SGIX = $817A;
-  GL_POST_TEXTURE_FILTER_BIAS_RANGE_SGIX = $817B;
-  GL_POST_TEXTURE_FILTER_SCALE_RANGE_SGIX = $817C;
-
-  // GL_SGIX_vertex_preclip
-  GL_VERTEX_PRECLIP_SGIX = $83EE;
-  GL_VERTEX_PRECLIP_HINT_SGIX = $83EF;
-
-  // GL_SGIX_ycrcb
-  GL_YCRCB_422_SGIX = $81BB;
-  GL_YCRCB_444_SGIX = $81BC;
-
-  // GL_SGIX_ycrcba
-  GL_YCRCB_SGIX = $8318;
-  GL_YCRCBA_SGIX = $8319;
-
-  // GL_SGI_color_matrix
-  GL_COLOR_MATRIX_SGI = $80B1;
-  GL_COLOR_MATRIX_STACK_DEPTH_SGI = $80B2;
-  GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI = $80B3;
-  GL_POST_COLOR_MATRIX_RED_SCALE_SGI = $80B4;
-  GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI = $80B5;
-  GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI = $80B6;
-  GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI = $80B7;
-  GL_POST_COLOR_MATRIX_RED_BIAS_SGI = $80B8;
-  GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI = $80B9;
-  GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI = $80BA;
-  GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI = $80BB;
-
-  // GL_SGI_color_table
-  GL_COLOR_TABLE_SGI = $80D0;
-  GL_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D1;
-  GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D2;
-  GL_PROXY_COLOR_TABLE_SGI = $80D3;
-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D4;
-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D5;
-  GL_COLOR_TABLE_SCALE_SGI = $80D6;
-  GL_COLOR_TABLE_BIAS_SGI = $80D7;
-  GL_COLOR_TABLE_FORMAT_SGI = $80D8;
-  GL_COLOR_TABLE_WIDTH_SGI = $80D9;
-  GL_COLOR_TABLE_RED_SIZE_SGI = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE_SGI = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE_SGI = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE_SGI = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE_SGI = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE_SGI = $80DF;
-
-  // GL_SGI_depth_pass_instrument
-  GL_DEPTH_PASS_INSTRUMENT_SGIX = $8310;
-  GL_DEPTH_PASS_INSTRUMENT_COUNTERS_SGIX = $8311;
-  GL_DEPTH_PASS_INSTRUMENT_MAX_SGIX = $8312;
-
-  // GL_SGI_texture_color_table
-  GL_TEXTURE_COLOR_TABLE_SGI = $80BC;
-  GL_PROXY_TEXTURE_COLOR_TABLE_SGI = $80BD;
-
-  // GL_SUNX_constant_data
-  GL_UNPACK_CONSTANT_DATA_SUNX = $81D5;
-  GL_TEXTURE_CONSTANT_DATA_SUNX = $81D6;
-
-  // GL_SUN_convolution_border_modes
-  GL_WRAP_BORDER_SUN = $81D4;
-
-  // GL_SUN_global_alpha
-  GL_GLOBAL_ALPHA_SUN = $81D9;
-  GL_GLOBAL_ALPHA_FACTOR_SUN = $81DA;
-
-  // GL_SUN_mesh_array
-  GL_QUAD_MESH_SUN = $8614;
-  GL_TRIANGLE_MESH_SUN = $8615;
-
-  // GL_SUN_slice_accum
-  GL_SLICE_ACCUM_SUN = $85CC;
-
-  // GL_SUN_triangle_list
-  GL_RESTART_SUN = $0001;
-  GL_REPLACE_MIDDLE_SUN = $0002;
-  GL_REPLACE_OLDEST_SUN = $0003;
-  GL_TRIANGLE_LIST_SUN = $81D7;
-  GL_REPLACEMENT_CODE_SUN = $81D8;
-  GL_REPLACEMENT_CODE_ARRAY_SUN = $85C0;
-  GL_REPLACEMENT_CODE_ARRAY_TYPE_SUN = $85C1;
-  GL_REPLACEMENT_CODE_ARRAY_STRIDE_SUN = $85C2;
-  GL_REPLACEMENT_CODE_ARRAY_POINTER_SUN = $85C3;
-  GL_R1UI_V3F_SUN = $85C4;
-  GL_R1UI_C4UB_V3F_SUN = $85C5;
-  GL_R1UI_C3F_V3F_SUN = $85C6;
-  GL_R1UI_N3F_V3F_SUN = $85C7;
-  GL_R1UI_C4F_N3F_V3F_SUN = $85C8;
-  GL_R1UI_T2F_V3F_SUN = $85C9;
-  GL_R1UI_T2F_N3F_V3F_SUN = $85CA;
-  GL_R1UI_T2F_C4F_N3F_V3F_SUN = $85CB;
-
-  // GL_WIN_phong_shading
-  GL_PHONG_WIN = $80EA;
-  GL_PHONG_HINT_WIN = $80EB;
-
-  // GL_WIN_specular_fog
-  GL_FOG_SPECULAR_TEXTURE_WIN = $80EC;
-
-   // GL_ARB_vertex_shader
-  GL_VERTEX_SHADER_ARB = $8B31;
-  GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB = $8B4A;
-  GL_MAX_VARYING_FLOATS_ARB = $8B4B;
-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = $8B4C;
-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB = $8B4D;
-  GL_OBJECT_ACTIVE_ATTRIBUTES_ARB = $8B89;
-  GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB = $8B8A;
-
-  // GL_ARB_fragment_shader
-  GL_FRAGMENT_SHADER_ARB = $8B30;
-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB = $8B49; // 1.4
-  GL_FRAGMENT_SHADER_DERIVATIVE_HINT_ARB = $8B8B; // 1.4
-
-  // GL_ARB_occlusion_query
-  GL_SAMPLES_PASSED_ARB = $8914;
-  GL_QUERY_COUNTER_BITS_ARB = $8864;
-  GL_CURRENT_QUERY_ARB = $8865;
-  GL_QUERY_RESULT_ARB = $8866;
-  GL_QUERY_RESULT_AVAILABLE_ARB = $8867;
-
-  // GL_ARB_point_sprite
-  GL_POINT_SPRITE_ARB = $8861;
-  GL_COORD_REPLACE_ARB = $8862;
-
-  // GL_ARB_shading_language_100
-  GL_SHADING_LANGUAGE_VERSION_ARB = $8B8C; // 1.4
-
-  // GL_ARB_shader_objects
-  GL_PROGRAM_OBJECT_ARB = $8B40;
-
-  GL_OBJECT_TYPE_ARB = $8B4E;
-  GL_OBJECT_SUBTYPE_ARB = $8B4F;
-  GL_OBJECT_DELETE_STATUS_ARB = $8B80;
-  GL_OBJECT_COMPILE_STATUS_ARB = $8B81;
-  GL_OBJECT_LINK_STATUS_ARB = $8B82;
-  GL_OBJECT_VALIDATE_STATUS_ARB = $8B83;
-  GL_OBJECT_INFO_LOG_LENGTH_ARB = $8B84;
-  GL_OBJECT_ATTACHED_OBJECTS_ARB = $8B85;
-  GL_OBJECT_ACTIVE_UNIFORMS_ARB = $8B86;
-  GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB = $8B87;
-  GL_OBJECT_SHADER_SOURCE_LENGTH_ARB = $8B88;
-
-  GL_SHADER_OBJECT_ARB = $8B48;
-
-  GL_FLOAT_VEC2_ARB = $8B50;
-  GL_FLOAT_VEC3_ARB = $8B51;
-  GL_FLOAT_VEC4_ARB = $8B52;
-  GL_INT_VEC2_ARB = $8B53;
-  GL_INT_VEC3_ARB = $8B54;
-  GL_INT_VEC4_ARB = $8B55;
-  GL_BOOL_ARB = $8B56;
-  GL_BOOL_VEC2_ARB = $8B57;
-  GL_BOOL_VEC3_ARB = $8B58;
-  GL_BOOL_VEC4_ARB = $8B59;
-  GL_FLOAT_MAT2_ARB = $8B5A;
-  GL_FLOAT_MAT3_ARB = $8B5B;
-  GL_FLOAT_MAT4_ARB = $8B5C;
-  GL_SAMPLER_1D_ARB = $8B5D;
-  GL_SAMPLER_2D_ARB = $8B5E;
-  GL_SAMPLER_3D_ARB = $8B5F;
-  GL_SAMPLER_CUBE_ARB = $8B60;
-  GL_SAMPLER_1D_SHADOW_ARB = $8B61;
-  GL_SAMPLER_2D_SHADOW_ARB = $8B62;
-  GL_SAMPLER_2D_RECT_ARB = $8B63;
-  GL_SAMPLER_2D_RECT_SHADOW_ARB = $8B64;
-
-  // WGL_3DFX_multisample
-  WGL_SAMPLE_BUFFERS_3DFX = $2060;
-  WGL_SAMPLES_3DFX = $2061;
-
-  // WGL_ARB_buffer_region
-  WGL_FRONT_COLOR_BUFFER_BIT_ARB = $00000001;
-  WGL_BACK_COLOR_BUFFER_BIT_ARB = $00000002;
-  WGL_DEPTH_BUFFER_BIT_ARB = $00000004;
-  WGL_STENCIL_BUFFER_BIT_ARB = $00000008;
-
-  // WGL_ARB_make_current_read
-  ERROR_INVALID_PIXEL_TYPE_ARB = $2043;
-  ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB = $2054;
-
-  // WGL_ARB_multisample
-  WGL_SAMPLE_BUFFERS_ARB = $2041;
-  WGL_SAMPLES_ARB = $2042;
-
-  // WGL_ARB_pbuffer
-  WGL_DRAW_TO_PBUFFER_ARB = $202D;
-  WGL_MAX_PBUFFER_PIXELS_ARB = $202E;
-  WGL_MAX_PBUFFER_WIDTH_ARB = $202F;
-  WGL_MAX_PBUFFER_HEIGHT_ARB = $2030;
-  WGL_PBUFFER_LARGEST_ARB = $2033;
-  WGL_PBUFFER_WIDTH_ARB = $2034;
-  WGL_PBUFFER_HEIGHT_ARB = $2035;
-  WGL_PBUFFER_LOST_ARB = $2036;
-
-  // WGL_ARB_pixel_format
-  WGL_NUMBER_PIXEL_FORMATS_ARB = $2000;
-  WGL_DRAW_TO_WINDOW_ARB = $2001;
-  WGL_DRAW_TO_BITMAP_ARB = $2002;
-  WGL_ACCELERATION_ARB = $2003;
-  WGL_NEED_PALETTE_ARB = $2004;
-  WGL_NEED_SYSTEM_PALETTE_ARB = $2005;
-  WGL_SWAP_LAYER_BUFFERS_ARB = $2006;
-  WGL_SWAP_METHOD_ARB = $2007;
-  WGL_NUMBER_OVERLAYS_ARB = $2008;
-  WGL_NUMBER_UNDERLAYS_ARB = $2009;
-  WGL_TRANSPARENT_ARB = $200A;
-  WGL_TRANSPARENT_RED_VALUE_ARB = $2037;
-  WGL_TRANSPARENT_GREEN_VALUE_ARB = $2038;
-  WGL_TRANSPARENT_BLUE_VALUE_ARB = $2039;
-  WGL_TRANSPARENT_ALPHA_VALUE_ARB = $203A;
-  WGL_TRANSPARENT_INDEX_VALUE_ARB = $203B;
-  WGL_SHARE_DEPTH_ARB = $200C;
-  WGL_SHARE_STENCIL_ARB = $200D;
-  WGL_SHARE_ACCUM_ARB = $200E;
-  WGL_SUPPORT_GDI_ARB = $200F;
-  WGL_SUPPORT_OPENGL_ARB = $2010;
-  WGL_DOUBLE_BUFFER_ARB = $2011;
-  WGL_STEREO_ARB = $2012;
-  WGL_PIXEL_TYPE_ARB = $2013;
-  WGL_COLOR_BITS_ARB = $2014;
-  WGL_RED_BITS_ARB = $2015;
-  WGL_RED_SHIFT_ARB = $2016;
-  WGL_GREEN_BITS_ARB = $2017;
-  WGL_GREEN_SHIFT_ARB = $2018;
-  WGL_BLUE_BITS_ARB = $2019;
-  WGL_BLUE_SHIFT_ARB = $201A;
-  WGL_ALPHA_BITS_ARB = $201B;
-  WGL_ALPHA_SHIFT_ARB = $201C;
-  WGL_ACCUM_BITS_ARB = $201D;
-  WGL_ACCUM_RED_BITS_ARB = $201E;
-  WGL_ACCUM_GREEN_BITS_ARB = $201F;
-  WGL_ACCUM_BLUE_BITS_ARB = $2020;
-  WGL_ACCUM_ALPHA_BITS_ARB = $2021;
-  WGL_DEPTH_BITS_ARB = $2022;
-  WGL_STENCIL_BITS_ARB = $2023;
-  WGL_AUX_BUFFERS_ARB = $2024;
-  WGL_NO_ACCELERATION_ARB = $2025;
-  WGL_GENERIC_ACCELERATION_ARB = $2026;
-  WGL_FULL_ACCELERATION_ARB = $2027;
-  WGL_SWAP_EXCHANGE_ARB = $2028;
-  WGL_SWAP_COPY_ARB = $2029;
-  WGL_SWAP_UNDEFINED_ARB = $202A;
-  WGL_TYPE_RGBA_ARB = $202B;
-  WGL_TYPE_COLORINDEX_ARB = $202C;
-
-  // WGL_ARB_pixel_format_float
-  WGL_RGBA_FLOAT_MODE_ARB = $8820;
-  WGL_CLAMP_VERTEX_COLOR_ARB = $891A;
-  WGL_CLAMP_FRAGMENT_COLOR_ARB = $891B;
-  WGL_CLAMP_READ_COLOR_ARB = $891C;
-  WGL_FIXED_ONLY_ARB = $891D;
-
-  // WGL_ARB_render_texture
-  WGL_BIND_TO_TEXTURE_RGB_ARB = $2070;
-  WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;
-  WGL_TEXTURE_FORMAT_ARB = $2072;
-  WGL_TEXTURE_TARGET_ARB = $2073;
-  WGL_MIPMAP_TEXTURE_ARB = $2074;
-  WGL_TEXTURE_RGB_ARB = $2075;
-  WGL_TEXTURE_RGBA_ARB = $2076;
-  WGL_NO_TEXTURE_ARB = $2077;
-  WGL_TEXTURE_CUBE_MAP_ARB = $2078;
-  WGL_TEXTURE_1D_ARB = $2079;
-  WGL_TEXTURE_2D_ARB = $207A;
-  WGL_MIPMAP_LEVEL_ARB = $207B;
-  WGL_CUBE_MAP_FACE_ARB = $207C;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $207D;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $207E;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $207F;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $2080;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $2081;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $2082;
-  WGL_FRONT_LEFT_ARB = $2083;
-  WGL_FRONT_RIGHT_ARB = $2084;
-  WGL_BACK_LEFT_ARB = $2085;
-  WGL_BACK_RIGHT_ARB = $2086;
-  WGL_AUX0_ARB = $2087;
-  WGL_AUX1_ARB = $2088;
-  WGL_AUX2_ARB = $2089;
-  WGL_AUX3_ARB = $208A;
-  WGL_AUX4_ARB = $208B;
-  WGL_AUX5_ARB = $208C;
-  WGL_AUX6_ARB = $208D;
-  WGL_AUX7_ARB = $208E;
-  WGL_AUX8_ARB = $208F;
-  WGL_AUX9_ARB = $2090;
-
-  // WGL_ARB_create_context
-  WGL_CONTEXT_DEBUG_BIT_ARB = $00000001;
-  WGL_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB = $00000002;
-  WGL_CONTEXT_MAJOR_VERSION_ARB = $2091;
-  WGL_CONTEXT_MINOR_VERSION_ARB = $2092;
-  WGL_CONTEXT_LAYER_PLANE_ARB = $2093;
-  WGL_CONTEXT_FLAGS_ARB = $2094;
-  ERROR_INVALID_VERSION_ARB = $2095;
-
-  // WGL_ARB_create_context_profile
-  WGL_CONTEXT_PROFILE_MASK_ARB = $9126;
-  WGL_CONTEXT_CORE_PROFILE_BIT_ARB = $00000001;
-  WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB = $00000002;
-  ERROR_INVALID_PROFILE_ARB = $2096;
-
-  // WGL_ATI_pixel_format_float
-  WGL_TYPE_RGBA_FLOAT_ATI = $21A0;
-  GL_TYPE_RGBA_FLOAT_ATI = $8820;
-  GL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI = $8835;
-
-  // WGL_AMD_gpu_association
-  WGL_GPU_VENDOR_AMD = $1F00;
-  WGL_GPU_RENDERER_STRING_AMD = $1F01;
-  WGL_GPU_OPENGL_VERSION_STRING_AMD = $1F02;
-  WGL_GPU_FASTEST_TARGET_GPUS_AMD = $21A2;
-  WGL_GPU_RAM_AMD = $21A3;
-  WGL_GPU_CLOCK_AMD = $21A4;
-  WGL_GPU_NUM_PIPES_AMD = $21A5;
-  WGL_GPU_NUM_SIMD_AMD = $21A6;
-  WGL_GPU_NUM_RB_AMD = $21A7;
-  WGL_GPU_NUM_SPI_AMD = $21A8;
-
-  // WGL_EXT_depth_float
-  WGL_DEPTH_FLOAT_EXT = $2040;
-
-  // WGL_EXT_make_current_read
-  ERROR_INVALID_PIXEL_TYPE_EXT = $2043;
-
-  // WGL_EXT_multisample
-  WGL_SAMPLE_BUFFERS_EXT = $2041;
-  WGL_SAMPLES_EXT = $2042;
-
-  // WGL_EXT_pbuffer
-  WGL_DRAW_TO_PBUFFER_EXT = $202D;
-  WGL_MAX_PBUFFER_PIXELS_EXT = $202E;
-  WGL_MAX_PBUFFER_WIDTH_EXT = $202F;
-  WGL_MAX_PBUFFER_HEIGHT_EXT = $2030;
-  WGL_OPTIMAL_PBUFFER_WIDTH_EXT = $2031;
-  WGL_OPTIMAL_PBUFFER_HEIGHT_EXT = $2032;
-  WGL_PBUFFER_LARGEST_EXT = $2033;
-  WGL_PBUFFER_WIDTH_EXT = $2034;
-  WGL_PBUFFER_HEIGHT_EXT = $2035;
-
-  // WGL_EXT_pixel_format
-  WGL_NUMBER_PIXEL_FORMATS_EXT = $2000;
-  WGL_DRAW_TO_WINDOW_EXT = $2001;
-  WGL_DRAW_TO_BITMAP_EXT = $2002;
-  WGL_ACCELERATION_EXT = $2003;
-  WGL_NEED_PALETTE_EXT = $2004;
-  WGL_NEED_SYSTEM_PALETTE_EXT = $2005;
-  WGL_SWAP_LAYER_BUFFERS_EXT = $2006;
-  WGL_SWAP_METHOD_EXT = $2007;
-  WGL_NUMBER_OVERLAYS_EXT = $2008;
-  WGL_NUMBER_UNDERLAYS_EXT = $2009;
-  WGL_TRANSPARENT_EXT = $200A;
-  WGL_TRANSPARENT_VALUE_EXT = $200B;
-  WGL_SHARE_DEPTH_EXT = $200C;
-  WGL_SHARE_STENCIL_EXT = $200D;
-  WGL_SHARE_ACCUM_EXT = $200E;
-  WGL_SUPPORT_GDI_EXT = $200F;
-  WGL_SUPPORT_OPENGL_EXT = $2010;
-  WGL_DOUBLE_BUFFER_EXT = $2011;
-  WGL_STEREO_EXT = $2012;
-  WGL_PIXEL_TYPE_EXT = $2013;
-  WGL_COLOR_BITS_EXT = $2014;
-  WGL_RED_BITS_EXT = $2015;
-  WGL_RED_SHIFT_EXT = $2016;
-  WGL_GREEN_BITS_EXT = $2017;
-  WGL_GREEN_SHIFT_EXT = $2018;
-  WGL_BLUE_BITS_EXT = $2019;
-  WGL_BLUE_SHIFT_EXT = $201A;
-  WGL_ALPHA_BITS_EXT = $201B;
-  WGL_ALPHA_SHIFT_EXT = $201C;
-  WGL_ACCUM_BITS_EXT = $201D;
-  WGL_ACCUM_RED_BITS_EXT = $201E;
-  WGL_ACCUM_GREEN_BITS_EXT = $201F;
-  WGL_ACCUM_BLUE_BITS_EXT = $2020;
-  WGL_ACCUM_ALPHA_BITS_EXT = $2021;
-  WGL_DEPTH_BITS_EXT = $2022;
-  WGL_STENCIL_BITS_EXT = $2023;
-  WGL_AUX_BUFFERS_EXT = $2024;
-  WGL_NO_ACCELERATION_EXT = $2025;
-  WGL_GENERIC_ACCELERATION_EXT = $2026;
-  WGL_FULL_ACCELERATION_EXT = $2027;
-  WGL_SWAP_EXCHANGE_EXT = $2028;
-  WGL_SWAP_COPY_EXT = $2029;
-  WGL_SWAP_UNDEFINED_EXT = $202A;
-  WGL_TYPE_RGBA_EXT = $202B;
-  WGL_TYPE_COLORINDEX_EXT = $202C;
-
-  // WGL_I3D_digital_video_control
-  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_FRAMEBUFFER_I3D = $2050;
-  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D = $2051;
-  WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D = $2052;
-  WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D = $2053;
-
-  // WGL_I3D_gamma
-  WGL_GAMMA_TABLE_SIZE_I3D = $204E;
-  WGL_GAMMA_EXCLUDE_DESKTOP_I3D = $204F;
-
-  // WGL_I3D_genlock
-  WGL_GENLOCK_SOURCE_MULTIVIEW_I3D = $2044;
-  WGL_GENLOCK_SOURCE_EXTENAL_SYNC_I3D = $2045;
-  WGL_GENLOCK_SOURCE_EXTENAL_FIELD_I3D = $2046;
-  WGL_GENLOCK_SOURCE_EXTENAL_TTL_I3D = $2047;
-  WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D = $2048;
-  WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D = $2049;
-  WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D = $204A;
-  WGL_GENLOCK_SOURCE_EDGE_RISING_I3D = $204B;
-  WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D = $204C;
-
-  // WGL_I3D_image_buffer
-  WGL_IMAGE_BUFFER_MIN_ACCESS_I3D = $00000001;
-  WGL_IMAGE_BUFFER_LOCK_I3D = $00000002;
-
-  // WGL_NV_float_buffer
-  WGL_FLOAT_COMPONENTS_NV = $20B0;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV = $20B1;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV = $20B2;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV = $20B3;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV = $20B4;
-  WGL_TEXTURE_FLOAT_R_NV = $20B5;
-  WGL_TEXTURE_FLOAT_RG_NV = $20B6;
-  WGL_TEXTURE_FLOAT_RGB_NV = $20B7;
-  WGL_TEXTURE_FLOAT_RGBA_NV = $20B8;
-
-  // WGL_NV_render_depth_texture
-  WGL_BIND_TO_TEXTURE_DEPTH_NV = $20A3;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_DEPTH_NV = $20A4;
-  WGL_DEPTH_TEXTURE_FORMAT_NV = $20A5;
-  WGL_TEXTURE_DEPTH_COMPONENT_NV = $20A6;
-  WGL_DEPTH_COMPONENT_NV = $20A7;
-
-  // WGL_NV_render_texture_rectangle
-  WGL_BIND_TO_TEXTURE_RECTANGLE_RGB_NV = $20A0;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV = $20A1;
-  WGL_TEXTURE_RECTANGLE_NV = $20A2;
-
-  // WGL_NV_present_video
-  WGL_NUM_VIDEO_SLOTS_NV = $20F0;
-  
-  // WGL_NV_video_out
-  WGL_BIND_TO_VIDEO_RGB_NV = $20C0;
-  WGL_BIND_TO_VIDEO_RGBA_NV = $20C1;
-  WGL_BIND_TO_VIDEO_RGB_AND_DEPTH_NV = $20C2;
-  WGL_VIDEO_OUT_COLOR_NV = $20C3;
-  WGL_VIDEO_OUT_ALPHA_NV = $20C4;
-  WGL_VIDEO_OUT_DEPTH_NV = $20C5;
-  WGL_VIDEO_OUT_COLOR_AND_ALPHA_NV = $20C6;
-  WGL_VIDEO_OUT_COLOR_AND_DEPTH_NV = $20C7;
-  WGL_VIDEO_OUT_FRAME = $20C8;
-  WGL_VIDEO_OUT_FIELD_1 = $20C9;
-  WGL_VIDEO_OUT_FIELD_2 = $20CA;
-  WGL_VIDEO_OUT_STACKED_FIELDS_1_2 = $20CB;
-  WGL_VIDEO_OUT_STACKED_FIELDS_2_1 = $20CC;
-
-  // WGL_NV_gpu_affinity
-  WGL_ERROR_INCOMPATIBLE_AFFINITY_MASKS_NV = $20D0;
-  WGL_ERROR_MISSING_AFFINITY_MASK_NV = $20D1;
-
-  // WIN_draw_range_elements
-  GL_MAX_ELEMENTS_VERTICES_WIN = $80E8;
-  GL_MAX_ELEMENTS_INDICES_WIN = $80E9;
-
-  // GLX 1.1 and later:
-  GLX_VENDOR = 1;
-  GLX_VERSION = 2;
-  GLX_EXTENSIONS = 3;
-
-  GLX_USE_GL = 1;
-  GLX_BUFFER_SIZE = 2;
-  GLX_LEVEL = 3;
-  GLX_RGBA = 4;
-  GLX_DOUBLEBUFFER = 5;
-  GLX_STEREO = 6;
-  GLX_AUX_BUFFERS = 7;
-  GLX_RED_SIZE = 8;
-  GLX_GREEN_SIZE = 9;
-  GLX_BLUE_SIZE = 10;
-  GLX_ALPHA_SIZE = 11;
-  GLX_DEPTH_SIZE = 12;
-  GLX_STENCIL_SIZE = 13;
-  GLX_ACCUM_RED_SIZE = 14;
-  GLX_ACCUM_GREEN_SIZE = 15;
-  GLX_ACCUM_BLUE_SIZE = 16;
-  GLX_ACCUM_ALPHA_SIZE = 17;
-
-  // GLX_VERSION_1_3
-  GLX_WINDOW_BIT = $00000001;
-  GLX_PIXMAP_BIT = $00000002;
-  GLX_PBUFFER_BIT = $00000004;
-  GLX_RGBA_BIT = $00000001;
-  GLX_COLOR_INDEX_BIT = $00000002;
-  GLX_PBUFFER_CLOBBER_MASK = $08000000;
-  GLX_FRONT_LEFT_BUFFER_BIT = $00000001;
-  GLX_FRONT_RIGHT_BUFFER_BIT = $00000002;
-  GLX_BACK_LEFT_BUFFER_BIT = $00000004;
-  GLX_BACK_RIGHT_BUFFER_BIT = $00000008;
-  GLX_AUX_BUFFERS_BIT = $00000010;
-  GLX_DEPTH_BUFFER_BIT = $00000020;
-  GLX_STENCIL_BUFFER_BIT = $00000040;
-  GLX_ACCUM_BUFFER_BIT = $00000080;
-  GLX_CONFIG_CAVEAT = $20;
-  GLX_X_VISUAL_TYPE = $22;
-  GLX_TRANSPARENT_TYPE = $23;
-  GLX_TRANSPARENT_INDEX_VALUE = $24;
-  GLX_TRANSPARENT_RED_VALUE = $25;
-  GLX_TRANSPARENT_GREEN_VALUE = $26;
-  GLX_TRANSPARENT_BLUE_VALUE = $27;
-  GLX_TRANSPARENT_ALPHA_VALUE = $28;
-  GLX_DONT_CARE = $FFFFFFFF;
-  GLX_NONE = $8000;
-  GLX_SLOW_CONFIG = $8001;
-  GLX_TRUE_COLOR = $8002;
-  GLX_DIRECT_COLOR = $8003;
-  GLX_PSEUDO_COLOR = $8004;
-  GLX_STATIC_COLOR = $8005;
-  GLX_GRAY_SCALE = $8006;
-  GLX_STATIC_GRAY = $8007;
-  GLX_TRANSPARENT_RGB = $8008;
-  GLX_TRANSPARENT_INDEX = $8009;
-  GLX_VISUAL_ID = $800B;
-  GLX_SCREEN = $800C;
-  GLX_NON_CONFORMANT_CONFIG = $800D;
-  GLX_DRAWABLE_TYPE = $8010;
-  GLX_RENDER_TYPE = $8011;
-  GLX_X_RENDERABLE = $8012;
-  GLX_FBCONFIG_ID = $8013;
-  GLX_RGBA_TYPE = $8014;
-  GLX_COLOR_INDEX_TYPE = $8015;
-  GLX_MAX_PBUFFER_WIDTH = $8016;
-  GLX_MAX_PBUFFER_HEIGHT = $8017;
-  GLX_MAX_PBUFFER_PIXELS = $8018;
-  GLX_PRESERVED_CONTENTS = $801B;
-  GLX_LARGEST_PBUFFER = $801C;
-  GLX_WIDTH = $801D;
-  GLX_HEIGHT = $801E;
-  GLX_EVENT_MASK = $801F;
-  GLX_DAMAGED = $8020;
-  GLX_SAVED = $8021;
-  GLX_WINDOW = $8022;
-  GLX_PBUFFER = $8023;
-  GLX_PBUFFER_HEIGHT = $8040;
-  GLX_PBUFFER_WIDTH = $8041;
-
-  // GLX_VERSION_1_4
-  GLX_SAMPLE_BUFFERS = 100000;
-  GLX_SAMPLES = 100001;
-
-  // GLX_ARB_multisample
-  GLX_SAMPLE_BUFFERS_ARB = 100000;
-  GLX_SAMPLES_ARB = 100001;
-
-  // GLX_ARB_fbconfig_float
-  GLX_RGBA_FLOAT_TYPE_ARB = $20B9;
-  GLX_RGBA_FLOAT_BIT_ARB = $00000004;
-
-  // GLX_ARB_create_context
-  GLX_CONTEXT_DEBUG_BIT_ARB = $00000001;
-  GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB = $00000002;
-  GLX_CONTEXT_MAJOR_VERSION_ARB = $2091;
-  GLX_CONTEXT_MINOR_VERSION_ARB = $2092;
-  GLX_CONTEXT_FLAGS_ARB = $2094;
-
-  // GLX_ARB_create_context_profile
-  GLX_CONTEXT_CORE_PROFILE_BIT_ARB = $00000001;
-  GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB = $00000002;
-  GLX_CONTEXT_PROFILE_MASK_ARB = $9126;
-
-  // GLX_EXT_visual_info
-  GLX_X_VISUAL_TYPE_EXT = $22;
-  GLX_TRANSPARENT_TYPE_EXT = $23;
-  GLX_TRANSPARENT_INDEX_VALUE_EXT = $24;
-  GLX_TRANSPARENT_RED_VALUE_EXT = $25;
-  GLX_TRANSPARENT_GREEN_VALUE_EXT = $26;
-  GLX_TRANSPARENT_BLUE_VALUE_EXT = $27;
-  GLX_TRANSPARENT_ALPHA_VALUE_EXT = $28;
-  GLX_NONE_EXT = $8000;
-  GLX_TRUE_COLOR_EXT = $8002;
-  GLX_DIRECT_COLOR_EXT = $8003;
-  GLX_PSEUDO_COLOR_EXT = $8004;
-  GLX_STATIC_COLOR_EXT = $8005;
-  GLX_GRAY_SCALE_EXT = $8006;
-  GLX_STATIC_GRAY_EXT = $8007;
-  GLX_TRANSPARENT_RGB_EXT = $8008;
-  GLX_TRANSPARENT_INDEX_EXT = $8009;
-  
-  // GLX_EXT_visual_rating
-  GLX_VISUAL_CAVEAT_EXT = $20;
-  GLX_SLOW_VISUAL_EXT = $8001;
-  GLX_NON_CONFORMANT_VISUAL_EXT = $800D;
-  (* reuse GLX_NONE_EXT *)
-  
-  // GLX_EXT_import_context
-  GLX_SHARE_CONTEXT_EXT = $800A;
-  GLX_VISUAL_ID_EXT = $800B;
-  GLX_SCREEN_EXT = $800C;
-
-  // GLX_EXT_fbconfig_packed_float
-//  GLX_RGBA_UNSIGNED_FLOAT_TYPE_EXT = $20B1;
-//  GLX_RGBA_UNSIGNED_FLOAT_BIT_EXT = $00000008;
-
-  // GLX_EXT_framebuffer_sRGB
-//  GLX_FRAMEBUFFER_SRGB_CAPABLE_EXT = $20B2;
-
-  // GLX_EXT_texture_from_pixmap
-  GLX_TEXTURE_1D_BIT_EXT = $00000001;
-  GLX_TEXTURE_2D_BIT_EXT = $00000002;
-  GLX_TEXTURE_RECTANGLE_BIT_EXT = $00000004;
-  GLX_BIND_TO_TEXTURE_RGB_EXT = $20D0;
-  GLX_BIND_TO_TEXTURE_RGBA_EXT = $20D1;
-  GLX_BIND_TO_MIPMAP_TEXTURE_EXT = $20D2;
-  GLX_BIND_TO_TEXTURE_TARGETS_EXT = $20D3;
-  GLX_Y_INVERTED_EXT = $20D4;
-  GLX_TEXTURE_FORMAT_EXT = $20D5;
-  GLX_TEXTURE_TARGET_EXT = $20D6;
-  GLX_MIPMAP_TEXTURE_EXT = $20D7;
-  GLX_TEXTURE_FORMAT_NONE_EXT = $20D8;
-  GLX_TEXTURE_FORMAT_RGB_EXT = $20D9;
-  GLX_TEXTURE_FORMAT_RGBA_EXT = $20DA;
-  GLX_TEXTURE_1D_EXT = $20DB;
-  GLX_TEXTURE_2D_EXT = $20DC;
-  GLX_TEXTURE_RECTANGLE_EXT = $20DD;
-  GLX_FRONT_LEFT_EXT = $20DE;
-  GLX_FRONT_RIGHT_EXT = $20DF;
-  GLX_BACK_LEFT_EXT = $20E0;
-  GLX_BACK_RIGHT_EXT = $20E1;
-  GLX_FRONT_EXT = GLX_FRONT_LEFT_EXT;
-  GLX_BACK_EXT = GLX_BACK_LEFT_EXT;
-  GLX_AUX0_EXT = $20E2;
-  GLX_AUX1_EXT = $20E3;
-  GLX_AUX2_EXT = $20E4;
-  GLX_AUX3_EXT = $20E5;
-  GLX_AUX4_EXT = $20E6;
-  GLX_AUX5_EXT = $20E7;
-  GLX_AUX6_EXT = $20E8;
-  GLX_AUX7_EXT = $20E9;
-  GLX_AUX8_EXT = $20EA;
-  GLX_AUX9_EXT = $20EB;
-
-
-  // GLU
-  GLU_INVALID_ENUM = 100900;
-  GLU_INVALID_VALUE = 100901;
-  GLU_OUT_OF_MEMORY = 100902;
-  GLU_INCOMPATIBLE_GL_VERSION = 100903;
-  GLU_VERSION = 100800;
-  GLU_EXTENSIONS = 100801;
-  GLU_TRUE = GL_TRUE;
-  GLU_FALSE = GL_FALSE;
-  GLU_SMOOTH = 100000;
-  GLU_FLAT = 100001;
-  GLU_NONE = 100002;
-  GLU_POINT = 100010;
-  GLU_LINE = 100011;
-  GLU_FILL = 100012;
-  GLU_SILHOUETTE = 100013;
-  GLU_OUTSIDE = 100020;
-  GLU_INSIDE = 100021;
-  GLU_TESS_MAX_COORD = 1.0E150;
-  GLU_TESS_WINDING_RULE = 100140;
-  GLU_TESS_BOUNDARY_ONLY = 100141;
-  GLU_TESS_TOLERANCE = 100142;
-  GLU_TESS_WINDING_ODD = 100130;
-  GLU_TESS_WINDING_NONZERO = 100131;
-  GLU_TESS_WINDING_POSITIVE = 100132;
-  GLU_TESS_WINDING_NEGATIVE = 100133;
-  GLU_TESS_WINDING_ABS_GEQ_TWO = 100134;
-  GLU_TESS_BEGIN = 100100; // TGLUTessBeginProc
-  GLU_TESS_VERTEX = 100101; // TGLUTessVertexProc
-  GLU_TESS_END = 100102; // TGLUTessEndProc
-  GLU_TESS_ERROR = 100103; // TGLUTessErrorProc
-  GLU_TESS_EDGE_FLAG = 100104; // TGLUTessEdgeFlagProc
-  GLU_TESS_COMBINE = 100105; // TGLUTessCombineProc
-  GLU_TESS_BEGIN_DATA = 100106; // TGLUTessBeginDataProc
-  GLU_TESS_VERTEX_DATA = 100107; // TGLUTessVertexDataProc
-  GLU_TESS_END_DATA = 100108; // TGLUTessEndDataProc
-  GLU_TESS_ERROR_DATA = 100109; // TGLUTessErrorDataProc
-  GLU_TESS_EDGE_FLAG_DATA = 100110; // TGLUTessEdgeFlagDataProc
-  GLU_TESS_COMBINE_DATA = 100111; // TGLUTessCombineDataProc
-  GLU_TESS_ERROR1 = 100151;
-  GLU_TESS_ERROR2 = 100152;
-  GLU_TESS_ERROR3 = 100153;
-  GLU_TESS_ERROR4 = 100154;
-  GLU_TESS_ERROR5 = 100155;
-  GLU_TESS_ERROR6 = 100156;
-  GLU_TESS_ERROR7 = 100157;
-  GLU_TESS_ERROR8 = 100158;
-  GLU_TESS_MISSING_BEGIN_POLYGON = GLU_TESS_ERROR1;
-  GLU_TESS_MISSING_BEGIN_CONTOUR = GLU_TESS_ERROR2;
-  GLU_TESS_MISSING_END_POLYGON = GLU_TESS_ERROR3;
-  GLU_TESS_MISSING_END_CONTOUR = GLU_TESS_ERROR4;
-  GLU_TESS_COORD_TOO_LARGE = GLU_TESS_ERROR5;
-  GLU_TESS_NEED_COMBINE_CALLBACK = GLU_TESS_ERROR6;
-  GLU_AUTO_LOAD_MATRIX = 100200;
-  GLU_CULLING = 100201;
-  GLU_SAMPLING_TOLERANCE = 100203;
-  GLU_DISPLAY_MODE = 100204;
-  GLU_PARAMETRIC_TOLERANCE = 100202;
-  GLU_SAMPLING_METHOD = 100205;
-  GLU_U_STEP = 100206;
-  GLU_V_STEP = 100207;
-  GLU_PATH_LENGTH = 100215;
-  GLU_PARAMETRIC_ERROR = 100216;
-  GLU_DOMAIN_DISTANCE = 100217;
-  GLU_MAP1_TRIM_2 = 100210;
-  GLU_MAP1_TRIM_3 = 100211;
-  GLU_OUTLINE_POLYGON = 100240;
-  GLU_OUTLINE_PATCH = 100241;
-  GLU_NURBS_ERROR1 = 100251;
-  GLU_NURBS_ERROR2 = 100252;
-  GLU_NURBS_ERROR3 = 100253;
-  GLU_NURBS_ERROR4 = 100254;
-  GLU_NURBS_ERROR5 = 100255;
-  GLU_NURBS_ERROR6 = 100256;
-  GLU_NURBS_ERROR7 = 100257;
-  GLU_NURBS_ERROR8 = 100258;
-  GLU_NURBS_ERROR9 = 100259;
-  GLU_NURBS_ERROR10 = 100260;
-  GLU_NURBS_ERROR11 = 100261;
-  GLU_NURBS_ERROR12 = 100262;
-  GLU_NURBS_ERROR13 = 100263;
-  GLU_NURBS_ERROR14 = 100264;
-  GLU_NURBS_ERROR15 = 100265;
-  GLU_NURBS_ERROR16 = 100266;
-  GLU_NURBS_ERROR17 = 100267;
-  GLU_NURBS_ERROR18 = 100268;
-  GLU_NURBS_ERROR19 = 100269;
-  GLU_NURBS_ERROR20 = 100270;
-  GLU_NURBS_ERROR21 = 100271;
-  GLU_NURBS_ERROR22 = 100272;
-  GLU_NURBS_ERROR23 = 100273;
-  GLU_NURBS_ERROR24 = 100274;
-  GLU_NURBS_ERROR25 = 100275;
-  GLU_NURBS_ERROR26 = 100276;
-  GLU_NURBS_ERROR27 = 100277;
-  GLU_NURBS_ERROR28 = 100278;
-  GLU_NURBS_ERROR29 = 100279;
-  GLU_NURBS_ERROR30 = 100280;
-  GLU_NURBS_ERROR31 = 100281;
-  GLU_NURBS_ERROR32 = 100282;
-  GLU_NURBS_ERROR33 = 100283;
-  GLU_NURBS_ERROR34 = 100284;
-  GLU_NURBS_ERROR35 = 100285;
-  GLU_NURBS_ERROR36 = 100286;
-  GLU_NURBS_ERROR37 = 100287;
-  GLU_CW = 100120;
-  GLU_CCW = 100121;
-  GLU_INTERIOR = 100122;
-  GLU_EXTERIOR = 100123;
-  GLU_UNKNOWN = 100124;
-  GLU_BEGIN = GLU_TESS_BEGIN;
-  GLU_VERTEX = GLU_TESS_VERTEX;
-  GLU_END = GLU_TESS_END;
-  GLU_ERROR = GLU_TESS_ERROR;
-  GLU_EDGE_FLAG = GLU_TESS_EDGE_FLAG;
-
-type
-  // GL_VERSION_1_0
-  TglCullFace = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFrontFace = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglHint = procedure(target: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLineWidth = procedure(width: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointSize = procedure(size: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPolygonMode = procedure(face: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglScissor = procedure(x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterf = procedure(target: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterfv = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameteri = procedure(target: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameteriv = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexImage1D = procedure(target: TGLenum; level: TGLint; internalformat: TGLint; width: TGLsizei; border: TGLint; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexImage2D = procedure(target: TGLenum; level: TGLint; internalformat: TGLint; width: TGLsizei; height: TGLsizei; border: TGLint; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawBuffer = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClear = procedure(mask: TGLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearColor = procedure(red: TGLclampf; green: TGLclampf; blue: TGLclampf; alpha: TGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearStencil = procedure(s: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearDepth = procedure(depth: TGLclampd); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilMask = procedure(mask: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorMask = procedure(red: TGLboolean; green: TGLboolean; blue: TGLboolean; alpha: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDepthMask = procedure(flag: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisable = procedure(cap: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnable = procedure(cap: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinish = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFlush = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlendFunc = procedure(sfactor: TGLenum; dfactor: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLogicOp = procedure(opcode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilFunc = procedure(func: TGLenum; ref: TGLint; mask: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilOp = procedure(fail: TGLenum; zfail: TGLenum; zpass: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDepthFunc = procedure(func: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelStoref = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelStorei = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReadBuffer = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReadPixels = procedure(x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBooleanv = procedure(pname: TGLenum; params: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetDoublev = procedure(pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetError = function(): TGLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFloatv = procedure(pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetIntegerv = procedure(pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetString = function(name: TGLenum): PAnsiChar; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexImage = procedure(target: TGLenum; level: TGLint; format: TGLenum; _type: TGLenum; pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexLevelParameterfv = procedure(target: TGLenum; level: TGLint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexLevelParameteriv = procedure(target: TGLenum; level: TGLint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsEnabled = function(cap: TGLenum): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDepthRange = procedure(zNear: TGLclampd; zFar: TGLclampd); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglViewport = procedure(x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_1_1
-  TglDrawArrays = procedure(mode: TGLenum; first: TGLint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElements = procedure(mode: TGLenum; count: TGLsizei; _type: TGLenum; const indices: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPointerv = procedure(pname: TGLenum; params: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPolygonOffset = procedure(factor: TGLfloat; units: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexImage1D = procedure(target: TGLenum; level: TGLint; internalFormat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; border: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexImage2D = procedure(target: TGLenum; level: TGLint; internalFormat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei; border: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage1D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage2D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage1D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; width: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage2D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindTexture = procedure(target: TGLenum; texture: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteTextures = procedure(n: TGLsizei; const textures: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenTextures = procedure(n: TGLsizei; textures: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  
-{$ifdef DGL_DEPRECATED}
-  TglAccum = procedure(op: TGLenum; value: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAlphaFunc = procedure(func: TGLenum; ref: TGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAreTexturesResident = function(n: TGLsizei; const textures: PGLuint; residences: PGLboolean): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglArrayElement = procedure(i: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBegin = procedure(mode: TGLenum); {$IFNDEF CLR}{$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}{$ENDIF}
-  TglBitmap = procedure(width: TGLsizei; height: TGLsizei; xorig: TGLfloat; yorig: TGLfloat; xmove: TGLfloat; ymove: TGLfloat; const bitmap: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCallList = procedure(list: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCallLists = procedure(n: TGLsizei; _type: TGLenum; const lists: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearAccum = procedure(red: TGLfloat; green: TGLfloat; blue: TGLfloat; alpha: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearIndex = procedure(c: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClipPlane = procedure(plane: TGLenum; const equation: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3b = procedure(red: TGLbyte; green: TGLbyte; blue: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3bv = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3d = procedure(red: TGLdouble; green: TGLdouble; blue: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3f = procedure(red: TGLfloat; green: TGLfloat; blue: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3i = procedure(red: TGLint; green: TGLint; blue: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3s = procedure(red: TGLshort; green: TGLshort; blue: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3ub = procedure(red: TGLubyte; green: TGLubyte; blue: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3ubv = procedure(const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3ui = procedure(red: TGLuint; green: TGLuint; blue: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3uiv = procedure(const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3us = procedure(red: TGLushort; green: TGLushort; blue: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3usv = procedure(const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4b = procedure(red: TGLbyte; green: TGLbyte; blue: TGLbyte; alpha: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4bv = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4d = procedure(red: TGLdouble; green: TGLdouble; blue: TGLdouble; alpha: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4f = procedure(red: TGLfloat; green: TGLfloat; blue: TGLfloat; alpha: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4i = procedure(red: TGLint; green: TGLint; blue: TGLint; alpha: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4s = procedure(red: TGLshort; green: TGLshort; blue: TGLshort; alpha: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ub = procedure(red: TGLubyte; green: TGLubyte; blue: TGLubyte; alpha: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ubv = procedure(const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ui = procedure(red: TGLuint; green: TGLuint; blue: TGLuint; alpha: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4uiv = procedure(const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4us = procedure(red: TGLushort; green: TGLushort; blue: TGLushort; alpha: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4usv = procedure(const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorMaterial = procedure(face: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorPointer = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyPixels = procedure(x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei; _type: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteLists = procedure(list: TGLuint; range: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableClientState = procedure(_array: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawPixels = procedure(width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEdgeFlag = procedure(flag: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEdgeFlagPointer = procedure(stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEdgeFlagv = procedure(const flag: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableClientState = procedure(_array: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnd = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndList = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord1d = procedure(u: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord1dv = procedure(const u: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord1f = procedure(u: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord1fv = procedure(const u: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord2d = procedure(u: TGLdouble; v: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord2dv = procedure(const u: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord2f = procedure(u: TGLfloat; v: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalCoord2fv = procedure(const u: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalMesh1 = procedure(mode: TGLenum; i1: TGLint; i2: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalMesh2 = procedure(mode: TGLenum; i1: TGLint; i2: TGLint; j1: TGLint; j2: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalPoint1 = procedure(i: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalPoint2 = procedure(i: TGLint; j: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFeedbackBuffer = procedure(size: TGLsizei; _type: TGLenum; buffer: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogf = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogfv = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogi = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogiv = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFrustum = procedure(left: TGLdouble; right: TGLdouble; bottom: TGLdouble; top: TGLdouble; zNear: TGLdouble; zFar: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenLists = function(range: TGLsizei): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetClipPlane = procedure(plane: TGLenum; equation: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetLightfv = procedure(light: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetLightiv = procedure(light: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapdv = procedure(target: TGLenum; query: TGLenum; v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapfv = procedure(target: TGLenum; query: TGLenum; v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapiv = procedure(target: TGLenum; query: TGLenum; v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMaterialfv = procedure(face: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMaterialiv = procedure(face: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPixelMapfv = procedure(map: TGLenum; values: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPixelMapuiv = procedure(map: TGLenum; values: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPixelMapusv = procedure(map: TGLenum; values: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPolygonStipple = procedure(mask: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexEnvfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexEnviv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexGendv = procedure(coord: TGLenum; pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexGenfv = procedure(coord: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexGeniv = procedure(coord: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexMask = procedure(mask: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexPointer = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexd = procedure(c: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexdv = procedure(const c: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexf = procedure(c: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexfv = procedure(const c: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexi = procedure(c: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexiv = procedure(const c: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexs = procedure(c: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexsv = procedure(const c: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexub = procedure(c: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexubv = procedure(const c: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglInitNames = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglInterleavedArrays = procedure(format: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsList = function(list: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsTexture = function(texture: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightModelf = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightModelfv = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightModeli = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightModeliv = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightf = procedure(light: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightfv = procedure(light: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLighti = procedure(light: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightiv = procedure(light: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLineStipple = procedure(factor: TGLint; pattern: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglListBase = procedure(base: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadIdentity = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadMatrixd = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadMatrixf = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadName = procedure(name: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMap1d = procedure(target: TGLenum; u1: TGLdouble; u2: TGLdouble; stride: TGLint; order: TGLint; const points: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMap1f = procedure(target: TGLenum; u1: TGLfloat; u2: TGLfloat; stride: TGLint; order: TGLint; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMap2d = procedure(target: TGLenum; u1: TGLdouble; u2: TGLdouble; ustride: TGLint; uorder: TGLint; v1: TGLdouble; v2: TGLdouble; vstride: TGLint; vorder: TGLint; const points: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMap2f = procedure(target: TGLenum; u1: TGLfloat; u2: TGLfloat; ustride: TGLint; uorder: TGLint; v1: TGLfloat; v2: TGLfloat; vstride: TGLint; vorder: TGLint; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapGrid1d = procedure(un: TGLint; u1: TGLdouble; u2: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapGrid1f = procedure(un: TGLint; u1: TGLfloat; u2: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapGrid2d = procedure(un: TGLint; u1: TGLdouble; u2: TGLdouble; vn: TGLint; v1: TGLdouble; v2: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapGrid2f = procedure(un: TGLint; u1: TGLfloat; u2: TGLfloat; vn: TGLint; v1: TGLfloat; v2: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMaterialf = procedure(face: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMaterialfv = procedure(face: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMateriali = procedure(face: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMaterialiv = procedure(face: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixMode = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultMatrixd = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultMatrixf = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNewList = procedure(list: TGLuint; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3b = procedure(nx: TGLbyte; ny: TGLbyte; nz: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3bv = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3d = procedure(nx: TGLdouble; ny: TGLdouble; nz: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3f = procedure(nx: TGLfloat; ny: TGLfloat; nz: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3i = procedure(nx: TGLint; ny: TGLint; nz: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3s = procedure(nx: TGLshort; ny: TGLshort; nz: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalPointer = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglOrtho = procedure(left: TGLdouble; right: TGLdouble; bottom: TGLdouble; top: TGLdouble; zNear: TGLdouble; zFar: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPassThrough = procedure(token: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelMapfv = procedure(map: TGLenum; mapsize: TGLsizei; const values: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelMapuiv = procedure(map: TGLenum; mapsize: TGLsizei; const values: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelMapusv = procedure(map: TGLenum; mapsize: TGLsizei; const values: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTransferf = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTransferi = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelZoom = procedure(xfactor: TGLfloat; yfactor: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPolygonStipple = procedure(const mask: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPopAttrib = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPopClientAttrib = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPopMatrix = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPopName = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPrioritizeTextures = procedure(n: TGLsizei; const textures: PGLuint; const priorities: PGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPushAttrib = procedure(mask: TGLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPushClientAttrib = procedure(mask: TGLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPushMatrix = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPushName = procedure(name: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2d = procedure(x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2f = procedure(x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2i = procedure(x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2s = procedure(x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos2sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3d = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3f = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3i = procedure(x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3s = procedure(x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4d = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4f = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4i = procedure(x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4s = procedure(x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRasterPos4sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectd = procedure(x1: TGLdouble; y1: TGLdouble; x2: TGLdouble; y2: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectdv = procedure(const v1: PGLdouble; const v2: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectf = procedure(x1: TGLfloat; y1: TGLfloat; x2: TGLfloat; y2: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectfv = procedure(const v1: PGLfloat; const v2: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRecti = procedure(x1: TGLint; y1: TGLint; x2: TGLint; y2: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectiv = procedure(const v1: PGLint; const v2: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRects = procedure(x1: TGLshort; y1: TGLshort; x2: TGLshort; y2: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRectsv = procedure(const v1: PGLshort; const v2: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRenderMode = function(mode: TGLenum): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRotated = procedure(angle: TGLdouble; x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRotatef = procedure(angle: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglScaled = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglScalef = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSelectBuffer = procedure(size: TGLsizei; buffer: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShadeModel = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1d = procedure(s: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1f = procedure(s: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1i = procedure(s: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1s = procedure(s: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2d = procedure(s: TGLdouble; t: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2f = procedure(s: TGLfloat; t: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2i = procedure(s: TGLint; t: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2s = procedure(s: TGLshort; t: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3d = procedure(s: TGLdouble; t: TGLdouble; r: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3f = procedure(s: TGLfloat; t: TGLfloat; r: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3i = procedure(s: TGLint; t: TGLint; r: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3s = procedure(s: TGLshort; t: TGLshort; r: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4d = procedure(s: TGLdouble; t: TGLdouble; r: TGLdouble; q: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4f = procedure(s: TGLfloat; t: TGLfloat; r: TGLfloat; q: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4i = procedure(s: TGLint; t: TGLint; r: TGLint; q: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4s = procedure(s: TGLshort; t: TGLshort; r: TGLshort; q: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoordPointer = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexEnvf = procedure(target: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexEnvfv = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexEnvi = procedure(target: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexEnviv = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGend = procedure(coord: TGLenum; pname: TGLenum; param: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGendv = procedure(coord: TGLenum; pname: TGLenum; const params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGenf = procedure(coord: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGenfv = procedure(coord: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGeni = procedure(coord: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexGeniv = procedure(coord: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-
-  TglTranslated = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTranslatef = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2d = procedure(x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2f = procedure(x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2i = procedure(x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2s = procedure(x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3d = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3f = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3i = procedure(x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3s = procedure(x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4d = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4f = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4i = procedure(x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4s = procedure(x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexPointer = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$endif}
-
-  // GL_VERSION_1_2
-  TglBlendColor = procedure(red: TGLclampf; green: TGLclampf; blue: TGLclampf; alpha: TGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlendEquation = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawRangeElements = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; count: TGLsizei; _type: TGLenum; const indices: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexImage3D = procedure(target: TGLenum; level: TGLint; internalformat: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; border: TGLint; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage3D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage3D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$ifdef DGL_DEPRECATED}
-  TglColorTable = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; format: TGLenum; _type: TGLenum; const table: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorTableParameterfv = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorTableParameteriv = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyColorTable = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTable = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; table: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameterfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorSubTable = procedure(target: TGLenum; start: TGLsizei; count: TGLsizei; format: TGLenum; _type: TGLenum; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyColorSubTable = procedure(target: TGLenum; start: TGLsizei; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionFilter1D = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; format: TGLenum; _type: TGLenum; const image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionFilter2D = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameterf = procedure(target: TGLenum; pname: TGLenum; params: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameterfv = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameteri = procedure(target: TGLenum; pname: TGLenum; params: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameteriv = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyConvolutionFilter1D = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyConvolutionFilter2D = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionFilter = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionParameterfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetSeparableFilter = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSeparableFilter2D = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const row: PGLvoid; const column: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHistogram = procedure(target: TGLenum; reset: TGLboolean; format: TGLenum; _type: TGLenum; values: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHistogramParameterfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHistogramParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmax = procedure(target: TGLenum; reset: TGLboolean; format: TGLenum; _type: TGLenum; values: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmaxParameterfv = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmaxParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglHistogram = procedure(target: TGLenum; width: TGLsizei; internalformat: TGLenum; sink: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMinmax = procedure(target: TGLenum; internalformat: TGLenum; sink: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglResetHistogram = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglResetMinmax = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$endif}
-
-  // GL_VERSION_1_3
-  TglActiveTexture = procedure(texture: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSampleCoverage = procedure(value: TGLclampf; invert: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexImage3D = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; depth: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexImage2D = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexImage1D = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage3D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage2D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; width: TGLsizei; height: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage1D = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; width: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCompressedTexImage = procedure(target: TGLenum; level: TGLint; img: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$ifdef DGL_DEPRECATED}
-  TglClientActiveTexture = procedure(texture: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1d = procedure(target: TGLenum; s: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1dv = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1f = procedure(target: TGLenum; s: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1fv = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1i = procedure(target: TGLenum; s: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1iv = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1s = procedure(target: TGLenum; s: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1sv = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2d = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2dv = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2f = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2fv = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2i = procedure(target: TGLenum; s: TGLint; t: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2iv = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2s = procedure(target: TGLenum; s: TGLshort; t: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2sv = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3d = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble; r: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3dv = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3f = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat; r: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3fv = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3i = procedure(target: TGLenum; s: TGLint; t: TGLint; r: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3iv = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3s = procedure(target: TGLenum; s: TGLshort; t: TGLshort; r: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3sv = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4d = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble; r: TGLdouble; q: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4dv = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4f = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat; r: TGLfloat; q: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4fv = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4i = procedure(target: TGLenum; s: TGLint; t: TGLint; r: TGLint; q: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4iv = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4s = procedure(target: TGLenum; s: TGLshort; t: TGLshort; r: TGLshort; q: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4sv = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadTransposeMatrixf = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadTransposeMatrixd = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultTransposeMatrixf = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultTransposeMatrixd = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$endif}
-
-  // GL_VERSION_1_4
-  TglBlendFuncSeparate = procedure(sfactorRGB: TGLenum; dfactorRGB: TGLenum; sfactorAlpha: TGLenum; dfactorAlpha: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawArrays = procedure(mode: TGLenum; first: PGLint; count: PGLsizei; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawElements = procedure(mode: TGLenum; const count: PGLsizei; _type: TGLenum; const indices: PGLvoid; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterf = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterfv = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameteri = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameteriv = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$ifdef DGL_DEPRECATED}
-  TglFogCoordf = procedure(coord: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordfv = procedure(const coord: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordd = procedure(coord: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoorddv = procedure(const coord: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordPointer = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3b = procedure(red: TGLbyte; green: TGLbyte; blue: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3bv = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3d = procedure(red: TGLdouble; green: TGLdouble; blue: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3f = procedure(red: TGLfloat; green: TGLfloat; blue: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3i = procedure(red: TGLint; green: TGLint; blue: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3s = procedure(red: TGLshort; green: TGLshort; blue: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ub = procedure(red: TGLubyte; green: TGLubyte; blue: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ubv = procedure(const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ui = procedure(red: TGLuint; green: TGLuint; blue: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3uiv = procedure(const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3us = procedure(red: TGLushort; green: TGLushort; blue: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3usv = procedure(const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColorPointer = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2d = procedure(x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2f = procedure(x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2i = procedure(x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2s = procedure(x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3d = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3dv = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3f = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3fv = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3i = procedure(x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3iv = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3s = procedure(x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3sv = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-{$endif}
-
-  // GL_VERSION_1_5
-  TglGenQueries = procedure(n: GLsizei; ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteQueries = procedure(n: GLsizei; const ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsQuery = function(id: GLuint): boolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginQuery = procedure(target: GLenum; id: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndQuery = procedure(target: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryiv = procedure(target, pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryObjectiv = procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryObjectuiv = procedure(id: GLuint; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBuffer = procedure(target: TGLenum; buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteBuffers = procedure(n: TGLsizei; const buffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenBuffers = procedure(n: TGLsizei; buffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsBuffer = function(buffer: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBufferData = procedure(target: TGLenum; size: TGLsizei; const data: PGLvoid; usage: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBufferSubData = procedure(target: TGLenum; offset: TGLsizei; size: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferSubData = procedure(target: TGLenum; offset: TGLsizei; size: TGLsizei; data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapBuffer = function(target: TGLenum; access: TGLenum): PGLvoid; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUnmapBuffer = function(target: TGLenum): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferParameteriv = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferPointerv = procedure(target: TGLenum; pname: TGLenum; params: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_2_0
-  TglBlendEquationSeparate = procedure(modeRGB: GLenum; modeAlpha: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawBuffers = procedure(n: GLsizei; const bufs: PGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilOpSeparate = procedure(face: GLenum; sfail: GLenum; dpfail: GLenum; dppass: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilFuncSeparate = procedure(frontfunc: GLenum; backfunc: GLenum; ref: GLint; mask: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilMaskSeparate = procedure(face: GLenum; mask: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAttachShader = procedure(programObj, shaderObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindAttribLocation = procedure(programObj: GLhandle; index: GLuint; name: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompileShader = procedure(shaderObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCreateProgram = function: GLhandle; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCreateShader = function(shaderType: GLenum): GLhandle; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteProgram = procedure(programObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteShader = procedure(shaderObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDetachShader = procedure(programObj, shaderObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableVertexAttribArray = procedure(index: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableVertexAttribArray = procedure(index: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveAttrib = procedure(programObj: GLhandle; index: GLuint; maxlength: GLsizei; var length: GLint; var size: GLint; var _type: GLenum; name: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniform = procedure(programObj: GLhandle; index: GLuint; maxLength: GLsizei; var length: GLsizei; var size: GLint; var _type: GLenum; name: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetAttachedShaders = procedure(programObj: GLhandle; MaxCount: GLsizei; var Count: GLint; shaders: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetAttribLocation = function(programObj: GLhandle; char: string): glint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramiv = procedure(programObj: GLhandle; pname: TGLenum; params: PGLInt); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramInfoLog = procedure(programObj: GLHandle; maxLength: glsizei; var length: GLint; infoLog: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetShaderiv = procedure(shaderObj: GLhandle; pname: TGLenum; params: PGLInt); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetShaderInfoLog = procedure(shaderObj: GLHandle; maxLength: glsizei; var length: glint; infoLog: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetShaderSource = procedure(shaderObj: GLhandle; maxlength: GLsizei; var length: GLsizei; source: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformLocation = function(programObj: GLhandle; const char: PGLChar): glint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformfv = procedure(programObj: GLhandle; location: GLint; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformiv = procedure(programObj: GLhandle; location: GLint; params: PGLInt); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribfv = procedure(index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribiv = procedure(index: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribPointerv = procedure(index: GLuint; pname: GLenum; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsProgram = function(programObj: GLhandle) : TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsShader = function(shaderObj: GLhandle) : TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLinkProgram = procedure(programObj: GLHandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShaderSource = procedure(shaderObj: GLHandle; count: glsizei; _string: PPGLChar; lengths: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUseProgram = procedure(programObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1f = procedure(location: GLint; v0: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2f = procedure(location: GLint; v0, v1: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3f = procedure(location: GLint; v0, v1, v2: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4f = procedure(location: GLint; v0, v1, v2, v3: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1i = procedure(location: GLint; v0: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2i = procedure(location: GLint; v0, v1: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3i = procedure(location: GLint; v0, v1, v2: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4i = procedure(location: GLint; v0, v1, v2, v3: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1fv = procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2fv = procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3fv = procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4fv = procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1iv = procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2iv = procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3iv = procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4iv = procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix2fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix3fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix4fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglValidateProgram = procedure(programObj: GLhandle); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1d = procedure(index: GLuint; x: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1dv = procedure(index: GLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1f = procedure(index: GLuint; x: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1fv = procedure(index: GLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1s = procedure(index: GLuint; x: GLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1sv = procedure(index: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2d = procedure(index: GLuint; x: GLdouble; y: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2dv = procedure(index: GLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2f = procedure(index: GLuint; x: GLfloat; y: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2fv = procedure(index: GLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2s = procedure(index: GLuint; x: GLshort; y: GLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2sv = procedure(index: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3d = procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3dv = procedure(index: GLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3f = procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3fv = procedure(index: GLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3s = procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3sv = procedure(index: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nbv = procedure(index: GLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Niv = procedure(index: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nsv = procedure(index: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nub = procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nubv = procedure(index: GLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nuiv = procedure(index: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4Nusv = procedure(index: GLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4bv = procedure(index: GLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4d = procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4dv = procedure(index: GLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4f = procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4fv = procedure(index: GLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4iv = procedure(index: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4s = procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4sv = procedure(index: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4ubv = procedure(index: GLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4uiv = procedure(index: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4usv = procedure(index: GLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribPointer = procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_2_1
-  TglUniformMatrix2x3fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix3x2fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix2x4fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix4x2fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix3x4fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix4x3fv = procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_3_0
-  { OpenGL 3.0 also reuses entry points from these extensions: }
-  { ARB_framebuffer_object }
-  { ARB_map_buffer_range }
-  { ARB_vertex_array_object }
-  TglColorMaski = procedure(index_: GLuint; r: GLboolean; g: GLboolean; b: GLboolean; a: GLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBooleani_v = procedure(target: GLenum; index_: GLuint; data: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetIntegeri_v = procedure(target: GLenum; index_: GLuint; data: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnablei = procedure(target: GLenum; index_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisablei = procedure(target: GLenum; index_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsEnabledi = function(target: GLenum; index_: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginTransformFeedback = procedure(primitiveMode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndTransformFeedback = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferRange = procedure(target: GLenum; index_: GLuint; buffer: GLuint; offset: GLsizei; size: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferBase = procedure(target: GLenum; index_: GLuint; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTransformFeedbackVaryings = procedure(program_: GLuint; count: GLsizei; const varyings: PPGLchar; bufferMode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTransformFeedbackVarying = procedure(program_: GLuint; index_: GLuint; bufSize: GLsizei; length: PGLsizei; size: PGLsizei; type_: PGLsizei; name: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClampColor = procedure(targe: GLenum; clamp: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginConditionalRender = procedure(id: GLuint; mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndConditionalRender = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribIPointer = procedure(index_: GLuint; size: GLint; type_: GLenum; stride: GLsizei; const pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribIiv = procedure(index_: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribIuiv = procedure(index_: GLuint; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1i = procedure(index_: GLuint; x: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2i = procedure(index_: GLuint; x: GLint; y: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3i = procedure(index_: GLuint; x: GLint; y: GLint; z: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4i = procedure(index_: GLuint; x: GLint; y: GLint; z: GLint; w: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1ui = procedure(index_: GLuint; x: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2ui = procedure(index_: GLuint; x: GLuint; y: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3ui = procedure(index_: GLuint; x: GLuint; y: GLuint; z: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4ui = procedure(index_: GLuint; x: GLuint; y: GLuint; z: GLuint; w: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1iv = procedure(index_: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2iv = procedure(index_: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3iv = procedure(index_: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4iv = procedure(index_: GLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1uiv = procedure(index_: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2uiv = procedure(index_: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3uiv = procedure(index_: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4uiv = procedure(index_: GLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4bv = procedure(index_: GLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4sv = procedure(index_: GLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4ubv = procedure(index_: GLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4usv = procedure(index_: GLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformuiv = procedure(program_: GLuint; location: GLint; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindFragDataLocation = procedure(program_: GLuint; color: GLuint; const name: PGLChar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragDataLocation = function(program_: GLuint; const name: PGLChar): GLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1ui = procedure(location: GLint; v0: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2ui = procedure(location: GLint; v0: GLuint; v1: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3ui = procedure(location: GLint; v0: GLuint; v1: GLuint; v2: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4ui = procedure(location: GLint; v0: GLuint; v1: GLuint; v2: GLuint; v3: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1uiv = procedure(location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2uiv = procedure(location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3uiv = procedure(location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4uiv = procedure(location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterIiv = procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterIuiv = procedure(target: GLenum; pname: GLenum; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterIiv = procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterIuiv = procedure(target: GLenum; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearBufferiv = procedure(buffer: GLenum; drawbuffer: GLint; const value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearBufferuiv = procedure(buffer: GLenum; drawbuffer: GLint; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearBufferfv = procedure(buffer: GLenum; drawbuffer: GLint; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearBufferfi = procedure(buffer: GLenum; drawbuffer: GLint; depth: GLfloat; stencil: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetStringi = function(name: GLenum; index: GLuint): PGLubyte; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_3_1
-  { OpenGL 3.1 also reuses entry points from these extensions: }
-  { ARB_copy_buffer }
-  { ARB_uniform_buffer_object }
-  TglDrawArraysInstanced = procedure(mode: GLenum; first: GLint; count: GLsizei; primcount: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementsInstanced = procedure(mode: GLenum; count: GLsizei; type_: GLenum; const indices: PGLvoid; primcount: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexBuffer = procedure(target: GLenum; internalformat: GLenum; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPrimitiveRestartIndex = procedure(index_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_VERSION_3_2
-  { OpenGL 3.2 also reuses entry points from these extensions: }
-  { ARB_draw_elements_base_vertex }
-  { ARB_provoking_vertex }
-  { ARB_sync }
-  { ARB_texture_multisample }
-  TglGetInteger64i_v = procedure(target: GLenum; index_: GLuint; data: PGLint64); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferParameteri64v = procedure(target: GLenum; pname: GLenum; params: PGLint64); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameteri = procedure(program_: GLuint; pname: GLenum; value: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureFace = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint; face: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  
-  // GL_3DFX_tbuffer
-  TglTbufferMask3DFX = procedure(mask: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_element_array
-  TglElementPointerAPPLE = procedure(_type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementArrayAPPLE = procedure(mode: TGLenum; first: TGLint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawRangeElementArrayAPPLE = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; first: TGLint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawElementArrayAPPLE = procedure(mode: TGLenum; const first: PGLint; const count: PGLsizei; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawRangeElementArrayAPPLE = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; const first: PGLint; const count: PGLsizei; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_fence
-  TglGenFencesAPPLE = procedure(n: TGLsizei; fences: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteFencesAPPLE = procedure(n: TGLsizei; const fences: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSetFenceAPPLE = procedure(fence: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsFenceAPPLE = function(fence: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTestFenceAPPLE = function(fence: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinishFenceAPPLE = procedure(fence: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTestObjectAPPLE = function(_object: TGLenum; name: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinishObjectAPPLE = procedure(_object: TGLenum; name: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_vertex_array_object
-  TglBindVertexArrayAPPLE = procedure(_array: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteVertexArraysAPPLE = procedure(n: TGLsizei; const arrays: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenVertexArraysAPPLE = procedure(n: TGLsizei; const arrays: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsVertexArrayAPPLE = function(_array: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_vertex_array_range
-  TglVertexArrayRangeAPPLE = procedure(length: TGLsizei; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFlushVertexArrayRangeAPPLE = procedure(length: TGLsizei; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexArrayParameteriAPPLE = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_texture_range
-  TglTextureRangeAPPLE = procedure(target: GLenum; length: GLsizei; const Pointer_: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterPointervAPPLE = procedure(target: GLenum; pname: GLenum; params: PPGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_vertex_program_evaluators
-  TglEnableVertexAttribAPPLE = procedure(index_: GLuint; pname: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableVertexAttribAPPLE = procedure(index_: GLuint; pname: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsVertexAttribEnabledAPPLE = function(index_: GLuint; pname: GLenum): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapVertexAttrib1dAPPLE = procedure(index_: GLuint; size: GLuint; u1: GLdouble; u2: GLdouble; stride: GLint; order: GLint; const points: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapVertexAttrib1fAPPLE = procedure(index_: GLuint; size: GLuint; u1: GLfloat; u2: GLfloat; stride: GLint; order: GLint; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapVertexAttrib2dAPPLE = procedure(index_: GLuint; size: GLuint; u1: GLdouble; u2: GLdouble; ustride: GLint; uorder: GLint; v1: GLdouble; v2: GLdouble; vstride: GLint; vorder: GLint; const points: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapVertexAttrib2fAPPLE = procedure(index_: GLuint; size: GLuint; u1: GLfloat; u2: GLfloat; ustride: GLint; order: GLint; v1: GLfloat; v2: GLfloat; vstride: GLint; vorder: GLint; const points: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_APPLE_object_purgeable
-  TglObjectPurgeableAPPLE = function(objectType: GLenum; name: GLuint; option: GLenum): GLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglObjectUnpurgeableAPPLE = function(objectType: GLenum; name: GLuint; option: GLenum): GLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetObjectParameterivAPPLE = procedure(objectType: GLenum; name: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_matrix_palette
-  TglCurrentPaletteMatrixARB = procedure(index: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixIndexubvARB = procedure(size: TGLint; const indices: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixIndexusvARB = procedure(size: TGLint; const indices: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixIndexuivARB = procedure(size: TGLint; const indices: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixIndexPointerARB = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_multisample
-  TglSampleCoverageARB = procedure(value: TGLclampf; invert: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_multitexture
-  TglActiveTextureARB = procedure(texture: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClientActiveTextureARB = procedure(texture: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1dARB = procedure(target: TGLenum; s: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1dvARB = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1fARB = procedure(target: TGLenum; s: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1fvARB = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1iARB = procedure(target: TGLenum; s: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1ivARB = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1sARB = procedure(target: TGLenum; s: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1svARB = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2dARB = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2dvARB = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2fARB = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2fvARB = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2iARB = procedure(target: TGLenum; s: TGLint; t: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2ivARB = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2sARB = procedure(target: TGLenum; s: TGLshort; t: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2svARB = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3dARB = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble; r: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3dvARB = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3fARB = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat; r: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3fvARB = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3iARB = procedure(target: TGLenum; s: TGLint; t: TGLint; r: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3ivARB = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3sARB = procedure(target: TGLenum; s: TGLshort; t: TGLshort; r: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3svARB = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4dARB = procedure(target: TGLenum; s: TGLdouble; t: TGLdouble; r: TGLdouble; q: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4dvARB = procedure(target: TGLenum; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4fARB = procedure(target: TGLenum; s: TGLfloat; t: TGLfloat; r: TGLfloat; q: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4fvARB = procedure(target: TGLenum; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4iARB = procedure(target: TGLenum; s: TGLint; t: TGLint; r: TGLint; q: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4ivARB = procedure(target: TGLenum; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4sARB = procedure(target: TGLenum; s: TGLshort; t: TGLshort; r: TGLshort; q: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4svARB = procedure(target: TGLenum; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_point_parameters
-  TglPointParameterfARB = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterfvARB = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_texture_compression
-  TglCompressedTexImage3DARB = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; depth: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexImage2DARB = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexImage1DARB = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; border: TGLint; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage3DARB = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage2DARB = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; width: TGLsizei; height: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTexSubImage1DARB = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; width: TGLsizei; format: TGLenum; imageSize: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCompressedTexImageARB = procedure(target: TGLenum; level: TGLint; img: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_transpose_matrix
-  TglLoadTransposeMatrixfARB = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadTransposeMatrixdARB = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultTransposeMatrixfARB = procedure(const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultTransposeMatrixdARB = procedure(const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_vertex_blend
-  TglWeightbvARB = procedure(size: TGLint; const weights: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightsvARB = procedure(size: TGLint; const weights: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightivARB = procedure(size: TGLint; const weights: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightfvARB = procedure(size: TGLint; const weights: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightdvARB = procedure(size: TGLint; const weights: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightubvARB = procedure(size: TGLint; const weights: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightusvARB = procedure(size: TGLint; const weights: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightuivARB = procedure(size: TGLint; const weights: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWeightPointerARB = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexBlendARB = procedure(count: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_vertex_buffer_object
-  TglBindBufferARB = procedure(target: TGLenum; buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteBuffersARB = procedure(n: TGLsizei; const buffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenBuffersARB = procedure(n: TGLsizei; buffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsBufferARB = function(buffer: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBufferDataARB = procedure(target: TGLenum; size: TGLsizei; const data: PGLvoid; usage: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBufferSubDataARB = procedure(target: TGLenum; offset: TGLsizei; size: TGLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferSubDataARB = procedure(target: TGLenum; offset: TGLsizei; size: TGLsizei; data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapBufferARB = function(target: TGLenum; access: TGLenum): PGLvoid; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUnmapBufferARB = function(target: TGLenum): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferParameterivARB = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBufferPointervARB = procedure(target: TGLenum; pname: TGLenum; params: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_vertex_program
-  TglVertexAttrib1dARB = procedure(index: TGLuint; x: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1dvARB = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1fARB = procedure(index: TGLuint; x: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1fvARB = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1sARB = procedure(index: TGLuint; x: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1svARB = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2dARB = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2dvARB = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2fARB = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2fvARB = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2sARB = procedure(index: TGLuint; x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2svARB = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3dARB = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3dvARB = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3fARB = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3fvARB = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3sARB = procedure(index: TGLuint; x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3svARB = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NbvARB = procedure(index: TGLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NivARB = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NsvARB = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NubARB = procedure(index: TGLuint; x: TGLubyte; y: TGLubyte; z: TGLubyte; w: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NubvARB = procedure(index: TGLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NuivARB = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4NusvARB = procedure(index: TGLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4bvARB = procedure(index: TGLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4dARB = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4dvARB = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4fARB = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4fvARB = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4ivARB = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4sARB = procedure(index: TGLuint; x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4svARB = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4ubvARB = procedure(index: TGLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4uivARB = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4usvARB = procedure(index: TGLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribPointerARB = procedure(index: TGLuint; size: TGLint; _type: TGLenum; normalized: TGLboolean; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableVertexAttribArrayARB = procedure(index: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableVertexAttribArrayARB = procedure(index: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramStringARB = procedure(target: TGLenum; format: TGLenum; len: TGLsizei; const _string: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindProgramARB = procedure(target: TGLenum; _program: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteProgramsARB = procedure(n: TGLsizei; const programs: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenProgramsARB = procedure(n: TGLsizei; programs: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameter4dARB = procedure(target: TGLenum; index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameter4dvARB = procedure(target: TGLenum; index: TGLuint; const params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameter4fARB = procedure(target: TGLenum; index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameter4fvARB = procedure(target: TGLenum; index: TGLuint; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameter4dARB = procedure(target: TGLenum; index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameter4dvARB = procedure(target: TGLenum; index: TGLuint; const params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameter4fARB = procedure(target: TGLenum; index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameter4fvARB = procedure(target: TGLenum; index: TGLuint; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramEnvParameterdvARB = procedure(target: TGLenum; index: TGLuint; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramEnvParameterfvARB = procedure(target: TGLenum; index: TGLuint; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramLocalParameterdvARB = procedure(target: TGLenum; index: TGLuint; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramLocalParameterfvARB = procedure(target: TGLenum; index: TGLuint; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramivARB = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramStringARB = procedure(target: TGLenum; pname: TGLenum; _string: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribdvARB = procedure(index: TGLuint; pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribfvARB = procedure(index: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribivARB = procedure(index: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribPointervARB = procedure(index: TGLuint; pname: TGLenum; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsProgramARB = function(_program: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_window_pos
-  TglWindowPos2dARB = procedure(x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2dvARB = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2fARB = procedure(x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2fvARB = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2iARB = procedure(x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2ivARB = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2sARB = procedure(x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2svARB = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3dARB = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3dvARB = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3fARB = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3fvARB = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3iARB = procedure(x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3ivARB = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3sARB = procedure(x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3svARB = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_draw_buffers
-  TglDrawBuffersARB = procedure(n: TGLsizei; bufs: PGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_color_buffer_float
-  TglClampColorARB = procedure(target: TGLenum; clamp: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_vertex_shader
-  TglGetActiveAttribARB = procedure(programobj: GLhandleARB; index: GLuint; maxLength: GLsizei; var length: GLsizei; var size: GLint; var _type: GLenum; name: PGLcharARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetAttribLocationARB = function(programObj: GLhandleARB; const char: PGLcharARB): glint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindAttribLocationARB = procedure(programObj: GLhandleARB; index: GLuint; const name: PGLcharARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_shader_objects
-  TglDeleteObjectARB = procedure(Obj: GLHandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHandleARB = function(pname: GlEnum): GLHandleARB; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDetachObjectARB = procedure(container, attached: GLHandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCreateShaderObjectARB = function(shaderType: glenum): GLHandleARB; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShaderSourceARB = procedure(shaderObj: GLHandleARB; count: glsizei; _string: PPGLCharARB; lengths: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompileShaderARB = procedure(shaderObj: GLHandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCreateProgramObjectARB = function: GLHandleARB; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAttachObjectARB = procedure(programObj, shaderObj: GLhandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLinkProgramARB = procedure(programObj: GLHandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUseProgramObjectARB = procedure(programObj: GLHandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglValidateProgramARB = procedure(programObj: GLhandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1fARB = procedure(location: glint; v0: glfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2fARB = procedure(location: glint; v0, v1: glfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3fARB = procedure(location: glint; v0, v1, v2: glfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4fARB = procedure(location: glint; v0, v1, v2, v3: glfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1iARB = procedure(location: glint; v0: glint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2iARB = procedure(location: glint; v0, v1: glint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3iARB = procedure(location: glint; v0, v1, v2: glint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4iARB = procedure(location: glint; v0, v1, v2, v3: glint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1fvARB = procedure(location: glint; count: GLsizei; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2fvARB = procedure(location: glint; count: GLsizei; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3fvARB = procedure(location: glint; count: GLsizei; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4fvARB = procedure(location: glint; count: GLsizei; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1ivARB = procedure(location: glint; count: GLsizei; value: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2ivARB = procedure(location: glint; count: GLsizei; value: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3ivARB = procedure(location: glint; count: GLsizei; value: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4ivARB = procedure(location: glint; count: GLsizei; value: pglint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix2fvARB = procedure(location: glint; count: glsizei; transpose: glboolean; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix3fvARB = procedure(location: glint; count: glsizei; transpose: glboolean; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformMatrix4fvARB = procedure(location: glint; count: glsizei; transpose: glboolean; value: pglfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetObjectParameterfvARB = procedure(Obj: GLHandleARB; pname: GLEnum; params: PGLFloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetObjectParameterivARB = procedure(Obj: GLHandleARB; pname: GLEnum; params: PGLInt); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetInfoLogARB = procedure(shaderObj: GLHandleARB; maxLength: glsizei; var length: glint; infoLog: PGLcharARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetAttachedObjectsARB = procedure(programobj: GLhandleARB; maxCount: GLsizei; var count: GLsizei; objects: PGLhandleARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformLocationARB = function(programObj: GLhandleARB; const char: PGLcharARB): glint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniformARB = procedure(programobj: GLhandleARB; index: GLuint; maxLength: GLsizei; var length: GLsizei; var size: GLint; var _type: GLenum; name: PGLcharARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformfvARB = procedure(programObj: GLhandleARB; location: GLint; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformivARB = procedure(programObj: GLhandleARB; location: GLint; params: PGLInt); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetShaderSourceARB = procedure(shader: GLhandleARB; maxLength: GLsizei; var length: GLsizei; source: PGLcharARB); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_Occlusion_Query
-  TglGenQueriesARB = procedure(n: GLsizei; ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteQueriesARB = procedure(n: GLsizei; const ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsQueryARB = function(id: GLuint): boolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginQueryARB = procedure(target: GLenum; id: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndQueryARB = procedure(target: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryivARB = procedure(target, pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryObjectivARB = procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryObjectuivARB = procedure(id: GLuint; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_draw_instanced
-  TglDrawArraysInstancedARB = procedure(mode: GLenum; first: GLint; count: GLsizei; primcount: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementsInstancedARB = procedure(mode: GLenum; count: GLsizei; type_: GLenum; const indices: PGLvoid; primcount: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_framebuffer_object
-  TglIsRenderbuffer = function(renderbuffer: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindRenderbuffer = procedure(target: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteRenderbuffers = procedure(n: GLsizei; const renderbuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenRenderbuffers = procedure(n: GLsizei; renderbuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRenderbufferStorage = procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetRenderbufferParameteriv = procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsFramebuffer = function(framebuffer: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindFramebuffer = procedure(target: GLenum; framebuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteFramebuffers = procedure(n: GLsizei; const framebuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenFramebuffers = procedure(n: GLsizei; framebuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCheckFramebufferStatus = function(target: GLenum): GLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture1D = procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture2D = procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture3D = procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint; zoffset: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferRenderbuffer = procedure(target: GLenum; attachment: GLenum; renderbuffertarget: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFramebufferAttachmentParameteriv = procedure(target: GLenum; attachment: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenerateMipmap = procedure(target: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlitFramebuffer = procedure(srcX0: GLint; srcY0: GLint; srcX1: GLint; srcY1: GLint; dstX0: GLint; dstY0: GLint; dstX1: GLint; dstY1: GLint; mask: GLbitfield; filter: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRenderbufferStorageMultisample = procedure(target: GLenum; samples: GLsizei; internalformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureLayer = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint; layer: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_geometry_shader4
-  TglProgramParameteriARB = procedure(program_: GLuint; pname: GLenum; value: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureARB = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureLayerARB = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint; layer: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureFaceARB = procedure(target: GLenum; attachment: GLenum; texture: GLuint; level: GLint; face: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_instanced_arrays
-  TglVertexAttribDivisorARB = procedure(index_: GLuint; divisor: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_map_buffer_range
-  TglMapBufferRange = function(target: GLenum; offset: GLsizei; length: GLsizei; access: GLbitfield): PGLvoid; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFlushMappedBufferRange = procedure(target: GLenum; offset: GLsizei; length: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_texture_buffer_object
-  TglTexBufferARB = procedure(target: GLenum; internalformat: GLenum; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_vertex_array_object
-  TglBindVertexArray = procedure(array_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteVertexArrays = procedure(n: GLsizei; const arrays: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenVertexArrays = procedure(n: GLsizei; arrays: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsVertexArray = function(array_: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_uniform_buffer_object
-  TglGetUniformIndices = procedure(program_: GLuint; uniformCount: GLsizei; const uniformNames: PPGLchar; uniformIndices: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniformsiv = procedure(program_: GLuint; uniformCount: GLsizei; const uniformIndices: PGLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniformName = procedure(program_: GLuint; uniformIndex: GLuint; bufSize: GLsizei; length: PGLsizei; uniformName: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformBlockIndex = function(program_: GLuint; const uniformBlockName: PGLchar): GLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniformBlockiv = procedure(program_: GLuint; uniformBlockIndex: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveUniformBlockName = procedure(program_: GLuint; uniformBlockIndex: GLuint; bufSize: GLsizei; length: PGLsizei; uniformBlockName: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniformBlockBinding = procedure(program_: GLuint; uniformBlockIndex: GLuint; uniformBlockBinding: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_copy_buffer
-  TglCopyBufferSubData = procedure(readTarget: GLenum; writeTarget: GLenum; readOffset: GLint; writeOffset: GLint; size: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_draw_elements_base_vertex
-  TglDrawElementsBaseVertex = procedure(mode: GLenum; count: GLsizei; type_: GLenum; const indices: PGLvoid; basevertex: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawRangeElementsBaseVertex = procedure(mode: GLenum; start: GLuint; end_: GLuint; count: GLsizei; type_: GLenum; const indices: PGLvoid; basevertex: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementsInstancedBaseVertex = procedure(mode: GLenum; count: GLsizei; type_: GLenum; const indices: PGLvoid; primcount: GLsizei; basevertex: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawElementsBaseVertex = procedure(mode: GLenum; const count: PGLsizei; type_: GLenum; const indices: PPGLvoid; primcount: GLsizei; const basevertex: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_provoking_vertex
-  TglProvokingVertex = procedure(mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_sync
-  TglFenceSync = function(condition: GLenum; flags: GLbitfield): GLsync; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsSync = function(sync: GLsync): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteSync = procedure(sync: GLsync); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClientWaitSync = function(sync: GLsync; flags: GLbitfield; timeout: GLuint64): GLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWaitSync = procedure(sync: GLsync; flags: GLbitfield; timeout: GLuint64); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetInteger64v = procedure(pname: GLenum; params: PGLint64); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetSynciv = procedure(sync: GLsync; pname: GLenum; butSize: GLsizei; length: PGLsizei; values: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_texture_multisample
-  TglTexImage2DMultisample = procedure(target: GLenum; samples: GLsizei; internalformat: GLint; width: GLsizei; height: GLsizei; fixedsamplelocations: GLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexImage3DMultisample = procedure(target: GLenum; samples: GLsizei; internalformat: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; fixedsamplelocations: GLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultisamplefv = procedure(pname: GLenum; index_: GLuint; val: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSampleMaski = procedure(index_: GLuint; mask: GLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_draw_buffers_blend
-  TglBlendEquationi = procedure(buf: GLuint; mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlendEquationSeparatei = procedure(buf: GLuint; modeRGB: GLenum; modeAlpha: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlendFunci = procedure(buf: GLuint; src: GLenum; dst: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBlendFuncSeparatei = procedure(buf: GLuint; srcRGB: GLenum; dstRGB: GLenum; srcAlpha: GLenum; dstAlpha: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ARB_sample_shading
-  TglMinSampleShading = procedure(value: GLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_draw_buffers
-  TglDrawBuffersATI = procedure(n: TGLsizei; const bufs: PGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_element_array
-  TglElementPointerATI = procedure(_type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementArrayATI = procedure(mode: TGLenum; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawRangeElementArrayATI = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_envmap_bumpmap
-  TglTexBumpParameterivATI = procedure(pname: TGLenum; const param: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexBumpParameterfvATI = procedure(pname: TGLenum; const param: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexBumpParameterivATI = procedure(pname: TGLenum; param: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexBumpParameterfvATI = procedure(pname: TGLenum; param: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_fragment_shader
-  TglGenFragmentShadersATI = function(range: TGLuint): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindFragmentShaderATI = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteFragmentShaderATI = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginFragmentShaderATI = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndFragmentShaderATI = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPassTexCoordATI = procedure(dst: TGLuint; coord: TGLuint; swizzle: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSampleMapATI = procedure(dst: TGLuint; interp: TGLuint; swizzle: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorFragmentOp1ATI = procedure(op: TGLenum; dst: TGLuint; dstMask: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorFragmentOp2ATI = procedure(op: TGLenum; dst: TGLuint; dstMask: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint; arg2: TGLuint; arg2Rep: TGLuint; arg2Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorFragmentOp3ATI = procedure(op: TGLenum; dst: TGLuint; dstMask: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint; arg2: TGLuint; arg2Rep: TGLuint; arg2Mod: TGLuint; arg3: TGLuint; arg3Rep: TGLuint; arg3Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAlphaFragmentOp1ATI = procedure(op: TGLenum; dst: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAlphaFragmentOp2ATI = procedure(op: TGLenum; dst: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint; arg2: TGLuint; arg2Rep: TGLuint; arg2Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglAlphaFragmentOp3ATI = procedure(op: TGLenum; dst: TGLuint; dstMod: TGLuint; arg1: TGLuint; arg1Rep: TGLuint; arg1Mod: TGLuint; arg2: TGLuint; arg2Rep: TGLuint; arg2Mod: TGLuint; arg3: TGLuint; arg3Rep: TGLuint; arg3Mod: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSetFragmentShaderConstantATI = procedure(dst: TGLuint; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_map_object_buffer
-  TglMapObjectBufferATI = function(buffer: TGLuint): PGLvoid; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUnmapObjectBufferATI = procedure(buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_pn_triangles
-  TglPNTrianglesiATI = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPNTrianglesfATI = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_separate_stencil
-  TglStencilOpSeparateATI = procedure(face: TGLenum; sfail: TGLenum; dpfail: TGLenum; dppass: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStencilFuncSeparateATI = procedure(frontfunc: TGLenum; backfunc: TGLenum; ref: TGLint; mask: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_vertex_array_object
-  TglNewObjectBufferATI = function(size: TGLsizei; const _pointer: PGLvoid; usage: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsObjectBufferATI = function(buffer: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUpdateObjectBufferATI = procedure(buffer: TGLuint; offset: TGLuint; size: TGLsizei; const _pointer: PGLvoid; preserve: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetObjectBufferfvATI = procedure(buffer: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetObjectBufferivATI = procedure(buffer: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFreeObjectBufferATI = procedure(buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglArrayObjectATI = procedure(_array: TGLenum; size: TGLint; _type: TGLenum; stride: TGLsizei; buffer: TGLuint; offset: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetArrayObjectfvATI = procedure(_array: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetArrayObjectivATI = procedure(_array: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantArrayObjectATI = procedure(id: TGLuint; _type: TGLenum; stride: TGLsizei; buffer: TGLuint; offset: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantArrayObjectfvATI = procedure(id: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantArrayObjectivATI = procedure(id: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_vertex_attrib_array_object
-  TglVertexAttribArrayObjectATI = procedure(index: TGLuint; size: TGLint; _type: TGLenum; normalized: TGLboolean; stride: TGLsizei; buffer: TGLuint; offset: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribArrayObjectfvATI = procedure(index: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribArrayObjectivATI = procedure(index: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_ATI_vertex_streams
-  TglVertexStream1sATI = procedure(stream: TGLenum; x: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1svATI = procedure(stream: TGLenum; const coords: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1iATI = procedure(stream: TGLenum; x: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1ivATI = procedure(stream: TGLenum; const coords: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1fATI = procedure(stream: TGLenum; x: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1fvATI = procedure(stream: TGLenum; const coords: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1dATI = procedure(stream: TGLenum; x: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream1dvATI = procedure(stream: TGLenum; const coords: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2sATI = procedure(stream: TGLenum; x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2svATI = procedure(stream: TGLenum; const coords: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2iATI = procedure(stream: TGLenum; x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2ivATI = procedure(stream: TGLenum; const coords: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2fATI = procedure(stream: TGLenum; x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2fvATI = procedure(stream: TGLenum; const coords: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2dATI = procedure(stream: TGLenum; x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream2dvATI = procedure(stream: TGLenum; const coords: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3sATI = procedure(stream: TGLenum; x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3svATI = procedure(stream: TGLenum; const coords: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3iATI = procedure(stream: TGLenum; x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3ivATI = procedure(stream: TGLenum; const coords: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3fATI = procedure(stream: TGLenum; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3fvATI = procedure(stream: TGLenum; const coords: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3dATI = procedure(stream: TGLenum; x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream3dvATI = procedure(stream: TGLenum; const coords: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4sATI = procedure(stream: TGLenum; x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4svATI = procedure(stream: TGLenum; const coords: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4iATI = procedure(stream: TGLenum; x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4ivATI = procedure(stream: TGLenum; const coords: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4fATI = procedure(stream: TGLenum; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4fvATI = procedure(stream: TGLenum; const coords: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4dATI = procedure(stream: TGLenum; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexStream4dvATI = procedure(stream: TGLenum; const coords: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3bATI = procedure(stream: TGLenum; nx: TGLbyte; ny: TGLbyte; nz: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3bvATI = procedure(stream: TGLenum; const coords: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3sATI = procedure(stream: TGLenum; nx: TGLshort; ny: TGLshort; nz: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3svATI = procedure(stream: TGLenum; const coords: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3iATI = procedure(stream: TGLenum; nx: TGLint; ny: TGLint; nz: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3ivATI = procedure(stream: TGLenum; const coords: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3fATI = procedure(stream: TGLenum; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3fvATI = procedure(stream: TGLenum; const coords: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3dATI = procedure(stream: TGLenum; nx: TGLdouble; ny: TGLdouble; nz: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalStream3dvATI = procedure(stream: TGLenum; const coords: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClientActiveVertexStreamATI = procedure(stream: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexBlendEnviATI = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexBlendEnvfATI = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_AMD_performance_monitor
-  TglGetPerfMonitorGroupsAMD = procedure(numGroups: PGLint; groupsSize: GLsizei; groups: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPerfMonitorCountersAMD = procedure(group: GLuint; numCounters: PGLint; maxActiveCouters: PGLint; counterSize: GLsizei; counters: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPerfMonitorGroupStringAMD = procedure(group: GLuint; bufSize: GLsizei; length: PGLsizei; groupString: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPerfMonitorCounterStringAMD = procedure(group: GLuint; counter: GLuint; bufSize: GLsizei; length: PGLsizei; counterString: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPerfMonitorCounterInfoAMD = procedure(group: GLuint; counter: GLuint; pname: GLenum; data: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenPerfMonitorsAMD = procedure(n: GLsizei; monitors: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeletePerfMonitorsAMD = procedure(n: GLsizei; monitors: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSelectPerfMonitorCountersAMD = procedure(monitor: GLuint; enable: GLboolean; group: GLuint; numCounters: GLint; counterList: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginPerfMonitorAMD = procedure(monitor: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndPerfMonitorAMD = procedure(monitor: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPerfMonitorCounterDataAMD = procedure(monitor: GLuint; pname: GLenum; dataSize: GLsizei; data: PGLuint; bytesWritten: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_AMD_vertex_shader_tesselator
-  TglTessellationFactorAMD = procedure(factor: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTessellationModeAMD = procedure(mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  
-  // GL_EXT_blend_color
-  TglBlendColorEXT = procedure(red: TGLclampf; green: TGLclampf; blue: TGLclampf; alpha: TGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_blend_func_separate
-  TglBlendFuncSeparateEXT = procedure(sfactorRGB: TGLenum; dfactorRGB: TGLenum; sfactorAlpha: TGLenum; dfactorAlpha: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_blend_minmax
-  TglBlendEquationEXT = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_color_subtable
-  TglColorSubTableEXT = procedure(target: TGLenum; start: TGLsizei; count: TGLsizei; format: TGLenum; _type: TGLenum; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyColorSubTableEXT = procedure(target: TGLenum; start: TGLsizei; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_compiled_vertex_array
-  TglLockArraysEXT = procedure(first: TGLint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUnlockArraysEXT = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_convolution
-  TglConvolutionFilter1DEXT = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; format: TGLenum; _type: TGLenum; const image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionFilter2DEXT = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameterfEXT = procedure(target: TGLenum; pname: TGLenum; params: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameteriEXT = procedure(target: TGLenum; pname: TGLenum; params: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglConvolutionParameterivEXT = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyConvolutionFilter1DEXT = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyConvolutionFilter2DEXT = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionFilterEXT = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; image: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetConvolutionParameterivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetSeparableFilterEXT = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSeparableFilter2DEXT = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const row: PGLvoid; const column: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_coordinate_frame
-  TglTangent3bEXT = procedure(tx: TGLbyte; ty: TGLbyte; tz: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3bvEXT = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3dEXT = procedure(tx: TGLdouble; ty: TGLdouble; tz: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3dvEXT = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3fEXT = procedure(tx: TGLfloat; ty: TGLfloat; tz: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3fvEXT = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3iEXT = procedure(tx: TGLint; ty: TGLint; tz: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3ivEXT = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3sEXT = procedure(tx: TGLshort; ty: TGLshort; tz: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangent3svEXT = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3bEXT = procedure(bx: TGLbyte; by: TGLbyte; bz: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3bvEXT = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3dEXT = procedure(bx: TGLdouble; by: TGLdouble; bz: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3dvEXT = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3fEXT = procedure(bx: TGLfloat; by: TGLfloat; bz: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3fvEXT = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3iEXT = procedure(bx: TGLint; by: TGLint; bz: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3ivEXT = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3sEXT = procedure(bx: TGLshort; by: TGLshort; bz: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormal3svEXT = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTangentPointerEXT = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBinormalPointerEXT = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_copy_texture
-  TglCopyTexImage1DEXT = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; border: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexImage2DEXT = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei; border: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage1DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage2DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTexSubImage3DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_cull_vertex
-  TglCullParameterdvEXT = procedure(pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCullParameterfvEXT = procedure(pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_draw_range_elements
-  TglDrawRangeElementsEXT = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; count: TGLsizei; _type: TGLenum; const indices: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_fog_coord
-  TglFogCoordfEXT = procedure(coord: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordfvEXT = procedure(const coord: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoorddEXT = procedure(coord: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoorddvEXT = procedure(const coord: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordPointerEXT = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_framebuffer_object
-  TglIsRenderbufferEXT = function(renderbuffer: TGLuint): Boolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindRenderbufferEXT = procedure(target: TGLenum; renderbuffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteRenderbuffersEXT = procedure(n: TGLsizei; const renderbuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenRenderbuffersEXT = procedure(n: TGLsizei; renderbuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRenderbufferStorageEXT = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetRenderbufferParameterivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsFramebufferEXT = function(framebuffer: TGLuint): Boolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindFramebufferEXT = procedure(target: TGLenum; framebuffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteFramebuffersEXT = procedure(n: TGLsizei; const framebuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenFramebuffersEXT = procedure(n: TGLsizei; framebuffers: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCheckFramebufferStatusEXT = function(target: TGLenum): TGLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture1DEXT = procedure(target: TGLenum; attachment: TGLenum; textarget: TGLenum; texture: TGLuint; level: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture2DEXT = procedure(target: TGLenum; attachment: TGLenum; textarget: TGLenum; texture: TGLuint; level: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTexture3DEXT = procedure(target: TGLenum; attachment: TGLenum; textarget: TGLenum; texture: TGLuint; level: TGLint; zoffset: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferRenderbufferEXT = procedure(target: TGLenum; attachment: TGLenum; renderbuffertarget: TGLenum; renderbuffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFramebufferAttachmentParameterivEXT = procedure(target: TGLenum; attachment: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenerateMipmapEXT = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_histogram
-  TglGetHistogramEXT = procedure(target: TGLenum; reset: TGLboolean; format: TGLenum; _type: TGLenum; values: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHistogramParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetHistogramParameterivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmaxEXT = procedure(target: TGLenum; reset: TGLboolean; format: TGLenum; _type: TGLenum; values: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmaxParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMinmaxParameterivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglHistogramEXT = procedure(target: TGLenum; width: TGLsizei; internalformat: TGLenum; sink: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMinmaxEXT = procedure(target: TGLenum; internalformat: TGLenum; sink: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglResetHistogramEXT = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglResetMinmaxEXT = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_index_func
-  TglIndexFuncEXT = procedure(func: TGLenum; ref: TGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_index_material
-  TglIndexMaterialEXT = procedure(face: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_light_texture
-  TglApplyTextureEXT = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureLightEXT = procedure(pname: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureMaterialEXT = procedure(face: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_multi_draw_arrays
-  TglMultiDrawArraysEXT = procedure(mode: TGLenum; first: PGLint; count: PGLsizei; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiDrawElementsEXT = procedure(mode: TGLenum; const count: PGLsizei; _type: TGLenum; const indices: PGLvoid; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_multisample
-  TglSampleMaskEXT = procedure(value: TGLclampf; invert: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSamplePatternEXT = procedure(pattern: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_paletted_texture
-  TglColorTableEXT = procedure(target: TGLenum; internalFormat: TGLenum; width: TGLsizei; format: TGLenum; _type: TGLenum; const table: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableEXT = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameterivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_pixel_transform
-  TglPixelTransformParameteriEXT = procedure(target: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTransformParameterfEXT = procedure(target: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTransformParameterivEXT = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTransformParameterfvEXT = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_point_parameters
-  TglPointParameterfEXT = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterfvEXT = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_polygon_offset
-  TglPolygonOffsetEXT = procedure(factor: TGLfloat; bias: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_secondary_color
-  TglSecondaryColor3bEXT = procedure(red: TGLbyte; green: TGLbyte; blue: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3bvEXT = procedure(const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3dEXT = procedure(red: TGLdouble; green: TGLdouble; blue: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3dvEXT = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3fEXT = procedure(red: TGLfloat; green: TGLfloat; blue: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3fvEXT = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3iEXT = procedure(red: TGLint; green: TGLint; blue: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ivEXT = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3sEXT = procedure(red: TGLshort; green: TGLshort; blue: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3svEXT = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ubEXT = procedure(red: TGLubyte; green: TGLubyte; blue: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3ubvEXT = procedure(const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3uiEXT = procedure(red: TGLuint; green: TGLuint; blue: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3uivEXT = procedure(const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3usEXT = procedure(red: TGLushort; green: TGLushort; blue: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3usvEXT = procedure(const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColorPointerEXT = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_stencil_two_side
-  TglActiveStencilFaceEXT = procedure(face: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_subtexture
-  TglTexSubImage1DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; width: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage2DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; width: TGLsizei; height: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_texture3D
-  TglTexImage3DEXT = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; depth: TGLsizei; border: TGLint; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage3DEXT = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_texture_object
-  TglAreTexturesResidentEXT = function(n: TGLsizei; const textures: PGLuint; residences: PGLboolean): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindTextureEXT = procedure(target: TGLenum; texture: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteTexturesEXT = procedure(n: TGLsizei; const textures: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenTexturesEXT = procedure(n: TGLsizei; textures: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsTextureEXT = function(texture: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPrioritizeTexturesEXT = procedure(n: TGLsizei; const textures: PGLuint; const priorities: PGLclampf); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_texture_perturb_normal
-  TglTextureNormalEXT = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_vertex_array
-  TglArrayElementEXT = procedure(i: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorPointerEXT = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; count: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawArraysEXT = procedure(mode: TGLenum; first: TGLint; count: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEdgeFlagPointerEXT = procedure(stride: TGLsizei; count: TGLsizei; const _pointer: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPointervEXT = procedure(pname: TGLenum; params: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexPointerEXT = procedure(_type: TGLenum; stride: TGLsizei; count: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalPointerEXT = procedure(_type: TGLenum; stride: TGLsizei; count: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoordPointerEXT = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; count: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexPointerEXT = procedure(size: TGLint; _type: TGLenum; stride: TGLsizei; count: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_vertex_shader
-  TglBeginVertexShaderEXT = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndVertexShaderEXT = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindVertexShaderEXT = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenVertexShadersEXT = function(range: TGLuint): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteVertexShaderEXT = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShaderOp1EXT = procedure(op: TGLenum; res: TGLuint; arg1: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShaderOp2EXT = procedure(op: TGLenum; res: TGLuint; arg1: TGLuint; arg2: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglShaderOp3EXT = procedure(op: TGLenum; res: TGLuint; arg1: TGLuint; arg2: TGLuint; arg3: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSwizzleEXT = procedure(res: TGLuint; _in: TGLuint; outX: TGLenum; outY: TGLenum; outZ: TGLenum; outW: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWriteMaskEXT = procedure(res: TGLuint; _in: TGLuint; outX: TGLenum; outY: TGLenum; outZ: TGLenum; outW: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglInsertComponentEXT = procedure(res: TGLuint; src: TGLuint; num: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglExtractComponentEXT = procedure(res: TGLuint; src: TGLuint; num: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenSymbolsEXT = function(datatype: TGLenum; storagetype: TGLenum; range: TGLenum; components: TGLuint): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSetInvariantEXT = procedure(id: TGLuint; _type: TGLenum; const addr: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSetLocalConstantEXT = procedure(id: TGLuint; _type: TGLenum; const addr: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantbvEXT = procedure(id: TGLuint; const addr: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantsvEXT = procedure(id: TGLuint; const addr: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantivEXT = procedure(id: TGLuint; const addr: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantfvEXT = procedure(id: TGLuint; const addr: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantdvEXT = procedure(id: TGLuint; const addr: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantubvEXT = procedure(id: TGLuint; const addr: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantusvEXT = procedure(id: TGLuint; const addr: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantuivEXT = procedure(id: TGLuint; const addr: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVariantPointerEXT = procedure(id: TGLuint; _type: TGLenum; stride: TGLuint; const addr: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableVariantClientStateEXT = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableVariantClientStateEXT = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindLightParameterEXT = function(light: TGLenum; value: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindMaterialParameterEXT = function(face: TGLenum; value: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindTexGenParameterEXT = function(_unit: TGLenum; coord: TGLenum; value: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindTextureUnitParameterEXT = function(_unit: TGLenum; value: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindParameterEXT = function(value: TGLenum): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsVariantEnabledEXT = function(id: TGLuint; cap: TGLenum): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantBooleanvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantIntegervEXT = procedure(id: TGLuint; value: TGLenum; data: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantFloatvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVariantPointervEXT = procedure(id: TGLuint; value: TGLenum; data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetInvariantBooleanvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetInvariantIntegervEXT = procedure(id: TGLuint; value: TGLenum; data: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetInvariantFloatvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetLocalConstantBooleanvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetLocalConstantIntegervEXT = procedure(id: TGLuint; value: TGLenum; data: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetLocalConstantFloatvEXT = procedure(id: TGLuint; value: TGLenum; data: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_vertex_weighting
-  TglVertexWeightfEXT = procedure(weight: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexWeightfvEXT = procedure(const weight: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexWeightPointerEXT = procedure(size: TGLsizei; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_stencil_clear_tag
-  TglStencilClearTagEXT = procedure(stencilTagBits: TGLsizei; stencilClearTag: Tgluint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_framebuffer_blit
-  TglBlitFramebufferEXT = procedure(srcX0: TGLint; srcY0: TGLint; srcX1: TGLint; srcY1: TGLint; dstX0: TGLint; dstY0: TGLint; dstX1: TGLint; dstY1: TGLint; mask: TGLbitfield; filter: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_framebuffer_multisample
-  TglRenderbufferStorageMultisampleEXT = procedure(target: TGLenum; samples: TGLsizei; internalformat: TGLenum; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_timer_query
-  TglGetQueryObjecti64vEXT = procedure(id: TGLuint; pname: TGLenum; params: PGLint64EXT); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetQueryObjectui64vEXT = procedure(id: TGLuint; pname: TGLenum; params: PGLuint64EXT); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_gpu_program_parameters
-  TglProgramEnvParameters4fvEXT = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameters4fvEXT = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_bindable_uniform
-  TglUniformBufferEXT = procedure(_program: TGLuint; location: TGLint; buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformBufferSizeEXT = function(_program: TGLuint; location: TGLint): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformOffsetEXT = function(_program: TGLuint; location: TGLint): PGLInt; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_draw_buffers2
-  TglColorMaskIndexedEXT = procedure(buf: TGLuint; r: TGLboolean; g: TGLboolean; b: TGLboolean; a: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetBooleanIndexedvEXT = procedure(value: TGLenum; index: TGLuint; data: PGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetIntegerIndexedvEXT = procedure(value: TGLenum; index: TGLuint; data: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableIndexedEXT = procedure(target: TGLenum; index: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableIndexedEXT = procedure(target: TGLenum; index: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsEnabledIndexedEXT = function(target: TGLenum; index: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_draw_instanced
-  TglDrawArraysInstancedEXT = procedure(mode: TGLenum; first: TGLint; count: TGLsizei; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawElementsInstancedEXT = procedure(mode: TGLenum; count: TGLsizei; _type: TGLenum; const indices: Pointer; primcount: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_geometry_shader4
-  TglProgramParameteriEXT = procedure (_program: TGLuint; pname: TGLenum; value: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureEXT = procedure(target: TGLenum; attachment: TGLenum; texture: TGLuint; level: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-//  TglFramebufferTextureLayerEXT = procedure(target: TGLenum; attachment: TGLenum; texture: TGLuint; level: TGLint; layer: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferTextureFaceEXT = procedure(target: TGLenum; attachment: TGLenum; texture: TGLuint; level: TGLint; face: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_gpu_shader4
-  TglVertexAttribI1iEXT = procedure(index: TGLuint; x: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2iEXT = procedure(index: TGLuint; x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3iEXT = procedure(index: TGLuint; x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4iEXT = procedure(index: TGLuint; x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1uiEXT = procedure(index: TGLuint; x: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2uiEXT = procedure(index: TGLuint; x: TGLuint; y: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3uiEXT = procedure(index: TGLuint; x: TGLuint; y: TGLuint; z: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4uiEXT = procedure(index: TGLuint; x: TGLuint; y: TGLuint; z: TGLuint; w: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1ivEXT = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2ivEXT = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3ivEXT = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4ivEXT = procedure(index: TGLuint; const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI1uivEXT = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI2uivEXT = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI3uivEXT = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4uivEXT = procedure(index: TGLuint; const v: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4bvEXT = procedure(index: TGLuint; const v: PGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4svEXT = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4ubvEXT = procedure(index: TGLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribI4usvEXT = procedure(index: TGLuint; const v: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribIPointerEXT = procedure(index: TGLuint; size: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribIivEXT = procedure(index: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribIuivEXT = procedure(index: TGLuint; pname: TGLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1uiEXT = procedure(location: TGLint; v0: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2uiEXT = procedure(location: TGLint; v0: TGLuint; v1: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3uiEXT = procedure(location: TGLint; v0: TGLuint; v1: TGLuint; v2: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4uiEXT = procedure(location: TGLint; v0: TGLuint; v1: TGLuint; v2: TGLuint; v3: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform1uivEXT = procedure(location: TGLint; count: TGLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform2uivEXT = procedure(location: TGLint; count: TGLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform3uivEXT = procedure(location: TGLint; count: TGLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUniform4uivEXT = procedure(location: TGLint; count: TGLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetUniformuivEXT = procedure(_program: TGLuint; location: TGLint; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindFragDataLocationEXT = procedure(_program: TGLuint; colorNumber: TGLuint; const name: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragDataLocationEXT = function(_program: TGLuint; const name: PGLchar): TGLint;
-
-  // GL_EXT_texture_array
-  TglFramebufferTextureLayerEXT = procedure(target: TGLenum; attachment: TGLenum; texture: TGLuint; level: TGLint; layer: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_texture_buffer_object
-  TglTexBufferEXT = procedure(target: TGLenum; internalformat: TGLenum; buffer: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_texture_integer
-  TglClearColorIiEXT = procedure(r: TGLint; g: TGLint; b: TGLint; a: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearColorIuiEXT = procedure(r: TGLuint; g: TGLuint; b: TGLuint; a: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterIivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexParameterIuivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterIivEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTexParameterIiuvEXT = procedure(target: TGLenum; pname: TGLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_HP_image_transform
-  TglImageTransformParameteriHP = procedure(target: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglImageTransformParameterfHP = procedure(target: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglImageTransformParameterivHP = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglImageTransformParameterfvHP = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetImageTransformParameterivHP = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetImageTransformParameterfvHP = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_depth_bounds_test
-  TglDepthBoundsEXT = procedure(zmin: TGLclampd; zmax: TGLclampd); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_blend_equation_separate
-  TglBlendEquationSeparateEXT = procedure(modeRGB: TGLenum; modeAlpha: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_transform_feedback
-  TglBeginTransformFeedbackEXT = procedure(primitiveMode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndTransformFeedbackEXT = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferRangeEXT = procedure(target: GLenum; index_: GLuint; buffer: GLuint; offset: GLsizei; size: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferOffsetEXT = procedure(target: GLenum; index_: GLuint; buffer: GLuint; offset: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferBaseEXT = procedure(target: GLenum; index_: GLuint; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTransformFeedbackVaryingsEXT = procedure(program_: GLuint; count: GLsizei; const locations: PGLint; bufferMode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTransformFeedbackVaryingEXT = procedure(program_: GLuint; index_: GLuint; location: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_EXT_direct_state_access
-  TglClientAttribDefaultEXT = procedure(mask: GLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPushClientAttribDefaultEXT = procedure(mask: GLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixLoadfEXT = procedure(mode: GLenum; const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixLoaddEXT = procedure(mode: GLenum; const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixMultfEXT = procedure(mode: GLenum; const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixMultdEXT = procedure(mode: GLenum; const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixLoadIdentityEXT = procedure(mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixRotatefEXT = procedure(mode: GLenum; angle: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixRotatedEXT = procedure(mode: GLenum; angle: GLdouble; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixScalefEXT = procedure(mode: GLenum; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixScaledEXT = procedure(mode: GLenum; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixTranslatefEXT = procedure(mode: GLenum; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixTranslatedEXT = procedure(mode: GLenum; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixFrustumEXT = procedure(mode: GLenum; left: GLdouble; right: GLdouble; bottom: GLdouble; top: GLdouble; zNear: GLdouble; zFar: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixOrthoEXT = procedure(mode: GLenum; left: GLdouble; right: GLdouble; bottom: GLdouble; top: GLdouble; zNear: GLdouble; zFar: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixPopEXT = procedure(mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixPushEXT = procedure(mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixLoadTransposefEXT = procedure(mode: GLenum; const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixLoadTransposedEXT = procedure(mode: GLenum; const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixMultTransposefEXT = procedure(mode: GLenum; const m: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMatrixMultTransposedEXT = procedure(mode: GLenum; const m: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameterfEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameterfvEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameteriEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; param: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameterivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureSubImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureSubImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTextureImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; border: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTextureImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei; border: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTextureSubImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; x: GLint; y: GLint; width: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTextureSubImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureImageEXT = procedure(texture: GLuint; target: GLenum; level: GLint; format: GLenum; type_: GLenum; pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureParameterfvEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureParameterivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureLevelParameterfvEXT = procedure(texture: GLuint; target: GLenum; level: GLint; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureLevelParameterivEXT = procedure(texture: GLuint; target: GLenum; level: GLint; pname: GLenum; params: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureImage3DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureSubImage3DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyTextureSubImage3DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameterfEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameterfvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameteriEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameterivEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexSubImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexSubImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyMultiTexImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; border: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyMultiTexImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei; border: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyMultiTexSubImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; x: GLint; y: GLint; width: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyMultiTexSubImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexImageEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; format: GLenum; type_: GLenum; pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexParameterfvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexParameterivEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexLevelParameterfvEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexLevelParameterivEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexImage3DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; type_: GLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexSubImage3DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; type_: GLenum; const pixels:PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyMultiTexSubImage3DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindMultiTextureEXT = procedure(texunit: GLenum; target: GLenum; texture: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEnableClientStateIndexedEXT = procedure(array_: GLenum; index_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDisableClientStateIndexedEXT = procedure(array_: GLenum; index_: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoordPointerEXT = procedure(texunit: GLenum; size: GLint; type_: GLenum; stride: GLsizei; const pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexEnvfEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexEnvfvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexEnviEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexEnvivEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGendEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGendvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGenfEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGenfvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGeniEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; param: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexGenivEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexEnvfvEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexEnvivEXT = procedure(texunit: GLenum; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexGendvEXT = procedure(texunit: GLenum; coord: GLenum; pname: GLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexGenfvEXT = procedure(texunit: GLenum; coord: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexGenivEXT = procedure(texunit: GLenum; coord: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFloatIndexedvEXT = procedure(target: GLenum; index_: GLuint; data: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetDoubleIndexedvEXT = procedure(target: GLenum; index_: GLuint; data: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPointerIndexedvEXT = procedure(target: GLenum; index_: GLuint; data: PPGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureImage3DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureSubImage3DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureSubImage2DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedTextureSubImage1DEXT = procedure(texture: GLuint; target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCompressedTextureImageEXT = procedure(texture: GLuint; target: GLenum; lod: GLint; img: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexImage3DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexSubImage3DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexSubImage2DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCompressedMultiTexSubImage1DEXT = procedure(texunit: GLenum; target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const bits: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCompressedMultiTexImageEXT = procedure(texunit: GLenum; target: GLenum; lod: GLint; img: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramStringEXT = procedure(program_: GLuint; target: GLenum; format: GLenum; len: GLsizei; const string_: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameter4dEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameter4dvEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; const params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameter4fEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameter4fvEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramLocalParameterdvEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramLocalParameterfvEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramivEXT = procedure(program_: GLuint; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramStringEXT = procedure(program_: GLuint; target: GLenum; pname: GLenum; string_: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameters4fvEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; count: GLsizei; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameterI4iEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; x: GLint; y: GLint; z: GLint; w: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameterI4ivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParametersI4ivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; count: GLsizei; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameterI4uiEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; x: GLuint; y: GLuint; z: GLuint; w: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParameterI4uivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedProgramLocalParametersI4uivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; count: GLsizei; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramLocalParameterIivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedProgramLocalParameterIuivEXT = procedure(program_: GLuint; target: GLenum; index_: GLuint; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameterIivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureParameterIuivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureParameterIivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTextureParameterIuivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameterIivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexParameterIuivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexParameterIivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMultiTexParameterIuivEXT = procedure(texture: GLuint; target: GLenum; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1fEXT = procedure(program_: GLuint; location: GLint; v0: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2fEXT = procedure(program_: GLuint; location: GLint; v0: GLfloat; v1: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3fEXT = procedure(program_: GLuint; location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4fEXT = procedure(program_: GLuint; location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat; v3: GLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1iEXT = procedure(program_: GLuint; location: GLint; v0: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2iEXT = procedure(program_: GLuint; location: GLint; v0: GLint; v1: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3iEXT = procedure(program_: GLuint; location: GLint; v0: GLint; v1: GLint; v2: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4iEXT = procedure(program_: GLuint; location: GLint; v0: GLint; v1: GLint; v2: GLint; v3: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1ivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2ivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3ivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4ivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix2fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix3fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix4fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix2x3fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix3x2fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix2x4fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix4x2fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix3x4fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniformMatrix4x3fvEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1uiEXT = procedure(program_: GLuint; location: GLint; v0: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2uiEXT = procedure(program_: GLuint; location: GLint; v0: GLuint; v1: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3uiEXT = procedure(program_: GLuint; location: GLint; v0: GLuint; v1: GLuint; v2: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4uiEXT = procedure(program_: GLuint; location: GLint; v0: GLuint; v1: GLuint; v2: GLuint; v3: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform1uivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform2uivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform3uivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramUniform4uivEXT = procedure(program_: GLuint; location: GLint; count: GLsizei; const value: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedBufferDataEXT = procedure(buffer: GLuint; size: GLsizei; const data: PGLvoid; usage: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedBufferSubDataEXT = procedure(buffer: GLuint; offset: GLsizei; size: GLsizei; const data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapNamedBufferEXT = function(buffer: GLuint; access: GLenum): PGLvoid; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglUnmapNamedBufferEXT = function(buffer: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedBufferParameterivEXT = procedure(buffer: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedBufferPointervEXT = procedure(buffer: GLuint; pname: GLenum; params: PPGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedBufferSubDataEXT = procedure(buffer: GLuint; offset: GLsizei; size: GLsizei; data: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureBufferEXT = procedure(texture: GLuint; target: GLenum; internalformat: GLenum; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexBufferEXT = procedure(texunit: GLenum; target: GLenum; interformat: GLenum; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedRenderbufferStorageEXT = procedure(renderbuffer: GLuint; interformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedRenderbufferParameterivEXT = procedure(renderbuffer: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCheckNamedFramebufferStatusEXT = function(framebuffer: GLuint; target: GLenum): GLenum; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTexture1DEXT = procedure(framebuffer: GLuint; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTexture2DEXT = procedure(framebuffer: GLuint; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTexture3DEXT = procedure(framebuffer: GLuint; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint; zoffset: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferRenderbufferEXT = procedure(framebuffer: GLuint; attachment: GLenum; renderbuffertarget: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetNamedFramebufferAttachmentParameterivEXT = procedure(framebuffer: GLuint; attachment: GLenum; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenerateTextureMipmapEXT = procedure(texture: GLuint; target: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenerateMultiTexMipmapEXT = procedure(texunit: GLenum; target: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferDrawBufferEXT = procedure(framebuffer: GLuint; mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferDrawBuffersEXT = procedure(framebuffer: GLuint; n: GLsizei; const bufs: PGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFramebufferReadBufferEXT = procedure(framebuffer: GLuint; mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFramebufferParameterivEXT = procedure(framebuffer: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedRenderbufferStorageMultisampleEXT = procedure(renderbuffer: GLuint; samples: GLsizei; internalformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedRenderbufferStorageMultisampleCoverageEXT = procedure(renderbuffer: GLuint; coverageSamples: GLsizei; colorSamples: GLsizei; internalformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTextureEXT = procedure(framebuffer: GLuint; attachment: GLenum; texture: GLuint; level: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTextureLayerEXT = procedure(framebuffer: GLuint; attachment: GLenum; texture: GLuint; level: GLint; layer: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNamedFramebufferTextureFaceEXT = procedure(framebuffer: GLuint; attachment: GLenum; texture: GLuint; level: GLint; face: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTextureRenderbufferEXT = procedure(texture: GLuint; target: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexRenderbufferEXT = procedure(texunit: GLenum; target: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_IBM_multimode_draw_arrays
-  TglMultiModeDrawArraysIBM = procedure(mode: TGLenum; const first: PGLint; const count: PGLsizei; primcount: TGLsizei; modestride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiModeDrawElementsIBM = procedure(const mode: PGLenum; const count: PGLsizei; _type: TGLenum; const indices: PGLvoid; primcount: TGLsizei; modestride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_IBM_vertex_array_lists
-  TglColorPointerListIBM = procedure(size: TGLint; _type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColorPointerListIBM = procedure(size: TGLint; _type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEdgeFlagPointerListIBM = procedure(stride: TGLint; const _pointer: PGLboolean; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordPointerListIBM = procedure(_type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIndexPointerListIBM = procedure(_type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalPointerListIBM = procedure(_type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoordPointerListIBM = procedure(size: TGLint; _type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexPointerListIBM = procedure(size: TGLint; _type: TGLenum; stride: TGLint; const _pointer: PGLvoid; ptrstride: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_INGR_blend_func_separate
-  TglBlendFuncSeparateINGR = procedure(sfactorRGB: TGLenum; dfactorRGB: TGLenum; sfactorAlpha: TGLenum; dfactorAlpha: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_INTEL_parallel_arrays
-  TglVertexPointervINTEL = procedure(size: TGLint; _type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormalPointervINTEL = procedure(_type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorPointervINTEL = procedure(size: TGLint; _type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoordPointervINTEL = procedure(size: TGLint; _type: TGLenum; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_MESA_resize_buffers
-  TglResizeBuffersMESA = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_MESA_window_pos
-  TglWindowPos2dMESA = procedure(x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2dvMESA = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2fMESA = procedure(x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2fvMESA = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2iMESA = procedure(x: TGLint; y: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2ivMESA = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2sMESA = procedure(x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos2svMESA = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3dMESA = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3dvMESA = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3fMESA = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3fvMESA = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3iMESA = procedure(x: TGLint; y: TGLint; z: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3ivMESA = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3sMESA = procedure(x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos3svMESA = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4dMESA = procedure(x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4dvMESA = procedure(const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4fMESA = procedure(x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4fvMESA = procedure(const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4iMESA = procedure(x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4ivMESA = procedure(const v: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4sMESA = procedure(x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglWindowPos4svMESA = procedure(const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_evaluators
-  TglMapControlPointsNV = procedure(target: TGLenum; index: TGLuint; _type: TGLenum; ustride: TGLsizei; vstride: TGLsizei; uorder: TGLint; vorder: TGLint; _packed: TGLboolean; const points: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapParameterivNV = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMapParameterfvNV = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapControlPointsNV = procedure(target: TGLenum; index: TGLuint; _type: TGLenum; ustride: TGLsizei; vstride: TGLsizei; _packed: TGLboolean; points: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapParameterivNV = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapParameterfvNV = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapAttribParameterivNV = procedure(target: TGLenum; index: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetMapAttribParameterfvNV = procedure(target: TGLenum; index: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEvalMapsNV = procedure(target: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_fence
-  TglDeleteFencesNV = procedure(n: TGLsizei; const fences: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenFencesNV = procedure(n: TGLsizei; fences: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsFenceNV = function(fence: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTestFenceNV = function(fence: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFenceivNV = procedure(fence: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinishFenceNV = procedure(fence: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSetFenceNV = procedure(fence: TGLuint; condition: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_fragment_program
-  TglProgramNamedParameter4fNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramNamedParameter4dNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramNamedParameter4fvNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramNamedParameter4dvNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramNamedParameterfvNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramNamedParameterdvNV = procedure(id: TGLuint; len: TGLsizei; const name: PGLubyte; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_half_float
-  TglVertex2hNV = procedure(x: TGLhalfNV; y: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex2hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3hNV = procedure(x: TGLhalfNV; y: TGLhalfNV; z: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex3hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4hNV = procedure(x: TGLhalfNV; y: TGLhalfNV; z: TGLhalfNV; w: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertex4hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3hNV = procedure(nx: TGLhalfNV; ny: TGLhalfNV; nz: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3hNV = procedure(red: TGLhalfNV; green: TGLhalfNV; blue: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4hNV = procedure(red: TGLhalfNV; green: TGLhalfNV; blue: TGLhalfNV; alpha: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1hNV = procedure(s: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord1hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2hNV = procedure(s: TGLhalfNV; t: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3hNV = procedure(s: TGLhalfNV; t: TGLhalfNV; r: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord3hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4hNV = procedure(s: TGLhalfNV; t: TGLhalfNV; r: TGLhalfNV; q: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1hNV = procedure(target: TGLenum; s: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord1hvNV = procedure(target: TGLenum; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2hNV = procedure(target: TGLenum; s: TGLhalfNV; t: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord2hvNV = procedure(target: TGLenum; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3hNV = procedure(target: TGLenum; s: TGLhalfNV; t: TGLhalfNV; r: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord3hvNV = procedure(target: TGLenum; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4hNV = procedure(target: TGLenum; s: TGLhalfNV; t: TGLhalfNV; r: TGLhalfNV; q: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglMultiTexCoord4hvNV = procedure(target: TGLenum; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordhNV = procedure(fog: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFogCoordhvNV = procedure(const fog: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3hNV = procedure(red: TGLhalfNV; green: TGLhalfNV; blue: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSecondaryColor3hvNV = procedure(const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexWeighthNV = procedure(weight: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexWeighthvNV = procedure(const weight: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1hNV = procedure(index: TGLuint; x: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1hvNV = procedure(index: TGLuint; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2hNV = procedure(index: TGLuint; x: TGLhalfNV; y: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2hvNV = procedure(index: TGLuint; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3hNV = procedure(index: TGLuint; x: TGLhalfNV; y: TGLhalfNV; z: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3hvNV = procedure(index: TGLuint; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4hNV = procedure(index: TGLuint; x: TGLhalfNV; y: TGLhalfNV; z: TGLhalfNV; w: TGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4hvNV = procedure(index: TGLuint; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs1hvNV = procedure(index: TGLuint; n: TGLsizei; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs2hvNV = procedure(index: TGLuint; n: TGLsizei; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs3hvNV = procedure(index: TGLuint; n: TGLsizei; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs4hvNV = procedure(index: TGLuint; n: TGLsizei; const v: PGLhalfNV); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_occlusion_query
-  TglGenOcclusionQueriesNV = procedure(n: TGLsizei; ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteOcclusionQueriesNV = procedure(n: TGLsizei; const ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsOcclusionQueryNV = function(id: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBeginOcclusionQueryNV = procedure(id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndOcclusionQueryNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetOcclusionQueryivNV = procedure(id: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetOcclusionQueryuivNV = procedure(id: TGLuint; pname: TGLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_pixel_data_range
-  TglPixelDataRangeNV = procedure(target: TGLenum; length: TGLsizei; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFlushPixelDataRangeNV = procedure(target: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_point_sprite
-  TglPointParameteriNV = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterivNV = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_primitive_restart
-  TglPrimitiveRestartNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPrimitiveRestartIndexNV = procedure(index: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_register_combiners
-  TglCombinerParameterfvNV = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCombinerParameterfNV = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCombinerParameterivNV = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCombinerParameteriNV = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCombinerInputNV = procedure(stage: TGLenum; portion: TGLenum; variable: TGLenum; input: TGLenum; mapping: TGLenum; componentUsage: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCombinerOutputNV = procedure(stage: TGLenum; portion: TGLenum; abOutput: TGLenum; cdOutput: TGLenum; sumOutput: TGLenum; scale: TGLenum; bias: TGLenum; abDotProduct: TGLboolean; cdDotProduct: TGLboolean; muxSum: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinalCombinerInputNV = procedure(variable: TGLenum; input: TGLenum; mapping: TGLenum; componentUsage: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCombinerInputParameterfvNV = procedure(stage: TGLenum; portion: TGLenum; variable: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCombinerInputParameterivNV = procedure(stage: TGLenum; portion: TGLenum; variable: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCombinerOutputParameterfvNV = procedure(stage: TGLenum; portion: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCombinerOutputParameterivNV = procedure(stage: TGLenum; portion: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFinalCombinerInputParameterfvNV = procedure(variable: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFinalCombinerInputParameterivNV = procedure(variable: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_register_combiners2
-  TglCombinerStageParameterfvNV = procedure(stage: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetCombinerStageParameterfvNV = procedure(stage: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_vertex_array_range
-  TglFlushVertexArrayRangeNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexArrayRangeNV = procedure(length: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_vertex_program
-  TglAreProgramsResidentNV = function(n: TGLsizei; const programs: PGLuint; residences: PGLboolean): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindProgramNV = procedure(target: TGLenum; id: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteProgramsNV = procedure(n: TGLsizei; const programs: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglExecuteProgramNV = procedure(target: TGLenum; id: TGLuint; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenProgramsNV = procedure(n: TGLsizei; programs: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramParameterdvNV = procedure(target: TGLenum; index: TGLuint; pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramParameterfvNV = procedure(target: TGLenum; index: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramivNV = procedure(id: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramStringNV = procedure(id: TGLuint; pname: TGLenum; _program: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTrackMatrixivNV = procedure(target: TGLenum; address: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribdvNV = procedure(index: TGLuint; pname: TGLenum; params: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribfvNV = procedure(index: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribivNV = procedure(index: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVertexAttribPointervNV = procedure(index: TGLuint; pname: TGLenum; _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsProgramNV = function(id: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadProgramNV = procedure(target: TGLenum; id: TGLuint; len: TGLsizei; const _program: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameter4dNV = procedure(target: TGLenum; index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameter4dvNV = procedure(target: TGLenum; index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameter4fNV = procedure(target: TGLenum; index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameter4fvNV = procedure(target: TGLenum; index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameters4dvNV = procedure(target: TGLenum; index: TGLuint; count: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramParameters4fvNV = procedure(target: TGLenum; index: TGLuint; count: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglRequestResidentProgramsNV = procedure(n: TGLsizei; const programs: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTrackMatrixNV = procedure(target: TGLenum; address: TGLuint; matrix: TGLenum; transform: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribPointerNV = procedure(index: TGLuint; fsize: TGLint; _type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1dNV = procedure(index: TGLuint; x: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1dvNV = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1fNV = procedure(index: TGLuint; x: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1fvNV = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1sNV = procedure(index: TGLuint; x: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib1svNV = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2dNV = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2dvNV = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2fNV = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2fvNV = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2sNV = procedure(index: TGLuint; x: TGLshort; y: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib2svNV = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3dNV = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3dvNV = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3fNV = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3fvNV = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3sNV = procedure(index: TGLuint; x: TGLshort; y: TGLshort; z: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib3svNV = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4dNV = procedure(index: TGLuint; x: TGLdouble; y: TGLdouble; z: TGLdouble; w: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4dvNV = procedure(index: TGLuint; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4fNV = procedure(index: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4fvNV = procedure(index: TGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4sNV = procedure(index: TGLuint; x: TGLshort; y: TGLshort; z: TGLshort; w: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4svNV = procedure(index: TGLuint; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4ubNV = procedure(index: TGLuint; x: TGLubyte; y: TGLubyte; z: TGLubyte; w: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttrib4ubvNV = procedure(index: TGLuint; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs1dvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs1fvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs1svNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs2dvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs2fvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs2svNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs3dvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs3fvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs3svNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs4dvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs4fvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs4svNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglVertexAttribs4ubvNV = procedure(index: TGLuint; count: TGLsizei; const v: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_depth_buffer_float
-  TglDepthRangedNV = procedure(n: TGLdouble; f: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglClearDepthdNV = procedure(d: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDepthBoundsdNV = procedure(zmin: TGLdouble; zmax: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_framebuffer_multisample_coverage
-  TglRenderbufferStorageMultsampleCoverageNV = procedure(target: TGLenum; coverageSamples: TGLsizei; colorSamples: TGLsizei; internalformat: TGLenum; width: TGLsizei; height: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_geometry_program4
-  TglProgramVertexLimitNV = procedure(target: TGLenum; limit: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_gpu_program4
-  TglProgramLocalParameterI4iNV = procedure(target: TGLenum; index: TGLuint; x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameterI4ivNV = procedure(target: TGLenum; index: TGLuint; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParametersI4ivNV = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameterI4uiNV = procedure(target: TGLenum; index: TGLuint; x: TGLuint; y: TGLuint; z: TGLuint; w: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParameterI4uivNV = procedure(target: TGLenum; index: TGLuint; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramLocalParametersI4uivNV = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameterI4iNV = procedure(target: TGLenum; index: TGLuint; x: TGLint; y: TGLint; z: TGLint; w: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameterI4ivNV = procedure(target: TGLenum; index: TGLuint; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParametersI4ivNV = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameterI4uiNV = procedure(target: TGLenum; index: TGLuint; x: TGLuint; y: TGLuint; z: TGLuint; w: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParameterI4uivNV = procedure(target: TGLenum; index: TGLuint; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramEnvParametersI4uivNV = procedure(target: TGLenum; index: TGLuint; count: TGLsizei; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramLocalParameterIivNV = procedure(target: TGLenum; index: TGLuint; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramLocalParameterIuivNV = procedure(target: TGLenum; index: TGLuint; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramEnvParameterIivNV = procedure(target: TGLenum; index: TGLuint; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetProgramEnvParameterIuivNV = procedure(target: TGLenum; index: TGLuint; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_parameter_buffer_object
-  TglProgramBufferParametersfvNV = procedure(target: TGLenum; buffer: TGLuint; index: TGLuint; count: TGLsizei; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramBufferParametersIivNV = procedure(target: TGLenum; buffer: TGLuint; index: TGLuint; count: TGLsizei; const params: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglProgramBufferParametersIuivNV = procedure(target: TGLenum; buffer: TGLuint; index: TGLuint; count: TGLuint; const params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_transform_feedback
-  TglBeginTransformFeedbackNV = procedure(primitiveMode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndTransformFeedbackNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTransformFeedbackAttribsNV = procedure(count: TGLsizei; const attribs: TGLint; bufferMode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferRangeNV = procedure(target: GLenum; index: GLuint; buffer: GLuint; offset: GLint; size: GLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferOffsetNV = procedure(target: GLenum; index: GLuint; buffer: GLuint; offset: GLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglBindBufferBaseNV = procedure(target: GLenum; index: GLuint; buffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTransformFeedbackVaryingsNV = procedure(program_: TGLuint; count: TGLsizei; const varyings: PPGLchar; bufferMode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglActiveVaryingNV = procedure(program_: TGLuint; const name: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVaryingLocationNV = function(program_: TGLuint; const name: PGLchar): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetActiveVaryingNV = procedure(program_: TGLuint; index: TGLuint; bufSize: TGLsizei; length: PGLsizei; size: PGLsizei; _type: PGLenum; name: PGLchar); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetTransformFeedbackVaryingNV = procedure(program_: TGLuint; index: TGLuint; location: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_conditional_render
-  TglBeginConditionalRenderNV = procedure(id: GLuint; mode: GLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglEndConditionalRenderNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_present_video
-  TglPresentFrameKeyedNV = procedure(video_slot: GLuint; minPresentTime: GLuint64EXT; beginPresentTimeId: GLuint; presentDuratioId: GLuint; type_: GLenum; target0: GLenum; fill0: GLuint; key0: GLuint; target1: GLenum; fill1: GLuint; key1: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPresentFrameDualFillNV = procedure(video_slot: GLuint; minPresentTime: GLuint64EXT; beginPresentTimeId: GLuint; presentDurationId: GLuint; type_: GLenum; target0: GLenum; fill0: GLuint; target1: GLenum; fill1: GLuint; target2: GLenum; fill2: GLuint; target3: GLenum; fill3: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVideoivNV = procedure(video_slot: GLuint; pname: GLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVideouivNV = procedure(video_slot: GLuint; pname: GLenum; params: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVideoi64vNV = procedure(video_slot: GLuint; pname: GLenum; params: PGLint64EXT); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetVideoui64vNV = procedure(video_slot: GLuint; pname: GLenum; params: PGLuint64EXT); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-//  TglVideoParameterivNV = procedure(video_slot: GLuint; pname: GLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  
-  // GL_NV_explicit_multisample
-  TglGetMultisamplefvNV = procedure (pname: GLenum; index: GLuint; val: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSampleMaskIndexedNV = procedure (index: GLuint; mask: GLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexRenderbufferNV = procedure (target: GLenum; renderbuffer: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_NV_transform_feedback2
-  TglBindTransformFeedbackNV = procedure(target: GLenum; id: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteTransformFeedbacksNV = procedure(n: GLsizei; ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenTransformFeedbacksNV = procedure(n: GLsizei; ids: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsTransformFeedbackNV = function (id: GLuint): GLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPauseTransformFeedbackNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglResumeTransformFeedbackNV = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDrawTransformFeedbackNV = procedure(mode: GLenum; id: GLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_PGI_misc_hints
-  TglHintPGI = procedure(target: TGLenum; mode: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_detail_texture
-  TglDetailTexFuncSGIS = procedure(target: TGLenum; n: TGLsizei; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetDetailTexFuncSGIS = procedure(target: TGLenum; points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_fog_function
-  TglFogFuncSGIS = procedure(n: TGLsizei; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFogFuncSGIS = procedure(points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_multisample
-  TglSampleMaskSGIS = procedure(value: TGLclampf; invert: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSamplePatternSGIS = procedure(pattern: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_pixel_texture
-  TglPixelTexGenParameteriSGIS = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTexGenParameterivSGIS = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTexGenParameterfSGIS = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPixelTexGenParameterfvSGIS = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPixelTexGenParameterivSGIS = procedure(pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetPixelTexGenParameterfvSGIS = procedure(pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_point_parameters
-  TglPointParameterfSGIS = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPointParameterfvSGIS = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_sharpen_texture
-  TglSharpenTexFuncSGIS = procedure(target: TGLenum; n: TGLsizei; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetSharpenTexFuncSGIS = procedure(target: TGLenum; points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_texture4D
-  TglTexImage4DSGIS = procedure(target: TGLenum; level: TGLint; internalformat: TGLenum; width: TGLsizei; height: TGLsizei; depth: TGLsizei; size4d: TGLsizei; border: TGLint; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexSubImage4DSGIS = procedure(target: TGLenum; level: TGLint; xoffset: TGLint; yoffset: TGLint; zoffset: TGLint; woffset: TGLint; width: TGLsizei; height: TGLsizei; depth: TGLsizei; size4d: TGLsizei; format: TGLenum; _type: TGLenum; const pixels: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_texture_color_mask
-  TglTextureColorMaskSGIS = procedure(red: TGLboolean; green: TGLboolean; blue: TGLboolean; alpha: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIS_texture_filter4
-  TglGetTexFilterFuncSGIS = procedure(target: TGLenum; filter: TGLenum; weights: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexFilterFuncSGIS = procedure(target: TGLenum; filter: TGLenum; n: TGLsizei; const weights: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_async
-  TglAsyncMarkerSGIX = procedure(marker: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFinishAsyncSGIX = function(markerp: PGLuint): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPollAsyncSGIX = function(markerp: PGLuint): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGenAsyncMarkersSGIX = function(range: TGLsizei): TGLuint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeleteAsyncMarkersSGIX = procedure(marker: TGLuint; range: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglIsAsyncMarkerSGIX = function(marker: TGLuint): TGLboolean; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_flush_raster
-  TglFlushRasterSGIX = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_fragment_lighting
-  TglFragmentColorMaterialSGIX = procedure(face: TGLenum; mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightfSGIX = procedure(light: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightfvSGIX = procedure(light: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightiSGIX = procedure(light: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightivSGIX = procedure(light: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightModelfSGIX = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightModelfvSGIX = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightModeliSGIX = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentLightModelivSGIX = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentMaterialfSGIX = procedure(face: TGLenum; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentMaterialfvSGIX = procedure(face: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentMaterialiSGIX = procedure(face: TGLenum; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglFragmentMaterialivSGIX = procedure(face: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragmentLightfvSGIX = procedure(light: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragmentLightivSGIX = procedure(light: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragmentMaterialfvSGIX = procedure(face: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetFragmentMaterialivSGIX = procedure(face: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLightEnviSGIX = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_framezoom
-  TglFrameZoomSGIX = procedure(factor: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_igloo_interface
-  TglIglooInterfaceSGIX = procedure(pname: TGLenum; const params: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_instruments
-  TglGetInstrumentsSGIX = function(): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglInstrumentsBufferSGIX = procedure(size: TGLsizei; buffer: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglPollInstrumentsSGIX = function(marker_p: PGLint): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReadInstrumentsSGIX = procedure(marker: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStartInstrumentsSGIX = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglStopInstrumentsSGIX = procedure(marker: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_list_priority
-  TglGetListParameterfvSGIX = procedure(list: TGLuint; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetListParameterivSGIX = procedure(list: TGLuint; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglListParameterfSGIX = procedure(list: TGLuint; pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglListParameterfvSGIX = procedure(list: TGLuint; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglListParameteriSGIX = procedure(list: TGLuint; pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglListParameterivSGIX = procedure(list: TGLuint; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_pixel_texture
-  TglPixelTexGenSGIX = procedure(mode: TGLenum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_polynomial_ffd
-  TglDeformationMap3dSGIX = procedure(target: TGLenum; u1: TGLdouble; u2: TGLdouble; ustride: TGLint; uorder: TGLint; v1: TGLdouble; v2: TGLdouble; vstride: TGLint; vorder: TGLint; w1: TGLdouble; w2: TGLdouble; wstride: TGLint; worder: TGLint; const points: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeformationMap3fSGIX = procedure(target: TGLenum; u1: TGLfloat; u2: TGLfloat; ustride: TGLint; uorder: TGLint; v1: TGLfloat; v2: TGLfloat; vstride: TGLint; vorder: TGLint; w1: TGLfloat; w2: TGLfloat; wstride: TGLint; worder: TGLint; const points: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglDeformSGIX = procedure(mask: TGLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglLoadIdentityDeformationMapSGIX = procedure(mask: TGLbitfield); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_reference_plane
-  TglReferencePlaneSGIX = procedure(const equation: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_sprite
-  TglSpriteParameterfSGIX = procedure(pname: TGLenum; param: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSpriteParameterfvSGIX = procedure(pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSpriteParameteriSGIX = procedure(pname: TGLenum; param: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglSpriteParameterivSGIX = procedure(pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGIX_tag_sample_buffer
-  TglTagSampleBufferSGIX = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SGI_color_table
-  TglColorTableSGI = procedure(target: TGLenum; internalformat: TGLenum; width: TGLsizei; format: TGLenum; _type: TGLenum; const table: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorTableParameterfvSGI = procedure(target: TGLenum; pname: TGLenum; const params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColorTableParameterivSGI = procedure(target: TGLenum; pname: TGLenum; const params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglCopyColorTableSGI = procedure(target: TGLenum; internalformat: TGLenum; x: TGLint; y: TGLint; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableSGI = procedure(target: TGLenum; format: TGLenum; _type: TGLenum; table: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameterfvSGI = procedure(target: TGLenum; pname: TGLenum; params: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGetColorTableParameterivSGI = procedure(target: TGLenum; pname: TGLenum; params: PGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SUNX_constant_data
-  TglFinishTextureSUNX = procedure(); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SUN_global_alpha
-  TglGlobalAlphaFactorbSUN = procedure(factor: TGLbyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactorsSUN = procedure(factor: TGLshort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactoriSUN = procedure(factor: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactorfSUN = procedure(factor: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactordSUN = procedure(factor: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactorubSUN = procedure(factor: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactorusSUN = procedure(factor: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglGlobalAlphaFactoruiSUN = procedure(factor: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SUN_mesh_array
-  TglDrawMeshArraysSUN = procedure(mode: TGLenum; first: TGLint; count: TGLsizei; width: TGLsizei); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SUN_triangle_list
-  TglReplacementCodeuiSUN = procedure(code: TGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeusSUN = procedure(code: TGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeubSUN = procedure(code: TGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuivSUN = procedure(const code: PGLuint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeusvSUN = procedure(const code: PGLushort); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeubvSUN = procedure(const code: PGLubyte); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodePointerSUN = procedure(_type: TGLenum; stride: TGLsizei; const _pointer: PGLvoid); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // GL_SUN_vertex
-  TglColor4ubVertex2fSUN = procedure(r: TGLubyte; g: TGLubyte; b: TGLubyte; a: TGLubyte; x: TGLfloat; y: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ubVertex2fvSUN = procedure(const c: PGLubyte; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ubVertex3fSUN = procedure(r: TGLubyte; g: TGLubyte; b: TGLubyte; a: TGLubyte; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4ubVertex3fvSUN = procedure(const c: PGLubyte; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3fVertex3fSUN = procedure(r: TGLfloat; g: TGLfloat; b: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor3fVertex3fvSUN = procedure(const c: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3fVertex3fSUN = procedure(nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglNormal3fVertex3fvSUN = procedure(const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4fNormal3fVertex3fSUN = procedure(r: TGLfloat; g: TGLfloat; b: TGLfloat; a: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglColor4fNormal3fVertex3fvSUN = procedure(const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fVertex3fSUN = procedure(s: TGLfloat; t: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fVertex3fvSUN = procedure(const tc: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4fVertex4fSUN = procedure(s: TGLfloat; t: TGLfloat; p: TGLfloat; q: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4fVertex4fvSUN = procedure(const tc: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor4ubVertex3fSUN = procedure(s: TGLfloat; t: TGLfloat; r: TGLubyte; g: TGLubyte; b: TGLubyte; a: TGLubyte; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor4ubVertex3fvSUN = procedure(const tc: PGLfloat; const c: PGLubyte; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor3fVertex3fSUN = procedure(s: TGLfloat; t: TGLfloat; r: TGLfloat; g: TGLfloat; b: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor3fVertex3fvSUN = procedure(const tc: PGLfloat; const c: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fNormal3fVertex3fSUN = procedure(s: TGLfloat; t: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fNormal3fVertex3fvSUN = procedure(const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor4fNormal3fVertex3fSUN = procedure(s: TGLfloat; t: TGLfloat; r: TGLfloat; g: TGLfloat; b: TGLfloat; a: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord2fColor4fNormal3fVertex3fvSUN = procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4fColor4fNormal3fVertex4fSUN = procedure(s: TGLfloat; t: TGLfloat; p: TGLfloat; q: TGLfloat; r: TGLfloat; g: TGLfloat; b: TGLfloat; a: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat; w: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglTexCoord4fColor4fNormal3fVertex4fvSUN = procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiVertex3fSUN = procedure(rc: TGLuint; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiVertex3fvSUN = procedure(const rc: PGLuint; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor4ubVertex3fSUN = procedure(rc: TGLuint; r: TGLubyte; g: TGLubyte; b: TGLubyte; a: TGLubyte; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor4ubVertex3fvSUN = procedure(const rc: PGLuint; const c: PGLubyte; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor3fVertex3fSUN = procedure(rc: TGLuint; r: TGLfloat; g: TGLfloat; b: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor3fVertex3fvSUN = procedure(const rc: PGLuint; const c: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiNormal3fVertex3fSUN = procedure(rc: TGLuint; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiNormal3fVertex3fvSUN = procedure(const rc: PGLuint; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor4fNormal3fVertex3fSUN = procedure(rc: TGLuint; r: TGLfloat; g: TGLfloat; b: TGLfloat; a: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiColor4fNormal3fVertex3fvSUN = procedure(const rc: PGLuint; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fVertex3fSUN = procedure(rc: TGLuint; s: TGLfloat; t: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fVertex3fvSUN = procedure(const rc: PGLuint; const tc: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fNormal3fVertex3fSUN = procedure(rc: TGLuint; s: TGLfloat; t: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN = procedure(const rc: PGLuint; const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN = procedure(rc: TGLuint; s: TGLfloat; t: TGLfloat; r: TGLfloat; g: TGLfloat; b: TGLfloat; a: TGLfloat; nx: TGLfloat; ny: TGLfloat; nz: TGLfloat; x: TGLfloat; y: TGLfloat; z: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TglReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN = procedure(const rc: PGLuint; const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-  // window support functions
-{$IFDEF DGL_WIN}
-  TwglGetProcAddress = function(ProcName: PAnsiChar): Pointer; stdcall;
-  TwglCopyContext = function(p1: HGLRC; p2: HGLRC; p3: Cardinal): BOOL; stdcall;
-  TwglCreateContext = function(DC: HDC): HGLRC; stdcall;
-  TwglCreateLayerContext = function(p1: HDC; p2: Integer): HGLRC; stdcall;
-  TwglDeleteContext = function(p1: HGLRC): BOOL; stdcall;
-  TwglDescribeLayerPlane = function(p1: HDC; p2, p3: Integer; p4: Cardinal; p5: PLayerPlaneDescriptor): BOOL; stdcall;
-  TwglGetCurrentContext = function: HGLRC; stdcall;
-  TwglGetCurrentDC = function: HDC; stdcall;
-  TwglGetLayerPaletteEntries = function(p1: HDC; p2, p3, p4: Integer; var pcr): Integer; stdcall;
-  TwglMakeCurrent = function(DC: HDC; p2: HGLRC): BOOL; stdcall;
-  TwglRealizeLayerPalette = function(p1: HDC; p2: Integer; p3: BOOL): BOOL; stdcall;
-  TwglSetLayerPaletteEntries = function(p1: HDC; p2, p3, p4: Integer; var pcr): Integer; stdcall;
-  TwglShareLists = function(p1, p2: HGLRC): BOOL; stdcall;
-  TwglSwapLayerBuffers = function(p1: HDC; p2: Cardinal): BOOL; stdcall;
-  TwglSwapMultipleBuffers = function(p1: UINT; const p2: PWGLSWAP): DWORD; stdcall;
-  TwglUseFontBitmapsA = function(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
-  TwglUseFontBitmapsW = function(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
-  TwglUseFontBitmaps = function(DC: HDC; p2, p3, p4: DWORD): BOOL; stdcall;
-
-  TwglUseFontOutlinesA = function(p1: HDC; p2, p3, p4: DWORD; p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
-  TwglUseFontOutlinesW = function(p1: HDC; p2, p3, p4: DWORD; p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
-  TwglUseFontOutlines = function(p1: HDC; p2, p3, p4: DWORD; p5, p6: Single; p7: Integer; p8: PGlyphMetricsFloat): BOOL; stdcall;
-
-
-  // WGL_ARB_buffer_region
-  TwglCreateBufferRegionARB = function(hDC: HDC; iLayerPlane: TGLint; uType: TGLuint): THandle; stdcall;
-  TwglDeleteBufferRegionARB = procedure(hRegion: THandle); stdcall;
-  TwglSaveBufferRegionARB = function(hRegion: THandle; x: TGLint; y: TGLint; width: TGLint; height: TGLint): Boolean; stdcall;
-  TwglRestoreBufferRegionARB = function(hRegion: THandle; x: TGLint; y: TGLint; width: TGLint; height: TGLint; xSrc: TGLint; ySrc: TGLint): Boolean; stdcall;
-
-  // WGL_ARB_extensions_string
-  TwglGetExtensionsStringARB = function(hdc: HDC): PAnsiChar; stdcall;
-
-  // WGL_ARB_make_current_read
-  TwglMakeContextCurrentARB = function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): Boolean; stdcall;
-  TwglGetCurrentReadDCARB = function(): HDC; stdcall;
-
-  // WGL_ARB_pbuffer
-  TwglCreatePbufferARB = function(hDC: HDC; iPixelFormat: TGLint; iWidth: TGLint; iHeight: TGLint; const piAttribList: PGLint): HPBUFFERARB; stdcall;
-  TwglGetPbufferDCARB = function(hPbuffer: HPBUFFERARB): HDC; stdcall;
-  TwglReleasePbufferDCARB = function(hPbuffer: HPBUFFERARB; hDC: HDC): TGLint; stdcall;
-  TwglDestroyPbufferARB = function(hPbuffer: HPBUFFERARB): Boolean; stdcall;
-  TwglQueryPbufferARB = function(hPbuffer: HPBUFFERARB; iAttribute: TGLint; piValue: PGLint): Boolean; stdcall;
-
-  // WGL_ARB_pixel_format
-  TwglGetPixelFormatAttribivARB = function(hdc: HDC; iPixelFormat: TGLint; iLayerPlane: TGLint; nAttributes: TGLuint; const piAttributes: PGLint; piValues: PGLint): Boolean; stdcall;
-  TwglGetPixelFormatAttribfvARB = function(hdc: HDC; iPixelFormat: TGLint; iLayerPlane: TGLint; nAttributes: TGLuint; const piAttributes: PGLint; pfValues: PGLfloat): Boolean; stdcall;
-  TwglChoosePixelFormatARB = function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: TGLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; stdcall;
-
-  // WGL_ARB_color_buffer_float
-  TwglClampColorARB = procedure(target: TGLenum; clamp: TGLenum); stdcall;
-
-  // WGL_ARB_render_texture
-  TwglBindTexImageARB = function(hPbuffer: HPBUFFERARB; iBuffer: TGLint): Boolean; stdcall;
-  TwglReleaseTexImageARB = function(hPbuffer: HPBUFFERARB; iBuffer: TGLint): Boolean; stdcall;
-  TwglSetPbufferAttribARB = function(hPbuffer: HPBUFFERARB; const piAttribList: PGLint): Boolean; stdcall;
-
-  // WGL_ARB_create_context
-  TwglCreateContextAttribsARB = function(hDC: HDC; hShareContext: HGLRC; const attribList: PGLint): HGLRC; stdcall;
-
-  // WGL_AMD_gpu_association
-  TwglGetGPUIDsAMD = function(maxCount: Cardinal; ids: PCardinal): Cardinal; stdcall;
-  TwglGetGPUInfoAMD = function(id: Cardinal; property_: Integer; dataType: GLenum; size: Cardinal; data: Pointer): Integer; stdcall;
-  TwglGetContextGPUIDAMD = function(hglrc: HGLRC): Cardinal; stdcall;
-  TwglCreateAssociatedContextAMD = function(id: Cardinal): HGLRC; stdcall;
-  TwglCreateAssociatedContextAttribsAMD = function(id: Cardinal; hShareContext: HGLRC; const attribList: PInteger): HGLRC; stdcall;
-  TwglDeleteAssociatedContextAMD = function(hglrc: HGLRC): Boolean; stdcall;
-  TwglMakeAssociatedContextCurrentAMD = function(hglrc: HGLRC): Boolean; stdcall;
-  TwglGetCurrentAssociatedContextAMD = function(): HGLRC; stdcall;
-  TwglBlitContextFramebufferAMD = procedure(dstCtx: HGLRC; srcX0: GLint; srcY0: GLint; srcX1: GLint; srcY1: GLint; dstX0: GLint; dstY0: GLint; dstX1: GLint; dstY1: GLint; mask: GLbitfield; filter: GLenum); stdcall;
-
-  // WGL_EXT_display_color_table
-  TwglCreateDisplayColorTableEXT = function(id: TGLushort): TGLboolean; stdcall;
-  TwglLoadDisplayColorTableEXT = function(const table: PGLushort; length: TGLuint): TGLboolean; stdcall;
-  TwglBindDisplayColorTableEXT = function(id: TGLushort): TGLboolean; stdcall;
-  TwglDestroyDisplayColorTableEXT = procedure(id: TGLushort); stdcall;
-
-  // WGL_EXT_extensions_string
-  TwglGetExtensionsStringEXT = function(): PAnsiChar; stdcall;
-
-  // WGL_EXT_make_current_read
-  TwglMakeContextCurrentEXT = function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): Boolean; stdcall;
-  TwglGetCurrentReadDCEXT = function(): HDC; stdcall;
-
-  // WGL_EXT_pbuffer
-  TwglCreatePbufferEXT = function(hDC: HDC; iPixelFormat: TGLint; iWidth: TGLint; iHeight: TGLint; const piAttribList: PGLint): HPBUFFEREXT; stdcall;
-  TwglGetPbufferDCEXT = function(hPbuffer: HPBUFFEREXT): HDC; stdcall;
-  TwglReleasePbufferDCEXT = function(hPbuffer: HPBUFFEREXT; hDC: HDC): TGLint; stdcall;
-  TwglDestroyPbufferEXT = function(hPbuffer: HPBUFFEREXT): Boolean; stdcall;
-  TwglQueryPbufferEXT = function(hPbuffer: HPBUFFEREXT; iAttribute: TGLint; piValue: PGLint): Boolean; stdcall;
-
-  // WGL_EXT_pixel_format
-  TwglGetPixelFormatAttribivEXT = function(hdc: HDC; iPixelFormat: TGLint; iLayerPlane: TGLint; nAttributes: TGLuint; piAttributes: PGLint; piValues: PGLint): Boolean; stdcall;
-  TwglGetPixelFormatAttribfvEXT = function(hdc: HDC; iPixelFormat: TGLint; iLayerPlane: TGLint; nAttributes: TGLuint; piAttributes: PGLint; pfValues: PGLfloat): Boolean; stdcall;
-  TwglChoosePixelFormatEXT = function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: TGLuint; piFormats: PGLint; nNumFormats: PGLuint): Boolean; stdcall;
-
-  // WGL_EXT_swap_control
-  TwglSwapIntervalEXT = function(interval: TGLint): Boolean; stdcall;
-  TwglGetSwapIntervalEXT = function(): TGLint; stdcall;
-
-  // WGL_I3D_digital_video_control
-  TwglGetDigitalVideoParametersI3D = function(hDC: HDC; iAttribute: TGLint; piValue: PGLint): Boolean; stdcall;
-  TwglSetDigitalVideoParametersI3D = function(hDC: HDC; iAttribute: TGLint; const piValue: PGLint): Boolean; stdcall;
-
-  // WGL_I3D_gamma
-  TwglGetGammaTableParametersI3D = function(hDC: HDC; iAttribute: TGLint; piValue: PGLint): Boolean; stdcall;
-  TwglSetGammaTableParametersI3D = function(hDC: HDC; iAttribute: TGLint; const piValue: PGLint): Boolean; stdcall;
-  TwglGetGammaTableI3D = function(hDC: HDC; iEntries: TGLint; puRed: PGLushort; puGreen: PGLushort; puBlue: PGLushort): Boolean; stdcall;
-  TwglSetGammaTableI3D = function(hDC: HDC; iEntries: TGLint; const puRed: PGLushort; const puGreen: PGLushort; const puBlue: PGLushort): Boolean; stdcall;
-
-  // WGL_I3D_genlock
-  TwglEnableGenlockI3D = function(hDC: HDC): Boolean; stdcall;
-  TwglDisableGenlockI3D = function(hDC: HDC): Boolean; stdcall;
-  TwglIsEnabledGenlockI3D = function(hDC: HDC; pFlag: Boolean): Boolean; stdcall;
-  TwglGenlockSourceI3D = function(hDC: HDC; uSource: TGLuint): Boolean; stdcall;
-  TwglGetGenlockSourceI3D = function(hDC: HDC; uSource: PGLuint): Boolean; stdcall;
-  TwglGenlockSourceEdgeI3D = function(hDC: HDC; uEdge: TGLuint): Boolean; stdcall;
-  TwglGetGenlockSourceEdgeI3D = function(hDC: HDC; uEdge: PGLuint): Boolean; stdcall;
-  TwglGenlockSampleRateI3D = function(hDC: HDC; uRate: TGLuint): Boolean; stdcall;
-  TwglGetGenlockSampleRateI3D = function(hDC: HDC; uRate: PGLuint): Boolean; stdcall;
-  TwglGenlockSourceDelayI3D = function(hDC: HDC; uDelay: TGLuint): Boolean; stdcall;
-  TwglGetGenlockSourceDelayI3D = function(hDC: HDC; uDelay: PGLuint): Boolean; stdcall;
-  TwglQueryGenlockMaxSourceDelayI3D = function(hDC: HDC; uMaxLineDelay: PGLuint; uMaxPixelDelay: PGLuint): Boolean; stdcall;
-
-  // WGL_I3D_image_buffer
-  TwglCreateImageBufferI3D = function(hDC: HDC; dwSize: TGLuint; uFlags: TGLuint): TGLvoid; stdcall;
-  TwglDestroyImageBufferI3D = function(hDC: HDC; pAddress: TGLvoid): Boolean; stdcall;
-  TwglAssociateImageBufferEventsI3D = function(hDC: HDC; const pEvent: THandle; const pAddress: PGLvoid; const pSize: PGLuint; count: TGLuint): Boolean; stdcall;
-  TwglReleaseImageBufferEventsI3D = function(hDC: HDC; const pAddress: PGLvoid; count: TGLuint): Boolean; stdcall;
-
-  // WGL_I3D_swap_frame_lock
-  TwglEnableFrameLockI3D = function(): Boolean; stdcall;
-  TwglDisableFrameLockI3D = function(): Boolean; stdcall;
-  TwglIsEnabledFrameLockI3D = function(pFlag: Boolean): Boolean; stdcall;
-  TwglQueryFrameLockMasterI3D = function(pFlag: Boolean): Boolean; stdcall;
-
-  // WGL_I3D_swap_frame_usage
-  TwglGetFrameUsageI3D = function(pUsage: PGLfloat): Boolean; stdcall;
-  TwglBeginFrameTrackingI3D = function(): Boolean; stdcall;
-  TwglEndFrameTrackingI3D = function(): Boolean; stdcall;
-  TwglQueryFrameTrackingI3D = function(pFrameCount: PGLuint; pMissedFrames: PGLuint; pLastMissedUsage: PGLfloat): Boolean; stdcall;
-
-  // WGL_NV_vertex_array_range
-  TwglAllocateMemoryNV = procedure(size: TGLsizei; readfreq: TGLfloat; writefreq: TGLfloat; priority: TGLfloat); stdcall;
-  TwglFreeMemoryNV = procedure(_pointer: Pointer); stdcall;
-
-  // WGL_NV_present_video
-  TwglEnumerateVideoDevicesNV = function(hdc: HDC; phDeviceList: PHVIDEOOUTPUTDEVICENV): Integer; stdcall;
-  TwglBindVideoDeviceNV = function(hd: HDC; uVideoSlot: Cardinal; hVideoDevice: HVIDEOOUTPUTDEVICENV; piAttribList: PInteger): Boolean; stdcall;
-  TwglQueryCurrentContextNV = function(iAttribute: Integer; piValue: PInteger): Boolean; stdcall;
-
-  // WGL_NV_video_out
-  TwglGetVideoDeviceNV = function(hDC: HDC; numDevices: Integer; hVideoDevice: PHPVIDEODEV): Boolean; stdcall;
-  TwglReleaseVideoDeviceNV = function(hVideoDevice: HPVIDEODEV): Boolean; stdcall;
-  TwglBindVideoImageNV = function(hVideoDevice: HPVIDEODEV; hPbuffer: HPBUFFERARB; iVideoBuffer: Integer): Boolean; stdcall;
-  TwglReleaseVideoImageNV = function(hPbuffer: HPBUFFERARB; iVideoBuffer: Integer): Boolean; stdcall;
-  TwglSendPbufferToVideoNV = function(hPbuffer: HPBUFFERARB; iBufferType: Integer; pulCounterPbuffer: PCardinal; bBlock: Boolean): Boolean; stdcall;
-  TwglGetVideoInfoNV = function(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: PCardinal; pulCounterOutputVideo: PCardinal): Boolean; stdcall;
-
-  // WGL_NV_swap_group
-  TwglJoinSwapGroupNV = function(hDC: HDC; group: GLuint): Boolean; stdcall;
-  TwglBindSwapBarrierNV = function(group: GLuint; barrier: GLuint): Boolean; stdcall;
-  TwglQuerySwapGroupNV = function(hDC: HDC; group: PGLuint; barrier: PGLuint): Boolean; stdcall;
-  TwglQueryMaxSwapGroupsNV = function(hDC: HDC; mxGroups: PGLuint; maxBarriers: PGLuint): Boolean; stdcall;
-  TwglQueryFrameCountNV = function(hDC: HDC; count: PGLuint): Boolean; stdcall;
-  TwglResetFrameCountNV = function(hDC: HDC): Boolean; stdcall;
-
-  // WGL_NV_gpu_affinity
-  TwglEnumGpusNV = function(iGpuIndex: Cardinal; phGpu: PHGPUNV): Boolean; stdcall;
-  TwglEnumGpuDevicesNV = function(hGpu: HGPUNV; iDeviceIndex: Cardinal; lpGpuDevice: PGPU_DEVICE): Boolean; stdcall;
-  TwglCreateAffinityDCNV = function(const phGpuList: PHGPUNV): HDC; stdcall;
-  TwglEnumGpusFromAffinityDCNV = function(hAffinityDC: HDC; iGpuIndex: Cardinal; hGpu: PHGPUNV): Boolean; stdcall;
-  TwglDeleteDCNV = function(hDC: HDC): Boolean; stdcall;
-
-  // WGL_OML_sync_control
-  TwglGetSyncValuesOML = function(hdc: HDC; ust: PGLint64; msc: PGLint64; sbc: PGLint64): Boolean; stdcall;
-  TwglGetMscRateOML = function(hdc: HDC; numerator: PGLint; denominator: PGLint): Boolean; stdcall;
-  TwglSwapBuffersMscOML = function(hdc: HDC; target_msc: TGLint64; divisor: TGLint64; remainder: TGLint64): TGLint64; stdcall;
-  TwglSwapLayerBuffersMscOML = function(hdc: HDC; fuPlanes: TGLint; target_msc: TGLint64; divisor: TGLint64; remainder: TGLint64): TGLint64; stdcall;
-  TwglWaitForMscOML = function(hdc: HDC; target_msc: TGLint64; divisor: TGLint64; remainder: TGLint64; ust: PGLint64; msc: PGLint64; sbc: PGLint64): Boolean; stdcall;
-  TwglWaitForSbcOML = function(hdc: HDC; target_sbc: TGLint64; ust: PGLint64; msc: PGLint64; sbc: PGLint64): Boolean; stdcall;
-
-  // WGL_3DL_stereo_control
-  TwglSetStereoEmitterState3DL = function(hDC: HDC; uState: UINT): Boolean; stdcall;
-  
-  // WIN_draw_range_elements
-  TglDrawRangeElementsWIN = procedure(mode: TGLenum; start: TGLuint; _end: TGLuint; count: TGLsizei; _type: TGLenum; const indices: PGLvoid); stdcall;
-
-  // WIN_swap_hint
-  TglAddSwapHintRectWIN = procedure(x: TGLint; y: TGLint; width: TGLsizei; height: TGLsizei); stdcall;
-{$ENDIF}
-
-{$IFDEF DGL_LINUX}
-  TglXChooseVisual = function(dpy: PDisplay; screen: GLint; attribList: PGLint): PXVisualInfo; cdecl;
-  TglXCopyContext = procedure(dpy: PDisplay; src: GLXContext; dst: GLXContext; mask: GLuint); cdecl;
-  TglXCreateContext = function(dpy: PDisplay; vis: PXVisualInfo; shareList: GLXContext; direct: GLboolean): GLXContext; cdecl;
-  TglXCreateGLXPixmap = function(dpy: PDisplay; vis: PXVisualInfo; pixmap: Pixmap): GLXPixmap cdecl;
-  TglXDestroyContext = procedure(dpy: PDisplay; ctx: GLXContext); cdecl;
-  TglXDestroyGLXPixmap = procedure(dpy : PDisplay; pix: GLXPixmap); cdecl;
-  TglXGetConfig = function(dpy : PDisplay; vis: PXVisualInfo; attrib: GLint; value: PGLint): GLint; cdecl;
-  TglXGetCurrentContext = function: GLXContext cdecl;
-  TglXGetCurrentDrawable = function: GLXDrawable cdecl;
-  TglXIsDirect = function(dpy: PDisplay; ctx: GLXContext): glboolean; cdecl;
-  TglXMakeCurrent = function(dpy: PDisplay; drawable: GLXDrawable; ctx: GLXContext): GLboolean cdecl;
-  TglXQueryExtension = function(dpy: PDisplay; errorBase: PGLint; eventBase: PGLint): GLboolean; cdecl;
-  TglXQueryVersion = function(dpy: PDisplay; major: PGLint; minor: PGLint): GLboolean cdecl;
-  TglXSwapBuffers = procedure(dpy: PDisplay; drawable: GLXDrawable); cdecl;
-  TglXUseXFont = procedure(font: Font; first: GLint; count: GLint; listBase: GLint); cdecl;
-  TglXWaitGL = procedure; cdecl; 
-  TglXWaitX = procedure; cdecl;
-
-  TglXGetClientString = function(dpy: PDisplay; name: GLint): PGLchar; cdecl;
-  TglXQueryServerString = function(dpy: PDisplay; screen: GLint; name: GLint): PGLchar; cdecl;
-  TglXQueryExtensionsString = function(dpy: PDisplay; screen: GLint): PGLchar; cdecl;
-
-  // GLX_VERSION_1_3
-  TglXGetFBConfigs = function(dpy: PDisplay; screen: GLint; nelements: PGLint): GLXFBConfig; cdecl;
-  TglXChooseFBConfig = function(dpy: PDisplay; screen: GLint; attrib_list: PGLint; nelements: PGLint): GLXFBConfig; cdecl;
-  TglXGetFBConfigAttrib = function(dpy: PDisplay; config: GLXFBConfig; attribute: GLint; value: PGLint): glint; cdecl;
-  TglXGetVisualFromFBConfig = function(dpy: PDisplay; config: GLXFBConfig) : PXVisualInfo;
-  TglXCreateWindow = function(dpy: PDisplay; config: GLXFBConfig; win: Window; attrib_list: PGLint): GLXWindow; cdecl;
-  TglXDestroyWindow = procedure(dpy: PDisplay; win: GLXWindow); cdecl;
-  TglXCreatePixmap = function(dpy: PDisplay; config: GLXFBConfig; pixmap: Pixmap; attrib_list: PGLint): GLXPixmap; cdecl;
-
-  TglXDestroyPixmap = procedure(dpy: PDisplay; pixmap: GLXPixmap); cdecl;
-  TglXCreatePbuffer = function(dpy: PDisplay; config: GLXFBConfig; attrib_list: PGLint): GLXPbuffer; cdecl;
-  TglXDestroyPbuffer = procedure(dpy: PDisplay; pbuf: GLXPbuffer); cdecl;
-  TglXQueryDrawable = procedure(dpy: PDisplay; draw: GLXDrawable; attribute: GLint; value: PGLuint); cdecl;
-  TglXCreateNewContext = function(dpy: PDisplay; config: GLXFBConfig; render_type: GLint; share_list: GLXContext; direct: GLboolean): GLXContext cdecl;
-  TglXMakeContextCurrent = function(display: PDisplay; draw: GLXDrawable; read_: GLXDrawable; ctx: GLXContext): GLboolean; cdecl;
-  TglXGetCurrentReadDrawable = function: GLXDrawable; cdecl;
-  TglXGetCurreentDisplay = function: PDisplay;
-
-  TglXQueryContext = function(dpy: PDisplay; ctx: GLXContext; attribute: GLint; value: PGLint): GLint; cdecl;
-  TglXSelectEvent = procedure(dpy: PDisplay; draw: GLXDrawable; event_mask: GLuint); cdecl;
-  TglXGetSelectedEvent = procedure(dpy: PDisplay; draw: GLXDrawable; event_mask: PGLuint); cdecl;
-
-  // GLX_VERSION_1_4
-  TglXGetProcAddress = function(const name: PAnsiChar): pointer; cdecl;
-
-  // GLX_ARB_get_proc_address
-  TglXGetProcAddressARB = function(const name: PAnsiChar): pointer; cdecl;
-
-  // GLX_ARB_create_context
-  TglXCreateContextAttribsARB = function(dpy: PDisplay; config: GLXFBConfig; share_context: GLXContext; direct: GLboolean; const attrib_list: PGLint): GLXContext; cdecl;
-
-  // GLX_EXT_import_context
-  TglXGetCurrentDisplayEXT = function: PDisplay; cdecl;
-  TglXQueryContextInfoEXT = function(dpy: PDisplay; context: GLXContext; attribute: GLint; value: PGLint): GLint; cdecl;
-  TglXGetContextIDEXT = function(const context: GLXContext): GLXContextID; cdecl;
-  TglXImportContextEXT = function(dpy: PDisplay; contextID: GLXContextID): GLXContext; cdecl;
-  TglXFreeContextEXT = procedure(dpy: PDisplay; context: GLXContext); cdecl;
-  
-  // GLX_EXT_texture_from_pixmap
-  TglXBindTexImageEXT = procedure(dpy: PDisplay; drawable: GLXDrawable; buffer: GLint; const attrib_list: PGLint); cdecl;
-  TglXReleaseTexImageEXT = procedure(dpy: PDisplay; drawable: GLXDrawable; buffer: GLint); cdecl;
-{$ENDIF}
-
-  // GL utility functions and procedures
-  TgluErrorString = function(errCode: TGLEnum): PAnsiChar; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluGetString = function(name: TGLEnum): PAnsiChar; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluOrtho2D = procedure(left, right, bottom, top: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluPerspective = procedure(fovy, aspect, zNear, zFar: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluPickMatrix = procedure(x, y, width, height: TGLdouble; const viewport: TVector4i); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluLookAt = procedure(eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluProject = function(objx, objy, obyz: GLdouble; modelMatrix: PGLdouble; projMatrix: PGLdouble; viewport: PGLint; var winx, winy, winz: GLDouble): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluUnProject = function(winx, winy, winz: GLdouble; modelMatrix: PGLdouble; projMatrix: PGLdouble; viewport: PGLint; var objx, objy, objz: GLdouble): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluScaleImage = function(format: TGLEnum; widthin, heightin: TGLint; typein: TGLEnum; datain: Pointer; widthout, heightout: TGLint; typeout: TGLEnum; const dataout: Pointer): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBuild1DMipmaps = function(target: TGLEnum; components, width: TGLint; format, atype: TGLEnum; const data: Pointer): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBuild2DMipmaps = function(target: TGLEnum; components, width, height: TGLint; format, atype: TGLEnum; const Data: Pointer): TGLint; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNewQuadric = function: PGLUquadric; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluDeleteQuadric = procedure(state: PGLUquadric); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluQuadricNormals = procedure(quadObject: PGLUquadric; normals: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluQuadricTexture = procedure(quadObject: PGLUquadric; textureCoords: TGLboolean); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluQuadricOrientation = procedure(quadObject: PGLUquadric; orientation: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluQuadricDrawStyle = procedure(quadObject: PGLUquadric; drawStyle: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluCylinder = procedure(quadObject: PGLUquadric; baseRadius, topRadius, height: TGLdouble; slices, stacks: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluDisk = procedure(quadObject: PGLUquadric; innerRadius, outerRadius: TGLdouble; slices, loops: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluPartialDisk = procedure(quadObject: PGLUquadric; innerRadius, outerRadius: TGLdouble; slices, loops: TGLint; startAngle, sweepAngle: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluSphere = procedure(quadObject: PGLUquadric; radius: TGLdouble; slices, stacks: TGLint); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluQuadricCallback = procedure(quadObject: PGLUquadric; which: TGLEnum; fn: TGLUQuadricErrorProc); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNewTess = function: PGLUtesselator; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluDeleteTess = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessBeginPolygon = procedure(tess: PGLUtesselator; polygon_data: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessBeginContour = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessVertex = procedure(tess: PGLUtesselator; const coords: TGLArrayd3; data: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessEndContour = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessEndPolygon = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessProperty = procedure(tess: PGLUtesselator; which: TGLEnum; value: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessNormal = procedure(tess: PGLUtesselator; x, y, z: TGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluTessCallback = procedure(tess: PGLUtesselator; which: TGLEnum; fn: Pointer); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluGetTessProperty = procedure(tess: PGLUtesselator; which: TGLEnum; value: PGLdouble); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNewNurbsRenderer = function: PGLUnurbs; {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluDeleteNurbsRenderer = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBeginSurface = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBeginCurve = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluEndCurve = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluEndSurface = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBeginTrim = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluEndTrim = procedure(nobj: PGLUnurbs); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluPwlCurve = procedure(nobj: PGLUnurbs; count: TGLint; points: PGLfloat; stride: TGLint; atype: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNurbsCurve = procedure(nobj: PGLUnurbs; nknots: TGLint; knot: PGLfloat; stride: TGLint; ctlarray: PGLfloat; order: TGLint; atype: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNurbsSurface = procedure(nobj: PGLUnurbs; sknot_count: TGLint; sknot: PGLfloat; tknot_count: TGLint; tknot: PGLfloat; s_stride, t_stride: TGLint; ctlarray: PGLfloat; sorder, torder: TGLint; atype: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluLoadSamplingMatrices = procedure(nobj: PGLUnurbs; const modelMatrix, projMatrix: TGLMatrixf4; const viewport: TVector4i); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNurbsProperty = procedure(nobj: PGLUnurbs; aproperty: TGLEnum; value: TGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluGetNurbsProperty = procedure(nobj: PGLUnurbs; aproperty: TGLEnum; value: PGLfloat); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNurbsCallback = procedure(nobj: PGLUnurbs; which: TGLEnum; fn: TGLUNurbsErrorProc); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluBeginPolygon = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluNextContour = procedure(tess: PGLUtesselator; atype: TGLEnum); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-  TgluEndPolygon = procedure(tess: PGLUtesselator); {$IFDEF DGL_WIN}stdcall; {$ELSE}cdecl; {$ENDIF}
-
-var
-  // GL_VERSION_1_0
-  glCullFace: TglCullFace;
-  glFrontFace: TglFrontFace;
-  glHint: TglHint;
-  glLineWidth: TglLineWidth;
-  glPointSize: TglPointSize;
-  glPolygonMode: TglPolygonMode;
-  glScissor: TglScissor;
-  glTexParameterf: TglTexParameterf;
-  glTexParameterfv: TglTexParameterfv;
-  glTexParameteri: TglTexParameteri;
-  glTexParameteriv: TglTexParameteriv;
-  glTexImage1D: TglTexImage1D;
-  glTexImage2D: TglTexImage2D;
-  glDrawBuffer: TglDrawBuffer;
-  glClear: TglClear;
-  glClearColor: TglClearColor;
-  glClearStencil: TglClearStencil;
-  glClearDepth: TglClearDepth;
-  glStencilMask: TglStencilMask;
-  glColorMask: TglColorMask;
-  glDepthMask: TglDepthMask;
-  glDisable: TglDisable;
-  glEnable: TglEnable;
-  glFinish: TglFinish;
-  glFlush: TglFlush;
-  glBlendFunc: TglBlendFunc;
-  glLogicOp: TglLogicOp;
-  glStencilFunc: TglStencilFunc;
-  glStencilOp: TglStencilOp;
-  glDepthFunc: TglDepthFunc;
-  glPixelStoref: TglPixelStoref;
-  glPixelStorei: TglPixelStorei;
-  glReadBuffer: TglReadBuffer;
-  glReadPixels: TglReadPixels;
-  glGetBooleanv: TglGetBooleanv;
-  glGetDoublev: TglGetDoublev;
-  glGetError: TglGetError;
-  glGetFloatv: TglGetFloatv;
-  glGetIntegerv: TglGetIntegerv;
-  glGetString: TglGetString;
-  glGetTexImage: TglGetTexImage;
-  glGetTexParameteriv: TglGetTexParameteriv;
-  glGetTexParameterfv: TglGetTexParameterfv;
-  glGetTexLevelParameterfv: TglGetTexLevelParameterfv;
-  glGetTexLevelParameteriv: TglGetTexLevelParameteriv;
-  glIsEnabled: TglIsEnabled;
-  glDepthRange: TglDepthRange;
-  glViewport: TglViewport;
-
-  // GL_VERSION_1_1
-  glDrawArrays: TglDrawArrays;
-  glDrawElements: TglDrawElements;
-  glGetPointerv: TglGetPointerv;
-  glPolygonOffset: TglPolygonOffset;
-  glCopyTexImage1D: TglCopyTexImage1D;
-  glCopyTexImage2D: TglCopyTexImage2D;
-  glCopyTexSubImage1D: TglCopyTexSubImage1D;
-  glCopyTexSubImage2D: TglCopyTexSubImage2D;
-  glTexSubImage1D: TglTexSubImage1D;
-  glTexSubImage2D: TglTexSubImage2D;
-  glBindTexture: TglBindTexture;
-  glDeleteTextures: TglDeleteTextures;
-  glGenTextures: TglGenTextures;
-{$ifdef DGL_DEPRECATED}
-  glAccum: TglAccum;
-  glAlphaFunc: TglAlphaFunc;
-  glAreTexturesResident: TglAreTexturesResident;
-  glArrayElement: TglArrayElement;
-  glBegin: TglBegin;
-  glBitmap: TglBitmap;
-  glCallList: TglCallList;
-  glCallLists: TglCallLists;
-  glClearAccum: TglClearAccum;
-  glClearIndex: TglClearIndex;
-  glClipPlane: TglClipPlane;
-  glColor3b: TglColor3b;
-  glColor3bv: TglColor3bv;
-  glColor3d: TglColor3d;
-  glColor3dv: TglColor3dv;
-  glColor3f: TglColor3f;
-  glColor3fv: TglColor3fv;
-  glColor3i: TglColor3i;
-  glColor3iv: TglColor3iv;
-  glColor3s: TglColor3s;
-  glColor3sv: TglColor3sv;
-  glColor3ub: TglColor3ub;
-  glColor3ubv: TglColor3ubv;
-  glColor3ui: TglColor3ui;
-  glColor3uiv: TglColor3uiv;
-  glColor3us: TglColor3us;
-  glColor3usv: TglColor3usv;
-  glColor4b: TglColor4b;
-  glColor4bv: TglColor4bv;
-  glColor4d: TglColor4d;
-  glColor4dv: TglColor4dv;
-  glColor4f: TglColor4f;
-  glColor4fv: TglColor4fv;
-  glColor4i: TglColor4i;
-  glColor4iv: TglColor4iv;
-  glColor4s: TglColor4s;
-  glColor4sv: TglColor4sv;
-  glColor4ub: TglColor4ub;
-  glColor4ubv: TglColor4ubv;
-  glColor4ui: TglColor4ui;
-  glColor4uiv: TglColor4uiv;
-  glColor4us: TglColor4us;
-  glColor4usv: TglColor4usv;
-  glColorMaterial: TglColorMaterial;
-  glColorPointer: TglColorPointer;
-  glCopyPixels: TglCopyPixels;
-  glDeleteLists: TglDeleteLists;
-  glDisableClientState: TglDisableClientState;
-  glDrawPixels: TglDrawPixels;
-  glEdgeFlag: TglEdgeFlag;
-  glEdgeFlagPointer: TglEdgeFlagPointer;
-  glEdgeFlagv: TglEdgeFlagv;
-  glEnableClientState: TglEnableClientState;
-  glEnd: TglEnd;
-  glEndList: TglEndList;
-  glEvalCoord1d: TglEvalCoord1d;
-  glEvalCoord1dv: TglEvalCoord1dv;
-  glEvalCoord1f: TglEvalCoord1f;
-  glEvalCoord1fv: TglEvalCoord1fv;
-  glEvalCoord2d: TglEvalCoord2d;
-  glEvalCoord2dv: TglEvalCoord2dv;
-  glEvalCoord2f: TglEvalCoord2f;
-  glEvalCoord2fv: TglEvalCoord2fv;
-  glEvalMesh1: TglEvalMesh1;
-  glEvalMesh2: TglEvalMesh2;
-  glEvalPoint1: TglEvalPoint1;
-  glEvalPoint2: TglEvalPoint2;
-  glFeedbackBuffer: TglFeedbackBuffer;
-  glFogf: TglFogf;
-  glFogfv: TglFogfv;
-  glFogi: TglFogi;
-  glFogiv: TglFogiv;
-  glFrustum: TglFrustum;
-  glGenLists: TglGenLists;
-  glGetClipPlane: TglGetClipPlane;
-  glGetLightfv: TglGetLightfv;
-  glGetLightiv: TglGetLightiv;
-  glGetMapdv: TglGetMapdv;
-  glGetMapfv: TglGetMapfv;
-  glGetMapiv: TglGetMapiv;
-  glGetMaterialfv: TglGetMaterialfv;
-  glGetMaterialiv: TglGetMaterialiv;
-  glGetPixelMapfv: TglGetPixelMapfv;
-  glGetPixelMapuiv: TglGetPixelMapuiv;
-  glGetPixelMapusv: TglGetPixelMapusv;
-  glGetPolygonStipple: TglGetPolygonStipple;
-  glGetTexEnvfv: TglGetTexEnvfv;
-  glGetTexEnviv: TglGetTexEnviv;
-  glGetTexGendv: TglGetTexGendv;
-  glGetTexGenfv: TglGetTexGenfv;
-  glGetTexGeniv: TglGetTexGeniv;
-  glIndexMask: TglIndexMask;
-  glIndexPointer: TglIndexPointer;
-  glIndexd: TglIndexd;
-  glIndexdv: TglIndexdv;
-  glIndexf: TglIndexf;
-  glIndexfv: TglIndexfv;
-  glIndexi: TglIndexi;
-  glIndexiv: TglIndexiv;
-  glIndexs: TglIndexs;
-  glIndexsv: TglIndexsv;
-  glIndexub: TglIndexub;
-  glIndexubv: TglIndexubv;
-  glInitNames: TglInitNames;
-  glInterleavedArrays: TglInterleavedArrays;
-  glIsList: TglIsList;
-  glIsTexture: TglIsTexture;
-  glLightModelf: TglLightModelf;
-  glLightModelfv: TglLightModelfv;
-  glLightModeli: TglLightModeli;
-  glLightModeliv: TglLightModeliv;
-  glLightf: TglLightf;
-  glLightfv: TglLightfv;
-  glLighti: TglLighti;
-  glLightiv: TglLightiv;
-  glLineStipple: TglLineStipple;
-  glListBase: TglListBase;
-  glLoadIdentity: TglLoadIdentity;
-  glLoadMatrixd: TglLoadMatrixd;
-  glLoadMatrixf: TglLoadMatrixf;
-  glLoadName: TglLoadName;
-  glMap1d: TglMap1d;
-  glMap1f: TglMap1f;
-  glMap2d: TglMap2d;
-  glMap2f: TglMap2f;
-  glMapGrid1d: TglMapGrid1d;
-  glMapGrid1f: TglMapGrid1f;
-  glMapGrid2d: TglMapGrid2d;
-  glMapGrid2f: TglMapGrid2f;
-  glMaterialf: TglMaterialf;
-  glMaterialfv: TglMaterialfv;
-  glMateriali: TglMateriali;
-  glMaterialiv: TglMaterialiv;
-  glMatrixMode: TglMatrixMode;
-  glMultMatrixd: TglMultMatrixd;
-  glMultMatrixf: TglMultMatrixf;
-  glNewList: TglNewList;
-  glNormal3b: TglNormal3b;
-  glNormal3bv: TglNormal3bv;
-  glNormal3d: TglNormal3d;
-  glNormal3dv: TglNormal3dv;
-  glNormal3f: TglNormal3f;
-  glNormal3fv: TglNormal3fv;
-  glNormal3i: TglNormal3i;
-  glNormal3iv: TglNormal3iv;
-  glNormal3s: TglNormal3s;
-  glNormal3sv: TglNormal3sv;
-  glNormalPointer: TglNormalPointer;
-  glOrtho: TglOrtho;
-  glPassThrough: TglPassThrough;
-  glPixelMapfv: TglPixelMapfv;
-  glPixelMapuiv: TglPixelMapuiv;
-  glPixelMapusv: TglPixelMapusv;
-  glPixelTransferf: TglPixelTransferf;
-  glPixelTransferi: TglPixelTransferi;
-  glPixelZoom: TglPixelZoom;
-  glPolygonStipple: TglPolygonStipple;
-  glPopAttrib: TglPopAttrib;
-  glPopClientAttrib: TglPopClientAttrib;
-  glPopMatrix: TglPopMatrix;
-  glPopName: TglPopName;
-  glPrioritizeTextures: TglPrioritizeTextures;
-  glPushAttrib: TglPushAttrib;
-  glPushClientAttrib: TglPushClientAttrib;
-  glPushMatrix: TglPushMatrix;
-  glPushName: TglPushName;
-  glRasterPos2d: TglRasterPos2d;
-  glRasterPos2dv: TglRasterPos2dv;
-  glRasterPos2f: TglRasterPos2f;
-  glRasterPos2fv: TglRasterPos2fv;
-  glRasterPos2i: TglRasterPos2i;
-  glRasterPos2iv: TglRasterPos2iv;
-  glRasterPos2s: TglRasterPos2s;
-  glRasterPos2sv: TglRasterPos2sv;
-  glRasterPos3d: TglRasterPos3d;
-  glRasterPos3dv: TglRasterPos3dv;
-  glRasterPos3f: TglRasterPos3f;
-  glRasterPos3fv: TglRasterPos3fv;
-  glRasterPos3i: TglRasterPos3i;
-  glRasterPos3iv: TglRasterPos3iv;
-  glRasterPos3s: TglRasterPos3s;
-  glRasterPos3sv: TglRasterPos3sv;
-  glRasterPos4d: TglRasterPos4d;
-  glRasterPos4dv: TglRasterPos4dv;
-  glRasterPos4f: TglRasterPos4f;
-  glRasterPos4fv: TglRasterPos4fv;
-  glRasterPos4i: TglRasterPos4i;
-  glRasterPos4iv: TglRasterPos4iv;
-  glRasterPos4s: TglRasterPos4s;
-  glRasterPos4sv: TglRasterPos4sv;
-  glRectd: TglRectd;
-  glRectdv: TglRectdv;
-  glRectf: TglRectf;
-  glRectfv: TglRectfv;
-  glRecti: TglRecti;
-  glRectiv: TglRectiv;
-  glRects: TglRects;
-  glRectsv: TglRectsv;
-  glRenderMode: TglRenderMode;
-  glRotated: TglRotated;
-  glRotatef: TglRotatef;
-  glScaled: TglScaled;
-  glScalef: TglScalef;
-  glSelectBuffer: TglSelectBuffer;
-  glShadeModel: TglShadeModel;
-  glTexCoord1d: TglTexCoord1d;
-  glTexCoord1dv: TglTexCoord1dv;
-  glTexCoord1f: TglTexCoord1f;
-  glTexCoord1fv: TglTexCoord1fv;
-  glTexCoord1i: TglTexCoord1i;
-  glTexCoord1iv: TglTexCoord1iv;
-  glTexCoord1s: TglTexCoord1s;
-  glTexCoord1sv: TglTexCoord1sv;
-  glTexCoord2d: TglTexCoord2d;
-  glTexCoord2dv: TglTexCoord2dv;
-  glTexCoord2f: TglTexCoord2f;
-  glTexCoord2fv: TglTexCoord2fv;
-  glTexCoord2i: TglTexCoord2i;
-  glTexCoord2iv: TglTexCoord2iv;
-  glTexCoord2s: TglTexCoord2s;
-  glTexCoord2sv: TglTexCoord2sv;
-  glTexCoord3d: TglTexCoord3d;
-  glTexCoord3dv: TglTexCoord3dv;
-  glTexCoord3f: TglTexCoord3f;
-  glTexCoord3fv: TglTexCoord3fv;
-  glTexCoord3i: TglTexCoord3i;
-  glTexCoord3iv: TglTexCoord3iv;
-  glTexCoord3s: TglTexCoord3s;
-  glTexCoord3sv: TglTexCoord3sv;
-  glTexCoord4d: TglTexCoord4d;
-  glTexCoord4dv: TglTexCoord4dv;
-  glTexCoord4f: TglTexCoord4f;
-  glTexCoord4fv: TglTexCoord4fv;
-  glTexCoord4i: TglTexCoord4i;
-  glTexCoord4iv: TglTexCoord4iv;
-  glTexCoord4s: TglTexCoord4s;
-  glTexCoord4sv: TglTexCoord4sv;
-  glTexCoordPointer: TglTexCoordPointer;
-  glTexEnvf: TglTexEnvf;
-  glTexEnvfv: TglTexEnvfv;
-  glTexEnvi: TglTexEnvi;
-  glTexEnviv: TglTexEnviv;
-  glTexGend: TglTexGend;
-  glTexGendv: TglTexGendv;
-  glTexGenf: TglTexGenf;
-  glTexGenfv: TglTexGenfv;
-  glTexGeni: TglTexGeni;
-  glTexGeniv: TglTexGeniv;
-  glTranslated: TglTranslated;
-  glTranslatef: TglTranslatef;
-  glVertex2d: TglVertex2d;
-  glVertex2dv: TglVertex2dv;
-  glVertex2f: TglVertex2f;
-  glVertex2fv: TglVertex2fv;
-  glVertex2i: TglVertex2i;
-  glVertex2iv: TglVertex2iv;
-  glVertex2s: TglVertex2s;
-  glVertex2sv: TglVertex2sv;
-  glVertex3d: TglVertex3d;
-  glVertex3dv: TglVertex3dv;
-  glVertex3f: TglVertex3f;
-  glVertex3fv: TglVertex3fv;
-  glVertex3i: TglVertex3i;
-  glVertex3iv: TglVertex3iv;
-  glVertex3s: TglVertex3s;
-  glVertex3sv: TglVertex3sv;
-  glVertex4d: TglVertex4d;
-  glVertex4dv: TglVertex4dv;
-  glVertex4f: TglVertex4f;
-  glVertex4fv: TglVertex4fv;
-  glVertex4i: TglVertex4i;
-  glVertex4iv: TglVertex4iv;
-  glVertex4s: TglVertex4s;
-  glVertex4sv: TglVertex4sv;
-  glVertexPointer: TglVertexPointer;
-{$endif}
-
-  // GL_VERSION_1_2
-  glBlendColor: TglBlendColor;
-  glBlendEquation: TglBlendEquation;
-  glDrawRangeElements: TglDrawRangeElements;
-  glTexImage3D: TglTexImage3D;
-  glTexSubImage3D: TglTexSubImage3D;
-  glCopyTexSubImage3D: TglCopyTexSubImage3D;
-{$ifdef DGL_DEPRECATED}
-  glColorTable: TglColorTable;
-  glColorTableParameterfv: TglColorTableParameterfv;
-  glColorTableParameteriv: TglColorTableParameteriv;
-  glCopyColorTable: TglCopyColorTable;
-  glGetColorTable: TglGetColorTable;
-  glGetColorTableParameterfv: TglGetColorTableParameterfv;
-  glGetColorTableParameteriv: TglGetColorTableParameteriv;
-  glColorSubTable: TglColorSubTable;
-  glCopyColorSubTable: TglCopyColorSubTable;
-  glConvolutionFilter1D: TglConvolutionFilter1D;
-  glConvolutionFilter2D: TglConvolutionFilter2D;
-  glConvolutionParameterf: TglConvolutionParameterf;
-  glConvolutionParameterfv: TglConvolutionParameterfv;
-  glConvolutionParameteri: TglConvolutionParameteri;
-  glConvolutionParameteriv: TglConvolutionParameteriv;
-  glCopyConvolutionFilter1D: TglCopyConvolutionFilter1D;
-  glCopyConvolutionFilter2D: TglCopyConvolutionFilter2D;
-  glGetConvolutionFilter: TglGetConvolutionFilter;
-  glGetConvolutionParameterfv: TglGetConvolutionParameterfv;
-  glGetConvolutionParameteriv: TglGetConvolutionParameteriv;
-  glGetSeparableFilter: TglGetSeparableFilter;
-  glSeparableFilter2D: TglSeparableFilter2D;
-  glGetHistogram: TglGetHistogram;
-  glGetHistogramParameterfv: TglGetHistogramParameterfv;
-  glGetHistogramParameteriv: TglGetHistogramParameteriv;
-  glGetMinmax: TglGetMinmax;
-  glGetMinmaxParameterfv: TglGetMinmaxParameterfv;
-  glGetMinmaxParameteriv: TglGetMinmaxParameteriv;
-  glHistogram: TglHistogram;
-  glMinmax: TglMinmax;
-  glResetHistogram: TglResetHistogram;
-  glResetMinmax: TglResetMinmax;
-{$endif}
-
-  // GL_VERSION_1_3
-  glActiveTexture: TglActiveTexture;
-  glSampleCoverage: TglSampleCoverage;
-  glCompressedTexImage3D: TglCompressedTexImage3D;
-  glCompressedTexImage2D: TglCompressedTexImage2D;
-  glCompressedTexImage1D: TglCompressedTexImage1D;
-  glCompressedTexSubImage3D: TglCompressedTexSubImage3D;
-  glCompressedTexSubImage2D: TglCompressedTexSubImage2D;
-  glCompressedTexSubImage1D: TglCompressedTexSubImage1D;
-  glGetCompressedTexImage: TglGetCompressedTexImage;
-{$ifdef DGL_DEPRECATED}
-  glClientActiveTexture: TglClientActiveTexture;
-  glMultiTexCoord1d: TglMultiTexCoord1d;
-  glMultiTexCoord1dv: TglMultiTexCoord1dv;
-  glMultiTexCoord1f: TglMultiTexCoord1f;
-  glMultiTexCoord1fv: TglMultiTexCoord1fv;
-  glMultiTexCoord1i: TglMultiTexCoord1i;
-  glMultiTexCoord1iv: TglMultiTexCoord1iv;
-  glMultiTexCoord1s: TglMultiTexCoord1s;
-  glMultiTexCoord1sv: TglMultiTexCoord1sv;
-  glMultiTexCoord2d: TglMultiTexCoord2d;
-  glMultiTexCoord2dv: TglMultiTexCoord2dv;
-  glMultiTexCoord2f: TglMultiTexCoord2f;
-  glMultiTexCoord2fv: TglMultiTexCoord2fv;
-  glMultiTexCoord2i: TglMultiTexCoord2i;
-  glMultiTexCoord2iv: TglMultiTexCoord2iv;
-  glMultiTexCoord2s: TglMultiTexCoord2s;
-  glMultiTexCoord2sv: TglMultiTexCoord2sv;
-  glMultiTexCoord3d: TglMultiTexCoord3d;
-  glMultiTexCoord3dv: TglMultiTexCoord3dv;
-  glMultiTexCoord3f: TglMultiTexCoord3f;
-  glMultiTexCoord3fv: TglMultiTexCoord3fv;
-  glMultiTexCoord3i: TglMultiTexCoord3i;
-  glMultiTexCoord3iv: TglMultiTexCoord3iv;
-  glMultiTexCoord3s: TglMultiTexCoord3s;
-  glMultiTexCoord3sv: TglMultiTexCoord3sv;
-  glMultiTexCoord4d: TglMultiTexCoord4d;
-  glMultiTexCoord4dv: TglMultiTexCoord4dv;
-  glMultiTexCoord4f: TglMultiTexCoord4f;
-  glMultiTexCoord4fv: TglMultiTexCoord4fv;
-  glMultiTexCoord4i: TglMultiTexCoord4i;
-  glMultiTexCoord4iv: TglMultiTexCoord4iv;
-  glMultiTexCoord4s: TglMultiTexCoord4s;
-  glMultiTexCoord4sv: TglMultiTexCoord4sv;
-  glLoadTransposeMatrixf: TglLoadTransposeMatrixf;
-  glLoadTransposeMatrixd: TglLoadTransposeMatrixd;
-  glMultTransposeMatrixf: TglMultTransposeMatrixf;
-  glMultTransposeMatrixd: TglMultTransposeMatrixd;
-{$endif}
-
-  // GL_VERSION_1_4
-  glBlendFuncSeparate: TglBlendFuncSeparate;
-  glMultiDrawArrays: TglMultiDrawArrays;
-  glMultiDrawElements: TglMultiDrawElements;
-  glPointParameterf: TglPointParameterf;
-  glPointParameterfv: TglPointParameterfv;
-  glPointParameteri: TglPointParameteri;
-  glPointParameteriv: TglPointParameteriv;
-{$ifdef DGL_DEPRECATED}
-  glFogCoordf: TglFogCoordf;
-  glFogCoordfv: TglFogCoordfv;
-  glFogCoordd: TglFogCoordd;
-  glFogCoorddv: TglFogCoorddv;
-  glFogCoordPointer: TglFogCoordPointer;
-  glSecondaryColor3b: TglSecondaryColor3b;
-  glSecondaryColor3bv: TglSecondaryColor3bv;
-  glSecondaryColor3d: TglSecondaryColor3d;
-  glSecondaryColor3dv: TglSecondaryColor3dv;
-  glSecondaryColor3f: TglSecondaryColor3f;
-  glSecondaryColor3fv: TglSecondaryColor3fv;
-  glSecondaryColor3i: TglSecondaryColor3i;
-  glSecondaryColor3iv: TglSecondaryColor3iv;
-  glSecondaryColor3s: TglSecondaryColor3s;
-  glSecondaryColor3sv: TglSecondaryColor3sv;
-  glSecondaryColor3ub: TglSecondaryColor3ub;
-  glSecondaryColor3ubv: TglSecondaryColor3ubv;
-  glSecondaryColor3ui: TglSecondaryColor3ui;
-  glSecondaryColor3uiv: TglSecondaryColor3uiv;
-  glSecondaryColor3us: TglSecondaryColor3us;
-  glSecondaryColor3usv: TglSecondaryColor3usv;
-  glSecondaryColorPointer: TglSecondaryColorPointer;
-  glWindowPos2d: TglWindowPos2d;
-  glWindowPos2dv: TglWindowPos2dv;
-  glWindowPos2f: TglWindowPos2f;
-  glWindowPos2fv: TglWindowPos2fv;
-  glWindowPos2i: TglWindowPos2i;
-  glWindowPos2iv: TglWindowPos2iv;
-  glWindowPos2s: TglWindowPos2s;
-  glWindowPos2sv: TglWindowPos2sv;
-  glWindowPos3d: TglWindowPos3d;
-  glWindowPos3dv: TglWindowPos3dv;
-  glWindowPos3f: TglWindowPos3f;
-  glWindowPos3fv: TglWindowPos3fv;
-  glWindowPos3i: TglWindowPos3i;
-  glWindowPos3iv: TglWindowPos3iv;
-  glWindowPos3s: TglWindowPos3s;
-  glWindowPos3sv: TglWindowPos3sv;
-{$endif}
-
-  // GL_VERSION_1_5
-  glGenQueries: TglGenQueries;
-  glDeleteQueries: TglDeleteQueries;
-  glIsQuery: TglIsQuery;
-  glBeginQuery: TglBeginQuery;
-  glEndQuery: TglEndQuery;
-  glGetQueryiv: TglGetQueryiv;
-  glGetQueryObjectiv: TglGetQueryObjectiv;
-  glGetQueryObjectuiv: TglGetQueryObjectuiv;
-  glBindBuffer: TglBindBuffer;
-  glDeleteBuffers: TglDeleteBuffers;
-  glGenBuffers: TglGenBuffers;
-  glIsBuffer: TglIsBuffer;
-  glBufferData: TglBufferData;
-  glBufferSubData: TglBufferSubData;
-  glGetBufferSubData: TglGetBufferSubData;
-  glMapBuffer: TglMapBuffer;
-  glUnmapBuffer: TglUnmapBuffer;
-  glGetBufferParameteriv: TglGetBufferParameteriv;
-  glGetBufferPointerv: TglGetBufferPointerv;
-
-  // GL_VERSION_2_0
-  glBlendEquationSeparate: TglBlendEquationSeparate;
-  glDrawBuffers: TglDrawBuffers;
-  glStencilOpSeparate: TglStencilOpSeparate;
-  glStencilFuncSeparate: TglStencilFuncSeparate;
-  glStencilMaskSeparate: TglStencilMaskSeparate;
-  glAttachShader: TglAttachShader;
-  glBindAttribLocation: TglBindAttribLocation;
-  glCompileShader: TglCompileShader;
-  glCreateProgram: TglCreateProgram;
-  glCreateShader: TglCreateShader;
-  glDeleteProgram: TglDeleteProgram;
-  glDeleteShader: TglDeleteShader;
-  glDetachShader: TglDetachShader;
-  glDisableVertexAttribArray: TglDisableVertexAttribArray;
-  glEnableVertexAttribArray: TglEnableVertexAttribArray;
-  glGetActiveAttrib: TglGetActiveAttrib;
-  glGetActiveUniform: TglGetActiveUniform;
-  glGetAttachedShaders: TglGetAttachedShaders;
-  glGetAttribLocation: TglGetAttribLocation;
-  glGetProgramiv: TglGetProgramiv;
-  glGetProgramInfoLog: TglGetProgramInfoLog;
-  glGetShaderiv: TglGetShaderiv;
-  glGetShaderInfoLog: TglGetShaderInfoLog;
-  glGetShaderSource: TglGetShaderSource;
-  glGetUniformLocation: TglGetUniformLocation;
-  glGetUniformfv: TglGetUniformfv;
-  glGetUniformiv: TglGetUniformiv;
-  glGetVertexAttribfv: TglGetVertexAttribfv;
-  glGetVertexAttribiv: TglGetVertexAttribiv;
-  glGetVertexAttribPointerv: TglGetVertexAttribPointerv;
-  glIsProgram: TglIsProgram;
-  glIsShader: TglIsShader;
-  glLinkProgram: TglLinkProgram;
-  glShaderSource: TglShaderSource;
-  glUseProgram: TglUseProgram;
-  glUniform1f: TglUniform1f;
-  glUniform2f: TglUniform2f;
-  glUniform3f: TglUniform3f;
-  glUniform4f: TglUniform4f;
-  glUniform1i: TglUniform1i;
-  glUniform2i: TglUniform2i;
-  glUniform3i: TglUniform3i;
-  glUniform4i: TglUniform4i;
-  glUniform1fv: TglUniform1fv;
-  glUniform2fv: TglUniform2fv;
-  glUniform3fv: TglUniform3fv;
-  glUniform4fv: TglUniform4fv;
-  glUniform1iv: TglUniform1iv;
-  glUniform2iv: TglUniform2iv;
-  glUniform3iv: TglUniform3iv;
-  glUniform4iv: TglUniform4iv;
-  glUniformMatrix2fv: TglUniformMatrix2fv;
-  glUniformMatrix3fv: TglUniformMatrix3fv;
-  glUniformMatrix4fv: TglUniformMatrix4fv;
-  glValidateProgram: TglValidateProgram;
-  glVertexAttrib1d: TglVertexAttrib1d;
-  glVertexAttrib1dv: TglVertexAttrib1dv;
-  glVertexAttrib1f: TglVertexAttrib1f;
-  glVertexAttrib1fv: TglVertexAttrib1fv;
-  glVertexAttrib1s: TglVertexAttrib1s;
-  glVertexAttrib1sv: TglVertexAttrib1sv;
-  glVertexAttrib2d: TglVertexAttrib2d;
-  glVertexAttrib2dv: TglVertexAttrib2dv;
-  glVertexAttrib2f: TglVertexAttrib2f;
-  glVertexAttrib2fv: TglVertexAttrib2fv;
-  glVertexAttrib2s: TglVertexAttrib2s;
-  glVertexAttrib2sv: TglVertexAttrib2sv;
-  glVertexAttrib3d: TglVertexAttrib3d;
-  glVertexAttrib3dv: TglVertexAttrib3dv;
-  glVertexAttrib3f: TglVertexAttrib3f;
-  glVertexAttrib3fv: TglVertexAttrib3fv;
-  glVertexAttrib3s: TglVertexAttrib3s;
-  glVertexAttrib3sv: TglVertexAttrib3sv;
-  glVertexAttrib4Nbv: TglVertexAttrib4Nbv;
-  glVertexAttrib4Niv: TglVertexAttrib4Niv;
-  glVertexAttrib4Nsv: TglVertexAttrib4Nsv;
-  glVertexAttrib4Nub: TglVertexAttrib4Nub;
-  glVertexAttrib4Nubv: TglVertexAttrib4Nubv;
-  glVertexAttrib4Nuiv: TglVertexAttrib4Nuiv;
-  glVertexAttrib4Nusv: TglVertexAttrib4Nusv;
-  glVertexAttrib4bv: TglVertexAttrib4bv;
-  glVertexAttrib4d: TglVertexAttrib4d;
-  glVertexAttrib4dv: TglVertexAttrib4dv;
-  glVertexAttrib4f: TglVertexAttrib4f;
-  glVertexAttrib4fv: TglVertexAttrib4fv;
-  glVertexAttrib4iv: TglVertexAttrib4iv;
-  glVertexAttrib4s: TglVertexAttrib4s;
-  glVertexAttrib4sv: TglVertexAttrib4sv;
-  glVertexAttrib4ubv: TglVertexAttrib4ubv;
-  glVertexAttrib4uiv: TglVertexAttrib4uiv;
-  glVertexAttrib4usv: TglVertexAttrib4usv;
-  glVertexAttribPointer: TglVertexAttribPointer;
-
-  // GL_VERSION_2_1
-  glUniformMatrix2x3fv: TglUniformMatrix2x3fv;
-  glUniformMatrix3x2fv: TglUniformMatrix3x2fv;
-  glUniformMatrix2x4fv: TglUniformMatrix2x4fv;
-  glUniformMatrix4x2fv: TglUniformMatrix4x2fv;
-  glUniformMatrix3x4fv: TglUniformMatrix3x4fv;
-  glUniformMatrix4x3fv: TglUniformMatrix4x3fv;
-
-  // GL_VERSION_3_0
-  glColorMaski: TglColorMaski;
-  glGetBooleani_v: TglGetBooleani_v;
-  glGetIntegeri_v: TglGetIntegeri_v;
-  glEnablei: TglEnablei;
-  glDisablei: TglDisablei;
-  glIsEnabledi: TglIsEnabledi;
-  glBeginTransformFeedback: TglBeginTransformFeedback;
-  glEndTransformFeedback: TglEndTransformFeedback;
-  glBindBufferRange: TglBindBufferRange;
-  glBindBufferBase: TglBindBufferBase;
-  glTransformFeedbackVaryings: TglTransformFeedbackVaryings;
-  glGetTransformFeedbackVarying: TglGetTransformFeedbackVarying;
-  glClampColor: TglClampColor;
-  glBeginConditionalRender: TglBeginConditionalRender;
-  glEndConditionalRender: TglEndConditionalRender;
-  glVertexAttribI1i: TglVertexAttribI1i;
-  glVertexAttribI2i: TglVertexAttribI2i;
-  glVertexAttribI3i: TglVertexAttribI3i;
-  glVertexAttribI4i: TglVertexAttribI4i;
-  glVertexAttribI1ui: TglVertexAttribI1ui;
-  glVertexAttribI2ui: TglVertexAttribI2ui;
-  glVertexAttribI3ui: TglVertexAttribI3ui;
-  glVertexAttribI4ui: TglVertexAttribI4ui;
-  glVertexAttribI1iv: TglVertexAttribI1iv;
-  glVertexAttribI2iv: TglVertexAttribI2iv;
-  glVertexAttribI3iv: TglVertexAttribI3iv;
-  glVertexAttribI4iv: TglVertexAttribI4iv;
-  glVertexAttribI1uiv: TglVertexAttribI1uiv;
-  glVertexAttribI2uiv: TglVertexAttribI2uiv;
-  glVertexAttribI3uiv: TglVertexAttribI3uiv;
-  glVertexAttribI4uiv: TglVertexAttribI4uiv;
-  glVertexAttribI4bv: TglVertexAttribI4bv;
-  glVertexAttribI4sv: TglVertexAttribI4sv;
-  glVertexAttribI4ubv: TglVertexAttribI4ubv;
-  glVertexAttribI4usv: TglVertexAttribI4usv;
-  glVertexAttribIPointer: TglVertexAttribIPointer;
-  glGetVertexAttribIiv: TglGetVertexAttribIiv;
-  glGetVertexAttribIuiv: TglGetVertexAttribIuiv;
-  glGetUniformuiv: TglGetUniformuiv;
-  glBindFragDataLocation: TglBindFragDataLocation;
-  glGetFragDataLocation: TglGetFragDataLocation;
-  glUniform1ui: TglUniform1ui;
-  glUniform2ui: TglUniform2ui;
-  glUniform3ui: TglUniform3ui;
-  glUniform4ui: TglUniform4ui;
-  glUniform1uiv: TglUniform1uiv;
-  glUniform2uiv: TglUniform2uiv;
-  glUniform3uiv: TglUniform3uiv;
-  glUniform4uiv: TglUniform4uiv;
-  glTexParameterIiv: TglTexParameterIiv;
-  glTexParameterIuiv: TglTexParameterIuiv;
-  glGetTexParameterIiv: TglGetTexParameterIiv;
-  glGetTexParameterIuiv: TglGetTexParameterIuiv;
-  glClearBufferiv: TglClearBufferiv;
-  glClearBufferuiv: TglClearBufferuiv;
-  glClearBufferfv: TglClearBufferfv;
-  glClearBufferfi: TglClearBufferfi;
-  glGetStringi: TglGetStringi;
-
-  // GL_VERSION_3_1
-  glDrawArraysInstanced: TglDrawArraysInstanced;
-  glDrawElementsInstanced: TglDrawElementsInstanced;
-  glTexBuffer: TglTexBuffer;
-  glPrimitiveRestartIndex: TglPrimitiveRestartIndex;
-
-  // GL_VERSION_3_2
-  { OpenGL 3.2 also reuses entry points from these extensions: }
-  { ARB_draw_elements_base_vertex }
-  { ARB_provoking_vertex }
-  { ARB_sync }
-  { ARB_texture_multisample }
-  glGetInteger64i_v: TglGetInteger64i_v;
-  glGetBufferParameteri64v: TglGetBufferParameteri64v;
-  glProgramParameteri: TglProgramParameteri;
-  glFramebufferTexture: TglFramebufferTexture;
-  glFramebufferTextureFace: TglFramebufferTextureFace;
-
-  // GL_3DFX_tbuffer
-  glTbufferMask3DFX: TglTbufferMask3DFX;
-
-  // GL_APPLE_element_array
-  glElementPointerAPPLE: TglElementPointerAPPLE;
-  glDrawElementArrayAPPLE: TglDrawElementArrayAPPLE;
-  glDrawRangeElementArrayAPPLE: TglDrawRangeElementArrayAPPLE;
-  glMultiDrawElementArrayAPPLE: TglMultiDrawElementArrayAPPLE;
-  glMultiDrawRangeElementArrayAPPLE: TglMultiDrawRangeElementArrayAPPLE;
-
-  // GL_APPLE_fence
-  glGenFencesAPPLE: TglGenFencesAPPLE;
-  glDeleteFencesAPPLE: TglDeleteFencesAPPLE;
-  glSetFenceAPPLE: TglSetFenceAPPLE;
-  glIsFenceAPPLE: TglIsFenceAPPLE;
-  glTestFenceAPPLE: TglTestFenceAPPLE;
-  glFinishFenceAPPLE: TglFinishFenceAPPLE;
-  glTestObjectAPPLE: TglTestObjectAPPLE;
-  glFinishObjectAPPLE: TglFinishObjectAPPLE;
-
-  // GL_APPLE_vertex_array_object
-  glBindVertexArrayAPPLE: TglBindVertexArrayAPPLE;
-  glDeleteVertexArraysAPPLE: TglDeleteVertexArraysAPPLE;
-  glGenVertexArraysAPPLE: TglGenVertexArraysAPPLE;
-  glIsVertexArrayAPPLE: TglIsVertexArrayAPPLE;
-
-  // GL_APPLE_vertex_array_range
-  glVertexArrayRangeAPPLE: TglVertexArrayRangeAPPLE;
-  glFlushVertexArrayRangeAPPLE: TglFlushVertexArrayRangeAPPLE;
-  glVertexArrayParameteriAPPLE: TglVertexArrayParameteriAPPLE;
-
-  // GL_APPLE_texture_range
-  glTextureRangeAPPLE: TglTextureRangeAPPLE;
-  glGetTexParameterPointervAPPLE: TglGetTexParameterPointervAPPLE;
-
-  // GL_APPLE_vertex_program_evaluators
-  glEnableVertexAttribAPPLE: TglEnableVertexAttribAPPLE;
-  glDisableVertexAttribAPPLE: TglDisableVertexAttribAPPLE;
-  glIsVertexAttribEnabledAPPLE: TglIsVertexAttribEnabledAPPLE;
-  glMapVertexAttrib1dAPPLE: TglMapVertexAttrib1dAPPLE;
-  glMapVertexAttrib1fAPPLE: TglMapVertexAttrib1fAPPLE;
-  glMapVertexAttrib2dAPPLE: TglMapVertexAttrib2dAPPLE;
-  glMapVertexAttrib2fAPPLE: TglMapVertexAttrib2fAPPLE;
-
-  // GL_APPLE_object_purgeable
-  glObjectPurgeableAPPLE: TglObjectPurgeableAPPLE;
-  glObjectUnpurgeableAPPLE: TglObjectUnpurgeableAPPLE;
-  glGetObjectParameterivAPPLE: TglGetObjectParameterivAPPLE;
-
-  // GL_ARB_matrix_palette
-  glCurrentPaletteMatrixARB: TglCurrentPaletteMatrixARB;
-  glMatrixIndexubvARB: TglMatrixIndexubvARB;
-  glMatrixIndexusvARB: TglMatrixIndexusvARB;
-  glMatrixIndexuivARB: TglMatrixIndexuivARB;
-  glMatrixIndexPointerARB: TglMatrixIndexPointerARB;
-
-  // GL_ARB_multisample
-  glSampleCoverageARB: TglSampleCoverageARB;
-
-  // GL_ARB_multitexture
-  glActiveTextureARB: TglActiveTextureARB;
-  glClientActiveTextureARB: TglClientActiveTextureARB;
-  glMultiTexCoord1dARB: TglMultiTexCoord1dARB;
-  glMultiTexCoord1dvARB: TglMultiTexCoord1dvARB;
-  glMultiTexCoord1fARB: TglMultiTexCoord1fARB;
-  glMultiTexCoord1fvARB: TglMultiTexCoord1fvARB;
-  glMultiTexCoord1iARB: TglMultiTexCoord1iARB;
-  glMultiTexCoord1ivARB: TglMultiTexCoord1ivARB;
-  glMultiTexCoord1sARB: TglMultiTexCoord1sARB;
-  glMultiTexCoord1svARB: TglMultiTexCoord1svARB;
-  glMultiTexCoord2dARB: TglMultiTexCoord2dARB;
-  glMultiTexCoord2dvARB: TglMultiTexCoord2dvARB;
-  glMultiTexCoord2fARB: TglMultiTexCoord2fARB;
-  glMultiTexCoord2fvARB: TglMultiTexCoord2fvARB;
-  glMultiTexCoord2iARB: TglMultiTexCoord2iARB;
-  glMultiTexCoord2ivARB: TglMultiTexCoord2ivARB;
-  glMultiTexCoord2sARB: TglMultiTexCoord2sARB;
-  glMultiTexCoord2svARB: TglMultiTexCoord2svARB;
-  glMultiTexCoord3dARB: TglMultiTexCoord3dARB;
-  glMultiTexCoord3dvARB: TglMultiTexCoord3dvARB;
-  glMultiTexCoord3fARB: TglMultiTexCoord3fARB;
-  glMultiTexCoord3fvARB: TglMultiTexCoord3fvARB;
-  glMultiTexCoord3iARB: TglMultiTexCoord3iARB;
-  glMultiTexCoord3ivARB: TglMultiTexCoord3ivARB;
-  glMultiTexCoord3sARB: TglMultiTexCoord3sARB;
-  glMultiTexCoord3svARB: TglMultiTexCoord3svARB;
-  glMultiTexCoord4dARB: TglMultiTexCoord4dARB;
-  glMultiTexCoord4dvARB: TglMultiTexCoord4dvARB;
-  glMultiTexCoord4fARB: TglMultiTexCoord4fARB;
-  glMultiTexCoord4fvARB: TglMultiTexCoord4fvARB;
-  glMultiTexCoord4iARB: TglMultiTexCoord4iARB;
-  glMultiTexCoord4ivARB: TglMultiTexCoord4ivARB;
-  glMultiTexCoord4sARB: TglMultiTexCoord4sARB;
-  glMultiTexCoord4svARB: TglMultiTexCoord4svARB;
-
-  // GL_ARB_point_parameters
-  glPointParameterfARB: TglPointParameterfARB;
-  glPointParameterfvARB: TglPointParameterfvARB;
-
-  // GL_ARB_texture_compression
-  glCompressedTexImage3DARB: TglCompressedTexImage3DARB;
-  glCompressedTexImage2DARB: TglCompressedTexImage2DARB;
-  glCompressedTexImage1DARB: TglCompressedTexImage1DARB;
-  glCompressedTexSubImage3DARB: TglCompressedTexSubImage3DARB;
-  glCompressedTexSubImage2DARB: TglCompressedTexSubImage2DARB;
-  glCompressedTexSubImage1DARB: TglCompressedTexSubImage1DARB;
-  glGetCompressedTexImageARB: TglGetCompressedTexImageARB;
-
-  // GL_ARB_transpose_matrix
-  glLoadTransposeMatrixfARB: TglLoadTransposeMatrixfARB;
-  glLoadTransposeMatrixdARB: TglLoadTransposeMatrixdARB;
-  glMultTransposeMatrixfARB: TglMultTransposeMatrixfARB;
-  glMultTransposeMatrixdARB: TglMultTransposeMatrixdARB;
-
-  // GL_ARB_vertex_blend
-  glWeightbvARB: TglWeightbvARB;
-  glWeightsvARB: TglWeightsvARB;
-  glWeightivARB: TglWeightivARB;
-  glWeightfvARB: TglWeightfvARB;
-  glWeightdvARB: TglWeightdvARB;
-  glWeightubvARB: TglWeightubvARB;
-  glWeightusvARB: TglWeightusvARB;
-  glWeightuivARB: TglWeightuivARB;
-  glWeightPointerARB: TglWeightPointerARB;
-  glVertexBlendARB: TglVertexBlendARB;
-
-  // GL_ARB_vertex_buffer_object
-  glBindBufferARB: TglBindBufferARB;
-  glDeleteBuffersARB: TglDeleteBuffersARB;
-  glGenBuffersARB: TglGenBuffersARB;
-  glIsBufferARB: TglIsBufferARB;
-  glBufferDataARB: TglBufferDataARB;
-  glBufferSubDataARB: TglBufferSubData;
-  glGetBufferSubDataARB: TglGetBufferSubDataARB;
-  glMapBufferARB: TglMapBufferARB;
-  glUnmapBufferARB: TglUnmapBufferARB;
-  glGetBufferParameterivARB: TglGetBufferParameterivARB;
-  glGetBufferPointervARB: TglGetBufferPointervARB;
-
-  // GL_ARB_vertex_program
-  glVertexAttrib1dARB: TglVertexAttrib1dARB;
-  glVertexAttrib1dvARB: TglVertexAttrib1dvARB;
-  glVertexAttrib1fARB: TglVertexAttrib1fARB;
-  glVertexAttrib1fvARB: TglVertexAttrib1fvARB;
-  glVertexAttrib1sARB: TglVertexAttrib1sARB;
-  glVertexAttrib1svARB: TglVertexAttrib1svARB;
-  glVertexAttrib2dARB: TglVertexAttrib2dARB;
-  glVertexAttrib2dvARB: TglVertexAttrib2dvARB;
-  glVertexAttrib2fARB: TglVertexAttrib2fARB;
-  glVertexAttrib2fvARB: TglVertexAttrib2fvARB;
-  glVertexAttrib2sARB: TglVertexAttrib2sARB;
-  glVertexAttrib2svARB: TglVertexAttrib2svARB;
-  glVertexAttrib3dARB: TglVertexAttrib3dARB;
-  glVertexAttrib3dvARB: TglVertexAttrib3dvARB;
-  glVertexAttrib3fARB: TglVertexAttrib3fARB;
-  glVertexAttrib3fvARB: TglVertexAttrib3fvARB;
-  glVertexAttrib3sARB: TglVertexAttrib3sARB;
-  glVertexAttrib3svARB: TglVertexAttrib3svARB;
-  glVertexAttrib4NbvARB: TglVertexAttrib4NbvARB;
-  glVertexAttrib4NivARB: TglVertexAttrib4NivARB;
-  glVertexAttrib4NsvARB: TglVertexAttrib4NsvARB;
-  glVertexAttrib4NubARB: TglVertexAttrib4NubARB;
-  glVertexAttrib4NubvARB: TglVertexAttrib4NubvARB;
-  glVertexAttrib4NuivARB: TglVertexAttrib4NuivARB;
-  glVertexAttrib4NusvARB: TglVertexAttrib4NusvARB;
-  glVertexAttrib4bvARB: TglVertexAttrib4bvARB;
-  glVertexAttrib4dARB: TglVertexAttrib4dARB;
-  glVertexAttrib4dvARB: TglVertexAttrib4dvARB;
-  glVertexAttrib4fARB: TglVertexAttrib4fARB;
-  glVertexAttrib4fvARB: TglVertexAttrib4fvARB;
-  glVertexAttrib4ivARB: TglVertexAttrib4ivARB;
-  glVertexAttrib4sARB: TglVertexAttrib4sARB;
-  glVertexAttrib4svARB: TglVertexAttrib4svARB;
-  glVertexAttrib4ubvARB: TglVertexAttrib4ubvARB;
-  glVertexAttrib4uivARB: TglVertexAttrib4uivARB;
-  glVertexAttrib4usvARB: TglVertexAttrib4usvARB;
-  glVertexAttribPointerARB: TglVertexAttribPointerARB;
-  glEnableVertexAttribArrayARB: TglEnableVertexAttribArrayARB;
-  glDisableVertexAttribArrayARB: TglDisableVertexAttribArrayARB;
-  glProgramStringARB: TglProgramStringARB;
-  glBindProgramARB: TglBindProgramARB;
-  glDeleteProgramsARB: TglDeleteProgramsARB;
-  glGenProgramsARB: TglGenProgramsARB;
-
-  glProgramEnvParameter4dARB: TglProgramEnvParameter4dARB;
-  glProgramEnvParameter4dvARB: TglProgramEnvParameter4dvARB;
-  glProgramEnvParameter4fARB: TglProgramEnvParameter4fARB;
-  glProgramEnvParameter4fvARB: TglProgramEnvParameter4fvARB;
-  glProgramLocalParameter4dARB: TglProgramLocalParameter4dARB;
-  glProgramLocalParameter4dvARB: TglProgramLocalParameter4dvARB;
-  glProgramLocalParameter4fARB: TglProgramLocalParameter4fARB;
-  glProgramLocalParameter4fvARB: TglProgramLocalParameter4fvARB;
-  glGetProgramEnvParameterdvARB: TglGetProgramEnvParameterdvARB;
-  glGetProgramEnvParameterfvARB: TglGetProgramEnvParameterfvARB;
-  glGetProgramLocalParameterdvARB: TglGetProgramLocalParameterdvARB;
-  glGetProgramLocalParameterfvARB: TglGetProgramLocalParameterfvARB;
-  glGetProgramivARB: TglGetProgramivARB;
-  glGetProgramStringARB: TglGetProgramStringARB;
-  glGetVertexAttribdvARB: TglGetVertexAttribdvARB;
-  glGetVertexAttribfvARB: TglGetVertexAttribfvARB;
-  glGetVertexAttribivARB: TglGetVertexAttribivARB;
-  glGetVertexAttribPointervARB: TglGetVertexAttribPointervARB;
-  glIsProgramARB: TglIsProgramARB;
-
-  // GL_ARB_window_pos
-  glWindowPos2dARB: TglWindowPos2dARB;
-  glWindowPos2dvARB: TglWindowPos2dvARB;
-  glWindowPos2fARB: TglWindowPos2fARB;
-  glWindowPos2fvARB: TglWindowPos2fvARB;
-  glWindowPos2iARB: TglWindowPos2iARB;
-  glWindowPos2ivARB: TglWindowPos2ivARB;
-  glWindowPos2sARB: TglWindowPos2sARB;
-  glWindowPos2svARB: TglWindowPos2svARB;
-  glWindowPos3dARB: TglWindowPos3dARB;
-  glWindowPos3dvARB: TglWindowPos3dvARB;
-  glWindowPos3fARB: TglWindowPos3fARB;
-  glWindowPos3fvARB: TglWindowPos3fvARB;
-  glWindowPos3iARB: TglWindowPos3iARB;
-  glWindowPos3ivARB: TglWindowPos3ivARB;
-  glWindowPos3sARB: TglWindowPos3sARB;
-  glWindowPos3svARB: TglWindowPos3svARB;
-
-  // GL_ARB_draw_buffers
-  glDrawBuffersARB: TglDrawBuffersARB;
-
-  // GL_ARB_color_buffer_float
-  glClampColorARB: TglClampColorARB;
-
-  // GL_ARB_vertex_shader
-  glGetActiveAttribARB: TglGetActiveAttribARB;
-  glGetAttribLocationARB: TglGetAttribLocationARB;
-  glBindAttribLocationARB: TglBindAttribLocationARB;
-
-  // GL_ARB_shader_objects
-  glDeleteObjectARB: TglDeleteObjectARB;
-  glGetHandleARB: TglGetHandleARB;
-  glDetachObjectARB: TglDetachObjectARB;
-  glCreateShaderObjectARB: TglCreateShaderObjectARB;
-  glShaderSourceARB: TglShaderSourceARB;
-  glCompileShaderARB: TglCompileShaderARB;
-  glCreateProgramObjectARB: TglCreateProgramObjectARB;
-  glAttachObjectARB: TglAttachObjectARB;
-  glLinkProgramARB: TglLinkProgramARB;
-  glUseProgramObjectARB: TglUseProgramObjectARB;
-  glValidateProgramARB: TglValidateProgramARB;
-  glUniform1fARB: TglUniform1fARB;
-  glUniform2fARB: TglUniform2fARB;
-  glUniform3fARB: TglUniform3fARB;
-  glUniform4fARB: TglUniform4fARB;
-  glUniform1iARB: TglUniform1iARB;
-  glUniform2iARB: TglUniform2iARB;
-  glUniform3iARB: TglUniform3iARB;
-  glUniform4iARB: TglUniform4iARB;
-  glUniform1fvARB: TglUniform1fvARB;
-  glUniform2fvARB: TglUniform2fvARB;
-  glUniform3fvARB: TglUniform3fvARB;
-  glUniform4fvARB: TglUniform4fvARB;
-  glUniform1ivARB: TglUniform1ivARB;
-  glUniform2ivARB: TglUniform2ivARB;
-  glUniform3ivARB: TglUniform3ivARB;
-  glUniform4ivARB: TglUniform4ivARB;
-  glUniformMatrix2fvARB: TglUniformMatrix2fvARB;
-  glUniformMatrix3fvARB: TglUniformMatrix3fvARB;
-  glUniformMatrix4fvARB: TglUniformMatrix4fvARB;
-  glGetObjectParameterfvARB: TglGetObjectParameterfvARB;
-  glGetObjectParameterivARB: TglGetObjectParameterivARB;
-  glGetInfoLogARB: TglGetInfoLogARB;
-  glGetAttachedObjectsARB: TglGetAttachedObjectsARB;
-  glGetUniformLocationARB: TglGetUniformLocationARB;
-  glGetActiveUniformARB: TglGetActiveUniformARB;
-  glGetUniformfvARB: TglGetUniformfvARB;
-  glGetUniformivARB: TglGetUniformivARB;
-  glGetShaderSourceARB: TglGetShaderSourceARB;
-
-  // GL_ARB_Occlusion_Query
-  glGenQueriesARB: TglGenQueriesARB;
-  glDeleteQueriesARB: TglDeleteQueriesARB;
-  glIsQueryARB: TglIsQueryARB;
-  glBeginQueryARB: TglBeginQueryARB;
-  glEndQueryARB: TglEndQueryARB;
-  glGetQueryivARB: TglGetQueryivARB;
-  glGetQueryObjectivARB: TglGetQueryObjectivARB;
-  glGetQueryObjectuivARB: TglGetQueryObjectuivARB;
-
-  // GL_ARB_draw_instanced
-  glDrawArraysInstancedARB: TglDrawArraysInstancedARB;
-  glDrawElementsInstancedARB: TglDrawElementsInstancedARB;
-
-  // GL_ARB_framebuffer_object
-  glIsRenderbuffer: TglIsRenderbuffer;
-  glBindRenderbuffer: TglBindRenderbuffer;
-  glDeleteRenderbuffers: TglDeleteRenderbuffers;
-  glGenRenderbuffers: TglGenRenderbuffers;
-  glRenderbufferStorage: TglRenderbufferStorage;
-  glGetRenderbufferParameteriv: TglGetRenderbufferParameteriv;
-  glIsFramebuffer: TglIsFramebuffer;
-  glBindFramebuffer: TglBindFramebuffer;
-  glDeleteFramebuffers: TglDeleteFramebuffers;
-  glGenFramebuffers: TglGenFramebuffers;
-  glCheckFramebufferStatus: TglCheckFramebufferStatus;
-  glFramebufferTexture1D: TglFramebufferTexture1D;
-  glFramebufferTexture2D: TglFramebufferTexture2D;
-  glFramebufferTexture3D: TglFramebufferTexture3D;
-  glFramebufferRenderbuffer: TglFramebufferRenderbuffer;
-  glGetFramebufferAttachmentParameteriv: TglGetFramebufferAttachmentParameteriv;
-  glGenerateMipmap: TglGenerateMipmap;
-  glBlitFramebuffer: TglBlitFramebuffer;
-  glRenderbufferStorageMultisample: TglRenderbufferStorageMultisample;
-  glFramebufferTextureLayer: TglFramebufferTextureLayer;
-
-  // GL_ARB_geometry_shader4
-  glProgramParameteriARB: TglProgramParameteriARB;
-  glFramebufferTextureARB: TglFramebufferTextureARB;
-  glFramebufferTextureLayerARB: TglFramebufferTextureLayerARB;
-  glFramebufferTextureFaceARB: TglFramebufferTextureFaceARB;
-
-  // GL_ARB_instanced_arrays
-  glVertexAttribDivisorARB: TglVertexAttribDivisorARB;
-
-  // GL_ARB_map_buffer_range
-  glMapBufferRange: TglMapBufferRange;
-  glFlushMappedBufferRange: TglFlushMappedBufferRange;
-
-  // GL_ARB_texture_buffer_object
-  glTexBufferARB: TglTexBufferARB;
-
-  // GL_ARB_vertex_array_object
-  glBindVertexArray: TglBindVertexArray;
-  glDeleteVertexArrays: TglDeleteVertexArrays;
-  glGenVertexArrays: TglGenVertexArrays;
-  glIsVertexArray: TglIsVertexArray;
-
-  // GL_ARB_uniform_buffer_object
-  glGetUniformIndices: TglGetUniformIndices;
-  glGetActiveUniformsiv: TglGetActiveUniformsiv;
-  glGetActiveUniformName: TglGetActiveUniformName;
-  glGetUniformBlockIndex: TglGetUniformBlockIndex;
-  glGetActiveUniformBlockiv: TglGetActiveUniformBlockiv;
-  glGetActiveUniformBlockName: TglGetActiveUniformBlockName;
-  glUniformBlockBinding: TglUniformBlockBinding;
-
-  // GL_ARB_copy_buffer
-  glCopyBufferSubData: TglCopyBufferSubData;
-
-  // GL_ARB_draw_elements_base_vertex
-  glDrawElementsBaseVertex: TglDrawElementsBaseVertex;
-  glDrawRangeElementsBaseVertex: TglDrawRangeElementsBaseVertex;
-  glDrawElementsInstancedBaseVertex: TglDrawElementsInstancedBaseVertex;
-  glMultiDrawElementsBaseVertex: TglMultiDrawElementsBaseVertex;
-
-  // GL_ARB_provoking_vertex
-  glProvokingVertex: TglProvokingVertex;
-
-  // GL_ARB_sync
-  glFenceSync: TglFenceSync;
-  glIsSync: TglIsSync;
-  glDeleteSync: TglDeleteSync;
-  glClientWaitSync: TglClientWaitSync;
-  glWaitSync: TglWaitSync;
-  glGetInteger64v: TglGetInteger64v;
-  glGetSynciv: TglGetSynciv;
-
-  // GL_ARB_texture_multisample
-  glTexImage2DMultisample: TglTexImage2DMultisample;
-  glTexImage3DMultisample: TglTexImage3DMultisample;
-  glGetMultisamplefv: TglGetMultisamplefv;
-  glSampleMaski: TglSampleMaski;
-
-  // GL_ARB_draw_buffers_blend
-  glBlendEquationi: TglBlendEquationi;
-  glBlendEquationSeparatei: TglBlendEquationSeparatei;
-  glBlendFunci: TglBlendFunci;
-  glBlendFuncSeparatei: TglBlendFuncSeparatei;
-
-  // GL_ARB_sample_shading
-  glMinSampleShading: TglMinSampleShading;
-
-  // GL_ATI_draw_buffers
-  glDrawBuffersATI: TglDrawBuffersATI;
-
-  // GL_ATI_element_array
-  glElementPointerATI: TglElementPointerATI;
-  glDrawElementArrayATI: TglDrawElementArrayATI;
-  glDrawRangeElementArrayATI: TglDrawRangeElementArrayATI;
-
-  // GL_ATI_envmap_bumpmap
-  glTexBumpParameterivATI: TglTexBumpParameterivATI;
-  glTexBumpParameterfvATI: TglTexBumpParameterfvATI;
-  glGetTexBumpParameterivATI: TglGetTexBumpParameterivATI;
-  glGetTexBumpParameterfvATI: TglGetTexBumpParameterfvATI;
-
-  // GL_ATI_fragment_shader
-  glGenFragmentShadersATI: TglGenFragmentShadersATI;
-  glBindFragmentShaderATI: TglBindFragmentShaderATI;
-  glDeleteFragmentShaderATI: TglDeleteFragmentShaderATI;
-  glBeginFragmentShaderATI: TglBeginFragmentShaderATI;
-  glEndFragmentShaderATI: TglEndFragmentShaderATI;
-  glPassTexCoordATI: TglPassTexCoordATI;
-  glSampleMapATI: TglSampleMapATI;
-  glColorFragmentOp1ATI: TglColorFragmentOp1ATI;
-  glColorFragmentOp2ATI: TglColorFragmentOp2ATI;
-  glColorFragmentOp3ATI: TglColorFragmentOp3ATI;
-  glAlphaFragmentOp1ATI: TglAlphaFragmentOp1ATI;
-  glAlphaFragmentOp2ATI: TglAlphaFragmentOp2ATI;
-  glAlphaFragmentOp3ATI: TglAlphaFragmentOp3ATI;
-  glSetFragmentShaderConstantATI: TglSetFragmentShaderConstantATI;
-
-  // GL_ATI_map_object_buffer
-  glMapObjectBufferATI: TglMapObjectBufferATI;
-  glUnmapObjectBufferATI: TglUnmapObjectBufferATI;
-
-  // GL_ATI_pn_triangles
-  glPNTrianglesiATI: TglPNTrianglesiATI;
-  glPNTrianglesfATI: TglPNTrianglesfATI;
-
-  // GL_ATI_separate_stencil
-  glStencilOpSeparateATI: TglStencilOpSeparateATI;
-  glStencilFuncSeparateATI: TglStencilFuncSeparateATI;
-
-  // GL_ATI_vertex_array_object
-  glNewObjectBufferATI: TglNewObjectBufferATI;
-  glIsObjectBufferATI: TglIsObjectBufferATI;
-  glUpdateObjectBufferATI: TglUpdateObjectBufferATI;
-  glGetObjectBufferfvATI: TglGetObjectBufferfvATI;
-  glGetObjectBufferivATI: TglGetObjectBufferivATI;
-  glFreeObjectBufferATI: TglFreeObjectBufferATI;
-  glArrayObjectATI: TglArrayObjectATI;
-  glGetArrayObjectfvATI: TglGetArrayObjectfvATI;
-  glGetArrayObjectivATI: TglGetArrayObjectivATI;
-  glVariantArrayObjectATI: TglVariantArrayObjectATI;
-  glGetVariantArrayObjectfvATI: TglGetVariantArrayObjectfvATI;
-  glGetVariantArrayObjectivATI: TglGetVariantArrayObjectivATI;
-  glVertexAttribArrayObjectATI: TglVertexAttribArrayObjectATI;
-  glGetVertexAttribArrayObjectfvATI: TglGetVertexAttribArrayObjectfvATI;
-  glGetVertexAttribArrayObjectivATI: TglGetVertexAttribArrayObjectivATI;
-
-  // GL_ATI_vertex_streams
-  glVertexStream1sATI: TglVertexStream1sATI;
-  glVertexStream1svATI: TglVertexStream1svATI;
-  glVertexStream1iATI: TglVertexStream1iATI;
-  glVertexStream1ivATI: TglVertexStream1ivATI;
-  glVertexStream1fATI: TglVertexStream1fATI;
-  glVertexStream1fvATI: TglVertexStream1fvATI;
-  glVertexStream1dATI: TglVertexStream1dATI;
-  glVertexStream1dvATI: TglVertexStream1dvATI;
-  glVertexStream2sATI: TglVertexStream2sATI;
-  glVertexStream2svATI: TglVertexStream2svATI;
-  glVertexStream2iATI: TglVertexStream2iATI;
-  glVertexStream2ivATI: TglVertexStream2ivATI;
-  glVertexStream2fATI: TglVertexStream2fATI;
-  glVertexStream2fvATI: TglVertexStream2fvATI;
-  glVertexStream2dATI: TglVertexStream2dATI;
-  glVertexStream2dvATI: TglVertexStream2dvATI;
-  glVertexStream3sATI: TglVertexStream3sATI;
-  glVertexStream3svATI: TglVertexStream3svATI;
-  glVertexStream3iATI: TglVertexStream3iATI;
-  glVertexStream3ivATI: TglVertexStream3ivATI;
-  glVertexStream3fATI: TglVertexStream3fATI;
-  glVertexStream3fvATI: TglVertexStream3fvATI;
-  glVertexStream3dATI: TglVertexStream3dATI;
-  glVertexStream3dvATI: TglVertexStream3dvATI;
-  glVertexStream4sATI: TglVertexStream4sATI;
-  glVertexStream4svATI: TglVertexStream4svATI;
-  glVertexStream4iATI: TglVertexStream4iATI;
-  glVertexStream4ivATI: TglVertexStream4ivATI;
-  glVertexStream4fATI: TglVertexStream4fATI;
-  glVertexStream4fvATI: TglVertexStream4fvATI;
-  glVertexStream4dATI: TglVertexStream4dATI;
-  glVertexStream4dvATI: TglVertexStream4dvATI;
-  glNormalStream3bATI: TglNormalStream3bATI;
-  glNormalStream3bvATI: TglNormalStream3bvATI;
-  glNormalStream3sATI: TglNormalStream3sATI;
-  glNormalStream3svATI: TglNormalStream3svATI;
-  glNormalStream3iATI: TglNormalStream3iATI;
-  glNormalStream3ivATI: TglNormalStream3ivATI;
-  glNormalStream3fATI: TglNormalStream3fATI;
-  glNormalStream3fvATI: TglNormalStream3fvATI;
-  glNormalStream3dATI: TglNormalStream3dATI;
-  glNormalStream3dvATI: TglNormalStream3dvATI;
-  glClientActiveVertexStreamATI: TglClientActiveVertexStreamATI;
-  glVertexBlendEnviATI: TglVertexBlendEnviATI;
-  glVertexBlendEnvfATI: TglVertexBlendEnvfATI;
-
-  // GL_AMD_performance_monitor
-  glGetPerfMonitorGroupsAMD: TglGetPerfMonitorGroupsAMD;
-  glGetPerfMonitorCountersAMD: TglGetPerfMonitorCountersAMD;
-  glGetPerfMonitorGroupStringAMD: TglGetPerfMonitorGroupStringAMD;
-  glGetPerfMonitorCounterStringAMD: TglGetPerfMonitorCounterStringAMD;
-  glGetPerfMonitorCounterInfoAMD: TglGetPerfMonitorCounterInfoAMD;
-  glGenPerfMonitorsAMD: TglGenPerfMonitorsAMD;
-  glDeletePerfMonitorsAMD: TglDeletePerfMonitorsAMD;
-  glSelectPerfMonitorCountersAMD: TglSelectPerfMonitorCountersAMD;
-  glBeginPerfMonitorAMD: TglBeginPerfMonitorAMD;
-  glEndPerfMonitorAMD: TglEndPerfMonitorAMD;
-  glGetPerfMonitorCounterDataAMD: TglGetPerfMonitorCounterDataAMD;
-
-  // GL_EXT_blend_color
-  glBlendColorEXT: TglBlendColorEXT;
-
-  // GL_EXT_blend_func_separate
-  glBlendFuncSeparateEXT: TglBlendFuncSeparateEXT;
-
-  // GL_EXT_blend_minmax
-  glBlendEquationEXT: TglBlendEquationEXT;
-
-  // GL_EXT_color_subtable
-  glColorSubTableEXT: TglColorSubTableEXT;
-  glCopyColorSubTableEXT: TglCopyColorSubTableEXT;
-
-  // GL_EXT_compiled_vertex_array
-  glLockArraysEXT: TglLockArraysEXT;
-  glUnlockArraysEXT: TglUnlockArraysEXT;
-
-  // GL_EXT_convolution
-  glConvolutionFilter1DEXT: TglConvolutionFilter1DEXT;
-  glConvolutionFilter2DEXT: TglConvolutionFilter2DEXT;
-  glConvolutionParameterfEXT: TglConvolutionParameterfEXT;
-  glConvolutionParameterfvEXT: TglConvolutionParameterfvEXT;
-  glConvolutionParameteriEXT: TglConvolutionParameteriEXT;
-  glConvolutionParameterivEXT: TglConvolutionParameterivEXT;
-  glCopyConvolutionFilter1DEXT: TglCopyConvolutionFilter1DEXT;
-  glCopyConvolutionFilter2DEXT: TglCopyConvolutionFilter2DEXT;
-  glGetConvolutionFilterEXT: TglGetConvolutionFilterEXT;
-  glGetConvolutionParameterfvEXT: TglGetConvolutionParameterfvEXT;
-  glGetConvolutionParameterivEXT: TglGetConvolutionParameterivEXT;
-  glGetSeparableFilterEXT: TglGetSeparableFilterEXT;
-  glSeparableFilter2DEXT: TglSeparableFilter2DEXT;
-
-  // GL_EXT_coordinate_frame
-  glTangent3bEXT: TglTangent3bEXT;
-  glTangent3bvEXT: TglTangent3bvEXT;
-  glTangent3dEXT: TglTangent3dEXT;
-  glTangent3dvEXT: TglTangent3dvEXT;
-  glTangent3fEXT: TglTangent3fEXT;
-  glTangent3fvEXT: TglTangent3fvEXT;
-  glTangent3iEXT: TglTangent3iEXT;
-  glTangent3ivEXT: TglTangent3ivEXT;
-  glTangent3sEXT: TglTangent3sEXT;
-  glTangent3svEXT: TglTangent3svEXT;
-  glBinormal3bEXT: TglBinormal3bEXT;
-  glBinormal3bvEXT: TglBinormal3bvEXT;
-  glBinormal3dEXT: TglBinormal3dEXT;
-  glBinormal3dvEXT: TglBinormal3dvEXT;
-  glBinormal3fEXT: TglBinormal3fEXT;
-  glBinormal3fvEXT: TglBinormal3fvEXT;
-  glBinormal3iEXT: TglBinormal3iEXT;
-  glBinormal3ivEXT: TglBinormal3ivEXT;
-  glBinormal3sEXT: TglBinormal3sEXT;
-  glBinormal3svEXT: TglBinormal3svEXT;
-  glTangentPointerEXT: TglTangentPointerEXT;
-  glBinormalPointerEXT: TglBinormalPointerEXT;
-
-  // GL_EXT_copy_texture
-  glCopyTexImage1DEXT: TglCopyTexImage1DEXT;
-  glCopyTexImage2DEXT: TglCopyTexImage2DEXT;
-  glCopyTexSubImage1DEXT: TglCopyTexSubImage1DEXT;
-  glCopyTexSubImage2DEXT: TglCopyTexSubImage2DEXT;
-  glCopyTexSubImage3DEXT: TglCopyTexSubImage3DEXT;
-
-  // GL_EXT_cull_vertex
-  glCullParameterdvEXT: TglCullParameterdvEXT;
-  glCullParameterfvEXT: TglCullParameterfvEXT;
-
-  // GL_EXT_draw_range_elements
-  glDrawRangeElementsEXT: TglDrawRangeElementsEXT;
-
-  // GL_EXT_fog_coord
-  glFogCoordfEXT: TglFogCoordfEXT;
-  glFogCoordfvEXT: TglFogCoordfvEXT;
-  glFogCoorddEXT: TglFogCoorddEXT;
-  glFogCoorddvEXT: TglFogCoorddvEXT;
-  glFogCoordPointerEXT: TglFogCoordPointerEXT;
-
-  // GL_EXT_framebuffer_object
-  glIsRenderbufferEXT: TglIsRenderbufferEXT;
-  glBindRenderbufferEXT: TglBindRenderbufferEXT;
-  glDeleteRenderbuffersEXT: TglDeleteRenderbuffersEXT;
-  glGenRenderbuffersEXT: TglGenRenderbuffersEXT;
-  glRenderbufferStorageEXT: TglRenderbufferStorageEXT;
-  glGetRenderbufferParameterivEXT: TglGetRenderbufferParameterivEXT;
-  glIsFramebufferEXT: TglIsFramebufferEXT;
-  glBindFramebufferEXT: TglBindFramebufferEXT;
-  glDeleteFramebuffersEXT: TglDeleteFramebuffersEXT;
-  glGenFramebuffersEXT: TglGenFramebuffersEXT;
-  glCheckFramebufferStatusEXT: TglCheckFramebufferStatusEXT;
-  glFramebufferTexture1DEXT: TglFramebufferTexture1DEXT;
-  glFramebufferTexture2DEXT: TglFramebufferTexture2DEXT;
-  glFramebufferTexture3DEXT: TglFramebufferTexture3DEXT;
-  glFramebufferRenderbufferEXT: TglFramebufferRenderbufferEXT;
-  glGetFramebufferAttachmentParameterivEXT: TglGetFramebufferAttachmentParameterivEXT;
-  glGenerateMipmapEXT: TglGenerateMipmapEXT;
-
-  // GL_EXT_histogram
-  glGetHistogramEXT: TglGetHistogramEXT;
-  glGetHistogramParameterfvEXT: TglGetHistogramParameterfvEXT;
-  glGetHistogramParameterivEXT: TglGetHistogramParameterivEXT;
-  glGetMinmaxEXT: TglGetMinmaxEXT;
-  glGetMinmaxParameterfvEXT: TglGetMinmaxParameterfvEXT;
-  glGetMinmaxParameterivEXT: TglGetMinmaxParameterivEXT;
-  glHistogramEXT: TglHistogramEXT;
-  glMinmaxEXT: TglMinmaxEXT;
-  glResetHistogramEXT: TglResetHistogramEXT;
-  glResetMinmaxEXT: TglResetMinmaxEXT;
-
-  // GL_EXT_index_func
-  glIndexFuncEXT: TglIndexFuncEXT;
-
-  // GL_EXT_index_material
-  glIndexMaterialEXT: TglIndexMaterialEXT;
-
-  // GL_EXT_light_texture
-  glApplyTextureEXT: TglApplyTextureEXT;
-  glTextureLightEXT: TglTextureLightEXT;
-  glTextureMaterialEXT: TglTextureMaterialEXT;
-
-  // GL_EXT_multi_draw_arrays
-  glMultiDrawArraysEXT: TglMultiDrawArraysEXT;
-  glMultiDrawElementsEXT: TglMultiDrawElementsEXT;
-
-  // GL_EXT_multisample
-  glSampleMaskEXT: TglSampleMaskEXT;
-  glSamplePatternEXT: TglSamplePatternEXT;
-
-  // GL_EXT_paletted_texture
-  glColorTableEXT: TglColorTableEXT;
-  glGetColorTableEXT: TglGetColorTableEXT;
-  glGetColorTableParameterivEXT: TglGetColorTableParameterivEXT;
-  glGetColorTableParameterfvEXT: TglGetColorTableParameterfvEXT;
-
-  // GL_EXT_pixel_transform
-  glPixelTransformParameteriEXT: TglPixelTransformParameteriEXT;
-  glPixelTransformParameterfEXT: TglPixelTransformParameterfEXT;
-  glPixelTransformParameterivEXT: TglPixelTransformParameterivEXT;
-  glPixelTransformParameterfvEXT: TglPixelTransformParameterfvEXT;
-
-  // GL_EXT_point_parameters
-  glPointParameterfEXT: TglPointParameterfEXT;
-  glPointParameterfvEXT: TglPointParameterfvEXT;
-
-  // GL_EXT_polygon_offset
-  glPolygonOffsetEXT: TglPolygonOffsetEXT;
-
-  // GL_EXT_secondary_color
-  glSecondaryColor3bEXT: TglSecondaryColor3bEXT;
-  glSecondaryColor3bvEXT: TglSecondaryColor3bvEXT;
-  glSecondaryColor3dEXT: TglSecondaryColor3dEXT;
-  glSecondaryColor3dvEXT: TglSecondaryColor3dvEXT;
-  glSecondaryColor3fEXT: TglSecondaryColor3fEXT;
-  glSecondaryColor3fvEXT: TglSecondaryColor3fvEXT;
-  glSecondaryColor3iEXT: TglSecondaryColor3iEXT;
-  glSecondaryColor3ivEXT: TglSecondaryColor3ivEXT;
-  glSecondaryColor3sEXT: TglSecondaryColor3sEXT;
-  glSecondaryColor3svEXT: TglSecondaryColor3svEXT;
-  glSecondaryColor3ubEXT: TglSecondaryColor3ubEXT;
-  glSecondaryColor3ubvEXT: TglSecondaryColor3ubvEXT;
-  glSecondaryColor3uiEXT: TglSecondaryColor3uiEXT;
-  glSecondaryColor3uivEXT: TglSecondaryColor3uivEXT;
-  glSecondaryColor3usEXT: TglSecondaryColor3usEXT;
-  glSecondaryColor3usvEXT: TglSecondaryColor3usvEXT;
-  glSecondaryColorPointerEXT: TglSecondaryColorPointerEXT;
-
-  // GL_EXT_stencil_two_side
-  glActiveStencilFaceEXT: TglActiveStencilFaceEXT;
-
-  // GL_EXT_subtexture
-  glTexSubImage1DEXT: TglTexSubImage1DEXT;
-  glTexSubImage2DEXT: TglTexSubImage2DEXT;
-
-  // GL_EXT_texture3D
-  glTexImage3DEXT: TglTexImage3DEXT;
-  glTexSubImage3DEXT: TglTexSubImage3DEXT;
-
-  // GL_EXT_texture_object
-  glAreTexturesResidentEXT: TglAreTexturesResidentEXT;
-  glBindTextureEXT: TglBindTextureEXT;
-  glDeleteTexturesEXT: TglDeleteTexturesEXT;
-  glGenTexturesEXT: TglGenTexturesEXT;
-  glIsTextureEXT: TglIsTextureEXT;
-  glPrioritizeTexturesEXT: TglPrioritizeTexturesEXT;
-
-  // GL_EXT_texture_perturb_normal
-  glTextureNormalEXT: TglTextureNormalEXT;
-
-  // GL_EXT_vertex_array
-  glArrayElementEXT: TglArrayElementEXT;
-  glColorPointerEXT: TglColorPointerEXT;
-  glDrawArraysEXT: TglDrawArraysEXT;
-  glEdgeFlagPointerEXT: TglEdgeFlagPointerEXT;
-  glGetPointervEXT: TglGetPointervEXT;
-  glIndexPointerEXT: TglIndexPointerEXT;
-  glNormalPointerEXT: TglNormalPointerEXT;
-  glTexCoordPointerEXT: TglTexCoordPointerEXT;
-  glVertexPointerEXT: TglVertexPointerEXT;
-
-  // GL_EXT_vertex_shader
-  glBeginVertexShaderEXT: TglBeginVertexShaderEXT;
-  glEndVertexShaderEXT: TglEndVertexShaderEXT;
-  glBindVertexShaderEXT: TglBindVertexShaderEXT;
-  glGenVertexShadersEXT: TglGenVertexShadersEXT;
-  glDeleteVertexShaderEXT: TglDeleteVertexShaderEXT;
-  glShaderOp1EXT: TglShaderOp1EXT;
-  glShaderOp2EXT: TglShaderOp2EXT;
-  glShaderOp3EXT: TglShaderOp3EXT;
-  glSwizzleEXT: TglSwizzleEXT;
-  glWriteMaskEXT: TglWriteMaskEXT;
-  glInsertComponentEXT: TglInsertComponentEXT;
-  glExtractComponentEXT: TglExtractComponentEXT;
-  glGenSymbolsEXT: TglGenSymbolsEXT;
-  glSetInvariantEXT: TglSetInvariantEXT;
-  glSetLocalConstantEXT: TglSetLocalConstantEXT;
-  glVariantbvEXT: TglVariantbvEXT;
-  glVariantsvEXT: TglVariantsvEXT;
-  glVariantivEXT: TglVariantivEXT;
-  glVariantfvEXT: TglVariantfvEXT;
-  glVariantdvEXT: TglVariantdvEXT;
-  glVariantubvEXT: TglVariantubvEXT;
-  glVariantusvEXT: TglVariantusvEXT;
-  glVariantuivEXT: TglVariantuivEXT;
-  glVariantPointerEXT: TglVariantPointerEXT;
-  glEnableVariantClientStateEXT: TglEnableVariantClientStateEXT;
-  glDisableVariantClientStateEXT: TglDisableVariantClientStateEXT;
-  glBindLightParameterEXT: TglBindLightParameterEXT;
-  glBindMaterialParameterEXT: TglBindMaterialParameterEXT;
-  glBindTexGenParameterEXT: TglBindTexGenParameterEXT;
-  glBindTextureUnitParameterEXT: TglBindTextureUnitParameterEXT;
-  glBindParameterEXT: TglBindParameterEXT;
-  glIsVariantEnabledEXT: TglIsVariantEnabledEXT;
-  glGetVariantBooleanvEXT: TglGetVariantBooleanvEXT;
-  glGetVariantIntegervEXT: TglGetVariantIntegervEXT;
-  glGetVariantFloatvEXT: TglGetVariantFloatvEXT;
-  glGetVariantPointervEXT: TglGetVariantPointervEXT;
-  glGetInvariantBooleanvEXT: TglGetInvariantBooleanvEXT;
-  glGetInvariantIntegervEXT: TglGetInvariantIntegervEXT;
-  glGetInvariantFloatvEXT: TglGetInvariantFloatvEXT;
-  glGetLocalConstantBooleanvEXT: TglGetLocalConstantBooleanvEXT;
-  glGetLocalConstantIntegervEXT: TglGetLocalConstantIntegervEXT;
-  glGetLocalConstantFloatvEXT: TglGetLocalConstantFloatvEXT;
-
-  // GL_EXT_vertex_weighting
-  glVertexWeightfEXT: TglVertexWeightfEXT;
-  glVertexWeightfvEXT: TglVertexWeightfvEXT;
-  glVertexWeightPointerEXT: TglVertexWeightPointerEXT;
-
-  // GL_EXT_stencil_clear_tag
-  glStencilClearTagEXT: TglStencilClearTagEXT;
-
-  // GL_EXT_framebuffer_blit
-  glBlitFramebufferEXT: TglBlitFramebufferEXT;
-
-  // GL_EXT_framebuffer_multisample
-  glRenderbufferStorageMultisampleEXT: TglRenderbufferStorageMultisampleEXT;
-
-  // GL_EXT_timer_query
-  glGetQueryObjecti64vEXT: TglGetQueryObjecti64vEXT;
-  glGetQueryObjectui64vEXT: TglGetQueryObjectui64vEXT;
-
-  // GL_EXT_gpu_program_parameters
-  glProgramEnvParameters4fvEXT: TglProgramEnvParameters4fvEXT;
-  glProgramLocalParameters4fvEXT: TglProgramLocalParameters4fvEXT;
-
-  // GL_EXT_bindable_uniform
-  glUniformBufferEXT: TglUniformBufferEXT;
-  glGetUniformBufferSizeEXT: TglGetUniformBufferSizeEXT;
-  glGetUniformOffsetEXT: TglGetUniformOffsetEXT;
-
-  // GL_EXT_draw_buffers2
-  glColorMaskIndexedEXT: TglColorMaskIndexedEXT;
-  glGetBooleanIndexedvEXT: TglGetBooleanIndexedvEXT;
-  glGetIntegerIndexedvEXT: TglGetIntegerIndexedvEXT;
-  glEnableIndexedEXT: TglEnableIndexedEXT;
-  glDisableIndexedEXT: TglDisableIndexedEXT;
-  glIsEnabledIndexedEXT: TglIsEnabledIndexedEXT;
-
-  // GL_EXT_draw_instanced
-  glDrawArraysInstancedEXT: TglDrawArraysInstancedEXT;
-  glDrawElementsInstancedEXT: TglDrawElementsInstancedEXT;
-
-  // GL_EXT_geometry_shader4
-  glProgramParameteriEXT: TglProgramParameteriEXT;
-  glFramebufferTextureEXT: TglFramebufferTextureEXT;
-//  glFramebufferTextureLayerEXT: TglFramebufferTextureLayerEXT;
-  glFramebufferTextureFaceEXT: TglFramebufferTextureFaceEXT;
-
-  // GL_EXT_gpu_shader4
-  glVertexAttribI1iEXT: TglVertexAttribI1iEXT;
-  glVertexAttribI2iEXT: TglVertexAttribI2iEXT;
-  glVertexAttribI3iEXT: TglVertexAttribI3iEXT;
-  glVertexAttribI4iEXT: TglVertexAttribI4iEXT;
-  glVertexAttribI1uiEXT: TglVertexAttribI1uiEXT;
-  glVertexAttribI2uiEXT: TglVertexAttribI2uiEXT;
-  glVertexAttribI3uiEXT: TglVertexAttribI3uiEXT;
-  glVertexAttribI4uiEXT: TglVertexAttribI4uiEXT;
-  glVertexAttribI1ivEXT: TglVertexAttribI1ivEXT;
-  glVertexAttribI2ivEXT: TglVertexAttribI2ivEXT;
-  glVertexAttribI3ivEXT: TglVertexAttribI3ivEXT;
-  glVertexAttribI4ivEXT: TglVertexAttribI4ivEXT;
-  glVertexAttribI1uivEXT: TglVertexAttribI1uivEXT;
-  glVertexAttribI2uivEXT: TglVertexAttribI2uivEXT;
-  glVertexAttribI3uivEXT: TglVertexAttribI3uivEXT;
-  glVertexAttribI4uivEXT: TglVertexAttribI4uivEXT;
-  glVertexAttribI4bvEXT:TglVertexAttribI4bvEXT ;
-  glVertexAttribI4svEXT: TglVertexAttribI4svEXT;
-  glVertexAttribI4ubvEXT: TglVertexAttribI4ubvEXT;
-  glVertexAttribI4usvEXT: TglVertexAttribI4usvEXT;
-  glVertexAttribIPointerEXT: TglVertexAttribIPointerEXT;
-  glGetVertexAttribIivEXT: TglGetVertexAttribIivEXT;
-  glGetVertexAttribIuivEXT: TglGetVertexAttribIuivEXT;
-  glUniform1uiEXT: TglUniform1uiEXT;
-  glUniform2uiEXT: TglUniform2uiEXT;
-  glUniform3uiEXT: TglUniform3uiEXT;
-  glUniform4uiEXT: TglUniform4uiEXT;
-  glUniform1uivEXT: TglUniform1uivEXT;
-  glUniform2uivEXT: TglUniform2uivEXT;
-  glUniform3uivEXT: TglUniform3uivEXT;
-  glUniform4uivEXT: TglUniform4uivEXT;
-  glGetUniformuivEXT: TglGetUniformuivEXT;
-  glBindFragDataLocationEXT: TglBindFragDataLocationEXT;
-  glGetFragDataLocationEXT: TglGetFragDataLocationEXT;
-
-  // GL_EXT_texture_array
-  glFramebufferTextureLayerEXT: TglFramebufferTextureLayerEXT;
-
-  // GL_EXT_texture_buffer_object
-  glTexBufferEXT: TglTexBufferEXT;
-
-  // GL_EXT_texture_integer
-  glClearColorIiEXT: TglClearColorIiEXT;
-  glClearColorIuiEXT: TglClearColorIuiEXT;
-  glTexParameterIivEXT: TglTexParameterIivEXT;
-  glTexParameterIuivEXT: TglTexParameterIuivEXT;
-  glGetTexParameterIivEXT: TglGetTexParameterIivEXT;
-  glGetTexParameterIiuvEXT: TglGetTexParameterIiuvEXT;
-
-  // GL_EXT_transform_feedback
-  glBeginTransformFeedbackEXT: TglBeginTransformFeedbackEXT;
-  glEndTransformFeedbackEXT: TglEndTransformFeedbackEXT;
-  glBindBufferRangeEXT: TglBindBufferRangeEXT;
-  glBindBufferOffsetEXT: TglBindBufferOffsetEXT;
-  glBindBufferBaseEXT: TglBindBufferBaseEXT;
-  glTransformFeedbackVaryingsEXT: TglTransformFeedbackVaryingsEXT;
-  glGetTransformFeedbackVaryingEXT: TglGetTransformFeedbackVaryingEXT;
-
-  // GL_EXT_direct_state_access
-  glClientAttribDefaultEXT: TglClientAttribDefaultEXT;
-  glPushClientAttribDefaultEXT: TglPushClientAttribDefaultEXT;
-  glMatrixLoadfEXT: TglMatrixLoadfEXT;
-  glMatrixLoaddEXT: TglMatrixLoaddEXT;
-  glMatrixMultfEXT: TglMatrixMultfEXT;
-  glMatrixMultdEXT: TglMatrixMultdEXT;
-  glMatrixLoadIdentityEXT: TglMatrixLoadIdentityEXT;
-  glMatrixRotatefEXT: TglMatrixRotatefEXT;
-  glMatrixRotatedEXT: TglMatrixRotatedEXT;
-  glMatrixScalefEXT: TglMatrixScalefEXT;
-  glMatrixScaledEXT: TglMatrixScaledEXT;
-  glMatrixTranslatefEXT: TglMatrixTranslatefEXT;
-  glMatrixTranslatedEXT: TglMatrixTranslatedEXT;
-  glMatrixFrustumEXT: TglMatrixFrustumEXT;
-  glMatrixOrthoEXT: TglMatrixOrthoEXT;
-  glMatrixPopEXT: TglMatrixPopEXT;
-  glMatrixPushEXT: TglMatrixPushEXT;
-  glMatrixLoadTransposefEXT: TglMatrixLoadTransposefEXT;
-  glMatrixLoadTransposedEXT: TglMatrixLoadTransposedEXT;
-  glMatrixMultTransposefEXT: TglMatrixMultTransposefEXT;
-  glMatrixMultTransposedEXT: TglMatrixMultTransposedEXT;
-  glTextureParameterfEXT: TglTextureParameterfEXT;
-  glTextureParameterfvEXT: TglTextureParameterfvEXT;
-  glTextureParameteriEXT: TglTextureParameteriEXT;
-  glTextureParameterivEXT: TglTextureParameterivEXT;
-  glTextureImage1DEXT: TglTextureImage1DEXT;
-  glTextureImage2DEXT: TglTextureImage2DEXT;
-  glTextureSubImage1DEXT: TglTextureSubImage1DEXT;
-  glTextureSubImage2DEXT: TglTextureSubImage2DEXT;
-  glCopyTextureImage1DEXT: TglCopyTextureImage1DEXT;
-  glCopyTextureImage2DEXT: TglCopyTextureImage2DEXT;
-  glCopyTextureSubImage1DEXT: TglCopyTextureSubImage1DEXT;
-  glCopyTextureSubImage2DEXT: TglCopyTextureSubImage2DEXT;
-  glGetTextureImageEXT: TglGetTextureImageEXT;
-  glGetTextureParameterfvEXT: TglGetTextureParameterfvEXT;
-  glGetTextureParameterivEXT: TglGetTextureParameterivEXT;
-  glGetTextureLevelParameterfvEXT: TglGetTextureLevelParameterfvEXT;
-  glGetTextureLevelParameterivEXT: TglGetTextureLevelParameterivEXT;
-  glTextureImage3DEXT: TglTextureImage3DEXT;
-  glTextureSubImage3DEXT: TglTextureSubImage3DEXT;
-  glCopyTextureSubImage3DEXT: TglCopyTextureSubImage3DEXT;
-  glMultiTexParameterfEXT: TglMultiTexParameterfEXT;
-  glMultiTexParameterfvEXT: TglMultiTexParameterfvEXT;
-  glMultiTexParameteriEXT: TglMultiTexParameteriEXT;
-  glMultiTexParameterivEXT: TglMultiTexParameterivEXT;
-  glMultiTexImage1DEXT: TglMultiTexImage1DEXT;
-  glMultiTexImage2DEXT: TglMultiTexImage2DEXT;
-  glMultiTexSubImage1DEXT: TglMultiTexSubImage1DEXT;
-  glMultiTexSubImage2DEXT: TglMultiTexSubImage2DEXT;
-  glCopyMultiTexImage1DEXT: TglCopyMultiTexImage1DEXT;
-  glCopyMultiTexImage2DEXT: TglCopyMultiTexImage2DEXT;
-  glCopyMultiTexSubImage1DEXT: TglCopyMultiTexSubImage1DEXT;
-  glCopyMultiTexSubImage2DEXT: TglCopyMultiTexSubImage2DEXT;
-  glGetMultiTexImageEXT: TglGetMultiTexImageEXT;
-  glGetMultiTexParameterfvEXT: TglGetMultiTexParameterfvEXT;
-  glGetMultiTexParameterivEXT: TglGetMultiTexParameterivEXT;
-  glGetMultiTexLevelParameterfvEXT: TglGetMultiTexLevelParameterfvEXT;
-  glGetMultiTexLevelParameterivEXT: TglGetMultiTexLevelParameterivEXT;
-  glMultiTexImage3DEXT: TglMultiTexImage3DEXT;
-  glMultiTexSubImage3DEXT: TglMultiTexSubImage3DEXT;
-  glCopyMultiTexSubImage3DEXT: TglCopyMultiTexSubImage3DEXT;
-  glBindMultiTextureEXT: TglBindMultiTextureEXT;
-  glEnableClientStateIndexedEXT: TglEnableClientStateIndexedEXT;
-  glDisableClientStateIndexedEXT: TglDisableClientStateIndexedEXT;
-  glMultiTexCoordPointerEXT: TglMultiTexCoordPointerEXT;
-  glMultiTexEnvfEXT: TglMultiTexEnvfEXT;
-  glMultiTexEnvfvEXT: TglMultiTexEnvfvEXT;
-  glMultiTexEnviEXT: TglMultiTexEnviEXT;
-  glMultiTexEnvivEXT: TglMultiTexEnvivEXT;
-  glMultiTexGendEXT: TglMultiTexGendEXT;
-  glMultiTexGendvEXT: TglMultiTexGendvEXT;
-  glMultiTexGenfEXT: TglMultiTexGenfEXT;
-  glMultiTexGenfvEXT: TglMultiTexGenfvEXT;
-  glMultiTexGeniEXT: TglMultiTexGeniEXT;
-  glMultiTexGenivEXT: TglMultiTexGenivEXT;
-  glGetMultiTexEnvfvEXT: TglGetMultiTexEnvfvEXT;
-  glGetMultiTexEnvivEXT: TglGetMultiTexEnvivEXT;
-  glGetMultiTexGendvEXT: TglGetMultiTexGendvEXT;
-  glGetMultiTexGenfvEXT: TglGetMultiTexGenfvEXT;
-  glGetMultiTexGenivEXT: TglGetMultiTexGenivEXT;
-  glGetFloatIndexedvEXT: TglGetFloatIndexedvEXT;
-  glGetDoubleIndexedvEXT: TglGetDoubleIndexedvEXT;
-  glGetPointerIndexedvEXT: TglGetPointerIndexedvEXT;
-  glCompressedTextureImage3DEXT: TglCompressedTextureImage3DEXT;
-  glCompressedTextureImage2DEXT: TglCompressedTextureImage2DEXT;
-  glCompressedTextureImage1DEXT: TglCompressedTextureImage1DEXT;
-  glCompressedTextureSubImage3DEXT: TglCompressedTextureSubImage3DEXT;
-  glCompressedTextureSubImage2DEXT: TglCompressedTextureSubImage2DEXT;
-  glCompressedTextureSubImage1DEXT: TglCompressedTextureSubImage1DEXT;
-  glGetCompressedTextureImageEXT: TglGetCompressedTextureImageEXT;
-  glCompressedMultiTexImage3DEXT: TglCompressedMultiTexImage3DEXT;
-  glCompressedMultiTexImage2DEXT: TglCompressedMultiTexImage2DEXT;
-  glCompressedMultiTexImage1DEXT: TglCompressedMultiTexImage1DEXT;
-  glCompressedMultiTexSubImage3DEXT: TglCompressedMultiTexSubImage3DEXT;
-  glCompressedMultiTexSubImage2DEXT: TglCompressedMultiTexSubImage2DEXT;
-  glCompressedMultiTexSubImage1DEXT: TglCompressedMultiTexSubImage1DEXT;
-  glGetCompressedMultiTexImageEXT: TglGetCompressedMultiTexImageEXT;
-  glNamedProgramStringEXT: TglNamedProgramStringEXT;
-  glNamedProgramLocalParameter4dEXT: TglNamedProgramLocalParameter4dEXT;
-  glNamedProgramLocalParameter4dvEXT: TglNamedProgramLocalParameter4dvEXT;
-  glNamedProgramLocalParameter4fEXT: TglNamedProgramLocalParameter4fEXT;
-  glNamedProgramLocalParameter4fvEXT: TglNamedProgramLocalParameter4fvEXT;
-  glGetNamedProgramLocalParameterdvEXT: TglGetNamedProgramLocalParameterdvEXT;
-  glGetNamedProgramLocalParameterfvEXT: TglGetNamedProgramLocalParameterfvEXT;
-  glGetNamedProgramivEXT: TglGetNamedProgramivEXT;
-  glGetNamedProgramStringEXT: TglGetNamedProgramStringEXT;
-  glNamedProgramLocalParameters4fvEXT: TglNamedProgramLocalParameters4fvEXT;
-  glNamedProgramLocalParameterI4iEXT: TglNamedProgramLocalParameterI4iEXT;
-  glNamedProgramLocalParameterI4ivEXT: TglNamedProgramLocalParameterI4ivEXT;
-  glNamedProgramLocalParametersI4ivEXT: TglNamedProgramLocalParametersI4ivEXT;
-  glNamedProgramLocalParameterI4uiEXT: TglNamedProgramLocalParameterI4uiEXT;
-  glNamedProgramLocalParameterI4uivEXT: TglNamedProgramLocalParameterI4uivEXT;
-  glNamedProgramLocalParametersI4uivEXT: TglNamedProgramLocalParametersI4uivEXT;
-  glGetNamedProgramLocalParameterIivEXT: TglGetNamedProgramLocalParameterIivEXT;
-  glGetNamedProgramLocalParameterIuivEXT: TglGetNamedProgramLocalParameterIuivEXT;
-  glTextureParameterIivEXT: TglTextureParameterIivEXT;
-  glTextureParameterIuivEXT: TglTextureParameterIuivEXT;
-  glGetTextureParameterIivEXT: TglGetTextureParameterIivEXT;
-  glGetTextureParameterIuivEXT: TglGetTextureParameterIuivEXT;
-  glMultiTexParameterIivEXT: TglMultiTexParameterIivEXT;
-  glMultiTexParameterIuivEXT: TglMultiTexParameterIuivEXT;
-  glGetMultiTexParameterIivEXT: TglGetMultiTexParameterIivEXT;
-  glGetMultiTexParameterIuivEXT: TglGetMultiTexParameterIuivEXT;
-  glProgramUniform1fEXT: TglProgramUniform1fEXT;
-  glProgramUniform2fEXT: TglProgramUniform2fEXT;
-  glProgramUniform3fEXT: TglProgramUniform3fEXT;
-  glProgramUniform4fEXT: TglProgramUniform4fEXT;
-  glProgramUniform1iEXT: TglProgramUniform1iEXT;
-  glProgramUniform2iEXT: TglProgramUniform2iEXT;
-  glProgramUniform3iEXT: TglProgramUniform3iEXT;
-  glProgramUniform4iEXT: TglProgramUniform4iEXT;
-  glProgramUniform1fvEXT: TglProgramUniform1fvEXT;
-  glProgramUniform2fvEXT: TglProgramUniform2fvEXT;
-  glProgramUniform3fvEXT: TglProgramUniform3fvEXT;
-  glProgramUniform4fvEXT: TglProgramUniform4fvEXT;
-  glProgramUniform1ivEXT: TglProgramUniform1ivEXT;
-  glProgramUniform2ivEXT: TglProgramUniform2ivEXT;
-  glProgramUniform3ivEXT: TglProgramUniform3ivEXT;
-  glProgramUniform4ivEXT: TglProgramUniform4ivEXT;
-  glProgramUniformMatrix2fvEXT: TglProgramUniformMatrix2fvEXT;
-  glProgramUniformMatrix3fvEXT: TglProgramUniformMatrix3fvEXT;
-  glProgramUniformMatrix4fvEXT: TglProgramUniformMatrix4fvEXT;
-  glProgramUniformMatrix2x3fvEXT: TglProgramUniformMatrix2x3fvEXT;
-  glProgramUniformMatrix3x2fvEXT: TglProgramUniformMatrix3x2fvEXT;
-  glProgramUniformMatrix2x4fvEXT: TglProgramUniformMatrix2x4fvEXT;
-  glProgramUniformMatrix4x2fvEXT: TglProgramUniformMatrix4x2fvEXT;
-  glProgramUniformMatrix3x4fvEXT: TglProgramUniformMatrix3x4fvEXT;
-  glProgramUniformMatrix4x3fvEXT: TglProgramUniformMatrix4x3fvEXT;
-  glProgramUniform1uiEXT: TglProgramUniform1uiEXT;
-  glProgramUniform2uiEXT: TglProgramUniform2uiEXT;
-  glProgramUniform3uiEXT: TglProgramUniform3uiEXT;
-  glProgramUniform4uiEXT: TglProgramUniform4uiEXT;
-  glProgramUniform1uivEXT: TglProgramUniform1uivEXT;
-  glProgramUniform2uivEXT: TglProgramUniform2uivEXT;
-  glProgramUniform3uivEXT: TglProgramUniform3uivEXT;
-  glProgramUniform4uivEXT: TglProgramUniform4uivEXT;
-  glNamedBufferDataEXT: TglNamedBufferDataEXT;
-  glNamedBufferSubDataEXT: TglNamedBufferSubDataEXT;
-  glMapNamedBufferEXT: TglMapNamedBufferEXT;
-  glUnmapNamedBufferEXT: TglUnmapNamedBufferEXT;
-  glGetNamedBufferParameterivEXT: TglGetNamedBufferParameterivEXT;
-  glGetNamedBufferPointervEXT: TglGetNamedBufferPointervEXT;
-  glGetNamedBufferSubDataEXT: TglGetNamedBufferSubDataEXT;
-  glTextureBufferEXT: TglTextureBufferEXT;
-  glMultiTexBufferEXT: TglMultiTexBufferEXT;
-  glNamedRenderbufferStorageEXT: TglNamedRenderbufferStorageEXT;
-  glGetNamedRenderbufferParameterivEXT: TglGetNamedRenderbufferParameterivEXT;
-  glCheckNamedFramebufferStatusEXT: TglCheckNamedFramebufferStatusEXT;
-  glNamedFramebufferTexture1DEXT: TglNamedFramebufferTexture1DEXT;
-  glNamedFramebufferTexture2DEXT: TglNamedFramebufferTexture2DEXT;
-  glNamedFramebufferTexture3DEXT: TglNamedFramebufferTexture3DEXT;
-  glNamedFramebufferRenderbufferEXT: TglNamedFramebufferRenderbufferEXT;
-  glGetNamedFramebufferAttachmentParameterivEXT: TglGetNamedFramebufferAttachmentParameterivEXT;
-  glGenerateTextureMipmapEXT: TglGenerateTextureMipmapEXT;
-  glGenerateMultiTexMipmapEXT: TglGenerateMultiTexMipmapEXT;
-  glFramebufferDrawBufferEXT: TglFramebufferDrawBufferEXT;
-  glFramebufferDrawBuffersEXT: TglFramebufferDrawBuffersEXT;
-  glFramebufferReadBufferEXT: TglFramebufferReadBufferEXT;
-  glGetFramebufferParameterivEXT: TglGetFramebufferParameterivEXT;
-  glNamedRenderbufferStorageMultisampleEXT: TglNamedRenderbufferStorageMultisampleEXT;
-  glNamedRenderbufferStorageMultisampleCoverageEXT: TglNamedRenderbufferStorageMultisampleCoverageEXT;
-  glNamedFramebufferTextureEXT: TglNamedFramebufferTextureEXT;
-  glNamedFramebufferTextureLayerEXT: TglNamedFramebufferTextureLayerEXT;
-  glNamedFramebufferTextureFaceEXT: TglNamedFramebufferTextureFaceEXT;
-  glTextureRenderbufferEXT: TglTextureRenderbufferEXT;
-  glMultiTexRenderbufferEXT: TglMultiTexRenderbufferEXT;
-
-  // GL_HP_image_transform
-  glImageTransformParameteriHP: TglImageTransformParameteriHP;
-  glImageTransformParameterfHP: TglImageTransformParameterfHP;
-  glImageTransformParameterivHP: TglImageTransformParameterivHP;
-  glImageTransformParameterfvHP: TglImageTransformParameterfvHP;
-  glGetImageTransformParameterivHP: TglGetImageTransformParameterivHP;
-  glGetImageTransformParameterfvHP: TglGetImageTransformParameterfvHP;
-
-  // GL_EXT_depth_bounds_test
-  glDepthBoundsEXT: TglDepthBoundsEXT;
-
-  // GL_EXT_blend_equation_separate
-  glBlendEquationSeparateEXT: TglBlendEquationSeparateEXT;
-
-  // GL_IBM_multimode_draw_arrays
-  glMultiModeDrawArraysIBM: TglMultiModeDrawArraysIBM;
-  glMultiModeDrawElementsIBM: TglMultiModeDrawElementsIBM;
-
-  // GL_IBM_vertex_array_lists
-  glColorPointerListIBM: TglColorPointerListIBM;
-  glSecondaryColorPointerListIBM: TglSecondaryColorPointerListIBM;
-  glEdgeFlagPointerListIBM: TglEdgeFlagPointerListIBM;
-  glFogCoordPointerListIBM: TglFogCoordPointerListIBM;
-  glIndexPointerListIBM: TglIndexPointerListIBM;
-  glNormalPointerListIBM: TglNormalPointerListIBM;
-  glTexCoordPointerListIBM: TglTexCoordPointerListIBM;
-  glVertexPointerListIBM: TglVertexPointerListIBM;
-
-  // GL_INGR_blend_func_separate
-  glBlendFuncSeparateINGR: TglBlendFuncSeparateINGR;
-
-  // GL_INTEL_parallel_arrays
-  glVertexPointervINTEL: TglVertexPointervINTEL;
-  glNormalPointervINTEL: TglNormalPointervINTEL;
-  glColorPointervINTEL: TglColorPointervINTEL;
-  glTexCoordPointervINTEL: TglTexCoordPointervINTEL;
-
-  // GL_MESA_resize_buffers
-  glResizeBuffersMESA: TglResizeBuffersMESA;
-
-  // GL_MESA_window_pos
-  glWindowPos2dMESA: TglWindowPos2dMESA;
-  glWindowPos2dvMESA: TglWindowPos2dvMESA;
-  glWindowPos2fMESA: TglWindowPos2fMESA;
-  glWindowPos2fvMESA: TglWindowPos2fvMESA;
-  glWindowPos2iMESA: TglWindowPos2iMESA;
-  glWindowPos2ivMESA: TglWindowPos2ivMESA;
-  glWindowPos2sMESA: TglWindowPos2sMESA;
-  glWindowPos2svMESA: TglWindowPos2svMESA;
-  glWindowPos3dMESA: TglWindowPos3dMESA;
-  glWindowPos3dvMESA: TglWindowPos3dvMESA;
-  glWindowPos3fMESA: TglWindowPos3fMESA;
-  glWindowPos3fvMESA: TglWindowPos3fvMESA;
-  glWindowPos3iMESA: TglWindowPos3iMESA;
-  glWindowPos3ivMESA: TglWindowPos3ivMESA;
-  glWindowPos3sMESA: TglWindowPos3sMESA;
-  glWindowPos3svMESA: TglWindowPos3svMESA;
-  glWindowPos4dMESA: TglWindowPos4dMESA;
-  glWindowPos4dvMESA: TglWindowPos4dvMESA;
-  glWindowPos4fMESA: TglWindowPos4fMESA;
-  glWindowPos4fvMESA: TglWindowPos4fvMESA;
-  glWindowPos4iMESA: TglWindowPos4iMESA;
-  glWindowPos4ivMESA: TglWindowPos4ivMESA;
-  glWindowPos4sMESA: TglWindowPos4sMESA;
-  glWindowPos4svMESA: TglWindowPos4svMESA;
-
-  // GL_NV_evaluators
-  glMapControlPointsNV: TglMapControlPointsNV;
-  glMapParameterivNV: TglMapParameterivNV;
-  glMapParameterfvNV: TglMapParameterfvNV;
-  glGetMapControlPointsNV: TglGetMapControlPointsNV;
-  glGetMapParameterivNV: TglGetMapParameterivNV;
-  glGetMapParameterfvNV: TglGetMapParameterfvNV;
-  glGetMapAttribParameterivNV: TglGetMapAttribParameterivNV;
-  glGetMapAttribParameterfvNV: TglGetMapAttribParameterfvNV;
-  glEvalMapsNV: TglEvalMapsNV;
-
-  // GL_NV_fence
-  glDeleteFencesNV: TglDeleteFencesNV;
-  glGenFencesNV: TglGenFencesNV;
-  glIsFenceNV: TglIsFenceNV;
-  glTestFenceNV: TglTestFenceNV;
-  glGetFenceivNV: TglGetFenceivNV;
-  glFinishFenceNV: TglFinishFenceNV;
-  glSetFenceNV: TglSetFenceNV;
-
-  // GL_NV_fragment_program
-  glProgramNamedParameter4fNV: TglProgramNamedParameter4fNV;
-  glProgramNamedParameter4dNV: TglProgramNamedParameter4dNV;
-  glProgramNamedParameter4fvNV: TglProgramNamedParameter4fvNV;
-  glProgramNamedParameter4dvNV: TglProgramNamedParameter4dvNV;
-  glGetProgramNamedParameterfvNV: TglGetProgramNamedParameterfvNV;
-  glGetProgramNamedParameterdvNV: TglGetProgramNamedParameterdvNV;
-
-  // GL_NV_half_float
-  glVertex2hNV: TglVertex2hNV;
-  glVertex2hvNV: TglVertex2hvNV;
-  glVertex3hNV: TglVertex3hNV;
-  glVertex3hvNV: TglVertex3hvNV;
-  glVertex4hNV: TglVertex4hNV;
-  glVertex4hvNV: TglVertex4hvNV;
-  glNormal3hNV: TglNormal3hNV;
-  glNormal3hvNV: TglNormal3hvNV;
-  glColor3hNV: TglColor3hNV;
-  glColor3hvNV: TglColor3hvNV;
-  glColor4hNV: TglColor4hNV;
-  glColor4hvNV: TglColor4hvNV;
-  glTexCoord1hNV: TglTexCoord1hNV;
-  glTexCoord1hvNV: TglTexCoord1hvNV;
-  glTexCoord2hNV: TglTexCoord2hNV;
-  glTexCoord2hvNV: TglTexCoord2hvNV;
-  glTexCoord3hNV: TglTexCoord3hNV;
-  glTexCoord3hvNV: TglTexCoord3hvNV;
-  glTexCoord4hNV: TglTexCoord4hNV;
-  glTexCoord4hvNV: TglTexCoord4hvNV;
-  glMultiTexCoord1hNV: TglMultiTexCoord1hNV;
-  glMultiTexCoord1hvNV: TglMultiTexCoord1hvNV;
-  glMultiTexCoord2hNV: TglMultiTexCoord2hNV;
-  glMultiTexCoord2hvNV: TglMultiTexCoord2hvNV;
-  glMultiTexCoord3hNV: TglMultiTexCoord3hNV;
-  glMultiTexCoord3hvNV: TglMultiTexCoord3hvNV;
-  glMultiTexCoord4hNV: TglMultiTexCoord4hNV;
-  glMultiTexCoord4hvNV: TglMultiTexCoord4hvNV;
-  glFogCoordhNV: TglFogCoordhNV;
-  glFogCoordhvNV: TglFogCoordhvNV;
-  glSecondaryColor3hNV: TglSecondaryColor3hNV;
-  glSecondaryColor3hvNV: TglSecondaryColor3hvNV;
-  glVertexWeighthNV: TglVertexWeighthNV;
-  glVertexWeighthvNV: TglVertexWeighthvNV;
-  glVertexAttrib1hNV: TglVertexAttrib1hNV;
-  glVertexAttrib1hvNV: TglVertexAttrib1hvNV;
-  glVertexAttrib2hNV: TglVertexAttrib2hNV;
-  glVertexAttrib2hvNV: TglVertexAttrib2hvNV;
-  glVertexAttrib3hNV: TglVertexAttrib3hNV;
-  glVertexAttrib3hvNV: TglVertexAttrib3hvNV;
-  glVertexAttrib4hNV: TglVertexAttrib4hNV;
-  glVertexAttrib4hvNV: TglVertexAttrib4hvNV;
-  glVertexAttribs1hvNV: TglVertexAttribs1hvNV;
-  glVertexAttribs2hvNV: TglVertexAttribs2hvNV;
-  glVertexAttribs3hvNV: TglVertexAttribs3hvNV;
-  glVertexAttribs4hvNV: TglVertexAttribs4hvNV;
-
-  // GL_NV_occlusion_query
-  glGenOcclusionQueriesNV: TglGenOcclusionQueriesNV;
-  glDeleteOcclusionQueriesNV: TglDeleteOcclusionQueriesNV;
-  glIsOcclusionQueryNV: TglIsOcclusionQueryNV;
-  glBeginOcclusionQueryNV: TglBeginOcclusionQueryNV;
-  glEndOcclusionQueryNV: TglEndOcclusionQueryNV;
-  glGetOcclusionQueryivNV: TglGetOcclusionQueryivNV;
-  glGetOcclusionQueryuivNV: TglGetOcclusionQueryuivNV;
-
-  // GL_NV_pixel_data_range
-  glPixelDataRangeNV: TglPixelDataRangeNV;
-  glFlushPixelDataRangeNV: TglFlushPixelDataRangeNV;
-
-  // GL_NV_point_sprite
-  glPointParameteriNV: TglPointParameteriNV;
-  glPointParameterivNV: TglPointParameterivNV;
-
-  // GL_NV_primitive_restart
-  glPrimitiveRestartNV: TglPrimitiveRestartNV;
-  glPrimitiveRestartIndexNV: TglPrimitiveRestartIndexNV;
-
-  // GL_NV_register_combiners
-  glCombinerParameterfvNV: TglCombinerParameterfvNV;
-  glCombinerParameterfNV: TglCombinerParameterfNV;
-  glCombinerParameterivNV: TglCombinerParameterivNV;
-  glCombinerParameteriNV: TglCombinerParameteriNV;
-  glCombinerInputNV: TglCombinerInputNV;
-  glCombinerOutputNV: TglCombinerOutputNV;
-  glFinalCombinerInputNV: TglFinalCombinerInputNV;
-  glGetCombinerInputParameterfvNV: TglGetCombinerInputParameterfvNV;
-  glGetCombinerInputParameterivNV: TglGetCombinerInputParameterivNV;
-  glGetCombinerOutputParameterfvNV: TglGetCombinerOutputParameterfvNV;
-  glGetCombinerOutputParameterivNV: TglGetCombinerOutputParameterivNV;
-  glGetFinalCombinerInputParameterfvNV: TglGetFinalCombinerInputParameterfvNV;
-  glGetFinalCombinerInputParameterivNV: TglGetFinalCombinerInputParameterivNV;
-
-  // GL_NV_register_combiners2
-  glCombinerStageParameterfvNV: TglCombinerStageParameterfvNV;
-  glGetCombinerStageParameterfvNV: TglGetCombinerStageParameterfvNV;
-
-  // GL_NV_vertex_array_range
-  glFlushVertexArrayRangeNV: TglFlushVertexArrayRangeNV;
-  glVertexArrayRangeNV: TglVertexArrayRangeNV;
-
-  // GL_NV_vertex_program
-  glAreProgramsResidentNV: TglAreProgramsResidentNV;
-  glBindProgramNV: TglBindProgramNV;
-  glDeleteProgramsNV: TglDeleteProgramsNV;
-  glExecuteProgramNV: TglExecuteProgramNV;
-  glGenProgramsNV: TglGenProgramsNV;
-  glGetProgramParameterdvNV: TglGetProgramParameterdvNV;
-  glGetProgramParameterfvNV: TglGetProgramParameterfvNV;
-  glGetProgramivNV: TglGetProgramivNV;
-  glGetProgramStringNV: TglGetProgramStringNV;
-  glGetTrackMatrixivNV: TglGetTrackMatrixivNV;
-  glGetVertexAttribdvNV: TglGetVertexAttribdvNV;
-  glGetVertexAttribfvNV: TglGetVertexAttribfvNV;
-  glGetVertexAttribivNV: TglGetVertexAttribivNV;
-  glGetVertexAttribPointervNV: TglGetVertexAttribPointervNV;
-  glIsProgramNV: TglIsProgramNV;
-  glLoadProgramNV: TglLoadProgramNV;
-  glProgramParameter4dNV: TglProgramParameter4dNV;
-  glProgramParameter4dvNV: TglProgramParameter4dvNV;
-  glProgramParameter4fNV: TglProgramParameter4fNV;
-  glProgramParameter4fvNV: TglProgramParameter4fvNV;
-  glProgramParameters4dvNV: TglProgramParameters4dvNV;
-  glProgramParameters4fvNV: TglProgramParameters4fvNV;
-  glRequestResidentProgramsNV: TglRequestResidentProgramsNV;
-  glTrackMatrixNV: TglTrackMatrixNV;
-  glVertexAttribPointerNV: TglVertexAttribPointerNV;
-  glVertexAttrib1dNV: TglVertexAttrib1dNV;
-  glVertexAttrib1dvNV: TglVertexAttrib1dvNV;
-  glVertexAttrib1fNV: TglVertexAttrib1fNV;
-  glVertexAttrib1fvNV: TglVertexAttrib1fvNV;
-  glVertexAttrib1sNV: TglVertexAttrib1sNV;
-  glVertexAttrib1svNV: TglVertexAttrib1svNV;
-  glVertexAttrib2dNV: TglVertexAttrib2dNV;
-  glVertexAttrib2dvNV: TglVertexAttrib2dvNV;
-  glVertexAttrib2fNV: TglVertexAttrib2fNV;
-  glVertexAttrib2fvNV: TglVertexAttrib2fvNV;
-  glVertexAttrib2sNV: TglVertexAttrib2sNV;
-  glVertexAttrib2svNV: TglVertexAttrib2svNV;
-  glVertexAttrib3dNV: TglVertexAttrib3dNV;
-  glVertexAttrib3dvNV: TglVertexAttrib3dvNV;
-  glVertexAttrib3fNV: TglVertexAttrib3fNV;
-  glVertexAttrib3fvNV: TglVertexAttrib3fvNV;
-  glVertexAttrib3sNV: TglVertexAttrib3sNV;
-  glVertexAttrib3svNV: TglVertexAttrib3svNV;
-  glVertexAttrib4dNV: TglVertexAttrib4dNV;
-  glVertexAttrib4dvNV: TglVertexAttrib4dvNV;
-  glVertexAttrib4fNV: TglVertexAttrib4fNV;
-  glVertexAttrib4fvNV: TglVertexAttrib4fvNV;
-  glVertexAttrib4sNV: TglVertexAttrib4sNV;
-  glVertexAttrib4svNV: TglVertexAttrib4svNV;
-  glVertexAttrib4ubNV: TglVertexAttrib4ubNV;
-  glVertexAttrib4ubvNV: TglVertexAttrib4ubvNV;
-  glVertexAttribs1dvNV: TglVertexAttribs1dvNV;
-  glVertexAttribs1fvNV: TglVertexAttribs1fvNV;
-  glVertexAttribs1svNV: TglVertexAttribs1svNV;
-  glVertexAttribs2dvNV: TglVertexAttribs2dvNV;
-  glVertexAttribs2fvNV: TglVertexAttribs2fvNV;
-  glVertexAttribs2svNV: TglVertexAttribs2svNV;
-  glVertexAttribs3dvNV: TglVertexAttribs3dvNV;
-  glVertexAttribs3fvNV: TglVertexAttribs3fvNV;
-  glVertexAttribs3svNV: TglVertexAttribs3svNV;
-  glVertexAttribs4dvNV: TglVertexAttribs4dvNV;
-  glVertexAttribs4fvNV: TglVertexAttribs4fvNV;
-  glVertexAttribs4svNV: TglVertexAttribs4svNV;
-  glVertexAttribs4ubvNV: TglVertexAttribs4ubvNV;
-
-  // GL_NV_depth_buffer_float
-  glDepthRangedNV: TglDepthRangedNV;
-  glClearDepthdNV: TglClearDepthdNV;
-  glDepthBoundsdNV: TglDepthBoundsdNV;
-
-  // GL_NV_framebuffer_multisample_coverage
-  glRenderbufferStorageMultsampleCoverageNV: TglRenderbufferStorageMultsampleCoverageNV;
-
-  // GL_NV_geometry_program4
-  glProgramVertexLimitNV: TglProgramVertexLimitNV;
-
-  // GL_NV_gpu_program4
-  glProgramLocalParameterI4iNV: TglProgramLocalParameterI4iNV;
-  glProgramLocalParameterI4ivNV: TglProgramLocalParameterI4ivNV;
-  glProgramLocalParametersI4ivNV: TglProgramLocalParametersI4ivNV;
-  glProgramLocalParameterI4uiNV: TglProgramLocalParameterI4uiNV;
-  glProgramLocalParameterI4uivNV: TglProgramLocalParameterI4uivNV;
-  glProgramLocalParametersI4uivNV: TglProgramLocalParametersI4uivNV;
-  glProgramEnvParameterI4iNV: TglProgramEnvParameterI4iNV;
-  glProgramEnvParameterI4ivNV: TglProgramEnvParameterI4ivNV;
-  glProgramEnvParametersI4ivNV: TglProgramEnvParametersI4ivNV;
-  glProgramEnvParameterI4uiNV: TglProgramEnvParameterI4uiNV;
-  glProgramEnvParameterI4uivNV: TglProgramEnvParameterI4uivNV;
-  glProgramEnvParametersI4uivNV: TglProgramEnvParametersI4uivNV;
-  glGetProgramLocalParameterIivNV: TglGetProgramLocalParameterIivNV;
-  glGetProgramLocalParameterIuivNV: TglGetProgramLocalParameterIuivNV;
-  glGetProgramEnvParameterIivNV: TglGetProgramEnvParameterIivNV;
-  glGetProgramEnvParameterIuivNV: TglGetProgramEnvParameterIuivNV;
-
-  // GL_NV_parameter_buffer_object
-  glProgramBufferParametersfvNV: TglProgramBufferParametersfvNV;
-  glProgramBufferParametersIivNV: TglProgramBufferParametersIivNV;
-  glProgramBufferParametersIuivNV: TglProgramBufferParametersIuivNV;
-
-  // GL_NV_transform_feedback
-  glBeginTransformFeedbackNV: TglBeginTransformFeedbackNV;
-  glEndTransformFeedbackNV: TglEndTransformFeedbackNV;
-  glTransformFeedbackAttribsNV: TglTransformFeedbackAttribsNV;
-  glBindBufferRangeNV: TglBindBufferRangeNV;
-  glBindBufferOffsetNV: TglBindBufferOffsetNV;
-  glBindBufferBaseNV: TglBindBufferBaseNV;
-  glTransformFeedbackVaryingsNV: TglTransformFeedbackVaryingsNV;
-  glActiveVaryingNV: TglActiveVaryingNV;
-  glGetVaryingLocationNV: TglGetVaryingLocationNV;
-  glGetActiveVaryingNV: TglGetActiveVaryingNV;
-  glGetTransformFeedbackVaryingNV: TglGetTransformFeedbackVaryingNV;
-
-  // GL_NV_conditional_render
-  glBeginConditionalRenderNV: TglBeginConditionalRenderNV;
-  glEndConditionalRenderNV: TglEndConditionalRenderNV;
-
-  // GL_NV_present_video
-  glPresentFrameKeyedNV: TglPresentFrameKeyedNV;
-  glPresentFrameDualFillNV: TglPresentFrameDualFillNV;
-  glGetVideoivNV: TglGetVideoivNV;
-  glGetVideouivNV: TglGetVideouivNV;
-  glGetVideoi64vNV: TglGetVideoi64vNV;
-  glGetVideoui64vNV: TglGetVideoui64vNV;
-//  glVideoParameterivNV: TglVideoParameterivNV;
-
-  // GL_NV_explicit_multisample
-  glGetMultisamplefvNV: TglGetMultisamplefvNV;
-  glSampleMaskIndexedNV: TglSampleMaskIndexedNV;
-  glTexRenderbufferNV: TglTexRenderbufferNV;
-
-  // GL_NV_transform_feedback2
-  glBindTransformFeedbackNV: TglBindTransformFeedbackNV;
-  glDeleteTransformFeedbacksNV: TglDeleteTransformFeedbacksNV;
-  glGenTransformFeedbacksNV: TglGenTransformFeedbacksNV;
-  glIsTransformFeedbackNV: TglIsTransformFeedbackNV;
-  glPauseTransformFeedbackNV: TglPauseTransformFeedbackNV;
-  glResumeTransformFeedbackNV: TglResumeTransformFeedbackNV;
-  glDrawTransformFeedbackNV: TglDrawTransformFeedbackNV;
-
-  // GL_PGI_misc_hints
-  glHintPGI: TglHintPGI;
-
-  // GL_SGIS_detail_texture
-  glDetailTexFuncSGIS: TglDetailTexFuncSGIS;
-  glGetDetailTexFuncSGIS: TglGetDetailTexFuncSGIS;
-
-  // GL_SGIS_fog_function
-  glFogFuncSGIS: TglFogFuncSGIS;
-  glGetFogFuncSGIS: TglGetFogFuncSGIS;
-
-  // GL_SGIS_multisample
-  glSampleMaskSGIS: TglSampleMaskSGIS;
-  glSamplePatternSGIS: TglSamplePatternSGIS;
-
-  // GL_SGIS_pixel_texture
-  glPixelTexGenParameteriSGIS: TglPixelTexGenParameteriSGIS;
-  glPixelTexGenParameterivSGIS: TglPixelTexGenParameterivSGIS;
-  glPixelTexGenParameterfSGIS: TglPixelTexGenParameterfSGIS;
-  glPixelTexGenParameterfvSGIS: TglPixelTexGenParameterfvSGIS;
-  glGetPixelTexGenParameterivSGIS: TglGetPixelTexGenParameterivSGIS;
-  glGetPixelTexGenParameterfvSGIS: TglGetPixelTexGenParameterfvSGIS;
-
-  // GL_SGIS_point_parameters
-  glPointParameterfSGIS: TglPointParameterfSGIS;
-  glPointParameterfvSGIS: TglPointParameterfvSGIS;
-
-  // GL_SGIS_sharpen_texture
-  glSharpenTexFuncSGIS: TglSharpenTexFuncSGIS;
-  glGetSharpenTexFuncSGIS: TglGetSharpenTexFuncSGIS;
-
-  // GL_SGIS_texture4D
-  glTexImage4DSGIS: TglTexImage4DSGIS;
-  glTexSubImage4DSGIS: TglTexSubImage4DSGIS;
-
-  // GL_SGIS_texture_color_mask
-  glTextureColorMaskSGIS: TglTextureColorMaskSGIS;
-
-  // GL_SGIS_texture_filter4
-  glGetTexFilterFuncSGIS: TglGetTexFilterFuncSGIS;
-  glTexFilterFuncSGIS: TglTexFilterFuncSGIS;
-
-  // GL_SGIX_async
-  glAsyncMarkerSGIX: TglAsyncMarkerSGIX;
-  glFinishAsyncSGIX: TglFinishAsyncSGIX;
-  glPollAsyncSGIX: TglPollAsyncSGIX;
-  glGenAsyncMarkersSGIX: TglGenAsyncMarkersSGIX;
-  glDeleteAsyncMarkersSGIX: TglDeleteAsyncMarkersSGIX;
-  glIsAsyncMarkerSGIX: TglIsAsyncMarkerSGIX;
-
-  // GL_SGIX_flush_raster
-  glFlushRasterSGIX: TglFlushRasterSGIX;
-
-  // GL_SGIX_fragment_lighting
-  glFragmentColorMaterialSGIX: TglFragmentColorMaterialSGIX;
-  glFragmentLightfSGIX: TglFragmentLightfSGIX;
-  glFragmentLightfvSGIX: TglFragmentLightfvSGIX;
-  glFragmentLightiSGIX: TglFragmentLightiSGIX;
-  glFragmentLightivSGIX: TglFragmentLightivSGIX;
-  glFragmentLightModelfSGIX: TglFragmentLightModelfSGIX;
-  glFragmentLightModelfvSGIX: TglFragmentLightModelfvSGIX;
-  glFragmentLightModeliSGIX: TglFragmentLightModeliSGIX;
-  glFragmentLightModelivSGIX: TglFragmentLightModelivSGIX;
-  glFragmentMaterialfSGIX: TglFragmentMaterialfSGIX;
-  glFragmentMaterialfvSGIX: TglFragmentMaterialfvSGIX;
-  glFragmentMaterialiSGIX: TglFragmentMaterialiSGIX;
-  glFragmentMaterialivSGIX: TglFragmentMaterialivSGIX;
-  glGetFragmentLightfvSGIX: TglGetFragmentLightfvSGIX;
-  glGetFragmentLightivSGIX: TglGetFragmentLightivSGIX;
-  glGetFragmentMaterialfvSGIX: TglGetFragmentMaterialfvSGIX;
-  glGetFragmentMaterialivSGIX: TglGetFragmentMaterialivSGIX;
-  glLightEnviSGIX: TglLightEnviSGIX;
-
-  // GL_SGIX_framezoom
-  glFrameZoomSGIX: TglFrameZoomSGIX;
-
-  // GL_SGIX_igloo_interface
-  glIglooInterfaceSGIX: TglIglooInterfaceSGIX;
-
-  // GL_SGIX_instruments
-  glGetInstrumentsSGIX: TglGetInstrumentsSGIX;
-  glInstrumentsBufferSGIX: TglInstrumentsBufferSGIX;
-  glPollInstrumentsSGIX: TglPollInstrumentsSGIX;
-  glReadInstrumentsSGIX: TglReadInstrumentsSGIX;
-  glStartInstrumentsSGIX: TglStartInstrumentsSGIX;
-  glStopInstrumentsSGIX: TglStopInstrumentsSGIX;
-
-  // GL_SGIX_list_priority
-  glGetListParameterfvSGIX: TglGetListParameterfvSGIX;
-  glGetListParameterivSGIX: TglGetListParameterivSGIX;
-  glListParameterfSGIX: TglListParameterfSGIX;
-  glListParameterfvSGIX: TglListParameterfvSGIX;
-  glListParameteriSGIX: TglListParameteriSGIX;
-  glListParameterivSGIX: TglListParameterivSGIX;
-
-  // GL_SGIX_pixel_texture
-  glPixelTexGenSGIX: TglPixelTexGenSGIX;
-
-  // GL_SGIX_polynomial_ffd
-  glDeformationMap3dSGIX: TglDeformationMap3dSGIX;
-  glDeformationMap3fSGIX: TglDeformationMap3fSGIX;
-  glDeformSGIX: TglDeformSGIX;
-  glLoadIdentityDeformationMapSGIX: TglLoadIdentityDeformationMapSGIX;
-
-  // GL_SGIX_reference_plane
-  glReferencePlaneSGIX: TglReferencePlaneSGIX;
-
-  // GL_SGIX_sprite
-  glSpriteParameterfSGIX: TglSpriteParameterfSGIX;
-  glSpriteParameterfvSGIX: TglSpriteParameterfvSGIX;
-  glSpriteParameteriSGIX: TglSpriteParameteriSGIX;
-  glSpriteParameterivSGIX: TglSpriteParameterivSGIX;
-
-  // GL_SGIX_tag_sample_buffer
-  glTagSampleBufferSGIX: TglTagSampleBufferSGIX;
-
-  // GL_SGI_color_table
-  glColorTableSGI: TglColorTableSGI;
-  glColorTableParameterfvSGI: TglColorTableParameterfvSGI;
-  glColorTableParameterivSGI: TglColorTableParameterivSGI;
-  glCopyColorTableSGI: TglCopyColorTableSGI;
-  glGetColorTableSGI: TglGetColorTableSGI;
-  glGetColorTableParameterfvSGI: TglGetColorTableParameterfvSGI;
-  glGetColorTableParameterivSGI: TglGetColorTableParameterivSGI;
-
-  // GL_SUNX_constant_data
-  glFinishTextureSUNX: TglFinishTextureSUNX;
-
-  // GL_SUN_global_alpha
-  glGlobalAlphaFactorbSUN: TglGlobalAlphaFactorbSUN;
-  glGlobalAlphaFactorsSUN: TglGlobalAlphaFactorsSUN;
-  glGlobalAlphaFactoriSUN: TglGlobalAlphaFactoriSUN;
-  glGlobalAlphaFactorfSUN: TglGlobalAlphaFactorfSUN;
-  glGlobalAlphaFactordSUN: TglGlobalAlphaFactordSUN;
-  glGlobalAlphaFactorubSUN: TglGlobalAlphaFactorubSUN;
-  glGlobalAlphaFactorusSUN: TglGlobalAlphaFactorusSUN;
-  glGlobalAlphaFactoruiSUN: TglGlobalAlphaFactoruiSUN;
-
-  // GL_SUN_mesh_array
-  glDrawMeshArraysSUN: TglDrawMeshArraysSUN;
-
-  // GL_SUN_triangle_list
-  glReplacementCodeuiSUN: TglReplacementCodeuiSUN;
-  glReplacementCodeusSUN: TglReplacementCodeusSUN;
-  glReplacementCodeubSUN: TglReplacementCodeubSUN;
-  glReplacementCodeuivSUN: TglReplacementCodeuivSUN;
-  glReplacementCodeusvSUN: TglReplacementCodeusvSUN;
-  glReplacementCodeubvSUN: TglReplacementCodeubvSUN;
-  glReplacementCodePointerSUN: TglReplacementCodePointerSUN;
-
-  // GL_SUN_vertex
-  glColor4ubVertex2fSUN: TglColor4ubVertex2fSUN;
-  glColor4ubVertex2fvSUN: TglColor4ubVertex2fvSUN;
-  glColor4ubVertex3fSUN: TglColor4ubVertex3fSUN;
-  glColor4ubVertex3fvSUN: TglColor4ubVertex3fvSUN;
-  glColor3fVertex3fSUN: TglColor3fVertex3fSUN;
-  glColor3fVertex3fvSUN: TglColor3fVertex3fvSUN;
-  glNormal3fVertex3fSUN: TglNormal3fVertex3fSUN;
-  glNormal3fVertex3fvSUN: TglNormal3fVertex3fvSUN;
-  glColor4fNormal3fVertex3fSUN: TglColor4fNormal3fVertex3fSUN;
-  glColor4fNormal3fVertex3fvSUN: TglColor4fNormal3fVertex3fvSUN;
-  glTexCoord2fVertex3fSUN: TglTexCoord2fVertex3fSUN;
-  glTexCoord2fVertex3fvSUN: TglTexCoord2fVertex3fvSUN;
-  glTexCoord4fVertex4fSUN: TglTexCoord4fVertex4fSUN;
-  glTexCoord4fVertex4fvSUN: TglTexCoord4fVertex4fvSUN;
-  glTexCoord2fColor4ubVertex3fSUN: TglTexCoord2fColor4ubVertex3fSUN;
-  glTexCoord2fColor4ubVertex3fvSUN: TglTexCoord2fColor4ubVertex3fvSUN;
-  glTexCoord2fColor3fVertex3fSUN: TglTexCoord2fColor3fVertex3fSUN;
-  glTexCoord2fColor3fVertex3fvSUN: TglTexCoord2fColor3fVertex3fvSUN;
-  glTexCoord2fNormal3fVertex3fSUN: TglTexCoord2fNormal3fVertex3fSUN;
-  glTexCoord2fNormal3fVertex3fvSUN: TglTexCoord2fNormal3fVertex3fvSUN;
-  glTexCoord2fColor4fNormal3fVertex3fSUN: TglTexCoord2fColor4fNormal3fVertex3fSUN;
-  glTexCoord2fColor4fNormal3fVertex3fvSUN: TglTexCoord2fColor4fNormal3fVertex3fvSUN;
-  glTexCoord4fColor4fNormal3fVertex4fSUN: TglTexCoord4fColor4fNormal3fVertex4fSUN;
-  glTexCoord4fColor4fNormal3fVertex4fvSUN: TglTexCoord4fColor4fNormal3fVertex4fvSUN;
-  glReplacementCodeuiVertex3fSUN: TglReplacementCodeuiVertex3fSUN;
-  glReplacementCodeuiVertex3fvSUN: TglReplacementCodeuiVertex3fvSUN;
-  glReplacementCodeuiColor4ubVertex3fSUN: TglReplacementCodeuiColor4ubVertex3fSUN;
-  glReplacementCodeuiColor4ubVertex3fvSUN: TglReplacementCodeuiColor4ubVertex3fvSUN;
-  glReplacementCodeuiColor3fVertex3fSUN: TglReplacementCodeuiColor3fVertex3fSUN;
-  glReplacementCodeuiColor3fVertex3fvSUN: TglReplacementCodeuiColor3fVertex3fvSUN;
-  glReplacementCodeuiNormal3fVertex3fSUN: TglReplacementCodeuiNormal3fVertex3fSUN;
-  glReplacementCodeuiNormal3fVertex3fvSUN: TglReplacementCodeuiNormal3fVertex3fvSUN;
-  glReplacementCodeuiColor4fNormal3fVertex3fSUN: TglReplacementCodeuiColor4fNormal3fVertex3fSUN;
-  glReplacementCodeuiColor4fNormal3fVertex3fvSUN: TglReplacementCodeuiColor4fNormal3fVertex3fvSUN;
-  glReplacementCodeuiTexCoord2fVertex3fSUN: TglReplacementCodeuiTexCoord2fVertex3fSUN;
-  glReplacementCodeuiTexCoord2fVertex3fvSUN: TglReplacementCodeuiTexCoord2fVertex3fvSUN;
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN: TglReplacementCodeuiTexCoord2fNormal3fVertex3fSUN;
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN: TglReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN;
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN: TglReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN;
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN: TglReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN;
-
-{$IFDEF DGL_WIN}
-  wglGetProcAddress: TwglGetProcAddress;
-  wglCopyContext: TwglCopyContext;
-  wglCreateContext: TwglCreateContext;
-  wglCreateLayerContext: TwglCreateLayerContext;
-  wglDeleteContext: TwglDeleteContext;
-  wglDescribeLayerPlane: TwglDescribeLayerPlane;
-  wglGetCurrentContext: TwglGetCurrentContext;
-  wglGetCurrentDC: TwglGetCurrentDC;
-  wglGetLayerPaletteEntries: TwglGetLayerPaletteEntries;
-  wglMakeCurrent: TwglMakeCurrent;
-  wglRealizeLayerPalette: TwglRealizeLayerPalette;
-  wglSetLayerPaletteEntries: TwglSetLayerPaletteEntries;
-  wglShareLists: TwglShareLists;
-  wglSwapLayerBuffers: TwglSwapLayerBuffers;
-  wglSwapMultipleBuffers: TwglSwapMultipleBuffers;
-  wglUseFontBitmapsA: TwglUseFontBitmapsA;
-  wglUseFontOutlinesA: TwglUseFontOutlinesA;
-  wglUseFontBitmapsW: TwglUseFontBitmapsW;
-  wglUseFontOutlinesW: TwglUseFontOutlinesW;
-  wglUseFontBitmaps: TwglUseFontBitmaps;
-  wglUseFontOutlines: TwglUseFontOutlines;
-
-   // WGL_ARB_buffer_region
-  wglCreateBufferRegionARB: TwglCreateBufferRegionARB;
-  wglDeleteBufferRegionARB: TwglDeleteBufferRegionARB;
-  wglSaveBufferRegionARB: TwglSaveBufferRegionARB;
-  wglRestoreBufferRegionARB: TwglRestoreBufferRegionARB;
-
-  // WGL_ARB_extensions_string
-  wglGetExtensionsStringARB: TwglGetExtensionsStringARB;
-
-  // WGL_ARB_make_current_read
-  wglMakeContextCurrentARB: TwglMakeContextCurrentARB;
-  wglGetCurrentReadDCARB: TwglGetCurrentReadDCARB;
-
-  // WGL_ARB_pbuffer
-  wglCreatePbufferARB: TwglCreatePbufferARB;
-  wglGetPbufferDCARB: TwglGetPbufferDCARB;
-  wglReleasePbufferDCARB: TwglReleasePbufferDCARB;
-  wglDestroyPbufferARB: TwglDestroyPbufferARB;
-  wglQueryPbufferARB: TwglQueryPbufferARB;
-
-  // WGL_ARB_pixel_format
-  wglGetPixelFormatAttribivARB: TwglGetPixelFormatAttribivARB;
-  wglGetPixelFormatAttribfvARB: TwglGetPixelFormatAttribfvARB;
-  wglChoosePixelFormatARB: TwglChoosePixelFormatARB;
-  // WGL_ARB_color_buffer_float
-  wglClampColorARB: TwglClampColorARB;
-
-  // WGL_ARB_render_texture
-  wglBindTexImageARB: TwglBindTexImageARB;
-  wglReleaseTexImageARB: TwglReleaseTexImageARB;
-  wglSetPbufferAttribARB: TwglSetPbufferAttribARB;
-
-  // WGL_ARB_create_context
-  wglCreateContextAttribsARB: TwglCreateContextAttribsARB;
-
-  // WGL_AMD_gpu_association
-  wglGetGPUIDsAMD: TwglGetGPUIDsAMD;
-  wglGetGPUInfoAMD: TwglGetGPUInfoAMD;
-  wglGetContextGPUIDAMD: TwglGetContextGPUIDAMD;
-  wglCreateAssociatedContextAMD: TwglCreateAssociatedContextAMD;
-  wglCreateAssociatedContextAttribsAMD: TwglCreateAssociatedContextAttribsAMD;
-  wglDeleteAssociatedContextAMD: TwglDeleteAssociatedContextAMD;
-  wglMakeAssociatedContextCurrentAMD: TwglMakeAssociatedContextCurrentAMD;
-  wglGetCurrentAssociatedContextAMD: TwglGetCurrentAssociatedContextAMD;
-  wglBlitContextFramebufferAMD: TwglBlitContextFramebufferAMD;
-
-  // WGL_EXT_display_color_table
-  wglCreateDisplayColorTableEXT: TwglCreateDisplayColorTableEXT;
-  wglLoadDisplayColorTableEXT: TwglLoadDisplayColorTableEXT;
-  wglBindDisplayColorTableEXT: TwglBindDisplayColorTableEXT;
-  wglDestroyDisplayColorTableEXT: TwglDestroyDisplayColorTableEXT;
-
-  // WGL_EXT_extensions_string
-  wglGetExtensionsStringEXT: TwglGetExtensionsStringEXT;
-
-  // WGL_EXT_make_current_read
-  wglMakeContextCurrentEXT: TwglMakeContextCurrentEXT;
-  wglGetCurrentReadDCEXT: TwglGetCurrentReadDCEXT;
-
-  // WGL_EXT_pbuffer
-  wglCreatePbufferEXT: TwglCreatePbufferEXT;
-  wglGetPbufferDCEXT: TwglGetPbufferDCEXT;
-  wglReleasePbufferDCEXT: TwglReleasePbufferDCEXT;
-  wglDestroyPbufferEXT: TwglDestroyPbufferEXT;
-  wglQueryPbufferEXT: TwglQueryPbufferEXT;
-
-  // WGL_EXT_pixel_format
-  wglGetPixelFormatAttribivEXT: TwglGetPixelFormatAttribivEXT;
-  wglGetPixelFormatAttribfvEXT: TwglGetPixelFormatAttribfvEXT;
-  wglChoosePixelFormatEXT: TwglChoosePixelFormatEXT;
-
-  // WGL_EXT_swap_control
-  wglSwapIntervalEXT: TwglSwapIntervalEXT;
-  wglGetSwapIntervalEXT: TwglGetSwapIntervalEXT;
-
-  // WGL_I3D_digital_video_control
-  wglGetDigitalVideoParametersI3D: TwglGetDigitalVideoParametersI3D;
-  wglSetDigitalVideoParametersI3D: TwglSetDigitalVideoParametersI3D;
-
-  // WGL_I3D_gamma
-  wglGetGammaTableParametersI3D: TwglGetGammaTableParametersI3D;
-  wglSetGammaTableParametersI3D: TwglSetGammaTableParametersI3D;
-  wglGetGammaTableI3D: TwglGetGammaTableI3D;
-  wglSetGammaTableI3D: TwglSetGammaTableI3D;
-
-  // WGL_I3D_genlock
-  wglEnableGenlockI3D: TwglEnableGenlockI3D;
-  wglDisableGenlockI3D: TwglDisableGenlockI3D;
-  wglIsEnabledGenlockI3D: TwglIsEnabledGenlockI3D;
-  wglGenlockSourceI3D: TwglGenlockSourceI3D;
-  wglGetGenlockSourceI3D: TwglGetGenlockSourceI3D;
-  wglGenlockSourceEdgeI3D: TwglGenlockSourceEdgeI3D;
-  wglGetGenlockSourceEdgeI3D: TwglGetGenlockSourceEdgeI3D;
-  wglGenlockSampleRateI3D: TwglGenlockSampleRateI3D;
-  wglGetGenlockSampleRateI3D: TwglGetGenlockSampleRateI3D;
-  wglGenlockSourceDelayI3D: TwglGenlockSourceDelayI3D;
-  wglGetGenlockSourceDelayI3D: TwglGetGenlockSourceDelayI3D;
-  wglQueryGenlockMaxSourceDelayI3D: TwglQueryGenlockMaxSourceDelayI3D;
-
-  // WGL_I3D_image_buffer
-  wglCreateImageBufferI3D: TwglCreateImageBufferI3D;
-  wglDestroyImageBufferI3D: TwglDestroyImageBufferI3D;
-  wglAssociateImageBufferEventsI3D: TwglAssociateImageBufferEventsI3D;
-  wglReleaseImageBufferEventsI3D: TwglReleaseImageBufferEventsI3D;
-
-  // WGL_I3D_swap_frame_lock
-  wglEnableFrameLockI3D: TwglEnableFrameLockI3D;
-  wglDisableFrameLockI3D: TwglDisableFrameLockI3D;
-  wglIsEnabledFrameLockI3D: TwglIsEnabledFrameLockI3D;
-  wglQueryFrameLockMasterI3D: TwglQueryFrameLockMasterI3D;
-
-  // WGL_I3D_swap_frame_usage
-  wglGetFrameUsageI3D: TwglGetFrameUsageI3D;
-  wglBeginFrameTrackingI3D: TwglBeginFrameTrackingI3D;
-  wglEndFrameTrackingI3D: TwglEndFrameTrackingI3D;
-  wglQueryFrameTrackingI3D: TwglQueryFrameTrackingI3D;
-
-  // WGL_NV_vertex_array_range
-  wglAllocateMemoryNV: TwglAllocateMemoryNV;
-  wglFreeMemoryNV: TwglFreeMemoryNV;
-
-  // WGL_NV_present_video
-  wglEnumerateVideoDevicesNV: TwglEnumerateVideoDevicesNV;
-  wglBindVideoDeviceNV: TwglBindVideoDeviceNV;
-  wglQueryCurrentContextNV: TwglQueryCurrentContextNV;
-
-  // WGL_NV_video_out
-  wglGetVideoDeviceNV: TwglGetVideoDeviceNV;
-  wglReleaseVideoDeviceNV: TwglReleaseVideoDeviceNV;
-  wglBindVideoImageNV: TwglBindVideoImageNV;
-  wglReleaseVideoImageNV: TwglReleaseVideoImageNV;
-  wglSendPbufferToVideoNV: TwglSendPbufferToVideoNV;
-  wglGetVideoInfoNV: TwglGetVideoInfoNV;
-
-  // WGL_NV_swap_group
-  wglJoinSwapGroupNV: TwglJoinSwapGroupNV;
-  wglBindSwapBarrierNV: TwglBindSwapBarrierNV;
-  wglQuerySwapGroupNV: TwglQuerySwapGroupNV;
-  wglQueryMaxSwapGroupsNV: TwglQueryMaxSwapGroupsNV;
-  wglQueryFrameCountNV: TwglQueryFrameCountNV;
-  wglResetFrameCountNV: TwglResetFrameCountNV;
-
-  // WGL_NV_gpu_affinity
-  wglEnumGpusNV: TwglEnumGpusNV;
-  wglEnumGpuDevicesNV: TwglEnumGpuDevicesNV;
-  wglCreateAffinityDCNV: TwglCreateAffinityDCNV;
-  wglEnumGpusFromAffinityDCNV: TwglEnumGpusFromAffinityDCNV;
-  wglDeleteDCNV: TwglDeleteDCNV;
-
-  // WGL_OML_sync_control
-  wglGetSyncValuesOML: TwglGetSyncValuesOML;
-  wglGetMscRateOML: TwglGetMscRateOML;
-  wglSwapBuffersMscOML: TwglSwapBuffersMscOML;
-  wglSwapLayerBuffersMscOML: TwglSwapLayerBuffersMscOML;
-  wglWaitForMscOML: TwglWaitForMscOML;
-  wglWaitForSbcOML: TwglWaitForSbcOML;
-
-  // WGL_3DL_stereo_control
-  wglSetStereoEmitterState3DL: TwglSetStereoEmitterState3DL;
-
-  // WIN_draw_range_elements
-  glDrawRangeElementsWIN: TglDrawRangeElementsWIN;
-
-  // WIN_swap_hint
-  glAddSwapHintRectWIN: TglAddSwapHintRectWIN;
-{$ENDIF}
-
-{$IFDEF DGL_LINUX}
-  glXChooseVisual: TglXChooseVisual;
-  glXCopyContext: TglXCopyContext;
-  glXCreateContext: TglXCreateContext;
-  glXCreateGLXPixmap: TglXCreateGLXPixmap;
-  glXDestroyContext: TglXDestroyContext;
-  glXDestroyGLXPixmap: TglXDestroyGLXPixmap;
-  glXGetConfig: TglXGetConfig;
-  glXGetCurrentContext: TglXGetCurrentContext;
-  glXGetCurrentDrawable: TglXGetCurrentDrawable;
-  glXIsDirect: TglXIsDirect;
-  glXMakeCurrent: TglXMakeCurrent;
-  glXQueryExtension: TglXQueryExtension;
-  glXQueryVersion: TglXQueryVersion;
-  glXSwapBuffers: TglXSwapBuffers;
-  glXUseXFont: TglXUseXFont;
-  glXWaitGL: TglXWaitGL;
-  glXWaitX: TglXWaitX;
-
-  glXGetClientString: TglXGetClientString;
-  glXQueryServerString: TglXQueryServerString;
-  glXQueryExtensionsString: TglXQueryExtensionsString;
-
-  // GLX_VERSION_1_3
-  glXGetFBConfigs: TglXGetFBConfigs;
-  glXChooseFBConfig: TglXChooseFBConfig;
-  glXGetFBConfigAttrib: TglXGetFBConfigAttrib;
-  glXGetVisualFromFBConfig: TglXGetVisualFromFBConfig;
-  glXCreateWindow: TglXCreateWindow;
-  glXDestroyWindow: TglXDestroyWindow;
-  glXCreatePixmap: TglXCreatePixmap;
-
-  glXDestroyPixmap: TglXDestroyPixmap;
-  glXCreatePbuffer: TglXCreatePbuffer;
-  glXDestroyPbuffer: TglXDestroyPbuffer;
-  glXQueryDrawable: TglXQueryDrawable;
-  glXCreateNewContext: TglXCreateNewContext;
-  glXMakeContextCurrent: TglXMakeContextCurrent;
-  glXGetCurrentReadDrawable: TglXGetCurrentReadDrawable;
-  glXGetCurreentDisplay: TglXGetCurreentDisplay;
-
-  glXQueryContext: TglXQueryContext;
-  glXSelectEvent: TglXSelectEvent;
-  glXGetSelectedEvent: TglXGetSelectedEvent;
-
-  // GLX_VERSION_1_4
-  glXGetProcAddress: TglXGetProcAddress;
-
-  // GLX_ARB_get_proc_address
-  glXGetProcAddressARB: TglXGetProcAddressARB;
-
-  // GLX_ARB_create_context
-  glXCreateContextAttribsARB: TglXCreateContextAttribsARB;
-  
-  // GLX_EXT_import_context
-  glXGetCurrentDisplayEXT: TglXGetCurrentDisplayEXT;
-  glXQueryContextInfoEXT: TglXQueryContextInfoEXT;
-  glXGetContextIDEXT: TglXGetContextIDEXT;
-  glXImportContextEXT: TglXImportContextEXT;
-  glXFreeContextEXT: TglXFreeContextEXT;
-  
-  // GLX_EXT_texture_from_pixmap
-  glXBindTexImageEXT: TglXBindTexImageEXT;
-  glXReleaseTexImageEXT: TglXReleaseTexImageEXT;
-{$ENDIF}
-
-  // GL utility functions and procedures
-  gluErrorString: TgluErrorString;
-  gluGetString: TgluGetString;
-  gluOrtho2D: TgluOrtho2D;
-  gluPerspective: TgluPerspective;
-  gluPickMatrix: TgluPickMatrix;
-  gluLookAt: TgluLookAt;
-  gluProject: TgluProject;
-  gluUnProject: TgluUnProject;
-  gluScaleImage: TgluScaleImage;
-  gluBuild1DMipmaps: TgluBuild1DMipmaps;
-  gluBuild2DMipmaps: TgluBuild2DMipmaps;
-  gluNewQuadric: TgluNewQuadric;
-  gluDeleteQuadric: TgluDeleteQuadric;
-  gluQuadricNormals: TgluQuadricNormals;
-  gluQuadricTexture: TgluQuadricTexture;
-  gluQuadricOrientation: TgluQuadricOrientation;
-  gluQuadricDrawStyle: TgluQuadricDrawStyle;
-  gluCylinder: TgluCylinder;
-  gluDisk: TgluDisk;
-  gluPartialDisk: TgluPartialDisk;
-  gluSphere: TgluSphere;
-  gluQuadricCallback: TgluQuadricCallback;
-  gluNewTess: TgluNewTess;
-  gluDeleteTess: TgluDeleteTess;
-  gluTessBeginPolygon: TgluTessBeginPolygon;
-  gluTessBeginContour: TgluTessBeginContour;
-  gluTessVertex: TgluTessVertex;
-  gluTessEndContour: TgluTessEndContour;
-  gluTessEndPolygon: TgluTessEndPolygon;
-  gluTessProperty: TgluTessProperty;
-  gluTessNormal: TgluTessNormal;
-  gluTessCallback: TgluTessCallback;
-  gluGetTessProperty: TgluGetTessProperty;
-  gluNewNurbsRenderer: TgluNewNurbsRenderer;
-  gluDeleteNurbsRenderer: TgluDeleteNurbsRenderer;
-  gluBeginSurface: TgluBeginSurface;
-  gluBeginCurve: TgluBeginCurve;
-  gluEndCurve: TgluEndCurve;
-  gluEndSurface: TgluEndSurface;
-  gluBeginTrim: TgluBeginTrim;
-  gluEndTrim: TgluEndTrim;
-  gluPwlCurve: TgluPwlCurve;
-  gluNurbsCurve: TgluNurbsCurve;
-  gluNurbsSurface: TgluNurbsSurface;
-  gluLoadSamplingMatrices: TgluLoadSamplingMatrices;
-  gluNurbsProperty: TgluNurbsProperty;
-  gluGetNurbsProperty: TgluGetNurbsProperty;
-  gluNurbsCallback: TgluNurbsCallback;
-  gluBeginPolygon: TgluBeginPolygon;
-  gluNextContour: TgluNextContour;
-  gluEndPolygon: TgluEndPolygon;
-
-
-type
-  TRCOptions = set of (opDoubleBuffered, opGDI, opStereo);
-
-var
-  GL_LibHandle: Pointer = nil;
-  GLU_LibHandle: Pointer = nil;
-
-  LastPixelFormat: Integer;
-  ExtensionsRead: Boolean;
-  ImplementationRead: Boolean;
-
-
-const
-{$IFDEF DGL_WIN}
-  OPENGL_LIBNAME = 'OpenGL32.dll';
-  GLU_LIBNAME = 'GLU32.dll';
-{$ELSE}
-  {$IFDEF darwin}
-    OPENGL_LIBNAME = 'libGL.dylib';
-    GLU_LIBNAME = 'libGLU.dylib';
-  {$ELSE}
-    OPENGL_LIBNAME = 'libGL.so.1';
-    GLU_LIBNAME = 'libGLU.so.1';
-  {$ENDIF}
-{$ENDIF}
-
-function InitOpenGL(LibName: String = OPENGL_LIBNAME; GLULibName: String = GLU_LIBNAME): Boolean;
-
-function dglGetProcAddress(ProcName: PAnsiChar; LibHandle: Pointer = nil): Pointer;
-function dglCheckExtension(Extension: AnsiString): Boolean;
-
-procedure ReadExtensions;
-procedure ReadImplementationProperties;
-
-// =============================================================================
-// Helper-Functions
-// =============================================================================
-{$IFDEF DGL_WIN}
-  function CreateRenderingContext(DC: HDC; Options: TRCOptions; ColorBits, ZBits, StencilBits, AccumBits, AuxBuffers: Integer; Layer: Integer): HGLRC;
-  procedure DestroyRenderingContext(RC: HGLRC);
-
-  procedure ActivateRenderingContext(DC: HDC; RC: HGLRC; loadext: boolean = true);
-  procedure DeactivateRenderingContext;
-{$ENDIF}
-
-
-procedure ReadOpenGLCore;
-procedure Read_GL_3DFX_tbuffer;
-procedure Read_GL_APPLE_element_array;
-procedure Read_GL_APPLE_fence;
-procedure Read_GL_APPLE_vertex_array_object;
-procedure Read_GL_APPLE_vertex_array_range;
-procedure Read_GL_APPLE_texture_range;
-procedure Read_GL_APPLE_vertex_program_evaluators;
-procedure Read_GL_APPLE_object_purgeable;
-procedure Read_GL_ARB_matrix_palette;
-procedure Read_GL_ARB_multitexture;
-procedure Read_GL_ARB_point_parameters;
-procedure Read_GL_ARB_texture_compression;
-procedure Read_GL_ARB_transpose_matrix;
-procedure Read_GL_ARB_vertex_blend;
-procedure Read_GL_ARB_vertex_buffer_object;
-procedure Read_GL_ARB_vertex_program;
-procedure Read_GL_ARB_window_pos;
-procedure Read_GL_ARB_color_buffer_float;
-procedure Read_GL_ARB_Shader_Objects;
-procedure Read_GL_ARB_occlusion_query;
-procedure Read_GL_ARB_draw_instanced;
-procedure Read_GL_ARB_framebuffer_object;
-procedure Read_GL_ARB_geometry_shader4;
-procedure Read_GL_ARB_instanced_arrays;
-procedure Read_GL_ARB_map_buffer_range;
-procedure Read_GL_ARB_texture_buffer_object;
-procedure Read_GL_ARB_vertex_array_object;
-procedure Read_GL_ARB_uniform_buffer_object;
-procedure Read_GL_ARB_copy_buffer;
-procedure Read_GL_ARB_draw_elements_base_vertex;
-procedure Read_GL_ARB_provoking_vertex;
-procedure Read_GL_ARB_sync;
-procedure Read_GL_ARB_texture_multisample;
-procedure Read_GL_ARB_draw_buffers_blend;
-procedure Read_GL_ARB_sample_shading;
-procedure Read_GL_ATI_draw_buffers;
-procedure Read_GL_ATI_element_array;
-procedure Read_GL_ATI_envmap_bumpmap;
-procedure Read_GL_ATI_fragment_shader;
-procedure Read_GL_ATI_map_object_buffer;
-procedure Read_GL_ATI_pn_triangles;
-procedure Read_GL_ATI_separate_stencil;
-procedure Read_GL_ATI_vertex_array_object;
-procedure Read_GL_ATI_vertex_attrib_array_object;
-procedure Read_GL_ATI_vertex_streams;
-procedure Read_GL_AMD_performance_monitor;
-procedure Read_GL_EXT_blend_color;
-procedure Read_GL_EXT_blend_func_separate;
-procedure Read_GL_EXT_blend_minmax;
-procedure Read_GL_EXT_color_subtable;
-procedure Read_GL_EXT_compiled_vertex_array;
-procedure Read_GL_EXT_convolution;
-procedure Read_GL_EXT_coordinate_frame;
-procedure Read_GL_EXT_copy_texture;
-procedure Read_GL_EXT_cull_vertex;
-procedure Read_GL_EXT_draw_range_elements;
-procedure Read_GL_EXT_fog_coord;
-procedure Read_GL_EXT_framebuffer_object;
-procedure Read_GL_EXT_histogram;
-procedure Read_GL_EXT_index_func;
-procedure Read_GL_EXT_index_material;
-procedure Read_GL_EXT_multi_draw_arrays;
-procedure Read_GL_EXT_multisample;
-procedure Read_GL_EXT_paletted_texture;
-procedure Read_GL_EXT_pixel_transform;
-procedure Read_GL_EXT_point_parameters;
-procedure Read_GL_EXT_polygon_offset;
-procedure Read_GL_EXT_secondary_color;
-procedure Read_GL_EXT_stencil_two_side;
-procedure Read_GL_EXT_subtexture;
-procedure Read_GL_EXT_texture3D;
-procedure Read_GL_EXT_texture_object;
-procedure Read_GL_EXT_texture_perturb_normal;
-procedure Read_GL_EXT_vertex_array;
-procedure Read_GL_EXT_vertex_shader;
-procedure Read_GL_EXT_vertex_weighting;
-procedure Read_GL_EXT_depth_bounds_test;
-procedure Read_GL_EXT_blend_equation_separate;
-procedure Read_GL_EXT_stencil_clear_tag;
-procedure Read_GL_EXT_framebuffer_blit;
-procedure Read_GL_EXT_framebuffer_multisample;
-procedure Read_GL_EXT_timer_query;
-procedure Read_GL_EXT_gpu_program_parameters;
-procedure Read_GL_EXT_bindable_uniform;
-procedure Read_GL_EXT_draw_buffers2;
-procedure Read_GL_EXT_draw_instanced;
-procedure Read_GL_EXT_geometry_shader4;
-procedure Read_GL_EXT_gpu_shader4;
-procedure Read_GL_EXT_texture_array;
-procedure Read_GL_EXT_texture_buffer_object;
-procedure Read_GL_EXT_texture_integer;
-procedure Read_GL_EXT_transform_feedback;
-procedure Read_GL_EXT_direct_state_access;
-procedure Read_GL_HP_image_transform;
-procedure Read_GL_IBM_multimode_draw_arrays;
-procedure Read_GL_IBM_vertex_array_lists;
-procedure Read_GL_INGR_blend_func_separate;
-procedure Read_GL_INTEL_parallel_arrays;
-procedure Read_GL_MESA_resize_buffers;
-procedure Read_GL_MESA_window_pos;
-procedure Read_GL_NV_evaluators;
-procedure Read_GL_NV_fence;
-procedure Read_GL_NV_fragment_program;
-procedure Read_GL_NV_half_float;
-procedure Read_GL_NV_occlusion_query;
-procedure Read_GL_NV_pixel_data_range;
-procedure Read_GL_NV_point_sprite;
-procedure Read_GL_NV_primitive_restart;
-procedure Read_GL_NV_register_combiners;
-procedure Read_GL_NV_register_combiners2;
-procedure Read_GL_NV_vertex_array_range;
-procedure Read_GL_NV_vertex_program;
-procedure Read_GL_NV_depth_buffer_float;
-procedure Read_GL_NV_framebuffer_multisample_coverage;
-procedure Read_GL_NV_geometry_program4;
-procedure Read_GL_NV_gpu_program4;
-procedure Read_GL_NV_parameter_buffer_object;
-procedure Read_GL_NV_transform_feedback;
-procedure Read_GL_NV_conditional_render;
-procedure Read_GL_NV_present_video;
-procedure Read_GL_NV_explicit_multisample;
-procedure Read_GL_NV_transform_feedback2;
-procedure Read_GL_PGI_misc_hints;
-procedure Read_GL_SGIS_detail_texture;
-procedure Read_GL_SGIS_fog_function;
-procedure Read_GL_SGIS_multisample;
-procedure Read_GL_SGIS_pixel_texture;
-procedure Read_GL_SGIS_point_parameters;
-procedure Read_GL_SGIS_sharpen_texture;
-procedure Read_GL_SGIS_texture4D;
-procedure Read_GL_SGIS_texture_color_mask;
-procedure Read_GL_SGIS_texture_filter4;
-procedure Read_GL_SGIX_async;
-procedure Read_GL_SGIX_flush_raster;
-procedure Read_GL_SGIX_fragment_lighting;
-procedure Read_GL_SGIX_framezoom;
-procedure Read_GL_SGIX_igloo_interface;
-procedure Read_GL_SGIX_instruments;
-procedure Read_GL_SGIX_list_priority;
-procedure Read_GL_SGIX_pixel_texture;
-procedure Read_GL_SGIX_polynomial_ffd;
-procedure Read_GL_SGIX_reference_plane;
-procedure Read_GL_SGIX_sprite;
-procedure Read_GL_SGIX_tag_sample_buffer;
-procedure Read_GL_SGI_color_table;
-procedure Read_GL_SUNX_constant_data;
-procedure Read_GL_SUN_global_alpha;
-procedure Read_GL_SUN_mesh_array;
-procedure Read_GL_SUN_triangle_list;
-procedure Read_GL_SUN_vertex;
-
-{$IFDEF DGL_WIN}
-procedure Read_WGL_ARB_buffer_region;
-procedure Read_WGL_ARB_extensions_string;
-procedure Read_WGL_ARB_make_current_read;
-procedure Read_WGL_ARB_pbuffer;
-procedure Read_WGL_ARB_pixel_format;
-procedure Read_WGL_ARB_pixel_format_float;
-procedure Read_WGL_ARB_render_texture;
-procedure Read_WGL_ARB_create_context;
-procedure Read_WGL_AMD_gpu_association;
-procedure Read_WGL_EXT_display_color_table;
-procedure Read_WGL_EXT_extensions_string;
-procedure Read_WGL_EXT_make_current_read;
-procedure Read_WGL_EXT_pbuffer;
-procedure Read_WGL_EXT_pixel_format;
-procedure Read_WGL_EXT_swap_control;
-procedure Read_WGL_I3D_digital_video_control;
-procedure Read_WGL_I3D_gamma;
-procedure Read_WGL_I3D_genlock;
-procedure Read_WGL_I3D_image_buffer;
-procedure Read_WGL_I3D_swap_frame_lock;
-procedure Read_WGL_I3D_swap_frame_usage;
-procedure Read_WGL_NV_vertex_array_range;
-procedure Read_WGL_NV_present_video;
-procedure Read_WGL_NV_video_out;
-procedure Read_WGL_NV_swap_group;
-procedure Read_WGL_NV_gpu_affinity;
-procedure Read_WGL_OML_sync_control;
-procedure Read_WGL_3DL_stereo_control;
-
-procedure Read_WIN_draw_range_elements;
-procedure Read_WIN_swap_hint;
-{$ENDIF}
-
-
-implementation
-
-
-{$IFDEF DGL_LINUX}
-const
-  RTLD_LAZY = $001;
-  RTLD_NOW = $002;
-  RTLD_BINDING_MASK = $003;
-
-  // Seems to work on Debian / Fedora
-  LibraryLib = {$IFDEF Linux} 'libdl.so.2'{$ELSE} 'c'{$ENDIF};
-
-function dlopen(Name: PAnsiChar; Flags: LongInt): Pointer; cdecl; external LibraryLib name 'dlopen';
-function dlclose(Lib: Pointer): LongInt; cdecl; external LibraryLib name 'dlclose';
-
-function dlsym(Lib: Pointer; Name: PAnsiChar): Pointer; cdecl; external LibraryLib name 'dlsym';
-{$ENDIF}
-
-
-function dglLoadLibrary(Name: PChar): Pointer;
-begin
-  {$IFDEF DGL_WIN}
-  Result := Pointer(LoadLibrary(Name));
-  {$ENDIF}
-
-  {$IFDEF DGL_LINUX}
-  Result := dlopen(Name, RTLD_LAZY);
-  {$ENDIF}
-end;
-
-
-function dglFreeLibrary(LibHandle: Pointer): Boolean;
-begin
-  if LibHandle = nil then
-    Result := False
-  else
-    {$IFDEF DGL_WIN}
-    Result := FreeLibrary(HMODULE(LibHandle));
-    {$ENDIF}
-
-    {$IFDEF DGL_LINUX}
-    Result := dlclose(LibHandle) = 0;
-    {$ENDIF}
-end;
-
-
-function dglGetProcAddress(ProcName: PAnsiChar; LibHandle: Pointer = nil): Pointer;
-begin
-  if LibHandle = nil then
-    LibHandle := GL_LibHandle;
-
-  {$IFDEF DGL_WIN}
-  Result := GetProcAddress(HMODULE(LibHandle), ProcName);
-  {$ENDIF}
-
-  {$IFDEF DGL_LINUX}
-  Result := dlsym(LibHandle, ProcName);
-  {$ENDIF}
-
-  if result <> nil then
-    exit;
-
-  {$IFDEF DGL_WIN}
-    if Addr(wglGetProcAddress) <> nil then
-      Result := wglGetProcAddress(ProcName);
-  {$ENDIF}
-
-  {$IFDEF DGL_LINUX}
-    if Addr(glXGetProcAddress) <> nil then
-      Result := glXGetProcAddress(ProcName);
-
-    if result <> nil then
-      exit;
-
-    if Addr(glXGetProcAddressARB) <> nil then
-      Result := glXGetProcAddressARB(ProcName);
-  {$ENDIF}
-end;
-
-
-function Int_GetExtensionString: AnsiString;
-begin
-  // generel extension string
-  if not Assigned(@glGetString) then
-    glGetString := dglGetProcAddress('glGetString');
-
-  if Assigned(@glGetString) then
-    Result := glGetString(GL_EXTENSIONS)
-  else
-    Result := '';
-
-  if (GL_LibHandle <> nil) then begin
-    {$IFDEF DGL_WIN}
-      // wglGetExtensionsStringEXT
-      if not Assigned(@wglGetExtensionsStringEXT) then
-        wglGetExtensionsStringEXT := dglGetProcAddress('wglGetExtensionsStringEXT');
-
-      if Assigned(@wglGetExtensionsStringEXT) then
-        Result := Result + #32 + wglGetExtensionsStringEXT;
-
-      // wglGetExtensionsStringARB
-      if not Assigned(@wglGetExtensionsStringARB) then
-        wglGetExtensionsStringARB := dglGetProcAddress('wglGetExtensionsStringARB');
-
-      if Assigned(@wglGetExtensionsStringARB) then
-        Result := Result + #32 + wglGetExtensionsStringARB(wglGetCurrentDC);
-    {$ENDIF}
-  end;
-
-  Result := #32 + Result + #32;
-end;
-
-
-function Int_CheckExtension(AllExtensions, CheckExtension: AnsiString): Boolean;
-begin
-  Result := Pos(#32 + CheckExtension + #32, AllExtensions) > 0;
-end;
-
-
-function dglCheckExtension(Extension: AnsiString): Boolean;
-var
-  Extensions: AnsiString;
-begin
-  Extensions := Int_GetExtensionString;
-  Result := Int_CheckExtension(Extensions, Extension);
-end;
-
-
-
-function InitOpenGL(LibName: String; GLULibName: String): Boolean;
-begin
-  Result := False;
-
-  // free opened libraries
-  if GL_LibHandle <> nil then
-    dglFreeLibrary(GL_LibHandle);
-
-  if GLU_LibHandle <> nil then
-    dglFreeLibrary(GLU_LibHandle);
-
-  // load library
-  GL_LibHandle := dglLoadLibrary(PChar(LibName));
-  GLU_LibHandle := dglLoadLibrary(PChar(GLULibName));
-
-  // load GL functions
-  if (GL_LibHandle <> nil) then begin
-    {$IFDEF DGL_WIN}
-      wglCopyContext := dglGetProcAddress('wglCopyContext');
-      wglCreateLayerContext := dglGetProcAddress('wglCreateLayerContext');
-      wglCreateContext := dglGetProcAddress('wglCreateContext');
-      wglDeleteContext := dglGetProcAddress('wglDeleteContext');
-      wglDescribeLayerPlane := dglGetProcAddress('wglDescribeLayerPlane');
-      wglGetCurrentContext := dglGetProcAddress('wglGetCurrentContext');
-      wglGetCurrentDC := dglGetProcAddress('wglGetCurrentDC');
-      wglGetLayerPaletteEntries := dglGetProcAddress('wglGetLayerPaletteEntries');
-      wglGetProcAddress := dglGetProcAddress('wglGetProcAddress');
-      wglMakeCurrent := dglGetProcAddress('wglMakeCurrent');
-      wglRealizeLayerPalette := dglGetProcAddress('wglRealizeLayerPalette');
-      wglSetLayerPaletteEntries := dglGetProcAddress('wglSetLayerPaletteEntries');
-      wglShareLists := dglGetProcAddress('wglShareLists');
-      wglSwapLayerBuffers := dglGetProcAddress('wglSwapLayerBuffers');
-      wglSwapMultipleBuffers := dglGetProcAddress('wglSwapMultipleBuffers');
-      wglUseFontBitmapsA := dglGetProcAddress('wglUseFontBitmapsA');
-      wglUseFontOutlinesA := dglGetProcAddress('wglUseFontOutlinesA');
-      wglUseFontBitmapsW := dglGetProcAddress('wglUseFontBitmapsW');
-      wglUseFontOutlinesW := dglGetProcAddress('wglUseFontOutlinesW');
-      wglUseFontBitmaps := dglGetProcAddress('wglUseFontBitmapsA');
-      wglUseFontOutlines := dglGetProcAddress('wglUseFontOutlinesA');
-    {$ENDIF}
-
-    {$IFDEF DGL_LINUX}
-      glXChooseVisual := dglGetProcAddress('glXChooseVisual');
-      glXCopyContext := dglGetProcAddress('glXCopyContext');
-      glXCreateContext := dglGetProcAddress('glXCreateContext');
-      glXCreateGLXPixmap := dglGetProcAddress('glXCreateGLXPixmap');
-      glXDestroyContext := dglGetProcAddress('glXDestroyContext');
-      glXDestroyGLXPixmap := dglGetProcAddress('glXDestroyGLXPixmap');
-      glXGetConfig := dglGetProcAddress('glXGetConfig');
-      glXGetCurrentContext := dglGetProcAddress('glXGetCurrentContext');
-      glXGetCurrentDrawable := dglGetProcAddress('glXGetCurrentDrawable');
-      glXIsDirect := dglGetProcAddress('glXIsDirect');
-      glXMakeCurrent := dglGetProcAddress('glXMakeCurrent');
-      glXQueryExtension := dglGetProcAddress('glXQueryExtension');
-      glXQueryVersion := dglGetProcAddress('glXQueryVersion');
-      glXSwapBuffers := dglGetProcAddress('glXSwapBuffers');
-      glXUseXFont := dglGetProcAddress('glXUseXFont');
-      glXWaitGL := dglGetProcAddress('glXWaitGL');
-      glXWaitX := dglGetProcAddress('glXWaitX');
-
-      glXGetClientString := dglGetProcAddress('glXGetClientString');
-      glXQueryServerString := dglGetProcAddress('glXQueryServerString');
-      glXQueryExtensionsString := dglGetProcAddress('glXQueryExtensionsString');
-
-      // GLX_VERSION_1_3
-      glXGetFBConfigs := dglGetProcAddress('glXGetFBConfigs');
-      glXChooseFBConfig := dglGetProcAddress('glXChooseFBConfig');
-      glXGetFBConfigAttrib := dglGetProcAddress('glXGetFBConfigAttrib');
-      glXGetVisualFromFBConfig := dglGetProcAddress('glXGetVisualFromFBConfig');
-      glXCreateWindow := dglGetProcAddress('glXCreateWindow');
-      glXDestroyWindow := dglGetProcAddress('glXDestroyWindow');
-      glXCreatePixmap := dglGetProcAddress('glXCreatePixmap');
-
-      glXDestroyPixmap := dglGetProcAddress('glXDestroyPixmap');
-      glXCreatePbuffer := dglGetProcAddress('glXCreatePbuffer');
-      glXDestroyPbuffer := dglGetProcAddress('glXDestroyPbuffer');
-      glXQueryDrawable := dglGetProcAddress('glXQueryDrawable');
-      glXCreateNewContext := dglGetProcAddress('glXCreateNewContext');
-      glXMakeContextCurrent := dglGetProcAddress('glXMakeContextCurrent');
-      glXGetCurrentReadDrawable := dglGetProcAddress('glXGetCurrentReadDrawable');
-      glXGetCurreentDisplay := dglGetProcAddress('glXGetCurreentDisplay');
-
-      glXQueryContext := dglGetProcAddress('glXQueryContext');
-      glXSelectEvent := dglGetProcAddress('glXSelectEvent');
-      glXGetSelectedEvent := dglGetProcAddress('glXGetSelectedEvent');
-
-      // GLX_VERSION_1_4
-      glXGetProcAddress := dglGetProcAddress('glXGetProcAddress');
-
-      // GLX_ARB_get_proc_address
-      glXGetProcAddressARB := dglGetProcAddress('glXGetProcAddressARB');
-
-      // GLX_ARB_create_context
-      glXCreateContextAttribsARB := dglGetProcAddress('glXCreateContextAttribsARB');
-
-      // GLX_EXT_import_context
-      glXGetCurrentDisplayEXT := dglGetProcAddress('glXGetCurrentDisplayEXT');
-      glXQueryContextInfoEXT := dglGetProcAddress('glXQueryContextInfoEXT');
-      glXGetContextIDEXT := dglGetProcAddress('glXGetContextIDEXT');
-      glXImportContextEXT := dglGetProcAddress('glXImportContextEXT');
-      glXFreeContextEXT := dglGetProcAddress('glXFreeContextEXT');
-      
-      // GLX_EXT_texture_from_pixmap
-      glXBindTexImageEXT := dglGetProcAddress('glXBindTexImageEXT');
-      glXReleaseTexImageEXT := dglGetProcAddress('glXReleaseTexImageEXT');
-    {$ENDIF}
-
-    Result := True;
-  end;
-
-  // load GLU functions
-  if GLU_LibHandle <> nil then begin
-    // GLU ========================================================================
-    gluBeginCurve := dglGetProcAddress('gluBeginCurve', GLU_LibHandle);
-    gluBeginPolygon := dglGetProcAddress('gluBeginPolygon', GLU_LibHandle);
-    gluBeginSurface := dglGetProcAddress('gluBeginSurface', GLU_LibHandle);
-    gluBeginTrim := dglGetProcAddress('gluBeginTrim', GLU_LibHandle);
-    gluBuild1DMipmaps := dglGetProcAddress('gluBuild1DMipmaps', GLU_LibHandle);
-    gluBuild2DMipmaps := dglGetProcAddress('gluBuild2DMipmaps', GLU_LibHandle);
-    gluCylinder := dglGetProcAddress('gluCylinder', GLU_LibHandle);
-    gluDeleteNurbsRenderer := dglGetProcAddress('gluDeleteNurbsRenderer', GLU_LibHandle);
-    gluDeleteQuadric := dglGetProcAddress('gluDeleteQuadric', GLU_LibHandle);
-    gluDeleteTess := dglGetProcAddress('gluDeleteTess', GLU_LibHandle);
-    gluDisk := dglGetProcAddress('gluDisk', GLU_LibHandle);
-    gluEndCurve := dglGetProcAddress('gluEndCurve', GLU_LibHandle);
-    gluEndPolygon := dglGetProcAddress('gluEndPolygon', GLU_LibHandle);
-    gluEndSurface := dglGetProcAddress('gluEndSurface', GLU_LibHandle);
-    gluEndTrim := dglGetProcAddress('gluEndTrim', GLU_LibHandle);
-    gluErrorString := dglGetProcAddress('gluErrorString', GLU_LibHandle);
-    gluGetNurbsProperty := dglGetProcAddress('gluGetNurbsProperty', GLU_LibHandle);
-    gluGetString := dglGetProcAddress('gluGetString', GLU_LibHandle);
-    gluGetTessProperty := dglGetProcAddress('gluGetTessProperty', GLU_LibHandle);
-    gluLoadSamplingMatrices := dglGetProcAddress('gluLoadSamplingMatrices', GLU_LibHandle);
-    gluLookAt := dglGetProcAddress('gluLookAt', GLU_LibHandle);
-    gluNewNurbsRenderer := dglGetProcAddress('gluNewNurbsRenderer', GLU_LibHandle);
-    gluNewQuadric := dglGetProcAddress('gluNewQuadric', GLU_LibHandle);
-    gluNewTess := dglGetProcAddress('gluNewTess', GLU_LibHandle);
-    gluNextContour := dglGetProcAddress('gluNextContour', GLU_LibHandle);
-    gluNurbsCallback := dglGetProcAddress('gluNurbsCallback', GLU_LibHandle);
-    gluNurbsCurve := dglGetProcAddress('gluNurbsCurve', GLU_LibHandle);
-    gluNurbsProperty := dglGetProcAddress('gluNurbsProperty', GLU_LibHandle);
-    gluNurbsSurface := dglGetProcAddress('gluNurbsSurface', GLU_LibHandle);
-    gluOrtho2D := dglGetProcAddress('gluOrtho2D', GLU_LibHandle);
-    gluPartialDisk := dglGetProcAddress('gluPartialDisk', GLU_LibHandle);
-    gluPerspective := dglGetProcAddress('gluPerspective', GLU_LibHandle);
-    gluPickMatrix := dglGetProcAddress('gluPickMatrix', GLU_LibHandle);
-    gluProject := dglGetProcAddress('gluProject', GLU_LibHandle);
-    gluPwlCurve := dglGetProcAddress('gluPwlCurve', GLU_LibHandle);
-    gluQuadricCallback := dglGetProcAddress('gluQuadricCallback', GLU_LibHandle);
-    gluQuadricDrawStyle := dglGetProcAddress('gluQuadricDrawStyle', GLU_LibHandle);
-    gluQuadricNormals := dglGetProcAddress('gluQuadricNormals', GLU_LibHandle);
-    gluQuadricOrientation := dglGetProcAddress('gluQuadricOrientation', GLU_LibHandle);
-    gluQuadricTexture := dglGetProcAddress('gluQuadricTexture', GLU_LibHandle);
-    gluScaleImage := dglGetProcAddress('gluScaleImage', GLU_LibHandle);
-    gluSphere := dglGetProcAddress('gluSphere', GLU_LibHandle);
-    gluTessBeginContour := dglGetProcAddress('gluTessBeginContour', GLU_LibHandle);
-    gluTessBeginPolygon := dglGetProcAddress('gluTessBeginPolygon', GLU_LibHandle);
-    gluTessCallback := dglGetProcAddress('gluTessCallback', GLU_LibHandle);
-    gluTessEndContour := dglGetProcAddress('gluTessEndContour', GLU_LibHandle);
-    gluTessEndPolygon := dglGetProcAddress('gluTessEndPolygon', GLU_LibHandle);
-    gluTessNormal := dglGetProcAddress('gluTessNormal', GLU_LibHandle);
-    gluTessProperty := dglGetProcAddress('gluTessProperty', GLU_LibHandle);
-    gluTessVertex := dglGetProcAddress('gluTessVertex', GLU_LibHandle);
-    gluUnProject := dglGetProcAddress('gluUnProject', GLU_LibHandle);
-  end;
-end;
-
-procedure ReadOpenGLCore;
-begin
-  // GL_VERSION_1_0
-  glCullFace := dglGetProcAddress('glCullFace');
-  glFrontFace := dglGetProcAddress('glFrontFace');
-  glHint := dglGetProcAddress('glHint');
-  glLineWidth := dglGetProcAddress('glLineWidth');
-  glPointSize := dglGetProcAddress('glPointSize');
-  glPolygonMode := dglGetProcAddress('glPolygonMode');
-  glScissor := dglGetProcAddress('glScissor');
-  glTexParameterf := dglGetProcAddress('glTexParameterf');
-  glTexParameterfv := dglGetProcAddress('glTexParameterfv');
-  glTexParameteri := dglGetProcAddress('glTexParameteri');
-  glTexParameteriv := dglGetProcAddress('glTexParameteriv');
-  glTexImage1D := dglGetProcAddress('glTexImage1D');
-  glTexImage2D := dglGetProcAddress('glTexImage2D');
-  glDrawBuffer := dglGetProcAddress('glDrawBuffer');
-  glClear := dglGetProcAddress('glClear');
-  glClearColor := dglGetProcAddress('glClearColor');
-  glClearStencil := dglGetProcAddress('glClearStencil');
-  glClearDepth := dglGetProcAddress('glClearDepth');
-  glStencilMask := dglGetProcAddress('glStencilMask');
-  glColorMask := dglGetProcAddress('glColorMask');
-  glDepthMask := dglGetProcAddress('glDepthMask');
-  glDisable := dglGetProcAddress('glDisable');
-  glEnable := dglGetProcAddress('glEnable');
-  glFinish := dglGetProcAddress('glFinish');
-  glFlush := dglGetProcAddress('glFlush');
-  glBlendFunc := dglGetProcAddress('glBlendFunc');
-  glLogicOp := dglGetProcAddress('glLogicOp');
-  glStencilFunc := dglGetProcAddress('glStencilFunc');
-  glStencilOp := dglGetProcAddress('glStencilOp');
-  glDepthFunc := dglGetProcAddress('glDepthFunc');
-  glPixelStoref := dglGetProcAddress('glPixelStoref');
-  glPixelStorei := dglGetProcAddress('glPixelStorei');
-  glReadBuffer := dglGetProcAddress('glReadBuffer');
-  glReadPixels := dglGetProcAddress('glReadPixels');
-  glGetBooleanv := dglGetProcAddress('glGetBooleanv');
-  glGetDoublev := dglGetProcAddress('glGetDoublev');
-  glGetError := dglGetProcAddress('glGetError');
-  glGetFloatv := dglGetProcAddress('glGetFloatv');
-  glGetIntegerv := dglGetProcAddress('glGetIntegerv');
-  glGetString := dglGetProcAddress('glGetString');
-  glGetTexImage := dglGetProcAddress('glGetTexImage');
-  glGetTexParameteriv := dglGetProcAddress('glGetTexParameteriv');
-  glGetTexParameterfv := dglGetProcAddress('glGetTexParameterfv');
-  glGetTexLevelParameterfv := dglGetProcAddress('glGetTexLevelParameterfv');
-  glGetTexLevelParameteriv := dglGetProcAddress('glGetTexLevelParameteriv');
-  glIsEnabled := dglGetProcAddress('glIsEnabled');
-  glDepthRange := dglGetProcAddress('glDepthRange');
-  glViewport := dglGetProcAddress('glViewport');
-
-  // GL_VERSION_1_1
-  glDrawArrays := dglGetProcAddress('glDrawArrays');
-  glDrawElements := dglGetProcAddress('glDrawElements');
-  glGetPointerv := dglGetProcAddress('glGetPointerv');
-  glPolygonOffset := dglGetProcAddress('glPolygonOffset');
-  glCopyTexImage1D := dglGetProcAddress('glCopyTexImage1D');
-  glCopyTexImage2D := dglGetProcAddress('glCopyTexImage2D');
-  glCopyTexSubImage1D := dglGetProcAddress('glCopyTexSubImage1D');
-  glCopyTexSubImage2D := dglGetProcAddress('glCopyTexSubImage2D');
-  glTexSubImage1D := dglGetProcAddress('glTexSubImage1D');
-  glTexSubImage2D := dglGetProcAddress('glTexSubImage2D');
-  glBindTexture := dglGetProcAddress('glBindTexture');
-  glDeleteTextures := dglGetProcAddress('glDeleteTextures');
-  glGenTextures := dglGetProcAddress('glGenTextures');
-
-{$ifdef DGL_DEPRECATED}
-  glAccum := dglGetProcAddress('glAccum');
-  glAlphaFunc := dglGetProcAddress('glAlphaFunc');
-  glAreTexturesResident := dglGetProcAddress('glAreTexturesResident');
-  glArrayElement := dglGetProcAddress('glArrayElement');
-  glBegin := dglGetProcAddress('glBegin');
-  glBitmap := dglGetProcAddress('glBitmap');
-  glCallList := dglGetProcAddress('glCallList');
-  glCallLists := dglGetProcAddress('glCallLists');
-  glClearAccum := dglGetProcAddress('glClearAccum');
-  glClearIndex := dglGetProcAddress('glClearIndex');
-  glClipPlane := dglGetProcAddress('glClipPlane');
-  glColor3b := dglGetProcAddress('glColor3b');
-  glColor3bv := dglGetProcAddress('glColor3bv');
-  glColor3d := dglGetProcAddress('glColor3d');
-  glColor3dv := dglGetProcAddress('glColor3dv');
-  glColor3f := dglGetProcAddress('glColor3f');
-  glColor3fv := dglGetProcAddress('glColor3fv');
-  glColor3i := dglGetProcAddress('glColor3i');
-  glColor3iv := dglGetProcAddress('glColor3iv');
-  glColor3s := dglGetProcAddress('glColor3s');
-  glColor3sv := dglGetProcAddress('glColor3sv');
-  glColor3ub := dglGetProcAddress('glColor3ub');
-  glColor3ubv := dglGetProcAddress('glColor3ubv');
-  glColor3ui := dglGetProcAddress('glColor3ui');
-  glColor3uiv := dglGetProcAddress('glColor3uiv');
-  glColor3us := dglGetProcAddress('glColor3us');
-  glColor3usv := dglGetProcAddress('glColor3usv');
-  glColor4b := dglGetProcAddress('glColor4b');
-  glColor4bv := dglGetProcAddress('glColor4bv');
-  glColor4d := dglGetProcAddress('glColor4d');
-  glColor4dv := dglGetProcAddress('glColor4dv');
-  glColor4f := dglGetProcAddress('glColor4f');
-  glColor4fv := dglGetProcAddress('glColor4fv');
-  glColor4i := dglGetProcAddress('glColor4i');
-  glColor4iv := dglGetProcAddress('glColor4iv');
-  glColor4s := dglGetProcAddress('glColor4s');
-  glColor4sv := dglGetProcAddress('glColor4sv');
-  glColor4ub := dglGetProcAddress('glColor4ub');
-  glColor4ubv := dglGetProcAddress('glColor4ubv');
-  glColor4ui := dglGetProcAddress('glColor4ui');
-  glColor4uiv := dglGetProcAddress('glColor4uiv');
-  glColor4us := dglGetProcAddress('glColor4us');
-  glColor4usv := dglGetProcAddress('glColor4usv');
-  glColorMaterial := dglGetProcAddress('glColorMaterial');
-  glColorPointer := dglGetProcAddress('glColorPointer');
-  glCopyPixels := dglGetProcAddress('glCopyPixels');
-  glDeleteLists := dglGetProcAddress('glDeleteLists');
-  glDisableClientState := dglGetProcAddress('glDisableClientState');
-  glDrawPixels := dglGetProcAddress('glDrawPixels');
-  glEdgeFlag := dglGetProcAddress('glEdgeFlag');
-  glEdgeFlagPointer := dglGetProcAddress('glEdgeFlagPointer');
-  glEdgeFlagv := dglGetProcAddress('glEdgeFlagv');
-  glEnableClientState := dglGetProcAddress('glEnableClientState');
-  glEnd := dglGetProcAddress('glEnd');
-  glEndList := dglGetProcAddress('glEndList');
-  glEvalCoord1d := dglGetProcAddress('glEvalCoord1d');
-  glEvalCoord1dv := dglGetProcAddress('glEvalCoord1dv');
-  glEvalCoord1f := dglGetProcAddress('glEvalCoord1f');
-  glEvalCoord1fv := dglGetProcAddress('glEvalCoord1fv');
-  glEvalCoord2d := dglGetProcAddress('glEvalCoord2d');
-  glEvalCoord2dv := dglGetProcAddress('glEvalCoord2dv');
-  glEvalCoord2f := dglGetProcAddress('glEvalCoord2f');
-  glEvalCoord2fv := dglGetProcAddress('glEvalCoord2fv');
-  glEvalMesh1 := dglGetProcAddress('glEvalMesh1');
-  glEvalMesh2 := dglGetProcAddress('glEvalMesh2');
-  glEvalPoint1 := dglGetProcAddress('glEvalPoint1');
-  glEvalPoint2 := dglGetProcAddress('glEvalPoint2');
-  glFeedbackBuffer := dglGetProcAddress('glFeedbackBuffer');
-  glFogf := dglGetProcAddress('glFogf');
-  glFogfv := dglGetProcAddress('glFogfv');
-  glFogi := dglGetProcAddress('glFogi');
-  glFogiv := dglGetProcAddress('glFogiv');
-  glFrustum := dglGetProcAddress('glFrustum');
-  glGenLists := dglGetProcAddress('glGenLists');
-  glGetClipPlane := dglGetProcAddress('glGetClipPlane');
-  glGetLightfv := dglGetProcAddress('glGetLightfv');
-  glGetLightiv := dglGetProcAddress('glGetLightiv');
-  glGetMapdv := dglGetProcAddress('glGetMapdv');
-  glGetMapfv := dglGetProcAddress('glGetMapfv');
-  glGetMapiv := dglGetProcAddress('glGetMapiv');
-  glGetMaterialfv := dglGetProcAddress('glGetMaterialfv');
-  glGetMaterialiv := dglGetProcAddress('glGetMaterialiv');
-  glGetPixelMapfv := dglGetProcAddress('glGetPixelMapfv');
-  glGetPixelMapuiv := dglGetProcAddress('glGetPixelMapuiv');
-  glGetPixelMapusv := dglGetProcAddress('glGetPixelMapusv');
-  glGetPolygonStipple := dglGetProcAddress('glGetPolygonStipple');
-  glGetTexEnvfv := dglGetProcAddress('glGetTexEnvfv');
-  glGetTexEnviv := dglGetProcAddress('glGetTexEnviv');
-  glGetTexGendv := dglGetProcAddress('glGetTexGendv');
-  glGetTexGenfv := dglGetProcAddress('glGetTexGenfv');
-  glGetTexGeniv := dglGetProcAddress('glGetTexGeniv');
-  glIndexMask := dglGetProcAddress('glIndexMask');
-  glIndexPointer := dglGetProcAddress('glIndexPointer');
-  glIndexd := dglGetProcAddress('glIndexd');
-  glIndexdv := dglGetProcAddress('glIndexdv');
-  glIndexf := dglGetProcAddress('glIndexf');
-  glIndexfv := dglGetProcAddress('glIndexfv');
-  glIndexi := dglGetProcAddress('glIndexi');
-  glIndexiv := dglGetProcAddress('glIndexiv');
-  glIndexs := dglGetProcAddress('glIndexs');
-  glIndexsv := dglGetProcAddress('glIndexsv');
-  glIndexub := dglGetProcAddress('glIndexub');
-  glIndexubv := dglGetProcAddress('glIndexubv');
-  glInitNames := dglGetProcAddress('glInitNames');
-  glInterleavedArrays := dglGetProcAddress('glInterleavedArrays');
-  glIsList := dglGetProcAddress('glIsList');
-  glIsTexture := dglGetProcAddress('glIsTexture');
-  glLightModelf := dglGetProcAddress('glLightModelf');
-  glLightModelfv := dglGetProcAddress('glLightModelfv');
-  glLightModeli := dglGetProcAddress('glLightModeli');
-  glLightModeliv := dglGetProcAddress('glLightModeliv');
-  glLightf := dglGetProcAddress('glLightf');
-  glLightfv := dglGetProcAddress('glLightfv');
-  glLighti := dglGetProcAddress('glLighti');
-  glLightiv := dglGetProcAddress('glLightiv');
-  glLineStipple := dglGetProcAddress('glLineStipple');
-  glListBase := dglGetProcAddress('glListBase');
-  glLoadIdentity := dglGetProcAddress('glLoadIdentity');
-  glLoadMatrixd := dglGetProcAddress('glLoadMatrixd');
-  glLoadMatrixf := dglGetProcAddress('glLoadMatrixf');
-  glLoadName := dglGetProcAddress('glLoadName');
-  glMap1d := dglGetProcAddress('glMap1d');
-  glMap1f := dglGetProcAddress('glMap1f');
-  glMap2d := dglGetProcAddress('glMap2d');
-  glMap2f := dglGetProcAddress('glMap2f');
-  glMapGrid1d := dglGetProcAddress('glMapGrid1d');
-  glMapGrid1f := dglGetProcAddress('glMapGrid1f');
-  glMapGrid2d := dglGetProcAddress('glMapGrid2d');
-  glMapGrid2f := dglGetProcAddress('glMapGrid2f');
-  glMaterialf := dglGetProcAddress('glMaterialf');
-  glMaterialfv := dglGetProcAddress('glMaterialfv');
-  glMateriali := dglGetProcAddress('glMateriali');
-  glMaterialiv := dglGetProcAddress('glMaterialiv');
-  glMatrixMode := dglGetProcAddress('glMatrixMode');
-  glMultMatrixd := dglGetProcAddress('glMultMatrixd');
-  glMultMatrixf := dglGetProcAddress('glMultMatrixf');
-  glNewList := dglGetProcAddress('glNewList');
-  glNormal3b := dglGetProcAddress('glNormal3b');
-  glNormal3bv := dglGetProcAddress('glNormal3bv');
-  glNormal3d := dglGetProcAddress('glNormal3d');
-  glNormal3dv := dglGetProcAddress('glNormal3dv');
-  glNormal3f := dglGetProcAddress('glNormal3f');
-  glNormal3fv := dglGetProcAddress('glNormal3fv');
-  glNormal3i := dglGetProcAddress('glNormal3i');
-  glNormal3iv := dglGetProcAddress('glNormal3iv');
-  glNormal3s := dglGetProcAddress('glNormal3s');
-  glNormal3sv := dglGetProcAddress('glNormal3sv');
-  glNormalPointer := dglGetProcAddress('glNormalPointer');
-  glOrtho := dglGetProcAddress('glOrtho');
-  glPassThrough := dglGetProcAddress('glPassThrough');
-  glPixelMapfv := dglGetProcAddress('glPixelMapfv');
-  glPixelMapuiv := dglGetProcAddress('glPixelMapuiv');
-  glPixelMapusv := dglGetProcAddress('glPixelMapusv');
-  glPixelTransferf := dglGetProcAddress('glPixelTransferf');
-  glPixelTransferi := dglGetProcAddress('glPixelTransferi');
-  glPixelZoom := dglGetProcAddress('glPixelZoom');
-  glPolygonStipple := dglGetProcAddress('glPolygonStipple');
-  glPopAttrib := dglGetProcAddress('glPopAttrib');
-  glPopClientAttrib := dglGetProcAddress('glPopClientAttrib');
-  glPopMatrix := dglGetProcAddress('glPopMatrix');
-  glPopName := dglGetProcAddress('glPopName');
-  glPrioritizeTextures := dglGetProcAddress('glPrioritizeTextures');
-  glPushAttrib := dglGetProcAddress('glPushAttrib');
-  glPushClientAttrib := dglGetProcAddress('glPushClientAttrib');
-  glPushMatrix := dglGetProcAddress('glPushMatrix');
-  glPushName := dglGetProcAddress('glPushName');
-  glRasterPos2d := dglGetProcAddress('glRasterPos2d');
-  glRasterPos2dv := dglGetProcAddress('glRasterPos2dv');
-  glRasterPos2f := dglGetProcAddress('glRasterPos2f');
-  glRasterPos2fv := dglGetProcAddress('glRasterPos2fv');
-  glRasterPos2i := dglGetProcAddress('glRasterPos2i');
-  glRasterPos2iv := dglGetProcAddress('glRasterPos2iv');
-  glRasterPos2s := dglGetProcAddress('glRasterPos2s');
-  glRasterPos2sv := dglGetProcAddress('glRasterPos2sv');
-  glRasterPos3d := dglGetProcAddress('glRasterPos3d');
-  glRasterPos3dv := dglGetProcAddress('glRasterPos3dv');
-  glRasterPos3f := dglGetProcAddress('glRasterPos3f');
-  glRasterPos3fv := dglGetProcAddress('glRasterPos3fv');
-  glRasterPos3i := dglGetProcAddress('glRasterPos3i');
-  glRasterPos3iv := dglGetProcAddress('glRasterPos3iv');
-  glRasterPos3s := dglGetProcAddress('glRasterPos3s');
-  glRasterPos3sv := dglGetProcAddress('glRasterPos3sv');
-  glRasterPos4d := dglGetProcAddress('glRasterPos4d');
-  glRasterPos4dv := dglGetProcAddress('glRasterPos4dv');
-  glRasterPos4f := dglGetProcAddress('glRasterPos4f');
-  glRasterPos4fv := dglGetProcAddress('glRasterPos4fv');
-  glRasterPos4i := dglGetProcAddress('glRasterPos4i');
-  glRasterPos4iv := dglGetProcAddress('glRasterPos4iv');
-  glRasterPos4s := dglGetProcAddress('glRasterPos4s');
-  glRasterPos4sv := dglGetProcAddress('glRasterPos4sv');
-  glRectd := dglGetProcAddress('glRectd');
-  glRectdv := dglGetProcAddress('glRectdv');
-  glRectf := dglGetProcAddress('glRectf');
-  glRectfv := dglGetProcAddress('glRectfv');
-  glRecti := dglGetProcAddress('glRecti');
-  glRectiv := dglGetProcAddress('glRectiv');
-  glRects := dglGetProcAddress('glRects');
-  glRectsv := dglGetProcAddress('glRectsv');
-  glRenderMode := dglGetProcAddress('glRenderMode');
-  glRotated := dglGetProcAddress('glRotated');
-  glRotatef := dglGetProcAddress('glRotatef');
-  glScaled := dglGetProcAddress('glScaled');
-  glScalef := dglGetProcAddress('glScalef');
-  glSelectBuffer := dglGetProcAddress('glSelectBuffer');
-  glShadeModel := dglGetProcAddress('glShadeModel');
-  glTexCoord1d := dglGetProcAddress('glTexCoord1d');
-  glTexCoord1dv := dglGetProcAddress('glTexCoord1dv');
-  glTexCoord1f := dglGetProcAddress('glTexCoord1f');
-  glTexCoord1fv := dglGetProcAddress('glTexCoord1fv');
-  glTexCoord1i := dglGetProcAddress('glTexCoord1i');
-  glTexCoord1iv := dglGetProcAddress('glTexCoord1iv');
-  glTexCoord1s := dglGetProcAddress('glTexCoord1s');
-  glTexCoord1sv := dglGetProcAddress('glTexCoord1sv');
-  glTexCoord2d := dglGetProcAddress('glTexCoord2d');
-  glTexCoord2dv := dglGetProcAddress('glTexCoord2dv');
-  glTexCoord2f := dglGetProcAddress('glTexCoord2f');
-  glTexCoord2fv := dglGetProcAddress('glTexCoord2fv');
-  glTexCoord2i := dglGetProcAddress('glTexCoord2i');
-  glTexCoord2iv := dglGetProcAddress('glTexCoord2iv');
-  glTexCoord2s := dglGetProcAddress('glTexCoord2s');
-  glTexCoord2sv := dglGetProcAddress('glTexCoord2sv');
-  glTexCoord3d := dglGetProcAddress('glTexCoord3d');
-  glTexCoord3dv := dglGetProcAddress('glTexCoord3dv');
-  glTexCoord3f := dglGetProcAddress('glTexCoord3f');
-  glTexCoord3fv := dglGetProcAddress('glTexCoord3fv');
-  glTexCoord3i := dglGetProcAddress('glTexCoord3i');
-  glTexCoord3iv := dglGetProcAddress('glTexCoord3iv');
-  glTexCoord3s := dglGetProcAddress('glTexCoord3s');
-  glTexCoord3sv := dglGetProcAddress('glTexCoord3sv');
-  glTexCoord4d := dglGetProcAddress('glTexCoord4d');
-  glTexCoord4dv := dglGetProcAddress('glTexCoord4dv');
-  glTexCoord4f := dglGetProcAddress('glTexCoord4f');
-  glTexCoord4fv := dglGetProcAddress('glTexCoord4fv');
-  glTexCoord4i := dglGetProcAddress('glTexCoord4i');
-  glTexCoord4iv := dglGetProcAddress('glTexCoord4iv');
-  glTexCoord4s := dglGetProcAddress('glTexCoord4s');
-  glTexCoord4sv := dglGetProcAddress('glTexCoord4sv');
-  glTexCoordPointer := dglGetProcAddress('glTexCoordPointer');
-  glTexEnvf := dglGetProcAddress('glTexEnvf');
-  glTexEnvfv := dglGetProcAddress('glTexEnvfv');
-  glTexEnvi := dglGetProcAddress('glTexEnvi');
-  glTexEnviv := dglGetProcAddress('glTexEnviv');
-  glTexGend := dglGetProcAddress('glTexGend');
-  glTexGendv := dglGetProcAddress('glTexGendv');
-  glTexGenf := dglGetProcAddress('glTexGenf');
-  glTexGenfv := dglGetProcAddress('glTexGenfv');
-  glTexGeni := dglGetProcAddress('glTexGeni');
-  glTexGeniv := dglGetProcAddress('glTexGeniv');
-  glTranslated := dglGetProcAddress('glTranslated');
-  glTranslatef := dglGetProcAddress('glTranslatef');
-  glVertex2d := dglGetProcAddress('glVertex2d');
-  glVertex2dv := dglGetProcAddress('glVertex2dv');
-  glVertex2f := dglGetProcAddress('glVertex2f');
-  glVertex2fv := dglGetProcAddress('glVertex2fv');
-  glVertex2i := dglGetProcAddress('glVertex2i');
-  glVertex2iv := dglGetProcAddress('glVertex2iv');
-  glVertex2s := dglGetProcAddress('glVertex2s');
-  glVertex2sv := dglGetProcAddress('glVertex2sv');
-  glVertex3d := dglGetProcAddress('glVertex3d');
-  glVertex3dv := dglGetProcAddress('glVertex3dv');
-  glVertex3f := dglGetProcAddress('glVertex3f');
-  glVertex3fv := dglGetProcAddress('glVertex3fv');
-  glVertex3i := dglGetProcAddress('glVertex3i');
-  glVertex3iv := dglGetProcAddress('glVertex3iv');
-  glVertex3s := dglGetProcAddress('glVertex3s');
-  glVertex3sv := dglGetProcAddress('glVertex3sv');
-  glVertex4d := dglGetProcAddress('glVertex4d');
-  glVertex4dv := dglGetProcAddress('glVertex4dv');
-  glVertex4f := dglGetProcAddress('glVertex4f');
-  glVertex4fv := dglGetProcAddress('glVertex4fv');
-  glVertex4i := dglGetProcAddress('glVertex4i');
-  glVertex4iv := dglGetProcAddress('glVertex4iv');
-  glVertex4s := dglGetProcAddress('glVertex4s');
-  glVertex4sv := dglGetProcAddress('glVertex4sv');
-  glVertexPointer := dglGetProcAddress('glVertexPointer');
-{$endif}
-
-  // GL_VERSION_1_2
-  glBlendColor := dglGetProcAddress('glBlendColor');
-  glBlendEquation := dglGetProcAddress('glBlendEquation');
-  glDrawRangeElements := dglGetProcAddress('glDrawRangeElements');
-  glTexImage3D := dglGetProcAddress('glTexImage3D');
-  glTexSubImage3D := dglGetProcAddress('glTexSubImage3D');
-  glCopyTexSubImage3D := dglGetProcAddress('glCopyTexSubImage3D');
-{$ifdef DGL_DEPRECATED}
-  glColorTable := dglGetProcAddress('glColorTable');
-  glColorTableParameterfv := dglGetProcAddress('glColorTableParameterfv');
-  glColorTableParameteriv := dglGetProcAddress('glColorTableParameteriv');
-  glCopyColorTable := dglGetProcAddress('glCopyColorTable');
-  glGetColorTable := dglGetProcAddress('glGetColorTable');
-  glGetColorTableParameterfv := dglGetProcAddress('glGetColorTableParameterfv');
-  glGetColorTableParameteriv := dglGetProcAddress('glGetColorTableParameteriv');
-  glColorSubTable := dglGetProcAddress('glColorSubTable');
-  glCopyColorSubTable := dglGetProcAddress('glCopyColorSubTable');
-  glConvolutionFilter1D := dglGetProcAddress('glConvolutionFilter1D');
-  glConvolutionFilter2D := dglGetProcAddress('glConvolutionFilter2D');
-  glConvolutionParameterf := dglGetProcAddress('glConvolutionParameterf');
-  glConvolutionParameterfv := dglGetProcAddress('glConvolutionParameterfv');
-  glConvolutionParameteri := dglGetProcAddress('glConvolutionParameteri');
-  glConvolutionParameteriv := dglGetProcAddress('glConvolutionParameteriv');
-  glCopyConvolutionFilter1D := dglGetProcAddress('glCopyConvolutionFilter1D');
-  glCopyConvolutionFilter2D := dglGetProcAddress('glCopyConvolutionFilter2D');
-  glGetConvolutionFilter := dglGetProcAddress('glGetConvolutionFilter');
-  glGetConvolutionParameterfv := dglGetProcAddress('glGetConvolutionParameterfv');
-  glGetConvolutionParameteriv := dglGetProcAddress('glGetConvolutionParameteriv');
-  glGetSeparableFilter := dglGetProcAddress('glGetSeparableFilter');
-  glSeparableFilter2D := dglGetProcAddress('glSeparableFilter2D');
-  glGetHistogram := dglGetProcAddress('glGetHistogram');
-  glGetHistogramParameterfv := dglGetProcAddress('glGetHistogramParameterfv');
-  glGetHistogramParameteriv := dglGetProcAddress('glGetHistogramParameteriv');
-  glGetMinmax := dglGetProcAddress('glGetMinmax');
-  glGetMinmaxParameterfv := dglGetProcAddress('glGetMinmaxParameterfv');
-  glGetMinmaxParameteriv := dglGetProcAddress('glGetMinmaxParameteriv');
-  glHistogram := dglGetProcAddress('glHistogram');
-  glMinmax := dglGetProcAddress('glMinmax');
-  glResetHistogram := dglGetProcAddress('glResetHistogram');
-  glResetMinmax := dglGetProcAddress('glResetMinmax');
-{$endif}
-
-  // GL_VERSION_1_3
-  glActiveTexture := dglGetProcAddress('glActiveTexture');
-  glSampleCoverage := dglGetProcAddress('glSampleCoverage');
-  glCompressedTexImage3D := dglGetProcAddress('glCompressedTexImage3D');
-  glCompressedTexImage2D := dglGetProcAddress('glCompressedTexImage2D');
-  glCompressedTexImage1D := dglGetProcAddress('glCompressedTexImage1D');
-  glCompressedTexSubImage3D := dglGetProcAddress('glCompressedTexSubImage3D');
-  glCompressedTexSubImage2D := dglGetProcAddress('glCompressedTexSubImage2D');
-  glCompressedTexSubImage1D := dglGetProcAddress('glCompressedTexSubImage1D');
-  glGetCompressedTexImage := dglGetProcAddress('glGetCompressedTexImage');
-{$ifdef DGL_DEPRECATED}
-  glClientActiveTexture := dglGetProcAddress('glClientActiveTexture');
-  glMultiTexCoord1d := dglGetProcAddress('glMultiTexCoord1d');
-  glMultiTexCoord1dv := dglGetProcAddress('glMultiTexCoord1dv');
-  glMultiTexCoord1f := dglGetProcAddress('glMultiTexCoord1f');
-  glMultiTexCoord1fv := dglGetProcAddress('glMultiTexCoord1fv');
-  glMultiTexCoord1i := dglGetProcAddress('glMultiTexCoord1i');
-  glMultiTexCoord1iv := dglGetProcAddress('glMultiTexCoord1iv');
-  glMultiTexCoord1s := dglGetProcAddress('glMultiTexCoord1s');
-  glMultiTexCoord1sv := dglGetProcAddress('glMultiTexCoord1sv');
-  glMultiTexCoord2d := dglGetProcAddress('glMultiTexCoord2d');
-  glMultiTexCoord2dv := dglGetProcAddress('glMultiTexCoord2dv');
-  glMultiTexCoord2f := dglGetProcAddress('glMultiTexCoord2f');
-  glMultiTexCoord2fv := dglGetProcAddress('glMultiTexCoord2fv');
-  glMultiTexCoord2i := dglGetProcAddress('glMultiTexCoord2i');
-  glMultiTexCoord2iv := dglGetProcAddress('glMultiTexCoord2iv');
-  glMultiTexCoord2s := dglGetProcAddress('glMultiTexCoord2s');
-  glMultiTexCoord2sv := dglGetProcAddress('glMultiTexCoord2sv');
-  glMultiTexCoord3d := dglGetProcAddress('glMultiTexCoord3d');
-  glMultiTexCoord3dv := dglGetProcAddress('glMultiTexCoord3dv');
-  glMultiTexCoord3f := dglGetProcAddress('glMultiTexCoord3f');
-  glMultiTexCoord3fv := dglGetProcAddress('glMultiTexCoord3fv');
-  glMultiTexCoord3i := dglGetProcAddress('glMultiTexCoord3i');
-  glMultiTexCoord3iv := dglGetProcAddress('glMultiTexCoord3iv');
-  glMultiTexCoord3s := dglGetProcAddress('glMultiTexCoord3s');
-  glMultiTexCoord3sv := dglGetProcAddress('glMultiTexCoord3sv');
-  glMultiTexCoord4d := dglGetProcAddress('glMultiTexCoord4d');
-  glMultiTexCoord4dv := dglGetProcAddress('glMultiTexCoord4dv');
-  glMultiTexCoord4f := dglGetProcAddress('glMultiTexCoord4f');
-  glMultiTexCoord4fv := dglGetProcAddress('glMultiTexCoord4fv');
-  glMultiTexCoord4i := dglGetProcAddress('glMultiTexCoord4i');
-  glMultiTexCoord4iv := dglGetProcAddress('glMultiTexCoord4iv');
-  glMultiTexCoord4s := dglGetProcAddress('glMultiTexCoord4s');
-  glMultiTexCoord4sv := dglGetProcAddress('glMultiTexCoord4sv');
-  glLoadTransposeMatrixf := dglGetProcAddress('glLoadTransposeMatrixf');
-  glLoadTransposeMatrixd := dglGetProcAddress('glLoadTransposeMatrixd');
-  glMultTransposeMatrixf := dglGetProcAddress('glMultTransposeMatrixf');
-  glMultTransposeMatrixd := dglGetProcAddress('glMultTransposeMatrixd');
-{$endif}
-
-  // GL_VERSION_1_4
-  glBlendFuncSeparate := dglGetProcAddress('glBlendFuncSeparate');
-  glMultiDrawArrays := dglGetProcAddress('glMultiDrawArrays');
-  glMultiDrawElements := dglGetProcAddress('glMultiDrawElements');
-  glPointParameterf := dglGetProcAddress('glPointParameterf');
-  glPointParameterfv := dglGetProcAddress('glPointParameterfv');
-  glPointParameteri := dglGetProcAddress('glPointParameteri');
-  glPointParameteriv := dglGetProcAddress('glPointParameteriv');
-{$ifdef DGL_DEPRECATED}
-  glFogCoordf := dglGetProcAddress('glFogCoordf');
-  glFogCoordfv := dglGetProcAddress('glFogCoordfv');
-  glFogCoordd := dglGetProcAddress('glFogCoordd');
-  glFogCoorddv := dglGetProcAddress('glFogCoorddv');
-  glFogCoordPointer := dglGetProcAddress('glFogCoordPointer');
-  glSecondaryColor3b := dglGetProcAddress('glSecondaryColor3b');
-  glSecondaryColor3bv := dglGetProcAddress('glSecondaryColor3bv');
-  glSecondaryColor3d := dglGetProcAddress('glSecondaryColor3d');
-  glSecondaryColor3dv := dglGetProcAddress('glSecondaryColor3dv');
-  glSecondaryColor3f := dglGetProcAddress('glSecondaryColor3f');
-  glSecondaryColor3fv := dglGetProcAddress('glSecondaryColor3fv');
-  glSecondaryColor3i := dglGetProcAddress('glSecondaryColor3i');
-  glSecondaryColor3iv := dglGetProcAddress('glSecondaryColor3iv');
-  glSecondaryColor3s := dglGetProcAddress('glSecondaryColor3s');
-  glSecondaryColor3sv := dglGetProcAddress('glSecondaryColor3sv');
-  glSecondaryColor3ub := dglGetProcAddress('glSecondaryColor3ub');
-  glSecondaryColor3ubv := dglGetProcAddress('glSecondaryColor3ubv');
-  glSecondaryColor3ui := dglGetProcAddress('glSecondaryColor3ui');
-  glSecondaryColor3uiv := dglGetProcAddress('glSecondaryColor3uiv');
-  glSecondaryColor3us := dglGetProcAddress('glSecondaryColor3us');
-  glSecondaryColor3usv := dglGetProcAddress('glSecondaryColor3usv');
-  glSecondaryColorPointer := dglGetProcAddress('glSecondaryColorPointer');
-  glWindowPos2d := dglGetProcAddress('glWindowPos2d');
-  glWindowPos2dv := dglGetProcAddress('glWindowPos2dv');
-  glWindowPos2f := dglGetProcAddress('glWindowPos2f');
-  glWindowPos2fv := dglGetProcAddress('glWindowPos2fv');
-  glWindowPos2i := dglGetProcAddress('glWindowPos2i');
-  glWindowPos2iv := dglGetProcAddress('glWindowPos2iv');
-  glWindowPos2s := dglGetProcAddress('glWindowPos2s');
-  glWindowPos2sv := dglGetProcAddress('glWindowPos2sv');
-  glWindowPos3d := dglGetProcAddress('glWindowPos3d');
-  glWindowPos3dv := dglGetProcAddress('glWindowPos3dv');
-  glWindowPos3f := dglGetProcAddress('glWindowPos3f');
-  glWindowPos3fv := dglGetProcAddress('glWindowPos3fv');
-  glWindowPos3i := dglGetProcAddress('glWindowPos3i');
-  glWindowPos3iv := dglGetProcAddress('glWindowPos3iv');
-  glWindowPos3s := dglGetProcAddress('glWindowPos3s');
-  glWindowPos3sv := dglGetProcAddress('glWindowPos3sv');
-{$endif}
-
-  // GL_VERSION_1_5
-  glGenQueries := dglGetProcAddress('glGenQueries');
-  glDeleteQueries := dglGetProcAddress('glDeleteQueries');
-  glIsQuery := dglGetProcAddress('glIsQuery');
-  glBeginQuery := dglGetProcAddress('glBeginQuery');
-  glEndQuery := dglGetProcAddress('glEndQuery');
-  glGetQueryiv := dglGetProcAddress('glGetQueryiv');
-  glGetQueryObjectiv := dglGetProcAddress('glGetQueryObjectiv');
-  glGetQueryObjectuiv := dglGetProcAddress('glGetQueryObjectuiv');
-  glBindBuffer := dglGetProcAddress('glBindBuffer');
-  glDeleteBuffers := dglGetProcAddress('glDeleteBuffers');
-  glGenBuffers := dglGetProcAddress('glGenBuffers');
-  glIsBuffer := dglGetProcAddress('glIsBuffer');
-  glBufferData := dglGetProcAddress('glBufferData');
-  glBufferSubData := dglGetProcAddress('glBufferSubData');
-  glGetBufferSubData := dglGetProcAddress('glGetBufferSubData');
-  glMapBuffer := dglGetProcAddress('glMapBuffer');
-  glUnmapBuffer := dglGetProcAddress('glUnmapBuffer');
-  glGetBufferParameteriv := dglGetProcAddress('glGetBufferParameteriv');
-  glGetBufferPointerv := dglGetProcAddress('glGetBufferPointerv');
-
-  // GL_VERSION_2_0
-  glBlendEquationSeparate := dglGetProcAddress('glBlendEquationSeparate');
-  glDrawBuffers := dglGetProcAddress('glDrawBuffers');
-  glStencilOpSeparate := dglGetProcAddress('glStencilOpSeparate');
-  glStencilFuncSeparate := dglGetProcAddress('glStencilFuncSeparate');
-  glStencilMaskSeparate := dglGetProcAddress('glStencilMaskSeparate');
-  glAttachShader := dglGetProcAddress('glAttachShader');
-  glBindAttribLocation := dglGetProcAddress('glBindAttribLocation');
-  glCompileShader := dglGetProcAddress('glCompileShader');
-  glCreateProgram := dglGetProcAddress('glCreateProgram');
-  glCreateShader := dglGetProcAddress('glCreateShader');
-  glDeleteProgram := dglGetProcAddress('glDeleteProgram');
-  glDeleteShader := dglGetProcAddress('glDeleteShader');
-  glDetachShader := dglGetProcAddress('glDetachShader');
-  glDisableVertexAttribArray := dglGetProcAddress('glDisableVertexAttribArray');
-  glEnableVertexAttribArray := dglGetProcAddress('glEnableVertexAttribArray');
-  glGetActiveAttrib := dglGetProcAddress('glGetActiveAttrib');
-  glGetActiveUniform := dglGetProcAddress('glGetActiveUniform');
-  glGetAttachedShaders := dglGetProcAddress('glGetAttachedShaders');
-  glGetAttribLocation := dglGetProcAddress('glGetAttribLocation');
-  glGetProgramiv := dglGetProcAddress('glGetProgramiv');
-  glGetProgramInfoLog := dglGetProcAddress('glGetProgramInfoLog');
-  glGetShaderiv := dglGetProcAddress('glGetShaderiv');
-  glGetShaderInfoLog := dglGetProcAddress('glGetShaderInfoLog');
-  glGetShaderSource := dglGetProcAddress('glGetShaderSource');
-  glGetUniformLocation := dglGetProcAddress('glGetUniformLocation');
-  glGetUniformfv := dglGetProcAddress('glGetUniformfv');
-  glGetUniformiv := dglGetProcAddress('glGetUniformiv');
-  glGetVertexAttribfv := dglGetProcAddress('glGetVertexAttribfv');
-  glGetVertexAttribiv := dglGetProcAddress('glGetVertexAttribiv');
-  glGetVertexAttribPointerv := dglGetProcAddress('glGetVertexAttribPointerv');
-  glIsProgram := dglGetProcAddress('glIsProgram');
-  glIsShader := dglGetProcAddress('glIsShader');
-  glLinkProgram := dglGetProcAddress('glLinkProgram');
-  glShaderSource := dglGetProcAddress('glShaderSource');
-  glUseProgram := dglGetProcAddress('glUseProgram');
-  glUniform1f := dglGetProcAddress('glUniform1f');
-  glUniform2f := dglGetProcAddress('glUniform2f');
-  glUniform3f := dglGetProcAddress('glUniform3f');
-  glUniform4f := dglGetProcAddress('glUniform4f');
-  glUniform1i := dglGetProcAddress('glUniform1i');
-  glUniform2i := dglGetProcAddress('glUniform2i');
-  glUniform3i := dglGetProcAddress('glUniform3i');
-  glUniform4i := dglGetProcAddress('glUniform4i');
-  glUniform1fv := dglGetProcAddress('glUniform1fv');
-  glUniform2fv := dglGetProcAddress('glUniform2fv');
-  glUniform3fv := dglGetProcAddress('glUniform3fv');
-  glUniform4fv := dglGetProcAddress('glUniform4fv');
-  glUniform1iv := dglGetProcAddress('glUniform1iv');
-  glUniform2iv := dglGetProcAddress('glUniform2iv');
-  glUniform3iv := dglGetProcAddress('glUniform3iv');
-  glUniform4iv := dglGetProcAddress('glUniform4iv');
-  glUniformMatrix2fv := dglGetProcAddress('glUniformMatrix2fv');
-  glUniformMatrix3fv := dglGetProcAddress('glUniformMatrix3fv');
-  glUniformMatrix4fv := dglGetProcAddress('glUniformMatrix4fv');
-  glValidateProgram := dglGetProcAddress('glValidateProgram');
-  glVertexAttrib1d := dglGetProcAddress('glVertexAttrib1d');
-  glVertexAttrib1dv := dglGetProcAddress('glVertexAttrib1dv');
-  glVertexAttrib1f := dglGetProcAddress('glVertexAttrib1f');
-  glVertexAttrib1fv := dglGetProcAddress('glVertexAttrib1fv');
-  glVertexAttrib1s := dglGetProcAddress('glVertexAttrib1s');
-  glVertexAttrib1sv := dglGetProcAddress('glVertexAttrib1sv');
-  glVertexAttrib2d := dglGetProcAddress('glVertexAttrib2d');
-  glVertexAttrib2dv := dglGetProcAddress('glVertexAttrib2dv');
-  glVertexAttrib2f := dglGetProcAddress('glVertexAttrib2f');
-  glVertexAttrib2fv := dglGetProcAddress('glVertexAttrib2fv');
-  glVertexAttrib2s := dglGetProcAddress('glVertexAttrib2s');
-  glVertexAttrib2sv := dglGetProcAddress('glVertexAttrib2sv');
-  glVertexAttrib3d := dglGetProcAddress('glVertexAttrib3d');
-  glVertexAttrib3dv := dglGetProcAddress('glVertexAttrib3dv');
-  glVertexAttrib3f := dglGetProcAddress('glVertexAttrib3f');
-  glVertexAttrib3fv := dglGetProcAddress('glVertexAttrib3fv');
-  glVertexAttrib3s := dglGetProcAddress('glVertexAttrib3s');
-  glVertexAttrib3sv := dglGetProcAddress('glVertexAttrib3sv');
-  glVertexAttrib4Nbv := dglGetProcAddress('glVertexAttrib4Nbv');
-  glVertexAttrib4Niv := dglGetProcAddress('glVertexAttrib4Niv');
-  glVertexAttrib4Nsv := dglGetProcAddress('glVertexAttrib4Nsv');
-  glVertexAttrib4Nub := dglGetProcAddress('glVertexAttrib4Nub');
-  glVertexAttrib4Nubv := dglGetProcAddress('glVertexAttrib4Nubv');
-  glVertexAttrib4Nuiv := dglGetProcAddress('glVertexAttrib4Nuiv');
-  glVertexAttrib4Nusv := dglGetProcAddress('glVertexAttrib4Nusv');
-  glVertexAttrib4bv := dglGetProcAddress('glVertexAttrib4bv');
-  glVertexAttrib4d := dglGetProcAddress('glVertexAttrib4d');
-  glVertexAttrib4dv := dglGetProcAddress('glVertexAttrib4dv');
-  glVertexAttrib4f := dglGetProcAddress('glVertexAttrib4f');
-  glVertexAttrib4fv := dglGetProcAddress('glVertexAttrib4fv');
-  glVertexAttrib4iv := dglGetProcAddress('glVertexAttrib4iv');
-  glVertexAttrib4s := dglGetProcAddress('glVertexAttrib4s');
-  glVertexAttrib4sv := dglGetProcAddress('glVertexAttrib4sv');
-  glVertexAttrib4ubv := dglGetProcAddress('glVertexAttrib4ubv');
-  glVertexAttrib4uiv := dglGetProcAddress('glVertexAttrib4uiv');
-  glVertexAttrib4usv := dglGetProcAddress('glVertexAttrib4usv');
-  glVertexAttribPointer := dglGetProcAddress('glVertexAttribPointer');
-
-  // GL_VERSION_2_1
-  glUniformMatrix2x3fv := dglGetProcAddress('glUniformMatrix2x3fv');
-  glUniformMatrix3x2fv := dglGetProcAddress('glUniformMatrix3x2fv');
-  glUniformMatrix2x4fv := dglGetProcAddress('glUniformMatrix2x4fv');
-  glUniformMatrix4x2fv := dglGetProcAddress('glUniformMatrix4x2fv');
-  glUniformMatrix3x4fv := dglGetProcAddress('glUniformMatrix3x4fv');
-  glUniformMatrix4x3fv := dglGetProcAddress('glUniformMatrix4x3fv');
-  
-  // GL_VERSION_3_0
-  { OpenGL 3.0 also reuses entry points from these extensions: }
-  Read_GL_ARB_framebuffer_object;
-  Read_GL_ARB_map_buffer_range;
-  Read_GL_ARB_vertex_array_object;
-
-  glColorMaski := dglGetProcAddress('glColorMaski');
-  glGetBooleani_v := dglGetProcAddress('glGetBooleani_v');
-  glGetIntegeri_v := dglGetProcAddress('glGetIntegeri_v');
-  glEnablei := dglGetProcAddress('glEnablei');
-  glDisablei := dglGetProcAddress('glDisablei');
-  glIsEnabledi := dglGetProcAddress('glIsEnabledi');
-  glBeginTransformFeedback := dglGetProcAddress('glBeginTransformFeedback');
-  glEndTransformFeedback := dglGetProcAddress('glEndTransformFeedback');
-  glBindBufferRange := dglGetProcAddress('glBindBufferRange');
-  glBindBufferBase := dglGetProcAddress('glBindBufferBase');
-  glTransformFeedbackVaryings := dglGetProcAddress('glTransformFeedbackVaryings');
-  glGetTransformFeedbackVarying := dglGetProcAddress('glGetTransformFeedbackVarying');
-  glClampColor := dglGetProcAddress('glClampColor');
-  glBeginConditionalRender := dglGetProcAddress('glBeginConditionalRender');
-  glEndConditionalRender := dglGetProcAddress('glEndConditionalRender');
-  glVertexAttribI1i := dglGetProcAddress('glVertexAttribI1i');
-  glVertexAttribI2i := dglGetProcAddress('glVertexAttribI2i');
-  glVertexAttribI3i := dglGetProcAddress('glVertexAttribI3i');
-  glVertexAttribI4i := dglGetProcAddress('glVertexAttribI4i');
-  glVertexAttribI1ui := dglGetProcAddress('glVertexAttribI1ui');
-  glVertexAttribI2ui := dglGetProcAddress('glVertexAttribI2ui');
-  glVertexAttribI3ui := dglGetProcAddress('glVertexAttribI3ui');
-  glVertexAttribI4ui := dglGetProcAddress('glVertexAttribI4ui');
-  glVertexAttribI1iv := dglGetProcAddress('glVertexAttribI1iv');
-  glVertexAttribI2iv := dglGetProcAddress('glVertexAttribI2iv');
-  glVertexAttribI3iv := dglGetProcAddress('glVertexAttribI3iv');
-  glVertexAttribI4iv := dglGetProcAddress('glVertexAttribI4iv');
-  glVertexAttribI1uiv := dglGetProcAddress('glVertexAttribI1uiv');
-  glVertexAttribI2uiv := dglGetProcAddress('glVertexAttribI2uiv');
-  glVertexAttribI3uiv := dglGetProcAddress('glVertexAttribI3uiv');
-  glVertexAttribI4uiv := dglGetProcAddress('glVertexAttribI4uiv');
-  glVertexAttribI4bv := dglGetProcAddress('glVertexAttribI4bv');
-  glVertexAttribI4sv := dglGetProcAddress('glVertexAttribI4sv');
-  glVertexAttribI4ubv := dglGetProcAddress('glVertexAttribI4ubv');
-  glVertexAttribI4usv := dglGetProcAddress('glVertexAttribI4usv');
-  glVertexAttribIPointer := dglGetProcAddress('glVertexAttribIPointer');
-  glGetVertexAttribIiv := dglGetProcAddress('glGetVertexAttribIiv');
-  glGetVertexAttribIuiv := dglGetProcAddress('glGetVertexAttribIuiv');
-  glGetUniformuiv := dglGetProcAddress('glGetUniformuiv');
-  glBindFragDataLocation := dglGetProcAddress('glBindFragDataLocation');
-  glGetFragDataLocation := dglGetProcAddress('glGetFragDataLocation');
-  glUniform1ui := dglGetProcAddress('glUniform1ui');
-  glUniform2ui := dglGetProcAddress('glUniform2ui');
-  glUniform3ui := dglGetProcAddress('glUniform3ui');
-  glUniform4ui := dglGetProcAddress('glUniform4ui');
-  glUniform1uiv := dglGetProcAddress('glUniform1uiv');
-  glUniform2uiv := dglGetProcAddress('glUniform2uiv');
-  glUniform3uiv := dglGetProcAddress('glUniform3uiv');
-  glUniform4uiv := dglGetProcAddress('glUniform4uiv');
-  glTexParameterIiv := dglGetProcAddress('glTexParameterIiv');
-  glTexParameterIuiv := dglGetProcAddress('glTexParameterIuiv');
-  glGetTexParameterIiv := dglGetProcAddress('glGetTexParameterIiv');
-  glGetTexParameterIuiv := dglGetProcAddress('glGetTexParameterIuiv');
-  glClearBufferiv := dglGetProcAddress('glClearBufferiv');
-  glClearBufferuiv := dglGetProcAddress('glClearBufferuiv');
-  glClearBufferfv := dglGetProcAddress('glClearBufferfv');
-  glClearBufferfi := dglGetProcAddress('glClearBufferfi');
-  glGetStringi := dglGetProcAddress('glGetStringi');
-
-  // GL_VERSION_3_1
-  { OpenGL 3.1 also reuses entry points from these extensions: }
-  Read_GL_ARB_copy_buffer;
-  Read_GL_ARB_uniform_buffer_object;
-
-  glDrawArraysInstanced := dglGetProcAddress('glDrawArraysInstanced');
-  glDrawElementsInstanced := dglGetProcAddress('glDrawElementsInstanced');
-  glTexBuffer := dglGetProcAddress('glTexBuffer');
-  glPrimitiveRestartIndex := dglGetProcAddress('glPrimitiveRestartIndex');
-
-  // GL_VERSION_3_2
-  { OpenGL 3.2 also reuses entry points from these extensions: }
-  Read_GL_ARB_draw_elements_base_vertex;
-  Read_GL_ARB_provoking_vertex;
-  Read_GL_ARB_sync;
-  Read_GL_ARB_texture_multisample;
-
-  glGetInteger64i_v := dglGetProcAddress('glGetInteger64i_v');
-  glGetBufferParameteri64v := dglGetProcAddress('glGetBufferParameteri64v');
-  glProgramParameteri := dglGetProcAddress('glProgramParameteri');
-  glFramebufferTexture := dglGetProcAddress('glFramebufferTexture');
-  glFramebufferTextureFace := dglGetProcAddress('glFramebufferTextureFace');
-end;
-
-procedure Read_GL_3DFX_tbuffer;
-begin
-  glTbufferMask3DFX := dglGetProcAddress('glTbufferMask3DFX');
-end;
-
-procedure Read_GL_APPLE_element_array;
-begin
-  glElementPointerAPPLE := dglGetProcAddress('glElementPointerAPPLE');
-  glDrawElementArrayAPPLE := dglGetProcAddress('glDrawElementArrayAPPLE');
-  glDrawRangeElementArrayAPPLE := dglGetProcAddress('glDrawRangeElementArrayAPPLE');
-  glMultiDrawElementArrayAPPLE := dglGetProcAddress('glMultiDrawElementArrayAPPLE');
-  glMultiDrawRangeElementArrayAPPLE := dglGetProcAddress('glMultiDrawRangeElementArrayAPPLE');
-end;
-
-procedure Read_GL_APPLE_fence;
-begin
-  glGenFencesAPPLE := dglGetProcAddress('glGenFencesAPPLE');
-  glDeleteFencesAPPLE := dglGetProcAddress('glDeleteFencesAPPLE');
-  glSetFenceAPPLE := dglGetProcAddress('glSetFenceAPPLE');
-  glIsFenceAPPLE := dglGetProcAddress('glIsFenceAPPLE');
-  glTestFenceAPPLE := dglGetProcAddress('glTestFenceAPPLE');
-  glFinishFenceAPPLE := dglGetProcAddress('glFinishFenceAPPLE');
-  glTestObjectAPPLE := dglGetProcAddress('glTestObjectAPPLE');
-  glFinishObjectAPPLE := dglGetProcAddress('glFinishObjectAPPLE');
-end;
-
-procedure Read_GL_APPLE_vertex_array_object;
-begin
-  glBindVertexArrayAPPLE := dglGetProcAddress('glBindVertexArrayAPPLE');
-  glDeleteVertexArraysAPPLE := dglGetProcAddress('glDeleteVertexArraysAPPLE');
-  glGenVertexArraysAPPLE := dglGetProcAddress('glGenVertexArraysAPPLE');
-  glIsVertexArrayAPPLE := dglGetProcAddress('glIsVertexArrayAPPLE');
-end;
-
-procedure Read_GL_APPLE_vertex_array_range;
-begin
-  glVertexArrayRangeAPPLE := dglGetProcAddress('glVertexArrayRangeAPPLE');
-  glFlushVertexArrayRangeAPPLE := dglGetProcAddress('glFlushVertexArrayRangeAPPLE');
-  glVertexArrayParameteriAPPLE := dglGetProcAddress('glVertexArrayParameteriAPPLE');
-end;
-
-procedure Read_GL_APPLE_texture_range;
-begin
-  glTextureRangeAPPLE := dglGetProcAddress('glTextureRangeAPPLE');
-  glGetTexParameterPointervAPPLE := dglGetProcAddress('glGetTexParameterPointervAPPLE');
-end;
-
-procedure Read_GL_APPLE_vertex_program_evaluators;
-begin
-  glEnableVertexAttribAPPLE := dglGetProcAddress('glEnableVertexAttribAPPLE');
-  glDisableVertexAttribAPPLE := dglGetProcAddress('glDisableVertexAttribAPPLE');
-  glIsVertexAttribEnabledAPPLE := dglGetProcAddress('glIsVertexAttribEnabledAPPLE');
-  glMapVertexAttrib1dAPPLE := dglGetProcAddress('glMapVertexAttrib1dAPPLE');
-  glMapVertexAttrib1fAPPLE := dglGetProcAddress('glMapVertexAttrib1fAPPLE');
-  glMapVertexAttrib2dAPPLE := dglGetProcAddress('glMapVertexAttrib2dAPPLE');
-  glMapVertexAttrib2fAPPLE := dglGetProcAddress('glMapVertexAttrib2fAPPLE');
-end;
-
-procedure Read_GL_APPLE_object_purgeable;
-begin
-  glObjectPurgeableAPPLE := dglGetProcAddress('glObjectPurgeableAPPLE');
-  glObjectUnpurgeableAPPLE := dglGetProcAddress('glObjectUnpurgeableAPPLE');
-  glGetObjectParameterivAPPLE := dglGetProcAddress('glGetObjectParameterivAPPLE');
-end;
-
-procedure Read_GL_ARB_matrix_palette;
-begin
-  glCurrentPaletteMatrixARB := dglGetProcAddress('glCurrentPaletteMatrixARB');
-  glMatrixIndexubvARB := dglGetProcAddress('glMatrixIndexubvARB');
-  glMatrixIndexusvARB := dglGetProcAddress('glMatrixIndexusvARB');
-  glMatrixIndexuivARB := dglGetProcAddress('glMatrixIndexuivARB');
-  glMatrixIndexPointerARB := dglGetProcAddress('glMatrixIndexPointerARB');
-end;
-
-procedure Read_GL_ARB_multisample;
-begin
-  glSampleCoverageARB := dglGetProcAddress('glSampleCoverageARB');
-end;
-
-procedure Read_GL_ARB_multitexture;
-begin
-  glActiveTextureARB := dglGetProcAddress('glActiveTextureARB');
-  glClientActiveTextureARB := dglGetProcAddress('glClientActiveTextureARB');
-  glMultiTexCoord1dARB := dglGetProcAddress('glMultiTexCoord1dARB');
-  glMultiTexCoord1dvARB := dglGetProcAddress('glMultiTexCoord1dvARB');
-  glMultiTexCoord1fARB := dglGetProcAddress('glMultiTexCoord1fARB');
-  glMultiTexCoord1fvARB := dglGetProcAddress('glMultiTexCoord1fvARB');
-  glMultiTexCoord1iARB := dglGetProcAddress('glMultiTexCoord1iARB');
-  glMultiTexCoord1ivARB := dglGetProcAddress('glMultiTexCoord1ivARB');
-  glMultiTexCoord1sARB := dglGetProcAddress('glMultiTexCoord1sARB');
-  glMultiTexCoord1svARB := dglGetProcAddress('glMultiTexCoord1svARB');
-  glMultiTexCoord2dARB := dglGetProcAddress('glMultiTexCoord2dARB');
-  glMultiTexCoord2dvARB := dglGetProcAddress('glMultiTexCoord2dvARB');
-  glMultiTexCoord2fARB := dglGetProcAddress('glMultiTexCoord2fARB');
-  glMultiTexCoord2fvARB := dglGetProcAddress('glMultiTexCoord2fvARB');
-  glMultiTexCoord2iARB := dglGetProcAddress('glMultiTexCoord2iARB');
-  glMultiTexCoord2ivARB := dglGetProcAddress('glMultiTexCoord2ivARB');
-  glMultiTexCoord2sARB := dglGetProcAddress('glMultiTexCoord2sARB');
-  glMultiTexCoord2svARB := dglGetProcAddress('glMultiTexCoord2svARB');
-  glMultiTexCoord3dARB := dglGetProcAddress('glMultiTexCoord3dARB');
-  glMultiTexCoord3dvARB := dglGetProcAddress('glMultiTexCoord3dvARB');
-  glMultiTexCoord3fARB := dglGetProcAddress('glMultiTexCoord3fARB');
-  glMultiTexCoord3fvARB := dglGetProcAddress('glMultiTexCoord3fvARB');
-  glMultiTexCoord3iARB := dglGetProcAddress('glMultiTexCoord3iARB');
-  glMultiTexCoord3ivARB := dglGetProcAddress('glMultiTexCoord3ivARB');
-  glMultiTexCoord3sARB := dglGetProcAddress('glMultiTexCoord3sARB');
-  glMultiTexCoord3svARB := dglGetProcAddress('glMultiTexCoord3svARB');
-  glMultiTexCoord4dARB := dglGetProcAddress('glMultiTexCoord4dARB');
-  glMultiTexCoord4dvARB := dglGetProcAddress('glMultiTexCoord4dvARB');
-  glMultiTexCoord4fARB := dglGetProcAddress('glMultiTexCoord4fARB');
-  glMultiTexCoord4fvARB := dglGetProcAddress('glMultiTexCoord4fvARB');
-  glMultiTexCoord4iARB := dglGetProcAddress('glMultiTexCoord4iARB');
-  glMultiTexCoord4ivARB := dglGetProcAddress('glMultiTexCoord4ivARB');
-  glMultiTexCoord4sARB := dglGetProcAddress('glMultiTexCoord4sARB');
-  glMultiTexCoord4svARB := dglGetProcAddress('glMultiTexCoord4svARB');
-end;
-
-procedure Read_GL_ARB_point_parameters;
-begin
-  glPointParameterfARB := dglGetProcAddress('glPointParameterfARB');
-  glPointParameterfvARB := dglGetProcAddress('glPointParameterfvARB');
-end;
-
-procedure Read_GL_ARB_texture_compression;
-begin
-  glCompressedTexImage3DARB := dglGetProcAddress('glCompressedTexImage3DARB');
-  glCompressedTexImage2DARB := dglGetProcAddress('glCompressedTexImage2DARB');
-  glCompressedTexImage1DARB := dglGetProcAddress('glCompressedTexImage1DARB');
-  glCompressedTexSubImage3DARB := dglGetProcAddress('glCompressedTexSubImage3DARB');
-  glCompressedTexSubImage2DARB := dglGetProcAddress('glCompressedTexSubImage2DARB');
-  glCompressedTexSubImage1DARB := dglGetProcAddress('glCompressedTexSubImage1DARB');
-  glGetCompressedTexImageARB := dglGetProcAddress('glGetCompressedTexImageARB');
-end;
-
-procedure Read_GL_ARB_transpose_matrix;
-begin
-  glLoadTransposeMatrixfARB := dglGetProcAddress('glLoadTransposeMatrixfARB');
-  glLoadTransposeMatrixdARB := dglGetProcAddress('glLoadTransposeMatrixdARB');
-  glMultTransposeMatrixfARB := dglGetProcAddress('glMultTransposeMatrixfARB');
-  glMultTransposeMatrixdARB := dglGetProcAddress('glMultTransposeMatrixdARB');
-end;
-
-procedure Read_GL_ARB_vertex_blend;
-begin
-  glWeightbvARB := dglGetProcAddress('glWeightbvARB');
-  glWeightsvARB := dglGetProcAddress('glWeightsvARB');
-  glWeightivARB := dglGetProcAddress('glWeightivARB');
-  glWeightfvARB := dglGetProcAddress('glWeightfvARB');
-  glWeightdvARB := dglGetProcAddress('glWeightdvARB');
-  glWeightubvARB := dglGetProcAddress('glWeightubvARB');
-  glWeightusvARB := dglGetProcAddress('glWeightusvARB');
-  glWeightuivARB := dglGetProcAddress('glWeightuivARB');
-  glWeightPointerARB := dglGetProcAddress('glWeightPointerARB');
-  glVertexBlendARB := dglGetProcAddress('glVertexBlendARB');
-end;
-
-procedure Read_GL_ARB_vertex_buffer_object;
-begin
-  glBindBufferARB := dglGetProcAddress('glBindBufferARB');
-  glDeleteBuffersARB := dglGetProcAddress('glDeleteBuffersARB');
-  glGenBuffersARB := dglGetProcAddress('glGenBuffersARB');
-  glIsBufferARB := dglGetProcAddress('glIsBufferARB');
-  glBufferDataARB := dglGetProcAddress('glBufferDataARB');
-  glBufferSubDataARB := dglGetProcAddress('glBufferSubDataARB');
-  glGetBufferSubDataARB := dglGetProcAddress('glGetBufferSubDataARB');
-  glMapBufferARB := dglGetProcAddress('glMapBufferARB');
-  glUnmapBufferARB := dglGetProcAddress('glUnmapBufferARB');
-  glGetBufferParameterivARB := dglGetProcAddress('glGetBufferParameterivARB');
-  glGetBufferPointervARB := dglGetProcAddress('glGetBufferPointervARB');
-end;
-
-procedure Read_GL_ARB_vertex_program;
-begin
-  glVertexAttrib1dARB := dglGetProcAddress('glVertexAttrib1dARB');
-  glVertexAttrib1dvARB := dglGetProcAddress('glVertexAttrib1dvARB');
-  glVertexAttrib1fARB := dglGetProcAddress('glVertexAttrib1fARB');
-  glVertexAttrib1fvARB := dglGetProcAddress('glVertexAttrib1fvARB');
-  glVertexAttrib1sARB := dglGetProcAddress('glVertexAttrib1sARB');
-  glVertexAttrib1svARB := dglGetProcAddress('glVertexAttrib1svARB');
-  glVertexAttrib2dARB := dglGetProcAddress('glVertexAttrib2dARB');
-  glVertexAttrib2dvARB := dglGetProcAddress('glVertexAttrib2dvARB');
-  glVertexAttrib2fARB := dglGetProcAddress('glVertexAttrib2fARB');
-  glVertexAttrib2fvARB := dglGetProcAddress('glVertexAttrib2fvARB');
-  glVertexAttrib2sARB := dglGetProcAddress('glVertexAttrib2sARB');
-  glVertexAttrib2svARB := dglGetProcAddress('glVertexAttrib2svARB');
-  glVertexAttrib3dARB := dglGetProcAddress('glVertexAttrib3dARB');
-  glVertexAttrib3dvARB := dglGetProcAddress('glVertexAttrib3dvARB');
-  glVertexAttrib3fARB := dglGetProcAddress('glVertexAttrib3fARB');
-  glVertexAttrib3fvARB := dglGetProcAddress('glVertexAttrib3fvARB');
-  glVertexAttrib3sARB := dglGetProcAddress('glVertexAttrib3sARB');
-  glVertexAttrib3svARB := dglGetProcAddress('glVertexAttrib3svARB');
-  glVertexAttrib4NbvARB := dglGetProcAddress('glVertexAttrib4NbvARB');
-  glVertexAttrib4NivARB := dglGetProcAddress('glVertexAttrib4NivARB');
-  glVertexAttrib4NsvARB := dglGetProcAddress('glVertexAttrib4NsvARB');
-  glVertexAttrib4NubARB := dglGetProcAddress('glVertexAttrib4NubARB');
-  glVertexAttrib4NubvARB := dglGetProcAddress('glVertexAttrib4NubvARB');
-  glVertexAttrib4NuivARB := dglGetProcAddress('glVertexAttrib4NuivARB');
-  glVertexAttrib4NusvARB := dglGetProcAddress('glVertexAttrib4NusvARB');
-  glVertexAttrib4bvARB := dglGetProcAddress('glVertexAttrib4bvARB');
-  glVertexAttrib4dARB := dglGetProcAddress('glVertexAttrib4dARB');
-  glVertexAttrib4dvARB := dglGetProcAddress('glVertexAttrib4dvARB');
-  glVertexAttrib4fARB := dglGetProcAddress('glVertexAttrib4fARB');
-  glVertexAttrib4fvARB := dglGetProcAddress('glVertexAttrib4fvARB');
-  glVertexAttrib4ivARB := dglGetProcAddress('glVertexAttrib4ivARB');
-  glVertexAttrib4sARB := dglGetProcAddress('glVertexAttrib4sARB');
-  glVertexAttrib4svARB := dglGetProcAddress('glVertexAttrib4svARB');
-  glVertexAttrib4ubvARB := dglGetProcAddress('glVertexAttrib4ubvARB');
-  glVertexAttrib4uivARB := dglGetProcAddress('glVertexAttrib4uivARB');
-  glVertexAttrib4usvARB := dglGetProcAddress('glVertexAttrib4usvARB');
-  glVertexAttribPointerARB := dglGetProcAddress('glVertexAttribPointerARB');
-  glEnableVertexAttribArrayARB := dglGetProcAddress('glEnableVertexAttribArrayARB');
-  glDisableVertexAttribArrayARB := dglGetProcAddress('glDisableVertexAttribArrayARB');
-  glProgramStringARB := dglGetProcAddress('glProgramStringARB');
-  glBindProgramARB := dglGetProcAddress('glBindProgramARB');
-  glDeleteProgramsARB := dglGetProcAddress('glDeleteProgramsARB');
-  glGenProgramsARB := dglGetProcAddress('glGenProgramsARB');
-  glProgramEnvParameter4dARB := dglGetProcAddress('glProgramEnvParameter4dARB');
-  glProgramEnvParameter4dvARB := dglGetProcAddress('glProgramEnvParameter4dvARB');
-  glProgramEnvParameter4fARB := dglGetProcAddress('glProgramEnvParameter4fARB');
-  glProgramEnvParameter4fvARB := dglGetProcAddress('glProgramEnvParameter4fvARB');
-  glProgramLocalParameter4dARB := dglGetProcAddress('glProgramLocalParameter4dARB');
-  glProgramLocalParameter4dvARB := dglGetProcAddress('glProgramLocalParameter4dvARB');
-  glProgramLocalParameter4fARB := dglGetProcAddress('glProgramLocalParameter4fARB');
-  glProgramLocalParameter4fvARB := dglGetProcAddress('glProgramLocalParameter4fvARB');
-  glGetProgramEnvParameterdvARB := dglGetProcAddress('glGetProgramEnvParameterdvARB');
-  glGetProgramEnvParameterfvARB := dglGetProcAddress('glGetProgramEnvParameterfvARB');
-  glGetProgramLocalParameterdvARB := dglGetProcAddress('glGetProgramLocalParameterdvARB');
-  glGetProgramLocalParameterfvARB := dglGetProcAddress('glGetProgramLocalParameterfvARB');
-  glGetProgramivARB := dglGetProcAddress('glGetProgramivARB');
-  glGetProgramStringARB := dglGetProcAddress('glGetProgramStringARB');
-  glGetVertexAttribdvARB := dglGetProcAddress('glGetVertexAttribdvARB');
-  glGetVertexAttribfvARB := dglGetProcAddress('glGetVertexAttribfvARB');
-  glGetVertexAttribivARB := dglGetProcAddress('glGetVertexAttribivARB');
-  glGetVertexAttribPointervARB := dglGetProcAddress('glGetVertexAttribPointervARB');
-  glIsProgramARB := dglGetProcAddress('glIsProgramARB');
-end;
-
-procedure Read_GL_ARB_window_pos;
-begin
-  glWindowPos2dARB := dglGetProcAddress('glWindowPos2dARB');
-  glWindowPos2dvARB := dglGetProcAddress('glWindowPos2dvARB');
-  glWindowPos2fARB := dglGetProcAddress('glWindowPos2fARB');
-  glWindowPos2fvARB := dglGetProcAddress('glWindowPos2fvARB');
-  glWindowPos2iARB := dglGetProcAddress('glWindowPos2iARB');
-  glWindowPos2ivARB := dglGetProcAddress('glWindowPos2ivARB');
-  glWindowPos2sARB := dglGetProcAddress('glWindowPos2sARB');
-  glWindowPos2svARB := dglGetProcAddress('glWindowPos2svARB');
-  glWindowPos3dARB := dglGetProcAddress('glWindowPos3dARB');
-  glWindowPos3dvARB := dglGetProcAddress('glWindowPos3dvARB');
-  glWindowPos3fARB := dglGetProcAddress('glWindowPos3fARB');
-  glWindowPos3fvARB := dglGetProcAddress('glWindowPos3fvARB');
-  glWindowPos3iARB := dglGetProcAddress('glWindowPos3iARB');
-  glWindowPos3ivARB := dglGetProcAddress('glWindowPos3ivARB');
-  glWindowPos3sARB := dglGetProcAddress('glWindowPos3sARB');
-  glWindowPos3svARB := dglGetProcAddress('glWindowPos3svARB');
-end;
-
-procedure Read_GL_ARB_draw_buffers;
-begin
-  glDrawBuffersARB := dglGetProcAddress('glDrawBuffersARB');
-end;
-
-procedure Read_GL_ARB_color_buffer_float;
-begin
-  glClampColorARB := dglGetProcAddress('glClampColorARB');
-end;
-
-procedure Read_GL_ARB_Shader_Objects;
-begin
-  // GL_ARB_Shader_Objects
-  glCreateShaderObjectARB := dglGetProcAddress('glCreateShaderObjectARB');
-  glShaderSourceARB := dglGetProcAddress('glShaderSourceARB');
-  glCompileShaderARB := dglGetProcAddress('glCompileShaderARB');
-  glDeleteObjectARB := dglGetProcAddress('glDeleteObjectARB');
-  glGetHandleARB := dglGetProcAddress('glGetHandleARB');
-  glDetachObjectARB := dglGetProcAddress('glDetachObjectARB');
-  glCreateProgramObjectARB := dglGetProcAddress('glCreateProgramObjectARB');
-  glAttachObjectARB := dglGetProcAddress('glAttachObjectARB');
-  glLinkProgramARB := dglGetProcAddress('glLinkProgramARB');
-  glUseProgramObjectARB := dglGetProcAddress('glUseProgramObjectARB');
-  glValidateProgramARB := dglGetProcAddress('glValidateProgramARB');
-  glGetObjectParameterfvARB := dglGetProcAddress('glGetObjectParameterfvARB');
-  glGetObjectParameterivARB := dglGetProcAddress('glGetObjectParameterivARB');
-  glGetActiveUniformARB := dglGetProcAddress('glGetActiveUniformARB');
-  glGetAttachedObjectsARB := dglGetProcAddress('glGetAttachedObjectsARB');
-  glGetShaderSourceARB := dglGetProcAddress('glGetShaderSourceARB');
-  glGetUniformfvARB := dglGetProcAddress('glGetUniformfvARB');
-  glGetUniformivARB := dglGetProcAddress('glGetUniformivARB');
-  glGetUniformLocationARB := dglGetProcAddress('glGetUniformLocationARB');
-  glGetInfoLogARB := dglGetProcAddress('glGetInfoLogARB');
-  glUniform1fARB := dglGetProcAddress('glUniform1fARB');
-  glUniform2fARB := dglGetProcAddress('glUniform2fARB');
-  glUniform3fARB := dglGetProcAddress('glUniform3fARB');
-  glUniform4fARB := dglGetProcAddress('glUniform4fARB');
-  glUniform1iARB := dglGetProcAddress('glUniform1iARB');
-  glUniform2iARB := dglGetProcAddress('glUniform2iARB');
-  glUniform3iARB := dglGetProcAddress('glUniform3iARB');
-  glUniform4iARB := dglGetProcAddress('glUniform4iARB');
-  glUniform1fvARB := dglGetProcAddress('glUniform1fvARB');
-  glUniform2fvARB := dglGetProcAddress('glUniform2fvARB');
-  glUniform3fvARB := dglGetProcAddress('glUniform3fvARB');
-  glUniform4fvARB := dglGetProcAddress('glUniform4fvARB');
-  glUniform1ivARB := dglGetProcAddress('glUniform1ivARB');
-  glUniform2ivARB := dglGetProcAddress('glUniform2ivARB');
-  glUniform3ivARB := dglGetProcAddress('glUniform3ivARB');
-  glUniform4ivARB := dglGetProcAddress('glUniform4ivARB');
-  glUniformMatrix2fvARB := dglGetProcAddress('glUniformMatrix2fvARB');
-  glUniformMatrix3fvARB := dglGetProcAddress('glUniformMatrix3fvARB');
-  glUniformMatrix4fvARB := dglGetProcAddress('glUniformMatrix4fvARB');
-
-  // GL_ARB_vertex_shader
-  glGetActiveAttribARB := dglGetProcAddress('glGetActiveAttribARB');
-  glGetAttribLocationARB := dglGetProcAddress('glGetAttribLocationARB');
-  glBindAttribLocationARB := dglGetProcAddress('glBindAttribLocationARB');
-  glGetVertexAttribPointervARB := dglGetProcAddress('glGetVertexAttribPointervARB');
-end;
-
-procedure Read_GL_ARB_occlusion_query;
-begin
-  glGenQueriesARB := dglGetProcAddress('glGenQueriesARB');
-  glDeleteQueriesARB := dglGetProcAddress('glDeleteQueriesARB');
-  glIsQueryARB := dglGetProcAddress('glIsQueryARB');
-  glBeginQueryARB := dglGetProcAddress('glBeginQueryARB');
-  glEndQueryARB := dglGetProcAddress('glEndQueryARB');
-  glGetQueryivARB := dglGetProcAddress('glGetQueryivARB');
-  glGetQueryObjectivARB := dglGetProcAddress('glGetQueryObjectivARB');
-  glGetQueryObjectuivARB := dglGetProcAddress('glGetQueryObjectuivARB');
-end;
-
-procedure Read_GL_ARB_draw_instanced;
-begin
-  glDrawArraysInstancedARB := dglGetProcAddress('glDrawArraysInstancedARB');
-  glDrawElementsInstancedARB := dglGetProcAddress('glDrawElementsInstancedARB');
-end;
-
-procedure Read_GL_ARB_framebuffer_object;
-begin
-  glIsRenderbuffer := dglGetProcAddress('glIsRenderbuffer');
-  glBindRenderbuffer := dglGetProcAddress('glBindRenderbuffer');
-  glDeleteRenderbuffers := dglGetProcAddress('glDeleteRenderbuffers');
-  glGenRenderbuffers := dglGetProcAddress('glGenRenderbuffers');
-  glRenderbufferStorage := dglGetProcAddress('glRenderbufferStorage');
-  glGetRenderbufferParameteriv := dglGetProcAddress('glGetRenderbufferParameteriv');
-  glIsFramebuffer := dglGetProcAddress('glIsFramebuffer');
-  glBindFramebuffer := dglGetProcAddress('glBindFramebuffer');
-  glDeleteFramebuffers := dglGetProcAddress('glDeleteFramebuffers');
-  glGenFramebuffers := dglGetProcAddress('glGenFramebuffers');
-  glCheckFramebufferStatus := dglGetProcAddress('glCheckFramebufferStatus');
-  glFramebufferTexture1D := dglGetProcAddress('glFramebufferTexture1D');
-  glFramebufferTexture2D := dglGetProcAddress('glFramebufferTexture2D');
-  glFramebufferTexture3D := dglGetProcAddress('glFramebufferTexture3D');
-  glFramebufferRenderbuffer := dglGetProcAddress('glFramebufferRenderbuffer');
-  glGetFramebufferAttachmentParameteriv := dglGetProcAddress('glGetFramebufferAttachmentParameteriv');
-  glGenerateMipmap := dglGetProcAddress('glGenerateMipmap');
-  glBlitFramebuffer := dglGetProcAddress('glBlitFramebuffer');
-  glRenderbufferStorageMultisample := dglGetProcAddress('glRenderbufferStorageMultisample');
-  glFramebufferTextureLayer := dglGetProcAddress('glFramebufferTextureLayer');
-end;
-
-procedure Read_GL_ARB_geometry_shader4;
-begin
-  glProgramParameteriARB := dglGetProcAddress('glProgramParameteriARB');
-  glFramebufferTextureARB := dglGetProcAddress('glFramebufferTextureARB');
-  glFramebufferTextureLayerARB := dglGetProcAddress('glFramebufferTextureLayerARB');
-  glFramebufferTextureFaceARB := dglGetProcAddress('glFramebufferTextureFaceARB');
-end;
-
-procedure Read_GL_ARB_instanced_arrays;
-begin
-  glVertexAttribDivisorARB := dglGetProcAddress('glVertexAttribDivisorARB');
-end;
-
-procedure Read_GL_ARB_map_buffer_range;
-begin
-  glMapBufferRange := dglGetProcAddress('glMapBufferRange');
-  glFlushMappedBufferRange := dglGetProcAddress('glFlushMappedBufferRange');
-end;
-
-procedure Read_GL_ARB_texture_buffer_object;
-begin
-  glTexBufferARB := dglGetProcAddress('glTexBufferARB');
-end;
-
-procedure Read_GL_ARB_vertex_array_object;
-begin
-  glBindVertexArray := dglGetProcAddress('glBindVertexArray');
-  glDeleteVertexArrays := dglGetProcAddress('glDeleteVertexArrays');
-  glGenVertexArrays := dglGetProcAddress('glGenVertexArrays');
-  glIsVertexArray := dglGetProcAddress('glIsVertexArray');
-end;
-
-procedure Read_GL_ARB_uniform_buffer_object;
-begin
-  glGetUniformIndices := dglGetProcAddress('glGetUniformIndices');
-  glGetActiveUniformsiv := dglGetProcAddress('glGetActiveUniformsiv');
-  glGetActiveUniformName := dglGetProcAddress('glGetActiveUniformName');
-  glGetUniformBlockIndex := dglGetProcAddress('glGetUniformBlockIndex');
-  glGetActiveUniformBlockiv := dglGetProcAddress('glGetActiveUniformBlockiv');
-  glGetActiveUniformBlockName := dglGetProcAddress('glGetActiveUniformBlockName');
-  glUniformBlockBinding := dglGetProcAddress('glUniformBlockBinding');
-end;
-
-procedure Read_GL_ARB_copy_buffer;
-begin
-  glCopyBufferSubData := dglGetProcAddress('glCopyBufferSubData');
-end;
-
-procedure Read_GL_ARB_draw_elements_base_vertex;
-begin
-  glDrawElementsBaseVertex := dglGetProcAddress('glDrawElementsBaseVertex');
-  glDrawRangeElementsBaseVertex := dglGetProcAddress('glDrawRangeElementsBaseVertex');
-  glDrawElementsInstancedBaseVertex := dglGetProcAddress('glDrawElementsInstancedBaseVertex');
-  glMultiDrawElementsBaseVertex := dglGetProcAddress('glMultiDrawElementsBaseVertex');
-end;
-
-procedure Read_GL_ARB_provoking_vertex;
-begin
-  glProvokingVertex := dglGetProcAddress('glProvokingVertex');
-end;
-
-procedure Read_GL_ARB_sync;
-begin
-  glFenceSync := dglGetProcAddress('glFenceSync');
-  glIsSync := dglGetProcAddress('glIsSync');
-  glDeleteSync := dglGetProcAddress('glDeleteSync');
-  glClientWaitSync := dglGetProcAddress('glClientWaitSync');
-  glWaitSync := dglGetProcAddress('glWaitSync');
-  glGetInteger64v := dglGetProcAddress('glGetInteger64v');
-  glGetSynciv := dglGetProcAddress('glGetSynciv');
-end;
-
-procedure Read_GL_ARB_texture_multisample;
-begin
-  glTexImage2DMultisample := dglGetProcAddress('glTexImage2DMultisample');
-  glTexImage3DMultisample := dglGetProcAddress('glTexImage3DMultisample');
-  glGetMultisamplefv := dglGetProcAddress('glGetMultisamplefv');
-  glSampleMaski := dglGetProcAddress('glSampleMaski');
-end;
-
-procedure Read_GL_ARB_draw_buffers_blend;
-begin
-  glBlendEquationi := dglGetProcAddress('glBlendEquationi');
-  glBlendEquationSeparatei := dglGetProcAddress('glBlendEquationSeparatei');
-  glBlendFunci := dglGetProcAddress('glBlendFunci');
-  glBlendFuncSeparatei := dglGetProcAddress('glBlendFuncSeparatei');
-end;
-
-procedure Read_GL_ARB_sample_shading;
-begin
-  glMinSampleShading := dglGetProcAddress('glMinSampleShading');;
-end;
-
-procedure Read_GL_ATI_draw_buffers;
-begin
-  glDrawBuffersATI := dglGetProcAddress('glDrawBuffersATI');
-end;
-
-procedure Read_GL_ATI_element_array;
-begin
-  glElementPointerATI := dglGetProcAddress('glElementPointerATI');
-  glDrawElementArrayATI := dglGetProcAddress('glDrawElementArrayATI');
-  glDrawRangeElementArrayATI := dglGetProcAddress('glDrawRangeElementArrayATI');
-end;
-
-procedure Read_GL_ATI_envmap_bumpmap;
-begin
-  glTexBumpParameterivATI := dglGetProcAddress('glTexBumpParameterivATI');
-  glTexBumpParameterfvATI := dglGetProcAddress('glTexBumpParameterfvATI');
-  glGetTexBumpParameterivATI := dglGetProcAddress('glGetTexBumpParameterivATI');
-  glGetTexBumpParameterfvATI := dglGetProcAddress('glGetTexBumpParameterfvATI');
-end;
-
-procedure Read_GL_ATI_fragment_shader;
-begin
-  glGenFragmentShadersATI := dglGetProcAddress('glGenFragmentShadersATI');
-  glBindFragmentShaderATI := dglGetProcAddress('glBindFragmentShaderATI');
-  glDeleteFragmentShaderATI := dglGetProcAddress('glDeleteFragmentShaderATI');
-  glBeginFragmentShaderATI := dglGetProcAddress('glBeginFragmentShaderATI');
-  glEndFragmentShaderATI := dglGetProcAddress('glEndFragmentShaderATI');
-  glPassTexCoordATI := dglGetProcAddress('glPassTexCoordATI');
-  glSampleMapATI := dglGetProcAddress('glSampleMapATI');
-  glColorFragmentOp1ATI := dglGetProcAddress('glColorFragmentOp1ATI');
-  glColorFragmentOp2ATI := dglGetProcAddress('glColorFragmentOp2ATI');
-  glColorFragmentOp3ATI := dglGetProcAddress('glColorFragmentOp3ATI');
-  glAlphaFragmentOp1ATI := dglGetProcAddress('glAlphaFragmentOp1ATI');
-  glAlphaFragmentOp2ATI := dglGetProcAddress('glAlphaFragmentOp2ATI');
-  glAlphaFragmentOp3ATI := dglGetProcAddress('glAlphaFragmentOp3ATI');
-  glSetFragmentShaderConstantATI := dglGetProcAddress('glSetFragmentShaderConstantATI');
-end;
-
-procedure Read_GL_ATI_map_object_buffer;
-begin
-  glMapObjectBufferATI := dglGetProcAddress('glMapObjectBufferATI');
-  glUnmapObjectBufferATI := dglGetProcAddress('glUnmapObjectBufferATI');
-end;
-
-procedure Read_GL_ATI_pn_triangles;
-begin
-  glPNTrianglesiATI := dglGetProcAddress('glPNTrianglesiATI');
-  glPNTrianglesfATI := dglGetProcAddress('glPNTrianglesfATI');
-end;
-
-procedure Read_GL_ATI_separate_stencil;
-begin
-  glStencilOpSeparateATI := dglGetProcAddress('glStencilOpSeparateATI');
-  glStencilFuncSeparateATI := dglGetProcAddress('glStencilFuncSeparateATI');
-end;
-
-procedure Read_GL_ATI_vertex_array_object;
-begin
-  glNewObjectBufferATI := dglGetProcAddress('glNewObjectBufferATI');
-  glIsObjectBufferATI := dglGetProcAddress('glIsObjectBufferATI');
-  glUpdateObjectBufferATI := dglGetProcAddress('glUpdateObjectBufferATI');
-  glGetObjectBufferfvATI := dglGetProcAddress('glGetObjectBufferfvATI');
-  glGetObjectBufferivATI := dglGetProcAddress('glGetObjectBufferivATI');
-  glFreeObjectBufferATI := dglGetProcAddress('glFreeObjectBufferATI');
-  glArrayObjectATI := dglGetProcAddress('glArrayObjectATI');
-  glGetArrayObjectfvATI := dglGetProcAddress('glGetArrayObjectfvATI');
-  glGetArrayObjectivATI := dglGetProcAddress('glGetArrayObjectivATI');
-  glVariantArrayObjectATI := dglGetProcAddress('glVariantArrayObjectATI');
-  glGetVariantArrayObjectfvATI := dglGetProcAddress('glGetVariantArrayObjectfvATI');
-  glGetVariantArrayObjectivATI := dglGetProcAddress('glGetVariantArrayObjectivATI');
-
-end;
-
-procedure Read_GL_ATI_vertex_attrib_array_object;
-begin
-  glVertexAttribArrayObjectATI := dglGetProcAddress('glVertexAttribArrayObjectATI');
-  glGetVertexAttribArrayObjectfvATI := dglGetProcAddress('glGetVertexAttribArrayObjectfvATI');
-  glGetVertexAttribArrayObjectivATI := dglGetProcAddress('glGetVertexAttribArrayObjectivATI');
-end;
-
-procedure Read_GL_ATI_vertex_streams;
-begin
-  glVertexStream1sATI := dglGetProcAddress('glVertexStream1sATI');
-  glVertexStream1svATI := dglGetProcAddress('glVertexStream1svATI');
-  glVertexStream1iATI := dglGetProcAddress('glVertexStream1iATI');
-  glVertexStream1ivATI := dglGetProcAddress('glVertexStream1ivATI');
-  glVertexStream1fATI := dglGetProcAddress('glVertexStream1fATI');
-  glVertexStream1fvATI := dglGetProcAddress('glVertexStream1fvATI');
-  glVertexStream1dATI := dglGetProcAddress('glVertexStream1dATI');
-  glVertexStream1dvATI := dglGetProcAddress('glVertexStream1dvATI');
-  glVertexStream2sATI := dglGetProcAddress('glVertexStream2sATI');
-  glVertexStream2svATI := dglGetProcAddress('glVertexStream2svATI');
-  glVertexStream2iATI := dglGetProcAddress('glVertexStream2iATI');
-  glVertexStream2ivATI := dglGetProcAddress('glVertexStream2ivATI');
-  glVertexStream2fATI := dglGetProcAddress('glVertexStream2fATI');
-  glVertexStream2fvATI := dglGetProcAddress('glVertexStream2fvATI');
-  glVertexStream2dATI := dglGetProcAddress('glVertexStream2dATI');
-  glVertexStream2dvATI := dglGetProcAddress('glVertexStream2dvATI');
-  glVertexStream3sATI := dglGetProcAddress('glVertexStream3sATI');
-  glVertexStream3svATI := dglGetProcAddress('glVertexStream3svATI');
-  glVertexStream3iATI := dglGetProcAddress('glVertexStream3iATI');
-  glVertexStream3ivATI := dglGetProcAddress('glVertexStream3ivATI');
-  glVertexStream3fATI := dglGetProcAddress('glVertexStream3fATI');
-  glVertexStream3fvATI := dglGetProcAddress('glVertexStream3fvATI');
-  glVertexStream3dATI := dglGetProcAddress('glVertexStream3dATI');
-  glVertexStream3dvATI := dglGetProcAddress('glVertexStream3dvATI');
-  glVertexStream4sATI := dglGetProcAddress('glVertexStream4sATI');
-  glVertexStream4svATI := dglGetProcAddress('glVertexStream4svATI');
-  glVertexStream4iATI := dglGetProcAddress('glVertexStream4iATI');
-  glVertexStream4ivATI := dglGetProcAddress('glVertexStream4ivATI');
-  glVertexStream4fATI := dglGetProcAddress('glVertexStream4fATI');
-  glVertexStream4fvATI := dglGetProcAddress('glVertexStream4fvATI');
-  glVertexStream4dATI := dglGetProcAddress('glVertexStream4dATI');
-  glVertexStream4dvATI := dglGetProcAddress('glVertexStream4dvATI');
-  glNormalStream3bATI := dglGetProcAddress('glNormalStream3bATI');
-  glNormalStream3bvATI := dglGetProcAddress('glNormalStream3bvATI');
-  glNormalStream3sATI := dglGetProcAddress('glNormalStream3sATI');
-  glNormalStream3svATI := dglGetProcAddress('glNormalStream3svATI');
-  glNormalStream3iATI := dglGetProcAddress('glNormalStream3iATI');
-  glNormalStream3ivATI := dglGetProcAddress('glNormalStream3ivATI');
-  glNormalStream3fATI := dglGetProcAddress('glNormalStream3fATI');
-  glNormalStream3fvATI := dglGetProcAddress('glNormalStream3fvATI');
-  glNormalStream3dATI := dglGetProcAddress('glNormalStream3dATI');
-  glNormalStream3dvATI := dglGetProcAddress('glNormalStream3dvATI');
-  glClientActiveVertexStreamATI := dglGetProcAddress('glClientActiveVertexStreamATI');
-  glVertexBlendEnviATI := dglGetProcAddress('glVertexBlendEnviATI');
-  glVertexBlendEnvfATI := dglGetProcAddress('glVertexBlendEnvfATI');
-end;
-
-procedure Read_GL_AMD_performance_monitor;
-begin
-  glGetPerfMonitorGroupsAMD := dglGetProcAddress('glGetPerfMonitorGroupsAMD');
-  glGetPerfMonitorCountersAMD := dglGetProcAddress('glGetPerfMonitorCountersAMD');
-  glGetPerfMonitorGroupStringAMD := dglGetProcAddress('glGetPerfMonitorGroupStringAMD');
-  glGetPerfMonitorCounterStringAMD := dglGetProcAddress('glGetPerfMonitorCounterStringAMD');
-  glGetPerfMonitorCounterInfoAMD := dglGetProcAddress('glGetPerfMonitorCounterInfoAMD');
-  glGenPerfMonitorsAMD := dglGetProcAddress('glGenPerfMonitorsAMD');
-  glDeletePerfMonitorsAMD := dglGetProcAddress('glDeletePerfMonitorsAMD');
-  glSelectPerfMonitorCountersAMD := dglGetProcAddress('glSelectPerfMonitorCountersAMD');
-  glBeginPerfMonitorAMD := dglGetProcAddress('glBeginPerfMonitorAMD');
-  glEndPerfMonitorAMD := dglGetProcAddress('glEndPerfMonitorAMD');
-  glGetPerfMonitorCounterDataAMD := dglGetProcAddress('glGetPerfMonitorCounterDataAMD');
-end;
-
-procedure Read_GL_EXT_blend_color;
-begin
-  glBlendColorEXT := dglGetProcAddress('glBlendColorEXT');
-end;
-
-procedure Read_GL_EXT_blend_func_separate;
-begin
-  glBlendFuncSeparateEXT := dglGetProcAddress('glBlendFuncSeparateEXT');
-end;
-
-procedure Read_GL_EXT_blend_minmax;
-begin
-  glBlendEquationEXT := dglGetProcAddress('glBlendEquationEXT');
-end;
-
-procedure Read_GL_EXT_color_subtable;
-begin
-  glColorSubTableEXT := dglGetProcAddress('glColorSubTableEXT');
-  glCopyColorSubTableEXT := dglGetProcAddress('glCopyColorSubTableEXT');
-end;
-
-procedure Read_GL_EXT_compiled_vertex_array;
-begin
-  glLockArraysEXT := dglGetProcAddress('glLockArraysEXT');
-  glUnlockArraysEXT := dglGetProcAddress('glUnlockArraysEXT');
-end;
-
-procedure Read_GL_EXT_convolution;
-begin
-  glConvolutionFilter1DEXT := dglGetProcAddress('glConvolutionFilter1DEXT');
-  glConvolutionFilter2DEXT := dglGetProcAddress('glConvolutionFilter2DEXT');
-  glConvolutionParameterfEXT := dglGetProcAddress('glConvolutionParameterfEXT');
-  glConvolutionParameterfvEXT := dglGetProcAddress('glConvolutionParameterfvEXT');
-  glConvolutionParameteriEXT := dglGetProcAddress('glConvolutionParameteriEXT');
-  glConvolutionParameterivEXT := dglGetProcAddress('glConvolutionParameterivEXT');
-  glCopyConvolutionFilter1DEXT := dglGetProcAddress('glCopyConvolutionFilter1DEXT');
-  glCopyConvolutionFilter2DEXT := dglGetProcAddress('glCopyConvolutionFilter2DEXT');
-  glGetConvolutionFilterEXT := dglGetProcAddress('glGetConvolutionFilterEXT');
-  glGetConvolutionParameterfvEXT := dglGetProcAddress('glGetConvolutionParameterfvEXT');
-  glGetConvolutionParameterivEXT := dglGetProcAddress('glGetConvolutionParameterivEXT');
-  glGetSeparableFilterEXT := dglGetProcAddress('glGetSeparableFilterEXT');
-  glSeparableFilter2DEXT := dglGetProcAddress('glSeparableFilter2DEXT');
-end;
-
-procedure Read_GL_EXT_coordinate_frame;
-begin
-  glTangent3bEXT := dglGetProcAddress('glTangent3bEXT');
-  glTangent3bvEXT := dglGetProcAddress('glTangent3bvEXT');
-  glTangent3dEXT := dglGetProcAddress('glTangent3dEXT');
-  glTangent3dvEXT := dglGetProcAddress('glTangent3dvEXT');
-  glTangent3fEXT := dglGetProcAddress('glTangent3fEXT');
-  glTangent3fvEXT := dglGetProcAddress('glTangent3fvEXT');
-  glTangent3iEXT := dglGetProcAddress('glTangent3iEXT');
-  glTangent3ivEXT := dglGetProcAddress('glTangent3ivEXT');
-  glTangent3sEXT := dglGetProcAddress('glTangent3sEXT');
-  glTangent3svEXT := dglGetProcAddress('glTangent3svEXT');
-  glBinormal3bEXT := dglGetProcAddress('glBinormal3bEXT');
-  glBinormal3bvEXT := dglGetProcAddress('glBinormal3bvEXT');
-  glBinormal3dEXT := dglGetProcAddress('glBinormal3dEXT');
-  glBinormal3dvEXT := dglGetProcAddress('glBinormal3dvEXT');
-  glBinormal3fEXT := dglGetProcAddress('glBinormal3fEXT');
-  glBinormal3fvEXT := dglGetProcAddress('glBinormal3fvEXT');
-  glBinormal3iEXT := dglGetProcAddress('glBinormal3iEXT');
-  glBinormal3ivEXT := dglGetProcAddress('glBinormal3ivEXT');
-  glBinormal3sEXT := dglGetProcAddress('glBinormal3sEXT');
-  glBinormal3svEXT := dglGetProcAddress('glBinormal3svEXT');
-  glTangentPointerEXT := dglGetProcAddress('glTangentPointerEXT');
-  glBinormalPointerEXT := dglGetProcAddress('glBinormalPointerEXT');
-end;
-
-procedure Read_GL_EXT_copy_texture;
-begin
-  glCopyTexImage1DEXT := dglGetProcAddress('glCopyTexImage1DEXT');
-  glCopyTexImage2DEXT := dglGetProcAddress('glCopyTexImage2DEXT');
-  glCopyTexSubImage1DEXT := dglGetProcAddress('glCopyTexSubImage1DEXT');
-  glCopyTexSubImage2DEXT := dglGetProcAddress('glCopyTexSubImage2DEXT');
-  glCopyTexSubImage3DEXT := dglGetProcAddress('glCopyTexSubImage3DEXT');
-end;
-
-procedure Read_GL_EXT_cull_vertex;
-begin
-  glCullParameterdvEXT := dglGetProcAddress('glCullParameterdvEXT');
-  glCullParameterfvEXT := dglGetProcAddress('glCullParameterfvEXT');
-end;
-
-procedure Read_GL_EXT_draw_range_elements;
-begin
-  glDrawRangeElementsEXT := dglGetProcAddress('glDrawRangeElementsEXT');
-end;
-
-procedure Read_GL_EXT_fog_coord;
-begin
-  glFogCoordfEXT := dglGetProcAddress('glFogCoordfEXT');
-  glFogCoordfvEXT := dglGetProcAddress('glFogCoordfvEXT');
-  glFogCoorddEXT := dglGetProcAddress('glFogCoorddEXT');
-  glFogCoorddvEXT := dglGetProcAddress('glFogCoorddvEXT');
-  glFogCoordPointerEXT := dglGetProcAddress('glFogCoordPointerEXT');
-end;
-
-procedure Read_GL_EXT_framebuffer_object;
-begin
-  glIsRenderbufferEXT := dglGetProcAddress('glIsRenderbufferEXT');
-  glBindRenderbufferEXT := dglGetProcAddress('glBindRenderbufferEXT');
-  glDeleteRenderbuffersEXT := dglGetProcAddress('glDeleteRenderbuffersEXT');
-  glGenRenderbuffersEXT := dglGetProcAddress('glGenRenderbuffersEXT');
-  glRenderbufferStorageEXT := dglGetProcAddress('glRenderbufferStorageEXT');
-  glGetRenderbufferParameterivEXT := dglGetProcAddress('glGetRenderbufferParameterivEXT');
-  glIsFramebufferEXT := dglGetProcAddress('glIsFramebufferEXT');
-  glBindFramebufferEXT := dglGetProcAddress('glBindFramebufferEXT');
-  glDeleteFramebuffersEXT := dglGetProcAddress('glDeleteFramebuffersEXT');
-  glGenFramebuffersEXT := dglGetProcAddress('glGenFramebuffersEXT');
-  glCheckFramebufferStatusEXT := dglGetProcAddress('glCheckFramebufferStatusEXT');
-  glFramebufferTexture1DEXT := dglGetProcAddress('glFramebufferTexture1DEXT');
-  glFramebufferTexture2DEXT := dglGetProcAddress('glFramebufferTexture2DEXT');
-  glFramebufferTexture3DEXT := dglGetProcAddress('glFramebufferTexture3DEXT');
-  glFramebufferRenderbufferEXT := dglGetProcAddress('glFramebufferRenderbufferEXT');
-  glGetFramebufferAttachmentParameterivEXT := dglGetProcAddress('glGetFramebufferAttachmentParameterivEXT');
-  glGenerateMipmapEXT := dglGetProcAddress('glGenerateMipmapEXT');
-end;
-
-procedure Read_GL_EXT_histogram;
-begin
-  glGetHistogramEXT := dglGetProcAddress('glGetHistogramEXT');
-  glGetHistogramParameterfvEXT := dglGetProcAddress('glGetHistogramParameterfvEXT');
-  glGetHistogramParameterivEXT := dglGetProcAddress('glGetHistogramParameterivEXT');
-  glGetMinmaxEXT := dglGetProcAddress('glGetMinmaxEXT');
-  glGetMinmaxParameterfvEXT := dglGetProcAddress('glGetMinmaxParameterfvEXT');
-  glGetMinmaxParameterivEXT := dglGetProcAddress('glGetMinmaxParameterivEXT');
-  glHistogramEXT := dglGetProcAddress('glHistogramEXT');
-  glMinmaxEXT := dglGetProcAddress('glMinmaxEXT');
-  glResetHistogramEXT := dglGetProcAddress('glResetHistogramEXT');
-  glResetMinmaxEXT := dglGetProcAddress('glResetMinmaxEXT');
-end;
-
-procedure Read_GL_EXT_index_func;
-begin
-  glIndexFuncEXT := dglGetProcAddress('glIndexFuncEXT');
-end;
-
-procedure Read_GL_EXT_index_material;
-begin
-  glIndexMaterialEXT := dglGetProcAddress('glIndexMaterialEXT');
-end;
-
-procedure Read_GL_EXT_light_texture;
-begin
-  glApplyTextureEXT := dglGetProcAddress('glApplyTextureEXT');
-  glTextureLightEXT := dglGetProcAddress('glTextureLightEXT');
-  glTextureMaterialEXT := dglGetProcAddress('glTextureMaterialEXT');
-end;
-
-procedure Read_GL_EXT_multi_draw_arrays;
-begin
-  glMultiDrawArraysEXT := dglGetProcAddress('glMultiDrawArraysEXT');
-  glMultiDrawElementsEXT := dglGetProcAddress('glMultiDrawElementsEXT');
-end;
-
-procedure Read_GL_EXT_multisample;
-begin
-  glSampleMaskEXT := dglGetProcAddress('glSampleMaskEXT');
-  glSamplePatternEXT := dglGetProcAddress('glSamplePatternEXT');
-end;
-
-procedure Read_GL_EXT_paletted_texture;
-begin
-  glColorTableEXT := dglGetProcAddress('glColorTableEXT');
-  glGetColorTableEXT := dglGetProcAddress('glGetColorTableEXT');
-  glGetColorTableParameterivEXT := dglGetProcAddress('glGetColorTableParameterivEXT');
-  glGetColorTableParameterfvEXT := dglGetProcAddress('glGetColorTableParameterfvEXT');
-end;
-
-procedure Read_GL_EXT_pixel_transform;
-begin
-  glPixelTransformParameteriEXT := dglGetProcAddress('glPixelTransformParameteriEXT');
-  glPixelTransformParameterfEXT := dglGetProcAddress('glPixelTransformParameterfEXT');
-  glPixelTransformParameterivEXT := dglGetProcAddress('glPixelTransformParameterivEXT');
-  glPixelTransformParameterfvEXT := dglGetProcAddress('glPixelTransformParameterfvEXT');
-end;
-
-procedure Read_GL_EXT_point_parameters;
-begin
-  glPointParameterfEXT := dglGetProcAddress('glPointParameterfEXT');
-  glPointParameterfvEXT := dglGetProcAddress('glPointParameterfvEXT');
-end;
-
-procedure Read_GL_EXT_polygon_offset;
-begin
-  glPolygonOffsetEXT := dglGetProcAddress('glPolygonOffsetEXT');
-end;
-
-procedure Read_GL_EXT_secondary_color;
-begin
-  glSecondaryColor3bEXT := dglGetProcAddress('glSecondaryColor3bEXT');
-  glSecondaryColor3bvEXT := dglGetProcAddress('glSecondaryColor3bvEXT');
-  glSecondaryColor3dEXT := dglGetProcAddress('glSecondaryColor3dEXT');
-  glSecondaryColor3dvEXT := dglGetProcAddress('glSecondaryColor3dvEXT');
-  glSecondaryColor3fEXT := dglGetProcAddress('glSecondaryColor3fEXT');
-  glSecondaryColor3fvEXT := dglGetProcAddress('glSecondaryColor3fvEXT');
-  glSecondaryColor3iEXT := dglGetProcAddress('glSecondaryColor3iEXT');
-  glSecondaryColor3ivEXT := dglGetProcAddress('glSecondaryColor3ivEXT');
-  glSecondaryColor3sEXT := dglGetProcAddress('glSecondaryColor3sEXT');
-  glSecondaryColor3svEXT := dglGetProcAddress('glSecondaryColor3svEXT');
-  glSecondaryColor3ubEXT := dglGetProcAddress('glSecondaryColor3ubEXT');
-  glSecondaryColor3ubvEXT := dglGetProcAddress('glSecondaryColor3ubvEXT');
-  glSecondaryColor3uiEXT := dglGetProcAddress('glSecondaryColor3uiEXT');
-  glSecondaryColor3uivEXT := dglGetProcAddress('glSecondaryColor3uivEXT');
-  glSecondaryColor3usEXT := dglGetProcAddress('glSecondaryColor3usEXT');
-  glSecondaryColor3usvEXT := dglGetProcAddress('glSecondaryColor3usvEXT');
-  glSecondaryColorPointerEXT := dglGetProcAddress('glSecondaryColorPointerEXT');
-end;
-
-procedure Read_GL_EXT_stencil_two_side;
-begin
-  glActiveStencilFaceEXT := dglGetProcAddress('glActiveStencilFaceEXT');
-end;
-
-procedure Read_GL_EXT_subtexture;
-begin
-  glTexSubImage1DEXT := dglGetProcAddress('glTexSubImage1DEXT');
-  glTexSubImage2DEXT := dglGetProcAddress('glTexSubImage2DEXT');
-end;
-
-procedure Read_GL_EXT_texture3D;
-begin
-  glTexImage3DEXT := dglGetProcAddress('glTexImage3DEXT');
-  glTexSubImage3DEXT := dglGetProcAddress('glTexSubImage3DEXT');
-end;
-
-procedure Read_GL_EXT_texture_object;
-begin
-  glAreTexturesResidentEXT := dglGetProcAddress('glAreTexturesResidentEXT');
-  glBindTextureEXT := dglGetProcAddress('glBindTextureEXT');
-  glDeleteTexturesEXT := dglGetProcAddress('glDeleteTexturesEXT');
-  glGenTexturesEXT := dglGetProcAddress('glGenTexturesEXT');
-  glIsTextureEXT := dglGetProcAddress('glIsTextureEXT');
-  glPrioritizeTexturesEXT := dglGetProcAddress('glPrioritizeTexturesEXT');
-end;
-
-procedure Read_GL_EXT_texture_perturb_normal;
-begin
-  glTextureNormalEXT := dglGetProcAddress('glTextureNormalEXT');
-end;
-
-procedure Read_GL_EXT_vertex_array;
-begin
-  glArrayElementEXT := dglGetProcAddress('glArrayElementEXT');
-  glColorPointerEXT := dglGetProcAddress('glColorPointerEXT');
-  glDrawArraysEXT := dglGetProcAddress('glDrawArraysEXT');
-  glEdgeFlagPointerEXT := dglGetProcAddress('glEdgeFlagPointerEXT');
-  glGetPointervEXT := dglGetProcAddress('glGetPointervEXT');
-  glIndexPointerEXT := dglGetProcAddress('glIndexPointerEXT');
-  glNormalPointerEXT := dglGetProcAddress('glNormalPointerEXT');
-  glTexCoordPointerEXT := dglGetProcAddress('glTexCoordPointerEXT');
-  glVertexPointerEXT := dglGetProcAddress('glVertexPointerEXT');
-end;
-
-procedure Read_GL_EXT_vertex_shader;
-begin
-  glBeginVertexShaderEXT := dglGetProcAddress('glBeginVertexShaderEXT');
-  glEndVertexShaderEXT := dglGetProcAddress('glEndVertexShaderEXT');
-  glBindVertexShaderEXT := dglGetProcAddress('glBindVertexShaderEXT');
-  glGenVertexShadersEXT := dglGetProcAddress('glGenVertexShadersEXT');
-  glDeleteVertexShaderEXT := dglGetProcAddress('glDeleteVertexShaderEXT');
-  glShaderOp1EXT := dglGetProcAddress('glShaderOp1EXT');
-  glShaderOp2EXT := dglGetProcAddress('glShaderOp2EXT');
-  glShaderOp3EXT := dglGetProcAddress('glShaderOp3EXT');
-  glSwizzleEXT := dglGetProcAddress('glSwizzleEXT');
-  glWriteMaskEXT := dglGetProcAddress('glWriteMaskEXT');
-  glInsertComponentEXT := dglGetProcAddress('glInsertComponentEXT');
-  glExtractComponentEXT := dglGetProcAddress('glExtractComponentEXT');
-  glGenSymbolsEXT := dglGetProcAddress('glGenSymbolsEXT');
-  glSetInvariantEXT := dglGetProcAddress('glSetInvariantEXT');
-  glSetLocalConstantEXT := dglGetProcAddress('glSetLocalConstantEXT');
-  glVariantbvEXT := dglGetProcAddress('glVariantbvEXT');
-  glVariantsvEXT := dglGetProcAddress('glVariantsvEXT');
-  glVariantivEXT := dglGetProcAddress('glVariantivEXT');
-  glVariantfvEXT := dglGetProcAddress('glVariantfvEXT');
-  glVariantdvEXT := dglGetProcAddress('glVariantdvEXT');
-  glVariantubvEXT := dglGetProcAddress('glVariantubvEXT');
-  glVariantusvEXT := dglGetProcAddress('glVariantusvEXT');
-  glVariantuivEXT := dglGetProcAddress('glVariantuivEXT');
-  glVariantPointerEXT := dglGetProcAddress('glVariantPointerEXT');
-  glEnableVariantClientStateEXT := dglGetProcAddress('glEnableVariantClientStateEXT');
-  glDisableVariantClientStateEXT := dglGetProcAddress('glDisableVariantClientStateEXT');
-  glBindLightParameterEXT := dglGetProcAddress('glBindLightParameterEXT');
-  glBindMaterialParameterEXT := dglGetProcAddress('glBindMaterialParameterEXT');
-  glBindTexGenParameterEXT := dglGetProcAddress('glBindTexGenParameterEXT');
-  glBindTextureUnitParameterEXT := dglGetProcAddress('glBindTextureUnitParameterEXT');
-  glBindParameterEXT := dglGetProcAddress('glBindParameterEXT');
-  glIsVariantEnabledEXT := dglGetProcAddress('glIsVariantEnabledEXT');
-  glGetVariantBooleanvEXT := dglGetProcAddress('glGetVariantBooleanvEXT');
-  glGetVariantIntegervEXT := dglGetProcAddress('glGetVariantIntegervEXT');
-  glGetVariantFloatvEXT := dglGetProcAddress('glGetVariantFloatvEXT');
-  glGetVariantPointervEXT := dglGetProcAddress('glGetVariantPointervEXT');
-  glGetInvariantBooleanvEXT := dglGetProcAddress('glGetInvariantBooleanvEXT');
-  glGetInvariantIntegervEXT := dglGetProcAddress('glGetInvariantIntegervEXT');
-  glGetInvariantFloatvEXT := dglGetProcAddress('glGetInvariantFloatvEXT');
-  glGetLocalConstantBooleanvEXT := dglGetProcAddress('glGetLocalConstantBooleanvEXT');
-  glGetLocalConstantIntegervEXT := dglGetProcAddress('glGetLocalConstantIntegervEXT');
-  glGetLocalConstantFloatvEXT := dglGetProcAddress('glGetLocalConstantFloatvEXT');
-end;
-
-procedure Read_GL_EXT_vertex_weighting;
-begin
-  glVertexWeightfEXT := dglGetProcAddress('glVertexWeightfEXT');
-  glVertexWeightfvEXT := dglGetProcAddress('glVertexWeightfvEXT');
-  glVertexWeightPointerEXT := dglGetProcAddress('glVertexWeightPointerEXT');
-end;
-
-procedure Read_GL_EXT_depth_bounds_test;
-begin
-  glImageTransformParameteriHP := dglGetProcAddress('glImageTransformParameteriHP');
-  glDepthBoundsEXT := dglGetProcAddress('glDepthBoundsEXT');
-end;
-
-procedure Read_GL_EXT_blend_equation_separate;
-begin
-  glBlendEquationSeparateEXT := dglGetProcAddress('glBlendEquationSeparateEXT');
-end;
-
-procedure Read_GL_EXT_stencil_clear_tag;
-begin
-  glStencilClearTagEXT := dglGetProcAddress('glStencilClearTagEXT');
-end;
-
-procedure Read_GL_EXT_framebuffer_blit;
-begin
-  glBlitFramebufferEXT := dglGetProcAddress('glBlitFramebufferEXT');
-end;
-
-procedure Read_GL_EXT_framebuffer_multisample;
-begin
-  glRenderbufferStorageMultisampleEXT := dglGetProcAddress('glRenderbufferStorageMultisampleEXT');
-end;
-
-procedure Read_GL_EXT_timer_query;
-begin
-  glGetQueryObjecti64vEXT := dglGetProcAddress('glGetQueryObjecti64vEXT');
-  glGetQueryObjectui64vEXT := dglGetProcAddress('glGetQueryObjectui64vEXT');
-end;
-
-procedure Read_GL_EXT_gpu_program_parameters;
-begin
-  glProgramEnvParameters4fvEXT := dglGetProcAddress('glProgramEnvParameters4fvEXT');
-  glProgramLocalParameters4fvEXT := dglGetProcAddress('glProgramLocalParameters4fvEXT');
-end;
-
-procedure Read_GL_EXT_bindable_uniform;
-begin
-  glUniformBufferEXT := dglGetProcAddress('glUniformBufferEXT');
-  glGetUniformBufferSizeEXT := dglGetProcAddress('glGetUniformBufferSizeEXT');
-  glGetUniformOffsetEXT := dglGetProcAddress('glGetUniformOffsetEXT');
-end;
-
-procedure Read_GL_EXT_draw_buffers2;
-begin
-  glColorMaskIndexedEXT := dglGetProcAddress('glColorMaskIndexedEXT');
-  glGetBooleanIndexedvEXT := dglGetProcAddress('glGetBooleanIndexedvEXT');
-  glGetIntegerIndexedvEXT := dglGetProcAddress('glGetIntegerIndexedvEXT');
-  glEnableIndexedEXT := dglGetProcAddress('glEnableIndexedEXT');
-  glDisableIndexedEXT := dglGetProcAddress('glDisableIndexedEXT');
-  glIsEnabledIndexedEXT := dglGetProcAddress('glIsEnabledIndexedEXT');
-end;
-
-procedure Read_GL_EXT_draw_instanced;
-begin
-  glDrawArraysInstancedEXT := dglGetProcAddress('glDrawArraysInstancedEXT');
-  glDrawElementsInstancedEXT := dglGetProcAddress('glDrawElementsInstancedEXT');
-end;
-
-procedure Read_GL_EXT_geometry_shader4;
-begin
-  glProgramParameteriEXT := dglGetProcAddress('glProgramParameteriEXT');
-  glFramebufferTextureEXT := dglGetProcAddress('glFramebufferTextureEXT');
-//  glFramebufferTextureLayerEXT := dglGetProcAddress('glFramebufferTextureLayerEXT');
-  glFramebufferTextureFaceEXT := dglGetProcAddress('glFramebufferTextureFaceEXT');
-end;
-
-procedure Read_GL_EXT_gpu_shader4;
-begin
-  glVertexAttribI1iEXT := dglGetProcAddress('glVertexAttribI1iEXT');
-  glVertexAttribI2iEXT := dglGetProcAddress('glVertexAttribI2iEXT');
-  glVertexAttribI3iEXT := dglGetProcAddress('glVertexAttribI3iEXT');
-  glVertexAttribI4iEXT := dglGetProcAddress('glVertexAttribI4iEXT');
-  glVertexAttribI1uiEXT := dglGetProcAddress('glVertexAttribI1uiEXT');
-  glVertexAttribI2uiEXT := dglGetProcAddress('glVertexAttribI2uiEXT');
-  glVertexAttribI3uiEXT := dglGetProcAddress('glVertexAttribI3uiEXT');
-  glVertexAttribI4uiEXT := dglGetProcAddress('glVertexAttribI4uiEXT');
-  glVertexAttribI1ivEXT := dglGetProcAddress('glVertexAttribI1ivEXT');
-  glVertexAttribI2ivEXT := dglGetProcAddress('glVertexAttribI2ivEXT');
-  glVertexAttribI3ivEXT := dglGetProcAddress('glVertexAttribI3ivEXT');
-  glVertexAttribI4ivEXT := dglGetProcAddress('glVertexAttribI4ivEXT');
-  glVertexAttribI1uivEXT := dglGetProcAddress('glVertexAttribI1uivEXT');
-  glVertexAttribI2uivEXT := dglGetProcAddress('glVertexAttribI2uivEXT');
-  glVertexAttribI3uivEXT := dglGetProcAddress('glVertexAttribI3uivEXT');
-  glVertexAttribI4uivEXT := dglGetProcAddress('glVertexAttribI4uivEXT');
-  glVertexAttribI4bvEXT := dglGetProcAddress('glVertexAttribI4bvEXT');
-  glVertexAttribI4svEXT := dglGetProcAddress('glVertexAttribI4svEXT');
-  glVertexAttribI4ubvEXT := dglGetProcAddress('glVertexAttribI4ubvEXT');
-  glVertexAttribI4usvEXT := dglGetProcAddress('glVertexAttribI4usvEXT');
-  glVertexAttribIPointerEXT := dglGetProcAddress('glVertexAttribIPointerEXT');
-  glGetVertexAttribIivEXT := dglGetProcAddress('glGetVertexAttribIivEXT');
-  glGetVertexAttribIuivEXT := dglGetProcAddress('glGetVertexAttribIuivEXT');
-  glUniform1uiEXT := dglGetProcAddress('glUniform1uiEXT');
-  glUniform2uiEXT := dglGetProcAddress('glUniform2uiEXT');
-  glUniform3uiEXT := dglGetProcAddress('glUniform3uiEXT');
-  glUniform4uiEXT := dglGetProcAddress('glUniform4uiEXT');
-  glUniform1uivEXT := dglGetProcAddress('glUniform1uivEXT');
-  glUniform2uivEXT := dglGetProcAddress('glUniform2uivEXT');
-  glUniform3uivEXT := dglGetProcAddress('glUniform3uivEXT');
-  glUniform4uivEXT := dglGetProcAddress('glUniform4uivEXT');
-  glGetUniformuivEXT := dglGetProcAddress('glGetUniformuivEXT');
-  glBindFragDataLocationEXT := dglGetProcAddress('glBindFragDataLocationEXT');
-  glGetFragDataLocationEXT := dglGetProcAddress('glGetFragDataLocationEXT');
-end;
-
-procedure Read_GL_EXT_texture_array;
-begin
-  glFramebufferTextureLayerEXT := dglGetProcAddress('glFramebufferTextureLayerEXT');
-end;
-
-procedure Read_GL_EXT_texture_buffer_object;
-begin
-  glTexBufferEXT := dglGetProcAddress('glTexBufferEXT');
-end;
-
-procedure Read_GL_EXT_texture_integer;
-begin
-  glClearColorIiEXT := dglGetProcAddress('glClearColorIiEXT');
-  glClearColorIuiEXT := dglGetProcAddress('glClearColorIuiEXT');
-  glTexParameterIivEXT := dglGetProcAddress('glTexParameterIivEXT');
-  glTexParameterIuivEXT := dglGetProcAddress('glTexParameterIuivEXT');
-  glGetTexParameterIivEXT := dglGetProcAddress('glGetTexParameterIivEXT');
-  glGetTexParameterIiuvEXT := dglGetProcAddress('glGetTexParameterIiuvEXT');
-end;
-
-procedure Read_GL_EXT_transform_feedback;
-begin
-  glBeginTransformFeedbackEXT := dglGetProcAddress('lBeginTransformFeedbackEXT');
-  glEndTransformFeedbackEXT := dglGetProcAddress('glEndTransformFeedbackEXT');
-  glBindBufferRangeEXT := dglGetProcAddress('glBindBufferRangeEXT');
-  glBindBufferOffsetEXT := dglGetProcAddress('glBindBufferOffsetEXT');
-  glBindBufferBaseEXT := dglGetProcAddress('glBindBufferBaseEXT');
-  glTransformFeedbackVaryingsEXT := dglGetProcAddress('glTransformFeedbackVaryingsEXT');
-  glGetTransformFeedbackVaryingEXT := dglGetProcAddress('glGetTransformFeedbackVaryingEXT');
-end;
-
-procedure Read_GL_EXT_direct_state_access;
-begin
-  glClientAttribDefaultEXT := dglGetProcAddress('glClientAttribDefaultEXT');
-  glPushClientAttribDefaultEXT := dglGetProcAddress('glPushClientAttribDefaultEXT');
-  glMatrixLoadfEXT := dglGetProcAddress('glMatrixLoadfEXT');
-  glMatrixLoaddEXT := dglGetProcAddress('glMatrixLoaddEXT');
-  glMatrixMultfEXT := dglGetProcAddress('glMatrixMultfEXT');
-  glMatrixMultdEXT := dglGetProcAddress('glMatrixMultdEXT');
-  glMatrixLoadIdentityEXT := dglGetProcAddress('glMatrixLoadIdentityEXT');
-  glMatrixRotatefEXT := dglGetProcAddress('glMatrixRotatefEXT');
-  glMatrixRotatedEXT := dglGetProcAddress('glMatrixRotatedEXT');
-  glMatrixScalefEXT := dglGetProcAddress('glMatrixScalefEXT');
-  glMatrixScaledEXT := dglGetProcAddress('glMatrixScaledEXT');
-  glMatrixTranslatefEXT := dglGetProcAddress('glMatrixTranslatefEXT');
-  glMatrixTranslatedEXT := dglGetProcAddress('glMatrixTranslatedEXT');
-  glMatrixFrustumEXT := dglGetProcAddress('glMatrixFrustumEXT');
-  glMatrixOrthoEXT := dglGetProcAddress('glMatrixOrthoEXT');
-  glMatrixPopEXT := dglGetProcAddress('glMatrixPopEXT');
-  glMatrixPushEXT := dglGetProcAddress('glMatrixPushEXT');
-  glMatrixLoadTransposefEXT := dglGetProcAddress('glMatrixLoadTransposefEXT');
-  glMatrixLoadTransposedEXT := dglGetProcAddress('glMatrixLoadTransposedEXT');
-  glMatrixMultTransposefEXT := dglGetProcAddress('glMatrixMultTransposefEXT');
-  glMatrixMultTransposedEXT := dglGetProcAddress('glMatrixMultTransposedEXT');
-  glTextureParameterfEXT := dglGetProcAddress('glTextureParameterfEXT');
-  glTextureParameterfvEXT := dglGetProcAddress('glTextureParameterfvEXT');
-  glTextureParameteriEXT := dglGetProcAddress('glTextureParameteriEXT');
-  glTextureParameterivEXT := dglGetProcAddress('glTextureParameterivEXT');
-  glTextureImage1DEXT := dglGetProcAddress('glTextureImage1DEXT');
-  glTextureImage2DEXT := dglGetProcAddress('glTextureImage2DEXT');
-  glTextureSubImage1DEXT := dglGetProcAddress('glTextureSubImage1DEXT');
-  glTextureSubImage2DEXT := dglGetProcAddress('glTextureSubImage2DEXT');
-  glCopyTextureImage1DEXT := dglGetProcAddress('glCopyTextureImage1DEXT');
-  glCopyTextureImage2DEXT := dglGetProcAddress('glCopyTextureImage2DEXT');
-  glCopyTextureSubImage1DEXT := dglGetProcAddress('glCopyTextureSubImage1DEXT');
-  glCopyTextureSubImage2DEXT := dglGetProcAddress('glCopyTextureSubImage2DEXT');
-  glGetTextureImageEXT := dglGetProcAddress('glGetTextureImageEXT');
-  glGetTextureParameterfvEXT := dglGetProcAddress('glGetTextureParameterfvEXT');
-  glGetTextureParameterivEXT := dglGetProcAddress('glGetTextureParameterivEXT');
-  glGetTextureLevelParameterfvEXT := dglGetProcAddress('glGetTextureLevelParameterfvEXT');
-  glGetTextureLevelParameterivEXT := dglGetProcAddress('glGetTextureLevelParameterivEXT');
-  glTextureImage3DEXT := dglGetProcAddress('glTextureImage3DEXT');
-  glTextureSubImage3DEXT := dglGetProcAddress('glTextureSubImage3DEXT');
-  glCopyTextureSubImage3DEXT := dglGetProcAddress('glCopyTextureSubImage3DEXT');
-  glMultiTexParameterfEXT := dglGetProcAddress('glMultiTexParameterfEXT');
-  glMultiTexParameterfvEXT := dglGetProcAddress('glMultiTexParameterfvEXT');
-  glMultiTexParameteriEXT := dglGetProcAddress('glMultiTexParameteriEXT');
-  glMultiTexParameterivEXT := dglGetProcAddress('glMultiTexParameterivEXT');
-  glMultiTexImage1DEXT := dglGetProcAddress('glMultiTexImage1DEXT');
-  glMultiTexImage2DEXT := dglGetProcAddress('glMultiTexImage2DEXT');
-  glMultiTexSubImage1DEXT := dglGetProcAddress('glMultiTexSubImage1DEXT');
-  glMultiTexSubImage2DEXT := dglGetProcAddress('glMultiTexSubImage2DEXT');
-  glCopyMultiTexImage1DEXT := dglGetProcAddress('glCopyMultiTexImage1DEXT');
-  glCopyMultiTexImage2DEXT := dglGetProcAddress('glCopyMultiTexImage2DEXT');
-  glCopyMultiTexSubImage1DEXT := dglGetProcAddress('glCopyMultiTexSubImage1DEXT');
-  glCopyMultiTexSubImage2DEXT := dglGetProcAddress('glCopyMultiTexSubImage2DEXT');
-  glGetMultiTexImageEXT := dglGetProcAddress('glGetMultiTexImageEXT');
-  glGetMultiTexParameterfvEXT := dglGetProcAddress('glGetMultiTexParameterfvEXT');
-  glGetMultiTexParameterivEXT := dglGetProcAddress('glGetMultiTexParameterivEXT');
-  glGetMultiTexLevelParameterfvEXT := dglGetProcAddress('glGetMultiTexLevelParameterfvEXT');
-  glGetMultiTexLevelParameterivEXT := dglGetProcAddress('glGetMultiTexLevelParameterivEXT');
-  glMultiTexImage3DEXT := dglGetProcAddress('glMultiTexImage3DEXT');
-  glMultiTexSubImage3DEXT := dglGetProcAddress('glMultiTexSubImage3DEXT');
-  glCopyMultiTexSubImage3DEXT := dglGetProcAddress('glCopyMultiTexSubImage3DEXT');
-  glBindMultiTextureEXT := dglGetProcAddress('glBindMultiTextureEXT');
-  glEnableClientStateIndexedEXT := dglGetProcAddress('glEnableClientStateIndexedEXT');
-  glDisableClientStateIndexedEXT := dglGetProcAddress('glDisableClientStateIndexedEXT');
-  glMultiTexCoordPointerEXT := dglGetProcAddress('glMultiTexCoordPointerEXT');
-  glMultiTexEnvfEXT := dglGetProcAddress('glMultiTexEnvfEXT');
-  glMultiTexEnvfvEXT := dglGetProcAddress('glMultiTexEnvfvEXT');
-  glMultiTexEnviEXT := dglGetProcAddress('glMultiTexEnviEXT');
-  glMultiTexEnvivEXT := dglGetProcAddress('glMultiTexEnvivEXT');
-  glMultiTexGendEXT := dglGetProcAddress('glMultiTexGendEXT');
-  glMultiTexGendvEXT := dglGetProcAddress('glMultiTexGendvEXT');
-  glMultiTexGenfEXT := dglGetProcAddress('glMultiTexGenfEXT');
-  glMultiTexGenfvEXT := dglGetProcAddress('glMultiTexGenfvEXT');
-  glMultiTexGeniEXT := dglGetProcAddress('glMultiTexGeniEXT');
-  glMultiTexGenivEXT := dglGetProcAddress('glMultiTexGenivEXT');
-  glGetMultiTexEnvfvEXT := dglGetProcAddress('glGetMultiTexEnvfvEXT');
-  glGetMultiTexEnvivEXT := dglGetProcAddress('glGetMultiTexEnvivEXT');
-  glGetMultiTexGendvEXT := dglGetProcAddress('glGetMultiTexGendvEXT');
-  glGetMultiTexGenfvEXT := dglGetProcAddress('glGetMultiTexGenfvEXT');
-  glGetMultiTexGenivEXT := dglGetProcAddress('glGetMultiTexGenivEXT');
-  glGetFloatIndexedvEXT := dglGetProcAddress('glGetFloatIndexedvEXT');
-  glGetDoubleIndexedvEXT := dglGetProcAddress('glGetDoubleIndexedvEXT');
-  glGetPointerIndexedvEXT := dglGetProcAddress('glGetPointerIndexedvEXT');
-  glCompressedTextureImage3DEXT := dglGetProcAddress('glCompressedTextureImage3DEXT');
-  glCompressedTextureImage2DEXT := dglGetProcAddress('glCompressedTextureImage2DEXT');
-  glCompressedTextureImage1DEXT := dglGetProcAddress('glCompressedTextureImage1DEXT');
-  glCompressedTextureSubImage3DEXT := dglGetProcAddress('glCompressedTextureSubImage3DEXT');
-  glCompressedTextureSubImage2DEXT := dglGetProcAddress('glCompressedTextureSubImage2DEXT');
-  glCompressedTextureSubImage1DEXT := dglGetProcAddress('glCompressedTextureSubImage1DEXT');
-  glGetCompressedTextureImageEXT := dglGetProcAddress('glGetCompressedTextureImageEXT');
-  glCompressedMultiTexImage3DEXT := dglGetProcAddress('glCompressedMultiTexImage3DEXT');
-  glCompressedMultiTexImage2DEXT := dglGetProcAddress('glCompressedMultiTexImage2DEXT');
-  glCompressedMultiTexImage1DEXT := dglGetProcAddress('glCompressedMultiTexImage1DEXT');
-  glCompressedMultiTexSubImage3DEXT := dglGetProcAddress('glCompressedMultiTexSubImage3DEXT');
-  glCompressedMultiTexSubImage2DEXT := dglGetProcAddress('glCompressedMultiTexSubImage2DEXT');
-  glCompressedMultiTexSubImage1DEXT := dglGetProcAddress('glCompressedMultiTexSubImage1DEXT');
-  glGetCompressedMultiTexImageEXT := dglGetProcAddress('glGetCompressedMultiTexImageEXT');
-  glNamedProgramStringEXT := dglGetProcAddress('glNamedProgramStringEXT');
-  glNamedProgramLocalParameter4dEXT := dglGetProcAddress('glNamedProgramLocalParameter4dEXT');
-  glNamedProgramLocalParameter4dvEXT := dglGetProcAddress('glNamedProgramLocalParameter4dvEXT');
-  glNamedProgramLocalParameter4fEXT := dglGetProcAddress('glNamedProgramLocalParameter4fEXT');
-  glNamedProgramLocalParameter4fvEXT := dglGetProcAddress('glNamedProgramLocalParameter4fvEXT');
-  glGetNamedProgramLocalParameterdvEXT := dglGetProcAddress('glGetNamedProgramLocalParameterdvEXT');
-  glGetNamedProgramLocalParameterfvEXT := dglGetProcAddress('glGetNamedProgramLocalParameterfvEXT');
-  glGetNamedProgramivEXT := dglGetProcAddress('glGetNamedProgramivEXT');
-  glGetNamedProgramStringEXT := dglGetProcAddress('glGetNamedProgramStringEXT');
-  glNamedProgramLocalParameters4fvEXT := dglGetProcAddress('glNamedProgramLocalParameters4fvEXT');
-  glNamedProgramLocalParameterI4iEXT := dglGetProcAddress('glNamedProgramLocalParameterI4iEXT');
-  glNamedProgramLocalParameterI4ivEXT := dglGetProcAddress('glNamedProgramLocalParameterI4ivEXT');
-  glNamedProgramLocalParametersI4ivEXT := dglGetProcAddress('glNamedProgramLocalParametersI4ivEXT');
-  glNamedProgramLocalParameterI4uiEXT := dglGetProcAddress('glNamedProgramLocalParameterI4uiEXT');
-  glNamedProgramLocalParameterI4uivEXT := dglGetProcAddress('glNamedProgramLocalParameterI4uivEXT');
-  glNamedProgramLocalParametersI4uivEXT := dglGetProcAddress('glNamedProgramLocalParametersI4uivEXT');
-  glGetNamedProgramLocalParameterIivEXT := dglGetProcAddress('glGetNamedProgramLocalParameterIivEXT');
-  glGetNamedProgramLocalParameterIuivEXT := dglGetProcAddress('glGetNamedProgramLocalParameterIuivEXT');
-  glTextureParameterIivEXT := dglGetProcAddress('glTextureParameterIivEXT');
-  glTextureParameterIuivEXT := dglGetProcAddress('glTextureParameterIuivEXT');
-  glGetTextureParameterIivEXT := dglGetProcAddress('glGetTextureParameterIivEXT');
-  glGetTextureParameterIuivEXT := dglGetProcAddress('glGetTextureParameterIuivEXT');
-  glMultiTexParameterIivEXT := dglGetProcAddress('glMultiTexParameterIivEXT');
-  glMultiTexParameterIuivEXT := dglGetProcAddress('glMultiTexParameterIuivEXT');
-  glGetMultiTexParameterIivEXT := dglGetProcAddress('glGetMultiTexParameterIivEXT');
-  glGetMultiTexParameterIuivEXT := dglGetProcAddress('glGetMultiTexParameterIuivEXT');
-  glProgramUniform1fEXT := dglGetProcAddress('glProgramUniform1fEXT');
-  glProgramUniform2fEXT := dglGetProcAddress('glProgramUniform2fEXT');
-  glProgramUniform3fEXT := dglGetProcAddress('glProgramUniform3fEXT');
-  glProgramUniform4fEXT := dglGetProcAddress('glProgramUniform4fEXT');
-  glProgramUniform1iEXT := dglGetProcAddress('glProgramUniform1iEXT');
-  glProgramUniform2iEXT := dglGetProcAddress('glProgramUniform2iEXT');
-  glProgramUniform3iEXT := dglGetProcAddress('glProgramUniform3iEXT');
-  glProgramUniform4iEXT := dglGetProcAddress('glProgramUniform4iEXT');
-  glProgramUniform1fvEXT := dglGetProcAddress('glProgramUniform1fvEXT');
-  glProgramUniform2fvEXT := dglGetProcAddress('glProgramUniform2fvEXT');
-  glProgramUniform3fvEXT := dglGetProcAddress('glProgramUniform3fvEXT');
-  glProgramUniform4fvEXT := dglGetProcAddress('glProgramUniform4fvEXT');
-  glProgramUniform1ivEXT := dglGetProcAddress('glProgramUniform1ivEXT');
-  glProgramUniform2ivEXT := dglGetProcAddress('glProgramUniform2ivEXT');
-  glProgramUniform3ivEXT := dglGetProcAddress('glProgramUniform3ivEXT');
-  glProgramUniform4ivEXT := dglGetProcAddress('glProgramUniform4ivEXT');
-  glProgramUniformMatrix2fvEXT := dglGetProcAddress('glProgramUniformMatrix2fvEXT');
-  glProgramUniformMatrix3fvEXT := dglGetProcAddress('glProgramUniformMatrix3fvEXT');
-  glProgramUniformMatrix4fvEXT := dglGetProcAddress('glProgramUniformMatrix4fvEXT');
-  glProgramUniformMatrix2x3fvEXT := dglGetProcAddress('glProgramUniformMatrix2x3fvEXT');
-  glProgramUniformMatrix3x2fvEXT := dglGetProcAddress('glProgramUniformMatrix3x2fvEXT');
-  glProgramUniformMatrix2x4fvEXT := dglGetProcAddress('glProgramUniformMatrix2x4fvEXT');
-  glProgramUniformMatrix4x2fvEXT := dglGetProcAddress('glProgramUniformMatrix4x2fvEXT');
-  glProgramUniformMatrix3x4fvEXT := dglGetProcAddress('glProgramUniformMatrix3x4fvEXT');
-  glProgramUniformMatrix4x3fvEXT := dglGetProcAddress('glProgramUniformMatrix4x3fvEXT');
-  glProgramUniform1uiEXT := dglGetProcAddress('glProgramUniform1uiEXT');
-  glProgramUniform2uiEXT := dglGetProcAddress('glProgramUniform2uiEXT');
-  glProgramUniform3uiEXT := dglGetProcAddress('glProgramUniform3uiEXT');
-  glProgramUniform4uiEXT := dglGetProcAddress('glProgramUniform4uiEXT');
-  glProgramUniform1uivEXT := dglGetProcAddress('glProgramUniform1uivEXT');
-  glProgramUniform2uivEXT := dglGetProcAddress('glProgramUniform2uivEXT');
-  glProgramUniform3uivEXT := dglGetProcAddress('glProgramUniform3uivEXT');
-  glProgramUniform4uivEXT := dglGetProcAddress('glProgramUniform4uivEXT');
-  glNamedBufferDataEXT := dglGetProcAddress('glNamedBufferDataEXT');
-  glNamedBufferSubDataEXT := dglGetProcAddress('glNamedBufferSubDataEXT');
-  glMapNamedBufferEXT := dglGetProcAddress('glMapNamedBufferEXT');
-  glUnmapNamedBufferEXT := dglGetProcAddress('glUnmapNamedBufferEXT');
-  glGetNamedBufferParameterivEXT := dglGetProcAddress('glGetNamedBufferParameterivEXT');
-  glGetNamedBufferPointervEXT := dglGetProcAddress('glGetNamedBufferPointervEXT');
-  glGetNamedBufferSubDataEXT := dglGetProcAddress('glGetNamedBufferSubDataEXT');
-  glTextureBufferEXT := dglGetProcAddress('glTextureBufferEXT');
-  glMultiTexBufferEXT := dglGetProcAddress('glMultiTexBufferEXT');
-  glNamedRenderbufferStorageEXT := dglGetProcAddress('glNamedRenderbufferStorageEXT');
-  glGetNamedRenderbufferParameterivEXT := dglGetProcAddress('glGetNamedRenderbufferParameterivEXT');
-  glCheckNamedFramebufferStatusEXT := dglGetProcAddress('glCheckNamedFramebufferStatusEXT');
-  glNamedFramebufferTexture1DEXT := dglGetProcAddress('glNamedFramebufferTexture1DEXT');
-  glNamedFramebufferTexture2DEXT := dglGetProcAddress('glNamedFramebufferTexture2DEXT');
-  glNamedFramebufferTexture3DEXT := dglGetProcAddress('glNamedFramebufferTexture3DEXT');
-  glNamedFramebufferRenderbufferEXT := dglGetProcAddress('glNamedFramebufferRenderbufferEXT');
-  glGetNamedFramebufferAttachmentParameterivEXT := dglGetProcAddress('glGetNamedFramebufferAttachmentParameterivEXT');
-  glGenerateTextureMipmapEXT := dglGetProcAddress('glGenerateTextureMipmapEXT');
-  glGenerateMultiTexMipmapEXT := dglGetProcAddress('glGenerateMultiTexMipmapEXT');
-  glFramebufferDrawBufferEXT := dglGetProcAddress('glFramebufferDrawBufferEXT');
-  glFramebufferDrawBuffersEXT := dglGetProcAddress('glFramebufferDrawBuffersEXT');
-  glFramebufferReadBufferEXT := dglGetProcAddress('glFramebufferReadBufferEXT');
-  glGetFramebufferParameterivEXT := dglGetProcAddress('glGetFramebufferParameterivEXT');
-  glNamedRenderbufferStorageMultisampleEXT := dglGetProcAddress('glNamedRenderbufferStorageMultisampleEXT');
-  glNamedRenderbufferStorageMultisampleCoverageEXT := dglGetProcAddress('glNamedRenderbufferStorageMultisampleCoverageEXT');
-  glNamedFramebufferTextureEXT := dglGetProcAddress('glNamedFramebufferTextureEXT');
-  glNamedFramebufferTextureLayerEXT := dglGetProcAddress('glNamedFramebufferTextureLayerEXT');
-  glNamedFramebufferTextureFaceEXT := dglGetProcAddress('glNamedFramebufferTextureFaceEXT');
-  glTextureRenderbufferEXT := dglGetProcAddress('glTextureRenderbufferEXT');
-  glMultiTexRenderbufferEXT := dglGetProcAddress('glMultiTexRenderbufferEXT');
-end;
-
-procedure Read_GL_HP_image_transform;
-begin
-  glImageTransformParameteriHP := dglGetProcAddress('glImageTransformParameteriHP');
-  glImageTransformParameterfHP := dglGetProcAddress('glImageTransformParameterfHP');
-  glImageTransformParameterivHP := dglGetProcAddress('glImageTransformParameterivHP');
-  glImageTransformParameterfvHP := dglGetProcAddress('glImageTransformParameterfvHP');
-  glGetImageTransformParameterivHP := dglGetProcAddress('glGetImageTransformParameterivHP');
-  glGetImageTransformParameterfvHP := dglGetProcAddress('glGetImageTransformParameterfvHP');
-end;
-
-procedure Read_GL_IBM_multimode_draw_arrays;
-begin
-  glMultiModeDrawArraysIBM := dglGetProcAddress('glMultiModeDrawArraysIBM');
-  glMultiModeDrawElementsIBM := dglGetProcAddress('glMultiModeDrawElementsIBM');
-end;
-
-procedure Read_GL_IBM_vertex_array_lists;
-begin
-  glColorPointerListIBM := dglGetProcAddress('glColorPointerListIBM');
-  glSecondaryColorPointerListIBM := dglGetProcAddress('glSecondaryColorPointerListIBM');
-  glEdgeFlagPointerListIBM := dglGetProcAddress('glEdgeFlagPointerListIBM');
-  glFogCoordPointerListIBM := dglGetProcAddress('glFogCoordPointerListIBM');
-  glIndexPointerListIBM := dglGetProcAddress('glIndexPointerListIBM');
-  glNormalPointerListIBM := dglGetProcAddress('glNormalPointerListIBM');
-  glTexCoordPointerListIBM := dglGetProcAddress('glTexCoordPointerListIBM');
-  glVertexPointerListIBM := dglGetProcAddress('glVertexPointerListIBM');
-end;
-
-procedure Read_GL_INGR_blend_func_separate;
-begin
-  glBlendFuncSeparateINGR := dglGetProcAddress('glBlendFuncSeparateINGR');
-end;
-
-procedure Read_GL_INTEL_parallel_arrays;
-begin
-  glVertexPointervINTEL := dglGetProcAddress('glVertexPointervINTEL');
-  glNormalPointervINTEL := dglGetProcAddress('glNormalPointervINTEL');
-  glColorPointervINTEL := dglGetProcAddress('glColorPointervINTEL');
-  glTexCoordPointervINTEL := dglGetProcAddress('glTexCoordPointervINTEL');
-end;
-
-procedure Read_GL_MESA_resize_buffers;
-begin
-  glResizeBuffersMESA := dglGetProcAddress('glResizeBuffersMESA');
-end;
-
-procedure Read_GL_MESA_window_pos;
-begin
-  glWindowPos2dMESA := dglGetProcAddress('glWindowPos2dMESA');
-  glWindowPos2dvMESA := dglGetProcAddress('glWindowPos2dvMESA');
-  glWindowPos2fMESA := dglGetProcAddress('glWindowPos2fMESA');
-  glWindowPos2fvMESA := dglGetProcAddress('glWindowPos2fvMESA');
-  glWindowPos2iMESA := dglGetProcAddress('glWindowPos2iMESA');
-  glWindowPos2ivMESA := dglGetProcAddress('glWindowPos2ivMESA');
-  glWindowPos2sMESA := dglGetProcAddress('glWindowPos2sMESA');
-  glWindowPos2svMESA := dglGetProcAddress('glWindowPos2svMESA');
-  glWindowPos3dMESA := dglGetProcAddress('glWindowPos3dMESA');
-  glWindowPos3dvMESA := dglGetProcAddress('glWindowPos3dvMESA');
-  glWindowPos3fMESA := dglGetProcAddress('glWindowPos3fMESA');
-  glWindowPos3fvMESA := dglGetProcAddress('glWindowPos3fvMESA');
-  glWindowPos3iMESA := dglGetProcAddress('glWindowPos3iMESA');
-  glWindowPos3ivMESA := dglGetProcAddress('glWindowPos3ivMESA');
-  glWindowPos3sMESA := dglGetProcAddress('glWindowPos3sMESA');
-  glWindowPos3svMESA := dglGetProcAddress('glWindowPos3svMESA');
-  glWindowPos4dMESA := dglGetProcAddress('glWindowPos4dMESA');
-  glWindowPos4dvMESA := dglGetProcAddress('glWindowPos4dvMESA');
-  glWindowPos4fMESA := dglGetProcAddress('glWindowPos4fMESA');
-  glWindowPos4fvMESA := dglGetProcAddress('glWindowPos4fvMESA');
-  glWindowPos4iMESA := dglGetProcAddress('glWindowPos4iMESA');
-  glWindowPos4ivMESA := dglGetProcAddress('glWindowPos4ivMESA');
-  glWindowPos4sMESA := dglGetProcAddress('glWindowPos4sMESA');
-  glWindowPos4svMESA := dglGetProcAddress('glWindowPos4svMESA');
-end;
-
-procedure Read_GL_NV_evaluators;
-begin
-  glMapControlPointsNV := dglGetProcAddress('glMapControlPointsNV');
-  glMapParameterivNV := dglGetProcAddress('glMapParameterivNV');
-  glMapParameterfvNV := dglGetProcAddress('glMapParameterfvNV');
-  glGetMapControlPointsNV := dglGetProcAddress('glGetMapControlPointsNV');
-  glGetMapParameterivNV := dglGetProcAddress('glGetMapParameterivNV');
-  glGetMapParameterfvNV := dglGetProcAddress('glGetMapParameterfvNV');
-  glGetMapAttribParameterivNV := dglGetProcAddress('glGetMapAttribParameterivNV');
-  glGetMapAttribParameterfvNV := dglGetProcAddress('glGetMapAttribParameterfvNV');
-  glEvalMapsNV := dglGetProcAddress('glEvalMapsNV');
-end;
-
-procedure Read_GL_NV_fence;
-begin
-  glDeleteFencesNV := dglGetProcAddress('glDeleteFencesNV');
-  glGenFencesNV := dglGetProcAddress('glGenFencesNV');
-  glIsFenceNV := dglGetProcAddress('glIsFenceNV');
-  glTestFenceNV := dglGetProcAddress('glTestFenceNV');
-  glGetFenceivNV := dglGetProcAddress('glGetFenceivNV');
-  glFinishFenceNV := dglGetProcAddress('glFinishFenceNV');
-  glSetFenceNV := dglGetProcAddress('glSetFenceNV');
-end;
-
-procedure Read_GL_NV_fragment_program;
-begin
-  glProgramNamedParameter4fNV := dglGetProcAddress('glProgramNamedParameter4fNV');
-  glProgramNamedParameter4dNV := dglGetProcAddress('glProgramNamedParameter4dNV');
-  glProgramNamedParameter4fvNV := dglGetProcAddress('glProgramNamedParameter4fvNV');
-  glProgramNamedParameter4dvNV := dglGetProcAddress('glProgramNamedParameter4dvNV');
-  glGetProgramNamedParameterfvNV := dglGetProcAddress('glGetProgramNamedParameterfvNV');
-  glGetProgramNamedParameterdvNV := dglGetProcAddress('glGetProgramNamedParameterdvNV');
-end;
-
-procedure Read_GL_NV_half_float;
-begin
-  glVertex2hNV := dglGetProcAddress('glVertex2hNV');
-  glVertex2hvNV := dglGetProcAddress('glVertex2hvNV');
-  glVertex3hNV := dglGetProcAddress('glVertex3hNV');
-  glVertex3hvNV := dglGetProcAddress('glVertex3hvNV');
-  glVertex4hNV := dglGetProcAddress('glVertex4hNV');
-  glVertex4hvNV := dglGetProcAddress('glVertex4hvNV');
-  glNormal3hNV := dglGetProcAddress('glNormal3hNV');
-  glNormal3hvNV := dglGetProcAddress('glNormal3hvNV');
-  glColor3hNV := dglGetProcAddress('glColor3hNV');
-  glColor3hvNV := dglGetProcAddress('glColor3hvNV');
-  glColor4hNV := dglGetProcAddress('glColor4hNV');
-  glColor4hvNV := dglGetProcAddress('glColor4hvNV');
-  glTexCoord1hNV := dglGetProcAddress('glTexCoord1hNV');
-  glTexCoord1hvNV := dglGetProcAddress('glTexCoord1hvNV');
-  glTexCoord2hNV := dglGetProcAddress('glTexCoord2hNV');
-  glTexCoord2hvNV := dglGetProcAddress('glTexCoord2hvNV');
-  glTexCoord3hNV := dglGetProcAddress('glTexCoord3hNV');
-  glTexCoord3hvNV := dglGetProcAddress('glTexCoord3hvNV');
-  glTexCoord4hNV := dglGetProcAddress('glTexCoord4hNV');
-  glTexCoord4hvNV := dglGetProcAddress('glTexCoord4hvNV');
-  glMultiTexCoord1hNV := dglGetProcAddress('glMultiTexCoord1hNV');
-  glMultiTexCoord1hvNV := dglGetProcAddress('glMultiTexCoord1hvNV');
-  glMultiTexCoord2hNV := dglGetProcAddress('glMultiTexCoord2hNV');
-  glMultiTexCoord2hvNV := dglGetProcAddress('glMultiTexCoord2hvNV');
-  glMultiTexCoord3hNV := dglGetProcAddress('glMultiTexCoord3hNV');
-  glMultiTexCoord3hvNV := dglGetProcAddress('glMultiTexCoord3hvNV');
-  glMultiTexCoord4hNV := dglGetProcAddress('glMultiTexCoord4hNV');
-  glMultiTexCoord4hvNV := dglGetProcAddress('glMultiTexCoord4hvNV');
-  glFogCoordhNV := dglGetProcAddress('glFogCoordhNV');
-  glFogCoordhvNV := dglGetProcAddress('glFogCoordhvNV');
-  glSecondaryColor3hNV := dglGetProcAddress('glSecondaryColor3hNV');
-  glSecondaryColor3hvNV := dglGetProcAddress('glSecondaryColor3hvNV');
-  glVertexWeighthNV := dglGetProcAddress('glVertexWeighthNV');
-  glVertexWeighthvNV := dglGetProcAddress('glVertexWeighthvNV');
-  glVertexAttrib1hNV := dglGetProcAddress('glVertexAttrib1hNV');
-  glVertexAttrib1hvNV := dglGetProcAddress('glVertexAttrib1hvNV');
-  glVertexAttrib2hNV := dglGetProcAddress('glVertexAttrib2hNV');
-  glVertexAttrib2hvNV := dglGetProcAddress('glVertexAttrib2hvNV');
-  glVertexAttrib3hNV := dglGetProcAddress('glVertexAttrib3hNV');
-  glVertexAttrib3hvNV := dglGetProcAddress('glVertexAttrib3hvNV');
-  glVertexAttrib4hNV := dglGetProcAddress('glVertexAttrib4hNV');
-  glVertexAttrib4hvNV := dglGetProcAddress('glVertexAttrib4hvNV');
-  glVertexAttribs1hvNV := dglGetProcAddress('glVertexAttribs1hvNV');
-  glVertexAttribs2hvNV := dglGetProcAddress('glVertexAttribs2hvNV');
-  glVertexAttribs3hvNV := dglGetProcAddress('glVertexAttribs3hvNV');
-  glVertexAttribs4hvNV := dglGetProcAddress('glVertexAttribs4hvNV');
-end;
-
-procedure Read_GL_NV_occlusion_query;
-begin
-  glGenOcclusionQueriesNV := dglGetProcAddress('glGenOcclusionQueriesNV');
-  glDeleteOcclusionQueriesNV := dglGetProcAddress('glDeleteOcclusionQueriesNV');
-  glIsOcclusionQueryNV := dglGetProcAddress('glIsOcclusionQueryNV');
-  glBeginOcclusionQueryNV := dglGetProcAddress('glBeginOcclusionQueryNV');
-  glEndOcclusionQueryNV := dglGetProcAddress('glEndOcclusionQueryNV');
-  glGetOcclusionQueryivNV := dglGetProcAddress('glGetOcclusionQueryivNV');
-  glGetOcclusionQueryuivNV := dglGetProcAddress('glGetOcclusionQueryuivNV');
-end;
-
-procedure Read_GL_NV_pixel_data_range;
-begin
-  glPixelDataRangeNV := dglGetProcAddress('glPixelDataRangeNV');
-  glFlushPixelDataRangeNV := dglGetProcAddress('glFlushPixelDataRangeNV');
-end;
-
-procedure Read_GL_NV_point_sprite;
-begin
-  glPointParameteriNV := dglGetProcAddress('glPointParameteriNV');
-  glPointParameterivNV := dglGetProcAddress('glPointParameterivNV');
-end;
-
-procedure Read_GL_NV_primitive_restart;
-begin
-  glPrimitiveRestartNV := dglGetProcAddress('glPrimitiveRestartNV');
-  glPrimitiveRestartIndexNV := dglGetProcAddress('glPrimitiveRestartIndexNV');
-end;
-
-procedure Read_GL_NV_register_combiners;
-begin
-  glCombinerParameterfvNV := dglGetProcAddress('glCombinerParameterfvNV');
-  glCombinerParameterfNV := dglGetProcAddress('glCombinerParameterfNV');
-  glCombinerParameterivNV := dglGetProcAddress('glCombinerParameterivNV');
-  glCombinerParameteriNV := dglGetProcAddress('glCombinerParameteriNV');
-  glCombinerInputNV := dglGetProcAddress('glCombinerInputNV');
-  glCombinerOutputNV := dglGetProcAddress('glCombinerOutputNV');
-  glFinalCombinerInputNV := dglGetProcAddress('glFinalCombinerInputNV');
-  glGetCombinerInputParameterfvNV := dglGetProcAddress('glGetCombinerInputParameterfvNV');
-  glGetCombinerInputParameterivNV := dglGetProcAddress('glGetCombinerInputParameterivNV');
-  glGetCombinerOutputParameterfvNV := dglGetProcAddress('glGetCombinerOutputParameterfvNV');
-  glGetCombinerOutputParameterivNV := dglGetProcAddress('glGetCombinerOutputParameterivNV');
-  glGetFinalCombinerInputParameterfvNV := dglGetProcAddress('glGetFinalCombinerInputParameterfvNV');
-  glGetFinalCombinerInputParameterivNV := dglGetProcAddress('glGetFinalCombinerInputParameterivNV');
-end;
-
-procedure Read_GL_NV_register_combiners2;
-begin
-  glCombinerStageParameterfvNV := dglGetProcAddress('glCombinerStageParameterfvNV');
-  glGetCombinerStageParameterfvNV := dglGetProcAddress('glGetCombinerStageParameterfvNV');
-end;
-
-procedure Read_GL_NV_vertex_array_range;
-begin
-  glFlushVertexArrayRangeNV := dglGetProcAddress('glFlushVertexArrayRangeNV');
-  glVertexArrayRangeNV := dglGetProcAddress('glVertexArrayRangeNV');
-end;
-
-procedure Read_GL_NV_vertex_program;
-begin
-  glAreProgramsResidentNV := dglGetProcAddress('glAreProgramsResidentNV');
-  glBindProgramNV := dglGetProcAddress('glBindProgramNV');
-  glDeleteProgramsNV := dglGetProcAddress('glDeleteProgramsNV');
-  glExecuteProgramNV := dglGetProcAddress('glExecuteProgramNV');
-  glGenProgramsNV := dglGetProcAddress('glGenProgramsNV');
-  glGetProgramParameterdvNV := dglGetProcAddress('glGetProgramParameterdvNV');
-  glGetProgramParameterfvNV := dglGetProcAddress('glGetProgramParameterfvNV');
-  glGetProgramivNV := dglGetProcAddress('glGetProgramivNV');
-  glGetProgramStringNV := dglGetProcAddress('glGetProgramStringNV');
-  glGetTrackMatrixivNV := dglGetProcAddress('glGetTrackMatrixivNV');
-  glGetVertexAttribdvNV := dglGetProcAddress('glGetVertexAttribdvNV');
-  glGetVertexAttribfvNV := dglGetProcAddress('glGetVertexAttribfvNV');
-  glGetVertexAttribivNV := dglGetProcAddress('glGetVertexAttribivNV');
-  glGetVertexAttribPointervNV := dglGetProcAddress('glGetVertexAttribPointervNV');
-  glIsProgramNV := dglGetProcAddress('glIsProgramNV');
-  glLoadProgramNV := dglGetProcAddress('glLoadProgramNV');
-  glProgramParameter4dNV := dglGetProcAddress('glProgramParameter4dNV');
-  glProgramParameter4dvNV := dglGetProcAddress('glProgramParameter4dvNV');
-  glProgramParameter4fNV := dglGetProcAddress('glProgramParameter4fNV');
-  glProgramParameter4fvNV := dglGetProcAddress('glProgramParameter4fvNV');
-  glProgramParameters4dvNV := dglGetProcAddress('glProgramParameters4dvNV');
-  glProgramParameters4fvNV := dglGetProcAddress('glProgramParameters4fvNV');
-  glRequestResidentProgramsNV := dglGetProcAddress('glRequestResidentProgramsNV');
-  glTrackMatrixNV := dglGetProcAddress('glTrackMatrixNV');
-  glVertexAttribPointerNV := dglGetProcAddress('glVertexAttribPointerNV');
-  glVertexAttrib1dNV := dglGetProcAddress('glVertexAttrib1dNV');
-  glVertexAttrib1dvNV := dglGetProcAddress('glVertexAttrib1dvNV');
-  glVertexAttrib1fNV := dglGetProcAddress('glVertexAttrib1fNV');
-  glVertexAttrib1fvNV := dglGetProcAddress('glVertexAttrib1fvNV');
-  glVertexAttrib1sNV := dglGetProcAddress('glVertexAttrib1sNV');
-  glVertexAttrib1svNV := dglGetProcAddress('glVertexAttrib1svNV');
-  glVertexAttrib2dNV := dglGetProcAddress('glVertexAttrib2dNV');
-  glVertexAttrib2dvNV := dglGetProcAddress('glVertexAttrib2dvNV');
-  glVertexAttrib2fNV := dglGetProcAddress('glVertexAttrib2fNV');
-  glVertexAttrib2fvNV := dglGetProcAddress('glVertexAttrib2fvNV');
-  glVertexAttrib2sNV := dglGetProcAddress('glVertexAttrib2sNV');
-  glVertexAttrib2svNV := dglGetProcAddress('glVertexAttrib2svNV');
-  glVertexAttrib3dNV := dglGetProcAddress('glVertexAttrib3dNV');
-  glVertexAttrib3dvNV := dglGetProcAddress('glVertexAttrib3dvNV');
-  glVertexAttrib3fNV := dglGetProcAddress('glVertexAttrib3fNV');
-  glVertexAttrib3fvNV := dglGetProcAddress('glVertexAttrib3fvNV');
-  glVertexAttrib3sNV := dglGetProcAddress('glVertexAttrib3sNV');
-  glVertexAttrib3svNV := dglGetProcAddress('glVertexAttrib3svNV');
-  glVertexAttrib4dNV := dglGetProcAddress('glVertexAttrib4dNV');
-  glVertexAttrib4dvNV := dglGetProcAddress('glVertexAttrib4dvNV');
-  glVertexAttrib4fNV := dglGetProcAddress('glVertexAttrib4fNV');
-  glVertexAttrib4fvNV := dglGetProcAddress('glVertexAttrib4fvNV');
-  glVertexAttrib4sNV := dglGetProcAddress('glVertexAttrib4sNV');
-  glVertexAttrib4svNV := dglGetProcAddress('glVertexAttrib4svNV');
-  glVertexAttrib4ubNV := dglGetProcAddress('glVertexAttrib4ubNV');
-  glVertexAttrib4ubvNV := dglGetProcAddress('glVertexAttrib4ubvNV');
-  glVertexAttribs1dvNV := dglGetProcAddress('glVertexAttribs1dvNV');
-  glVertexAttribs1fvNV := dglGetProcAddress('glVertexAttribs1fvNV');
-  glVertexAttribs1svNV := dglGetProcAddress('glVertexAttribs1svNV');
-  glVertexAttribs2dvNV := dglGetProcAddress('glVertexAttribs2dvNV');
-  glVertexAttribs2fvNV := dglGetProcAddress('glVertexAttribs2fvNV');
-  glVertexAttribs2svNV := dglGetProcAddress('glVertexAttribs2svNV');
-  glVertexAttribs3dvNV := dglGetProcAddress('glVertexAttribs3dvNV');
-  glVertexAttribs3fvNV := dglGetProcAddress('glVertexAttribs3fvNV');
-  glVertexAttribs3svNV := dglGetProcAddress('glVertexAttribs3svNV');
-  glVertexAttribs4dvNV := dglGetProcAddress('glVertexAttribs4dvNV');
-  glVertexAttribs4fvNV := dglGetProcAddress('glVertexAttribs4fvNV');
-  glVertexAttribs4svNV := dglGetProcAddress('glVertexAttribs4svNV');
-  glVertexAttribs4ubvNV := dglGetProcAddress('glVertexAttribs4ubvNV');
-end;
-
-procedure Read_GL_NV_depth_buffer_float;
-begin
-  glDepthRangedNV := dglGetProcAddress('glDepthRangedNV');
-  glClearDepthdNV := dglGetProcAddress('glClearDepthdNV');
-  glDepthBoundsdNV := dglGetProcAddress('glDepthBoundsdNV');
-end;
-
-procedure Read_GL_NV_framebuffer_multisample_coverage;
-begin
-  glRenderbufferStorageMultsampleCoverageNV := dglGetProcAddress('glRenderbufferStorageMultsampleCoverageNV');
-end;
-
-procedure Read_GL_NV_geometry_program4;
-begin
-  glProgramVertexLimitNV := dglGetProcAddress('glProgramVertexLimitNV');
-end;
-
-procedure Read_GL_NV_gpu_program4;
-begin
-  glProgramLocalParameterI4iNV := dglGetProcAddress('glProgramLocalParameterI4iNV');
-  glProgramLocalParameterI4ivNV := dglGetProcAddress('glProgramLocalParameterI4ivNV');
-  glProgramLocalParametersI4ivNV := dglGetProcAddress('glProgramLocalParametersI4ivNV');
-  glProgramLocalParameterI4uiNV := dglGetProcAddress('glProgramLocalParameterI4uiNV');
-  glProgramLocalParameterI4uivNV := dglGetProcAddress('glProgramLocalParameterI4uivNV');
-  glProgramLocalParametersI4uivNV := dglGetProcAddress('glProgramLocalParametersI4uivNV');
-  glProgramEnvParameterI4iNV := dglGetProcAddress('glProgramEnvParameterI4iNV');
-  glProgramEnvParameterI4ivNV := dglGetProcAddress('glProgramEnvParameterI4ivNV');
-  glProgramEnvParametersI4ivNV := dglGetProcAddress('glProgramEnvParametersI4ivNV');
-  glProgramEnvParameterI4uiNV := dglGetProcAddress('glProgramEnvParameterI4uiNV');
-  glProgramEnvParameterI4uivNV := dglGetProcAddress('glProgramEnvParameterI4uivNV');
-  glProgramEnvParametersI4uivNV := dglGetProcAddress('glProgramEnvParametersI4uivNV');
-  glGetProgramLocalParameterIivNV := dglGetProcAddress('glGetProgramLocalParameterIivNV');
-  glGetProgramLocalParameterIuivNV := dglGetProcAddress('glGetProgramLocalParameterIuivNV');
-  glGetProgramEnvParameterIivNV := dglGetProcAddress('glGetProgramEnvParameterIivNV');
-  glGetProgramEnvParameterIuivNV := dglGetProcAddress('glGetProgramEnvParameterIuivNV');
-end;
-
-procedure Read_GL_NV_parameter_buffer_object;
-begin
-  glProgramBufferParametersfvNV := dglGetProcAddress('glProgramBufferParametersfvNV');
-  glProgramBufferParametersIivNV := dglGetProcAddress('glProgramBufferParametersIivNV');
-  glProgramBufferParametersIuivNV := dglGetProcAddress('glProgramBufferParametersIuivNV');
-end;
-
-procedure Read_GL_NV_transform_feedback;
-begin
-  glBeginTransformFeedbackNV := dglGetProcAddress('glBeginTransformFeedbackNV');
-  glEndTransformFeedbackNV := dglGetProcAddress('glEndTransformFeedbackNV');
-  glTransformFeedbackAttribsNV := dglGetProcAddress('glTransformFeedbackAttribsNV');
-  glBindBufferRangeNV := dglGetProcAddress('glBindBufferRangeNV');
-  glBindBufferOffsetNV := dglGetProcAddress('glBindBufferOffsetNV');
-  glBindBufferBaseNV := dglGetProcAddress('glBindBufferBaseNV');
-  glTransformFeedbackVaryingsNV := dglGetProcAddress('glTransformFeedbackVaryingsNV');
-  glActiveVaryingNV := dglGetProcAddress('glActiveVaryingNV');
-  glGetVaryingLocationNV := dglGetProcAddress('glGetVaryingLocationNV');
-  glGetActiveVaryingNV := dglGetProcAddress('glGetActiveVaryingNV');
-  glGetTransformFeedbackVaryingNV := dglGetProcAddress('glGetTransformFeedbackVaryingNV');
-end;
-
-procedure Read_GL_NV_conditional_render;
-begin
-  glBeginConditionalRenderNV := dglGetProcAddress('glBeginConditionalRenderNV');
-  glEndConditionalRenderNV := dglGetProcAddress('glEndConditionalRenderNV');
-end;
-
-procedure Read_GL_NV_present_video;
-begin
-  glPresentFrameKeyedNV := dglGetProcAddress('glPresentFrameKeyedNV');
-  glPresentFrameDualFillNV := dglGetProcAddress('glPresentFrameDualFillNV');
-  glGetVideoivNV := dglGetProcAddress('glGetVideoivNV');
-  glGetVideouivNV := dglGetProcAddress('glGetVideouivNV');
-  glGetVideoi64vNV := dglGetProcAddress('glGetVideoi64vNV');
-  glGetVideoui64vNV := dglGetProcAddress('glGetVideoui64vNV');
-//  glVideoParameterivNV := dglGetProcAddress('glVideoParameterivNV');
-end;
-
-procedure Read_GL_NV_explicit_multisample;
-begin
-  glGetMultisamplefvNV := dglGetProcAddress('glGetMultisamplefvNV');
-  glSampleMaskIndexedNV := dglGetProcAddress('glSampleMaskIndexedNV');
-  glTexRenderbufferNV := dglGetProcAddress('glTexRenderbufferNV');
-end;
-
-procedure Read_GL_NV_transform_feedback2;
-begin
-  glBindTransformFeedbackNV := dglGetProcAddress('glBindTransformFeedbackNV');
-  glDeleteTransformFeedbacksNV := dglGetProcAddress('glDeleteTransformFeedbacksNV');
-  glGenTransformFeedbacksNV := dglGetProcAddress('glGenTransformFeedbacksNV');
-  glIsTransformFeedbackNV := dglGetProcAddress('glIsTransformFeedbackNV');
-  glPauseTransformFeedbackNV := dglGetProcAddress('glPauseTransformFeedbackNV');
-  glResumeTransformFeedbackNV := dglGetProcAddress('glResumeTransformFeedbackNV');
-  glDrawTransformFeedbackNV := dglGetProcAddress('glDrawTransformFeedbackNV');
-end;
-
-procedure Read_GL_PGI_misc_hints;
-begin
-  glHintPGI := dglGetProcAddress('glHintPGI');
-end;
-
-procedure Read_GL_SGIS_detail_texture;
-begin
-  glDetailTexFuncSGIS := dglGetProcAddress('glDetailTexFuncSGIS');
-  glGetDetailTexFuncSGIS := dglGetProcAddress('glGetDetailTexFuncSGIS');
-end;
-
-procedure Read_GL_SGIS_fog_function;
-begin
-  glFogFuncSGIS := dglGetProcAddress('glFogFuncSGIS');
-  glGetFogFuncSGIS := dglGetProcAddress('glGetFogFuncSGIS');
-end;
-
-procedure Read_GL_SGIS_multisample;
-begin
-  glSampleMaskSGIS := dglGetProcAddress('glSampleMaskSGIS');
-  glSamplePatternSGIS := dglGetProcAddress('glSamplePatternSGIS');
-end;
-
-procedure Read_GL_SGIS_pixel_texture;
-begin
-  glPixelTexGenParameteriSGIS := dglGetProcAddress('glPixelTexGenParameteriSGIS');
-  glPixelTexGenParameterivSGIS := dglGetProcAddress('glPixelTexGenParameterivSGIS');
-  glPixelTexGenParameterfSGIS := dglGetProcAddress('glPixelTexGenParameterfSGIS');
-  glPixelTexGenParameterfvSGIS := dglGetProcAddress('glPixelTexGenParameterfvSGIS');
-  glGetPixelTexGenParameterivSGIS := dglGetProcAddress('glGetPixelTexGenParameterivSGIS');
-  glGetPixelTexGenParameterfvSGIS := dglGetProcAddress('glGetPixelTexGenParameterfvSGIS');
-end;
-
-procedure Read_GL_SGIS_point_parameters;
-begin
-  glPointParameterfSGIS := dglGetProcAddress('glPointParameterfSGIS');
-  glPointParameterfvSGIS := dglGetProcAddress('glPointParameterfvSGIS');
-end;
-
-procedure Read_GL_SGIS_sharpen_texture;
-begin
-  glSharpenTexFuncSGIS := dglGetProcAddress('glSharpenTexFuncSGIS');
-  glGetSharpenTexFuncSGIS := dglGetProcAddress('glGetSharpenTexFuncSGIS');
-end;
-
-procedure Read_GL_SGIS_texture4D;
-begin
-  glTexImage4DSGIS := dglGetProcAddress('glTexImage4DSGIS');
-  glTexSubImage4DSGIS := dglGetProcAddress('glTexSubImage4DSGIS');
-end;
-
-procedure Read_GL_SGIS_texture_color_mask;
-begin
-  glTextureColorMaskSGIS := dglGetProcAddress('glTextureColorMaskSGIS');
-end;
-
-procedure Read_GL_SGIS_texture_filter4;
-begin
-  glGetTexFilterFuncSGIS := dglGetProcAddress('glGetTexFilterFuncSGIS');
-  glTexFilterFuncSGIS := dglGetProcAddress('glTexFilterFuncSGIS');
-end;
-
-procedure Read_GL_SGIX_async;
-begin
-  glAsyncMarkerSGIX := dglGetProcAddress('glAsyncMarkerSGIX');
-  glFinishAsyncSGIX := dglGetProcAddress('glFinishAsyncSGIX');
-  glPollAsyncSGIX := dglGetProcAddress('glPollAsyncSGIX');
-  glGenAsyncMarkersSGIX := dglGetProcAddress('glGenAsyncMarkersSGIX');
-  glDeleteAsyncMarkersSGIX := dglGetProcAddress('glDeleteAsyncMarkersSGIX');
-  glIsAsyncMarkerSGIX := dglGetProcAddress('glIsAsyncMarkerSGIX');
-end;
-
-procedure Read_GL_SGIX_flush_raster;
-begin
-  glFlushRasterSGIX := dglGetProcAddress('glFlushRasterSGIX');
-end;
-
-procedure Read_GL_SGIX_fragment_lighting;
-begin
-  glFragmentColorMaterialSGIX := dglGetProcAddress('glFragmentColorMaterialSGIX');
-  glFragmentLightfSGIX := dglGetProcAddress('glFragmentLightfSGIX');
-  glFragmentLightfvSGIX := dglGetProcAddress('glFragmentLightfvSGIX');
-  glFragmentLightiSGIX := dglGetProcAddress('glFragmentLightiSGIX');
-  glFragmentLightivSGIX := dglGetProcAddress('glFragmentLightivSGIX');
-  glFragmentLightModelfSGIX := dglGetProcAddress('glFragmentLightModelfSGIX');
-  glFragmentLightModelfvSGIX := dglGetProcAddress('glFragmentLightModelfvSGIX');
-  glFragmentLightModeliSGIX := dglGetProcAddress('glFragmentLightModeliSGIX');
-  glFragmentLightModelivSGIX := dglGetProcAddress('glFragmentLightModelivSGIX');
-  glFragmentMaterialfSGIX := dglGetProcAddress('glFragmentMaterialfSGIX');
-  glFragmentMaterialfvSGIX := dglGetProcAddress('glFragmentMaterialfvSGIX');
-  glFragmentMaterialiSGIX := dglGetProcAddress('glFragmentMaterialiSGIX');
-  glFragmentMaterialivSGIX := dglGetProcAddress('glFragmentMaterialivSGIX');
-  glGetFragmentLightfvSGIX := dglGetProcAddress('glGetFragmentLightfvSGIX');
-  glGetFragmentLightivSGIX := dglGetProcAddress('glGetFragmentLightivSGIX');
-  glGetFragmentMaterialfvSGIX := dglGetProcAddress('glGetFragmentMaterialfvSGIX');
-  glGetFragmentMaterialivSGIX := dglGetProcAddress('glGetFragmentMaterialivSGIX');
-  glLightEnviSGIX := dglGetProcAddress('glLightEnviSGIX');
-end;
-
-procedure Read_GL_SGIX_framezoom;
-begin
-  glFrameZoomSGIX := dglGetProcAddress('glFrameZoomSGIX');
-end;
-
-procedure Read_GL_SGIX_igloo_interface;
-begin
-  glIglooInterfaceSGIX := dglGetProcAddress('glIglooInterfaceSGIX');
-end;
-
-procedure Read_GL_SGIX_instruments;
-begin
-  glGetInstrumentsSGIX := dglGetProcAddress('glGetInstrumentsSGIX');
-  glInstrumentsBufferSGIX := dglGetProcAddress('glInstrumentsBufferSGIX');
-  glPollInstrumentsSGIX := dglGetProcAddress('glPollInstrumentsSGIX');
-  glReadInstrumentsSGIX := dglGetProcAddress('glReadInstrumentsSGIX');
-  glStartInstrumentsSGIX := dglGetProcAddress('glStartInstrumentsSGIX');
-  glStopInstrumentsSGIX := dglGetProcAddress('glStopInstrumentsSGIX');
-end;
-
-procedure Read_GL_SGIX_list_priority;
-begin
-  glGetListParameterfvSGIX := dglGetProcAddress('glGetListParameterfvSGIX');
-  glGetListParameterivSGIX := dglGetProcAddress('glGetListParameterivSGIX');
-  glListParameterfSGIX := dglGetProcAddress('glListParameterfSGIX');
-  glListParameterfvSGIX := dglGetProcAddress('glListParameterfvSGIX');
-  glListParameteriSGIX := dglGetProcAddress('glListParameteriSGIX');
-  glListParameterivSGIX := dglGetProcAddress('glListParameterivSGIX');
-end;
-
-procedure Read_GL_SGIX_pixel_texture;
-begin
-  glPixelTexGenSGIX := dglGetProcAddress('glPixelTexGenSGIX');
-end;
-
-procedure Read_GL_SGIX_polynomial_ffd;
-begin
-  glDeformationMap3dSGIX := dglGetProcAddress('glDeformationMap3dSGIX');
-  glDeformationMap3fSGIX := dglGetProcAddress('glDeformationMap3fSGIX');
-  glDeformSGIX := dglGetProcAddress('glDeformSGIX');
-  glLoadIdentityDeformationMapSGIX := dglGetProcAddress('glLoadIdentityDeformationMapSGIX');
-end;
-
-procedure Read_GL_SGIX_reference_plane;
-begin
-  glReferencePlaneSGIX := dglGetProcAddress('glReferencePlaneSGIX');
-end;
-
-procedure Read_GL_SGIX_sprite;
-begin
-  glSpriteParameterfSGIX := dglGetProcAddress('glSpriteParameterfSGIX');
-  glSpriteParameterfvSGIX := dglGetProcAddress('glSpriteParameterfvSGIX');
-  glSpriteParameteriSGIX := dglGetProcAddress('glSpriteParameteriSGIX');
-  glSpriteParameterivSGIX := dglGetProcAddress('glSpriteParameterivSGIX');
-end;
-
-procedure Read_GL_SGIX_tag_sample_buffer;
-begin
-  glTagSampleBufferSGIX := dglGetProcAddress('glTagSampleBufferSGIX');
-end;
-
-procedure Read_GL_SGI_color_table;
-begin
-  glColorTableSGI := dglGetProcAddress('glColorTableSGI');
-  glColorTableParameterfvSGI := dglGetProcAddress('glColorTableParameterfvSGI');
-  glColorTableParameterivSGI := dglGetProcAddress('glColorTableParameterivSGI');
-  glCopyColorTableSGI := dglGetProcAddress('glCopyColorTableSGI');
-  glGetColorTableSGI := dglGetProcAddress('glGetColorTableSGI');
-  glGetColorTableParameterfvSGI := dglGetProcAddress('glGetColorTableParameterfvSGI');
-  glGetColorTableParameterivSGI := dglGetProcAddress('glGetColorTableParameterivSGI');
-end;
-
-procedure Read_GL_SUNX_constant_data;
-begin
-  glFinishTextureSUNX := dglGetProcAddress('glFinishTextureSUNX');
-end;
-
-procedure Read_GL_SUN_global_alpha;
-begin
-  glGlobalAlphaFactorbSUN := dglGetProcAddress('glGlobalAlphaFactorbSUN');
-  glGlobalAlphaFactorsSUN := dglGetProcAddress('glGlobalAlphaFactorsSUN');
-  glGlobalAlphaFactoriSUN := dglGetProcAddress('glGlobalAlphaFactoriSUN');
-  glGlobalAlphaFactorfSUN := dglGetProcAddress('glGlobalAlphaFactorfSUN');
-  glGlobalAlphaFactordSUN := dglGetProcAddress('glGlobalAlphaFactordSUN');
-  glGlobalAlphaFactorubSUN := dglGetProcAddress('glGlobalAlphaFactorubSUN');
-  glGlobalAlphaFactorusSUN := dglGetProcAddress('glGlobalAlphaFactorusSUN');
-  glGlobalAlphaFactoruiSUN := dglGetProcAddress('glGlobalAlphaFactoruiSUN');
-end;
-
-procedure Read_GL_SUN_mesh_array;
-begin
-  glDrawMeshArraysSUN := dglGetProcAddress('glDrawMeshArraysSUN');
-end;
-
-procedure Read_GL_SUN_triangle_list;
-begin
-  glReplacementCodeuiSUN := dglGetProcAddress('glReplacementCodeuiSUN');
-  glReplacementCodeusSUN := dglGetProcAddress('glReplacementCodeusSUN');
-  glReplacementCodeubSUN := dglGetProcAddress('glReplacementCodeubSUN');
-  glReplacementCodeuivSUN := dglGetProcAddress('glReplacementCodeuivSUN');
-  glReplacementCodeusvSUN := dglGetProcAddress('glReplacementCodeusvSUN');
-  glReplacementCodeubvSUN := dglGetProcAddress('glReplacementCodeubvSUN');
-  glReplacementCodePointerSUN := dglGetProcAddress('glReplacementCodePointerSUN');
-end;
-
-procedure Read_GL_SUN_vertex;
-begin
-  glColor4ubVertex2fSUN := dglGetProcAddress('glColor4ubVertex2fSUN');
-  glColor4ubVertex2fvSUN := dglGetProcAddress('glColor4ubVertex2fvSUN');
-  glColor4ubVertex3fSUN := dglGetProcAddress('glColor4ubVertex3fSUN');
-  glColor4ubVertex3fvSUN := dglGetProcAddress('glColor4ubVertex3fvSUN');
-  glColor3fVertex3fSUN := dglGetProcAddress('glColor3fVertex3fSUN');
-  glColor3fVertex3fvSUN := dglGetProcAddress('glColor3fVertex3fvSUN');
-  glNormal3fVertex3fSUN := dglGetProcAddress('glNormal3fVertex3fSUN');
-  glNormal3fVertex3fvSUN := dglGetProcAddress('glNormal3fVertex3fvSUN');
-  glColor4fNormal3fVertex3fSUN := dglGetProcAddress('glColor4fNormal3fVertex3fSUN');
-  glColor4fNormal3fVertex3fvSUN := dglGetProcAddress('glColor4fNormal3fVertex3fvSUN');
-  glTexCoord2fVertex3fSUN := dglGetProcAddress('glTexCoord2fVertex3fSUN');
-  glTexCoord2fVertex3fvSUN := dglGetProcAddress('glTexCoord2fVertex3fvSUN');
-  glTexCoord4fVertex4fSUN := dglGetProcAddress('glTexCoord4fVertex4fSUN');
-  glTexCoord4fVertex4fvSUN := dglGetProcAddress('glTexCoord4fVertex4fvSUN');
-  glTexCoord2fColor4ubVertex3fSUN := dglGetProcAddress('glTexCoord2fColor4ubVertex3fSUN');
-  glTexCoord2fColor4ubVertex3fvSUN := dglGetProcAddress('glTexCoord2fColor4ubVertex3fvSUN');
-  glTexCoord2fColor3fVertex3fSUN := dglGetProcAddress('glTexCoord2fColor3fVertex3fSUN');
-  glTexCoord2fColor3fVertex3fvSUN := dglGetProcAddress('glTexCoord2fColor3fVertex3fvSUN');
-  glTexCoord2fNormal3fVertex3fSUN := dglGetProcAddress('glTexCoord2fNormal3fVertex3fSUN');
-  glTexCoord2fNormal3fVertex3fvSUN := dglGetProcAddress('glTexCoord2fNormal3fVertex3fvSUN');
-  glTexCoord2fColor4fNormal3fVertex3fSUN := dglGetProcAddress('glTexCoord2fColor4fNormal3fVertex3fSUN');
-  glTexCoord2fColor4fNormal3fVertex3fvSUN := dglGetProcAddress('glTexCoord2fColor4fNormal3fVertex3fvSUN');
-  glTexCoord4fColor4fNormal3fVertex4fSUN := dglGetProcAddress('glTexCoord4fColor4fNormal3fVertex4fSUN');
-  glTexCoord4fColor4fNormal3fVertex4fvSUN := dglGetProcAddress('glTexCoord4fColor4fNormal3fVertex4fvSUN');
-  glReplacementCodeuiVertex3fSUN := dglGetProcAddress('glReplacementCodeuiVertex3fSUN');
-  glReplacementCodeuiVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiVertex3fvSUN');
-  glReplacementCodeuiColor4ubVertex3fSUN := dglGetProcAddress('glReplacementCodeuiColor4ubVertex3fSUN');
-  glReplacementCodeuiColor4ubVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiColor4ubVertex3fvSUN');
-  glReplacementCodeuiColor3fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiColor3fVertex3fSUN');
-  glReplacementCodeuiColor3fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiColor3fVertex3fvSUN');
-  glReplacementCodeuiNormal3fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiNormal3fVertex3fSUN');
-  glReplacementCodeuiNormal3fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiNormal3fVertex3fvSUN');
-  glReplacementCodeuiColor4fNormal3fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fSUN');
-  glReplacementCodeuiColor4fNormal3fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fvSUN');
-  glReplacementCodeuiTexCoord2fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fVertex3fSUN');
-  glReplacementCodeuiTexCoord2fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fVertex3fvSUN');
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN');
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN');
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN');
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN := dglGetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN');
-end;
-
-{$IFDEF DGL_WIN}
-procedure Read_WGL_ARB_buffer_region;
-begin
-  wglCreateBufferRegionARB := dglGetProcAddress('wglCreateBufferRegionARB');
-  wglDeleteBufferRegionARB := dglGetProcAddress('wglDeleteBufferRegionARB');
-  wglSaveBufferRegionARB := dglGetProcAddress('wglSaveBufferRegionARB');
-  wglRestoreBufferRegionARB := dglGetProcAddress('wglRestoreBufferRegionARB');
-end;
-
-procedure Read_WGL_ARB_extensions_string;
-begin
-  wglGetExtensionsStringARB := dglGetProcAddress('wglGetExtensionsStringARB');
-end;
-
-procedure Read_WGL_ARB_make_current_read;
-begin
-  wglMakeContextCurrentARB := dglGetProcAddress('wglMakeContextCurrentARB');
-  wglGetCurrentReadDCARB := dglGetProcAddress('wglGetCurrentReadDCARB');
-end;
-
-procedure Read_WGL_ARB_pbuffer;
-begin
-  wglCreatePbufferARB := dglGetProcAddress('wglCreatePbufferARB');
-  wglGetPbufferDCARB := dglGetProcAddress('wglGetPbufferDCARB');
-  wglReleasePbufferDCARB := dglGetProcAddress('wglReleasePbufferDCARB');
-  wglDestroyPbufferARB := dglGetProcAddress('wglDestroyPbufferARB');
-  wglQueryPbufferARB := dglGetProcAddress('wglQueryPbufferARB');
-end;
-
-procedure Read_WGL_ARB_pixel_format;
-begin
-  wglGetPixelFormatAttribivARB := dglGetProcAddress('wglGetPixelFormatAttribivARB');
-  wglGetPixelFormatAttribfvARB := dglGetProcAddress('wglGetPixelFormatAttribfvARB');
-  wglChoosePixelFormatARB := dglGetProcAddress('wglChoosePixelFormatARB');
-end;
-
-procedure Read_WGL_ARB_pixel_format_float;
-begin
-  wglClampColorARB := dglGetProcAddress('wglClampColorARB');
-end;
-
-procedure Read_WGL_ARB_render_texture;
-begin
-  wglBindTexImageARB := dglGetProcAddress('wglBindTexImageARB');
-  wglReleaseTexImageARB := dglGetProcAddress('wglReleaseTexImageARB');
-  wglSetPbufferAttribARB := dglGetProcAddress('wglSetPbufferAttribARB');
-end;
-
-procedure Read_WGL_ARB_create_context;
-begin
-  wglCreateContextAttribsARB := dglGetProcAddress('wglCreateContextAttribsARB');
-end;
-
-procedure Read_WGL_AMD_gpu_association;
-begin
-  wglGetGPUIDsAMD := dglGetProcAddress('wglGetGPUIDsAMD');
-  wglGetGPUInfoAMD := dglGetProcAddress('wglGetGPUInfoAMD');
-  wglGetContextGPUIDAMD := dglGetProcAddress('wglGetContextGPUIDAMD');
-  wglCreateAssociatedContextAMD := dglGetProcAddress('wglCreateAssociatedContextAMD');
-  wglCreateAssociatedContextAttribsAMD := dglGetProcAddress('wglCreateAssociatedContextAttribsAMD');
-  wglDeleteAssociatedContextAMD := dglGetProcAddress('wglDeleteAssociatedContextAMD');
-  wglMakeAssociatedContextCurrentAMD := dglGetProcAddress('wglMakeAssociatedContextCurrentAMD');
-  wglGetCurrentAssociatedContextAMD := dglGetProcAddress('wglGetCurrentAssociatedContextAMD');
-  wglBlitContextFramebufferAMD := dglGetProcAddress('wglBlitContextFramebufferAMD');
-end;
-
-procedure Read_WGL_EXT_display_color_table;
-begin
-  wglCreateDisplayColorTableEXT := dglGetProcAddress('wglCreateDisplayColorTableEXT');
-  wglLoadDisplayColorTableEXT := dglGetProcAddress('wglLoadDisplayColorTableEXT');
-  wglBindDisplayColorTableEXT := dglGetProcAddress('wglBindDisplayColorTableEXT');
-  wglDestroyDisplayColorTableEXT := dglGetProcAddress('wglDestroyDisplayColorTableEXT');
-end;
-
-procedure Read_WGL_EXT_extensions_string;
-begin
-  wglGetExtensionsStringEXT := dglGetProcAddress('wglGetExtensionsStringEXT');
-end;
-
-procedure Read_WGL_EXT_make_current_read;
-begin
-  wglMakeContextCurrentEXT := dglGetProcAddress('wglMakeContextCurrentEXT');
-  wglGetCurrentReadDCEXT := dglGetProcAddress('wglGetCurrentReadDCEXT');
-end;
-
-procedure Read_WGL_EXT_pbuffer;
-begin
-  wglCreatePbufferEXT := dglGetProcAddress('wglCreatePbufferEXT');
-  wglGetPbufferDCEXT := dglGetProcAddress('wglGetPbufferDCEXT');
-  wglReleasePbufferDCEXT := dglGetProcAddress('wglReleasePbufferDCEXT');
-  wglDestroyPbufferEXT := dglGetProcAddress('wglDestroyPbufferEXT');
-  wglQueryPbufferEXT := dglGetProcAddress('wglQueryPbufferEXT');
-end;
-
-procedure Read_WGL_EXT_pixel_format;
-begin
-  wglGetPixelFormatAttribivEXT := dglGetProcAddress('wglGetPixelFormatAttribivEXT');
-  wglGetPixelFormatAttribfvEXT := dglGetProcAddress('wglGetPixelFormatAttribfvEXT');
-  wglChoosePixelFormatEXT := dglGetProcAddress('wglChoosePixelFormatEXT');
-end;
-
-procedure Read_WGL_EXT_swap_control;
-begin
-  wglSwapIntervalEXT := dglGetProcAddress('wglSwapIntervalEXT');
-  wglGetSwapIntervalEXT := dglGetProcAddress('wglGetSwapIntervalEXT');
-end;
-
-procedure Read_WGL_I3D_digital_video_control;
-begin
-  wglGetDigitalVideoParametersI3D := dglGetProcAddress('wglGetDigitalVideoParametersI3D');
-  wglSetDigitalVideoParametersI3D := dglGetProcAddress('wglSetDigitalVideoParametersI3D');
-end;
-
-procedure Read_WGL_I3D_gamma;
-begin
-  wglGetGammaTableParametersI3D := dglGetProcAddress('wglGetGammaTableParametersI3D');
-  wglSetGammaTableParametersI3D := dglGetProcAddress('wglSetGammaTableParametersI3D');
-  wglGetGammaTableI3D := dglGetProcAddress('wglGetGammaTableI3D');
-  wglSetGammaTableI3D := dglGetProcAddress('wglSetGammaTableI3D');
-end;
-
-procedure Read_WGL_I3D_genlock;
-begin
-  wglEnableGenlockI3D := dglGetProcAddress('wglEnableGenlockI3D');
-  wglDisableGenlockI3D := dglGetProcAddress('wglDisableGenlockI3D');
-  wglIsEnabledGenlockI3D := dglGetProcAddress('wglIsEnabledGenlockI3D');
-  wglGenlockSourceI3D := dglGetProcAddress('wglGenlockSourceI3D');
-  wglGetGenlockSourceI3D := dglGetProcAddress('wglGetGenlockSourceI3D');
-  wglGenlockSourceEdgeI3D := dglGetProcAddress('wglGenlockSourceEdgeI3D');
-  wglGetGenlockSourceEdgeI3D := dglGetProcAddress('wglGetGenlockSourceEdgeI3D');
-  wglGenlockSampleRateI3D := dglGetProcAddress('wglGenlockSampleRateI3D');
-  wglGetGenlockSampleRateI3D := dglGetProcAddress('wglGetGenlockSampleRateI3D');
-  wglGenlockSourceDelayI3D := dglGetProcAddress('wglGenlockSourceDelayI3D');
-  wglGetGenlockSourceDelayI3D := dglGetProcAddress('wglGetGenlockSourceDelayI3D');
-  wglQueryGenlockMaxSourceDelayI3D := dglGetProcAddress('wglQueryGenlockMaxSourceDelayI3D');
-end;
-
-procedure Read_WGL_I3D_image_buffer;
-begin
-  wglCreateImageBufferI3D := dglGetProcAddress('wglCreateImageBufferI3D');
-  wglDestroyImageBufferI3D := dglGetProcAddress('wglDestroyImageBufferI3D');
-  wglAssociateImageBufferEventsI3D := dglGetProcAddress('wglAssociateImageBufferEventsI3D');
-  wglReleaseImageBufferEventsI3D := dglGetProcAddress('wglReleaseImageBufferEventsI3D');
-end;
-
-procedure Read_WGL_I3D_swap_frame_lock;
-begin
-  wglEnableFrameLockI3D := dglGetProcAddress('wglEnableFrameLockI3D');
-  wglDisableFrameLockI3D := dglGetProcAddress('wglDisableFrameLockI3D');
-  wglIsEnabledFrameLockI3D := dglGetProcAddress('wglIsEnabledFrameLockI3D');
-  wglQueryFrameLockMasterI3D := dglGetProcAddress('wglQueryFrameLockMasterI3D');
-end;
-
-procedure Read_WGL_I3D_swap_frame_usage;
-begin
-  wglGetFrameUsageI3D := dglGetProcAddress('wglGetFrameUsageI3D');
-  wglBeginFrameTrackingI3D := dglGetProcAddress('wglBeginFrameTrackingI3D');
-  wglEndFrameTrackingI3D := dglGetProcAddress('wglEndFrameTrackingI3D');
-  wglQueryFrameTrackingI3D := dglGetProcAddress('wglQueryFrameTrackingI3D');
-end;
-
-procedure Read_WGL_NV_vertex_array_range;
-begin
-  wglAllocateMemoryNV := dglGetProcAddress('wglAllocateMemoryNV');
-  wglFreeMemoryNV := dglGetProcAddress('wglFreeMemoryNV');
-end;
-
-procedure Read_WGL_NV_present_video;
-begin
-  wglEnumerateVideoDevicesNV := dglGetProcAddress('wglEnumerateVideoDevicesNV');
-  wglBindVideoDeviceNV := dglGetProcAddress('wglBindVideoDeviceNV');
-  wglQueryCurrentContextNV := dglGetProcAddress('wglQueryCurrentContextNV');
-end;
-
-procedure Read_WGL_NV_video_out;
-begin
-  wglGetVideoDeviceNV := dglGetProcAddress('wglGetVideoDeviceNV');
-  wglReleaseVideoDeviceNV := dglGetProcAddress('wglReleaseVideoDeviceNV');
-  wglBindVideoImageNV := dglGetProcAddress('wglBindVideoImageNV');
-  wglReleaseVideoImageNV := dglGetProcAddress('wglReleaseVideoImageNV');
-  wglSendPbufferToVideoNV := dglGetProcAddress('wglSendPbufferToVideoNV');
-  wglGetVideoInfoNV := dglGetProcAddress('wglGetVideoInfoNV');
-end;
-
-procedure Read_WGL_NV_swap_group;
-begin
-  wglJoinSwapGroupNV := dglGetProcAddress('wglJoinSwapGroupNV');
-  wglBindSwapBarrierNV := dglGetProcAddress('wglBindSwapBarrierNV');
-  wglQuerySwapGroupNV := dglGetProcAddress('wglQuerySwapGroupNV');
-  wglQueryMaxSwapGroupsNV := dglGetProcAddress('wglQueryMaxSwapGroupsNV');
-  wglQueryFrameCountNV := dglGetProcAddress('wglQueryFrameCountNV');
-  wglResetFrameCountNV := dglGetProcAddress('wglResetFrameCountNV');
-end;
-
-procedure Read_WGL_NV_gpu_affinity;
-begin
-  wglEnumGpusNV := dglGetProcAddress('wglEnumGpusNV');
-  wglEnumGpuDevicesNV := dglGetProcAddress('wglEnumGpuDevicesNV');
-  wglCreateAffinityDCNV := dglGetProcAddress('wglCreateAffinityDCNV');
-  wglEnumGpusFromAffinityDCNV := dglGetProcAddress('wglEnumGpusFromAffinityDCNV');
-  wglDeleteDCNV := dglGetProcAddress('wglDeleteDCNV');
-end;
-
-procedure Read_WGL_OML_sync_control;
-begin
-  wglGetSyncValuesOML := dglGetProcAddress('wglGetSyncValuesOML');
-  wglGetMscRateOML := dglGetProcAddress('wglGetMscRateOML');
-  wglSwapBuffersMscOML := dglGetProcAddress('wglSwapBuffersMscOML');
-  wglSwapLayerBuffersMscOML := dglGetProcAddress('wglSwapLayerBuffersMscOML');
-  wglWaitForMscOML := dglGetProcAddress('wglWaitForMscOML');
-  wglWaitForSbcOML := dglGetProcAddress('wglWaitForSbcOML');
-end;
-
-procedure Read_WGL_3DL_stereo_control;
-begin
-  wglSetStereoEmitterState3DL := dglGetProcAddress('wglSetStereoEmitterState3DL');
-end;
-
-procedure Read_WIN_draw_range_elements;
-begin
-  glDrawRangeElementsWIN := dglGetProcAddress('glDrawRangeElementsWIN');
-end;
-
-procedure Read_WIN_swap_hint;
-begin
-  glAddSwapHintRectWIN := dglGetProcAddress('glAddSwapHintRectWIN');
-end;
-{$ENDIF}
-
-
-procedure ReadExtensions;
-begin
-  ReadOpenGLCore;
-  
-  Read_GL_3DFX_tbuffer;
-  Read_GL_APPLE_element_array;
-  Read_GL_APPLE_fence;
-  Read_GL_APPLE_vertex_array_object;
-  Read_GL_APPLE_vertex_array_range;
-  Read_GL_APPLE_texture_range;
-  Read_GL_APPLE_vertex_program_evaluators;
-  Read_GL_APPLE_object_purgeable;
-  Read_GL_ARB_matrix_palette;
-  Read_GL_ARB_multitexture;
-  Read_GL_ARB_point_parameters;
-  Read_GL_ARB_texture_compression;
-  Read_GL_ARB_transpose_matrix;
-  Read_GL_ARB_vertex_blend;
-  Read_GL_ARB_vertex_buffer_object;
-  Read_GL_ARB_vertex_program;
-  Read_GL_ARB_window_pos;
-  Read_GL_ARB_color_buffer_float;
-  Read_GL_ARB_Shader_Objects;
-  Read_GL_ARB_occlusion_query;
-  Read_GL_ARB_draw_instanced;
-  Read_GL_ARB_framebuffer_object;
-  Read_GL_ARB_geometry_shader4;
-  Read_GL_ARB_instanced_arrays;
-  Read_GL_ARB_map_buffer_range;
-  Read_GL_ARB_texture_buffer_object;
-  Read_GL_ARB_vertex_array_object;
-  Read_GL_ARB_uniform_buffer_object;
-  Read_GL_ARB_copy_buffer;
-  Read_GL_ARB_draw_elements_base_vertex;
-  Read_GL_ARB_provoking_vertex;
-  Read_GL_ARB_sync;
-  Read_GL_ARB_texture_multisample;
-  Read_GL_ARB_draw_buffers_blend;
-  Read_GL_ARB_sample_shading;
-  Read_GL_ATI_draw_buffers;
-  Read_GL_ATI_element_array;
-  Read_GL_ATI_envmap_bumpmap;
-  Read_GL_ATI_fragment_shader;
-  Read_GL_ATI_map_object_buffer;
-  Read_GL_ATI_pn_triangles;
-  Read_GL_ATI_separate_stencil;
-  Read_GL_ATI_vertex_array_object;
-  Read_GL_ATI_vertex_attrib_array_object;
-  Read_GL_ATI_vertex_streams;
-  Read_GL_AMD_performance_monitor;
-  Read_GL_EXT_blend_color;
-  Read_GL_EXT_blend_func_separate;
-  Read_GL_EXT_blend_minmax;
-  Read_GL_EXT_color_subtable;
-  Read_GL_EXT_compiled_vertex_array;
-  Read_GL_EXT_convolution;
-  Read_GL_EXT_coordinate_frame;
-  Read_GL_EXT_copy_texture;
-  Read_GL_EXT_cull_vertex;
-  Read_GL_EXT_draw_range_elements;
-  Read_GL_EXT_fog_coord;
-  Read_GL_EXT_framebuffer_object;
-  Read_GL_EXT_histogram;
-  Read_GL_EXT_index_func;
-  Read_GL_EXT_index_material;
-  Read_GL_EXT_multi_draw_arrays;
-  Read_GL_EXT_multisample;
-  Read_GL_EXT_paletted_texture;
-  Read_GL_EXT_pixel_transform;
-  Read_GL_EXT_point_parameters;
-  Read_GL_EXT_polygon_offset;
-  Read_GL_EXT_secondary_color;
-  Read_GL_EXT_stencil_two_side;
-  Read_GL_EXT_subtexture;
-  Read_GL_EXT_texture3D;
-  Read_GL_EXT_texture_object;
-  Read_GL_EXT_texture_perturb_normal;
-  Read_GL_EXT_vertex_array;
-  Read_GL_EXT_vertex_shader;
-  Read_GL_EXT_vertex_weighting;
-  Read_GL_EXT_depth_bounds_test;
-  Read_GL_EXT_blend_equation_separate;
-  Read_GL_EXT_stencil_clear_tag;
-  Read_GL_EXT_framebuffer_blit;
-  Read_GL_EXT_framebuffer_multisample;
-  Read_GL_EXT_timer_query;
-  Read_GL_EXT_gpu_program_parameters;
-  Read_GL_EXT_bindable_uniform;
-  Read_GL_EXT_draw_buffers2;
-  Read_GL_EXT_draw_instanced;
-  Read_GL_EXT_geometry_shader4;
-  Read_GL_EXT_gpu_shader4;
-  Read_GL_EXT_texture_array;
-  Read_GL_EXT_texture_buffer_object;
-  Read_GL_EXT_texture_integer;
-  Read_GL_EXT_transform_feedback;
-  Read_GL_EXT_direct_state_access;
-  Read_GL_HP_image_transform;
-  Read_GL_IBM_multimode_draw_arrays;
-  Read_GL_IBM_vertex_array_lists;
-  Read_GL_INGR_blend_func_separate;
-  Read_GL_INTEL_parallel_arrays;
-  Read_GL_MESA_resize_buffers;
-  Read_GL_MESA_window_pos;
-  Read_GL_NV_evaluators;
-  Read_GL_NV_fence;
-  Read_GL_NV_fragment_program;
-  Read_GL_NV_half_float;
-  Read_GL_NV_occlusion_query;
-  Read_GL_NV_pixel_data_range;
-  Read_GL_NV_point_sprite;
-  Read_GL_NV_primitive_restart;
-  Read_GL_NV_register_combiners;
-  Read_GL_NV_register_combiners2;
-  Read_GL_NV_vertex_array_range;
-  Read_GL_NV_vertex_program;
-  Read_GL_NV_depth_buffer_float;
-  Read_GL_NV_framebuffer_multisample_coverage;
-  Read_GL_NV_geometry_program4;
-  Read_GL_NV_gpu_program4;
-  Read_GL_NV_parameter_buffer_object;
-  Read_GL_NV_transform_feedback;
-  Read_GL_NV_conditional_render;
-  Read_GL_NV_present_video;
-  Read_GL_NV_explicit_multisample;
-  Read_GL_NV_transform_feedback2;
-  Read_GL_PGI_misc_hints;
-  Read_GL_SGIS_detail_texture;
-  Read_GL_SGIS_fog_function;
-  Read_GL_SGIS_multisample;
-  Read_GL_SGIS_pixel_texture;
-  Read_GL_SGIS_point_parameters;
-  Read_GL_SGIS_sharpen_texture;
-  Read_GL_SGIS_texture4D;
-  Read_GL_SGIS_texture_color_mask;
-  Read_GL_SGIS_texture_filter4;
-  Read_GL_SGIX_async;
-  Read_GL_SGIX_flush_raster;
-  Read_GL_SGIX_fragment_lighting;
-  Read_GL_SGIX_framezoom;
-  Read_GL_SGIX_igloo_interface;
-  Read_GL_SGIX_instruments;
-  Read_GL_SGIX_list_priority;
-  Read_GL_SGIX_pixel_texture;
-  Read_GL_SGIX_polynomial_ffd;
-  Read_GL_SGIX_reference_plane;
-  Read_GL_SGIX_sprite;
-  Read_GL_SGIX_tag_sample_buffer;
-  Read_GL_SGI_color_table;
-  Read_GL_SUNX_constant_data;
-  Read_GL_SUN_global_alpha;
-  Read_GL_SUN_mesh_array;
-  Read_GL_SUN_triangle_list;
-  Read_GL_SUN_vertex;
-
-{$IFDEF DGL_WIN}
-  Read_WGL_ARB_buffer_region;
-  Read_WGL_ARB_extensions_string;
-  Read_WGL_ARB_make_current_read;
-  Read_WGL_ARB_pbuffer;
-  Read_WGL_ARB_pixel_format;
-  Read_WGL_ARB_pixel_format_float;
-  Read_WGL_ARB_render_texture;
-  Read_WGL_ARB_create_context;
-  Read_WGL_AMD_gpu_association;
-  Read_WGL_EXT_display_color_table;
-  Read_WGL_EXT_extensions_string;
-  Read_WGL_EXT_make_current_read;
-  Read_WGL_EXT_pbuffer;
-  Read_WGL_EXT_pixel_format;
-  Read_WGL_EXT_swap_control;
-  Read_WGL_I3D_digital_video_control;
-  Read_WGL_I3D_gamma;
-  Read_WGL_I3D_genlock;
-  Read_WGL_I3D_image_buffer;
-  Read_WGL_I3D_swap_frame_lock;
-  Read_WGL_I3D_swap_frame_usage;
-  Read_WGL_NV_vertex_array_range;
-  Read_WGL_NV_present_video;
-  Read_WGL_NV_video_out;
-  Read_WGL_NV_swap_group;
-  Read_WGL_NV_gpu_affinity;
-  Read_WGL_OML_sync_control;
-  Read_WGL_3DL_stereo_control;
-
-  Read_WIN_draw_range_elements;
-  Read_WIN_swap_hint;
-{$ENDIF}
-
-  ExtensionsRead := True;
-end;
-
-// =============================================================================
-//  ReadCoreVersion
-// =============================================================================
-
-procedure ReadCoreVersion;
-var
-  AnsiBuffer: AnsiString;
-  Buffer: String;
-  MajorVersion, MinorVersion: Integer;
-
-  procedure TrimAndSplitVersionString(Buffer: String; var Max, Min: Integer);
-    // Peels out the X.Y form from the given Buffer which must contain a version string like "text Minor.Major.Build text"
-    // at least however "Major.Minor".
-  var
-    Separator: Integer;
-  begin
-    try
-      // There must be at least one dot to separate major and minor version number.
-      Separator := Pos('.', Buffer);
-      // At least one number must be before and one after the dot.
-      if (Separator > 1) and (Separator < Length(Buffer)) and (AnsiChar(Buffer[Separator - 1]) in ['0'..'9']) and
-      (AnsiChar(Buffer[Separator + 1]) in ['0'..'9']) then
-      begin
-        // OK, it's a valid version string. Now remove unnecessary parts.
-        Dec(Separator);
-        // Find last non-numeric character before version number.
-        while (Separator > 0) and (AnsiChar(Buffer[Separator]) in ['0'..'9']) do
-          Dec(Separator);
-        // Delete leading characters which do not belong to the version string.
-        Delete(Buffer, 1, Separator);
-        Separator := Pos('.', Buffer) + 1;
-        // Find first non-numeric character after version number
-        while (Separator <= Length(Buffer)) and (AnsiChar(Buffer[Separator]) in ['0'..'9']) do
-          Inc(Separator);
-        // delete trailing characters not belonging to the version string
-        Delete(Buffer, Separator, 255);
-        // Now translate the numbers.
-        Separator := Pos('.', Buffer); // This is necessary because the buffer length might have changed.
-        Max := StrToInt(Copy(Buffer, 1, Separator - 1));
-        Min := StrToInt(Copy(Buffer, Separator + 1, 1));
-      end
-      else
-        Abort;
-    except
-      Min := 0;
-      Max := 0;
-    end;
-  end;
-
-
-begin
-  // determine version of implementation
-  // GL
-  if not Assigned(@glGetString) then
-    glGetString := dglGetProcAddress('glGetString');
-
-  AnsiBuffer := glGetString(GL_VERSION);
-  Buffer := String(AnsiBuffer);
-
-  TrimAndSplitVersionString(Buffer, MajorVersion, MinorVersion);
-
-  GL_VERSION_1_0 := True;
-  GL_VERSION_1_1 := False;
-  GL_VERSION_1_2 := False;
-  GL_VERSION_1_3 := False;
-  GL_VERSION_1_4 := False;
-  GL_VERSION_1_5 := False;
-  GL_VERSION_2_0 := False;
-  GL_VERSION_2_1 := False;
-  GL_VERSION_3_0 := False;
-  GL_VERSION_3_1 := False;
-  GL_VERSION_3_2 := False;
-
-  if MajorVersion = 1 then
-  begin
-    if MinorVersion >= 1 then
-      GL_VERSION_1_1 := True;
-    if MinorVersion >= 2 then
-      GL_VERSION_1_2 := True;
-    if MinorVersion >= 3 then
-      GL_VERSION_1_3 := True;
-    if MinorVersion >= 4 then
-      GL_VERSION_1_4 := True;
-    if MinorVersion >= 5 then
-      GL_VERSION_1_5 := True;
-  end;
-
-  if MajorVersion >= 2 then
-  begin
-    GL_VERSION_1_1 := True;
-    GL_VERSION_1_2 := True;
-    GL_VERSION_1_3 := True;
-    GL_VERSION_1_4 := True;
-    GL_VERSION_1_5 := True;
-    GL_VERSION_2_0 := True;
-
-    if MinorVersion >= 1 then
-      GL_VERSION_2_1 := True;
-  end;
-
-  if MajorVersion >= 3 then
-  begin
-    GL_VERSION_2_1 := True;
-    GL_VERSION_3_0 := True;
-    
-    if MinorVersion >= 1 then
-      GL_VERSION_3_1 := True;
-    if MinorVersion >= 2 then
-      GL_VERSION_3_2 := True;
-  end;
-
-
-  // GLU
-  GLU_VERSION_1_1 := False;
-  GLU_VERSION_1_2 := False;
-  GLU_VERSION_1_3 := False;
-
-  if Assigned(gluGetString) then begin
-    AnsiBuffer := gluGetString(GLU_VERSION);
-    Buffer := String(AnsiBuffer);
-
-    TrimAndSplitVersionString(Buffer, Majorversion, MinorVersion);
-
-    GLU_VERSION_1_1 := True;
-
-    if MinorVersion >= 2 then
-      GLU_VERSION_1_2 := True;
-
-    if MinorVersion >= 3 then
-      GLU_VERSION_1_3 := True;
-  end;
-end;
-
-
-// =============================================================================
-//  ReadImplementationProperties
-// =============================================================================
-
-procedure ReadImplementationProperties;
-var
-  Buffer: Ansistring;
-begin
-  ReadCoreVersion;
-
-  // Check all extensions
-  Buffer := Int_GetExtensionString;
-
-  // === 3DFX ====================================================================
-  GL_3DFX_multisample := Int_CheckExtension(Buffer, 'GL_3DFX_multisample');
-  GL_3DFX_tbuffer := Int_CheckExtension(Buffer, 'GL_3DFX_tbuffer');
-  GL_3DFX_texture_compression_FXT1 := Int_CheckExtension(Buffer, 'GL_3DFX_texture_compression_FXT1');
-
-  // === APPLE ===================================================================
-  GL_APPLE_client_storage := Int_CheckExtension(Buffer, 'GL_APPLE_client_storage');
-  GL_APPLE_element_array := Int_CheckExtension(Buffer, 'GL_APPLE_element_array');
-  GL_APPLE_fence := Int_CheckExtension(Buffer, 'GL_APPLE_fence');
-  GL_APPLE_specular_vector := Int_CheckExtension(Buffer, 'GL_APPLE_specular_vector');
-  GL_APPLE_transform_hint := Int_CheckExtension(Buffer, 'GL_APPLE_transform_hint');
-  GL_APPLE_vertex_array_object := Int_CheckExtension(Buffer, 'GL_APPLE_vertex_array_object');
-  GL_APPLE_vertex_array_range := Int_CheckExtension(Buffer, 'GL_APPLE_vertex_array_range');
-  GL_APPLE_ycbcr_422 := Int_CheckExtension(Buffer, 'GL_APPLE_ycbcr_422');
-  GL_APPLE_texture_range := Int_CheckExtension(Buffer, 'GL_APPLE_texture_range');
-  GL_APPLE_float_pixels := Int_CheckExtension(Buffer, 'GL_APPLE_float_pixels');
-  GL_APPLE_vertex_program_evaluators := Int_CheckExtension(Buffer, 'GL_APPLE_vertex_program_evaluators');
-  GL_APPLE_aux_depth_stencil := Int_CheckExtension(Buffer, 'GL_APPLE_aux_depth_stencil');
-  GL_APPLE_object_purgeable := Int_CheckExtension(Buffer, 'GL_APPLE_object_purgeable');
-
-  // === ARB =====================================================================
-  GL_ARB_depth_texture := Int_CheckExtension(Buffer, 'GL_ARB_depth_texture');
-  GL_ARB_fragment_program := Int_CheckExtension(Buffer, 'GL_ARB_fragment_program');
-  GL_ARB_imaging := Int_CheckExtension(Buffer, 'GL_ARB_imaging');
-  GL_ARB_matrix_palette := Int_CheckExtension(Buffer, 'GL_ARB_matrix_palette');
-  GL_ARB_multisample := Int_CheckExtension(Buffer, 'GL_ARB_multisample');
-  GL_ARB_multitexture := Int_CheckExtension(Buffer, 'GL_ARB_multitexture');
-  GL_ARB_point_parameters := Int_CheckExtension(Buffer, 'GL_ARB_point_parameters');
-  GL_ARB_shadow := Int_CheckExtension(Buffer, 'GL_ARB_shadow');
-  GL_ARB_shadow_ambient := Int_CheckExtension(Buffer, 'GL_ARB_shadow_ambient');
-  GL_ARB_texture_border_clamp := Int_CheckExtension(Buffer, 'GL_ARB_texture_border_clamp');
-  GL_ARB_texture_compression := Int_CheckExtension(Buffer, 'GL_ARB_texture_compression');
-  GL_ARB_texture_cube_map := Int_CheckExtension(Buffer, 'GL_ARB_texture_cube_map');
-  GL_ARB_texture_env_add := Int_CheckExtension(Buffer, 'GL_ARB_texture_env_add');
-  GL_ARB_texture_env_combine := Int_CheckExtension(Buffer, 'GL_ARB_texture_env_combine');
-  GL_ARB_texture_env_crossbar := Int_CheckExtension(Buffer, 'GL_ARB_texture_env_crossbar');
-  GL_ARB_texture_env_dot3 := Int_CheckExtension(Buffer, 'GL_ARB_texture_env_dot3');
-  GL_ARB_texture_mirrored_repeat := Int_CheckExtension(Buffer, 'GL_ARB_texture_mirrored_repeat');
-  GL_ARB_transpose_matrix := Int_CheckExtension(Buffer, 'GL_ARB_transpose_matrix');
-  GL_ARB_vertex_blend := Int_CheckExtension(Buffer, 'GL_ARB_vertex_blend');
-  GL_ARB_vertex_buffer_object := Int_CheckExtension(Buffer, 'GL_ARB_vertex_buffer_object');
-  GL_ARB_vertex_program := Int_CheckExtension(Buffer, 'GL_ARB_vertex_program');
-  GL_ARB_window_pos := Int_CheckExtension(Buffer, 'GL_ARB_window_pos');
-  GL_ARB_shader_objects := Int_CheckExtension(Buffer, 'GL_ARB_shader_objects');
-  GL_ARB_vertex_shader := Int_CheckExtension(Buffer, 'GL_ARB_vertex_shader');
-  GL_ARB_fragment_shader := Int_CheckExtension(Buffer, 'GL_ARB_fragment_shader');
-  GL_ARB_occlusion_query := Int_CheckExtension(Buffer, 'GL_ARB_occlusion_query');
-  GL_ARB_shading_language_100 := Int_CheckExtension(Buffer, 'GL_ARB_shading_language_100');
-  GL_ARB_point_sprite := Int_CheckExtension(Buffer, 'GL_ARB_point_sprite');
-  GL_ARB_texture_non_power_of_two := Int_CheckExtension(Buffer, 'GL_ARB_texture_non_power_of_two');
-  GL_ARB_fragment_program_shadow := Int_CheckExtension(Buffer, 'GL_ARB_fragment_program_shadow');
-  GL_ARB_draw_buffers := Int_CheckExtension(Buffer, 'GL_ARB_draw_buffers');
-  GL_ARB_texture_rectangle := Int_CheckExtension(Buffer, 'GL_ARB_texture_rectangle');
-  GL_ARB_color_buffer_float := Int_CheckExtension(Buffer, 'GL_ARB_color_buffer_float');
-  GL_ARB_half_float_pixel := Int_CheckExtension(Buffer, 'GL_ARB_half_float_pixel');
-  GL_ARB_texture_float := Int_CheckExtension(Buffer, 'GL_ARB_texture_float');
-  GL_ARB_pixel_buffer_object := Int_CheckExtension(Buffer, 'GL_ARB_pixel_buffer_object');
-  GL_ARB_depth_buffer_float := Int_CheckExtension(Buffer, 'GL_ARB_depth_buffer_float');
-  GL_ARB_draw_instanced := Int_CheckExtension(Buffer, 'GL_ARB_draw_instanced');
-  GL_ARB_framebuffer_object := Int_CheckExtension(Buffer, 'GL_ARB_framebuffer_object');
-  GL_ARB_framebuffer_sRGB := Int_CheckExtension(Buffer, 'GL_ARB_framebuffer_sRGB');
-  GL_ARB_geometry_shader4 := Int_CheckExtension(Buffer, 'GL_ARB_geometry_shader4');
-  GL_ARB_half_float_vertex := Int_CheckExtension(Buffer, 'GL_ARB_half_float_vertex');
-  GL_ARB_instanced_arrays := Int_CheckExtension(Buffer, 'GL_ARB_instanced_arrays');
-  GL_ARB_map_buffer_range := Int_CheckExtension(Buffer, 'GL_ARB_map_buffer_range');
-  GL_ARB_texture_buffer_object := Int_CheckExtension(Buffer, 'GL_ARB_texture_buffer_object');
-  GL_ARB_texture_compression_rgtc := Int_CheckExtension(Buffer, 'GL_ARB_texture_compression_rgtc');
-  GL_ARB_texture_rg := Int_CheckExtension(Buffer, 'GL_ARB_texture_rg');
-  GL_ARB_vertex_array_object := Int_CheckExtension(Buffer, 'GL_ARB_vertex_array_object');
-  GL_ARB_uniform_buffer_object := Int_CheckExtension(Buffer, 'GL_ARB_uniform_buffer_object');
-  GL_ARB_compatibility := Int_CheckExtension(Buffer, 'GL_ARB_compatibility');
-  GL_ARB_copy_buffer := Int_CheckExtension(Buffer, 'GL_ARB_copy_buffer');
-  GL_ARB_shader_texture_lod := Int_CheckExtension(Buffer, 'GL_ARB_shader_texture_lod');
-  GL_ARB_depth_clamp := Int_CheckExtension(Buffer, 'GL_ARB_depth_clamp');
-  GL_ARB_draw_elements_base_vertex := Int_CheckExtension(Buffer, 'GL_ARB_draw_elements_base_vertex');
-  GL_ARB_fragment_coord_conventions := Int_CheckExtension(Buffer, 'GL_ARB_fragment_coord_conventions');
-  GL_ARB_provoking_vertex := Int_CheckExtension(Buffer, 'GL_ARB_provoking_vertex');
-  GL_ARB_seamless_cube_map := Int_CheckExtension(Buffer, 'GL_ARB_seamless_cube_map');
-  GL_ARB_sync := Int_CheckExtension(Buffer, 'GL_ARB_sync');
-  GL_ARB_texture_multisample := Int_CheckExtension(Buffer, 'GL_ARB_texture_multisample');
-  GL_ARB_vertex_array_bgra := Int_CheckExtension(Buffer, 'GL_ARB_vertex_array_bgra');
-  GL_ARB_draw_buffers_blend := Int_CheckExtension(Buffer, 'GL_ARB_draw_buffers_blend');
-  GL_ARB_sample_shading := Int_CheckExtension(Buffer, 'GL_ARB_sample_shading');
-  GL_ARB_texture_cube_map_array := Int_CheckExtension(Buffer, 'GL_ARB_texture_cube_map_array');
-  GL_ARB_texture_gather := Int_CheckExtension(Buffer, 'GL_ARB_texture_gather');
-  GL_ARB_texture_query_lod := Int_CheckExtension(Buffer, 'GL_ARB_texture_query_lod');
-  
-  // === ATI/AMD =================================================================
-  GL_ATI_draw_buffers := Int_CheckExtension(Buffer, 'GL_ATI_draw_buffers');
-  GL_ATI_element_array := Int_CheckExtension(Buffer, 'GL_ATI_element_array');
-  GL_ATI_envmap_bumpmap := Int_CheckExtension(Buffer, 'GL_ATI_envmap_bumpmap');
-  GL_ATI_fragment_shader := Int_CheckExtension(Buffer, 'GL_ATI_fragment_shader');
-  GL_ATI_map_object_buffer := Int_CheckExtension(Buffer, 'GL_ATI_map_object_buffer');
-  GL_ATI_pn_triangles := Int_CheckExtension(Buffer, 'GL_ATI_pn_triangles');
-  GL_ATI_separate_stencil := Int_CheckExtension(Buffer, 'GL_ATI_separate_stencil');
-  GL_ATI_text_fragment_shader := Int_CheckExtension(Buffer, 'GL_ATI_text_fragment_shader');
-  GL_ATI_texture_env_combine3 := Int_CheckExtension(Buffer, 'GL_ATI_texture_env_combine3');
-  GL_ATI_texture_float := Int_CheckExtension(Buffer, 'GL_ATI_texture_float');
-  GL_ATI_texture_mirror_once := Int_CheckExtension(Buffer, 'GL_ATI_texture_mirror_once');
-  GL_ATI_vertex_array_object := Int_CheckExtension(Buffer, 'GL_ATI_vertex_array_object');
-  GL_ATI_vertex_attrib_array_object := Int_CheckExtension(Buffer, 'GL_ATI_vertex_attrib_array_object');
-  GL_ATI_vertex_streams := Int_CheckExtension(Buffer, 'GL_ATI_vertex_streams');
-  GL_ATI_meminfo := Int_CheckExtension(Buffer, 'GL_ATI_meminfo');
-  GL_AMD_performance_monitor := Int_CheckExtension(Buffer, 'GL_AMD_performance_monitor');
-  GL_AMD_texture_texture4 := Int_CheckExtension(Buffer, 'GL_AMD_texture_texture4');
-  GL_AMD_vertex_shader_tesselator := Int_CheckExtension(Buffer, 'GL_AMD_vertex_shader_tesselator');
-
-  // === EXT =====================================================================
-  GL_EXT_422_pixels := Int_CheckExtension(Buffer, 'GL_EXT_422_pixels');
-  GL_EXT_abgr := Int_CheckExtension(Buffer, 'GL_EXT_abgr');
-  GL_EXT_bgra := Int_CheckExtension(Buffer, 'GL_EXT_bgra');
-  GL_EXT_blend_color := Int_CheckExtension(Buffer, 'GL_EXT_blend_color');
-  GL_EXT_blend_func_separate := Int_CheckExtension(Buffer, 'GL_EXT_blend_func_separate');
-  GL_EXT_blend_logic_op := Int_CheckExtension(Buffer, 'GL_EXT_blend_logic_op');
-  GL_EXT_blend_minmax := Int_CheckExtension(Buffer, 'GL_EXT_blend_minmax');
-  GL_EXT_blend_subtract := Int_CheckExtension(Buffer, 'GL_EXT_blend_subtract');
-  GL_EXT_clip_volume_hint := Int_CheckExtension(Buffer, 'GL_EXT_clip_volume_hint');
-  GL_EXT_cmyka := Int_CheckExtension(Buffer, 'GL_EXT_cmyka');
-  GL_EXT_color_matrix := Int_CheckExtension(Buffer, 'GL_EXT_color_matrix');
-  GL_EXT_color_subtable := Int_CheckExtension(Buffer, 'GL_EXT_color_subtable');
-  GL_EXT_compiled_vertex_array := Int_CheckExtension(Buffer, 'GL_EXT_compiled_vertex_array');
-  GL_EXT_convolution := Int_CheckExtension(Buffer, 'GL_EXT_convolution');
-  GL_EXT_coordinate_frame := Int_CheckExtension(Buffer, 'GL_EXT_coordinate_frame');
-  GL_EXT_copy_texture := Int_CheckExtension(Buffer, 'GL_EXT_copy_texture');
-  GL_EXT_cull_vertex := Int_CheckExtension(Buffer, 'GL_EXT_cull_vertex');
-  GL_EXT_draw_range_elements := Int_CheckExtension(Buffer, 'GL_EXT_draw_range_elements');
-  GL_EXT_fog_coord := Int_CheckExtension(Buffer, 'GL_EXT_fog_coord');
-  GL_EXT_framebuffer_object := Int_CheckExtension(Buffer, 'GL_EXT_framebuffer_object');
-  GL_EXT_histogram := Int_CheckExtension(Buffer, 'GL_EXT_histogram');
-  GL_EXT_index_array_formats := Int_CheckExtension(Buffer, 'GL_EXT_index_array_formats');
-  GL_EXT_index_func := Int_CheckExtension(Buffer, 'GL_EXT_index_func');
-  GL_EXT_index_material := Int_CheckExtension(Buffer, 'GL_EXT_index_material');
-  GL_EXT_index_texture := Int_CheckExtension(Buffer, 'GL_EXT_index_texture');
-  GL_EXT_light_texture := Int_CheckExtension(Buffer, 'GL_EXT_light_texture');
-  GL_EXT_misc_attribute := Int_CheckExtension(Buffer, 'GL_EXT_misc_attribute');
-  GL_EXT_multi_draw_arrays := Int_CheckExtension(Buffer, 'GL_EXT_multi_draw_arrays');
-  GL_EXT_multisample := Int_CheckExtension(Buffer, 'GL_EXT_multisample');
-  GL_EXT_packed_pixels := Int_CheckExtension(Buffer, 'GL_EXT_packed_pixels');
-  GL_EXT_paletted_texture := Int_CheckExtension(Buffer, 'GL_EXT_paletted_texture');
-  GL_EXT_pixel_transform := Int_CheckExtension(Buffer, 'GL_EXT_pixel_transform');
-  GL_EXT_pixel_transform_color_table := Int_CheckExtension(Buffer, 'GL_EXT_pixel_transform_color_table');
-  GL_EXT_point_parameters := Int_CheckExtension(Buffer, 'GL_EXT_point_parameters');
-  GL_EXT_polygon_offset := Int_CheckExtension(Buffer, 'GL_EXT_polygon_offset');
-  GL_EXT_rescale_normal := Int_CheckExtension(Buffer, 'GL_EXT_rescale_normal');
-  GL_EXT_secondary_color := Int_CheckExtension(Buffer, 'GL_EXT_secondary_color');
-  GL_EXT_separate_specular_color := Int_CheckExtension(Buffer, 'GL_EXT_separate_specular_color');
-  GL_EXT_shadow_funcs := Int_CheckExtension(Buffer, 'GL_EXT_shadow_funcs');
-  GL_EXT_shared_texture_palette := Int_CheckExtension(Buffer, 'GL_EXT_shared_texture_palette');
-  GL_EXT_stencil_two_side := Int_CheckExtension(Buffer, 'GL_EXT_stencil_two_side');
-  GL_EXT_stencil_wrap := Int_CheckExtension(Buffer, 'GL_EXT_stencil_wrap');
-  GL_EXT_subtexture := Int_CheckExtension(Buffer, 'GL_EXT_subtexture');
-  GL_EXT_texture := Int_CheckExtension(Buffer, 'GL_EXT_texture');
-  GL_EXT_texture3D := Int_CheckExtension(Buffer, 'GL_EXT_texture3D');
-  GL_EXT_texture_compression_s3tc := Int_CheckExtension(Buffer, 'GL_EXT_texture_compression_s3tc');
-  GL_EXT_texture_cube_map := Int_CheckExtension(Buffer, 'GL_EXT_texture_cube_map');
-  GL_EXT_texture_edge_clamp := Int_CheckExtension(Buffer, 'GL_EXT_texture_edge_clamp');
-  GL_EXT_texture_env_add := Int_CheckExtension(Buffer, 'GL_EXT_texture_env_add');
-  GL_EXT_texture_env_combine := Int_CheckExtension(Buffer, 'GL_EXT_texture_env_combine');
-  GL_EXT_texture_env_dot3 := Int_CheckExtension(Buffer, 'GL_EXT_texture_env_dot3');
-  GL_EXT_texture_filter_anisotropic := Int_CheckExtension(Buffer, 'GL_EXT_texture_filter_anisotropic');
-  GL_EXT_texture_lod_bias := Int_CheckExtension(Buffer, 'GL_EXT_texture_lod_bias');
-  GL_EXT_texture_object := Int_CheckExtension(Buffer, 'GL_EXT_texture_object');
-  GL_EXT_texture_perturb_normal := Int_CheckExtension(Buffer, 'GL_EXT_texture_perturb_normal');
-  GL_EXT_texture_rectangle := Int_CheckExtension(Buffer, 'GL_EXT_texture_rectangle');
-  GL_EXT_vertex_array := Int_CheckExtension(Buffer, 'GL_EXT_vertex_array');
-  GL_EXT_vertex_shader := Int_CheckExtension(Buffer, 'GL_EXT_vertex_shader');
-  GL_EXT_vertex_weighting := Int_CheckExtension(Buffer, 'GL_EXT_vertex_weighting');
-  GL_EXT_depth_bounds_test := Int_CheckExtension(Buffer, 'GL_EXT_depth_bounds_test');
-  GL_EXT_texture_mirror_clamp := Int_CheckExtension(Buffer, 'GL_EXT_texture_mirror_clamp');
-  GL_EXT_blend_equation_separate := Int_CheckExtension(Buffer, 'GL_EXT_blend_equation_separate');
-  GL_EXT_pixel_buffer_object := Int_CheckExtension(Buffer, 'GL_EXT_pixel_buffer_object');
-  GL_EXT_texture_compression_dxt1 := Int_CheckExtension(Buffer, 'GL_EXT_texture_compression_dxt1');
-  GL_EXT_stencil_clear_tag := Int_CheckExtension(Buffer, 'GL_EXT_stencil_clear_tag');
-  GL_EXT_packed_depth_stencil := Int_CheckExtension(Buffer, 'GL_EXT_packed_depth_stencil');
-  GL_EXT_texture_sRGB := Int_CheckExtension(Buffer, 'GL_EXT_texture_sRGB');
-  GL_EXT_framebuffer_blit := Int_CheckExtension(Buffer, 'GL_EXT_framebuffer_blit');
-  GL_EXT_framebuffer_multisample := Int_CheckExtension(Buffer, 'GL_EXT_framebuffer_multisample');
-  GL_EXT_timer_query := Int_CheckExtension(Buffer, 'GL_EXT_timer_query');
-  GL_EXT_gpu_program_parameters := Int_CheckExtension(Buffer, 'GL_EXT_gpu_program_parameters');
-  GL_EXT_bindable_uniform := Int_CheckExtension(Buffer, 'GL_EXT_bindable_uniform');
-  GL_EXT_draw_buffers2 := Int_CheckExtension(Buffer, 'GL_EXT_draw_buffers2');
-  GL_EXT_draw_instanced := Int_CheckExtension(Buffer, 'GL_EXT_draw_instanced');
-  GL_EXT_framebuffer_sRGB := Int_CheckExtension(Buffer, 'GL_EXT_framebuffer_sRGB');
-  GL_EXT_geometry_shader4 := Int_CheckExtension(Buffer, 'GL_EXT_geometry_shader4');
-  GL_EXT_gpu_shader4 := Int_CheckExtension(Buffer, 'GL_EXT_gpu_shader4');
-  GL_EXT_packed_float := Int_CheckExtension(Buffer, 'GL_EXT_packed_float');
-  GL_EXT_texture_array := Int_CheckExtension(Buffer, 'GL_EXT_texture_array');
-  GL_EXT_texture_buffer_object := Int_CheckExtension(Buffer, 'GL_EXT_texture_buffer_object');
-  GL_EXT_texture_compression_latc := Int_CheckExtension(Buffer, 'GL_EXT_texture_compression_latc');
-  GL_EXT_texture_compression_rgtc := Int_CheckExtension(Buffer, 'GL_EXT_texture_compression_rgtc');
-  GL_EXT_texture_integer := Int_CheckExtension(Buffer, 'GL_EXT_texture_integer');
-  GL_EXT_texture_shared_exponent := Int_CheckExtension(Buffer, 'GL_EXT_texture_shared_exponent');
-  GL_EXT_transform_feedback := Int_CheckExtension(Buffer, 'GL_EXT_transform_feedback');
-  GL_EXT_direct_state_access := Int_CheckExtension(Buffer, 'GL_EXT_direct_state_access');
-  GL_EXT_vertex_array_bgra := Int_CheckExtension(Buffer, 'GL_EXT_vertex_array_bgra');
-  GL_EXT_texture_swizzle := Int_CheckExtension(Buffer, 'GL_EXT_texture_swizzle');
-  GL_EXT_provoking_vertex := Int_CheckExtension(Buffer, 'GL_EXT_provoking_vertex');
-
-  // === HP ======================================================================
-  GL_HP_convolution_border_modes := Int_CheckExtension(Buffer, 'GL_HP_convolution_border_modes');
-  GL_HP_image_transform := Int_CheckExtension(Buffer, 'GL_HP_image_transform');
-  GL_HP_occlusion_test := Int_CheckExtension(Buffer, 'GL_HP_occlusion_test');
-  GL_HP_texture_lighting := Int_CheckExtension(Buffer, 'GL_HP_texture_lighting');
-
-  // === IBM =====================================================================
-  GL_IBM_cull_vertex := Int_CheckExtension(Buffer, 'GL_IBM_cull_vertex');
-  GL_IBM_multimode_draw_arrays := Int_CheckExtension(Buffer, 'GL_IBM_multimode_draw_arrays');
-  GL_IBM_rasterpos_clip := Int_CheckExtension(Buffer, 'GL_IBM_rasterpos_clip');
-  GL_IBM_texture_mirrored_repeat := Int_CheckExtension(Buffer, 'GL_IBM_texture_mirrored_repeat');
-  GL_IBM_vertex_array_lists := Int_CheckExtension(Buffer, 'GL_IBM_vertex_array_lists');
-
-  // === INGR ====================================================================
-  GL_INGR_blend_func_separate := Int_CheckExtension(Buffer, 'GL_INGR_blend_func_separate');
-  GL_INGR_color_clamp := Int_CheckExtension(Buffer, 'GL_INGR_color_clamp');
-  GL_INGR_interlace_read := Int_CheckExtension(Buffer, 'GL_INGR_interlace_read');
-  GL_INGR_palette_buffer := Int_CheckExtension(Buffer, 'GL_INGR_palette_buffer');
-
-  // === INTEL ===================================================================
-  GL_INTEL_parallel_arrays := Int_CheckExtension(Buffer, 'GL_INTEL_parallel_arrays');
-  GL_INTEL_texture_scissor := Int_CheckExtension(Buffer, 'GL_INTEL_texture_scissor');
-
-  // === MESA ====================================================================
-  GL_MESA_resize_buffers := Int_CheckExtension(Buffer, 'GL_MESA_resize_buffers');
-  GL_MESA_window_pos := Int_CheckExtension(Buffer, 'GL_MESA_window_pos');
-
-  // === NVIDIA ==================================================================
-  GL_NV_blend_square := Int_CheckExtension(Buffer, 'GL_NV_blend_square');
-  GL_NV_copy_depth_to_color := Int_CheckExtension(Buffer, 'GL_NV_copy_depth_to_color');
-  GL_NV_depth_clamp := Int_CheckExtension(Buffer, 'GL_NV_depth_clamp');
-  GL_NV_evaluators := Int_CheckExtension(Buffer, 'GL_NV_evaluators');
-  GL_NV_fence := Int_CheckExtension(Buffer, 'GL_NV_fence');
-  GL_NV_float_buffer := Int_CheckExtension(Buffer, 'GL_NV_float_buffer');
-  GL_NV_fog_distance := Int_CheckExtension(Buffer, 'GL_NV_fog_distance');
-  GL_NV_fragment_program := Int_CheckExtension(Buffer, 'GL_NV_fragment_program');
-  GL_NV_half_float := Int_CheckExtension(Buffer, 'GL_NV_half_float');
-  GL_NV_light_max_exponent := Int_CheckExtension(Buffer, 'GL_NV_light_max_exponent');
-  GL_NV_multisample_filter_hint := Int_CheckExtension(Buffer, 'GL_NV_multisample_filter_hint');
-  GL_NV_occlusion_query := Int_CheckExtension(Buffer, 'GL_NV_occlusion_query');
-  GL_NV_packed_depth_stencil := Int_CheckExtension(Buffer, 'GL_NV_packed_depth_stencil');
-  GL_NV_pixel_data_range := Int_CheckExtension(Buffer, 'GL_NV_pixel_data_range');
-  GL_NV_point_sprite := Int_CheckExtension(Buffer, 'GL_NV_point_sprite');
-  GL_NV_primitive_restart := Int_CheckExtension(Buffer, 'GL_NV_primitive_restart');
-  GL_NV_register_combiners := Int_CheckExtension(Buffer, 'GL_NV_register_combiners');
-  GL_NV_register_combiners2 := Int_CheckExtension(Buffer, 'GL_NV_register_combiners2');
-  GL_NV_texgen_emboss := Int_CheckExtension(Buffer, 'GL_NV_texgen_emboss');
-  GL_NV_texgen_reflection := Int_CheckExtension(Buffer, 'GL_NV_texgen_reflection');
-  GL_NV_texture_compression_vtc := Int_CheckExtension(Buffer, 'GL_NV_texture_compression_vtc');
-  GL_NV_texture_env_combine4 := Int_CheckExtension(Buffer, 'GL_NV_texture_env_combine4');
-  GL_NV_texture_expand_normal := Int_CheckExtension(Buffer, 'GL_NV_texture_expand_normal');
-  GL_NV_texture_rectangle := Int_CheckExtension(Buffer, 'GL_NV_texture_rectangle');
-  GL_NV_texture_shader := Int_CheckExtension(Buffer, 'GL_NV_texture_shader');
-  GL_NV_texture_shader2 := Int_CheckExtension(Buffer, 'GL_NV_texture_shader2');
-  GL_NV_texture_shader3 := Int_CheckExtension(Buffer, 'GL_NV_texture_shader3');
-  GL_NV_vertex_array_range := Int_CheckExtension(Buffer, 'GL_NV_vertex_array_range');
-  GL_NV_vertex_array_range2 := Int_CheckExtension(Buffer, 'GL_NV_vertex_array_range2');
-  GL_NV_vertex_program := Int_CheckExtension(Buffer, 'GL_NV_vertex_program');
-  GL_NV_vertex_program1_1 := Int_CheckExtension(Buffer, 'GL_NV_vertex_program1_1');
-  GL_NV_vertex_program2 := Int_CheckExtension(Buffer, 'GL_NV_vertex_program2');
-  GL_NV_fragment_program_option := Int_CheckExtension(Buffer, 'GL_NV_fragment_program_option');
-  GL_NV_fragment_program2 := Int_CheckExtension(Buffer, 'GL_NV_fragment_program2');
-  GL_NV_vertex_program2_option := Int_CheckExtension(Buffer, 'GL_NV_vertex_program2_option');
-  GL_NV_vertex_program3 := Int_CheckExtension(Buffer, 'GL_NV_vertex_program3');
-  GL_NV_depth_buffer_float := Int_CheckExtension(Buffer, 'GL_NV_depth_buffer_float');
-  GL_NV_fragment_program4 := Int_CheckExtension(Buffer, 'GL_NV_fragment_program4');
-  GL_NV_framebuffer_multisample_coverage := Int_CheckExtension(Buffer, 'GL_NV_framebuffer_multisample_coverage');
-  GL_NV_geometry_program4 := Int_CheckExtension(Buffer, 'GL_NV_geometry_program4');
-  GL_NV_gpu_program4 := Int_CheckExtension(Buffer, 'GL_NV_gpu_program4');
-  GL_NV_parameter_buffer_object := Int_CheckExtension(Buffer, 'GL_NV_parameter_buffer_object');
-  GL_NV_transform_feedback := Int_CheckExtension(Buffer, 'GL_NV_transform_feedback');
-  GL_NV_vertex_program4 := Int_CheckExtension(Buffer, 'GL_NV_vertex_program4');
-  GL_NV_conditional_render := Int_CheckExtension(Buffer, 'GL_NV_conditional_render');
-  GL_NV_present_video := Int_CheckExtension(Buffer, 'GL_NV_present_video');
-  GL_NV_explicit_multisample := Int_CheckExtension(Buffer, 'GL_NV_explicit_multisample');
-  GL_NV_transform_feedback2 := Int_CheckExtension(Buffer, 'GL_NV_transform_feedback2');
-
-  // === OML =====================================================================
-  GL_OML_interlace := Int_CheckExtension(Buffer, 'GL_OML_interlace');
-  GL_OML_resample := Int_CheckExtension(Buffer, 'GL_OML_resample');
-  GL_OML_subsample := Int_CheckExtension(Buffer, 'GL_OML_subsample');
-
-  // === PGI =====================================================================
-  GL_PGI_misc_hints := Int_CheckExtension(Buffer, 'GL_PGI_misc_hints');
-  GL_PGI_vertex_hints := Int_CheckExtension(Buffer, 'GL_PGI_vertex_hints');
-
-  // === REND ====================================================================
-  GL_REND_screen_coordinates := Int_CheckExtension(Buffer, 'GL_REND_screen_coordinates');
-
-  // === S3 ======================================================================
-  GL_S3_s3tc := Int_CheckExtension(Buffer, 'GL_S3_s3tc');
-
-  // === SGIS ====================================================================
-  GL_SGIS_detail_texture := Int_CheckExtension(Buffer, 'GL_SGIS_detail_texture');
-  GL_SGIS_fog_function := Int_CheckExtension(Buffer, 'GL_SGIS_fog_function');
-  GL_SGIS_generate_mipmap := Int_CheckExtension(Buffer, 'GL_SGIS_generate_mipmap');
-  GL_SGIS_multisample := Int_CheckExtension(Buffer, 'GL_SGIS_multisample');
-  GL_SGIS_pixel_texture := Int_CheckExtension(Buffer, 'GL_SGIS_pixel_texture');
-  GL_SGIS_point_line_texgen := Int_CheckExtension(Buffer, 'GL_SGIS_point_line_texgen');
-  GL_SGIS_point_parameters := Int_CheckExtension(Buffer, 'GL_SGIS_point_parameters');
-  GL_SGIS_sharpen_texture := Int_CheckExtension(Buffer, 'GL_SGIS_sharpen_texture');
-  GL_SGIS_texture4D := Int_CheckExtension(Buffer, 'GL_SGIS_texture4D');
-  GL_SGIS_texture_border_clamp := Int_CheckExtension(Buffer, 'GL_SGIS_texture_border_clamp');
-  GL_SGIS_texture_color_mask := Int_CheckExtension(Buffer, 'GL_SGIS_texture_color_mask');
-  GL_SGIS_texture_edge_clamp := Int_CheckExtension(Buffer, 'GL_SGIS_texture_edge_clamp');
-  GL_SGIS_texture_filter4 := Int_CheckExtension(Buffer, 'GL_SGIS_texture_filter4');
-  GL_SGIS_texture_lod := Int_CheckExtension(Buffer, 'GL_SGIS_texture_lod');
-  GL_SGIS_texture_select := Int_CheckExtension(Buffer, 'GL_SGIS_texture_select');
-
-  // === SGIX ====================================================================
-  GL_FfdMaskSGIX := Int_CheckExtension(Buffer, 'GL_FfdMaskSGIX');
-  GL_SGIX_async := Int_CheckExtension(Buffer, 'GL_SGIX_async');
-  GL_SGIX_async_histogram := Int_CheckExtension(Buffer, 'GL_SGIX_async_histogram');
-  GL_SGIX_async_pixel := Int_CheckExtension(Buffer, 'GL_SGIX_async_pixel');
-  GL_SGIX_blend_alpha_minmax := Int_CheckExtension(Buffer, 'GL_SGIX_blend_alpha_minmax');
-  GL_SGIX_calligraphic_fragment := Int_CheckExtension(Buffer, 'GL_SGIX_calligraphic_fragment');
-  GL_SGIX_clipmap := Int_CheckExtension(Buffer, 'GL_SGIX_clipmap');
-  GL_SGIX_convolution_accuracy := Int_CheckExtension(Buffer, 'GL_SGIX_convolution_accuracy');
-  GL_SGIX_depth_pass_instrument := Int_CheckExtension(Buffer, 'GL_SGIX_depth_pass_instrument');
-  GL_SGIX_depth_texture := Int_CheckExtension(Buffer, 'GL_SGIX_depth_texture');
-  GL_SGIX_flush_raster := Int_CheckExtension(Buffer, 'GL_SGIX_flush_raster');
-  GL_SGIX_fog_offset := Int_CheckExtension(Buffer, 'GL_SGIX_fog_offset');
-  GL_SGIX_fog_scale := Int_CheckExtension(Buffer, 'GL_SGIX_fog_scale');
-  GL_SGIX_fragment_lighting := Int_CheckExtension(Buffer, 'GL_SGIX_fragment_lighting');
-  GL_SGIX_framezoom := Int_CheckExtension(Buffer, 'GL_SGIX_framezoom');
-  GL_SGIX_igloo_interface := Int_CheckExtension(Buffer, 'GL_SGIX_igloo_interface');
-  GL_SGIX_impact_pixel_texture := Int_CheckExtension(Buffer, 'GL_SGIX_impact_pixel_texture');
-  GL_SGIX_instruments := Int_CheckExtension(Buffer, 'GL_SGIX_instruments');
-  GL_SGIX_interlace := Int_CheckExtension(Buffer, 'GL_SGIX_interlace');
-  GL_SGIX_ir_instrument1 := Int_CheckExtension(Buffer, 'GL_SGIX_ir_instrument1');
-  GL_SGIX_list_priority := Int_CheckExtension(Buffer, 'GL_SGIX_list_priority');
-  GL_SGIX_pixel_texture := Int_CheckExtension(Buffer, 'GL_SGIX_pixel_texture');
-  GL_SGIX_pixel_tiles := Int_CheckExtension(Buffer, 'GL_SGIX_pixel_tiles');
-  GL_SGIX_polynomial_ffd := Int_CheckExtension(Buffer, 'GL_SGIX_polynomial_ffd');
-  GL_SGIX_reference_plane := Int_CheckExtension(Buffer, 'GL_SGIX_reference_plane');
-  GL_SGIX_resample := Int_CheckExtension(Buffer, 'GL_SGIX_resample');
-  GL_SGIX_scalebias_hint := Int_CheckExtension(Buffer, 'GL_SGIX_scalebias_hint');
-  GL_SGIX_shadow := Int_CheckExtension(Buffer, 'GL_SGIX_shadow');
-  GL_SGIX_shadow_ambient := Int_CheckExtension(Buffer, 'GL_SGIX_shadow_ambient');
-  GL_SGIX_sprite := Int_CheckExtension(Buffer, 'GL_SGIX_sprite');
-  GL_SGIX_subsample := Int_CheckExtension(Buffer, 'GL_SGIX_subsample');
-  GL_SGIX_tag_sample_buffer := Int_CheckExtension(Buffer, 'GL_SGIX_tag_sample_buffer');
-  GL_SGIX_texture_add_env := Int_CheckExtension(Buffer, 'GL_SGIX_texture_add_env');
-  GL_SGIX_texture_coordinate_clamp := Int_CheckExtension(Buffer, 'GL_SGIX_texture_coordinate_clamp');
-  GL_SGIX_texture_lod_bias := Int_CheckExtension(Buffer, 'GL_SGIX_texture_lod_bias');
-  GL_SGIX_texture_multi_buffer := Int_CheckExtension(Buffer, 'GL_SGIX_texture_multi_buffer');
-  GL_SGIX_texture_scale_bias := Int_CheckExtension(Buffer, 'GL_SGIX_texture_scale_bias');
-  GL_SGIX_texture_select := Int_CheckExtension(Buffer, 'GL_SGIX_texture_select');
-  GL_SGIX_vertex_preclip := Int_CheckExtension(Buffer, 'GL_SGIX_vertex_preclip');
-  GL_SGIX_ycrcb := Int_CheckExtension(Buffer, 'GL_SGIX_ycrcb');
-  GL_SGIX_ycrcb_subsample := Int_CheckExtension(Buffer, 'GL_SGIX_ycrcb_subsample');
-  GL_SGIX_ycrcba := Int_CheckExtension(Buffer, 'GL_SGIX_ycrcba');
-
-  // === SGI =====================================================================
-  GL_SGI_color_matrix := Int_CheckExtension(Buffer, 'GL_SGI_color_matrix');
-  GL_SGI_color_table := Int_CheckExtension(Buffer, 'GL_SGI_color_table');
-  GL_SGI_depth_pass_instrument := Int_CheckExtension(Buffer, 'GL_SGI_depth_pass_instrument');
-  GL_SGI_texture_color_table := Int_CheckExtension(Buffer, 'GL_SGI_texture_color_table');
-
-  // === SUN =====================================================================
-  GL_SUNX_constant_data := Int_CheckExtension(Buffer, 'GL_SUNX_constant_data');
-  GL_SUN_convolution_border_modes := Int_CheckExtension(Buffer, 'GL_SUN_convolution_border_modes');
-  GL_SUN_global_alpha := Int_CheckExtension(Buffer, 'GL_SUN_global_alpha');
-  GL_SUN_mesh_array := Int_CheckExtension(Buffer, 'GL_SUN_mesh_array');
-  GL_SUN_slice_accum := Int_CheckExtension(Buffer, 'GL_SUN_slice_accum');
-  GL_SUN_triangle_list := Int_CheckExtension(Buffer, 'GL_SUN_triangle_list');
-  GL_SUN_vertex := Int_CheckExtension(Buffer, 'GL_SUN_vertex');
-
-  // === WIN =====================================================================
-  GL_WIN_phong_shading := Int_CheckExtension(Buffer, 'GL_WIN_phong_shading');
-  GL_WIN_specular_fog := Int_CheckExtension(Buffer, 'GL_WIN_specular_fog');
-
-  {$IFDEF DGL_WIN}
-  // === WGL =====================================================================
-  WGL_3DFX_multisample := Int_CheckExtension(Buffer, 'WGL_3DFX_multisample');
-  WGL_ARB_buffer_region := Int_CheckExtension(Buffer, 'WGL_ARB_buffer_region');
-  WGL_ARB_extensions_string := Int_CheckExtension(Buffer, 'WGL_ARB_extensions_string');
-  WGL_ARB_make_current_read := Int_CheckExtension(Buffer, 'WGL_ARB_make_current_read');
-  WGL_ARB_multisample := Int_CheckExtension(Buffer, 'WGL_ARB_multisample');
-  WGL_ARB_pbuffer := Int_CheckExtension(Buffer, 'WGL_ARB_pbuffer');
-  WGL_ARB_pixel_format := Int_CheckExtension(Buffer, 'WGL_ARB_pixel_format');
-  WGL_ARB_pixel_format_float := Int_CheckExtension(Buffer, 'WGL_ARB_pixel_format_float');
-  WGL_ARB_render_texture := Int_CheckExtension(Buffer, 'WGL_ARB_render_texture');
-  WGL_ARB_create_context := Int_CheckExtension(Buffer, 'WGL_ARB_create_context');
-  WGL_ARB_create_context_profile := Int_CheckExtension(Buffer, 'WGL_ARB_create_context_profile');
-  WGL_ATI_pixel_format_float := Int_CheckExtension(Buffer, 'WGL_ATI_pixel_format_float');
-  WGL_AMD_gpu_association := Int_CheckExtension(Buffer, 'WGL_AMD_gpu_association');
-  WGL_EXT_depth_float := Int_CheckExtension(Buffer, 'WGL_EXT_depth_float');
-  WGL_EXT_display_color_table := Int_CheckExtension(Buffer, 'WGL_EXT_display_color_table');
-  WGL_EXT_extensions_string := Int_CheckExtension(Buffer, 'WGL_EXT_extensions_string');
-  WGL_EXT_make_current_read := Int_CheckExtension(Buffer, 'WGL_EXT_make_current_read');
-  WGL_EXT_multisample := Int_CheckExtension(Buffer, 'WGL_EXT_multisample');
-  WGL_EXT_pbuffer := Int_CheckExtension(Buffer, 'WGL_EXT_pbuffer');
-  WGL_EXT_pixel_format := Int_CheckExtension(Buffer, 'WGL_EXT_pixel_format');
-  WGL_EXT_swap_control := Int_CheckExtension(Buffer, 'WGL_EXT_swap_control');
-  WGL_I3D_digital_video_control := Int_CheckExtension(Buffer, 'WGL_I3D_digital_video_control');
-  WGL_I3D_gamma := Int_CheckExtension(Buffer, 'WGL_I3D_gamma');
-  WGL_I3D_genlock := Int_CheckExtension(Buffer, 'WGL_I3D_genlock');
-  WGL_I3D_image_buffer := Int_CheckExtension(Buffer, 'WGL_I3D_image_buffer');
-  WGL_I3D_swap_frame_lock := Int_CheckExtension(Buffer, 'WGL_I3D_swap_frame_lock');
-  WGL_I3D_swap_frame_usage := Int_CheckExtension(Buffer, 'WGL_I3D_swap_frame_usage');
-  WGL_NV_float_buffer := Int_CheckExtension(Buffer, 'WGL_NV_float_buffer');
-  WGL_NV_render_depth_texture := Int_CheckExtension(Buffer, 'WGL_NV_render_depth_texture');
-  WGL_NV_render_texture_rectangle := Int_CheckExtension(Buffer, 'WGL_NV_render_texture_rectangle');
-  WGL_NV_vertex_array_range := Int_CheckExtension(Buffer, 'WGL_NV_vertex_array_range');
-  WGL_NV_present_video := Int_CheckExtension(Buffer, 'WGL_NV_present_video');
-  WGL_NV_video_out := Int_CheckExtension(Buffer, 'WGL_NV_video_out');
-  WGL_NV_swap_group := Int_CheckExtension(Buffer, 'WGL_NV_swap_group');
-  WGL_NV_gpu_affinity := Int_CheckExtension(Buffer, 'WGL_NV_gpu_affinity');
-  WGL_OML_sync_control := Int_CheckExtension(Buffer, 'WGL_OML_sync_control');
-  WGL_3DL_stereo_control := Int_CheckExtension(Buffer, 'WGL_3DL_stereo_control');
-
-  WIN_draw_range_elements := Int_CheckExtension(Buffer, 'WIN_draw_range_elements');
-  WIN_swap_hint := Int_CheckExtension(Buffer, 'WIN_swap_hint');
-  {$ENDIF}
-
-  {$IFDEF DGL_LINUX}
-  // === GLX =====================================================================
-  GLX_ARB_multisample := Int_CheckExtension(Buffer, 'GLX_ARB_multisample');
-  GLX_ARB_fbconfig_float := Int_CheckExtension(Buffer, 'GLX_ARB_fbconfig_float');
-  GLX_ARB_get_proc_address := Int_CheckExtension(Buffer, 'GLX_ARB_get_proc_address');
-  GLX_ARB_create_context := Int_CheckExtension(Buffer, 'GLX_ARB_create_context');
-  GLX_ARB_create_context_profile := Int_CheckExtension(Buffer, 'GLX_ARB_create_context_profile');
-  GLX_EXT_visual_info := Int_CheckExtension(Buffer, 'GLX_EXT_visual_info');
-  GLX_EXT_visual_rating := Int_CheckExtension(Buffer, 'GLX_EXT_visual_rating');
-  GLX_EXT_import_context := Int_CheckExtension(Buffer, 'GLX_EXT_import_context');
-  GLX_EXT_fbconfig_packed_float := Int_CheckExtension(Buffer, 'GLX_EXT_fbconfig_packed_float');
-  GLX_EXT_framebuffer_sRGB := Int_CheckExtension(Buffer, 'GLX_EXT_framebuffer_sRGB');
-  GLX_EXT_texture_from_pixmap := Int_CheckExtension(Buffer, 'GLX_EXT_texture_from_pixmap');
-  {$ENDIF}
-  ImplementationRead := True;
-end;
-
-{$IFDEF DGL_WIN}
-// =============================================================================
-// RaiseLastOSError
-// =============================================================================
-// Needed for compatibility with older Delphiversions
-// =============================================================================
-
-procedure RaiseLastOSError;
-begin
-{$IFDEF FPC}
-  raise Exception.Create('RaiseLastOSError!'); // To-Do: find a better solution
-{$ELSE}
-  {$IFDEF DELPHI6_AND_DOWN} // If Delphi 6 or later
-    SysUtils.RaiseLastWin32Error;
-  {$ELSE}
-    SysUtils.RaiseLastOSError;
-  {$ENDIF}
-{$ENDIF}
-end;
-
-// =============================================================================
-// CreateRenderingContext
-// =============================================================================
-
-function CreateRenderingContext(DC: HDC; Options: TRCOptions; ColorBits, ZBits, StencilBits, AccumBits, AuxBuffers: Integer; Layer: Integer): HGLRC;
-const
-  OBJ_MEMDC = 10;
-  OBJ_ENHMETADC = 12;
-  OBJ_METADC = 4;
-  PFD_DOUBLEBUFFER = $00000001;
-  PFD_STEREO = $00000002;
-  PFD_DRAW_TO_WINDOW = $00000004;
-  PFD_DRAW_TO_BITMAP = $00000008;
-  PFD_SUPPORT_GDI = $00000010;
-  PFD_SUPPORT_OPENGL = $00000020;
-  PFD_TYPE_RGBA = 0;
-  PFD_MAIN_PLANE = 0;
-  PFD_OVERLAY_PLANE = 1;
-  PFD_UNDERLAY_PLANE = LongWord(-1);
-  MemoryDCs = [OBJ_MEMDC, OBJ_METADC, OBJ_ENHMETADC];
-var
-  PFDescriptor: TPixelFormatDescriptor;
-  PixelFormat: Integer;
-  AType: DWORD;
-begin
-  if GL_LibHandle = nil then
-    InitOpenGL;
-
-  FillChar(PFDescriptor, SizeOf(PFDescriptor), 0);
-
-  with PFDescriptor do
-  begin
-    nSize := SizeOf(PFDescriptor);
-    nVersion := 1;
-    dwFlags := PFD_SUPPORT_OPENGL;
-
-    AType := GetObjectType(DC);
-
-    if AType = 0 then
-      RaiseLastOSError;
-
-    if AType in MemoryDCs then
-      dwFlags := dwFlags or PFD_DRAW_TO_BITMAP
-    else
-      dwFlags := dwFlags or PFD_DRAW_TO_WINDOW;
-
-    if opDoubleBuffered in Options then
-      dwFlags := dwFlags or PFD_DOUBLEBUFFER;
-
-    if opGDI in Options then
-      dwFlags := dwFlags or PFD_SUPPORT_GDI;
-
-    if opStereo in Options then
-      dwFlags := dwFlags or PFD_STEREO;
-
-    iPixelType := PFD_TYPE_RGBA;
-    cColorBits := ColorBits;
-    cDepthBits := zBits;
-    cStencilBits := StencilBits;
-    cAccumBits := AccumBits;
-    cAuxBuffers := AuxBuffers;
-
-    if Layer = 0 then
-      iLayerType := PFD_MAIN_PLANE
-    else
-    if Layer > 0 then
-      iLayerType := PFD_OVERLAY_PLANE
-    else
-      iLayerType := Byte(PFD_UNDERLAY_PLANE);
-  end;
-
-  PixelFormat := ChoosePixelFormat(DC, @PFDescriptor);
-
-  if PixelFormat = 0 then
-    RaiseLastOSError;
-
-  if GetPixelFormat(DC) <> PixelFormat then
-    if not SetPixelFormat(DC, PixelFormat, @PFDescriptor) then
-      RaiseLastOSError;
-
-  DescribePixelFormat(DC, PixelFormat, SizeOf(PFDescriptor), PFDescriptor);
-
-  Result := wglCreateContext(DC);
-
-  if Result = 0 then
-    RaiseLastOSError
-  else
-    LastPixelFormat := 0;
-end;
-
-// =============================================================================
-// DestroyRenderingContext
-// =============================================================================
-
-procedure DestroyRenderingContext(RC: HGLRC);
-begin
-  wglDeleteContext(RC);
-end;
-
-
-// =============================================================================
-// ActivateRenderingContext
-// =============================================================================
-
-procedure ActivateRenderingContext(DC: HDC; RC: HGLRC; loadext: boolean = true);
-begin
-  Assert((DC <> 0), 'DC must not be 0');
-  Assert((RC <> 0), 'RC must not be 0');
-
-  wglMakeCurrent(DC, RC);
-
-  {$ifdef DGL_TINY_HEADER}
-  ReadCoreVersion;
-  {$else}
-  ReadImplementationProperties;
-
-  if (loadext) then
-    ReadExtensions;
-  {$endif}
-end;
-
-// =============================================================================
-// DeactivateRenderingContext
-// =============================================================================
-
-procedure DeactivateRenderingContext;
-begin
-  wglMakeCurrent(0, 0);
-end;
-{$ENDIF}
-
-
-initialization
-
-{$IFDEF CPU386}
-  Set8087CW($133F);
-{$ENDIF}
-
-finalization
-
-end.
-
diff --git a/src/lib/dgl/glExt.pas b/src/lib/dgl/glExt.pas

deleted file mode 100644 (file)

index 462db17..0000000
--- a/src/lib/dgl/glExt.pas
+++ /dev/null
@@ -1,9483 +0,0 @@
-unit GLext;
-
-(**************************************************
- *        OpenGL extension loading library        *
- * Generated by MetaGLext, written by Tom Nuydens *
- *  (tom@delphi3d.net -- http://www.delphi3d.net  *
- **************************************************)
-
-//*** Generated on 2/22/2005
-
-interface
-
-uses
-  Windows, SysUtils, GL;
-
-// Not present in Windows.pas.
-function wglGetProcAddress(proc: PChar): Pointer; stdcall; external 'OpenGL32.dll';
-
-// Test if the given extension name is present in the given extension string.
-function glext_ExtensionSupported(const extension: String; const searchIn: String): Boolean;
-
-// Load the extension with the given name.
-function glext_LoadExtension(ext: String): Boolean;
-
-// Some types that were introduced by extensions:
-type
-  GLintptrARB = Integer;
-  PGLintptrARB = ^GLintptrARB;
-
-  GLsizeiptrARB = Integer;
-  PGLsizeiptrARB = ^GLsizeiptrARB;
-
-  GLcharARB = Char;
-  PGLcharARB = ^GLcharARB;
-
-  GLhandleARB = Cardinal;
-  PGLhandleARB = ^GLhandleARB;
-
-  GLintptr = Integer;
-  PGLintptr = ^GLintptr;
-
-  GLsizeiptr = Integer;
-  PGLsizeiptr = ^GLsizeiptr;
-
-  GLchar = Char;
-  PGLchar = ^GLchar;
-
-//***** GL_version_1_2 *****//
-const
-  GL_UNSIGNED_BYTE_3_3_2 = $8032;
-  GL_UNSIGNED_SHORT_4_4_4_4 = $8033;
-  GL_UNSIGNED_SHORT_5_5_5_1 = $8034;
-  GL_UNSIGNED_INT_8_8_8_8 = $8035;
-  GL_UNSIGNED_INT_10_10_10_2 = $8036;
-  GL_RESCALE_NORMAL = $803A;
-  GL_UNSIGNED_BYTE_2_3_3_REV = $8362;
-  GL_UNSIGNED_SHORT_5_6_5 = $8363;
-  GL_UNSIGNED_SHORT_5_6_5_REV = $8364;
-  GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;
-  GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;
-  GL_UNSIGNED_INT_8_8_8_8_REV = $8367;
-  GL_UNSIGNED_INT_2_10_10_10_REV = $8368;
-  GL_BGR = $80E0;
-  GL_BGRA = $80E1;
-  GL_MAX_ELEMENTS_VERTICES = $80E8;
-  GL_MAX_ELEMENTS_INDICES = $80E9;
-  GL_CLAMP_TO_EDGE = $812F;
-  GL_TEXTURE_MIN_LOD = $813A;
-  GL_TEXTURE_MAX_LOD = $813B;
-  GL_TEXTURE_BASE_LEVEL = $813C;
-  GL_TEXTURE_MAX_LEVEL = $813D;
-  GL_LIGHT_MODEL_COLOR_CONTROL = $81F8;
-  GL_SINGLE_COLOR = $81F9;
-  GL_SEPARATE_SPECULAR_COLOR = $81FA;
-  GL_SMOOTH_POINT_SIZE_RANGE = $0B12;
-  GL_SMOOTH_POINT_SIZE_GRANULARITY = $0B13;
-  GL_SMOOTH_LINE_WIDTH_RANGE = $0B22;
-  GL_SMOOTH_LINE_WIDTH_GRANULARITY = $0B23;
-  GL_ALIASED_POINT_SIZE_RANGE = $846D;
-  GL_ALIASED_LINE_WIDTH_RANGE = $846E;
-  GL_PACK_SKIP_IMAGES = $806B;
-  GL_PACK_IMAGE_HEIGHT = $806C;
-  GL_UNPACK_SKIP_IMAGES = $806D;
-  GL_UNPACK_IMAGE_HEIGHT = $806E;
-  GL_TEXTURE_3D = $806F;
-  GL_PROXY_TEXTURE_3D = $8070;
-  GL_TEXTURE_DEPTH = $8071;
-  GL_TEXTURE_WRAP_R = $8072;
-  GL_MAX_3D_TEXTURE_SIZE = $8073;
-var
-  glDrawRangeElements: procedure(mode: GLenum; start: GLuint; _end: GLuint; count: GLsizei; _type: GLenum; const indices: PGLvoid); stdcall = nil;
-  glTexImage3D: procedure(target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-  glTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-  glCopyTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); stdcall = nil;
-
-function Load_GL_version_1_2: Boolean;
-
-//***** GL_ARB_imaging *****//
-const
-  GL_CONSTANT_COLOR = $8001;
-  GL_ONE_MINUS_CONSTANT_COLOR = $8002;
-  GL_CONSTANT_ALPHA = $8003;
-  GL_ONE_MINUS_CONSTANT_ALPHA = $8004;
-  GL_BLEND_COLOR = $8005;
-  GL_FUNC_ADD = $8006;
-  GL_MIN = $8007;
-  GL_MAX = $8008;
-  GL_BLEND_EQUATION = $8009;
-  GL_FUNC_SUBTRACT = $800A;
-  GL_FUNC_REVERSE_SUBTRACT = $800B;
-  GL_CONVOLUTION_1D = $8010;
-  GL_CONVOLUTION_2D = $8011;
-  GL_SEPARABLE_2D = $8012;
-  GL_CONVOLUTION_BORDER_MODE = $8013;
-  GL_CONVOLUTION_FILTER_SCALE = $8014;
-  GL_CONVOLUTION_FILTER_BIAS = $8015;
-  GL_REDUCE = $8016;
-  GL_CONVOLUTION_FORMAT = $8017;
-  GL_CONVOLUTION_WIDTH = $8018;
-  GL_CONVOLUTION_HEIGHT = $8019;
-  GL_MAX_CONVOLUTION_WIDTH = $801A;
-  GL_MAX_CONVOLUTION_HEIGHT = $801B;
-  GL_POST_CONVOLUTION_RED_SCALE = $801C;
-  GL_POST_CONVOLUTION_GREEN_SCALE = $801D;
-  GL_POST_CONVOLUTION_BLUE_SCALE = $801E;
-  GL_POST_CONVOLUTION_ALPHA_SCALE = $801F;
-  GL_POST_CONVOLUTION_RED_BIAS = $8020;
-  GL_POST_CONVOLUTION_GREEN_BIAS = $8021;
-  GL_POST_CONVOLUTION_BLUE_BIAS = $8022;
-  GL_POST_CONVOLUTION_ALPHA_BIAS = $8023;
-  GL_HISTOGRAM = $8024;
-  GL_PROXY_HISTOGRAM = $8025;
-  GL_HISTOGRAM_WIDTH = $8026;
-  GL_HISTOGRAM_FORMAT = $8027;
-  GL_HISTOGRAM_RED_SIZE = $8028;
-  GL_HISTOGRAM_GREEN_SIZE = $8029;
-  GL_HISTOGRAM_BLUE_SIZE = $802A;
-  GL_HISTOGRAM_ALPHA_SIZE = $802B;
-  GL_HISTOGRAM_LUMINANCE_SIZE = $802C;
-  GL_HISTOGRAM_SINK = $802D;
-  GL_MINMAX = $802E;
-  GL_MINMAX_FORMAT = $802F;
-  GL_MINMAX_SINK = $8030;
-  GL_TABLE_TOO_LARGE = $8031;
-  GL_COLOR_MATRIX = $80B1;
-  GL_COLOR_MATRIX_STACK_DEPTH = $80B2;
-  GL_MAX_COLOR_MATRIX_STACK_DEPTH = $80B3;
-  GL_POST_COLOR_MATRIX_RED_SCALE = $80B4;
-  GL_POST_COLOR_MATRIX_GREEN_SCALE = $80B5;
-  GL_POST_COLOR_MATRIX_BLUE_SCALE = $80B6;
-  GL_POST_COLOR_MATRIX_ALPHA_SCALE = $80B7;
-  GL_POST_COLOR_MATRIX_RED_BIAS = $80B8;
-  GL_POST_COLOR_MATRIX_GREEN_BIAS = $80B9;
-  GL_POST_COLOR_MATRIX_BLUE_BIAS = $80BA;
-  GL_POST_COLOR_MATIX_ALPHA_BIAS = $80BB;
-  GL_COLOR_TABLE = $80D0;
-  GL_POST_CONVOLUTION_COLOR_TABLE = $80D1;
-  GL_POST_COLOR_MATRIX_COLOR_TABLE = $80D2;
-  GL_PROXY_COLOR_TABLE = $80D3;
-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = $80D4;
-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = $80D5;
-  GL_COLOR_TABLE_SCALE = $80D6;
-  GL_COLOR_TABLE_BIAS = $80D7;
-  GL_COLOR_TABLE_FORMAT = $80D8;
-  GL_COLOR_TABLE_WIDTH = $80D9;
-  GL_COLOR_TABLE_RED_SIZE = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE = $80DF;
-  GL_IGNORE_BORDER = $8150;
-  GL_CONSTANT_BORDER = $8151;
-  GL_WRAP_BORDER = $8152;
-  GL_REPLICATE_BORDER = $8153;
-  GL_CONVOLUTION_BORDER_COLOR = $8154;
-var
-  glColorTable: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const table: PGLvoid); stdcall = nil;
-  glColorTableParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glColorTableParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall = nil;
-  glCopyColorTable: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-  glGetColorTable: procedure(target: GLenum; format: GLenum; _type: GLenum; table: PGLvoid); stdcall = nil;
-  glGetColorTableParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetColorTableParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glColorSubTable: procedure(target: GLenum; start: GLsizei; count: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); stdcall = nil;
-  glCopyColorSubTable: procedure(target: GLenum; start: GLsizei; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-  glConvolutionFilter1D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); stdcall = nil;
-  glConvolutionFilter2D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); stdcall = nil;
-  glConvolutionParameterf: procedure(target: GLenum; pname: GLenum; params: GLfloat); stdcall = nil;
-  glConvolutionParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glConvolutionParameteri: procedure(target: GLenum; pname: GLenum; params: GLint); stdcall = nil;
-  glConvolutionParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall = nil;
-  glCopyConvolutionFilter1D: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-  glCopyConvolutionFilter2D: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei); stdcall = nil;
-  glGetConvolutionFilter: procedure(target: GLenum; format: GLenum; _type: GLenum; image: PGLvoid); stdcall = nil;
-  glGetConvolutionParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetConvolutionParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetSeparableFilter: procedure(target: GLenum; format: GLenum; _type: GLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); stdcall = nil;
-  glSeparableFilter2D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const row: PGLvoid; const column: PGLvoid); stdcall = nil;
-  glGetHistogram: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); stdcall = nil;
-  glGetHistogramParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetHistogramParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetMinmax: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); stdcall = nil;
-  glGetMinmaxParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetMinmaxParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glHistogram: procedure(target: GLenum; width: GLsizei; internalformat: GLenum; sink: GLboolean); stdcall = nil;
-  glMinmax: procedure(target: GLenum; internalformat: GLenum; sink: GLboolean); stdcall = nil;
-  glResetHistogram: procedure(target: GLenum); stdcall = nil;
-  glResetMinmax: procedure(target: GLenum); stdcall = nil;
-  glBlendEquation: procedure(mode: GLenum); stdcall = nil;
-  glBlendColor: procedure(red: GLclampf; green: GLclampf; blue: GLclampf; alpha: GLclampf); stdcall = nil;
-
-function Load_GL_ARB_imaging: Boolean;
-
-//***** GL_version_1_3 *****//
-const
-  GL_TEXTURE0 = $84C0;
-  GL_TEXTURE1 = $84C1;
-  GL_TEXTURE2 = $84C2;
-  GL_TEXTURE3 = $84C3;
-  GL_TEXTURE4 = $84C4;
-  GL_TEXTURE5 = $84C5;
-  GL_TEXTURE6 = $84C6;
-  GL_TEXTURE7 = $84C7;
-  GL_TEXTURE8 = $84C8;
-  GL_TEXTURE9 = $84C9;
-  GL_TEXTURE10 = $84CA;
-  GL_TEXTURE11 = $84CB;
-  GL_TEXTURE12 = $84CC;
-  GL_TEXTURE13 = $84CD;
-  GL_TEXTURE14 = $84CE;
-  GL_TEXTURE15 = $84CF;
-  GL_TEXTURE16 = $84D0;
-  GL_TEXTURE17 = $84D1;
-  GL_TEXTURE18 = $84D2;
-  GL_TEXTURE19 = $84D3;
-  GL_TEXTURE20 = $84D4;
-  GL_TEXTURE21 = $84D5;
-  GL_TEXTURE22 = $84D6;
-  GL_TEXTURE23 = $84D7;
-  GL_TEXTURE24 = $84D8;
-  GL_TEXTURE25 = $84D9;
-  GL_TEXTURE26 = $84DA;
-  GL_TEXTURE27 = $84DB;
-  GL_TEXTURE28 = $84DC;
-  GL_TEXTURE29 = $84DD;
-  GL_TEXTURE30 = $84DE;
-  GL_TEXTURE31 = $84DF;
-  GL_ACTIVE_TEXTURE = $84E0;
-  GL_CLIENT_ACTIVE_TEXTURE = $84E1;
-  GL_MAX_TEXTURE_UNITS = $84E2;
-  GL_TRANSPOSE_MODELVIEW_MATRIX = $84E3;
-  GL_TRANSPOSE_PROJECTION_MATRIX = $84E4;
-  GL_TRANSPOSE_TEXTURE_MATRIX = $84E5;
-  GL_TRANSPOSE_COLOR_MATRIX = $84E6;
-  GL_MULTISAMPLE = $809D;
-  GL_SAMPLE_ALPHA_TO_COVERAGE = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE = $809F;
-  GL_SAMPLE_COVERAGE = $80A0;
-  GL_SAMPLE_BUFFERS = $80A8;
-  GL_SAMPLES = $80A9;
-  GL_SAMPLE_COVERAGE_VALUE = $80AA;
-  GL_SAMPLE_COVERAGE_INVERT = $80AB;
-  GL_MULTISAMPLE_BIT = $20000000;
-  GL_NORMAL_MAP = $8511;
-  GL_REFLECTION_MAP = $8512;
-  GL_TEXTURE_CUBE_MAP = $8513;
-  GL_TEXTURE_BINDING_CUBE_MAP = $8514;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_X = $8515;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X = $8516;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y = $8517;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = $8518;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z = $8519;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = $851A;
-  GL_PROXY_TEXTURE_CUBE_MAP = $851B;
-  GL_MAX_CUBE_MAP_TEXTURE_SIZE = $851C;
-  GL_COMPRESSED_ALPHA = $84E9;
-  GL_COMPRESSED_LUMINANCE = $84EA;
-  GL_COMPRESSED_LUMINANCE_ALPHA = $84EB;
-  GL_COMPRESSED_INTENSITY = $84EC;
-  GL_COMPRESSED_RGB = $84ED;
-  GL_COMPRESSED_RGBA = $84EE;
-  GL_TEXTURE_COMPRESSION_HINT = $84EF;
-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE = $86A0;
-  GL_TEXTURE_COMPRESSED = $86A1;
-  GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2;
-  GL_COMPRESSED_TEXTURE_FORMATS = $86A3;
-  GL_CLAMP_TO_BORDER = $812D;
-  GL_CLAMP_TO_BORDER_SGIS = $812D;
-  GL_COMBINE = $8570;
-  GL_COMBINE_RGB = $8571;
-  GL_COMBINE_ALPHA = $8572;
-  GL_SOURCE0_RGB = $8580;
-  GL_SOURCE1_RGB = $8581;
-  GL_SOURCE2_RGB = $8582;
-  GL_SOURCE0_ALPHA = $8588;
-  GL_SOURCE1_ALPHA = $8589;
-  GL_SOURCE2_ALPHA = $858A;
-  GL_OPERAND0_RGB = $8590;
-  GL_OPERAND1_RGB = $8591;
-  GL_OPERAND2_RGB = $8592;
-  GL_OPERAND0_ALPHA = $8598;
-  GL_OPERAND1_ALPHA = $8599;
-  GL_OPERAND2_ALPHA = $859A;
-  GL_RGB_SCALE = $8573;
-  GL_ADD_SIGNED = $8574;
-  GL_INTERPOLATE = $8575;
-  GL_SUBTRACT = $84E7;
-  GL_CONSTANT = $8576;
-  GL_PRIMARY_COLOR = $8577;
-  GL_PREVIOUS = $8578;
-  GL_DOT3_RGB = $86AE;
-  GL_DOT3_RGBA = $86AF;
-var
-  glActiveTexture: procedure(texture: GLenum); stdcall = nil;
-  glClientActiveTexture: procedure(texture: GLenum); stdcall = nil;
-  glMultiTexCoord1d: procedure(target: GLenum; s: GLdouble); stdcall = nil;
-  glMultiTexCoord1dv: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord1f: procedure(target: GLenum; s: GLfloat); stdcall = nil;
-  glMultiTexCoord1fv: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord1i: procedure(target: GLenum; s: GLint); stdcall = nil;
-  glMultiTexCoord1iv: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord1s: procedure(target: GLenum; s: GLshort); stdcall = nil;
-  glMultiTexCoord1sv: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord2d: procedure(target: GLenum; s: GLdouble; t: GLdouble); stdcall = nil;
-  glMultiTexCoord2dv: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord2f: procedure(target: GLenum; s: GLfloat; t: GLfloat); stdcall = nil;
-  glMultiTexCoord2fv: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord2i: procedure(target: GLenum; s: GLint; t: GLint); stdcall = nil;
-  glMultiTexCoord2iv: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord2s: procedure(target: GLenum; s: GLshort; t: GLshort); stdcall = nil;
-  glMultiTexCoord2sv: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord3d: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble); stdcall = nil;
-  glMultiTexCoord3dv: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord3f: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat); stdcall = nil;
-  glMultiTexCoord3fv: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord3i: procedure(target: GLenum; s: GLint; t: GLint; r: GLint); stdcall = nil;
-  glMultiTexCoord3iv: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord3s: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort); stdcall = nil;
-  glMultiTexCoord3sv: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord4d: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble; q: GLdouble); stdcall = nil;
-  glMultiTexCoord4dv: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord4f: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat; q: GLfloat); stdcall = nil;
-  glMultiTexCoord4fv: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord4i: procedure(target: GLenum; s: GLint; t: GLint; r: GLint; q: GLint); stdcall = nil;
-  glMultiTexCoord4iv: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord4s: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort; q: GLshort); stdcall = nil;
-  glMultiTexCoord4sv: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glLoadTransposeMatrixf: procedure(const m: PGLfloat); stdcall = nil;
-  glLoadTransposeMatrixd: procedure(const m: PGLdouble); stdcall = nil;
-  glMultTransposeMatrixf: procedure(const m: PGLfloat); stdcall = nil;
-  glMultTransposeMatrixd: procedure(const m: PGLdouble); stdcall = nil;
-  glSampleCoverage: procedure(value: GLclampf; invert: GLboolean); stdcall = nil;
-  glCompressedTexImage3D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexImage2D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexImage1D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage2D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage1D: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glGetCompressedTexImage: procedure(target: GLenum; level: GLint; img: PGLvoid); stdcall = nil;
-
-function Load_GL_version_1_3: Boolean;
-
-//***** GL_ARB_multitexture *****//
-const
-  GL_TEXTURE0_ARB = $84C0;
-  GL_TEXTURE1_ARB = $84C1;
-  GL_TEXTURE2_ARB = $84C2;
-  GL_TEXTURE3_ARB = $84C3;
-  GL_TEXTURE4_ARB = $84C4;
-  GL_TEXTURE5_ARB = $84C5;
-  GL_TEXTURE6_ARB = $84C6;
-  GL_TEXTURE7_ARB = $84C7;
-  GL_TEXTURE8_ARB = $84C8;
-  GL_TEXTURE9_ARB = $84C9;
-  GL_TEXTURE10_ARB = $84CA;
-  GL_TEXTURE11_ARB = $84CB;
-  GL_TEXTURE12_ARB = $84CC;
-  GL_TEXTURE13_ARB = $84CD;
-  GL_TEXTURE14_ARB = $84CE;
-  GL_TEXTURE15_ARB = $84CF;
-  GL_TEXTURE16_ARB = $84D0;
-  GL_TEXTURE17_ARB = $84D1;
-  GL_TEXTURE18_ARB = $84D2;
-  GL_TEXTURE19_ARB = $84D3;
-  GL_TEXTURE20_ARB = $84D4;
-  GL_TEXTURE21_ARB = $84D5;
-  GL_TEXTURE22_ARB = $84D6;
-  GL_TEXTURE23_ARB = $84D7;
-  GL_TEXTURE24_ARB = $84D8;
-  GL_TEXTURE25_ARB = $84D9;
-  GL_TEXTURE26_ARB = $84DA;
-  GL_TEXTURE27_ARB = $84DB;
-  GL_TEXTURE28_ARB = $84DC;
-  GL_TEXTURE29_ARB = $84DD;
-  GL_TEXTURE30_ARB = $84DE;
-  GL_TEXTURE31_ARB = $84DF;
-  GL_ACTIVE_TEXTURE_ARB = $84E0;
-  GL_CLIENT_ACTIVE_TEXTURE_ARB = $84E1;
-  GL_MAX_TEXTURE_UNITS_ARB = $84E2;
-var
-  glActiveTextureARB: procedure(texture: GLenum); stdcall = nil;
-  glClientActiveTextureARB: procedure(texture: GLenum); stdcall = nil;
-  glMultiTexCoord1dARB: procedure(target: GLenum; s: GLdouble); stdcall = nil;
-  glMultiTexCoord1dvARB: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord1fARB: procedure(target: GLenum; s: GLfloat); stdcall = nil;
-  glMultiTexCoord1fvARB: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord1iARB: procedure(target: GLenum; s: GLint); stdcall = nil;
-  glMultiTexCoord1ivARB: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord1sARB: procedure(target: GLenum; s: GLshort); stdcall = nil;
-  glMultiTexCoord1svARB: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord2dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble); stdcall = nil;
-  glMultiTexCoord2dvARB: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord2fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat); stdcall = nil;
-  glMultiTexCoord2fvARB: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord2iARB: procedure(target: GLenum; s: GLint; t: GLint); stdcall = nil;
-  glMultiTexCoord2ivARB: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord2sARB: procedure(target: GLenum; s: GLshort; t: GLshort); stdcall = nil;
-  glMultiTexCoord2svARB: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord3dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble); stdcall = nil;
-  glMultiTexCoord3dvARB: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord3fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat); stdcall = nil;
-  glMultiTexCoord3fvARB: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord3iARB: procedure(target: GLenum; s: GLint; t: GLint; r: GLint); stdcall = nil;
-  glMultiTexCoord3ivARB: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord3sARB: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort); stdcall = nil;
-  glMultiTexCoord3svARB: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-  glMultiTexCoord4dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble; q: GLdouble); stdcall = nil;
-  glMultiTexCoord4dvARB: procedure(target: GLenum; const v: PGLdouble); stdcall = nil;
-  glMultiTexCoord4fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat; q: GLfloat); stdcall = nil;
-  glMultiTexCoord4fvARB: procedure(target: GLenum; const v: PGLfloat); stdcall = nil;
-  glMultiTexCoord4iARB: procedure(target: GLenum; s: GLint; t: GLint; r: GLint; q: GLint); stdcall = nil;
-  glMultiTexCoord4ivARB: procedure(target: GLenum; const v: PGLint); stdcall = nil;
-  glMultiTexCoord4sARB: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort; q: GLshort); stdcall = nil;
-  glMultiTexCoord4svARB: procedure(target: GLenum; const v: PGLshort); stdcall = nil;
-
-function Load_GL_ARB_multitexture: Boolean;
-
-//***** GL_ARB_transpose_matrix *****//
-const
-  GL_TRANSPOSE_MODELVIEW_MATRIX_ARB = $84E3;
-  GL_TRANSPOSE_PROJECTION_MATRIX_ARB = $84E4;
-  GL_TRANSPOSE_TEXTURE_MATRIX_ARB = $84E5;
-  GL_TRANSPOSE_COLOR_MATRIX_ARB = $84E6;
-var
-  glLoadTransposeMatrixfARB: procedure(m: PGLfloat); stdcall = nil;
-  glLoadTransposeMatrixdARB: procedure(m: PGLdouble); stdcall = nil;
-  glMultTransposeMatrixfARB: procedure(m: PGLfloat); stdcall = nil;
-  glMultTransposeMatrixdARB: procedure(m: PGLdouble); stdcall = nil;
-
-function Load_GL_ARB_transpose_matrix: Boolean;
-
-//***** GL_ARB_multisample *****//
-const
-  WGL_SAMPLE_BUFFERS_ARB = $2041;
-  WGL_SAMPLES_ARB = $2042;
-  GL_MULTISAMPLE_ARB = $809D;
-  GL_SAMPLE_ALPHA_TO_COVERAGE_ARB = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE_ARB = $809F;
-  GL_SAMPLE_COVERAGE_ARB = $80A0;
-  GL_MULTISAMPLE_BIT_ARB = $20000000;
-  GL_SAMPLE_BUFFERS_ARB = $80A8;
-  GL_SAMPLES_ARB = $80A9;
-  GL_SAMPLE_COVERAGE_VALUE_ARB = $80AA;
-  GL_SAMPLE_COVERAGE_INVERT_ARB = $80AB;
-var
-  glSampleCoverageARB: procedure(value: GLclampf; invert: GLboolean); stdcall = nil;
-
-function Load_GL_ARB_multisample: Boolean;
-
-//***** GL_ARB_texture_env_add *****//
-
-function Load_GL_ARB_texture_env_add: Boolean;
-
-//***** WGL_ARB_extensions_string *****//
-var
-  wglGetExtensionsStringARB: function(hdc: HDC): Pchar; stdcall = nil;
-
-function Load_WGL_ARB_extensions_string: Boolean;
-
-//***** WGL_ARB_buffer_region *****//
-const
-  WGL_FRONT_COLOR_BUFFER_BIT_ARB = $0001;
-  WGL_BACK_COLOR_BUFFER_BIT_ARB = $0002;
-  WGL_DEPTH_BUFFER_BIT_ARB = $0004;
-  WGL_STENCIL_BUFFER_BIT_ARB = $0008;
-var
-  wglCreateBufferRegionARB: function(hDC: HDC; iLayerPlane: GLint; uType: GLuint): THandle; stdcall = nil;
-  wglDeleteBufferRegionARB: procedure(hRegion: THandle); stdcall = nil;
-  wglSaveBufferRegionARB: function(hRegion: THandle; x: GLint; y: GLint; width: GLint; height: GLint): BOOL; stdcall = nil;
-  wglRestoreBufferRegionARB: function(hRegion: THandle; x: GLint; y: GLint; width: GLint; height: GLint; xSrc: GLint; ySrc: GLint): BOOL; stdcall = nil;
-
-function Load_WGL_ARB_buffer_region: Boolean;
-
-//***** GL_ARB_texture_cube_map *****//
-const
-  GL_NORMAL_MAP_ARB = $8511;
-  GL_REFLECTION_MAP_ARB = $8512;
-  GL_TEXTURE_CUBE_MAP_ARB = $8513;
-  GL_TEXTURE_BINDING_CUBE_MAP_ARB = $8514;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $8515;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $8516;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $8517;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $8518;
-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $8519;
-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $851A;
-  GL_PROXY_TEXTURE_CUBE_MAP_ARB = $851B;
-  GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB = $851C;
-
-function Load_GL_ARB_texture_cube_map: Boolean;
-
-//***** GL_ARB_depth_texture *****//
-const
-  GL_DEPTH_COMPONENT16_ARB = $81A5;
-  GL_DEPTH_COMPONENT24_ARB = $81A6;
-  GL_DEPTH_COMPONENT32_ARB = $81A7;
-  GL_TEXTURE_DEPTH_SIZE_ARB = $884A;
-  GL_DEPTH_TEXTURE_MODE_ARB = $884B;
-
-function Load_GL_ARB_depth_texture: Boolean;
-
-//***** GL_ARB_point_parameters *****//
-const
-  GL_POINT_SIZE_MIN_ARB = $8126;
-  GL_POINT_SIZE_MAX_ARB = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE_ARB = $8128;
-  GL_POINT_DISTANCE_ATTENUATION_ARB = $8129;
-var
-  glPointParameterfARB: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-  glPointParameterfvARB: procedure(pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_ARB_point_parameters: Boolean;
-
-//***** GL_ARB_shadow *****//
-const
-  GL_TEXTURE_COMPARE_MODE_ARB = $884C;
-  GL_TEXTURE_COMPARE_FUNC_ARB = $884D;
-  GL_COMPARE_R_TO_TEXTURE_ARB = $884E;
-
-function Load_GL_ARB_shadow: Boolean;
-
-//***** GL_ARB_shadow_ambient *****//
-const
-  GL_TEXTURE_COMPARE_FAIL_VALUE_ARB = $80BF;
-
-function Load_GL_ARB_shadow_ambient: Boolean;
-
-//***** GL_ARB_texture_border_clamp *****//
-const
-  GL_CLAMP_TO_BORDER_ARB = $812D;
-
-function Load_GL_ARB_texture_border_clamp: Boolean;
-
-//***** GL_ARB_texture_compression *****//
-const
-  GL_COMPRESSED_ALPHA_ARB = $84E9;
-  GL_COMPRESSED_LUMINANCE_ARB = $84EA;
-  GL_COMPRESSED_LUMINANCE_ALPHA_ARB = $84EB;
-  GL_COMPRESSED_INTENSITY_ARB = $84EC;
-  GL_COMPRESSED_RGB_ARB = $84ED;
-  GL_COMPRESSED_RGBA_ARB = $84EE;
-  GL_TEXTURE_COMPRESSION_HINT_ARB = $84EF;
-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB = $86A0;
-  GL_TEXTURE_COMPRESSED_ARB = $86A1;
-  GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB = $86A2;
-  GL_COMPRESSED_TEXTURE_FORMATS_ARB = $86A3;
-var
-  glCompressedTexImage3DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexImage2DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexImage1DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage3DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage2DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glCompressedTexSubImage1DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); stdcall = nil;
-  glGetCompressedTexImageARB: procedure(target: GLenum; lod: GLint; img: PGLvoid); stdcall = nil;
-
-function Load_GL_ARB_texture_compression: Boolean;
-
-//***** GL_ARB_texture_env_combine *****//
-const
-  GL_COMBINE_ARB = $8570;
-  GL_COMBINE_RGB_ARB = $8571;
-  GL_COMBINE_ALPHA_ARB = $8572;
-  GL_SOURCE0_RGB_ARB = $8580;
-  GL_SOURCE1_RGB_ARB = $8581;
-  GL_SOURCE2_RGB_ARB = $8582;
-  GL_SOURCE0_ALPHA_ARB = $8588;
-  GL_SOURCE1_ALPHA_ARB = $8589;
-  GL_SOURCE2_ALPHA_ARB = $858A;
-  GL_OPERAND0_RGB_ARB = $8590;
-  GL_OPERAND1_RGB_ARB = $8591;
-  GL_OPERAND2_RGB_ARB = $8592;
-  GL_OPERAND0_ALPHA_ARB = $8598;
-  GL_OPERAND1_ALPHA_ARB = $8599;
-  GL_OPERAND2_ALPHA_ARB = $859A;
-  GL_RGB_SCALE_ARB = $8573;
-  GL_ADD_SIGNED_ARB = $8574;
-  GL_INTERPOLATE_ARB = $8575;
-  GL_SUBTRACT_ARB = $84E7;
-  GL_CONSTANT_ARB = $8576;
-  GL_PRIMARY_COLOR_ARB = $8577;
-  GL_PREVIOUS_ARB = $8578;
-
-function Load_GL_ARB_texture_env_combine: Boolean;
-
-//***** GL_ARB_texture_env_crossbar *****//
-
-function Load_GL_ARB_texture_env_crossbar: Boolean;
-
-//***** GL_ARB_texture_env_dot3 *****//
-const
-  GL_DOT3_RGB_ARB = $86AE;
-  GL_DOT3_RGBA_ARB = $86AF;
-
-function Load_GL_ARB_texture_env_dot3: Boolean;
-
-//***** GL_ARB_texture_mirrored_repeat *****//
-const
-  GL_MIRRORED_REPEAT_ARB = $8370;
-
-function Load_GL_ARB_texture_mirrored_repeat: Boolean;
-
-//***** GL_ARB_vertex_blend *****//
-const
-  GL_MAX_VERTEX_UNITS_ARB = $86A4;
-  GL_ACTIVE_VERTEX_UNITS_ARB = $86A5;
-  GL_WEIGHT_SUM_UNITY_ARB = $86A6;
-  GL_VERTEX_BLEND_ARB = $86A7;
-  GL_MODELVIEW0_ARB = $1700;
-  GL_MODELVIEW1_ARB = $850A;
-  GL_MODELVIEW2_ARB = $8722;
-  GL_MODELVIEW3_ARB = $8723;
-  GL_MODELVIEW4_ARB = $8724;
-  GL_MODELVIEW5_ARB = $8725;
-  GL_MODELVIEW6_ARB = $8726;
-  GL_MODELVIEW7_ARB = $8727;
-  GL_MODELVIEW8_ARB = $8728;
-  GL_MODELVIEW9_ARB = $8729;
-  GL_MODELVIEW10_ARB = $872A;
-  GL_MODELVIEW11_ARB = $872B;
-  GL_MODELVIEW12_ARB = $872C;
-  GL_MODELVIEW13_ARB = $872D;
-  GL_MODELVIEW14_ARB = $872E;
-  GL_MODELVIEW15_ARB = $872F;
-  GL_MODELVIEW16_ARB = $8730;
-  GL_MODELVIEW17_ARB = $8731;
-  GL_MODELVIEW18_ARB = $8732;
-  GL_MODELVIEW19_ARB = $8733;
-  GL_MODELVIEW20_ARB = $8734;
-  GL_MODELVIEW21_ARB = $8735;
-  GL_MODELVIEW22_ARB = $8736;
-  GL_MODELVIEW23_ARB = $8737;
-  GL_MODELVIEW24_ARB = $8738;
-  GL_MODELVIEW25_ARB = $8739;
-  GL_MODELVIEW26_ARB = $873A;
-  GL_MODELVIEW27_ARB = $873B;
-  GL_MODELVIEW28_ARB = $873C;
-  GL_MODELVIEW29_ARB = $873D;
-  GL_MODELVIEW30_ARB = $873E;
-  GL_MODELVIEW31_ARB = $873F;
-  GL_CURRENT_WEIGHT_ARB = $86A8;
-  GL_WEIGHT_ARRAY_TYPE_ARB = $86A9;
-  GL_WEIGHT_ARRAY_STRIDE_ARB = $86AA;
-  GL_WEIGHT_ARRAY_SIZE_ARB = $86AB;
-  GL_WEIGHT_ARRAY_POINTER_ARB = $86AC;
-  GL_WEIGHT_ARRAY_ARB = $86AD;
-var
-  glWeightbvARB: procedure(size: GLint; weights: PGLbyte); stdcall = nil;
-  glWeightsvARB: procedure(size: GLint; weights: PGLshort); stdcall = nil;
-  glWeightivARB: procedure(size: GLint; weights: PGLint); stdcall = nil;
-  glWeightfvARB: procedure(size: GLint; weights: PGLfloat); stdcall = nil;
-  glWeightdvARB: procedure(size: GLint; weights: PGLdouble); stdcall = nil;
-  glWeightvARB: procedure(size: GLint; weights: PGLdouble); stdcall = nil;
-  glWeightubvARB: procedure(size: GLint; weights: PGLubyte); stdcall = nil;
-  glWeightusvARB: procedure(size: GLint; weights: PGLushort); stdcall = nil;
-  glWeightuivARB: procedure(size: GLint; weights: PGLuint); stdcall = nil;
-  glWeightPointerARB: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); stdcall = nil;
-  glVertexBlendARB: procedure(count: GLint); stdcall = nil;
-
-function Load_GL_ARB_vertex_blend: Boolean;
-
-//***** GL_ARB_vertex_program *****//
-const
-  GL_VERTEX_PROGRAM_ARB = $8620;
-  GL_VERTEX_PROGRAM_POINT_SIZE_ARB = $8642;
-  GL_VERTEX_PROGRAM_TWO_SIDE_ARB = $8643;
-  GL_COLOR_SUM_ARB = $8458;
-  GL_PROGRAM_FORMAT_ASCII_ARB = $8875;
-  GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB = $8622;
-  GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB = $8623;
-  GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB = $8624;
-  GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB = $8625;
-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB = $886A;
-  GL_CURRENT_VERTEX_ATTRIB_ARB = $8626;
-  GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB = $8645;
-  GL_PROGRAM_LENGTH_ARB = $8627;
-  GL_PROGRAM_FORMAT_ARB = $8876;
-  GL_PROGRAM_BINDING_ARB = $8677;
-  GL_PROGRAM_INSTRUCTIONS_ARB = $88A0;
-  GL_MAX_PROGRAM_INSTRUCTIONS_ARB = $88A1;
-  GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A2;
-  GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A3;
-  GL_PROGRAM_TEMPORARIES_ARB = $88A4;
-  GL_MAX_PROGRAM_TEMPORARIES_ARB = $88A5;
-  GL_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A6;
-  GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A7;
-  GL_PROGRAM_PARAMETERS_ARB = $88A8;
-  GL_MAX_PROGRAM_PARAMETERS_ARB = $88A9;
-  GL_PROGRAM_NATIVE_PARAMETERS_ARB = $88AA;
-  GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB = $88AB;
-  GL_PROGRAM_ATTRIBS_ARB = $88AC;
-  GL_MAX_PROGRAM_ATTRIBS_ARB = $88AD;
-  GL_PROGRAM_NATIVE_ATTRIBS_ARB = $88AE;
-  GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB = $88AF;
-  GL_PROGRAM_ADDRESS_REGISTERS_ARB = $88B0;
-  GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB = $88B1;
-  GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B2;
-  GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B3;
-  GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB = $88B4;
-  GL_MAX_PROGRAM_ENV_PARAMETERS_ARB = $88B5;
-  GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB = $88B6;
-  GL_PROGRAM_STRING_ARB = $8628;
-  GL_PROGRAM_ERROR_POSITION_ARB = $864B;
-  GL_CURRENT_MATRIX_ARB = $8641;
-  GL_TRANSPOSE_CURRENT_MATRIX_ARB = $88B7;
-  GL_CURRENT_MATRIX_STACK_DEPTH_ARB = $8640;
-  GL_MAX_VERTEX_ATTRIBS_ARB = $8869;
-  GL_MAX_PROGRAM_MATRICES_ARB = $862F;
-  GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB = $862E;
-  GL_PROGRAM_ERROR_STRING_ARB = $8874;
-  GL_MATRIX0_ARB = $88C0;
-  GL_MATRIX1_ARB = $88C1;
-  GL_MATRIX2_ARB = $88C2;
-  GL_MATRIX3_ARB = $88C3;
-  GL_MATRIX4_ARB = $88C4;
-  GL_MATRIX5_ARB = $88C5;
-  GL_MATRIX6_ARB = $88C6;
-  GL_MATRIX7_ARB = $88C7;
-  GL_MATRIX8_ARB = $88C8;
-  GL_MATRIX9_ARB = $88C9;
-  GL_MATRIX10_ARB = $88CA;
-  GL_MATRIX11_ARB = $88CB;
-  GL_MATRIX12_ARB = $88CC;
-  GL_MATRIX13_ARB = $88CD;
-  GL_MATRIX14_ARB = $88CE;
-  GL_MATRIX15_ARB = $88CF;
-  GL_MATRIX16_ARB = $88D0;
-  GL_MATRIX17_ARB = $88D1;
-  GL_MATRIX18_ARB = $88D2;
-  GL_MATRIX19_ARB = $88D3;
-  GL_MATRIX20_ARB = $88D4;
-  GL_MATRIX21_ARB = $88D5;
-  GL_MATRIX22_ARB = $88D6;
-  GL_MATRIX23_ARB = $88D7;
-  GL_MATRIX24_ARB = $88D8;
-  GL_MATRIX25_ARB = $88D9;
-  GL_MATRIX26_ARB = $88DA;
-  GL_MATRIX27_ARB = $88DB;
-  GL_MATRIX28_ARB = $88DC;
-  GL_MATRIX29_ARB = $88DD;
-  GL_MATRIX30_ARB = $88DE;
-  GL_MATRIX31_ARB = $88DF;
-var
-  glVertexAttrib1sARB: procedure(index: GLuint; x: GLshort); stdcall = nil;
-  glVertexAttrib1fARB: procedure(index: GLuint; x: GLfloat); stdcall = nil;
-  glVertexAttrib1dARB: procedure(index: GLuint; x: GLdouble); stdcall = nil;
-  glVertexAttrib2sARB: procedure(index: GLuint; x: GLshort; y: GLshort); stdcall = nil;
-  glVertexAttrib2fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat); stdcall = nil;
-  glVertexAttrib2dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble); stdcall = nil;
-  glVertexAttrib3sARB: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glVertexAttrib3fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glVertexAttrib3dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glVertexAttrib4sARB: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); stdcall = nil;
-  glVertexAttrib4fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glVertexAttrib4dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glVertexAttrib4NubARB: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); stdcall = nil;
-  glVertexAttrib1svARB: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib1fvARB: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib1dvARB: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib2svARB: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib2fvARB: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib2dvARB: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib3svARB: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib3fvARB: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib3dvARB: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib4bvARB: procedure(index: GLuint; const v: PGLbyte); stdcall = nil;
-  glVertexAttrib4svARB: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4ivARB: procedure(index: GLuint; const v: PGLint); stdcall = nil;
-  glVertexAttrib4ubvARB: procedure(index: GLuint; const v: PGLubyte); stdcall = nil;
-  glVertexAttrib4usvARB: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib4uivARB: procedure(index: GLuint; const v: PGLuint); stdcall = nil;
-  glVertexAttrib4fvARB: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib4dvARB: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib4NbvARB: procedure(index: GLuint; const v: PGLbyte); stdcall = nil;
-  glVertexAttrib4NsvARB: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4NivARB: procedure(index: GLuint; const v: PGLint); stdcall = nil;
-  glVertexAttrib4NubvARB: procedure(index: GLuint; const v: PGLubyte); stdcall = nil;
-  glVertexAttrib4NusvARB: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib4NuivARB: procedure(index: GLuint; const v: PGLuint); stdcall = nil;
-  glVertexAttribPointerARB: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glEnableVertexAttribArrayARB: procedure(index: GLuint); stdcall = nil;
-  glDisableVertexAttribArrayARB: procedure(index: GLuint); stdcall = nil;
-  glProgramStringARB: procedure(target: GLenum; format: GLenum; len: GLsizei; const _string: PGLvoid); stdcall = nil;
-  glBindProgramARB: procedure(target: GLenum; _program: GLuint); stdcall = nil;
-  glDeleteProgramsARB: procedure(n: GLsizei; const programs: PGLuint); stdcall = nil;
-  glGenProgramsARB: procedure(n: GLsizei; programs: PGLuint); stdcall = nil;
-  glProgramEnvParameter4dARB: procedure(target: GLenum; index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glProgramEnvParameter4dvARB: procedure(target: GLenum; index: GLuint; const params: PGLdouble); stdcall = nil;
-  glProgramEnvParameter4fARB: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glProgramEnvParameter4fvARB: procedure(target: GLenum; index: GLuint; const params: PGLfloat); stdcall = nil;
-  glProgramLocalParameter4dARB: procedure(target: GLenum; index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glProgramLocalParameter4dvARB: procedure(target: GLenum; index: GLuint; const params: PGLdouble); stdcall = nil;
-  glProgramLocalParameter4fARB: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glProgramLocalParameter4fvARB: procedure(target: GLenum; index: GLuint; const params: PGLfloat); stdcall = nil;
-  glGetProgramEnvParameterdvARB: procedure(target: GLenum; index: GLuint; params: PGLdouble); stdcall = nil;
-  glGetProgramEnvParameterfvARB: procedure(target: GLenum; index: GLuint; params: PGLfloat); stdcall = nil;
-  glGetProgramLocalParameterdvARB: procedure(target: GLenum; index: GLuint; params: PGLdouble); stdcall = nil;
-  glGetProgramLocalParameterfvARB: procedure(target: GLenum; index: GLuint; params: PGLfloat); stdcall = nil;
-  glGetProgramivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetProgramStringARB: procedure(target: GLenum; pname: GLenum; _string: PGLvoid); stdcall = nil;
-  glGetVertexAttribdvARB: procedure(index: GLuint; pname: GLenum; params: PGLdouble); stdcall = nil;
-  glGetVertexAttribfvARB: procedure(index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetVertexAttribivARB: procedure(index: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetVertexAttribPointervARB: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); stdcall = nil;
-  glIsProgramARB: function(_program: GLuint): GLboolean; stdcall = nil;
-
-function Load_GL_ARB_vertex_program: Boolean;
-
-//***** GL_ARB_window_pos *****//
-var
-  glWindowPos2dARB: procedure(x: GLdouble; y: GLdouble); stdcall = nil;
-  glWindowPos2fARB: procedure(x: GLfloat; y: GLfloat); stdcall = nil;
-  glWindowPos2iARB: procedure(x: GLint; y: GLint); stdcall = nil;
-  glWindowPos2sARB: procedure(x: GLshort; y: GLshort); stdcall = nil;
-  glWindowPos2dvARB: procedure(const p: PGLdouble); stdcall = nil;
-  glWindowPos2fvARB: procedure(const p: PGLfloat); stdcall = nil;
-  glWindowPos2ivARB: procedure(const p: PGLint); stdcall = nil;
-  glWindowPos2svARB: procedure(const p: PGLshort); stdcall = nil;
-  glWindowPos3dARB: procedure(x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glWindowPos3fARB: procedure(x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glWindowPos3iARB: procedure(x: GLint; y: GLint; z: GLint); stdcall = nil;
-  glWindowPos3sARB: procedure(x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glWindowPos3dvARB: procedure(const p: PGLdouble); stdcall = nil;
-  glWindowPos3fvARB: procedure(const p: PGLfloat); stdcall = nil;
-  glWindowPos3ivARB: procedure(const p: PGLint); stdcall = nil;
-  glWindowPos3svARB: procedure(const p: PGLshort); stdcall = nil;
-
-function Load_GL_ARB_window_pos: Boolean;
-
-//***** GL_EXT_422_pixels *****//
-const
-  GL_422_EXT = $80CC;
-  GL_422_REV_EXT = $80CD;
-  GL_422_AVERAGE_EXT = $80CE;
-  GL_422_REV_AVERAGE_EXT = $80CF;
-
-function Load_GL_EXT_422_pixels: Boolean;
-
-//***** GL_EXT_abgr *****//
-const
-  GL_ABGR_EXT = $8000;
-
-function Load_GL_EXT_abgr: Boolean;
-
-//***** GL_EXT_bgra *****//
-const
-  GL_BGR_EXT = $80E0;
-  GL_BGRA_EXT = $80E1;
-
-function Load_GL_EXT_bgra: Boolean;
-
-//***** GL_EXT_blend_color *****//
-const
-  GL_CONSTANT_COLOR_EXT = $8001;
-  GL_ONE_MINUS_CONSTANT_COLOR_EXT = $8002;
-  GL_CONSTANT_ALPHA_EXT = $8003;
-  GL_ONE_MINUS_CONSTANT_ALPHA_EXT = $8004;
-  GL_BLEND_COLOR_EXT = $8005;
-var
-  glBlendColorEXT: procedure(red: GLclampf; green: GLclampf; blue: GLclampf; alpha: GLclampf); stdcall = nil;
-
-function Load_GL_EXT_blend_color: Boolean;
-
-//***** GL_EXT_blend_func_separate *****//
-const
-  GL_BLEND_DST_RGB_EXT = $80C8;
-  GL_BLEND_SRC_RGB_EXT = $80C9;
-  GL_BLEND_DST_ALPHA_EXT = $80CA;
-  GL_BLEND_SRC_ALPHA_EXT = $80CB;
-var
-  glBlendFuncSeparateEXT: procedure(sfactorRGB: GLenum; dfactorRGB: GLenum; sfactorAlpha: GLenum; dfactorAlpha: GLenum); stdcall = nil;
-
-function Load_GL_EXT_blend_func_separate: Boolean;
-
-//***** GL_EXT_blend_logic_op *****//
-
-function Load_GL_EXT_blend_logic_op: Boolean;
-
-//***** GL_EXT_blend_minmax *****//
-const
-  GL_FUNC_ADD_EXT = $8006;
-  GL_MIN_EXT = $8007;
-  GL_MAX_EXT = $8008;
-  GL_BLEND_EQUATION_EXT = $8009;
-var
-  glBlendEquationEXT: procedure(mode: GLenum); stdcall = nil;
-
-function Load_GL_EXT_blend_minmax: Boolean;
-
-//***** GL_EXT_blend_subtract *****//
-const
-  GL_FUNC_SUBTRACT_EXT = $800A;
-  GL_FUNC_REVERSE_SUBTRACT_EXT = $800B;
-
-function Load_GL_EXT_blend_subtract: Boolean;
-
-//***** GL_EXT_clip_volume_hint *****//
-const
-  GL_CLIP_VOLUME_CLIPPING_HINT_EXT = $80F0;
-
-function Load_GL_EXT_clip_volume_hint: Boolean;
-
-//***** GL_EXT_color_subtable *****//
-var
-  glColorSubTableEXT: procedure(target: GLenum; start: GLsizei; count: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); stdcall = nil;
-  glCopyColorSubTableEXT: procedure(target: GLenum; start: GLsizei; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-
-function Load_GL_EXT_color_subtable: Boolean;
-
-//***** GL_EXT_compiled_vertex_array *****//
-const
-  GL_ARRAY_ELEMENT_LOCK_FIRST_EXT = $81A8;
-  GL_ARRAY_ELEMENT_LOCK_COUNT_EXT = $81A9;
-var
-  glLockArraysEXT: procedure(first: GLint; count: GLsizei); stdcall = nil;
-  glUnlockArraysEXT: procedure(); stdcall = nil;
-
-function Load_GL_EXT_compiled_vertex_array: Boolean;
-
-//***** GL_EXT_convolution *****//
-const
-  GL_CONVOLUTION_1D_EXT = $8010;
-  GL_CONVOLUTION_2D_EXT = $8011;
-  GL_SEPARABLE_2D_EXT = $8012;
-  GL_CONVOLUTION_BORDER_MODE_EXT = $8013;
-  GL_CONVOLUTION_FILTER_SCALE_EXT = $8014;
-  GL_CONVOLUTION_FILTER_BIAS_EXT = $8015;
-  GL_REDUCE_EXT = $8016;
-  GL_CONVOLUTION_FORMAT_EXT = $8017;
-  GL_CONVOLUTION_WIDTH_EXT = $8018;
-  GL_CONVOLUTION_HEIGHT_EXT = $8019;
-  GL_MAX_CONVOLUTION_WIDTH_EXT = $801A;
-  GL_MAX_CONVOLUTION_HEIGHT_EXT = $801B;
-  GL_POST_CONVOLUTION_RED_SCALE_EXT = $801C;
-  GL_POST_CONVOLUTION_GREEN_SCALE_EXT = $801D;
-  GL_POST_CONVOLUTION_BLUE_SCALE_EXT = $801E;
-  GL_POST_CONVOLUTION_ALPHA_SCALE_EXT = $801F;
-  GL_POST_CONVOLUTION_RED_BIAS_EXT = $8020;
-  GL_POST_CONVOLUTION_GREEN_BIAS_EXT = $8021;
-  GL_POST_CONVOLUTION_BLUE_BIAS_EXT = $8022;
-  GL_POST_CONVOLUTION_ALPHA_BIAS_EXT = $8023;
-var
-  glConvolutionFilter1DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); stdcall = nil;
-  glConvolutionFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); stdcall = nil;
-  glCopyConvolutionFilter1DEXT: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-  glCopyConvolutionFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei); stdcall = nil;
-  glGetConvolutionFilterEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; image: PGLvoid); stdcall = nil;
-  glSeparableFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const row: PGLvoid; const column: PGLvoid); stdcall = nil;
-  glGetSeparableFilterEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); stdcall = nil;
-  glConvolutionParameteriEXT: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall = nil;
-  glConvolutionParameterivEXT: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall = nil;
-  glConvolutionParameterfEXT: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall = nil;
-  glConvolutionParameterfvEXT: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glGetConvolutionParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetConvolutionParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_EXT_convolution: Boolean;
-
-//***** GL_EXT_histogram *****//
-const
-  GL_HISTOGRAM_EXT = $8024;
-  GL_PROXY_HISTOGRAM_EXT = $8025;
-  GL_HISTOGRAM_WIDTH_EXT = $8026;
-  GL_HISTOGRAM_FORMAT_EXT = $8027;
-  GL_HISTOGRAM_RED_SIZE_EXT = $8028;
-  GL_HISTOGRAM_GREEN_SIZE_EXT = $8029;
-  GL_HISTOGRAM_BLUE_SIZE_EXT = $802A;
-  GL_HISTOGRAM_ALPHA_SIZE_EXT = $802B;
-  GL_HISTOGRAM_LUMINANCE_SIZE_EXT = $802C;
-  GL_HISTOGRAM_SINK_EXT = $802D;
-  GL_MINMAX_EXT = $802E;
-  GL_MINMAX_FORMAT_EXT = $802F;
-  GL_MINMAX_SINK_EXT = $8030;
-var
-  glHistogramEXT: procedure(target: GLenum; width: GLsizei; internalformat: GLenum; sink: GLboolean); stdcall = nil;
-  glResetHistogramEXT: procedure(target: GLenum); stdcall = nil;
-  glGetHistogramEXT: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); stdcall = nil;
-  glGetHistogramParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetHistogramParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glMinmaxEXT: procedure(target: GLenum; internalformat: GLenum; sink: GLboolean); stdcall = nil;
-  glResetMinmaxEXT: procedure(target: GLenum); stdcall = nil;
-  glGetMinmaxEXT: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); stdcall = nil;
-  glGetMinmaxParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetMinmaxParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_EXT_histogram: Boolean;
-
-//***** GL_EXT_multi_draw_arrays *****//
-var
-  glMultiDrawArraysEXT: procedure(mode: GLenum; first: PGLint; count: PGLsizei; primcount: GLsizei); stdcall = nil;
-  glMultiDrawElementsEXT: procedure(mode: GLenum; count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei); stdcall = nil;
-
-function Load_GL_EXT_multi_draw_arrays: Boolean;
-
-//***** GL_EXT_packed_pixels *****//
-const
-  GL_UNSIGNED_BYTE_3_3_2_EXT = $8032;
-  GL_UNSIGNED_SHORT_4_4_4_4_EXT = $8033;
-  GL_UNSIGNED_SHORT_5_5_5_1_EXT = $8034;
-  GL_UNSIGNED_INT_8_8_8_8_EXT = $8035;
-  GL_UNSIGNED_INT_10_10_10_2_EXT = $8036;
-
-function Load_GL_EXT_packed_pixels: Boolean;
-
-//***** GL_EXT_paletted_texture *****//
-const
-  GL_COLOR_INDEX1_EXT = $80E2;
-  GL_COLOR_INDEX2_EXT = $80E3;
-  GL_COLOR_INDEX4_EXT = $80E4;
-  GL_COLOR_INDEX8_EXT = $80E5;
-  GL_COLOR_INDEX12_EXT = $80E6;
-  GL_COLOR_INDEX16_EXT = $80E7;
-  GL_COLOR_TABLE_FORMAT_EXT = $80D8;
-  GL_COLOR_TABLE_WIDTH_EXT = $80D9;
-  GL_COLOR_TABLE_RED_SIZE_EXT = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE_EXT = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE_EXT = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE_EXT = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
-  GL_TEXTURE_INDEX_SIZE_EXT = $80ED;
-  GL_TEXTURE_1D = $0DE0;
-  GL_TEXTURE_2D = $0DE1;
-  GL_TEXTURE_3D_EXT = $806F;
-  // GL_TEXTURE_CUBE_MAP_ARB  { already defined }
-  GL_PROXY_TEXTURE_1D = $8063;
-  GL_PROXY_TEXTURE_2D = $8064;
-  GL_PROXY_TEXTURE_3D_EXT = $8070;
-  // GL_PROXY_TEXTURE_CUBE_MAP_ARB  { already defined }
-  // GL_TEXTURE_1D  { already defined }
-  // GL_TEXTURE_2D  { already defined }
-  // GL_TEXTURE_3D_EXT  { already defined }
-  // GL_TEXTURE_CUBE_MAP_ARB  { already defined }
-var
-  glColorTableEXT: procedure(target: GLenum; internalFormat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); stdcall = nil;
-  // glColorSubTableEXT  { already defined }
-  glGetColorTableEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; data: PGLvoid); stdcall = nil;
-  glGetColorTableParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetColorTableParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_EXT_paletted_texture: Boolean;
-
-//***** GL_EXT_point_parameters *****//
-const
-  GL_POINT_SIZE_MIN_EXT = $8126;
-  GL_POINT_SIZE_MAX_EXT = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE_EXT = $8128;
-  GL_DISTANCE_ATTENUATION_EXT = $8129;
-var
-  glPointParameterfEXT: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-  glPointParameterfvEXT: procedure(pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_EXT_point_parameters: Boolean;
-
-//***** GL_EXT_polygon_offset *****//
-const
-  GL_POLYGON_OFFSET_EXT = $8037;
-  GL_POLYGON_OFFSET_FACTOR_EXT = $8038;
-  GL_POLYGON_OFFSET_BIAS_EXT = $8039;
-var
-  glPolygonOffsetEXT: procedure(factor: GLfloat; bias: GLfloat); stdcall = nil;
-
-function Load_GL_EXT_polygon_offset: Boolean;
-
-//***** GL_EXT_separate_specular_color *****//
-const
-  GL_LIGHT_MODEL_COLOR_CONTROL_EXT = $81F8;
-  GL_SINGLE_COLOR_EXT = $81F9;
-  GL_SEPARATE_SPECULAR_COLOR_EXT = $81FA;
-
-function Load_GL_EXT_separate_specular_color: Boolean;
-
-//***** GL_EXT_shadow_funcs *****//
-
-function Load_GL_EXT_shadow_funcs: Boolean;
-
-//***** GL_EXT_shared_texture_palette *****//
-const
-  GL_SHARED_TEXTURE_PALETTE_EXT = $81FB;
-
-function Load_GL_EXT_shared_texture_palette: Boolean;
-
-//***** GL_EXT_stencil_two_side *****//
-const
-  GL_STENCIL_TEST_TWO_SIDE_EXT = $8910;
-  GL_ACTIVE_STENCIL_FACE_EXT = $8911;
-var
-  glActiveStencilFaceEXT: procedure(face: GLenum); stdcall = nil;
-
-function Load_GL_EXT_stencil_two_side: Boolean;
-
-//***** GL_EXT_stencil_wrap *****//
-const
-  GL_INCR_WRAP_EXT = $8507;
-  GL_DECR_WRAP_EXT = $8508;
-
-function Load_GL_EXT_stencil_wrap: Boolean;
-
-//***** GL_EXT_subtexture *****//
-var
-  glTexSubImage1DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-  glTexSubImage2DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-  glTexSubImage3DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_subtexture: Boolean;
-
-//***** GL_EXT_texture3D *****//
-const
-  GL_PACK_SKIP_IMAGES_EXT = $806B;
-  GL_PACK_IMAGE_HEIGHT_EXT = $806C;
-  GL_UNPACK_SKIP_IMAGES_EXT = $806D;
-  GL_UNPACK_IMAGE_HEIGHT_EXT = $806E;
-  // GL_TEXTURE_3D_EXT  { already defined }
-  // GL_PROXY_TEXTURE_3D_EXT  { already defined }
-  GL_TEXTURE_DEPTH_EXT = $8071;
-  GL_TEXTURE_WRAP_R_EXT = $8072;
-  GL_MAX_3D_TEXTURE_SIZE_EXT = $8073;
-var
-  glTexImage3DEXT: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; _type: GLenum; const pixels: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_texture3D: Boolean;
-
-//***** GL_EXT_texture_compression_s3tc *****//
-const
-  GL_COMPRESSED_RGB_S3TC_DXT1_EXT = $83F0;
-  GL_COMPRESSED_RGBA_S3TC_DXT1_EXT = $83F1;
-  GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = $83F2;
-  GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = $83F3;
-
-function Load_GL_EXT_texture_compression_s3tc: Boolean;
-
-//***** GL_EXT_texture_env_add *****//
-
-function Load_GL_EXT_texture_env_add: Boolean;
-
-//***** GL_EXT_texture_env_combine *****//
-const
-  GL_COMBINE_EXT = $8570;
-  GL_COMBINE_RGB_EXT = $8571;
-  GL_COMBINE_ALPHA_EXT = $8572;
-  GL_SOURCE0_RGB_EXT = $8580;
-  GL_SOURCE1_RGB_EXT = $8581;
-  GL_SOURCE2_RGB_EXT = $8582;
-  GL_SOURCE0_ALPHA_EXT = $8588;
-  GL_SOURCE1_ALPHA_EXT = $8589;
-  GL_SOURCE2_ALPHA_EXT = $858A;
-  GL_OPERAND0_RGB_EXT = $8590;
-  GL_OPERAND1_RGB_EXT = $8591;
-  GL_OPERAND2_RGB_EXT = $8592;
-  GL_OPERAND0_ALPHA_EXT = $8598;
-  GL_OPERAND1_ALPHA_EXT = $8599;
-  GL_OPERAND2_ALPHA_EXT = $859A;
-  GL_RGB_SCALE_EXT = $8573;
-  GL_ADD_SIGNED_EXT = $8574;
-  GL_INTERPOLATE_EXT = $8575;
-  GL_CONSTANT_EXT = $8576;
-  GL_PRIMARY_COLOR_EXT = $8577;
-  GL_PREVIOUS_EXT = $8578;
-
-function Load_GL_EXT_texture_env_combine: Boolean;
-
-//***** GL_EXT_texture_env_dot3 *****//
-const
-  GL_DOT3_RGB_EXT = $8740;
-  GL_DOT3_RGBA_EXT = $8741;
-
-function Load_GL_EXT_texture_env_dot3: Boolean;
-
-//***** GL_EXT_texture_filter_anisotropic *****//
-const
-  GL_TEXTURE_MAX_ANISOTROPY_EXT = $84FE;
-  GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT = $84FF;
-
-function Load_GL_EXT_texture_filter_anisotropic: Boolean;
-
-//***** GL_EXT_texture_lod_bias *****//
-const
-  GL_TEXTURE_FILTER_CONTROL_EXT = $8500;
-  GL_TEXTURE_LOD_BIAS_EXT = $8501;
-  GL_MAX_TEXTURE_LOD_BIAS_EXT = $84FD;
-
-function Load_GL_EXT_texture_lod_bias: Boolean;
-
-//***** GL_EXT_texture_object *****//
-const
-  GL_TEXTURE_PRIORITY_EXT = $8066;
-  GL_TEXTURE_RESIDENT_EXT = $8067;
-  GL_TEXTURE_1D_BINDING_EXT = $8068;
-  GL_TEXTURE_2D_BINDING_EXT = $8069;
-  GL_TEXTURE_3D_BINDING_EXT = $806A;
-var
-  glGenTexturesEXT: procedure(n: GLsizei; textures: PGLuint); stdcall = nil;
-  glDeleteTexturesEXT: procedure(n: GLsizei; const textures: PGLuint); stdcall = nil;
-  glBindTextureEXT: procedure(target: GLenum; texture: GLuint); stdcall = nil;
-  glPrioritizeTexturesEXT: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); stdcall = nil;
-  glAreTexturesResidentEXT: function(n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; stdcall = nil;
-  glIsTextureEXT: function(texture: GLuint): GLboolean; stdcall = nil;
-
-function Load_GL_EXT_texture_object: Boolean;
-
-//***** GL_EXT_vertex_array *****//
-const
-  GL_VERTEX_ARRAY_EXT = $8074;
-  GL_NORMAL_ARRAY_EXT = $8075;
-  GL_COLOR_ARRAY_EXT = $8076;
-  GL_INDEX_ARRAY_EXT = $8077;
-  GL_TEXTURE_COORD_ARRAY_EXT = $8078;
-  GL_EDGE_FLAG_ARRAY_EXT = $8079;
-  GL_DOUBLE_EXT = $140A;
-  GL_VERTEX_ARRAY_SIZE_EXT = $807A;
-  GL_VERTEX_ARRAY_TYPE_EXT = $807B;
-  GL_VERTEX_ARRAY_STRIDE_EXT = $807C;
-  GL_VERTEX_ARRAY_COUNT_EXT = $807D;
-  GL_NORMAL_ARRAY_TYPE_EXT = $807E;
-  GL_NORMAL_ARRAY_STRIDE_EXT = $807F;
-  GL_NORMAL_ARRAY_COUNT_EXT = $8080;
-  GL_COLOR_ARRAY_SIZE_EXT = $8081;
-  GL_COLOR_ARRAY_TYPE_EXT = $8082;
-  GL_COLOR_ARRAY_STRIDE_EXT = $8083;
-  GL_COLOR_ARRAY_COUNT_EXT = $8084;
-  GL_INDEX_ARRAY_TYPE_EXT = $8085;
-  GL_INDEX_ARRAY_STRIDE_EXT = $8086;
-  GL_INDEX_ARRAY_COUNT_EXT = $8087;
-  GL_TEXTURE_COORD_ARRAY_SIZE_EXT = $8088;
-  GL_TEXTURE_COORD_ARRAY_TYPE_EXT = $8089;
-  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
-  GL_TEXTURE_COORD_ARRAY_COUNT_EXT = $808B;
-  GL_EDGE_FLAG_ARRAY_STRIDE_EXT = $808C;
-  GL_EDGE_FLAG_ARRAY_COUNT_EXT = $808D;
-  GL_VERTEX_ARRAY_POINTER_EXT = $808E;
-  GL_NORMAL_ARRAY_POINTER_EXT = $808F;
-  GL_COLOR_ARRAY_POINTER_EXT = $8090;
-  GL_INDEX_ARRAY_POINTER_EXT = $8091;
-  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
-  GL_EDGE_FLAG_ARRAY_POINTER_EXT = $8093;
-var
-  glArrayElementEXT: procedure(i: GLint); stdcall = nil;
-  glDrawArraysEXT: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall = nil;
-  glVertexPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glNormalPointerEXT: procedure(_type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glColorPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glIndexPointerEXT: procedure(_type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glTexCoordPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glEdgeFlagPointerEXT: procedure(stride: GLsizei; count: GLsizei; const pointer: PGLboolean); stdcall = nil;
-  glGetPointervEXT: procedure(pname: GLenum; params: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_vertex_array: Boolean;
-
-//***** GL_EXT_vertex_shader *****//
-const
-  GL_VERTEX_SHADER_EXT = $8780;
-  GL_VARIANT_VALUE_EXT = $87E4;
-  GL_VARIANT_DATATYPE_EXT = $87E5;
-  GL_VARIANT_ARRAY_STRIDE_EXT = $87E6;
-  GL_VARIANT_ARRAY_TYPE_EXT = $87E7;
-  GL_VARIANT_ARRAY_EXT = $87E8;
-  GL_VARIANT_ARRAY_POINTER_EXT = $87E9;
-  GL_INVARIANT_VALUE_EXT = $87EA;
-  GL_INVARIANT_DATATYPE_EXT = $87EB;
-  GL_LOCAL_CONSTANT_VALUE_EXT = $87EC;
-  GL_LOCAL_CONSTANT_DATATYPE_EXT = $87ED;
-  GL_OP_INDEX_EXT = $8782;
-  GL_OP_NEGATE_EXT = $8783;
-  GL_OP_DOT3_EXT = $8784;
-  GL_OP_DOT4_EXT = $8785;
-  GL_OP_MUL_EXT = $8786;
-  GL_OP_ADD_EXT = $8787;
-  GL_OP_MADD_EXT = $8788;
-  GL_OP_FRAC_EXT = $8789;
-  GL_OP_MAX_EXT = $878A;
-  GL_OP_MIN_EXT = $878B;
-  GL_OP_SET_GE_EXT = $878C;
-  GL_OP_SET_LT_EXT = $878D;
-  GL_OP_CLAMP_EXT = $878E;
-  GL_OP_FLOOR_EXT = $878F;
-  GL_OP_ROUND_EXT = $8790;
-  GL_OP_EXP_BASE_2_EXT = $8791;
-  GL_OP_LOG_BASE_2_EXT = $8792;
-  GL_OP_POWER_EXT = $8793;
-  GL_OP_RECIP_EXT = $8794;
-  GL_OP_RECIP_SQRT_EXT = $8795;
-  GL_OP_SUB_EXT = $8796;
-  GL_OP_CROSS_PRODUCT_EXT = $8797;
-  GL_OP_MULTIPLY_MATRIX_EXT = $8798;
-  GL_OP_MOV_EXT = $8799;
-  GL_OUTPUT_VERTEX_EXT = $879A;
-  GL_OUTPUT_COLOR0_EXT = $879B;
-  GL_OUTPUT_COLOR1_EXT = $879C;
-  GL_OUTPUT_TEXTURE_COORD0_EXT = $879D;
-  GL_OUTPUT_TEXTURE_COORD1_EXT = $879E;
-  GL_OUTPUT_TEXTURE_COORD2_EXT = $879F;
-  GL_OUTPUT_TEXTURE_COORD3_EXT = $87A0;
-  GL_OUTPUT_TEXTURE_COORD4_EXT = $87A1;
-  GL_OUTPUT_TEXTURE_COORD5_EXT = $87A2;
-  GL_OUTPUT_TEXTURE_COORD6_EXT = $87A3;
-  GL_OUTPUT_TEXTURE_COORD7_EXT = $87A4;
-  GL_OUTPUT_TEXTURE_COORD8_EXT = $87A5;
-  GL_OUTPUT_TEXTURE_COORD9_EXT = $87A6;
-  GL_OUTPUT_TEXTURE_COORD10_EXT = $87A7;
-  GL_OUTPUT_TEXTURE_COORD11_EXT = $87A8;
-  GL_OUTPUT_TEXTURE_COORD12_EXT = $87A9;
-  GL_OUTPUT_TEXTURE_COORD13_EXT = $87AA;
-  GL_OUTPUT_TEXTURE_COORD14_EXT = $87AB;
-  GL_OUTPUT_TEXTURE_COORD15_EXT = $87AC;
-  GL_OUTPUT_TEXTURE_COORD16_EXT = $87AD;
-  GL_OUTPUT_TEXTURE_COORD17_EXT = $87AE;
-  GL_OUTPUT_TEXTURE_COORD18_EXT = $87AF;
-  GL_OUTPUT_TEXTURE_COORD19_EXT = $87B0;
-  GL_OUTPUT_TEXTURE_COORD20_EXT = $87B1;
-  GL_OUTPUT_TEXTURE_COORD21_EXT = $87B2;
-  GL_OUTPUT_TEXTURE_COORD22_EXT = $87B3;
-  GL_OUTPUT_TEXTURE_COORD23_EXT = $87B4;
-  GL_OUTPUT_TEXTURE_COORD24_EXT = $87B5;
-  GL_OUTPUT_TEXTURE_COORD25_EXT = $87B6;
-  GL_OUTPUT_TEXTURE_COORD26_EXT = $87B7;
-  GL_OUTPUT_TEXTURE_COORD27_EXT = $87B8;
-  GL_OUTPUT_TEXTURE_COORD28_EXT = $87B9;
-  GL_OUTPUT_TEXTURE_COORD29_EXT = $87BA;
-  GL_OUTPUT_TEXTURE_COORD30_EXT = $87BB;
-  GL_OUTPUT_TEXTURE_COORD31_EXT = $87BC;
-  GL_OUTPUT_FOG_EXT = $87BD;
-  GL_SCALAR_EXT = $87BE;
-  GL_VECTOR_EXT = $87BF;
-  GL_MATRIX_EXT = $87C0;
-  GL_VARIANT_EXT = $87C1;
-  GL_INVARIANT_EXT = $87C2;
-  GL_LOCAL_CONSTANT_EXT = $87C3;
-  GL_LOCAL_EXT = $87C4;
-  GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT = $87C5;
-  GL_MAX_VERTEX_SHADER_VARIANTS_EXT = $87C6;
-  GL_MAX_VERTEX_SHADER_INVARIANTS_EXT = $87C7;
-  GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87C8;
-  GL_MAX_VERTEX_SHADER_LOCALS_EXT = $87C9;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CA;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT = $87CB;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87CC;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT = $87CD;
-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT = $87CE;
-  GL_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CF;
-  GL_VERTEX_SHADER_VARIANTS_EXT = $87D0;
-  GL_VERTEX_SHADER_INVARIANTS_EXT = $87D1;
-  GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87D2;
-  GL_VERTEX_SHADER_LOCALS_EXT = $87D3;
-  GL_VERTEX_SHADER_BINDING_EXT = $8781;
-  GL_VERTEX_SHADER_OPTIMIZED_EXT = $87D4;
-  GL_X_EXT = $87D5;
-  GL_Y_EXT = $87D6;
-  GL_Z_EXT = $87D7;
-  GL_W_EXT = $87D8;
-  GL_NEGATIVE_X_EXT = $87D9;
-  GL_NEGATIVE_Y_EXT = $87DA;
-  GL_NEGATIVE_Z_EXT = $87DB;
-  GL_NEGATIVE_W_EXT = $87DC;
-  GL_ZERO_EXT = $87DD;
-  GL_ONE_EXT = $87DE;
-  GL_NEGATIVE_ONE_EXT = $87DF;
-  GL_NORMALIZED_RANGE_EXT = $87E0;
-  GL_FULL_RANGE_EXT = $87E1;
-  GL_CURRENT_VERTEX_EXT = $87E2;
-  GL_MVP_MATRIX_EXT = $87E3;
-var
-  glBeginVertexShaderEXT: procedure(); stdcall = nil;
-  glEndVertexShaderEXT: procedure(); stdcall = nil;
-  glBindVertexShaderEXT: procedure(id: GLuint); stdcall = nil;
-  glGenVertexShadersEXT: function(range: GLuint): GLuint; stdcall = nil;
-  glDeleteVertexShaderEXT: procedure(id: GLuint); stdcall = nil;
-  glShaderOp1EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint); stdcall = nil;
-  glShaderOp2EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint; arg2: GLuint); stdcall = nil;
-  glShaderOp3EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint; arg2: GLuint; arg3: GLuint); stdcall = nil;
-  glSwizzleEXT: procedure(res: GLuint; _in: GLuint; outX: GLenum; outY: GLenum; outZ: GLenum; outW: GLenum); stdcall = nil;
-  glWriteMaskEXT: procedure(res: GLuint; _in: GLuint; outX: GLenum; outY: GLenum; outZ: GLenum; outW: GLenum); stdcall = nil;
-  glInsertComponentEXT: procedure(res: GLuint; src: GLuint; num: GLuint); stdcall = nil;
-  glExtractComponentEXT: procedure(res: GLuint; src: GLuint; num: GLuint); stdcall = nil;
-  glGenSymbolsEXT: function(datatype: GLenum; storagetype: GLenum; range: GLenum; components: GLuint): GLuint; stdcall = nil;
-  glSetInvariantEXT: procedure(id: GLuint; _type: GLenum; addr: PGLvoid); stdcall = nil;
-  glSetLocalConstantEXT: procedure(id: GLuint; _type: GLenum; addr: PGLvoid); stdcall = nil;
-  glVariantbvEXT: procedure(id: GLuint; addr: PGLbyte); stdcall = nil;
-  glVariantsvEXT: procedure(id: GLuint; addr: PGLshort); stdcall = nil;
-  glVariantivEXT: procedure(id: GLuint; addr: PGLint); stdcall = nil;
-  glVariantfvEXT: procedure(id: GLuint; addr: PGLfloat); stdcall = nil;
-  glVariantdvEXT: procedure(id: GLuint; addr: PGLdouble); stdcall = nil;
-  glVariantubvEXT: procedure(id: GLuint; addr: PGLubyte); stdcall = nil;
-  glVariantusvEXT: procedure(id: GLuint; addr: PGLushort); stdcall = nil;
-  glVariantuivEXT: procedure(id: GLuint; addr: PGLuint); stdcall = nil;
-  glVariantPointerEXT: procedure(id: GLuint; _type: GLenum; stride: GLuint; addr: PGLvoid); stdcall = nil;
-  glEnableVariantClientStateEXT: procedure(id: GLuint); stdcall = nil;
-  glDisableVariantClientStateEXT: procedure(id: GLuint); stdcall = nil;
-  glBindLightParameterEXT: function(light: GLenum; value: GLenum): GLuint; stdcall = nil;
-  glBindMaterialParameterEXT: function(face: GLenum; value: GLenum): GLuint; stdcall = nil;
-  glBindTexGenParameterEXT: function(_unit: GLenum; coord: GLenum; value: GLenum): GLuint; stdcall = nil;
-  glBindTextureUnitParameterEXT: function(_unit: GLenum; value: GLenum): GLuint; stdcall = nil;
-  glBindParameterEXT: function(value: GLenum): GLuint; stdcall = nil;
-  glIsVariantEnabledEXT: function(id: GLuint; cap: GLenum): GLboolean; stdcall = nil;
-  glGetVariantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); stdcall = nil;
-  glGetVariantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); stdcall = nil;
-  glGetVariantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); stdcall = nil;
-  glGetVariantPointervEXT: procedure(id: GLuint; value: GLenum; data: PGLvoid); stdcall = nil;
-  glGetInvariantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); stdcall = nil;
-  glGetInvariantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); stdcall = nil;
-  glGetInvariantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); stdcall = nil;
-  glGetLocalConstantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); stdcall = nil;
-  glGetLocalConstantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); stdcall = nil;
-  glGetLocalConstantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); stdcall = nil;
-
-function Load_GL_EXT_vertex_shader: Boolean;
-
-//***** GL_EXT_vertex_weighting *****//
-const
-  GL_VERTEX_WEIGHTING_EXT = $8509;
-  GL_MODELVIEW0_EXT = $1700;
-  GL_MODELVIEW1_EXT = $850A;
-  GL_MODELVIEW0_MATRIX_EXT = $0BA6;
-  GL_MODELVIEW1_MATRIX_EXT = $8506;
-  GL_CURRENT_VERTEX_WEIGHT_EXT = $850B;
-  GL_VERTEX_WEIGHT_ARRAY_EXT = $850C;
-  GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = $850D;
-  GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = $850E;
-  GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = $850F;
-  GL_MODELVIEW0_STACK_DEPTH_EXT = $0BA3;
-  GL_MODELVIEW1_STACK_DEPTH_EXT = $8502;
-  GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = $8510;
-var
-  glVertexWeightfEXT: procedure(weight: GLfloat); stdcall = nil;
-  glVertexWeightfvEXT: procedure(weight: PGLfloat); stdcall = nil;
-  glVertexWeightPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_vertex_weighting: Boolean;
-
-//***** GL_HP_occlusion_test *****//
-const
-  GL_OCCLUSION_TEST_HP = $8165;
-  GL_OCCLUSION_TEST_RESULT_HP = $8166;
-
-function Load_GL_HP_occlusion_test: Boolean;
-
-//***** GL_NV_blend_square *****//
-
-function Load_GL_NV_blend_square: Boolean;
-
-//***** GL_NV_copy_depth_to_color *****//
-const
-  GL_DEPTH_STENCIL_TO_RGBA_NV = $886E;
-  GL_DEPTH_STENCIL_TO_BGRA_NV = $886F;
-
-function Load_GL_NV_copy_depth_to_color: Boolean;
-
-//***** GL_NV_depth_clamp *****//
-const
-  GL_DEPTH_CLAMP_NV = $864F;
-
-function Load_GL_NV_depth_clamp: Boolean;
-
-//***** GL_NV_evaluators *****//
-const
-  GL_EVAL_2D_NV = $86C0;
-  GL_EVAL_TRIANGULAR_2D_NV = $86C1;
-  GL_MAP_TESSELLATION_NV = $86C2;
-  GL_MAP_ATTRIB_U_ORDER_NV = $86C3;
-  GL_MAP_ATTRIB_V_ORDER_NV = $86C4;
-  GL_EVAL_FRACTIONAL_TESSELLATION_NV = $86C5;
-  GL_EVAL_VERTEX_ATTRIB0_NV = $86C6;
-  GL_EVAL_VERTEX_ATTRIB1_NV = $86C7;
-  GL_EVAL_VERTEX_ATTRIB2_NV = $86C8;
-  GL_EVAL_VERTEX_ATTRIB3_NV = $86C9;
-  GL_EVAL_VERTEX_ATTRIB4_NV = $86CA;
-  GL_EVAL_VERTEX_ATTRIB5_NV = $86CB;
-  GL_EVAL_VERTEX_ATTRIB6_NV = $86CC;
-  GL_EVAL_VERTEX_ATTRIB7_NV = $86CD;
-  GL_EVAL_VERTEX_ATTRIB8_NV = $86CE;
-  GL_EVAL_VERTEX_ATTRIB9_NV = $86CF;
-  GL_EVAL_VERTEX_ATTRIB10_NV = $86D0;
-  GL_EVAL_VERTEX_ATTRIB11_NV = $86D1;
-  GL_EVAL_VERTEX_ATTRIB12_NV = $86D2;
-  GL_EVAL_VERTEX_ATTRIB13_NV = $86D3;
-  GL_EVAL_VERTEX_ATTRIB14_NV = $86D4;
-  GL_EVAL_VERTEX_ATTRIB15_NV = $86D5;
-  GL_MAX_MAP_TESSELLATION_NV = $86D6;
-  GL_MAX_RATIONAL_EVAL_ORDER_NV = $86D7;
-var
-  glMapControlPointsNV: procedure(target: GLenum; index: GLuint; _type: GLenum; ustride: GLsizei; vstride: GLsizei; uorder: GLint; vorder: GLint; _packed: GLboolean; const points: PGLvoid); stdcall = nil;
-  glMapParameterivNV: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall = nil;
-  glMapParameterfvNV: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glGetMapControlPointsNV: procedure(target: GLenum; index: GLuint; _type: GLenum; ustride: GLsizei; vstride: GLsizei; _packed: GLboolean; points: PGLvoid); stdcall = nil;
-  glGetMapParameterivNV: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetMapParameterfvNV: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetMapAttribParameterivNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetMapAttribParameterfvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glEvalMapsNV: procedure(target: GLenum; mode: GLenum); stdcall = nil;
-
-function Load_GL_NV_evaluators: Boolean;
-
-//***** GL_NV_fence *****//
-const
-  GL_ALL_COMPLETED_NV = $84F2;
-  GL_FENCE_STATUS_NV = $84F3;
-  GL_FENCE_CONDITION_NV = $84F4;
-var
-  glGenFencesNV: procedure(n: GLsizei; fences: PGLuint); stdcall = nil;
-  glDeleteFencesNV: procedure(n: GLsizei; const fences: PGLuint); stdcall = nil;
-  glSetFenceNV: procedure(fence: GLuint; condition: GLenum); stdcall = nil;
-  glTestFenceNV: function(fence: GLuint): GLboolean; stdcall = nil;
-  glFinishFenceNV: procedure(fence: GLuint); stdcall = nil;
-  glIsFenceNV: function(fence: GLuint): GLboolean; stdcall = nil;
-  glGetFenceivNV: procedure(fence: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-
-function Load_GL_NV_fence: Boolean;
-
-//***** GL_NV_fog_distance *****//
-const
-  GL_FOG_DISTANCE_MODE_NV = $855A;
-  GL_EYE_RADIAL_NV = $855B;
-  GL_EYE_PLANE_ABSOLUTE_NV = $855C;
-
-function Load_GL_NV_fog_distance: Boolean;
-
-//***** GL_NV_light_max_exponent *****//
-const
-  GL_MAX_SHININESS_NV = $8504;
-  GL_MAX_SPOT_EXPONENT_NV = $8505;
-
-function Load_GL_NV_light_max_exponent: Boolean;
-
-//***** GL_NV_multisample_filter_hint *****//
-const
-  GL_MULTISAMPLE_FILTER_HINT_NV = $8534;
-
-function Load_GL_NV_multisample_filter_hint: Boolean;
-
-//***** GL_NV_occlusion_query *****//
-  // GL_OCCLUSION_TEST_HP  { already defined }
-  // GL_OCCLUSION_TEST_RESULT_HP  { already defined }
-const
-  GL_PIXEL_COUNTER_BITS_NV = $8864;
-  GL_CURRENT_OCCLUSION_QUERY_ID_NV = $8865;
-  GL_PIXEL_COUNT_NV = $8866;
-  GL_PIXEL_COUNT_AVAILABLE_NV = $8867;
-var
-  glGenOcclusionQueriesNV: procedure(n: GLsizei; ids: PGLuint); stdcall = nil;
-  glDeleteOcclusionQueriesNV: procedure(n: GLsizei; const ids: PGLuint); stdcall = nil;
-  glIsOcclusionQueryNV: function(id: GLuint): GLboolean; stdcall = nil;
-  glBeginOcclusionQueryNV: procedure(id: GLuint); stdcall = nil;
-  glEndOcclusionQueryNV: procedure(); stdcall = nil;
-  glGetOcclusionQueryivNV: procedure(id: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetOcclusionQueryuivNV: procedure(id: GLuint; pname: GLenum; params: PGLuint); stdcall = nil;
-
-function Load_GL_NV_occlusion_query: Boolean;
-
-//***** GL_NV_packed_depth_stencil *****//
-const
-  GL_DEPTH_STENCIL_NV = $84F9;
-  GL_UNSIGNED_INT_24_8_NV = $84FA;
-
-function Load_GL_NV_packed_depth_stencil: Boolean;
-
-//***** GL_NV_point_sprite *****//
-const
-  GL_POINT_SPRITE_NV = $8861;
-  GL_COORD_REPLACE_NV = $8862;
-  GL_POINT_SPRITE_R_MODE_NV = $8863;
-var
-  glPointParameteriNV: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glPointParameterivNV: procedure(pname: GLenum; const params: PGLint); stdcall = nil;
-
-function Load_GL_NV_point_sprite: Boolean;
-
-//***** GL_NV_register_combiners *****//
-const
-  GL_REGISTER_COMBINERS_NV = $8522;
-  GL_COMBINER0_NV = $8550;
-  GL_COMBINER1_NV = $8551;
-  GL_COMBINER2_NV = $8552;
-  GL_COMBINER3_NV = $8553;
-  GL_COMBINER4_NV = $8554;
-  GL_COMBINER5_NV = $8555;
-  GL_COMBINER6_NV = $8556;
-  GL_COMBINER7_NV = $8557;
-  GL_VARIABLE_A_NV = $8523;
-  GL_VARIABLE_B_NV = $8524;
-  GL_VARIABLE_C_NV = $8525;
-  GL_VARIABLE_D_NV = $8526;
-  GL_VARIABLE_E_NV = $8527;
-  GL_VARIABLE_F_NV = $8528;
-  GL_VARIABLE_G_NV = $8529;
-  GL_CONSTANT_COLOR0_NV = $852A;
-  GL_CONSTANT_COLOR1_NV = $852B;
-  GL_PRIMARY_COLOR_NV = $852C;
-  GL_SECONDARY_COLOR_NV = $852D;
-  GL_SPARE0_NV = $852E;
-  GL_SPARE1_NV = $852F;
-  GL_UNSIGNED_IDENTITY_NV = $8536;
-  GL_UNSIGNED_INVERT_NV = $8537;
-  GL_EXPAND_NORMAL_NV = $8538;
-  GL_EXPAND_NEGATE_NV = $8539;
-  GL_HALF_BIAS_NORMAL_NV = $853A;
-  GL_HALF_BIAS_NEGATE_NV = $853B;
-  GL_SIGNED_IDENTITY_NV = $853C;
-  GL_SIGNED_NEGATE_NV = $853D;
-  GL_E_TIMES_F_NV = $8531;
-  GL_SPARE0_PLUS_SECONDARY_COLOR_NV = $8532;
-  GL_SCALE_BY_TWO_NV = $853E;
-  GL_SCALE_BY_FOUR_NV = $853F;
-  GL_SCALE_BY_ONE_HALF_NV = $8540;
-  GL_BIAS_BY_NEGATIVE_ONE_HALF_NV = $8541;
-  GL_DISCARD_NV = $8530;
-  GL_COMBINER_INPUT_NV = $8542;
-  GL_COMBINER_MAPPING_NV = $8543;
-  GL_COMBINER_COMPONENT_USAGE_NV = $8544;
-  GL_COMBINER_AB_DOT_PRODUCT_NV = $8545;
-  GL_COMBINER_CD_DOT_PRODUCT_NV = $8546;
-  GL_COMBINER_MUX_SUM_NV = $8547;
-  GL_COMBINER_SCALE_NV = $8548;
-  GL_COMBINER_BIAS_NV = $8549;
-  GL_COMBINER_AB_OUTPUT_NV = $854A;
-  GL_COMBINER_CD_OUTPUT_NV = $854B;
-  GL_COMBINER_SUM_OUTPUT_NV = $854C;
-  GL_NUM_GENERAL_COMBINERS_NV = $854E;
-  GL_COLOR_SUM_CLAMP_NV = $854F;
-  GL_MAX_GENERAL_COMBINERS_NV = $854D;
-var
-  glCombinerParameterfvNV: procedure(pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glCombinerParameterivNV: procedure(pname: GLenum; const params: PGLint); stdcall = nil;
-  glCombinerParameterfNV: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-  glCombinerParameteriNV: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glCombinerInputNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; input: GLenum; mapping: GLenum; componentUsage: GLenum); stdcall = nil;
-  glCombinerOutputNV: procedure(stage: GLenum; portion: GLenum; abOutput: GLenum; cdOutput: GLenum; sumOutput: GLenum; scale: GLenum; bias: GLenum; abDotProduct: GLboolean; cdDotProduct: GLboolean; muxSum: GLboolean); stdcall = nil;
-  glFinalCombinerInputNV: procedure(variable: GLenum; input: GLenum; mapping: GLenum; componentUsage: GLenum); stdcall = nil;
-  glGetCombinerInputParameterfvNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetCombinerInputParameterivNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetCombinerOutputParameterfvNV: procedure(stage: GLenum; portion: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetCombinerOutputParameterivNV: procedure(stage: GLenum; portion: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetFinalCombinerInputParameterfvNV: procedure(variable: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetFinalCombinerInputParameterivNV: procedure(variable: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-
-function Load_GL_NV_register_combiners: Boolean;
-
-//***** GL_NV_register_combiners2 *****//
-const
-  GL_PER_STAGE_CONSTANTS_NV = $8535;
-var
-  glCombinerStageParameterfvNV: procedure(stage: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glGetCombinerStageParameterfvNV: procedure(stage: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_NV_register_combiners2: Boolean;
-
-//***** GL_NV_texgen_emboss *****//
-const
-  GL_EMBOSS_MAP_NV = $855F;
-  GL_EMBOSS_LIGHT_NV = $855D;
-  GL_EMBOSS_CONSTANT_NV = $855E;
-
-function Load_GL_NV_texgen_emboss: Boolean;
-
-//***** GL_NV_texgen_reflection *****//
-const
-  GL_NORMAL_MAP_NV = $8511;
-  GL_REFLECTION_MAP_NV = $8512;
-
-function Load_GL_NV_texgen_reflection: Boolean;
-
-//***** GL_NV_texture_compression_vtc *****//
-  // GL_COMPRESSED_RGB_S3TC_DXT1_EXT  { already defined }
-  // GL_COMPRESSED_RGBA_S3TC_DXT1_EXT  { already defined }
-  // GL_COMPRESSED_RGBA_S3TC_DXT3_EXT  { already defined }
-  // GL_COMPRESSED_RGBA_S3TC_DXT5_EXT  { already defined }
-
-function Load_GL_NV_texture_compression_vtc: Boolean;
-
-//***** GL_NV_texture_env_combine4 *****//
-const
-  GL_COMBINE4_NV = $8503;
-  GL_SOURCE3_RGB_NV = $8583;
-  GL_SOURCE3_ALPHA_NV = $858B;
-  GL_OPERAND3_RGB_NV = $8593;
-  GL_OPERAND3_ALPHA_NV = $859B;
-
-function Load_GL_NV_texture_env_combine4: Boolean;
-
-//***** GL_NV_texture_rectangle *****//
-const
-  GL_TEXTURE_RECTANGLE_NV = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_NV = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_NV = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_NV = $84F8;
-
-function Load_GL_NV_texture_rectangle: Boolean;
-
-//***** GL_NV_texture_shader *****//
-const
-  GL_TEXTURE_SHADER_NV = $86DE;
-  GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV = $86D9;
-  GL_SHADER_OPERATION_NV = $86DF;
-  GL_CULL_MODES_NV = $86E0;
-  GL_OFFSET_TEXTURE_MATRIX_NV = $86E1;
-  GL_OFFSET_TEXTURE_SCALE_NV = $86E2;
-  GL_OFFSET_TEXTURE_BIAS_NV = $86E3;
-  GL_PREVIOUS_TEXTURE_INPUT_NV = $86E4;
-  GL_CONST_EYE_NV = $86E5;
-  GL_SHADER_CONSISTENT_NV = $86DD;
-  GL_PASS_THROUGH_NV = $86E6;
-  GL_CULL_FRAGMENT_NV = $86E7;
-  GL_OFFSET_TEXTURE_2D_NV = $86E8;
-  GL_OFFSET_TEXTURE_RECTANGLE_NV = $864C;
-  GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV = $864D;
-  GL_DEPENDENT_AR_TEXTURE_2D_NV = $86E9;
-  GL_DEPENDENT_GB_TEXTURE_2D_NV = $86EA;
-  GL_DOT_PRODUCT_NV = $86EC;
-  GL_DOT_PRODUCT_DEPTH_REPLACE_NV = $86ED;
-  GL_DOT_PRODUCT_TEXTURE_2D_NV = $86EE;
-  GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV = $864E;
-  GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV = $86F0;
-  GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV = $86F1;
-  GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV = $86F2;
-  GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV = $86F3;
-  GL_HILO_NV = $86F4;
-  GL_DSDT_NV = $86F5;
-  GL_DSDT_MAG_NV = $86F6;
-  GL_DSDT_MAG_VIB_NV = $86F7;
-  GL_UNSIGNED_INT_S8_S8_8_8_NV = $86DA;
-  GL_UNSIGNED_INT_8_8_S8_S8_REV_NV = $86DB;
-  GL_SIGNED_RGBA_NV = $86FB;
-  GL_SIGNED_RGBA8_NV = $86FC;
-  GL_SIGNED_RGB_NV = $86FE;
-  GL_SIGNED_RGB8_NV = $86FF;
-  GL_SIGNED_LUMINANCE_NV = $8701;
-  GL_SIGNED_LUMINANCE8_NV = $8702;
-  GL_SIGNED_LUMINANCE_ALPHA_NV = $8703;
-  GL_SIGNED_LUMINANCE8_ALPHA8_NV = $8704;
-  GL_SIGNED_ALPHA_NV = $8705;
-  GL_SIGNED_ALPHA8_NV = $8706;
-  GL_SIGNED_INTENSITY_NV = $8707;
-  GL_SIGNED_INTENSITY8_NV = $8708;
-  GL_SIGNED_RGB_UNSIGNED_ALPHA_NV = $870C;
-  GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV = $870D;
-  GL_HILO16_NV = $86F8;
-  GL_SIGNED_HILO_NV = $86F9;
-  GL_SIGNED_HILO16_NV = $86FA;
-  GL_DSDT8_NV = $8709;
-  GL_DSDT8_MAG8_NV = $870A;
-  GL_DSDT_MAG_INTENSITY_NV = $86DC;
-  GL_DSDT8_MAG8_INTENSITY8_NV = $870B;
-  GL_HI_SCALE_NV = $870E;
-  GL_LO_SCALE_NV = $870F;
-  GL_DS_SCALE_NV = $8710;
-  GL_DT_SCALE_NV = $8711;
-  GL_MAGNITUDE_SCALE_NV = $8712;
-  GL_VIBRANCE_SCALE_NV = $8713;
-  GL_HI_BIAS_NV = $8714;
-  GL_LO_BIAS_NV = $8715;
-  GL_DS_BIAS_NV = $8716;
-  GL_DT_BIAS_NV = $8717;
-  GL_MAGNITUDE_BIAS_NV = $8718;
-  GL_VIBRANCE_BIAS_NV = $8719;
-  GL_TEXTURE_BORDER_VALUES_NV = $871A;
-  GL_TEXTURE_HI_SIZE_NV = $871B;
-  GL_TEXTURE_LO_SIZE_NV = $871C;
-  GL_TEXTURE_DS_SIZE_NV = $871D;
-  GL_TEXTURE_DT_SIZE_NV = $871E;
-  GL_TEXTURE_MAG_SIZE_NV = $871F;
-
-function Load_GL_NV_texture_shader: Boolean;
-
-//***** GL_NV_texture_shader2 *****//
-const
-  GL_DOT_PRODUCT_TEXTURE_3D_NV = $86EF;
-  // GL_HILO_NV  { already defined }
-  // GL_DSDT_NV  { already defined }
-  // GL_DSDT_MAG_NV  { already defined }
-  // GL_DSDT_MAG_VIB_NV  { already defined }
-  // GL_UNSIGNED_INT_S8_S8_8_8_NV  { already defined }
-  // GL_UNSIGNED_INT_8_8_S8_S8_REV_NV  { already defined }
-  // GL_SIGNED_RGBA_NV  { already defined }
-  // GL_SIGNED_RGBA8_NV  { already defined }
-  // GL_SIGNED_RGB_NV  { already defined }
-  // GL_SIGNED_RGB8_NV  { already defined }
-  // GL_SIGNED_LUMINANCE_NV  { already defined }
-  // GL_SIGNED_LUMINANCE8_NV  { already defined }
-  // GL_SIGNED_LUMINANCE_ALPHA_NV  { already defined }
-  // GL_SIGNED_LUMINANCE8_ALPHA8_NV  { already defined }
-  // GL_SIGNED_ALPHA_NV  { already defined }
-  // GL_SIGNED_ALPHA8_NV  { already defined }
-  // GL_SIGNED_INTENSITY_NV  { already defined }
-  // GL_SIGNED_INTENSITY8_NV  { already defined }
-  // GL_SIGNED_RGB_UNSIGNED_ALPHA_NV  { already defined }
-  // GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV  { already defined }
-  // GL_HILO16_NV  { already defined }
-  // GL_SIGNED_HILO_NV  { already defined }
-  // GL_SIGNED_HILO16_NV  { already defined }
-  // GL_DSDT8_NV  { already defined }
-  // GL_DSDT8_MAG8_NV  { already defined }
-  // GL_DSDT_MAG_INTENSITY_NV  { already defined }
-  // GL_DSDT8_MAG8_INTENSITY8_NV  { already defined }
-
-function Load_GL_NV_texture_shader2: Boolean;
-
-//***** GL_NV_texture_shader3 *****//
-const
-  GL_OFFSET_PROJECTIVE_TEXTURE_2D_NV = $8850;
-  GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV = $8851;
-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8852;
-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV = $8853;
-  GL_OFFSET_HILO_TEXTURE_2D_NV = $8854;
-  GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV = $8855;
-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV = $8856;
-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8857;
-  GL_DEPENDENT_HILO_TEXTURE_2D_NV = $8858;
-  GL_DEPENDENT_RGB_TEXTURE_3D_NV = $8859;
-  GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV = $885A;
-  GL_DOT_PRODUCT_PASS_THROUGH_NV = $885B;
-  GL_DOT_PRODUCT_TEXTURE_1D_NV = $885C;
-  GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV = $885D;
-  GL_HILO8_NV = $885E;
-  GL_SIGNED_HILO8_NV = $885F;
-  GL_FORCE_BLUE_TO_ONE_NV = $8860;
-
-function Load_GL_NV_texture_shader3: Boolean;
-
-//***** GL_NV_vertex_array_range *****//
-const
-  GL_VERTEX_ARRAY_RANGE_NV = $851D;
-  GL_VERTEX_ARRAY_RANGE_LENGTH_NV = $851E;
-  GL_VERTEX_ARRAY_RANGE_VALID_NV = $851F;
-  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV = $8520;
-  GL_VERTEX_ARRAY_RANGE_POINTER_NV = $8521;
-var
-  glVertexArrayRangeNV: procedure(length: GLsizei; pointer: PGLvoid); stdcall = nil;
-  glFlushVertexArrayRangeNV: procedure(); stdcall = nil;
-  wglAllocateMemoryNV: function(size: GLsizei; readFrequency: GLfloat; writeFrequency: GLfloat; priority: GLfloat): PGLvoid; stdcall = nil;
-  wglFreeMemoryNV: procedure(pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_NV_vertex_array_range: Boolean;
-
-//***** GL_NV_vertex_array_range2 *****//
-const
-  GL_VERTEX_ARRAY_RANGE_WITHOUT_FLUSH_NV = $8533;
-
-function Load_GL_NV_vertex_array_range2: Boolean;
-
-//***** GL_NV_vertex_program *****//
-const
-  GL_VERTEX_PROGRAM_NV = $8620;
-  GL_VERTEX_PROGRAM_POINT_SIZE_NV = $8642;
-  GL_VERTEX_PROGRAM_TWO_SIDE_NV = $8643;
-  GL_VERTEX_STATE_PROGRAM_NV = $8621;
-  GL_ATTRIB_ARRAY_SIZE_NV = $8623;
-  GL_ATTRIB_ARRAY_STRIDE_NV = $8624;
-  GL_ATTRIB_ARRAY_TYPE_NV = $8625;
-  GL_CURRENT_ATTRIB_NV = $8626;
-  GL_PROGRAM_PARAMETER_NV = $8644;
-  GL_ATTRIB_ARRAY_POINTER_NV = $8645;
-  GL_PROGRAM_TARGET_NV = $8646;
-  GL_PROGRAM_LENGTH_NV = $8627;
-  GL_PROGRAM_RESIDENT_NV = $8647;
-  GL_PROGRAM_STRING_NV = $8628;
-  GL_TRACK_MATRIX_NV = $8648;
-  GL_TRACK_MATRIX_TRANSFORM_NV = $8649;
-  GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV = $862E;
-  GL_MAX_TRACK_MATRICES_NV = $862F;
-  GL_CURRENT_MATRIX_STACK_DEPTH_NV = $8640;
-  GL_CURRENT_MATRIX_NV = $8641;
-  GL_VERTEX_PROGRAM_BINDING_NV = $864A;
-  GL_PROGRAM_ERROR_POSITION_NV = $864B;
-  GL_MODELVIEW_PROJECTION_NV = $8629;
-  GL_MATRIX0_NV = $8630;
-  GL_MATRIX1_NV = $8631;
-  GL_MATRIX2_NV = $8632;
-  GL_MATRIX3_NV = $8633;
-  GL_MATRIX4_NV = $8634;
-  GL_MATRIX5_NV = $8635;
-  GL_MATRIX6_NV = $8636;
-  GL_MATRIX7_NV = $8637;
-  GL_IDENTITY_NV = $862A;
-  GL_INVERSE_NV = $862B;
-  GL_TRANSPOSE_NV = $862C;
-  GL_INVERSE_TRANSPOSE_NV = $862D;
-  GL_VERTEX_ATTRIB_ARRAY0_NV = $8650;
-  GL_VERTEX_ATTRIB_ARRAY1_NV = $8651;
-  GL_VERTEX_ATTRIB_ARRAY2_NV = $8652;
-  GL_VERTEX_ATTRIB_ARRAY3_NV = $8653;
-  GL_VERTEX_ATTRIB_ARRAY4_NV = $8654;
-  GL_VERTEX_ATTRIB_ARRAY5_NV = $8655;
-  GL_VERTEX_ATTRIB_ARRAY6_NV = $8656;
-  GL_VERTEX_ATTRIB_ARRAY7_NV = $8657;
-  GL_VERTEX_ATTRIB_ARRAY8_NV = $8658;
-  GL_VERTEX_ATTRIB_ARRAY9_NV = $8659;
-  GL_VERTEX_ATTRIB_ARRAY10_NV = $865A;
-  GL_VERTEX_ATTRIB_ARRAY11_NV = $865B;
-  GL_VERTEX_ATTRIB_ARRAY12_NV = $865C;
-  GL_VERTEX_ATTRIB_ARRAY13_NV = $865D;
-  GL_VERTEX_ATTRIB_ARRAY14_NV = $865E;
-  GL_VERTEX_ATTRIB_ARRAY15_NV = $865F;
-  GL_MAP1_VERTEX_ATTRIB0_4_NV = $8660;
-  GL_MAP1_VERTEX_ATTRIB1_4_NV = $8661;
-  GL_MAP1_VERTEX_ATTRIB2_4_NV = $8662;
-  GL_MAP1_VERTEX_ATTRIB3_4_NV = $8663;
-  GL_MAP1_VERTEX_ATTRIB4_4_NV = $8664;
-  GL_MAP1_VERTEX_ATTRIB5_4_NV = $8665;
-  GL_MAP1_VERTEX_ATTRIB6_4_NV = $8666;
-  GL_MAP1_VERTEX_ATTRIB7_4_NV = $8667;
-  GL_MAP1_VERTEX_ATTRIB8_4_NV = $8668;
-  GL_MAP1_VERTEX_ATTRIB9_4_NV = $8669;
-  GL_MAP1_VERTEX_ATTRIB10_4_NV = $866A;
-  GL_MAP1_VERTEX_ATTRIB11_4_NV = $866B;
-  GL_MAP1_VERTEX_ATTRIB12_4_NV = $866C;
-  GL_MAP1_VERTEX_ATTRIB13_4_NV = $866D;
-  GL_MAP1_VERTEX_ATTRIB14_4_NV = $866E;
-  GL_MAP1_VERTEX_ATTRIB15_4_NV = $866F;
-  GL_MAP2_VERTEX_ATTRIB0_4_NV = $8670;
-  GL_MAP2_VERTEX_ATTRIB1_4_NV = $8671;
-  GL_MAP2_VERTEX_ATTRIB2_4_NV = $8672;
-  GL_MAP2_VERTEX_ATTRIB3_4_NV = $8673;
-  GL_MAP2_VERTEX_ATTRIB4_4_NV = $8674;
-  GL_MAP2_VERTEX_ATTRIB5_4_NV = $8675;
-  GL_MAP2_VERTEX_ATTRIB6_4_NV = $8676;
-  GL_MAP2_VERTEX_ATTRIB7_4_NV = $8677;
-  GL_MAP2_VERTEX_ATTRIB8_4_NV = $8678;
-  GL_MAP2_VERTEX_ATTRIB9_4_NV = $8679;
-  GL_MAP2_VERTEX_ATTRIB10_4_NV = $867A;
-  GL_MAP2_VERTEX_ATTRIB11_4_NV = $867B;
-  GL_MAP2_VERTEX_ATTRIB12_4_NV = $867C;
-  GL_MAP2_VERTEX_ATTRIB13_4_NV = $867D;
-  GL_MAP2_VERTEX_ATTRIB14_4_NV = $867E;
-  GL_MAP2_VERTEX_ATTRIB15_4_NV = $867F;
-var
-  glBindProgramNV: procedure(target: GLenum; id: GLuint); stdcall = nil;
-  glDeleteProgramsNV: procedure(n: GLsizei; const ids: PGLuint); stdcall = nil;
-  glExecuteProgramNV: procedure(target: GLenum; id: GLuint; const params: PGLfloat); stdcall = nil;
-  glGenProgramsNV: procedure(n: GLsizei; ids: PGLuint); stdcall = nil;
-  glAreProgramsResidentNV: function(n: GLsizei; const ids: PGLuint; residences: PGLboolean): GLboolean; stdcall = nil;
-  glRequestResidentProgramsNV: procedure(n: GLsizei; ids: PGLuint); stdcall = nil;
-  glGetProgramParameterfvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetProgramParameterdvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLdouble); stdcall = nil;
-  glGetProgramivNV: procedure(id: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetProgramStringNV: procedure(id: GLuint; pname: GLenum; _program: PGLubyte); stdcall = nil;
-  glGetTrackMatrixivNV: procedure(target: GLenum; address: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetVertexAttribdvNV: procedure(index: GLuint; pname: GLenum; params: PGLdouble); stdcall = nil;
-  glGetVertexAttribfvNV: procedure(index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetVertexAttribivNV: procedure(index: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetVertexAttribPointervNV: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); stdcall = nil;
-  glIsProgramNV: function(id: GLuint): GLboolean; stdcall = nil;
-  glLoadProgramNV: procedure(target: GLenum; id: GLuint; len: GLsizei; const _program: PGLubyte); stdcall = nil;
-  glProgramParameter4fNV: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glProgramParameter4fvNV: procedure(target: GLenum; index: GLuint; const params: PGLfloat); stdcall = nil;
-  glProgramParameters4dvNV: procedure(target: GLenum; index: GLuint; num: GLuint; const params: PGLdouble); stdcall = nil;
-  glProgramParameters4fvNV: procedure(target: GLenum; index: GLuint; num: GLuint; const params: PGLfloat); stdcall = nil;
-  glTrackMatrixNV: procedure(target: GLenum; address: GLuint; matrix: GLenum; transform: GLenum); stdcall = nil;
-  glVertexAttribPointerNV: procedure(index: GLuint; size: GLint; _type: GLenum; stride: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glVertexAttrib1sNV: procedure(index: GLuint; x: GLshort); stdcall = nil;
-  glVertexAttrib1fNV: procedure(index: GLuint; x: GLfloat); stdcall = nil;
-  glVertexAttrib1dNV: procedure(index: GLuint; x: GLdouble); stdcall = nil;
-  glVertexAttrib2sNV: procedure(index: GLuint; x: GLshort; y: GLshort); stdcall = nil;
-  glVertexAttrib2fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat); stdcall = nil;
-  glVertexAttrib2dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble); stdcall = nil;
-  glVertexAttrib3sNV: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glVertexAttrib3fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glVertexAttrib3dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glVertexAttrib4sNV: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); stdcall = nil;
-  glVertexAttrib4fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glVertexAttrib4dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glVertexAttrib4ubNV: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); stdcall = nil;
-  glVertexAttrib1svNV: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib1fvNV: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib1dvNV: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib2svNV: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib2fvNV: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib2dvNV: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib3svNV: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib3fvNV: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib3dvNV: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib4svNV: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4fvNV: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib4dvNV: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib4ubvNV: procedure(index: GLuint; const v: PGLubyte); stdcall = nil;
-  glVertexAttribs1svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); stdcall = nil;
-  glVertexAttribs1fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); stdcall = nil;
-  glVertexAttribs1dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); stdcall = nil;
-  glVertexAttribs2svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); stdcall = nil;
-  glVertexAttribs2fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); stdcall = nil;
-  glVertexAttribs2dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); stdcall = nil;
-  glVertexAttribs3svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); stdcall = nil;
-  glVertexAttribs3fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); stdcall = nil;
-  glVertexAttribs3dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); stdcall = nil;
-  glVertexAttribs4svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); stdcall = nil;
-  glVertexAttribs4fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); stdcall = nil;
-  glVertexAttribs4dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); stdcall = nil;
-  glVertexAttribs4ubvNV: procedure(index: GLuint; n: GLsizei; const v: PGLubyte); stdcall = nil;
-
-function Load_GL_NV_vertex_program: Boolean;
-
-//***** GL_NV_vertex_program1_1 *****//
-
-function Load_GL_NV_vertex_program1_1: Boolean;
-
-//***** GL_ATI_element_array *****//
-const
-  GL_ELEMENT_ARRAY_ATI = $8768;
-  GL_ELEMENT_ARRAY_TYPE_ATI = $8769;
-  GL_ELEMENT_ARRAY_POINTER_ATI = $876A;
-var
-  glElementPointerATI: procedure(_type: GLenum; const pointer: PGLvoid); stdcall = nil;
-  glDrawElementArrayATI: procedure(mode: GLenum; count: GLsizei); stdcall = nil;
-  glDrawRangeElementArrayATI: procedure(mode: GLenum; start: GLuint; _end: GLuint; count: GLsizei); stdcall = nil;
-
-function Load_GL_ATI_element_array: Boolean;
-
-//***** GL_ATI_envmap_bumpmap *****//
-const
-  GL_BUMP_ROT_MATRIX_ATI = $8775;
-  GL_BUMP_ROT_MATRIX_SIZE_ATI = $8776;
-  GL_BUMP_NUM_TEX_UNITS_ATI = $8777;
-  GL_BUMP_TEX_UNITS_ATI = $8778;
-  GL_DUDV_ATI = $8779;
-  GL_DU8DV8_ATI = $877A;
-  GL_BUMP_ENVMAP_ATI = $877B;
-  GL_BUMP_TARGET_ATI = $877C;
-var
-  glTexBumpParameterivATI: procedure(pname: GLenum; param: PGLint); stdcall = nil;
-  glTexBumpParameterfvATI: procedure(pname: GLenum; param: PGLfloat); stdcall = nil;
-  glGetTexBumpParameterivATI: procedure(pname: GLenum; param: PGLint); stdcall = nil;
-  glGetTexBumpParameterfvATI: procedure(pname: GLenum; param: PGLfloat); stdcall = nil;
-
-function Load_GL_ATI_envmap_bumpmap: Boolean;
-
-//***** GL_ATI_fragment_shader *****//
-const
-  GL_FRAGMENT_SHADER_ATI = $8920;
-  GL_REG_0_ATI = $8921;
-  GL_REG_1_ATI = $8922;
-  GL_REG_2_ATI = $8923;
-  GL_REG_3_ATI = $8924;
-  GL_REG_4_ATI = $8925;
-  GL_REG_5_ATI = $8926;
-  GL_CON_0_ATI = $8941;
-  GL_CON_1_ATI = $8942;
-  GL_CON_2_ATI = $8943;
-  GL_CON_3_ATI = $8944;
-  GL_CON_4_ATI = $8945;
-  GL_CON_5_ATI = $8946;
-  GL_CON_6_ATI = $8947;
-  GL_CON_7_ATI = $8948;
-  GL_MOV_ATI = $8961;
-  GL_ADD_ATI = $8963;
-  GL_MUL_ATI = $8964;
-  GL_SUB_ATI = $8965;
-  GL_DOT3_ATI = $8966;
-  GL_DOT4_ATI = $8967;
-  GL_MAD_ATI = $8968;
-  GL_LERP_ATI = $8969;
-  GL_CND_ATI = $896A;
-  GL_CND0_ATI = $896B;
-  GL_DOT2_ADD_ATI = $896C;
-  GL_SECONDARY_INTERPOLATOR_ATI = $896D;
-  GL_SWIZZLE_STR_ATI = $8976;
-  GL_SWIZZLE_STQ_ATI = $8977;
-  GL_SWIZZLE_STR_DR_ATI = $8978;
-  GL_SWIZZLE_STQ_DQ_ATI = $8979;
-  GL_RED_BIT_ATI = $0001;
-  GL_GREEN_BIT_ATI = $0002;
-  GL_BLUE_BIT_ATI = $0004;
-  GL_2X_BIT_ATI = $0001;
-  GL_4X_BIT_ATI = $0002;
-  GL_8X_BIT_ATI = $0004;
-  GL_HALF_BIT_ATI = $0008;
-  GL_QUARTER_BIT_ATI = $0010;
-  GL_EIGHTH_BIT_ATI = $0020;
-  GL_SATURATE_BIT_ATI = $0040;
-  // GL_2X_BIT_ATI  { already defined }
-  GL_COMP_BIT_ATI = $0002;
-  GL_NEGATE_BIT_ATI = $0004;
-  GL_BIAS_BIT_ATI = $0008;
-var
-  glGenFragmentShadersATI: function(range: GLuint): GLuint; stdcall = nil;
-  glBindFragmentShaderATI: procedure(id: GLuint); stdcall = nil;
-  glDeleteFragmentShaderATI: procedure(id: GLuint); stdcall = nil;
-  glBeginFragmentShaderATI: procedure(); stdcall = nil;
-  glEndFragmentShaderATI: procedure(); stdcall = nil;
-  glPassTexCoordATI: procedure(dst: GLuint; coord: GLuint; swizzle: GLenum); stdcall = nil;
-  glSampleMapATI: procedure(dst: GLuint; interp: GLuint; swizzle: GLenum); stdcall = nil;
-  glColorFragmentOp1ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint); stdcall = nil;
-  glColorFragmentOp2ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint); stdcall = nil;
-  glColorFragmentOp3ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint; arg3: GLuint; arg3Rep: GLuint; arg3Mod: GLuint); stdcall = nil;
-  glAlphaFragmentOp1ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint); stdcall = nil;
-  glAlphaFragmentOp2ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint); stdcall = nil;
-  glAlphaFragmentOp3ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint; arg3: GLuint; arg3Rep: GLuint; arg3Mod: GLuint); stdcall = nil;
-  glSetFragmentShaderConstantATI: procedure(dst: GLuint; const value: PGLfloat); stdcall = nil;
-
-function Load_GL_ATI_fragment_shader: Boolean;
-
-//***** GL_ATI_pn_triangles *****//
-const
-  GL_PN_TRIANGLES_ATI = $87F0;
-  GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F1;
-  GL_PN_TRIANGLES_POINT_MODE_ATI = $87F2;
-  GL_PN_TRIANGLES_NORMAL_MODE_ATI = $87F3;
-  GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F4;
-  GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI = $87F5;
-  GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI = $87F6;
-  GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI = $87F7;
-  GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI = $87F8;
-var
-  glPNTrianglesiATI: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glPNTrianglesfATI: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-
-function Load_GL_ATI_pn_triangles: Boolean;
-
-//***** GL_ATI_texture_mirror_once *****//
-const
-  GL_MIRROR_CLAMP_ATI = $8742;
-  GL_MIRROR_CLAMP_TO_EDGE_ATI = $8743;
-
-function Load_GL_ATI_texture_mirror_once: Boolean;
-
-//***** GL_ATI_vertex_array_object *****//
-const
-  GL_STATIC_ATI = $8760;
-  GL_DYNAMIC_ATI = $8761;
-  GL_PRESERVE_ATI = $8762;
-  GL_DISCARD_ATI = $8763;
-  GL_OBJECT_BUFFER_SIZE_ATI = $8764;
-  GL_OBJECT_BUFFER_USAGE_ATI = $8765;
-  GL_ARRAY_OBJECT_BUFFER_ATI = $8766;
-  GL_ARRAY_OBJECT_OFFSET_ATI = $8767;
-var
-  glNewObjectBufferATI: function(size: GLsizei; const pointer: PGLvoid; usage: GLenum): GLuint; stdcall = nil;
-  glIsObjectBufferATI: function(buffer: GLuint): GLboolean; stdcall = nil;
-  glUpdateObjectBufferATI: procedure(buffer: GLuint; offset: GLuint; size: GLsizei; const pointer: PGLvoid; preserve: GLenum); stdcall = nil;
-  glGetObjectBufferfvATI: procedure(buffer: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetObjectBufferivATI: procedure(buffer: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glDeleteObjectBufferATI: procedure(buffer: GLuint); stdcall = nil;
-  glArrayObjectATI: procedure(_array: GLenum; size: GLint; _type: GLenum; stride: GLsizei; buffer: GLuint; offset: GLuint); stdcall = nil;
-  glGetArrayObjectfvATI: procedure(_array: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetArrayObjectivATI: procedure(_array: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glVariantArrayObjectATI: procedure(id: GLuint; _type: GLenum; stride: GLsizei; buffer: GLuint; offset: GLuint); stdcall = nil;
-  glGetVariantArrayObjectfvATI: procedure(id: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetVariantArrayObjectivATI: procedure(id: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-
-function Load_GL_ATI_vertex_array_object: Boolean;
-
-//***** GL_ATI_vertex_streams *****//
-const
-  GL_MAX_VERTEX_STREAMS_ATI = $876B;
-  GL_VERTEX_STREAM0_ATI = $876C;
-  GL_VERTEX_STREAM1_ATI = $876D;
-  GL_VERTEX_STREAM2_ATI = $876E;
-  GL_VERTEX_STREAM3_ATI = $876F;
-  GL_VERTEX_STREAM4_ATI = $8770;
-  GL_VERTEX_STREAM5_ATI = $8771;
-  GL_VERTEX_STREAM6_ATI = $8772;
-  GL_VERTEX_STREAM7_ATI = $8773;
-  GL_VERTEX_SOURCE_ATI = $8774;
-var
-  glVertexStream1s: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream1i: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream1f: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream1d: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream1sv: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream1iv: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream1fv: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream1dv: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream2s: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream2i: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream2f: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream2d: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream2sv: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream2iv: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream2fv: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream2dv: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream3s: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream3i: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream3f: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream3d: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream3sv: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream3iv: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream3fv: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream3dv: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream4s: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream4i: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream4f: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream4d: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glVertexStream4sv: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glVertexStream4iv: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glVertexStream4fv: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glVertexStream4dv: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glNormalStream3b: procedure(stream: GLenum; coords: GLbyte); stdcall = nil;
-  glNormalStream3s: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glNormalStream3i: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glNormalStream3f: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glNormalStream3d: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glNormalStream3bv: procedure(stream: GLenum; coords: GLbyte); stdcall = nil;
-  glNormalStream3sv: procedure(stream: GLenum; coords: GLshort); stdcall = nil;
-  glNormalStream3iv: procedure(stream: GLenum; coords: GLint); stdcall = nil;
-  glNormalStream3fv: procedure(stream: GLenum; coords: GLfloat); stdcall = nil;
-  glNormalStream3dv: procedure(stream: GLenum; coords: GLdouble); stdcall = nil;
-  glClientActiveVertexStream: procedure(stream: GLenum); stdcall = nil;
-  glVertexBlendEnvi: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glVertexBlendEnvf: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-
-function Load_GL_ATI_vertex_streams: Boolean;
-
-//***** WGL_I3D_image_buffer *****//
-const
-  WGL_IMAGE_BUFFER_MIN_ACCESS_I3D = $0001;
-  WGL_IMAGE_BUFFER_LOCK_I3D = $0002;
-var
-  wglCreateImageBufferI3D: function(hDC: HDC; dwSize: DWORD; uFlags: UINT): PGLvoid; stdcall = nil;
-  wglDestroyImageBufferI3D: function(hDC: HDC; pAddress: PGLvoid): BOOL; stdcall = nil;
-  wglAssociateImageBufferEventsI3D: function(hdc: HDC; pEvent: PHandle; pAddress: PGLvoid; pSize: PDWORD; count: UINT): BOOL; stdcall = nil;
-  wglReleaseImageBufferEventsI3D: function(hdc: HDC; pAddress: PGLvoid; count: UINT): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_image_buffer: Boolean;
-
-//***** WGL_I3D_swap_frame_lock *****//
-var
-  wglEnableFrameLockI3D: function(): BOOL; stdcall = nil;
-  wglDisableFrameLockI3D: function(): BOOL; stdcall = nil;
-  wglIsEnabledFrameLockI3D: function(pFlag: PBOOL): BOOL; stdcall = nil;
-  wglQueryFrameLockMasterI3D: function(pFlag: PBOOL): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_swap_frame_lock: Boolean;
-
-//***** WGL_I3D_swap_frame_usage *****//
-var
-  wglGetFrameUsageI3D: function(pUsage: PGLfloat): BOOL; stdcall = nil;
-  wglBeginFrameTrackingI3D: function(): BOOL; stdcall = nil;
-  wglEndFrameTrackingI3D: function(): BOOL; stdcall = nil;
-  wglQueryFrameTrackingI3D: function(pFrameCount: PDWORD; pMissedFrames: PDWORD; pLastMissedUsage: PGLfloat): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_swap_frame_usage: Boolean;
-
-//***** GL_3DFX_texture_compression_FXT1 *****//
-const
-  GL_COMPRESSED_RGB_FXT1_3DFX = $86B0;
-  GL_COMPRESSED_RGBA_FXT1_3DFX = $86B1;
-
-function Load_GL_3DFX_texture_compression_FXT1: Boolean;
-
-//***** GL_IBM_cull_vertex *****//
-const
-  GL_CULL_VERTEX_IBM = $1928A;
-
-function Load_GL_IBM_cull_vertex: Boolean;
-
-//***** GL_IBM_multimode_draw_arrays *****//
-var
-  glMultiModeDrawArraysIBM: procedure(mode: PGLenum; first: PGLint; count: PGLsizei; primcount: GLsizei; modestride: GLint); stdcall = nil;
-  glMultiModeDrawElementsIBM: procedure(mode: PGLenum; count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei; modestride: GLint); stdcall = nil;
-
-function Load_GL_IBM_multimode_draw_arrays: Boolean;
-
-//***** GL_IBM_raster_pos_clip *****//
-const
-  GL_RASTER_POSITION_UNCLIPPED_IBM = $19262;
-
-function Load_GL_IBM_raster_pos_clip: Boolean;
-
-//***** GL_IBM_texture_mirrored_repeat *****//
-const
-  GL_MIRRORED_REPEAT_IBM = $8370;
-
-function Load_GL_IBM_texture_mirrored_repeat: Boolean;
-
-//***** GL_IBM_vertex_array_lists *****//
-const
-  GL_VERTEX_ARRAY_LIST_IBM = $1929E;
-  GL_NORMAL_ARRAY_LIST_IBM = $1929F;
-  GL_COLOR_ARRAY_LIST_IBM = $192A0;
-  GL_INDEX_ARRAY_LIST_IBM = $192A1;
-  GL_TEXTURE_COORD_ARRAY_LIST_IBM = $192A2;
-  GL_EDGE_FLAG_ARRAY_LIST_IBM = $192A3;
-  GL_FOG_COORDINATE_ARRAY_LIST_IBM = $192A4;
-  GL_SECONDARY_COLOR_ARRAY_LIST_IBM = $192A5;
-  GL_VERTEX_ARRAY_LIST_STRIDE_IBM = $192A8;
-  GL_NORMAL_ARRAY_LIST_STRIDE_IBM = $192A9;
-  GL_COLOR_ARRAY_LIST_STRIDE_IBM = $192AA;
-  GL_INDEX_ARRAY_LIST_STRIDE_IBM = $192AB;
-  GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = $192AC;
-  GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = $192AD;
-  GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = $192AE;
-  GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = $192AF;
-var
-  glColorPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-  glSecondaryColorPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-  glEdgeFlagPointerListIBM: procedure(stride: GLint; const pointer: PGLboolean; ptrstride: GLint); stdcall = nil;
-  glFogCoordPointerListIBM: procedure(_type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-  glNormalPointerListIBM: procedure(_type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-  glTexCoordPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-  glVertexPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); stdcall = nil;
-
-function Load_GL_IBM_vertex_array_lists: Boolean;
-
-//***** GL_MESA_resize_buffers *****//
-var
-  glResizeBuffersMESA: procedure(); stdcall = nil;
-
-function Load_GL_MESA_resize_buffers: Boolean;
-
-//***** GL_MESA_window_pos *****//
-var
-  glWindowPos2dMESA: procedure(x: GLdouble; y: GLdouble); stdcall = nil;
-  glWindowPos2fMESA: procedure(x: GLfloat; y: GLfloat); stdcall = nil;
-  glWindowPos2iMESA: procedure(x: GLint; y: GLint); stdcall = nil;
-  glWindowPos2sMESA: procedure(x: GLshort; y: GLshort); stdcall = nil;
-  glWindowPos2ivMESA: procedure(const p: PGLint); stdcall = nil;
-  glWindowPos2svMESA: procedure(const p: PGLshort); stdcall = nil;
-  glWindowPos2fvMESA: procedure(const p: PGLfloat); stdcall = nil;
-  glWindowPos2dvMESA: procedure(const p: PGLdouble); stdcall = nil;
-  glWindowPos3iMESA: procedure(x: GLint; y: GLint; z: GLint); stdcall = nil;
-  glWindowPos3sMESA: procedure(x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glWindowPos3fMESA: procedure(x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glWindowPos3dMESA: procedure(x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glWindowPos3ivMESA: procedure(const p: PGLint); stdcall = nil;
-  glWindowPos3svMESA: procedure(const p: PGLshort); stdcall = nil;
-  glWindowPos3fvMESA: procedure(const p: PGLfloat); stdcall = nil;
-  glWindowPos3dvMESA: procedure(const p: PGLdouble); stdcall = nil;
-  glWindowPos4iMESA: procedure(x: GLint; y: GLint; z: GLint; w: GLint); stdcall = nil;
-  glWindowPos4sMESA: procedure(x: GLshort; y: GLshort; z: GLshort; w: GLshort); stdcall = nil;
-  glWindowPos4fMESA: procedure(x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glWindowPos4dMESA: procedure(x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glWindowPos4ivMESA: procedure(const p: PGLint); stdcall = nil;
-  glWindowPos4svMESA: procedure(const p: PGLshort); stdcall = nil;
-  glWindowPos4fvMESA: procedure(const p: PGLfloat); stdcall = nil;
-  glWindowPos4dvMESA: procedure(const p: PGLdouble); stdcall = nil;
-
-function Load_GL_MESA_window_pos: Boolean;
-
-//***** GL_OML_interlace *****//
-const
-  GL_INTERLACE_OML = $8980;
-  GL_INTERLACE_READ_OML = $8981;
-
-function Load_GL_OML_interlace: Boolean;
-
-//***** GL_OML_resample *****//
-const
-  GL_PACK_RESAMPLE_OML = $8984;
-  GL_UNPACK_RESAMPLE_OML = $8985;
-  GL_RESAMPLE_REPLICATE_OML = $8986;
-  GL_RESAMPLE_ZERO_FILL_OML = $8987;
-  GL_RESAMPLE_AVERAGE_OML = $8988;
-  GL_RESAMPLE_DECIMATE_OML = $8989;
-  // GL_RESAMPLE_AVERAGE_OML  { already defined }
-
-function Load_GL_OML_resample: Boolean;
-
-//***** GL_OML_subsample *****//
-const
-  GL_FORMAT_SUBSAMPLE_24_24_OML = $8982;
-  GL_FORMAT_SUBSAMPLE_244_244_OML = $8983;
-
-function Load_GL_OML_subsample: Boolean;
-
-//***** GL_SGIS_generate_mipmap *****//
-const
-  GL_GENERATE_MIPMAP_SGIS = $8191;
-  GL_GENERATE_MIPMAP_HINT_SGIS = $8192;
-
-function Load_GL_SGIS_generate_mipmap: Boolean;
-
-//***** GL_SGIS_multisample *****//
-const
-  GLX_SAMPLE_BUFFERS_SGIS = $186A0;
-  GLX_SAMPLES_SGIS = $186A1;
-  GL_MULTISAMPLE_SGIS = $809D;
-  GL_SAMPLE_ALPHA_TO_MASK_SGIS = $809E;
-  GL_SAMPLE_ALPHA_TO_ONE_SGIS = $809F;
-  GL_SAMPLE_MASK_SGIS = $80A0;
-  GL_MULTISAMPLE_BIT_EXT = $20000000;
-  GL_1PASS_SGIS = $80A1;
-  GL_2PASS_0_SGIS = $80A2;
-  GL_2PASS_1_SGIS = $80A3;
-  GL_4PASS_0_SGIS = $80A4;
-  GL_4PASS_1_SGIS = $80A5;
-  GL_4PASS_2_SGIS = $80A6;
-  GL_4PASS_3_SGIS = $80A7;
-  GL_SAMPLE_BUFFERS_SGIS = $80A8;
-  GL_SAMPLES_SGIS = $80A9;
-  GL_SAMPLE_MASK_VALUE_SGIS = $80AA;
-  GL_SAMPLE_MASK_INVERT_SGIS = $80AB;
-  GL_SAMPLE_PATTERN_SGIS = $80AC;
-var
-  glSampleMaskSGIS: procedure(value: GLclampf; invert: GLboolean); stdcall = nil;
-  glSamplePatternSGIS: procedure(pattern: GLenum); stdcall = nil;
-
-function Load_GL_SGIS_multisample: Boolean;
-
-//***** GL_SGIS_pixel_texture *****//
-const
-  GL_PIXEL_TEXTURE_SGIS = $8353;
-  GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS = $8354;
-  GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS = $8355;
-  GL_PIXEL_GROUP_COLOR_SGIS = $8356;
-var
-  glPixelTexGenParameteriSGIS: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glPixelTexGenParameterfSGIS: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-  glGetPixelTexGenParameterivSGIS: procedure(pname: GLenum; params: GLint); stdcall = nil;
-  glGetPixelTexGenParameterfvSGIS: procedure(pname: GLenum; params: GLfloat); stdcall = nil;
-
-function Load_GL_SGIS_pixel_texture: Boolean;
-
-//***** GL_SGIS_texture_border_clamp *****//
-  // GL_CLAMP_TO_BORDER_SGIS  { already defined }
-
-function Load_GL_SGIS_texture_border_clamp: Boolean;
-
-//***** GL_SGIS_texture_color_mask *****//
-const
-  GL_TEXTURE_COLOR_WRITEMASK_SGIS = $81EF;
-var
-  glTextureColorMaskSGIS: procedure(r: GLboolean; g: GLboolean; b: GLboolean; a: GLboolean); stdcall = nil;
-
-function Load_GL_SGIS_texture_color_mask: Boolean;
-
-//***** GL_SGIS_texture_edge_clamp *****//
-const
-  GL_CLAMP_TO_EDGE_SGIS = $812F;
-
-function Load_GL_SGIS_texture_edge_clamp: Boolean;
-
-//***** GL_SGIS_texture_lod *****//
-const
-  GL_TEXTURE_MIN_LOD_SGIS = $813A;
-  GL_TEXTURE_MAX_LOD_SGIS = $813B;
-  GL_TEXTURE_BASE_LEVEL_SGIS = $813C;
-  GL_TEXTURE_MAX_LEVEL_SGIS = $813D;
-
-function Load_GL_SGIS_texture_lod: Boolean;
-
-//***** GL_SGIS_depth_texture *****//
-const
-  GL_DEPTH_COMPONENT16_SGIX = $81A5;
-  GL_DEPTH_COMPONENT24_SGIX = $81A6;
-  GL_DEPTH_COMPONENT32_SGIX = $81A7;
-
-function Load_GL_SGIS_depth_texture: Boolean;
-
-//***** GL_SGIX_fog_offset *****//
-const
-  GL_FOG_OFFSET_SGIX = $8198;
-  GL_FOG_OFFSET_VALUE_SGIX = $8199;
-
-function Load_GL_SGIX_fog_offset: Boolean;
-
-//***** GL_SGIX_interlace *****//
-const
-  GL_INTERLACE_SGIX = $8094;
-
-function Load_GL_SGIX_interlace: Boolean;
-
-//***** GL_SGIX_shadow_ambient *****//
-const
-  GL_SHADOW_AMBIENT_SGIX = $80BF;
-
-function Load_GL_SGIX_shadow_ambient: Boolean;
-
-//***** GL_SGI_color_matrix *****//
-const
-  GL_COLOR_MATRIX_SGI = $80B1;
-  GL_COLOR_MATRIX_STACK_DEPTH_SGI = $80B2;
-  GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI = $80B3;
-  GL_POST_COLOR_MATRIX_RED_SCALE_SGI = $80B4;
-  GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI = $80B5;
-  GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI = $80B6;
-  GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI = $80B7;
-  GL_POST_COLOR_MATRIX_RED_BIAS_SGI = $80B8;
-  GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI = $80B9;
-  GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI = $80BA;
-  GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI = $80BB;
-
-function Load_GL_SGI_color_matrix: Boolean;
-
-//***** GL_SGI_color_table *****//
-const
-  GL_COLOR_TABLE_SGI = $80D0;
-  GL_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D1;
-  GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D2;
-  GL_PROXY_COLOR_TABLE_SGI = $80D3;
-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D4;
-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D5;
-  GL_COLOR_TABLE_SCALE_SGI = $80D6;
-  GL_COLOR_TABLE_BIAS_SGI = $80D7;
-  GL_COLOR_TABLE_FORMAT_SGI = $80D8;
-  GL_COLOR_TABLE_WIDTH_SGI = $80D9;
-  GL_COLOR_TABLE_RED_SIZE_SGI = $80DA;
-  GL_COLOR_TABLE_GREEN_SIZE_SGI = $80DB;
-  GL_COLOR_TABLE_BLUE_SIZE_SGI = $80DC;
-  GL_COLOR_TABLE_ALPHA_SIZE_SGI = $80DD;
-  GL_COLOR_TABLE_LUMINANCE_SIZE_SGI = $80DE;
-  GL_COLOR_TABLE_INTENSITY_SIZE_SGI = $80DF;
-var
-  glColorTableSGI: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const table: PGLvoid); stdcall = nil;
-  glCopyColorTableSGI: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); stdcall = nil;
-  glColorTableParameterivSGI: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall = nil;
-  glColorTableParameterfvSGI: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glGetColorTableSGI: procedure(target: GLenum; format: GLenum; _type: GLenum; table: PGLvoid); stdcall = nil;
-  glGetColorTableParameterivSGI: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetColorTableParameterfvSGI: procedure(target: GLenum; pname: GLenum; params: PGLfloat); stdcall = nil;
-
-function Load_GL_SGI_color_table: Boolean;
-
-//***** GL_SGI_texture_color_table *****//
-const
-  GL_TEXTURE_COLOR_TABLE_SGI = $80BC;
-  GL_PROXY_TEXTURE_COLOR_TABLE_SGI = $80BD;
-
-function Load_GL_SGI_texture_color_table: Boolean;
-
-//***** GL_SUN_vertex *****//
-var
-  glColor4ubVertex2fSUN: procedure(r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat); stdcall = nil;
-  glColor4ubVertex2fvSUN: procedure(const c: PGLubyte; const v: PGLfloat); stdcall = nil;
-  glColor4ubVertex3fSUN: procedure(r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glColor4ubVertex3fvSUN: procedure(const c: PGLubyte; const v: PGLfloat); stdcall = nil;
-  glColor3fVertex3fSUN: procedure(r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glColor3fVertex3fvSUN: procedure(const c: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glNormal3fVertex3fSUN: procedure(nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glNormal3fVertex3fvSUN: procedure(const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glColor4fNormal3fVertex3fSUN: procedure(r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glColor4fNormal3fVertex3fvSUN: procedure(const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord2fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glTexCoord2fVertex3fvSUN: procedure(const tc: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord4fVertex4fSUN: procedure(s: GLfloat; t: GLfloat; p: GLfloat; q: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glTexCoord4fVertex4fvSUN: procedure(const tc: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord2fColor4ubVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glTexCoord2fColor4ubVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLubyte; const v: PGLfloat); stdcall = nil;
-  glTexCoord2fColor3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glTexCoord2fColor3fVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord2fNormal3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glTexCoord2fNormal3fVertex3fvSUN: procedure(const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord2fColor4fNormal3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glTexCoord2fColor4fNormal3fVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glTexCoord4fColor4fNormal3fVertex4fSUN: procedure(s: GLfloat; t: GLfloat; p: GLfloat; q: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glTexCoord4fColor4fNormal3fVertex4fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiVertex3fSUN: procedure(rc: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiVertex3fvSUN: procedure(const rc: PGLuint; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiColor4ubVertex3fSUN: procedure(rc: GLuint; r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiColor4ubVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLubyte; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiColor3fVertex3fSUN: procedure(rc: GLuint; r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiColor3fVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiNormal3fVertex3fSUN: procedure(rc: GLuint; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiColor4fNormal3fVertex3fSUN: procedure(rc: GLuint; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiColor4fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); stdcall = nil;
-
-function Load_GL_SUN_vertex: Boolean;
-
-//***** GL_ARB_fragment_program *****//
-const
-  GL_FRAGMENT_PROGRAM_ARB = $8804;
-  // GL_PROGRAM_FORMAT_ASCII_ARB  { already defined }
-  // GL_PROGRAM_LENGTH_ARB  { already defined }
-  // GL_PROGRAM_FORMAT_ARB  { already defined }
-  // GL_PROGRAM_BINDING_ARB  { already defined }
-  // GL_PROGRAM_INSTRUCTIONS_ARB  { already defined }
-  // GL_MAX_PROGRAM_INSTRUCTIONS_ARB  { already defined }
-  // GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB  { already defined }
-  // GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB  { already defined }
-  // GL_PROGRAM_TEMPORARIES_ARB  { already defined }
-  // GL_MAX_PROGRAM_TEMPORARIES_ARB  { already defined }
-  // GL_PROGRAM_NATIVE_TEMPORARIES_ARB  { already defined }
-  // GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB  { already defined }
-  // GL_PROGRAM_PARAMETERS_ARB  { already defined }
-  // GL_MAX_PROGRAM_PARAMETERS_ARB  { already defined }
-  // GL_PROGRAM_NATIVE_PARAMETERS_ARB  { already defined }
-  // GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB  { already defined }
-  // GL_PROGRAM_ATTRIBS_ARB  { already defined }
-  // GL_MAX_PROGRAM_ATTRIBS_ARB  { already defined }
-  // GL_PROGRAM_NATIVE_ATTRIBS_ARB  { already defined }
-  // GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB  { already defined }
-  // GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB  { already defined }
-  // GL_MAX_PROGRAM_ENV_PARAMETERS_ARB  { already defined }
-  // GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB  { already defined }
-  GL_PROGRAM_ALU_INSTRUCTIONS_ARB = $8805;
-  GL_PROGRAM_TEX_INSTRUCTIONS_ARB = $8806;
-  GL_PROGRAM_TEX_INDIRECTIONS_ARB = $8807;
-  GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $8808;
-  GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $8809;
-  GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $880A;
-  GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB = $880B;
-  GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB = $880C;
-  GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB = $880D;
-  GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $880E;
-  GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $880F;
-  GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $8810;
-  // GL_PROGRAM_STRING_ARB  { already defined }
-  // GL_PROGRAM_ERROR_POSITION_ARB  { already defined }
-  // GL_CURRENT_MATRIX_ARB  { already defined }
-  // GL_TRANSPOSE_CURRENT_MATRIX_ARB  { already defined }
-  // GL_CURRENT_MATRIX_STACK_DEPTH_ARB  { already defined }
-  // GL_MAX_PROGRAM_MATRICES_ARB  { already defined }
-  // GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB  { already defined }
-  GL_MAX_TEXTURE_COORDS_ARB = $8871;
-  GL_MAX_TEXTURE_IMAGE_UNITS_ARB = $8872;
-  // GL_PROGRAM_ERROR_STRING_ARB  { already defined }
-  // GL_MATRIX0_ARB  { already defined }
-  // GL_MATRIX1_ARB  { already defined }
-  // GL_MATRIX2_ARB  { already defined }
-  // GL_MATRIX3_ARB  { already defined }
-  // GL_MATRIX4_ARB  { already defined }
-  // GL_MATRIX5_ARB  { already defined }
-  // GL_MATRIX6_ARB  { already defined }
-  // GL_MATRIX7_ARB  { already defined }
-  // GL_MATRIX8_ARB  { already defined }
-  // GL_MATRIX9_ARB  { already defined }
-  // GL_MATRIX10_ARB  { already defined }
-  // GL_MATRIX11_ARB  { already defined }
-  // GL_MATRIX12_ARB  { already defined }
-  // GL_MATRIX13_ARB  { already defined }
-  // GL_MATRIX14_ARB  { already defined }
-  // GL_MATRIX15_ARB  { already defined }
-  // GL_MATRIX16_ARB  { already defined }
-  // GL_MATRIX17_ARB  { already defined }
-  // GL_MATRIX18_ARB  { already defined }
-  // GL_MATRIX19_ARB  { already defined }
-  // GL_MATRIX20_ARB  { already defined }
-  // GL_MATRIX21_ARB  { already defined }
-  // GL_MATRIX22_ARB  { already defined }
-  // GL_MATRIX23_ARB  { already defined }
-  // GL_MATRIX24_ARB  { already defined }
-  // GL_MATRIX25_ARB  { already defined }
-  // GL_MATRIX26_ARB  { already defined }
-  // GL_MATRIX27_ARB  { already defined }
-  // GL_MATRIX28_ARB  { already defined }
-  // GL_MATRIX29_ARB  { already defined }
-  // GL_MATRIX30_ARB  { already defined }
-  // GL_MATRIX31_ARB  { already defined }
-  // glProgramStringARB  { already defined }
-  // glBindProgramARB  { already defined }
-  // glDeleteProgramsARB  { already defined }
-  // glGenProgramsARB  { already defined }
-  // glProgramEnvParameter4dARB  { already defined }
-  // glProgramEnvParameter4dvARB  { already defined }
-  // glProgramEnvParameter4fARB  { already defined }
-  // glProgramEnvParameter4fvARB  { already defined }
-  // glProgramLocalParameter4dARB  { already defined }
-  // glProgramLocalParameter4dvARB  { already defined }
-  // glProgramLocalParameter4fARB  { already defined }
-  // glProgramLocalParameter4fvARB  { already defined }
-  // glGetProgramEnvParameterdvARB  { already defined }
-  // glGetProgramEnvParameterfvARB  { already defined }
-  // glGetProgramLocalParameterdvARB  { already defined }
-  // glGetProgramLocalParameterfvARB  { already defined }
-  // glGetProgramivARB  { already defined }
-  // glGetProgramStringARB  { already defined }
-  // glIsProgramARB  { already defined }
-
-function Load_GL_ARB_fragment_program: Boolean;
-
-//***** GL_ATI_text_fragment_shader *****//
-const
-  GL_TEXT_FRAGMENT_SHADER_ATI = $8200;
-
-function Load_GL_ATI_text_fragment_shader: Boolean;
-
-//***** GL_APPLE_client_storage *****//
-const
-  GL_UNPACK_CLIENT_STORAGE_APPLE = $85B2;
-
-function Load_GL_APPLE_client_storage: Boolean;
-
-//***** GL_APPLE_element_array *****//
-const
-  GL_ELEMENT_ARRAY_APPLE = $8768;
-  GL_ELEMENT_ARRAY_TYPE_APPLE = $8769;
-  GL_ELEMENT_ARRAY_POINTER_APPLE = $876A;
-var
-  glElementPointerAPPLE: procedure(_type: GLenum; const pointer: PGLvoid); stdcall = nil;
-  glDrawElementArrayAPPLE: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall = nil;
-  glDrawRangeElementArrayAPPLE: procedure(mode: GLenum; start: GLuint; _end: GLuint; first: GLint; count: GLsizei); stdcall = nil;
-  glMultiDrawElementArrayAPPLE: procedure(mode: GLenum; const first: PGLint; const count: PGLsizei; primcount: GLsizei); stdcall = nil;
-  glMultiDrawRangeElementArrayAPPLE: procedure(mode: GLenum; start: GLuint; _end: GLuint; const first: PGLint; const count: PGLsizei; primcount: GLsizei); stdcall = nil;
-
-function Load_GL_APPLE_element_array: Boolean;
-
-//***** GL_APPLE_fence *****//
-const
-  GL_DRAW_PIXELS_APPLE = $8A0A;
-  GL_FENCE_APPLE = $8A0B;
-var
-  glGenFencesAPPLE: procedure(n: GLsizei; fences: PGLuint); stdcall = nil;
-  glDeleteFencesAPPLE: procedure(n: GLsizei; const fences: PGLuint); stdcall = nil;
-  glSetFenceAPPLE: procedure(fence: GLuint); stdcall = nil;
-  glIsFenceAPPLE: function(fence: GLuint): GLboolean; stdcall = nil;
-  glTestFenceAPPLE: function(fence: GLuint): GLboolean; stdcall = nil;
-  glFinishFenceAPPLE: procedure(fence: GLuint); stdcall = nil;
-  glTestObjectAPPLE: function(_object: GLenum; name: GLuint): GLboolean; stdcall = nil;
-  glFinishObjectAPPLE: procedure(_object: GLenum; name: GLint); stdcall = nil;
-
-function Load_GL_APPLE_fence: Boolean;
-
-//***** GL_APPLE_vertex_array_object *****//
-const
-  GL_VERTEX_ARRAY_BINDING_APPLE = $85B5;
-var
-  glBindVertexArrayAPPLE: procedure(_array: GLuint); stdcall = nil;
-  glDeleteVertexArraysAPPLE: procedure(n: GLsizei; const arrays: PGLuint); stdcall = nil;
-  glGenVertexArraysAPPLE: procedure(n: GLsizei; const arrays: PGLuint); stdcall = nil;
-  glIsVertexArrayAPPLE: function(_array: GLuint): GLboolean; stdcall = nil;
-
-function Load_GL_APPLE_vertex_array_object: Boolean;
-
-//***** GL_APPLE_vertex_array_range *****//
-const
-  GL_VERTEX_ARRAY_RANGE_APPLE = $851D;
-  GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE = $851E;
-  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_APPLE = $8520;
-  GL_VERTEX_ARRAY_RANGE_POINTER_APPLE = $8521;
-  GL_VERTEX_ARRAY_STORAGE_HINT_APPLE = $851F;
-  GL_STORAGE_CACHED_APPLE = $85BE;
-  GL_STORAGE_SHARED_APPLE = $85BF;
-var
-  glVertexArrayRangeAPPLE: procedure(length: GLsizei; pointer: PGLvoid); stdcall = nil;
-  glFlushVertexArrayRangeAPPLE: procedure(length: GLsizei; pointer: PGLvoid); stdcall = nil;
-  glVertexArrayParameteriAPPLE: procedure(pname: GLenum; param: GLint); stdcall = nil;
-
-function Load_GL_APPLE_vertex_array_range: Boolean;
-
-//***** WGL_ARB_pixel_format *****//
-const
-  WGL_NUMBER_PIXEL_FORMATS_ARB = $2000;
-  WGL_DRAW_TO_WINDOW_ARB = $2001;
-  WGL_DRAW_TO_BITMAP_ARB = $2002;
-  WGL_ACCELERATION_ARB = $2003;
-  WGL_NEED_PALETTE_ARB = $2004;
-  WGL_NEED_SYSTEM_PALETTE_ARB = $2005;
-  WGL_SWAP_LAYER_BUFFERS_ARB = $2006;
-  WGL_SWAP_METHOD_ARB = $2007;
-  WGL_NUMBER_OVERLAYS_ARB = $2008;
-  WGL_NUMBER_UNDERLAYS_ARB = $2009;
-  WGL_TRANSPARENT_ARB = $200A;
-  WGL_TRANSPARENT_RED_VALUE_ARB = $2037;
-  WGL_TRANSPARENT_GREEN_VALUE_ARB = $2038;
-  WGL_TRANSPARENT_BLUE_VALUE_ARB = $2039;
-  WGL_TRANSPARENT_ALPHA_VALUE_ARB = $203A;
-  WGL_TRANSPARENT_INDEX_VALUE_ARB = $203B;
-  WGL_SHARE_DEPTH_ARB = $200C;
-  WGL_SHARE_STENCIL_ARB = $200D;
-  WGL_SHARE_ACCUM_ARB = $200E;
-  WGL_SUPPORT_GDI_ARB = $200F;
-  WGL_SUPPORT_OPENGL_ARB = $2010;
-  WGL_DOUBLE_BUFFER_ARB = $2011;
-  WGL_STEREO_ARB = $2012;
-  WGL_PIXEL_TYPE_ARB = $2013;
-  WGL_COLOR_BITS_ARB = $2014;
-  WGL_RED_BITS_ARB = $2015;
-  WGL_RED_SHIFT_ARB = $2016;
-  WGL_GREEN_BITS_ARB = $2017;
-  WGL_GREEN_SHIFT_ARB = $2018;
-  WGL_BLUE_BITS_ARB = $2019;
-  WGL_BLUE_SHIFT_ARB = $201A;
-  WGL_ALPHA_BITS_ARB = $201B;
-  WGL_ALPHA_SHIFT_ARB = $201C;
-  WGL_ACCUM_BITS_ARB = $201D;
-  WGL_ACCUM_RED_BITS_ARB = $201E;
-  WGL_ACCUM_GREEN_BITS_ARB = $201F;
-  WGL_ACCUM_BLUE_BITS_ARB = $2020;
-  WGL_ACCUM_ALPHA_BITS_ARB = $2021;
-  WGL_DEPTH_BITS_ARB = $2022;
-  WGL_STENCIL_BITS_ARB = $2023;
-  WGL_AUX_BUFFERS_ARB = $2024;
-  WGL_NO_ACCELERATION_ARB = $2025;
-  WGL_GENERIC_ACCELERATION_ARB = $2026;
-  WGL_FULL_ACCELERATION_ARB = $2027;
-  WGL_SWAP_EXCHANGE_ARB = $2028;
-  WGL_SWAP_COPY_ARB = $2029;
-  WGL_SWAP_UNDEFINED_ARB = $202A;
-  WGL_TYPE_RGBA_ARB = $202B;
-  WGL_TYPE_COLORINDEX_ARB = $202C;
-var
-  wglGetPixelFormatAttribivARB: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; const piAttributes: PGLint; piValues: PGLint): BOOL; stdcall = nil;
-  wglGetPixelFormatAttribfvARB: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; const piAttributes: PGLint; pfValues: PGLfloat): BOOL; stdcall = nil;
-  wglChoosePixelFormatARB: function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; stdcall = nil;
-
-function Load_WGL_ARB_pixel_format: Boolean;
-
-//***** WGL_ARB_make_current_read *****//
-const
-  WGL_ERROR_INVALID_PIXEL_TYPE_ARB = $2043;
-  WGL_ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB = $2054;
-var
-  wglMakeContextCurrentARB: function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): BOOL; stdcall = nil;
-  wglGetCurrentReadDCARB: function(): HDC; stdcall = nil;
-
-function Load_WGL_ARB_make_current_read: Boolean;
-
-//***** WGL_ARB_pbuffer *****//
-const
-  WGL_DRAW_TO_PBUFFER_ARB = $202D;
-  // WGL_DRAW_TO_PBUFFER_ARB  { already defined }
-  WGL_MAX_PBUFFER_PIXELS_ARB = $202E;
-  WGL_MAX_PBUFFER_WIDTH_ARB = $202F;
-  WGL_MAX_PBUFFER_HEIGHT_ARB = $2030;
-  WGL_PBUFFER_LARGEST_ARB = $2033;
-  WGL_PBUFFER_WIDTH_ARB = $2034;
-  WGL_PBUFFER_HEIGHT_ARB = $2035;
-  WGL_PBUFFER_LOST_ARB = $2036;
-var
-  wglCreatePbufferARB: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; stdcall = nil;
-  wglGetPbufferDCARB: function(hPbuffer: THandle): HDC; stdcall = nil;
-  wglReleasePbufferDCARB: function(hPbuffer: THandle; hDC: HDC): GLint; stdcall = nil;
-  wglDestroyPbufferARB: function(hPbuffer: THandle): BOOL; stdcall = nil;
-  wglQueryPbufferARB: function(hPbuffer: THandle; iAttribute: GLint; piValue: PGLint): BOOL; stdcall = nil;
-
-function Load_WGL_ARB_pbuffer: Boolean;
-
-//***** WGL_EXT_swap_control *****//
-var
-  wglSwapIntervalEXT: function(interval: GLint): BOOL; stdcall = nil;
-  wglGetSwapIntervalEXT: function(): GLint; stdcall = nil;
-
-function Load_WGL_EXT_swap_control: Boolean;
-
-//***** WGL_ARB_render_texture *****//
-const
-  WGL_BIND_TO_TEXTURE_RGB_ARB = $2070;
-  WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;
-  WGL_TEXTURE_FORMAT_ARB = $2072;
-  WGL_TEXTURE_TARGET_ARB = $2073;
-  WGL_MIPMAP_TEXTURE_ARB = $2074;
-  WGL_TEXTURE_RGB_ARB = $2075;
-  WGL_TEXTURE_RGBA_ARB = $2076;
-  WGL_NO_TEXTURE_ARB = $2077;
-  WGL_TEXTURE_CUBE_MAP_ARB = $2078;
-  WGL_TEXTURE_1D_ARB = $2079;
-  WGL_TEXTURE_2D_ARB = $207A;
-  // WGL_NO_TEXTURE_ARB  { already defined }
-  WGL_MIPMAP_LEVEL_ARB = $207B;
-  WGL_CUBE_MAP_FACE_ARB = $207C;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $207D;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $207E;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $207F;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $2080;
-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $2081;
-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $2082;
-  WGL_FRONT_LEFT_ARB = $2083;
-  WGL_FRONT_RIGHT_ARB = $2084;
-  WGL_BACK_LEFT_ARB = $2085;
-  WGL_BACK_RIGHT_ARB = $2086;
-  WGL_AUX0_ARB = $2087;
-  WGL_AUX1_ARB = $2088;
-  WGL_AUX2_ARB = $2089;
-  WGL_AUX3_ARB = $208A;
-  WGL_AUX4_ARB = $208B;
-  WGL_AUX5_ARB = $208C;
-  WGL_AUX6_ARB = $208D;
-  WGL_AUX7_ARB = $208E;
-  WGL_AUX8_ARB = $208F;
-  WGL_AUX9_ARB = $2090;
-var
-  wglBindTexImageARB: function(hPbuffer: THandle; iBuffer: GLint): BOOL; stdcall = nil;
-  wglReleaseTexImageARB: function(hPbuffer: THandle; iBuffer: GLint): BOOL; stdcall = nil;
-  wglSetPbufferAttribARB: function(hPbuffer: THandle; const piAttribList: PGLint): BOOL; stdcall = nil;
-
-function Load_WGL_ARB_render_texture: Boolean;
-
-//***** WGL_EXT_extensions_string *****//
-var
-  wglGetExtensionsStringEXT: function(): Pchar; stdcall = nil;
-
-function Load_WGL_EXT_extensions_string: Boolean;
-
-//***** WGL_EXT_make_current_read *****//
-var
-  wglMakeContextCurrentEXT: function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): BOOL; stdcall = nil;
-  wglGetCurrentReadDCEXT: function(): HDC; stdcall = nil;
-
-function Load_WGL_EXT_make_current_read: Boolean;
-
-//***** WGL_EXT_pbuffer *****//
-const
-  WGL_DRAW_TO_PBUFFER_EXT = $202D;
-  WGL_MAX_PBUFFER_PIXELS_EXT = $202E;
-  WGL_MAX_PBUFFER_WIDTH_EXT = $202F;
-  WGL_MAX_PBUFFER_HEIGHT_EXT = $2030;
-  WGL_OPTIMAL_PBUFFER_WIDTH_EXT = $2031;
-  WGL_OPTIMAL_PBUFFER_HEIGHT_EXT = $2032;
-  WGL_PBUFFER_LARGEST_EXT = $2033;
-  WGL_PBUFFER_WIDTH_EXT = $2034;
-  WGL_PBUFFER_HEIGHT_EXT = $2035;
-var
-  wglCreatePbufferEXT: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; stdcall = nil;
-  wglGetPbufferDCEXT: function(hPbuffer: THandle): HDC; stdcall = nil;
-  wglReleasePbufferDCEXT: function(hPbuffer: THandle; hDC: HDC): GLint; stdcall = nil;
-  wglDestroyPbufferEXT: function(hPbuffer: THandle): BOOL; stdcall = nil;
-  wglQueryPbufferEXT: function(hPbuffer: THandle; iAttribute: GLint; piValue: PGLint): BOOL; stdcall = nil;
-
-function Load_WGL_EXT_pbuffer: Boolean;
-
-//***** WGL_EXT_pixel_format *****//
-const
-  WGL_NUMBER_PIXEL_FORMATS_EXT = $2000;
-  WGL_DRAW_TO_WINDOW_EXT = $2001;
-  WGL_DRAW_TO_BITMAP_EXT = $2002;
-  WGL_ACCELERATION_EXT = $2003;
-  WGL_NEED_PALETTE_EXT = $2004;
-  WGL_NEED_SYSTEM_PALETTE_EXT = $2005;
-  WGL_SWAP_LAYER_BUFFERS_EXT = $2006;
-  WGL_SWAP_METHOD_EXT = $2007;
-  WGL_NUMBER_OVERLAYS_EXT = $2008;
-  WGL_NUMBER_UNDERLAYS_EXT = $2009;
-  WGL_TRANSPARENT_EXT = $200A;
-  WGL_TRANSPARENT_VALUE_EXT = $200B;
-  WGL_SHARE_DEPTH_EXT = $200C;
-  WGL_SHARE_STENCIL_EXT = $200D;
-  WGL_SHARE_ACCUM_EXT = $200E;
-  WGL_SUPPORT_GDI_EXT = $200F;
-  WGL_SUPPORT_OPENGL_EXT = $2010;
-  WGL_DOUBLE_BUFFER_EXT = $2011;
-  WGL_STEREO_EXT = $2012;
-  WGL_PIXEL_TYPE_EXT = $2013;
-  WGL_COLOR_BITS_EXT = $2014;
-  WGL_RED_BITS_EXT = $2015;
-  WGL_RED_SHIFT_EXT = $2016;
-  WGL_GREEN_BITS_EXT = $2017;
-  WGL_GREEN_SHIFT_EXT = $2018;
-  WGL_BLUE_BITS_EXT = $2019;
-  WGL_BLUE_SHIFT_EXT = $201A;
-  WGL_ALPHA_BITS_EXT = $201B;
-  WGL_ALPHA_SHIFT_EXT = $201C;
-  WGL_ACCUM_BITS_EXT = $201D;
-  WGL_ACCUM_RED_BITS_EXT = $201E;
-  WGL_ACCUM_GREEN_BITS_EXT = $201F;
-  WGL_ACCUM_BLUE_BITS_EXT = $2020;
-  WGL_ACCUM_ALPHA_BITS_EXT = $2021;
-  WGL_DEPTH_BITS_EXT = $2022;
-  WGL_STENCIL_BITS_EXT = $2023;
-  WGL_AUX_BUFFERS_EXT = $2024;
-  WGL_NO_ACCELERATION_EXT = $2025;
-  WGL_GENERIC_ACCELERATION_EXT = $2026;
-  WGL_FULL_ACCELERATION_EXT = $2027;
-  WGL_SWAP_EXCHANGE_EXT = $2028;
-  WGL_SWAP_COPY_EXT = $2029;
-  WGL_SWAP_UNDEFINED_EXT = $202A;
-  WGL_TYPE_RGBA_EXT = $202B;
-  WGL_TYPE_COLORINDEX_EXT = $202C;
-var
-  wglGetPixelFormatAttribivEXT: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; piAttributes: PGLint; piValues: PGLint): BOOL; stdcall = nil;
-  wglGetPixelFormatAttribfvEXT: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; piAttributes: PGLint; pfValues: PGLfloat): BOOL; stdcall = nil;
-  wglChoosePixelFormatEXT: function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; stdcall = nil;
-
-function Load_WGL_EXT_pixel_format: Boolean;
-
-//***** WGL_I3D_digital_video_control *****//
-const
-  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_FRAMEBUFFER_I3D = $2050;
-  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D = $2051;
-  WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D = $2052;
-  WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D = $2053;
-var
-  wglGetDigitalVideoParametersI3D: function(hDC: HDC; iAttribute: GLint; piValue: PGLint): BOOL; stdcall = nil;
-  wglSetDigitalVideoParametersI3D: function(hDC: HDC; iAttribute: GLint; const piValue: PGLint): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_digital_video_control: Boolean;
-
-//***** WGL_I3D_gamma *****//
-const
-  WGL_GAMMA_TABLE_SIZE_I3D = $204E;
-  WGL_GAMMA_EXCLUDE_DESKTOP_I3D = $204F;
-  // WGL_GAMMA_EXCLUDE_DESKTOP_I3D  { already defined }
-var
-  wglGetGammaTableParametersI3D: function(hDC: HDC; iAttribute: GLint; piValue: PGLint): BOOL; stdcall = nil;
-  wglSetGammaTableParametersI3D: function(hDC: HDC; iAttribute: GLint; const piValue: PGLint): BOOL; stdcall = nil;
-  wglGetGammaTableI3D: function(hDC: HDC; iEntries: GLint; puRed: PGLUSHORT; puGreen: PGLUSHORT; puBlue: PGLUSHORT): BOOL; stdcall = nil;
-  wglSetGammaTableI3D: function(hDC: HDC; iEntries: GLint; const puRed: PGLUSHORT; const puGreen: PGLUSHORT; const puBlue: PGLUSHORT): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_gamma: Boolean;
-
-//***** WGL_I3D_genlock *****//
-const
-  WGL_GENLOCK_SOURCE_MULTIVIEW_I3D = $2044;
-  WGL_GENLOCK_SOURCE_EXTERNAL_SYNC_I3D = $2045;
-  WGL_GENLOCK_SOURCE_EXTERNAL_FIELD_I3D = $2046;
-  WGL_GENLOCK_SOURCE_EXTERNAL_TTL_I3D = $2047;
-  WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D = $2048;
-  WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D = $2049;
-  WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D = $204A;
-  WGL_GENLOCK_SOURCE_EDGE_RISING_I3D = $204B;
-  WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D = $204C;
-var
-  wglEnableGenlockI3D: function(hDC: HDC): BOOL; stdcall = nil;
-  wglDisableGenlockI3D: function(hDC: HDC): BOOL; stdcall = nil;
-  wglIsEnabledGenlockI3D: function(hDC: HDC; pFlag: PBOOL): BOOL; stdcall = nil;
-  wglGenlockSourceI3D: function(hDC: HDC; uSource: GLUINT): BOOL; stdcall = nil;
-  wglGetGenlockSourceI3D: function(hDC: HDC; uSource: PGLUINT): BOOL; stdcall = nil;
-  wglGenlockSourceEdgeI3D: function(hDC: HDC; uEdge: GLUINT): BOOL; stdcall = nil;
-  wglGetGenlockSourceEdgeI3D: function(hDC: HDC; uEdge: PGLUINT): BOOL; stdcall = nil;
-  wglGenlockSampleRateI3D: function(hDC: HDC; uRate: GLUINT): BOOL; stdcall = nil;
-  wglGetGenlockSampleRateI3D: function(hDC: HDC; uRate: PGLUINT): BOOL; stdcall = nil;
-  wglGenlockSourceDelayI3D: function(hDC: HDC; uDelay: GLUINT): BOOL; stdcall = nil;
-  wglGetGenlockSourceDelayI3D: function(hDC: HDC; uDelay: PGLUINT): BOOL; stdcall = nil;
-  wglQueryGenlockMaxSourceDelayI3D: function(hDC: HDC; uMaxLineDelay: PGLUINT; uMaxPixelDelay: PGLUINT): BOOL; stdcall = nil;
-
-function Load_WGL_I3D_genlock: Boolean;
-
-//***** GL_ARB_matrix_palette *****//
-const
-  GL_MATRIX_PALETTE_ARB = $8840;
-  GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = $8841;
-  GL_MAX_PALETTE_MATRICES_ARB = $8842;
-  GL_CURRENT_PALETTE_MATRIX_ARB = $8843;
-  GL_MATRIX_INDEX_ARRAY_ARB = $8844;
-  GL_CURRENT_MATRIX_INDEX_ARB = $8845;
-  GL_MATRIX_INDEX_ARRAY_SIZE_ARB = $8846;
-  GL_MATRIX_INDEX_ARRAY_TYPE_ARB = $8847;
-  GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = $8848;
-  GL_MATRIX_INDEX_ARRAY_POINTER_ARB = $8849;
-var
-  glCurrentPaletteMatrixARB: procedure(index: GLint); stdcall = nil;
-  glMatrixIndexubvARB: procedure(size: GLint; indices: PGLubyte); stdcall = nil;
-  glMatrixIndexusvARB: procedure(size: GLint; indices: PGLushort); stdcall = nil;
-  glMatrixIndexuivARB: procedure(size: GLint; indices: PGLuint); stdcall = nil;
-  glMatrixIndexPointerARB: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_ARB_matrix_palette: Boolean;
-
-//***** GL_NV_element_array *****//
-const
-  GL_ELEMENT_ARRAY_TYPE_NV = $8769;
-  GL_ELEMENT_ARRAY_POINTER_NV = $876A;
-var
-  glElementPointerNV: procedure(_type: GLenum; const pointer: PGLvoid); stdcall = nil;
-  glDrawElementArrayNV: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall = nil;
-  glDrawRangeElementArrayNV: procedure(mode: GLenum; start: GLuint; _end: GLuint; first: GLint; count: GLsizei); stdcall = nil;
-  glMultiDrawElementArrayNV: procedure(mode: GLenum; const first: PGLint; const count: PGLsizei; primcount: GLsizei); stdcall = nil;
-  glMultiDrawRangeElementArrayNV: procedure(mode: GLenum; start: GLuint; _end: GLuint; const first: PGLint; const count: PGLsizei; primcount: GLsizei); stdcall = nil;
-
-function Load_GL_NV_element_array: Boolean;
-
-//***** GL_NV_float_buffer *****//
-const
-  GL_FLOAT_R_NV = $8880;
-  GL_FLOAT_RG_NV = $8881;
-  GL_FLOAT_RGB_NV = $8882;
-  GL_FLOAT_RGBA_NV = $8883;
-  GL_FLOAT_R16_NV = $8884;
-  GL_FLOAT_R32_NV = $8885;
-  GL_FLOAT_RG16_NV = $8886;
-  GL_FLOAT_RG32_NV = $8887;
-  GL_FLOAT_RGB16_NV = $8888;
-  GL_FLOAT_RGB32_NV = $8889;
-  GL_FLOAT_RGBA16_NV = $888A;
-  GL_FLOAT_RGBA32_NV = $888B;
-  GL_TEXTURE_FLOAT_COMPONENTS_NV = $888C;
-  GL_FLOAT_CLEAR_COLOR_VALUE_NV = $888D;
-  GL_FLOAT_RGBA_MODE_NV = $888E;
-  WGL_FLOAT_COMPONENTS_NV = $20B0;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV = $20B1;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV = $20B2;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV = $20B3;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV = $20B4;
-  WGL_TEXTURE_FLOAT_R_NV = $20B5;
-  WGL_TEXTURE_FLOAT_RG_NV = $20B6;
-  WGL_TEXTURE_FLOAT_RGB_NV = $20B7;
-  WGL_TEXTURE_FLOAT_RGBA_NV = $20B8;
-
-function Load_GL_NV_float_buffer: Boolean;
-
-//***** GL_NV_fragment_program *****//
-const
-  GL_FRAGMENT_PROGRAM_NV = $8870;
-  GL_MAX_TEXTURE_COORDS_NV = $8871;
-  GL_MAX_TEXTURE_IMAGE_UNITS_NV = $8872;
-  GL_FRAGMENT_PROGRAM_BINDING_NV = $8873;
-  GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV = $8868;
-  GL_PROGRAM_ERROR_STRING_NV = $8874;
-var
-  glProgramNamedParameter4fNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glProgramNamedParameter4dNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glGetProgramNamedParameterfvNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; params: PGLfloat); stdcall = nil;
-  glGetProgramNamedParameterdvNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; params: PGLdouble); stdcall = nil;
-  // glProgramLocalParameter4dARB  { already defined }
-  // glProgramLocalParameter4dvARB  { already defined }
-  // glProgramLocalParameter4fARB  { already defined }
-  // glProgramLocalParameter4fvARB  { already defined }
-  // glGetProgramLocalParameterdvARB  { already defined }
-  // glGetProgramLocalParameterfvARB  { already defined }
-
-function Load_GL_NV_fragment_program: Boolean;
-
-//***** GL_NV_primitive_restart *****//
-const
-  GL_PRIMITIVE_RESTART_NV = $8558;
-  GL_PRIMITIVE_RESTART_INDEX_NV = $8559;
-var
-  glPrimitiveRestartNV: procedure(); stdcall = nil;
-  glPrimitiveRestartIndexNV: procedure(index: GLuint); stdcall = nil;
-
-function Load_GL_NV_primitive_restart: Boolean;
-
-//***** GL_NV_vertex_program2 *****//
-
-function Load_GL_NV_vertex_program2: Boolean;
-
-//***** WGL_NV_render_texture_rectangle *****//
-const
-  WGL_BIND_TO_TEXTURE_RECTANGLE_RGB_NV = $20A0;
-  WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV = $20A1;
-  WGL_TEXTURE_RECTANGLE_NV = $20A2;
-
-function Load_WGL_NV_render_texture_rectangle: Boolean;
-
-//***** GL_NV_pixel_data_range *****//
-const
-  GL_WRITE_PIXEL_DATA_RANGE_NV = $8878;
-  GL_READ_PIXEL_DATA_RANGE_NV = $8879;
-  GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV = $887A;
-  GL_READ_PIXEL_DATA_RANGE_LENGTH_NV = $887B;
-  GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV = $887C;
-  GL_READ_PIXEL_DATA_RANGE_POINTER_NV = $887D;
-var
-  glPixelDataRangeNV: procedure(target: GLenum; length: GLsizei; pointer: PGLvoid); stdcall = nil;
-  glFlushPixelDataRangeNV: procedure(target: GLenum); stdcall = nil;
-  // wglAllocateMemoryNV  { already defined }
-  // wglFreeMemoryNV  { already defined }
-
-function Load_GL_NV_pixel_data_range: Boolean;
-
-//***** GL_EXT_texture_rectangle *****//
-const
-  GL_TEXTURE_RECTANGLE_EXT = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_EXT = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_EXT = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_EXT = $84F8;
-
-function Load_GL_EXT_texture_rectangle: Boolean;
-
-//***** GL_S3_s3tc *****//
-const
-  GL_RGB_S3TC = $83A0;
-  GL_RGB4_S3TC = $83A1;
-  GL_RGBA_S3TC = $83A2;
-  GL_RGBA4_S3TC = $83A3;
-
-function Load_GL_S3_s3tc: Boolean;
-
-//***** GL_ATI_draw_buffers *****//
-const
-  GL_MAX_DRAW_BUFFERS_ATI = $8824;
-  GL_DRAW_BUFFER0_ATI = $8825;
-  GL_DRAW_BUFFER1_ATI = $8826;
-  GL_DRAW_BUFFER2_ATI = $8827;
-  GL_DRAW_BUFFER3_ATI = $8828;
-  GL_DRAW_BUFFER4_ATI = $8829;
-  GL_DRAW_BUFFER5_ATI = $882A;
-  GL_DRAW_BUFFER6_ATI = $882B;
-  GL_DRAW_BUFFER7_ATI = $882C;
-  GL_DRAW_BUFFER8_ATI = $882D;
-  GL_DRAW_BUFFER9_ATI = $882E;
-  GL_DRAW_BUFFER10_ATI = $882F;
-  GL_DRAW_BUFFER11_ATI = $8830;
-  GL_DRAW_BUFFER12_ATI = $8831;
-  GL_DRAW_BUFFER13_ATI = $8832;
-  GL_DRAW_BUFFER14_ATI = $8833;
-  GL_DRAW_BUFFER15_ATI = $8834;
-var
-  glDrawBuffersATI: procedure(n: GLsizei; const bufs: PGLenum); stdcall = nil;
-
-function Load_GL_ATI_draw_buffers: Boolean;
-
-//***** WGL_ATI_pixel_format_float *****//
-const
-  WGL_RGBA_FLOAT_MODE_ATI = $8820;
-  WGL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI = $8835;
-  WGL_TYPE_RGBA_FLOAT_ATI = $21A0;
-
-function Load_WGL_ATI_pixel_format_float: Boolean;
-
-//***** GL_ATI_texture_env_combine3 *****//
-const
-  GL_MODULATE_ADD_ATI = $8744;
-  GL_MODULATE_SIGNED_ADD_ATI = $8745;
-  GL_MODULATE_SUBTRACT_ATI = $8746;
-
-function Load_GL_ATI_texture_env_combine3: Boolean;
-
-//***** GL_ATI_texture_float *****//
-const
-  GL_RGBA_FLOAT32_ATI = $8814;
-  GL_RGB_FLOAT32_ATI = $8815;
-  GL_ALPHA_FLOAT32_ATI = $8816;
-  GL_INTENSITY_FLOAT32_ATI = $8817;
-  GL_LUMINANCE_FLOAT32_ATI = $8818;
-  GL_LUMINANCE_ALPHA_FLOAT32_ATI = $8819;
-  GL_RGBA_FLOAT16_ATI = $881A;
-  GL_RGB_FLOAT16_ATI = $881B;
-  GL_ALPHA_FLOAT16_ATI = $881C;
-  GL_INTENSITY_FLOAT16_ATI = $881D;
-  GL_LUMINANCE_FLOAT16_ATI = $881E;
-  GL_LUMINANCE_ALPHA_FLOAT16_ATI = $881F;
-
-function Load_GL_ATI_texture_float: Boolean;
-
-//***** GL_NV_texture_expand_normal *****//
-const
-  GL_TEXTURE_UNSIGNED_REMAP_MODE_NV = $888F;
-
-function Load_GL_NV_texture_expand_normal: Boolean;
-
-//***** GL_NV_half_float *****//
-const
-  GL_HALF_FLOAT_NV = $140B;
-var
-  glVertex2hNV: procedure(x: GLushort; y: GLushort); stdcall = nil;
-  glVertex2hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glVertex3hNV: procedure(x: GLushort; y: GLushort; z: GLushort); stdcall = nil;
-  glVertex3hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glVertex4hNV: procedure(x: GLushort; y: GLushort; z: GLushort; w: GLushort); stdcall = nil;
-  glVertex4hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glNormal3hNV: procedure(nx: GLushort; ny: GLushort; nz: GLushort); stdcall = nil;
-  glNormal3hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glColor3hNV: procedure(red: GLushort; green: GLushort; blue: GLushort); stdcall = nil;
-  glColor3hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glColor4hNV: procedure(red: GLushort; green: GLushort; blue: GLushort; alpha: GLushort); stdcall = nil;
-  glColor4hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glTexCoord1hNV: procedure(s: GLushort); stdcall = nil;
-  glTexCoord1hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glTexCoord2hNV: procedure(s: GLushort; t: GLushort); stdcall = nil;
-  glTexCoord2hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glTexCoord3hNV: procedure(s: GLushort; t: GLushort; r: GLushort); stdcall = nil;
-  glTexCoord3hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glTexCoord4hNV: procedure(s: GLushort; t: GLushort; r: GLushort; q: GLushort); stdcall = nil;
-  glTexCoord4hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glMultiTexCoord1hNV: procedure(target: GLenum; s: GLushort); stdcall = nil;
-  glMultiTexCoord1hvNV: procedure(target: GLenum; const v: PGLushort); stdcall = nil;
-  glMultiTexCoord2hNV: procedure(target: GLenum; s: GLushort; t: GLushort); stdcall = nil;
-  glMultiTexCoord2hvNV: procedure(target: GLenum; const v: PGLushort); stdcall = nil;
-  glMultiTexCoord3hNV: procedure(target: GLenum; s: GLushort; t: GLushort; r: GLushort); stdcall = nil;
-  glMultiTexCoord3hvNV: procedure(target: GLenum; const v: PGLushort); stdcall = nil;
-  glMultiTexCoord4hNV: procedure(target: GLenum; s: GLushort; t: GLushort; r: GLushort; q: GLushort); stdcall = nil;
-  glMultiTexCoord4hvNV: procedure(target: GLenum; const v: PGLushort); stdcall = nil;
-  glFogCoordhNV: procedure(fog: GLushort); stdcall = nil;
-  glFogCoordhvNV: procedure(const fog: PGLushort); stdcall = nil;
-  glSecondaryColor3hNV: procedure(red: GLushort; green: GLushort; blue: GLushort); stdcall = nil;
-  glSecondaryColor3hvNV: procedure(const v: PGLushort); stdcall = nil;
-  glVertexWeighthNV: procedure(weight: GLushort); stdcall = nil;
-  glVertexWeighthvNV: procedure(const weight: PGLushort); stdcall = nil;
-  glVertexAttrib1hNV: procedure(index: GLuint; x: GLushort); stdcall = nil;
-  glVertexAttrib1hvNV: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib2hNV: procedure(index: GLuint; x: GLushort; y: GLushort); stdcall = nil;
-  glVertexAttrib2hvNV: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib3hNV: procedure(index: GLuint; x: GLushort; y: GLushort; z: GLushort); stdcall = nil;
-  glVertexAttrib3hvNV: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib4hNV: procedure(index: GLuint; x: GLushort; y: GLushort; z: GLushort; w: GLushort); stdcall = nil;
-  glVertexAttrib4hvNV: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttribs1hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); stdcall = nil;
-  glVertexAttribs2hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); stdcall = nil;
-  glVertexAttribs3hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); stdcall = nil;
-  glVertexAttribs4hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); stdcall = nil;
-
-function Load_GL_NV_half_float: Boolean;
-
-//***** GL_ATI_map_object_buffer *****//
-var
-  glMapObjectBufferATI: function(buffer: GLuint): PGLvoid; stdcall = nil;
-  glUnmapObjectBufferATI: procedure(buffer: GLuint); stdcall = nil;
-
-function Load_GL_ATI_map_object_buffer: Boolean;
-
-//***** GL_ATI_separate_stencil *****//
-const
-  GL_KEEP = $1E00;
-  GL_ZERO = $0000;
-  GL_REPLACE = $1E01;
-  GL_INCR = $1E02;
-  GL_DECR = $1E03;
-  GL_INVERT = $150A;
-  GL_NEVER = $0200;
-  GL_LESS = $0201;
-  GL_LEQUAL = $0203;
-  GL_GREATER = $0204;
-  GL_GEQUAL = $0206;
-  GL_EQUAL = $0202;
-  GL_NOTEQUAL = $0205;
-  GL_ALWAYS = $0207;
-  GL_FRONT = $0404;
-  GL_BACK = $0405;
-  GL_FRONT_AND_BACK = $0408;
-  GL_STENCIL_BACK_FUNC_ATI = $8800;
-  GL_STENCIL_BACK_FAIL_ATI = $8801;
-  GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI = $8802;
-  GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI = $8803;
-var
-  glStencilOpSeparateATI: procedure(face: GLenum; sfail: GLenum; dpfail: GLenum; dppass: GLenum); stdcall = nil;
-  glStencilFuncSeparateATI: procedure(frontfunc: GLenum; backfunc: GLenum; ref: GLint; mask: GLuint); stdcall = nil;
-
-function Load_GL_ATI_separate_stencil: Boolean;
-
-//***** GL_ATI_vertex_attrib_array_object *****//
-var
-  glVertexAttribArrayObjectATI: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; buffer: GLuint; offset: GLuint); stdcall = nil;
-  glGetVertexAttribArrayObjectfvATI: procedure(index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetVertexAttribArrayObjectivATI: procedure(index: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-
-function Load_GL_ATI_vertex_attrib_array_object: Boolean;
-
-//***** GL_ARB_vertex_buffer_object *****//
-const
-  GL_ARRAY_BUFFER_ARB = $8892;
-  GL_ELEMENT_ARRAY_BUFFER_ARB = $8893;
-  GL_ARRAY_BUFFER_BINDING_ARB = $8894;
-  GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB = $8895;
-  GL_VERTEX_ARRAY_BUFFER_BINDING_ARB = $8896;
-  GL_NORMAL_ARRAY_BUFFER_BINDING_ARB = $8897;
-  GL_COLOR_ARRAY_BUFFER_BINDING_ARB = $8898;
-  GL_INDEX_ARRAY_BUFFER_BINDING_ARB = $8899;
-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB = $889A;
-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB = $889B;
-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB = $889C;
-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB = $889D;
-  GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB = $889E;
-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB = $889F;
-  GL_STREAM_DRAW_ARB = $88E0;
-  GL_STREAM_READ_ARB = $88E1;
-  GL_STREAM_COPY_ARB = $88E2;
-  GL_STATIC_DRAW_ARB = $88E4;
-  GL_STATIC_READ_ARB = $88E5;
-  GL_STATIC_COPY_ARB = $88E6;
-  GL_DYNAMIC_DRAW_ARB = $88E8;
-  GL_DYNAMIC_READ_ARB = $88E9;
-  GL_DYNAMIC_COPY_ARB = $88EA;
-  GL_READ_ONLY_ARB = $88B8;
-  GL_WRITE_ONLY_ARB = $88B9;
-  GL_READ_WRITE_ARB = $88BA;
-  GL_BUFFER_SIZE_ARB = $8764;
-  GL_BUFFER_USAGE_ARB = $8765;
-  GL_BUFFER_ACCESS_ARB = $88BB;
-  GL_BUFFER_MAPPED_ARB = $88BC;
-  GL_BUFFER_MAP_POINTER_ARB = $88BD;
-var
-  glBindBufferARB: procedure(target: GLenum; buffer: GLuint); stdcall = nil;
-  glDeleteBuffersARB: procedure(n: GLsizei; const buffers: PGLuint); stdcall = nil;
-  glGenBuffersARB: procedure(n: GLsizei; buffers: PGLuint); stdcall = nil;
-  glIsBufferARB: function(buffer: GLuint): GLboolean; stdcall = nil;
-  glBufferDataARB: procedure(target: GLenum; size: GLsizeiptrARB; const data: PGLvoid; usage: GLenum); stdcall = nil;
-  glBufferSubDataARB: procedure(target: GLenum; offset: GLintptrARB; size: GLsizeiptrARB; const data: PGLvoid); stdcall = nil;
-  glGetBufferSubDataARB: procedure(target: GLenum; offset: GLintptrARB; size: GLsizeiptrARB; data: PGLvoid); stdcall = nil;
-  glMapBufferARB: function(target: GLenum; access: GLenum): PGLvoid; stdcall = nil;
-  glUnmapBufferARB: function(target: GLenum): GLboolean; stdcall = nil;
-  glGetBufferParameterivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetBufferPointervARB: procedure(target: GLenum; pname: GLenum; params: PGLvoid); stdcall = nil;
-
-function Load_GL_ARB_vertex_buffer_object: Boolean;
-
-//***** GL_ARB_occlusion_query *****//
-const
-  GL_SAMPLES_PASSED_ARB = $8914;
-  GL_QUERY_COUNTER_BITS_ARB = $8864;
-  GL_CURRENT_QUERY_ARB = $8865;
-  GL_QUERY_RESULT_ARB = $8866;
-  GL_QUERY_RESULT_AVAILABLE_ARB = $8867;
-var
-  glGenQueriesARB: procedure(n: GLsizei; ids: PGLuint); stdcall = nil;
-  glDeleteQueriesARB: procedure(n: GLsizei; const ids: PGLuint); stdcall = nil;
-  glIsQueryARB: function(id: GLuint): GLboolean; stdcall = nil;
-  glBeginQueryARB: procedure(target: GLenum; id: GLuint); stdcall = nil;
-  glEndQueryARB: procedure(target: GLenum); stdcall = nil;
-  glGetQueryivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetQueryObjectivARB: procedure(id: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetQueryObjectuivARB: procedure(id: GLuint; pname: GLenum; params: PGLuint); stdcall = nil;
-
-function Load_GL_ARB_occlusion_query: Boolean;
-
-//***** GL_ARB_shader_objects *****//
-const
-  GL_PROGRAM_OBJECT_ARB = $8B40;
-  GL_OBJECT_TYPE_ARB = $8B4E;
-  GL_OBJECT_SUBTYPE_ARB = $8B4F;
-  GL_OBJECT_DELETE_STATUS_ARB = $8B80;
-  GL_OBJECT_COMPILE_STATUS_ARB = $8B81;
-  GL_OBJECT_LINK_STATUS_ARB = $8B82;
-  GL_OBJECT_VALIDATE_STATUS_ARB = $8B83;
-  GL_OBJECT_INFO_LOG_LENGTH_ARB = $8B84;
-  GL_OBJECT_ATTACHED_OBJECTS_ARB = $8B85;
-  GL_OBJECT_ACTIVE_UNIFORMS_ARB = $8B86;
-  GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB = $8B87;
-  GL_OBJECT_SHADER_SOURCE_LENGTH_ARB = $8B88;
-  GL_SHADER_OBJECT_ARB = $8B48;
-  GL_FLOAT = $1406;
-  GL_FLOAT_VEC2_ARB = $8B50;
-  GL_FLOAT_VEC3_ARB = $8B51;
-  GL_FLOAT_VEC4_ARB = $8B52;
-  GL_INT = $1404;
-  GL_INT_VEC2_ARB = $8B53;
-  GL_INT_VEC3_ARB = $8B54;
-  GL_INT_VEC4_ARB = $8B55;
-  GL_BOOL_ARB = $8B56;
-  GL_BOOL_VEC2_ARB = $8B57;
-  GL_BOOL_VEC3_ARB = $8B58;
-  GL_BOOL_VEC4_ARB = $8B59;
-  GL_FLOAT_MAT2_ARB = $8B5A;
-  GL_FLOAT_MAT3_ARB = $8B5B;
-  GL_FLOAT_MAT4_ARB = $8B5C;
-var
-  glDeleteObjectARB: procedure(obj: GLhandleARB); stdcall = nil;
-  glGetHandleARB: function(pname: GLenum): GLhandleARB; stdcall = nil;
-  glDetachObjectARB: procedure(containerObj: GLhandleARB; attachedObj: GLhandleARB); stdcall = nil;
-  glCreateShaderObjectARB: function(shaderType: GLenum): GLhandleARB; stdcall = nil;
-  glShaderSourceARB: procedure(shaderObj: GLhandleARB; count: GLsizei; const _string: PGLvoid; const length: PGLint); stdcall = nil;
-  glCompileShaderARB: procedure(shaderObj: GLhandleARB); stdcall = nil;
-  glCreateProgramObjectARB: function(): GLhandleARB; stdcall = nil;
-  glAttachObjectARB: procedure(containerObj: GLhandleARB; obj: GLhandleARB); stdcall = nil;
-  glLinkProgramARB: procedure(programObj: GLhandleARB); stdcall = nil;
-  glUseProgramObjectARB: procedure(programObj: GLhandleARB); stdcall = nil;
-  glValidateProgramARB: procedure(programObj: GLhandleARB); stdcall = nil;
-  glUniform1fARB: procedure(location: GLint; v0: GLfloat); stdcall = nil;
-  glUniform2fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat); stdcall = nil;
-  glUniform3fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat); stdcall = nil;
-  glUniform4fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat; v3: GLfloat); stdcall = nil;
-  glUniform1iARB: procedure(location: GLint; v0: GLint); stdcall = nil;
-  glUniform2iARB: procedure(location: GLint; v0: GLint; v1: GLint); stdcall = nil;
-  glUniform3iARB: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint); stdcall = nil;
-  glUniform4iARB: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint; v3: GLint); stdcall = nil;
-  glUniform1fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); stdcall = nil;
-  glUniform2fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); stdcall = nil;
-  glUniform3fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); stdcall = nil;
-  glUniform4fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); stdcall = nil;
-  glUniform1ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); stdcall = nil;
-  glUniform2ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); stdcall = nil;
-  glUniform3ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); stdcall = nil;
-  glUniform4ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); stdcall = nil;
-  glUniformMatrix2fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); stdcall = nil;
-  glUniformMatrix3fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); stdcall = nil;
-  glUniformMatrix4fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); stdcall = nil;
-  glGetObjectParameterfvARB: procedure(obj: GLhandleARB; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetObjectParameterivARB: procedure(obj: GLhandleARB; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetInfoLogARB: procedure(obj: GLhandleARB; maxLength: GLsizei; length: PGLsizei; infoLog: PGLcharARB); stdcall = nil;
-  glGetAttachedObjectsARB: procedure(containerObj: GLhandleARB; maxCount: GLsizei; count: PGLsizei; obj: PGLhandleARB); stdcall = nil;
-  glGetUniformLocationARB: function(programObj: GLhandleARB; const name: PGLcharARB): GLint; stdcall = nil;
-  glGetActiveUniformARB: procedure(programObj: GLhandleARB; index: GLuint; maxLength: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLcharARB); stdcall = nil;
-  glGetUniformfvARB: procedure(programObj: GLhandleARB; location: GLint; params: PGLfloat); stdcall = nil;
-  glGetUniformivARB: procedure(programObj: GLhandleARB; location: GLint; params: PGLint); stdcall = nil;
-  glGetShaderSourceARB: procedure(obj: GLhandleARB; maxLength: GLsizei; length: PGLsizei; source: PGLcharARB); stdcall = nil;
-
-function Load_GL_ARB_shader_objects: Boolean;
-
-//***** GL_ARB_vertex_shader *****//
-const
-  GL_VERTEX_SHADER_ARB = $8B31;
-  GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB = $8B4A;
-  GL_MAX_VARYING_FLOATS_ARB = $8B4B;
-  // GL_MAX_VERTEX_ATTRIBS_ARB  { already defined }
-  // GL_MAX_TEXTURE_IMAGE_UNITS_ARB  { already defined }
-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = $8B4C;
-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB = $8B4D;
-  // GL_MAX_TEXTURE_COORDS_ARB  { already defined }
-  // GL_VERTEX_PROGRAM_POINT_SIZE_ARB  { already defined }
-  // GL_VERTEX_PROGRAM_TWO_SIDE_ARB  { already defined }
-  // GL_OBJECT_TYPE_ARB  { already defined }
-  // GL_OBJECT_SUBTYPE_ARB  { already defined }
-  GL_OBJECT_ACTIVE_ATTRIBUTES_ARB = $8B89;
-  GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB = $8B8A;
-  // GL_SHADER_OBJECT_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB  { already defined }
-  // GL_CURRENT_VERTEX_ATTRIB_ARB  { already defined }
-  // GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB  { already defined }
-  // GL_FLOAT  { already defined }
-  // GL_FLOAT_VEC2_ARB  { already defined }
-  // GL_FLOAT_VEC3_ARB  { already defined }
-  // GL_FLOAT_VEC4_ARB  { already defined }
-  // GL_FLOAT_MAT2_ARB  { already defined }
-  // GL_FLOAT_MAT3_ARB  { already defined }
-  // GL_FLOAT_MAT4_ARB  { already defined }
-  // glVertexAttrib1fARB  { already defined }
-  // glVertexAttrib1sARB  { already defined }
-  // glVertexAttrib1dARB  { already defined }
-  // glVertexAttrib2fARB  { already defined }
-  // glVertexAttrib2sARB  { already defined }
-  // glVertexAttrib2dARB  { already defined }
-  // glVertexAttrib3fARB  { already defined }
-  // glVertexAttrib3sARB  { already defined }
-  // glVertexAttrib3dARB  { already defined }
-  // glVertexAttrib4fARB  { already defined }
-  // glVertexAttrib4sARB  { already defined }
-  // glVertexAttrib4dARB  { already defined }
-  // glVertexAttrib4NubARB  { already defined }
-  // glVertexAttrib1fvARB  { already defined }
-  // glVertexAttrib1svARB  { already defined }
-  // glVertexAttrib1dvARB  { already defined }
-  // glVertexAttrib2fvARB  { already defined }
-  // glVertexAttrib2svARB  { already defined }
-  // glVertexAttrib2dvARB  { already defined }
-  // glVertexAttrib3fvARB  { already defined }
-  // glVertexAttrib3svARB  { already defined }
-  // glVertexAttrib3dvARB  { already defined }
-  // glVertexAttrib4fvARB  { already defined }
-  // glVertexAttrib4svARB  { already defined }
-  // glVertexAttrib4dvARB  { already defined }
-  // glVertexAttrib4ivARB  { already defined }
-  // glVertexAttrib4bvARB  { already defined }
-  // glVertexAttrib4ubvARB  { already defined }
-  // glVertexAttrib4usvARB  { already defined }
-  // glVertexAttrib4uivARB  { already defined }
-  // glVertexAttrib4NbvARB  { already defined }
-  // glVertexAttrib4NsvARB  { already defined }
-  // glVertexAttrib4NivARB  { already defined }
-  // glVertexAttrib4NubvARB  { already defined }
-  // glVertexAttrib4NusvARB  { already defined }
-  // glVertexAttrib4NuivARB  { already defined }
-  // glVertexAttribPointerARB  { already defined }
-  // glEnableVertexAttribArrayARB  { already defined }
-  // glDisableVertexAttribArrayARB  { already defined }
-var
-  glBindAttribLocationARB: procedure(programObj: GLhandleARB; index: GLuint; const name: PGLcharARB); stdcall = nil;
-  glGetActiveAttribARB: procedure(programObj: GLhandleARB; index: GLuint; maxLength: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLcharARB); stdcall = nil;
-  glGetAttribLocationARB: function(programObj: GLhandleARB; const name: PGLcharARB): GLint; stdcall = nil;
-  // glGetVertexAttribdvARB  { already defined }
-  // glGetVertexAttribfvARB  { already defined }
-  // glGetVertexAttribivARB  { already defined }
-  // glGetVertexAttribPointervARB  { already defined }
-
-function Load_GL_ARB_vertex_shader: Boolean;
-
-//***** GL_ARB_fragment_shader *****//
-const
-  GL_FRAGMENT_SHADER_ARB = $8B30;
-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB = $8B49;
-  // GL_MAX_TEXTURE_COORDS_ARB  { already defined }
-  // GL_MAX_TEXTURE_IMAGE_UNITS_ARB  { already defined }
-  // GL_OBJECT_TYPE_ARB  { already defined }
-  // GL_OBJECT_SUBTYPE_ARB  { already defined }
-  // GL_SHADER_OBJECT_ARB  { already defined }
-
-function Load_GL_ARB_fragment_shader: Boolean;
-
-//***** GL_ARB_shading_language_100 *****//
-const
-  GL_SHADING_LANGUAGE_VERSION_ARB = $8B8C;
-
-function Load_GL_ARB_shading_language_100: Boolean;
-
-//***** GL_ARB_texture_non_power_of_two *****//
-
-function Load_GL_ARB_texture_non_power_of_two: Boolean;
-
-//***** GL_ARB_point_sprite *****//
-const
-  GL_POINT_SPRITE_ARB = $8861;
-  GL_COORD_REPLACE_ARB = $8862;
-
-function Load_GL_ARB_point_sprite: Boolean;
-
-//***** GL_EXT_depth_bounds_test *****//
-const
-  GL_DEPTH_BOUNDS_TEST_EXT = $8890;
-  GL_DEPTH_BOUNDS_EXT = $8891;
-var
-  glDepthBoundsEXT: procedure(zmin: GLclampd; zmax: GLclampd); stdcall = nil;
-
-function Load_GL_EXT_depth_bounds_test: Boolean;
-
-//***** GL_EXT_secondary_color *****//
-const
-  GL_COLOR_SUM_EXT = $8458;
-  GL_CURRENT_SECONDARY_COLOR_EXT = $8459;
-  GL_SECONDARY_COLOR_ARRAY_SIZE_EXT = $845A;
-  GL_SECONDARY_COLOR_ARRAY_TYPE_EXT = $845B;
-  GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT = $845C;
-  GL_SECONDARY_COLOR_ARRAY_POINTER_EXT = $845D;
-  GL_SECONDARY_COLOR_ARRAY_EXT = $845E;
-var
-  glSecondaryColor3bEXT: procedure(r: GLbyte; g: GLbyte; b: GLbyte); stdcall = nil;
-  glSecondaryColor3sEXT: procedure(r: GLshort; g: GLshort; b: GLshort); stdcall = nil;
-  glSecondaryColor3iEXT: procedure(r: GLint; g: GLint; b: GLint); stdcall = nil;
-  glSecondaryColor3fEXT: procedure(r: GLfloat; g: GLfloat; b: GLfloat); stdcall = nil;
-  glSecondaryColor3dEXT: procedure(r: GLdouble; g: GLdouble; b: GLdouble); stdcall = nil;
-  glSecondaryColor3ubEXT: procedure(r: GLubyte; g: GLubyte; b: GLubyte); stdcall = nil;
-  glSecondaryColor3usEXT: procedure(r: GLushort; g: GLushort; b: GLushort); stdcall = nil;
-  glSecondaryColor3uiEXT: procedure(r: GLuint; g: GLuint; b: GLuint); stdcall = nil;
-  glSecondaryColor3bvEXT: procedure(components: PGLbyte); stdcall = nil;
-  glSecondaryColor3svEXT: procedure(components: PGLshort); stdcall = nil;
-  glSecondaryColor3ivEXT: procedure(components: PGLint); stdcall = nil;
-  glSecondaryColor3fvEXT: procedure(components: PGLfloat); stdcall = nil;
-  glSecondaryColor3dvEXT: procedure(components: PGLdouble); stdcall = nil;
-  glSecondaryColor3ubvEXT: procedure(components: PGLubyte); stdcall = nil;
-  glSecondaryColor3usvEXT: procedure(components: PGLushort); stdcall = nil;
-  glSecondaryColor3uivEXT: procedure(components: PGLuint); stdcall = nil;
-  glSecondaryColorPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_secondary_color: Boolean;
-
-//***** GL_EXT_texture_mirror_clamp *****//
-const
-  GL_MIRROR_CLAMP_EXT = $8742;
-  GL_MIRROR_CLAMP_TO_EDGE_EXT = $8743;
-  GL_MIRROR_CLAMP_TO_BORDER_EXT = $8912;
-
-function Load_GL_EXT_texture_mirror_clamp: Boolean;
-
-//***** GL_EXT_blend_equation_separate *****//
-const
-  GL_BLEND_EQUATION_RGB_EXT = $8009;
-  GL_BLEND_EQUATION_ALPHA_EXT = $883D;
-var
-  glBlendEquationSeparateEXT: procedure(modeRGB: GLenum; modeAlpha: GLenum); stdcall = nil;
-
-function Load_GL_EXT_blend_equation_separate: Boolean;
-
-//***** GL_MESA_pack_invert *****//
-const
-  GL_PACK_INVERT_MESA = $8758;
-
-function Load_GL_MESA_pack_invert: Boolean;
-
-//***** GL_MESA_ycbcr_texture *****//
-const
-  GL_YCBCR_MESA = $8757;
-  GL_UNSIGNED_SHORT_8_8_MESA = $85BA;
-  GL_UNSIGNED_SHORT_8_8_REV_MESA = $85BB;
-
-function Load_GL_MESA_ycbcr_texture: Boolean;
-
-//***** GL_ARB_fragment_program_shadow *****//
-
-function Load_GL_ARB_fragment_program_shadow: Boolean;
-
-//***** GL_EXT_fog_coord *****//
-const
-  GL_FOG_COORDINATE_SOURCE_EXT = $8450;
-  GL_FOG_COORDINATE_EXT = $8451;
-  GL_FRAGMENT_DEPTH_EXT = $8452;
-  GL_CURRENT_FOG_COORDINATE_EXT = $8453;
-  GL_FOG_COORDINATE_ARRAY_TYPE_EXT = $8454;
-  GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = $8455;
-  GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456;
-  GL_FOG_COORDINATE_ARRAY_EXT = $8457;
-var
-  glFogCoordfEXT: procedure(coord: GLfloat); stdcall = nil;
-  glFogCoorddEXT: procedure(coord: GLdouble); stdcall = nil;
-  glFogCoordfvEXT: procedure(coord: PGLfloat); stdcall = nil;
-  glFogCoorddvEXT: procedure(coord: PGLdouble); stdcall = nil;
-  glFogCoordPointerEXT: procedure(_type: GLenum; stride: GLsizei; pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_EXT_fog_coord: Boolean;
-
-//***** GL_NV_fragment_program_option *****//
-
-function Load_GL_NV_fragment_program_option: Boolean;
-
-//***** GL_EXT_pixel_buffer_object *****//
-const
-  GL_PIXEL_PACK_BUFFER_EXT = $88EB;
-  GL_PIXEL_UNPACK_BUFFER_EXT = $88EC;
-  GL_PIXEL_PACK_BUFFER_BINDING_EXT = $88ED;
-  GL_PIXEL_UNPACK_BUFFER_BINDING_EXT = $88EF;
-
-function Load_GL_EXT_pixel_buffer_object: Boolean;
-
-//***** GL_NV_fragment_program2 *****//
-const
-  GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV = $88F4;
-  GL_MAX_PROGRAM_CALL_DEPTH_NV = $88F5;
-  GL_MAX_PROGRAM_IF_DEPTH_NV = $88F6;
-  GL_MAX_PROGRAM_LOOP_DEPTH_NV = $88F7;
-  GL_MAX_PROGRAM_LOOP_COUNT_NV = $88F8;
-
-function Load_GL_NV_fragment_program2: Boolean;
-
-//***** GL_NV_vertex_program2_option *****//
-  // GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV  { already defined }
-  // GL_MAX_PROGRAM_CALL_DEPTH_NV  { already defined }
-
-function Load_GL_NV_vertex_program2_option: Boolean;
-
-//***** GL_NV_vertex_program3 *****//
-  // GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB  { already defined }
-
-function Load_GL_NV_vertex_program3: Boolean;
-
-//***** GL_ARB_draw_buffers *****//
-const
-  GL_MAX_DRAW_BUFFERS_ARB = $8824;
-  GL_DRAW_BUFFER0_ARB = $8825;
-  GL_DRAW_BUFFER1_ARB = $8826;
-  GL_DRAW_BUFFER2_ARB = $8827;
-  GL_DRAW_BUFFER3_ARB = $8828;
-  GL_DRAW_BUFFER4_ARB = $8829;
-  GL_DRAW_BUFFER5_ARB = $882A;
-  GL_DRAW_BUFFER6_ARB = $882B;
-  GL_DRAW_BUFFER7_ARB = $882C;
-  GL_DRAW_BUFFER8_ARB = $882D;
-  GL_DRAW_BUFFER9_ARB = $882E;
-  GL_DRAW_BUFFER10_ARB = $882F;
-  GL_DRAW_BUFFER11_ARB = $8830;
-  GL_DRAW_BUFFER12_ARB = $8831;
-  GL_DRAW_BUFFER13_ARB = $8832;
-  GL_DRAW_BUFFER14_ARB = $8833;
-  GL_DRAW_BUFFER15_ARB = $8834;
-var
-  glDrawBuffersARB: procedure(n: GLsizei; const bufs: PGLenum); stdcall = nil;
-
-function Load_GL_ARB_draw_buffers: Boolean;
-
-//***** GL_ARB_texture_rectangle *****//
-const
-  GL_TEXTURE_RECTANGLE_ARB = $84F5;
-  GL_TEXTURE_BINDING_RECTANGLE_ARB = $84F6;
-  GL_PROXY_TEXTURE_RECTANGLE_ARB = $84F7;
-  GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB = $84F8;
-
-function Load_GL_ARB_texture_rectangle: Boolean;
-
-//***** GL_ARB_color_buffer_float *****//
-const
-  GL_RGBA_FLOAT_MODE_ARB = $8820;
-  GL_CLAMP_VERTEX_COLOR_ARB = $891A;
-  GL_CLAMP_FRAGMENT_COLOR_ARB = $891B;
-  GL_CLAMP_READ_COLOR_ARB = $891C;
-  GL_FIXED_ONLY_ARB = $891D;
-  WGL_TYPE_RGBA_FLOAT_ARB = $21A0;
-var
-  glClampColorARB: procedure(target: GLenum; clamp: GLenum); stdcall = nil;
-
-function Load_GL_ARB_color_buffer_float: Boolean;
-
-//***** GL_ARB_half_float_pixel *****//
-const
-  GL_HALF_FLOAT_ARB = $140B;
-
-function Load_GL_ARB_half_float_pixel: Boolean;
-
-//***** GL_ARB_texture_float *****//
-const
-  GL_TEXTURE_RED_TYPE_ARB = $8C10;
-  GL_TEXTURE_GREEN_TYPE_ARB = $8C11;
-  GL_TEXTURE_BLUE_TYPE_ARB = $8C12;
-  GL_TEXTURE_ALPHA_TYPE_ARB = $8C13;
-  GL_TEXTURE_LUMINANCE_TYPE_ARB = $8C14;
-  GL_TEXTURE_INTENSITY_TYPE_ARB = $8C15;
-  GL_TEXTURE_DEPTH_TYPE_ARB = $8C16;
-  GL_UNSIGNED_NORMALIZED_ARB = $8C17;
-  GL_RGBA32F_ARB = $8814;
-  GL_RGB32F_ARB = $8815;
-  GL_ALPHA32F_ARB = $8816;
-  GL_INTENSITY32F_ARB = $8817;
-  GL_LUMINANCE32F_ARB = $8818;
-  GL_LUMINANCE_ALPHA32F_ARB = $8819;
-  GL_RGBA16F_ARB = $881A;
-  GL_RGB16F_ARB = $881B;
-  GL_ALPHA16F_ARB = $881C;
-  GL_INTENSITY16F_ARB = $881D;
-  GL_LUMINANCE16F_ARB = $881E;
-  GL_LUMINANCE_ALPHA16F_ARB = $881F;
-
-function Load_GL_ARB_texture_float: Boolean;
-
-//***** GL_EXT_texture_compression_dxt1 *****//
-  // GL_COMPRESSED_RGB_S3TC_DXT1_EXT  { already defined }
-  // GL_COMPRESSED_RGBA_S3TC_DXT1_EXT  { already defined }
-
-function Load_GL_EXT_texture_compression_dxt1: Boolean;
-
-//***** GL_ARB_pixel_buffer_object *****//
-const
-  GL_PIXEL_PACK_BUFFER_ARB = $88EB;
-  GL_PIXEL_UNPACK_BUFFER_ARB = $88EC;
-  GL_PIXEL_PACK_BUFFER_BINDING_ARB = $88ED;
-  GL_PIXEL_UNPACK_BUFFER_BINDING_ARB = $88EF;
-
-function Load_GL_ARB_pixel_buffer_object: Boolean;
-
-//***** GL_EXT_framebuffer_object *****//
-const
-  GL_FRAMEBUFFER_EXT = $8D40;
-  GL_RENDERBUFFER_EXT = $8D41;
-  GL_STENCIL_INDEX_EXT = $8D45;
-  GL_STENCIL_INDEX1_EXT = $8D46;
-  GL_STENCIL_INDEX4_EXT = $8D47;
-  GL_STENCIL_INDEX8_EXT = $8D48;
-  GL_STENCIL_INDEX16_EXT = $8D49;
-  GL_RENDERBUFFER_WIDTH_EXT = $8D42;
-  GL_RENDERBUFFER_HEIGHT_EXT = $8D43;
-  GL_RENDERBUFFER_INTERNAL_FORMAT_EXT = $8D44;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT = $8CD0;
-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT = $8CD1;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT = $8CD2;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT = $8CD3;
-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT = $8CD4;
-  GL_COLOR_ATTACHMENT0_EXT = $8CE0;
-  GL_COLOR_ATTACHMENT1_EXT = $8CE1;
-  GL_COLOR_ATTACHMENT2_EXT = $8CE2;
-  GL_COLOR_ATTACHMENT3_EXT = $8CE3;
-  GL_COLOR_ATTACHMENT4_EXT = $8CE4;
-  GL_COLOR_ATTACHMENT5_EXT = $8CE5;
-  GL_COLOR_ATTACHMENT6_EXT = $8CE6;
-  GL_COLOR_ATTACHMENT7_EXT = $8CE7;
-  GL_COLOR_ATTACHMENT8_EXT = $8CE8;
-  GL_COLOR_ATTACHMENT9_EXT = $8CE9;
-  GL_COLOR_ATTACHMENT10_EXT = $8CEA;
-  GL_COLOR_ATTACHMENT11_EXT = $8CEB;
-  GL_COLOR_ATTACHMENT12_EXT = $8CEC;
-  GL_COLOR_ATTACHMENT13_EXT = $8CED;
-  GL_COLOR_ATTACHMENT14_EXT = $8CEE;
-  GL_COLOR_ATTACHMENT15_EXT = $8CEF;
-  GL_DEPTH_ATTACHMENT_EXT = $8D00;
-  GL_STENCIL_ATTACHMENT_EXT = $8D20;
-  GL_FRAMEBUFFER_COMPLETE_EXT = $8CD5;
-  GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT = $8CD6;
-  GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT = $8CD7;
-  GL_FRAMEBUFFER_INCOMPLETE_DUPLICATE_ATTACHMENT_EXT = $8CD8;
-  GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT = $8CD9;
-  GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT = $8CDA;
-  GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT = $8CDB;
-  GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT = $8CDC;
-  GL_FRAMEBUFFER_UNSUPPORTED_EXT = $8CDD;
-  GL_FRAMEBUFFER_STATUS_ERROR_EXT = $8CDE;
-  GL_FRAMEBUFFER_BINDING_EXT = $8CA6;
-  GL_RENDERBUFFER_BINDING_EXT = $8CA7;
-  GL_MAX_COLOR_ATTACHMENTS_EXT = $8CDF;
-  GL_MAX_RENDERBUFFER_SIZE_EXT = $84E8;
-  GL_INVALID_FRAMEBUFFER_OPERATION_EXT = $0506;
-var
-  glIsRenderbufferEXT: function(renderbuffer: GLuint): GLboolean; stdcall = nil;
-  glBindRenderbufferEXT: procedure(target: GLenum; renderbuffer: GLuint); stdcall = nil;
-  glDeleteRenderbuffersEXT: procedure(n: GLsizei; const renderbuffers: PGLuint); stdcall = nil;
-  glGenRenderbuffersEXT: procedure(n: GLsizei; renderbuffers: PGLuint); stdcall = nil;
-  glRenderbufferStorageEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei); stdcall = nil;
-  glGetRenderbufferParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glIsFramebufferEXT: function(framebuffer: GLuint): GLboolean; stdcall = nil;
-  glBindFramebufferEXT: procedure(target: GLenum; framebuffer: GLuint); stdcall = nil;
-  glDeleteFramebuffersEXT: procedure(n: GLsizei; const framebuffers: PGLuint); stdcall = nil;
-  glGenFramebuffersEXT: procedure(n: GLsizei; framebuffers: PGLuint); stdcall = nil;
-  glCheckFramebufferStatusEXT: function(target: GLenum): GLenum; stdcall = nil;
-  glFramebufferTexture1DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); stdcall = nil;
-  glFramebufferTexture2DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); stdcall = nil;
-  glFramebufferTexture3DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint; zoffset: GLint); stdcall = nil;
-  glFramebufferRenderbufferEXT: procedure(target: GLenum; attachment: GLenum; renderbuffertarget: GLenum; renderbuffer: GLuint); stdcall = nil;
-  glGetFramebufferAttachmentParameterivEXT: procedure(target: GLenum; attachment: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGenerateMipmapEXT: procedure(target: GLenum); stdcall = nil;
-
-function Load_GL_EXT_framebuffer_object: Boolean;
-
-//***** GL_version_1_4 *****//
-const
-  GL_BLEND_DST_RGB = $80C8;
-  GL_BLEND_SRC_RGB = $80C9;
-  GL_BLEND_DST_ALPHA = $80CA;
-  GL_BLEND_SRC_ALPHA = $80CB;
-  GL_POINT_SIZE_MIN = $8126;
-  GL_POINT_SIZE_MAX = $8127;
-  GL_POINT_FADE_THRESHOLD_SIZE = $8128;
-  GL_POINT_DISTANCE_ATTENUATION = $8129;
-  GL_GENERATE_MIPMAP = $8191;
-  GL_GENERATE_MIPMAP_HINT = $8192;
-  GL_DEPTH_COMPONENT16 = $81A5;
-  GL_DEPTH_COMPONENT24 = $81A6;
-  GL_DEPTH_COMPONENT32 = $81A7;
-  GL_MIRRORED_REPEAT = $8370;
-  GL_FOG_COORDINATE_SOURCE = $8450;
-  GL_FOG_COORDINATE = $8451;
-  GL_FRAGMENT_DEPTH = $8452;
-  GL_CURRENT_FOG_COORDINATE = $8453;
-  GL_FOG_COORDINATE_ARRAY_TYPE = $8454;
-  GL_FOG_COORDINATE_ARRAY_STRIDE = $8455;
-  GL_FOG_COORDINATE_ARRAY_POINTER = $8456;
-  GL_FOG_COORDINATE_ARRAY = $8457;
-  GL_COLOR_SUM = $8458;
-  GL_CURRENT_SECONDARY_COLOR = $8459;
-  GL_SECONDARY_COLOR_ARRAY_SIZE = $845A;
-  GL_SECONDARY_COLOR_ARRAY_TYPE = $845B;
-  GL_SECONDARY_COLOR_ARRAY_STRIDE = $845C;
-  GL_SECONDARY_COLOR_ARRAY_POINTER = $845D;
-  GL_SECONDARY_COLOR_ARRAY = $845E;
-  GL_MAX_TEXTURE_LOD_BIAS = $84FD;
-  GL_TEXTURE_FILTER_CONTROL = $8500;
-  GL_TEXTURE_LOD_BIAS = $8501;
-  GL_INCR_WRAP = $8507;
-  GL_DECR_WRAP = $8508;
-  GL_TEXTURE_DEPTH_SIZE = $884A;
-  GL_DEPTH_TEXTURE_MODE = $884B;
-  GL_TEXTURE_COMPARE_MODE = $884C;
-  GL_TEXTURE_COMPARE_FUNC = $884D;
-  GL_COMPARE_R_TO_TEXTURE = $884E;
-var
-  glBlendFuncSeparate: procedure(sfactorRGB: GLenum; dfactorRGB: GLenum; sfactorAlpha: GLenum; dfactorAlpha: GLenum); stdcall = nil;
-  glFogCoordf: procedure(coord: GLfloat); stdcall = nil;
-  glFogCoordfv: procedure(const coord: PGLfloat); stdcall = nil;
-  glFogCoordd: procedure(coord: GLdouble); stdcall = nil;
-  glFogCoorddv: procedure(const coord: PGLdouble); stdcall = nil;
-  glFogCoordPointer: procedure(_type: GLenum; stride: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glMultiDrawArrays: procedure(mode: GLenum; first: PGLint; count: PGLsizei; primcount: GLsizei); stdcall = nil;
-  glMultiDrawElements: procedure(mode: GLenum; const count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei); stdcall = nil;
-  glPointParameterf: procedure(pname: GLenum; param: GLfloat); stdcall = nil;
-  glPointParameterfv: procedure(pname: GLenum; const params: PGLfloat); stdcall = nil;
-  glPointParameteri: procedure(pname: GLenum; param: GLint); stdcall = nil;
-  glPointParameteriv: procedure(pname: GLenum; const params: PGLint); stdcall = nil;
-  glSecondaryColor3b: procedure(red: GLbyte; green: GLbyte; blue: GLbyte); stdcall = nil;
-  glSecondaryColor3bv: procedure(const v: PGLbyte); stdcall = nil;
-  glSecondaryColor3d: procedure(red: GLdouble; green: GLdouble; blue: GLdouble); stdcall = nil;
-  glSecondaryColor3dv: procedure(const v: PGLdouble); stdcall = nil;
-  glSecondaryColor3f: procedure(red: GLfloat; green: GLfloat; blue: GLfloat); stdcall = nil;
-  glSecondaryColor3fv: procedure(const v: PGLfloat); stdcall = nil;
-  glSecondaryColor3i: procedure(red: GLint; green: GLint; blue: GLint); stdcall = nil;
-  glSecondaryColor3iv: procedure(const v: PGLint); stdcall = nil;
-  glSecondaryColor3s: procedure(red: GLshort; green: GLshort; blue: GLshort); stdcall = nil;
-  glSecondaryColor3sv: procedure(const v: PGLshort); stdcall = nil;
-  glSecondaryColor3ub: procedure(red: GLubyte; green: GLubyte; blue: GLubyte); stdcall = nil;
-  glSecondaryColor3ubv: procedure(const v: PGLubyte); stdcall = nil;
-  glSecondaryColor3ui: procedure(red: GLuint; green: GLuint; blue: GLuint); stdcall = nil;
-  glSecondaryColor3uiv: procedure(const v: PGLuint); stdcall = nil;
-  glSecondaryColor3us: procedure(red: GLushort; green: GLushort; blue: GLushort); stdcall = nil;
-  glSecondaryColor3usv: procedure(const v: PGLushort); stdcall = nil;
-  glSecondaryColorPointer: procedure(size: GLint; _type: GLenum; stride: GLsizei; const pointer: PGLvoid); stdcall = nil;
-  glWindowPos2d: procedure(x: GLdouble; y: GLdouble); stdcall = nil;
-  glWindowPos2dv: procedure(const v: PGLdouble); stdcall = nil;
-  glWindowPos2f: procedure(x: GLfloat; y: GLfloat); stdcall = nil;
-  glWindowPos2fv: procedure(const v: PGLfloat); stdcall = nil;
-  glWindowPos2i: procedure(x: GLint; y: GLint); stdcall = nil;
-  glWindowPos2iv: procedure(const v: PGLint); stdcall = nil;
-  glWindowPos2s: procedure(x: GLshort; y: GLshort); stdcall = nil;
-  glWindowPos2sv: procedure(const v: PGLshort); stdcall = nil;
-  glWindowPos3d: procedure(x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glWindowPos3dv: procedure(const v: PGLdouble); stdcall = nil;
-  glWindowPos3f: procedure(x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glWindowPos3fv: procedure(const v: PGLfloat); stdcall = nil;
-  glWindowPos3i: procedure(x: GLint; y: GLint; z: GLint); stdcall = nil;
-  glWindowPos3iv: procedure(const v: PGLint); stdcall = nil;
-  glWindowPos3s: procedure(x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glWindowPos3sv: procedure(const v: PGLshort); stdcall = nil;
-
-function Load_GL_version_1_4: Boolean;
-
-//***** GL_version_1_5 *****//
-const
-  GL_BUFFER_SIZE = $8764;
-  GL_BUFFER_USAGE = $8765;
-  GL_QUERY_COUNTER_BITS = $8864;
-  GL_CURRENT_QUERY = $8865;
-  GL_QUERY_RESULT = $8866;
-  GL_QUERY_RESULT_AVAILABLE = $8867;
-  GL_ARRAY_BUFFER = $8892;
-  GL_ELEMENT_ARRAY_BUFFER = $8893;
-  GL_ARRAY_BUFFER_BINDING = $8894;
-  GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895;
-  GL_VERTEX_ARRAY_BUFFER_BINDING = $8896;
-  GL_NORMAL_ARRAY_BUFFER_BINDING = $8897;
-  GL_COLOR_ARRAY_BUFFER_BINDING = $8898;
-  GL_INDEX_ARRAY_BUFFER_BINDING = $8899;
-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A;
-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = $889B;
-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = $889C;
-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = $889D;
-  GL_WEIGHT_ARRAY_BUFFER_BINDING = $889E;
-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = $889F;
-  GL_READ_ONLY = $88B8;
-  GL_WRITE_ONLY = $88B9;
-  GL_READ_WRITE = $88BA;
-  GL_BUFFER_ACCESS = $88BB;
-  GL_BUFFER_MAPPED = $88BC;
-  GL_BUFFER_MAP_POINTER = $88BD;
-  GL_STREAM_DRAW = $88E0;
-  GL_STREAM_READ = $88E1;
-  GL_STREAM_COPY = $88E2;
-  GL_STATIC_DRAW = $88E4;
-  GL_STATIC_READ = $88E5;
-  GL_STATIC_COPY = $88E6;
-  GL_DYNAMIC_DRAW = $88E8;
-  GL_DYNAMIC_READ = $88E9;
-  GL_DYNAMIC_COPY = $88EA;
-  GL_SAMPLES_PASSED = $8914;
-  GL_FOG_COORD_SRC = $8450;
-  GL_FOG_COORD = $8451;
-  GL_CURRENT_FOG_COORD = $8453;
-  GL_FOG_COORD_ARRAY_TYPE = $8454;
-  GL_FOG_COORD_ARRAY_STRIDE = $8455;
-  GL_FOG_COORD_ARRAY_POINTER = $8456;
-  GL_FOG_COORD_ARRAY = $8457;
-  GL_FOG_COORD_ARRAY_BUFFER_BINDING = $889D;
-  GL_SRC0_RGB = $8580;
-  GL_SRC1_RGB = $8581;
-  GL_SRC2_RGB = $8582;
-  GL_SRC0_ALPHA = $8588;
-  GL_SRC1_ALPHA = $8589;
-  GL_SRC2_ALPHA = $858A;
-var
-  glGenQueries: procedure(n: GLsizei; ids: PGLuint); stdcall = nil;
-  glDeleteQueries: procedure(n: GLsizei; const ids: PGLuint); stdcall = nil;
-  glIsQuery: function(id: GLuint): GLboolean; stdcall = nil;
-  glBeginQuery: procedure(target: GLenum; id: GLuint); stdcall = nil;
-  glEndQuery: procedure(target: GLenum); stdcall = nil;
-  glGetQueryiv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetQueryObjectiv: procedure(id: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetQueryObjectuiv: procedure(id: GLuint; pname: GLenum; params: PGLuint); stdcall = nil;
-  glBindBuffer: procedure(target: GLenum; buffer: GLuint); stdcall = nil;
-  glDeleteBuffers: procedure(n: GLsizei; const buffers: PGLuint); stdcall = nil;
-  glGenBuffers: procedure(n: GLsizei; buffers: PGLuint); stdcall = nil;
-  glIsBuffer: function(buffer: GLuint): GLboolean; stdcall = nil;
-  glBufferData: procedure(target: GLenum; size: GLsizeiptr; const data: PGLvoid; usage: GLenum); stdcall = nil;
-  glBufferSubData: procedure(target: GLenum; offset: GLintptr; size: GLsizeiptr; const data: PGLvoid); stdcall = nil;
-  glGetBufferSubData: procedure(target: GLenum; offset: GLintptr; size: GLsizeiptr; data: PGLvoid); stdcall = nil;
-  glMapBuffer: function(target: GLenum; access: GLenum): PGLvoid; stdcall = nil;
-  glUnmapBuffer: function(target: GLenum): GLboolean; stdcall = nil;
-  glGetBufferParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetBufferPointerv: procedure(target: GLenum; pname: GLenum; params: PGLvoid); stdcall = nil;
-
-function Load_GL_version_1_5: Boolean;
-
-//***** GL_version_2_0 *****//
-const
-  GL_BLEND_EQUATION_RGB = $8009;
-  GL_VERTEX_ATTRIB_ARRAY_ENABLED = $8622;
-  GL_VERTEX_ATTRIB_ARRAY_SIZE = $8623;
-  GL_VERTEX_ATTRIB_ARRAY_STRIDE = $8624;
-  GL_VERTEX_ATTRIB_ARRAY_TYPE = $8625;
-  GL_CURRENT_VERTEX_ATTRIB = $8626;
-  GL_VERTEX_PROGRAM_POINT_SIZE = $8642;
-  GL_VERTEX_PROGRAM_TWO_SIDE = $8643;
-  GL_VERTEX_ATTRIB_ARRAY_POINTER = $8645;
-  GL_STENCIL_BACK_FUNC = $8800;
-  GL_STENCIL_BACK_FAIL = $8801;
-  GL_STENCIL_BACK_PASS_DEPTH_FAIL = $8802;
-  GL_STENCIL_BACK_PASS_DEPTH_PASS = $8803;
-  GL_MAX_DRAW_BUFFERS = $8824;
-  GL_DRAW_BUFFER0 = $8825;
-  GL_DRAW_BUFFER1 = $8826;
-  GL_DRAW_BUFFER2 = $8827;
-  GL_DRAW_BUFFER3 = $8828;
-  GL_DRAW_BUFFER4 = $8829;
-  GL_DRAW_BUFFER5 = $882A;
-  GL_DRAW_BUFFER6 = $882B;
-  GL_DRAW_BUFFER7 = $882C;
-  GL_DRAW_BUFFER8 = $882D;
-  GL_DRAW_BUFFER9 = $882E;
-  GL_DRAW_BUFFER10 = $882F;
-  GL_DRAW_BUFFER11 = $8830;
-  GL_DRAW_BUFFER12 = $8831;
-  GL_DRAW_BUFFER13 = $8832;
-  GL_DRAW_BUFFER14 = $8833;
-  GL_DRAW_BUFFER15 = $8834;
-  GL_BLEND_EQUATION_ALPHA = $883D;
-  GL_POINT_SPRITE = $8861;
-  GL_COORD_REPLACE = $8862;
-  GL_MAX_VERTEX_ATTRIBS = $8869;
-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = $886A;
-  GL_MAX_TEXTURE_COORDS = $8871;
-  GL_MAX_TEXTURE_IMAGE_UNITS = $8872;
-  GL_FRAGMENT_SHADER = $8B30;
-  GL_VERTEX_SHADER = $8B31;
-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = $8B49;
-  GL_MAX_VERTEX_UNIFORM_COMPONENTS = $8B4A;
-  GL_MAX_VARYING_FLOATS = $8B4B;
-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = $8B4C;
-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = $8B4D;
-  GL_SHADER_TYPE = $8B4F;
-  GL_FLOAT_VEC2 = $8B50;
-  GL_FLOAT_VEC3 = $8B51;
-  GL_FLOAT_VEC4 = $8B52;
-  GL_INT_VEC2 = $8B53;
-  GL_INT_VEC3 = $8B54;
-  GL_INT_VEC4 = $8B55;
-  GL_BOOL = $8B56;
-  GL_BOOL_VEC2 = $8B57;
-  GL_BOOL_VEC3 = $8B58;
-  GL_BOOL_VEC4 = $8B59;
-  GL_FLOAT_MAT2 = $8B5A;
-  GL_FLOAT_MAT3 = $8B5B;
-  GL_FLOAT_MAT4 = $8B5C;
-  GL_SAMPLER_1D = $8B5D;
-  GL_SAMPLER_2D = $8B5E;
-  GL_SAMPLER_3D = $8B5F;
-  GL_SAMPLER_CUBE = $8B60;
-  GL_SAMPLER_1D_SHADOW = $8B61;
-  GL_SAMPLER_2D_SHADOW = $8B62;
-  GL_DELETE_STATUS = $8B80;
-  GL_COMPILE_STATUS = $8B81;
-  GL_LINK_STATUS = $8B82;
-  GL_VALIDATE_STATUS = $8B83;
-  GL_INFO_LOG_LENGTH = $8B84;
-  GL_ATTACHED_SHADERS = $8B85;
-  GL_ACTIVE_UNIFORMS = $8B86;
-  GL_ACTIVE_UNIFORM_MAX_LENGTH = $8B87;
-  GL_SHADER_SOURCE_LENGTH = $8B88;
-  GL_ACTIVE_ATTRIBUTES = $8B89;
-  GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = $8B8A;
-  GL_FRAGMENT_SHADER_DERIVATIVE_HINT = $8B8B;
-  GL_SHADING_LANGUAGE_VERSION = $8B8C;
-  GL_CURRENT_PROGRAM = $8B8D;
-  GL_POINT_SPRITE_COORD_ORIGIN = $8CA0;
-  GL_LOWER_LEFT = $8CA1;
-  GL_UPPER_LEFT = $8CA2;
-  GL_STENCIL_BACK_REF = $8CA3;
-  GL_STENCIL_BACK_VALUE_MASK = $8CA4;
-  GL_STENCIL_BACK_WRITEMASK = $8CA5;
-var
-  glBlendEquationSeparate: procedure(modeRGB: GLenum; modeAlpha: GLenum); stdcall = nil;
-  glDrawBuffers: procedure(n: GLsizei; const bufs: PGLenum); stdcall = nil;
-  glStencilOpSeparate: procedure(face: GLenum; sfail: GLenum; dpfail: GLenum; dppass: GLenum); stdcall = nil;
-  glStencilFuncSeparate: procedure(frontfunc: GLenum; backfunc: GLenum; ref: GLint; mask: GLuint); stdcall = nil;
-  glStencilMaskSeparate: procedure(face: GLenum; mask: GLuint); stdcall = nil;
-  glAttachShader: procedure(_program: GLuint; shader: GLuint); stdcall = nil;
-  glBindAttribLocation: procedure(_program: GLuint; index: GLuint; const name: PGLchar); stdcall = nil;
-  glCompileShader: procedure(shader: GLuint); stdcall = nil;
-  glCreateProgram: function(): GLuint; stdcall = nil;
-  glCreateShader: function(_type: GLenum): GLuint; stdcall = nil;
-  glDeleteProgram: procedure(_program: GLuint); stdcall = nil;
-  glDeleteShader: procedure(shader: GLuint); stdcall = nil;
-  glDetachShader: procedure(_program: GLuint; shader: GLuint); stdcall = nil;
-  glDisableVertexAttribArray: procedure(index: GLuint); stdcall = nil;
-  glEnableVertexAttribArray: procedure(index: GLuint); stdcall = nil;
-  glGetActiveAttrib: procedure(_program: GLuint; index: GLuint; bufSize: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLchar); stdcall = nil;
-  glGetActiveUniform: procedure(_program: GLuint; index: GLuint; bufSize: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLchar); stdcall = nil;
-  glGetAttachedShaders: procedure(_program: GLuint; maxCount: GLsizei; count: PGLsizei; obj: PGLuint); stdcall = nil;
-  glGetAttribLocation: function(_program: GLuint; const name: PGLchar): GLint; stdcall = nil;
-  glGetProgramiv: procedure(_program: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetProgramInfoLog: procedure(_program: GLuint; bufSize: GLsizei; length: PGLsizei; infoLog: PGLchar); stdcall = nil;
-  glGetShaderiv: procedure(shader: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetShaderInfoLog: procedure(shader: GLuint; bufSize: GLsizei; length: PGLsizei; infoLog: PGLchar); stdcall = nil;
-  glGetShaderSource: procedure(shader: GLuint; bufSize: GLsizei; length: PGLsizei; source: PGLchar); stdcall = nil;
-  glGetUniformLocation: function(_program: GLuint; const name: PGLchar): GLint; stdcall = nil;
-  glGetUniformfv: procedure(_program: GLuint; location: GLint; params: PGLfloat); stdcall = nil;
-  glGetUniformiv: procedure(_program: GLuint; location: GLint; params: PGLint); stdcall = nil;
-  glGetVertexAttribdv: procedure(index: GLuint; pname: GLenum; params: PGLdouble); stdcall = nil;
-  glGetVertexAttribfv: procedure(index: GLuint; pname: GLenum; params: PGLfloat); stdcall = nil;
-  glGetVertexAttribiv: procedure(index: GLuint; pname: GLenum; params: PGLint); stdcall = nil;
-  glGetVertexAttribPointerv: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); stdcall = nil;
-  glIsProgram: function(_program: GLuint): GLboolean; stdcall = nil;
-  glIsShader: function(shader: GLuint): GLboolean; stdcall = nil;
-  glLinkProgram: procedure(_program: GLuint); stdcall = nil;
-  glShaderSource: procedure(shader: GLuint; count: GLsizei; const _string: PGLchar; const length: PGLint); stdcall = nil;
-  glUseProgram: procedure(_program: GLuint); stdcall = nil;
-  glUniform1f: procedure(location: GLint; v0: GLfloat); stdcall = nil;
-  glUniform2f: procedure(location: GLint; v0: GLfloat; v1: GLfloat); stdcall = nil;
-  glUniform3f: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat); stdcall = nil;
-  glUniform4f: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat; v3: GLfloat); stdcall = nil;
-  glUniform1i: procedure(location: GLint; v0: GLint); stdcall = nil;
-  glUniform2i: procedure(location: GLint; v0: GLint; v1: GLint); stdcall = nil;
-  glUniform3i: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint); stdcall = nil;
-  glUniform4i: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint; v3: GLint); stdcall = nil;
-  glUniform1fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); stdcall = nil;
-  glUniform2fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); stdcall = nil;
-  glUniform3fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); stdcall = nil;
-  glUniform4fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); stdcall = nil;
-  glUniform1iv: procedure(location: GLint; count: GLsizei; const value: PGLint); stdcall = nil;
-  glUniform2iv: procedure(location: GLint; count: GLsizei; const value: PGLint); stdcall = nil;
-  glUniform3iv: procedure(location: GLint; count: GLsizei; const value: PGLint); stdcall = nil;
-  glUniform4iv: procedure(location: GLint; count: GLsizei; const value: PGLint); stdcall = nil;
-  glUniformMatrix2fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); stdcall = nil;
-  glUniformMatrix3fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); stdcall = nil;
-  glUniformMatrix4fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); stdcall = nil;
-  glValidateProgram: procedure(_program: GLuint); stdcall = nil;
-  glVertexAttrib1d: procedure(index: GLuint; x: GLdouble); stdcall = nil;
-  glVertexAttrib1dv: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib1f: procedure(index: GLuint; x: GLfloat); stdcall = nil;
-  glVertexAttrib1fv: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib1s: procedure(index: GLuint; x: GLshort); stdcall = nil;
-  glVertexAttrib1sv: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib2d: procedure(index: GLuint; x: GLdouble; y: GLdouble); stdcall = nil;
-  glVertexAttrib2dv: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib2f: procedure(index: GLuint; x: GLfloat; y: GLfloat); stdcall = nil;
-  glVertexAttrib2fv: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib2s: procedure(index: GLuint; x: GLshort; y: GLshort); stdcall = nil;
-  glVertexAttrib2sv: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib3d: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); stdcall = nil;
-  glVertexAttrib3dv: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib3f: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); stdcall = nil;
-  glVertexAttrib3fv: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib3s: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); stdcall = nil;
-  glVertexAttrib3sv: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4Nbv: procedure(index: GLuint; const v: PGLbyte); stdcall = nil;
-  glVertexAttrib4Niv: procedure(index: GLuint; const v: PGLint); stdcall = nil;
-  glVertexAttrib4Nsv: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4Nub: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); stdcall = nil;
-  glVertexAttrib4Nubv: procedure(index: GLuint; const v: PGLubyte); stdcall = nil;
-  glVertexAttrib4Nuiv: procedure(index: GLuint; const v: PGLuint); stdcall = nil;
-  glVertexAttrib4Nusv: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttrib4bv: procedure(index: GLuint; const v: PGLbyte); stdcall = nil;
-  glVertexAttrib4d: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); stdcall = nil;
-  glVertexAttrib4dv: procedure(index: GLuint; const v: PGLdouble); stdcall = nil;
-  glVertexAttrib4f: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); stdcall = nil;
-  glVertexAttrib4fv: procedure(index: GLuint; const v: PGLfloat); stdcall = nil;
-  glVertexAttrib4iv: procedure(index: GLuint; const v: PGLint); stdcall = nil;
-  glVertexAttrib4s: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); stdcall = nil;
-  glVertexAttrib4sv: procedure(index: GLuint; const v: PGLshort); stdcall = nil;
-  glVertexAttrib4ubv: procedure(index: GLuint; const v: PGLubyte); stdcall = nil;
-  glVertexAttrib4uiv: procedure(index: GLuint; const v: PGLuint); stdcall = nil;
-  glVertexAttrib4usv: procedure(index: GLuint; const v: PGLushort); stdcall = nil;
-  glVertexAttribPointer: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; const pointer: PGLvoid); stdcall = nil;
-
-function Load_GL_version_2_0: Boolean;
-
-implementation
-
-function glext_ExtensionSupported(const extension: String; const searchIn: String): Boolean;
-var
-  extensions: PChar;
-  start: PChar;
-  where, terminator: PChar;
-begin
-
-  if (Pos(' ', extension) <> 0) or (extension = '') then
-  begin
-    Result := FALSE;
-    Exit;
-  end;
-
-  if searchIn = '' then extensions := PChar(glGetString(GL_EXTENSIONS))
-  else extensions := PChar(searchIn);
-  start := extensions;
-  while TRUE do
-  begin
-    where := StrPos(start, PChar(extension));
-    if where = nil then Break;
-    terminator := Pointer(Integer(where) + Length(extension));
-    if (where = start) or (PChar(Integer(where) - 1)^ = ' ') then
-    begin
-      if (terminator^ = ' ') or (terminator^ = #0) then
-      begin
-       Result := TRUE;
-       Exit;
-      end;
-    end;
-    start := terminator;
-  end;
-  Result := FALSE;
-
-end;
-
-function Load_GL_version_1_2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-    glDrawRangeElements := wglGetProcAddress('glDrawRangeElements');
-    if not Assigned(glDrawRangeElements) then Exit;
-    glTexImage3D := wglGetProcAddress('glTexImage3D');
-    if not Assigned(glTexImage3D) then Exit;
-    glTexSubImage3D := wglGetProcAddress('glTexSubImage3D');
-    if not Assigned(glTexSubImage3D) then Exit;
-    glCopyTexSubImage3D := wglGetProcAddress('glCopyTexSubImage3D');
-    if not Assigned(glCopyTexSubImage3D) then Exit;
-    Result := TRUE;
-
-end;
-
-function Load_GL_ARB_imaging: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_imaging', extstring) then
-  begin
-    glColorTable := wglGetProcAddress('glColorTable');
-    if not Assigned(glColorTable) then Exit;
-    glColorTableParameterfv := wglGetProcAddress('glColorTableParameterfv');
-    if not Assigned(glColorTableParameterfv) then Exit;
-    glColorTableParameteriv := wglGetProcAddress('glColorTableParameteriv');
-    if not Assigned(glColorTableParameteriv) then Exit;
-    glCopyColorTable := wglGetProcAddress('glCopyColorTable');
-    if not Assigned(glCopyColorTable) then Exit;
-    glGetColorTable := wglGetProcAddress('glGetColorTable');
-    if not Assigned(glGetColorTable) then Exit;
-    glGetColorTableParameterfv := wglGetProcAddress('glGetColorTableParameterfv');
-    if not Assigned(glGetColorTableParameterfv) then Exit;
-    glGetColorTableParameteriv := wglGetProcAddress('glGetColorTableParameteriv');
-    if not Assigned(glGetColorTableParameteriv) then Exit;
-    glColorSubTable := wglGetProcAddress('glColorSubTable');
-    if not Assigned(glColorSubTable) then Exit;
-    glCopyColorSubTable := wglGetProcAddress('glCopyColorSubTable');
-    if not Assigned(glCopyColorSubTable) then Exit;
-    glConvolutionFilter1D := wglGetProcAddress('glConvolutionFilter1D');
-    if not Assigned(glConvolutionFilter1D) then Exit;
-    glConvolutionFilter2D := wglGetProcAddress('glConvolutionFilter2D');
-    if not Assigned(glConvolutionFilter2D) then Exit;
-    glConvolutionParameterf := wglGetProcAddress('glConvolutionParameterf');
-    if not Assigned(glConvolutionParameterf) then Exit;
-    glConvolutionParameterfv := wglGetProcAddress('glConvolutionParameterfv');
-    if not Assigned(glConvolutionParameterfv) then Exit;
-    glConvolutionParameteri := wglGetProcAddress('glConvolutionParameteri');
-    if not Assigned(glConvolutionParameteri) then Exit;
-    glConvolutionParameteriv := wglGetProcAddress('glConvolutionParameteriv');
-    if not Assigned(glConvolutionParameteriv) then Exit;
-    glCopyConvolutionFilter1D := wglGetProcAddress('glCopyConvolutionFilter1D');
-    if not Assigned(glCopyConvolutionFilter1D) then Exit;
-    glCopyConvolutionFilter2D := wglGetProcAddress('glCopyConvolutionFilter2D');
-    if not Assigned(glCopyConvolutionFilter2D) then Exit;
-    glGetConvolutionFilter := wglGetProcAddress('glGetConvolutionFilter');
-    if not Assigned(glGetConvolutionFilter) then Exit;
-    glGetConvolutionParameterfv := wglGetProcAddress('glGetConvolutionParameterfv');
-    if not Assigned(glGetConvolutionParameterfv) then Exit;
-    glGetConvolutionParameteriv := wglGetProcAddress('glGetConvolutionParameteriv');
-    if not Assigned(glGetConvolutionParameteriv) then Exit;
-    glGetSeparableFilter := wglGetProcAddress('glGetSeparableFilter');
-    if not Assigned(glGetSeparableFilter) then Exit;
-    glSeparableFilter2D := wglGetProcAddress('glSeparableFilter2D');
-    if not Assigned(glSeparableFilter2D) then Exit;
-    glGetHistogram := wglGetProcAddress('glGetHistogram');
-    if not Assigned(glGetHistogram) then Exit;
-    glGetHistogramParameterfv := wglGetProcAddress('glGetHistogramParameterfv');
-    if not Assigned(glGetHistogramParameterfv) then Exit;
-    glGetHistogramParameteriv := wglGetProcAddress('glGetHistogramParameteriv');
-    if not Assigned(glGetHistogramParameteriv) then Exit;
-    glGetMinmax := wglGetProcAddress('glGetMinmax');
-    if not Assigned(glGetMinmax) then Exit;
-    glGetMinmaxParameterfv := wglGetProcAddress('glGetMinmaxParameterfv');
-    if not Assigned(glGetMinmaxParameterfv) then Exit;
-    glGetMinmaxParameteriv := wglGetProcAddress('glGetMinmaxParameteriv');
-    if not Assigned(glGetMinmaxParameteriv) then Exit;
-    glHistogram := wglGetProcAddress('glHistogram');
-    if not Assigned(glHistogram) then Exit;
-    glMinmax := wglGetProcAddress('glMinmax');
-    if not Assigned(glMinmax) then Exit;
-    glResetHistogram := wglGetProcAddress('glResetHistogram');
-    if not Assigned(glResetHistogram) then Exit;
-    glResetMinmax := wglGetProcAddress('glResetMinmax');
-    if not Assigned(glResetMinmax) then Exit;
-    glBlendEquation := wglGetProcAddress('glBlendEquation');
-    if not Assigned(glBlendEquation) then Exit;
-    glBlendColor := wglGetProcAddress('glBlendColor');
-    if not Assigned(glBlendColor) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_version_1_3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-    glActiveTexture := wglGetProcAddress('glActiveTexture');
-    if not Assigned(glActiveTexture) then Exit;
-    glClientActiveTexture := wglGetProcAddress('glClientActiveTexture');
-    if not Assigned(glClientActiveTexture) then Exit;
-    glMultiTexCoord1d := wglGetProcAddress('glMultiTexCoord1d');
-    if not Assigned(glMultiTexCoord1d) then Exit;
-    glMultiTexCoord1dv := wglGetProcAddress('glMultiTexCoord1dv');
-    if not Assigned(glMultiTexCoord1dv) then Exit;
-    glMultiTexCoord1f := wglGetProcAddress('glMultiTexCoord1f');
-    if not Assigned(glMultiTexCoord1f) then Exit;
-    glMultiTexCoord1fv := wglGetProcAddress('glMultiTexCoord1fv');
-    if not Assigned(glMultiTexCoord1fv) then Exit;
-    glMultiTexCoord1i := wglGetProcAddress('glMultiTexCoord1i');
-    if not Assigned(glMultiTexCoord1i) then Exit;
-    glMultiTexCoord1iv := wglGetProcAddress('glMultiTexCoord1iv');
-    if not Assigned(glMultiTexCoord1iv) then Exit;
-    glMultiTexCoord1s := wglGetProcAddress('glMultiTexCoord1s');
-    if not Assigned(glMultiTexCoord1s) then Exit;
-    glMultiTexCoord1sv := wglGetProcAddress('glMultiTexCoord1sv');
-    if not Assigned(glMultiTexCoord1sv) then Exit;
-    glMultiTexCoord2d := wglGetProcAddress('glMultiTexCoord2d');
-    if not Assigned(glMultiTexCoord2d) then Exit;
-    glMultiTexCoord2dv := wglGetProcAddress('glMultiTexCoord2dv');
-    if not Assigned(glMultiTexCoord2dv) then Exit;
-    glMultiTexCoord2f := wglGetProcAddress('glMultiTexCoord2f');
-    if not Assigned(glMultiTexCoord2f) then Exit;
-    glMultiTexCoord2fv := wglGetProcAddress('glMultiTexCoord2fv');
-    if not Assigned(glMultiTexCoord2fv) then Exit;
-    glMultiTexCoord2i := wglGetProcAddress('glMultiTexCoord2i');
-    if not Assigned(glMultiTexCoord2i) then Exit;
-    glMultiTexCoord2iv := wglGetProcAddress('glMultiTexCoord2iv');
-    if not Assigned(glMultiTexCoord2iv) then Exit;
-    glMultiTexCoord2s := wglGetProcAddress('glMultiTexCoord2s');
-    if not Assigned(glMultiTexCoord2s) then Exit;
-    glMultiTexCoord2sv := wglGetProcAddress('glMultiTexCoord2sv');
-    if not Assigned(glMultiTexCoord2sv) then Exit;
-    glMultiTexCoord3d := wglGetProcAddress('glMultiTexCoord3d');
-    if not Assigned(glMultiTexCoord3d) then Exit;
-    glMultiTexCoord3dv := wglGetProcAddress('glMultiTexCoord3dv');
-    if not Assigned(glMultiTexCoord3dv) then Exit;
-    glMultiTexCoord3f := wglGetProcAddress('glMultiTexCoord3f');
-    if not Assigned(glMultiTexCoord3f) then Exit;
-    glMultiTexCoord3fv := wglGetProcAddress('glMultiTexCoord3fv');
-    if not Assigned(glMultiTexCoord3fv) then Exit;
-    glMultiTexCoord3i := wglGetProcAddress('glMultiTexCoord3i');
-    if not Assigned(glMultiTexCoord3i) then Exit;
-    glMultiTexCoord3iv := wglGetProcAddress('glMultiTexCoord3iv');
-    if not Assigned(glMultiTexCoord3iv) then Exit;
-    glMultiTexCoord3s := wglGetProcAddress('glMultiTexCoord3s');
-    if not Assigned(glMultiTexCoord3s) then Exit;
-    glMultiTexCoord3sv := wglGetProcAddress('glMultiTexCoord3sv');
-    if not Assigned(glMultiTexCoord3sv) then Exit;
-    glMultiTexCoord4d := wglGetProcAddress('glMultiTexCoord4d');
-    if not Assigned(glMultiTexCoord4d) then Exit;
-    glMultiTexCoord4dv := wglGetProcAddress('glMultiTexCoord4dv');
-    if not Assigned(glMultiTexCoord4dv) then Exit;
-    glMultiTexCoord4f := wglGetProcAddress('glMultiTexCoord4f');
-    if not Assigned(glMultiTexCoord4f) then Exit;
-    glMultiTexCoord4fv := wglGetProcAddress('glMultiTexCoord4fv');
-    if not Assigned(glMultiTexCoord4fv) then Exit;
-    glMultiTexCoord4i := wglGetProcAddress('glMultiTexCoord4i');
-    if not Assigned(glMultiTexCoord4i) then Exit;
-    glMultiTexCoord4iv := wglGetProcAddress('glMultiTexCoord4iv');
-    if not Assigned(glMultiTexCoord4iv) then Exit;
-    glMultiTexCoord4s := wglGetProcAddress('glMultiTexCoord4s');
-    if not Assigned(glMultiTexCoord4s) then Exit;
-    glMultiTexCoord4sv := wglGetProcAddress('glMultiTexCoord4sv');
-    if not Assigned(glMultiTexCoord4sv) then Exit;
-    glLoadTransposeMatrixf := wglGetProcAddress('glLoadTransposeMatrixf');
-    if not Assigned(glLoadTransposeMatrixf) then Exit;
-    glLoadTransposeMatrixd := wglGetProcAddress('glLoadTransposeMatrixd');
-    if not Assigned(glLoadTransposeMatrixd) then Exit;
-    glMultTransposeMatrixf := wglGetProcAddress('glMultTransposeMatrixf');
-    if not Assigned(glMultTransposeMatrixf) then Exit;
-    glMultTransposeMatrixd := wglGetProcAddress('glMultTransposeMatrixd');
-    if not Assigned(glMultTransposeMatrixd) then Exit;
-    glSampleCoverage := wglGetProcAddress('glSampleCoverage');
-    if not Assigned(glSampleCoverage) then Exit;
-    glCompressedTexImage3D := wglGetProcAddress('glCompressedTexImage3D');
-    if not Assigned(glCompressedTexImage3D) then Exit;
-    glCompressedTexImage2D := wglGetProcAddress('glCompressedTexImage2D');
-    if not Assigned(glCompressedTexImage2D) then Exit;
-    glCompressedTexImage1D := wglGetProcAddress('glCompressedTexImage1D');
-    if not Assigned(glCompressedTexImage1D) then Exit;
-    glCompressedTexSubImage3D := wglGetProcAddress('glCompressedTexSubImage3D');
-    if not Assigned(glCompressedTexSubImage3D) then Exit;
-    glCompressedTexSubImage2D := wglGetProcAddress('glCompressedTexSubImage2D');
-    if not Assigned(glCompressedTexSubImage2D) then Exit;
-    glCompressedTexSubImage1D := wglGetProcAddress('glCompressedTexSubImage1D');
-    if not Assigned(glCompressedTexSubImage1D) then Exit;
-    glGetCompressedTexImage := wglGetProcAddress('glGetCompressedTexImage');
-    if not Assigned(glGetCompressedTexImage) then Exit;
-    Result := TRUE;
-
-end;
-
-function Load_GL_ARB_multitexture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_multitexture', extstring) then
-  begin
-    glActiveTextureARB := wglGetProcAddress('glActiveTextureARB');
-    if not Assigned(glActiveTextureARB) then Exit;
-    glClientActiveTextureARB := wglGetProcAddress('glClientActiveTextureARB');
-    if not Assigned(glClientActiveTextureARB) then Exit;
-    glMultiTexCoord1dARB := wglGetProcAddress('glMultiTexCoord1dARB');
-    if not Assigned(glMultiTexCoord1dARB) then Exit;
-    glMultiTexCoord1dvARB := wglGetProcAddress('glMultiTexCoord1dvARB');
-    if not Assigned(glMultiTexCoord1dvARB) then Exit;
-    glMultiTexCoord1fARB := wglGetProcAddress('glMultiTexCoord1fARB');
-    if not Assigned(glMultiTexCoord1fARB) then Exit;
-    glMultiTexCoord1fvARB := wglGetProcAddress('glMultiTexCoord1fvARB');
-    if not Assigned(glMultiTexCoord1fvARB) then Exit;
-    glMultiTexCoord1iARB := wglGetProcAddress('glMultiTexCoord1iARB');
-    if not Assigned(glMultiTexCoord1iARB) then Exit;
-    glMultiTexCoord1ivARB := wglGetProcAddress('glMultiTexCoord1ivARB');
-    if not Assigned(glMultiTexCoord1ivARB) then Exit;
-    glMultiTexCoord1sARB := wglGetProcAddress('glMultiTexCoord1sARB');
-    if not Assigned(glMultiTexCoord1sARB) then Exit;
-    glMultiTexCoord1svARB := wglGetProcAddress('glMultiTexCoord1svARB');
-    if not Assigned(glMultiTexCoord1svARB) then Exit;
-    glMultiTexCoord2dARB := wglGetProcAddress('glMultiTexCoord2dARB');
-    if not Assigned(glMultiTexCoord2dARB) then Exit;
-    glMultiTexCoord2dvARB := wglGetProcAddress('glMultiTexCoord2dvARB');
-    if not Assigned(glMultiTexCoord2dvARB) then Exit;
-    glMultiTexCoord2fARB := wglGetProcAddress('glMultiTexCoord2fARB');
-    if not Assigned(glMultiTexCoord2fARB) then Exit;
-    glMultiTexCoord2fvARB := wglGetProcAddress('glMultiTexCoord2fvARB');
-    if not Assigned(glMultiTexCoord2fvARB) then Exit;
-    glMultiTexCoord2iARB := wglGetProcAddress('glMultiTexCoord2iARB');
-    if not Assigned(glMultiTexCoord2iARB) then Exit;
-    glMultiTexCoord2ivARB := wglGetProcAddress('glMultiTexCoord2ivARB');
-    if not Assigned(glMultiTexCoord2ivARB) then Exit;
-    glMultiTexCoord2sARB := wglGetProcAddress('glMultiTexCoord2sARB');
-    if not Assigned(glMultiTexCoord2sARB) then Exit;
-    glMultiTexCoord2svARB := wglGetProcAddress('glMultiTexCoord2svARB');
-    if not Assigned(glMultiTexCoord2svARB) then Exit;
-    glMultiTexCoord3dARB := wglGetProcAddress('glMultiTexCoord3dARB');
-    if not Assigned(glMultiTexCoord3dARB) then Exit;
-    glMultiTexCoord3dvARB := wglGetProcAddress('glMultiTexCoord3dvARB');
-    if not Assigned(glMultiTexCoord3dvARB) then Exit;
-    glMultiTexCoord3fARB := wglGetProcAddress('glMultiTexCoord3fARB');
-    if not Assigned(glMultiTexCoord3fARB) then Exit;
-    glMultiTexCoord3fvARB := wglGetProcAddress('glMultiTexCoord3fvARB');
-    if not Assigned(glMultiTexCoord3fvARB) then Exit;
-    glMultiTexCoord3iARB := wglGetProcAddress('glMultiTexCoord3iARB');
-    if not Assigned(glMultiTexCoord3iARB) then Exit;
-    glMultiTexCoord3ivARB := wglGetProcAddress('glMultiTexCoord3ivARB');
-    if not Assigned(glMultiTexCoord3ivARB) then Exit;
-    glMultiTexCoord3sARB := wglGetProcAddress('glMultiTexCoord3sARB');
-    if not Assigned(glMultiTexCoord3sARB) then Exit;
-    glMultiTexCoord3svARB := wglGetProcAddress('glMultiTexCoord3svARB');
-    if not Assigned(glMultiTexCoord3svARB) then Exit;
-    glMultiTexCoord4dARB := wglGetProcAddress('glMultiTexCoord4dARB');
-    if not Assigned(glMultiTexCoord4dARB) then Exit;
-    glMultiTexCoord4dvARB := wglGetProcAddress('glMultiTexCoord4dvARB');
-    if not Assigned(glMultiTexCoord4dvARB) then Exit;
-    glMultiTexCoord4fARB := wglGetProcAddress('glMultiTexCoord4fARB');
-    if not Assigned(glMultiTexCoord4fARB) then Exit;
-    glMultiTexCoord4fvARB := wglGetProcAddress('glMultiTexCoord4fvARB');
-    if not Assigned(glMultiTexCoord4fvARB) then Exit;
-    glMultiTexCoord4iARB := wglGetProcAddress('glMultiTexCoord4iARB');
-    if not Assigned(glMultiTexCoord4iARB) then Exit;
-    glMultiTexCoord4ivARB := wglGetProcAddress('glMultiTexCoord4ivARB');
-    if not Assigned(glMultiTexCoord4ivARB) then Exit;
-    glMultiTexCoord4sARB := wglGetProcAddress('glMultiTexCoord4sARB');
-    if not Assigned(glMultiTexCoord4sARB) then Exit;
-    glMultiTexCoord4svARB := wglGetProcAddress('glMultiTexCoord4svARB');
-    if not Assigned(glMultiTexCoord4svARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_transpose_matrix: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_transpose_matrix', extstring) then
-  begin
-    glLoadTransposeMatrixfARB := wglGetProcAddress('glLoadTransposeMatrixfARB');
-    if not Assigned(glLoadTransposeMatrixfARB) then Exit;
-    glLoadTransposeMatrixdARB := wglGetProcAddress('glLoadTransposeMatrixdARB');
-    if not Assigned(glLoadTransposeMatrixdARB) then Exit;
-    glMultTransposeMatrixfARB := wglGetProcAddress('glMultTransposeMatrixfARB');
-    if not Assigned(glMultTransposeMatrixfARB) then Exit;
-    glMultTransposeMatrixdARB := wglGetProcAddress('glMultTransposeMatrixdARB');
-    if not Assigned(glMultTransposeMatrixdARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_multisample: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_multisample', extstring) then
-  begin
-    glSampleCoverageARB := wglGetProcAddress('glSampleCoverageARB');
-    if not Assigned(glSampleCoverageARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_env_add: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_env_add', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_extensions_string: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_extensions_string', extstring) then
-  begin
-    wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-    if not Assigned(wglGetExtensionsStringARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_buffer_region: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_buffer_region', extstring) then
-  begin
-    wglCreateBufferRegionARB := wglGetProcAddress('wglCreateBufferRegionARB');
-    if not Assigned(wglCreateBufferRegionARB) then Exit;
-    wglDeleteBufferRegionARB := wglGetProcAddress('wglDeleteBufferRegionARB');
-    if not Assigned(wglDeleteBufferRegionARB) then Exit;
-    wglSaveBufferRegionARB := wglGetProcAddress('wglSaveBufferRegionARB');
-    if not Assigned(wglSaveBufferRegionARB) then Exit;
-    wglRestoreBufferRegionARB := wglGetProcAddress('wglRestoreBufferRegionARB');
-    if not Assigned(wglRestoreBufferRegionARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_cube_map: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_cube_map', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_depth_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_depth_texture', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_point_parameters: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_point_parameters', extstring) then
-  begin
-    glPointParameterfARB := wglGetProcAddress('glPointParameterfARB');
-    if not Assigned(glPointParameterfARB) then Exit;
-    glPointParameterfvARB := wglGetProcAddress('glPointParameterfvARB');
-    if not Assigned(glPointParameterfvARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_shadow: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_shadow', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_shadow_ambient: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_shadow_ambient', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_border_clamp: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_border_clamp', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_compression: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_compression', extstring) then
-  begin
-    glCompressedTexImage3DARB := wglGetProcAddress('glCompressedTexImage3DARB');
-    if not Assigned(glCompressedTexImage3DARB) then Exit;
-    glCompressedTexImage2DARB := wglGetProcAddress('glCompressedTexImage2DARB');
-    if not Assigned(glCompressedTexImage2DARB) then Exit;
-    glCompressedTexImage1DARB := wglGetProcAddress('glCompressedTexImage1DARB');
-    if not Assigned(glCompressedTexImage1DARB) then Exit;
-    glCompressedTexSubImage3DARB := wglGetProcAddress('glCompressedTexSubImage3DARB');
-    if not Assigned(glCompressedTexSubImage3DARB) then Exit;
-    glCompressedTexSubImage2DARB := wglGetProcAddress('glCompressedTexSubImage2DARB');
-    if not Assigned(glCompressedTexSubImage2DARB) then Exit;
-    glCompressedTexSubImage1DARB := wglGetProcAddress('glCompressedTexSubImage1DARB');
-    if not Assigned(glCompressedTexSubImage1DARB) then Exit;
-    glGetCompressedTexImageARB := wglGetProcAddress('glGetCompressedTexImageARB');
-    if not Assigned(glGetCompressedTexImageARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_env_combine: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_env_combine', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_env_crossbar: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_env_crossbar', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_env_dot3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_env_dot3', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_mirrored_repeat: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_mirrored_repeat', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_vertex_blend: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_vertex_blend', extstring) then
-  begin
-    glWeightbvARB := wglGetProcAddress('glWeightbvARB');
-    if not Assigned(glWeightbvARB) then Exit;
-    glWeightsvARB := wglGetProcAddress('glWeightsvARB');
-    if not Assigned(glWeightsvARB) then Exit;
-    glWeightivARB := wglGetProcAddress('glWeightivARB');
-    if not Assigned(glWeightivARB) then Exit;
-    glWeightfvARB := wglGetProcAddress('glWeightfvARB');
-    if not Assigned(glWeightfvARB) then Exit;
-    glWeightdvARB := wglGetProcAddress('glWeightdvARB');
-    if not Assigned(glWeightdvARB) then Exit;
-    glWeightvARB := wglGetProcAddress('glWeightvARB');
-    if not Assigned(glWeightvARB) then Exit;
-    glWeightubvARB := wglGetProcAddress('glWeightubvARB');
-    if not Assigned(glWeightubvARB) then Exit;
-    glWeightusvARB := wglGetProcAddress('glWeightusvARB');
-    if not Assigned(glWeightusvARB) then Exit;
-    glWeightuivARB := wglGetProcAddress('glWeightuivARB');
-    if not Assigned(glWeightuivARB) then Exit;
-    glWeightPointerARB := wglGetProcAddress('glWeightPointerARB');
-    if not Assigned(glWeightPointerARB) then Exit;
-    glVertexBlendARB := wglGetProcAddress('glVertexBlendARB');
-    if not Assigned(glVertexBlendARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_vertex_program: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_vertex_program', extstring) then
-  begin
-    glVertexAttrib1sARB := wglGetProcAddress('glVertexAttrib1sARB');
-    if not Assigned(glVertexAttrib1sARB) then Exit;
-    glVertexAttrib1fARB := wglGetProcAddress('glVertexAttrib1fARB');
-    if not Assigned(glVertexAttrib1fARB) then Exit;
-    glVertexAttrib1dARB := wglGetProcAddress('glVertexAttrib1dARB');
-    if not Assigned(glVertexAttrib1dARB) then Exit;
-    glVertexAttrib2sARB := wglGetProcAddress('glVertexAttrib2sARB');
-    if not Assigned(glVertexAttrib2sARB) then Exit;
-    glVertexAttrib2fARB := wglGetProcAddress('glVertexAttrib2fARB');
-    if not Assigned(glVertexAttrib2fARB) then Exit;
-    glVertexAttrib2dARB := wglGetProcAddress('glVertexAttrib2dARB');
-    if not Assigned(glVertexAttrib2dARB) then Exit;
-    glVertexAttrib3sARB := wglGetProcAddress('glVertexAttrib3sARB');
-    if not Assigned(glVertexAttrib3sARB) then Exit;
-    glVertexAttrib3fARB := wglGetProcAddress('glVertexAttrib3fARB');
-    if not Assigned(glVertexAttrib3fARB) then Exit;
-    glVertexAttrib3dARB := wglGetProcAddress('glVertexAttrib3dARB');
-    if not Assigned(glVertexAttrib3dARB) then Exit;
-    glVertexAttrib4sARB := wglGetProcAddress('glVertexAttrib4sARB');
-    if not Assigned(glVertexAttrib4sARB) then Exit;
-    glVertexAttrib4fARB := wglGetProcAddress('glVertexAttrib4fARB');
-    if not Assigned(glVertexAttrib4fARB) then Exit;
-    glVertexAttrib4dARB := wglGetProcAddress('glVertexAttrib4dARB');
-    if not Assigned(glVertexAttrib4dARB) then Exit;
-    glVertexAttrib4NubARB := wglGetProcAddress('glVertexAttrib4NubARB');
-    if not Assigned(glVertexAttrib4NubARB) then Exit;
-    glVertexAttrib1svARB := wglGetProcAddress('glVertexAttrib1svARB');
-    if not Assigned(glVertexAttrib1svARB) then Exit;
-    glVertexAttrib1fvARB := wglGetProcAddress('glVertexAttrib1fvARB');
-    if not Assigned(glVertexAttrib1fvARB) then Exit;
-    glVertexAttrib1dvARB := wglGetProcAddress('glVertexAttrib1dvARB');
-    if not Assigned(glVertexAttrib1dvARB) then Exit;
-    glVertexAttrib2svARB := wglGetProcAddress('glVertexAttrib2svARB');
-    if not Assigned(glVertexAttrib2svARB) then Exit;
-    glVertexAttrib2fvARB := wglGetProcAddress('glVertexAttrib2fvARB');
-    if not Assigned(glVertexAttrib2fvARB) then Exit;
-    glVertexAttrib2dvARB := wglGetProcAddress('glVertexAttrib2dvARB');
-    if not Assigned(glVertexAttrib2dvARB) then Exit;
-    glVertexAttrib3svARB := wglGetProcAddress('glVertexAttrib3svARB');
-    if not Assigned(glVertexAttrib3svARB) then Exit;
-    glVertexAttrib3fvARB := wglGetProcAddress('glVertexAttrib3fvARB');
-    if not Assigned(glVertexAttrib3fvARB) then Exit;
-    glVertexAttrib3dvARB := wglGetProcAddress('glVertexAttrib3dvARB');
-    if not Assigned(glVertexAttrib3dvARB) then Exit;
-    glVertexAttrib4bvARB := wglGetProcAddress('glVertexAttrib4bvARB');
-    if not Assigned(glVertexAttrib4bvARB) then Exit;
-    glVertexAttrib4svARB := wglGetProcAddress('glVertexAttrib4svARB');
-    if not Assigned(glVertexAttrib4svARB) then Exit;
-    glVertexAttrib4ivARB := wglGetProcAddress('glVertexAttrib4ivARB');
-    if not Assigned(glVertexAttrib4ivARB) then Exit;
-    glVertexAttrib4ubvARB := wglGetProcAddress('glVertexAttrib4ubvARB');
-    if not Assigned(glVertexAttrib4ubvARB) then Exit;
-    glVertexAttrib4usvARB := wglGetProcAddress('glVertexAttrib4usvARB');
-    if not Assigned(glVertexAttrib4usvARB) then Exit;
-    glVertexAttrib4uivARB := wglGetProcAddress('glVertexAttrib4uivARB');
-    if not Assigned(glVertexAttrib4uivARB) then Exit;
-    glVertexAttrib4fvARB := wglGetProcAddress('glVertexAttrib4fvARB');
-    if not Assigned(glVertexAttrib4fvARB) then Exit;
-    glVertexAttrib4dvARB := wglGetProcAddress('glVertexAttrib4dvARB');
-    if not Assigned(glVertexAttrib4dvARB) then Exit;
-    glVertexAttrib4NbvARB := wglGetProcAddress('glVertexAttrib4NbvARB');
-    if not Assigned(glVertexAttrib4NbvARB) then Exit;
-    glVertexAttrib4NsvARB := wglGetProcAddress('glVertexAttrib4NsvARB');
-    if not Assigned(glVertexAttrib4NsvARB) then Exit;
-    glVertexAttrib4NivARB := wglGetProcAddress('glVertexAttrib4NivARB');
-    if not Assigned(glVertexAttrib4NivARB) then Exit;
-    glVertexAttrib4NubvARB := wglGetProcAddress('glVertexAttrib4NubvARB');
-    if not Assigned(glVertexAttrib4NubvARB) then Exit;
-    glVertexAttrib4NusvARB := wglGetProcAddress('glVertexAttrib4NusvARB');
-    if not Assigned(glVertexAttrib4NusvARB) then Exit;
-    glVertexAttrib4NuivARB := wglGetProcAddress('glVertexAttrib4NuivARB');
-    if not Assigned(glVertexAttrib4NuivARB) then Exit;
-    glVertexAttribPointerARB := wglGetProcAddress('glVertexAttribPointerARB');
-    if not Assigned(glVertexAttribPointerARB) then Exit;
-    glEnableVertexAttribArrayARB := wglGetProcAddress('glEnableVertexAttribArrayARB');
-    if not Assigned(glEnableVertexAttribArrayARB) then Exit;
-    glDisableVertexAttribArrayARB := wglGetProcAddress('glDisableVertexAttribArrayARB');
-    if not Assigned(glDisableVertexAttribArrayARB) then Exit;
-    glProgramStringARB := wglGetProcAddress('glProgramStringARB');
-    if not Assigned(glProgramStringARB) then Exit;
-    glBindProgramARB := wglGetProcAddress('glBindProgramARB');
-    if not Assigned(glBindProgramARB) then Exit;
-    glDeleteProgramsARB := wglGetProcAddress('glDeleteProgramsARB');
-    if not Assigned(glDeleteProgramsARB) then Exit;
-    glGenProgramsARB := wglGetProcAddress('glGenProgramsARB');
-    if not Assigned(glGenProgramsARB) then Exit;
-    glProgramEnvParameter4dARB := wglGetProcAddress('glProgramEnvParameter4dARB');
-    if not Assigned(glProgramEnvParameter4dARB) then Exit;
-    glProgramEnvParameter4dvARB := wglGetProcAddress('glProgramEnvParameter4dvARB');
-    if not Assigned(glProgramEnvParameter4dvARB) then Exit;
-    glProgramEnvParameter4fARB := wglGetProcAddress('glProgramEnvParameter4fARB');
-    if not Assigned(glProgramEnvParameter4fARB) then Exit;
-    glProgramEnvParameter4fvARB := wglGetProcAddress('glProgramEnvParameter4fvARB');
-    if not Assigned(glProgramEnvParameter4fvARB) then Exit;
-    glProgramLocalParameter4dARB := wglGetProcAddress('glProgramLocalParameter4dARB');
-    if not Assigned(glProgramLocalParameter4dARB) then Exit;
-    glProgramLocalParameter4dvARB := wglGetProcAddress('glProgramLocalParameter4dvARB');
-    if not Assigned(glProgramLocalParameter4dvARB) then Exit;
-    glProgramLocalParameter4fARB := wglGetProcAddress('glProgramLocalParameter4fARB');
-    if not Assigned(glProgramLocalParameter4fARB) then Exit;
-    glProgramLocalParameter4fvARB := wglGetProcAddress('glProgramLocalParameter4fvARB');
-    if not Assigned(glProgramLocalParameter4fvARB) then Exit;
-    glGetProgramEnvParameterdvARB := wglGetProcAddress('glGetProgramEnvParameterdvARB');
-    if not Assigned(glGetProgramEnvParameterdvARB) then Exit;
-    glGetProgramEnvParameterfvARB := wglGetProcAddress('glGetProgramEnvParameterfvARB');
-    if not Assigned(glGetProgramEnvParameterfvARB) then Exit;
-    glGetProgramLocalParameterdvARB := wglGetProcAddress('glGetProgramLocalParameterdvARB');
-    if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
-    glGetProgramLocalParameterfvARB := wglGetProcAddress('glGetProgramLocalParameterfvARB');
-    if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
-    glGetProgramivARB := wglGetProcAddress('glGetProgramivARB');
-    if not Assigned(glGetProgramivARB) then Exit;
-    glGetProgramStringARB := wglGetProcAddress('glGetProgramStringARB');
-    if not Assigned(glGetProgramStringARB) then Exit;
-    glGetVertexAttribdvARB := wglGetProcAddress('glGetVertexAttribdvARB');
-    if not Assigned(glGetVertexAttribdvARB) then Exit;
-    glGetVertexAttribfvARB := wglGetProcAddress('glGetVertexAttribfvARB');
-    if not Assigned(glGetVertexAttribfvARB) then Exit;
-    glGetVertexAttribivARB := wglGetProcAddress('glGetVertexAttribivARB');
-    if not Assigned(glGetVertexAttribivARB) then Exit;
-    glGetVertexAttribPointervARB := wglGetProcAddress('glGetVertexAttribPointervARB');
-    if not Assigned(glGetVertexAttribPointervARB) then Exit;
-    glIsProgramARB := wglGetProcAddress('glIsProgramARB');
-    if not Assigned(glIsProgramARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_window_pos: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_window_pos', extstring) then
-  begin
-    glWindowPos2dARB := wglGetProcAddress('glWindowPos2dARB');
-    if not Assigned(glWindowPos2dARB) then Exit;
-    glWindowPos2fARB := wglGetProcAddress('glWindowPos2fARB');
-    if not Assigned(glWindowPos2fARB) then Exit;
-    glWindowPos2iARB := wglGetProcAddress('glWindowPos2iARB');
-    if not Assigned(glWindowPos2iARB) then Exit;
-    glWindowPos2sARB := wglGetProcAddress('glWindowPos2sARB');
-    if not Assigned(glWindowPos2sARB) then Exit;
-    glWindowPos2dvARB := wglGetProcAddress('glWindowPos2dvARB');
-    if not Assigned(glWindowPos2dvARB) then Exit;
-    glWindowPos2fvARB := wglGetProcAddress('glWindowPos2fvARB');
-    if not Assigned(glWindowPos2fvARB) then Exit;
-    glWindowPos2ivARB := wglGetProcAddress('glWindowPos2ivARB');
-    if not Assigned(glWindowPos2ivARB) then Exit;
-    glWindowPos2svARB := wglGetProcAddress('glWindowPos2svARB');
-    if not Assigned(glWindowPos2svARB) then Exit;
-    glWindowPos3dARB := wglGetProcAddress('glWindowPos3dARB');
-    if not Assigned(glWindowPos3dARB) then Exit;
-    glWindowPos3fARB := wglGetProcAddress('glWindowPos3fARB');
-    if not Assigned(glWindowPos3fARB) then Exit;
-    glWindowPos3iARB := wglGetProcAddress('glWindowPos3iARB');
-    if not Assigned(glWindowPos3iARB) then Exit;
-    glWindowPos3sARB := wglGetProcAddress('glWindowPos3sARB');
-    if not Assigned(glWindowPos3sARB) then Exit;
-    glWindowPos3dvARB := wglGetProcAddress('glWindowPos3dvARB');
-    if not Assigned(glWindowPos3dvARB) then Exit;
-    glWindowPos3fvARB := wglGetProcAddress('glWindowPos3fvARB');
-    if not Assigned(glWindowPos3fvARB) then Exit;
-    glWindowPos3ivARB := wglGetProcAddress('glWindowPos3ivARB');
-    if not Assigned(glWindowPos3ivARB) then Exit;
-    glWindowPos3svARB := wglGetProcAddress('glWindowPos3svARB');
-    if not Assigned(glWindowPos3svARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_422_pixels: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_422_pixels', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_abgr: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_abgr', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_bgra: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_bgra', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_color: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_color', extstring) then
-  begin
-    glBlendColorEXT := wglGetProcAddress('glBlendColorEXT');
-    if not Assigned(glBlendColorEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_func_separate: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_func_separate', extstring) then
-  begin
-    glBlendFuncSeparateEXT := wglGetProcAddress('glBlendFuncSeparateEXT');
-    if not Assigned(glBlendFuncSeparateEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_logic_op: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_logic_op', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_minmax: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_minmax', extstring) then
-  begin
-    glBlendEquationEXT := wglGetProcAddress('glBlendEquationEXT');
-    if not Assigned(glBlendEquationEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_subtract: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_subtract', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_clip_volume_hint: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_clip_volume_hint', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_color_subtable: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_color_subtable', extstring) then
-  begin
-    glColorSubTableEXT := wglGetProcAddress('glColorSubTableEXT');
-    if not Assigned(glColorSubTableEXT) then Exit;
-    glCopyColorSubTableEXT := wglGetProcAddress('glCopyColorSubTableEXT');
-    if not Assigned(glCopyColorSubTableEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_compiled_vertex_array: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_compiled_vertex_array', extstring) then
-  begin
-    glLockArraysEXT := wglGetProcAddress('glLockArraysEXT');
-    if not Assigned(glLockArraysEXT) then Exit;
-    glUnlockArraysEXT := wglGetProcAddress('glUnlockArraysEXT');
-    if not Assigned(glUnlockArraysEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_convolution: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_convolution', extstring) then
-  begin
-    glConvolutionFilter1DEXT := wglGetProcAddress('glConvolutionFilter1DEXT');
-    if not Assigned(glConvolutionFilter1DEXT) then Exit;
-    glConvolutionFilter2DEXT := wglGetProcAddress('glConvolutionFilter2DEXT');
-    if not Assigned(glConvolutionFilter2DEXT) then Exit;
-    glCopyConvolutionFilter1DEXT := wglGetProcAddress('glCopyConvolutionFilter1DEXT');
-    if not Assigned(glCopyConvolutionFilter1DEXT) then Exit;
-    glCopyConvolutionFilter2DEXT := wglGetProcAddress('glCopyConvolutionFilter2DEXT');
-    if not Assigned(glCopyConvolutionFilter2DEXT) then Exit;
-    glGetConvolutionFilterEXT := wglGetProcAddress('glGetConvolutionFilterEXT');
-    if not Assigned(glGetConvolutionFilterEXT) then Exit;
-    glSeparableFilter2DEXT := wglGetProcAddress('glSeparableFilter2DEXT');
-    if not Assigned(glSeparableFilter2DEXT) then Exit;
-    glGetSeparableFilterEXT := wglGetProcAddress('glGetSeparableFilterEXT');
-    if not Assigned(glGetSeparableFilterEXT) then Exit;
-    glConvolutionParameteriEXT := wglGetProcAddress('glConvolutionParameteriEXT');
-    if not Assigned(glConvolutionParameteriEXT) then Exit;
-    glConvolutionParameterivEXT := wglGetProcAddress('glConvolutionParameterivEXT');
-    if not Assigned(glConvolutionParameterivEXT) then Exit;
-    glConvolutionParameterfEXT := wglGetProcAddress('glConvolutionParameterfEXT');
-    if not Assigned(glConvolutionParameterfEXT) then Exit;
-    glConvolutionParameterfvEXT := wglGetProcAddress('glConvolutionParameterfvEXT');
-    if not Assigned(glConvolutionParameterfvEXT) then Exit;
-    glGetConvolutionParameterivEXT := wglGetProcAddress('glGetConvolutionParameterivEXT');
-    if not Assigned(glGetConvolutionParameterivEXT) then Exit;
-    glGetConvolutionParameterfvEXT := wglGetProcAddress('glGetConvolutionParameterfvEXT');
-    if not Assigned(glGetConvolutionParameterfvEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_histogram: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_histogram', extstring) then
-  begin
-    glHistogramEXT := wglGetProcAddress('glHistogramEXT');
-    if not Assigned(glHistogramEXT) then Exit;
-    glResetHistogramEXT := wglGetProcAddress('glResetHistogramEXT');
-    if not Assigned(glResetHistogramEXT) then Exit;
-    glGetHistogramEXT := wglGetProcAddress('glGetHistogramEXT');
-    if not Assigned(glGetHistogramEXT) then Exit;
-    glGetHistogramParameterivEXT := wglGetProcAddress('glGetHistogramParameterivEXT');
-    if not Assigned(glGetHistogramParameterivEXT) then Exit;
-    glGetHistogramParameterfvEXT := wglGetProcAddress('glGetHistogramParameterfvEXT');
-    if not Assigned(glGetHistogramParameterfvEXT) then Exit;
-    glMinmaxEXT := wglGetProcAddress('glMinmaxEXT');
-    if not Assigned(glMinmaxEXT) then Exit;
-    glResetMinmaxEXT := wglGetProcAddress('glResetMinmaxEXT');
-    if not Assigned(glResetMinmaxEXT) then Exit;
-    glGetMinmaxEXT := wglGetProcAddress('glGetMinmaxEXT');
-    if not Assigned(glGetMinmaxEXT) then Exit;
-    glGetMinmaxParameterivEXT := wglGetProcAddress('glGetMinmaxParameterivEXT');
-    if not Assigned(glGetMinmaxParameterivEXT) then Exit;
-    glGetMinmaxParameterfvEXT := wglGetProcAddress('glGetMinmaxParameterfvEXT');
-    if not Assigned(glGetMinmaxParameterfvEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_multi_draw_arrays: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_multi_draw_arrays', extstring) then
-  begin
-    glMultiDrawArraysEXT := wglGetProcAddress('glMultiDrawArraysEXT');
-    if not Assigned(glMultiDrawArraysEXT) then Exit;
-    glMultiDrawElementsEXT := wglGetProcAddress('glMultiDrawElementsEXT');
-    if not Assigned(glMultiDrawElementsEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_packed_pixels: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_packed_pixels', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_paletted_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_paletted_texture', extstring) then
-  begin
-    glColorTableEXT := wglGetProcAddress('glColorTableEXT');
-    if not Assigned(glColorTableEXT) then Exit;
-    glColorSubTableEXT := wglGetProcAddress('glColorSubTableEXT');
-    if not Assigned(glColorSubTableEXT) then Exit;
-    glGetColorTableEXT := wglGetProcAddress('glGetColorTableEXT');
-    if not Assigned(glGetColorTableEXT) then Exit;
-    glGetColorTableParameterivEXT := wglGetProcAddress('glGetColorTableParameterivEXT');
-    if not Assigned(glGetColorTableParameterivEXT) then Exit;
-    glGetColorTableParameterfvEXT := wglGetProcAddress('glGetColorTableParameterfvEXT');
-    if not Assigned(glGetColorTableParameterfvEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_point_parameters: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_point_parameters', extstring) then
-  begin
-    glPointParameterfEXT := wglGetProcAddress('glPointParameterfEXT');
-    if not Assigned(glPointParameterfEXT) then Exit;
-    glPointParameterfvEXT := wglGetProcAddress('glPointParameterfvEXT');
-    if not Assigned(glPointParameterfvEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_polygon_offset: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_polygon_offset', extstring) then
-  begin
-    glPolygonOffsetEXT := wglGetProcAddress('glPolygonOffsetEXT');
-    if not Assigned(glPolygonOffsetEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_separate_specular_color: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_separate_specular_color', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_shadow_funcs: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_shadow_funcs', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_shared_texture_palette: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_shared_texture_palette', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_stencil_two_side: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_stencil_two_side', extstring) then
-  begin
-    glActiveStencilFaceEXT := wglGetProcAddress('glActiveStencilFaceEXT');
-    if not Assigned(glActiveStencilFaceEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_stencil_wrap: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_stencil_wrap', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_subtexture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_subtexture', extstring) then
-  begin
-    glTexSubImage1DEXT := wglGetProcAddress('glTexSubImage1DEXT');
-    if not Assigned(glTexSubImage1DEXT) then Exit;
-    glTexSubImage2DEXT := wglGetProcAddress('glTexSubImage2DEXT');
-    if not Assigned(glTexSubImage2DEXT) then Exit;
-    glTexSubImage3DEXT := wglGetProcAddress('glTexSubImage3DEXT');
-    if not Assigned(glTexSubImage3DEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture3D: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture3D', extstring) then
-  begin
-    glTexImage3DEXT := wglGetProcAddress('glTexImage3DEXT');
-    if not Assigned(glTexImage3DEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_compression_s3tc: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_compression_s3tc', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_env_add: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_env_add', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_env_combine: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_env_combine', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_env_dot3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_env_dot3', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_filter_anisotropic: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_filter_anisotropic', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_lod_bias: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_lod_bias', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_object', extstring) then
-  begin
-    glGenTexturesEXT := wglGetProcAddress('glGenTexturesEXT');
-    if not Assigned(glGenTexturesEXT) then Exit;
-    glDeleteTexturesEXT := wglGetProcAddress('glDeleteTexturesEXT');
-    if not Assigned(glDeleteTexturesEXT) then Exit;
-    glBindTextureEXT := wglGetProcAddress('glBindTextureEXT');
-    if not Assigned(glBindTextureEXT) then Exit;
-    glPrioritizeTexturesEXT := wglGetProcAddress('glPrioritizeTexturesEXT');
-    if not Assigned(glPrioritizeTexturesEXT) then Exit;
-    glAreTexturesResidentEXT := wglGetProcAddress('glAreTexturesResidentEXT');
-    if not Assigned(glAreTexturesResidentEXT) then Exit;
-    glIsTextureEXT := wglGetProcAddress('glIsTextureEXT');
-    if not Assigned(glIsTextureEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_vertex_array: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_vertex_array', extstring) then
-  begin
-    glArrayElementEXT := wglGetProcAddress('glArrayElementEXT');
-    if not Assigned(glArrayElementEXT) then Exit;
-    glDrawArraysEXT := wglGetProcAddress('glDrawArraysEXT');
-    if not Assigned(glDrawArraysEXT) then Exit;
-    glVertexPointerEXT := wglGetProcAddress('glVertexPointerEXT');
-    if not Assigned(glVertexPointerEXT) then Exit;
-    glNormalPointerEXT := wglGetProcAddress('glNormalPointerEXT');
-    if not Assigned(glNormalPointerEXT) then Exit;
-    glColorPointerEXT := wglGetProcAddress('glColorPointerEXT');
-    if not Assigned(glColorPointerEXT) then Exit;
-    glIndexPointerEXT := wglGetProcAddress('glIndexPointerEXT');
-    if not Assigned(glIndexPointerEXT) then Exit;
-    glTexCoordPointerEXT := wglGetProcAddress('glTexCoordPointerEXT');
-    if not Assigned(glTexCoordPointerEXT) then Exit;
-    glEdgeFlagPointerEXT := wglGetProcAddress('glEdgeFlagPointerEXT');
-    if not Assigned(glEdgeFlagPointerEXT) then Exit;
-    glGetPointervEXT := wglGetProcAddress('glGetPointervEXT');
-    if not Assigned(glGetPointervEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_vertex_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_vertex_shader', extstring) then
-  begin
-    glBeginVertexShaderEXT := wglGetProcAddress('glBeginVertexShaderEXT');
-    if not Assigned(glBeginVertexShaderEXT) then Exit;
-    glEndVertexShaderEXT := wglGetProcAddress('glEndVertexShaderEXT');
-    if not Assigned(glEndVertexShaderEXT) then Exit;
-    glBindVertexShaderEXT := wglGetProcAddress('glBindVertexShaderEXT');
-    if not Assigned(glBindVertexShaderEXT) then Exit;
-    glGenVertexShadersEXT := wglGetProcAddress('glGenVertexShadersEXT');
-    if not Assigned(glGenVertexShadersEXT) then Exit;
-    glDeleteVertexShaderEXT := wglGetProcAddress('glDeleteVertexShaderEXT');
-    if not Assigned(glDeleteVertexShaderEXT) then Exit;
-    glShaderOp1EXT := wglGetProcAddress('glShaderOp1EXT');
-    if not Assigned(glShaderOp1EXT) then Exit;
-    glShaderOp2EXT := wglGetProcAddress('glShaderOp2EXT');
-    if not Assigned(glShaderOp2EXT) then Exit;
-    glShaderOp3EXT := wglGetProcAddress('glShaderOp3EXT');
-    if not Assigned(glShaderOp3EXT) then Exit;
-    glSwizzleEXT := wglGetProcAddress('glSwizzleEXT');
-    if not Assigned(glSwizzleEXT) then Exit;
-    glWriteMaskEXT := wglGetProcAddress('glWriteMaskEXT');
-    if not Assigned(glWriteMaskEXT) then Exit;
-    glInsertComponentEXT := wglGetProcAddress('glInsertComponentEXT');
-    if not Assigned(glInsertComponentEXT) then Exit;
-    glExtractComponentEXT := wglGetProcAddress('glExtractComponentEXT');
-    if not Assigned(glExtractComponentEXT) then Exit;
-    glGenSymbolsEXT := wglGetProcAddress('glGenSymbolsEXT');
-    if not Assigned(glGenSymbolsEXT) then Exit;
-    glSetInvariantEXT := wglGetProcAddress('glSetInvariantEXT');
-    if not Assigned(glSetInvariantEXT) then Exit;
-    glSetLocalConstantEXT := wglGetProcAddress('glSetLocalConstantEXT');
-    if not Assigned(glSetLocalConstantEXT) then Exit;
-    glVariantbvEXT := wglGetProcAddress('glVariantbvEXT');
-    if not Assigned(glVariantbvEXT) then Exit;
-    glVariantsvEXT := wglGetProcAddress('glVariantsvEXT');
-    if not Assigned(glVariantsvEXT) then Exit;
-    glVariantivEXT := wglGetProcAddress('glVariantivEXT');
-    if not Assigned(glVariantivEXT) then Exit;
-    glVariantfvEXT := wglGetProcAddress('glVariantfvEXT');
-    if not Assigned(glVariantfvEXT) then Exit;
-    glVariantdvEXT := wglGetProcAddress('glVariantdvEXT');
-    if not Assigned(glVariantdvEXT) then Exit;
-    glVariantubvEXT := wglGetProcAddress('glVariantubvEXT');
-    if not Assigned(glVariantubvEXT) then Exit;
-    glVariantusvEXT := wglGetProcAddress('glVariantusvEXT');
-    if not Assigned(glVariantusvEXT) then Exit;
-    glVariantuivEXT := wglGetProcAddress('glVariantuivEXT');
-    if not Assigned(glVariantuivEXT) then Exit;
-    glVariantPointerEXT := wglGetProcAddress('glVariantPointerEXT');
-    if not Assigned(glVariantPointerEXT) then Exit;
-    glEnableVariantClientStateEXT := wglGetProcAddress('glEnableVariantClientStateEXT');
-    if not Assigned(glEnableVariantClientStateEXT) then Exit;
-    glDisableVariantClientStateEXT := wglGetProcAddress('glDisableVariantClientStateEXT');
-    if not Assigned(glDisableVariantClientStateEXT) then Exit;
-    glBindLightParameterEXT := wglGetProcAddress('glBindLightParameterEXT');
-    if not Assigned(glBindLightParameterEXT) then Exit;
-    glBindMaterialParameterEXT := wglGetProcAddress('glBindMaterialParameterEXT');
-    if not Assigned(glBindMaterialParameterEXT) then Exit;
-    glBindTexGenParameterEXT := wglGetProcAddress('glBindTexGenParameterEXT');
-    if not Assigned(glBindTexGenParameterEXT) then Exit;
-    glBindTextureUnitParameterEXT := wglGetProcAddress('glBindTextureUnitParameterEXT');
-    if not Assigned(glBindTextureUnitParameterEXT) then Exit;
-    glBindParameterEXT := wglGetProcAddress('glBindParameterEXT');
-    if not Assigned(glBindParameterEXT) then Exit;
-    glIsVariantEnabledEXT := wglGetProcAddress('glIsVariantEnabledEXT');
-    if not Assigned(glIsVariantEnabledEXT) then Exit;
-    glGetVariantBooleanvEXT := wglGetProcAddress('glGetVariantBooleanvEXT');
-    if not Assigned(glGetVariantBooleanvEXT) then Exit;
-    glGetVariantIntegervEXT := wglGetProcAddress('glGetVariantIntegervEXT');
-    if not Assigned(glGetVariantIntegervEXT) then Exit;
-    glGetVariantFloatvEXT := wglGetProcAddress('glGetVariantFloatvEXT');
-    if not Assigned(glGetVariantFloatvEXT) then Exit;
-    glGetVariantPointervEXT := wglGetProcAddress('glGetVariantPointervEXT');
-    if not Assigned(glGetVariantPointervEXT) then Exit;
-    glGetInvariantBooleanvEXT := wglGetProcAddress('glGetInvariantBooleanvEXT');
-    if not Assigned(glGetInvariantBooleanvEXT) then Exit;
-    glGetInvariantIntegervEXT := wglGetProcAddress('glGetInvariantIntegervEXT');
-    if not Assigned(glGetInvariantIntegervEXT) then Exit;
-    glGetInvariantFloatvEXT := wglGetProcAddress('glGetInvariantFloatvEXT');
-    if not Assigned(glGetInvariantFloatvEXT) then Exit;
-    glGetLocalConstantBooleanvEXT := wglGetProcAddress('glGetLocalConstantBooleanvEXT');
-    if not Assigned(glGetLocalConstantBooleanvEXT) then Exit;
-    glGetLocalConstantIntegervEXT := wglGetProcAddress('glGetLocalConstantIntegervEXT');
-    if not Assigned(glGetLocalConstantIntegervEXT) then Exit;
-    glGetLocalConstantFloatvEXT := wglGetProcAddress('glGetLocalConstantFloatvEXT');
-    if not Assigned(glGetLocalConstantFloatvEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_vertex_weighting: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_vertex_weighting', extstring) then
-  begin
-    glVertexWeightfEXT := wglGetProcAddress('glVertexWeightfEXT');
-    if not Assigned(glVertexWeightfEXT) then Exit;
-    glVertexWeightfvEXT := wglGetProcAddress('glVertexWeightfvEXT');
-    if not Assigned(glVertexWeightfvEXT) then Exit;
-    glVertexWeightPointerEXT := wglGetProcAddress('glVertexWeightPointerEXT');
-    if not Assigned(glVertexWeightPointerEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_HP_occlusion_test: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_HP_occlusion_test', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_blend_square: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_blend_square', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_copy_depth_to_color: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_copy_depth_to_color', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_depth_clamp: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_depth_clamp', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_evaluators: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_evaluators', extstring) then
-  begin
-    glMapControlPointsNV := wglGetProcAddress('glMapControlPointsNV');
-    if not Assigned(glMapControlPointsNV) then Exit;
-    glMapParameterivNV := wglGetProcAddress('glMapParameterivNV');
-    if not Assigned(glMapParameterivNV) then Exit;
-    glMapParameterfvNV := wglGetProcAddress('glMapParameterfvNV');
-    if not Assigned(glMapParameterfvNV) then Exit;
-    glGetMapControlPointsNV := wglGetProcAddress('glGetMapControlPointsNV');
-    if not Assigned(glGetMapControlPointsNV) then Exit;
-    glGetMapParameterivNV := wglGetProcAddress('glGetMapParameterivNV');
-    if not Assigned(glGetMapParameterivNV) then Exit;
-    glGetMapParameterfvNV := wglGetProcAddress('glGetMapParameterfvNV');
-    if not Assigned(glGetMapParameterfvNV) then Exit;
-    glGetMapAttribParameterivNV := wglGetProcAddress('glGetMapAttribParameterivNV');
-    if not Assigned(glGetMapAttribParameterivNV) then Exit;
-    glGetMapAttribParameterfvNV := wglGetProcAddress('glGetMapAttribParameterfvNV');
-    if not Assigned(glGetMapAttribParameterfvNV) then Exit;
-    glEvalMapsNV := wglGetProcAddress('glEvalMapsNV');
-    if not Assigned(glEvalMapsNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_fence: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_fence', extstring) then
-  begin
-    glGenFencesNV := wglGetProcAddress('glGenFencesNV');
-    if not Assigned(glGenFencesNV) then Exit;
-    glDeleteFencesNV := wglGetProcAddress('glDeleteFencesNV');
-    if not Assigned(glDeleteFencesNV) then Exit;
-    glSetFenceNV := wglGetProcAddress('glSetFenceNV');
-    if not Assigned(glSetFenceNV) then Exit;
-    glTestFenceNV := wglGetProcAddress('glTestFenceNV');
-    if not Assigned(glTestFenceNV) then Exit;
-    glFinishFenceNV := wglGetProcAddress('glFinishFenceNV');
-    if not Assigned(glFinishFenceNV) then Exit;
-    glIsFenceNV := wglGetProcAddress('glIsFenceNV');
-    if not Assigned(glIsFenceNV) then Exit;
-    glGetFenceivNV := wglGetProcAddress('glGetFenceivNV');
-    if not Assigned(glGetFenceivNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_fog_distance: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_fog_distance', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_light_max_exponent: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_light_max_exponent', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_multisample_filter_hint: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_multisample_filter_hint', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_occlusion_query: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_occlusion_query', extstring) then
-  begin
-    glGenOcclusionQueriesNV := wglGetProcAddress('glGenOcclusionQueriesNV');
-    if not Assigned(glGenOcclusionQueriesNV) then Exit;
-    glDeleteOcclusionQueriesNV := wglGetProcAddress('glDeleteOcclusionQueriesNV');
-    if not Assigned(glDeleteOcclusionQueriesNV) then Exit;
-    glIsOcclusionQueryNV := wglGetProcAddress('glIsOcclusionQueryNV');
-    if not Assigned(glIsOcclusionQueryNV) then Exit;
-    glBeginOcclusionQueryNV := wglGetProcAddress('glBeginOcclusionQueryNV');
-    if not Assigned(glBeginOcclusionQueryNV) then Exit;
-    glEndOcclusionQueryNV := wglGetProcAddress('glEndOcclusionQueryNV');
-    if not Assigned(glEndOcclusionQueryNV) then Exit;
-    glGetOcclusionQueryivNV := wglGetProcAddress('glGetOcclusionQueryivNV');
-    if not Assigned(glGetOcclusionQueryivNV) then Exit;
-    glGetOcclusionQueryuivNV := wglGetProcAddress('glGetOcclusionQueryuivNV');
-    if not Assigned(glGetOcclusionQueryuivNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_packed_depth_stencil: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_packed_depth_stencil', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_point_sprite: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_point_sprite', extstring) then
-  begin
-    glPointParameteriNV := wglGetProcAddress('glPointParameteriNV');
-    if not Assigned(glPointParameteriNV) then Exit;
-    glPointParameterivNV := wglGetProcAddress('glPointParameterivNV');
-    if not Assigned(glPointParameterivNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_register_combiners: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_register_combiners', extstring) then
-  begin
-    glCombinerParameterfvNV := wglGetProcAddress('glCombinerParameterfvNV');
-    if not Assigned(glCombinerParameterfvNV) then Exit;
-    glCombinerParameterivNV := wglGetProcAddress('glCombinerParameterivNV');
-    if not Assigned(glCombinerParameterivNV) then Exit;
-    glCombinerParameterfNV := wglGetProcAddress('glCombinerParameterfNV');
-    if not Assigned(glCombinerParameterfNV) then Exit;
-    glCombinerParameteriNV := wglGetProcAddress('glCombinerParameteriNV');
-    if not Assigned(glCombinerParameteriNV) then Exit;
-    glCombinerInputNV := wglGetProcAddress('glCombinerInputNV');
-    if not Assigned(glCombinerInputNV) then Exit;
-    glCombinerOutputNV := wglGetProcAddress('glCombinerOutputNV');
-    if not Assigned(glCombinerOutputNV) then Exit;
-    glFinalCombinerInputNV := wglGetProcAddress('glFinalCombinerInputNV');
-    if not Assigned(glFinalCombinerInputNV) then Exit;
-    glGetCombinerInputParameterfvNV := wglGetProcAddress('glGetCombinerInputParameterfvNV');
-    if not Assigned(glGetCombinerInputParameterfvNV) then Exit;
-    glGetCombinerInputParameterivNV := wglGetProcAddress('glGetCombinerInputParameterivNV');
-    if not Assigned(glGetCombinerInputParameterivNV) then Exit;
-    glGetCombinerOutputParameterfvNV := wglGetProcAddress('glGetCombinerOutputParameterfvNV');
-    if not Assigned(glGetCombinerOutputParameterfvNV) then Exit;
-    glGetCombinerOutputParameterivNV := wglGetProcAddress('glGetCombinerOutputParameterivNV');
-    if not Assigned(glGetCombinerOutputParameterivNV) then Exit;
-    glGetFinalCombinerInputParameterfvNV := wglGetProcAddress('glGetFinalCombinerInputParameterfvNV');
-    if not Assigned(glGetFinalCombinerInputParameterfvNV) then Exit;
-    glGetFinalCombinerInputParameterivNV := wglGetProcAddress('glGetFinalCombinerInputParameterivNV');
-    if not Assigned(glGetFinalCombinerInputParameterivNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_register_combiners2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_register_combiners2', extstring) then
-  begin
-    glCombinerStageParameterfvNV := wglGetProcAddress('glCombinerStageParameterfvNV');
-    if not Assigned(glCombinerStageParameterfvNV) then Exit;
-    glGetCombinerStageParameterfvNV := wglGetProcAddress('glGetCombinerStageParameterfvNV');
-    if not Assigned(glGetCombinerStageParameterfvNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texgen_emboss: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texgen_emboss', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texgen_reflection: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texgen_reflection', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_compression_vtc: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_compression_vtc', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_env_combine4: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_env_combine4', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_rectangle: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_rectangle', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_shader', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_shader2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_shader2', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_shader3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_shader3', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_array_range: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_array_range', extstring) then
-  begin
-    glVertexArrayRangeNV := wglGetProcAddress('glVertexArrayRangeNV');
-    if not Assigned(glVertexArrayRangeNV) then Exit;
-    glFlushVertexArrayRangeNV := wglGetProcAddress('glFlushVertexArrayRangeNV');
-    if not Assigned(glFlushVertexArrayRangeNV) then Exit;
-    wglAllocateMemoryNV := wglGetProcAddress('wglAllocateMemoryNV');
-    if not Assigned(wglAllocateMemoryNV) then Exit;
-    wglFreeMemoryNV := wglGetProcAddress('wglFreeMemoryNV');
-    if not Assigned(wglFreeMemoryNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_array_range2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_array_range2', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_program: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_program', extstring) then
-  begin
-    glBindProgramNV := wglGetProcAddress('glBindProgramNV');
-    if not Assigned(glBindProgramNV) then Exit;
-    glDeleteProgramsNV := wglGetProcAddress('glDeleteProgramsNV');
-    if not Assigned(glDeleteProgramsNV) then Exit;
-    glExecuteProgramNV := wglGetProcAddress('glExecuteProgramNV');
-    if not Assigned(glExecuteProgramNV) then Exit;
-    glGenProgramsNV := wglGetProcAddress('glGenProgramsNV');
-    if not Assigned(glGenProgramsNV) then Exit;
-    glAreProgramsResidentNV := wglGetProcAddress('glAreProgramsResidentNV');
-    if not Assigned(glAreProgramsResidentNV) then Exit;
-    glRequestResidentProgramsNV := wglGetProcAddress('glRequestResidentProgramsNV');
-    if not Assigned(glRequestResidentProgramsNV) then Exit;
-    glGetProgramParameterfvNV := wglGetProcAddress('glGetProgramParameterfvNV');
-    if not Assigned(glGetProgramParameterfvNV) then Exit;
-    glGetProgramParameterdvNV := wglGetProcAddress('glGetProgramParameterdvNV');
-    if not Assigned(glGetProgramParameterdvNV) then Exit;
-    glGetProgramivNV := wglGetProcAddress('glGetProgramivNV');
-    if not Assigned(glGetProgramivNV) then Exit;
-    glGetProgramStringNV := wglGetProcAddress('glGetProgramStringNV');
-    if not Assigned(glGetProgramStringNV) then Exit;
-    glGetTrackMatrixivNV := wglGetProcAddress('glGetTrackMatrixivNV');
-    if not Assigned(glGetTrackMatrixivNV) then Exit;
-    glGetVertexAttribdvNV := wglGetProcAddress('glGetVertexAttribdvNV');
-    if not Assigned(glGetVertexAttribdvNV) then Exit;
-    glGetVertexAttribfvNV := wglGetProcAddress('glGetVertexAttribfvNV');
-    if not Assigned(glGetVertexAttribfvNV) then Exit;
-    glGetVertexAttribivNV := wglGetProcAddress('glGetVertexAttribivNV');
-    if not Assigned(glGetVertexAttribivNV) then Exit;
-    glGetVertexAttribPointervNV := wglGetProcAddress('glGetVertexAttribPointervNV');
-    if not Assigned(glGetVertexAttribPointervNV) then Exit;
-    glIsProgramNV := wglGetProcAddress('glIsProgramNV');
-    if not Assigned(glIsProgramNV) then Exit;
-    glLoadProgramNV := wglGetProcAddress('glLoadProgramNV');
-    if not Assigned(glLoadProgramNV) then Exit;
-    glProgramParameter4fNV := wglGetProcAddress('glProgramParameter4fNV');
-    if not Assigned(glProgramParameter4fNV) then Exit;
-    glProgramParameter4fvNV := wglGetProcAddress('glProgramParameter4fvNV');
-    if not Assigned(glProgramParameter4fvNV) then Exit;
-    glProgramParameters4dvNV := wglGetProcAddress('glProgramParameters4dvNV');
-    if not Assigned(glProgramParameters4dvNV) then Exit;
-    glProgramParameters4fvNV := wglGetProcAddress('glProgramParameters4fvNV');
-    if not Assigned(glProgramParameters4fvNV) then Exit;
-    glTrackMatrixNV := wglGetProcAddress('glTrackMatrixNV');
-    if not Assigned(glTrackMatrixNV) then Exit;
-    glVertexAttribPointerNV := wglGetProcAddress('glVertexAttribPointerNV');
-    if not Assigned(glVertexAttribPointerNV) then Exit;
-    glVertexAttrib1sNV := wglGetProcAddress('glVertexAttrib1sNV');
-    if not Assigned(glVertexAttrib1sNV) then Exit;
-    glVertexAttrib1fNV := wglGetProcAddress('glVertexAttrib1fNV');
-    if not Assigned(glVertexAttrib1fNV) then Exit;
-    glVertexAttrib1dNV := wglGetProcAddress('glVertexAttrib1dNV');
-    if not Assigned(glVertexAttrib1dNV) then Exit;
-    glVertexAttrib2sNV := wglGetProcAddress('glVertexAttrib2sNV');
-    if not Assigned(glVertexAttrib2sNV) then Exit;
-    glVertexAttrib2fNV := wglGetProcAddress('glVertexAttrib2fNV');
-    if not Assigned(glVertexAttrib2fNV) then Exit;
-    glVertexAttrib2dNV := wglGetProcAddress('glVertexAttrib2dNV');
-    if not Assigned(glVertexAttrib2dNV) then Exit;
-    glVertexAttrib3sNV := wglGetProcAddress('glVertexAttrib3sNV');
-    if not Assigned(glVertexAttrib3sNV) then Exit;
-    glVertexAttrib3fNV := wglGetProcAddress('glVertexAttrib3fNV');
-    if not Assigned(glVertexAttrib3fNV) then Exit;
-    glVertexAttrib3dNV := wglGetProcAddress('glVertexAttrib3dNV');
-    if not Assigned(glVertexAttrib3dNV) then Exit;
-    glVertexAttrib4sNV := wglGetProcAddress('glVertexAttrib4sNV');
-    if not Assigned(glVertexAttrib4sNV) then Exit;
-    glVertexAttrib4fNV := wglGetProcAddress('glVertexAttrib4fNV');
-    if not Assigned(glVertexAttrib4fNV) then Exit;
-    glVertexAttrib4dNV := wglGetProcAddress('glVertexAttrib4dNV');
-    if not Assigned(glVertexAttrib4dNV) then Exit;
-    glVertexAttrib4ubNV := wglGetProcAddress('glVertexAttrib4ubNV');
-    if not Assigned(glVertexAttrib4ubNV) then Exit;
-    glVertexAttrib1svNV := wglGetProcAddress('glVertexAttrib1svNV');
-    if not Assigned(glVertexAttrib1svNV) then Exit;
-    glVertexAttrib1fvNV := wglGetProcAddress('glVertexAttrib1fvNV');
-    if not Assigned(glVertexAttrib1fvNV) then Exit;
-    glVertexAttrib1dvNV := wglGetProcAddress('glVertexAttrib1dvNV');
-    if not Assigned(glVertexAttrib1dvNV) then Exit;
-    glVertexAttrib2svNV := wglGetProcAddress('glVertexAttrib2svNV');
-    if not Assigned(glVertexAttrib2svNV) then Exit;
-    glVertexAttrib2fvNV := wglGetProcAddress('glVertexAttrib2fvNV');
-    if not Assigned(glVertexAttrib2fvNV) then Exit;
-    glVertexAttrib2dvNV := wglGetProcAddress('glVertexAttrib2dvNV');
-    if not Assigned(glVertexAttrib2dvNV) then Exit;
-    glVertexAttrib3svNV := wglGetProcAddress('glVertexAttrib3svNV');
-    if not Assigned(glVertexAttrib3svNV) then Exit;
-    glVertexAttrib3fvNV := wglGetProcAddress('glVertexAttrib3fvNV');
-    if not Assigned(glVertexAttrib3fvNV) then Exit;
-    glVertexAttrib3dvNV := wglGetProcAddress('glVertexAttrib3dvNV');
-    if not Assigned(glVertexAttrib3dvNV) then Exit;
-    glVertexAttrib4svNV := wglGetProcAddress('glVertexAttrib4svNV');
-    if not Assigned(glVertexAttrib4svNV) then Exit;
-    glVertexAttrib4fvNV := wglGetProcAddress('glVertexAttrib4fvNV');
-    if not Assigned(glVertexAttrib4fvNV) then Exit;
-    glVertexAttrib4dvNV := wglGetProcAddress('glVertexAttrib4dvNV');
-    if not Assigned(glVertexAttrib4dvNV) then Exit;
-    glVertexAttrib4ubvNV := wglGetProcAddress('glVertexAttrib4ubvNV');
-    if not Assigned(glVertexAttrib4ubvNV) then Exit;
-    glVertexAttribs1svNV := wglGetProcAddress('glVertexAttribs1svNV');
-    if not Assigned(glVertexAttribs1svNV) then Exit;
-    glVertexAttribs1fvNV := wglGetProcAddress('glVertexAttribs1fvNV');
-    if not Assigned(glVertexAttribs1fvNV) then Exit;
-    glVertexAttribs1dvNV := wglGetProcAddress('glVertexAttribs1dvNV');
-    if not Assigned(glVertexAttribs1dvNV) then Exit;
-    glVertexAttribs2svNV := wglGetProcAddress('glVertexAttribs2svNV');
-    if not Assigned(glVertexAttribs2svNV) then Exit;
-    glVertexAttribs2fvNV := wglGetProcAddress('glVertexAttribs2fvNV');
-    if not Assigned(glVertexAttribs2fvNV) then Exit;
-    glVertexAttribs2dvNV := wglGetProcAddress('glVertexAttribs2dvNV');
-    if not Assigned(glVertexAttribs2dvNV) then Exit;
-    glVertexAttribs3svNV := wglGetProcAddress('glVertexAttribs3svNV');
-    if not Assigned(glVertexAttribs3svNV) then Exit;
-    glVertexAttribs3fvNV := wglGetProcAddress('glVertexAttribs3fvNV');
-    if not Assigned(glVertexAttribs3fvNV) then Exit;
-    glVertexAttribs3dvNV := wglGetProcAddress('glVertexAttribs3dvNV');
-    if not Assigned(glVertexAttribs3dvNV) then Exit;
-    glVertexAttribs4svNV := wglGetProcAddress('glVertexAttribs4svNV');
-    if not Assigned(glVertexAttribs4svNV) then Exit;
-    glVertexAttribs4fvNV := wglGetProcAddress('glVertexAttribs4fvNV');
-    if not Assigned(glVertexAttribs4fvNV) then Exit;
-    glVertexAttribs4dvNV := wglGetProcAddress('glVertexAttribs4dvNV');
-    if not Assigned(glVertexAttribs4dvNV) then Exit;
-    glVertexAttribs4ubvNV := wglGetProcAddress('glVertexAttribs4ubvNV');
-    if not Assigned(glVertexAttribs4ubvNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_program1_1: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_program1_1', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_element_array: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_element_array', extstring) then
-  begin
-    glElementPointerATI := wglGetProcAddress('glElementPointerATI');
-    if not Assigned(glElementPointerATI) then Exit;
-    glDrawElementArrayATI := wglGetProcAddress('glDrawElementArrayATI');
-    if not Assigned(glDrawElementArrayATI) then Exit;
-    glDrawRangeElementArrayATI := wglGetProcAddress('glDrawRangeElementArrayATI');
-    if not Assigned(glDrawRangeElementArrayATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_envmap_bumpmap: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_envmap_bumpmap', extstring) then
-  begin
-    glTexBumpParameterivATI := wglGetProcAddress('glTexBumpParameterivATI');
-    if not Assigned(glTexBumpParameterivATI) then Exit;
-    glTexBumpParameterfvATI := wglGetProcAddress('glTexBumpParameterfvATI');
-    if not Assigned(glTexBumpParameterfvATI) then Exit;
-    glGetTexBumpParameterivATI := wglGetProcAddress('glGetTexBumpParameterivATI');
-    if not Assigned(glGetTexBumpParameterivATI) then Exit;
-    glGetTexBumpParameterfvATI := wglGetProcAddress('glGetTexBumpParameterfvATI');
-    if not Assigned(glGetTexBumpParameterfvATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_fragment_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_fragment_shader', extstring) then
-  begin
-    glGenFragmentShadersATI := wglGetProcAddress('glGenFragmentShadersATI');
-    if not Assigned(glGenFragmentShadersATI) then Exit;
-    glBindFragmentShaderATI := wglGetProcAddress('glBindFragmentShaderATI');
-    if not Assigned(glBindFragmentShaderATI) then Exit;
-    glDeleteFragmentShaderATI := wglGetProcAddress('glDeleteFragmentShaderATI');
-    if not Assigned(glDeleteFragmentShaderATI) then Exit;
-    glBeginFragmentShaderATI := wglGetProcAddress('glBeginFragmentShaderATI');
-    if not Assigned(glBeginFragmentShaderATI) then Exit;
-    glEndFragmentShaderATI := wglGetProcAddress('glEndFragmentShaderATI');
-    if not Assigned(glEndFragmentShaderATI) then Exit;
-    glPassTexCoordATI := wglGetProcAddress('glPassTexCoordATI');
-    if not Assigned(glPassTexCoordATI) then Exit;
-    glSampleMapATI := wglGetProcAddress('glSampleMapATI');
-    if not Assigned(glSampleMapATI) then Exit;
-    glColorFragmentOp1ATI := wglGetProcAddress('glColorFragmentOp1ATI');
-    if not Assigned(glColorFragmentOp1ATI) then Exit;
-    glColorFragmentOp2ATI := wglGetProcAddress('glColorFragmentOp2ATI');
-    if not Assigned(glColorFragmentOp2ATI) then Exit;
-    glColorFragmentOp3ATI := wglGetProcAddress('glColorFragmentOp3ATI');
-    if not Assigned(glColorFragmentOp3ATI) then Exit;
-    glAlphaFragmentOp1ATI := wglGetProcAddress('glAlphaFragmentOp1ATI');
-    if not Assigned(glAlphaFragmentOp1ATI) then Exit;
-    glAlphaFragmentOp2ATI := wglGetProcAddress('glAlphaFragmentOp2ATI');
-    if not Assigned(glAlphaFragmentOp2ATI) then Exit;
-    glAlphaFragmentOp3ATI := wglGetProcAddress('glAlphaFragmentOp3ATI');
-    if not Assigned(glAlphaFragmentOp3ATI) then Exit;
-    glSetFragmentShaderConstantATI := wglGetProcAddress('glSetFragmentShaderConstantATI');
-    if not Assigned(glSetFragmentShaderConstantATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_pn_triangles: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_pn_triangles', extstring) then
-  begin
-    glPNTrianglesiATI := wglGetProcAddress('glPNTrianglesiATI');
-    if not Assigned(glPNTrianglesiATI) then Exit;
-    glPNTrianglesfATI := wglGetProcAddress('glPNTrianglesfATI');
-    if not Assigned(glPNTrianglesfATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_texture_mirror_once: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_texture_mirror_once', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_vertex_array_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_vertex_array_object', extstring) then
-  begin
-    glNewObjectBufferATI := wglGetProcAddress('glNewObjectBufferATI');
-    if not Assigned(glNewObjectBufferATI) then Exit;
-    glIsObjectBufferATI := wglGetProcAddress('glIsObjectBufferATI');
-    if not Assigned(glIsObjectBufferATI) then Exit;
-    glUpdateObjectBufferATI := wglGetProcAddress('glUpdateObjectBufferATI');
-    if not Assigned(glUpdateObjectBufferATI) then Exit;
-    glGetObjectBufferfvATI := wglGetProcAddress('glGetObjectBufferfvATI');
-    if not Assigned(glGetObjectBufferfvATI) then Exit;
-    glGetObjectBufferivATI := wglGetProcAddress('glGetObjectBufferivATI');
-    if not Assigned(glGetObjectBufferivATI) then Exit;
-    glDeleteObjectBufferATI := wglGetProcAddress('glDeleteObjectBufferATI');
-    if not Assigned(glDeleteObjectBufferATI) then Exit;
-    glArrayObjectATI := wglGetProcAddress('glArrayObjectATI');
-    if not Assigned(glArrayObjectATI) then Exit;
-    glGetArrayObjectfvATI := wglGetProcAddress('glGetArrayObjectfvATI');
-    if not Assigned(glGetArrayObjectfvATI) then Exit;
-    glGetArrayObjectivATI := wglGetProcAddress('glGetArrayObjectivATI');
-    if not Assigned(glGetArrayObjectivATI) then Exit;
-    glVariantArrayObjectATI := wglGetProcAddress('glVariantArrayObjectATI');
-    if not Assigned(glVariantArrayObjectATI) then Exit;
-    glGetVariantArrayObjectfvATI := wglGetProcAddress('glGetVariantArrayObjectfvATI');
-    if not Assigned(glGetVariantArrayObjectfvATI) then Exit;
-    glGetVariantArrayObjectivATI := wglGetProcAddress('glGetVariantArrayObjectivATI');
-    if not Assigned(glGetVariantArrayObjectivATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_vertex_streams: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_vertex_streams', extstring) then
-  begin
-    glVertexStream1s := wglGetProcAddress('glVertexStream1s');
-    if not Assigned(glVertexStream1s) then Exit;
-    glVertexStream1i := wglGetProcAddress('glVertexStream1i');
-    if not Assigned(glVertexStream1i) then Exit;
-    glVertexStream1f := wglGetProcAddress('glVertexStream1f');
-    if not Assigned(glVertexStream1f) then Exit;
-    glVertexStream1d := wglGetProcAddress('glVertexStream1d');
-    if not Assigned(glVertexStream1d) then Exit;
-    glVertexStream1sv := wglGetProcAddress('glVertexStream1sv');
-    if not Assigned(glVertexStream1sv) then Exit;
-    glVertexStream1iv := wglGetProcAddress('glVertexStream1iv');
-    if not Assigned(glVertexStream1iv) then Exit;
-    glVertexStream1fv := wglGetProcAddress('glVertexStream1fv');
-    if not Assigned(glVertexStream1fv) then Exit;
-    glVertexStream1dv := wglGetProcAddress('glVertexStream1dv');
-    if not Assigned(glVertexStream1dv) then Exit;
-    glVertexStream2s := wglGetProcAddress('glVertexStream2s');
-    if not Assigned(glVertexStream2s) then Exit;
-    glVertexStream2i := wglGetProcAddress('glVertexStream2i');
-    if not Assigned(glVertexStream2i) then Exit;
-    glVertexStream2f := wglGetProcAddress('glVertexStream2f');
-    if not Assigned(glVertexStream2f) then Exit;
-    glVertexStream2d := wglGetProcAddress('glVertexStream2d');
-    if not Assigned(glVertexStream2d) then Exit;
-    glVertexStream2sv := wglGetProcAddress('glVertexStream2sv');
-    if not Assigned(glVertexStream2sv) then Exit;
-    glVertexStream2iv := wglGetProcAddress('glVertexStream2iv');
-    if not Assigned(glVertexStream2iv) then Exit;
-    glVertexStream2fv := wglGetProcAddress('glVertexStream2fv');
-    if not Assigned(glVertexStream2fv) then Exit;
-    glVertexStream2dv := wglGetProcAddress('glVertexStream2dv');
-    if not Assigned(glVertexStream2dv) then Exit;
-    glVertexStream3s := wglGetProcAddress('glVertexStream3s');
-    if not Assigned(glVertexStream3s) then Exit;
-    glVertexStream3i := wglGetProcAddress('glVertexStream3i');
-    if not Assigned(glVertexStream3i) then Exit;
-    glVertexStream3f := wglGetProcAddress('glVertexStream3f');
-    if not Assigned(glVertexStream3f) then Exit;
-    glVertexStream3d := wglGetProcAddress('glVertexStream3d');
-    if not Assigned(glVertexStream3d) then Exit;
-    glVertexStream3sv := wglGetProcAddress('glVertexStream3sv');
-    if not Assigned(glVertexStream3sv) then Exit;
-    glVertexStream3iv := wglGetProcAddress('glVertexStream3iv');
-    if not Assigned(glVertexStream3iv) then Exit;
-    glVertexStream3fv := wglGetProcAddress('glVertexStream3fv');
-    if not Assigned(glVertexStream3fv) then Exit;
-    glVertexStream3dv := wglGetProcAddress('glVertexStream3dv');
-    if not Assigned(glVertexStream3dv) then Exit;
-    glVertexStream4s := wglGetProcAddress('glVertexStream4s');
-    if not Assigned(glVertexStream4s) then Exit;
-    glVertexStream4i := wglGetProcAddress('glVertexStream4i');
-    if not Assigned(glVertexStream4i) then Exit;
-    glVertexStream4f := wglGetProcAddress('glVertexStream4f');
-    if not Assigned(glVertexStream4f) then Exit;
-    glVertexStream4d := wglGetProcAddress('glVertexStream4d');
-    if not Assigned(glVertexStream4d) then Exit;
-    glVertexStream4sv := wglGetProcAddress('glVertexStream4sv');
-    if not Assigned(glVertexStream4sv) then Exit;
-    glVertexStream4iv := wglGetProcAddress('glVertexStream4iv');
-    if not Assigned(glVertexStream4iv) then Exit;
-    glVertexStream4fv := wglGetProcAddress('glVertexStream4fv');
-    if not Assigned(glVertexStream4fv) then Exit;
-    glVertexStream4dv := wglGetProcAddress('glVertexStream4dv');
-    if not Assigned(glVertexStream4dv) then Exit;
-    glNormalStream3b := wglGetProcAddress('glNormalStream3b');
-    if not Assigned(glNormalStream3b) then Exit;
-    glNormalStream3s := wglGetProcAddress('glNormalStream3s');
-    if not Assigned(glNormalStream3s) then Exit;
-    glNormalStream3i := wglGetProcAddress('glNormalStream3i');
-    if not Assigned(glNormalStream3i) then Exit;
-    glNormalStream3f := wglGetProcAddress('glNormalStream3f');
-    if not Assigned(glNormalStream3f) then Exit;
-    glNormalStream3d := wglGetProcAddress('glNormalStream3d');
-    if not Assigned(glNormalStream3d) then Exit;
-    glNormalStream3bv := wglGetProcAddress('glNormalStream3bv');
-    if not Assigned(glNormalStream3bv) then Exit;
-    glNormalStream3sv := wglGetProcAddress('glNormalStream3sv');
-    if not Assigned(glNormalStream3sv) then Exit;
-    glNormalStream3iv := wglGetProcAddress('glNormalStream3iv');
-    if not Assigned(glNormalStream3iv) then Exit;
-    glNormalStream3fv := wglGetProcAddress('glNormalStream3fv');
-    if not Assigned(glNormalStream3fv) then Exit;
-    glNormalStream3dv := wglGetProcAddress('glNormalStream3dv');
-    if not Assigned(glNormalStream3dv) then Exit;
-    glClientActiveVertexStream := wglGetProcAddress('glClientActiveVertexStream');
-    if not Assigned(glClientActiveVertexStream) then Exit;
-    glVertexBlendEnvi := wglGetProcAddress('glVertexBlendEnvi');
-    if not Assigned(glVertexBlendEnvi) then Exit;
-    glVertexBlendEnvf := wglGetProcAddress('glVertexBlendEnvf');
-    if not Assigned(glVertexBlendEnvf) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_image_buffer: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_image_buffer', extstring) then
-  begin
-    wglCreateImageBufferI3D := wglGetProcAddress('wglCreateImageBufferI3D');
-    if not Assigned(wglCreateImageBufferI3D) then Exit;
-    wglDestroyImageBufferI3D := wglGetProcAddress('wglDestroyImageBufferI3D');
-    if not Assigned(wglDestroyImageBufferI3D) then Exit;
-    wglAssociateImageBufferEventsI3D := wglGetProcAddress('wglAssociateImageBufferEventsI3D');
-    if not Assigned(wglAssociateImageBufferEventsI3D) then Exit;
-    wglReleaseImageBufferEventsI3D := wglGetProcAddress('wglReleaseImageBufferEventsI3D');
-    if not Assigned(wglReleaseImageBufferEventsI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_swap_frame_lock: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_swap_frame_lock', extstring) then
-  begin
-    wglEnableFrameLockI3D := wglGetProcAddress('wglEnableFrameLockI3D');
-    if not Assigned(wglEnableFrameLockI3D) then Exit;
-    wglDisableFrameLockI3D := wglGetProcAddress('wglDisableFrameLockI3D');
-    if not Assigned(wglDisableFrameLockI3D) then Exit;
-    wglIsEnabledFrameLockI3D := wglGetProcAddress('wglIsEnabledFrameLockI3D');
-    if not Assigned(wglIsEnabledFrameLockI3D) then Exit;
-    wglQueryFrameLockMasterI3D := wglGetProcAddress('wglQueryFrameLockMasterI3D');
-    if not Assigned(wglQueryFrameLockMasterI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_swap_frame_usage: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_swap_frame_usage', extstring) then
-  begin
-    wglGetFrameUsageI3D := wglGetProcAddress('wglGetFrameUsageI3D');
-    if not Assigned(wglGetFrameUsageI3D) then Exit;
-    wglBeginFrameTrackingI3D := wglGetProcAddress('wglBeginFrameTrackingI3D');
-    if not Assigned(wglBeginFrameTrackingI3D) then Exit;
-    wglEndFrameTrackingI3D := wglGetProcAddress('wglEndFrameTrackingI3D');
-    if not Assigned(wglEndFrameTrackingI3D) then Exit;
-    wglQueryFrameTrackingI3D := wglGetProcAddress('wglQueryFrameTrackingI3D');
-    if not Assigned(wglQueryFrameTrackingI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_3DFX_texture_compression_FXT1: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_3DFX_texture_compression_FXT1', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_IBM_cull_vertex: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_IBM_cull_vertex', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_IBM_multimode_draw_arrays: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_IBM_multimode_draw_arrays', extstring) then
-  begin
-    glMultiModeDrawArraysIBM := wglGetProcAddress('glMultiModeDrawArraysIBM');
-    if not Assigned(glMultiModeDrawArraysIBM) then Exit;
-    glMultiModeDrawElementsIBM := wglGetProcAddress('glMultiModeDrawElementsIBM');
-    if not Assigned(glMultiModeDrawElementsIBM) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_IBM_raster_pos_clip: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_IBM_raster_pos_clip', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_IBM_texture_mirrored_repeat: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_IBM_texture_mirrored_repeat', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_IBM_vertex_array_lists: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_IBM_vertex_array_lists', extstring) then
-  begin
-    glColorPointerListIBM := wglGetProcAddress('glColorPointerListIBM');
-    if not Assigned(glColorPointerListIBM) then Exit;
-    glSecondaryColorPointerListIBM := wglGetProcAddress('glSecondaryColorPointerListIBM');
-    if not Assigned(glSecondaryColorPointerListIBM) then Exit;
-    glEdgeFlagPointerListIBM := wglGetProcAddress('glEdgeFlagPointerListIBM');
-    if not Assigned(glEdgeFlagPointerListIBM) then Exit;
-    glFogCoordPointerListIBM := wglGetProcAddress('glFogCoordPointerListIBM');
-    if not Assigned(glFogCoordPointerListIBM) then Exit;
-    glNormalPointerListIBM := wglGetProcAddress('glNormalPointerListIBM');
-    if not Assigned(glNormalPointerListIBM) then Exit;
-    glTexCoordPointerListIBM := wglGetProcAddress('glTexCoordPointerListIBM');
-    if not Assigned(glTexCoordPointerListIBM) then Exit;
-    glVertexPointerListIBM := wglGetProcAddress('glVertexPointerListIBM');
-    if not Assigned(glVertexPointerListIBM) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_MESA_resize_buffers: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_MESA_resize_buffers', extstring) then
-  begin
-    glResizeBuffersMESA := wglGetProcAddress('glResizeBuffersMESA');
-    if not Assigned(glResizeBuffersMESA) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_MESA_window_pos: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_MESA_window_pos', extstring) then
-  begin
-    glWindowPos2dMESA := wglGetProcAddress('glWindowPos2dMESA');
-    if not Assigned(glWindowPos2dMESA) then Exit;
-    glWindowPos2fMESA := wglGetProcAddress('glWindowPos2fMESA');
-    if not Assigned(glWindowPos2fMESA) then Exit;
-    glWindowPos2iMESA := wglGetProcAddress('glWindowPos2iMESA');
-    if not Assigned(glWindowPos2iMESA) then Exit;
-    glWindowPos2sMESA := wglGetProcAddress('glWindowPos2sMESA');
-    if not Assigned(glWindowPos2sMESA) then Exit;
-    glWindowPos2ivMESA := wglGetProcAddress('glWindowPos2ivMESA');
-    if not Assigned(glWindowPos2ivMESA) then Exit;
-    glWindowPos2svMESA := wglGetProcAddress('glWindowPos2svMESA');
-    if not Assigned(glWindowPos2svMESA) then Exit;
-    glWindowPos2fvMESA := wglGetProcAddress('glWindowPos2fvMESA');
-    if not Assigned(glWindowPos2fvMESA) then Exit;
-    glWindowPos2dvMESA := wglGetProcAddress('glWindowPos2dvMESA');
-    if not Assigned(glWindowPos2dvMESA) then Exit;
-    glWindowPos3iMESA := wglGetProcAddress('glWindowPos3iMESA');
-    if not Assigned(glWindowPos3iMESA) then Exit;
-    glWindowPos3sMESA := wglGetProcAddress('glWindowPos3sMESA');
-    if not Assigned(glWindowPos3sMESA) then Exit;
-    glWindowPos3fMESA := wglGetProcAddress('glWindowPos3fMESA');
-    if not Assigned(glWindowPos3fMESA) then Exit;
-    glWindowPos3dMESA := wglGetProcAddress('glWindowPos3dMESA');
-    if not Assigned(glWindowPos3dMESA) then Exit;
-    glWindowPos3ivMESA := wglGetProcAddress('glWindowPos3ivMESA');
-    if not Assigned(glWindowPos3ivMESA) then Exit;
-    glWindowPos3svMESA := wglGetProcAddress('glWindowPos3svMESA');
-    if not Assigned(glWindowPos3svMESA) then Exit;
-    glWindowPos3fvMESA := wglGetProcAddress('glWindowPos3fvMESA');
-    if not Assigned(glWindowPos3fvMESA) then Exit;
-    glWindowPos3dvMESA := wglGetProcAddress('glWindowPos3dvMESA');
-    if not Assigned(glWindowPos3dvMESA) then Exit;
-    glWindowPos4iMESA := wglGetProcAddress('glWindowPos4iMESA');
-    if not Assigned(glWindowPos4iMESA) then Exit;
-    glWindowPos4sMESA := wglGetProcAddress('glWindowPos4sMESA');
-    if not Assigned(glWindowPos4sMESA) then Exit;
-    glWindowPos4fMESA := wglGetProcAddress('glWindowPos4fMESA');
-    if not Assigned(glWindowPos4fMESA) then Exit;
-    glWindowPos4dMESA := wglGetProcAddress('glWindowPos4dMESA');
-    if not Assigned(glWindowPos4dMESA) then Exit;
-    glWindowPos4ivMESA := wglGetProcAddress('glWindowPos4ivMESA');
-    if not Assigned(glWindowPos4ivMESA) then Exit;
-    glWindowPos4svMESA := wglGetProcAddress('glWindowPos4svMESA');
-    if not Assigned(glWindowPos4svMESA) then Exit;
-    glWindowPos4fvMESA := wglGetProcAddress('glWindowPos4fvMESA');
-    if not Assigned(glWindowPos4fvMESA) then Exit;
-    glWindowPos4dvMESA := wglGetProcAddress('glWindowPos4dvMESA');
-    if not Assigned(glWindowPos4dvMESA) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_OML_interlace: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_OML_interlace', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_OML_resample: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_OML_resample', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_OML_subsample: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_OML_subsample', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_generate_mipmap: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_generate_mipmap', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_multisample: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_multisample', extstring) then
-  begin
-    glSampleMaskSGIS := wglGetProcAddress('glSampleMaskSGIS');
-    if not Assigned(glSampleMaskSGIS) then Exit;
-    glSamplePatternSGIS := wglGetProcAddress('glSamplePatternSGIS');
-    if not Assigned(glSamplePatternSGIS) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_pixel_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_pixel_texture', extstring) then
-  begin
-    glPixelTexGenParameteriSGIS := wglGetProcAddress('glPixelTexGenParameteriSGIS');
-    if not Assigned(glPixelTexGenParameteriSGIS) then Exit;
-    glPixelTexGenParameterfSGIS := wglGetProcAddress('glPixelTexGenParameterfSGIS');
-    if not Assigned(glPixelTexGenParameterfSGIS) then Exit;
-    glGetPixelTexGenParameterivSGIS := wglGetProcAddress('glGetPixelTexGenParameterivSGIS');
-    if not Assigned(glGetPixelTexGenParameterivSGIS) then Exit;
-    glGetPixelTexGenParameterfvSGIS := wglGetProcAddress('glGetPixelTexGenParameterfvSGIS');
-    if not Assigned(glGetPixelTexGenParameterfvSGIS) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_texture_border_clamp: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_texture_border_clamp', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_texture_color_mask: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_texture_color_mask', extstring) then
-  begin
-    glTextureColorMaskSGIS := wglGetProcAddress('glTextureColorMaskSGIS');
-    if not Assigned(glTextureColorMaskSGIS) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_texture_edge_clamp: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_texture_edge_clamp', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_texture_lod: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_texture_lod', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIS_depth_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIS_depth_texture', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIX_fog_offset: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIX_fog_offset', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIX_interlace: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIX_interlace', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGIX_shadow_ambient: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGIX_shadow_ambient', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGI_color_matrix: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGI_color_matrix', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGI_color_table: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGI_color_table', extstring) then
-  begin
-    glColorTableSGI := wglGetProcAddress('glColorTableSGI');
-    if not Assigned(glColorTableSGI) then Exit;
-    glCopyColorTableSGI := wglGetProcAddress('glCopyColorTableSGI');
-    if not Assigned(glCopyColorTableSGI) then Exit;
-    glColorTableParameterivSGI := wglGetProcAddress('glColorTableParameterivSGI');
-    if not Assigned(glColorTableParameterivSGI) then Exit;
-    glColorTableParameterfvSGI := wglGetProcAddress('glColorTableParameterfvSGI');
-    if not Assigned(glColorTableParameterfvSGI) then Exit;
-    glGetColorTableSGI := wglGetProcAddress('glGetColorTableSGI');
-    if not Assigned(glGetColorTableSGI) then Exit;
-    glGetColorTableParameterivSGI := wglGetProcAddress('glGetColorTableParameterivSGI');
-    if not Assigned(glGetColorTableParameterivSGI) then Exit;
-    glGetColorTableParameterfvSGI := wglGetProcAddress('glGetColorTableParameterfvSGI');
-    if not Assigned(glGetColorTableParameterfvSGI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SGI_texture_color_table: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SGI_texture_color_table', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_SUN_vertex: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_SUN_vertex', extstring) then
-  begin
-    glColor4ubVertex2fSUN := wglGetProcAddress('glColor4ubVertex2fSUN');
-    if not Assigned(glColor4ubVertex2fSUN) then Exit;
-    glColor4ubVertex2fvSUN := wglGetProcAddress('glColor4ubVertex2fvSUN');
-    if not Assigned(glColor4ubVertex2fvSUN) then Exit;
-    glColor4ubVertex3fSUN := wglGetProcAddress('glColor4ubVertex3fSUN');
-    if not Assigned(glColor4ubVertex3fSUN) then Exit;
-    glColor4ubVertex3fvSUN := wglGetProcAddress('glColor4ubVertex3fvSUN');
-    if not Assigned(glColor4ubVertex3fvSUN) then Exit;
-    glColor3fVertex3fSUN := wglGetProcAddress('glColor3fVertex3fSUN');
-    if not Assigned(glColor3fVertex3fSUN) then Exit;
-    glColor3fVertex3fvSUN := wglGetProcAddress('glColor3fVertex3fvSUN');
-    if not Assigned(glColor3fVertex3fvSUN) then Exit;
-    glNormal3fVertex3fSUN := wglGetProcAddress('glNormal3fVertex3fSUN');
-    if not Assigned(glNormal3fVertex3fSUN) then Exit;
-    glNormal3fVertex3fvSUN := wglGetProcAddress('glNormal3fVertex3fvSUN');
-    if not Assigned(glNormal3fVertex3fvSUN) then Exit;
-    glColor4fNormal3fVertex3fSUN := wglGetProcAddress('glColor4fNormal3fVertex3fSUN');
-    if not Assigned(glColor4fNormal3fVertex3fSUN) then Exit;
-    glColor4fNormal3fVertex3fvSUN := wglGetProcAddress('glColor4fNormal3fVertex3fvSUN');
-    if not Assigned(glColor4fNormal3fVertex3fvSUN) then Exit;
-    glTexCoord2fVertex3fSUN := wglGetProcAddress('glTexCoord2fVertex3fSUN');
-    if not Assigned(glTexCoord2fVertex3fSUN) then Exit;
-    glTexCoord2fVertex3fvSUN := wglGetProcAddress('glTexCoord2fVertex3fvSUN');
-    if not Assigned(glTexCoord2fVertex3fvSUN) then Exit;
-    glTexCoord4fVertex4fSUN := wglGetProcAddress('glTexCoord4fVertex4fSUN');
-    if not Assigned(glTexCoord4fVertex4fSUN) then Exit;
-    glTexCoord4fVertex4fvSUN := wglGetProcAddress('glTexCoord4fVertex4fvSUN');
-    if not Assigned(glTexCoord4fVertex4fvSUN) then Exit;
-    glTexCoord2fColor4ubVertex3fSUN := wglGetProcAddress('glTexCoord2fColor4ubVertex3fSUN');
-    if not Assigned(glTexCoord2fColor4ubVertex3fSUN) then Exit;
-    glTexCoord2fColor4ubVertex3fvSUN := wglGetProcAddress('glTexCoord2fColor4ubVertex3fvSUN');
-    if not Assigned(glTexCoord2fColor4ubVertex3fvSUN) then Exit;
-    glTexCoord2fColor3fVertex3fSUN := wglGetProcAddress('glTexCoord2fColor3fVertex3fSUN');
-    if not Assigned(glTexCoord2fColor3fVertex3fSUN) then Exit;
-    glTexCoord2fColor3fVertex3fvSUN := wglGetProcAddress('glTexCoord2fColor3fVertex3fvSUN');
-    if not Assigned(glTexCoord2fColor3fVertex3fvSUN) then Exit;
-    glTexCoord2fNormal3fVertex3fSUN := wglGetProcAddress('glTexCoord2fNormal3fVertex3fSUN');
-    if not Assigned(glTexCoord2fNormal3fVertex3fSUN) then Exit;
-    glTexCoord2fNormal3fVertex3fvSUN := wglGetProcAddress('glTexCoord2fNormal3fVertex3fvSUN');
-    if not Assigned(glTexCoord2fNormal3fVertex3fvSUN) then Exit;
-    glTexCoord2fColor4fNormal3fVertex3fSUN := wglGetProcAddress('glTexCoord2fColor4fNormal3fVertex3fSUN');
-    if not Assigned(glTexCoord2fColor4fNormal3fVertex3fSUN) then Exit;
-    glTexCoord2fColor4fNormal3fVertex3fvSUN := wglGetProcAddress('glTexCoord2fColor4fNormal3fVertex3fvSUN');
-    if not Assigned(glTexCoord2fColor4fNormal3fVertex3fvSUN) then Exit;
-    glTexCoord4fColor4fNormal3fVertex4fSUN := wglGetProcAddress('glTexCoord4fColor4fNormal3fVertex4fSUN');
-    if not Assigned(glTexCoord4fColor4fNormal3fVertex4fSUN) then Exit;
-    glTexCoord4fColor4fNormal3fVertex4fvSUN := wglGetProcAddress('glTexCoord4fColor4fNormal3fVertex4fvSUN');
-    if not Assigned(glTexCoord4fColor4fNormal3fVertex4fvSUN) then Exit;
-    glReplacementCodeuiVertex3fSUN := wglGetProcAddress('glReplacementCodeuiVertex3fSUN');
-    if not Assigned(glReplacementCodeuiVertex3fSUN) then Exit;
-    glReplacementCodeuiVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiVertex3fvSUN) then Exit;
-    glReplacementCodeuiColor4ubVertex3fSUN := wglGetProcAddress('glReplacementCodeuiColor4ubVertex3fSUN');
-    if not Assigned(glReplacementCodeuiColor4ubVertex3fSUN) then Exit;
-    glReplacementCodeuiColor4ubVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiColor4ubVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiColor4ubVertex3fvSUN) then Exit;
-    glReplacementCodeuiColor3fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiColor3fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiColor3fVertex3fSUN) then Exit;
-    glReplacementCodeuiColor3fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiColor3fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiColor3fVertex3fvSUN) then Exit;
-    glReplacementCodeuiNormal3fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiNormal3fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiNormal3fVertex3fSUN) then Exit;
-    glReplacementCodeuiNormal3fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiNormal3fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiNormal3fVertex3fvSUN) then Exit;
-    glReplacementCodeuiColor4fNormal3fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiColor4fNormal3fVertex3fSUN) then Exit;
-    glReplacementCodeuiColor4fNormal3fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiColor4fNormal3fVertex3fvSUN) then Exit;
-    glReplacementCodeuiTexCoord2fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fVertex3fSUN) then Exit;
-    glReplacementCodeuiTexCoord2fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fVertex3fvSUN) then Exit;
-    glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN) then Exit;
-    glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN) then Exit;
-    glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN) then Exit;
-    glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN := wglGetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN');
-    if not Assigned(glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_fragment_program: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_fragment_program', extstring) then
-  begin
-    glProgramStringARB := wglGetProcAddress('glProgramStringARB');
-    if not Assigned(glProgramStringARB) then Exit;
-    glBindProgramARB := wglGetProcAddress('glBindProgramARB');
-    if not Assigned(glBindProgramARB) then Exit;
-    glDeleteProgramsARB := wglGetProcAddress('glDeleteProgramsARB');
-    if not Assigned(glDeleteProgramsARB) then Exit;
-    glGenProgramsARB := wglGetProcAddress('glGenProgramsARB');
-    if not Assigned(glGenProgramsARB) then Exit;
-    glProgramEnvParameter4dARB := wglGetProcAddress('glProgramEnvParameter4dARB');
-    if not Assigned(glProgramEnvParameter4dARB) then Exit;
-    glProgramEnvParameter4dvARB := wglGetProcAddress('glProgramEnvParameter4dvARB');
-    if not Assigned(glProgramEnvParameter4dvARB) then Exit;
-    glProgramEnvParameter4fARB := wglGetProcAddress('glProgramEnvParameter4fARB');
-    if not Assigned(glProgramEnvParameter4fARB) then Exit;
-    glProgramEnvParameter4fvARB := wglGetProcAddress('glProgramEnvParameter4fvARB');
-    if not Assigned(glProgramEnvParameter4fvARB) then Exit;
-    glProgramLocalParameter4dARB := wglGetProcAddress('glProgramLocalParameter4dARB');
-    if not Assigned(glProgramLocalParameter4dARB) then Exit;
-    glProgramLocalParameter4dvARB := wglGetProcAddress('glProgramLocalParameter4dvARB');
-    if not Assigned(glProgramLocalParameter4dvARB) then Exit;
-    glProgramLocalParameter4fARB := wglGetProcAddress('glProgramLocalParameter4fARB');
-    if not Assigned(glProgramLocalParameter4fARB) then Exit;
-    glProgramLocalParameter4fvARB := wglGetProcAddress('glProgramLocalParameter4fvARB');
-    if not Assigned(glProgramLocalParameter4fvARB) then Exit;
-    glGetProgramEnvParameterdvARB := wglGetProcAddress('glGetProgramEnvParameterdvARB');
-    if not Assigned(glGetProgramEnvParameterdvARB) then Exit;
-    glGetProgramEnvParameterfvARB := wglGetProcAddress('glGetProgramEnvParameterfvARB');
-    if not Assigned(glGetProgramEnvParameterfvARB) then Exit;
-    glGetProgramLocalParameterdvARB := wglGetProcAddress('glGetProgramLocalParameterdvARB');
-    if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
-    glGetProgramLocalParameterfvARB := wglGetProcAddress('glGetProgramLocalParameterfvARB');
-    if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
-    glGetProgramivARB := wglGetProcAddress('glGetProgramivARB');
-    if not Assigned(glGetProgramivARB) then Exit;
-    glGetProgramStringARB := wglGetProcAddress('glGetProgramStringARB');
-    if not Assigned(glGetProgramStringARB) then Exit;
-    glIsProgramARB := wglGetProcAddress('glIsProgramARB');
-    if not Assigned(glIsProgramARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_text_fragment_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_text_fragment_shader', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_APPLE_client_storage: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_APPLE_client_storage', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_APPLE_element_array: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_APPLE_element_array', extstring) then
-  begin
-    glElementPointerAPPLE := wglGetProcAddress('glElementPointerAPPLE');
-    if not Assigned(glElementPointerAPPLE) then Exit;
-    glDrawElementArrayAPPLE := wglGetProcAddress('glDrawElementArrayAPPLE');
-    if not Assigned(glDrawElementArrayAPPLE) then Exit;
-    glDrawRangeElementArrayAPPLE := wglGetProcAddress('glDrawRangeElementArrayAPPLE');
-    if not Assigned(glDrawRangeElementArrayAPPLE) then Exit;
-    glMultiDrawElementArrayAPPLE := wglGetProcAddress('glMultiDrawElementArrayAPPLE');
-    if not Assigned(glMultiDrawElementArrayAPPLE) then Exit;
-    glMultiDrawRangeElementArrayAPPLE := wglGetProcAddress('glMultiDrawRangeElementArrayAPPLE');
-    if not Assigned(glMultiDrawRangeElementArrayAPPLE) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_APPLE_fence: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_APPLE_fence', extstring) then
-  begin
-    glGenFencesAPPLE := wglGetProcAddress('glGenFencesAPPLE');
-    if not Assigned(glGenFencesAPPLE) then Exit;
-    glDeleteFencesAPPLE := wglGetProcAddress('glDeleteFencesAPPLE');
-    if not Assigned(glDeleteFencesAPPLE) then Exit;
-    glSetFenceAPPLE := wglGetProcAddress('glSetFenceAPPLE');
-    if not Assigned(glSetFenceAPPLE) then Exit;
-    glIsFenceAPPLE := wglGetProcAddress('glIsFenceAPPLE');
-    if not Assigned(glIsFenceAPPLE) then Exit;
-    glTestFenceAPPLE := wglGetProcAddress('glTestFenceAPPLE');
-    if not Assigned(glTestFenceAPPLE) then Exit;
-    glFinishFenceAPPLE := wglGetProcAddress('glFinishFenceAPPLE');
-    if not Assigned(glFinishFenceAPPLE) then Exit;
-    glTestObjectAPPLE := wglGetProcAddress('glTestObjectAPPLE');
-    if not Assigned(glTestObjectAPPLE) then Exit;
-    glFinishObjectAPPLE := wglGetProcAddress('glFinishObjectAPPLE');
-    if not Assigned(glFinishObjectAPPLE) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_APPLE_vertex_array_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_APPLE_vertex_array_object', extstring) then
-  begin
-    glBindVertexArrayAPPLE := wglGetProcAddress('glBindVertexArrayAPPLE');
-    if not Assigned(glBindVertexArrayAPPLE) then Exit;
-    glDeleteVertexArraysAPPLE := wglGetProcAddress('glDeleteVertexArraysAPPLE');
-    if not Assigned(glDeleteVertexArraysAPPLE) then Exit;
-    glGenVertexArraysAPPLE := wglGetProcAddress('glGenVertexArraysAPPLE');
-    if not Assigned(glGenVertexArraysAPPLE) then Exit;
-    glIsVertexArrayAPPLE := wglGetProcAddress('glIsVertexArrayAPPLE');
-    if not Assigned(glIsVertexArrayAPPLE) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_APPLE_vertex_array_range: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_APPLE_vertex_array_range', extstring) then
-  begin
-    glVertexArrayRangeAPPLE := wglGetProcAddress('glVertexArrayRangeAPPLE');
-    if not Assigned(glVertexArrayRangeAPPLE) then Exit;
-    glFlushVertexArrayRangeAPPLE := wglGetProcAddress('glFlushVertexArrayRangeAPPLE');
-    if not Assigned(glFlushVertexArrayRangeAPPLE) then Exit;
-    glVertexArrayParameteriAPPLE := wglGetProcAddress('glVertexArrayParameteriAPPLE');
-    if not Assigned(glVertexArrayParameteriAPPLE) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_pixel_format: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_pixel_format', extstring) then
-  begin
-    wglGetPixelFormatAttribivARB := wglGetProcAddress('wglGetPixelFormatAttribivARB');
-    if not Assigned(wglGetPixelFormatAttribivARB) then Exit;
-    wglGetPixelFormatAttribfvARB := wglGetProcAddress('wglGetPixelFormatAttribfvARB');
-    if not Assigned(wglGetPixelFormatAttribfvARB) then Exit;
-    wglChoosePixelFormatARB := wglGetProcAddress('wglChoosePixelFormatARB');
-    if not Assigned(wglChoosePixelFormatARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_make_current_read: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_make_current_read', extstring) then
-  begin
-    wglMakeContextCurrentARB := wglGetProcAddress('wglMakeContextCurrentARB');
-    if not Assigned(wglMakeContextCurrentARB) then Exit;
-    wglGetCurrentReadDCARB := wglGetProcAddress('wglGetCurrentReadDCARB');
-    if not Assigned(wglGetCurrentReadDCARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_pbuffer: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_pbuffer', extstring) then
-  begin
-    wglCreatePbufferARB := wglGetProcAddress('wglCreatePbufferARB');
-    if not Assigned(wglCreatePbufferARB) then Exit;
-    wglGetPbufferDCARB := wglGetProcAddress('wglGetPbufferDCARB');
-    if not Assigned(wglGetPbufferDCARB) then Exit;
-    wglReleasePbufferDCARB := wglGetProcAddress('wglReleasePbufferDCARB');
-    if not Assigned(wglReleasePbufferDCARB) then Exit;
-    wglDestroyPbufferARB := wglGetProcAddress('wglDestroyPbufferARB');
-    if not Assigned(wglDestroyPbufferARB) then Exit;
-    wglQueryPbufferARB := wglGetProcAddress('wglQueryPbufferARB');
-    if not Assigned(wglQueryPbufferARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_EXT_swap_control: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_EXT_swap_control', extstring) then
-  begin
-    wglSwapIntervalEXT := wglGetProcAddress('wglSwapIntervalEXT');
-    if not Assigned(wglSwapIntervalEXT) then Exit;
-    wglGetSwapIntervalEXT := wglGetProcAddress('wglGetSwapIntervalEXT');
-    if not Assigned(wglGetSwapIntervalEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ARB_render_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ARB_render_texture', extstring) then
-  begin
-    wglBindTexImageARB := wglGetProcAddress('wglBindTexImageARB');
-    if not Assigned(wglBindTexImageARB) then Exit;
-    wglReleaseTexImageARB := wglGetProcAddress('wglReleaseTexImageARB');
-    if not Assigned(wglReleaseTexImageARB) then Exit;
-    wglSetPbufferAttribARB := wglGetProcAddress('wglSetPbufferAttribARB');
-    if not Assigned(wglSetPbufferAttribARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_EXT_extensions_string: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_EXT_extensions_string', extstring) then
-  begin
-    wglGetExtensionsStringEXT := wglGetProcAddress('wglGetExtensionsStringEXT');
-    if not Assigned(wglGetExtensionsStringEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_EXT_make_current_read: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_EXT_make_current_read', extstring) then
-  begin
-    wglMakeContextCurrentEXT := wglGetProcAddress('wglMakeContextCurrentEXT');
-    if not Assigned(wglMakeContextCurrentEXT) then Exit;
-    wglGetCurrentReadDCEXT := wglGetProcAddress('wglGetCurrentReadDCEXT');
-    if not Assigned(wglGetCurrentReadDCEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_EXT_pbuffer: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_EXT_pbuffer', extstring) then
-  begin
-    wglCreatePbufferEXT := wglGetProcAddress('wglCreatePbufferEXT');
-    if not Assigned(wglCreatePbufferEXT) then Exit;
-    wglGetPbufferDCEXT := wglGetProcAddress('wglGetPbufferDCEXT');
-    if not Assigned(wglGetPbufferDCEXT) then Exit;
-    wglReleasePbufferDCEXT := wglGetProcAddress('wglReleasePbufferDCEXT');
-    if not Assigned(wglReleasePbufferDCEXT) then Exit;
-    wglDestroyPbufferEXT := wglGetProcAddress('wglDestroyPbufferEXT');
-    if not Assigned(wglDestroyPbufferEXT) then Exit;
-    wglQueryPbufferEXT := wglGetProcAddress('wglQueryPbufferEXT');
-    if not Assigned(wglQueryPbufferEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_EXT_pixel_format: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_EXT_pixel_format', extstring) then
-  begin
-    wglGetPixelFormatAttribivEXT := wglGetProcAddress('wglGetPixelFormatAttribivEXT');
-    if not Assigned(wglGetPixelFormatAttribivEXT) then Exit;
-    wglGetPixelFormatAttribfvEXT := wglGetProcAddress('wglGetPixelFormatAttribfvEXT');
-    if not Assigned(wglGetPixelFormatAttribfvEXT) then Exit;
-    wglChoosePixelFormatEXT := wglGetProcAddress('wglChoosePixelFormatEXT');
-    if not Assigned(wglChoosePixelFormatEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_digital_video_control: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_digital_video_control', extstring) then
-  begin
-    wglGetDigitalVideoParametersI3D := wglGetProcAddress('wglGetDigitalVideoParametersI3D');
-    if not Assigned(wglGetDigitalVideoParametersI3D) then Exit;
-    wglSetDigitalVideoParametersI3D := wglGetProcAddress('wglSetDigitalVideoParametersI3D');
-    if not Assigned(wglSetDigitalVideoParametersI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_gamma: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_gamma', extstring) then
-  begin
-    wglGetGammaTableParametersI3D := wglGetProcAddress('wglGetGammaTableParametersI3D');
-    if not Assigned(wglGetGammaTableParametersI3D) then Exit;
-    wglSetGammaTableParametersI3D := wglGetProcAddress('wglSetGammaTableParametersI3D');
-    if not Assigned(wglSetGammaTableParametersI3D) then Exit;
-    wglGetGammaTableI3D := wglGetProcAddress('wglGetGammaTableI3D');
-    if not Assigned(wglGetGammaTableI3D) then Exit;
-    wglSetGammaTableI3D := wglGetProcAddress('wglSetGammaTableI3D');
-    if not Assigned(wglSetGammaTableI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_I3D_genlock: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_I3D_genlock', extstring) then
-  begin
-    wglEnableGenlockI3D := wglGetProcAddress('wglEnableGenlockI3D');
-    if not Assigned(wglEnableGenlockI3D) then Exit;
-    wglDisableGenlockI3D := wglGetProcAddress('wglDisableGenlockI3D');
-    if not Assigned(wglDisableGenlockI3D) then Exit;
-    wglIsEnabledGenlockI3D := wglGetProcAddress('wglIsEnabledGenlockI3D');
-    if not Assigned(wglIsEnabledGenlockI3D) then Exit;
-    wglGenlockSourceI3D := wglGetProcAddress('wglGenlockSourceI3D');
-    if not Assigned(wglGenlockSourceI3D) then Exit;
-    wglGetGenlockSourceI3D := wglGetProcAddress('wglGetGenlockSourceI3D');
-    if not Assigned(wglGetGenlockSourceI3D) then Exit;
-    wglGenlockSourceEdgeI3D := wglGetProcAddress('wglGenlockSourceEdgeI3D');
-    if not Assigned(wglGenlockSourceEdgeI3D) then Exit;
-    wglGetGenlockSourceEdgeI3D := wglGetProcAddress('wglGetGenlockSourceEdgeI3D');
-    if not Assigned(wglGetGenlockSourceEdgeI3D) then Exit;
-    wglGenlockSampleRateI3D := wglGetProcAddress('wglGenlockSampleRateI3D');
-    if not Assigned(wglGenlockSampleRateI3D) then Exit;
-    wglGetGenlockSampleRateI3D := wglGetProcAddress('wglGetGenlockSampleRateI3D');
-    if not Assigned(wglGetGenlockSampleRateI3D) then Exit;
-    wglGenlockSourceDelayI3D := wglGetProcAddress('wglGenlockSourceDelayI3D');
-    if not Assigned(wglGenlockSourceDelayI3D) then Exit;
-    wglGetGenlockSourceDelayI3D := wglGetProcAddress('wglGetGenlockSourceDelayI3D');
-    if not Assigned(wglGetGenlockSourceDelayI3D) then Exit;
-    wglQueryGenlockMaxSourceDelayI3D := wglGetProcAddress('wglQueryGenlockMaxSourceDelayI3D');
-    if not Assigned(wglQueryGenlockMaxSourceDelayI3D) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_matrix_palette: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_matrix_palette', extstring) then
-  begin
-    glCurrentPaletteMatrixARB := wglGetProcAddress('glCurrentPaletteMatrixARB');
-    if not Assigned(glCurrentPaletteMatrixARB) then Exit;
-    glMatrixIndexubvARB := wglGetProcAddress('glMatrixIndexubvARB');
-    if not Assigned(glMatrixIndexubvARB) then Exit;
-    glMatrixIndexusvARB := wglGetProcAddress('glMatrixIndexusvARB');
-    if not Assigned(glMatrixIndexusvARB) then Exit;
-    glMatrixIndexuivARB := wglGetProcAddress('glMatrixIndexuivARB');
-    if not Assigned(glMatrixIndexuivARB) then Exit;
-    glMatrixIndexPointerARB := wglGetProcAddress('glMatrixIndexPointerARB');
-    if not Assigned(glMatrixIndexPointerARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_element_array: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_element_array', extstring) then
-  begin
-    glElementPointerNV := wglGetProcAddress('glElementPointerNV');
-    if not Assigned(glElementPointerNV) then Exit;
-    glDrawElementArrayNV := wglGetProcAddress('glDrawElementArrayNV');
-    if not Assigned(glDrawElementArrayNV) then Exit;
-    glDrawRangeElementArrayNV := wglGetProcAddress('glDrawRangeElementArrayNV');
-    if not Assigned(glDrawRangeElementArrayNV) then Exit;
-    glMultiDrawElementArrayNV := wglGetProcAddress('glMultiDrawElementArrayNV');
-    if not Assigned(glMultiDrawElementArrayNV) then Exit;
-    glMultiDrawRangeElementArrayNV := wglGetProcAddress('glMultiDrawRangeElementArrayNV');
-    if not Assigned(glMultiDrawRangeElementArrayNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_float_buffer: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_float_buffer', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_fragment_program: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_fragment_program', extstring) then
-  begin
-    glProgramNamedParameter4fNV := wglGetProcAddress('glProgramNamedParameter4fNV');
-    if not Assigned(glProgramNamedParameter4fNV) then Exit;
-    glProgramNamedParameter4dNV := wglGetProcAddress('glProgramNamedParameter4dNV');
-    if not Assigned(glProgramNamedParameter4dNV) then Exit;
-    glGetProgramNamedParameterfvNV := wglGetProcAddress('glGetProgramNamedParameterfvNV');
-    if not Assigned(glGetProgramNamedParameterfvNV) then Exit;
-    glGetProgramNamedParameterdvNV := wglGetProcAddress('glGetProgramNamedParameterdvNV');
-    if not Assigned(glGetProgramNamedParameterdvNV) then Exit;
-    glProgramLocalParameter4dARB := wglGetProcAddress('glProgramLocalParameter4dARB');
-    if not Assigned(glProgramLocalParameter4dARB) then Exit;
-    glProgramLocalParameter4dvARB := wglGetProcAddress('glProgramLocalParameter4dvARB');
-    if not Assigned(glProgramLocalParameter4dvARB) then Exit;
-    glProgramLocalParameter4fARB := wglGetProcAddress('glProgramLocalParameter4fARB');
-    if not Assigned(glProgramLocalParameter4fARB) then Exit;
-    glProgramLocalParameter4fvARB := wglGetProcAddress('glProgramLocalParameter4fvARB');
-    if not Assigned(glProgramLocalParameter4fvARB) then Exit;
-    glGetProgramLocalParameterdvARB := wglGetProcAddress('glGetProgramLocalParameterdvARB');
-    if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
-    glGetProgramLocalParameterfvARB := wglGetProcAddress('glGetProgramLocalParameterfvARB');
-    if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_primitive_restart: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_primitive_restart', extstring) then
-  begin
-    glPrimitiveRestartNV := wglGetProcAddress('glPrimitiveRestartNV');
-    if not Assigned(glPrimitiveRestartNV) then Exit;
-    glPrimitiveRestartIndexNV := wglGetProcAddress('glPrimitiveRestartIndexNV');
-    if not Assigned(glPrimitiveRestartIndexNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_program2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_program2', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_NV_render_texture_rectangle: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_NV_render_texture_rectangle', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_pixel_data_range: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_pixel_data_range', extstring) then
-  begin
-    glPixelDataRangeNV := wglGetProcAddress('glPixelDataRangeNV');
-    if not Assigned(glPixelDataRangeNV) then Exit;
-    glFlushPixelDataRangeNV := wglGetProcAddress('glFlushPixelDataRangeNV');
-    if not Assigned(glFlushPixelDataRangeNV) then Exit;
-    wglAllocateMemoryNV := wglGetProcAddress('wglAllocateMemoryNV');
-    if not Assigned(wglAllocateMemoryNV) then Exit;
-    wglFreeMemoryNV := wglGetProcAddress('wglFreeMemoryNV');
-    if not Assigned(wglFreeMemoryNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_rectangle: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_rectangle', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_S3_s3tc: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_S3_s3tc', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_draw_buffers: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_draw_buffers', extstring) then
-  begin
-    glDrawBuffersATI := wglGetProcAddress('glDrawBuffersATI');
-    if not Assigned(glDrawBuffersATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_WGL_ATI_pixel_format_float: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  wglGetExtensionsStringARB := wglGetProcAddress('wglGetExtensionsStringARB');
-  if not Assigned(wglGetExtensionsStringARB) then Exit;
-  extstring := String(PChar(wglGetExtensionsStringARB(wglGetCurrentDC)));
-
-  if glext_ExtensionSupported('WGL_ATI_pixel_format_float', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_texture_env_combine3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_texture_env_combine3', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_texture_float: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_texture_float', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_texture_expand_normal: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_texture_expand_normal', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_half_float: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_half_float', extstring) then
-  begin
-    glVertex2hNV := wglGetProcAddress('glVertex2hNV');
-    if not Assigned(glVertex2hNV) then Exit;
-    glVertex2hvNV := wglGetProcAddress('glVertex2hvNV');
-    if not Assigned(glVertex2hvNV) then Exit;
-    glVertex3hNV := wglGetProcAddress('glVertex3hNV');
-    if not Assigned(glVertex3hNV) then Exit;
-    glVertex3hvNV := wglGetProcAddress('glVertex3hvNV');
-    if not Assigned(glVertex3hvNV) then Exit;
-    glVertex4hNV := wglGetProcAddress('glVertex4hNV');
-    if not Assigned(glVertex4hNV) then Exit;
-    glVertex4hvNV := wglGetProcAddress('glVertex4hvNV');
-    if not Assigned(glVertex4hvNV) then Exit;
-    glNormal3hNV := wglGetProcAddress('glNormal3hNV');
-    if not Assigned(glNormal3hNV) then Exit;
-    glNormal3hvNV := wglGetProcAddress('glNormal3hvNV');
-    if not Assigned(glNormal3hvNV) then Exit;
-    glColor3hNV := wglGetProcAddress('glColor3hNV');
-    if not Assigned(glColor3hNV) then Exit;
-    glColor3hvNV := wglGetProcAddress('glColor3hvNV');
-    if not Assigned(glColor3hvNV) then Exit;
-    glColor4hNV := wglGetProcAddress('glColor4hNV');
-    if not Assigned(glColor4hNV) then Exit;
-    glColor4hvNV := wglGetProcAddress('glColor4hvNV');
-    if not Assigned(glColor4hvNV) then Exit;
-    glTexCoord1hNV := wglGetProcAddress('glTexCoord1hNV');
-    if not Assigned(glTexCoord1hNV) then Exit;
-    glTexCoord1hvNV := wglGetProcAddress('glTexCoord1hvNV');
-    if not Assigned(glTexCoord1hvNV) then Exit;
-    glTexCoord2hNV := wglGetProcAddress('glTexCoord2hNV');
-    if not Assigned(glTexCoord2hNV) then Exit;
-    glTexCoord2hvNV := wglGetProcAddress('glTexCoord2hvNV');
-    if not Assigned(glTexCoord2hvNV) then Exit;
-    glTexCoord3hNV := wglGetProcAddress('glTexCoord3hNV');
-    if not Assigned(glTexCoord3hNV) then Exit;
-    glTexCoord3hvNV := wglGetProcAddress('glTexCoord3hvNV');
-    if not Assigned(glTexCoord3hvNV) then Exit;
-    glTexCoord4hNV := wglGetProcAddress('glTexCoord4hNV');
-    if not Assigned(glTexCoord4hNV) then Exit;
-    glTexCoord4hvNV := wglGetProcAddress('glTexCoord4hvNV');
-    if not Assigned(glTexCoord4hvNV) then Exit;
-    glMultiTexCoord1hNV := wglGetProcAddress('glMultiTexCoord1hNV');
-    if not Assigned(glMultiTexCoord1hNV) then Exit;
-    glMultiTexCoord1hvNV := wglGetProcAddress('glMultiTexCoord1hvNV');
-    if not Assigned(glMultiTexCoord1hvNV) then Exit;
-    glMultiTexCoord2hNV := wglGetProcAddress('glMultiTexCoord2hNV');
-    if not Assigned(glMultiTexCoord2hNV) then Exit;
-    glMultiTexCoord2hvNV := wglGetProcAddress('glMultiTexCoord2hvNV');
-    if not Assigned(glMultiTexCoord2hvNV) then Exit;
-    glMultiTexCoord3hNV := wglGetProcAddress('glMultiTexCoord3hNV');
-    if not Assigned(glMultiTexCoord3hNV) then Exit;
-    glMultiTexCoord3hvNV := wglGetProcAddress('glMultiTexCoord3hvNV');
-    if not Assigned(glMultiTexCoord3hvNV) then Exit;
-    glMultiTexCoord4hNV := wglGetProcAddress('glMultiTexCoord4hNV');
-    if not Assigned(glMultiTexCoord4hNV) then Exit;
-    glMultiTexCoord4hvNV := wglGetProcAddress('glMultiTexCoord4hvNV');
-    if not Assigned(glMultiTexCoord4hvNV) then Exit;
-    glFogCoordhNV := wglGetProcAddress('glFogCoordhNV');
-    if not Assigned(glFogCoordhNV) then Exit;
-    glFogCoordhvNV := wglGetProcAddress('glFogCoordhvNV');
-    if not Assigned(glFogCoordhvNV) then Exit;
-    glSecondaryColor3hNV := wglGetProcAddress('glSecondaryColor3hNV');
-    if not Assigned(glSecondaryColor3hNV) then Exit;
-    glSecondaryColor3hvNV := wglGetProcAddress('glSecondaryColor3hvNV');
-    if not Assigned(glSecondaryColor3hvNV) then Exit;
-    glVertexWeighthNV := wglGetProcAddress('glVertexWeighthNV');
-    if not Assigned(glVertexWeighthNV) then Exit;
-    glVertexWeighthvNV := wglGetProcAddress('glVertexWeighthvNV');
-    if not Assigned(glVertexWeighthvNV) then Exit;
-    glVertexAttrib1hNV := wglGetProcAddress('glVertexAttrib1hNV');
-    if not Assigned(glVertexAttrib1hNV) then Exit;
-    glVertexAttrib1hvNV := wglGetProcAddress('glVertexAttrib1hvNV');
-    if not Assigned(glVertexAttrib1hvNV) then Exit;
-    glVertexAttrib2hNV := wglGetProcAddress('glVertexAttrib2hNV');
-    if not Assigned(glVertexAttrib2hNV) then Exit;
-    glVertexAttrib2hvNV := wglGetProcAddress('glVertexAttrib2hvNV');
-    if not Assigned(glVertexAttrib2hvNV) then Exit;
-    glVertexAttrib3hNV := wglGetProcAddress('glVertexAttrib3hNV');
-    if not Assigned(glVertexAttrib3hNV) then Exit;
-    glVertexAttrib3hvNV := wglGetProcAddress('glVertexAttrib3hvNV');
-    if not Assigned(glVertexAttrib3hvNV) then Exit;
-    glVertexAttrib4hNV := wglGetProcAddress('glVertexAttrib4hNV');
-    if not Assigned(glVertexAttrib4hNV) then Exit;
-    glVertexAttrib4hvNV := wglGetProcAddress('glVertexAttrib4hvNV');
-    if not Assigned(glVertexAttrib4hvNV) then Exit;
-    glVertexAttribs1hvNV := wglGetProcAddress('glVertexAttribs1hvNV');
-    if not Assigned(glVertexAttribs1hvNV) then Exit;
-    glVertexAttribs2hvNV := wglGetProcAddress('glVertexAttribs2hvNV');
-    if not Assigned(glVertexAttribs2hvNV) then Exit;
-    glVertexAttribs3hvNV := wglGetProcAddress('glVertexAttribs3hvNV');
-    if not Assigned(glVertexAttribs3hvNV) then Exit;
-    glVertexAttribs4hvNV := wglGetProcAddress('glVertexAttribs4hvNV');
-    if not Assigned(glVertexAttribs4hvNV) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_map_object_buffer: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_map_object_buffer', extstring) then
-  begin
-    glMapObjectBufferATI := wglGetProcAddress('glMapObjectBufferATI');
-    if not Assigned(glMapObjectBufferATI) then Exit;
-    glUnmapObjectBufferATI := wglGetProcAddress('glUnmapObjectBufferATI');
-    if not Assigned(glUnmapObjectBufferATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_separate_stencil: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_separate_stencil', extstring) then
-  begin
-    glStencilOpSeparateATI := wglGetProcAddress('glStencilOpSeparateATI');
-    if not Assigned(glStencilOpSeparateATI) then Exit;
-    glStencilFuncSeparateATI := wglGetProcAddress('glStencilFuncSeparateATI');
-    if not Assigned(glStencilFuncSeparateATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ATI_vertex_attrib_array_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ATI_vertex_attrib_array_object', extstring) then
-  begin
-    glVertexAttribArrayObjectATI := wglGetProcAddress('glVertexAttribArrayObjectATI');
-    if not Assigned(glVertexAttribArrayObjectATI) then Exit;
-    glGetVertexAttribArrayObjectfvATI := wglGetProcAddress('glGetVertexAttribArrayObjectfvATI');
-    if not Assigned(glGetVertexAttribArrayObjectfvATI) then Exit;
-    glGetVertexAttribArrayObjectivATI := wglGetProcAddress('glGetVertexAttribArrayObjectivATI');
-    if not Assigned(glGetVertexAttribArrayObjectivATI) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_vertex_buffer_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_vertex_buffer_object', extstring) then
-  begin
-    glBindBufferARB := wglGetProcAddress('glBindBufferARB');
-    if not Assigned(glBindBufferARB) then Exit;
-    glDeleteBuffersARB := wglGetProcAddress('glDeleteBuffersARB');
-    if not Assigned(glDeleteBuffersARB) then Exit;
-    glGenBuffersARB := wglGetProcAddress('glGenBuffersARB');
-    if not Assigned(glGenBuffersARB) then Exit;
-    glIsBufferARB := wglGetProcAddress('glIsBufferARB');
-    if not Assigned(glIsBufferARB) then Exit;
-    glBufferDataARB := wglGetProcAddress('glBufferDataARB');
-    if not Assigned(glBufferDataARB) then Exit;
-    glBufferSubDataARB := wglGetProcAddress('glBufferSubDataARB');
-    if not Assigned(glBufferSubDataARB) then Exit;
-    glGetBufferSubDataARB := wglGetProcAddress('glGetBufferSubDataARB');
-    if not Assigned(glGetBufferSubDataARB) then Exit;
-    glMapBufferARB := wglGetProcAddress('glMapBufferARB');
-    if not Assigned(glMapBufferARB) then Exit;
-    glUnmapBufferARB := wglGetProcAddress('glUnmapBufferARB');
-    if not Assigned(glUnmapBufferARB) then Exit;
-    glGetBufferParameterivARB := wglGetProcAddress('glGetBufferParameterivARB');
-    if not Assigned(glGetBufferParameterivARB) then Exit;
-    glGetBufferPointervARB := wglGetProcAddress('glGetBufferPointervARB');
-    if not Assigned(glGetBufferPointervARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_occlusion_query: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_occlusion_query', extstring) then
-  begin
-    glGenQueriesARB := wglGetProcAddress('glGenQueriesARB');
-    if not Assigned(glGenQueriesARB) then Exit;
-    glDeleteQueriesARB := wglGetProcAddress('glDeleteQueriesARB');
-    if not Assigned(glDeleteQueriesARB) then Exit;
-    glIsQueryARB := wglGetProcAddress('glIsQueryARB');
-    if not Assigned(glIsQueryARB) then Exit;
-    glBeginQueryARB := wglGetProcAddress('glBeginQueryARB');
-    if not Assigned(glBeginQueryARB) then Exit;
-    glEndQueryARB := wglGetProcAddress('glEndQueryARB');
-    if not Assigned(glEndQueryARB) then Exit;
-    glGetQueryivARB := wglGetProcAddress('glGetQueryivARB');
-    if not Assigned(glGetQueryivARB) then Exit;
-    glGetQueryObjectivARB := wglGetProcAddress('glGetQueryObjectivARB');
-    if not Assigned(glGetQueryObjectivARB) then Exit;
-    glGetQueryObjectuivARB := wglGetProcAddress('glGetQueryObjectuivARB');
-    if not Assigned(glGetQueryObjectuivARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_shader_objects: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_shader_objects', extstring) then
-  begin
-    glDeleteObjectARB := wglGetProcAddress('glDeleteObjectARB');
-    if not Assigned(glDeleteObjectARB) then Exit;
-    glGetHandleARB := wglGetProcAddress('glGetHandleARB');
-    if not Assigned(glGetHandleARB) then Exit;
-    glDetachObjectARB := wglGetProcAddress('glDetachObjectARB');
-    if not Assigned(glDetachObjectARB) then Exit;
-    glCreateShaderObjectARB := wglGetProcAddress('glCreateShaderObjectARB');
-    if not Assigned(glCreateShaderObjectARB) then Exit;
-    glShaderSourceARB := wglGetProcAddress('glShaderSourceARB');
-    if not Assigned(glShaderSourceARB) then Exit;
-    glCompileShaderARB := wglGetProcAddress('glCompileShaderARB');
-    if not Assigned(glCompileShaderARB) then Exit;
-    glCreateProgramObjectARB := wglGetProcAddress('glCreateProgramObjectARB');
-    if not Assigned(glCreateProgramObjectARB) then Exit;
-    glAttachObjectARB := wglGetProcAddress('glAttachObjectARB');
-    if not Assigned(glAttachObjectARB) then Exit;
-    glLinkProgramARB := wglGetProcAddress('glLinkProgramARB');
-    if not Assigned(glLinkProgramARB) then Exit;
-    glUseProgramObjectARB := wglGetProcAddress('glUseProgramObjectARB');
-    if not Assigned(glUseProgramObjectARB) then Exit;
-    glValidateProgramARB := wglGetProcAddress('glValidateProgramARB');
-    if not Assigned(glValidateProgramARB) then Exit;
-    glUniform1fARB := wglGetProcAddress('glUniform1fARB');
-    if not Assigned(glUniform1fARB) then Exit;
-    glUniform2fARB := wglGetProcAddress('glUniform2fARB');
-    if not Assigned(glUniform2fARB) then Exit;
-    glUniform3fARB := wglGetProcAddress('glUniform3fARB');
-    if not Assigned(glUniform3fARB) then Exit;
-    glUniform4fARB := wglGetProcAddress('glUniform4fARB');
-    if not Assigned(glUniform4fARB) then Exit;
-    glUniform1iARB := wglGetProcAddress('glUniform1iARB');
-    if not Assigned(glUniform1iARB) then Exit;
-    glUniform2iARB := wglGetProcAddress('glUniform2iARB');
-    if not Assigned(glUniform2iARB) then Exit;
-    glUniform3iARB := wglGetProcAddress('glUniform3iARB');
-    if not Assigned(glUniform3iARB) then Exit;
-    glUniform4iARB := wglGetProcAddress('glUniform4iARB');
-    if not Assigned(glUniform4iARB) then Exit;
-    glUniform1fvARB := wglGetProcAddress('glUniform1fvARB');
-    if not Assigned(glUniform1fvARB) then Exit;
-    glUniform2fvARB := wglGetProcAddress('glUniform2fvARB');
-    if not Assigned(glUniform2fvARB) then Exit;
-    glUniform3fvARB := wglGetProcAddress('glUniform3fvARB');
-    if not Assigned(glUniform3fvARB) then Exit;
-    glUniform4fvARB := wglGetProcAddress('glUniform4fvARB');
-    if not Assigned(glUniform4fvARB) then Exit;
-    glUniform1ivARB := wglGetProcAddress('glUniform1ivARB');
-    if not Assigned(glUniform1ivARB) then Exit;
-    glUniform2ivARB := wglGetProcAddress('glUniform2ivARB');
-    if not Assigned(glUniform2ivARB) then Exit;
-    glUniform3ivARB := wglGetProcAddress('glUniform3ivARB');
-    if not Assigned(glUniform3ivARB) then Exit;
-    glUniform4ivARB := wglGetProcAddress('glUniform4ivARB');
-    if not Assigned(glUniform4ivARB) then Exit;
-    glUniformMatrix2fvARB := wglGetProcAddress('glUniformMatrix2fvARB');
-    if not Assigned(glUniformMatrix2fvARB) then Exit;
-    glUniformMatrix3fvARB := wglGetProcAddress('glUniformMatrix3fvARB');
-    if not Assigned(glUniformMatrix3fvARB) then Exit;
-    glUniformMatrix4fvARB := wglGetProcAddress('glUniformMatrix4fvARB');
-    if not Assigned(glUniformMatrix4fvARB) then Exit;
-    glGetObjectParameterfvARB := wglGetProcAddress('glGetObjectParameterfvARB');
-    if not Assigned(glGetObjectParameterfvARB) then Exit;
-    glGetObjectParameterivARB := wglGetProcAddress('glGetObjectParameterivARB');
-    if not Assigned(glGetObjectParameterivARB) then Exit;
-    glGetInfoLogARB := wglGetProcAddress('glGetInfoLogARB');
-    if not Assigned(glGetInfoLogARB) then Exit;
-    glGetAttachedObjectsARB := wglGetProcAddress('glGetAttachedObjectsARB');
-    if not Assigned(glGetAttachedObjectsARB) then Exit;
-    glGetUniformLocationARB := wglGetProcAddress('glGetUniformLocationARB');
-    if not Assigned(glGetUniformLocationARB) then Exit;
-    glGetActiveUniformARB := wglGetProcAddress('glGetActiveUniformARB');
-    if not Assigned(glGetActiveUniformARB) then Exit;
-    glGetUniformfvARB := wglGetProcAddress('glGetUniformfvARB');
-    if not Assigned(glGetUniformfvARB) then Exit;
-    glGetUniformivARB := wglGetProcAddress('glGetUniformivARB');
-    if not Assigned(glGetUniformivARB) then Exit;
-    glGetShaderSourceARB := wglGetProcAddress('glGetShaderSourceARB');
-    if not Assigned(glGetShaderSourceARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_vertex_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_vertex_shader', extstring) then
-  begin
-    glVertexAttrib1fARB := wglGetProcAddress('glVertexAttrib1fARB');
-    if not Assigned(glVertexAttrib1fARB) then Exit;
-    glVertexAttrib1sARB := wglGetProcAddress('glVertexAttrib1sARB');
-    if not Assigned(glVertexAttrib1sARB) then Exit;
-    glVertexAttrib1dARB := wglGetProcAddress('glVertexAttrib1dARB');
-    if not Assigned(glVertexAttrib1dARB) then Exit;
-    glVertexAttrib2fARB := wglGetProcAddress('glVertexAttrib2fARB');
-    if not Assigned(glVertexAttrib2fARB) then Exit;
-    glVertexAttrib2sARB := wglGetProcAddress('glVertexAttrib2sARB');
-    if not Assigned(glVertexAttrib2sARB) then Exit;
-    glVertexAttrib2dARB := wglGetProcAddress('glVertexAttrib2dARB');
-    if not Assigned(glVertexAttrib2dARB) then Exit;
-    glVertexAttrib3fARB := wglGetProcAddress('glVertexAttrib3fARB');
-    if not Assigned(glVertexAttrib3fARB) then Exit;
-    glVertexAttrib3sARB := wglGetProcAddress('glVertexAttrib3sARB');
-    if not Assigned(glVertexAttrib3sARB) then Exit;
-    glVertexAttrib3dARB := wglGetProcAddress('glVertexAttrib3dARB');
-    if not Assigned(glVertexAttrib3dARB) then Exit;
-    glVertexAttrib4fARB := wglGetProcAddress('glVertexAttrib4fARB');
-    if not Assigned(glVertexAttrib4fARB) then Exit;
-    glVertexAttrib4sARB := wglGetProcAddress('glVertexAttrib4sARB');
-    if not Assigned(glVertexAttrib4sARB) then Exit;
-    glVertexAttrib4dARB := wglGetProcAddress('glVertexAttrib4dARB');
-    if not Assigned(glVertexAttrib4dARB) then Exit;
-    glVertexAttrib4NubARB := wglGetProcAddress('glVertexAttrib4NubARB');
-    if not Assigned(glVertexAttrib4NubARB) then Exit;
-    glVertexAttrib1fvARB := wglGetProcAddress('glVertexAttrib1fvARB');
-    if not Assigned(glVertexAttrib1fvARB) then Exit;
-    glVertexAttrib1svARB := wglGetProcAddress('glVertexAttrib1svARB');
-    if not Assigned(glVertexAttrib1svARB) then Exit;
-    glVertexAttrib1dvARB := wglGetProcAddress('glVertexAttrib1dvARB');
-    if not Assigned(glVertexAttrib1dvARB) then Exit;
-    glVertexAttrib2fvARB := wglGetProcAddress('glVertexAttrib2fvARB');
-    if not Assigned(glVertexAttrib2fvARB) then Exit;
-    glVertexAttrib2svARB := wglGetProcAddress('glVertexAttrib2svARB');
-    if not Assigned(glVertexAttrib2svARB) then Exit;
-    glVertexAttrib2dvARB := wglGetProcAddress('glVertexAttrib2dvARB');
-    if not Assigned(glVertexAttrib2dvARB) then Exit;
-    glVertexAttrib3fvARB := wglGetProcAddress('glVertexAttrib3fvARB');
-    if not Assigned(glVertexAttrib3fvARB) then Exit;
-    glVertexAttrib3svARB := wglGetProcAddress('glVertexAttrib3svARB');
-    if not Assigned(glVertexAttrib3svARB) then Exit;
-    glVertexAttrib3dvARB := wglGetProcAddress('glVertexAttrib3dvARB');
-    if not Assigned(glVertexAttrib3dvARB) then Exit;
-    glVertexAttrib4fvARB := wglGetProcAddress('glVertexAttrib4fvARB');
-    if not Assigned(glVertexAttrib4fvARB) then Exit;
-    glVertexAttrib4svARB := wglGetProcAddress('glVertexAttrib4svARB');
-    if not Assigned(glVertexAttrib4svARB) then Exit;
-    glVertexAttrib4dvARB := wglGetProcAddress('glVertexAttrib4dvARB');
-    if not Assigned(glVertexAttrib4dvARB) then Exit;
-    glVertexAttrib4ivARB := wglGetProcAddress('glVertexAttrib4ivARB');
-    if not Assigned(glVertexAttrib4ivARB) then Exit;
-    glVertexAttrib4bvARB := wglGetProcAddress('glVertexAttrib4bvARB');
-    if not Assigned(glVertexAttrib4bvARB) then Exit;
-    glVertexAttrib4ubvARB := wglGetProcAddress('glVertexAttrib4ubvARB');
-    if not Assigned(glVertexAttrib4ubvARB) then Exit;
-    glVertexAttrib4usvARB := wglGetProcAddress('glVertexAttrib4usvARB');
-    if not Assigned(glVertexAttrib4usvARB) then Exit;
-    glVertexAttrib4uivARB := wglGetProcAddress('glVertexAttrib4uivARB');
-    if not Assigned(glVertexAttrib4uivARB) then Exit;
-    glVertexAttrib4NbvARB := wglGetProcAddress('glVertexAttrib4NbvARB');
-    if not Assigned(glVertexAttrib4NbvARB) then Exit;
-    glVertexAttrib4NsvARB := wglGetProcAddress('glVertexAttrib4NsvARB');
-    if not Assigned(glVertexAttrib4NsvARB) then Exit;
-    glVertexAttrib4NivARB := wglGetProcAddress('glVertexAttrib4NivARB');
-    if not Assigned(glVertexAttrib4NivARB) then Exit;
-    glVertexAttrib4NubvARB := wglGetProcAddress('glVertexAttrib4NubvARB');
-    if not Assigned(glVertexAttrib4NubvARB) then Exit;
-    glVertexAttrib4NusvARB := wglGetProcAddress('glVertexAttrib4NusvARB');
-    if not Assigned(glVertexAttrib4NusvARB) then Exit;
-    glVertexAttrib4NuivARB := wglGetProcAddress('glVertexAttrib4NuivARB');
-    if not Assigned(glVertexAttrib4NuivARB) then Exit;
-    glVertexAttribPointerARB := wglGetProcAddress('glVertexAttribPointerARB');
-    if not Assigned(glVertexAttribPointerARB) then Exit;
-    glEnableVertexAttribArrayARB := wglGetProcAddress('glEnableVertexAttribArrayARB');
-    if not Assigned(glEnableVertexAttribArrayARB) then Exit;
-    glDisableVertexAttribArrayARB := wglGetProcAddress('glDisableVertexAttribArrayARB');
-    if not Assigned(glDisableVertexAttribArrayARB) then Exit;
-    glBindAttribLocationARB := wglGetProcAddress('glBindAttribLocationARB');
-    if not Assigned(glBindAttribLocationARB) then Exit;
-    glGetActiveAttribARB := wglGetProcAddress('glGetActiveAttribARB');
-    if not Assigned(glGetActiveAttribARB) then Exit;
-    glGetAttribLocationARB := wglGetProcAddress('glGetAttribLocationARB');
-    if not Assigned(glGetAttribLocationARB) then Exit;
-    glGetVertexAttribdvARB := wglGetProcAddress('glGetVertexAttribdvARB');
-    if not Assigned(glGetVertexAttribdvARB) then Exit;
-    glGetVertexAttribfvARB := wglGetProcAddress('glGetVertexAttribfvARB');
-    if not Assigned(glGetVertexAttribfvARB) then Exit;
-    glGetVertexAttribivARB := wglGetProcAddress('glGetVertexAttribivARB');
-    if not Assigned(glGetVertexAttribivARB) then Exit;
-    glGetVertexAttribPointervARB := wglGetProcAddress('glGetVertexAttribPointervARB');
-    if not Assigned(glGetVertexAttribPointervARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_fragment_shader: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_fragment_shader', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_shading_language_100: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_shading_language_100', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_non_power_of_two: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_non_power_of_two', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_point_sprite: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_point_sprite', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_depth_bounds_test: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_depth_bounds_test', extstring) then
-  begin
-    glDepthBoundsEXT := wglGetProcAddress('glDepthBoundsEXT');
-    if not Assigned(glDepthBoundsEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_secondary_color: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_secondary_color', extstring) then
-  begin
-    glSecondaryColor3bEXT := wglGetProcAddress('glSecondaryColor3bEXT');
-    if not Assigned(glSecondaryColor3bEXT) then Exit;
-    glSecondaryColor3sEXT := wglGetProcAddress('glSecondaryColor3sEXT');
-    if not Assigned(glSecondaryColor3sEXT) then Exit;
-    glSecondaryColor3iEXT := wglGetProcAddress('glSecondaryColor3iEXT');
-    if not Assigned(glSecondaryColor3iEXT) then Exit;
-    glSecondaryColor3fEXT := wglGetProcAddress('glSecondaryColor3fEXT');
-    if not Assigned(glSecondaryColor3fEXT) then Exit;
-    glSecondaryColor3dEXT := wglGetProcAddress('glSecondaryColor3dEXT');
-    if not Assigned(glSecondaryColor3dEXT) then Exit;
-    glSecondaryColor3ubEXT := wglGetProcAddress('glSecondaryColor3ubEXT');
-    if not Assigned(glSecondaryColor3ubEXT) then Exit;
-    glSecondaryColor3usEXT := wglGetProcAddress('glSecondaryColor3usEXT');
-    if not Assigned(glSecondaryColor3usEXT) then Exit;
-    glSecondaryColor3uiEXT := wglGetProcAddress('glSecondaryColor3uiEXT');
-    if not Assigned(glSecondaryColor3uiEXT) then Exit;
-    glSecondaryColor3bvEXT := wglGetProcAddress('glSecondaryColor3bvEXT');
-    if not Assigned(glSecondaryColor3bvEXT) then Exit;
-    glSecondaryColor3svEXT := wglGetProcAddress('glSecondaryColor3svEXT');
-    if not Assigned(glSecondaryColor3svEXT) then Exit;
-    glSecondaryColor3ivEXT := wglGetProcAddress('glSecondaryColor3ivEXT');
-    if not Assigned(glSecondaryColor3ivEXT) then Exit;
-    glSecondaryColor3fvEXT := wglGetProcAddress('glSecondaryColor3fvEXT');
-    if not Assigned(glSecondaryColor3fvEXT) then Exit;
-    glSecondaryColor3dvEXT := wglGetProcAddress('glSecondaryColor3dvEXT');
-    if not Assigned(glSecondaryColor3dvEXT) then Exit;
-    glSecondaryColor3ubvEXT := wglGetProcAddress('glSecondaryColor3ubvEXT');
-    if not Assigned(glSecondaryColor3ubvEXT) then Exit;
-    glSecondaryColor3usvEXT := wglGetProcAddress('glSecondaryColor3usvEXT');
-    if not Assigned(glSecondaryColor3usvEXT) then Exit;
-    glSecondaryColor3uivEXT := wglGetProcAddress('glSecondaryColor3uivEXT');
-    if not Assigned(glSecondaryColor3uivEXT) then Exit;
-    glSecondaryColorPointerEXT := wglGetProcAddress('glSecondaryColorPointerEXT');
-    if not Assigned(glSecondaryColorPointerEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_mirror_clamp: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_mirror_clamp', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_blend_equation_separate: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_blend_equation_separate', extstring) then
-  begin
-    glBlendEquationSeparateEXT := wglGetProcAddress('glBlendEquationSeparateEXT');
-    if not Assigned(glBlendEquationSeparateEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_MESA_pack_invert: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_MESA_pack_invert', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_MESA_ycbcr_texture: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_MESA_ycbcr_texture', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_fragment_program_shadow: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_fragment_program_shadow', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_fog_coord: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_fog_coord', extstring) then
-  begin
-    glFogCoordfEXT := wglGetProcAddress('glFogCoordfEXT');
-    if not Assigned(glFogCoordfEXT) then Exit;
-    glFogCoorddEXT := wglGetProcAddress('glFogCoorddEXT');
-    if not Assigned(glFogCoorddEXT) then Exit;
-    glFogCoordfvEXT := wglGetProcAddress('glFogCoordfvEXT');
-    if not Assigned(glFogCoordfvEXT) then Exit;
-    glFogCoorddvEXT := wglGetProcAddress('glFogCoorddvEXT');
-    if not Assigned(glFogCoorddvEXT) then Exit;
-    glFogCoordPointerEXT := wglGetProcAddress('glFogCoordPointerEXT');
-    if not Assigned(glFogCoordPointerEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_fragment_program_option: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_fragment_program_option', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_pixel_buffer_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_pixel_buffer_object', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_fragment_program2: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_fragment_program2', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_program2_option: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_program2_option', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_NV_vertex_program3: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_NV_vertex_program3', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_draw_buffers: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_draw_buffers', extstring) then
-  begin
-    glDrawBuffersARB := wglGetProcAddress('glDrawBuffersARB');
-    if not Assigned(glDrawBuffersARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_rectangle: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_rectangle', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_color_buffer_float: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_color_buffer_float', extstring) then
-  begin
-    glClampColorARB := wglGetProcAddress('glClampColorARB');
-    if not Assigned(glClampColorARB) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_half_float_pixel: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_half_float_pixel', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_texture_float: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_texture_float', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_texture_compression_dxt1: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_texture_compression_dxt1', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_ARB_pixel_buffer_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_ARB_pixel_buffer_object', extstring) then
-  begin
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_EXT_framebuffer_object: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-  if glext_ExtensionSupported('GL_EXT_framebuffer_object', extstring) then
-  begin
-    glIsRenderbufferEXT := wglGetProcAddress('glIsRenderbufferEXT');
-    if not Assigned(glIsRenderbufferEXT) then Exit;
-    glBindRenderbufferEXT := wglGetProcAddress('glBindRenderbufferEXT');
-    if not Assigned(glBindRenderbufferEXT) then Exit;
-    glDeleteRenderbuffersEXT := wglGetProcAddress('glDeleteRenderbuffersEXT');
-    if not Assigned(glDeleteRenderbuffersEXT) then Exit;
-    glGenRenderbuffersEXT := wglGetProcAddress('glGenRenderbuffersEXT');
-    if not Assigned(glGenRenderbuffersEXT) then Exit;
-    glRenderbufferStorageEXT := wglGetProcAddress('glRenderbufferStorageEXT');
-    if not Assigned(glRenderbufferStorageEXT) then Exit;
-    glGetRenderbufferParameterivEXT := wglGetProcAddress('glGetRenderbufferParameterivEXT');
-    if not Assigned(glGetRenderbufferParameterivEXT) then Exit;
-    glIsFramebufferEXT := wglGetProcAddress('glIsFramebufferEXT');
-    if not Assigned(glIsFramebufferEXT) then Exit;
-    glBindFramebufferEXT := wglGetProcAddress('glBindFramebufferEXT');
-    if not Assigned(glBindFramebufferEXT) then Exit;
-    glDeleteFramebuffersEXT := wglGetProcAddress('glDeleteFramebuffersEXT');
-    if not Assigned(glDeleteFramebuffersEXT) then Exit;
-    glGenFramebuffersEXT := wglGetProcAddress('glGenFramebuffersEXT');
-    if not Assigned(glGenFramebuffersEXT) then Exit;
-    glCheckFramebufferStatusEXT := wglGetProcAddress('glCheckFramebufferStatusEXT');
-    if not Assigned(glCheckFramebufferStatusEXT) then Exit;
-    glFramebufferTexture1DEXT := wglGetProcAddress('glFramebufferTexture1DEXT');
-    if not Assigned(glFramebufferTexture1DEXT) then Exit;
-    glFramebufferTexture2DEXT := wglGetProcAddress('glFramebufferTexture2DEXT');
-    if not Assigned(glFramebufferTexture2DEXT) then Exit;
-    glFramebufferTexture3DEXT := wglGetProcAddress('glFramebufferTexture3DEXT');
-    if not Assigned(glFramebufferTexture3DEXT) then Exit;
-    glFramebufferRenderbufferEXT := wglGetProcAddress('glFramebufferRenderbufferEXT');
-    if not Assigned(glFramebufferRenderbufferEXT) then Exit;
-    glGetFramebufferAttachmentParameterivEXT := wglGetProcAddress('glGetFramebufferAttachmentParameterivEXT');
-    if not Assigned(glGetFramebufferAttachmentParameterivEXT) then Exit;
-    glGenerateMipmapEXT := wglGetProcAddress('glGenerateMipmapEXT');
-    if not Assigned(glGenerateMipmapEXT) then Exit;
-    Result := TRUE;
-  end;
-
-end;
-
-function Load_GL_version_1_4: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-    glBlendFuncSeparate := wglGetProcAddress('glBlendFuncSeparate');
-    if not Assigned(glBlendFuncSeparate) then Exit;
-    glFogCoordf := wglGetProcAddress('glFogCoordf');
-    if not Assigned(glFogCoordf) then Exit;
-    glFogCoordfv := wglGetProcAddress('glFogCoordfv');
-    if not Assigned(glFogCoordfv) then Exit;
-    glFogCoordd := wglGetProcAddress('glFogCoordd');
-    if not Assigned(glFogCoordd) then Exit;
-    glFogCoorddv := wglGetProcAddress('glFogCoorddv');
-    if not Assigned(glFogCoorddv) then Exit;
-    glFogCoordPointer := wglGetProcAddress('glFogCoordPointer');
-    if not Assigned(glFogCoordPointer) then Exit;
-    glMultiDrawArrays := wglGetProcAddress('glMultiDrawArrays');
-    if not Assigned(glMultiDrawArrays) then Exit;
-    glMultiDrawElements := wglGetProcAddress('glMultiDrawElements');
-    if not Assigned(glMultiDrawElements) then Exit;
-    glPointParameterf := wglGetProcAddress('glPointParameterf');
-    if not Assigned(glPointParameterf) then Exit;
-    glPointParameterfv := wglGetProcAddress('glPointParameterfv');
-    if not Assigned(glPointParameterfv) then Exit;
-    glPointParameteri := wglGetProcAddress('glPointParameteri');
-    if not Assigned(glPointParameteri) then Exit;
-    glPointParameteriv := wglGetProcAddress('glPointParameteriv');
-    if not Assigned(glPointParameteriv) then Exit;
-    glSecondaryColor3b := wglGetProcAddress('glSecondaryColor3b');
-    if not Assigned(glSecondaryColor3b) then Exit;
-    glSecondaryColor3bv := wglGetProcAddress('glSecondaryColor3bv');
-    if not Assigned(glSecondaryColor3bv) then Exit;
-    glSecondaryColor3d := wglGetProcAddress('glSecondaryColor3d');
-    if not Assigned(glSecondaryColor3d) then Exit;
-    glSecondaryColor3dv := wglGetProcAddress('glSecondaryColor3dv');
-    if not Assigned(glSecondaryColor3dv) then Exit;
-    glSecondaryColor3f := wglGetProcAddress('glSecondaryColor3f');
-    if not Assigned(glSecondaryColor3f) then Exit;
-    glSecondaryColor3fv := wglGetProcAddress('glSecondaryColor3fv');
-    if not Assigned(glSecondaryColor3fv) then Exit;
-    glSecondaryColor3i := wglGetProcAddress('glSecondaryColor3i');
-    if not Assigned(glSecondaryColor3i) then Exit;
-    glSecondaryColor3iv := wglGetProcAddress('glSecondaryColor3iv');
-    if not Assigned(glSecondaryColor3iv) then Exit;
-    glSecondaryColor3s := wglGetProcAddress('glSecondaryColor3s');
-    if not Assigned(glSecondaryColor3s) then Exit;
-    glSecondaryColor3sv := wglGetProcAddress('glSecondaryColor3sv');
-    if not Assigned(glSecondaryColor3sv) then Exit;
-    glSecondaryColor3ub := wglGetProcAddress('glSecondaryColor3ub');
-    if not Assigned(glSecondaryColor3ub) then Exit;
-    glSecondaryColor3ubv := wglGetProcAddress('glSecondaryColor3ubv');
-    if not Assigned(glSecondaryColor3ubv) then Exit;
-    glSecondaryColor3ui := wglGetProcAddress('glSecondaryColor3ui');
-    if not Assigned(glSecondaryColor3ui) then Exit;
-    glSecondaryColor3uiv := wglGetProcAddress('glSecondaryColor3uiv');
-    if not Assigned(glSecondaryColor3uiv) then Exit;
-    glSecondaryColor3us := wglGetProcAddress('glSecondaryColor3us');
-    if not Assigned(glSecondaryColor3us) then Exit;
-    glSecondaryColor3usv := wglGetProcAddress('glSecondaryColor3usv');
-    if not Assigned(glSecondaryColor3usv) then Exit;
-    glSecondaryColorPointer := wglGetProcAddress('glSecondaryColorPointer');
-    if not Assigned(glSecondaryColorPointer) then Exit;
-    glWindowPos2d := wglGetProcAddress('glWindowPos2d');
-    if not Assigned(glWindowPos2d) then Exit;
-    glWindowPos2dv := wglGetProcAddress('glWindowPos2dv');
-    if not Assigned(glWindowPos2dv) then Exit;
-    glWindowPos2f := wglGetProcAddress('glWindowPos2f');
-    if not Assigned(glWindowPos2f) then Exit;
-    glWindowPos2fv := wglGetProcAddress('glWindowPos2fv');
-    if not Assigned(glWindowPos2fv) then Exit;
-    glWindowPos2i := wglGetProcAddress('glWindowPos2i');
-    if not Assigned(glWindowPos2i) then Exit;
-    glWindowPos2iv := wglGetProcAddress('glWindowPos2iv');
-    if not Assigned(glWindowPos2iv) then Exit;
-    glWindowPos2s := wglGetProcAddress('glWindowPos2s');
-    if not Assigned(glWindowPos2s) then Exit;
-    glWindowPos2sv := wglGetProcAddress('glWindowPos2sv');
-    if not Assigned(glWindowPos2sv) then Exit;
-    glWindowPos3d := wglGetProcAddress('glWindowPos3d');
-    if not Assigned(glWindowPos3d) then Exit;
-    glWindowPos3dv := wglGetProcAddress('glWindowPos3dv');
-    if not Assigned(glWindowPos3dv) then Exit;
-    glWindowPos3f := wglGetProcAddress('glWindowPos3f');
-    if not Assigned(glWindowPos3f) then Exit;
-    glWindowPos3fv := wglGetProcAddress('glWindowPos3fv');
-    if not Assigned(glWindowPos3fv) then Exit;
-    glWindowPos3i := wglGetProcAddress('glWindowPos3i');
-    if not Assigned(glWindowPos3i) then Exit;
-    glWindowPos3iv := wglGetProcAddress('glWindowPos3iv');
-    if not Assigned(glWindowPos3iv) then Exit;
-    glWindowPos3s := wglGetProcAddress('glWindowPos3s');
-    if not Assigned(glWindowPos3s) then Exit;
-    glWindowPos3sv := wglGetProcAddress('glWindowPos3sv');
-    if not Assigned(glWindowPos3sv) then Exit;
-    Result := TRUE;
-
-end;
-
-function Load_GL_version_1_5: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-    glGenQueries := wglGetProcAddress('glGenQueries');
-    if not Assigned(glGenQueries) then Exit;
-    glDeleteQueries := wglGetProcAddress('glDeleteQueries');
-    if not Assigned(glDeleteQueries) then Exit;
-    glIsQuery := wglGetProcAddress('glIsQuery');
-    if not Assigned(glIsQuery) then Exit;
-    glBeginQuery := wglGetProcAddress('glBeginQuery');
-    if not Assigned(glBeginQuery) then Exit;
-    glEndQuery := wglGetProcAddress('glEndQuery');
-    if not Assigned(glEndQuery) then Exit;
-    glGetQueryiv := wglGetProcAddress('glGetQueryiv');
-    if not Assigned(glGetQueryiv) then Exit;
-    glGetQueryObjectiv := wglGetProcAddress('glGetQueryObjectiv');
-    if not Assigned(glGetQueryObjectiv) then Exit;
-    glGetQueryObjectuiv := wglGetProcAddress('glGetQueryObjectuiv');
-    if not Assigned(glGetQueryObjectuiv) then Exit;
-    glBindBuffer := wglGetProcAddress('glBindBuffer');
-    if not Assigned(glBindBuffer) then Exit;
-    glDeleteBuffers := wglGetProcAddress('glDeleteBuffers');
-    if not Assigned(glDeleteBuffers) then Exit;
-    glGenBuffers := wglGetProcAddress('glGenBuffers');
-    if not Assigned(glGenBuffers) then Exit;
-    glIsBuffer := wglGetProcAddress('glIsBuffer');
-    if not Assigned(glIsBuffer) then Exit;
-    glBufferData := wglGetProcAddress('glBufferData');
-    if not Assigned(glBufferData) then Exit;
-    glBufferSubData := wglGetProcAddress('glBufferSubData');
-    if not Assigned(glBufferSubData) then Exit;
-    glGetBufferSubData := wglGetProcAddress('glGetBufferSubData');
-    if not Assigned(glGetBufferSubData) then Exit;
-    glMapBuffer := wglGetProcAddress('glMapBuffer');
-    if not Assigned(glMapBuffer) then Exit;
-    glUnmapBuffer := wglGetProcAddress('glUnmapBuffer');
-    if not Assigned(glUnmapBuffer) then Exit;
-    glGetBufferParameteriv := wglGetProcAddress('glGetBufferParameteriv');
-    if not Assigned(glGetBufferParameteriv) then Exit;
-    glGetBufferPointerv := wglGetProcAddress('glGetBufferPointerv');
-    if not Assigned(glGetBufferPointerv) then Exit;
-    Result := TRUE;
-
-end;
-
-function Load_GL_version_2_0: Boolean;
-var
-  extstring: String;
-begin
-
-  Result := FALSE;
-  extstring := String(PChar(glGetString(GL_EXTENSIONS)));
-
-    glBlendEquationSeparate := wglGetProcAddress('glBlendEquationSeparate');
-    if not Assigned(glBlendEquationSeparate) then Exit;
-    glDrawBuffers := wglGetProcAddress('glDrawBuffers');
-    if not Assigned(glDrawBuffers) then Exit;
-    glStencilOpSeparate := wglGetProcAddress('glStencilOpSeparate');
-    if not Assigned(glStencilOpSeparate) then Exit;
-    glStencilFuncSeparate := wglGetProcAddress('glStencilFuncSeparate');
-    if not Assigned(glStencilFuncSeparate) then Exit;
-    glStencilMaskSeparate := wglGetProcAddress('glStencilMaskSeparate');
-    if not Assigned(glStencilMaskSeparate) then Exit;
-    glAttachShader := wglGetProcAddress('glAttachShader');
-    if not Assigned(glAttachShader) then Exit;
-    glBindAttribLocation := wglGetProcAddress('glBindAttribLocation');
-    if not Assigned(glBindAttribLocation) then Exit;
-    glCompileShader := wglGetProcAddress('glCompileShader');
-    if not Assigned(glCompileShader) then Exit;
-    glCreateProgram := wglGetProcAddress('glCreateProgram');
-    if not Assigned(glCreateProgram) then Exit;
-    glCreateShader := wglGetProcAddress('glCreateShader');
-    if not Assigned(glCreateShader) then Exit;
-    glDeleteProgram := wglGetProcAddress('glDeleteProgram');
-    if not Assigned(glDeleteProgram) then Exit;
-    glDeleteShader := wglGetProcAddress('glDeleteShader');
-    if not Assigned(glDeleteShader) then Exit;
-    glDetachShader := wglGetProcAddress('glDetachShader');
-    if not Assigned(glDetachShader) then Exit;
-    glDisableVertexAttribArray := wglGetProcAddress('glDisableVertexAttribArray');
-    if not Assigned(glDisableVertexAttribArray) then Exit;
-    glEnableVertexAttribArray := wglGetProcAddress('glEnableVertexAttribArray');
-    if not Assigned(glEnableVertexAttribArray) then Exit;
-    glGetActiveAttrib := wglGetProcAddress('glGetActiveAttrib');
-    if not Assigned(glGetActiveAttrib) then Exit;
-    glGetActiveUniform := wglGetProcAddress('glGetActiveUniform');
-    if not Assigned(glGetActiveUniform) then Exit;
-    glGetAttachedShaders := wglGetProcAddress('glGetAttachedShaders');
-    if not Assigned(glGetAttachedShaders) then Exit;
-    glGetAttribLocation := wglGetProcAddress('glGetAttribLocation');
-    if not Assigned(glGetAttribLocation) then Exit;
-    glGetProgramiv := wglGetProcAddress('glGetProgramiv');
-    if not Assigned(glGetProgramiv) then Exit;
-    glGetProgramInfoLog := wglGetProcAddress('glGetProgramInfoLog');
-    if not Assigned(glGetProgramInfoLog) then Exit;
-    glGetShaderiv := wglGetProcAddress('glGetShaderiv');
-    if not Assigned(glGetShaderiv) then Exit;
-    glGetShaderInfoLog := wglGetProcAddress('glGetShaderInfoLog');
-    if not Assigned(glGetShaderInfoLog) then Exit;
-    glGetShaderSource := wglGetProcAddress('glGetShaderSource');
-    if not Assigned(glGetShaderSource) then Exit;
-    glGetUniformLocation := wglGetProcAddress('glGetUniformLocation');
-    if not Assigned(glGetUniformLocation) then Exit;
-    glGetUniformfv := wglGetProcAddress('glGetUniformfv');
-    if not Assigned(glGetUniformfv) then Exit;
-    glGetUniformiv := wglGetProcAddress('glGetUniformiv');
-    if not Assigned(glGetUniformiv) then Exit;
-    glGetVertexAttribdv := wglGetProcAddress('glGetVertexAttribdv');
-    if not Assigned(glGetVertexAttribdv) then Exit;
-    glGetVertexAttribfv := wglGetProcAddress('glGetVertexAttribfv');
-    if not Assigned(glGetVertexAttribfv) then Exit;
-    glGetVertexAttribiv := wglGetProcAddress('glGetVertexAttribiv');
-    if not Assigned(glGetVertexAttribiv) then Exit;
-    glGetVertexAttribPointerv := wglGetProcAddress('glGetVertexAttribPointerv');
-    if not Assigned(glGetVertexAttribPointerv) then Exit;
-    glIsProgram := wglGetProcAddress('glIsProgram');
-    if not Assigned(glIsProgram) then Exit;
-    glIsShader := wglGetProcAddress('glIsShader');
-    if not Assigned(glIsShader) then Exit;
-    glLinkProgram := wglGetProcAddress('glLinkProgram');
-    if not Assigned(glLinkProgram) then Exit;
-    glShaderSource := wglGetProcAddress('glShaderSource');
-    if not Assigned(glShaderSource) then Exit;
-    glUseProgram := wglGetProcAddress('glUseProgram');
-    if not Assigned(glUseProgram) then Exit;
-    glUniform1f := wglGetProcAddress('glUniform1f');
-    if not Assigned(glUniform1f) then Exit;
-    glUniform2f := wglGetProcAddress('glUniform2f');
-    if not Assigned(glUniform2f) then Exit;
-    glUniform3f := wglGetProcAddress('glUniform3f');
-    if not Assigned(glUniform3f) then Exit;
-    glUniform4f := wglGetProcAddress('glUniform4f');
-    if not Assigned(glUniform4f) then Exit;
-    glUniform1i := wglGetProcAddress('glUniform1i');
-    if not Assigned(glUniform1i) then Exit;
-    glUniform2i := wglGetProcAddress('glUniform2i');
-    if not Assigned(glUniform2i) then Exit;
-    glUniform3i := wglGetProcAddress('glUniform3i');
-    if not Assigned(glUniform3i) then Exit;
-    glUniform4i := wglGetProcAddress('glUniform4i');
-    if not Assigned(glUniform4i) then Exit;
-    glUniform1fv := wglGetProcAddress('glUniform1fv');
-    if not Assigned(glUniform1fv) then Exit;
-    glUniform2fv := wglGetProcAddress('glUniform2fv');
-    if not Assigned(glUniform2fv) then Exit;
-    glUniform3fv := wglGetProcAddress('glUniform3fv');
-    if not Assigned(glUniform3fv) then Exit;
-    glUniform4fv := wglGetProcAddress('glUniform4fv');
-    if not Assigned(glUniform4fv) then Exit;
-    glUniform1iv := wglGetProcAddress('glUniform1iv');
-    if not Assigned(glUniform1iv) then Exit;
-    glUniform2iv := wglGetProcAddress('glUniform2iv');
-    if not Assigned(glUniform2iv) then Exit;
-    glUniform3iv := wglGetProcAddress('glUniform3iv');
-    if not Assigned(glUniform3iv) then Exit;
-    glUniform4iv := wglGetProcAddress('glUniform4iv');
-    if not Assigned(glUniform4iv) then Exit;
-    glUniformMatrix2fv := wglGetProcAddress('glUniformMatrix2fv');
-    if not Assigned(glUniformMatrix2fv) then Exit;
-    glUniformMatrix3fv := wglGetProcAddress('glUniformMatrix3fv');
-    if not Assigned(glUniformMatrix3fv) then Exit;
-    glUniformMatrix4fv := wglGetProcAddress('glUniformMatrix4fv');
-    if not Assigned(glUniformMatrix4fv) then Exit;
-    glValidateProgram := wglGetProcAddress('glValidateProgram');
-    if not Assigned(glValidateProgram) then Exit;
-    glVertexAttrib1d := wglGetProcAddress('glVertexAttrib1d');
-    if not Assigned(glVertexAttrib1d) then Exit;
-    glVertexAttrib1dv := wglGetProcAddress('glVertexAttrib1dv');
-    if not Assigned(glVertexAttrib1dv) then Exit;
-    glVertexAttrib1f := wglGetProcAddress('glVertexAttrib1f');
-    if not Assigned(glVertexAttrib1f) then Exit;
-    glVertexAttrib1fv := wglGetProcAddress('glVertexAttrib1fv');
-    if not Assigned(glVertexAttrib1fv) then Exit;
-    glVertexAttrib1s := wglGetProcAddress('glVertexAttrib1s');
-    if not Assigned(glVertexAttrib1s) then Exit;
-    glVertexAttrib1sv := wglGetProcAddress('glVertexAttrib1sv');
-    if not Assigned(glVertexAttrib1sv) then Exit;
-    glVertexAttrib2d := wglGetProcAddress('glVertexAttrib2d');
-    if not Assigned(glVertexAttrib2d) then Exit;
-    glVertexAttrib2dv := wglGetProcAddress('glVertexAttrib2dv');
-    if not Assigned(glVertexAttrib2dv) then Exit;
-    glVertexAttrib2f := wglGetProcAddress('glVertexAttrib2f');
-    if not Assigned(glVertexAttrib2f) then Exit;
-    glVertexAttrib2fv := wglGetProcAddress('glVertexAttrib2fv');
-    if not Assigned(glVertexAttrib2fv) then Exit;
-    glVertexAttrib2s := wglGetProcAddress('glVertexAttrib2s');
-    if not Assigned(glVertexAttrib2s) then Exit;
-    glVertexAttrib2sv := wglGetProcAddress('glVertexAttrib2sv');
-    if not Assigned(glVertexAttrib2sv) then Exit;
-    glVertexAttrib3d := wglGetProcAddress('glVertexAttrib3d');
-    if not Assigned(glVertexAttrib3d) then Exit;
-    glVertexAttrib3dv := wglGetProcAddress('glVertexAttrib3dv');
-    if not Assigned(glVertexAttrib3dv) then Exit;
-    glVertexAttrib3f := wglGetProcAddress('glVertexAttrib3f');
-    if not Assigned(glVertexAttrib3f) then Exit;
-    glVertexAttrib3fv := wglGetProcAddress('glVertexAttrib3fv');
-    if not Assigned(glVertexAttrib3fv) then Exit;
-    glVertexAttrib3s := wglGetProcAddress('glVertexAttrib3s');
-    if not Assigned(glVertexAttrib3s) then Exit;
-    glVertexAttrib3sv := wglGetProcAddress('glVertexAttrib3sv');
-    if not Assigned(glVertexAttrib3sv) then Exit;
-    glVertexAttrib4Nbv := wglGetProcAddress('glVertexAttrib4Nbv');
-    if not Assigned(glVertexAttrib4Nbv) then Exit;
-    glVertexAttrib4Niv := wglGetProcAddress('glVertexAttrib4Niv');
-    if not Assigned(glVertexAttrib4Niv) then Exit;
-    glVertexAttrib4Nsv := wglGetProcAddress('glVertexAttrib4Nsv');
-    if not Assigned(glVertexAttrib4Nsv) then Exit;
-    glVertexAttrib4Nub := wglGetProcAddress('glVertexAttrib4Nub');
-    if not Assigned(glVertexAttrib4Nub) then Exit;
-    glVertexAttrib4Nubv := wglGetProcAddress('glVertexAttrib4Nubv');
-    if not Assigned(glVertexAttrib4Nubv) then Exit;
-    glVertexAttrib4Nuiv := wglGetProcAddress('glVertexAttrib4Nuiv');
-    if not Assigned(glVertexAttrib4Nuiv) then Exit;
-    glVertexAttrib4Nusv := wglGetProcAddress('glVertexAttrib4Nusv');
-    if not Assigned(glVertexAttrib4Nusv) then Exit;
-    glVertexAttrib4bv := wglGetProcAddress('glVertexAttrib4bv');
-    if not Assigned(glVertexAttrib4bv) then Exit;
-    glVertexAttrib4d := wglGetProcAddress('glVertexAttrib4d');
-    if not Assigned(glVertexAttrib4d) then Exit;
-    glVertexAttrib4dv := wglGetProcAddress('glVertexAttrib4dv');
-    if not Assigned(glVertexAttrib4dv) then Exit;
-    glVertexAttrib4f := wglGetProcAddress('glVertexAttrib4f');
-    if not Assigned(glVertexAttrib4f) then Exit;
-    glVertexAttrib4fv := wglGetProcAddress('glVertexAttrib4fv');
-    if not Assigned(glVertexAttrib4fv) then Exit;
-    glVertexAttrib4iv := wglGetProcAddress('glVertexAttrib4iv');
-    if not Assigned(glVertexAttrib4iv) then Exit;
-    glVertexAttrib4s := wglGetProcAddress('glVertexAttrib4s');
-    if not Assigned(glVertexAttrib4s) then Exit;
-    glVertexAttrib4sv := wglGetProcAddress('glVertexAttrib4sv');
-    if not Assigned(glVertexAttrib4sv) then Exit;
-    glVertexAttrib4ubv := wglGetProcAddress('glVertexAttrib4ubv');
-    if not Assigned(glVertexAttrib4ubv) then Exit;
-    glVertexAttrib4uiv := wglGetProcAddress('glVertexAttrib4uiv');
-    if not Assigned(glVertexAttrib4uiv) then Exit;
-    glVertexAttrib4usv := wglGetProcAddress('glVertexAttrib4usv');
-    if not Assigned(glVertexAttrib4usv) then Exit;
-    glVertexAttribPointer := wglGetProcAddress('glVertexAttribPointer');
-    if not Assigned(glVertexAttribPointer) then Exit;
-    Result := TRUE;
-
-end;
-
-function glext_LoadExtension(ext: String): Boolean;
-begin
-
-  Result := FALSE;
-
-  if ext = 'GL_version_1_2' then Result := Load_GL_version_1_2
-  else if ext = 'GL_ARB_imaging' then Result := Load_GL_ARB_imaging
-  else if ext = 'GL_version_1_3' then Result := Load_GL_version_1_3
-  else if ext = 'GL_ARB_multitexture' then Result := Load_GL_ARB_multitexture
-  else if ext = 'GL_ARB_transpose_matrix' then Result := Load_GL_ARB_transpose_matrix
-  else if ext = 'GL_ARB_multisample' then Result := Load_GL_ARB_multisample
-  else if ext = 'GL_ARB_texture_env_add' then Result := Load_GL_ARB_texture_env_add
-  else if ext = 'WGL_ARB_extensions_string' then Result := Load_WGL_ARB_extensions_string
-  else if ext = 'WGL_ARB_buffer_region' then Result := Load_WGL_ARB_buffer_region
-  else if ext = 'GL_ARB_texture_cube_map' then Result := Load_GL_ARB_texture_cube_map
-  else if ext = 'GL_ARB_depth_texture' then Result := Load_GL_ARB_depth_texture
-  else if ext = 'GL_ARB_point_parameters' then Result := Load_GL_ARB_point_parameters
-  else if ext = 'GL_ARB_shadow' then Result := Load_GL_ARB_shadow
-  else if ext = 'GL_ARB_shadow_ambient' then Result := Load_GL_ARB_shadow_ambient
-  else if ext = 'GL_ARB_texture_border_clamp' then Result := Load_GL_ARB_texture_border_clamp
-  else if ext = 'GL_ARB_texture_compression' then Result := Load_GL_ARB_texture_compression
-  else if ext = 'GL_ARB_texture_env_combine' then Result := Load_GL_ARB_texture_env_combine
-  else if ext = 'GL_ARB_texture_env_crossbar' then Result := Load_GL_ARB_texture_env_crossbar
-  else if ext = 'GL_ARB_texture_env_dot3' then Result := Load_GL_ARB_texture_env_dot3
-  else if ext = 'GL_ARB_texture_mirrored_repeat' then Result := Load_GL_ARB_texture_mirrored_repeat
-  else if ext = 'GL_ARB_vertex_blend' then Result := Load_GL_ARB_vertex_blend
-  else if ext = 'GL_ARB_vertex_program' then Result := Load_GL_ARB_vertex_program
-  else if ext = 'GL_ARB_window_pos' then Result := Load_GL_ARB_window_pos
-  else if ext = 'GL_EXT_422_pixels' then Result := Load_GL_EXT_422_pixels
-  else if ext = 'GL_EXT_abgr' then Result := Load_GL_EXT_abgr
-  else if ext = 'GL_EXT_bgra' then Result := Load_GL_EXT_bgra
-  else if ext = 'GL_EXT_blend_color' then Result := Load_GL_EXT_blend_color
-  else if ext = 'GL_EXT_blend_func_separate' then Result := Load_GL_EXT_blend_func_separate
-  else if ext = 'GL_EXT_blend_logic_op' then Result := Load_GL_EXT_blend_logic_op
-  else if ext = 'GL_EXT_blend_minmax' then Result := Load_GL_EXT_blend_minmax
-  else if ext = 'GL_EXT_blend_subtract' then Result := Load_GL_EXT_blend_subtract
-  else if ext = 'GL_EXT_clip_volume_hint' then Result := Load_GL_EXT_clip_volume_hint
-  else if ext = 'GL_EXT_color_subtable' then Result := Load_GL_EXT_color_subtable
-  else if ext = 'GL_EXT_compiled_vertex_array' then Result := Load_GL_EXT_compiled_vertex_array
-  else if ext = 'GL_EXT_convolution' then Result := Load_GL_EXT_convolution
-  else if ext = 'GL_EXT_histogram' then Result := Load_GL_EXT_histogram
-  else if ext = 'GL_EXT_multi_draw_arrays' then Result := Load_GL_EXT_multi_draw_arrays
-  else if ext = 'GL_EXT_packed_pixels' then Result := Load_GL_EXT_packed_pixels
-  else if ext = 'GL_EXT_paletted_texture' then Result := Load_GL_EXT_paletted_texture
-  else if ext = 'GL_EXT_point_parameters' then Result := Load_GL_EXT_point_parameters
-  else if ext = 'GL_EXT_polygon_offset' then Result := Load_GL_EXT_polygon_offset
-  else if ext = 'GL_EXT_separate_specular_color' then Result := Load_GL_EXT_separate_specular_color
-  else if ext = 'GL_EXT_shadow_funcs' then Result := Load_GL_EXT_shadow_funcs
-  else if ext = 'GL_EXT_shared_texture_palette' then Result := Load_GL_EXT_shared_texture_palette
-  else if ext = 'GL_EXT_stencil_two_side' then Result := Load_GL_EXT_stencil_two_side
-  else if ext = 'GL_EXT_stencil_wrap' then Result := Load_GL_EXT_stencil_wrap
-  else if ext = 'GL_EXT_subtexture' then Result := Load_GL_EXT_subtexture
-  else if ext = 'GL_EXT_texture3D' then Result := Load_GL_EXT_texture3D
-  else if ext = 'GL_EXT_texture_compression_s3tc' then Result := Load_GL_EXT_texture_compression_s3tc
-  else if ext = 'GL_EXT_texture_env_add' then Result := Load_GL_EXT_texture_env_add
-  else if ext = 'GL_EXT_texture_env_combine' then Result := Load_GL_EXT_texture_env_combine
-  else if ext = 'GL_EXT_texture_env_dot3' then Result := Load_GL_EXT_texture_env_dot3
-  else if ext = 'GL_EXT_texture_filter_anisotropic' then Result := Load_GL_EXT_texture_filter_anisotropic
-  else if ext = 'GL_EXT_texture_lod_bias' then Result := Load_GL_EXT_texture_lod_bias
-  else if ext = 'GL_EXT_texture_object' then Result := Load_GL_EXT_texture_object
-  else if ext = 'GL_EXT_vertex_array' then Result := Load_GL_EXT_vertex_array
-  else if ext = 'GL_EXT_vertex_shader' then Result := Load_GL_EXT_vertex_shader
-  else if ext = 'GL_EXT_vertex_weighting' then Result := Load_GL_EXT_vertex_weighting
-  else if ext = 'GL_HP_occlusion_test' then Result := Load_GL_HP_occlusion_test
-  else if ext = 'GL_NV_blend_square' then Result := Load_GL_NV_blend_square
-  else if ext = 'GL_NV_copy_depth_to_color' then Result := Load_GL_NV_copy_depth_to_color
-  else if ext = 'GL_NV_depth_clamp' then Result := Load_GL_NV_depth_clamp
-  else if ext = 'GL_NV_evaluators' then Result := Load_GL_NV_evaluators
-  else if ext = 'GL_NV_fence' then Result := Load_GL_NV_fence
-  else if ext = 'GL_NV_fog_distance' then Result := Load_GL_NV_fog_distance
-  else if ext = 'GL_NV_light_max_exponent' then Result := Load_GL_NV_light_max_exponent
-  else if ext = 'GL_NV_multisample_filter_hint' then Result := Load_GL_NV_multisample_filter_hint
-  else if ext = 'GL_NV_occlusion_query' then Result := Load_GL_NV_occlusion_query
-  else if ext = 'GL_NV_packed_depth_stencil' then Result := Load_GL_NV_packed_depth_stencil
-  else if ext = 'GL_NV_point_sprite' then Result := Load_GL_NV_point_sprite
-  else if ext = 'GL_NV_register_combiners' then Result := Load_GL_NV_register_combiners
-  else if ext = 'GL_NV_register_combiners2' then Result := Load_GL_NV_register_combiners2
-  else if ext = 'GL_NV_texgen_emboss' then Result := Load_GL_NV_texgen_emboss
-  else if ext = 'GL_NV_texgen_reflection' then Result := Load_GL_NV_texgen_reflection
-  else if ext = 'GL_NV_texture_compression_vtc' then Result := Load_GL_NV_texture_compression_vtc
-  else if ext = 'GL_NV_texture_env_combine4' then Result := Load_GL_NV_texture_env_combine4
-  else if ext = 'GL_NV_texture_rectangle' then Result := Load_GL_NV_texture_rectangle
-  else if ext = 'GL_NV_texture_shader' then Result := Load_GL_NV_texture_shader
-  else if ext = 'GL_NV_texture_shader2' then Result := Load_GL_NV_texture_shader2
-  else if ext = 'GL_NV_texture_shader3' then Result := Load_GL_NV_texture_shader3
-  else if ext = 'GL_NV_vertex_array_range' then Result := Load_GL_NV_vertex_array_range
-  else if ext = 'GL_NV_vertex_array_range2' then Result := Load_GL_NV_vertex_array_range2
-  else if ext = 'GL_NV_vertex_program' then Result := Load_GL_NV_vertex_program
-  else if ext = 'GL_NV_vertex_program1_1' then Result := Load_GL_NV_vertex_program1_1
-  else if ext = 'GL_ATI_element_array' then Result := Load_GL_ATI_element_array
-  else if ext = 'GL_ATI_envmap_bumpmap' then Result := Load_GL_ATI_envmap_bumpmap
-  else if ext = 'GL_ATI_fragment_shader' then Result := Load_GL_ATI_fragment_shader
-  else if ext = 'GL_ATI_pn_triangles' then Result := Load_GL_ATI_pn_triangles
-  else if ext = 'GL_ATI_texture_mirror_once' then Result := Load_GL_ATI_texture_mirror_once
-  else if ext = 'GL_ATI_vertex_array_object' then Result := Load_GL_ATI_vertex_array_object
-  else if ext = 'GL_ATI_vertex_streams' then Result := Load_GL_ATI_vertex_streams
-  else if ext = 'WGL_I3D_image_buffer' then Result := Load_WGL_I3D_image_buffer
-  else if ext = 'WGL_I3D_swap_frame_lock' then Result := Load_WGL_I3D_swap_frame_lock
-  else if ext = 'WGL_I3D_swap_frame_usage' then Result := Load_WGL_I3D_swap_frame_usage
-  else if ext = 'GL_3DFX_texture_compression_FXT1' then Result := Load_GL_3DFX_texture_compression_FXT1
-  else if ext = 'GL_IBM_cull_vertex' then Result := Load_GL_IBM_cull_vertex
-  else if ext = 'GL_IBM_multimode_draw_arrays' then Result := Load_GL_IBM_multimode_draw_arrays
-  else if ext = 'GL_IBM_raster_pos_clip' then Result := Load_GL_IBM_raster_pos_clip
-  else if ext = 'GL_IBM_texture_mirrored_repeat' then Result := Load_GL_IBM_texture_mirrored_repeat
-  else if ext = 'GL_IBM_vertex_array_lists' then Result := Load_GL_IBM_vertex_array_lists
-  else if ext = 'GL_MESA_resize_buffers' then Result := Load_GL_MESA_resize_buffers
-  else if ext = 'GL_MESA_window_pos' then Result := Load_GL_MESA_window_pos
-  else if ext = 'GL_OML_interlace' then Result := Load_GL_OML_interlace
-  else if ext = 'GL_OML_resample' then Result := Load_GL_OML_resample
-  else if ext = 'GL_OML_subsample' then Result := Load_GL_OML_subsample
-  else if ext = 'GL_SGIS_generate_mipmap' then Result := Load_GL_SGIS_generate_mipmap
-  else if ext = 'GL_SGIS_multisample' then Result := Load_GL_SGIS_multisample
-  else if ext = 'GL_SGIS_pixel_texture' then Result := Load_GL_SGIS_pixel_texture
-  else if ext = 'GL_SGIS_texture_border_clamp' then Result := Load_GL_SGIS_texture_border_clamp
-  else if ext = 'GL_SGIS_texture_color_mask' then Result := Load_GL_SGIS_texture_color_mask
-  else if ext = 'GL_SGIS_texture_edge_clamp' then Result := Load_GL_SGIS_texture_edge_clamp
-  else if ext = 'GL_SGIS_texture_lod' then Result := Load_GL_SGIS_texture_lod
-  else if ext = 'GL_SGIS_depth_texture' then Result := Load_GL_SGIS_depth_texture
-  else if ext = 'GL_SGIX_fog_offset' then Result := Load_GL_SGIX_fog_offset
-  else if ext = 'GL_SGIX_interlace' then Result := Load_GL_SGIX_interlace
-  else if ext = 'GL_SGIX_shadow_ambient' then Result := Load_GL_SGIX_shadow_ambient
-  else if ext = 'GL_SGI_color_matrix' then Result := Load_GL_SGI_color_matrix
-  else if ext = 'GL_SGI_color_table' then Result := Load_GL_SGI_color_table
-  else if ext = 'GL_SGI_texture_color_table' then Result := Load_GL_SGI_texture_color_table
-  else if ext = 'GL_SUN_vertex' then Result := Load_GL_SUN_vertex
-  else if ext = 'GL_ARB_fragment_program' then Result := Load_GL_ARB_fragment_program
-  else if ext = 'GL_ATI_text_fragment_shader' then Result := Load_GL_ATI_text_fragment_shader
-  else if ext = 'GL_APPLE_client_storage' then Result := Load_GL_APPLE_client_storage
-  else if ext = 'GL_APPLE_element_array' then Result := Load_GL_APPLE_element_array
-  else if ext = 'GL_APPLE_fence' then Result := Load_GL_APPLE_fence
-  else if ext = 'GL_APPLE_vertex_array_object' then Result := Load_GL_APPLE_vertex_array_object
-  else if ext = 'GL_APPLE_vertex_array_range' then Result := Load_GL_APPLE_vertex_array_range
-  else if ext = 'WGL_ARB_pixel_format' then Result := Load_WGL_ARB_pixel_format
-  else if ext = 'WGL_ARB_make_current_read' then Result := Load_WGL_ARB_make_current_read
-  else if ext = 'WGL_ARB_pbuffer' then Result := Load_WGL_ARB_pbuffer
-  else if ext = 'WGL_EXT_swap_control' then Result := Load_WGL_EXT_swap_control
-  else if ext = 'WGL_ARB_render_texture' then Result := Load_WGL_ARB_render_texture
-  else if ext = 'WGL_EXT_extensions_string' then Result := Load_WGL_EXT_extensions_string
-  else if ext = 'WGL_EXT_make_current_read' then Result := Load_WGL_EXT_make_current_read
-  else if ext = 'WGL_EXT_pbuffer' then Result := Load_WGL_EXT_pbuffer
-  else if ext = 'WGL_EXT_pixel_format' then Result := Load_WGL_EXT_pixel_format
-  else if ext = 'WGL_I3D_digital_video_control' then Result := Load_WGL_I3D_digital_video_control
-  else if ext = 'WGL_I3D_gamma' then Result := Load_WGL_I3D_gamma
-  else if ext = 'WGL_I3D_genlock' then Result := Load_WGL_I3D_genlock
-  else if ext = 'GL_ARB_matrix_palette' then Result := Load_GL_ARB_matrix_palette
-  else if ext = 'GL_NV_element_array' then Result := Load_GL_NV_element_array
-  else if ext = 'GL_NV_float_buffer' then Result := Load_GL_NV_float_buffer
-  else if ext = 'GL_NV_fragment_program' then Result := Load_GL_NV_fragment_program
-  else if ext = 'GL_NV_primitive_restart' then Result := Load_GL_NV_primitive_restart
-  else if ext = 'GL_NV_vertex_program2' then Result := Load_GL_NV_vertex_program2
-  else if ext = 'WGL_NV_render_texture_rectangle' then Result := Load_WGL_NV_render_texture_rectangle
-  else if ext = 'GL_NV_pixel_data_range' then Result := Load_GL_NV_pixel_data_range
-  else if ext = 'GL_EXT_texture_rectangle' then Result := Load_GL_EXT_texture_rectangle
-  else if ext = 'GL_S3_s3tc' then Result := Load_GL_S3_s3tc
-  else if ext = 'GL_ATI_draw_buffers' then Result := Load_GL_ATI_draw_buffers
-  else if ext = 'WGL_ATI_pixel_format_float' then Result := Load_WGL_ATI_pixel_format_float
-  else if ext = 'GL_ATI_texture_env_combine3' then Result := Load_GL_ATI_texture_env_combine3
-  else if ext = 'GL_ATI_texture_float' then Result := Load_GL_ATI_texture_float
-  else if ext = 'GL_NV_texture_expand_normal' then Result := Load_GL_NV_texture_expand_normal
-  else if ext = 'GL_NV_half_float' then Result := Load_GL_NV_half_float
-  else if ext = 'GL_ATI_map_object_buffer' then Result := Load_GL_ATI_map_object_buffer
-  else if ext = 'GL_ATI_separate_stencil' then Result := Load_GL_ATI_separate_stencil
-  else if ext = 'GL_ATI_vertex_attrib_array_object' then Result := Load_GL_ATI_vertex_attrib_array_object
-  else if ext = 'GL_ARB_vertex_buffer_object' then Result := Load_GL_ARB_vertex_buffer_object
-  else if ext = 'GL_ARB_occlusion_query' then Result := Load_GL_ARB_occlusion_query
-  else if ext = 'GL_ARB_shader_objects' then Result := Load_GL_ARB_shader_objects
-  else if ext = 'GL_ARB_vertex_shader' then Result := Load_GL_ARB_vertex_shader
-  else if ext = 'GL_ARB_fragment_shader' then Result := Load_GL_ARB_fragment_shader
-  else if ext = 'GL_ARB_shading_language_100' then Result := Load_GL_ARB_shading_language_100
-  else if ext = 'GL_ARB_texture_non_power_of_two' then Result := Load_GL_ARB_texture_non_power_of_two
-  else if ext = 'GL_ARB_point_sprite' then Result := Load_GL_ARB_point_sprite
-  else if ext = 'GL_EXT_depth_bounds_test' then Result := Load_GL_EXT_depth_bounds_test
-  else if ext = 'GL_EXT_secondary_color' then Result := Load_GL_EXT_secondary_color
-  else if ext = 'GL_EXT_texture_mirror_clamp' then Result := Load_GL_EXT_texture_mirror_clamp
-  else if ext = 'GL_EXT_blend_equation_separate' then Result := Load_GL_EXT_blend_equation_separate
-  else if ext = 'GL_MESA_pack_invert' then Result := Load_GL_MESA_pack_invert
-  else if ext = 'GL_MESA_ycbcr_texture' then Result := Load_GL_MESA_ycbcr_texture
-  else if ext = 'GL_ARB_fragment_program_shadow' then Result := Load_GL_ARB_fragment_program_shadow
-  else if ext = 'GL_EXT_fog_coord' then Result := Load_GL_EXT_fog_coord
-  else if ext = 'GL_NV_fragment_program_option' then Result := Load_GL_NV_fragment_program_option
-  else if ext = 'GL_EXT_pixel_buffer_object' then Result := Load_GL_EXT_pixel_buffer_object
-  else if ext = 'GL_NV_fragment_program2' then Result := Load_GL_NV_fragment_program2
-  else if ext = 'GL_NV_vertex_program2_option' then Result := Load_GL_NV_vertex_program2_option
-  else if ext = 'GL_NV_vertex_program3' then Result := Load_GL_NV_vertex_program3
-  else if ext = 'GL_ARB_draw_buffers' then Result := Load_GL_ARB_draw_buffers
-  else if ext = 'GL_ARB_texture_rectangle' then Result := Load_GL_ARB_texture_rectangle
-  else if ext = 'GL_ARB_color_buffer_float' then Result := Load_GL_ARB_color_buffer_float
-  else if ext = 'GL_ARB_half_float_pixel' then Result := Load_GL_ARB_half_float_pixel
-  else if ext = 'GL_ARB_texture_float' then Result := Load_GL_ARB_texture_float
-  else if ext = 'GL_EXT_texture_compression_dxt1' then Result := Load_GL_EXT_texture_compression_dxt1
-  else if ext = 'GL_ARB_pixel_buffer_object' then Result := Load_GL_ARB_pixel_buffer_object
-  else if ext = 'GL_EXT_framebuffer_object' then Result := Load_GL_EXT_framebuffer_object
-  else if ext = 'GL_version_1_4' then Result := Load_GL_version_1_4
-  else if ext = 'GL_version_1_5' then Result := Load_GL_version_1_5
-  else if ext = 'GL_version_2_0' then Result := Load_GL_version_2_0
-
-end;
-
-end.
diff --git a/src/lib/vampimg/Imaging.pas b/src/lib/vampimg/Imaging.pas

new file mode 100644 (file)

index 0000000..f21fa64
--- /dev/null
+++ b/src/lib/vampimg/Imaging.pas
@@ -0,0 +1,4252 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit is heart of Imaging library. It contains basic functions for
+  manipulating image data as well as various image file format support.}
+unit Imaging;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, Types, ImagingTypes;
+
+type
+  { Default Imaging excepton class }
+  EImagingError = class(Exception);
+  { Raised when function receives bad image (not passed TestImage).}
+  EImagingBadImage = class(Exception)
+  public
+    constructor Create;
+  end;
+
+  { Dynamic array of TImageData records }
+  TDynImageDataArray = array of TImageData;
+
+
+{ ------------------------------------------------------------------------
+                       Low Level Interface Functions
+  ------------------------------------------------------------------------}
+
+{ General Functions }
+
+{ Initializes image (all is set to zeroes). Call this for each image
+  before using it (before calling every other function) to be sure there
+  are no random-filled bytes (which would cause errors later).}
+procedure InitImage(var Image: TImageData);
+{ Creates empty image of given dimensions and format. Image is filled with
+  transparent black color (A=0, R=0, G=0, B=0).}
+function NewImage(Width, Height: LongInt; Format: TImageFormat;
+  var Image: TImageData): Boolean;
+{ Returns True if given TImageData record is valid.}
+function TestImage(const Image: TImageData): Boolean;
+{ Frees given image data. Ater this call image is in the same state
+  as after calling InitImage. If image is not valid (dost not pass TestImage
+  test) it is only zeroed by calling InitImage.}
+procedure FreeImage(var Image: TImageData);
+{ Call FreeImage() on all images in given dynamic array and sets its
+  length to zero.}
+procedure FreeImagesInArray(var Images: TDynImageDataArray);
+{ Returns True if all TImageData records in given array are valid. Returns False
+  if at least one is invalid or if array is empty.}
+function TestImagesInArray(const Images: TDynImageDataArray): Boolean;
+{ Checks given file for every supported image file format and if
+  the file is in one of them returns its string identifier
+  (which can be used in LoadFromStream/LoadFromMem type functions).
+  If file is not in any of the supported formats empty string is returned.}
+function DetermineFileFormat(const FileName: string): string;
+{ Checks given stream for every supported image file format and if
+  the stream is in one of them returns its string identifier
+  (which can be used in LoadFromStream/LoadFromMem type functions).
+  If stream is not in any of the supported formats empty string is returned.}
+function DetermineStreamFormat(Stream: TStream): string;
+{ Checks given memory for every supported image file format and if
+  the memory is in one of them returns its string identifier
+  (which can be used in LoadFromStream/LoadFromMem type functions).
+  If memory is not in any of the supported formats empty string is returned.}
+function DetermineMemoryFormat(Data: Pointer; Size: LongInt): string;
+{ Checks that an apropriate file format is supported purely from inspecting
+  the given file name's extension (not contents of the file itself).
+  The file need not exist.}
+function IsFileFormatSupported(const FileName: string): Boolean;
+{ Enumerates all registered image file formats. Descriptive name,
+  default extension, masks (like '*.jpg,*.jfif') and some capabilities
+  of each format are returned. To enumerate all formats start with Index at 0 and
+  call EnumFileFormats with given Index in loop until it returns False (Index is
+  automatically increased by 1 in function's body on successful call).}
+function EnumFileFormats(var Index: LongInt; var Name, DefaultExt, Masks: string;
+  var CanSaveImages, IsMultiImageFormat: Boolean): Boolean;
+
+{ Loading Functions }
+
+{ Loads single image from given file.}
+function LoadImageFromFile(const FileName: string; var Image: TImageData): Boolean;
+{ Loads single image from given stream. If function fails stream position
+  is not changed.}
+function LoadImageFromStream(Stream: TStream; var Image: TImageData): Boolean;
+{ Loads single image from given memory location.}
+function LoadImageFromMemory(Data: Pointer; Size: LongInt; var Image: TImageData): Boolean;
+{ Loads multiple images from given file.}
+function LoadMultiImageFromFile(const FileName: string;
+  var Images: TDynImageDataArray): Boolean;
+{ Loads multiple images from given stream. If function fails stream position
+  is not changed.}
+function LoadMultiImageFromStream(Stream: TStream;
+  var Images: TDynImageDataArray): Boolean;
+{ Loads multiple images from given memory location.}
+function LoadMultiImageFromMemory(Data: Pointer; Size: LongInt;
+  var Images: TDynImageDataArray): Boolean;
+
+{ Saving Functions }
+
+{ Saves single image to given file.}
+function SaveImageToFile(const FileName: string; const Image: TImageData): Boolean;
+{ Saves single image to given stream. If function fails stream position
+  is not changed. Ext identifies desired image file format (jpg, png, dds, ...).}
+function SaveImageToStream(const Ext: string; Stream: TStream;
+  const Image: TImageData): Boolean;
+{ Saves single image to given memory location. Memory must be allocated and its
+  size is passed in Size parameter in which number of written bytes is returned.
+  Ext identifies desired image file format (jpg, png, dds, ...).}
+function SaveImageToMemory(const Ext: string; Data: Pointer; var Size: LongInt;
+  const Image: TImageData): Boolean;
+{ Saves multiple images to given file. If format supports
+  only single level images and there are multiple images to be saved,
+  they are saved as sequence of files img000.jpg, img001.jpg ....).}
+function SaveMultiImageToFile(const FileName: string;
+  const Images: TDynImageDataArray): Boolean;
+{ Saves multiple images to given stream. If format supports
+  only single level images and there are multiple images to be saved,
+  they are saved one after another to the stream. If function fails stream
+  position is not changed. Ext identifies desired image file format (jpg, png, dds, ...).}
+function SaveMultiImageToStream(const Ext: string; Stream: TStream;
+  const Images: TDynImageDataArray): Boolean;
+{ Saves multiple images to given memory location. If format supports
+  only single level images and there are multiple images to be saved,
+  they are saved one after another to the memory. Memory must be allocated and
+  its size is passed in Size parameter in which number of written bytes is returned.
+  Ext identifies desired image file format (jpg, png, dds, ...).}
+function SaveMultiImageToMemory(const Ext: string; Data: Pointer;
+  var Size: LongInt; const Images: TDynImageDataArray): Boolean;
+
+{ Manipulation Functions }
+
+{ Creates identical copy of image data. Clone should be initialized
+  by InitImage or it should be vaild image which will be freed by CloneImage.}
+function CloneImage(const Image: TImageData; var Clone: TImageData): Boolean;
+{ Converts image to the given format.}
+function ConvertImage(var Image: TImageData; DestFormat: TImageFormat): Boolean;
+{ Flips given image. Reverses the image along its horizontal axis - the top
+  becomes the bottom and vice versa.}
+function FlipImage(var Image: TImageData): Boolean;
+{ Mirrors given image. Reverses the image along its vertical axis \97 the left
+  side becomes the right and vice versa.}
+function MirrorImage(var Image: TImageData): Boolean;
+{ Resizes given image to new dimensions. Nearest, bilinear, or bicubic filtering
+  can be used. Input Image must already be created - use NewImage to create new images.}
+function ResizeImage(var Image: TImageData; NewWidth, NewHeight: LongInt;
+  Filter: TResizeFilter): Boolean;
+{ Swaps SrcChannel and DstChannel color or alpha channels of image.
+  Use ChannelRed, ChannelBlue, ChannelGreen, ChannelAlpha constants to
+  identify channels.}
+function SwapChannels(var Image: TImageData; SrcChannel, DstChannel: LongInt): Boolean;
+{ Reduces the number of colors of the Image. Currently MaxColors must be in
+  range <2, 4096>. Color reduction works also for alpha channel. Note that for
+  large images and big number of colors it can be very slow.
+  Output format of the image is the same as input format.}
+function ReduceColors(var Image: TImageData; MaxColors: LongInt): Boolean;
+{ Generates mipmaps for image. Levels is the number of desired mipmaps levels
+  with zero (or some invalid number) meaning all possible levels.}
+function GenerateMipMaps(const Image: TImageData; Levels: LongInt;
+  var MipMaps: TDynImageDataArray): Boolean;
+{ Maps image to existing palette producing image in ifIndex8 format.
+  Pal must be allocated to at least Entries * SizeOf(TColor32Rec) bytes.
+  As resulting image is in 8bit indexed format Entries must be lower or
+  equal to 256.}
+function MapImageToPalette(var Image: TImageData; Pal: PPalette32;
+  Entries: LongInt): Boolean;
+{ Splits image into XChunks x YChunks subimages. Default size of each chunk is
+  ChunkWidth x ChunkHeight. If PreserveSize si True chunks at the edges of
+  the image are also ChunkWidth x ChunkHeight sized and empty space is filled
+  with optional Fill pixels. After calling this function XChunks contains number of
+  chunks along x axis and YChunks along y axis. To access chunk [X, Y] use this
+  index: Chunks[Y * XChunks + X].}
+function SplitImage(var Image: TImageData; var Chunks: TDynImageDataArray;
+  ChunkWidth, ChunkHeight: LongInt; var XChunks, YChunks: LongInt;
+  PreserveSize: Boolean; Fill: Pointer = nil): Boolean;
+{ Creates palette with MaxColors based on the colors of images in Images array.
+  Use it when you want to convert several images to indexed format using
+  single palette for all of them. If ConvertImages is True images in array
+  are converted to indexed format using resulting palette. if it is False
+  images are left intact and only resulting palatte is returned in Pal.
+  Pal must be allocated to have at least MaxColors entries.}
+function MakePaletteForImages(var Images: TDynImageDataArray; Pal: PPalette32;
+  MaxColors: LongInt; ConvertImages: Boolean): Boolean;
+{ Rotates image by Angle degrees counterclockwise. All angles are allowed.}
+procedure RotateImage(var Image: TImageData; Angle: Single);
+
+{ Drawing/Pixel functions }
+
+{ Copies rectangular part of SrcImage to DstImage. No blending is performed -
+  alpha is simply copied to destination image. Operates also with
+  negative X and Y coordinates.
+  Note that copying is fastest for images in the same data format
+  (and slowest for images in special formats).}
+function CopyRect(const SrcImage: TImageData; SrcX, SrcY, Width, Height: LongInt;
+  var DstImage: TImageData; DstX, DstY: LongInt): Boolean;
+{ Fills given rectangle of image with given pixel fill data. Fill should point
+  to the pixel in the same format as the given image is in.}
+function FillRect(var Image: TImageData; X, Y, Width, Height: LongInt; FillColor: Pointer): Boolean;
+{ Replaces pixels with OldPixel in the given rectangle by NewPixel.
+  OldPixel and NewPixel should point to the pixels in the same format
+  as the given image is in.}
+function ReplaceColor(var Image: TImageData; X, Y, Width, Height: LongInt;
+  OldColor, NewColor: Pointer): Boolean;
+{ Stretches the contents of the source rectangle to the destination rectangle
+  with optional resampling. No blending is performed - alpha is
+  simply copied/resampled to destination image. Note that stretching is
+  fastest for images in the same data format (and slowest for
+  images in special formats).}
+function StretchRect(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TResizeFilter): Boolean;
+{ Copies pixel of Image at [X, Y] to memory pointed at by Pixel. Doesn't
+  work with special formats.}
+procedure GetPixelDirect(const Image: TImageData; X, Y: LongInt; Pixel: Pointer);
+{ Copies pixel from memory pointed at by Pixel to Image at position [X, Y].
+  Doesn't work with special formats.}
+procedure SetPixelDirect(const Image: TImageData; X, Y: LongInt; Pixel: Pointer);
+{ Function for getting pixel colors. Native pixel is read from Image and
+  then translated to 32 bit ARGB. Works for all image formats (except special)
+  so it is not very fast.}
+function GetPixel32(const Image: TImageData; X, Y: LongInt): TColor32Rec;
+{ Procedure for setting pixel colors. Input 32 bit ARGB color is translated to
+  native format and then written to Image. Works for all image formats (except special)
+  so it is not very fast.}
+procedure SetPixel32(const Image: TImageData; X, Y: LongInt; const Color: TColor32Rec);
+{ Function for getting pixel colors. Native pixel is read from Image and
+  then translated to FP ARGB. Works for all image formats (except special)
+  so it is not very fast.}
+function GetPixelFP(const Image: TImageData; X, Y: LongInt): TColorFPRec;
+{ Procedure for setting pixel colors. Input FP ARGB color is translated to
+  native format and then written to Image. Works for all image formats (except special)
+  so it is not very fast.}
+procedure SetPixelFP(const Image: TImageData; X, Y: LongInt; const Color: TColorFPRec);
+
+{ Palette Functions }
+
+{ Allocates new palette with Entries ARGB color entries.}
+procedure NewPalette(Entries: LongInt; var Pal: PPalette32);
+{ Frees given palette.}
+procedure FreePalette(var Pal: PPalette32);
+{ Copies Count palette entries from SrcPal starting at index SrcIdx to
+  DstPal at index DstPal.}
+procedure CopyPalette(SrcPal, DstPal: PPalette32; SrcIdx, DstIdx, Count: LongInt);
+{ Returns index of color in palette or index of nearest color if exact match
+  is not found. Pal must have at least Entries color entries.}
+function FindColor(Pal: PPalette32; Entries: LongInt; Color: TColor32): LongInt;
+{ Creates grayscale palette where each color channel has the same value.
+  Pal must have at least Entries color entries.}
+procedure FillGrayscalePalette(Pal: PPalette32; Entries: LongInt);
+{ Creates palette with given bitcount for each channel.
+  2^(RBits + GBits + BBits) should be equl to Entries. Examples:
+  (3, 3, 2) will create palette with all possible colors of R3G3B2 format
+  and (8, 0, 0) will create palette with 256 shades of red.
+  Pal must be allocated to at least Entries * SizeOf(TColor32Rec) bytes.}
+procedure FillCustomPalette(Pal: PPalette32; Entries: LongInt; RBits, GBits,
+  BBits: Byte; Alpha: Byte = $FF);
+{ Swaps SrcChannel and DstChannel color or alpha channels of palette.
+  Use ChannelRed, ChannelBlue, ChannelGreen, ChannelAlpha constants to
+  identify channels. Pal must be allocated to at least
+  Entries * SizeOf(TColor32Rec) bytes.}
+procedure SwapChannelsOfPalette(Pal: PPalette32; Entries, SrcChannel,
+  DstChannel: LongInt);
+
+{ Options Functions }
+
+{ Sets value of integer option specified by OptionId parameter.
+  Option Ids are constans starting ImagingXXX.}
+function SetOption(OptionId, Value: LongInt): Boolean;
+{ Returns value of integer option specified by OptionId parameter. If OptionId is
+  invalid, InvalidOption is returned. Option Ids are constans
+  starting ImagingXXX.}
+function GetOption(OptionId: LongInt): LongInt;
+{ Pushes current values of all options on the stack. Returns True
+  if successfull (max stack depth is 8 now). }
+function PushOptions: Boolean;
+{ Pops back values of all options from the top of the stack. Returns True
+  if successfull (max stack depth is 8 now). }
+function PopOptions: Boolean;
+
+{ Image Format Functions }
+
+{ Returns short information about given image format.}
+function GetImageFormatInfo(Format: TImageFormat; out Info: TImageFormatInfo): Boolean;
+{ Returns size in bytes of Width x Height area of pixels. Works for all formats.}
+function GetPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+
+{ IO Functions }
+
+{ User can set his own file IO functions used when loading from/saving to
+  files by this function.}
+procedure SetUserFileIO(OpenProc: TOpenProc; CloseProc: TCloseProc; EofProc: TEofProc; SeekProc:
+  TSeekProc; TellProc: TTellProc; ReadProc: TReadProc; WriteProc: TWriteProc);
+{ Sets file IO functions to Imaging default.}
+procedure ResetFileIO;
+
+{ Raw Image IO Functions }
+
+procedure ReadRawImageFromFile(const FileName: string; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset: Integer = 0; RowLength: Integer = 0);
+procedure ReadRawImageFromStream(Stream: TStream; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset: Integer = 0; RowLength: Integer = 0);
+procedure ReadRawImageFromMemory(Data: Pointer; DataSize: Integer; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset: Integer = 0; RowLength: Integer = 0);
+procedure ReadRawImageRect(Data: Pointer; Left, Top, Width, Height: Integer;
+  var Image: TImageData; Offset: Integer = 0; RowLength: Integer = 0);
+
+procedure WriteRawImageToFile(const FileName: string; const Image: TImageData;
+  Offset: Integer = 0; RowLength: Integer = 0);
+procedure WriteRawImageToStream(Stream: TStream; const Image: TImageData;
+  Offset: Integer = 0; RowLength: Integer = 0);
+procedure WriteRawImageToMemory(Data: Pointer; DataSize: Integer; const Image: TImageData;
+  Offset: Integer = 0; RowLength: Integer = 0);
+procedure WriteRawImageRect(Data: Pointer; Left, Top, Width, Height: Integer;
+  const Image: TImageData; Offset: Integer = 0; RowLength: Integer = 0);
+
+{ Convenience/helper Functions }
+
+procedure ResizeImageToFit(const SrcImage: TImageData; FitWidth, FitHeight: Integer;
+  Filter: TResizeFilter; var DestImage: TImageData);
+
+
+{ ------------------------------------------------------------------------
+                           Other Imaging Stuff
+  ------------------------------------------------------------------------}
+
+type
+  { Set of TImageFormat enum.}
+  TImageFormats = set of TImageFormat;
+
+  { Record containg set of IO functions internaly used by image loaders/savers.}
+  TIOFunctions = record
+    Open: TOpenProc;
+    Close: TCloseProc;
+    Eof: TEofProc;
+    Seek: TSeekProc;
+    Tell: TTellProc;
+    Read: TReadProc;
+    Write: TWriteProc;
+  end;
+  PIOFunctions = ^TIOFunctions;
+
+type
+  TFileFormatFeature = (
+    ffLoad,
+    ffSave,
+    ffMultiImage,
+    ffReadOnSave,
+    ffProgress,
+    ffReadScanlines);
+
+  TFileFormatFeatures = set of TFileFormatFeature;
+
+  TMetadata = class;
+
+  { Base class for various image file format loaders/savers which
+    descend from this class. If you want to add support for new image file
+    format the best way is probably to look at TImageFileFormat descendants'
+    implementations that are already part of Imaging.}
+{$TYPEINFO ON}
+  TImageFileFormat = class
+  private
+    FExtensions: TStringList;
+    FMasks: TStringList;
+    function GetCanLoad: Boolean;
+    function GetCanSave: Boolean;
+    function GetIsMultiImageFormat: Boolean;
+    { Does various checks and actions before LoadData method is called.}
+    function PrepareLoad(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstFrame: Boolean): Boolean;
+    { Processes some actions according to result of LoadData.}
+    function PostLoadCheck(var Images: TDynImageDataArray; LoadResult: Boolean): Boolean;
+    { Helper function to be called in SaveData methods of descendants (ensures proper
+      index and sets FFirstIdx and FLastIdx for multi-images).}
+    function PrepareSave(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      var Index: LongInt): Boolean;
+    { Returns file open mode used for saving images. Depends on defined Features.}
+    function GetSaveOpenMode: TOpenMode;
+  protected
+    FName: string;
+    FFeatures: TFileFormatFeatures;
+    FSupportedFormats: TImageFormats;
+    FFirstIdx, FLastIdx: LongInt;
+    FMetadata: TMetadata;
+    { Descendants must override this method and define file format name and
+      capabilities.}
+    procedure Define; virtual;
+    { Defines filename masks for this image file format. AMasks should be
+      in format '*.ext1,*.ext2,umajo.*'.}
+    procedure AddMasks(const AMasks: string);
+    function GetFormatInfo(Format: TImageFormat): TImageFormatInfo;
+    { Returns set of TImageData formats that can be saved in this file format
+      without need for conversion.}
+    function GetSupportedFormats: TImageFormats; virtual;
+    { Method which must be overrided in descendants if they' are be capable
+      of loading images. Images are already freed and length is set to zero
+      whenever this method gets called. Also Handle is assured to be valid
+      and contains data that passed TestFormat method's check.}
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstFrame: Boolean): Boolean; virtual;
+    { Method which must be overriden in descendants if they are be capable
+      of saving images. Images are checked to have length >0 and
+      that they contain valid images. For single-image file formats
+      Index contain valid index to Images array (to image which should be saved).
+      Multi-image formats should use FFirstIdx and FLastIdx fields to
+      to get all images that are to be saved.}
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; virtual;
+    { This method is called internaly by MakeCompatible when input image
+      is in format not supported by this file format. Image is clone of
+      MakeCompatible's input and Info is its extended format info.}
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); virtual;
+    { Returns True if given image is supported for saving by this file format.
+      Most file formats don't need to override this method. It checks
+      (in this base class) if Image's format is in SupportedFromats set.
+      But you may override it if you want further checks
+      (proper widht and height for example).}
+    function IsSupported(const Image: TImageData): Boolean; virtual;
+  public
+    constructor Create(AMetadata: TMetadata = nil); virtual;
+    destructor Destroy; override;
+
+    { Loads images from file source.}
+    function LoadFromFile(const FileName: string; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean = False): Boolean;
+    { Loads images from stream source.}
+    function LoadFromStream(Stream: TStream; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean = False): Boolean;
+    { Loads images from memory source.}
+    function LoadFromMemory(Data: Pointer; Size: LongInt;
+      var Images: TDynImageDataArray; OnlyFirstLevel: Boolean = False): Boolean;
+
+    { Saves images to file. If format supports only single level images and
+      there are multiple images to be saved, they are saved as sequence of
+      independent images (for example SaveToFile saves sequence of
+      files img000.jpg, img001.jpg ....).}
+    function SaveToFile(const FileName: string; const Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean = False): Boolean;
+    { Saves images to stream. If format supports only single level images and
+      there are multiple images to be saved, they are saved as sequence of
+      independent images.}
+    function SaveToStream(Stream: TStream; const Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean = False): Boolean;
+    { Saves images to memory. If format supports only single level images and
+      there are multiple images to be saved, they are saved as sequence of
+      independent images. Data must be already allocated and their size passed
+      as Size parameter, number of written bytes is then returned in the same
+      parameter.}
+    function SaveToMemory(Data: Pointer; var Size: LongInt;
+      const Images: TDynImageDataArray; OnlyFirstLevel: Boolean = False): Boolean;
+
+    { Makes Image compatible with this file format (that means it is in one
+      of data formats in Supported formats set). If input is already
+      in supported format then Compatible just use value from input
+      (Compatible := Image) so must not free it after you are done with it
+      (image bits pointer points to input image's bits).
+      If input is not in supported format then it is cloned to Compatible
+      and concerted to one of supported formats (which one dependeds on
+      this file format). If image is cloned MustBeFreed is set to True
+      to indicated that you must free Compatible after you are done with it.}
+    function MakeCompatible(const Image: TImageData; var Compatible: TImageData;
+      out MustBeFreed: Boolean): Boolean;
+    { Returns True if data located in source identified by Handle
+      represent valid image in current format.}
+    function TestFormat(Handle: TImagingHandle): Boolean; virtual;
+    { Resturns True if the given FileName matches filter for this file format.
+      For most formats it just checks filename extensions.
+      It uses filename masks in from Masks property so it can recognize
+      filenames like this 'umajoXXXumajo.j0j' if one of themasks is
+      'umajo*umajo.j?j'.}
+    function TestFileName(const FileName: string): Boolean;
+    { Descendants use this method to check if their options (registered with
+      constant Ids for SetOption/GetOption interface or accessible as properties
+      of descendants) have valid values and make necessary changes.}
+    procedure CheckOptionsValidity; virtual;
+
+    { Description of this format.}
+    property Name: string read FName;
+    { Indicates whether images in this format can be loaded.}
+    property CanLoad: Boolean read GetCanLoad;
+    { Indicates whether images in this format can be saved.}
+    property CanSave: Boolean read GetCanSave;
+    { Indicates whether images in this format can contain multiple image levels.}
+    property IsMultiImageFormat: Boolean read GetIsMultiImageFormat;
+    { List of filename extensions for this format.}
+    property Extensions: TStringList read FExtensions;
+    { List of filename masks that are used to associate filenames
+      with TImageFileFormat descendants. Typical mask looks like
+      '*.bmp' or 'texture.*' (supports file formats which use filename instead
+      of extension to identify image files).}
+    property Masks: TStringList read FMasks;
+    { Set of TImageFormats supported by saving functions of this format. Images
+      can be saved only in one those formats.}
+    property SupportedFormats: TImageFormats read GetSupportedFormats;
+  end;
+{$TYPEINFO OFF}
+
+  { Class reference for TImageFileFormat class}
+  TImageFileFormatClass = class of TImageFileFormat;
+
+  { Physical resolution unit.}
+  TResolutionUnit = (
+    ruSizeInMicroMeters, // value is pixel size in micrometers
+    ruDpi,               // value is pixels/dots per inch
+    ruDpm,               // value is pixels/dots per meter
+    ruDpcm               // value is pixels/dots per centimeter
+  );
+
+  { Class for storage of single metadata item.}
+  TMetadataItem = class
+  public
+    Id: string;
+    ImageIndex: Integer;
+    Value: Variant;
+  end;
+
+  { Metadata manager class.}
+  TMetadata = class
+  private
+    FLoadMetaItems: TStringList;
+    FSaveMetaItems: TStringList;
+    procedure AddMetaToList(List: TStringList; const Id: string; const Value: Variant; ImageIndex: Integer);
+    procedure ClearMetaList(List: TStringList);
+    function GetMetaById(const Id: string): Variant;
+    function GetMetaByIdMulti(const Id: string; ImageIndex: Integer): Variant;
+    function GetMetaCount: Integer;
+    function GetMetaByIdx(Index: Integer): TMetadataItem;
+    function GetSaveMetaById(const Id: string): Variant;
+    function GetSaveMetaByIdMulti(const Id: string; ImageIndex: Integer): Variant;
+    procedure TranslateUnits(ResolutionUnit: TResolutionUnit; var XRes, YRes: Single);
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    procedure SetMetaItem(const Id: string; const Value: Variant; ImageIndex: Integer = 0);
+    procedure SetMetaItemForSaving(const Id: string; const Value: Variant; ImageIndex: Integer = 0);
+    function HasMetaItem(const Id: string; ImageIndex: Integer = 0): Boolean;
+    function HasMetaItemForSaving(const Id: string; ImageIndex: Integer = 0): Boolean;
+
+    procedure ClearMetaItems;
+    procedure ClearMetaItemsForSaving;
+    function GetMetaItemName(const Id: string; ImageIndex: Integer): string;
+    { Copies loaded meta items to items-for-save stack. Use this when you want to
+      save metadata that have been just loaded (e.g. resaving image in
+      different file format but keeping the metadata).}
+    procedure CopyLoadedMetaItemsForSaving;
+
+    function GetPhysicalPixelSize(ResUnit: TResolutionUnit; var XSize,
+      YSize: Single; MetaForSave: Boolean = False; ImageIndex: Integer = 0): Boolean;
+    procedure SetPhysicalPixelSize(ResUnit: TResolutionUnit; XSize, YSize: Single;
+      MetaForSave: Boolean = False; ImageIndex: Integer = 0);
+
+    property MetaItems[const Id: string]: Variant read GetMetaById;
+    property MetaItemsMulti[const Id: string; ImageIndex: Integer]: Variant read GetMetaByIdMulti;
+    { Number of loaded metadata items.}
+    property MetaItemCount: Integer read GetMetaCount;
+    property MetaItemsByIdx[Index: Integer]: TMetadataItem read GetMetaByIdx;
+    property MetaItemsForSaving[const Id: string]: Variant read GetSaveMetaById;
+    property MetaItemsForSavingMulti[const Id: string; ImageIndex: Integer]: Variant read GetSaveMetaByIdMulti;
+  end;
+
+const
+  { Metadata item id constants }
+
+  { Physical size of one pixel in micrometers. Type of value is Float.}
+  SMetaPhysicalPixelSizeX = 'PhysicalPixelSizeX';
+  SMetaPhysicalPixelSizeY = 'PhysicalPixelSizeY';
+  { Delay for frame of animation (how long it should stay visible) in milliseconds.
+    Type of value is Integer.}
+  SMetaFrameDelay = 'FrameDelay';
+  { Number of times animation should be looped (0 = infinite looping). Type is Int. }
+  SMetaAnimationLoops = 'AnimationLoops';
+  { Gamma correction value. Type is Float.}
+  SMetaGamma = 'Gamma';
+  { Exposure value for HDR etc. Type is Float.}
+  SMetaExposure = 'Exposure';
+  { EXIF image metadata raw blob.}
+  SMetaExifBlob = 'ExifBlob';
+  { XMP image metadata raw blob.}
+  SMetaXmpBlob  = 'XmpBlob';
+  { IPTC image metadata raw blob.}
+  SMetaIptcBlob = 'IptcBlob';
+
+var
+  GlobalMetadata: TMetadata;
+
+{ Returns symbolic name of given format.}
+function GetFormatName(Format: TImageFormat): string;
+{ Returns string with information about given Image.}
+function ImageToStr(const Image: TImageData): string;
+{ Returns Imaging version string in format 'Major.Minor.Patch'.}
+function GetVersionStr: string;
+{ If Condition is True then TruePart is retured, otherwise FalsePart is returned.}
+function IffFormat(Condition: Boolean; const TruePart, FalsePart: TImageFormat): TImageFormat;
+
+{ Registers new option so it can be used by SetOption and GetOption functions.
+  Returns True if registration was succesful - that is Id is valid and is
+  not already taken by another option.}
+function RegisterOption(OptionId: LongInt; Variable: PLongInt): Boolean;
+
+{ Registers new image loader/saver so it can be used by LoadFrom/SaveTo
+  functions.}
+procedure RegisterImageFileFormat(AClass: TImageFileFormatClass);
+{ Returns image format loader/saver according to given extension
+  or nil if not found.}
+function FindImageFileFormatByExt(const Ext: string): TImageFileFormat;
+{ Returns image format loader/saver according to given filename
+  or nil if not found.}
+function FindImageFileFormatByName(const FileName: string): TImageFileFormat;
+{ Returns image format loader/saver based on its class
+  or nil if not found or not registered.}
+function FindImageFileFormatByClass(AClass: TImageFileFormatClass): TImageFileFormat;
+{ Returns number of registered image file format loaders/saver.}
+function GetFileFormatCount: LongInt;
+{ Returns image file format loader/saver at given index. Index must be
+  in range [0..GetFileFormatCount - 1] otherwise nil is returned.}
+function GetFileFormatAtIndex(Index: LongInt): TImageFileFormat;
+{ Returns filter string for usage with open and save picture dialogs
+  which contains all registered image file formats.
+  Set OpenFileFilter to True if you want filter for open dialog
+  and to False if you want save dialog filter (formats that cannot save to files
+  are not added then).
+  For open dialog filter for all known graphic files
+  (like All(*.jpg;*.png;....) is added too at the first index.}
+function GetImageFileFormatsFilter(OpenFileFilter: Boolean): string;
+{ Returns file extension (without dot) of image format selected
+  by given filter index. Used filter string is defined by GetImageFileFormatsFilter
+  function. This function can be used with save dialogs (with filters created
+  by GetImageFileFormatsFilter) to get the extension of file format selected
+  in dialog quickly. Index is in range 1..N (as FilterIndex property
+  of TOpenDialog/TSaveDialog)}
+function GetFilterIndexExtension(Index: LongInt; OpenFileFilter: Boolean): string;
+{ Returns filter index of image file format of file specified by FileName. Used filter
+  string is defined by GetImageFileFormatsFilter function.
+  Returned index is in range 1..N (as FilterIndex property of TOpenDialog/TSaveDialog)}
+function GetFileNameFilterIndex(const FileName: string; OpenFileFilter: Boolean): LongInt;
+
+{ Returns current IO functions.}
+function GetIO: TIOFunctions;
+{ Raises EImagingError with given message.}
+procedure RaiseImaging(const Msg: string; const Args: array of const); overload;
+procedure RaiseImaging(const Msg: string); overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+const
+  SImagingLibTitle = 'Vampyre Imaging Library';
+
+implementation
+
+uses
+{$IFNDEF DONT_LINK_BITMAP}
+  ImagingBitmap,
+{$ENDIF}
+{$IFNDEF DONT_LINK_JPEG}
+  ImagingJpeg,
+{$ENDIF}
+{$IF not Defined(DONT_LINK_PNG) or not Defined(DONT_LINK_MNG) or not Defined(DONT_LINK_JNG)}
+  ImagingNetworkGraphics,
+{$IFEND}
+{$IFNDEF DONT_LINK_GIF}
+  ImagingGif,
+{$ENDIF}
+{$IFNDEF DONT_LINK_DDS}
+  ImagingDds,
+{$ENDIF}
+{$IFNDEF DONT_LINK_TARGA}
+  ImagingTarga,
+{$ENDIF}
+{$IFNDEF DONT_LINK_PNM}
+  ImagingPortableMaps,
+{$ENDIF}
+{$IFNDEF DONT_LINK_RADHDR}
+  ImagingRadiance,
+{$ENDIF}
+{$IFNDEF DONT_LINK_EXTRAS}
+  ImagingExtras,
+{$ENDIF}
+  //ImagingDebug,
+  ImagingFormats, ImagingUtility, ImagingIO, Variants;
+
+resourcestring
+  SExceptMsg = 'Exception Message';
+  SAllFilter = 'All Images';
+  SUnknownFormat = 'Unknown and unsupported format';
+
+  SErrorFreeImage = 'Error while freeing image. %s';
+  SErrorCloneImage = 'Error while cloning image. %s';
+  SErrorFlipImage = 'Error while flipping image. %s';
+  SErrorMirrorImage = 'Error while mirroring image. %s';
+  SErrorResizeImage = 'Error while resizing image.  %s';
+  SErrorSwapImage = 'Error while swapping channels of image. %s';
+  SFileFormatCanNotLoad = 'Image Format "%s" does not support loading images.';
+  SFileFormatCanNotSave = 'Image Format "%s" does not support saving images.';
+  SErrorNewImage = 'Error while creating image data with params: Width=%d ' +
+    'Height=%d Format=%s.';
+  SErrorConvertImage = 'Error while converting image to format "%s". %s';
+  SImageInfo = 'Image @%p info: Width = %dpx, Height = %dpx, ' +
+    'Format = %s, Size = %.0n %s, Bits @%p, Palette @%p.';
+  SImageInfoInvalid = 'Access violation encountered when getting info on ' +
+    'image at address %p.';
+  SFileNotValid = 'File "%s" is not valid image in "%s" format.';
+  SStreamNotValid = 'Stream %p does not contain valid image in "%s" format.';
+  SMemoryNotValid = 'Memory %p (%d Bytes) does not contain valid image ' +
+    'in "%s" format.';
+  SErrorLoadingFile = 'Error while loading images from file "%s" (file format: %s).';
+  SErrorLoadingStream = 'Error while loading images from stream %p (file format: %s).';
+  SErrorLoadingMemory = 'Error while loading images from memory %p (%d Bytes) (file format: %s).';
+  SErrorSavingFile = 'Error while saving images to file "%s" (file format: %s).';
+  SErrorSavingStream = 'Error while saving images to stream %p (file format: %s).';
+  SErrorSavingMemory = 'Error while saving images to memory %p (%d Bytes) (file format: %s).';
+  SErrorFindColor = 'Error while finding color in palette @%p with %d entries.';
+  SErrorGrayscalePalette = 'Error while filling grayscale palette @%p with %d entries.';
+  SErrorCustomPalette = 'Error while filling custom palette @%p with %d entries.';
+  SErrorSwapPalette = 'Error while swapping channels of palette @%p with %d entries.';
+  SErrorReduceColors = 'Error while reducing number of colors of image to %d. %s';
+  SErrorGenerateMipMaps = 'Error while generating %d mipmap levels for image %s';
+  SImagesNotValid = 'One or more images are not valid.';
+  SErrorCopyRect = 'Error while copying rect from image %s to image %s.';
+  SErrorMapImage = 'Error while mapping image %s to palette.';
+  SErrorFillRect = 'Error while filling rectangle X:%d Y:%d W:%d H:%d in image %s';
+  SErrorSplitImage = 'Error while splitting image %s to %dx%d sized chunks.';
+  SErrorMakePaletteForImages = 'Error while making %d color palette for %d images.';
+  SErrorNewPalette = 'Error while creating new palette with %d entries';
+  SErrorFreePalette = 'Error while freeing palette @%p';
+  SErrorCopyPalette = 'Error while copying %d entries from palette @%p to @%p';
+  SErrorReplaceColor = 'Error while replacing colors in rectangle X:%d Y:%d W:%d H:%d of image %s';
+  SErrorRotateImage = 'Error while rotating image %s by %.2n degrees';
+  SErrorStretchRect = 'Error while stretching rect from image %s to image %s.';
+  SErrorEmptyStream = 'Input stream has no data. Check Position property.';
+  SErrorInvalidInputImage = 'Invalid input image.';
+
+  SErrorBadImage = 'Bad image detected.';
+
+const
+  // Initial size of array with options information
+  InitialOptions = 256;
+  // Max depth of the option stack
+  OptionStackDepth = 8;
+  // Do not change the default format now, its too late
+  DefaultImageFormat: TImageFormat = ifA8R8G8B8;
+  // Format used to create metadata IDs for frames loaded form multiimages.
+  SMetaIdForSubImage = '%s/%d';
+
+type
+  TOptionArray = array of PLongInt;
+  TOptionValueArray = array of LongInt;
+
+  TOptionStack = class(TObject)
+  private
+    FStack: array[0..OptionStackDepth - 1] of TOptionValueArray;
+    FPosition: LongInt;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function Push: Boolean;
+    function Pop: Boolean;
+  end;
+
+var
+  // Currently set IO functions
+  IO: TIOFunctions;
+  // List with all registered TImageFileFormat classes
+  ImageFileFormats: TList = nil;
+  // Aarray with registered options (pointers to their values)
+  Options: TOptionArray = nil;
+  // Array containing addional infomation about every image format
+  ImageFormatInfos: TImageFormatInfoArray;
+  // Stack used by PushOptions/PopOtions functions
+  OptionStack: TOptionStack = nil;
+var
+  // Variable for ImagingColorReduction option
+  ColorReductionMask: LongInt = $FF;
+  // Variable for ImagingLoadOverrideFormat option
+  LoadOverrideFormat: TImageFormat = ifUnknown;
+  // Variable for ImagingSaveOverrideFormat option
+  SaveOverrideFormat: TImageFormat = ifUnknown;
+  // Variable for ImagingSaveOverrideFormat option
+  MipMapFilter: TSamplingFilter = sfLinear;
+  // Variable for ImagingBinaryTreshold option
+  BinaryTreshold: Integer = 128;
+
+{ Exceptions }
+
+constructor EImagingBadImage.Create;
+begin
+  inherited Create(SErrorBadImage);
+end;
+
+{ Internal unit functions }
+
+{ Modifies option value to be in the allowed range. Works only
+  for options registered in this unit.}
+function CheckOptionValue(OptionId, Value: LongInt): LongInt; forward;
+{ Sets IO functions to file IO.}
+procedure SetFileIO; forward;
+{ Sets IO functions to stream IO.}
+procedure SetStreamIO; forward;
+{ Sets IO functions to memory IO.}
+procedure SetMemoryIO; forward;
+{ Inits image format infos array.}
+procedure InitImageFormats; forward;
+{ Freew image format infos array.}
+procedure FreeImageFileFormats; forward;
+{ Creates options array and stack.}
+procedure InitOptions; forward;
+{ Frees options array and stack.}
+procedure FreeOptions; forward;
+
+function UpdateExceptMessage(E: Exception; const MsgToPrepend: string; const Args: array of const): Exception;
+begin
+  Result := E;
+  E.Message := Format(MsgToPrepend, Args) +  ' ' + SExceptMsg + ': ' + E.Message
+end;
+
+{ ------------------------------------------------------------------------
+                       Low Level Interface Functions
+  ------------------------------------------------------------------------}
+
+{ General Functions }
+
+procedure InitImage(var Image: TImageData);
+begin
+  FillChar(Image, SizeOf(Image), 0);
+end;
+
+function NewImage(Width, Height: LongInt; Format: TImageFormat; var Image:
+  TImageData): Boolean;
+var
+  FInfo: PImageFormatInfo;
+begin
+  Assert((Width > 0) and (Height >0));
+  Assert(IsImageFormatValid(Format));
+  Result := False;
+  FreeImage(Image);
+  try
+    Image.Width := Width;
+    Image.Height := Height;
+    // Select default data format if selected
+    if (Format = ifDefault)  then
+      Image.Format := DefaultImageFormat
+    else
+      Image.Format := Format;
+    // Get extended format info
+    FInfo := ImageFormatInfos[Image.Format];
+    if FInfo = nil then
+    begin
+      InitImage(Image);
+      Exit;
+    end;
+    // Check image dimensions and calculate its size in bytes
+    FInfo.CheckDimensions(FInfo.Format, Image.Width, Image.Height);
+    Image.Size := FInfo.GetPixelsSize(FInfo.Format, Image.Width, Image.Height);
+    if Image.Size = 0 then
+    begin
+      InitImage(Image);
+      Exit;
+    end;
+    // Image bits are allocated and set to zeroes
+    GetMem(Image.Bits, Image.Size);
+    FillChar(Image.Bits^, Image.Size, 0);
+    // Palette is allocated and set to zeroes
+    if FInfo.PaletteEntries > 0 then
+    begin
+      GetMem(Image.Palette, FInfo.PaletteEntries * SizeOf(TColor32Rec));
+      FillChar(Image.Palette^, FInfo.PaletteEntries * SizeOf(TColor32Rec), 0);
+    end;
+    Result := TestImage(Image);
+  except
+    on E: Exception do
+    begin
+      FreeMem(Image.Bits);
+      FreeMem(Image.Palette);
+      InitImage(Image);
+      raise UpdateExceptMessage(E, SErrorNewImage, [Width, Height, GetFormatName(Format)]);
+    end;
+  end;
+end;
+
+function TestImage(const Image: TImageData): Boolean;
+begin
+  try
+    Result := (LongInt(Image.Format) >= LongInt(Low(TImageFormat))) and
+      (LongInt(Image.Format) <= LongInt(High(TImageFormat))) and
+      (ImageFormatInfos[Image.Format] <> nil) and
+      (Assigned(ImageFormatInfos[Image.Format].GetPixelsSize) and
+      (ImageFormatInfos[Image.Format].GetPixelsSize(Image.Format,
+      Image.Width, Image.Height) = Image.Size));
+  except
+    // Possible int overflows or other errors
+    Result := False;
+  end;
+end;
+
+procedure FreeImage(var Image: TImageData);
+begin
+  try
+    if TestImage(Image) then
+    begin
+      FreeMemNil(Image.Bits);
+      FreeMemNil(Image.Palette);
+    end;
+    InitImage(Image);
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorFreeImage, [ImageToStr(Image)]);
+  end;
+end;
+
+procedure FreeImagesInArray(var Images: TDynImageDataArray);
+var
+  I: LongInt;
+begin
+  if Length(Images) > 0 then
+  begin
+    for I := 0 to Length(Images) - 1 do
+      FreeImage(Images[I]);
+    SetLength(Images, 0);
+  end;
+end;
+
+function TestImagesInArray(const Images: TDynImageDataArray): Boolean;
+var
+  I: LongInt;
+begin
+  if Length(Images) > 0 then
+  begin
+    Result := True;
+    for I := 0 to Length(Images) - 1 do
+    begin
+      Result := Result and TestImage(Images[I]);
+      if not Result then
+        Break;
+    end;
+  end
+  else
+    Result := False;
+end;
+
+function DetermineFileFormat(const FileName: string): string;
+var
+  I: LongInt;
+  Fmt: TImageFileFormat;
+  Handle: TImagingHandle;
+begin
+  Assert(FileName <> '');
+  Result := '';
+  SetFileIO;
+  Handle := IO.Open(PChar(FileName), omReadOnly);
+  try
+    // First file format according to FileName and test if the data in
+    // file is really in that format
+    for I := 0 to ImageFileFormats.Count - 1 do
+    begin
+      Fmt := TImageFileFormat(ImageFileFormats[I]);
+      if Fmt.TestFileName(FileName) and Fmt.TestFormat(Handle) then
+      begin
+        Result := Fmt.Extensions[0];
+        Exit;
+      end;
+    end;
+    // No file format was found with filename search so try data-based search
+    for I := 0 to ImageFileFormats.Count - 1 do
+    begin
+      Fmt := TImageFileFormat(ImageFileFormats[I]);
+      if Fmt.TestFormat(Handle) then
+      begin
+        Result := Fmt.Extensions[0];
+        Exit;
+      end;
+    end;
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+function DetermineStreamFormat(Stream: TStream): string;
+var
+  I: LongInt;
+  Fmt: TImageFileFormat;
+  Handle: TImagingHandle;
+begin
+  Assert(Stream <> nil);
+  Result := '';
+  SetStreamIO;
+  Handle := IO.Open(Pointer(Stream), omReadOnly);
+  try
+    for I := 0 to ImageFileFormats.Count - 1 do
+    begin
+      Fmt := TImageFileFormat(ImageFileFormats[I]);
+      if Fmt.TestFormat(Handle) then
+      begin
+        Result := Fmt.Extensions[0];
+        Exit;
+      end;
+    end;
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+function DetermineMemoryFormat(Data: Pointer; Size: LongInt): string;
+var
+  I: LongInt;
+  Fmt: TImageFileFormat;
+  Handle: TImagingHandle;
+  IORec: TMemoryIORec;
+begin
+  Assert((Data <> nil) and (Size > 0));
+  Result := '';
+  SetMemoryIO;
+  IORec.Data := Data;
+  IORec.Position := 0;
+  IORec.Size := Size;
+  Handle := IO.Open(@IORec, omReadOnly);
+  try
+    for I := 0 to ImageFileFormats.Count - 1 do
+    begin
+      Fmt := TImageFileFormat(ImageFileFormats[I]);
+      if Fmt.TestFormat(Handle) then
+      begin
+        Result := Fmt.Extensions[0];
+        Exit;
+      end;
+    end;
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+function IsFileFormatSupported(const FileName: string): Boolean;
+begin
+  Result := FindImageFileFormatByName(FileName) <> nil;
+end;
+
+function EnumFileFormats(var Index: LongInt; var Name, DefaultExt, Masks: string;
+  var CanSaveImages, IsMultiImageFormat: Boolean): Boolean;
+var
+  FileFmt: TImageFileFormat;
+begin
+  FileFmt := GetFileFormatAtIndex(Index);
+  Result := FileFmt <> nil;
+  if Result then
+  begin
+    Name := FileFmt.Name;
+    DefaultExt := FileFmt.Extensions[0];
+    Masks := FileFmt.Masks.DelimitedText;
+    CanSaveImages := FileFmt.CanSave;
+    IsMultiImageFormat := FileFmt.IsMultiImageFormat;
+    Inc(Index);
+  end
+  else
+  begin
+    Name := '';
+    DefaultExt := '';
+    Masks := '';
+    CanSaveImages := False;
+    IsMultiImageFormat := False;
+  end;
+end;
+
+{ Loading Functions }
+
+function LoadImageFromFile(const FileName: string; var Image: TImageData):
+  Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+  I: LongInt;
+begin
+  Assert(FileName <> '');
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineFileFormat(FileName));
+  if Format <> nil then
+  begin
+    FreeImage(Image);
+    Result := Format.LoadFromFile(FileName, IArray, True);
+    if Result and (Length(IArray) > 0) then
+    begin
+      Image := IArray[0];
+      for I := 1 to Length(IArray) - 1 do
+        FreeImage(IArray[I]);
+    end
+    else
+      Result := False;
+  end;
+end;
+
+function LoadImageFromStream(Stream: TStream; var Image: TImageData): Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+  I: LongInt;
+begin
+  Assert(Stream <> nil);
+  if Stream.Size - Stream.Position = 0 then
+    RaiseImaging(SErrorEmptyStream, []);
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineStreamFormat(Stream));
+  if Format <> nil then
+  begin
+    FreeImage(Image);
+    Result := Format.LoadFromStream(Stream, IArray, True);
+    if Result and (Length(IArray) > 0) then
+    begin
+      Image := IArray[0];
+      for I := 1 to Length(IArray) - 1 do
+        FreeImage(IArray[I]);
+    end
+    else
+      Result := False;
+  end;
+end;
+
+function LoadImageFromMemory(Data: Pointer; Size: LongInt; var Image: TImageData): Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+  I: LongInt;
+begin
+  Assert((Data <> nil) and (Size > 0));
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineMemoryFormat(Data, Size));
+  if Format <> nil then
+  begin
+    FreeImage(Image);
+    Result := Format.LoadFromMemory(Data, Size, IArray, True);
+    if Result and (Length(IArray) > 0) then
+    begin
+      Image := IArray[0];
+      for I := 1 to Length(IArray) - 1 do
+        FreeImage(IArray[I]);
+    end
+    else
+      Result := False;
+  end;
+end;
+
+function LoadMultiImageFromFile(const FileName: string; var Images:
+  TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert(FileName <> '');
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineFileFormat(FileName));
+  if Format <> nil then
+  begin
+    FreeImagesInArray(Images);
+    Result := Format.LoadFromFile(FileName, Images);
+  end;
+end;
+
+function LoadMultiImageFromStream(Stream: TStream; var Images: TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert(Stream <> nil);
+  if Stream.Size - Stream.Position = 0 then
+    RaiseImaging(SErrorEmptyStream, []);
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineStreamFormat(Stream));
+  if Format <> nil then
+  begin
+    FreeImagesInArray(Images);
+    Result := Format.LoadFromStream(Stream, Images);
+  end;
+end;
+
+function LoadMultiImageFromMemory(Data: Pointer; Size: LongInt;
+  var Images: TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert((Data <> nil) and (Size > 0));
+  Result := False;
+  Format := FindImageFileFormatByExt(DetermineMemoryFormat(Data, Size));
+  if Format <> nil then
+  begin
+    FreeImagesInArray(Images);
+    Result := Format.LoadFromMemory(Data, Size, Images);
+  end;
+end;
+
+{ Saving Functions }
+
+function SaveImageToFile(const FileName: string; const Image: TImageData): Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+begin
+  Assert(FileName <> '');
+  Result := False;
+  Format := FindImageFileFormatByName(FileName);
+  if Format <> nil then
+  begin
+    SetLength(IArray, 1);
+    IArray[0] := Image;
+    Result := Format.SaveToFile(FileName, IArray, True);
+  end;
+end;
+
+function SaveImageToStream(const Ext: string; Stream: TStream;
+  const Image: TImageData): Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+begin
+  Assert((Ext <> '') and (Stream <> nil));
+  Result := False;
+  Format := FindImageFileFormatByExt(Ext);
+  if Format <> nil then
+  begin
+    SetLength(IArray, 1);
+    IArray[0] := Image;
+    Result := Format.SaveToStream(Stream, IArray, True);
+  end;
+end;
+
+function SaveImageToMemory(const Ext: string; Data: Pointer; var Size: LongInt;
+  const Image: TImageData): Boolean;
+var
+  Format: TImageFileFormat;
+  IArray: TDynImageDataArray;
+begin
+  Assert((Ext <> '') and (Data <> nil) and (Size > 0));
+  Result := False;
+  Format := FindImageFileFormatByExt(Ext);
+  if Format <> nil then
+  begin
+    SetLength(IArray, 1);
+    IArray[0] := Image;
+    Result := Format.SaveToMemory(Data, Size, IArray, True);
+  end;
+end;
+
+function SaveMultiImageToFile(const FileName: string;
+  const Images: TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert(FileName <> '');
+  Result := False;
+  Format := FindImageFileFormatByName(FileName);
+  if Format <> nil then
+    Result := Format.SaveToFile(FileName, Images);
+end;
+
+function SaveMultiImageToStream(const Ext: string; Stream: TStream;
+  const Images: TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert((Ext <> '') and (Stream <> nil));
+  Result := False;
+  Format := FindImageFileFormatByExt(Ext);
+  if Format <> nil then
+    Result := Format.SaveToStream(Stream, Images);
+end;
+
+function SaveMultiImageToMemory(const Ext: string; Data: Pointer;
+  var Size: LongInt; const Images: TDynImageDataArray): Boolean;
+var
+  Format: TImageFileFormat;
+begin
+  Assert((Ext <> '') and (Data <> nil) and (Size > 0));
+  Result := False;
+  Format := FindImageFileFormatByExt(Ext);
+  if Format <> nil then
+    Result := Format.SaveToMemory(Data, Size, Images);
+end;
+
+{ Manipulation Functions }
+
+function CloneImage(const Image: TImageData; var Clone: TImageData): Boolean;
+var
+  Info: PImageFormatInfo;
+begin
+  Result := False;
+  if TestImage(Image) then
+  try
+    if TestImage(Clone) and (Image.Bits <> Clone.Bits) then
+      FreeImage(Clone)
+    else
+      InitImage(Clone);
+
+    Info := ImageFormatInfos[Image.Format];
+    Clone.Width := Image.Width;
+    Clone.Height := Image.Height;
+    Clone.Format := Image.Format;
+    Clone.Size := Image.Size;
+
+    if Info.PaletteEntries > 0 then
+    begin
+      GetMem(Clone.Palette, Info.PaletteEntries * SizeOf(TColor32Rec));
+      Move(Image.Palette^, Clone.Palette^, Info.PaletteEntries *
+        SizeOf(TColor32Rec));
+    end;
+
+    GetMem(Clone.Bits, Clone.Size);
+    Move(Image.Bits^, Clone.Bits^, Clone.Size);
+    Result := True;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorCloneImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function ConvertImage(var Image: TImageData; DestFormat: TImageFormat): Boolean;
+var
+  NewData: Pointer;
+  NewPal: PPalette32;
+  NewSize, NumPixels: LongInt;
+  SrcInfo, DstInfo: PImageFormatInfo;
+begin
+  Assert(IsImageFormatValid(DestFormat));
+  Result := False;
+  if TestImage(Image) then
+  with Image do
+  try
+    // If default format is set we use DefaultImageFormat
+    if DestFormat = ifDefault then
+      DestFormat := DefaultImageFormat;
+    SrcInfo := ImageFormatInfos[Format];
+    DstInfo := ImageFormatInfos[DestFormat];
+    if SrcInfo = DstInfo then
+    begin
+      // There is nothing to convert - src is alredy in dest format
+      Result := True;
+      Exit;
+    end;
+    // Exit Src or Dest format is invalid
+    if (SrcInfo = nil) or (DstInfo = nil) then Exit;
+    // If dest format is just src with swapped channels we call
+    // SwapChannels instead
+    if (SrcInfo.RBSwapFormat = DestFormat) and
+      (DstInfo.RBSwapFormat = SrcInfo.Format) then
+    begin
+      Result := SwapChannels(Image, ChannelRed, ChannelBlue);
+      Image.Format := SrcInfo.RBSwapFormat;
+      Exit;
+    end;
+
+    if (not SrcInfo.IsSpecial) and (not DstInfo.IsSpecial) then
+    begin
+      NumPixels := Width * Height;
+      NewSize := NumPixels * DstInfo.BytesPerPixel;
+      GetMem(NewData, NewSize);
+      FillChar(NewData^, NewSize, 0);
+      GetMem(NewPal, DstInfo.PaletteEntries * SizeOf(TColor32Rec));
+      FillChar(NewPal^, DstInfo.PaletteEntries * SizeOf(TColor32Rec), 0);
+
+      if SrcInfo.IsIndexed then
+      begin
+        // Source: indexed format
+        if DstInfo.IsIndexed then
+          IndexToIndex(NumPixels, Bits, NewData, SrcInfo, DstInfo, Palette, NewPal)
+        else if DstInfo.HasGrayChannel then
+          IndexToGray(NumPixels, Bits, NewData, SrcInfo, DstInfo, Palette)
+        else if DstInfo.IsFloatingPoint then
+          IndexToFloat(NumPixels, Bits, NewData, SrcInfo, DstInfo, Palette)
+        else
+          IndexToChannel(NumPixels, Bits, NewData, SrcInfo, DstInfo, Palette);
+      end
+      else if SrcInfo.HasGrayChannel then
+      begin
+        // Source: grayscale format
+        if DstInfo.IsIndexed then
+          GrayToIndex(NumPixels, Bits, NewData, SrcInfo, DstInfo, NewPal)
+        else if DstInfo.HasGrayChannel then
+          GrayToGray(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else if DstInfo.IsFloatingPoint then
+          GrayToFloat(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else
+          GrayToChannel(NumPixels, Bits, NewData, SrcInfo, DstInfo);
+      end
+      else if SrcInfo.IsFloatingPoint then
+      begin
+        // Source: floating point format
+        if DstInfo.IsIndexed then
+          FloatToIndex(NumPixels, Bits, NewData, SrcInfo, DstInfo, NewPal)
+        else if DstInfo.HasGrayChannel then
+          FloatToGray(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else if DstInfo.IsFloatingPoint then
+          FloatToFloat(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else
+          FloatToChannel(NumPixels, Bits, NewData, SrcInfo, DstInfo);
+      end
+      else
+      begin
+        // Source: standard multi channel image
+        if DstInfo.IsIndexed then
+          ChannelToIndex(NumPixels, Bits, NewData, SrcInfo, DstInfo, NewPal)
+        else if DstInfo.HasGrayChannel then
+          ChannelToGray(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else if DstInfo.IsFloatingPoint then
+          ChannelToFloat(NumPixels, Bits, NewData, SrcInfo, DstInfo)
+        else
+          ChannelToChannel(NumPixels, Bits, NewData, SrcInfo, DstInfo);
+      end;
+
+      FreeMemNil(Bits);
+      FreeMemNil(Palette);
+      Format := DestFormat;
+      Bits := NewData;
+      Size := NewSize;
+      Palette := NewPal;
+    end
+    else
+      ConvertSpecial(Image, SrcInfo, DstInfo);
+
+    Assert(SrcInfo.Format <> Image.Format);
+
+    Result := True;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorConvertImage, [GetFormatName(DestFormat), ImageToStr(Image)]);
+  end;
+end;
+
+function FlipImage(var Image: TImageData): Boolean;
+var
+  P1, P2, Buff: Pointer;
+  WidthBytes, I: LongInt;
+  OldFmt: TImageFormat;
+begin
+  Result := False;
+  OldFmt := Image.Format;
+  if TestImage(Image) then
+  with Image do
+  try
+    if ImageFormatInfos[OldFmt].IsSpecial then
+      ConvertImage(Image, ifDefault);
+
+    WidthBytes := Width * ImageFormatInfos[Format].BytesPerPixel;
+    GetMem(Buff, WidthBytes);
+    try
+      // Swap all scanlines of image
+      for I := 0 to Height div 2 - 1 do
+      begin
+        P1 := @PByteArray(Bits)[I * WidthBytes];
+        P2 := @PByteArray(Bits)[(Height - I - 1) * WidthBytes];
+        Move(P1^, Buff^, WidthBytes);
+        Move(P2^, P1^, WidthBytes);
+        Move(Buff^, P2^, WidthBytes);
+      end;
+    finally
+      FreeMemNil(Buff);
+    end;
+
+    if OldFmt <> Format then
+      ConvertImage(Image, OldFmt);
+
+    Result := True;
+  except
+    RaiseImaging(SErrorFlipImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function MirrorImage(var Image: TImageData): Boolean;
+var
+  Scanline: PByte;
+  Buff: TColorFPRec;
+  Bpp, Y, X, WidthDiv2, WidthBytes, XLeft, XRight: LongInt;
+  OldFmt: TImageFormat;
+begin
+  Result := False;
+  OldFmt := Image.Format;
+  if TestImage(Image) then
+  with Image do
+  try
+    if ImageFormatInfos[OldFmt].IsSpecial then
+      ConvertImage(Image, ifDefault);
+
+    Bpp := ImageFormatInfos[Format].BytesPerPixel;
+    WidthDiv2 := Width div 2;
+    WidthBytes := Width * Bpp;
+    // Mirror all pixels on each scanline of image
+    for Y := 0 to Height - 1 do
+    begin
+      Scanline := @PByteArray(Bits)[Y * WidthBytes];
+      XLeft := 0;
+      XRight := (Width - 1) * Bpp;
+      for X := 0 to WidthDiv2 - 1 do
+      begin
+        CopyPixel(@PByteArray(Scanline)[XLeft], @Buff, Bpp);
+        CopyPixel(@PByteArray(Scanline)[XRight],
+          @PByteArray(Scanline)[XLeft], Bpp);
+        CopyPixel(@Buff, @PByteArray(Scanline)[XRight], Bpp);
+        Inc(XLeft, Bpp);
+        Dec(XRight, Bpp);
+      end;
+    end;
+
+    if OldFmt <> Format then
+      ConvertImage(Image, OldFmt);
+
+    Result := True;
+  except
+    RaiseImaging(SErrorMirrorImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function ResizeImage(var Image: TImageData; NewWidth, NewHeight: LongInt;
+  Filter: TResizeFilter): Boolean;
+var
+  WorkImage: TImageData;
+begin
+  Assert((NewWidth > 0) and (NewHeight > 0), 'New width or height is zero.');
+  Result := False;
+  if TestImage(Image) and ((Image.Width <> NewWidth) or (Image.Height <> NewHeight)) then
+  try
+    InitImage(WorkImage);
+    // Create new image with desired dimensions
+    NewImage(NewWidth, NewHeight, Image.Format, WorkImage);
+    // Stretch pixels from old image to new one
+    StretchRect(Image, 0, 0, Image.Width, Image.Height,
+      WorkImage, 0, 0, WorkImage.Width, WorkImage.Height, Filter);
+    // Free old image and assign new image to it
+    FreeMemNil(Image.Bits);
+    if Image.Palette <> nil then
+    begin
+      FreeMem(WorkImage.Palette);
+      WorkImage.Palette := Image.Palette;
+    end;
+    Image := WorkImage;
+    Result := True;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorResizeImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function SwapChannels(var Image: TImageData; SrcChannel, DstChannel: LongInt): Boolean;
+var
+  I, NumPixels: LongInt;
+  Info: PImageFormatInfo;
+  Swap, Alpha: Word;
+  Data: PByte;
+  Pix64: TColor64Rec;
+  PixF: TColorFPRec;
+  SwapF: Single;
+begin
+  Assert((SrcChannel in [0..3]) and (DstChannel in [0..3]));
+  Result := False;
+  if TestImage(Image) and (SrcChannel <> DstChannel) then
+  with Image do
+  try
+    NumPixels := Width * Height;
+    Info := ImageFormatInfos[Format];
+    Data := Bits;
+
+    if (Info.Format = ifR8G8B8) or ((Info.Format = ifA8R8G8B8) and
+       (SrcChannel <> ChannelAlpha) and (DstChannel <> ChannelAlpha)) then
+    begin
+      // Swap channels of most common formats R8G8B8 and A8R8G8B8 (no alpha)
+      for I := 0 to NumPixels - 1 do
+      with PColor24Rec(Data)^ do
+      begin
+        Swap := Channels[SrcChannel];
+        Channels[SrcChannel] := Channels[DstChannel];
+        Channels[DstChannel] := Swap;
+        Inc(Data, Info.BytesPerPixel);
+      end;
+    end
+    else if Info.IsIndexed then
+    begin
+      // Swap palette channels of indexed images
+      SwapChannelsOfPalette(Palette, Info.PaletteEntries, SrcChannel, DstChannel)
+    end
+    else if Info.IsFloatingPoint then
+    begin
+      // Swap channels of floating point images
+      for I := 0 to NumPixels - 1 do
+      begin
+        FloatGetSrcPixel(Data, Info, PixF);
+        with PixF do
+        begin
+          SwapF := Channels[SrcChannel];
+          Channels[SrcChannel] := Channels[DstChannel];
+          Channels[DstChannel] := SwapF;
+        end;
+        FloatSetDstPixel(Data, Info, PixF);
+        Inc(Data, Info.BytesPerPixel);
+      end;
+    end
+    else if Info.IsSpecial then
+    begin
+      // Swap channels of special format images
+      ConvertImage(Image, ifDefault);
+      SwapChannels(Image, SrcChannel, DstChannel);
+      ConvertImage(Image, Info.Format);
+    end
+    else if Info.HasGrayChannel and Info.HasAlphaChannel and
+      ((SrcChannel = ChannelAlpha) or (DstChannel = ChannelAlpha)) then
+    begin
+      for I := 0 to NumPixels - 1 do
+      begin
+        // If we have grayscale image with alpha and alpha is channel
+        // to be swapped, we swap it. No other alternative for gray images,
+        // just alpha and something
+        GrayGetSrcPixel(Data, Info, Pix64, Alpha);
+        Swap := Alpha;
+        Alpha := Pix64.A;
+        Pix64.A := Swap;
+        GraySetDstPixel(Data, Info, Pix64, Alpha);
+        Inc(Data, Info.BytesPerPixel);
+      end;
+    end
+    else
+    begin
+      // Then do general swap on other channel image formats
+      for I := 0 to NumPixels - 1 do
+      begin
+        ChannelGetSrcPixel(Data, Info, Pix64);
+        with Pix64 do
+        begin
+          Swap := Channels[SrcChannel];
+          Channels[SrcChannel] := Channels[DstChannel];
+          Channels[DstChannel] := Swap;
+        end;
+        ChannelSetDstPixel(Data, Info, Pix64);
+        Inc(Data, Info.BytesPerPixel);
+      end;
+    end;
+
+    Result := True;
+  except
+    RaiseImaging(SErrorSwapImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function ReduceColors(var Image: TImageData; MaxColors: LongInt): Boolean;
+var
+  TmpInfo: TImageFormatInfo;
+  Data, Index: PWord;
+  I, NumPixels: LongInt;
+  Pal: PPalette32;
+  Col:PColor32Rec;
+  OldFmt: TImageFormat;
+begin
+  Result := False;
+  if TestImage(Image) then
+  with Image do
+  try
+    // First create temp image info and allocate output bits and palette
+    MaxColors := ClampInt(MaxColors, 2, High(Word));
+    OldFmt := Format;
+    FillChar(TmpInfo, SizeOf(TmpInfo), 0);
+    TmpInfo.PaletteEntries := MaxColors;
+    TmpInfo.BytesPerPixel := 2;
+    NumPixels := Width * Height;
+    GetMem(Data, NumPixels * TmpInfo.BytesPerPixel);
+    GetMem(Pal, MaxColors * SizeOf(TColor32Rec));
+    ConvertImage(Image, ifA8R8G8B8);
+    // We use median cut algorithm to create reduced palette and to
+    // fill Data with indices to this palette
+    ReduceColorsMedianCut(NumPixels, Bits, PByte(Data),
+      ImageFormatInfos[Format], @TmpInfo, MaxColors, ColorReductionMask, Pal);
+    Col := Bits;
+    Index := Data;
+    // Then we write reduced colors to the input image
+    for I := 0 to NumPixels - 1 do
+    begin
+      Col.Color := Pal[Index^].Color;
+      Inc(Col);
+      Inc(Index);
+    end;
+    FreeMemNil(Data);
+    FreeMemNil(Pal);
+    // And convert it to its original format
+    ConvertImage(Image, OldFmt);
+    Result := True;
+  except
+    RaiseImaging(SErrorReduceColors, [MaxColors, ImageToStr(Image)]);
+  end;
+end;
+
+function GenerateMipMaps(const Image: TImageData; Levels: LongInt;
+  var MipMaps: TDynImageDataArray): Boolean;
+var
+  Width, Height, I, Count: LongInt;
+  Info: TImageFormatInfo;
+  CompatibleCopy: TImageData;
+begin
+  Result := False;
+  if TestImage(Image) then
+  try
+    Width := Image.Width;
+    Height := Image.Height;
+    // We compute number of possible mipmap levels and if
+    // the given levels are invalid or zero we use this value
+    Count := GetNumMipMapLevels(Width, Height);
+    if (Levels <= 0) or (Levels > Count) then
+      Levels := Count;
+
+    // If we have special format image we create copy to allow pixel access.
+    // This is also done in FillMipMapLevel which is called for each level
+    // but then the main big image would be converted to compatible
+    // for every level.
+    GetImageFormatInfo(Image.Format, Info);
+    if Info.IsSpecial then
+    begin
+      InitImage(CompatibleCopy);
+      CloneImage(Image, CompatibleCopy);
+      ConvertImage(CompatibleCopy, ifDefault);
+    end
+    else
+      CompatibleCopy := Image;
+
+    FreeImagesInArray(MipMaps);
+    SetLength(MipMaps, Levels);
+    CloneImage(Image, MipMaps[0]);
+
+    for I := 1 to Levels - 1 do
+    begin
+      Width := Width shr 1;
+      Height := Height shr 1;
+      if Width < 1 then Width := 1;
+      if Height < 1 then Height := 1;
+      FillMipMapLevel(CompatibleCopy, Width, Height, MipMaps[I]);
+    end;
+
+    if CompatibleCopy.Format <> MipMaps[0].Format then
+    begin
+      // Must convert smaller levels to proper format
+      for I := 1 to High(MipMaps) do
+        ConvertImage(MipMaps[I], MipMaps[0].Format);
+      FreeImage(CompatibleCopy);
+    end;
+
+    Result := True;
+  except
+    RaiseImaging(SErrorGenerateMipMaps, [Levels, ImageToStr(Image)]);
+  end;
+end;
+
+function MapImageToPalette(var Image: TImageData; Pal: PPalette32;
+  Entries: LongInt): Boolean;
+
+  function FindNearestColor(Pal: PPalette32; Entries: LongInt; Col: TColor32Rec): LongInt;
+  var
+    I, MinDif, Dif: LongInt;
+  begin
+    Result := 0;
+    MinDif := 1020;
+    for I := 0 to Entries - 1 do
+    with Pal[I] do
+    begin
+      Dif := Abs(R - Col.R);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(G - Col.G);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(B - Col.B);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(A - Col.A);
+      if Dif < MinDif then
+      begin
+        MinDif := Dif;
+        Result := I;
+      end;
+    end;
+  end;
+
+var
+  I, MaxEntries: LongInt;
+  PIndex: PByte;
+  PColor: PColor32Rec;
+  CloneARGB: TImageData;
+  Info: PImageFormatInfo;
+begin
+  Assert((Entries >= 2) and (Entries <= 256));
+  Result := False;
+
+  if TestImage(Image) then
+  try
+    // We create clone of source image in A8R8G8B8 and
+    // then recreate source image in ifIndex8 format
+    // with palette taken from Pal parameter
+    InitImage(CloneARGB);
+    CloneImage(Image, CloneARGB);
+    ConvertImage(CloneARGB, ifA8R8G8B8);
+    FreeImage(Image);
+    NewImage(CloneARGB.Width, CloneARGB.Height, ifIndex8, Image);
+
+    Info := ImageFormatInfos[Image.Format];
+    MaxEntries := Min(Info.PaletteEntries, Entries);
+    Move(Pal^, Image.Palette^, MaxEntries * SizeOf(TColor32Rec));
+    PIndex := Image.Bits;
+    PColor := CloneARGB.Bits;
+
+    // For every pixel of ARGB clone we find closest color in
+    // given palette and assign its index to resulting image's pixel
+    // procedure used here is very slow but simple and memory usage friendly
+    // (contrary to other methods)
+    for I := 0 to Image.Width * Image.Height - 1 do
+    begin
+      PIndex^ := Byte(FindNearestColor(Image.Palette, MaxEntries, PColor^));
+      Inc(PIndex);
+      Inc(PColor);
+    end;
+
+    FreeImage(CloneARGB);
+    Result := True;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorMapImage, [ImageToStr(Image)]);
+  end;
+end;
+
+function SplitImage(var Image: TImageData; var Chunks: TDynImageDataArray;
+  ChunkWidth, ChunkHeight: LongInt; var XChunks, YChunks: LongInt;
+  PreserveSize: Boolean; Fill: Pointer): Boolean;
+var
+  X, Y, XTrunc, YTrunc: LongInt;
+  NotOnEdge: Boolean;
+  Info: PImageFormatInfo;
+  OldFmt: TImageFormat;
+begin
+  Assert((ChunkWidth > 0) and (ChunkHeight > 0));
+  Result := False;
+  OldFmt := Image.Format;
+  FreeImagesInArray(Chunks);
+
+  if TestImage(Image) then
+  try
+    Info := ImageFormatInfos[Image.Format];
+    if Info.IsSpecial then
+      ConvertImage(Image, ifDefault);
+
+    // We compute make sure that chunks are not larger than source image or negative
+    ChunkWidth := ClampInt(ChunkWidth, 0, Image.Width);
+    ChunkHeight := ClampInt(ChunkHeight, 0, Image.Height);
+    // Number of chunks along X and Y axes is computed
+    XChunks := Trunc(Ceil(Image.Width / ChunkWidth));
+    YChunks := Trunc(Ceil(Image.Height / ChunkHeight));
+    SetLength(Chunks, XChunks * YChunks);
+
+    // For every chunk we create new image and copy a portion of
+    // the source image to it. If chunk is on the edge of the source image
+    // we fill enpty space with Fill pixel data if PreserveSize is set or
+    // make the chunk smaller if it is not set
+    for Y := 0 to YChunks - 1 do
+      for X := 0 to XChunks - 1 do
+      begin
+        // Determine if current chunk is on the edge of original image
+        NotOnEdge := ((X < XChunks - 1) and (Y < YChunks - 1)) or
+          ((Image.Width mod ChunkWidth = 0) and (Image.Height mod ChunkHeight = 0));
+
+        if PreserveSize or NotOnEdge then
+        begin
+          // We should preserve chunk sizes or we are somewhere inside original image
+          NewImage(ChunkWidth, ChunkHeight, Image.Format, Chunks[Y * XChunks + X]);
+          if (not NotOnEdge) and (Fill <> nil) then
+            FillRect(Chunks[Y * XChunks + X], 0, 0, ChunkWidth, ChunkHeight, Fill);
+          CopyRect(Image, X * ChunkWidth, Y * ChunkHeight, ChunkWidth, ChunkHeight,
+            Chunks[Y * XChunks + X], 0, 0);
+        end
+        else
+        begin
+          // Create smaller edge chunk
+          XTrunc := Image.Width - X * ChunkWidth;
+          YTrunc := Image.Height - Y * ChunkHeight;
+          NewImage(XTrunc, YTrunc, Image.Format, Chunks[Y * XChunks + X]);
+          CopyRect(Image, X * ChunkWidth, Y * ChunkHeight, XTrunc, YTrunc,
+            Chunks[Y * XChunks + X], 0, 0);
+        end;
+
+        // If source image is in indexed format we copy its palette to chunk
+        if Info.IsIndexed then
+        begin
+          Move(Image.Palette^, Chunks[Y * XChunks + X].Palette^,
+            Info.PaletteEntries * SizeOf(TColor32Rec));
+        end;
+      end;
+
+    if OldFmt <> Image.Format then
+    begin
+      ConvertImage(Image, OldFmt);
+      for X := 0 to Length(Chunks) - 1 do
+        ConvertImage(Chunks[X], OldFmt);
+    end;
+
+    Result := True;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorSplitImage,
+      [ImageToStr(Image), ChunkWidth, ChunkHeight]);
+  end;
+end;
+
+function MakePaletteForImages(var Images: TDynImageDataArray; Pal: PPalette32;
+  MaxColors: LongInt; ConvertImages: Boolean): Boolean;
+var
+  I: Integer;
+  SrcInfo, DstInfo: PImageFormatInfo;
+  Target, TempImage: TImageData;
+  DstFormat: TImageFormat;
+begin
+  Assert((Pal <> nil) and (MaxColors > 0));
+  Result := False;
+  InitImage(TempImage);
+
+  if TestImagesInArray(Images) then
+  try
+    // Null the color histogram
+    ReduceColorsMedianCut(0, nil, nil, nil, nil, 0, 0, nil, [raCreateHistogram]);
+    for I := 0 to Length(Images) - 1 do
+    begin
+      SrcInfo := ImageFormatInfos[Images[I].Format];
+      if SrcInfo.IsIndexed or SrcInfo.IsSpecial then
+      begin
+        // create temp image in supported format for updating histogram
+        CloneImage(Images[I], TempImage);
+        ConvertImage(TempImage, ifA8R8G8B8);
+        SrcInfo := ImageFormatInfos[TempImage.Format];
+      end
+      else
+        TempImage := Images[I];
+
+      // Update histogram with colors of each input image
+      ReduceColorsMedianCut(TempImage.Width * TempImage.Height, TempImage.Bits,
+        nil, SrcInfo, nil, MaxColors, ColorReductionMask, nil, [raUpdateHistogram]);
+
+      if Images[I].Bits <> TempImage.Bits then
+        FreeImage(TempImage);
+    end;
+    // Construct reduced color map from the histogram
+    ReduceColorsMedianCut(0, nil, nil, nil, nil, MaxColors, ColorReductionMask,
+      Pal, [raMakeColorMap]);
+
+    if ConvertImages then
+    begin
+      DstFormat := ifIndex8;
+      DstInfo := ImageFormatInfos[DstFormat];
+      MaxColors := Min(DstInfo.PaletteEntries, MaxColors);
+
+      for I := 0 to Length(Images) - 1 do
+      begin
+        SrcInfo := ImageFormatInfos[Images[I].Format];
+        if SrcInfo.IsIndexed or SrcInfo.IsSpecial then
+        begin
+          // If source image is in format not supported by ReduceColorsMedianCut
+          // we convert it
+          ConvertImage(Images[I], ifA8R8G8B8);
+          SrcInfo := ImageFormatInfos[Images[I].Format];
+        end;
+
+        InitImage(Target);
+        NewImage(Images[I].Width, Images[I].Height, DstFormat, Target);
+        // We map each input image to reduced palette and replace
+        // image in array with mapped image
+        ReduceColorsMedianCut(Images[I].Width * Images[I].Height, Images[I].Bits,
+          Target.Bits, SrcInfo, DstInfo, MaxColors, 0, nil, [raMapImage]);
+        Move(Pal^, Target.Palette^, MaxColors * SizeOf(TColor32Rec));
+
+        FreeImage(Images[I]);
+        Images[I] := Target;
+      end;
+    end;
+    Result := True;
+  except
+    RaiseImaging(SErrorMakePaletteForImages, [MaxColors, Length(Images)]);
+  end;
+end;
+
+procedure RotateImage(var Image: TImageData; Angle: Single);
+var
+  OldFmt: TImageFormat;
+
+  procedure XShear(var Src, Dst: TImageData; Row, Offset, Weight, Bpp: Integer);
+  var
+    I, J, XPos: Integer;
+    PixSrc, PixLeft, PixOldLeft: TColor32Rec;
+    LineDst: PByteArray;
+    SrcPtr: PColor32;
+  begin
+    SrcPtr := @PByteArray(Src.Bits)[Row * Src.Width * Bpp];
+    LineDst := @PByteArray(Dst.Bits)[Row * Dst.Width * Bpp];
+    PixOldLeft.Color := 0;
+
+    for I := 0 to Src.Width - 1 do
+    begin
+      CopyPixel(SrcPtr, @PixSrc, Bpp);
+      for J := 0 to Bpp - 1 do
+        PixLeft.Channels[J] := MulDiv(PixSrc.Channels[J], Weight, 256);
+
+      XPos := I + Offset;
+      if (XPos >= 0) and (XPos < Dst.Width) then
+      begin
+        for J := 0 to Bpp - 1 do
+          PixSrc.Channels[J] := ClampToByte(PixSrc.Channels[J] - (PixLeft.Channels[J] - PixOldLeft.Channels[J]));
+        CopyPixel(@PixSrc, @LineDst[XPos * Bpp], Bpp);
+      end;
+      PixOldLeft := PixLeft;
+      Inc(PByte(SrcPtr), Bpp);
+    end;
+
+    XPos := Src.Width + Offset;
+    if XPos < Dst.Width then
+      CopyPixel(@PixOldLeft, @LineDst[XPos * Bpp], Bpp);
+  end;
+
+  procedure YShear(var Src, Dst: TImageData; Col, Offset, Weight, Bpp: Integer);
+  var
+    I, J, YPos: Integer;
+    PixSrc, PixLeft, PixOldLeft: TColor32Rec;
+    SrcPtr: PByte;
+  begin
+    SrcPtr := @PByteArray(Src.Bits)[Col * Bpp];
+    PixOldLeft.Color := 0;
+
+    for I := 0 to Src.Height - 1 do
+    begin
+      CopyPixel(SrcPtr, @PixSrc, Bpp);
+      for J := 0 to Bpp - 1 do
+        PixLeft.Channels[J] := MulDiv(PixSrc.Channels[J], Weight, 256);
+
+      YPos := I + Offset;
+      if (YPos >= 0) and (YPos < Dst.Height) then
+      begin
+        for J := 0 to Bpp - 1 do
+          PixSrc.Channels[J] := ClampToByte(PixSrc.Channels[J] - (PixLeft.Channels[J] - PixOldLeft.Channels[J]));
+        CopyPixel(@PixSrc, @PByteArray(Dst.Bits)[(YPos * Dst.Width + Col) * Bpp], Bpp);
+      end;
+      PixOldLeft := PixLeft;
+      Inc(SrcPtr, Src.Width * Bpp);
+    end;
+
+    YPos := Src.Height + Offset;
+    if YPos < Dst.Height then
+      CopyPixel(@PixOldLeft, @PByteArray(Dst.Bits)[(YPos * Dst.Width + Col) * Bpp], Bpp);
+  end;
+
+  procedure Rotate45(var Image: TImageData; Angle: Single);
+  var
+    TempImage1, TempImage2: TImageData;
+    AngleRad, AngleTan, AngleSin, AngleCos, Shear: Single;
+    I, DstWidth, DstHeight, SrcWidth, SrcHeight, Bpp: Integer;
+    SrcFmt, TempFormat: TImageFormat;
+    Info: TImageFormatInfo;
+  begin
+    AngleRad := Angle * Pi / 180;
+    AngleSin := Sin(AngleRad);
+    AngleCos := Cos(AngleRad);
+    AngleTan := Sin(AngleRad / 2) / Cos(AngleRad / 2);
+    SrcWidth := Image.Width;
+    SrcHeight := Image.Height;
+    SrcFmt := Image.Format;
+
+    if not (SrcFmt in [ifR8G8B8..ifX8R8G8B8, ifGray8..ifGray32, ifA16Gray16]) then
+      ConvertImage(Image, ifA8R8G8B8);
+
+    TempFormat := Image.Format;
+    GetImageFormatInfo(TempFormat, Info);
+    Bpp := Info.BytesPerPixel;
+
+    // 1st shear (horizontal)
+    DstWidth := Trunc(SrcWidth + SrcHeight * Abs(AngleTan) + 0.5);
+    DstHeight := SrcHeight;
+    InitImage(TempImage1);
+    NewImage(DstWidth, DstHeight, TempFormat, TempImage1);
+
+    for I := 0 to DstHeight - 1 do
+    begin
+      if AngleTan >= 0 then
+        Shear := (I + 0.5) * AngleTan
+      else
+        Shear := (I - DstHeight + 0.5) * AngleTan;
+      XShear(Image, TempImage1, I, Floor(Shear), Trunc(255 * (Shear - Floor(Shear)) + 1), Bpp);
+    end;
+
+    // 2nd shear (vertical)
+    FreeImage(Image);
+    DstHeight := Trunc(SrcWidth * Abs(AngleSin) + SrcHeight * AngleCos + 0.5) + 1;
+    InitImage(TempImage2);
+    NewImage(DstWidth, DstHeight, TempFormat, TempImage2);
+
+    if AngleSin >= 0 then
+      Shear := (SrcWidth - 1) * AngleSin
+    else
+      Shear := (SrcWidth - DstWidth) * -AngleSin;
+
+    for I := 0 to DstWidth - 1 do
+    begin
+      YShear(TempImage1, TempImage2, I, Floor(Shear), Trunc(255 * (Shear - Floor(Shear)) + 1), Bpp);
+      Shear := Shear - AngleSin;
+    end;
+
+    // 3rd shear (horizontal)
+    FreeImage(TempImage1);
+    DstWidth := Trunc(SrcHeight * Abs(AngleSin) + SrcWidth * AngleCos + 0.5) + 1;
+    NewImage(DstWidth, DstHeight, TempFormat, Image);
+
+    if AngleSin >= 0 then
+      Shear := (SrcWidth - 1) * AngleSin * -AngleTan
+    else
+      Shear := ((SrcWidth - 1) * -AngleSin + (1 - DstHeight)) * AngleTan;
+
+    for I := 0 to DstHeight - 1 do
+    begin
+      XShear(TempImage2, Image, I, Floor(Shear), Trunc(255 * (Shear - Floor(Shear)) + 1), Bpp);
+      Shear := Shear + AngleTan;
+    end;
+
+    FreeImage(TempImage2);
+    if Image.Format <> SrcFmt then
+      ConvertImage(Image, SrcFmt);
+  end;
+
+  procedure RotateMul90(var Image: TImageData; Angle: Integer);
+  var
+    RotImage: TImageData;
+    X, Y, BytesPerPixel: Integer;
+    RotPix, Pix: PByte;
+  begin
+    InitImage(RotImage);
+    BytesPerPixel := ImageFormatInfos[Image.Format].BytesPerPixel;
+
+    if ((Angle = 90) or (Angle = 270)) and (Image.Width <> Image.Height) then
+      NewImage(Image.Height, Image.Width, Image.Format, RotImage)
+    else
+      NewImage(Image.Width, Image.Height, Image.Format, RotImage);
+
+    RotPix := RotImage.Bits;
+    case Angle of
+      90:
+        begin
+          for Y := 0 to RotImage.Height - 1 do
+          begin
+            Pix := @PByteArray(Image.Bits)[(Image.Width - Y - 1) * BytesPerPixel];
+            for X := 0 to RotImage.Width - 1 do
+            begin
+              CopyPixel(Pix, RotPix, BytesPerPixel);
+              Inc(RotPix, BytesPerPixel);
+              Inc(Pix, Image.Width * BytesPerPixel);
+            end;
+          end;
+        end;
+      180:
+        begin
+          Pix := @PByteArray(Image.Bits)[((Image.Height - 1) * Image.Width +
+            (Image.Width - 1)) * BytesPerPixel];
+          for Y := 0 to RotImage.Height - 1 do
+            for X := 0 to RotImage.Width - 1 do
+            begin
+              CopyPixel(Pix, RotPix, BytesPerPixel);
+              Inc(RotPix, BytesPerPixel);
+              Dec(Pix, BytesPerPixel);
+            end;
+        end;
+      270:
+        begin
+          for Y := 0 to RotImage.Height - 1 do
+          begin
+            Pix := @PByteArray(Image.Bits)[((Image.Height - 1) * Image.Width + Y) * BytesPerPixel];
+            for X := 0 to RotImage.Width - 1 do
+            begin
+              CopyPixel(Pix, RotPix, BytesPerPixel);
+              Inc(RotPix, BytesPerPixel);
+              Dec(Pix, Image.Width * BytesPerPixel);
+            end;
+          end;
+        end;
+    end;
+
+    FreeMemNil(Image.Bits);
+    RotImage.Palette := Image.Palette;
+    Image := RotImage;
+  end;
+
+begin
+  if TestImage(Image) then
+  try
+    while Angle >= 360 do
+      Angle := Angle - 360;
+    while Angle < 0 do
+      Angle := Angle + 360;
+
+    if (Angle = 0) or (Abs(Angle) = 360) then
+      Exit;
+
+    OldFmt := Image.Format;
+    if ImageFormatInfos[Image.Format].IsSpecial then
+      ConvertImage(Image, ifDefault);
+
+    if (Angle > 45) and (Angle <= 135) then
+    begin
+      RotateMul90(Image, 90);
+      Angle := Angle - 90;
+    end
+    else if (Angle > 135) and (Angle <= 225) then
+    begin
+      RotateMul90(Image, 180);
+      Angle := Angle - 180;
+    end
+    else if (Angle > 225) and (Angle <= 315) then
+    begin
+      RotateMul90(Image, 270);
+      Angle := Angle - 270;
+    end;
+
+    if Angle <> 0 then
+      Rotate45(Image, Angle);
+
+    if OldFmt <> Image.Format then
+      ConvertImage(Image, OldFmt);
+
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorRotateImage, [ImageToStr(Image), Angle]);
+  end;
+end;
+
+{ Drawing/Pixel functions }
+
+function CopyRect(const SrcImage: TImageData; SrcX, SrcY, Width, Height: LongInt;
+  var DstImage: TImageData; DstX, DstY: LongInt): Boolean;
+var
+  Info: PImageFormatInfo;
+  I, SrcWidthBytes, DstWidthBytes, MoveBytes: LongInt;
+  SrcPointer, DstPointer: PByte;
+  WorkImage: TImageData;
+  OldFormat: TImageFormat;
+begin
+  Result := False;
+  OldFormat := ifUnknown;
+  if TestImage(SrcImage) and TestImage(DstImage) then
+  try
+    // Make sure we are still copying image to image, not invalid pointer to protected memory
+    ClipCopyBounds(SrcX, SrcY, Width, Height, DstX, DstY, SrcImage.Width, SrcImage.Height,
+      Rect(0, 0, DstImage.Width, DstImage.Height));
+
+    if (Width > 0) and (Height > 0) then
+    begin
+      Info := ImageFormatInfos[DstImage.Format];
+      if Info.IsSpecial then
+      begin
+        // If dest image is in special format we convert it to default
+        OldFormat := Info.Format;
+        ConvertImage(DstImage, ifDefault);
+        Info := ImageFormatInfos[DstImage.Format];
+      end;
+      if SrcImage.Format <> DstImage.Format then
+      begin
+        // If images are in different format source is converted to dest's format
+        InitImage(WorkImage);
+        CloneImage(SrcImage, WorkImage);
+        ConvertImage(WorkImage, DstImage.Format);
+      end
+      else
+        WorkImage := SrcImage;
+
+      MoveBytes := Width * Info.BytesPerPixel;
+      DstWidthBytes := DstImage.Width * Info.BytesPerPixel;
+      DstPointer := @PByteArray(DstImage.Bits)[DstY * DstWidthBytes +
+        DstX * Info.BytesPerPixel];
+      SrcWidthBytes := WorkImage.Width * Info.BytesPerPixel;
+      SrcPointer := @PByteArray(WorkImage.Bits)[SrcY * SrcWidthBytes +
+        SrcX * Info.BytesPerPixel];
+
+      for I := 0 to Height - 1 do
+      begin
+        Move(SrcPointer^, DstPointer^, MoveBytes);
+        Inc(SrcPointer, SrcWidthBytes);
+        Inc(DstPointer, DstWidthBytes);
+      end;
+      // If dest image was in special format we convert it back
+      if OldFormat <> ifUnknown then
+        ConvertImage(DstImage, OldFormat);
+      // Working image must be freed if it is not the same as source image
+      if WorkImage.Bits <> SrcImage.Bits then
+        FreeImage(WorkImage);
+
+      Result := True;
+    end;
+  except
+    RaiseImaging(SErrorCopyRect, [ImageToStr(SrcImage), ImageToStr(DstImage)]);
+  end;
+end;
+
+function FillRect(var Image: TImageData; X, Y, Width, Height: LongInt;
+  FillColor: Pointer): Boolean;
+var
+  Info: PImageFormatInfo;
+  I, J, ImageWidthBytes, RectWidthBytes, Bpp: Longint;
+  LinePointer, PixPointer: PByte;
+  OldFmt: TImageFormat;
+begin
+  Result := False;
+  if TestImage(Image) then
+  try
+    ClipRectBounds(X, Y, Width, Height, Rect(0, 0, Image.Width, Image.Height));
+
+    if (Width > 0) and (Height > 0) then
+    begin
+      OldFmt := Image.Format;
+      if ImageFormatInfos[OldFmt].IsSpecial then
+        ConvertImage(Image, ifDefault);
+
+      Info := ImageFormatInfos[Image.Format];
+      Bpp := Info.BytesPerPixel;
+      ImageWidthBytes := Image.Width * Bpp;
+      RectWidthBytes := Width * Bpp;
+      LinePointer := @PByteArray(Image.Bits)[Y * ImageWidthBytes + X * Bpp];
+
+      for I := 0 to Height - 1 do
+      begin
+        case Bpp of
+          1: FillMemoryByte(LinePointer, RectWidthBytes, PByte(FillColor)^);
+          2: FillMemoryWord(LinePointer, RectWidthBytes, PWord(FillColor)^);
+          4: FillMemoryLongWord(LinePointer, RectWidthBytes, PLongWord(FillColor)^);
+        else
+          PixPointer := LinePointer;
+          for J := 0 to Width - 1 do
+          begin
+            CopyPixel(FillColor, PixPointer, Bpp);
+            Inc(PixPointer, Bpp);
+          end;
+        end;
+        Inc(LinePointer, ImageWidthBytes);
+      end;
+
+      if OldFmt <> Image.Format then
+        ConvertImage(Image, OldFmt);
+    end;
+
+    Result := True;
+  except
+    RaiseImaging(SErrorFillRect, [X, Y, Width, Height, ImageToStr(Image)]);
+  end;
+end;
+
+function ReplaceColor(var Image: TImageData; X, Y, Width, Height: LongInt;
+  OldColor, NewColor: Pointer): Boolean;
+var
+  Info: PImageFormatInfo;
+  I, J, WidthBytes, Bpp: Longint;
+  LinePointer, PixPointer: PByte;
+  OldFmt: TImageFormat;
+begin
+  Assert((OldColor <> nil) and (NewColor <> nil));
+  Result := False;
+  if TestImage(Image) then
+  try
+    ClipRectBounds(X, Y, Width, Height, Rect(0, 0, Image.Width, Image.Height));
+
+    if (Width > 0) and (Height > 0) then
+    begin
+      OldFmt := Image.Format;
+      if ImageFormatInfos[OldFmt].IsSpecial then
+        ConvertImage(Image, ifDefault);
+
+      Info := ImageFormatInfos[Image.Format];
+      Bpp := Info.BytesPerPixel;
+      WidthBytes := Image.Width * Bpp;
+      LinePointer := @PByteArray(Image.Bits)[Y * WidthBytes + X * Bpp];
+
+      for I := 0 to Height - 1 do
+      begin
+        PixPointer := LinePointer;
+        for J := 0 to Width - 1 do
+        begin
+          if ComparePixels(PixPointer, OldColor, Bpp) then
+            CopyPixel(NewColor, PixPointer, Bpp);
+          Inc(PixPointer, Bpp);
+        end;
+        Inc(LinePointer, WidthBytes);
+      end;
+
+      if OldFmt <> Image.Format then
+        ConvertImage(Image, OldFmt);
+    end;
+
+    Result := True;
+  except
+    RaiseImaging(SErrorReplaceColor, [X, Y, Width, Height, ImageToStr(Image)]);
+  end;
+end;
+
+function StretchRect(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TResizeFilter): Boolean;
+var
+  Info: PImageFormatInfo;
+  WorkImage: TImageData;
+  OldFormat: TImageFormat;
+  Resampling: TSamplingFilter;
+begin
+  Result := False;
+  OldFormat := ifUnknown;
+  if TestImage(SrcImage) and TestImage(DstImage) then
+  try
+    // Make sure we are still copying image to image, not invalid pointer to protected memory
+    ClipStretchBounds(SrcX, SrcY, SrcWidth, SrcHeight, DstX, DstY, DstWidth, DstHeight,
+      SrcImage.Width, SrcImage.Height, Rect(0, 0, DstImage.Width, DstImage.Height));
+
+    if (SrcWidth = DstWidth) and (SrcHeight = DstHeight) then
+    begin
+      // If source and dest rectangles have the same size call CopyRect
+      Result := CopyRect(SrcImage, SrcX, SrcY, SrcWidth, SrcHeight, DstImage, DstX, DstY);
+    end
+    else if (SrcWidth > 0) and (SrcHeight > 0) and (DstWidth > 0) and (DstHeight > 0) then
+    begin
+      // If source and dest rectangles don't have the same size we do stretch
+      Info := ImageFormatInfos[DstImage.Format];
+
+      if Info.IsSpecial then
+      begin
+        // If dest image is in special format we convert it to default
+        OldFormat := Info.Format;
+        ConvertImage(DstImage, ifDefault);
+        Info := ImageFormatInfos[DstImage.Format];
+      end;
+
+      if SrcImage.Format <> DstImage.Format then
+      begin
+        // If images are in different format source is converted to dest's format
+        InitImage(WorkImage);
+        CloneImage(SrcImage, WorkImage);
+        ConvertImage(WorkImage, DstImage.Format);
+      end
+      else
+        WorkImage := SrcImage;
+
+      // Only pixel resize is supported for indexed images
+      if Info.IsIndexed then
+        Filter := rfNearest;
+
+      if Filter = rfNearest then
+      begin
+        StretchNearest(WorkImage, SrcX, SrcY, SrcWidth, SrcHeight,
+          DstImage, DstX, DstY, DstWidth, DstHeight);
+      end
+      else
+      begin
+        Resampling := sfNearest;
+        case Filter of
+          rfBilinear: Resampling := sfLinear;
+          rfBicubic:  Resampling := DefaultCubicFilter;
+          rfLanczos:  Resampling := sfLanczos;
+        end;
+        StretchResample(WorkImage, SrcX, SrcY, SrcWidth, SrcHeight,
+          DstImage, DstX, DstY, DstWidth, DstHeight, Resampling);
+      end;
+
+      // If dest image was in special format we convert it back
+      if OldFormat <> ifUnknown then
+        ConvertImage(DstImage, OldFormat);
+      // Working image must be freed if it is not the same as source image
+      if WorkImage.Bits <> SrcImage.Bits then
+        FreeImage(WorkImage);
+
+      Result := True;
+    end;
+  except
+    RaiseImaging(SErrorStretchRect, [ImageToStr(SrcImage), ImageToStr(DstImage)]);
+  end;
+end;
+
+procedure GetPixelDirect(const Image: TImageData; X, Y: LongInt; Pixel: Pointer);
+var
+  BytesPerPixel: LongInt;
+begin
+  Assert(Pixel <> nil);
+  BytesPerPixel := ImageFormatInfos[Image.Format].BytesPerPixel;
+  CopyPixel(@PByteArray(Image.Bits)[(Y * Image.Width + X) * BytesPerPixel],
+    Pixel, BytesPerPixel);
+end;
+
+procedure SetPixelDirect(const Image: TImageData; X, Y: LongInt; Pixel: Pointer);
+var
+  BytesPerPixel: LongInt;
+begin
+  Assert(Pixel <> nil);
+  BytesPerPixel := ImageFormatInfos[Image.Format].BytesPerPixel;
+  CopyPixel(Pixel, @PByteArray(Image.Bits)[(Y * Image.Width + X) * BytesPerPixel],
+    BytesPerPixel);
+end;
+
+function GetPixel32(const Image: TImageData; X, Y: LongInt): TColor32Rec;
+var
+  Info: PImageFormatInfo;
+  Data: PByte;
+begin
+  Info := ImageFormatInfos[Image.Format];
+  Data := @PByteArray(Image.Bits)[(Y * Image.Width + X) * Info.BytesPerPixel];
+  Result := GetPixel32Generic(Data, Info, Image.Palette);
+end;
+
+procedure SetPixel32(const Image: TImageData; X, Y: LongInt; const Color: TColor32Rec);
+var
+  Info: PImageFormatInfo;
+  Data: PByte;
+begin
+  Info := ImageFormatInfos[Image.Format];
+  Data := @PByteArray(Image.Bits)[(Y * Image.Width + X) * Info.BytesPerPixel];
+  SetPixel32Generic(Data, Info, Image.Palette, Color);
+end;
+
+function GetPixelFP(const Image: TImageData; X, Y: LongInt): TColorFPRec;
+var
+  Info: PImageFormatInfo;
+  Data: PByte;
+begin
+  Info := ImageFormatInfos[Image.Format];
+  Data := @PByteArray(Image.Bits)[(Y * Image.Width + X) * Info.BytesPerPixel];
+  Result := GetPixelFPGeneric(Data, Info, Image.Palette);
+end;
+
+procedure SetPixelFP(const Image: TImageData; X, Y: LongInt; const Color: TColorFPRec);
+var
+  Info: PImageFormatInfo;
+  Data: PByte;
+begin
+  Info := ImageFormatInfos[Image.Format];
+  Data := @PByteArray(Image.Bits)[(Y * Image.Width + X) * Info.BytesPerPixel];
+  SetPixelFPGeneric(Data, Info, Image.Palette, Color);
+end;
+
+{ Palette Functions }
+
+procedure NewPalette(Entries: LongInt; var Pal: PPalette32);
+begin
+  Assert((Entries > 2) and (Entries <= 65535));
+  try
+    GetMem(Pal, Entries * SizeOf(TColor32Rec));
+    FillChar(Pal^, Entries * SizeOf(TColor32Rec), $FF);
+  except
+    RaiseImaging(SErrorNewPalette, [Entries]);
+  end;
+end;
+
+procedure FreePalette(var Pal: PPalette32);
+begin
+  try
+    FreeMemNil(Pal);
+  except
+    RaiseImaging(SErrorFreePalette, [Pal]);
+  end;
+end;
+
+procedure CopyPalette(SrcPal, DstPal: PPalette32; SrcIdx, DstIdx, Count: LongInt);
+begin
+  Assert((SrcPal <> nil) and (DstPal <> nil));
+  Assert((SrcIdx >= 0) and (DstIdx >= 0) and (Count >= 0));
+  try
+    Move(SrcPal[SrcIdx], DstPal[DstIdx], Count * SizeOf(TColor32Rec));
+  except
+    RaiseImaging(SErrorCopyPalette, [Count, SrcPal, DstPal]);
+  end;
+end;
+
+function FindColor(Pal: PPalette32; Entries: LongInt; Color: TColor32):
+  LongInt;
+var
+  Col: TColor32Rec;
+  I, MinDif, Dif: LongInt;
+begin
+  Assert(Pal <> nil);
+  Result := -1;
+  Col.Color := Color;
+  try
+    // First try to find exact match
+    for I := 0 to Entries - 1 do
+    with Pal[I] do
+    begin
+      if (A = Col.A) and (R = Col.R) and
+        (G = Col.G) and (B = Col.B) then
+      begin
+        Result := I;
+        Exit;
+      end;
+    end;
+
+    // If exact match was not found, find nearest color
+    MinDif := 1020;
+    for I := 0 to Entries - 1 do
+    with Pal[I] do
+    begin
+      Dif := Abs(R - Col.R);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(G - Col.G);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(B - Col.B);
+      if Dif > MinDif then Continue;
+      Dif := Dif + Abs(A - Col.A);
+      if Dif < MinDif then
+      begin
+        MinDif := Dif;
+        Result := I;
+      end;
+    end;
+  except
+    RaiseImaging(SErrorFindColor, [Pal, Entries]);
+  end;
+end;
+
+procedure FillGrayscalePalette(Pal: PPalette32; Entries: LongInt);
+var
+  I: LongInt;
+begin
+  Assert(Pal <> nil);
+  try
+    for I := 0 to Entries - 1 do
+    with Pal[I] do
+    begin
+      A := $FF;
+      R := Byte(I);
+      G := Byte(I);
+      B := Byte(I);
+    end;
+  except
+    RaiseImaging(SErrorGrayscalePalette, [Pal, Entries]);
+  end;
+end;
+
+procedure FillCustomPalette(Pal: PPalette32; Entries: LongInt; RBits, GBits,
+  BBits: Byte; Alpha: Byte = $FF);
+var
+  I, TotalBits, MaxEntries: LongInt;
+begin
+  Assert(Pal <> nil);
+  TotalBits := RBits + GBits + BBits;
+  MaxEntries := Min(Pow2Int(TotalBits), Entries);
+  FillChar(Pal^, Entries * SizeOf(TColor32Rec), 0);
+  try
+    for I := 0 to MaxEntries - 1 do
+    with Pal[I] do
+    begin
+      A := Alpha;
+      if RBits > 0 then
+        R := ((I shr Max(0, GBits + BBits - 1)) and (1 shl RBits - 1)) * 255 div (1 shl RBits - 1);
+      if GBits > 0 then
+        G := ((I shr Max(0, BBits - 1)) and (1 shl GBits - 1)) * 255 div (1 shl GBits - 1);
+      if BBits > 0 then
+        B := ((I shr 0) and (1 shl BBits - 1)) * 255 div (1 shl BBits - 1);
+    end;
+  except
+    RaiseImaging(SErrorCustomPalette, [Pal, Entries]);
+  end;
+end;
+
+procedure SwapChannelsOfPalette(Pal: PPalette32; Entries, SrcChannel,
+  DstChannel: LongInt);
+var
+  I: LongInt;
+  Swap: Byte;
+begin
+  Assert(Pal <> nil);
+  Assert((SrcChannel in [0..3]) and (DstChannel in [0..3]));
+  try
+    for I := 0 to Entries - 1 do
+    with Pal[I] do
+    begin
+      Swap := Channels[SrcChannel];
+      Channels[SrcChannel] := Channels[DstChannel];
+      Channels[DstChannel] := Swap;
+    end;
+  except
+    RaiseImaging(SErrorSwapPalette, [Pal, Entries]);
+  end;
+end;
+
+{ Options Functions }
+
+function SetOption(OptionId, Value: LongInt): Boolean;
+begin
+  Result := False;
+  if (OptionId >= 0) and (OptionId < Length(Options)) and
+    (Options[OptionID] <> nil) then
+  begin
+    Options[OptionID]^ := CheckOptionValue(OptionId, Value);
+    Result := True;
+  end;
+end;
+
+function GetOption(OptionId: LongInt): LongInt;
+begin
+  Result := InvalidOption;
+  if (OptionId >= 0) and (OptionId < Length(Options)) and
+    (Options[OptionID] <> nil) then
+  begin
+    Result := Options[OptionID]^;
+  end;
+end;
+
+function PushOptions: Boolean;
+begin
+  Result := OptionStack.Push;
+end;
+
+function PopOptions: Boolean;
+begin
+  Result := OptionStack.Pop;
+end;
+
+{ Image Format Functions }
+
+function GetImageFormatInfo(Format: TImageFormat; out Info: TImageFormatInfo): Boolean;
+begin
+  FillChar(Info, SizeOf(Info), 0);
+  if ImageFormatInfos[Format] <> nil then
+  begin
+    Info := ImageFormatInfos[Format]^;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+function GetPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  if ImageFormatInfos[Format] <> nil then
+    Result := ImageFormatInfos[Format].GetPixelsSize(Format, Width, Height)
+  else
+    Result := 0;
+end;
+
+{ IO Functions }
+
+procedure SetUserFileIO(OpenProc: TOpenProc;
+  CloseProc: TCloseProc; EofProc: TEofProc; SeekProc: TSeekProc; TellProc:
+  TTellProc; ReadProc: TReadProc; WriteProc: TWriteProc);
+begin
+  FileIO.Open := OpenProc;
+  FileIO.Close := CloseProc;
+  FileIO.Eof := EofProc;
+  FileIO.Seek := SeekProc;
+  FileIO.Tell := TellProc;
+  FileIO.Read := ReadProc;
+  FileIO.Write := WriteProc;
+end;
+
+procedure ResetFileIO;
+begin
+  FileIO := OriginalFileIO;
+end;
+
+{ Raw Image IO Functions }
+
+procedure ReadRawImage(Handle: TImagingHandle;  Width, Height: Integer;
+  Format: TImageFormat; out Image: TImageData; Offset, RowLength: Integer);
+var
+  WidthBytes, I: Integer;
+  Info: PImageFormatInfo;
+begin
+  Info := ImageFormatInfos[Format];
+  // Calc scanline size
+  WidthBytes := Info.GetPixelsSize(Format, Width, 1);
+  if RowLength = 0 then
+    RowLength := WidthBytes;
+  // Create new image if needed - don't need to allocate new one if there is already
+  // one with desired size and format
+  if (Image.Width <> Width) or (Image.Height <> Height) or (Image.Format <> Format) then
+    NewImage(Width, Height, Format, Image);
+  // Move past the header
+  IO.Seek(Handle, Offset, smFromCurrent);
+  // Read scanlines from input
+  for I := 0 to Height - 1 do
+  begin
+    IO.Read(Handle, @PByteArray(Image.Bits)[I * WidthBytes], WidthBytes);
+    IO.Seek(Handle, RowLength - WidthBytes, smFromCurrent);
+  end;
+end;
+
+procedure ReadRawImageFromFile(const FileName: string; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+begin
+  Assert(FileName <> '');
+  // Set IO ops to file ops and open given file
+  SetFileIO;
+  Handle := IO.Open(PChar(FileName), omReadOnly);
+  try
+    ReadRawImage(Handle, Width, Height, Format, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure ReadRawImageFromStream(Stream: TStream; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+begin
+  Assert(Stream <> nil);
+  if Stream.Size - Stream.Position = 0 then
+    RaiseImaging(SErrorEmptyStream, []);
+  // Set IO ops to stream ops and open given stream
+  SetStreamIO;
+  Handle := IO.Open(Pointer(Stream), omReadOnly);
+  try
+    ReadRawImage(Handle, Width, Height, Format, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure ReadRawImageFromMemory(Data: Pointer; DataSize: Integer; Width, Height: Integer;
+  Format: TImageFormat; var Image: TImageData; Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+  MemRec: TMemoryIORec;
+begin
+  Assert((Data <> nil) and (DataSize > 0));
+  // Set IO ops to memory ops and open given stream
+  SetMemoryIO;
+  MemRec := PrepareMemIO(Data, DataSize);
+  Handle := IO.Open(@MemRec, omReadOnly);
+  try
+    ReadRawImage(Handle, Width, Height, Format, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure ReadRawImageRect(Data: Pointer; Left, Top, Width, Height: Integer;
+  var Image: TImageData; Offset, RowLength: Integer);
+var
+  DestScanBytes, RectBytes, I: Integer;
+  Info: PImageFormatInfo;
+  Src, Dest: PByte;
+begin
+  Assert(Data <> nil);
+  Assert((Left + Width <= Image.Width) and (Top + Height <= Image.Height));
+  Info := ImageFormatInfos[Image.Format];
+
+  // Calc scanline size
+  DestScanBytes := Info.GetPixelsSize(Info.Format, Image.Width, 1);
+  RectBytes := Info.GetPixelsSize(Info.Format, Width, 1);
+  if RowLength = 0 then
+    RowLength := RectBytes;
+
+  Src := Data;
+  Dest := @PByteArray(Image.Bits)[Top * DestScanBytes + Info.GetPixelsSize(Info.Format, Left, 1)];
+  // Move past the header
+  Inc(Src, Offset);
+
+  // Read lines into rect in the existing image
+  for I := 0 to Height - 1 do
+  begin
+    Move(Src^, Dest^, RectBytes);
+    Inc(Src, RowLength);
+    Inc(Dest, DestScanBytes);
+  end;
+end;
+
+procedure WriteRawImage(Handle: TImagingHandle; const Image: TImageData;
+  Offset, RowLength: Integer);
+var
+  WidthBytes, I: Integer;
+  Info: PImageFormatInfo;
+begin
+  Info := ImageFormatInfos[Image.Format];
+  // Calc scanline size
+  WidthBytes := Info.GetPixelsSize(Image.Format, Image.Width, 1);
+  if RowLength = 0 then
+    RowLength := WidthBytes;
+  // Move past the header
+  IO.Seek(Handle, Offset, smFromCurrent);
+  // Write scanlines to output
+  for I := 0 to Image.Height - 1 do
+  begin
+    IO.Write(Handle, @PByteArray(Image.Bits)[I * WidthBytes], WidthBytes);
+    IO.Seek(Handle, RowLength - WidthBytes, smFromCurrent);
+  end;
+end;
+
+procedure WriteRawImageToFile(const FileName: string; const Image: TImageData;
+  Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+begin
+  Assert(FileName <> '');
+  // Set IO ops to file ops and open given file
+  SetFileIO;
+  Handle := IO.Open(PChar(FileName), omCreate);
+  try
+    WriteRawImage(Handle, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure WriteRawImageToStream(Stream: TStream; const Image: TImageData;
+  Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+begin
+  Assert(Stream <> nil);
+  // Set IO ops to stream ops and open given stream
+  SetStreamIO;
+  Handle := IO.Open(Pointer(Stream), omCreate);
+  try
+    WriteRawImage(Handle, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure WriteRawImageToMemory(Data: Pointer; DataSize: Integer; const Image: TImageData;
+  Offset, RowLength: Integer);
+var
+  Handle: TImagingHandle;
+  MemRec: TMemoryIORec;
+begin
+  Assert((Data <> nil) and (DataSize > 0));
+  // Set IO ops to memory ops and open given stream
+  SetMemoryIO;
+  MemRec := PrepareMemIO(Data, DataSize);
+  Handle := IO.Open(@MemRec, omCreate);
+  try
+    WriteRawImage(Handle, Image, Offset, RowLength);
+  finally
+    IO.Close(Handle);
+  end;
+end;
+
+procedure WriteRawImageRect(Data: Pointer; Left, Top, Width, Height: Integer;
+  const Image: TImageData; Offset, RowLength: Integer);
+var
+  SrcScanBytes, RectBytes, I: Integer;
+  Info: PImageFormatInfo;
+  Src, Dest: PByte;
+begin
+  Assert(Data <> nil);
+  Assert((Left + Width <= Image.Width) and (Top + Height <= Image.Height));
+  Info := ImageFormatInfos[Image.Format];
+
+  // Calc scanline size
+  SrcScanBytes := Info.GetPixelsSize(Info.Format, Image.Width, 1);
+  RectBytes := Info.GetPixelsSize(Info.Format, Width, 1);
+  if RowLength = 0 then
+    RowLength := RectBytes;
+
+  Src := @PByteArray(Image.Bits)[Top * SrcScanBytes + Info.GetPixelsSize(Info.Format, Left, 1)];
+  Dest := Data;
+  // Move past the header
+  Inc(Dest, Offset);
+
+  // Write lines from rect of the existing image
+  for I := 0 to Height - 1 do
+  begin
+    Move(Src^, Dest^, RectBytes);
+    Inc(Dest, RowLength);
+    Inc(Src, SrcScanBytes);
+  end;
+end;
+
+{ Convenience/helper Functions }
+
+procedure ResizeImageToFit(const SrcImage: TImageData; FitWidth, FitHeight: Integer;
+  Filter: TResizeFilter; var DestImage: TImageData);
+var
+  CurSize, FitSize, DestSize: TSize;
+begin
+  if not TestImage(SrcImage) then
+    raise EImagingError.Create(SErrorInvalidInputImage);
+
+  FitSize.CX := FitWidth;
+  FitSize.CY := FitHeight;
+  CurSize.CX := SrcImage.Width;
+  CurSize.CY := SrcImage.Height;
+  DestSize := ImagingUtility.ScaleSizeToFit(CurSize, FitSize);
+
+  NewImage(Max(DestSize.CX, 1), Max(DestSize.CY, 1), SrcImage.Format, DestImage);
+  if SrcImage.Palette <> nil then
+    CopyPalette(SrcImage.Palette, DestImage.Palette, 0, 0, ImageFormatInfos[SrcImage.Format].PaletteEntries);
+
+  StretchRect(SrcImage, 0, 0, CurSize.CX, CurSize.CY, DestImage, 0, 0,
+    DestSize.CX, DestSize.CY, Filter);
+end;
+
+{ ------------------------------------------------------------------------
+                           Other Imaging Stuff
+  ------------------------------------------------------------------------}
+
+function GetFormatName(Format: TImageFormat): string;
+begin
+  if ImageFormatInfos[Format] <> nil then
+    Result := ImageFormatInfos[Format].Name
+  else
+    Result := SUnknownFormat;
+end;
+
+function ImageToStr(const Image: TImageData): string;
+var
+  ImgSize: Integer;
+begin
+  if TestImage(Image) then
+  with Image do
+  begin
+    ImgSize := Size;
+    if ImgSize > 8192 then
+      ImgSize := ImgSize div 1024;
+    Result := SysUtils.Format(SImageInfo, [@Image, Width, Height,
+      GetFormatName(Format), ImgSize + 0.0, Iff(ImgSize = Size, 'B', 'KiB'), Bits,
+      Palette]);
+  end
+  else
+    Result := SysUtils.Format(SImageInfoInvalid, [@Image]);
+end;
+
+function GetVersionStr: string;
+begin
+  Result := Format('%.1d.%.2d.%.1d', [ImagingVersionMajor,
+    ImagingVersionMinor, ImagingVersionPatch]);
+end;
+
+function IffFormat(Condition: Boolean; const TruePart, FalsePart: TImageFormat): TImageFormat;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+procedure RegisterImageFileFormat(AClass: TImageFileFormatClass);
+begin
+  Assert(AClass <> nil);
+  if ImageFileFormats = nil then
+    ImageFileFormats := TList.Create;
+  if GlobalMetadata = nil then
+    GlobalMetadata := TMetadata.Create;
+  if ImageFileFormats <> nil then
+    ImageFileFormats.Add(AClass.Create);
+end;
+
+function RegisterOption(OptionId: LongInt; Variable: PLongInt): Boolean;
+begin
+  Result := False;
+  if Options = nil then
+    InitOptions;
+
+  Assert(Variable <> nil);
+
+  if OptionId >= Length(Options) then
+    SetLength(Options, OptionId + InitialOptions);
+  if (OptionId >= 0) and (OptionId < Length(Options)) {and (Options[OptionId] = nil) - must be able to override existing } then
+  begin
+    Options[OptionId] := Variable;
+    Result := True;
+  end;
+end;
+
+function FindImageFileFormatByExt(const Ext: string): TImageFileFormat;
+var
+  I: LongInt;
+begin
+  Result := nil;
+  for I := ImageFileFormats.Count - 1 downto 0 do
+    if TImageFileFormat(ImageFileFormats[I]).Extensions.IndexOf(Ext) >= 0 then
+    begin
+      Result := TImageFileFormat(ImageFileFormats[I]);
+      Exit;
+    end;
+end;
+
+function FindImageFileFormatByName(const FileName: string): TImageFileFormat;
+var
+  I: LongInt;
+begin
+  Result := nil;
+  for I := ImageFileFormats.Count - 1 downto 0 do
+    if TImageFileFormat(ImageFileFormats[I]).TestFileName(FileName) then
+    begin
+      Result := TImageFileFormat(ImageFileFormats[I]);
+      Exit;
+    end;
+end;
+
+function FindImageFileFormatByClass(AClass: TImageFileFormatClass): TImageFileFormat;
+var
+  I: LongInt;
+begin
+  Result := nil;
+  for I := 0 to ImageFileFormats.Count - 1 do
+    if TImageFileFormat(ImageFileFormats[I]) is AClass then
+    begin
+      Result := TObject(ImageFileFormats[I]) as TImageFileFormat;
+      Break;
+    end;
+end;
+
+function GetFileFormatCount: LongInt;
+begin
+  Result := ImageFileFormats.Count;
+end;
+
+function GetFileFormatAtIndex(Index: LongInt): TImageFileFormat;
+begin
+  if (Index >= 0) and (Index < ImageFileFormats.Count) then
+    Result := TImageFileFormat(ImageFileFormats[Index])
+  else
+    Result := nil;
+end;
+
+function GetImageFileFormatsFilter(OpenFileFilter: Boolean): string;
+var
+  I, J, Count: LongInt;
+  Descriptions: string;
+  Filters, CurFilter: string;
+  FileFormat: TImageFileFormat;
+begin
+  Descriptions := '';
+  Filters := '';
+  Count := 0;
+
+  for I := 0 to ImageFileFormats.Count - 1 do
+  begin
+    FileFormat := TObject(ImageFileFormats[I]) as TImageFileFormat;
+
+    // If we are creating filter for save dialog and this format cannot save
+    // files the we skip it
+    if not OpenFileFilter and not FileFormat.CanSave then
+      Continue;
+
+    CurFilter := '';
+    for J := 0 to FileFormat.Masks.Count - 1 do
+    begin
+      CurFilter := CurFilter + FileFormat.Masks[J];
+      if J < FileFormat.Masks.Count - 1 then
+        CurFilter := CurFilter + ';';
+    end;
+
+    FmtStr(Descriptions, '%s%s (%s)|%2:s', [Descriptions, FileFormat.Name, CurFilter]);
+    if Filters <> '' then
+      FmtStr(Filters, '%s;%s', [Filters, CurFilter])
+    else
+      Filters := CurFilter;
+
+    if I < ImageFileFormats.Count - 1 then
+        Descriptions := Descriptions + '|';
+
+    Inc(Count);
+  end;
+
+  if (Count > 1) and OpenFileFilter then
+    FmtStr(Descriptions, '%s (%s)|%1:s|%s', [SAllFilter, Filters, Descriptions]);
+
+  Result := Descriptions;
+end;
+
+function GetFilterIndexExtension(Index: LongInt; OpenFileFilter: Boolean): string;
+var
+  I, Count: LongInt;
+  FileFormat: TImageFileFormat;
+begin
+  // -1 because filter indices are in 1..n range
+  Index := Index - 1;
+  Result := '';
+  if OpenFileFilter then
+  begin
+    if Index > 0 then
+      Index := Index - 1;
+  end;
+
+  if (Index >= 0) and (Index < ImageFileFormats.Count) then
+  begin
+    Count := 0;
+    for I := 0 to ImageFileFormats.Count - 1 do
+    begin
+      FileFormat := TObject(ImageFileFormats[I]) as TImageFileFormat;
+      if not OpenFileFilter and not FileFormat.CanSave then
+        Continue;
+      if Index = Count then
+      begin
+        if FileFormat.Extensions.Count > 0 then
+          Result := FileFormat.Extensions[0];
+        Exit;
+      end;
+      Inc(Count);
+    end;
+  end;
+end;
+
+function GetFileNameFilterIndex(const FileName: string; OpenFileFilter: Boolean): LongInt;
+var
+  I: LongInt;
+  FileFormat: TImageFileFormat;
+begin
+  Result := 0;
+  for I := 0 to ImageFileFormats.Count - 1 do
+  begin
+    FileFormat := TObject(ImageFileFormats[I]) as TImageFileFormat;
+    if not OpenFileFilter and not FileFormat.CanSave then
+      Continue;
+    if FileFormat.TestFileName(FileName) then
+    begin
+      // +1 because filter indices are in 1..n range
+      Inc(Result);
+      if OpenFileFilter then
+        Inc(Result);
+      Exit;
+    end;
+    Inc(Result);
+  end;
+  Result := -1;
+end;
+
+function GetIO: TIOFunctions;
+begin
+  Result := IO;
+end;
+
+procedure RaiseImaging(const Msg: string; const Args: array of const);
+var
+  WholeMsg: string;
+begin
+  WholeMsg := Msg;
+  if GetExceptObject <> nil then
+  begin
+    WholeMsg := WholeMsg + ' ' + SExceptMsg + ': ' +
+      GetExceptObject.Message;
+  end;
+  raise EImagingError.CreateFmt(WholeMsg, Args);
+end;
+
+procedure RaiseImaging(const Msg: string);
+begin
+  RaiseImaging(Msg, []);
+end;
+
+{ Internal unit functions }
+
+function CheckOptionValue(OptionId, Value: LongInt): LongInt;
+begin
+  case OptionId of
+    ImagingColorReductionMask:
+      Result := ClampInt(Value, 0, $FF);
+    ImagingLoadOverrideFormat, ImagingSaveOverrideFormat:
+      Result := Iff(ImagingFormats.IsImageFormatValid(TImageFormat(Value)),
+        Value, LongInt(ifUnknown));
+    ImagingMipMapFilter: Result := ClampInt(Value, Ord(Low(TSamplingFilter)),
+        Ord(High(TSamplingFilter)));
+  else
+    Result := Value;
+  end;
+end;
+
+procedure SetFileIO;
+begin
+  IO := FileIO;
+end;
+
+procedure SetStreamIO;
+begin
+  IO := StreamIO;
+end;
+
+procedure SetMemoryIO;
+begin
+  IO := MemoryIO;
+end;
+
+procedure InitImageFormats;
+begin
+  ImagingFormats.InitImageFormats(ImageFormatInfos);
+end;
+
+procedure FreeImageFileFormats;
+var
+  I: LongInt;
+begin
+  if ImageFileFormats <> nil then
+    for I := 0 to ImageFileFormats.Count - 1 do
+      TImageFileFormat(ImageFileFormats[I]).Free;
+  FreeAndNil(ImageFileFormats);
+end;
+
+procedure InitOptions;
+begin
+  SetLength(Options, InitialOptions);
+  OptionStack := TOptionStack.Create;
+end;
+
+procedure FreeOptions;
+begin
+  SetLength(Options, 0);
+  FreeAndNil(OptionStack);
+end;
+
+{
+  TImageFileFormat class implementation
+}
+
+constructor TImageFileFormat.Create(AMetadata: TMetadata);
+begin
+  inherited Create;
+  FName := SUnknownFormat;
+  FExtensions := TStringList.Create;
+  FMasks := TStringList.Create;
+  if AMetadata = nil then
+    FMetadata := GlobalMetadata
+  else
+    FMetadata := AMetadata;
+  Define;
+end;
+
+destructor TImageFileFormat.Destroy;
+begin
+  FExtensions.Free;
+  FMasks.Free;
+  inherited Destroy;
+end;
+
+procedure TImageFileFormat.Define;
+begin
+end;
+
+function TImageFileFormat.PrepareLoad(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstFrame: Boolean): Boolean;
+begin
+  FMetadata.ClearMetaItems; // Clear old metadata
+  FreeImagesInArray(Images);
+  SetLength(Images, 0);
+  Result := Handle <> nil;
+end;
+
+function TImageFileFormat.PostLoadCheck(var Images: TDynImageDataArray;
+  LoadResult: Boolean): Boolean;
+var
+  I: LongInt;
+begin
+  if not LoadResult then
+  begin
+    FreeImagesInArray(Images);
+    SetLength(Images, 0);
+    Result := False;
+  end
+  else
+  begin
+    Result := (Length(Images) > 0) and TestImagesInArray(Images);
+
+    if Result then
+    begin
+      // Convert to overriden format if it is set
+      if LoadOverrideFormat <> ifUnknown then
+        for I := Low(Images) to High(Images) do
+          ConvertImage(Images[I], LoadOverrideFormat);
+    end;
+  end;
+end;
+
+function TImageFileFormat.PrepareSave(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; var Index: Integer): Boolean;
+var
+  Len, I: LongInt;
+begin
+  CheckOptionsValidity;
+  Result := False;
+  if CanSave then
+  begin
+    Len := Length(Images);
+    Assert(Len > 0);
+
+    // If there are no images to be saved exit
+    if Len = 0 then Exit;
+
+    // Check index of image to be saved (-1 as index means save all images)
+    if IsMultiImageFormat then
+    begin
+      if (Index >= Len) then
+        Index := 0;
+
+      if Index < 0 then
+      begin
+        Index := 0;
+        FFirstIdx := 0;
+        FLastIdx := Len - 1;
+      end
+      else
+      begin
+        FFirstIdx := Index;
+        FLastIdx := Index;
+      end;
+
+      for I := FFirstIdx to FLastIdx - 1 do
+      begin
+        if not TestImage(Images[I]) then
+          Exit;
+      end;
+    end
+    else
+    begin
+      if (Index >= Len) or (Index < 0) then
+        Index := 0;
+      if not TestImage(Images[Index]) then
+        Exit;
+    end;
+
+    Result := True;
+  end;
+end;
+
+procedure TImageFileFormat.AddMasks(const AMasks: string);
+var
+  I: LongInt;
+  Ext: string;
+begin
+  FExtensions.Clear;
+  FMasks.CommaText := AMasks;
+  FMasks.Delimiter := ';';
+
+  for I := 0 to FMasks.Count - 1 do
+  begin
+    FMasks[I] := Trim(FMasks[I]);
+    Ext := GetFileExt(FMasks[I]);
+    if (Ext <> '') and (Ext <> '*') then
+      FExtensions.Add(Ext);
+  end;
+end;
+
+function TImageFileFormat.GetFormatInfo(Format: TImageFormat): TImageFormatInfo;
+begin
+  Result := ImageFormatInfos[Format]^;
+end;
+
+function TImageFileFormat.GetSupportedFormats: TImageFormats;
+begin
+  Result := FSupportedFormats;
+end;
+
+function TImageFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstFrame: Boolean): Boolean;
+begin
+  Result := False;
+  RaiseImaging(SFileFormatCanNotLoad, [FName]);
+end;
+
+function TImageFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+begin
+  Result := False;
+  RaiseImaging(SFileFormatCanNotSave, [FName]);
+end;
+
+procedure TImageFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+end;
+
+function TImageFileFormat.IsSupported(const Image: TImageData): Boolean;
+begin
+  Result := Image.Format in GetSupportedFormats;
+end;
+
+function TImageFileFormat.LoadFromFile(const FileName: string;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+begin
+  Result := False;
+  if CanLoad then
+  try
+    // Set IO ops to file ops and open given file
+    SetFileIO;
+    Handle := IO.Open(PChar(FileName), omReadOnly);
+    try
+      // Test if file contains valid image and if so then load it
+      if TestFormat(Handle) then
+      begin
+        Result := PrepareLoad(Handle, Images, OnlyFirstLevel) and
+          LoadData(Handle, Images, OnlyFirstlevel);
+        Result := PostLoadCheck(Images, Result);
+      end
+      else
+        RaiseImaging(SFileNotValid, [FileName, Name]);
+    finally
+      IO.Close(Handle);
+    end;
+  except
+    RaiseImaging(SErrorLoadingFile, [FileName, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.LoadFromStream(Stream: TStream;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+  OldPosition: Int64;
+begin
+  Result := False;
+  OldPosition := Stream.Position;
+  if CanLoad then
+  try
+    // Set IO ops to stream ops and "open" given memory
+    SetStreamIO;
+    Handle := IO.Open(Pointer(Stream), omReadOnly);
+    try
+      // Test if stream contains valid image and if so then load it
+      if TestFormat(Handle) then
+      begin
+        Result := PrepareLoad(Handle, Images, OnlyFirstLevel) and
+          LoadData(Handle, Images, OnlyFirstlevel);
+        Result := PostLoadCheck(Images, Result);
+      end
+      else
+        RaiseImaging(SStreamNotValid, [@Stream, Name]);
+    finally
+      IO.Close(Handle);
+    end;
+  except
+    Stream.Position := OldPosition;
+    FreeImagesInArray(Images);
+    RaiseImaging(SErrorLoadingStream, [@Stream, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.LoadFromMemory(Data: Pointer; Size: LongInt; var
+  Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+  IORec: TMemoryIORec;
+begin
+  Result := False;
+  if CanLoad then
+  try
+    // Set IO ops to memory ops and "open" given memory
+    SetMemoryIO;
+    IORec := PrepareMemIO(Data, Size);
+    Handle := IO.Open(@IORec,omReadOnly);
+    try
+      // Test if memory contains valid image and if so then load it
+      if TestFormat(Handle) then
+      begin
+        Result := PrepareLoad(Handle, Images, OnlyFirstLevel) and
+          LoadData(Handle, Images, OnlyFirstlevel);
+        Result := PostLoadCheck(Images, Result);
+      end
+      else
+        RaiseImaging(SMemoryNotValid, [Data, Size, Name]);
+    finally
+      IO.Close(Handle);
+    end;
+  except
+    RaiseImaging(SErrorLoadingMemory, [Data, Size, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.SaveToFile(const FileName: string;
+  const Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+  Len, Index, I: LongInt;
+  Ext, FName: string;
+begin
+  Result := False;
+  if CanSave and TestImagesInArray(Images) then
+  try
+    SetFileIO;
+    Len := Length(Images);
+    if IsMultiImageFormat or
+      (not IsMultiImageFormat and (OnlyFirstLevel or (Len = 1))) then
+    begin
+      Handle := IO.Open(PChar(FileName), GetSaveOpenMode);
+      try
+        if OnlyFirstLevel then
+          Index := 0
+        else
+          Index := -1;
+        // Write multi image to one file
+        Result := PrepareSave(Handle, Images, Index) and SaveData(Handle, Images, Index);
+      finally
+        IO.Close(Handle);
+      end;
+    end
+    else
+    begin
+      // Write multi image to file sequence
+      Ext := ExtractFileExt(FileName);
+      FName := ChangeFileExt(FileName, '');
+      Result := True;
+      for I := 0 to Len - 1 do
+      begin
+        Handle := IO.Open(PChar(Format(FName + '%.3d' + Ext, [I])), GetSaveOpenMode);
+        try
+          Index := I;
+          Result := Result and PrepareSave(Handle, Images, Index) and
+            SaveData(Handle, Images, Index);
+          if not Result then
+            Break;
+        finally
+          IO.Close(Handle);
+        end;
+      end;
+    end;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorSavingFile, [FileName, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.SaveToStream(Stream: TStream;
+  const Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+  Len, Index, I: LongInt;
+  OldPosition: Int64;
+begin
+  Result := False;
+  OldPosition := Stream.Position;
+  if CanSave and TestImagesInArray(Images) then
+  try
+    SetStreamIO;
+    Handle := IO.Open(PChar(Stream), GetSaveOpenMode);
+    try
+      if IsMultiImageFormat or OnlyFirstLevel then
+      begin
+        if OnlyFirstLevel then
+          Index := 0
+        else
+          Index := -1;
+        // Write multi image in one run
+        Result := PrepareSave(Handle, Images, Index) and SaveData(Handle, Images, Index);
+      end
+      else
+      begin
+        // Write multi image to sequence
+        Result := True;
+        Len := Length(Images);
+        for I := 0 to Len - 1 do
+        begin
+          Index := I;
+          Result := Result and PrepareSave(Handle, Images, Index) and
+            SaveData(Handle, Images, Index);
+          if not Result then
+            Break;
+        end;
+      end;
+    finally
+      IO.Close(Handle);
+    end;
+  except
+    Stream.Position := OldPosition;
+    raise UpdateExceptMessage(GetExceptObject, SErrorSavingStream, [@Stream, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.SaveToMemory(Data: Pointer; var Size: LongInt;
+  const Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Handle: TImagingHandle;
+  Len, Index, I: LongInt;
+  IORec: TMemoryIORec;
+begin
+  Result := False;
+  if CanSave and TestImagesInArray(Images) then
+  try
+    SetMemoryIO;
+    IORec := PrepareMemIO(Data, Size);
+    Handle := IO.Open(PChar(@IORec), GetSaveOpenMode);
+    try
+      if IsMultiImageFormat or OnlyFirstLevel then
+      begin
+        if OnlyFirstLevel then
+          Index := 0
+        else
+          Index := -1;
+        // Write multi image in one run
+        Result := PrepareSave(Handle, Images, Index) and SaveData(Handle, Images, Index);
+      end
+      else
+      begin
+        // Write multi image to sequence
+        Result := True;
+        Len := Length(Images);
+        for I := 0 to Len - 1 do
+        begin
+          Index := I;
+          Result := Result and PrepareSave(Handle, Images, Index) and
+            SaveData(Handle, Images, Index);
+          if not Result then
+            Break;
+        end;
+      end;
+      Size := IORec.Position;
+    finally
+      IO.Close(Handle);
+    end;
+  except
+    raise UpdateExceptMessage(GetExceptObject, SErrorSavingMemory, [Data, Size, FExtensions[0]]);
+  end;
+end;
+
+function TImageFileFormat.MakeCompatible(const Image: TImageData;
+  var Compatible: TImageData; out MustBeFreed: Boolean): Boolean;
+begin
+  InitImage(Compatible);
+
+  if SaveOverrideFormat <> ifUnknown then
+  begin
+    // Save format override is active. Clone input and convert it to override format.
+    CloneImage(Image, Compatible);
+    ConvertImage(Compatible, SaveOverrideFormat);
+    // Now check if override format is supported by file format. If it is not
+    // then file format specific conversion (virtual method) is called.
+    Result := IsSupported(Compatible);
+    if not Result then
+    begin
+      ConvertToSupported(Compatible, GetFormatInfo(Compatible.Format));
+      Result := IsSupported(Compatible);
+    end;
+  end     // Add IsCompatible function! not only checking by Format
+  else if IsSupported(Image) then
+  begin
+    // No save format override and input is in format supported by this
+    // file format. Just copy Image's fields to Compatible
+    Compatible := Image;
+    Result := True;
+  end
+  else
+  begin
+    // No override and input's format is not compatible with file format.
+    // Clone it and the call file format specific conversion (virtual method).
+    CloneImage(Image, Compatible);
+    ConvertToSupported(Compatible, GetFormatInfo(Compatible.Format));
+    Result := IsSupported(Compatible);
+  end;
+  // Tell the user that he must free Compatible after he's done with it
+  // (if necessary).
+  MustBeFreed := Image.Bits <> Compatible.Bits;
+end;
+
+function TImageFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+begin
+  Result := False;
+end;
+
+function TImageFileFormat.TestFileName(const FileName: string): Boolean;
+var
+  I: LongInt;
+  OnlyName: string;
+begin
+  OnlyName := ExtractFileName(FileName);
+  // For each mask test if filename matches it
+  for I := 0 to FMasks.Count - 1 do
+    if StrMaskMatch(OnlyName, FMasks[I], False) then
+    begin
+      Result := True;
+      Exit;
+    end;
+  Result := False;
+end;
+
+procedure TImageFileFormat.CheckOptionsValidity;
+begin
+end;
+
+function TImageFileFormat.GetCanLoad: Boolean;
+begin
+  Result := ffLoad in FFeatures;
+end;
+
+function TImageFileFormat.GetCanSave: Boolean;
+begin
+  Result := ffSave in FFeatures;
+end;
+
+function TImageFileFormat.GetIsMultiImageFormat: Boolean;
+begin
+  Result := ffMultiImage in FFeatures;
+end;
+
+function TImageFileFormat.GetSaveOpenMode: TOpenMode;
+begin
+  // TODO: fix
+  //if ffReadOnSave in FFeatures then
+  //  Result := omReadWrite
+  //else
+    Result := omCreate;
+end;
+
+{ TOptionStack  class implementation }
+
+constructor TOptionStack.Create;
+begin
+  inherited Create;
+  FPosition := -1;
+end;
+
+destructor TOptionStack.Destroy;
+var
+  I: LongInt;
+begin
+  for I := 0 to OptionStackDepth - 1 do
+    SetLength(FStack[I], 0);
+  inherited Destroy;
+end;
+
+function TOptionStack.Pop: Boolean;
+var
+  I: LongInt;
+begin
+  Result := False;
+  if FPosition >= 0  then
+  begin
+    SetLength(Options, Length(FStack[FPosition]));
+    for I := 0 to Length(FStack[FPosition]) - 1 do
+      if Options[I] <> nil then
+        Options[I]^ := FStack[FPosition, I];
+    Dec(FPosition);
+    Result := True;
+  end;
+end;
+
+function TOptionStack.Push: Boolean;
+var
+  I: LongInt;
+begin
+  Result := False;
+  if FPosition < OptionStackDepth - 1 then
+  begin
+    Inc(FPosition);
+    SetLength(FStack[FPosition], Length(Options));
+    for I := 0 to Length(Options) - 1 do
+      if Options[I] <> nil then
+        FStack[FPosition, I] := Options[I]^;
+    Result := True;
+  end;
+end;
+
+{ TMetadata }
+
+procedure TMetadata.SetMetaItem(const Id: string; const Value: Variant;
+  ImageIndex: Integer);
+begin
+  AddMetaToList(FLoadMetaItems, Id, Value, ImageIndex);
+end;
+
+procedure TMetadata.SetMetaItemForSaving(const Id: string; const Value: Variant;
+  ImageIndex: Integer);
+begin
+  AddMetaToList(FSaveMetaItems, Id, Value, ImageIndex);
+end;
+
+procedure TMetadata.AddMetaToList(List: TStringList; const Id: string;
+  const Value: Variant; ImageIndex: Integer);
+var
+  Item: TMetadataItem;
+  Idx: Integer;
+  FullId: string;
+begin
+  FullId := GetMetaItemName(Id, ImageIndex);
+  if List.Find(FullId, Idx) then
+    (List.Objects[Idx] as TMetadataItem).Value := Value
+  else
+  begin
+    Item := TMetadataItem.Create;
+    Item.Id := Id;
+    Item.ImageIndex := ImageIndex;
+    Item.Value := Value;
+    List.AddObject(FullId, Item);
+  end;
+end;
+
+procedure TMetadata.ClearMetaItems;
+begin
+  ClearMetaList(FLoadMetaItems);
+end;
+
+procedure TMetadata.ClearMetaItemsForSaving;
+begin
+  ClearMetaList(FSaveMetaItems);
+end;
+
+procedure TMetadata.ClearMetaList(List: TStringList);
+var
+  I: Integer;
+begin
+  for I := 0 to List.Count - 1 do
+    List.Objects[I].Free;
+  List.Clear;
+end;
+
+procedure TMetadata.CopyLoadedMetaItemsForSaving;
+var
+  I: Integer;
+  Copy, Orig: TMetadataItem;
+begin
+  ClearMetaItemsForSaving;
+  for I := 0 to FLoadMetaItems.Count - 1 do
+  begin
+    Orig := TMetadataItem(FLoadMetaItems.Objects[I]);
+    Copy := TMetadataItem.Create;
+    Copy.Id := Orig.Id;
+    Copy.ImageIndex := Orig.ImageIndex;
+    Copy.Value := Orig.Value;
+    FSaveMetaItems.AddObject(GetMetaItemName(Copy.Id, Copy.ImageIndex), Copy);
+  end;
+end;
+
+constructor TMetadata.Create;
+begin
+  inherited;
+  FLoadMetaItems := TStringList.Create;
+  FLoadMetaItems.Sorted := True;
+  FSaveMetaItems := TStringList.Create;
+  FSaveMetaItems.Sorted := True;
+end;
+
+destructor TMetadata.Destroy;
+begin
+  ClearMetaItems;
+  ClearMetaItemsForSaving;
+  FLoadMetaItems.Free;
+  FSaveMetaItems.Free;
+  inherited;
+end;
+
+function TMetadata.GetMetaById(const Id: string): Variant;
+var
+  Idx: Integer;
+begin
+  if FLoadMetaItems.Find(Id, Idx) then
+    Result := (FLoadMetaItems.Objects[Idx] as TMetadataItem).Value
+  else
+    Result := Variants.Null;
+end;
+
+function TMetadata.GetMetaByIdMulti(const Id: string; ImageIndex: Integer): Variant;
+begin
+  Result := GetMetaById(GetMetaItemName(Id, ImageIndex));
+end;
+
+function TMetadata.GetSaveMetaById(const Id: string): Variant;
+var
+  Idx: Integer;
+begin
+  if FSaveMetaItems.Find(Id, Idx) then
+    Result := (FSaveMetaItems.Objects[Idx] as TMetadataItem).Value
+  else
+    Result := Variants.Null;
+end;
+
+function TMetadata.GetSaveMetaByIdMulti(const Id: string;
+  ImageIndex: Integer): Variant;
+begin
+  Result := GetSaveMetaById(GetMetaItemName(Id, ImageIndex));
+end;
+
+function TMetadata.GetMetaByIdx(Index: Integer): TMetadataItem;
+begin
+  Result := FLoadMetaItems.Objects[Index] as TMetadataItem;
+end;
+
+function TMetadata.GetMetaCount: Integer;
+begin
+  Result := FLoadMetaItems.Count;
+end;
+
+function TMetadata.GetMetaItemName(const Id: string;
+  ImageIndex: Integer): string;
+begin
+  Result := Iff(ImageIndex = 0, Id, Format(SMetaIdForSubImage, [Id, ImageIndex]));
+end;
+
+function TMetadata.GetPhysicalPixelSize(ResUnit: TResolutionUnit; var XSize,
+  YSize: Single; MetaForSave: Boolean; ImageIndex: Integer): Boolean;
+type
+  TGetter = function(const Id: string; ImageIndex: Integer): Variant of object;
+var
+  Getter: TGetter;
+  XMeta, YMeta: Variant;
+begin
+  if MetaForSave then
+    Getter := GetSaveMetaByIdMulti
+  else
+    Getter := GetMetaByIdMulti;
+
+  XMeta := Getter(SMetaPhysicalPixelSizeX, ImageIndex);
+  YMeta := Getter(SMetaPhysicalPixelSizeY, ImageIndex);
+  XSize := -1;
+  YSize := -1;
+
+  Result := not VarIsNull(XMeta) or not VarIsNull(YMeta);
+
+  if not Result then
+    Exit;
+
+  if not VarIsNull(XMeta) then
+    XSize := XMeta;
+  if not VarIsNull(YMeta) then
+    YSize := YMeta;
+
+  if XSize < 0 then
+    XSize := YSize;
+  if YSize < 0 then
+    YSize := XSize;
+
+  TranslateUnits(ResUnit, XSize, YSize);
+end;
+
+procedure TMetadata.SetPhysicalPixelSize(ResUnit: TResolutionUnit; XSize,
+  YSize: Single; MetaForSave: Boolean; ImageIndex: Integer);
+type
+  TAdder = procedure(const Id: string; const Value: Variant; ImageIndex: Integer) of object;
+var
+  Adder: TAdder;
+begin
+  TranslateUnits(ResUnit, XSize, YSize);
+
+  if MetaForSave then
+    Adder := SetMetaItemForSaving
+  else
+    Adder := SetMetaItem;
+
+  Adder(SMetaPhysicalPixelSizeX, XSize, ImageIndex);
+  Adder(SMetaPhysicalPixelSizeY, YSize, ImageIndex);
+end;
+
+procedure TMetadata.TranslateUnits(ResolutionUnit: TResolutionUnit; var XRes,
+  YRes: Single);
+var
+  UnitSize: Single;
+begin
+  case ResolutionUnit of
+    ruDpi: UnitSize := 25400;
+    ruDpm: UnitSize := 1e06;
+    ruDpcm: UnitSize := 1e04;
+  else
+    UnitSize := 1;
+  end;
+  if ResolutionUnit <> ruSizeInMicroMeters then
+  begin
+    XRes := UnitSize / XRes;
+    YRes := UnitSize / YRes;
+  end;
+end;
+
+function TMetadata.HasMetaItem(const Id: string; ImageIndex: Integer): Boolean;
+begin
+  Result := GetMetaByIdMulti(Id, ImageIndex) <> Variants.Null;
+end;
+
+function TMetadata.HasMetaItemForSaving(const Id: string; ImageIndex: Integer): Boolean;
+begin
+  Result := GetSaveMetaByIdMulti(Id, ImageIndex) <> Variants.Null;
+end;
+
+initialization
+{$IFDEF MEMCHECK}
+  {$IF CompilerVersion >= 18}
+    System.ReportMemoryLeaksOnShutdown := True;
+  {$IFEND}
+{$ENDIF}
+  if GlobalMetadata = nil then
+    GlobalMetadata := TMetadata.Create;
+  if ImageFileFormats = nil then
+    ImageFileFormats := TList.Create;
+  InitImageFormats;
+  RegisterOption(ImagingColorReductionMask, @ColorReductionMask);
+  RegisterOption(ImagingLoadOverrideFormat, @LoadOverrideFormat);
+  RegisterOption(ImagingSaveOverrideFormat, @SaveOverrideFormat);
+  RegisterOption(ImagingMipMapFilter, @MipMapFilter);
+  RegisterOption(ImagingBinaryTreshold, @BinaryTreshold);
+finalization
+  FreeOptions;
+  FreeImageFileFormats;
+  GlobalMetadata.Free;
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ---------------------------------------------------
+    - Updated IO Open functions according to changes in ImagingTypes.
+    - Fixed bug in SplitImage that could cause wrong size of edge chunks.
+    - Metadata support fixes and extensions (frame delays, animation loops).
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Started reworking exception raising to keep the original class type
+      (e.g. in NewImage EOutOfMemory could be raised but was hidden
+      by EImagingError raised afterwards in NewImage try/except).
+    - Fixed possible AV in Rotate45 subproc of RotateImage.
+    - Added ReadRawXXX and WriteRawXXX functions for raw image bits IO.
+    - Implemented ImagingBinaryTreshold option.
+    - Added support for simple image metadata loading/saving.
+    - Moved file format definition (name, exts, caps, ...) from
+      constructor to new Define method.
+    - Fixed some memory leaks caused by failures during image loading.
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Extended RotateImage to allow arbitrary angle rotations.
+    - Reversed the order file formats list is searched so
+      if you register a new one it will be found sooner than
+      built in formats.
+    - Fixed memory leak in ResizeImage ocurring when resizing
+      indexed images.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - Added position/size checks to LoadFromStream functions.
+    - Changed conditional compilation in impl. uses section to reflect changes
+      in LINK symbols.
+
+  -- 0.24.3 Changes/Bug Fixes ---------------------------------
+    - GenerateMipMaps now generates all smaller levels from
+      original big image (better results when using more advanced filters).
+      Also conversion to compatible image format is now done here not
+      in FillMipMapLevel (that is called for every mipmap level).
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - MakePaletteForImages now works correctly for indexed and special format images
+    - Fixed bug in StretchRect: Image was not properly stretched if
+      src and dst dimensions differed only in height.
+    - ConvertImage now fills new image with zeroes to avoid random data in
+      some conversions (RGB->XRGB)
+    - Changed RegisterOption procedure to function
+    - Changed bunch of palette functions from low level interface to procedure
+      (there was no reason for them to be functions).
+    - Changed FreeImage and FreeImagesInArray functions to procedures.
+    - Added many assertions, come try-finally, other checks, and small code
+      and doc changes.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - GenerateMipMaps threw failed assertion when input was indexed or special,
+      fixed.
+    - Added CheckOptionsValidity to TImageFileFormat and its decendants.
+    - Unit ImagingExtras which registers file formats in Extras package
+      is now automatically added to uses clause if LINK_EXTRAS symbol is
+      defined in ImagingOptions.inc file.
+    - Added EnumFileFormats function to low level interface.
+    - Fixed bug in SwapChannels which could cause AV when swapping alpha
+      channel of A8R8G8B8 images.
+    - Converting loaded images to ImagingOverrideFormat is now done
+      in PostLoadCheck method to avoid code duplicity.
+    - Added GetFileFormatCount and GetFileFormatAtIndex functions
+    - Bug in ConvertImage: if some format was converted to similar format
+      only with swapped channels (R16G16B16<>B16G16R16) then channels were
+      swapped correctly but new data format (swapped one) was not set.
+    - Made TImageFileFormat.MakeCompatible public non-virtual method
+      (and modified its function). Created new virtual
+      ConvertToSupported which should be overriden by descendants.
+      Main reason for doint this is to avoid duplicate code that was in all
+      TImageFileFormat's descendants.
+    - Changed TImageFileFormat.GetFormatInfo's result type to TImageFormatInfo.
+    - Split overloaded FindImageFileFormat functions to
+      FindImageFileFormatByClass and FindImageFileFormatByExt and created new
+      FindImageFileFormatByName which operates on whole filenames.
+    - Function GetExtensionFilterIndex renamed to GetFileNameFilterIndex
+      (because it now works with filenames not extensions).
+    - DetermineFileFormat now first searches by filename and if not found
+      then by data.
+    - Added TestFileName method to TImageFileFormat.
+    - Updated GetImageFileFormatsFilter to uses Masks instead of Extensions
+      property of TImageFileFormat. Also you can now request
+      OpenDialog and SaveDialog type filters
+    - Added Masks property and AddMasks method to TImageFileFormat.
+      AddMasks replaces AddExtensions, it uses filename masks instead
+      of sime filename extensions to identify supported files.
+    - Changed TImageFileFormat.LoadData procedure to function and
+      moved varios duplicate code from its descandats (check index,...)
+      here to TImageFileFormat helper methods.
+    - Changed TImageFileFormat.SaveData procedure to function and
+      moved varios duplicate code from its descandats (check index,...)
+      here to TImageFileFormat helper methods.
+    - Removed RAISE_EXCEPTIONS define, exceptions are now raised everytime
+    - Added MustBeFreed parameter to TImageFileFormat.MakeComptible method
+      that indicates that compatible image returned by this method must be
+      freed after its usage.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - fixed bug in NewImage: if given format was ifDefault it wasn't
+      replaced with DefaultImageFormat constant which caused problems later
+      in other units
+    - fixed bug in RotateImage which caused that rotated special format
+      images were whole black
+    - LoadImageFromXXX and LoadMultiImageFromXXX now use DetermineXXXFormat
+      when choosing proper loader, this eliminated need for Ext parameter
+      in stream and memory loading functions
+    - added GetVersionStr function
+    - fixed bug in ResizeImage which caued indexed images to lose their
+      palette during process resulting in whole black image
+    - Clipping in ...Rect functions now uses clipping procs from ImagingUtility,
+      it also works better
+    - FillRect optimization for 8, 16, and 32 bit formats
+    - added pixel set/get functions to low level interface:
+      GetPixelDirect, SetPixelDirect, GetPixel32, SetPixel32,
+      GetPixelFP, SetPixelFP
+    - removed GetPixelBytes low level intf function - redundant
+      (same data can be obtained by GetImageFormatInfo)
+    - made small changes in many parts of library to compile
+      on AMD64 CPU (Linux with FPC)
+    - changed InitImage to procedure (function was pointless)
+    - Method TestFormat of TImageFileFormat class made public
+      (was protected)
+    - added function IsFileFormatSupported to low level interface
+      (contributed by Paul Michell)
+    - fixed some missing format arguments from error strings
+      which caused Format function to raise exception
+    - removed forgotten debug code that disabled filtered resizing of images with
+      channel bitcounts > 8
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - changed order of parameters of CopyRect function
+    - GenerateMipMaps now filters mipmap levels
+    - ResizeImage functions was extended to allow bilinear and bicubic filtering
+    - added StretchRect function to low level interface
+    - added functions GetImageFileFormatsFilter, GetFilterIndexExtension,
+      and GetExtensionFilterIndex
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - added function RotateImage to low level interface
+    - moved TImageFormatInfo record and types required by it to
+      ImagingTypes unit, changed GetImageFormatInfo low level
+      interface function to return TImageFormatInfo instead of short info
+    - added checking of options values validity before they are used
+    - fixed possible memory leak in CloneImage
+    - added ReplaceColor function to low level interface
+    - new function FindImageFileFormat by class added
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - added DetermineFileFormat, DetermineStreamFormat, DetermineMemoryFormat,
+      GetPixelsSize functions to low level interface
+    - added NewPalette, CopyPalette, FreePalette functions
+      to low level interface
+    - added MapImageToPalette, FillRect, SplitImage, MakePaletteForImages
+      functions to low level interface
+    - fixed buggy FillCustomPalette function (possible div by zero and others)
+    - added CopyRect function to low level interface
+    - Member functions of TImageFormatInfo record implemented for all formats
+    - before saving images TestImagesInArray is called now
+    - added TestImagesInArray function to low level interface
+    - added GenerateMipMaps function to low level interface
+    - stream position in load/save from/to stream is now set to position before
+      function was called if error occurs
+    - when error occured during load/save from/to file file handle
+      was not released
+    - CloneImage returned always False
+
+}
+end.
diff --git a/src/lib/vampimg/ImagingBitmap.pas b/src/lib/vampimg/ImagingBitmap.pas

new file mode 100644 (file)

index 0000000..4c4aac6
--- /dev/null
+++ b/src/lib/vampimg/ImagingBitmap.pas
@@ -0,0 +1,855 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{
+  This unit contains image format loader/saver for Windows Bitmap images.
+}
+unit ImagingBitmap;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  ImagingTypes, Imaging, ImagingUtility, ImagingFormats, ImagingIO;
+
+type
+  { Class for loading and saving Windows Bitmap images.
+    It can load/save 8bit indexed, 16, 24, 32 bit RGB or ARGB
+    images with or without RLE compression. It can also load 1/4 bit
+    indexed images and OS2 bitmaps.}
+  TBitmapFileFormat = class(TImageFileFormat)
+  protected
+    FUseRLE: LongBool;
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  published
+    { Controls that RLE compression is used during saving. Accessible trough
+      ImagingBitmapRLE option.}
+    property UseRLE: LongBool read FUseRLE write FUseRLE;
+  end;
+
+implementation
+
+const
+  SBitmapFormatName = 'Windows Bitmap Image';
+  SBitmapMasks =      '*.bmp,*.dib';
+  BitmapSupportedFormats: TImageFormats = [ifIndex8, ifA1R5G5B5, ifA4R4G4B4,
+    ifR5G6B5, ifR8G8B8, ifA8R8G8B8, ifX1R5G5B5, ifX4R4G4B4, ifX8R8G8B8];
+  BitmapDefaultRLE = True;
+
+const
+  { Bitmap file identifier 'BM'.}
+  BMMagic: Word = 19778;
+
+  { Constants for the TBitmapInfoHeader.Compression field.}
+  BI_RGB = 0;
+  BI_RLE8 = 1;
+  BI_RLE4 = 2;
+  BI_BITFIELDS = 3;
+
+  V3InfoHeaderSize = 40;
+  V4InfoHeaderSize = 108;
+
+type
+  { File Header for Windows/OS2 bitmap file.}
+  TBitmapFileHeader = packed record
+    ID: Word;           // Is always 19778 : 'BM'
+    Size: LongWord;     // Filesize
+    Reserved1: Word;
+    Reserved2: Word;
+    Offset: LongWord;   // Offset from start pos to beginning of image bits
+  end;
+
+  { Info Header for Windows bitmap file version 4.}
+  TBitmapInfoHeader = packed record
+    Size: LongWord;
+    Width: LongInt;
+    Height: LongInt;
+    Planes: Word;
+    BitCount: Word;
+    Compression: LongWord;
+    SizeImage: LongWord;
+    XPelsPerMeter: LongInt;
+    YPelsPerMeter: LongInt;
+    ClrUsed: LongInt;
+    ClrImportant: LongInt;
+    RedMask: LongWord;
+    GreenMask: LongWord;
+    BlueMask: LongWord;
+    AlphaMask: LongWord;
+    CSType: LongWord;
+    EndPoints: array[0..8] of LongWord;
+    GammaRed: LongWord;
+    GammaGreen: LongWord;
+    GammaBlue: LongWord;
+  end;
+
+  { Info Header for OS2 bitmaps.}
+  TBitmapCoreHeader = packed record
+    Size: LongWord;
+    Width: Word;
+    Height: Word;
+    Planes: Word;
+    BitCount: Word;
+  end;
+
+  { Used in RLE encoding and decoding.}
+  TRLEOpcode = packed record
+    Count: Byte;
+    Command: Byte;
+  end;
+  PRLEOpcode = ^TRLEOpcode;
+
+{ TBitmapFileFormat class implementation }
+
+procedure TBitmapFileFormat.Define;
+begin
+  inherited;
+  FName := SBitmapFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := BitmapSupportedFormats;
+
+  FUseRLE := BitmapDefaultRLE;
+
+  AddMasks(SBitmapMasks);
+  RegisterOption(ImagingBitmapRLE, @FUseRLE);
+end;
+
+function TBitmapFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  BF: TBitmapFileHeader;
+  BI: TBitmapInfoHeader;
+  BC: TBitmapCoreHeader;
+  IsOS2: Boolean;
+  PalRGB: PPalette24;
+  I, FPalSize, AlignedSize, StartPos, HeaderSize, AlignedWidthBytes, WidthBytes: LongInt;
+  Info: TImageFormatInfo;
+  Data: Pointer;
+
+  procedure LoadRGB;
+  var
+    I: LongInt;
+    LineBuffer: PByte;
+  begin
+    with Images[0], GetIO do
+    begin
+      // If BI.Height is < 0 then image data are stored non-flipped
+      // but default in windows is flipped so if Height is positive we must
+      // flip it
+
+      if BI.BitCount < 8 then
+      begin
+        // For 1 and 4 bit images load aligned data, they will be converted to
+        // 8 bit and unaligned later
+        GetMem(Data, AlignedSize);
+
+        if BI.Height < 0 then
+          Read(Handle, Data, AlignedSize)
+        else
+          for I := Height - 1 downto 0 do
+            Read(Handle, @PByteArray(Data)[I * AlignedWidthBytes], AlignedWidthBytes);
+      end
+      else
+      begin
+        // Images with pixels of size >= 1 Byte are read line by line and
+        // copied to image bits without padding bytes
+        GetMem(LineBuffer, AlignedWidthBytes);
+        try
+          if BI.Height < 0 then
+            for I := 0 to Height - 1 do
+            begin
+              Read(Handle, LineBuffer, AlignedWidthBytes);
+              Move(LineBuffer^, PByteArray(Bits)[I * WidthBytes], WidthBytes);
+            end
+          else
+            for I := Height - 1 downto 0 do
+            begin
+              Read(Handle, LineBuffer, AlignedWidthBytes);
+              Move(LineBuffer^, PByteArray(Bits)[I * WidthBytes], WidthBytes);
+            end;
+        finally
+          FreeMemNil(LineBuffer);
+        end;
+      end;
+    end;
+  end;
+
+  procedure LoadRLE4;
+  var
+    RLESrc: PByteArray;
+    Row, Col, WriteRow, I: LongInt;
+    SrcPos: LongWord;
+    DeltaX, DeltaY, Low, High: Byte;
+    Pixels: PByteArray;
+    OpCode: TRLEOpcode;
+    NegHeightBitmap: Boolean;
+  begin
+    GetMem(RLESrc, BI.SizeImage);
+    GetIO.Read(Handle, RLESrc, BI.SizeImage);
+    with Images[0] do
+    try
+      Low := 0;
+      Pixels := Bits;
+      SrcPos := 0;
+      NegHeightBitmap := BI.Height < 0;
+      Row := 0; // Current row in dest image
+      Col := 0; // Current column in dest image
+      // Row in dest image where actuall writting will be done
+      WriteRow := Iff(NegHeightBitmap, Row, Height - 1 - Row);
+      while (Row < Height) and (SrcPos < BI.SizeImage) do
+      begin
+        // Read RLE op-code
+        OpCode := PRLEOpcode(@RLESrc[SrcPos])^;
+        Inc(SrcPos, SizeOf(OpCode));
+        if OpCode.Count = 0 then
+        begin
+          // A byte Count of zero means that this is a special
+          // instruction.
+          case OpCode.Command of
+            0:
+              begin
+                // Move to next row
+                Inc(Row);
+                WriteRow := Iff(NegHeightBitmap, Row, Height - 1 - Row);
+                Col := 0;
+              end ;
+            1: Break; // Image is finished
+            2:
+              begin
+                // Move to a new relative position
+                DeltaX := RLESrc[SrcPos];
+                DeltaY := RLESrc[SrcPos + 1];
+                Inc(SrcPos, 2);
+                Inc(Col, DeltaX);
+                Inc(Row, DeltaY);
+              end
+          else
+            // Do not read data after EOF
+            if SrcPos + OpCode.Command > BI.SizeImage then
+              OpCode.Command := BI.SizeImage - SrcPos;
+            // Take padding bytes and nibbles into account
+            if Col + OpCode.Command > Width then
+              OpCode.Command := Width - Col;
+            // Store absolute data. Command code is the
+            // number of absolute bytes to store
+            for I := 0 to OpCode.Command - 1 do
+            begin
+              if (I and 1) = 0 then
+              begin
+                High := RLESrc[SrcPos] shr 4;
+                Low := RLESrc[SrcPos] and $F;
+                Pixels[WriteRow * Width + Col] := High;
+                Inc(SrcPos);
+              end
+              else
+                Pixels[WriteRow * Width + Col] := Low;
+              Inc(Col);
+            end;
+            // Odd number of bytes is followed by a pad byte
+            if (OpCode.Command mod 4) in [1, 2] then
+              Inc(SrcPos);
+          end;
+        end
+        else
+        begin
+          // Take padding bytes and nibbles into account
+          if Col + OpCode.Count > Width then
+            OpCode.Count := Width - Col;
+          // Store a run of the same color value
+          for I := 0 to OpCode.Count - 1 do
+          begin
+            if (I and 1) = 0 then
+              Pixels[WriteRow * Width + Col] := OpCode.Command shr 4
+            else
+              Pixels[WriteRow * Width + Col] := OpCode.Command and $F;
+            Inc(Col);
+          end;
+        end;
+      end;
+    finally
+      FreeMem(RLESrc);
+    end;
+  end;
+
+  procedure LoadRLE8;
+  var
+    RLESrc: PByteArray;
+    SrcCount, Row, Col, WriteRow: LongInt;
+    SrcPos: LongWord;
+    DeltaX, DeltaY: Byte;
+    Pixels: PByteArray;
+    OpCode: TRLEOpcode;
+    NegHeightBitmap: Boolean;
+  begin
+    GetMem(RLESrc, BI.SizeImage);
+    GetIO.Read(Handle, RLESrc, BI.SizeImage);
+    with Images[0] do
+    try
+      Pixels := Bits;
+      SrcPos := 0;
+      NegHeightBitmap := BI.Height < 0;
+      Row := 0; // Current row in dest image
+      Col := 0; // Current column in dest image
+      // Row in dest image where actuall writting will be done
+      WriteRow := Iff(NegHeightBitmap, Row, Height - 1 - Row);
+      while (Row < Height) and (SrcPos < BI.SizeImage) do
+      begin
+        // Read RLE op-code
+        OpCode := PRLEOpcode(@RLESrc[SrcPos])^;
+        Inc(SrcPos, SizeOf(OpCode));
+        if OpCode.Count = 0 then
+        begin
+          // A byte Count of zero means that this is a special
+          // instruction.
+          case OpCode.Command of
+            0:
+              begin
+                // Move to next row
+                Inc(Row);
+                WriteRow := Iff(NegHeightBitmap, Row, Height - 1 - Row);
+                Col := 0;
+              end ;
+            1: Break; // Image is finished
+            2:
+              begin
+                // Move to a new relative position
+                DeltaX := RLESrc[SrcPos];
+                DeltaY := RLESrc[SrcPos + 1];
+                Inc(SrcPos, 2);
+                Inc(Col, DeltaX);
+                Inc(Row, DeltaY);
+              end
+          else
+            SrcCount := OpCode.Command;
+            // Do not read data after EOF
+            if SrcPos + OpCode.Command > BI.SizeImage then
+              OpCode.Command := BI.SizeImage - SrcPos;
+            // Take padding bytes into account
+            if Col + OpCode.Command > Width then
+              OpCode.Command := Width - Col;
+            // Store absolute data. Command code is the
+            // number of absolute bytes to store
+            Move(RLESrc[SrcPos], Pixels[WriteRow * Width + Col], OpCode.Command);
+            Inc(SrcPos, SrcCount);
+            Inc(Col, OpCode.Command);
+            // Odd number of bytes is followed by a pad byte
+            if (SrcCount mod 2) = 1 then
+              Inc(SrcPos);
+          end;
+        end
+        else
+        begin
+          // Take padding bytes into account
+          if Col + OpCode.Count > Width then
+            OpCode.Count := Width - Col;
+          // Store a run of the same color value. Count is number of bytes to store
+          FillChar(Pixels [WriteRow * Width + Col], OpCode.Count, OpCode.Command);
+          Inc(Col, OpCode.Count);
+        end;
+      end;
+    finally
+      FreeMem(RLESrc);
+    end;
+  end;
+
+begin
+  Data := nil;
+  SetLength(Images, 1);
+  with GetIO, Images[0] do
+  try
+    FillChar(BI, SizeOf(BI), 0);
+    StartPos := Tell(Handle);
+    Read(Handle, @BF, SizeOf(BF));
+    Read(Handle, @BI.Size, SizeOf(BI.Size));
+    IsOS2 := BI.Size = SizeOf(TBitmapCoreHeader);
+
+    // Bitmap Info reading
+    if IsOS2 then
+    begin
+      // OS/2 type bitmap, reads info header without 4 already read bytes
+      Read(Handle, @PByteArray(@BC)[SizeOf(BI.Size)],
+        SizeOf(TBitmapCoreHeader) - SizeOf(BI.Size));
+      with BI do
+      begin
+        ClrUsed := 0;
+        Compression := BI_RGB;
+        BitCount := BC.BitCount;
+        Height := BC.Height;
+        Width := BC.Width;
+      end;
+    end
+    else
+    begin
+      // Windows type bitmap
+      HeaderSize := Min(BI.Size - SizeOf(BI.Size), SizeOf(BI) - SizeOf(BI.Size)); // do not read more than size of BI!
+      Read(Handle, @PByteArray(@BI)[SizeOf(BI.Size)], HeaderSize);
+      // SizeImage can be 0 for BI_RGB images, but it is here because of:
+      // I saved 8bit bitmap in Paint Shop Pro 8 as OS2 RLE compressed.
+      // It wrote strange 64 Byte Info header with SizeImage set to 0
+      // Some progs were able to open it, some were not.
+      if BI.SizeImage = 0 then
+        BI.SizeImage := BF.Size - BF.Offset;
+    end;
+    // Bit mask reading. Only read it if there is V3 header, V4 header has
+    // masks laoded already (only masks for RGB in V3).
+    if (BI.Compression = BI_BITFIELDS) and (BI.Size = V3InfoHeaderSize) then
+      Read(Handle, @BI.RedMask, SizeOf(BI.RedMask) * 3);
+
+    case BI.BitCount of
+      1, 4, 8: Format := ifIndex8;
+      16:
+        if BI.RedMask = $0F00 then
+          // Set XRGB4 or ARGB4 according to value of alpha mask
+          Format := IffFormat(BI.AlphaMask = 0, ifX4R4G4B4, ifA4R4G4B4)
+        else if BI.RedMask = $F800 then
+          Format := ifR5G6B5
+        else
+          // R5G5B5 is default 16bit format (with Compression = BI_RGB or masks).
+          // We set it to A1.. and later there is a check if there are any alpha values
+          // and if not it is changed to X1R5G5B5
+          Format := ifA1R5G5B5;
+      24: Format := ifR8G8B8;
+      32: Format := ifA8R8G8B8; // As with R5G5B5 there is alpha check later
+    end;
+
+    NewImage(BI.Width, Abs(BI.Height), Format, Images[0]);
+    Info := GetFormatInfo(Format);
+    WidthBytes := Width * Info.BytesPerPixel;
+    AlignedWidthBytes := (((Width * BI.BitCount) + 31) shr 5) * 4;
+    AlignedSize := Height * LongInt(AlignedWidthBytes);
+
+    // Palette settings and reading
+    if BI.BitCount <= 8 then
+    begin
+      // Seek to the begining of palette
+      Seek(Handle, StartPos + SizeOf(TBitmapFileHeader) + LongInt(BI.Size),
+        smFromBeginning);
+      if IsOS2 then
+      begin
+        // OS/2 type
+        FPalSize := 1 shl BI.BitCount;
+        GetMem(PalRGB, FPalSize * SizeOf(TColor24Rec));
+        try
+          Read(Handle, PalRGB, FPalSize * SizeOf(TColor24Rec));
+          for I := 0 to FPalSize - 1 do
+          with PalRGB[I] do
+          begin
+            Palette[I].R := R;
+            Palette[I].G := G;
+            Palette[I].B := B;
+          end;
+        finally
+          FreeMemNil(PalRGB);
+        end;
+      end
+      else
+      begin
+        // Windows type
+        FPalSize := BI.ClrUsed;
+        if FPalSize = 0 then
+          FPalSize := 1 shl BI.BitCount;
+        Read(Handle, Palette, FPalSize * SizeOf(TColor32Rec));
+      end;
+      for I := 0 to Info.PaletteEntries - 1 do
+        Palette[I].A := $FF;
+    end;
+
+    // Seek to the beginning of image bits
+    Seek(Handle, StartPos + LongInt(BF.Offset), smFromBeginning);
+
+    case BI.Compression of
+      BI_RGB: LoadRGB;
+      BI_RLE4: LoadRLE4;
+      BI_RLE8: LoadRLE8;
+      BI_BITFIELDS: LoadRGB;
+    end;
+
+    if BI.AlphaMask = 0 then
+    begin
+      // Alpha mask is not stored in file (V3) or not defined.
+      // Check alpha channels of loaded images if they might contain them.
+      if Format = ifA1R5G5B5 then
+      begin
+        // Check if there is alpha channel present in A1R5GB5 images, if it is not
+        // change format to X1R5G5B5
+        if not Has16BitImageAlpha(Width * Height, Bits) then
+          Format := ifX1R5G5B5;
+      end
+      else if Format = ifA8R8G8B8 then
+      begin
+        // Check if there is alpha channel present in A8R8G8B8 images, if it is not
+        // change format to X8R8G8B8
+        if not Has32BitImageAlpha(Width * Height, Bits) then
+          Format := ifX8R8G8B8;
+      end;
+    end;
+
+    if BI.BitCount < 8 then
+    begin
+      // 1 and 4 bpp images are supported only for loading which is now
+      // so we now convert them to 8bpp (and unalign scanlines).
+      case BI.BitCount of
+        1: Convert1To8(Data, Bits, Width, Height, AlignedWidthBytes, False);
+        4:
+          begin
+            // RLE4 bitmaps are translated to 8bit during RLE decoding
+            if BI.Compression <> BI_RLE4 then
+               Convert4To8(Data, Bits, Width, Height, AlignedWidthBytes, False);
+          end;
+      end;
+      // Enlarge palette
+      ReallocMem(Palette, Info.PaletteEntries * SizeOf(TColor32Rec));
+    end;
+
+    Result := True;
+  finally
+    FreeMemNil(Data);
+  end;
+end;
+
+function TBitmapFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  StartPos, EndPos, I, Pad, PadSize, WidthBytes: LongInt;
+  BF: TBitmapFileHeader;
+  BI: TBitmapInfoHeader;
+  Info: TImageFormatInfo;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+
+  procedure SaveRLE8;
+  const
+    BufferSize = 8 * 1024;
+  var
+    X, Y, I, SrcPos: LongInt;
+    DiffCount, SameCount: Byte;
+    Pixels: PByteArray;
+    Buffer: array[0..BufferSize - 1] of Byte;
+    BufferPos: LongInt;
+
+    procedure WriteByte(ByteToWrite: Byte);
+    begin
+      if BufferPos = BufferSize then
+      begin
+        // Flush buffer if necessary
+        GetIO.Write(Handle, @Buffer, BufferPos);
+        BufferPos := 0;
+      end;
+      Buffer[BufferPos] := ByteToWrite;
+      Inc(BufferPos);
+    end;
+
+  begin
+    BufferPos := 0;
+    with GetIO, ImageToSave do
+    begin
+      for Y := Height - 1 downto 0 do
+      begin
+        X := 0;
+        SrcPos := 0;
+        Pixels := @PByteArray(Bits)[Y * Width];
+
+        while X < Width do
+        begin
+          SameCount := 1;
+          DiffCount := 0;
+          // Determine run length
+          while X + SameCount < Width do
+          begin
+            // If we reach max run length or byte with different value
+            // we end this run
+            if (SameCount = 255) or (Pixels[SrcPos + SameCount] <> Pixels[SrcPos]) then
+              Break;
+            Inc(SameCount);
+          end;
+
+          if SameCount = 1 then
+          begin
+            // If there are not some bytes with the same value we
+            // compute how many different bytes are there
+            while X + DiffCount < Width do
+            begin
+              // Stop diff byte counting if there two bytes with the same value
+              // or DiffCount is too big
+              if (DiffCount = 255) or (Pixels[SrcPos + DiffCount + 1] =
+                Pixels[SrcPos + DiffCount]) then
+                Break;
+              Inc(DiffCount);
+            end;
+          end;
+
+          // Now store absolute data (direct copy image->file) or
+          // store RLE code only (number of repeats + byte to be repeated)
+          if DiffCount > 2 then
+          begin
+            // Save 'Absolute Data' (0 + number of bytes) but only
+            // if number is >2 because (0+1) and (0+2) are other special commands
+            WriteByte(0);
+            WriteByte(DiffCount);
+            // Write absolute data to buffer
+            for I := 0 to DiffCount - 1 do
+              WriteByte(Pixels[SrcPos + I]);
+            Inc(X, DiffCount);
+            Inc(SrcPos, DiffCount);
+            // Odd number of bytes must be padded
+            if (DiffCount mod 2) = 1 then
+              WriteByte(0);
+          end
+          else
+          begin
+            // Save number of repeats and byte that should be repeated
+            WriteByte(SameCount);
+            WriteByte(Pixels[SrcPos]);
+            Inc(X, SameCount);
+            Inc(SrcPos, SameCount);
+          end;
+        end;
+        // Save 'End Of Line' command
+        WriteByte(0);
+        WriteByte(0);
+      end;
+      // Save 'End Of Bitmap' command
+      WriteByte(0);
+      WriteByte(1);
+      // Flush buffer
+      GetIO.Write(Handle, @Buffer, BufferPos);
+    end;
+  end;
+
+begin
+  Result := False;
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with GetIO, ImageToSave do
+  try
+    Info := GetFormatInfo(Format);
+    StartPos := Tell(Handle);
+    FillChar(BF, SizeOf(BF), 0);
+    FillChar(BI, SizeOf(BI), 0);
+    // Other fields will be filled later - we don't know all values now
+    BF.ID := BMMagic;
+    Write(Handle, @BF, SizeOf(BF));
+    if Info.HasAlphaChannel and (Info.BytesPerPixel = 2){V4 temp hack} then
+      // Save images with alpha in V4 format
+      BI.Size := V4InfoHeaderSize
+    else
+      // Save images without alpha in V3 format - for better compatibility
+      BI.Size := V3InfoHeaderSize;
+    BI.Width := Width;
+    BI.Height := Height;
+    BI.Planes := 1;
+    BI.BitCount := Info.BytesPerPixel * 8;
+    BI.XPelsPerMeter := 2835; // 72 dpi
+    BI.YPelsPerMeter := 2835; // 72 dpi
+    // Set compression
+    if (Info.BytesPerPixel = 1) and FUseRLE then
+      BI.Compression := BI_RLE8
+    else if (Info.HasAlphaChannel or
+      ((BI.BitCount = 16) and (Format <> ifX1R5G5B5))) and (Info.BytesPerPixel = 2){V4 temp hack} then
+      BI.Compression := BI_BITFIELDS
+    else
+      BI.Compression := BI_RGB;
+    // Write header (first time)
+    Write(Handle, @BI, BI.Size);
+
+    // Write mask info
+    if BI.Compression = BI_BITFIELDS then
+    begin
+      if BI.BitCount = 16 then
+      with Info.PixelFormat^ do
+      begin
+        BI.RedMask   := RBitMask;
+        BI.GreenMask := GBitMask;
+        BI.BlueMask  := BBitMask;
+        BI.AlphaMask := ABitMask;
+      end
+      else
+      begin
+        // Set masks for A8R8G8B8
+        BI.RedMask   := $00FF0000;
+        BI.GreenMask := $0000FF00;
+        BI.BlueMask  := $000000FF;
+        BI.AlphaMask := $FF000000;
+      end;
+      // If V3 header is used RGB masks must be written to file separately.
+      // V4 header has embedded masks (V4 is default for formats with alpha).
+      if BI.Size = V3InfoHeaderSize then
+        Write(Handle, @BI.RedMask, SizeOf(BI.RedMask) * 3);
+    end;
+    // Write palette
+    if Palette <> nil then
+      Write(Handle, Palette, Info.PaletteEntries * SizeOf(TColor32Rec));
+
+    BF.Offset := Tell(Handle) - StartPos;
+
+    if BI.Compression <> BI_RLE8 then
+    begin
+      // Save uncompressed data, scanlines must be filled with pad bytes
+      // to be multiples of 4, save as bottom-up (Windows native) bitmap
+      Pad := 0;
+      WidthBytes := Width * Info.BytesPerPixel;
+      PadSize := ((Width * BI.BitCount + 31) div 32) * 4 - WidthBytes;
+
+      for I := Height - 1 downto 0 do
+      begin
+        Write(Handle, @PByteArray(Bits)[I * WidthBytes], WidthBytes);
+        if PadSize > 0 then
+          Write(Handle, @Pad, PadSize);
+      end;
+    end
+    else
+    begin
+      // Save data with RLE8 compression
+      SaveRLE8;
+    end;
+
+    EndPos := Tell(Handle);
+    Seek(Handle, StartPos, smFromBeginning);
+    // Rewrite header with new values
+    BF.Size := EndPos - StartPos;
+    BI.SizeImage := BF.Size - BF.Offset;
+    Write(Handle, @BF, SizeOf(BF));
+    Write(Handle, @BI, BI.Size);
+    Seek(Handle, EndPos, smFromBeginning);
+
+    Result := True;
+  finally
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+procedure TBitmapFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsFloatingPoint then
+    // Convert FP image to RGB/ARGB according to presence of alpha channel
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8R8G8B8, ifR8G8B8)
+  else if Info.HasGrayChannel or Info.IsIndexed then
+    // Convert all grayscale and indexed images to Index8 unless they have alpha
+    // (preserve it)
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8R8G8B8, ifIndex8)
+  else if Info.HasAlphaChannel then
+    // Convert images with alpha channel to A8R8G8B8
+    ConvFormat := ifA8R8G8B8
+  else if Info.UsePixelFormat then
+    // Convert 16bit RGB images (no alpha) to X1R5G5B5
+    ConvFormat := ifX1R5G5B5
+  else
+    // Convert all other formats to R8G8B8
+    ConvFormat := ifR8G8B8;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+function TBitmapFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Hdr: TBitmapFileHeader;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+  with GetIO do
+  begin
+    ReadCount := Read(Handle, @Hdr, SizeOf(Hdr));
+    Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (Hdr.ID = BMMagic) and (ReadCount = SizeOf(Hdr));
+  end;
+end;
+
+initialization
+  RegisterImageFileFormat(TBitmapFileFormat);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+    - Add option to choose to save V3 or V4 headers.
+
+  -- 0.25.0 Changes/Bug Fixes ---------------------------------
+    - Fixed problem with indexed BMP loading - some pal entries
+      could end up with alpha=0.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Now saves bitmaps as bottom-up for better compatibility
+      (mainly Lazarus' TImage!).
+    - Fixed crash when loading bitmaps with headers larger than V4.
+    - Temp hacks to disable V4 headers for 32bit images (compatibility with
+      other soft).
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Removed temporary data allocation for image with aligned scanlines.
+      They are now directly written to output so memory requirements are
+      much lower now.
+    - Now uses and recognizes BITMAPINFOHEADERV4 when loading/saving.
+      Mainly for formats with alpha channels.
+    - Added ifR5G6B5 to supported formats, changed converting to supported
+      formats little bit.
+    - Rewritten SaveRLE8 nested procedure. Old code was long and
+      mysterious - new is short and much more readable.
+    - MakeCompatible method moved to base class, put ConvertToSupported here.
+      GetSupportedFormats removed, it is now set in constructor.
+    - Rewritten LoadRLE4 and LoadRLE8 nested procedures.
+      Should be less buggy an more readable (load inspired by Colosseum Builders' code).
+    - Made public properties for options registered to SetOption/GetOption
+      functions.
+    - Addded alpha check to 32b bitmap loading too (teh same as in 16b
+      bitmap loading).
+    - Moved Convert1To8 and Convert4To8 to ImagingFormats
+    - Changed extensions to filename masks.
+    - Changed SaveData, LoadData, and MakeCompatible methods according
+      to changes in base class in Imaging unit.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - fixed wrong const that caused A4R4G4B4 BMPs to load as A1R5G5B5
+    - fixed the bug that caused 8bit RLE compressed bitmaps to load as
+      whole black
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - 16 bit images are usually without alpha but some has alpha
+      channel and there is no indication of it - so I have added
+      a check: if all pixels of image are with alpha = 0 image is treated
+      as X1R5G5B5 otherwise as A1R5G5B5
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - when loading 1/4 bit images with dword aligned dimensions
+      there was ugly memory rewritting bug causing image corruption
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingCanvases.pas b/src/lib/vampimg/ImagingCanvases.pas

new file mode 100644 (file)

index 0000000..448191c
--- /dev/null
+++ b/src/lib/vampimg/ImagingCanvases.pas
@@ -0,0 +1,2110 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains canvas classes for drawing and applying effects.}
+unit ImagingCanvases;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Types, Classes, ImagingTypes, Imaging, ImagingClasses,
+  ImagingFormats, ImagingUtility;
+
+const
+  { Color constants in ifA8R8G8B8 format.}
+  pcClear   = $00000000;
+  pcBlack   = $FF000000;
+  pcWhite   = $FFFFFFFF;
+  pcMaroon  = $FF800000;
+  pcGreen   = $FF008000;
+  pcOlive   = $FF808000;
+  pcNavy    = $FF000080;
+  pcPurple  = $FF800080;
+  pcTeal    = $FF008080;
+  pcGray    = $FF808080;
+  pcSilver  = $FFC0C0C0;
+  pcRed     = $FFFF0000;
+  pcLime    = $FF00FF00;
+  pcYellow  = $FFFFFF00;
+  pcBlue    = $FF0000FF;
+  pcFuchsia = $FFFF00FF;
+  pcAqua    = $FF00FFFF;
+  pcLtGray  = $FFC0C0C0;
+  pcDkGray  = $FF808080;
+
+  MaxPenWidth = 256;
+
+type
+  EImagingCanvasError = class(EImagingError);
+  EImagingCanvasBlendingError = class(EImagingError);
+
+  { Fill mode used when drawing filled objects on canvas.}
+  TFillMode = (
+    fmSolid,  // Solid fill using current fill color
+    fmClear   // No filling done
+  );
+
+  { Pen mode used when drawing lines, object outlines, and similar on canvas.}
+  TPenMode = (
+    pmSolid,  // Draws solid lines using current pen color.
+    pmClear   // No drawing done
+  );
+
+  { Source and destination blending factors for drawing functions with blending.
+    Blending formula: SrcColor * SrcFactor + DestColor * DestFactor }
+  TBlendingFactor = (
+    bfIgnore,           // Don't care
+    bfZero,             // For Src and Dest, Factor = (0, 0, 0, 0)
+    bfOne,              // For Src and Dest, Factor = (1, 1, 1, 1)
+    bfSrcAlpha,         // For Src and Dest, Factor = (Src.A, Src.A, Src.A, Src.A)
+    bfOneMinusSrcAlpha, // For Src and Dest, Factor = (1 - Src.A, 1 - Src.A, 1 - Src.A, 1 - Src.A)
+    bfDstAlpha,         // For Src and Dest, Factor = (Dest.A, Dest.A, Dest.A, Dest.A)
+    bfOneMinusDstAlpha, // For Src and Dest, Factor = (1 - Dest.A, 1 - Dest.A, 1 - Dest.A, 1 - Dest.A)
+    bfSrcColor,         // For Dest,         Factor = (Src.R, Src.R, Src.B, Src.A)
+    bfOneMinusSrcColor, // For Dest,         Factor = (1 - Src.R, 1 - Src.G, 1 - Src.B, 1 - Src.A)
+    bfDstColor,         // For Src,          Factor = (Dest.R, Dest.G, Dest.B, Dest.A)
+    bfOneMinusDstColor  // For Src,          Factor = (1 - Dest.R, 1 - Dest.G, 1 - Dest.B, 1 - Dest.A)
+  );
+
+  { Procedure for custom pixel write modes with blending.}
+  TPixelWriteProc = procedure(const SrcPix: TColorFPRec; DestPtr: PByte;
+    DestInfo: PImageFormatInfo; SrcFactor, DestFactor: TBlendingFactor);
+
+  { Represents 3x3 convolution filter kernel.}
+  TConvolutionFilter3x3 = record
+    Kernel: array[0..2, 0..2] of LongInt;
+    Divisor: LongInt;
+    Bias: Single;
+  end;
+
+  { Represents 5x5 convolution filter kernel.}
+  TConvolutionFilter5x5 = record
+    Kernel: array[0..4, 0..4] of LongInt;
+    Divisor: LongInt;
+    Bias: Single;
+  end;
+
+  TPointTransformFunction = function(const Pixel: TColorFPRec;
+    Param1, Param2, Param3: Single): TColorFPRec;
+
+  TDynFPPixelArray = array of TColorFPRec;
+
+  THistogramArray = array[Byte] of Integer;
+
+  TSelectPixelFunction = function(var Pixels: TDynFPPixelArray): TColorFPRec;
+
+  { Base canvas class for drawing objects, applying effects, and other.
+    Constructor takes TBaseImage (or pointer to TImageData). Source image
+    bits are not copied but referenced so all canvas functions affect
+    source image and vice versa. When you change format or resolution of
+    source image you must call UpdateCanvasState method (so canvas could
+    recompute some data size related stuff).
+
+    TImagingCanvas works for all image data formats except special ones
+    (compressed). Because of this its methods are quite slow (they usually work
+    with colors in ifA32R32G32B32F format). If you want fast drawing you
+    can use one of fast canvas clases. These descendants of TImagingCanvas
+    work only for few select formats (or only one) but they are optimized thus
+    much faster.
+  }
+  TImagingCanvas = class(TObject)
+  private
+    FDataSizeOnUpdate: LongInt;
+    FLineRecursion: Boolean;
+    function GetPixel32(X, Y: LongInt): TColor32; virtual;
+    function GetPixelFP(X, Y: LongInt): TColorFPRec; virtual;
+    function GetValid: Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetPixel32(X, Y: LongInt; const Value: TColor32); virtual;
+    procedure SetPixelFP(X, Y: LongInt; const Value: TColorFPRec); virtual;
+    procedure SetPenColor32(const Value: TColor32); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetPenColorFP(const Value: TColorFPRec); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetPenWidth(const Value: LongInt); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetFillColor32(const Value: TColor32); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetFillColorFP(const Value: TColorFPRec); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetClipRect(const Value: TRect);
+    procedure CheckBeforeBlending(SrcFactor, DestFactor: TBlendingFactor; DestCanvas: TImagingCanvas);
+  protected
+    FPData: PImageData;
+    FClipRect: TRect;
+    FPenColorFP: TColorFPRec;
+    FPenColor32: TColor32;
+    FPenMode: TPenMode;
+    FPenWidth: LongInt;
+    FFillColorFP: TColorFPRec;
+    FFillColor32: TColor32;
+    FFillMode: TFillMode;
+    FNativeColor: TColorFPRec;
+    FFormatInfo: TImageFormatInfo;
+
+    { Returns pointer to pixel at given position.}
+    function GetPixelPointer(X, Y: LongInt): Pointer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    { Translates given FP color to native format of canvas and stores it
+      in FNativeColor field (its bit copy) or user pointer (in overloaded method).}
+    procedure TranslateFPToNative(const Color: TColorFPRec); overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure TranslateFPToNative(const Color: TColorFPRec; Native: Pointer); overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    { Clipping function used by horizontal and vertical line drawing functions.}
+    function ClipAxisParallelLine(var A1, A2, B: LongInt;
+      AStart, AStop, BStart, BStop: LongInt): Boolean;
+    { Internal horizontal line drawer used mainly for filling inside of objects
+      like ellipses and circles.}
+    procedure HorzLineInternal(X1, X2, Y: LongInt; Color: Pointer; Bpp: LongInt); virtual;
+    procedure CopyPixelInternal(X, Y: LongInt; Pixel: Pointer; Bpp: LongInt); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure DrawInternal(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      DestX, DestY: Integer; SrcFactor, DestFactor: TBlendingFactor; PixelWriteProc: TPixelWriteProc);
+    procedure StretchDrawInternal(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      const DestRect: TRect; SrcFactor, DestFactor: TBlendingFactor;
+      Filter: TResizeFilter; PixelWriteProc: TPixelWriteProc);
+  public
+    constructor CreateForData(ImageDataPointer: PImageData);
+    constructor CreateForImage(Image: TBaseImage);
+    destructor Destroy; override;
+
+    { Call this method when you change size or format of image this canvas
+      operates on (like calling ResizeImage, ConvertImage, or changing Format
+      property of TBaseImage descendants).}
+    procedure UpdateCanvasState; virtual;
+    { Resets clipping rectangle to Rect(0, 0, ImageWidth, ImageHeight).}
+    procedure ResetClipRect;
+
+    { Clears entire canvas with current fill color (ignores clipping rectangle
+      and always uses fmSolid fill mode).}
+    procedure Clear;
+
+    { Draws horizontal line with current pen settings.}
+    procedure HorzLine(X1, X2, Y: LongInt); virtual;
+    { Draws vertical line with current pen settings.}
+    procedure VertLine(X, Y1, Y2: LongInt); virtual;
+    { Draws line from [X1, Y1] to [X2, Y2] with current pen settings.}
+    procedure Line(X1, Y1, X2, Y2: LongInt); virtual;
+    { Draws a rectangle using current pen settings.}
+    procedure FrameRect(const Rect: TRect);
+    { Fills given rectangle with current fill settings.}
+    procedure FillRect(const Rect: TRect); virtual;
+    { Fills given rectangle with current fill settings and pixel blending.}
+    procedure FillRectBlend(const Rect: TRect; SrcFactor, DestFactor: TBlendingFactor);
+    { Draws rectangle which is outlined by using the current pen settings and
+      filled by using the current fill settings.}
+    procedure Rectangle(const Rect: TRect);
+    { Draws ellipse which is outlined by using the current pen settings and
+      filled by using the current fill settings. Rect specifies bounding rectangle
+      of ellipse to be drawn.}
+    procedure Ellipse(const Rect: TRect);
+    { Fills area of canvas with current fill color starting at point [X, Y] and
+      coloring its neighbors. Default flood fill mode changes color of all
+      neighbors with the same color as pixel [X, Y]. With BoundaryFillMode
+      set to True neighbors are recolored regardless of their old color,
+      but area which will be recolored has boundary (specified by current pen color).}
+    procedure FloodFill(X, Y: Integer; BoundaryFillMode: Boolean = False);
+
+    { Draws contents of this canvas onto another canvas with pixel blending.
+      Blending factors are chosen using TBlendingFactor parameters.
+      Resulting destination pixel color is:
+        SrcColor * SrcFactor +  DstColor * DstFactor}
+    procedure DrawBlend(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      DestX, DestY: Integer; SrcFactor, DestFactor: TBlendingFactor);
+    { Draws contents of this canvas onto another one with typical alpha
+      blending (Src 'over' Dest, factors are bfSrcAlpha and bfOneMinusSrcAlpha.)}
+    procedure DrawAlpha(const SrcRect: TRect; DestCanvas: TImagingCanvas; DestX, DestY: Integer); virtual;
+    { Draws contents of this canvas onto another one using additive blending
+      (source and dest factors are bfOne).}
+    procedure DrawAdd(const SrcRect: TRect; DestCanvas: TImagingCanvas; DestX, DestY: Integer);
+    { Draws stretched and filtered contents of this canvas onto another canvas
+      with pixel blending. Blending factors are chosen using TBlendingFactor parameters.
+      Resulting destination pixel color is:
+        SrcColor * SrcFactor +  DstColor * DstFactor}
+    procedure StretchDrawBlend(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      const DestRect: TRect; SrcFactor, DestFactor: TBlendingFactor;
+      Filter: TResizeFilter = rfBilinear);
+    { Draws contents of this canvas onto another one with typical alpha
+      blending (Src 'over' Dest, factors are bfSrcAlpha and bfOneMinusSrcAlpha.)}
+    procedure StretchDrawAlpha(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      const DestRect: TRect; Filter: TResizeFilter = rfBilinear); virtual;
+    { Draws contents of this canvas onto another one using additive blending
+      (source and dest factors are bfOne).}
+    procedure StretchDrawAdd(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      const DestRect: TRect; Filter: TResizeFilter = rfBilinear);
+
+    { Convolves canvas' image with given 3x3 filter kernel. You can use
+      predefined filter kernels or define your own.}
+    procedure ApplyConvolution3x3(const Filter: TConvolutionFilter3x3);
+    { Convolves canvas' image with given 5x5 filter kernel. You can use
+      predefined filter kernels or define your own.}
+    procedure ApplyConvolution5x5(const Filter: TConvolutionFilter5x5);
+    { Computes 2D convolution of canvas' image and given filter kernel.
+      Kernel is in row format and KernelSize must be odd number >= 3. Divisor
+      is normalizing value based on Kernel (usually sum of all kernel's cells).
+      The Bias number shifts each color value by a fixed amount (color values
+      are usually in range [0, 1] during processing). If ClampChannels
+      is True all output color values are clamped to [0, 1]. You can use
+      predefined filter kernels or define your own.}
+    procedure ApplyConvolution(Kernel: PLongInt; KernelSize, Divisor: LongInt;
+      Bias: Single = 0.0; ClampChannels: Boolean = True); virtual;
+
+    { Applies custom non-linear filter. Filter size is diameter of pixel
+      neighborhood. Typical values are 3, 5, or 7. }
+    procedure ApplyNonLinearFilter(FilterSize: Integer; SelectFunc: TSelectPixelFunction);
+    { Applies median non-linear filter with user defined pixel neighborhood.
+      Selects median pixel from the neighborhood as new pixel
+      (current implementation is quite slow).}
+    procedure ApplyMedianFilter(FilterSize: Integer);
+    { Applies min non-linear filter with user defined pixel neighborhood.
+      Selects min pixel from the neighborhood as new pixel.}
+    procedure ApplyMinFilter(FilterSize: Integer);
+    { Applies max non-linear filter with user defined pixel neighborhood.
+      Selects max pixel from the neighborhood as new pixel.}
+    procedure ApplyMaxFilter(FilterSize: Integer);
+
+    { Transforms pixels one by one by given function. Pixel neighbors are
+      not taken into account. Param 1-3 are optional parameters
+      for transform function.}
+    procedure PointTransform(Transform: TPointTransformFunction;
+      Param1, Param2, Param3: Single);
+    { Modifies image contrast and brightness. Parameters should be
+      in range <-100; 100>.}
+    procedure ModifyContrastBrightness(Contrast, Brightness: Single);
+    { Gamma correction of individual color channels. Range is (0, +inf),
+      1.0 means no change.}
+    procedure GammaCorection(Red, Green, Blue: Single);
+    { Inverts colors of all image pixels, makes negative image. Ignores alpha channel.}
+    procedure InvertColors; virtual;
+    { Simple single level thresholding with threshold level (in range [0, 1])
+      for each color channel.}
+    procedure Threshold(Red, Green, Blue: Single);
+    { Adjusts the color levels of the image by scaling the
+      colors falling between specified white and black points to full [0, 1] range.
+      The black point specifies the darkest color in the image, white point
+      specifies the lightest color, and mid point is gamma aplied to image.
+      Black and white point must be in range [0, 1].}
+    procedure AdjustColorLevels(BlackPoint, WhitePoint: Single; MidPoint: Single = 1.0);
+    { Premultiplies color channel values by alpha. Needed for some platforms/APIs
+      to display images with alpha properly.}
+    procedure PremultiplyAlpha;
+    { Reverses PremultiplyAlpha operation.}
+    procedure UnPremultiplyAlpha;
+
+    { Calculates image histogram for each channel and also gray values. Each
+      channel has 256 values available. Channel values of data formats with higher
+      precision are scaled and rounded. Example: Red[126] specifies number of pixels
+      in image with red channel = 126.}
+    procedure GetHistogram(out Red, Green, Blue, Alpha, Gray: THistogramArray);
+    { Fills image channel with given value leaving other channels intact.
+      Use ChannelAlpha, ChannelRed, etc. constants from ImagingTypes as
+      channel identifier.}
+    procedure FillChannel(ChannelId: Integer; NewChannelValue: Byte); overload;
+    { Fills image channel with given value leaving other channels intact.
+      Use ChannelAlpha, ChannelRed, etc. constants from ImagingTypes as
+      channel identifier.}
+    procedure FillChannelFP(ChannelId: Integer; NewChannelValue: Single); overload;
+
+    { Color used when drawing lines, frames, and outlines of objects.}
+    property PenColor32: TColor32 read FPenColor32 write SetPenColor32;
+    { Color used when drawing lines, frames, and outlines of objects.}
+    property PenColorFP: TColorFPRec read FPenColorFP write SetPenColorFP;
+    { Pen mode used when drawing lines, object outlines, and similar on canvas.}
+    property PenMode: TPenMode read FPenMode write FPenMode;
+    { Width with which objects like lines, frames, etc. (everything which uses
+      PenColor) are drawn.}
+    property PenWidth: LongInt read FPenWidth write SetPenWidth;
+    { Color used for filling when drawing various objects.}
+    property FillColor32: TColor32 read FFillColor32 write SetFillColor32;
+    { Color used for filling when drawing various objects.}
+    property FillColorFP: TColorFPRec read FFillColorFP write SetFillColorFP;
+    { Fill mode used when drawing filled objects on canvas.}
+    property FillMode: TFillMode read FFillMode write FFillMode;
+    { Specifies the current color of the pixels of canvas. Native pixel is
+      read from canvas and then translated to 32bit ARGB. Reverse operation
+      is made when setting pixel color.}
+    property Pixels32[X, Y: LongInt]: TColor32 read GetPixel32 write SetPixel32;
+    { Specifies the current color of the pixels of canvas. Native pixel is
+      read from canvas and then translated to FP ARGB. Reverse operation
+      is made when setting pixel color.}
+    property PixelsFP[X, Y: LongInt]: TColorFPRec read GetPixelFP write SetPixelFP;
+    { Clipping rectangle of this canvas. No pixels outside this rectangle are
+      altered by canvas methods if Clipping property is True. Clip rect gets
+      reseted when UpdateCanvasState is called.}
+    property ClipRect: TRect read FClipRect write SetClipRect;
+    { Extended format information.}
+    property FormatInfo: TImageFormatInfo read FFormatInfo;
+    { Indicates that this canvas is in valid state. If False canvas oprations
+      may crash.}
+    property Valid: Boolean read GetValid;
+
+    { Returns all formats supported by this canvas class.}
+    class function GetSupportedFormats: TImageFormats; virtual;
+  end;
+
+  TImagingCanvasClass = class of TImagingCanvas;
+
+  TScanlineArray = array[0..MaxInt div SizeOf(Pointer) - 1] of PColor32RecArray;
+  PScanlineArray = ^TScanlineArray;
+
+  { Fast canvas class for ifA8R8G8B8 format images.}
+  TFastARGB32Canvas = class(TImagingCanvas)
+  protected
+    FScanlines: PScanlineArray;
+    procedure AlphaBlendPixels(SrcPix, DestPix: PColor32Rec); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetPixel32(X, Y: LongInt): TColor32; override;
+    procedure SetPixel32(X, Y: LongInt; const Value: TColor32); override;
+  public
+    destructor Destroy; override;
+
+    procedure UpdateCanvasState; override;
+
+    procedure DrawAlpha(const SrcRect: TRect; DestCanvas: TImagingCanvas; DestX, DestY: Integer); override;
+    procedure StretchDrawAlpha(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+      const DestRect: TRect; Filter: TResizeFilter = rfBilinear); override;
+    procedure InvertColors; override;
+
+    property Scanlines: PScanlineArray read FScanlines;
+
+    class function GetSupportedFormats: TImageFormats; override;
+  end;
+
+const
+  { Kernel for 3x3 average smoothing filter.}
+  FilterAverage3x3: TConvolutionFilter3x3 = (
+    Kernel: ((1, 1, 1),
+             (1, 1, 1),
+             (1, 1, 1));
+    Divisor: 9);
+
+  { Kernel for 5x5 average smoothing filter.}
+  FilterAverage5x5: TConvolutionFilter5x5 = (
+    Kernel: ((1, 1, 1, 1, 1),
+             (1, 1, 1, 1, 1),
+             (1, 1, 1, 1, 1),
+             (1, 1, 1, 1, 1),
+             (1, 1, 1, 1, 1));
+    Divisor: 25);
+
+  { Kernel for 3x3 Gaussian smoothing filter.}
+  FilterGaussian3x3: TConvolutionFilter3x3 = (
+    Kernel: ((1, 2, 1),
+             (2, 4, 2),
+             (1, 2, 1));
+    Divisor: 16);
+
+  { Kernel for 5x5 Gaussian smoothing filter.}
+  FilterGaussian5x5: TConvolutionFilter5x5 = (
+    Kernel: ((1,  4,  6,  4, 1),
+             (4, 16, 24, 16, 4),
+             (6, 24, 36, 24, 6),
+             (4, 16, 24, 16, 4),
+             (1,  4,  6,  4, 1));
+    Divisor: 256);
+
+  { Kernel for 3x3 Sobel horizontal edge detection filter (1st derivative approximation).}
+  FilterSobelHorz3x3: TConvolutionFilter3x3 = (
+    Kernel: (( 1,  2,  1),
+             ( 0,  0,  0),
+             (-1, -2, -1));
+    Divisor: 1);
+
+  { Kernel for 3x3 Sobel vertical edge detection filter (1st derivative approximation).}
+  FilterSobelVert3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-1, 0, 1),
+             (-2, 0, 2),
+             (-1, 0, 1));
+    Divisor: 1);
+
+  { Kernel for 3x3 Prewitt horizontal edge detection filter.}
+  FilterPrewittHorz3x3: TConvolutionFilter3x3 = (
+    Kernel: (( 1,  1,  1),
+             ( 0,  0,  0),
+             (-1, -1, -1));
+    Divisor: 1);
+
+  { Kernel for 3x3 Prewitt vertical edge detection filter.}
+  FilterPrewittVert3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-1, 0, 1),
+             (-1, 0, 1),
+             (-1, 0, 1));
+    Divisor: 1);
+
+  { Kernel for 3x3 Kirsh horizontal edge detection filter.}
+  FilterKirshHorz3x3: TConvolutionFilter3x3 = (
+    Kernel: (( 5,  5,  5),
+             (-3,  0, -3),
+             (-3, -3, -3));
+    Divisor: 1);
+
+  { Kernel for 3x3 Kirsh vertical edge detection filter.}
+  FilterKirshVert3x3: TConvolutionFilter3x3 = (
+    Kernel: ((5, -3, -3),
+             (5,  0, -3),
+             (5, -3, -3));
+    Divisor: 1);
+
+  { Kernel for 3x3 Laplace omni-directional edge detection filter
+    (2nd derivative approximation).}
+  FilterLaplace3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-1, -1, -1),
+             (-1,  8, -1),
+             (-1, -1, -1));
+    Divisor: 1);
+
+  { Kernel for 5x5 Laplace omni-directional edge detection filter
+    (2nd derivative approximation).}
+  FilterLaplace5x5: TConvolutionFilter5x5 = (
+    Kernel: ((-1, -1, -1, -1, -1),
+             (-1, -1, -1, -1, -1),
+             (-1, -1, 24, -1, -1),
+             (-1, -1, -1, -1, -1),
+             (-1, -1, -1, -1, -1));
+    Divisor: 1);
+
+  { Kernel for 3x3 spharpening filter (Laplacian + original color).}
+  FilterSharpen3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-1, -1, -1),
+             (-1,  9, -1),
+             (-1, -1, -1));
+    Divisor: 1);
+
+  { Kernel for 5x5 spharpening filter (Laplacian + original color).}
+  FilterSharpen5x5: TConvolutionFilter5x5 = (
+    Kernel: ((-1, -1, -1, -1, -1),
+             (-1, -1, -1, -1, -1),
+             (-1, -1, 25, -1, -1),
+             (-1, -1, -1, -1, -1),
+             (-1, -1, -1, -1, -1));
+    Divisor: 1);
+
+  { Kernel for 5x5 glow filter.}
+  FilterGlow5x5: TConvolutionFilter5x5 = (
+    Kernel: (( 1, 2,   2, 2, 1),
+             ( 2, 0,   0, 0, 2),
+             ( 2, 0, -20, 0, 2),
+             ( 2, 0,   0, 0, 2),
+             ( 1, 2,   2, 2, 1));
+    Divisor: 8);
+
+  { Kernel for 3x3 edge enhancement filter.}
+  FilterEdgeEnhance3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-1, -2, -1),
+             (-2, 16, -2),
+             (-1, -2, -1));
+    Divisor: 4);
+
+  { Kernel for 3x3 contour enhancement filter.}
+  FilterTraceControur3x3: TConvolutionFilter3x3 = (
+    Kernel: ((-6, -6, -2),
+             (-1, 32, -1),
+             (-6, -2, -6));
+    Divisor: 4;
+    Bias:    240/255);
+
+  { Kernel for filter that negates all images pixels.}
+  FilterNegative3x3: TConvolutionFilter3x3 = (
+    Kernel: ((0,  0, 0),
+             (0, -1, 0),
+             (0,  0, 0));
+    Divisor: 1;
+    Bias:    1);
+
+  { Kernel for 3x3 horz/vert embossing filter.}
+  FilterEmboss3x3: TConvolutionFilter3x3 = (
+    Kernel: ((2,  0,  0),
+             (0, -1,  0),
+             (0,  0, -1));
+    Divisor: 1;
+    Bias:    0.5);
+
+
+{ You can register your own canvas class. List of registered canvases is used
+  by FindBestCanvasForImage functions to find best canvas for given image.
+  If two different canvases which support the same image data format are
+  registered then the one that was registered later is returned (so you can
+  override builtin Imaging canvases).}
+procedure RegisterCanvas(CanvasClass: TImagingCanvasClass);
+{ Returns best canvas for given TImageFormat.}
+function FindBestCanvasForImage(ImageFormat: TImageFormat): TImagingCanvasClass; overload;
+{ Returns best canvas for given TImageData.}
+function FindBestCanvasForImage(const ImageData: TImageData): TImagingCanvasClass; overload;
+{ Returns best canvas for given TBaseImage.}
+function FindBestCanvasForImage(Image: TBaseImage): TImagingCanvasClass; overload;
+
+implementation
+
+resourcestring
+  SConstructorInvalidPointer = 'Invalid pointer (%p) to TImageData passed to TImagingCanvas constructor.';
+  SConstructorInvalidImage = 'Invalid image data passed to TImagingCanvas constructor (%s).';
+  SConstructorUnsupportedFormat = 'Image passed to TImagingCanvas constructor is in unsupported format (%s)';
+
+var
+  // list with all registered TImagingCanvas classes
+  CanvasClasses: TList = nil;
+
+procedure RegisterCanvas(CanvasClass: TImagingCanvasClass);
+begin
+  Assert(CanvasClass <> nil);
+  if CanvasClasses = nil then
+    CanvasClasses := TList.Create;
+  if CanvasClasses.IndexOf(CanvasClass) < 0 then
+    CanvasClasses.Add(CanvasClass);
+end;
+
+function FindBestCanvasForImage(ImageFormat: TImageFormat): TImagingCanvasClass; overload;
+var
+  I: LongInt;
+begin
+  for I := CanvasClasses.Count - 1 downto 0 do
+  begin
+    if ImageFormat in TImagingCanvasClass(CanvasClasses[I]).GetSupportedFormats then
+    begin
+      Result := TImagingCanvasClass(CanvasClasses[I]);
+      Exit;
+    end;
+  end;
+  Result := TImagingCanvas;
+end;
+
+function FindBestCanvasForImage(const ImageData: TImageData): TImagingCanvasClass;
+begin
+  Result := FindBestCanvasForImage(ImageData.Format);
+end;
+
+function FindBestCanvasForImage(Image: TBaseImage): TImagingCanvasClass;
+begin
+  Result := FindBestCanvasForImage(Image.Format);
+end;
+
+{ Canvas helper functions }
+
+procedure PixelBlendProc(const SrcPix: TColorFPRec; DestPtr: PByte;
+  DestInfo: PImageFormatInfo; SrcFactor, DestFactor: TBlendingFactor);
+var
+  DestPix, FSrc, FDst: TColorFPRec;
+begin
+  // Get set pixel color
+  DestPix := DestInfo.GetPixelFP(DestPtr, DestInfo, nil);
+  // Determine current blending factors
+  case SrcFactor of
+    bfZero:             FSrc := ColorFP(0, 0, 0, 0);
+    bfOne:              FSrc := ColorFP(1, 1, 1, 1);
+    bfSrcAlpha:         FSrc := ColorFP(SrcPix.A, SrcPix.A, SrcPix.A, SrcPix.A);
+    bfOneMinusSrcAlpha: FSrc := ColorFP(1 - SrcPix.A, 1 - SrcPix.A, 1 - SrcPix.A, 1 - SrcPix.A);
+    bfDstAlpha:         FSrc := ColorFP(DestPix.A, DestPix.A, DestPix.A, DestPix.A);
+    bfOneMinusDstAlpha: FSrc := ColorFP(1 - DestPix.A, 1 - DestPix.A, 1 - DestPix.A, 1 - DestPix.A);
+    bfDstColor:         FSrc := ColorFP(DestPix.A, DestPix.R, DestPix.G, DestPix.B);
+    bfOneMinusDstColor: FSrc := ColorFP(1 - DestPix.A, 1 - DestPix.R, 1 - DestPix.G, 1 - DestPix.B);
+  end;
+  case DestFactor of
+    bfZero:             FDst := ColorFP(0, 0, 0, 0);
+    bfOne:              FDst := ColorFP(1, 1, 1, 1);
+    bfSrcAlpha:         FDst := ColorFP(SrcPix.A, SrcPix.A, SrcPix.A, SrcPix.A);
+    bfOneMinusSrcAlpha: FDst := ColorFP(1 - SrcPix.A, 1 - SrcPix.A, 1 - SrcPix.A, 1 - SrcPix.A);
+    bfDstAlpha:         FDst := ColorFP(DestPix.A, DestPix.A, DestPix.A, DestPix.A);
+    bfOneMinusDstAlpha: FDst := ColorFP(1 - DestPix.A, 1 - DestPix.A, 1 - DestPix.A, 1 - DestPix.A);
+    bfSrcColor:         FDst := ColorFP(SrcPix.A, SrcPix.R, SrcPix.G, SrcPix.B);
+    bfOneMinusSrcColor: FDst := ColorFP(1 - SrcPix.A, 1 - SrcPix.R, 1 - SrcPix.G, 1 - SrcPix.B);
+  end;
+  // Compute blending formula
+  DestPix.R := SrcPix.R * FSrc.R + DestPix.R * FDst.R;
+  DestPix.G := SrcPix.G * FSrc.G + DestPix.G * FDst.G;
+  DestPix.B := SrcPix.B * FSrc.B + DestPix.B * FDst.B;
+  DestPix.A := SrcPix.A * FSrc.A + DestPix.A * FDst.A;
+  // Write blended pixel
+  DestInfo.SetPixelFP(DestPtr, DestInfo, nil, DestPix);
+end;
+
+procedure PixelAlphaProc(const SrcPix: TColorFPRec; DestPtr: PByte;
+  DestInfo: PImageFormatInfo; SrcFactor, DestFactor: TBlendingFactor);
+var
+  DestPix: TColorFPRec;
+  SrcAlpha, DestAlpha: Single;
+begin
+  DestPix := DestInfo.GetPixelFP(DestPtr, DestInfo, nil);
+  // Blend the two pixels (Src 'over' Dest alpha composition operation)
+  DestPix.A := SrcPix.A + DestPix.A - SrcPix.A * DestPix.A;
+  if DestPix.A = 0 then
+    SrcAlpha := 0
+  else
+    SrcAlpha := SrcPix.A / DestPix.A;
+  DestAlpha := 1.0 - SrcAlpha;
+  DestPix.R := SrcPix.R * SrcAlpha + DestPix.R * DestAlpha;
+  DestPix.G := SrcPix.G * SrcAlpha + DestPix.G * DestAlpha;
+  DestPix.B := SrcPix.B * SrcAlpha + DestPix.B * DestAlpha;
+  // Write blended pixel
+  DestInfo.SetPixelFP(DestPtr, DestInfo, nil, DestPix);
+end;
+
+procedure PixelAddProc(const SrcPix: TColorFPRec; DestPtr: PByte;
+  DestInfo: PImageFormatInfo; SrcFactor, DestFactor: TBlendingFactor);
+var
+  DestPix: TColorFPRec;
+begin
+  // Just add Src and Dest
+  DestPix := DestInfo.GetPixelFP(DestPtr, DestInfo, nil);
+  DestPix.R := SrcPix.R + DestPix.R;
+  DestPix.G := SrcPix.G + DestPix.G;
+  DestPix.B := SrcPix.B + DestPix.B;
+  DestPix.A := SrcPix.A + DestPix.A;
+  DestInfo.SetPixelFP(DestPtr, DestInfo, nil, DestPix);
+end;
+
+function CompareColors(const C1, C2: TColorFPRec): Single; {$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  Result := (C1.R * GrayConv.R + C1.G * GrayConv.G + C1.B * GrayConv.B) -
+    (C2.R * GrayConv.R + C2.G * GrayConv.G + C2.B * GrayConv.B);
+end;
+
+function MedianSelect(var Pixels: TDynFPPixelArray): TColorFPRec;
+
+  procedure QuickSort(L, R: Integer);
+  var
+    I, J: Integer;
+    P, Temp: TColorFPRec;
+  begin
+    repeat
+      I := L;
+      J := R;
+      P := Pixels[(L + R) shr 1];
+      repeat
+        while CompareColors(Pixels[I], P) < 0 do Inc(I);
+        while CompareColors(Pixels[J], P) > 0 do Dec(J);
+        if I <= J then
+        begin
+          Temp := Pixels[I];
+          Pixels[I] := Pixels[J];
+          Pixels[J] := Temp;
+          Inc(I);
+          Dec(J);
+        end;
+      until I > J;
+      if L < J then
+        QuickSort(L, J);
+      L := I;
+    until I >= R;
+  end;
+
+begin
+  // First sort pixels
+  QuickSort(0, High(Pixels));
+  // Select middle pixel
+  Result := Pixels[Length(Pixels) div 2];
+end;
+
+function MinSelect(var Pixels: TDynFPPixelArray): TColorFPRec;
+var
+  I: Integer;
+begin
+  Result := Pixels[0];
+  for I := 1 to High(Pixels) do
+  begin
+    if CompareColors(Pixels[I], Result) < 0 then
+      Result := Pixels[I];
+  end;
+end;
+
+function MaxSelect(var Pixels: TDynFPPixelArray): TColorFPRec;
+var
+  I: Integer;
+begin
+  Result := Pixels[0];
+  for I := 1 to High(Pixels) do
+  begin
+    if CompareColors(Pixels[I], Result) > 0 then
+      Result := Pixels[I];
+  end;
+end;
+
+function TransformContrastBrightness(const Pixel: TColorFPRec; C, B, P3: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  Result.R := Pixel.R * C + B;
+  Result.G := Pixel.G * C + B;
+  Result.B := Pixel.B * C + B;
+end;
+
+function TransformGamma(const Pixel: TColorFPRec; R, G, B: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  Result.R := Power(Pixel.R, 1.0 / R);
+  Result.G := Power(Pixel.G, 1.0 / G);
+  Result.B := Power(Pixel.B, 1.0 / B);
+end;
+
+function TransformInvert(const Pixel: TColorFPRec; P1, P2, P3: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  Result.R := 1.0 - Pixel.R;
+  Result.G := 1.0 - Pixel.G;
+  Result.B := 1.0 - Pixel.B;
+end;
+
+function TransformThreshold(const Pixel: TColorFPRec; R, G, B: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  Result.R := IffFloat(Pixel.R >= R, 1.0, 0.0);
+  Result.G := IffFloat(Pixel.G >= G, 1.0, 0.0);
+  Result.B := IffFloat(Pixel.B >= B, 1.0, 0.0);
+end;
+
+function TransformLevels(const Pixel: TColorFPRec; BlackPoint, WhitePoint, Exp: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  if Pixel.R > BlackPoint then
+    Result.R := Power((Pixel.R - BlackPoint) / (WhitePoint - BlackPoint), Exp)
+  else
+    Result.R := 0.0;
+  if Pixel.G > BlackPoint then
+    Result.G := Power((Pixel.G - BlackPoint) / (WhitePoint - BlackPoint), Exp)
+  else
+    Result.G := 0.0;
+  if Pixel.B > BlackPoint then
+    Result.B := Power((Pixel.B - BlackPoint) / (WhitePoint - BlackPoint), Exp)
+  else
+    Result.B := 0.0;
+end;
+
+function TransformPremultiplyAlpha(const Pixel: TColorFPRec; P1, P2, P3: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  Result.R := Result.R * Pixel.A;
+  Result.G := Result.G * Pixel.A;
+  Result.B := Result.B * Pixel.A;
+end;
+
+function TransformUnPremultiplyAlpha(const Pixel: TColorFPRec; P1, P2, P3: Single): TColorFPRec;
+begin
+  Result.A := Pixel.A;
+  if Pixel.A <> 0.0 then
+  begin
+    Result.R := Result.R / Pixel.A;
+    Result.G := Result.G / Pixel.A;
+    Result.B := Result.B / Pixel.A;
+  end
+  else
+  begin
+    Result.R := 0;
+    Result.G := 0;
+    Result.B := 0;
+  end;
+end;
+
+
+{ TImagingCanvas class implementation }
+
+constructor TImagingCanvas.CreateForData(ImageDataPointer: PImageData);
+begin
+  if ImageDataPointer = nil then
+    raise EImagingCanvasError.CreateFmt(SConstructorInvalidPointer, [ImageDataPointer]);
+
+  if not TestImage(ImageDataPointer^) then
+    raise EImagingCanvasError.CreateFmt(SConstructorInvalidImage, [Imaging.ImageToStr(ImageDataPointer^)]);
+
+  if not (ImageDataPointer.Format in GetSupportedFormats) then
+    raise EImagingCanvasError.CreateFmt(SConstructorUnsupportedFormat, [Imaging.ImageToStr(ImageDataPointer^)]);
+
+  FPData := ImageDataPointer;
+  FPenWidth := 1;
+  SetPenColor32(pcWhite);
+  SetFillColor32(pcBlack);
+  FFillMode := fmSolid;
+
+  UpdateCanvasState;
+end;
+
+constructor TImagingCanvas.CreateForImage(Image: TBaseImage);
+begin
+  CreateForData(Image.ImageDataPointer);
+end;
+
+destructor TImagingCanvas.Destroy;
+begin
+  inherited Destroy;
+end;
+
+function TImagingCanvas.GetPixel32(X, Y: LongInt): TColor32;
+begin
+  Result := Imaging.GetPixel32(FPData^, X, Y).Color;
+end;
+
+function TImagingCanvas.GetPixelFP(X, Y: LongInt): TColorFPRec;
+begin
+  Result := Imaging.GetPixelFP(FPData^, X, Y);
+end;
+
+function TImagingCanvas.GetValid: Boolean;
+begin
+  Result := (FPData <> nil) and (FDataSizeOnUpdate = FPData.Size);
+end;
+
+procedure TImagingCanvas.SetPixel32(X, Y: LongInt; const Value: TColor32);
+begin
+  if (X >= FClipRect.Left) and (Y >= FClipRect.Top) and
+    (X < FClipRect.Right) and (Y < FClipRect.Bottom) then
+  begin
+    Imaging.SetPixel32(FPData^, X, Y, TColor32Rec(Value));
+  end;
+end;
+
+procedure TImagingCanvas.SetPixelFP(X, Y: LongInt; const Value: TColorFPRec);
+begin
+  if (X >= FClipRect.Left) and (Y >= FClipRect.Top) and
+    (X < FClipRect.Right) and (Y < FClipRect.Bottom) then
+  begin
+    Imaging.SetPixelFP(FPData^, X, Y, TColorFPRec(Value));
+  end;
+end;
+
+procedure TImagingCanvas.SetPenColor32(const Value: TColor32);
+begin
+  FPenColor32 := Value;
+  TranslatePixel(@FPenColor32, @FPenColorFP, ifA8R8G8B8, ifA32R32G32B32F, nil, nil);
+end;
+
+procedure TImagingCanvas.SetPenColorFP(const Value: TColorFPRec);
+begin
+  FPenColorFP := Value;
+  TranslatePixel(@FPenColorFP, @FPenColor32, ifA32R32G32B32F, ifA8R8G8B8, nil, nil);
+end;
+
+procedure TImagingCanvas.SetPenWidth(const Value: LongInt);
+begin
+  FPenWidth := ClampInt(Value, 0, MaxPenWidth);
+end;
+
+procedure TImagingCanvas.SetFillColor32(const Value: TColor32);
+begin
+  FFillColor32 := Value;
+  TranslatePixel(@FFillColor32, @FFillColorFP, ifA8R8G8B8, ifA32R32G32B32F, nil, nil);
+end;
+
+procedure TImagingCanvas.SetFillColorFP(const Value: TColorFPRec);
+begin
+  FFillColorFP := Value;
+  TranslatePixel(@FFillColorFP, @FFillColor32, ifA32R32G32B32F, ifA8R8G8B8, nil, nil);
+end;
+
+procedure TImagingCanvas.SetClipRect(const Value: TRect);
+begin
+  FClipRect := Value;
+  SwapMin(FClipRect.Left, FClipRect.Right);
+  SwapMin(FClipRect.Top, FClipRect.Bottom);
+  IntersectRect(FClipRect, FClipRect, Rect(0, 0, FPData.Width, FPData.Height));
+end;
+
+procedure TImagingCanvas.CheckBeforeBlending(SrcFactor,
+  DestFactor: TBlendingFactor; DestCanvas: TImagingCanvas);
+begin
+  if SrcFactor in [bfSrcColor, bfOneMinusSrcColor] then
+    raise EImagingCanvasBlendingError.Create('Invalid source blending factor. Check the documentation for TBlendingFactor.');
+  if DestFactor in [bfDstColor, bfOneMinusDstColor] then
+    raise EImagingCanvasBlendingError.Create('Invalid destination blending factor. Check the documentation for TBlendingFactor.');
+  if DestCanvas.FormatInfo.IsIndexed then
+    raise EImagingCanvasBlendingError.Create('Blending destination canvas cannot be in indexed mode.');
+end;
+
+function TImagingCanvas.GetPixelPointer(X, Y: LongInt): Pointer;
+begin
+  Result := @PByteArray(FPData.Bits)[(Y * FPData.Width + X) * FFormatInfo.BytesPerPixel]
+end;
+
+procedure TImagingCanvas.TranslateFPToNative(const Color: TColorFPRec);
+begin
+  TranslateFPToNative(Color, @FNativeColor);
+end;
+
+procedure TImagingCanvas.TranslateFPToNative(const Color: TColorFPRec;
+  Native: Pointer);
+begin
+  ImagingFormats.TranslatePixel(@Color, Native, ifA32R32G32B32F,
+    FPData.Format, nil, FPData.Palette);
+end;
+
+procedure TImagingCanvas.UpdateCanvasState;
+begin
+  FDataSizeOnUpdate := FPData.Size;
+  ResetClipRect;
+  Imaging.GetImageFormatInfo(FPData.Format, FFormatInfo)
+end;
+
+procedure TImagingCanvas.ResetClipRect;
+begin
+  FClipRect := Rect(0, 0, FPData.Width, FPData.Height)
+end;
+
+procedure TImagingCanvas.Clear;
+begin
+  TranslateFPToNative(FFillColorFP);
+  Imaging.FillRect(FPData^, 0, 0, FPData.Width, FPData.Height, @FNativeColor);
+end;
+
+function TImagingCanvas.ClipAxisParallelLine(var A1, A2, B: LongInt;
+  AStart, AStop, BStart, BStop: LongInt): Boolean;
+begin
+  if (B >= BStart) and (B < BStop) then
+  begin
+    SwapMin(A1, A2);
+    if A1 < AStart then A1 := AStart;
+    if A2 >= AStop then A2 := AStop - 1;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+procedure TImagingCanvas.HorzLineInternal(X1, X2, Y: LongInt; Color: Pointer;
+  Bpp: LongInt);
+var
+  I, WidthBytes: LongInt;
+  PixelPtr: PByte;
+begin
+  if (Y >= FClipRect.Top) and (Y < FClipRect.Bottom) then
+  begin
+    SwapMin(X1, X2);
+    X1 := Max(X1, FClipRect.Left);
+    X2 := Min(X2, FClipRect.Right);
+    PixelPtr := GetPixelPointer(X1, Y);
+    WidthBytes := (X2 - X1) * Bpp;
+    case Bpp of
+      1: FillMemoryByte(PixelPtr, WidthBytes, PByte(Color)^);
+      2: FillMemoryWord(PixelPtr, WidthBytes, PWord(Color)^);
+      4: FillMemoryLongWord(PixelPtr, WidthBytes, PLongWord(Color)^);
+    else
+      for I := X1 to X2 do
+      begin
+        ImagingFormats.CopyPixel(Color, PixelPtr, Bpp);
+        Inc(PixelPtr, Bpp);
+       end;
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.CopyPixelInternal(X, Y: LongInt; Pixel: Pointer;
+  Bpp: LongInt);
+begin
+  if (X >= FClipRect.Left) and (Y >= FClipRect.Top) and
+    (X < FClipRect.Right) and (Y < FClipRect.Bottom) then
+  begin
+    ImagingFormats.CopyPixel(Pixel, GetPixelPointer(X, Y), Bpp);
+  end;
+end;
+
+procedure TImagingCanvas.HorzLine(X1, X2, Y: LongInt);
+var
+  DstRect: TRect;
+begin
+  if FPenMode = pmClear then Exit;
+  SwapMin(X1, X2);
+  if IntersectRect(DstRect, Rect(X1, Y - FPenWidth div 2, X2,
+    Y + FPenWidth div 2 + FPenWidth mod 2), FClipRect) then
+  begin
+    TranslateFPToNative(FPenColorFP);
+    Imaging.FillRect(FPData^, DstRect.Left, DstRect.Top, DstRect.Right - DstRect.Left,
+      DstRect.Bottom - DstRect.Top, @FNativeColor);
+  end;
+end;
+
+procedure TImagingCanvas.VertLine(X, Y1, Y2: LongInt);
+var
+  DstRect: TRect;
+begin
+  if FPenMode = pmClear then Exit;
+  SwapMin(Y1, Y2);
+  if IntersectRect(DstRect, Rect(X - FPenWidth div 2, Y1,
+    X + FPenWidth div 2 + FPenWidth mod 2, Y2), FClipRect) then
+  begin
+    TranslateFPToNative(FPenColorFP);
+    Imaging.FillRect(FPData^, DstRect.Left, DstRect.Top, DstRect.Right - DstRect.Left,
+      DstRect.Bottom - DstRect.Top, @FNativeColor);
+  end;
+end;
+
+procedure TImagingCanvas.Line(X1, Y1, X2, Y2: LongInt);
+var
+  Steep: Boolean;
+  Error, YStep, DeltaX, DeltaY, X, Y, I, Bpp, W1, W2, Code1, Code2: LongInt;
+begin
+  if FPenMode = pmClear then Exit;
+
+  // If line is vertical or horizontal just call appropriate method
+  if X2 = X1 then
+  begin
+    VertLine(X1, Y1, Y2);
+    Exit;
+  end;
+  if Y2 = Y1 then
+  begin
+    HorzLine(X1, X2, Y1);
+    Exit;
+  end;
+
+  // Determine if line is steep (angle with X-axis > 45 degrees)
+  Steep := Abs(Y2 - Y1) > Abs(X2 - X1);
+
+  // If we need to draw thick line we just draw more 1 pixel lines around
+  // the one we already drawn. Setting FLineRecursion assures that we
+  // won't be doing recursions till the end of the world.
+  if (FPenWidth > 1) and not FLineRecursion then
+  begin
+    FLineRecursion := True;
+    W1 := FPenWidth div 2;
+    W2 := W1;
+    if FPenWidth mod 2 = 0 then
+      Dec(W1);
+    if Steep then
+    begin
+      // Add lines left/right
+      for I := 1 to W1 do
+        Line(X1, Y1 - I, X2, Y2 - I);
+      for I := 1 to W2 do
+        Line(X1, Y1 + I, X2, Y2 + I);
+    end
+    else
+    begin
+      // Add lines above/under
+      for I := 1 to W1 do
+        Line(X1 - I, Y1, X2 - I, Y2);
+      for I := 1 to W2 do
+        Line(X1 + I, Y1, X2 + I, Y2);
+    end;
+    FLineRecursion := False;
+  end;
+
+  with FClipRect do
+  begin
+    // Use part of Cohen-Sutherland line clipping to determine if any part of line
+    // is in ClipRect
+    Code1 := Ord(X1 < Left) + Ord(X1 > Right) shl 1 + Ord(Y1 < Top) shl 2 + Ord(Y1 > Bottom) shl 3;
+    Code2 := Ord(X2 < Left) + Ord(X2 > Right) shl 1 + Ord(Y2 < Top) shl 2 + Ord(Y2 > Bottom) shl 3;
+  end;
+
+  if (Code1 and Code2) = 0 then
+  begin
+    TranslateFPToNative(FPenColorFP);
+    Bpp := FFormatInfo.BytesPerPixel;
+
+    // If line is steep swap X and Y coordinates so later we just have one loop
+    // of two (where only one is used according to steepness).
+    if Steep then
+    begin
+      SwapValues(X1, Y1);
+      SwapValues(X2, Y2);
+    end;
+    if X1 > X2 then
+    begin
+      SwapValues(X1, X2);
+      SwapValues(Y1, Y2);
+    end;
+
+    DeltaX := X2 - X1;
+    DeltaY := Abs(Y2 - Y1);
+    YStep := Iff(Y2 > Y1, 1, -1);
+    Error := 0;
+    Y := Y1;
+
+    // Draw line using Bresenham algorithm. No real line clipping here,
+    // just don't draw pixels outsize clip rect.
+    for X := X1 to X2 do
+    begin
+      if Steep then
+        CopyPixelInternal(Y, X, @FNativeColor, Bpp)
+      else
+        CopyPixelInternal(X, Y, @FNativeColor, Bpp);
+      Error := Error + DeltaY;
+      if Error * 2 >= DeltaX then
+      begin
+        Inc(Y, YStep);
+        Dec(Error, DeltaX);
+      end;
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.FrameRect(const Rect: TRect);
+var
+  HalfPen, PenMod: LongInt;
+begin
+  if FPenMode = pmClear then Exit;
+  HalfPen := FPenWidth div 2;
+  PenMod := FPenWidth mod 2;
+  HorzLine(Rect.Left - HalfPen, Rect.Right + HalfPen + PenMod - 1, Rect.Top);
+  HorzLine(Rect.Left - HalfPen, Rect.Right + HalfPen + PenMod - 1, Rect.Bottom - 1);
+  VertLine(Rect.Left, Rect.Top, Rect.Bottom);
+  VertLine(Rect.Right - 1, Rect.Top, Rect.Bottom);
+end;
+
+procedure TImagingCanvas.FillRect(const Rect: TRect);
+var
+  DstRect: TRect;
+begin
+  if (FFillMode <> fmClear) and IntersectRect(DstRect, Rect, FClipRect) then
+  begin
+    TranslateFPToNative(FFillColorFP);
+    Imaging.FillRect(FPData^, DstRect.Left, DstRect.Top, DstRect.Right - DstRect.Left,
+      DstRect.Bottom - DstRect.Top, @FNativeColor);
+  end;
+end;
+
+procedure TImagingCanvas.FillRectBlend(const Rect: TRect; SrcFactor,
+  DestFactor: TBlendingFactor);
+var
+  DstRect: TRect;
+  X, Y: Integer;
+  Line: PByte;
+begin
+  if (FFillMode <> fmClear) and IntersectRect(DstRect, Rect, FClipRect) then
+  begin
+    CheckBeforeBlending(SrcFactor, DestFactor, Self);
+    for Y := DstRect.Top to DstRect.Bottom - 1 do
+    begin
+      Line := @PByteArray(FPData.Bits)[(Y * FPData.Width + DstRect.Left) * FFormatInfo.BytesPerPixel];
+      for X := DstRect.Left to DstRect.Right - 1 do
+      begin
+        PixelBlendProc(FFillColorFP, Line, @FFormatInfo, SrcFactor, DestFactor);
+        Inc(Line, FFormatInfo.BytesPerPixel);
+      end;
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.Rectangle(const Rect: TRect);
+begin
+  FillRect(Rect);
+  FrameRect(Rect);
+end;
+
+procedure TImagingCanvas.Ellipse(const Rect: TRect);
+var
+ RadX, RadY, DeltaX, DeltaY, R, RX, RY: LongInt;
+ X1, X2, Y1, Y2, Bpp, OldY: LongInt;
+ Fill, Pen: TColorFPRec;
+begin
+  // TODO: Use PenWidth
+  X1 := Rect.Left;
+  X2 := Rect.Right;
+  Y1 := Rect.Top;
+  Y2 := Rect.Bottom;
+
+  TranslateFPToNative(FPenColorFP, @Pen);
+  TranslateFPToNative(FFillColorFP, @Fill);
+  Bpp := FFormatInfo.BytesPerPixel;
+
+  SwapMin(X1, X2);
+  SwapMin(Y1, Y2);
+
+  RadX := (X2 - X1) div 2;
+  RadY := (Y2 - Y1) div 2;
+
+  Y1 := Y1 + RadY;
+  Y2 := Y1;
+  OldY := Y1;
+
+  DeltaX := (RadX * RadX);
+  DeltaY := (RadY * RadY);
+  R  := RadX * RadY * RadY;
+  RX := R;
+  RY := 0;
+
+  if (FFillMode <> fmClear) then
+    HorzLineInternal(X1, X2, Y1, @Fill, Bpp);
+  CopyPixelInternal(X1, Y1, @Pen, Bpp);
+  CopyPixelInternal(X2, Y1, @Pen, Bpp);
+
+  while RadX > 0 do
+  begin
+    if R > 0 then
+    begin
+      Inc(Y1);
+      Dec(Y2);
+      Inc(RY, DeltaX);
+      Dec(R, RY);
+    end;
+    if R <= 0 then
+    begin
+      Dec(RadX);
+      Inc(X1);
+      Dec(X2);
+      Dec(RX, DeltaY);
+      Inc(R, RX);
+    end;
+
+    if (OldY <> Y1) and (FFillMode <> fmClear) then
+    begin
+      HorzLineInternal(X1, X2, Y1, @Fill, Bpp);
+      HorzLineInternal(X1, X2, Y2, @Fill, Bpp);
+    end;
+    OldY := Y1;
+
+    CopyPixelInternal(X1, Y1, @Pen, Bpp);
+    CopyPixelInternal(X2, Y1, @Pen, Bpp);
+    CopyPixelInternal(X1, Y2, @Pen, Bpp);
+    CopyPixelInternal(X2, Y2, @Pen, Bpp);
+  end;
+end;
+
+procedure TImagingCanvas.FloodFill(X, Y: Integer; BoundaryFillMode: Boolean);
+var
+  Stack: array of TPoint;
+  StackPos, Y1: Integer;
+  OldColor: TColor32;
+  SpanLeft, SpanRight: Boolean;
+
+  procedure Push(AX, AY: Integer);
+  begin
+    if StackPos < High(Stack) then
+    begin
+      Inc(StackPos);
+      Stack[StackPos].X := AX;
+      Stack[StackPos].Y := AY;
+    end
+    else
+    begin
+      SetLength(Stack, Length(Stack) + FPData.Width);
+      Push(AX, AY);
+    end;
+  end;
+
+  function Pop(out AX, AY: Integer): Boolean;
+  begin
+    if StackPos > 0 then
+    begin
+      AX := Stack[StackPos].X;
+      AY := Stack[StackPos].Y;
+      Dec(StackPos);
+      Result := True;
+    end
+    else
+      Result := False;
+  end;
+
+  function Compare(AX, AY: Integer): Boolean;
+  var
+    Color: TColor32;
+  begin
+    Color := GetPixel32(AX, AY);
+    if BoundaryFillMode then
+      Result := (Color <> FFillColor32) and (Color <> FPenColor32)
+    else
+      Result := Color = OldColor;
+  end;
+
+begin
+  // Scanline Floodfill Algorithm With Stack
+  // http://student.kuleuven.be/~m0216922/CG/floodfill.html
+
+  if not PtInRect(FClipRect, Point(X, Y)) then Exit;
+
+  SetLength(Stack, FPData.Width * 4);
+  StackPos := 0;
+
+  OldColor := GetPixel32(X, Y);
+
+  Push(X, Y);
+
+  while Pop(X, Y) do
+  begin
+    Y1 := Y;
+    while (Y1 >= FClipRect.Top) and Compare(X, Y1) do
+      Dec(Y1);
+
+    Inc(Y1);
+    SpanLeft := False;
+    SpanRight := False;
+
+    while (Y1 < FClipRect.Bottom) and Compare(X, Y1) do
+    begin
+      SetPixel32(X, Y1, FFillColor32);
+      if not SpanLeft and (X > FClipRect.Left) and Compare(X - 1, Y1) then
+      begin
+        Push(X - 1, Y1);
+        SpanLeft := True;
+      end
+      else if SpanLeft and (X > FClipRect.Left) and not Compare(X - 1, Y1) then
+        SpanLeft := False
+      else if not SpanRight and (X < FClipRect.Right - 1) and Compare(X + 1, Y1)then
+      begin
+        Push(X + 1, Y1);
+        SpanRight := True;
+      end
+      else if SpanRight and (X < FClipRect.Right - 1) and not Compare(X + 1, Y1) then
+        SpanRight := False;
+
+      Inc(Y1);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.DrawInternal(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; DestX, DestY: Integer; SrcFactor,
+  DestFactor: TBlendingFactor; PixelWriteProc: TPixelWriteProc);
+var
+  X, Y, SrcX, SrcY, Width, Height, SrcBpp, DestBpp: Integer;
+  PSrc: TColorFPRec;
+  SrcPointer, DestPointer: PByte;
+begin
+  CheckBeforeBlending(SrcFactor, DestFactor, DestCanvas);
+  SrcX := SrcRect.Left;
+  SrcY := SrcRect.Top;
+  Width := SrcRect.Right - SrcRect.Left;
+  Height := SrcRect.Bottom - SrcRect.Top;
+  SrcBpp := FFormatInfo.BytesPerPixel;
+  DestBpp := DestCanvas.FFormatInfo.BytesPerPixel;
+  // Clip src and dst rects
+  ClipCopyBounds(SrcX, SrcY, Width, Height, DestX, DestY,
+    FPData.Width, FPData.Height, DestCanvas.ClipRect);
+
+  for Y := 0 to Height - 1 do
+  begin
+    // Get src and dst scanlines
+    SrcPointer := @PByteArray(FPData.Bits)[((SrcY + Y) * FPData.Width + SrcX) * SrcBpp];
+    DestPointer := @PByteArray(DestCanvas.FPData.Bits)[((DestY + Y) * DestCanvas.FPData.Width + DestX) * DestBpp];
+
+    for X := 0 to Width - 1 do
+    begin
+      PSrc := FFormatInfo.GetPixelFP(SrcPointer, @FFormatInfo, FPData.Palette);
+      // Call pixel writer procedure - combine source and dest pixels
+      PixelWriteProc(PSrc, DestPointer, @DestCanvas.FFormatInfo, SrcFactor, DestFactor);
+      // Increment pixel pointers
+      Inc(SrcPointer, SrcBpp);
+      Inc(DestPointer, DestBpp);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.DrawBlend(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+  DestX, DestY: Integer; SrcFactor, DestFactor: TBlendingFactor);
+begin
+  DrawInternal(SrcRect, DestCanvas, DestX, DestY, SrcFactor, DestFactor, PixelBlendProc);
+end;
+
+procedure TImagingCanvas.DrawAlpha(const SrcRect: TRect; DestCanvas: TImagingCanvas;
+  DestX, DestY: Integer);
+begin
+  DrawInternal(SrcRect, DestCanvas, DestX, DestY, bfIgnore, bfIgnore, PixelAlphaProc);
+end;
+
+procedure TImagingCanvas.DrawAdd(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; DestX, DestY: Integer);
+begin
+  DrawInternal(SrcRect, DestCanvas, DestX, DestY, bfIgnore, bfIgnore, PixelAddProc);
+end;
+
+procedure TImagingCanvas.StretchDrawInternal(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; const DestRect: TRect;
+  SrcFactor, DestFactor: TBlendingFactor; Filter: TResizeFilter;
+  PixelWriteProc: TPixelWriteProc);
+const
+  FilterMapping: array[TResizeFilter] of TSamplingFilter =
+    (sfNearest, sfLinear, DefaultCubicFilter, sfLanczos);
+var
+  X, Y, I, J, SrcX, SrcY, SrcWidth, SrcHeight: Integer;
+  DestX, DestY, DestWidth, DestHeight, SrcBpp, DestBpp: Integer;
+  SrcPix: TColorFPRec;
+  MapX, MapY: TMappingTable;
+  XMinimum, XMaximum: Integer;
+  LineBuffer: array of TColorFPRec;
+  ClusterX, ClusterY: TCluster;
+  Weight, AccumA, AccumR, AccumG, AccumB: Single;
+  DestLine: PByte;
+  FilterFunction: TFilterFunction;
+  Radius: Single;
+begin
+  CheckBeforeBlending(SrcFactor, DestFactor, DestCanvas);
+  SrcX := SrcRect.Left;
+  SrcY := SrcRect.Top;
+  SrcWidth := SrcRect.Right - SrcRect.Left;
+  SrcHeight := SrcRect.Bottom - SrcRect.Top;
+  DestX := DestRect.Left;
+  DestY := DestRect.Top;
+  DestWidth := DestRect.Right - DestRect.Left;
+  DestHeight := DestRect.Bottom - DestRect.Top;
+  SrcBpp := FFormatInfo.BytesPerPixel;
+  DestBpp := DestCanvas.FFormatInfo.BytesPerPixel;
+  // Get actual resampling filter and radius
+  FilterFunction := SamplingFilterFunctions[FilterMapping[Filter]];
+  Radius := SamplingFilterRadii[FilterMapping[Filter]];
+  // Clip src and dst rects
+  ClipStretchBounds(SrcX, SrcY, SrcWidth, SrcHeight, DestX, DestY, DestWidth, DestHeight,
+      FPData.Width, FPData.Height, DestCanvas.ClipRect);
+  // Generate mapping tables
+  MapX := BuildMappingTable(DestX, DestX + DestWidth, SrcX, SrcX + SrcWidth,
+    FPData.Width, FilterFunction, Radius, False);
+  MapY := BuildMappingTable(DestY, DestY + DestHeight, SrcY, SrcY + SrcHeight,
+    FPData.Height, FilterFunction, Radius, False);
+  FindExtremes(MapX, XMinimum, XMaximum);
+  SetLength(LineBuffer, XMaximum - XMinimum + 1);
+
+  for J := 0 to DestHeight - 1 do
+  begin
+    ClusterY := MapY[J];
+    for X := XMinimum to XMaximum do
+    begin
+      AccumA := 0.0;
+      AccumR := 0.0;
+      AccumG := 0.0;
+      AccumB := 0.0;
+      for Y := 0 to Length(ClusterY) - 1 do
+      begin
+        Weight := ClusterY[Y].Weight;
+        SrcPix := FFormatInfo.GetPixelFP(@PByteArray(FPData.Bits)[(ClusterY[Y].Pos * FPData.Width + X) * SrcBpp],
+          @FFormatInfo, FPData.Palette);
+        AccumB := AccumB + SrcPix.B * Weight;
+        AccumG := AccumG + SrcPix.G * Weight;
+        AccumR := AccumR + SrcPix.R * Weight;
+        AccumA := AccumA + SrcPix.A * Weight;
+      end;
+      with LineBuffer[X - XMinimum] do
+      begin
+        A := AccumA;
+        R := AccumR;
+        G := AccumG;
+        B := AccumB;
+      end;
+    end;
+
+    DestLine := @PByteArray(DestCanvas.FPData.Bits)[((J + DestY) * DestCanvas.FPData.Width + DestX) * DestBpp];
+
+    for I := 0 to DestWidth - 1 do
+    begin
+      ClusterX := MapX[I];
+      AccumA := 0.0;
+      AccumR := 0.0;
+      AccumG := 0.0;
+      AccumB := 0.0;
+      for X := 0 to Length(ClusterX) - 1 do
+      begin
+        Weight := ClusterX[X].Weight;
+        with LineBuffer[ClusterX[X].Pos - XMinimum] do
+        begin
+          AccumB := AccumB + B * Weight;
+          AccumG := AccumG + G * Weight;
+          AccumR := AccumR + R * Weight;
+          AccumA := AccumA + A * Weight;
+        end;
+      end;
+
+      SrcPix.A := AccumA;
+      SrcPix.R := AccumR;
+      SrcPix.G := AccumG;
+      SrcPix.B := AccumB;
+
+      // Write resulting blended pixel
+      PixelWriteProc(SrcPix, DestLine, @DestCanvas.FFormatInfo, SrcFactor, DestFactor);
+      Inc(DestLine, DestBpp);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.StretchDrawBlend(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; const DestRect: TRect;
+  SrcFactor, DestFactor: TBlendingFactor; Filter: TResizeFilter);
+begin
+  StretchDrawInternal(SrcRect, DestCanvas, DestRect, SrcFactor, DestFactor, Filter, PixelBlendProc);
+end;
+
+procedure TImagingCanvas.StretchDrawAlpha(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; const DestRect: TRect; Filter: TResizeFilter);
+begin
+  StretchDrawInternal(SrcRect, DestCanvas, DestRect, bfIgnore, bfIgnore, Filter, PixelAlphaProc);
+end;
+
+procedure TImagingCanvas.StretchDrawAdd(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; const DestRect: TRect; Filter: TResizeFilter);
+begin
+  StretchDrawInternal(SrcRect, DestCanvas, DestRect, bfIgnore, bfIgnore, Filter, PixelAddProc);
+end;
+
+procedure TImagingCanvas.ApplyConvolution(Kernel: PLongInt; KernelSize,
+  Divisor: LongInt; Bias: Single; ClampChannels: Boolean);
+var
+  X, Y, I, J, PosY, PosX, SizeDiv2, KernelValue, WidthBytes, Bpp: LongInt;
+  R, G, B, DivFloat: Single;
+  Pixel: TColorFPRec;
+  TempImage: TImageData;
+  DstPointer, SrcPointer: PByte;
+begin
+  SizeDiv2 := KernelSize div 2;
+  DivFloat := IffFloat(Divisor > 1, 1.0 / Divisor, 1.0);
+  Bpp := FFormatInfo.BytesPerPixel;
+  WidthBytes := FPData.Width * Bpp;
+
+  InitImage(TempImage);
+  CloneImage(FPData^, TempImage);
+
+  try
+    // For every pixel in clip rect
+    for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+    begin
+      DstPointer := @PByteArray(FPData.Bits)[Y * WidthBytes + FClipRect.Left * Bpp];
+
+      for X := FClipRect.Left to FClipRect.Right - 1 do
+      begin
+        // Reset accumulators
+        R := 0.0;
+        G := 0.0;
+        B := 0.0;
+
+        for J := 0 to KernelSize - 1 do
+        begin
+          PosY := ClampInt(Y + J - SizeDiv2, FClipRect.Top, FClipRect.Bottom - 1);
+
+          for I := 0 to KernelSize - 1 do
+          begin
+            PosX := ClampInt(X + I - SizeDiv2, FClipRect.Left, FClipRect.Right - 1);
+            SrcPointer := @PByteArray(TempImage.Bits)[PosY * WidthBytes + PosX * Bpp];
+
+            // Get pixels from neighbourhood of current pixel and add their
+            // colors to accumulators weighted by filter kernel values
+            Pixel := FFormatInfo.GetPixelFP(SrcPointer, @FFormatInfo, TempImage.Palette);
+            KernelValue := PLongIntArray(Kernel)[J * KernelSize + I];
+
+            R := R + Pixel.R * KernelValue;
+            G := G + Pixel.G * KernelValue;
+            B := B + Pixel.B * KernelValue;
+          end;
+        end;
+
+        Pixel := FFormatInfo.GetPixelFP(DstPointer, @FFormatInfo, FPData.Palette);
+
+        Pixel.R := R * DivFloat + Bias;
+        Pixel.G := G * DivFloat + Bias;
+        Pixel.B := B * DivFloat + Bias;
+
+        if ClampChannels then
+          ClampFloatPixel(Pixel);
+
+        // Set resulting pixel color
+        FFormatInfo.SetPixelFP(DstPointer, @FFormatInfo, FPData.Palette, Pixel);
+
+        Inc(DstPointer, Bpp);
+      end;
+    end;
+
+  finally
+    FreeImage(TempImage);
+  end;
+end;
+
+procedure TImagingCanvas.ApplyConvolution3x3(const Filter: TConvolutionFilter3x3);
+begin
+  ApplyConvolution(@Filter.Kernel, 3, Filter.Divisor, Filter.Bias, True);
+end;
+
+procedure TImagingCanvas.ApplyConvolution5x5(const Filter: TConvolutionFilter5x5);
+begin
+  ApplyConvolution(@Filter.Kernel, 5, Filter.Divisor, Filter.Bias, True);
+end;
+
+procedure TImagingCanvas.ApplyNonLinearFilter(FilterSize: Integer; SelectFunc: TSelectPixelFunction);
+var
+  X, Y, I, J, PosY, PosX, SizeDiv2, WidthBytes, Bpp: LongInt;
+  Pixel: TColorFPRec;
+  TempImage: TImageData;
+  DstPointer, SrcPointer: PByte;
+  NeighPixels: TDynFPPixelArray;
+begin
+  SizeDiv2 := FilterSize div 2;
+  Bpp := FFormatInfo.BytesPerPixel;
+  WidthBytes := FPData.Width * Bpp;
+  SetLength(NeighPixels, FilterSize * FilterSize);
+
+  InitImage(TempImage);
+  CloneImage(FPData^, TempImage);
+
+  try
+    // For every pixel in clip rect
+    for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+    begin
+      DstPointer := @PByteArray(FPData.Bits)[Y * WidthBytes + FClipRect.Left * Bpp];
+
+      for X := FClipRect.Left to FClipRect.Right - 1 do
+      begin
+        for J := 0 to FilterSize - 1 do
+        begin
+          PosY := ClampInt(Y + J - SizeDiv2, FClipRect.Top, FClipRect.Bottom - 1);
+
+          for I := 0 to FilterSize - 1 do
+          begin
+            PosX := ClampInt(X + I - SizeDiv2, FClipRect.Left, FClipRect.Right - 1);
+            SrcPointer := @PByteArray(TempImage.Bits)[PosY * WidthBytes + PosX * Bpp];
+
+            // Get pixels from neighbourhood of current pixel and store them
+            Pixel := FFormatInfo.GetPixelFP(SrcPointer, @FFormatInfo, TempImage.Palette);
+            NeighPixels[J * FilterSize + I] := Pixel;
+          end;
+        end;
+
+        // Choose pixel using custom function
+        Pixel := SelectFunc(NeighPixels);
+        // Set resulting pixel color
+        FFormatInfo.SetPixelFP(DstPointer, @FFormatInfo, FPData.Palette, Pixel);
+
+        Inc(DstPointer, Bpp);
+      end;
+    end;
+
+  finally
+    FreeImage(TempImage);
+  end;
+end;
+
+procedure TImagingCanvas.ApplyMedianFilter(FilterSize: Integer);
+begin
+  ApplyNonLinearFilter(FilterSize, MedianSelect);
+end;
+
+procedure TImagingCanvas.ApplyMinFilter(FilterSize: Integer);
+begin
+  ApplyNonLinearFilter(FilterSize, MinSelect);
+end;
+
+procedure TImagingCanvas.ApplyMaxFilter(FilterSize: Integer);
+begin
+  ApplyNonLinearFilter(FilterSize, MaxSelect);
+end;
+
+procedure TImagingCanvas.PointTransform(Transform: TPointTransformFunction;
+  Param1, Param2, Param3: Single);
+var
+  X, Y, Bpp, WidthBytes: Integer;
+  PixPointer: PByte;
+  Pixel: TColorFPRec;
+begin
+  Bpp := FFormatInfo.BytesPerPixel;
+  WidthBytes := FPData.Width * Bpp;
+
+  // For every pixel in clip rect
+  for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+  begin
+    PixPointer := @PByteArray(FPData.Bits)[Y * WidthBytes + FClipRect.Left * Bpp];
+    for X := FClipRect.Left to FClipRect.Right - 1 do
+    begin
+      Pixel := FFormatInfo.GetPixelFP(PixPointer, @FFormatInfo, FPData.Palette);
+
+      FFormatInfo.SetPixelFP(PixPointer, @FFormatInfo, FPData.Palette,
+        Transform(Pixel, Param1, Param2, Param3));
+
+      Inc(PixPointer, Bpp);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.ModifyContrastBrightness(Contrast, Brightness: Single);
+begin
+  PointTransform(TransformContrastBrightness, 1.0 + Contrast / 100,
+    Brightness / 100, 0);
+end;
+
+procedure TImagingCanvas.GammaCorection(Red, Green, Blue: Single);
+begin
+  PointTransform(TransformGamma, Red, Green, Blue);
+end;
+
+procedure TImagingCanvas.InvertColors;
+begin
+  PointTransform(TransformInvert, 0, 0, 0);
+end;
+
+procedure TImagingCanvas.Threshold(Red, Green, Blue: Single);
+begin
+  PointTransform(TransformThreshold, Red, Green, Blue);
+end;
+
+procedure TImagingCanvas.AdjustColorLevels(BlackPoint, WhitePoint, MidPoint: Single);
+begin
+  PointTransform(TransformLevels, BlackPoint, WhitePoint, 1.0 / MidPoint);
+end;
+
+procedure TImagingCanvas.PremultiplyAlpha;
+begin
+  PointTransform(TransformPremultiplyAlpha, 0, 0, 0);
+end;
+
+procedure TImagingCanvas.UnPremultiplyAlpha;
+begin
+  PointTransform(TransformUnPremultiplyAlpha, 0, 0, 0);
+end;
+
+procedure TImagingCanvas.GetHistogram(out Red, Green, Blue, Alpha,
+  Gray: THistogramArray);
+var
+  X, Y, Bpp: Integer;
+  PixPointer: PByte;
+  Color32: TColor32Rec;
+begin
+  FillChar(Red,   SizeOf(Red), 0);
+  FillChar(Green, SizeOf(Green), 0);
+  FillChar(Blue,  SizeOf(Blue), 0);
+  FillChar(Alpha, SizeOf(Alpha), 0);
+  FillChar(Gray,  SizeOf(Gray), 0);
+
+  Bpp := FFormatInfo.BytesPerPixel;
+
+  for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+  begin
+    PixPointer := @PByteArray(FPData.Bits)[Y * FPData.Width * Bpp + FClipRect.Left * Bpp];
+    for X := FClipRect.Left to FClipRect.Right - 1 do
+    begin
+      Color32 := FFormatInfo.GetPixel32(PixPointer, @FFormatInfo, FPData.Palette);
+
+      Inc(Red[Color32.R]);
+      Inc(Green[Color32.G]);
+      Inc(Blue[Color32.B]);
+      Inc(Alpha[Color32.A]);
+      Inc(Gray[Round(GrayConv.R * Color32.R + GrayConv.G * Color32.G + GrayConv.B * Color32.B)]);
+
+      Inc(PixPointer, Bpp);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.FillChannel(ChannelId: Integer; NewChannelValue: Byte);
+var
+  X, Y, Bpp: Integer;
+  PixPointer: PByte;
+  Color32: TColor32Rec;
+begin
+  Bpp := FFormatInfo.BytesPerPixel;
+
+  for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+  begin
+    PixPointer := @PByteArray(FPData.Bits)[Y * FPData.Width * Bpp + FClipRect.Left * Bpp];
+    for X := FClipRect.Left to FClipRect.Right - 1 do
+    begin
+      Color32 := FFormatInfo.GetPixel32(PixPointer, @FFormatInfo, FPData.Palette);
+      Color32.Channels[ChannelId] := NewChannelValue;
+      FFormatInfo.SetPixel32(PixPointer, @FFormatInfo, FPData.Palette, Color32);
+
+      Inc(PixPointer, Bpp);
+    end;
+  end;
+end;
+
+procedure TImagingCanvas.FillChannelFP(ChannelId: Integer; NewChannelValue: Single);
+var
+  X, Y, Bpp: Integer;
+  PixPointer: PByte;
+  ColorFP: TColorFPRec;
+begin
+  Bpp := FFormatInfo.BytesPerPixel;
+
+  for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+  begin
+    PixPointer := @PByteArray(FPData.Bits)[Y * FPData.Width * Bpp + FClipRect.Left * Bpp];
+    for X := FClipRect.Left to FClipRect.Right - 1 do
+    begin
+      ColorFP := FFormatInfo.GetPixelFP(PixPointer, @FFormatInfo, FPData.Palette);
+      ColorFP.Channels[ChannelId] := NewChannelValue;
+      FFormatInfo.SetPixelFP(PixPointer, @FFormatInfo, FPData.Palette, ColorFP);
+
+      Inc(PixPointer, Bpp);
+    end;
+  end;
+end;
+
+class function TImagingCanvas.GetSupportedFormats: TImageFormats;
+begin
+  Result := [ifIndex8..Pred(ifDXT1)];
+end;
+
+{ TFastARGB32Canvas }
+
+destructor TFastARGB32Canvas.Destroy;
+begin
+  FreeMem(FScanlines);
+  inherited Destroy;
+end;
+
+procedure TFastARGB32Canvas.AlphaBlendPixels(SrcPix, DestPix: PColor32Rec);
+var
+  SrcAlpha, DestAlpha, FinalAlpha: Integer;
+begin
+  FinalAlpha := SrcPix.A + 1 + (DestPix.A * (256 - SrcPix.A)) shr 8;
+  if FinalAlpha = 0 then
+    SrcAlpha := 0
+  else
+    SrcAlpha := (SrcPix.A shl 8) div FinalAlpha;
+  DestAlpha := 256 - SrcAlpha;
+
+  DestPix.A := ClampToByte(FinalAlpha);
+  DestPix.R := (SrcPix.R * SrcAlpha + DestPix.R * DestAlpha) shr 8;
+  DestPix.G := (SrcPix.G * SrcAlpha + DestPix.G * DestAlpha) shr 8;
+  DestPix.B := (SrcPix.B * SrcAlpha + DestPix.B * DestAlpha) shr 8;
+end;
+
+procedure TFastARGB32Canvas.DrawAlpha(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; DestX, DestY: Integer);
+var
+  X, Y, SrcX, SrcY, Width, Height: Integer;
+  SrcPix, DestPix: PColor32Rec;
+begin
+  if DestCanvas.ClassType <> Self.ClassType then
+  begin
+    inherited;
+    Exit;
+  end;
+
+  SrcX := SrcRect.Left;
+  SrcY := SrcRect.Top;
+  Width := SrcRect.Right - SrcRect.Left;
+  Height := SrcRect.Bottom - SrcRect.Top;
+  ClipCopyBounds(SrcX, SrcY, Width, Height, DestX, DestY,
+    FPData.Width, FPData.Height, DestCanvas.ClipRect);
+
+  for Y := 0 to Height - 1 do
+  begin
+    SrcPix := @FScanlines[SrcY + Y, SrcX];
+    DestPix := @TFastARGB32Canvas(DestCanvas).FScanlines[DestY + Y, DestX];
+    for X := 0 to Width - 1 do
+    begin
+      AlphaBlendPixels(SrcPix, DestPix);
+      Inc(SrcPix);
+      Inc(DestPix);
+    end;
+  end;
+end;
+
+function TFastARGB32Canvas.GetPixel32(X, Y: LongInt): TColor32;
+begin
+  Result := FScanlines[Y, X].Color;
+end;
+
+procedure TFastARGB32Canvas.SetPixel32(X, Y: LongInt; const Value: TColor32);
+begin
+  if (X >= FClipRect.Left) and (Y >= FClipRect.Top) and
+    (X < FClipRect.Right) and (Y < FClipRect.Bottom) then
+  begin
+    FScanlines[Y, X].Color := Value;
+  end;
+end;
+
+procedure TFastARGB32Canvas.StretchDrawAlpha(const SrcRect: TRect;
+  DestCanvas: TImagingCanvas; const DestRect: TRect; Filter: TResizeFilter);
+var
+  X, Y, ScaleX, ScaleY, Yp, Xp, Weight1, Weight2, Weight3, Weight4, InvFracY, T1, T2: Integer;
+  FracX, FracY: Cardinal;
+  SrcX, SrcY, SrcWidth, SrcHeight: Integer;
+  DestX, DestY, DestWidth, DestHeight: Integer;
+  SrcLine, SrcLine2: PColor32RecArray;
+  DestPix: PColor32Rec;
+  Accum: TColor32Rec;
+begin
+  if (Filter = rfBicubic) or (DestCanvas.ClassType <> Self.ClassType) then
+  begin
+    inherited;
+    Exit;
+  end;
+
+  SrcX := SrcRect.Left;
+  SrcY := SrcRect.Top;
+  SrcWidth := SrcRect.Right - SrcRect.Left;
+  SrcHeight := SrcRect.Bottom - SrcRect.Top;
+  DestX := DestRect.Left;
+  DestY := DestRect.Top;
+  DestWidth := DestRect.Right - DestRect.Left;
+  DestHeight := DestRect.Bottom - DestRect.Top;
+  // Clip src and dst rects
+  ClipStretchBounds(SrcX, SrcY, SrcWidth, SrcHeight, DestX, DestY, DestWidth, DestHeight,
+      FPData.Width, FPData.Height, DestCanvas.ClipRect);
+  ScaleX := (SrcWidth shl 16) div DestWidth;
+  ScaleY := (SrcHeight shl 16) div DestHeight;
+
+  // Nearest and linear filtering using fixed point math
+
+  if Filter = rfNearest then
+  begin
+    Yp := 0;
+    for Y := DestY to DestY + DestHeight - 1 do
+    begin
+      Xp := 0;
+      SrcLine := @FScanlines[SrcY + Yp shr 16, SrcX];
+      DestPix := @TFastARGB32Canvas(DestCanvas).FScanlines[Y, DestX];
+      for X := 0 to DestWidth - 1 do
+      begin
+        AlphaBlendPixels(@SrcLine[Xp shr 16], DestPix);
+        Inc(DestPix);
+        Inc(Xp, ScaleX);
+      end;
+      Inc(Yp, ScaleY);
+    end;
+  end
+  else
+  begin
+    Yp := (ScaleY shr 1) - $8000;
+    for Y := DestY to DestY + DestHeight - 1 do
+    begin
+      DestPix := @TFastARGB32Canvas(DestCanvas).FScanlines[Y, DestX];
+      if Yp < 0 then
+      begin
+        T1 := 0;
+        FracY := 0;
+        InvFracY := $10000;
+      end
+      else
+      begin
+        T1 := Yp shr 16;
+        FracY := Yp and $FFFF;
+        InvFracY := (not Yp and $FFFF) + 1;
+      end;
+
+      T2 := Iff(T1 < SrcHeight - 1, T1 + 1, T1);
+      SrcLine :=  @Scanlines[T1 + SrcY, SrcX];
+      SrcLine2 := @Scanlines[T2 + SrcY, SrcX];
+      Xp := (ScaleX shr 1) - $8000;
+
+      for X := 0 to DestWidth - 1 do
+      begin
+        if Xp < 0 then
+        begin
+          T1 := 0;
+          FracX := 0;
+        end
+        else
+        begin
+          T1 := Xp shr 16;
+          FracX := Xp and $FFFF;
+        end;
+
+        T2 := Iff(T1 < SrcWidth - 1, T1 + 1, T1);
+        Weight2:= Integer((Cardinal(InvFracY) * FracX) shr 16); // cast to Card, Int can overflow here
+        Weight1:= InvFracY - Weight2;
+        Weight4:= Integer((Cardinal(FracY) * FracX) shr 16);
+        Weight3:= FracY - Weight4;
+
+        Accum.B := (SrcLine[T1].B * Weight1 + SrcLine[T2].B * Weight2 +
+          SrcLine2[T1].B * Weight3 + SrcLine2[T2].B * Weight4 + $8000) shr 16;
+        Accum.G := (SrcLine[T1].G * Weight1 + SrcLine[T2].G * Weight2 +
+          SrcLine2[T1].G * Weight3 + SrcLine2[T2].G * Weight4 + $8000) shr 16;
+        Accum.R := (SrcLine[T1].R * Weight1 + SrcLine[T2].R * Weight2 +
+          SrcLine2[T1].R * Weight3 + SrcLine2[T2].R * Weight4 + $8000) shr 16;
+        Accum.A := (SrcLine[T1].A * Weight1 + SrcLine[T2].A * Weight2 +
+          SrcLine2[T1].A * Weight3 + SrcLine2[T2].A * Weight4 + $8000) shr 16;
+
+        AlphaBlendPixels(@Accum, DestPix);
+
+        Inc(Xp, ScaleX);
+        Inc(DestPix);
+      end;
+      Inc(Yp, ScaleY);
+     end;
+  end;
+end;
+
+procedure TFastARGB32Canvas.UpdateCanvasState;
+var
+  I: LongInt;
+  ScanPos: PLongWord;
+begin
+  inherited UpdateCanvasState;
+
+  // Realloc and update scanline array
+  ReallocMem(FScanlines, FPData.Height * SizeOf(PColor32RecArray));
+  ScanPos := FPData.Bits;
+
+  for I := 0 to FPData.Height - 1 do
+  begin
+    FScanlines[I] := PColor32RecArray(ScanPos);
+    Inc(ScanPos, FPData.Width);
+  end;
+end;
+
+class function TFastARGB32Canvas.GetSupportedFormats: TImageFormats;
+begin
+  Result := [ifA8R8G8B8];
+end;
+
+procedure TFastARGB32Canvas.InvertColors;
+var
+  X, Y: Integer;
+  PixPtr: PColor32Rec;
+begin
+  for Y := FClipRect.Top to FClipRect.Bottom - 1 do
+  begin
+    PixPtr := @FScanlines[Y, FClipRect.Left];
+    for X := FClipRect.Left to FClipRect.Right - 1 do
+    begin
+      PixPtr.R := not PixPtr.R;
+      PixPtr.G := not PixPtr.G;
+      PixPtr.B := not PixPtr.B;
+      Inc(PixPtr);
+    end;
+  end;
+end;
+
+initialization
+  RegisterCanvas(TFastARGB32Canvas);
+
+finalization
+  FreeAndNil(CanvasClasses);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - more more more ...
+    - implement pen width everywhere
+    - more objects (arc, polygon)
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Fixed bug that could raise floating point error in DrawAlpha
+      and StretchDrawAlpha.
+    - Fixed bug in TImagingCanvas.Line that caused not drawing
+      of horz or vert lines.
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Added some methods to TFastARGB32Canvas (InvertColors, DrawAlpha/StretchDrawAlpha)
+    - Fixed DrawAlpha/StretchDrawAlpha destination alpha calculation.
+    - Added PremultiplyAlpha and UnPremultiplyAlpha methods.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - Added FillChannel methods.
+    - Added FloodFill method.
+    - Added GetHistogram method.
+    - Fixed "Invalid FP operation" in AdjustColorLevels in FPC compiled exes
+      (thanks to Carlos González).
+    - Added TImagingCanvas.AdjustColorLevels method.
+
+  -- 0.25.0 Changes/Bug Fixes ---------------------------------
+    - Fixed error that could cause AV in linear and nonlinear filters.
+    - Added blended rect filling function FillRectBlend.
+    - Added drawing function with blending (DrawAlpha, StretchDrawAlpha,
+        StretchDrawAdd, DrawBlend, StretchDrawBlend, ...)
+    - Added non-linear filters (min, max, median).
+    - Added point transforms (invert, contrast, gamma, brightness).
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Added some new filter kernels for convolution.
+    - Added FillMode and PenMode properties.
+    - Added FrameRect, Rectangle, Ellipse, and Line methods.
+    - Removed HorzLine and VertLine from TFastARGB32Canvas - new versions
+      in general canvas is now as fast as those in TFastARGB32Canvas
+      (only in case of A8R8G8B8 images of course).
+    - Added PenWidth property, updated HorzLine and VertLine to use it.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added TFastARGB32Canvas
+    - added convolutions, hline, vline
+    - unit created, intial stuff added
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingClasses.pas b/src/lib/vampimg/ImagingClasses.pas

new file mode 100644 (file)

index 0000000..b196fdd
--- /dev/null
+++ b/src/lib/vampimg/ImagingClasses.pas
@@ -0,0 +1,1091 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains class based wrapper to Imaging library.}
+unit ImagingClasses;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  Types, Classes, ImagingTypes, Imaging, ImagingFormats, ImagingUtility;
+
+type
+  { Base abstract high level class wrapper to low level Imaging structures and
+    functions.}
+  TBaseImage = class(TPersistent)
+  private
+    function GetEmpty: Boolean;
+  protected
+    FPData: PImageData;
+    FOnDataSizeChanged: TNotifyEvent;
+    FOnPixelsChanged: TNotifyEvent;
+    function GetFormat: TImageFormat; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetHeight: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetSize: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetWidth: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetBits: Pointer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetPalette: PPalette32; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetPaletteEntries: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetScanline(Index: Integer): Pointer;
+    function GetPixelPointer(X, Y: Integer): Pointer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetScanlineSize: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetFormatInfo: TImageFormatInfo; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetValid: Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetBoundsRect: TRect;
+    procedure SetFormat(const Value: TImageFormat); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetHeight(const Value: Integer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetWidth(const Value: Integer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetPointer; virtual; abstract;
+    procedure DoDataSizeChanged; virtual;
+    procedure DoPixelsChanged; virtual;
+  public
+    constructor Create; virtual;
+    constructor CreateFromImage(AImage: TBaseImage);
+    destructor Destroy; override;
+    { Returns info about current image.}
+    function ToString: string; {$IF Defined(DCC) and (CompilerVersion >= 20.0)}override;{$IFEND}
+
+    { Creates a new image data with the given size and format. Old image
+      data is lost. Works only for the current image of TMultiImage.}
+    procedure RecreateImageData(AWidth, AHeight: Integer; AFormat: TImageFormat);
+    { Maps underlying image data to given TImageData record. Both TBaseImage and
+      TImageData now share some image memory (bits). So don't call FreeImage
+      on TImageData afterwards since this TBaseImage would get really broken.}
+    procedure MapImageData(const ImageData: TImageData);
+    { Deletes current image.}
+    procedure Clear;
+
+    { Resizes current image with optional resampling.}
+    procedure Resize(NewWidth, NewHeight: Integer; Filter: TResizeFilter);
+
+    procedure ResizeToFit(FitWidth, FitHeight: Integer; Filter: TResizeFilter; DstImage: TBaseImage);
+    { Flips current image. Reverses the image along its horizontal axis the top
+      becomes the bottom and vice versa.}
+    procedure Flip;
+    { Mirrors current image. Reverses the image along its vertical axis the left
+      side becomes the right and vice versa.}
+    procedure Mirror;
+    { Rotates image by Angle degrees counterclockwise.}
+    procedure Rotate(Angle: Single);
+    { Copies rectangular part of SrcImage to DstImage. No blending is performed -
+      alpha is simply copied to destination image. Operates also with
+      negative X and Y coordinates.
+      Note that copying is fastest for images in the same data format
+      (and slowest for images in special formats).}
+    procedure CopyTo(SrcX, SrcY, Width, Height: Integer; DstImage: TBaseImage; DstX, DstY: Integer);
+    { Stretches the contents of the source rectangle to the destination rectangle
+      with optional resampling. No blending is performed - alpha is
+      simply copied/resampled to destination image. Note that stretching is
+      fastest for images in the same data format (and slowest for
+      images in special formats).}
+    procedure StretchTo(SrcX, SrcY, SrcWidth, SrcHeight: Integer; DstImage: TBaseImage; DstX, DstY, DstWidth, DstHeight: Integer; Filter: TResizeFilter);
+    { Replaces pixels with OldPixel in the given rectangle by NewPixel.
+      OldPixel and NewPixel should point to the pixels in the same format
+      as the given image is in.}
+    procedure ReplaceColor(X, Y, Width, Height: Integer; OldColor, NewColor: Pointer);
+    { Swaps SrcChannel and DstChannel color or alpha channels of image.
+      Use ChannelRed, ChannelBlue, ChannelGreen, ChannelAlpha constants to
+      identify channels.}
+    procedure SwapChannels(SrcChannel, DstChannel: Integer);
+
+    { Loads current image data from file.}
+    procedure LoadFromFile(const FileName: string); virtual;
+    { Loads current image data from stream.}
+    procedure LoadFromStream(Stream: TStream); virtual;
+
+    { Saves current image data to file.}
+    procedure SaveToFile(const FileName: string);
+    { Saves current image data to stream. Ext identifies desired image file
+      format (jpg, png, dds, ...)}
+    procedure SaveToStream(const Ext: string; Stream: TStream);
+
+    { Width of current image in pixels.}
+    property Width: Integer read GetWidth write SetWidth;
+    { Height of current image in pixels.}
+    property Height: Integer read GetHeight write SetHeight;
+    { Image data format of current image.}
+    property Format: TImageFormat read GetFormat write SetFormat;
+    { Size in bytes of current image's data.}
+    property Size: Integer read GetSize;
+    { Pointer to memory containing image bits.}
+    property Bits: Pointer read GetBits;
+    { Pointer to palette for indexed format images. It is nil for others.
+      Max palette entry is at index [PaletteEntries - 1].}
+    property Palette: PPalette32 read GetPalette;
+    { Number of entries in image's palette}
+    property PaletteEntries: Integer read GetPaletteEntries;
+    { Provides indexed access to each line of pixels. Does not work with special
+      format images (like DXT).}
+    property Scanline[Index: Integer]: Pointer read GetScanline;
+    { Returns pointer to image pixel at [X, Y] coordinates.}
+    property PixelPointer[X, Y: Integer]: Pointer read GetPixelPointer;
+    { Size/length of one image scanline in bytes.}
+    property ScanlineSize: Integer read GetScanlineSize;
+    { Extended image format information.}
+    property FormatInfo: TImageFormatInfo read GetFormatInfo;
+    { This gives complete access to underlying TImageData record.
+      It can be used in functions that take TImageData as parameter
+      (for example: ReduceColors(SingleImageInstance.ImageData^, 64)).}
+    property ImageDataPointer: PImageData read FPData;
+    { Indicates whether the current image is valid (proper format,
+      allowed dimensions, right size, ...).}
+    property Valid: Boolean read GetValid;
+    { Indicates whether image containst any data (size in bytes > 0).}
+    property Empty: Boolean read GetEmpty;
+    { Specifies the bounding rectangle of the image.}
+    property BoundsRect: TRect read GetBoundsRect;
+    { This event occurs when the image data size has just changed. That means
+      image width, height, or format has been changed.}
+    property OnDataSizeChanged: TNotifyEvent read FOnDataSizeChanged write FOnDataSizeChanged;
+    { This event occurs when some pixels of the image have just changed.}
+    property OnPixelsChanged: TNotifyEvent read FOnPixelsChanged write FOnPixelsChanged;
+  end;
+
+  { Extension of TBaseImage which uses single TImageData record to
+    store image. All methods inherited from TBaseImage work with this record.}
+  TSingleImage = class(TBaseImage)
+  protected
+    FImageData: TImageData;
+    procedure SetPointer; override;
+  public
+    constructor Create; override;
+    constructor CreateFromParams(AWidth, AHeight: Integer; AFormat: TImageFormat = ifDefault);
+    constructor CreateFromData(const AData: TImageData);
+    constructor CreateFromFile(const FileName: string);
+    constructor CreateFromStream(Stream: TStream);
+    destructor Destroy; override;
+    { Assigns single image from another single image or multi image.}
+    procedure Assign(Source: TPersistent); override;
+    { Assigns single image from image data record.}
+    procedure AssignFromImageData(const AImageData: TImageData);
+  end;
+
+  { Extension of TBaseImage which uses array of TImageData records to
+    store multiple images. Images are independent on each other and they don't
+    share any common characteristic. Each can have different size, format, and
+    palette. All methods inherited from TBaseImage work only with
+    active image (it could represent mipmap level, animation frame, or whatever).
+    Methods whose names contain word 'Multi' work with all images in array
+    (as well as other methods with obvious names).}
+  TMultiImage = class(TBaseImage)
+  protected
+    FDataArray: TDynImageDataArray;
+    FActiveImage: Integer;
+    procedure SetActiveImage(Value: Integer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetImageCount: Integer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetImageCount(Value: Integer);
+    function GetAllImagesValid: Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    function GetImage(Index: Integer): TImageData; {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetImage(Index: Integer; Value: TImageData); {$IFDEF USE_INLINE}inline;{$ENDIF}
+    procedure SetPointer; override;
+    function PrepareInsert(Index, Count: Integer): Boolean;
+    procedure DoInsertImages(Index: Integer; const Images: TDynImageDataArray);
+    procedure DoInsertNew(Index: Integer; AWidth, AHeight: Integer; AFormat: TImageFormat);
+  public
+    constructor Create; override;
+    constructor CreateFromParams(AWidth, AHeight: Integer; AFormat: TImageFormat; ImageCount: Integer);
+    constructor CreateFromArray(const ADataArray: TDynImageDataArray);
+    constructor CreateFromFile(const FileName: string);
+    constructor CreateFromStream(Stream: TStream);
+    destructor Destroy; override;
+    { Assigns multi image from another multi image or single image.}
+    procedure Assign(Source: TPersistent); override;
+    { Assigns multi image from array of image data records.}
+    procedure AssignFromArray(const ADataArray: TDynImageDataArray);
+
+    { Adds new image at the end of the image array. }
+    function AddImage(AWidth, AHeight: Integer; AFormat: TImageFormat = ifDefault): Integer; overload;
+    { Adds existing image at the end of the image array. }
+    function AddImage(const Image: TImageData): Integer; overload;
+    { Adds existing image (Active image of a TmultiImage)
+      at the end of the image array. }
+    function AddImage(Image: TBaseImage): Integer; overload;
+    { Adds existing image array ((all images of a multi image))
+      at the end of the image array. }
+    procedure AddImages(const Images: TDynImageDataArray); overload;
+    { Adds existing MultiImage images at the end of the image array. }
+    procedure AddImages(Images: TMultiImage); overload;
+
+    { Inserts new image image at the given position in the image array. }
+    procedure InsertImage(Index, AWidth, AHeight: Integer; AFormat: TImageFormat = ifDefault); overload;
+    { Inserts existing image at the given position in the image array. }
+    procedure InsertImage(Index: Integer; const Image: TImageData); overload;
+    { Inserts existing image (Active image of a TmultiImage)
+      at the given position in the image array. }
+    procedure InsertImage(Index: Integer; Image: TBaseImage); overload;
+    { Inserts existing image at the given position in the image array. }
+    procedure InsertImages(Index: Integer; const Images: TDynImageDataArray); overload;
+    { Inserts existing images (all images of a TmultiImage) at
+      the given position in the image array. }
+    procedure InsertImages(Index: Integer; Images: TMultiImage); overload;
+
+    { Exchanges two images at the given positions in the image array. }
+    procedure ExchangeImages(Index1, Index2: Integer);
+    { Deletes image at the given position in the image array.}
+    procedure DeleteImage(Index: Integer);
+    { Rearranges images so that the first image will become last and vice versa.}
+    procedure ReverseImages;
+    { Deletes all images.}
+    procedure ClearAll;
+
+    { Converts all images to another image data format.}
+    procedure ConvertImages(Format: TImageFormat);
+    { Resizes all images.}
+    procedure ResizeImages(NewWidth, NewHeight: Integer; Filter: TResizeFilter);
+
+    { Overloaded loading method that will add new image to multiimage if
+      image array is empty bero loading. }
+    procedure LoadFromFile(const FileName: string); override;
+    { Overloaded loading method that will add new image to multiimage if
+      image array is empty bero loading. }
+    procedure LoadFromStream(Stream: TStream); override;
+
+    { Loads whole multi image from file.}
+    procedure LoadMultiFromFile(const FileName: string);
+    { Loads whole multi image from stream.}
+    procedure LoadMultiFromStream(Stream: TStream);
+    { Saves whole multi image to file.}
+    procedure SaveMultiToFile(const FileName: string);
+    { Saves whole multi image to stream. Ext identifies desired
+      image file format (jpg, png, dds, ...).}
+    procedure SaveMultiToStream(const Ext: string; Stream: TStream);
+
+    { Indicates active image of this multi image. All methods inherited
+      from TBaseImage operate on this image only.}
+    property ActiveImage: Integer read FActiveImage write SetActiveImage;
+    { Number of images of this multi image.}
+    property ImageCount: Integer read GetImageCount write SetImageCount;
+    { This value is True if all images of this TMultiImage are valid.}
+    property AllImagesValid: Boolean read GetAllImagesValid;
+    { This gives complete access to underlying TDynImageDataArray.
+      It can be used in functions that take TDynImageDataArray
+      as parameter.}
+    property DataArray: TDynImageDataArray read FDataArray;
+    { Array property for accessing individual images of TMultiImage. When you
+      set image at given index the old image is freed and the source is cloned.}
+    property Images[Index: Integer]: TImageData read GetImage write SetImage; default;
+  end;
+
+implementation
+
+const
+  DefaultWidth = 16;
+  Defaultheight = 16;
+
+function GetArrayFromImageData(const ImageData: TImageData): TDynImageDataArray;
+begin
+  SetLength(Result, 1);
+  Result[0] := ImageData;
+end;
+
+{ TBaseImage class implementation }
+
+constructor TBaseImage.Create;
+begin
+  SetPointer;
+end;
+
+constructor TBaseImage.CreateFromImage(AImage: TBaseImage);
+begin
+  Create;
+  Assign(AImage);
+end;
+
+destructor TBaseImage.Destroy;
+begin
+  inherited Destroy;
+end;
+
+function TBaseImage.GetWidth: Integer;
+begin
+  if Valid then
+    Result := FPData.Width
+  else
+    Result := 0;
+end;
+
+function TBaseImage.GetHeight: Integer;
+begin
+  if Valid then
+    Result := FPData.Height
+  else
+    Result := 0;
+end;
+
+function TBaseImage.GetFormat: TImageFormat;
+begin
+  if Valid then
+    Result := FPData.Format
+  else
+    Result := ifUnknown;
+end;
+
+function TBaseImage.GetScanline(Index: Integer): Pointer;
+var
+  Info: TImageFormatInfo;
+begin
+  if Valid then
+  begin
+    Info := GetFormatInfo;
+    if not Info.IsSpecial then
+      Result := ImagingFormats.GetScanLine(FPData.Bits, Info, FPData.Width, Index)
+    else
+      Result := FPData.Bits;
+  end
+  else
+    Result := nil;
+end;
+
+function TBaseImage.GetScanlineSize: Integer;
+begin
+  if Valid then
+    Result := FormatInfo.GetPixelsSize(Format, Width, 1)
+  else
+    Result := 0;
+end;
+
+function TBaseImage.GetPixelPointer(X, Y: Integer): Pointer;
+begin
+  if Valid then
+    Result := @PByteArray(FPData.Bits)[(Y * FPData.Width + X) * GetFormatInfo.BytesPerPixel]
+  else
+    Result := nil;
+end;
+
+function TBaseImage.GetSize: Integer;
+begin
+  if Valid then
+    Result := FPData.Size
+  else
+    Result := 0;
+end;
+
+function TBaseImage.GetBits: Pointer;
+begin
+  if Valid then
+    Result := FPData.Bits
+  else
+    Result := nil;
+end;
+
+function TBaseImage.GetPalette: PPalette32;
+begin
+  if Valid then
+    Result := FPData.Palette
+  else
+    Result := nil;
+end;
+
+function TBaseImage.GetPaletteEntries: Integer;
+begin
+  Result := GetFormatInfo.PaletteEntries;
+end;
+
+function TBaseImage.GetFormatInfo: TImageFormatInfo;
+begin
+  if Valid then
+    Imaging.GetImageFormatInfo(FPData.Format, Result)
+  else
+    FillChar(Result, SizeOf(Result), 0);
+end;
+
+function TBaseImage.GetValid: Boolean;
+begin
+  Result := Assigned(FPData) and Imaging.TestImage(FPData^);
+end;
+
+function TBaseImage.GetBoundsRect: TRect;
+begin
+  Result := Rect(0, 0, GetWidth, GetHeight);
+end;
+
+function TBaseImage.GetEmpty: Boolean;
+begin
+  Result := FPData.Size = 0;
+end;
+
+procedure TBaseImage.SetWidth(const Value: Integer);
+begin
+  Resize(Value, GetHeight, rfNearest);
+end;
+
+procedure TBaseImage.SetHeight(const Value: Integer);
+begin
+  Resize(GetWidth, Value, rfNearest);
+end;
+
+procedure TBaseImage.SetFormat(const Value: TImageFormat);
+begin
+  if Valid and Imaging.ConvertImage(FPData^, Value) then
+    DoDataSizeChanged;
+end;
+
+procedure TBaseImage.DoDataSizeChanged;
+begin
+  if Assigned(FOnDataSizeChanged) then
+    FOnDataSizeChanged(Self);
+  DoPixelsChanged;
+end;
+
+procedure TBaseImage.DoPixelsChanged;
+begin
+  if Assigned(FOnPixelsChanged) then
+    FOnPixelsChanged(Self);
+end;
+
+procedure TBaseImage.RecreateImageData(AWidth, AHeight: Integer; AFormat: TImageFormat);
+begin
+  if Assigned(FPData) and Imaging.NewImage(AWidth, AHeight, AFormat, FPData^) then
+    DoDataSizeChanged;
+end;
+
+procedure TBaseImage.MapImageData(const ImageData: TImageData);
+begin
+  Clear;
+  FPData.Width := ImageData.Width;
+  FPData.Height := ImageData.Height;
+  FPData.Format := ImageData.Format;
+  FPData.Size := ImageData.Size;
+  FPData.Bits := ImageData.Bits;
+  FPData.Palette := ImageData.Palette;
+end;
+
+procedure TBaseImage.Clear;
+begin
+  FreeImage(FPData^);
+end;
+
+procedure TBaseImage.Resize(NewWidth, NewHeight: Integer; Filter: TResizeFilter);
+begin
+  if Valid and Imaging.ResizeImage(FPData^, NewWidth, NewHeight, Filter) then
+    DoDataSizeChanged;
+end;
+
+procedure TBaseImage.ResizeToFit(FitWidth, FitHeight: Integer;
+  Filter: TResizeFilter; DstImage: TBaseImage);
+begin
+  if Valid and Assigned(DstImage) then
+  begin
+    Imaging.ResizeImageToFit(FPData^, FitWidth, FitHeight, Filter,
+      DstImage.FPData^);
+    DstImage.DoDataSizeChanged;
+  end;
+end;
+
+procedure TBaseImage.Flip;
+begin
+  if Valid and Imaging.FlipImage(FPData^) then
+    DoPixelsChanged;
+end;
+
+procedure TBaseImage.Mirror;
+begin
+  if Valid and Imaging.MirrorImage(FPData^) then
+    DoPixelsChanged;
+end;
+
+procedure TBaseImage.Rotate(Angle: Single);
+begin
+  if Valid then
+  begin
+    Imaging.RotateImage(FPData^, Angle);
+    DoPixelsChanged;
+  end;
+end;
+
+procedure TBaseImage.CopyTo(SrcX, SrcY, Width, Height: Integer;
+  DstImage: TBaseImage; DstX, DstY: Integer);
+begin
+  if Valid and Assigned(DstImage) and DstImage.Valid then
+  begin
+    Imaging.CopyRect(FPData^, SrcX, SrcY, Width, Height, DstImage.FPData^, DstX, DstY);
+    DstImage.DoPixelsChanged;
+  end;
+end;
+
+procedure TBaseImage.StretchTo(SrcX, SrcY, SrcWidth, SrcHeight: Integer;
+  DstImage: TBaseImage; DstX, DstY, DstWidth, DstHeight: Integer; Filter: TResizeFilter);
+begin
+  if Valid and Assigned(DstImage) and DstImage.Valid then
+  begin
+    Imaging.StretchRect(FPData^, SrcX, SrcY, SrcWidth, SrcHeight,
+      DstImage.FPData^, DstX, DstY, DstWidth, DstHeight, Filter);
+    DstImage.DoPixelsChanged;
+  end;
+end;
+
+procedure TBaseImage.ReplaceColor(X, Y, Width, Height: Integer; OldColor,
+  NewColor: Pointer);
+begin
+  if Valid then
+  begin
+    Imaging.ReplaceColor(FPData^, X, Y, Width, Height, OldColor, NewColor);
+    DoPixelsChanged;
+  end;
+end;
+
+procedure TBaseImage.SwapChannels(SrcChannel, DstChannel: Integer);
+begin
+  if Valid then
+  begin
+    Imaging.SwapChannels(FPData^, SrcChannel, DstChannel);
+    DoPixelsChanged;
+  end;
+end;
+
+function TBaseImage.ToString: string;
+begin
+  Result := Iff(Valid, Imaging.ImageToStr(FPData^), 'empty image');
+end;
+
+procedure TBaseImage.LoadFromFile(const FileName: string);
+begin
+  if Assigned(FPData) and Imaging.LoadImageFromFile(FileName, FPData^) then
+    DoDataSizeChanged;
+end;
+
+procedure TBaseImage.LoadFromStream(Stream: TStream);
+begin
+  if Assigned(FPData) and Imaging.LoadImageFromStream(Stream, FPData^) then
+    DoDataSizeChanged;
+end;
+
+procedure TBaseImage.SaveToFile(const FileName: string);
+begin
+  if Valid then
+    Imaging.SaveImageToFile(FileName, FPData^);
+end;
+
+procedure TBaseImage.SaveToStream(const Ext: string; Stream: TStream);
+begin
+  if Valid then
+    Imaging.SaveImageToStream(Ext, Stream, FPData^);
+end;
+
+
+{ TSingleImage class implementation }
+
+constructor TSingleImage.Create;
+begin
+  inherited Create;
+  Clear;
+end;
+
+constructor TSingleImage.CreateFromParams(AWidth, AHeight: Integer; AFormat: TImageFormat);
+begin
+  inherited Create;
+  RecreateImageData(AWidth, AHeight, AFormat);
+end;
+
+constructor TSingleImage.CreateFromData(const AData: TImageData);
+begin
+  inherited Create;
+  AssignFromImageData(AData);
+end;
+
+constructor TSingleImage.CreateFromFile(const FileName: string);
+begin
+  inherited Create;
+  LoadFromFile(FileName);
+end;
+
+constructor TSingleImage.CreateFromStream(Stream: TStream);
+begin
+  inherited Create;
+  LoadFromStream(Stream);
+end;
+
+destructor TSingleImage.Destroy;
+begin
+  Imaging.FreeImage(FImageData);
+  inherited Destroy;
+end;
+
+procedure TSingleImage.SetPointer;
+begin
+  FPData := @FImageData;
+end;
+
+procedure TSingleImage.Assign(Source: TPersistent);
+begin
+  if Source = nil then
+  begin
+    Clear;
+  end
+  else if Source is TSingleImage then
+  begin
+    AssignFromImageData(TSingleImage(Source).FImageData);
+  end
+  else if Source is TMultiImage then
+  begin
+    if TMultiImage(Source).Valid then
+      AssignFromImageData(TMultiImage(Source).FPData^)
+    else
+      Clear;
+  end
+  else
+    inherited Assign(Source);
+end;
+
+procedure TSingleImage.AssignFromImageData(const AImageData: TImageData);
+begin
+  if Imaging.TestImage(AImageData) then
+  begin
+    Imaging.CloneImage(AImageData, FImageData);
+    DoDataSizeChanged;
+  end
+  else
+    Clear;
+end;
+
+{ TMultiImage class implementation }
+
+constructor TMultiImage.Create;
+begin
+  inherited Create;
+end;
+
+constructor TMultiImage.CreateFromParams(AWidth, AHeight: Integer;
+  AFormat: TImageFormat; ImageCount: Integer);
+var
+  I: Integer;
+begin
+  Imaging.FreeImagesInArray(FDataArray);
+  SetLength(FDataArray, ImageCount);
+  for I := 0 to GetImageCount - 1 do
+    Imaging.NewImage(AWidth, AHeight, AFormat, FDataArray[I]);
+  if GetImageCount > 0 then
+    SetActiveImage(0);
+end;
+
+constructor TMultiImage.CreateFromArray(const ADataArray: TDynImageDataArray);
+begin
+  AssignFromArray(ADataArray);
+end;
+
+constructor TMultiImage.CreateFromFile(const FileName: string);
+begin
+  LoadMultiFromFile(FileName);
+end;
+
+constructor TMultiImage.CreateFromStream(Stream: TStream);
+begin
+  LoadMultiFromStream(Stream);
+end;
+
+destructor TMultiImage.Destroy;
+begin
+  Imaging.FreeImagesInArray(FDataArray);
+  inherited Destroy;
+end;
+
+procedure TMultiImage.SetActiveImage(Value: Integer);
+begin
+  FActiveImage := Value;
+  SetPointer;
+end;
+
+function TMultiImage.GetImageCount: Integer;
+begin
+  Result := Length(FDataArray);
+end;
+
+procedure TMultiImage.SetImageCount(Value: Integer);
+var
+  I, OldCount: Integer;
+begin
+  if Value > GetImageCount then
+  begin
+    // Create new empty images if array will be enlarged
+    OldCount := GetImageCount;
+    SetLength(FDataArray, Value);
+    for I := OldCount to Value - 1 do
+      Imaging.NewImage(DefaultWidth, DefaultHeight, ifDefault, FDataArray[I]);
+  end
+  else
+  begin
+    // Free images that exceed desired count and shrink array
+    for I := Value to GetImageCount - 1 do
+      Imaging.FreeImage(FDataArray[I]);
+    SetLength(FDataArray, Value);
+  end;
+  SetPointer;
+end;
+
+function TMultiImage.GetAllImagesValid: Boolean;
+begin
+  Result := (GetImageCount > 0) and TestImagesInArray(FDataArray);
+end;
+
+function TMultiImage.GetImage(Index: Integer): TImageData;
+begin
+  if (Index >= 0) and (Index < GetImageCount) then
+    Result := FDataArray[Index];
+end;
+
+procedure TMultiImage.SetImage(Index: Integer; Value: TImageData);
+begin
+  if (Index >= 0) and (Index < GetImageCount) then
+    Imaging.CloneImage(Value, FDataArray[Index]);
+end;
+
+procedure TMultiImage.SetPointer;
+begin
+  if GetImageCount > 0 then
+  begin
+    FActiveImage := ClampInt(FActiveImage, 0, GetImageCount - 1);
+    FPData := @FDataArray[FActiveImage];
+  end
+  else
+  begin
+    FActiveImage := -1;
+    FPData := nil
+  end;
+end;
+
+function TMultiImage.PrepareInsert(Index, Count: Integer): Boolean;
+var
+  I: Integer;
+begin
+  // Inserting to empty image will add image at index 0
+  if GetImageCount = 0 then
+    Index := 0;
+
+  if (Index >= 0) and (Index <= GetImageCount) and (Count > 0) then
+  begin
+    SetLength(FDataArray, GetImageCount + Count);
+    if Index < GetImageCount - 1 then
+    begin
+      // Move imges to new position
+      System.Move(FDataArray[Index], FDataArray[Index + Count],
+        (GetImageCount - Count - Index) * SizeOf(TImageData));
+      // Null old images, not free them!
+      for I := Index to Index + Count - 1 do
+        InitImage(FDataArray[I]);
+    end;
+    Result := True;
+  end
+  else
+    Result := False;
+end;
+
+procedure TMultiImage.DoInsertImages(Index: Integer; const Images: TDynImageDataArray);
+var
+  I, Len: Integer;
+begin
+  Len := Length(Images);
+  if PrepareInsert(Index, Len) then
+  begin
+    for I := 0 to Len - 1 do
+      Imaging.CloneImage(Images[I], FDataArray[Index + I]);
+  end;
+end;
+
+procedure TMultiImage.DoInsertNew(Index, AWidth, AHeight: Integer;
+  AFormat: TImageFormat);
+begin
+  if PrepareInsert(Index, 1) then
+    Imaging.NewImage(AWidth, AHeight, AFormat, FDataArray[Index]);
+end;
+
+procedure TMultiImage.Assign(Source: TPersistent);
+var
+  Arr: TDynImageDataArray;
+begin
+  if Source = nil then
+  begin
+    ClearAll;
+  end
+  else if Source is TMultiImage then
+  begin
+    AssignFromArray(TMultiImage(Source).FDataArray);
+    SetActiveImage(TMultiImage(Source).ActiveImage);
+  end
+  else if Source is TSingleImage then
+  begin
+    SetLength(Arr, 1);
+    Arr[0] := TSingleImage(Source).FImageData;
+    AssignFromArray(Arr);
+  end
+  else
+    inherited Assign(Source);
+end;
+
+procedure TMultiImage.AssignFromArray(const ADataArray: TDynImageDataArray);
+var
+  I: Integer;
+begin
+  Imaging.FreeImagesInArray(FDataArray);
+  SetLength(FDataArray, Length(ADataArray));
+  for I := 0 to GetImageCount - 1 do
+  begin
+    // Clone only valid images
+    if Imaging.TestImage(ADataArray[I]) then
+      Imaging.CloneImage(ADataArray[I], FDataArray[I])
+    else
+      Imaging.NewImage(DefaultWidth, DefaultHeight, ifDefault, FDataArray[I]);
+  end;
+  if GetImageCount > 0 then
+    SetActiveImage(0);
+end;
+
+function TMultiImage.AddImage(AWidth, AHeight: Integer; AFormat: TImageFormat): Integer;
+begin
+  Result := GetImageCount;
+  DoInsertNew(Result, AWidth, AHeight, AFormat);
+end;
+
+function TMultiImage.AddImage(const Image: TImageData): Integer;
+begin
+  Result := GetImageCount;
+  DoInsertImages(Result, GetArrayFromImageData(Image));
+end;
+
+function TMultiImage.AddImage(Image: TBaseImage): Integer;
+begin
+  if Assigned(Image) and Image.Valid then
+  begin
+    Result := GetImageCount;
+    DoInsertImages(Result, GetArrayFromImageData(Image.FPData^));
+  end
+  else
+    Result := -1;
+end;
+
+procedure TMultiImage.AddImages(const Images: TDynImageDataArray);
+begin
+  DoInsertImages(GetImageCount, Images);
+end;
+
+procedure TMultiImage.AddImages(Images: TMultiImage);
+begin
+  DoInsertImages(GetImageCount, Images.FDataArray);
+end;
+
+procedure TMultiImage.InsertImage(Index, AWidth, AHeight: Integer;
+  AFormat: TImageFormat);
+begin
+  DoInsertNew(Index, AWidth, AHeight, AFormat);
+end;
+
+procedure TMultiImage.InsertImage(Index: Integer; const Image: TImageData);
+begin
+  DoInsertImages(Index, GetArrayFromImageData(Image));
+end;
+
+procedure TMultiImage.InsertImage(Index: Integer; Image: TBaseImage);
+begin
+  if Assigned(Image) and Image.Valid then
+    DoInsertImages(Index, GetArrayFromImageData(Image.FPData^));
+end;
+
+procedure TMultiImage.InsertImages(Index: Integer;
+  const Images: TDynImageDataArray);
+begin
+  DoInsertImages(Index, FDataArray);
+end;
+
+procedure TMultiImage.InsertImages(Index: Integer; Images: TMultiImage);
+begin
+  DoInsertImages(Index, Images.FDataArray);
+end;
+
+procedure TMultiImage.ExchangeImages(Index1, Index2: Integer);
+var
+  TempData: TImageData;
+begin
+  if (Index1 >= 0) and (Index1 < GetImageCount) and
+     (Index2 >= 0) and (Index2 < GetImageCount) then
+  begin
+    TempData := FDataArray[Index1];
+    FDataArray[Index1] := FDataArray[Index2];
+    FDataArray[Index2] := TempData;
+  end;
+end;
+
+procedure TMultiImage.DeleteImage(Index: Integer);
+var
+  I: Integer;
+begin
+  if (Index >= 0) and (Index < GetImageCount) then
+  begin
+    // Free image at index to be deleted
+    Imaging.FreeImage(FDataArray[Index]);
+    if Index < GetImageCount - 1 then
+    begin
+      // Move images to new indices if necessary
+      for I := Index to GetImageCount - 2 do
+        FDataArray[I] := FDataArray[I + 1];
+    end;
+    // Set new array length and update pointer to active image
+    SetLength(FDataArray, GetImageCount - 1);
+    SetPointer;
+  end;
+end;
+
+procedure TMultiImage.ClearAll;
+begin
+  ImageCount := 0;
+end;
+
+procedure TMultiImage.ConvertImages(Format: TImageFormat);
+var
+  I: Integer;
+begin
+  for I := 0 to GetImageCount - 1 do
+    Imaging.ConvertImage(FDataArray[I], Format);
+end;
+
+procedure TMultiImage.ResizeImages(NewWidth, NewHeight: Integer;
+  Filter: TResizeFilter);
+var
+  I: Integer;
+begin
+  for I := 0 to GetImageCount - 1 do
+    Imaging.ResizeImage(FDataArray[I], NewWidth, NewHeight, Filter);
+end;
+
+procedure TMultiImage.ReverseImages;
+var
+  I: Integer;
+begin
+  for I := 0 to GetImageCount div 2 do
+    ExchangeImages(I, GetImageCount - 1 - I);
+end;
+
+procedure TMultiImage.LoadFromFile(const FileName: string);
+begin
+  if GetImageCount = 0 then
+    ImageCount := 1;
+  inherited LoadFromFile(FileName);
+end;
+
+procedure TMultiImage.LoadFromStream(Stream: TStream);
+begin
+  if GetImageCount = 0 then
+    ImageCount := 1;
+  inherited LoadFromStream(Stream);
+end;
+
+procedure TMultiImage.LoadMultiFromFile(const FileName: string);
+begin
+  Imaging.LoadMultiImageFromFile(FileName, FDataArray);
+  SetActiveImage(0);
+end;
+
+procedure TMultiImage.LoadMultiFromStream(Stream: TStream);
+begin
+  Imaging.LoadMultiImageFromStream(Stream, FDataArray);
+  SetActiveImage(0);
+end;
+
+procedure TMultiImage.SaveMultiToFile(const FileName: string);
+begin
+  Imaging.SaveMultiImageToFile(FileName, FDataArray);
+end;
+
+procedure TMultiImage.SaveMultiToStream(const Ext: string; Stream: TStream);
+begin
+  Imaging.SaveMultiImageToStream(Ext, Stream, FDataArray);
+end;
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ---------------------------------------------------
+    - Added TSingleImage.AssignFromData and TMultiImage.AssigntFromArray
+      as a replacement for constructors used as methods (that is
+      compiler error in Delphi XE3).
+    - Added TBaseImage.ResizeToFit method.
+    - Changed TMultiImage to have default state with no images.
+    - TMultiImage.AddImage now returns index of newly added image.
+    - Fixed img index bug in TMultiImage.ResizeImages
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Added MapImageData method to TBaseImage
+    - Added Empty property to TBaseImage.
+    - Added Clear method to TBaseImage.
+    - Added ScanlineSize property to TBaseImage.
+
+  -- 0.24.3 Changes/Bug Fixes ---------------------------------
+    - Added TMultiImage.ReverseImages method.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added SwapChannels method to TBaseImage.
+    - Added ReplaceColor method to TBaseImage.
+    - Added ToString method to TBaseImage.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Inserting images to empty MultiImage will act as Add method.
+    - MultiImages with empty arrays will now create one image when
+      LoadFromFile or LoadFromStream is called.
+    - Fixed bug that caused AVs when getting props like Width, Height, asn Size
+      and when inlining was off. There was call to Iff but with inlining disabled
+      params like FPData.Size were evaluated and when FPData was nil => AV.
+    - Added many FPData validity checks to many methods. There were AVs
+      when calling most methods on empty TMultiImage.
+    - Added AllImagesValid property to TMultiImage.
+    - Fixed memory leak in TMultiImage.CreateFromParams.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added ResizeImages method to TMultiImage
+    - removed Ext parameter from various LoadFromStream methods, no
+      longer needed
+    - fixed various issues concerning ActiveImage of TMultiImage
+      (it pointed to invalid location after some operations)
+    - most of property set/get methods are now inline
+    - added PixelPointers property to TBaseImage
+    - added Images default array property to TMultiImage
+    - renamed methods in TMultiImage to contain 'Image' instead of 'Level'
+    - added canvas support
+    - added OnDataSizeChanged and OnPixelsChanged event to TBaseImage
+    - renamed TSingleImage.NewImage to RecreateImageData, made public, and
+      moved to TBaseImage
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - added props PaletteEntries and ScanLine to TBaseImage
+    - aded new constructor to TBaseImage that take TBaseImage source
+    - TMultiImage levels adding and inserting rewritten internally
+    - added some new functions to TMultiImage: AddLevels, InsertLevels
+    - added some new functions to TBaseImage: Flip, Mirror, Rotate,
+      CopyRect, StretchRect
+    - TBasicImage.Resize has now filter parameter
+    - new stuff added to TMultiImage (DataArray prop, ConvertLevels)
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - added AddLevel, InsertLevel, ExchangeLevels and DeleteLevel
+      methods to TMultiImage
+    - added TBaseImage, TSingleImage and TMultiImage with initial
+      members
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingColors.pas b/src/lib/vampimg/ImagingColors.pas

new file mode 100644 (file)

index 0000000..c7fd428
--- /dev/null
+++ b/src/lib/vampimg/ImagingColors.pas
@@ -0,0 +1,246 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains functions for manipulating and converting color values.}
+unit ImagingColors;
+
+interface
+
+{$I ImagingOptions.inc}
+
+uses
+  SysUtils, ImagingTypes, ImagingUtility;
+
+{ Converts RGB color to YUV.}
+procedure RGBToYUV(R, G, B: Byte; var Y, U, V: Byte);
+{ Converts YIV to RGB color.}
+procedure YUVToRGB(Y, U, V: Byte; var R, G, B: Byte);
+
+{ Converts RGB color to YCbCr as used in JPEG.}
+procedure RGBToYCbCr(R, G, B: Byte; var Y, Cb, Cr: Byte);
+{ Converts YCbCr as used in JPEG to RGB color.}
+procedure YCbCrToRGB(Y, Cb, Cr: Byte; var R, G, B: Byte);
+{ Converts RGB color to YCbCr as used in JPEG.}
+procedure RGBToYCbCr16(R, G, B: Word; var Y, Cb, Cr: Word);
+{ Converts YCbCr as used in JPEG to RGB color.}
+procedure YCbCrToRGB16(Y, Cb, Cr: Word; var R, G, B: Word);
+
+{ Converts RGB color to CMY.}
+procedure RGBToCMY(R, G, B: Byte; var C, M, Y: Byte);
+{ Converts CMY to RGB color.}
+procedure CMYToRGB(C, M, Y: Byte; var R, G, B: Byte);
+{ Converts RGB color to CMY.}
+procedure RGBToCMY16(R, G, B: Word; var C, M, Y: Word);
+{ Converts CMY to RGB color.}
+procedure CMYToRGB16(C, M, Y: Word; var R, G, B: Word);
+
+{ Converts RGB color to CMYK.}
+procedure RGBToCMYK(R, G, B: Byte; var C, M, Y, K: Byte);
+{ Converts CMYK to RGB color.}
+procedure CMYKToRGB(C, M, Y, K: Byte; var R, G, B: Byte);
+{ Converts RGB color to CMYK.}
+procedure RGBToCMYK16(R, G, B: Word; var C, M, Y, K: Word);
+{ Converts CMYK to RGB color.}
+procedure CMYKToRGB16(C, M, Y, K: Word; var R, G, B: Word);
+
+{ Converts RGB color to YCoCg.}
+procedure RGBToYCoCg(R, G, B: Byte; var Y, Co, Cg: Byte);
+{ Converts YCoCg to RGB color.}
+procedure YCoCgToRGB(Y, Co, Cg: Byte; var R, G, B: Byte);
+
+//procedure RGBToHSL(R, G, B: Byte; var H, S, L: Byte);
+//procedure HSLToRGB(H, S, L: Byte; var R, G, B: Byte);
+
+implementation
+
+procedure RGBToYUV(R, G, B: Byte; var Y, U, V: Byte);
+begin
+  Y := ClampToByte(Round( 0.257 * R + 0.504 * G + 0.098 * B) + 16);
+  V := ClampToByte(Round( 0.439 * R - 0.368 * G - 0.071 * B) + 128);
+  U := ClampToByte(Round(-0.148 * R - 0.291 * G + 0.439 * B) + 128);
+end;
+
+procedure YUVToRGB(Y, U, V: Byte; var R, G, B: Byte);
+var
+  CY, CU, CV: LongInt;
+begin
+  CY := Y - 16;
+  CU := U - 128;
+  CV := V - 128;
+  R := ClampToByte(Round(1.164 * CY - 0.002 * CU + 1.596 * CV));
+  G := ClampToByte(Round(1.164 * CY - 0.391 * CU - 0.813 * CV));
+  B := ClampToByte(Round(1.164 * CY + 2.018 * CU - 0.001 * CV));
+end;
+
+procedure RGBToYCbCr(R, G, B: Byte; var Y, Cb, Cr: Byte);
+begin
+  Y  := ClampToByte(Round( 0.29900 * R + 0.58700 * G + 0.11400 * B));
+  Cb := ClampToByte(Round(-0.16874 * R - 0.33126 * G + 0.50000 * B  + 128));
+  Cr := ClampToByte(Round( 0.50000 * R - 0.41869 * G - 0.08131 * B  + 128));
+end;
+
+procedure YCbCrToRGB(Y, Cb, Cr: Byte; var R, G, B: Byte);
+begin
+  R := ClampToByte(Round(Y                        + 1.40200 * (Cr - 128)));
+  G := ClampToByte(Round(Y - 0.34414 * (Cb - 128) - 0.71414 * (Cr - 128)));
+  B := ClampToByte(Round(Y + 1.77200 * (Cb - 128)));
+end;
+
+procedure RGBToYCbCr16(R, G, B: Word; var Y, Cb, Cr: Word);
+begin
+  Y  := ClampToWord(Round( 0.29900 * R + 0.58700 * G + 0.11400 * B));
+  Cb := ClampToWord(Round(-0.16874 * R - 0.33126 * G + 0.50000 * B  + 32768));
+  Cr := ClampToWord(Round( 0.50000 * R - 0.41869 * G - 0.08131 * B  + 32768));
+end;
+
+procedure YCbCrToRGB16(Y, Cb, Cr: Word; var R, G, B: Word);
+begin
+  R := ClampToWord(Round(Y                          + 1.40200 * (Cr - 32768)));
+  G := ClampToWord(Round(Y - 0.34414 * (Cb - 32768) - 0.71414 * (Cr - 32768)));
+  B := ClampToWord(Round(Y + 1.77200 * (Cb - 32768)));
+end;
+
+procedure RGBToCMY(R, G, B: Byte; var C, M, Y: Byte);
+begin
+  C := 255 - R;
+  M := 255 - G;
+  Y := 255 - B;
+end;
+
+procedure CMYToRGB(C, M, Y: Byte; var R, G, B: Byte);
+begin
+  R := 255 - C;
+  G := 255 - M;
+  B := 255 - Y;
+end;
+
+procedure RGBToCMY16(R, G, B: Word; var C, M, Y: Word);
+begin
+  C := 65535 - R;
+  M := 65535 - G;
+  Y := 65535 - B;
+end;
+
+procedure CMYToRGB16(C, M, Y: Word; var R, G, B: Word);
+begin
+  R := 65535 - C;
+  G := 65535 - M;
+  B := 65535 - Y;
+end;
+
+procedure RGBToCMYK(R, G, B: Byte; var C, M, Y, K: Byte);
+begin
+  RGBToCMY(R, G, B, C, M, Y);
+  K := Min(C, Min(M, Y));
+  if K = 255 then
+  begin
+    C := 0;
+    M := 0;
+    Y := 0;
+  end
+  else
+  begin
+    C := ClampToByte(Round((C - K) / (255 - K) * 255));
+    M := ClampToByte(Round((M - K) / (255 - K) * 255));
+    Y := ClampToByte(Round((Y - K) / (255 - K) * 255));
+  end;
+end;
+
+procedure CMYKToRGB(C, M, Y, K: Byte; var R, G, B: Byte);
+begin
+   R := (255 - (C - MulDiv(C, K, 255) + K));
+   G := (255 - (M - MulDiv(M, K, 255) + K));
+   B := (255 - (Y - MulDiv(Y, K, 255) + K));
+end;
+
+procedure RGBToCMYK16(R, G, B: Word; var C, M, Y, K: Word);
+begin
+  RGBToCMY16(R, G, B, C, M, Y);
+  K := Min(C, Min(M, Y));
+  if K = 65535 then
+  begin
+    C := 0;
+    M := 0;
+    Y := 0;
+  end
+  else
+  begin
+    C := ClampToWord(Round((C - K) / (65535 - K) * 65535));
+    M := ClampToWord(Round((M - K) / (65535 - K) * 65535));
+    Y := ClampToWord(Round((Y - K) / (65535 - K) * 65535));
+  end;
+end;
+
+procedure CMYKToRGB16(C, M, Y, K: Word; var R, G, B: Word);
+begin
+  R := 65535 - (C - MulDiv(C, K, 65535) + K);
+  G := 65535 - (M - MulDiv(M, K, 65535) + K);
+  B := 65535 - (Y - MulDiv(Y, K, 65535) + K);
+end;
+
+procedure RGBToYCoCg(R, G, B: Byte; var Y, Co, Cg: Byte);
+begin
+  // C and Delphi's SHR behaviour differs for negative numbers, use div instead.
+  Y  := ClampToByte(( R +     G shl 1 + B       + 2) div 4);
+  Co := ClampToByte(( R shl 1         - B shl 1 + 2) div 4 + 128);
+  Cg := ClampToByte((-R +     G shl 1 - B       + 2) div 4 + 128);
+end;
+
+procedure YCoCgToRGB(Y, Co, Cg: Byte; var R, G, B: Byte);
+var
+  CoInt, CgInt: Integer;
+begin
+  CoInt := Co - 128;
+  CgInt := Cg - 128;
+  R := ClampToByte(Y + CoInt - CgInt);
+  G := ClampToByte(Y + CgInt);
+  B := ClampToByte(Y - CoInt - CgInt);
+end;
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Added RGB<>YCoCg conversion functions.
+    - Fixed RGB>>CMYK conversions.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added RGB<>CMY(K) converion functions for 16 bit channels
+      (needed by PSD loading code).
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Added some color space conversion functions and LUTs
+      (RGB/YUV/YCrCb/CMY/CMYK).
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - unit created (empty!)
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingComponents.pas b/src/lib/vampimg/ImagingComponents.pas

new file mode 100644 (file)

index 0000000..61451fe
--- /dev/null
+++ b/src/lib/vampimg/ImagingComponents.pas
@@ -0,0 +1,1296 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains VCL/LCL TGraphic descendant which uses Imaging library
+  for saving and loading.}
+unit ImagingComponents;
+
+{$I ImagingOptions.inc}
+
+interface
+
+{$IFDEF LCL}
+  {$DEFINE COMPONENT_SET_LCL}
+  {$UNDEF COMPONENT_SET_VCL}
+{$ENDIF}
+
+{$IF not Defined(COMPONENT_SET_LCL) and not Defined(COMPONENT_SET_VCL)}
+// If no component sets should be used just include empty unit.
+//DOC-IGNORE-BEGIN
+implementation
+//DOC-IGNORE-END
+{$ELSE}
+
+uses
+  SysUtils, Types, Classes,
+{$IFDEF MSWINDOWS}
+  Windows,
+{$ENDIF}
+{$IFDEF COMPONENT_SET_VCL}
+  Graphics,
+{$ENDIF}
+{$IFDEF COMPONENT_SET_LCL}
+  InterfaceBase,
+  GraphType,
+  Graphics,
+  LCLType,
+  LCLIntf,
+{$ENDIF}
+  ImagingTypes, Imaging, ImagingClasses;
+
+type
+  { Graphic class which uses Imaging to load images.
+    It has standard TBitmap class as ancestor and it can
+    Assign also to/from TImageData structres and TBaseImage
+    classes. For saving is uses inherited TBitmap methods.
+    This class is automatically registered to TPicture for all
+    file extensions supported by Imaging (useful only for loading).
+    If you just want to load images in various formats you can use this
+    class or simply use  TPicture.LoadFromXXX which will create this class
+    automatically. For TGraphic class that saves with Imaging look
+    at TImagingGraphicForSave class.}
+  TImagingGraphic = class(TBitmap)
+  protected
+    procedure ReadDataFromStream(Stream: TStream); virtual;
+    procedure AssignTo(Dest: TPersistent); override;
+  public
+    constructor Create; override;
+
+    { Loads new image from the stream. It can load all image
+      file formats supported by Imaging (and enabled of course)
+      even though it is called by descendant class capable of
+      saving only one file format.}
+    procedure LoadFromStream(Stream: TStream); override;
+    { Copies the image contained in Source to this graphic object.
+      Supports also TBaseImage descendants from ImagingClasses unit. }
+    procedure Assign(Source: TPersistent); override;
+    { Copies the image contained in TBaseImage to this graphic object.}
+    procedure AssignFromImage(Image: TBaseImage);
+    { Copies the current image to TBaseImage object.}
+    procedure AssignToImage(Image: TBaseImage);
+    { Copies the image contained in TImageData structure to this graphic object.}
+    procedure AssignFromImageData(const ImageData: TImageData);
+    { Copies the current image to TImageData structure.}
+    procedure AssignToImageData(var ImageData: TImageData);
+  end;
+
+  TImagingGraphicClass = class of TImagingGraphic;
+
+  { Base class for file format specific TGraphic classes that use
+    Imaging for saving. Each descendant class can load all file formats
+    supported by Imaging but save only one format (TImagingBitmap
+    for *.bmp, TImagingJpeg for *.jpg). Format specific classes also
+    allow easy access to Imaging options that affect saving of files
+    (they are properties here).}
+  TImagingGraphicForSave = class(TImagingGraphic)
+  protected
+    FDefaultFileExt: string;
+    FSavingFormat: TImageFormat;
+    procedure WriteDataToStream(Stream: TStream); virtual;
+  public
+    constructor Create; override;
+    { Saves the current image to the stream. It is saved in the
+      file format according to the DefaultFileExt property.
+      So each descendant class can save some other file format.}
+    procedure SaveToStream(Stream: TStream); override;
+    { Returns TImageFileFormat descendant for this graphic class.}
+    class function GetFileFormat: TImageFileFormat; virtual; abstract;
+  {$IFDEF COMPONENT_SET_LCL}
+    { Returns file extensions of this graphic class.}
+    class function GetFileExtensions: string; override;
+    { Returns default MIME type of this graphic class.}
+    function GetMimeType: string; override;
+  {$ENDIF}
+    { Default (the most common) file extension of this graphic class.}
+    property DefaultFileExt: string read FDefaultFileExt;
+  end;
+
+  TImagingGraphicForSaveClass = class of TImagingGraphicForSave;
+
+{$IFNDEF DONT_LINK_BITMAP}
+  { TImagingGraphic descendant for loading/saving Windows bitmaps.
+    VCL/CLX/LCL all have native support for bitmaps so you might
+    want to disable this class (although you can save bitmaps with
+    RLE compression with this class).}
+  TImagingBitmap = class(TImagingGraphicForSave)
+  protected
+    FUseRLE: Boolean;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+    { See ImagingBitmapRLE option for details.}
+    property UseRLE: Boolean read FUseRLE write FUseRLE;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JPEG}
+  { TImagingGraphic descendant for loading/saving JPEG images.}
+  TImagingJpeg = class(TImagingGraphicForSave)
+  protected
+    FQuality: LongInt;
+    FProgressive: Boolean;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+  {$IFDEF COMPONENT_SET_LCL}
+    function GetMimeType: string; override;
+  {$ENDIF}
+    { See ImagingJpegQuality option for details.}
+    property Quality: LongInt read FQuality write FQuality;
+    { See ImagingJpegProgressive option for details.}
+    property Progressive: Boolean read FProgressive write FProgressive;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_PNG}
+  { TImagingGraphic descendant for loading/saving PNG images.}
+  TImagingPNG = class(TImagingGraphicForSave)
+  protected
+    FPreFilter: LongInt;
+    FCompressLevel: LongInt;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+    { See ImagingPNGPreFilter option for details.}
+    property PreFilter: LongInt read FPreFilter write FPreFilter;
+    { See ImagingPNGCompressLevel option for details.}
+    property CompressLevel: LongInt read FCompressLevel write FCompressLevel;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_GIF}
+  { TImagingGraphic descendant for loading/saving GIF images.}
+  TImagingGIF = class(TImagingGraphicForSave)
+  public
+    class function GetFileFormat: TImageFileFormat; override;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_TARGA}
+  { TImagingGraphic descendant for loading/saving Targa images.}
+  TImagingTarga = class(TImagingGraphicForSave)
+  protected
+    FUseRLE: Boolean;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+    { See ImagingTargaRLE option for details.}
+    property UseRLE: Boolean read FUseRLE write FUseRLE;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_DDS}
+  { Compresssion type used when saving DDS files by TImagingDds.}
+  TDDSCompresion = (dcNone, dcDXT1, dcDXT3, dcDXT5);
+
+  { TImagingGraphic descendant for loading/saving DDS images.}
+  TImagingDDS = class(TImagingGraphicForSave)
+  protected
+    FCompression: TDDSCompresion;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+    { You can choose compression type used when saving DDS file.
+      dcNone means that file will be saved in the current bitmaps pixel format.}
+    property Compression: TDDSCompresion read FCompression write FCompression;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_MNG}
+  { TImagingGraphic descendant for loading/saving MNG images.}
+  TImagingMNG = class(TImagingGraphicForSave)
+  protected
+    FLossyCompression: Boolean;
+    FLossyAlpha: Boolean;
+    FPreFilter: LongInt;
+    FCompressLevel: LongInt;
+    FQuality: LongInt;
+    FProgressive: Boolean;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+  {$IFDEF COMPONENT_SET_LCL}
+    function GetMimeType: string; override;
+  {$ENDIF}
+    { See ImagingMNGLossyCompression option for details.}
+    property LossyCompression: Boolean read FLossyCompression write FLossyCompression;
+    { See ImagingMNGLossyAlpha option for details.}
+    property LossyAlpha: Boolean read FLossyAlpha write FLossyAlpha;
+    { See ImagingMNGPreFilter option for details.}
+    property PreFilter: LongInt read FPreFilter write FPreFilter;
+    { See ImagingMNGCompressLevel option for details.}
+    property CompressLevel: LongInt read FCompressLevel write FCompressLevel;
+    { See ImagingMNGQuality option for details.}
+    property Quality: LongInt read FQuality write FQuality;
+    { See ImagingMNGProgressive option for details.}
+    property Progressive: Boolean read FProgressive write FProgressive;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JNG}
+  { TImagingGraphic descendant for loading/saving JNG images.}
+  TImagingJNG = class(TImagingGraphicForSave)
+  protected
+    FLossyAlpha: Boolean;
+    FAlphaPreFilter: LongInt;
+    FAlphaCompressLevel: LongInt;
+    FQuality: LongInt;
+    FProgressive: Boolean;
+  public
+    constructor Create; override;
+    procedure SaveToStream(Stream: TStream); override;
+    class function GetFileFormat: TImageFileFormat; override;
+    { See ImagingJNGLossyAlpha option for details.}
+    property LossyAlpha: Boolean read FLossyAlpha write FLossyAlpha;
+    { See ImagingJNGPreFilter option for details.}
+    property AlphaPreFilter: LongInt read FAlphaPreFilter write FAlphaPreFilter;
+    { See ImagingJNGCompressLevel option for details.}
+    property AlphaCompressLevel: LongInt read FAlphaCompressLevel write FAlphaCompressLevel;
+    { See ImagingJNGQuality option for details.}
+    property Quality: LongInt read FQuality write FQuality;
+    { See ImagingJNGProgressive option for details.}
+    property Progressive: Boolean read FProgressive write FProgressive;
+  end;
+{$ENDIF}
+
+{ Returns bitmap pixel format with the closest match with given data format.}
+function DataFormatToPixelFormat(Format: TImageFormat): TPixelFormat;
+{ Returns data format with closest match with given bitmap pixel format.}
+function PixelFormatToDataFormat(Format: TPixelFormat): TImageFormat;
+
+{ Converts TImageData structure to VCL/CLX/LCL bitmap.}
+procedure ConvertDataToBitmap(const Data: TImageData; Bitmap: TBitmap);
+{ Converts VCL/CLX/LCL bitmap to TImageData structure.}
+procedure ConvertBitmapToData(Bitmap: TBitmap; var Data: TImageData);
+{ Converts TBaseImage instance to VCL/CLX/LCL bitmap.}
+procedure ConvertImageToBitmap(Image: TBaseImage; Bitmap: TBitmap);
+{ Converts VCL/CLX/LCL bitmap to TBaseImage. Image must exist before
+  procedure is called. It overwrites its current image data.
+  When Image is TMultiImage only the current image level is overwritten.}
+procedure ConvertBitmapToImage(Bitmap: TBitmap; Image: TBaseImage);
+
+{ Displays image stored in TImageData structure onto TCanvas. This procedure
+  draws image without converting from Imaging format to TBitmap.
+  Only [ifA8R8G8B8, ifX8R8G8B8] image formats are supported. Use this
+  when you want displaying images that change frequently (because converting to
+  TBitmap by ConvertImageDataToBitmap is generally slow). Dest and Src
+  rectangles represent coordinates in the form (X1, Y1, X2, Y2).}
+procedure DisplayImageData(DstCanvas: TCanvas; const DstRect: TRect; const ImageData: TImageData; const SrcRect: TRect);
+{ Displays image onto TCanvas at position [DstX, DstY]. This procedure
+  draws image without converting from Imaging format to TBitmap.
+  Only [ifA8R8G8B8, ifX8R8G8B8] image formats are supported. Use this
+  when you want displaying images that change frequently (because converting to
+  TBitmap by ConvertImageDataToBitmap is generally slow).}
+procedure DisplayImage(DstCanvas: TCanvas; DstX, DstY: LongInt; Image: TBaseImage); overload;
+{ Displays image onto TCanvas to rectangle DstRect. This procedure
+  draws image without converting from Imaging format to TBitmap.
+  Only [ifA8R8G8B8, ifX8R8G8B8] image formats are supported. Use this
+  when you want displaying images that change frequently (because converting to
+  TBitmap by ConvertImageDataToBitmap is generally slow).}
+procedure DisplayImage(DstCanvas: TCanvas; const DstRect: TRect; Image: TBaseImage); overload;
+{ Displays part of the image specified by SrcRect onto TCanvas to rectangle DstRect.
+  This procedure draws image without converting from Imaging format to TBitmap.
+  Only [ifA8R8G8B8, ifX8R8G8B8] image formats are supported. Use this
+  when you want displaying images that change frequently (because converting to
+  TBitmap by ConvertImageDataToBitmap is generally slow).}
+procedure DisplayImage(DstCanvas: TCanvas; const DstRect: TRect; Image: TBaseImage; const SrcRect: TRect); overload;
+
+{$IFDEF MSWINDOWS}
+{ Displays image stored in TImageData structure onto Windows device context.
+  Behaviour is the same as of DisplayImageData.}
+procedure DisplayImageDataOnDC(DC: HDC; const DstRect: TRect; const ImageData: TImageData; const SrcRect: TRect);
+{$ENDIF}
+
+implementation
+
+uses
+{$IF Defined(LCL)}
+  {$IF Defined(LCLGTK2)}
+    GLib2, GDK2, GTK2, GTK2Def, GTK2Proc,
+  {$IFEND}
+{$IFEND}
+{$IFNDEF DONT_LINK_BITMAP}
+  ImagingBitmap,
+{$ENDIF}
+{$IFNDEF DONT_LINK_JPEG}
+  ImagingJpeg,
+{$ENDIF}
+{$IFNDEF DONT_LINK_GIF}
+  ImagingGif,
+{$ENDIF}
+{$IFNDEF DONT_LINK_TARGA}
+  ImagingTarga,
+{$ENDIF}
+{$IFNDEF DONT_LINK_DDS}
+  ImagingDds,
+{$ENDIF}
+{$IF not Defined(DONT_LINK_PNG) or not Defined(DONT_LINK_MNG) or not Defined(DONT_LINK_JNG)}
+  ImagingNetworkGraphics,
+{$IFEND}
+  ImagingFormats, ImagingUtility;
+
+resourcestring
+  SBadFormatDataToBitmap = 'Cannot find compatible bitmap format for image %s';
+  SBadFormatBitmapToData = 'Cannot find compatible data format for bitmap %p';
+  SBadFormatDisplay = 'Unsupported image format passed';
+  SUnsupportedLCLWidgetSet = 'This function is not implemented for current LCL widget set';
+  SImagingGraphicName = 'Imaging Graphic AllInOne';
+
+{ Registers types to VCL/LCL.}
+procedure RegisterTypes;
+var
+  I: LongInt;
+
+  procedure RegisterFileFormatAllInOne(Format: TImageFileFormat);
+  var
+    I: LongInt;
+  begin
+    for I := 0 to Format.Extensions.Count - 1 do
+      TPicture.RegisterFileFormat(Format.Extensions[I], SImagingGraphicName,
+        TImagingGraphic);
+  end;
+
+  procedure RegisterFileFormat(AClass: TImagingGraphicForSaveClass);
+  var
+    I: LongInt;
+  begin
+    for I := 0 to AClass.GetFileFormat.Extensions.Count - 1 do
+      TPicture.RegisterFileFormat(AClass.GetFileFormat.Extensions[I],
+        AClass.GetFileFormat.Name, AClass);
+  end;
+
+begin
+  for I := Imaging.GetFileFormatCount - 1 downto 0 do
+    RegisterFileFormatAllInOne(Imaging.GetFileFormatAtIndex(I));
+  Classes.RegisterClass(TImagingGraphic);
+
+{$IFNDEF DONT_LINK_TARGA}
+  RegisterFileFormat(TImagingTarga);
+  Classes.RegisterClass(TImagingTarga);
+{$ENDIF}
+{$IFNDEF DONT_LINK_DDS}
+  RegisterFileFormat(TImagingDDS);
+  Classes.RegisterClass(TImagingDDS);
+{$ENDIF}
+{$IFNDEF DONT_LINK_JNG}
+  RegisterFileFormat(TImagingJNG);
+  Classes.RegisterClass(TImagingJNG);
+{$ENDIF}
+{$IFNDEF DONT_LINK_MNG}
+  RegisterFileFormat(TImagingMNG);
+  Classes.RegisterClass(TImagingMNG);
+{$ENDIF}
+{$IFNDEF DONT_LINK_GIF}
+  RegisterFileFormat(TImagingGIF);
+  Classes.RegisterClass(TImagingGIF);
+{$ENDIF}
+{$IFNDEF DONT_LINK_PNG}
+  {$IFDEF COMPONENT_SET_LCL}
+    // Unregister Lazarus´ default PNG loader which crashes on some PNG files
+    TPicture.UnregisterGraphicClass(TPortableNetworkGraphic);
+  {$ENDIF}
+  RegisterFileFormat(TImagingPNG);
+  Classes.RegisterClass(TImagingPNG);
+{$ENDIF}
+{$IFNDEF DONT_LINK_JPEG}
+  RegisterFileFormat(TImagingJpeg);
+  Classes.RegisterClass(TImagingJpeg);
+{$ENDIF}
+{$IFNDEF DONT_LINK_BITMAP}
+  RegisterFileFormat(TImagingBitmap);
+  Classes.RegisterClass(TImagingBitmap);
+{$ENDIF}
+end;
+
+{ Unregisters types from VCL/LCL.}
+procedure UnRegisterTypes;
+begin
+{$IFNDEF DONT_LINK_BITMAP}
+  TPicture.UnregisterGraphicClass(TImagingBitmap);
+  Classes.UnRegisterClass(TImagingBitmap);
+{$ENDIF}
+{$IFNDEF DONT_LINK_JPEG}
+  TPicture.UnregisterGraphicClass(TImagingJpeg);
+  Classes.UnRegisterClass(TImagingJpeg);
+{$ENDIF}
+{$IFNDEF DONT_LINK_PNG}
+  TPicture.UnregisterGraphicClass(TImagingPNG);
+  Classes.UnRegisterClass(TImagingPNG);
+{$ENDIF}
+{$IFNDEF DONT_LINK_GIF}
+  TPicture.UnregisterGraphicClass(TImagingGIF);
+  Classes.UnRegisterClass(TImagingGIF);
+{$ENDIF}
+{$IFNDEF DONT_LINK_TARGA}
+  TPicture.UnregisterGraphicClass(TImagingTarga);
+  Classes.UnRegisterClass(TImagingTarga);
+{$ENDIF}
+{$IFNDEF DONT_LINK_DDS}
+  TPicture.UnregisterGraphicClass(TImagingDDS);
+  Classes.UnRegisterClass(TImagingDDS);
+{$ENDIF}
+  TPicture.UnregisterGraphicClass(TImagingGraphic);
+  Classes.UnRegisterClass(TImagingGraphic);
+end;
+
+function DataFormatToPixelFormat(Format: TImageFormat): TPixelFormat;
+begin
+  case Format of
+{$IFDEF COMPONENT_SET_VCL}
+    ifIndex8: Result := pf8bit;
+    ifR5G6B5: Result := pf16bit;
+    ifR8G8B8: Result := pf24bit;
+{$ENDIF}
+    ifA8R8G8B8,
+    ifX8R8G8B8: Result := pf32bit;
+  else
+    Result := pfCustom;
+  end;
+end;
+
+function PixelFormatToDataFormat(Format: TPixelFormat): TImageFormat;
+begin
+  case Format of
+    pf8bit: Result := ifIndex8;
+    pf15bit: Result := ifA1R5G5B5;
+    pf16bit: Result := ifR5G6B5;
+    pf24bit: Result := ifR8G8B8;
+    pf32bit: Result := ifA8R8G8B8;
+  else
+    Result := ifUnknown;
+  end;
+end;
+
+procedure ConvertDataToBitmap(const Data: TImageData; Bitmap: TBitmap);
+var
+  I, LineBytes: LongInt;
+  PF: TPixelFormat;
+  Info: TImageFormatInfo;
+  WorkData: TImageData;
+{$IFDEF COMPONENT_SET_VCL}
+  LogPalette: TMaxLogPalette;
+{$ENDIF}
+{$IFDEF COMPONENT_SET_LCL}
+  RawImage: TRawImage;
+  ImgHandle, ImgMaskHandle: HBitmap;
+{$ENDIF}
+begin
+  PF := DataFormatToPixelFormat(Data.Format);
+  GetImageFormatInfo(Data.Format, Info);
+
+  if (PF = pf8bit) and PaletteHasAlpha(Data.Palette, Info.PaletteEntries) then
+  begin
+    // Some indexed images may have valid alpha data, dont lose it!
+    // (e.g. transparent 8bit PNG or GIF images)
+    PF := pfCustom;
+  end;
+
+  if PF = pfCustom then
+  begin
+    // Convert from formats not supported by Graphics unit
+    Imaging.InitImage(WorkData);
+    Imaging.CloneImage(Data, WorkData);
+    if Info.IsFloatingPoint or Info.HasAlphaChannel or Info.IsSpecial then
+      Imaging.ConvertImage(WorkData, ifA8R8G8B8)
+    else
+    begin
+{$IFDEF COMPONENT_SET_VCL}
+      if Info.IsIndexed or Info.HasGrayChannel then
+        Imaging.ConvertImage(WorkData, ifIndex8)
+      else if Info.UsePixelFormat then
+        Imaging.ConvertImage(WorkData, ifR5G6B5)
+      else
+        Imaging.ConvertImage(WorkData, ifR8G8B8);
+{$ELSE}
+        Imaging.ConvertImage(WorkData, ifA8R8G8B8);
+{$ENDIF}
+    end;
+
+    PF := DataFormatToPixelFormat(WorkData.Format);
+    GetImageFormatInfo(WorkData.Format, Info);
+  end
+  else
+    WorkData := Data;
+
+  if PF = pfCustom then
+    RaiseImaging(SBadFormatDataToBitmap, [ImageToStr(WorkData)]);
+
+  LineBytes := WorkData.Width * Info.BytesPerPixel;
+
+{$IFDEF COMPONENT_SET_VCL}
+  Bitmap.Width := WorkData.Width;
+  Bitmap.Height := WorkData.Height;
+  Bitmap.PixelFormat := PF;
+
+  if (PF = pf8bit) and (WorkData.Palette <> nil) then
+  begin
+    // Copy palette, this must be done before copying bits
+    FillChar(LogPalette, SizeOf(LogPalette), 0);
+    LogPalette.palVersion := $300;
+    LogPalette.palNumEntries := Info.PaletteEntries;
+    for I := 0 to Info.PaletteEntries - 1 do
+    with LogPalette do
+    begin
+      palPalEntry[I].peRed := WorkData.Palette[I].R;
+      palPalEntry[I].peGreen := WorkData.Palette[I].G;
+      palPalEntry[I].peBlue := WorkData.Palette[I].B;
+    end;
+    Bitmap.Palette := CreatePalette(PLogPalette(@LogPalette)^);
+  end;
+  // Copy scanlines
+  for I := 0 to WorkData.Height - 1 do
+    Move(PByteArray(WorkData.Bits)[I * LineBytes], Bitmap.Scanline[I]^, LineBytes);
+
+  // Delphi 2009 and newer support alpha transparency fro TBitmap
+{$IF Defined(DELPHI) and (CompilerVersion >= 20.0)}
+  if Bitmap.PixelFormat = pf32bit then
+    Bitmap.AlphaFormat := afDefined;
+{$IFEND}
+
+{$ENDIF}
+{$IFDEF COMPONENT_SET_LCL}
+  // Create 32bit raw image from image data
+  FillChar(RawImage, SizeOf(RawImage), 0);
+  with RawImage.Description do
+  begin
+    Width := WorkData.Width;
+    Height := WorkData.Height;
+    BitsPerPixel := 32;
+    Format := ricfRGBA;
+    LineEnd := rileDWordBoundary;
+    BitOrder := riboBitsInOrder;
+    ByteOrder := riboLSBFirst;
+    LineOrder := riloTopToBottom;
+    AlphaPrec := 8;
+    RedPrec := 8;
+    GreenPrec := 8;
+    BluePrec := 8;
+    AlphaShift := 24;
+    RedShift := 16;
+    GreenShift := 8;
+    BlueShift := 0;
+    Depth := 32; // Must be 32 for alpha blending (and for working in MacOSX Carbon)
+  end;
+  RawImage.Data := WorkData.Bits;
+  RawImage.DataSize := WorkData.Size;
+
+  // Create bitmap from raw image
+  if RawImage_CreateBitmaps(RawImage, ImgHandle, ImgMaskHandle) then
+  begin
+    Bitmap.Handle := ImgHandle;
+    Bitmap.MaskHandle := ImgMaskHandle;
+  end;
+{$ENDIF}
+  if WorkData.Bits <> Data.Bits then
+    Imaging.FreeImage(WorkData);
+end;
+
+procedure ConvertBitmapToData(Bitmap: TBitmap; var Data: TImageData);
+var
+  I, LineBytes: LongInt;
+  Format: TImageFormat;
+  Info: TImageFormatInfo;
+{$IFDEF COMPONENT_SET_VCL}
+  Colors: Word;
+  LogPalette: TMaxLogPalette;
+{$ENDIF}
+{$IFDEF COMPONENT_SET_LCL}
+  RawImage: TRawImage;
+  LineLazBytes: LongInt;
+{$ENDIF}
+begin
+{$IFDEF COMPONENT_SET_LCL}
+  // In the current Lazarus 0.9.10 Bitmap.PixelFormat property is useless.
+  // We cannot change bitmap's format by changing it (it will just release
+  // old image but not convert it to new format) nor we can determine bitmaps's
+  // current format (it is usually set to pfDevice). So bitmap's format is obtained
+  // trough RawImage api and cannot be changed to mirror some Imaging format
+  // (so formats with no coresponding Imaging format cannot be saved now).
+
+  if RawImage_DescriptionFromBitmap(Bitmap.Handle, RawImage.Description) then
+    case RawImage.Description.BitsPerPixel of
+      8: Format := ifIndex8;
+      16:
+        if RawImage.Description.Depth = 15 then
+          Format := ifA1R5G5B5
+        else
+          Format := ifR5G6B5;
+      24: Format := ifR8G8B8;
+      32: Format := ifA8R8G8B8;
+      48: Format := ifR16G16B16;
+      64: Format := ifA16R16G16B16;
+    else
+      Format := ifUnknown;
+    end;
+{$ELSE}
+  Format := PixelFormatToDataFormat(Bitmap.PixelFormat);
+  if Format = ifUnknown then
+  begin
+    // Convert from formats not supported by Imaging (1/4 bit)
+    if Bitmap.PixelFormat < pf8bit then
+       Bitmap.PixelFormat := pf8bit
+    else
+      Bitmap.PixelFormat := pf32bit;
+    Format := PixelFormatToDataFormat(Bitmap.PixelFormat);
+  end;
+{$ENDIF}
+
+  if Format = ifUnknown then
+    RaiseImaging(SBadFormatBitmapToData, []);
+
+  Imaging.NewImage(Bitmap.Width, Bitmap.Height, Format, Data);
+  GetImageFormatInfo(Data.Format, Info);
+  LineBytes := Data.Width * Info.BytesPerPixel;
+
+{$IFDEF COMPONENT_SET_VCL}
+  if (Format = ifIndex8) and (GetObject(Bitmap.Palette, SizeOf(Colors),
+    @Colors) <> 0) then
+  begin
+    // Copy palette
+    GetPaletteEntries(Bitmap.Palette, 0, Colors, LogPalette.palPalEntry);
+    if Colors > Info.PaletteEntries  then
+      Colors := Info.PaletteEntries;
+    for I := 0 to Colors - 1 do
+    with LogPalette do
+    begin
+      Data.Palette[I].A := $FF;
+      Data.Palette[I].R := palPalEntry[I].peRed;
+      Data.Palette[I].G := palPalEntry[I].peGreen;
+      Data.Palette[I].B := palPalEntry[I].peBlue;
+    end;
+  end;
+  // Copy scanlines
+  for I := 0 to Data.Height - 1 do
+    Move(Bitmap.ScanLine[I]^, PByteArray(Data.Bits)[I * LineBytes], LineBytes);
+{$ENDIF}
+{$IFDEF COMPONENT_SET_LCL}
+  // Get raw image from bitmap (mask handle must be 0 or expect violations)
+  if RawImage_FromBitmap(RawImage, Bitmap.Handle, 0, nil) then
+  begin
+    LineLazBytes := GetBytesPerLine(Data.Width, RawImage.Description.BitsPerPixel,
+      RawImage.Description.LineEnd);
+    // Copy scanlines
+    for I := 0 to Data.Height - 1 do
+    begin
+      Move(PByteArray(RawImage.Data)[I * LineLazBytes],
+        PByteArray(Data.Bits)[I * LineBytes], LineBytes);
+    end;
+    // May need to swap RB order, depends on wifget set
+    if RawImage.Description.BlueShift > RawImage.Description.RedShift then
+      SwapChannels(Data, ChannelRed, ChannelBlue);
+
+    RawImage.FreeData;
+  end;
+{$ENDIF}
+end;
+
+procedure ConvertImageToBitmap(Image: TBaseImage; Bitmap: TBitmap);
+begin
+  ConvertDataToBitmap(Image.ImageDataPointer^, Bitmap);
+end;
+
+procedure ConvertBitmapToImage(Bitmap: TBitmap; Image: TBaseImage);
+begin
+  ConvertBitmapToData(Bitmap, Image.ImageDataPointer^);
+end;
+
+{$IFDEF MSWINDOWS}
+procedure DisplayImageDataOnDC(DC: HDC; const DstRect: TRect; const ImageData: TImageData; const SrcRect: TRect);
+var
+  OldMode: Integer;
+  BitmapInfo: Windows.TBitmapInfo;
+  Bmp: TBitmap;
+begin
+  if TestImage(ImageData) then
+  begin
+    Assert(ImageData.Format in [ifA8R8G8B8, ifX8R8G8B8], SBadFormatDisplay);
+    OldMode := Windows.SetStretchBltMode(DC, COLORONCOLOR);
+
+    FillChar(BitmapInfo, SizeOf(BitmapInfo), 0);
+    with BitmapInfo.bmiHeader do
+    begin
+      biSize := SizeOf(TBitmapInfoHeader);
+      biPlanes := 1;
+      biBitCount := 32;
+      biCompression := BI_RGB;
+      biWidth := ImageData.Width;
+      biHeight := -ImageData.Height;
+      biSizeImage := ImageData.Size;
+      biXPelsPerMeter := 0;
+      biYPelsPerMeter := 0;
+      biClrUsed := 0;
+      biClrImportant := 0;
+    end;
+
+    try
+       with SrcRect, ImageData do
+        if Windows.StretchDIBits(DC, DstRect.Left, DstRect.Top,
+          DstRect.Right - DstRect.Left, DstRect.Bottom - DstRect.Top, Left,
+          Top, Right - Left, Bottom - Top, Bits, BitmapInfo, DIB_RGB_COLORS, SRCCOPY) <> Height then
+        begin
+          // StretchDIBits may fail on some ocassions (error 487, http://support.microsoft.com/kb/269585).
+          // This fallback is slow but works every time. Thanks to Sergey Galezdinov for the fix.
+          Bmp := TBitmap.Create;
+          try
+            ConvertDataToBitmap(ImageData, Bmp);
+            StretchBlt(DC, DstRect.Left, DstRect.Top, DstRect.Right - DstRect.Left, DstRect.Bottom - DstRect.Top,
+              Bmp.Canvas.Handle, 0, 0, Width, Height, SRCCOPY);
+          finally
+            Bmp.Free;
+          end;
+        end;
+    finally
+      Windows.SetStretchBltMode(DC, OldMode);
+    end;
+  end;
+end;
+{$ENDIF}
+
+procedure DisplayImageData(DstCanvas: TCanvas; const DstRect: TRect; const ImageData: TImageData; const SrcRect: TRect);
+{$IF Defined(DCC) or Defined(LCLWIN32)} // Delphi or LCL Win32
+begin
+  DisplayImageDataOnDC(DstCanvas.Handle, DstRect, ImageData, SrcRect);
+end;
+{$ELSEIF Defined(LCLGTK2)}
+  type
+    TDeviceContext = TGtk2DeviceContext;
+
+  procedure GDKDrawBitmap(Dest: HDC; DstX, DstY: Integer; SrcX, SrcY,
+    SrcWidth, SrcHeight: Integer; ImageData: TImageData);
+  var
+    P: TPoint;
+  begin
+    P := TDeviceContext(Dest).Offset;
+    Inc(DstX, P.X);
+    Inc(DstY, P.Y);
+    gdk_draw_rgb_32_image(TDeviceContext(Dest).Drawable, TDeviceContext(Dest).GC,
+      DstX, DstY, SrcWidth, SrcHeight, GDK_RGB_DITHER_NONE,
+      @PLongWordArray(ImageData.Bits)[SrcY * ImageData.Width + SrcX], ImageData.Width * 4);
+  end;
+
+var
+  DisplayImage: TImageData;
+  NewWidth, NewHeight: Integer;
+  SrcBounds, DstBounds, DstClip: TRect;
+begin
+  if TestImage(ImageData) then
+  begin
+    Assert(ImageData.Format in [ifA8R8G8B8, ifX8R8G8B8], SBadFormatDisplay);
+    InitImage(DisplayImage);
+
+    SrcBounds := RectToBounds(SrcRect);
+    DstBounds := RectToBounds(DstRect);
+    WidgetSet.GetClipBox(DstCanvas.Handle, @DstClip);
+
+    ClipStretchBounds(SrcBounds.Left, SrcBounds.Top, SrcBounds.Right, SrcBounds.Bottom,
+      DstBounds.Left, DstBounds.Top, DstBounds.Right, DstBounds.Bottom, ImageData.Width,
+      ImageData.Height, DstClip);
+
+    NewWidth := DstBounds.Right;
+    NewHeight := DstBounds.Bottom;
+
+    if (NewWidth > 0) and (NewHeight > 0) then
+    begin
+      if (SrcBounds.Right = NewWidth) and (SrcBounds.Bottom = NewHeight) then
+      try
+        CloneImage(ImageData, DisplayImage);
+        // Swap R-B channels for GTK display compatability!
+        SwapChannels(DisplayImage, ChannelRed, ChannelBlue);
+        GDKDrawBitmap(DstCanvas.Handle, DstBounds.Left, DstBounds.Top,
+          SrcBounds.Left, SrcBounds.Top, NewWidth, NewHeight, DisplayImage);
+      finally
+        FreeImage(DisplayImage);
+      end
+      else
+      try
+        // Create new image with desired dimensions
+        NewImage(NewWidth, NewHeight, ImageData.Format, DisplayImage);
+        // Stretch pixels from old image to new one  TResizeFilter = (rfNearest, rfBilinear, rfBicubic);
+        StretchRect(ImageData, SrcBounds.Left, SrcBounds.Top, SrcBounds.Right,
+          SrcBounds.Bottom, DisplayImage, 0, 0, NewWidth, NewHeight, rfNearest);
+        // Swap R-B channels for GTK display compatability!
+        SwapChannels(DisplayImage, ChannelRed, ChannelBlue);
+        GDKDrawBitmap(DstCanvas.Handle, DstBounds.Left, DstBounds.Top, 0, 0,
+          NewWidth, NewHeight, DisplayImage);
+       finally
+        FreeImage(DisplayImage);
+      end
+    end;
+  end;
+end;
+{$ELSE}
+begin
+  raise Exception.Create(SUnsupportedLCLWidgetSet);
+end;
+{$IFEND}
+
+procedure DisplayImage(DstCanvas: TCanvas; DstX, DstY: LongInt; Image: TBaseImage);
+begin
+  DisplayImageData(DstCanvas, BoundsToRect(DstX, DstY, Image.Width, Image.Height),
+    Image.ImageDataPointer^, Image.BoundsRect);
+end;
+
+procedure DisplayImage(DstCanvas: TCanvas; const DstRect: TRect; Image: TBaseImage);
+begin
+  DisplayImageData(DstCanvas, DstRect, Image.ImageDataPointer^, Image.BoundsRect);
+end;
+
+procedure DisplayImage(DstCanvas: TCanvas; const DstRect: TRect; Image: TBaseImage; const SrcRect: TRect);
+begin
+  DisplayImageData(DstCanvas, DstRect, Image.ImageDataPointer^, SrcRect);
+end;
+
+
+{ TImagingGraphic class implementation }
+
+constructor TImagingGraphic.Create;
+begin
+  inherited Create;
+  PixelFormat := pf24Bit;
+end;
+
+procedure TImagingGraphic.LoadFromStream(Stream: TStream);
+begin
+  ReadDataFromStream(Stream);
+end;
+
+procedure TImagingGraphic.ReadDataFromStream(Stream: TStream);
+var
+  Image: TSingleImage;
+begin
+  Image := TSingleImage.Create;
+  try
+    Image.LoadFromStream(Stream);
+    Assign(Image);
+  finally
+    Image.Free;
+  end;
+end;
+
+procedure TImagingGraphic.AssignTo(Dest: TPersistent);
+var
+  Arr: TDynImageDataArray;
+begin
+  if Dest is TSingleImage then
+  begin
+    AssignToImage(TSingleImage(Dest))
+  end
+  else if Dest is TMultiImage then
+  begin
+    SetLength(Arr, 1);
+    AssignToImageData(Arr[0]);
+    TMultiImage(Dest).CreateFromArray(Arr);
+    Imaging.FreeImagesInArray(Arr);
+  end
+  else
+    inherited AssignTo(Dest);
+end;
+
+procedure TImagingGraphic.Assign(Source: TPersistent);
+begin
+  if Source is TBaseImage then
+    AssignFromImage(TBaseImage(Source))
+  else
+    inherited Assign(Source);
+end;
+
+procedure TImagingGraphic.AssignFromImage(Image: TBaseImage);
+begin
+  if (Image <> nil) and Image.Valid then
+    AssignFromImageData(Image.ImageDataPointer^);
+end;
+
+procedure TImagingGraphic.AssignToImage(Image: TBaseImage);
+begin
+  if (Image <> nil) and (Image.ImageDataPointer <> nil) then
+    AssignToImageData(Image.ImageDataPointer^);
+end;
+
+procedure TImagingGraphic.AssignFromImageData(const ImageData: TImageData);
+begin
+  if Imaging.TestImage(ImageData) then
+    ConvertDataToBitmap(ImageData, Self);
+end;
+
+procedure TImagingGraphic.AssignToImageData(var ImageData: TImageData);
+begin
+  Imaging.FreeImage(ImageData);
+  ConvertBitmapToData(Self, ImageData);
+end;
+
+
+{ TImagingGraphicForSave class implementation }
+
+constructor TImagingGraphicForSave.Create;
+begin
+  inherited Create;
+  FDefaultFileExt := GetFileFormat.Extensions[0];
+  FSavingFormat := ifUnknown;
+  GetFileFormat.CheckOptionsValidity;
+end;
+
+procedure TImagingGraphicForSave.WriteDataToStream(Stream: TStream);
+var
+  Image: TSingleImage;
+begin
+  if FDefaultFileExt <> '' then
+  begin
+    Image := TSingleImage.Create;
+    try
+      Image.Assign(Self);
+      if FSavingFormat <> ifUnknown then
+        Image.Format := FSavingFormat;
+      Image.SaveToStream(FDefaultFileExt, Stream);
+    finally
+      Image.Free;
+    end;
+  end;
+end;
+
+procedure TImagingGraphicForSave.SaveToStream(Stream: TStream);
+begin
+  WriteDataToStream(Stream);
+end;
+
+{$IFDEF COMPONENT_SET_LCL}
+class function TImagingGraphicForSave.GetFileExtensions: string;
+begin
+  Result := StringReplace(GetFileFormat.Extensions.CommaText, ',', ';', [rfReplaceAll]);
+end;
+
+function TImagingGraphicForSave.GetMimeType: string;
+begin
+  Result := 'image/' + FDefaultFileExt;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_BITMAP}
+
+{ TImagingBitmap class implementation }
+
+constructor TImagingBitmap.Create;
+begin
+  inherited Create;
+  FUseRLE := (GetFileFormat as TBitmapFileFormat).UseRLE;
+end;
+
+class function TImagingBitmap.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TBitmapFileFormat);
+end;
+
+procedure TImagingBitmap.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingBitmapRLE, Ord(FUseRLE));
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JPEG}
+
+{ TImagingJpeg class implementation }
+
+constructor TImagingJpeg.Create;
+begin
+  inherited Create;
+  FQuality := (GetFileFormat as TJpegFileFormat).Quality;
+  FProgressive := (GetFileFormat as TJpegFileFormat).Progressive;
+end;
+
+class function TImagingJpeg.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TJpegFileFormat);
+end;
+
+{$IFDEF COMPONENT_SET_LCL}
+function TImagingJpeg.GetMimeType: string;
+begin
+  Result := 'image/jpeg';
+end;
+{$ENDIF}
+
+procedure TImagingJpeg.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingJpegQuality, FQuality);
+  Imaging.SetOption(ImagingJpegProgressive, Ord(FProgressive));
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_PNG}
+
+{ TImagingPNG class implementation }
+
+constructor TImagingPNG.Create;
+begin
+  inherited Create;
+  FPreFilter := (GetFileFormat as TPNGFileFormat).PreFilter;
+  FCompressLevel := (GetFileFormat as TPNGFileFormat).CompressLevel;
+end;
+
+class function TImagingPNG.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TPNGFileFormat);
+end;
+
+procedure TImagingPNG.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingPNGPreFilter, FPreFilter);
+  Imaging.SetOption(ImagingPNGCompressLevel, FCompressLevel);
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_GIF}
+
+{ TImagingGIF class implementation}
+
+class function TImagingGIF.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TGIFFileFormat);
+end;
+
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_TARGA}
+
+{ TImagingTarga class implementation }
+
+constructor TImagingTarga.Create;
+begin
+  inherited Create;
+  FUseRLE := (GetFileFormat as TTargaFileFormat).UseRLE;
+end;
+
+class function TImagingTarga.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TTargaFileFormat);
+end;
+
+procedure TImagingTarga.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingTargaRLE, Ord(FUseRLE));
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_DDS}
+
+{ TImagingDDS class implementation }
+
+constructor TImagingDDS.Create;
+begin
+  inherited Create;
+  FCompression := dcNone;
+end;
+
+class function TImagingDDS.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TDDSFileFormat);
+end;
+
+procedure TImagingDDS.SaveToStream(Stream: TStream);
+begin
+  case FCompression of
+    dcNone: FSavingFormat := ifUnknown;
+    dcDXT1: FSavingFormat := ifDXT1;
+    dcDXT3: FSavingFormat := ifDXT3;
+    dcDXT5: FSavingFormat := ifDXT5;
+  end;
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingDDSSaveCubeMap, Ord(False));
+  Imaging.SetOption(ImagingDDSSaveVolume, Ord(False));
+  Imaging.SetOption(ImagingDDSSaveMipMapCount, 1);
+  Imaging.SetOption(ImagingDDSSaveDepth, 1);
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_MNG}
+
+{ TImagingMNG class implementation }
+
+constructor TImagingMNG.Create;
+begin
+  inherited Create;
+  FLossyCompression := (GetFileFormat as TMNGFileFormat).LossyCompression;
+  FLossyAlpha := (GetFileFormat as TMNGFileFormat).LossyAlpha;
+  FPreFilter := (GetFileFormat as TMNGFileFormat).PreFilter;
+  FCompressLevel := (GetFileFormat as TMNGFileFormat).CompressLevel;
+  FQuality := (GetFileFormat as TMNGFileFormat).Quality;
+  FProgressive := (GetFileFormat as TMNGFileFormat).Progressive;
+end;
+
+class function TImagingMNG.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TMNGFileFormat);
+end;
+
+{$IFDEF COMPONENT_SET_LCL}
+function TImagingMNG.GetMimeType: string;
+begin
+  Result := 'video/mng';
+end;
+{$ENDIF}
+
+procedure TImagingMNG.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingMNGLossyCompression, Ord(FLossyCompression));
+  Imaging.SetOption(ImagingMNGLossyAlpha, Ord(FLossyAlpha));
+  Imaging.SetOption(ImagingMNGPreFilter, FPreFilter);
+  Imaging.SetOption(ImagingMNGCompressLevel, FCompressLevel);
+  Imaging.SetOption(ImagingMNGQuality, FQuality);
+  Imaging.SetOption(ImagingMNGProgressive, Ord(FProgressive));
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JNG}
+
+{ TImagingJNG class implementation }
+
+constructor TImagingJNG.Create;
+begin
+  inherited Create;
+  FLossyAlpha := (GetFileFormat as TJNGFileFormat).LossyAlpha;
+  FAlphaPreFilter := (GetFileFormat as TJNGFileFormat).PreFilter;
+  FAlphaCompressLevel := (GetFileFormat as TJNGFileFormat).CompressLevel;
+  FQuality := (GetFileFormat as TJNGFileFormat).Quality;
+  FProgressive := (GetFileFormat as TJNGFileFormat).Progressive;
+end;
+
+class function TImagingJNG.GetFileFormat: TImageFileFormat;
+begin
+  Result := FindImageFileFormatByClass(TJNGFileFormat);
+end;
+
+procedure TImagingJNG.SaveToStream(Stream: TStream);
+begin
+  Imaging.PushOptions;
+  Imaging.SetOption(ImagingJNGLossyALpha, Ord(FLossyAlpha));
+  Imaging.SetOption(ImagingJNGAlphaPreFilter, FAlphaPreFilter);
+  Imaging.SetOption(ImagingJNGAlphaCompressLevel, FAlphaCompressLevel);
+  Imaging.SetOption(ImagingJNGQuality, FQuality);
+  Imaging.SetOption(ImagingJNGProgressive, Ord(FProgressive));
+  inherited SaveToStream(Stream);
+  Imaging.PopOptions;
+end;
+{$ENDIF}
+
+initialization
+  RegisterTypes;
+finalization
+  UnRegisterTypes;
+
+{$IFEND} // {$IF not Defined(COMPONENT_SET_LCL) and not Defined(COMPONENT_SET_VCL)}
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ---------------------------------------------------
+    - Fixed bug in ConvertBitmapToData causing images from GTK2 bitmaps
+      to have swapped RB channels.
+    - LCL: Removed GTK1 support (deprecated).
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Transparency of 8bit images (like loaded from 8bit PNG or GIF) is
+      kept intact during conversion to TBitmap in ConvertDataToBitmap
+      (32bit bitmap is created).
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Setting AlphaFormat property of TBitmap in ConvertDataToBitmap
+      when using Delphi 2009+.
+    - Fixed garbled LCL TBitmaps created by ConvertDataToBitmap
+      in Mac OS X (Carbon).
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - Added some more IFDEFs for Lazarus widget sets.
+    - Removed CLX code.
+    - GTK version of Unix DisplayImageData only used with LCL GTK so the
+      the rest of the unit can be used with Qt or other LCL interfaces.
+    - Fallback mechanism for DisplayImageDataOnDC, it may fail on occasions.
+    - Changed file format conditional compilation to reflect changes
+      in LINK symbols.
+    - Lazarus 0.9.26 compatibility changes.
+
+  -- 0.24.1 Changes/Bug Fixes ---------------------------------
+    - Fixed wrong IFDEF causing that Imaging wouldn't compile in Lazarus
+      with GTK2 target.
+    - Added commnets with code for Lazarus rev. 11861+ regarding
+      RawImage interface. Replace current code with that in comments
+      if you use Lazarus from SVN. New RawImage interface will be used by
+      default after next Lazarus release.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added TImagingGIF.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Uses only high level interface now (except for saving options).
+    - Slightly changed class hierarchy. TImagingGraphic is now only for loading
+      and base class for savers is new TImagingGraphicForSave. Also
+      TImagingGraphic is now registered with all supported file formats
+      by TPicture's format support.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added DisplayImage procedures (thanks to Paul Michell, modified)
+    - removed RegisterTypes and UnRegisterTypes from interface section,
+      they are called automatically
+    - added procedures: ConvertImageToBitmap and ConvertBitmapToImage
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - LCL data to bitmap conversion didn´t work in Linux, fixed
+    - added MNG file format
+    - added JNG file format
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - made it LCL compatible
+    - made it CLX compatible
+    - added all initial stuff
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingDds.pas b/src/lib/vampimg/ImagingDds.pas

new file mode 100644 (file)

index 0000000..9410495
--- /dev/null
+++ b/src/lib/vampimg/ImagingDds.pas
@@ -0,0 +1,1144 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for DirectDraw Surface images.}
+unit ImagingDds;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  ImagingTypes, Imaging, ImagingUtility, ImagingFormats;
+
+type
+  { Class for loading and saving Microsoft DirectDraw surfaces.
+    It can load/save all D3D formats which have coresponding
+    TImageFormat. It supports plain textures, cube textures and
+    volume textures, all of these can have mipmaps. It can also
+    load some formats which have no exact TImageFormat, but can be easily
+    converted to one (bump map formats, etc.).
+    You can get some information about last loaded DDS file by calling
+    GetOption with ImagingDDSLoadedXXX options and you can set some
+    saving options by calling SetOption with ImagingDDSSaveXXX or you can
+    simply use properties of this class.
+    Note that when saving cube maps and volumes input image array must contain
+    at least number of images to build cube/volume based on current
+    Depth and MipMapCount settings.}
+  TDDSFileFormat = class(TImageFileFormat)
+  private
+    FLoadedCubeMap: LongBool;
+    FLoadedVolume: LongBool;
+    FLoadedMipMapCount: LongInt;
+    FLoadedDepth: LongInt;
+    FSaveCubeMap: LongBool;
+    FSaveVolume: LongBool;
+    FSaveMipMapCount: LongInt;
+    FSaveDepth: LongInt;
+    procedure ComputeSubDimensions(Idx, Width, Height, MipMaps, Depth: LongInt;
+      IsCubeMap, IsVolume: Boolean; var CurWidth, CurHeight: LongInt);
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+    procedure CheckOptionsValidity; override;
+  published
+    { True if last loaded DDS file was cube map.}
+    property LoadedCubeMap: LongBool read FLoadedCubeMap write FLoadedCubeMap;
+    { True if last loaded DDS file was volume texture.}
+    property LoadedVolume: LongBool read FLoadedVolume write FLoadedVolume;
+    { Number of mipmap levels of last loaded DDS image.}
+    property LoadedMipMapCount: LongInt read FLoadedMipMapCount write FLoadedMipMapCount;
+    { Depth (slices of volume texture or faces of cube map) of last loaded DDS image.}
+    property LoadedDepth: LongInt read FLoadedDepth write FLoadedDepth;
+    { True if next DDS file to be saved should be stored as cube map.}
+    property SaveCubeMap: LongBool read FSaveCubeMap write FSaveCubeMap;
+    { True if next DDS file to be saved should be stored as volume texture.}
+    property SaveVolume: LongBool read FSaveVolume write FSaveVolume;
+    { Sets the number of mipmaps which should be stored in the next saved DDS file.
+      Only applies to cube maps and volumes, ordinary 2D textures save all
+      levels present in input.}
+    property SaveMipMapCount: LongInt read FSaveMipMapCount write FSaveMipMapCount;
+    { Sets the depth (slices of volume texture or faces of cube map)
+      of the next saved DDS file.}
+    property SaveDepth: LongInt read FSaveDepth write FSaveDepth;
+  end;
+
+const
+  { DDS related metadata Ids }
+
+  { DXGI format of textures stored in DDS files with DX10 extension. Type is
+    Enum (value corresponding to DXGI_FORMAT enum from DX SDK).}
+  SMetaDdsDxgiFormat = 'DdsDxgiFormat';
+  { Number of mipmaps for each main image in DDS file.}
+  SMetaDdsMipMapCount = 'DdsMipMapCount';
+  { Texture array size stored in DDS file (DX10 extension).}
+  SMetaDdsArraySize = 'DdsArraySize';
+
+implementation
+
+const
+  SDDSFormatName = 'DirectDraw Surface';
+  SDDSMasks      = '*.dds';
+  DDSSupportedFormats: TImageFormats = [ifR8G8B8, ifA8R8G8B8, ifX8R8G8B8,
+    ifA1R5G5B5, ifA4R4G4B4, ifX1R5G5B5, ifX4R4G4B4, ifR5G6B5, ifA16B16G16R16,
+    ifR32F, ifA32B32G32R32F, ifR16F, ifA16B16G16R16F, ifR3G3B2, ifGray8, ifA8Gray8,
+    ifGray16, ifDXT1, ifDXT3, ifDXT5, ifATI1N, ifATI2N];
+
+const
+  { Four character codes.}
+  DDSMagic    = LongWord(Byte('D') or (Byte('D') shl 8) or (Byte('S') shl 16) or
+    (Byte(' ') shl 24));
+  FOURCC_DXT1 = LongWord(Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or
+    (Byte('1') shl 24));
+  FOURCC_DXT3 = LongWord(Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or
+    (Byte('3') shl 24));
+  FOURCC_DXT5 = LongWord(Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or
+    (Byte('5') shl 24));
+  FOURCC_ATI1 = LongWord(Byte('A') or (Byte('T') shl 8) or (Byte('I') shl 16) or
+    (Byte('1') shl 24));
+  FOURCC_ATI2 = LongWord(Byte('A') or (Byte('T') shl 8) or (Byte('I') shl 16) or
+    (Byte('2') shl 24));
+  FOURCC_DX10 = LongWord(Byte('D') or (Byte('X') shl 8) or (Byte('1') shl 16) or
+    (Byte('0') shl 24));
+
+  { Some D3DFORMAT values used in DDS files as FourCC value.}
+  D3DFMT_A16B16G16R16  = 36;
+  D3DFMT_R32F          = 114;
+  D3DFMT_A32B32G32R32F = 116;
+  D3DFMT_R16F          = 111;
+  D3DFMT_A16B16G16R16F = 113;
+
+  { Constans used by TDDSurfaceDesc2.Flags.}
+  DDSD_CAPS            = $00000001;
+  DDSD_HEIGHT          = $00000002;
+  DDSD_WIDTH           = $00000004;
+  DDSD_PITCH           = $00000008;
+  DDSD_PIXELFORMAT     = $00001000;
+  DDSD_MIPMAPCOUNT     = $00020000;
+  DDSD_LINEARSIZE      = $00080000;
+  DDSD_DEPTH           = $00800000;
+
+  { Constans used by TDDSPixelFormat.Flags.}
+  DDPF_ALPHAPIXELS     = $00000001;    // used by formats which contain alpha
+  DDPF_FOURCC          = $00000004;    // used by DXT and large ARGB formats
+  DDPF_RGB             = $00000040;    // used by RGB formats
+  DDPF_LUMINANCE       = $00020000;    // used by formats like D3DFMT_L16
+  DDPF_BUMPLUMINANCE   = $00040000;    // used by mixed signed-unsigned formats
+  DDPF_BUMPDUDV        = $00080000;    // used by signed formats
+
+  { Constans used by TDDSCaps.Caps1.}
+  DDSCAPS_COMPLEX      = $00000008;
+  DDSCAPS_TEXTURE      = $00001000;
+  DDSCAPS_MIPMAP       = $00400000;
+
+  { Constans used by TDDSCaps.Caps2.}
+  DDSCAPS2_CUBEMAP     = $00000200;
+  DDSCAPS2_POSITIVEX   = $00000400;
+  DDSCAPS2_NEGATIVEX   = $00000800;
+  DDSCAPS2_POSITIVEY   = $00001000;
+  DDSCAPS2_NEGATIVEY   = $00002000;
+  DDSCAPS2_POSITIVEZ   = $00004000;
+  DDSCAPS2_NEGATIVEZ   = $00008000;
+  DDSCAPS2_VOLUME      = $00200000;
+
+  { Flags for TDDSurfaceDesc2.Flags used when saving DDS file.}
+  DDS_SAVE_FLAGS = DDSD_CAPS or DDSD_PIXELFORMAT or DDSD_WIDTH or
+    DDSD_HEIGHT or DDSD_LINEARSIZE;
+
+type
+  { Stores the pixel format information.}
+  TDDPixelFormat = packed record
+    Size: LongWord;       // Size of the structure = 32 bytes
+    Flags: LongWord;      // Flags to indicate valid fields
+    FourCC: LongWord;     // Four-char code for compressed textures (DXT)
+    BitCount: LongWord;   // Bits per pixel if uncomp. usually 16,24 or 32
+    RedMask: LongWord;    // Bit mask for the Red component
+    GreenMask: LongWord;  // Bit mask for the Green component
+    BlueMask: LongWord;   // Bit mask for the Blue component
+    AlphaMask: LongWord;  // Bit mask for the Alpha component
+  end;
+
+  { Specifies capabilities of surface.}
+  TDDSCaps = packed record
+    Caps1: LongWord;      // Should always include DDSCAPS_TEXTURE
+    Caps2: LongWord;      // For cubic environment maps
+    Reserved: array[0..1] of LongWord; // Reserved
+  end;
+
+  { Record describing DDS file contents.}
+  TDDSurfaceDesc2 = packed record
+    Size: LongWord;       // Size of the structure = 124 Bytes
+    Flags: LongWord;      // Flags to indicate valid fields
+    Height: LongWord;     // Height of the main image in pixels
+    Width: LongWord;      // Width of the main image in pixels
+    PitchOrLinearSize: LongWord; // For uncomp formats number of bytes per
+                          // scanline. For comp it is the size in
+                          // bytes of the main image
+    Depth: LongWord;      // Only for volume text depth of the volume
+    MipMaps: LongInt;     // Total number of levels in the mipmap chain
+    Reserved1: array[0..10] of LongWord; // Reserved
+    PixelFormat: TDDPixelFormat; // Format of the pixel data
+    Caps: TDDSCaps;       // Capabilities
+    Reserved2: LongWord;  // Reserved
+  end;
+
+  { DDS file header.}
+  TDDSFileHeader = packed record
+    Magic: LongWord;       // File format magic
+    Desc: TDDSurfaceDesc2; // Surface description
+  end;
+
+  { Resoirce types for D3D 10+ }
+  TD3D10ResourceDimension = (
+    D3D10_RESOURCE_DIMENSION_UNKNOWN   = 0,
+    D3D10_RESOURCE_DIMENSION_BUFFER    = 1,
+    D3D10_RESOURCE_DIMENSION_TEXTURE1D = 2,
+    D3D10_RESOURCE_DIMENSION_TEXTURE2D = 3,
+    D3D10_RESOURCE_DIMENSION_TEXTURE3D = 4
+  );
+
+  { Texture formats for D3D 10+ }
+  TDXGIFormat = (
+    DXGI_FORMAT_UNKNOWN                      = 0,
+    DXGI_FORMAT_R32G32B32A32_TYPELESS        = 1,
+    DXGI_FORMAT_R32G32B32A32_FLOAT           = 2,
+    DXGI_FORMAT_R32G32B32A32_UINT            = 3,
+    DXGI_FORMAT_R32G32B32A32_SINT            = 4,
+    DXGI_FORMAT_R32G32B32_TYPELESS           = 5,
+    DXGI_FORMAT_R32G32B32_FLOAT              = 6,
+    DXGI_FORMAT_R32G32B32_UINT               = 7,
+    DXGI_FORMAT_R32G32B32_SINT               = 8,
+    DXGI_FORMAT_R16G16B16A16_TYPELESS        = 9,
+    DXGI_FORMAT_R16G16B16A16_FLOAT           = 10,
+    DXGI_FORMAT_R16G16B16A16_UNORM           = 11,
+    DXGI_FORMAT_R16G16B16A16_UINT            = 12,
+    DXGI_FORMAT_R16G16B16A16_SNORM           = 13,
+    DXGI_FORMAT_R16G16B16A16_SINT            = 14,
+    DXGI_FORMAT_R32G32_TYPELESS              = 15,
+    DXGI_FORMAT_R32G32_FLOAT                 = 16,
+    DXGI_FORMAT_R32G32_UINT                  = 17,
+    DXGI_FORMAT_R32G32_SINT                  = 18,
+    DXGI_FORMAT_R32G8X24_TYPELESS            = 19,
+    DXGI_FORMAT_D32_FLOAT_S8X24_UINT         = 20,
+    DXGI_FORMAT_R32_FLOAT_X8X24_TYPELESS     = 21,
+    DXGI_FORMAT_X32_TYPELESS_G8X24_UINT      = 22,
+    DXGI_FORMAT_R10G10B10A2_TYPELESS         = 23,
+    DXGI_FORMAT_R10G10B10A2_UNORM            = 24,
+    DXGI_FORMAT_R10G10B10A2_UINT             = 25,
+    DXGI_FORMAT_R11G11B10_FLOAT              = 26,
+    DXGI_FORMAT_R8G8B8A8_TYPELESS            = 27,
+    DXGI_FORMAT_R8G8B8A8_UNORM               = 28,
+    DXGI_FORMAT_R8G8B8A8_UNORM_SRGB          = 29,
+    DXGI_FORMAT_R8G8B8A8_UINT                = 30,
+    DXGI_FORMAT_R8G8B8A8_SNORM               = 31,
+    DXGI_FORMAT_R8G8B8A8_SINT                = 32,
+    DXGI_FORMAT_R16G16_TYPELESS              = 33,
+    DXGI_FORMAT_R16G16_FLOAT                 = 34,
+    DXGI_FORMAT_R16G16_UNORM                 = 35,
+    DXGI_FORMAT_R16G16_UINT                  = 36,
+    DXGI_FORMAT_R16G16_SNORM                 = 37,
+    DXGI_FORMAT_R16G16_SINT                  = 38,
+    DXGI_FORMAT_R32_TYPELESS                 = 39,
+    DXGI_FORMAT_D32_FLOAT                    = 40,
+    DXGI_FORMAT_R32_FLOAT                    = 41,
+    DXGI_FORMAT_R32_UINT                     = 42,
+    DXGI_FORMAT_R32_SINT                     = 43,
+    DXGI_FORMAT_R24G8_TYPELESS               = 44,
+    DXGI_FORMAT_D24_UNORM_S8_UINT            = 45,
+    DXGI_FORMAT_R24_UNORM_X8_TYPELESS        = 46,
+    DXGI_FORMAT_X24_TYPELESS_G8_UINT         = 47,
+    DXGI_FORMAT_R8G8_TYPELESS                = 48,
+    DXGI_FORMAT_R8G8_UNORM                   = 49,
+    DXGI_FORMAT_R8G8_UINT                    = 50,
+    DXGI_FORMAT_R8G8_SNORM                   = 51,
+    DXGI_FORMAT_R8G8_SINT                    = 52,
+    DXGI_FORMAT_R16_TYPELESS                 = 53,
+    DXGI_FORMAT_R16_FLOAT                    = 54,
+    DXGI_FORMAT_D16_UNORM                    = 55,
+    DXGI_FORMAT_R16_UNORM                    = 56,
+    DXGI_FORMAT_R16_UINT                     = 57,
+    DXGI_FORMAT_R16_SNORM                    = 58,
+    DXGI_FORMAT_R16_SINT                     = 59,
+    DXGI_FORMAT_R8_TYPELESS                  = 60,
+    DXGI_FORMAT_R8_UNORM                     = 61,
+    DXGI_FORMAT_R8_UINT                      = 62,
+    DXGI_FORMAT_R8_SNORM                     = 63,
+    DXGI_FORMAT_R8_SINT                      = 64,
+    DXGI_FORMAT_A8_UNORM                     = 65,
+    DXGI_FORMAT_R1_UNORM                     = 66,
+    DXGI_FORMAT_R9G9B9E5_SHAREDEXP           = 67,
+    DXGI_FORMAT_R8G8_B8G8_UNORM              = 68,
+    DXGI_FORMAT_G8R8_G8B8_UNORM              = 69,
+    DXGI_FORMAT_BC1_TYPELESS                 = 70,
+    DXGI_FORMAT_BC1_UNORM                    = 71,
+    DXGI_FORMAT_BC1_UNORM_SRGB               = 72,
+    DXGI_FORMAT_BC2_TYPELESS                 = 73,
+    DXGI_FORMAT_BC2_UNORM                    = 74,
+    DXGI_FORMAT_BC2_UNORM_SRGB               = 75,
+    DXGI_FORMAT_BC3_TYPELESS                 = 76,
+    DXGI_FORMAT_BC3_UNORM                    = 77,
+    DXGI_FORMAT_BC3_UNORM_SRGB               = 78,
+    DXGI_FORMAT_BC4_TYPELESS                 = 79,
+    DXGI_FORMAT_BC4_UNORM                    = 80,
+    DXGI_FORMAT_BC4_SNORM                    = 81,
+    DXGI_FORMAT_BC5_TYPELESS                 = 82,
+    DXGI_FORMAT_BC5_UNORM                    = 83,
+    DXGI_FORMAT_BC5_SNORM                    = 84,
+    DXGI_FORMAT_B5G6R5_UNORM                 = 85,
+    DXGI_FORMAT_B5G5R5A1_UNORM               = 86,
+    DXGI_FORMAT_B8G8R8A8_UNORM               = 87,
+    DXGI_FORMAT_B8G8R8X8_UNORM               = 88,
+    DXGI_FORMAT_R10G10B10_XR_BIAS_A2_UNORM   = 89,
+    DXGI_FORMAT_B8G8R8A8_TYPELESS            = 90,
+    DXGI_FORMAT_B8G8R8A8_UNORM_SRGB          = 91,
+    DXGI_FORMAT_B8G8R8X8_TYPELESS            = 92,
+    DXGI_FORMAT_B8G8R8X8_UNORM_SRGB          = 93,
+    DXGI_FORMAT_BC6H_TYPELESS                = 94,
+    DXGI_FORMAT_BC6H_UF16                    = 95,
+    DXGI_FORMAT_BC6H_SF16                    = 96,
+    DXGI_FORMAT_BC7_TYPELESS                 = 97,
+    DXGI_FORMAT_BC7_UNORM                    = 98,
+    DXGI_FORMAT_BC7_UNORM_SRGB               = 99,
+    DXGI_FORMAT_AYUV                         = 100,
+    DXGI_FORMAT_Y410                         = 101,
+    DXGI_FORMAT_Y416                         = 102,
+    DXGI_FORMAT_NV12                         = 103,
+    DXGI_FORMAT_P010                         = 104,
+    DXGI_FORMAT_P016                         = 105,
+    DXGI_FORMAT_420_OPAQUE                   = 106,
+    DXGI_FORMAT_YUY2                         = 107,
+    DXGI_FORMAT_Y210                         = 108,
+    DXGI_FORMAT_Y216                         = 109,
+    DXGI_FORMAT_NV11                         = 110,
+    DXGI_FORMAT_AI44                         = 111,
+    DXGI_FORMAT_IA44                         = 112,
+    DXGI_FORMAT_P8                           = 113,
+    DXGI_FORMAT_A8P8                         = 114,
+    DXGI_FORMAT_B4G4R4A4_UNORM               = 115
+  );
+
+  { DX10 extension header for DDS file format }
+  TDX10Header = packed record
+    DXGIFormat: TDXGIFormat;
+    ResourceDimension: TD3D10ResourceDimension;
+    MiscFlags: LongWord;
+    ArraySize: LongWord;
+    Reserved: LongWord;
+  end;
+
+{ TDDSFileFormat class implementation }
+
+procedure TDDSFileFormat.Define;
+begin
+  inherited;
+  FName := SDDSFormatName;
+  FFeatures := [ffLoad, ffSave, ffMultiImage];
+  FSupportedFormats := DDSSupportedFormats;
+
+  FSaveCubeMap := False;
+  FSaveVolume := False;
+  FSaveMipMapCount := 1;
+  FSaveDepth := 1;
+
+  AddMasks(SDDSMasks);
+
+  RegisterOption(ImagingDDSLoadedCubeMap, @FLoadedCubeMap);
+  RegisterOption(ImagingDDSLoadedVolume, @FLoadedVolume);
+  RegisterOption(ImagingDDSLoadedMipMapCount, @FLoadedMipMapCount);
+  RegisterOption(ImagingDDSLoadedDepth, @FLoadedDepth);
+  RegisterOption(ImagingDDSSaveCubeMap, @FSaveCubeMap);
+  RegisterOption(ImagingDDSSaveVolume, @FSaveVolume);
+  RegisterOption(ImagingDDSSaveMipMapCount, @FSaveMipMapCount);
+  RegisterOption(ImagingDDSSaveDepth, @FSaveDepth);
+end;
+
+procedure TDDSFileFormat.CheckOptionsValidity;
+begin
+  if FSaveCubeMap then
+    FSaveVolume := False;
+  if FSaveVolume then
+    FSaveCubeMap := False;
+  if FSaveDepth < 1 then
+    FSaveDepth := 1;
+  if FSaveMipMapCount < 1 then
+    FSaveMipMapCount := 1;
+end;
+
+procedure TDDSFileFormat.ComputeSubDimensions(Idx, Width, Height, MipMaps, Depth: LongInt;
+  IsCubeMap, IsVolume: Boolean; var CurWidth, CurHeight: LongInt);
+var
+  I, Last, Shift: LongInt;
+begin
+  CurWidth := Width;
+  CurHeight := Height;
+  if MipMaps > 1 then
+  begin
+    if not IsVolume then
+    begin
+      if IsCubeMap then
+      begin
+        // Cube maps are stored like this
+        // Face 0 mimap 0
+        // Face 0 mipmap 1
+        // ...
+        // Face 1 mipmap 0
+        // Face 1 mipmap 1
+        // ...
+
+        // Modify index so later in for loop we iterate less times
+        Idx := Idx - ((Idx div MipMaps) * MipMaps);
+      end;
+      for I := 0 to Idx - 1 do
+      begin
+        CurWidth := ClampInt(CurWidth shr 1, 1, CurWidth);
+        CurHeight := ClampInt(CurHeight shr 1, 1, CurHeight);
+      end;
+    end
+    else
+    begin
+      // Volume textures are stored in DDS files like this:
+      // Slice 0 mipmap 0
+      // Slice 1 mipmap 0
+      // Slice 2 mipmap 0
+      // Slice 3 mipmap 0
+      // Slice 0 mipmap 1
+      // Slice 1 mipmap 1
+      // Slice 0 mipmap 2
+      // Slice 0 mipmap 3 ...
+      Shift := 0;
+      Last := Depth;
+      while Idx > Last - 1 do
+      begin
+        CurWidth := ClampInt(CurWidth shr 1, 1, CurWidth);
+        CurHeight := ClampInt(CurHeight shr 1, 1, CurHeight);
+        if (CurWidth = 1) and (CurHeight = 1) then
+          Break;
+        Inc(Shift);
+        Inc(Last, ClampInt(Depth shr Shift, 1, Depth));
+      end;
+    end;
+  end;
+end;
+
+function TDDSFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Hdr: TDDSFileHeader;
+  HdrDX10: TDX10Header;
+  SrcFormat: TImageFormat;
+  FmtInfo: TImageFormatInfo;
+  NeedsSwapChannels: Boolean;
+  CurrentWidth, CurrentHeight, ImageCount, LoadSize, I,
+    PitchOrLinear, MainImageLinearSize: Integer;
+  Data: PByte;
+  UseAsPitch: Boolean;
+  UseAsLinear: Boolean;
+
+  function MasksEqual(const DDPF: TDDPixelFormat; PF: PPixelFormatInfo): Boolean;
+  begin
+    Result := (DDPF.AlphaMask = PF.ABitMask) and
+      (DDPF.RedMask = PF.RBitMask) and (DDPF.GreenMask = PF.GBitMask) and
+      (DDPF.BlueMask = PF.BBitMask);
+  end;
+
+  function FindFourCCFormat(FourCC: LongWord): TImageFormat;
+  begin
+    // Handle FourCC and large ARGB formats
+    case FourCC of
+      D3DFMT_A16B16G16R16: Result := ifA16B16G16R16;
+      D3DFMT_R32F: Result := ifR32F;
+      D3DFMT_A32B32G32R32F: Result := ifA32B32G32R32F;
+      D3DFMT_R16F: Result := ifR16F;
+      D3DFMT_A16B16G16R16F: Result := ifA16B16G16R16F;
+      FOURCC_DXT1: Result := ifDXT1;
+      FOURCC_DXT3: Result := ifDXT3;
+      FOURCC_DXT5: Result := ifDXT5;
+      FOURCC_ATI1: Result := ifATI1N;
+      FOURCC_ATI2: Result := ifATI2N;
+    else
+      Result := ifUnknown;
+    end;
+  end;
+
+  function FindDX10Format(DXGIFormat: TDXGIFormat; var NeedsSwapChannels: Boolean): TImageFormat;
+  begin
+    Result := ifUnknown;
+    NeedsSwapChannels := False;
+
+    case DXGIFormat of
+      DXGI_FORMAT_UNKNOWN: ;
+      DXGI_FORMAT_R32G32B32A32_TYPELESS, DXGI_FORMAT_R32G32B32A32_FLOAT:
+        Result := ifA32B32G32R32F;
+      DXGI_FORMAT_R32G32B32A32_UINT: ;
+      DXGI_FORMAT_R32G32B32A32_SINT: ;
+      DXGI_FORMAT_R32G32B32_TYPELESS, DXGI_FORMAT_R32G32B32_FLOAT:
+        Result := ifB32G32R32F;
+      DXGI_FORMAT_R32G32B32_UINT: ;
+      DXGI_FORMAT_R32G32B32_SINT: ;
+      DXGI_FORMAT_R16G16B16A16_FLOAT:
+        Result := ifA16B16G16R16F;
+      DXGI_FORMAT_R16G16B16A16_TYPELESS, DXGI_FORMAT_R16G16B16A16_UNORM,
+      DXGI_FORMAT_R16G16B16A16_UINT, DXGI_FORMAT_R16G16B16A16_SNORM,
+      DXGI_FORMAT_R16G16B16A16_SINT:
+        Result := ifA16B16G16R16;
+      DXGI_FORMAT_R32G32_TYPELESS: ;
+      DXGI_FORMAT_R32G32_FLOAT: ;
+      DXGI_FORMAT_R32G32_UINT: ;
+      DXGI_FORMAT_R32G32_SINT: ;
+      DXGI_FORMAT_R32G8X24_TYPELESS: ;
+      DXGI_FORMAT_D32_FLOAT_S8X24_UINT: ;
+      DXGI_FORMAT_R32_FLOAT_X8X24_TYPELESS: ;
+      DXGI_FORMAT_X32_TYPELESS_G8X24_UINT: ;
+      DXGI_FORMAT_R10G10B10A2_TYPELESS: ;
+      DXGI_FORMAT_R10G10B10A2_UNORM: ;
+      DXGI_FORMAT_R10G10B10A2_UINT: ;
+      DXGI_FORMAT_R11G11B10_FLOAT: ;
+      DXGI_FORMAT_R8G8B8A8_TYPELESS, DXGI_FORMAT_R8G8B8A8_UNORM,
+      DXGI_FORMAT_R8G8B8A8_UINT, DXGI_FORMAT_R8G8B8A8_SNORM,DXGI_FORMAT_R8G8B8A8_SINT,
+      DXGI_FORMAT_R8G8B8A8_UNORM_SRGB:
+        begin
+          Result := ifA8R8G8B8;
+          NeedsSwapChannels := True;
+        end;
+      DXGI_FORMAT_R16G16_TYPELESS: ;
+      DXGI_FORMAT_R16G16_FLOAT: ;
+      DXGI_FORMAT_R16G16_UNORM: ;
+      DXGI_FORMAT_R16G16_UINT: ;
+      DXGI_FORMAT_R16G16_SNORM: ;
+      DXGI_FORMAT_R16G16_SINT: ;
+      DXGI_FORMAT_R32_TYPELESS, DXGI_FORMAT_R32_UINT, DXGI_FORMAT_R32_SINT:
+        Result := ifGray32;
+      DXGI_FORMAT_D32_FLOAT, DXGI_FORMAT_R32_FLOAT:
+        Result := ifR32F;
+      DXGI_FORMAT_R24G8_TYPELESS: ;
+      DXGI_FORMAT_D24_UNORM_S8_UINT: ;
+      DXGI_FORMAT_R24_UNORM_X8_TYPELESS: ;
+      DXGI_FORMAT_X24_TYPELESS_G8_UINT: ;
+      DXGI_FORMAT_R8G8_TYPELESS, DXGI_FORMAT_R8G8_UNORM, DXGI_FORMAT_R8G8_UINT,
+      DXGI_FORMAT_R8G8_SNORM, DXGI_FORMAT_R8G8_SINT:
+        Result := ifA8Gray8;
+      DXGI_FORMAT_R16_TYPELESS, DXGI_FORMAT_D16_UNORM, DXGI_FORMAT_R16_UNORM,
+      DXGI_FORMAT_R16_UINT, DXGI_FORMAT_R16_SNORM, DXGI_FORMAT_R16_SINT:
+        Result := ifGray16;
+      DXGI_FORMAT_R16_FLOAT:
+        Result := ifR16F;
+      DXGI_FORMAT_R8_TYPELESS, DXGI_FORMAT_R8_UNORM, DXGI_FORMAT_R8_UINT,
+      DXGI_FORMAT_R8_SNORM, DXGI_FORMAT_R8_SINT, DXGI_FORMAT_A8_UNORM:
+        Result := ifGray8;
+      DXGI_FORMAT_R1_UNORM: ;
+      DXGI_FORMAT_R9G9B9E5_SHAREDEXP: ;
+      DXGI_FORMAT_R8G8_B8G8_UNORM: ;
+      DXGI_FORMAT_G8R8_G8B8_UNORM: ;
+      DXGI_FORMAT_BC1_TYPELESS, DXGI_FORMAT_BC1_UNORM, DXGI_FORMAT_BC1_UNORM_SRGB:
+        Result := ifDXT1;
+      DXGI_FORMAT_BC2_TYPELESS, DXGI_FORMAT_BC2_UNORM, DXGI_FORMAT_BC2_UNORM_SRGB:
+        Result := ifDXT3;
+      DXGI_FORMAT_BC3_TYPELESS, DXGI_FORMAT_BC3_UNORM, DXGI_FORMAT_BC3_UNORM_SRGB:
+        Result := ifDXT5;
+      DXGI_FORMAT_BC4_TYPELESS, DXGI_FORMAT_BC4_UNORM, DXGI_FORMAT_BC4_SNORM:
+        Result := ifATI1N;
+      DXGI_FORMAT_BC5_TYPELESS, DXGI_FORMAT_BC5_UNORM, DXGI_FORMAT_BC5_SNORM:
+        Result := ifATI2N;
+      DXGI_FORMAT_B5G6R5_UNORM:
+        Result := ifR5G6B5;
+      DXGI_FORMAT_B5G5R5A1_UNORM:
+        Result := ifA1R5G5B5;
+      DXGI_FORMAT_B8G8R8A8_UNORM, DXGI_FORMAT_B8G8R8A8_TYPELESS:
+        Result := ifA8R8G8B8;
+      DXGI_FORMAT_B8G8R8X8_UNORM, DXGI_FORMAT_B8G8R8X8_TYPELESS:
+        Result := ifX8R8G8B8;
+      DXGI_FORMAT_R10G10B10_XR_BIAS_A2_UNORM: ;
+      DXGI_FORMAT_B8G8R8A8_UNORM_SRGB: ;
+      DXGI_FORMAT_B8G8R8X8_UNORM_SRGB: ;
+      DXGI_FORMAT_BC6H_TYPELESS: ;
+      DXGI_FORMAT_BC6H_UF16: ;
+      DXGI_FORMAT_BC6H_SF16: ;
+      DXGI_FORMAT_BC7_TYPELESS: ;
+      DXGI_FORMAT_BC7_UNORM: ;
+      DXGI_FORMAT_BC7_UNORM_SRGB: ;
+      DXGI_FORMAT_P8: ;
+      DXGI_FORMAT_A8P8: ;
+      DXGI_FORMAT_B4G4R4A4_UNORM:
+        Result := ifA4R4G4B4;
+    end;
+  end;
+
+begin
+  Result := False;
+  ImageCount := 1;
+  FLoadedMipMapCount := 1;
+  FLoadedDepth := 1;
+  FLoadedVolume := False;
+  FLoadedCubeMap := False;
+  ZeroMemory(@HdrDX10, SizeOf(HdrDX10));
+
+  with GetIO, Hdr, Hdr.Desc.PixelFormat do
+  begin
+    Read(Handle, @Hdr, SizeOf(Hdr));
+
+    SrcFormat := ifUnknown;
+    NeedsSwapChannels := False;
+
+    // Get image data format
+    if (Flags and DDPF_FOURCC) = DDPF_FOURCC then
+    begin
+      if FourCC = FOURCC_DX10 then
+      begin
+        Read(Handle, @HdrDX10, SizeOf(HdrDX10));
+        SrcFormat := FindDX10Format(HdrDX10.DXGIFormat, NeedsSwapChannels);
+        FMetadata.SetMetaItem(SMetaDdsDxgiFormat, HdrDX10.DXGIFormat);
+        FMetadata.SetMetaItem(SMetaDdsArraySize, HdrDX10.ArraySize);
+      end
+      else
+        SrcFormat := FindFourCCFormat(FourCC);
+    end
+    else if (Flags and DDPF_RGB) = DDPF_RGB then
+    begin
+      // Handle RGB formats
+      if (Flags and DDPF_ALPHAPIXELS) = DDPF_ALPHAPIXELS then
+      begin
+        // Handle RGB with alpha formats
+        case BitCount of
+          16:
+            begin
+              if MasksEqual(Desc.PixelFormat, GetFormatInfo(ifA4R4G4B4).PixelFormat) then
+                SrcFormat := ifA4R4G4B4;
+              if MasksEqual(Desc.PixelFormat, GetFormatInfo(ifA1R5G5B5).PixelFormat) then
+                SrcFormat := ifA1R5G5B5;
+            end;
+          32:
+            begin
+              SrcFormat := ifA8R8G8B8;
+              if BlueMask = $00FF0000 then
+                NeedsSwapChannels := True;
+            end;
+        end;
+      end
+      else
+      begin
+        // Handle RGB without alpha formats
+        case BitCount of
+          8:
+            if MasksEqual(Desc.PixelFormat,
+              GetFormatInfo(ifR3G3B2).PixelFormat) then
+              SrcFormat := ifR3G3B2;
+          16:
+            begin
+              if MasksEqual(Desc.PixelFormat,
+                GetFormatInfo(ifX4R4G4B4).PixelFormat) then
+                SrcFormat := ifX4R4G4B4;
+              if MasksEqual(Desc.PixelFormat,
+                GetFormatInfo(ifX1R5G5B5).PixelFormat) then
+                SrcFormat := ifX1R5G5B5;
+              if MasksEqual(Desc.PixelFormat,
+                GetFormatInfo(ifR5G6B5).PixelFormat) then
+                SrcFormat := ifR5G6B5;
+            end;
+          24: SrcFormat := ifR8G8B8;
+          32:
+            begin
+              SrcFormat := ifX8R8G8B8;
+              if BlueMask = $00FF0000 then
+                NeedsSwapChannels := True;
+            end;
+        end;
+      end;
+    end
+    else if (Flags and DDPF_LUMINANCE) = DDPF_LUMINANCE then
+    begin
+      // Handle luminance formats
+      if (Flags and DDPF_ALPHAPIXELS) = DDPF_ALPHAPIXELS then
+      begin
+        // Handle luminance with alpha formats
+        if BitCount = 16 then
+          SrcFormat := ifA8Gray8;
+      end
+      else
+      begin
+        // Handle luminance without alpha formats
+        case BitCount of
+          8: SrcFormat := ifGray8;
+          16: SrcFormat := ifGray16;
+        end;
+      end;
+    end
+    else if (Flags and DDPF_BUMPLUMINANCE) = DDPF_BUMPLUMINANCE then
+    begin
+      // Handle mixed bump-luminance formats like D3DFMT_X8L8V8U8
+      case BitCount of
+        32:
+          if BlueMask = $00FF0000 then
+          begin
+            SrcFormat := ifX8R8G8B8; // D3DFMT_X8L8V8U8
+            NeedsSwapChannels := True;
+          end;
+      end;
+    end
+    else if (Flags and DDPF_BUMPDUDV) = DDPF_BUMPDUDV then
+    begin
+      // Handle bumpmap formats like D3DFMT_Q8W8V8U8
+      case BitCount of
+        16: SrcFormat := ifA8Gray8; // D3DFMT_V8U8
+        32:
+          if AlphaMask = $FF000000 then
+          begin
+            SrcFormat := ifA8R8G8B8; // D3DFMT_Q8W8V8U8
+            NeedsSwapChannels := True;
+          end;
+        64: SrcFormat := ifA16B16G16R16; // D3DFMT_Q16W16V16U16
+      end;
+    end;
+
+    // If DDS format is not supported we will exit
+    if SrcFormat = ifUnknown then
+      Exit;
+
+    // File contains mipmaps for each subimage.
+    { Some DDS writers ignore setting proper Caps and Flags so
+      this check is not usable:
+    if ((Desc.Caps.Caps1 and DDSCAPS_MIPMAP) = DDSCAPS_MIPMAP) and
+      ((Desc.Flags and DDSD_MIPMAPCOUNT) = DDSD_MIPMAPCOUNT) then}
+    if Desc.MipMaps > 1 then
+    begin
+      FLoadedMipMapCount := Desc.MipMaps;
+      FMetadata.SetMetaItem(SMetaDdsMipMapCount, Desc.MipMaps);
+      ImageCount := Desc.MipMaps;
+    end;
+
+    // File stores volume texture
+    if ((Desc.Caps.Caps2 and DDSCAPS2_VOLUME) = DDSCAPS2_VOLUME) and
+      ((Desc.Flags and DDSD_DEPTH) = DDSD_DEPTH) then
+    begin
+      FLoadedVolume := True;
+      FLoadedDepth := Desc.Depth;
+      ImageCount := GetVolumeLevelCount(Desc.Depth, ImageCount);
+    end;
+
+    // File stores cube texture
+    if (Desc.Caps.Caps2 and DDSCAPS2_CUBEMAP) = DDSCAPS2_CUBEMAP then
+    begin
+      FLoadedCubeMap := True;
+      I := 0;
+      if (Desc.Caps.Caps2 and DDSCAPS2_POSITIVEX) = DDSCAPS2_POSITIVEX then Inc(I);
+      if (Desc.Caps.Caps2 and DDSCAPS2_POSITIVEY) = DDSCAPS2_POSITIVEY then Inc(I);
+      if (Desc.Caps.Caps2 and DDSCAPS2_POSITIVEZ) = DDSCAPS2_POSITIVEZ then Inc(I);
+      if (Desc.Caps.Caps2 and DDSCAPS2_NEGATIVEX) = DDSCAPS2_NEGATIVEX then Inc(I);
+      if (Desc.Caps.Caps2 and DDSCAPS2_NEGATIVEY) = DDSCAPS2_NEGATIVEY then Inc(I);
+      if (Desc.Caps.Caps2 and DDSCAPS2_NEGATIVEZ) = DDSCAPS2_NEGATIVEZ then Inc(I);
+      FLoadedDepth := I;
+      ImageCount := ImageCount * I;
+    end;
+
+    // Allocate and load all images in file
+    FmtInfo := GetFormatInfo(SrcFormat);
+    SetLength(Images, ImageCount);
+
+    // Compute the pitch or get if from file if present
+    UseAsPitch := (Desc.Flags and DDSD_PITCH) = DDSD_PITCH;
+    UseAsLinear := (Desc.Flags and DDSD_LINEARSIZE) = DDSD_LINEARSIZE;
+    // Use linear as default if none is set
+    if not UseAsPitch and not UseAsLinear then
+      UseAsLinear := True;
+    // Main image pitch or linear size
+    PitchOrLinear := Desc.PitchOrLinearSize;
+
+    // Check: some writers just write garbage to pitch/linear size fields and flags
+    MainImageLinearSize := FmtInfo.GetPixelsSize(SrcFormat, Desc.Width, Desc.Height);
+    if UseAsLinear and ((PitchOrLinear < MainImageLinearSize) or
+      (PitchOrLinear * Integer(Desc.Height) = MainImageLinearSize)) then
+    begin
+      // Explicitly set linear size
+      PitchOrLinear := MainImageLinearSize;
+    end;
+
+    for I := 0 to ImageCount - 1 do
+    begin
+      // Compute dimensions of surrent subimage based on texture type and
+      // number of mipmaps
+      ComputeSubDimensions(I, Desc.Width, Desc.Height, Desc.MipMaps, Desc.Depth,
+        FLoadedCubeMap, FLoadedVolume, CurrentWidth, CurrentHeight);
+      NewImage(CurrentWidth, CurrentHeight, SrcFormat, Images[I]);
+
+      if (I > 0) or (PitchOrLinear = 0) then
+      begin
+        // Compute pitch or linear size for mipmap levels, or even for main image
+        // since some formats do not fill pitch nor size
+        if UseAsLinear then
+          PitchOrLinear := FmtInfo.GetPixelsSize(SrcFormat, CurrentWidth, CurrentHeight)
+        else
+          PitchOrLinear := (CurrentWidth * FmtInfo.BytesPerPixel + 3) div 4 * 4; // must be DWORD aligned
+      end;
+
+      if UseAsLinear then
+        LoadSize := PitchOrLinear
+      else
+        LoadSize := CurrentHeight * PitchOrLinear;
+
+      if UseAsLinear or (LoadSize = Images[I].Size) then
+      begin
+        // If DDS does not use Pitch we can simply copy data
+        Read(Handle, Images[I].Bits, LoadSize)
+      end
+      else
+      begin
+        // If DDS uses Pitch we must load aligned scanlines
+        // and then remove padding
+        GetMem(Data, LoadSize);
+        try
+          Read(Handle, Data, LoadSize);
+          RemovePadBytes(Data, Images[I].Bits, CurrentWidth, CurrentHeight,
+            FmtInfo.BytesPerPixel, PitchOrLinear);
+       finally
+          FreeMem(Data);
+        end;
+      end;
+
+      if NeedsSwapChannels then
+        SwapChannels(Images[I], ChannelRed, ChannelBlue);
+    end;
+    Result := True;
+  end;
+end;
+
+function TDDSFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  Hdr: TDDSFileHeader;
+  MainImage, ImageToSave: TImageData;
+  I, MainIdx, Len, ImageCount: LongInt;
+  J: LongWord;
+  FmtInfo: TImageFormatInfo;
+  MustBeFreed: Boolean;
+  Is2DTexture, IsCubeMap, IsVolume: Boolean;
+  MipMapCount, CurrentWidth, CurrentHeight: LongInt;
+  NeedsResize: Boolean;
+  NeedsConvert: Boolean;
+begin
+  Result := False;
+  FillChar(Hdr, Sizeof(Hdr), 0);
+
+  MainIdx := FFirstIdx;
+  Len := FLastIdx - MainIdx + 1;
+  // Some DDS saving rules:
+  //   2D textures: Len is used as mipmap count (FSaveMipMapCount not used!).
+  //   Cube maps:   FSaveDepth * FSaveMipMapCount images are used, if Len is
+  //                smaller than this file is saved as regular 2D texture.
+  //   Volume maps: GetVolumeLevelCount(FSaveDepth, FSaveMipMapCount) images are
+  //                used, if Len is smaller than this file is
+  //                saved as regular 2D texture.
+
+  IsCubeMap := FSaveCubeMap;
+  IsVolume := FSaveVolume;
+  MipMapCount := FSaveMipMapCount;
+
+  if IsCubeMap then
+  begin
+    // Check if we have enough images on Input to save cube map
+    if Len < FSaveDepth * FSaveMipMapCount then
+      IsCubeMap := False;
+  end
+  else if IsVolume then
+  begin
+    // Check if we have enough images on Input to save volume texture
+    if Len < GetVolumeLevelCount(FSaveDepth, FSaveMipMapCount) then
+      IsVolume := False;
+  end;
+
+  Is2DTexture := not IsCubeMap and not IsVolume;
+  if Is2DTexture then
+  begin
+    // Get number of mipmaps used with 2D texture
+    MipMapCount := Min(Len, GetNumMipMapLevels(Images[MainIdx].Width, Images[MainIdx].Height));
+  end;
+
+  // we create compatible main image and fill headers
+  if MakeCompatible(Images[MainIdx], MainImage, MustBeFreed) then
+  with GetIO, MainImage, Hdr do
+  try
+    FmtInfo := GetFormatInfo(Format);
+    Magic := DDSMagic;
+    Desc.Size := SizeOf(Desc);
+    Desc.Width := Width;
+    Desc.Height := Height;
+    Desc.Flags := DDS_SAVE_FLAGS;
+    Desc.Caps.Caps1 := DDSCAPS_TEXTURE;
+    Desc.PixelFormat.Size := SizeOf(Desc.PixelFormat);
+    Desc.PitchOrLinearSize := MainImage.Size;
+    ImageCount := MipMapCount;
+
+    if MipMapCount > 1 then
+    begin
+      // Set proper flags if we have some mipmaps to be saved
+      Desc.Flags := Desc.Flags or DDSD_MIPMAPCOUNT;
+      Desc.Caps.Caps1 := Desc.Caps.Caps1 or DDSCAPS_MIPMAP or DDSCAPS_COMPLEX;
+      Desc.MipMaps := MipMapCount;
+    end;
+
+    if IsCubeMap then
+    begin
+      // Set proper cube map flags - number of stored faces is taken
+      // from FSaveDepth
+      Desc.Caps.Caps1 := Desc.Caps.Caps1 or DDSCAPS_COMPLEX;
+      Desc.Caps.Caps2 := Desc.Caps.Caps2 or DDSCAPS2_CUBEMAP;
+      J := DDSCAPS2_POSITIVEX;
+      for I := 0 to FSaveDepth - 1 do
+      begin
+        Desc.Caps.Caps2 := Desc.Caps.Caps2 or J;
+        J := J shl 1;
+      end;
+      ImageCount := FSaveDepth * FSaveMipMapCount;
+    end
+    else if IsVolume then
+    begin
+      // Set proper flags for volume texture
+      Desc.Flags := Desc.Flags or DDSD_DEPTH;
+      Desc.Caps.Caps1 := Desc.Caps.Caps1 or DDSCAPS_COMPLEX;
+      Desc.Caps.Caps2 := Desc.Caps.Caps2 or DDSCAPS2_VOLUME;
+      Desc.Depth := FSaveDepth;
+      ImageCount := GetVolumeLevelCount(FSaveDepth, FSaveMipMapCount);
+    end;
+
+    // Now we set DDS pixel format for main image
+    if FmtInfo.IsSpecial or FmtInfo.IsFloatingPoint or
+      (FmtInfo.BytesPerPixel > 4) then
+    begin
+      Desc.PixelFormat.Flags := DDPF_FOURCC;
+      case Format of
+        ifA16B16G16R16:  Desc.PixelFormat.FourCC := D3DFMT_A16B16G16R16;
+        ifR32F:          Desc.PixelFormat.FourCC := D3DFMT_R32F;
+        ifA32B32G32R32F: Desc.PixelFormat.FourCC := D3DFMT_A32B32G32R32F;
+        ifR16F:          Desc.PixelFormat.FourCC := D3DFMT_R16F;
+        ifA16B16G16R16F: Desc.PixelFormat.FourCC := D3DFMT_A16B16G16R16F;
+        ifDXT1:          Desc.PixelFormat.FourCC := FOURCC_DXT1;
+        ifDXT3:          Desc.PixelFormat.FourCC := FOURCC_DXT3;
+        ifDXT5:          Desc.PixelFormat.FourCC := FOURCC_DXT5;
+        ifATI1N:         Desc.PixelFormat.FourCC := FOURCC_ATI1;
+        ifATI2N:         Desc.PixelFormat.FourCC := FOURCC_ATI2;
+      end;
+    end
+    else if FmtInfo.HasGrayChannel then
+    begin
+      Desc.PixelFormat.Flags := DDPF_LUMINANCE;
+      Desc.PixelFormat.BitCount := FmtInfo.BytesPerPixel * 8;
+      case Format of
+        ifGray8:  Desc.PixelFormat.RedMask := 255;
+        ifGray16: Desc.PixelFormat.RedMask := 65535;
+        ifA8Gray8:
+          begin
+            Desc.PixelFormat.Flags := Desc.PixelFormat.Flags or DDPF_ALPHAPIXELS;
+            Desc.PixelFormat.RedMask := 255;
+            Desc.PixelFormat.AlphaMask := 65280;
+          end;
+      end;
+    end
+    else
+    begin
+      Desc.PixelFormat.Flags := DDPF_RGB;
+      Desc.PixelFormat.BitCount := FmtInfo.BytesPerPixel * 8;
+      if FmtInfo.HasAlphaChannel then
+      begin
+        Desc.PixelFormat.Flags := Desc.PixelFormat.Flags or DDPF_ALPHAPIXELS;
+        Desc.PixelFormat.AlphaMask := $FF000000;
+      end;
+      if FmtInfo.BytesPerPixel > 2 then
+      begin
+        Desc.PixelFormat.RedMask :=   $00FF0000;
+        Desc.PixelFormat.GreenMask := $0000FF00;
+        Desc.PixelFormat.BlueMask :=  $000000FF;
+      end
+      else
+      begin
+        Desc.PixelFormat.AlphaMask := FmtInfo.PixelFormat.ABitMask;
+        Desc.PixelFormat.RedMask := FmtInfo.PixelFormat.RBitMask;
+        Desc.PixelFormat.GreenMask := FmtInfo.PixelFormat.GBitMask;
+        Desc.PixelFormat.BlueMask := FmtInfo.PixelFormat.BBitMask;
+      end;
+    end;
+
+    // Header and main image are written to output
+    Write(Handle, @Hdr, SizeOf(Hdr));
+    Write(Handle, MainImage.Bits, MainImage.Size);
+
+    // Write the rest of the images and convert them to
+    // the same format as main image if necessary and ensure proper mipmap
+    // simensions too.
+    for I := MainIdx + 1 to MainIdx + ImageCount - 1 do
+    begin
+      // Get proper dimensions for this level
+      ComputeSubDimensions(I, Desc.Width, Desc.Height, Desc.MipMaps, Desc.Depth,
+        IsCubeMap, IsVolume, CurrentWidth, CurrentHeight);
+
+      // Check if input image for this level has the right size and format
+      NeedsResize := not ((Images[I].Width = CurrentWidth) and (Images[I].Height = CurrentHeight));
+      NeedsConvert := not (Images[I].Format = Format);
+
+      if NeedsResize or NeedsConvert then
+      begin
+        // Input image must be resized or converted to different format
+        // to become valid mipmap level
+        InitImage(ImageToSave);
+        CloneImage(Images[I], ImageToSave);
+        if NeedsConvert then
+          ConvertImage(ImageToSave, Format);
+        if NeedsResize then
+          ResizeImage(ImageToSave, CurrentWidth, CurrentHeight, rfBilinear);
+      end
+      else
+        // Input image can be used without any changes
+        ImageToSave := Images[I];
+
+      // Write level data and release temp image if necessary
+      Write(Handle, ImageToSave.Bits, ImageToSave.Size);
+      if Images[I].Bits <> ImageToSave.Bits then
+        FreeImage(ImageToSave);
+    end;
+
+    Result := True;
+  finally
+    if MustBeFreed then
+      FreeImage(MainImage);
+  end;
+end;
+
+procedure TDDSFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsIndexed or Info.IsSpecial then
+    // convert indexed and unsupported special formatd to A8R8G8B8
+    ConvFormat := ifA8R8G8B8
+  else if Info.IsFloatingPoint then
+  begin
+    if Info.Format = ifA16R16G16B16F then
+      // only swap channels here
+      ConvFormat := ifA16B16G16R16F
+    else
+      // convert other floating point formats to A32B32G32R32F
+      ConvFormat := ifA32B32G32R32F
+  end
+  else if Info.HasGrayChannel then
+  begin
+    if Info.HasAlphaChannel then
+      // convert grayscale with alpha to A8Gray8
+      ConvFormat := ifA8Gray8
+    else if Info.BytesPerPixel = 1 then
+      // convert 8bit grayscale to Gray8
+      ConvFormat := ifGray8
+    else
+      // convert 16-64bit grayscales to Gray16
+      ConvFormat := ifGray16;
+  end
+  else if Info.BytesPerPixel > 4 then
+    ConvFormat := ifA16B16G16R16
+  else if Info.HasAlphaChannel then
+    // convert the other images with alpha channel to A8R8G8B8
+    ConvFormat := ifA8R8G8B8
+  else
+    // convert the other formats to X8R8G8B8
+    ConvFormat := ifX8R8G8B8;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+function TDDSFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Hdr: TDDSFileHeader;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+    with GetIO do
+    begin
+      ReadCount := Read(Handle, @Hdr, SizeOf(Hdr));
+      Seek(Handle, -ReadCount, smFromCurrent);
+      Result := (Hdr.Magic = DDSMagic) and (ReadCount = SizeOf(Hdr)) and
+        ((Hdr.Desc.Caps.Caps1 and DDSCAPS_TEXTURE) = DDSCAPS_TEXTURE);
+    end;
+end;
+
+initialization
+  RegisterImageFileFormat(TDDSFileFormat);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ----------------------------------------------------
+    - Texture and D3D specific info stored in DDS is now available as metadata
+      (loading).
+    - Added support for loading DDS files with DX10 extension
+      (http://msdn.microsoft.com/en-us/library/windows/desktop/bb943991(v=vs.85).aspx)
+      and few compatibility fixes.
+
+  -- 0.25.0 Changes/Bug Fixes ---------------------------------
+    - Added support for 3Dc ATI1/2 formats.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Saved DDS with mipmaps now correctly defineds COMPLEX flag.
+    - Fixed loading of RGB DDS files that use pitch and have mipmaps -
+      mipmaps were loaded wrongly.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Changed saving behaviour a bit: mipmaps are inlcuded automatically for
+      2D textures if input image array has more than 1 image (no need to
+      set SaveMipMapCount manually).
+    - Mipmap levels are now saved with proper dimensions when saving DDS files.
+    - Made some changes to not be so strict when loading DDS files.
+      Many programs seem to save them in non-standard format
+      (by MS DDS File Reference).
+    - Added missing ifX8R8G8B8 to SupportedFormats, MakeCompatible failed
+      when image was converted to this format (inside).
+    - MakeCompatible method moved to base class, put ConvertToSupported here.
+      GetSupportedFormats removed, it is now set in constructor.
+    - Fixed bug that sometimes saved non-standard DDS files and another
+      one that caused crash when these files were loaded.
+    - Changed extensions to filename masks.
+    - Changed SaveData, LoadData, and MakeCompatible methods according
+      to changes in base class in Imaging unit.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added support for half-float image formats
+    - change in LoadData to allow support for more images
+      in one stream loading
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - fixed bug in TestFormat which does not recognize many DDS files
+    - changed pitch/linearsize handling in DDS loading code to
+      load DDS files produced by NVidia's Photoshop plugin
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingExtras.pas b/src/lib/vampimg/ImagingExtras.pas

new file mode 100644 (file)

index 0000000..d32f0f9
--- /dev/null
+++ b/src/lib/vampimg/ImagingExtras.pas
@@ -0,0 +1,153 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This is helper unit that registers all image file formats in Extras package
+  to Imaging core loading and saving functions. Just put this unit in your uses
+  clause instead of adding every unit that provides new file format support.
+  Also new constants for SetOption/GetOption functions for new file formats
+  are located here.}
+unit ImagingExtras;
+
+{$I ImagingOptions.inc}
+
+{$DEFINE DONT_LINK_JPEG2000}    // link support for JPEG2000 images
+{$DEFINE DONT_LINK_TIFF}        // link support for TIFF images
+//{$DEFINE DONT_LINK_PSD}         // link support for PSD images
+//{$DEFINE DONT_LINK_PCX}         // link support for PCX images
+//{$DEFINE DONT_LINK_XPM}         // link support for XPM images
+//{$IFNDEF FULL_FEATURE_SET}
+  {$DEFINE DONT_LINK_ELDER}        // link support for Elder Imagery images
+//{$ENDIF}
+
+{$IF not (
+  (Defined(DCC) and Defined(CPUX86) and not Defined(MACOS)) or
+  (Defined(FPC) and not Defined(MSDOS) and
+    ((Defined(CPUX86) and (Defined(LINUX) or Defined(WIN32) or Defined(MACOS)) or
+     (Defined(CPUX64) and Defined(LINUX)))))
+  )}
+  // JPEG2000 only for 32bit Windows/Linux/OSX and for 64bit Unix with FPC
+  {$DEFINE DONT_LINK_JPEG2000}
+{$IFEND}
+
+{$IF not (Defined(DCC) and Defined(CPUX86) and not Defined(MACOS))}
+  {$DEFINE DONT_LINK_TIFF} // Only for Delphi now
+{$IFEND}
+
+interface
+
+const
+  { Those are new options for GetOption/SetOption interface. }
+
+  { Controls JPEG 2000 lossy compression quality. It is number in range 1..100.
+    1 means small/ugly file, 100 means large/nice file. Default is 80.}
+  ImagingJpeg2000Quality             = 55;
+  { Controls whether JPEG 2000 image is saved with full file headers or just
+    as code stream. Default value is False (0).}
+  ImagingJpeg2000CodeStreamOnly      = 56;
+  { Specifies JPEG 2000 image compression type. If True (1), saved JPEG 2000 files
+    will be losslessly compressed. Otherwise lossy compression is used.
+    Default value is False (0).}
+  ImagingJpeg2000LosslessCompression = 57;
+  { Specifies compression scheme used when saving TIFF images. Supported values
+    are 0 (Uncompressed), 1 (LZW), 2 (PackBits RLE), 3 (Deflate - ZLib), 4 (JPEG),
+    5 (CCITT Group 4 fax encoding - for binary images only).
+    Default is 1 (LZW). Note that not all images can be stored with
+    JPEG compression - these images will be saved with default compression if
+    JPEG is set.}
+  ImagingTiffCompression             = 65;
+  { Controls compression quality when selected TIFF compression is Jpeg.
+    It is number in range 1..100. 1 means small/ugly file,
+    100 means large/nice file. Accessible trough ImagingTiffJpegQuality option.}
+  ImagingTiffJpegQuality             = 66;
+  { When activated (True = 1) existing TIFF files are not overwritten when saving but
+    new images are instead appended thus producing multipage TIFFs.
+    Default value is False (0).}
+  ImagingTiffAppendMode              = 67;
+  { If enabled image data is saved as layer of PSD file. This is required
+    to get proper transparency when opened in Photoshop for images with
+    alpha data (will be opened with one layer, RGB color channels, and transparency).
+    If you don't need this Photoshop compatibility turn this option off as you'll get
+    smaller file (will be opened in PS as background raster with RGBA channels).
+    Default value is True (1). }
+  ImagingPSDSaveAsLayer              = 70;
+
+implementation
+
+uses
+{$IFNDEF DONT_LINK_JPEG2000}
+  ImagingJpeg2000,
+{$ENDIF}
+{$IFNDEF DONT_LINK_TIFF}
+  ImagingLibTiffDelphi,
+{$ENDIF}
+{$IFNDEF DONT_LINK_PSD}
+  ImagingPsd,
+{$ENDIF}
+{$IFNDEF DONT_LINK_PCX}
+  ImagingPcx,
+{$ENDIF}
+{$IFNDEF DONT_LINK_XPM}
+  ImagingXpm,
+{$ENDIF}
+{$IFNDEF DONT_LINK_ELDER}
+  ElderImagery,
+{$ENDIF}
+  Imaging;
+
+{
+  File Notes:
+
+ -- TODOS -----------------------------------------------------
+    - nothing now
+
+  -- 0.77 -----------------------------------------------------
+    - Added ImagingTiffAppendMode option.
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Added Group 4 Fax encoding as compression for TIFF files.
+    - Added ImagingTiffJpegQuality option.
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Allowed JPEG2000 for Mac OS X x86
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - ElderImagery formats are disabled by default, TIFF enabled.
+    - Changed _LINK_ symbols according to changes in ImagingOptions.inc.
+
+  -- 0.24.1 Changes/Bug Fixes ---------------------------------
+    - Allowed JPEG2000 for x86_64 CPUS in Linux
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Better IF conditional to disable JPEG2000 on unsupported platforms.
+    - Added PSD and TIFF related stuff.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Created with initial stuff.
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingFormats.pas b/src/lib/vampimg/ImagingFormats.pas

new file mode 100644 (file)

index 0000000..b42b4ac
--- /dev/null
+++ b/src/lib/vampimg/ImagingFormats.pas
@@ -0,0 +1,4516 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit manages information about all image data formats and contains
+  low level format conversion, manipulation, and other related functions.}
+unit ImagingFormats;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  ImagingTypes, Imaging, ImagingUtility;
+
+type
+  TImageFormatInfoArray = array[TImageFormat] of PImageFormatInfo;
+  PImageFormatInfoArray = ^TImageFormatInfoArray;
+
+
+{ Additional image manipulation functions (usually used internally by Imaging unit) }
+
+type
+  { Color reduction operations.}
+  TReduceColorsAction = (raCreateHistogram, raUpdateHistogram, raMakeColorMap,
+    raMapImage);
+  TReduceColorsActions = set of TReduceColorsAction;
+const
+  AllReduceColorsActions = [raCreateHistogram, raUpdateHistogram,
+    raMakeColorMap, raMapImage];
+{ Reduces the number of colors of source. Src is bits of source image
+  (ARGB or floating point) and Dst is in some indexed format. MaxColors
+  is the number of colors to which reduce and DstPal is palette to which
+  the resulting colors are written and it must be allocated to at least
+  MaxColors entries. ChannelMask is 'anded' with every pixel's channel value
+  when creating color histogram. If $FF is used all 8bits of color channels
+  are used which can be slow for large images with many colors so you can
+  use  lower masks to speed it up.}
+procedure ReduceColorsMedianCut(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; MaxColors: LongInt; ChannelMask: Byte;
+  DstPal: PPalette32; Actions: TReduceColorsActions = AllReduceColorsActions);
+{ Stretches rectangle in source image to rectangle in destination image
+  using nearest neighbor filtering. It is fast but results look blocky
+  because there is no interpolation used. SrcImage and DstImage must be
+  in the same data format. Works for all data formats except special formats.}
+procedure StretchNearest(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt);
+type
+  { Built-in sampling filters.}
+  TSamplingFilter = (sfNearest, sfLinear, sfCosine, sfHermite, sfQuadratic,
+    sfGaussian, sfSpline, sfLanczos, sfMitchell, sfCatmullRom);
+  { Type of custom sampling function}
+  TFilterFunction = function(Value: Single): Single;
+const
+  { Default resampling filter used for bicubic resizing.}
+  DefaultCubicFilter = sfCatmullRom;
+var
+  { Built-in filter functions.}
+  SamplingFilterFunctions: array[TSamplingFilter] of TFilterFunction;
+  { Default radii of built-in filter functions.}
+  SamplingFilterRadii: array[TSamplingFilter] of Single;
+
+{ Stretches rectangle in source image to rectangle in destination image
+  with resampling. One of built-in resampling filters defined by
+  Filter is used. Set WrapEdges to True for seamlessly tileable images.
+  SrcImage and DstImage must be in the same data format.
+  Works for all data formats except special and indexed formats.}
+procedure StretchResample(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TSamplingFilter; WrapEdges: Boolean = False); overload;
+{ Stretches rectangle in source image to rectangle in destination image
+  with resampling. You can use custom sampling function and filter radius.
+  Set WrapEdges to True for seamlessly tileable images. SrcImage and DstImage
+  must be in the same data format.
+  Works for all data formats except special and indexed formats.}
+procedure StretchResample(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TFilterFunction; Radius: Single;
+  WrapEdges: Boolean = False); overload;
+{ Helper for functions that create mipmap levels. BiggerLevel is
+  valid image and SmallerLevel is empty zeroed image. SmallerLevel is created
+  with Width and Height dimensions and it is filled with pixels of BiggerLevel
+  using resampling filter specified by ImagingMipMapFilter option.
+  Uses StretchNearest and StretchResample internally so the same image data format
+  limitations apply.}
+procedure FillMipMapLevel(const BiggerLevel: TImageData; Width, Height: LongInt;
+  var SmallerLevel: TImageData);
+
+
+{ Various helper & support functions }
+
+{ Copies Src pixel to Dest pixel. It is faster than System.Move procedure.}
+procedure CopyPixel(Src, Dest: Pointer; BytesPerPixel: LongInt); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Compares Src pixel and Dest pixel. It is faster than SysUtils.CompareMem function.}
+function ComparePixels(PixelA, PixelB: Pointer; BytesPerPixel: LongInt): Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Translates pixel color in SrcFormat to DstFormat.}
+procedure TranslatePixel(SrcPixel, DstPixel: Pointer; SrcFormat,
+  DstFormat: TImageFormat; SrcPalette, DstPalette: PPalette32);
+{ Clamps floating point pixel channel values to [0.0, 1.0] range.}
+procedure ClampFloatPixel(var PixF: TColorFPRec); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Helper function that converts pixel in any format to 32bit ARGB pixel.
+  For common formats it's faster than calling GetPixel32 etc.}
+procedure ConvertToPixel32(SrcPix: PByte; DestPix: PColor32Rec;
+  const SrcInfo: TImageFormatInfo; SrcPalette: PPalette32 = nil); {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+{ Adds padding bytes at the ends of scanlines. Bpp is the number of bytes per
+  pixel of source and WidthBytes is the number of bytes per scanlines of dest.}
+procedure AddPadBytes(DataIn: Pointer; DataOut: Pointer; Width, Height,
+  Bpp, WidthBytes: LongInt);
+{ Removes padding from image with scanlines that have aligned sizes. Bpp is
+  the number of bytes per pixel of dest and WidthBytes is the number of bytes
+  per scanlines of source.}
+procedure RemovePadBytes(DataIn: Pointer; DataOut: Pointer; Width, Height,
+  Bpp, WidthBytes: LongInt);
+
+{ Converts 1bit image data to 8bit. Used mostly by file loaders for formats
+  supporting 1bit images. Scaling of pixel values to 8bits is optional
+  (indexed formats don't need this).}
+procedure Convert1To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+{ Converts 2bit image data to 8bit. Used mostly by file loaders for formats
+  supporting 2bit images. Scaling of pixel values to 8bits is optional
+  (indexed formats don't need this).}
+procedure Convert2To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+{ Converts 4bit image data to 8bit. Used mostly by file loaders for formats
+  supporting 4bit images. Scaling of pixel values to 8bits is optional
+  (indexed formats don't need this).}
+procedure Convert4To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+
+{ Helper function for image file loaders. Some 15 bit images (targas, bitmaps)
+  may contain 1 bit alpha but there is no indication of it. This function checks
+  all 16 bit(should be X1R5G5B5 or A1R5G5B5 format) pixels and some of them have
+  alpha bit set it returns True, otherwise False.}
+function Has16BitImageAlpha(NumPixels: LongInt; Data: PWord): Boolean;
+{ Helper function for image file loaders. This function checks is similar
+  to Has16BitImageAlpha but works with A8R8G8B8/X8R8G8B8 format.}
+function Has32BitImageAlpha(NumPixels: LongInt; Data: PLongWord): Boolean;
+{ Checks if there is any relevant alpha data (any entry has alpha <> 255)
+  in the given palette.}
+function PaletteHasAlpha(Palette: PPalette32; PaletteEntries: Integer): Boolean;
+
+{ Provides indexed access to each line of pixels. Does not work with special
+  format images.}
+function GetScanLine(ImageBits: Pointer; const FormatInfo: TImageFormatInfo;
+  LineWidth, Index: LongInt): Pointer; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns True if Format is valid image data format identifier.}
+function IsImageFormatValid(Format: TImageFormat): Boolean;
+
+{ Converts 16bit half floating point value to 32bit Single.}
+function HalfToFloat(Half: THalfFloat): Single;
+{ Converts 32bit Single to 16bit half floating point.}
+function FloatToHalf(Float: Single): THalfFloat;
+
+{ Converts half float color value to single-precision floating point color.}
+function ColorHalfToFloat(ColorHF: TColorHFRec): TColorFPRec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Converts single-precision floating point color to half float color.}
+function ColorFloatToHalf(ColorFP: TColorFPRec): TColorHFRec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+{ Makes image PalEntries x 1 big where each pixel has color of one pal entry.}
+procedure VisualizePalette(Pal: PPalette32; Entries: Integer; out PalImage: TImageData);
+
+type
+  TPointRec = record
+    Pos: LongInt;
+    Weight: Single;
+  end;
+  TCluster = array of TPointRec;
+  TMappingTable = array of TCluster;
+
+{ Helper function for resampling.}
+function BuildMappingTable(DstLow, DstHigh, SrcLow, SrcHigh, SrcImageWidth: LongInt;
+  Filter: TFilterFunction; Radius: Single; WrapEdges: Boolean): TMappingTable;
+{ Helper function for resampling.}
+procedure FindExtremes(const Map: TMappingTable; var MinPos, MaxPos: LongInt);
+
+
+{ Pixel readers/writers for different image formats }
+
+{ Returns pixel of image in any ARGB format. Channel values are scaled to 16 bits.}
+procedure ChannelGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Pix: TColor64Rec);
+{ Sets pixel of image in any ARGB format. Channel values must be scaled to 16 bits.}
+procedure ChannelSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Pix: TColor64Rec);
+
+{ Returns pixel of image in any grayscale format. Gray value is scaled to 64 bits
+  and alpha to 16 bits.}
+procedure GrayGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Gray: TColor64Rec; var Alpha: Word);
+{ Sets pixel of image in any grayscale format. Gray value must be scaled to 64 bits
+  and alpha to 16 bits.}
+procedure GraySetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Gray: TColor64Rec; Alpha: Word);
+
+{ Returns pixel of image in any floating point format. Channel values are
+  in range <0.0, 1.0>.}
+procedure FloatGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Pix: TColorFPRec);
+{ Sets pixel of image in any floating point format. Channel values must be
+  in range <0.0, 1.0>.}
+procedure FloatSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Pix: TColorFPRec);
+
+{ Returns pixel of image in any indexed format. Returned value is index to
+  the palette.}
+procedure IndexGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Index: LongWord);
+{ Sets pixel of image in any indexed format. Index is index to the palette.}
+procedure IndexSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  Index: LongWord);
+
+
+{ Pixel readers/writers for 32bit and FP colors}
+
+{ Function for getting pixel colors. Native pixel is read from Image and
+  then translated to 32 bit ARGB.}
+function GetPixel32Generic(Bits: Pointer; Info: PImageFormatInfo;
+  Palette: PPalette32): TColor32Rec;
+{ Procedure for setting pixel colors. Input 32 bit ARGB color is translated to
+    native format and then written to Image.}
+procedure SetPixel32Generic(Bits: Pointer; Info: PImageFormatInfo;
+  Palette: PPalette32; const Color: TColor32Rec);
+{ Function for getting pixel colors. Native pixel is read from Image and
+  then translated to FP ARGB.}
+function GetPixelFPGeneric(Bits: Pointer; Info: PImageFormatInfo;
+  Palette: PPalette32): TColorFPRec;
+{ Procedure for setting pixel colors. Input FP ARGB color is translated to
+    native format and then written to Image.}
+procedure SetPixelFPGeneric(Bits: Pointer; Info: PImageFormatInfo;
+  Palette: PPalette32; const Color: TColorFPRec);
+
+
+{ Image format conversion functions }
+
+{ Converts any ARGB format to any ARGB format.}
+procedure ChannelToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any ARGB format to any grayscale format.}
+procedure ChannelToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any ARGB format to any floating point format.}
+procedure ChannelToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any ARGB format to any indexed format.}
+procedure ChannelToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+
+{ Converts any grayscale format to any grayscale format.}
+procedure GrayToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any grayscale format to any ARGB format.}
+procedure GrayToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any grayscale format to any floating point format.}
+procedure GrayToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any grayscale format to any indexed format.}
+procedure GrayToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+
+{ Converts any floating point format to any floating point format.}
+procedure FloatToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any floating point format to any ARGB format.}
+procedure FloatToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any floating point format to any grayscale format.}
+procedure FloatToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+{ Converts any floating point format to any indexed format.}
+procedure FloatToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+
+{ Converts any indexed format to any indexed format.}
+procedure IndexToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal, DstPal: PPalette32);
+{ Converts any indexed format to any ARGB format.}
+procedure IndexToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+{ Converts any indexed format to any grayscale format.}
+procedure IndexToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+{ Converts any indexed format to any floating point  format.}
+procedure IndexToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+
+
+{ Color constructor functions }
+
+{ Constructs TColor24Rec color.}
+function Color24(R, G, B: Byte): TColor24Rec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Constructs TColor32Rec color.}
+function Color32(A, R, G, B: Byte): TColor32Rec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Constructs TColor48Rec color.}
+function Color48(R, G, B: Word): TColor48Rec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Constructs TColor64Rec color.}
+function Color64(A, R, G, B: Word): TColor64Rec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Constructs TColorFPRec color.}
+function ColorFP(A, R, G, B: Single): TColorFPRec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Constructs TColorHFRec color.}
+function ColorHF(A, R, G, B: THalfFloat): TColorHFRec; {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+
+{ Special formats conversion functions }
+
+{ Converts image to/from/between special image formats (dxtc, ...).}
+procedure ConvertSpecial(var Image: TImageData; SrcInfo,
+  DstInfo: PImageFormatInfo);
+
+
+{ Inits all image format information. Called internally on startup.}
+procedure InitImageFormats(var Infos: TImageFormatInfoArray);
+
+const
+  // Grayscale conversion channel weights
+  GrayConv: TColorFPRec = (B: 0.114; G: 0.587; R: 0.299; A: 0.0);
+
+  // Contants for converting integer colors to floating point
+  OneDiv8Bit: Single = 1.0 / 255.0;
+  OneDiv16Bit: Single = 1.0 / 65535.0;
+
+implementation
+
+{ TImageFormatInfo member functions }
+
+{ Returns size in bytes of image in given standard format where
+  Size = Width * Height * Bpp.}
+function GetStdPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt; forward;
+{ Checks if Width and Height are valid for given standard format.}
+procedure CheckStdDimensions(Format: TImageFormat; var Width, Height: LongInt); forward;
+{ Returns size in bytes of image in given DXT format.}
+function GetDXTPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt; forward;
+{ Checks if Width and Height are valid for given DXT format. If they are
+  not valid, they are changed to pass the check.}
+procedure CheckDXTDimensions(Format: TImageFormat; var Width, Height: LongInt); forward;
+{ Returns size in bytes of image in BTC format.}
+function GetBTCPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt; forward;
+{ Returns size in bytes of image in binary format (1bit image).}
+function GetBinaryPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt; forward;
+
+function GetBCPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt; forward;
+procedure CheckBCDimensions(Format: TImageFormat; var Width, Height: LongInt); forward;
+
+
+{ Optimized pixel readers/writers for 32bit and FP colors to be stored in TImageFormatInfo }
+
+function GetPixel32ifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColor32Rec; forward;
+procedure SetPixel32ifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColor32Rec); forward;
+function GetPixelFPifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec; forward;
+procedure SetPixelFPifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec); forward;
+
+function GetPixel32Channel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColor32Rec; forward;
+procedure SetPixel32Channel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColor32Rec); forward;
+function GetPixelFPChannel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec; forward;
+procedure SetPixelFPChannel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec); forward;
+
+function GetPixelFPFloat32(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec; forward;
+procedure SetPixelFPFloat32(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec); forward;
+
+var
+  PFR3G3B2: TPixelFormatInfo;
+  PFX5R1G1B1: TPixelFormatInfo;
+  PFR5G6B5: TPixelFormatInfo;
+  PFA1R5G5B5: TPixelFormatInfo;
+  PFA4R4G4B4: TPixelFormatInfo;
+  PFX1R5G5B5: TPixelFormatInfo;
+  PFX4R4G4B4: TPixelFormatInfo;
+  FInfos: PImageFormatInfoArray;
+
+var
+  // Free Pascal generates hundreds of warnings here
+{$WARNINGS OFF}
+
+  // indexed formats
+  Index8Info: TImageFormatInfo = (
+    Format: ifIndex8;
+    Name: 'Index8';
+    BytesPerPixel: 1;
+    ChannelCount: 1;
+    PaletteEntries: 256;
+    HasAlphaChannel: True;
+    IsIndexed: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  // grayscale formats
+  Gray8Info: TImageFormatInfo = (
+    Format: ifGray8;
+    Name: 'Gray8';
+    BytesPerPixel: 1;
+    ChannelCount: 1;
+    HasGrayChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Channel8Bit;
+    GetPixelFP: GetPixelFPChannel8Bit;
+    SetPixel32: SetPixel32Channel8Bit;
+    SetPixelFP: SetPixelFPChannel8Bit);
+
+  A8Gray8Info: TImageFormatInfo = (
+    Format: ifA8Gray8;
+    Name: 'A8Gray8';
+    BytesPerPixel: 2;
+    ChannelCount: 2;
+    HasGrayChannel: True;
+    HasAlphaChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Channel8Bit;
+    GetPixelFP: GetPixelFPChannel8Bit;
+    SetPixel32: SetPixel32Channel8Bit;
+    SetPixelFP: SetPixelFPChannel8Bit);
+
+  Gray16Info: TImageFormatInfo = (
+    Format: ifGray16;
+    Name: 'Gray16';
+    BytesPerPixel: 2;
+    ChannelCount: 1;
+    HasGrayChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  Gray32Info: TImageFormatInfo = (
+    Format: ifGray32;
+    Name: 'Gray32';
+    BytesPerPixel: 4;
+    ChannelCount: 1;
+    HasGrayChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  Gray64Info: TImageFormatInfo = (
+    Format: ifGray64;
+    Name: 'Gray64';
+    BytesPerPixel: 8;
+    ChannelCount: 1;
+    HasGrayChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A16Gray16Info: TImageFormatInfo = (
+    Format: ifA16Gray16;
+    Name: 'A16Gray16';
+    BytesPerPixel: 4;
+    ChannelCount: 2;
+    HasGrayChannel: True;
+    HasAlphaChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  // ARGB formats
+  X5R1G1B1Info: TImageFormatInfo = (
+    Format: ifX5R1G1B1;
+    Name: 'X5R1G1B1';
+    BytesPerPixel: 1;
+    ChannelCount: 3;
+    UsePixelFormat: True;
+    PixelFormat: @PFX5R1G1B1;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  R3G3B2Info: TImageFormatInfo = (
+    Format: ifR3G3B2;
+    Name: 'R3G3B2';
+    BytesPerPixel: 1;
+    ChannelCount: 3;
+    UsePixelFormat: True;
+    PixelFormat: @PFR3G3B2;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  R5G6B5Info: TImageFormatInfo = (
+    Format: ifR5G6B5;
+    Name: 'R5G6B5';
+    BytesPerPixel: 2;
+    ChannelCount: 3;
+    UsePixelFormat: True;
+    PixelFormat: @PFR5G6B5;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A1R5G5B5Info: TImageFormatInfo = (
+    Format: ifA1R5G5B5;
+    Name: 'A1R5G5B5';
+    BytesPerPixel: 2;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    UsePixelFormat: True;
+    PixelFormat: @PFA1R5G5B5;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A4R4G4B4Info: TImageFormatInfo = (
+    Format: ifA4R4G4B4;
+    Name: 'A4R4G4B4';
+    BytesPerPixel: 2;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    UsePixelFormat: True;
+    PixelFormat: @PFA4R4G4B4;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  X1R5G5B5Info: TImageFormatInfo = (
+    Format: ifX1R5G5B5;
+    Name: 'X1R5G5B5';
+    BytesPerPixel: 2;
+    ChannelCount: 3;
+    UsePixelFormat: True;
+    PixelFormat: @PFX1R5G5B5;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  X4R4G4B4Info: TImageFormatInfo = (
+    Format: ifX4R4G4B4;
+    Name: 'X4R4G4B4';
+    BytesPerPixel: 2;
+    ChannelCount: 3;
+    UsePixelFormat: True;
+    PixelFormat: @PFX4R4G4B4;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  R8G8B8Info: TImageFormatInfo = (
+    Format: ifR8G8B8;
+    Name: 'R8G8B8';
+    BytesPerPixel: 3;
+    ChannelCount: 3;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Channel8Bit;
+    GetPixelFP: GetPixelFPChannel8Bit;
+    SetPixel32: SetPixel32Channel8Bit;
+    SetPixelFP: SetPixelFPChannel8Bit);
+
+  A8R8G8B8Info: TImageFormatInfo = (
+    Format: ifA8R8G8B8;
+    Name: 'A8R8G8B8';
+    BytesPerPixel: 4;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32ifA8R8G8B8;
+    GetPixelFP: GetPixelFPifA8R8G8B8;
+    SetPixel32: SetPixel32ifA8R8G8B8;
+    SetPixelFP: SetPixelFPifA8R8G8B8);
+
+  X8R8G8B8Info: TImageFormatInfo = (
+    Format: ifX8R8G8B8;
+    Name: 'X8R8G8B8';
+    BytesPerPixel: 4;
+    ChannelCount: 3;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Channel8Bit;
+    GetPixelFP: GetPixelFPChannel8Bit;
+    SetPixel32: SetPixel32Channel8Bit;
+    SetPixelFP: SetPixelFPChannel8Bit);
+
+  R16G16B16Info: TImageFormatInfo = (
+    Format: ifR16G16B16;
+    Name: 'R16G16B16';
+    BytesPerPixel: 6;
+    ChannelCount: 3;
+    RBSwapFormat: ifB16G16R16;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A16R16G16B16Info: TImageFormatInfo = (
+    Format: ifA16R16G16B16;
+    Name: 'A16R16G16B16';
+    BytesPerPixel: 8;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    RBSwapFormat: ifA16B16G16R16;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  B16G16R16Info: TImageFormatInfo = (
+    Format: ifB16G16R16;
+    Name: 'B16G16R16';
+    BytesPerPixel: 6;
+    ChannelCount: 3;
+    IsRBSwapped: True;
+    RBSwapFormat: ifR16G16B16;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A16B16G16R16Info: TImageFormatInfo = (
+    Format: ifA16B16G16R16;
+    Name: 'A16B16G16R16';
+    BytesPerPixel: 8;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsRBSwapped: True;
+    RBSwapFormat: ifA16R16G16B16;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  // floating point formats
+  R32FInfo: TImageFormatInfo = (
+    Format: ifR32F;
+    Name: 'R32F';
+    BytesPerPixel: 4;
+    ChannelCount: 1;
+    IsFloatingPoint: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPFloat32;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPFloat32);
+
+ A32R32G32B32FInfo: TImageFormatInfo = (
+    Format: ifA32R32G32B32F;
+    Name: 'A32R32G32B32F';
+    BytesPerPixel: 16;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsFloatingPoint: True;
+    RBSwapFormat: ifA32B32G32R32F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPFloat32;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPFloat32);
+
+  A32B32G32R32FInfo: TImageFormatInfo = (
+    Format: ifA32B32G32R32F;
+    Name: 'A32B32G32R32F';
+    BytesPerPixel: 16;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsFloatingPoint: True;
+    IsRBSwapped: True;
+    RBSwapFormat: ifA32R32G32B32F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPFloat32;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPFloat32);
+
+  R16FInfo: TImageFormatInfo = (
+    Format: ifR16F;
+    Name: 'R16F';
+    BytesPerPixel: 2;
+    ChannelCount: 1;
+    IsFloatingPoint: True;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+ A16R16G16B16FInfo: TImageFormatInfo = (
+    Format: ifA16R16G16B16F;
+    Name: 'A16R16G16B16F';
+    BytesPerPixel: 8;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsFloatingPoint: True;
+    RBSwapFormat: ifA16B16G16R16F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  A16B16G16R16FInfo: TImageFormatInfo = (
+    Format: ifA16B16G16R16F;
+    Name: 'A16B16G16R16F';
+    BytesPerPixel: 8;
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsFloatingPoint: True;
+    IsRBSwapped: True;
+    RBSwapFormat: ifA16R16G16B16F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPGeneric;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPGeneric);
+
+  R32G32B32FInfo: TImageFormatInfo = (
+    Format: ifR32G32B32F;
+    Name: 'R32G32B32F';
+    BytesPerPixel: 12;
+    ChannelCount: 3;
+    IsFloatingPoint: True;
+    RBSwapFormat: ifB32G32R32F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPFloat32;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPFloat32);
+
+  B32G32R32FInfo: TImageFormatInfo = (
+    Format: ifB32G32R32F;
+    Name: 'B32G32R32F';
+    BytesPerPixel: 12;
+    ChannelCount: 3;
+    IsFloatingPoint: True;
+    IsRBSwapped: True;
+    RBSwapFormat: ifR32G32B32F;
+    GetPixelsSize: GetStdPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    GetPixel32: GetPixel32Generic;
+    GetPixelFP: GetPixelFPFloat32;
+    SetPixel32: SetPixel32Generic;
+    SetPixelFP: SetPixelFPFloat32);
+
+  // special formats
+  DXT1Info: TImageFormatInfo = (
+    Format: ifDXT1;
+    Name: 'DXT1';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    GetPixelsSize: GetDXTPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  DXT3Info: TImageFormatInfo = (
+    Format: ifDXT3;
+    Name: 'DXT3';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    GetPixelsSize: GetDXTPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  DXT5Info: TImageFormatInfo = (
+    Format: ifDXT5;
+    Name: 'DXT5';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    GetPixelsSize: GetDXTPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  BTCInfo: TImageFormatInfo = (
+    Format: ifBTC;
+    Name: 'BTC';
+    ChannelCount: 1;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    GetPixelsSize: GetBTCPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifGray8);
+
+  ATI1NInfo: TImageFormatInfo = (
+    Format: ifATI1N;
+    Name: 'ATI1N';
+    ChannelCount: 1;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    GetPixelsSize: GetDXTPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifGray8);
+
+  ATI2NInfo: TImageFormatInfo = (
+    Format: ifATI2N;
+    Name: 'ATI2N';
+    ChannelCount: 2;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    GetPixelsSize: GetDXTPixelsSize;
+    CheckDimensions: CheckDXTDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  BinaryInfo: TImageFormatInfo = (
+    Format: ifBinary;
+    Name: 'Binary';
+    ChannelCount: 1;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    GetPixelsSize: GetBinaryPixelsSize;
+    CheckDimensions: CheckStdDimensions;
+    SpecialNearestFormat: ifGray8);
+
+  {ETC1Info: TImageFormatInfo = (
+    Format: ifETC1;
+    Name: 'ETC1';
+    ChannelCount: 3;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifR8G8B8);
+
+  ETC2RGBInfo: TImageFormatInfo = (
+    Format: ifETC2RGB;
+    Name: 'ETC2RGB';
+    ChannelCount: 3;
+    HasAlphaChannel: False;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifR8G8B8);
+
+  ETC2RGBAInfo: TImageFormatInfo = (
+    Format: ifETC2RGBA;
+    Name: 'ETC2RGBA';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  ETC2PAInfo: TImageFormatInfo = (
+    Format: ifETC2PA;
+    Name: 'ETC2PA';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  DXBC6Info: TImageFormatInfo = (
+    Format: ifDXBC6;
+    Name: 'DXBC6';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);
+
+  DXBC7Info: TImageFormatInfo = (
+    Format: ifDXBC6;
+    Name: 'DXBC7';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);   }
+
+  {PVRTCInfo: TImageFormatInfo = (
+    Format: ifPVRTC;
+    Name: 'PVRTC';
+    ChannelCount: 4;
+    HasAlphaChannel: True;
+    IsSpecial: True;
+    IsPasstrough: True;
+    GetPixelsSize: GetBCPixelsSize;
+    CheckDimensions: CheckBCDimensions;
+    SpecialNearestFormat: ifA8R8G8B8);}
+
+{$WARNINGS ON}
+
+function PixelFormat(ABitCount, RBitCount, GBitCount, BBitCount: Byte): TPixelFormatInfo; forward;
+
+procedure InitImageFormats(var Infos: TImageFormatInfoArray);
+begin
+  FInfos := @Infos;
+
+  Infos[ifDefault] := @A8R8G8B8Info;
+  // indexed formats
+  Infos[ifIndex8] := @Index8Info;
+  // grayscale formats
+  Infos[ifGray8] := @Gray8Info;
+  Infos[ifA8Gray8] := @A8Gray8Info;
+  Infos[ifGray16] := @Gray16Info;
+  Infos[ifGray32] := @Gray32Info;
+  Infos[ifGray64] := @Gray64Info;
+  Infos[ifA16Gray16] := @A16Gray16Info;
+  // ARGB formats
+  Infos[ifX5R1G1B1] := @X5R1G1B1Info;
+  Infos[ifR3G3B2] := @R3G3B2Info;
+  Infos[ifR5G6B5] := @R5G6B5Info;
+  Infos[ifA1R5G5B5] := @A1R5G5B5Info;
+  Infos[ifA4R4G4B4] := @A4R4G4B4Info;
+  Infos[ifX1R5G5B5] := @X1R5G5B5Info;
+  Infos[ifX4R4G4B4] := @X4R4G4B4Info;
+  Infos[ifR8G8B8] := @R8G8B8Info;
+  Infos[ifA8R8G8B8] := @A8R8G8B8Info;
+  Infos[ifX8R8G8B8] := @X8R8G8B8Info;
+  Infos[ifR16G16B16] := @R16G16B16Info;
+  Infos[ifA16R16G16B16] := @A16R16G16B16Info;
+  Infos[ifB16G16R16] := @B16G16R16Info;
+  Infos[ifA16B16G16R16] := @A16B16G16R16Info;
+  // floating point formats
+  Infos[ifR32F] := @R32FInfo;
+  Infos[ifA32R32G32B32F] := @A32R32G32B32FInfo;
+  Infos[ifA32B32G32R32F] := @A32B32G32R32FInfo;
+  Infos[ifR16F] := @R16FInfo;
+  Infos[ifA16R16G16B16F] := @A16R16G16B16FInfo;
+  Infos[ifA16B16G16R16F] := @A16B16G16R16FInfo;
+  Infos[ifR32G32B32F] := @R32G32B32FInfo;
+  Infos[ifB32G32R32F] := @B32G32R32FInfo;
+  // special formats
+  Infos[ifDXT1] := @DXT1Info;
+  Infos[ifDXT3] := @DXT3Info;
+  Infos[ifDXT5] := @DXT5Info;
+  Infos[ifBTC] :=  @BTCInfo;
+  Infos[ifATI1N] := @ATI1NInfo;
+  Infos[ifATI2N] := @ATI2NInfo;
+  Infos[ifBinary] := @BinaryInfo;
+
+  PFR3G3B2 := PixelFormat(0, 3, 3, 2);
+  PFX5R1G1B1 := PixelFormat(0, 1, 1, 1);
+  PFR5G6B5 := PixelFormat(0, 5, 6, 5);
+  PFA1R5G5B5 := PixelFormat(1, 5, 5, 5);
+  PFA4R4G4B4 := PixelFormat(4, 4, 4, 4);
+  PFX1R5G5B5 := PixelFormat(0, 5, 5, 5);
+  PFX4R4G4B4 := PixelFormat(0, 4, 4, 4);
+end;
+
+
+{ Internal unit helper functions }
+
+function PixelFormat(ABitCount, RBitCount, GBitCount, BBitCount: Byte): TPixelFormatInfo;
+begin
+  Result.ABitMask := ((1 shl ABitCount) - 1) shl (RBitCount + GBitCount +
+    BBitCount);
+  Result.RBitMask := ((1 shl RBitCount) - 1) shl (GBitCount + BBitCount);
+  Result.GBitMask := ((1 shl GBitCount) - 1) shl (BBitCount);
+  Result.BBitMask := (1 shl BBitCount) - 1;
+  Result.ABitCount := ABitCount;
+  Result.RBitCount := RBitCount;
+  Result.GBitCount := GBitCount;
+  Result.BBitCount := BBitCount;
+  Result.AShift := RBitCount + GBitCount + BBitCount;
+  Result.RShift := GBitCount + BBitCount;
+  Result.GShift := BBitCount;
+  Result.BShift := 0;
+  Result.ARecDiv := Max(1, Pow2Int(Result.ABitCount) - 1);
+  Result.RRecDiv := Max(1, Pow2Int(Result.RBitCount) - 1);
+  Result.GRecDiv := Max(1, Pow2Int(Result.GBitCount) - 1);
+  Result.BRecDiv := Max(1, Pow2Int(Result.BBitCount) - 1);
+end;
+
+function PixelFormatMask(ABitMask, RBitMask, GBitMask, BBitMask: LongWord): TPixelFormatInfo;
+
+  function GetBitCount(B: LongWord): LongWord;
+  var
+    I: LongWord;
+  begin
+    I := 0;
+    while (I < 31) and (((1 shl I) and B) = 0) do
+      Inc(I);
+    Result := 0;
+    while ((1 shl I) and B) <> 0 do
+    begin
+      Inc(I);
+      Inc(Result);
+    end;
+  end;
+
+begin
+  Result := PixelFormat(GetBitCount(ABitMask), GetBitCount(RBitMask),
+    GetBitCount(GBitMask), GetBitCount(BBitMask));
+end;
+
+function PFSetARGB(const PF: TPixelFormatInfo; A, R, G, B: Byte): TColor32;
+{$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  with PF do
+    Result :=
+      (A shl ABitCount shr 8 shl AShift) or
+      (R shl RBitCount shr 8 shl RShift) or
+      (G shl GBitCount shr 8 shl GShift) or
+      (B shl BBitCount shr 8 shl BShift);
+end;
+
+procedure PFGetARGB(const PF: TPixelFormatInfo; Color: LongWord;
+  var A, R, G, B: Byte); {$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  with PF do
+  begin
+    A := (Color and ABitMask shr AShift) * 255 div ARecDiv;
+    R := (Color and RBitMask shr RShift) * 255 div RRecDiv;
+    G := (Color and GBitMask shr GShift) * 255 div GRecDiv;
+    B := (Color and BBitMask shl BShift) * 255 div BRecDiv;
+  end;
+end;
+
+function PFSetColor(const PF: TPixelFormatInfo; ARGB: TColor32): LongWord;
+{$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  with PF do
+    Result :=
+      (Byte(ARGB shr 24) shl ABitCount shr 8 shl AShift) or
+      (Byte(ARGB shr 16) shl RBitCount shr 8 shl RShift) or
+      (Byte(ARGB shr 8) shl GBitCount shr 8 shl GShift) or
+      (Byte(ARGB) shl BBitCount shr 8 shl BShift);
+end;
+
+function PFGetColor(const PF: TPixelFormatInfo; Color: LongWord): TColor32;
+{$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  //with PF, TColor32Rec(Result) do
+  begin
+    TColor32Rec(Result).A := (Color and PF.ABitMask shr PF.AShift) * 255 div PF.ARecDiv;
+    TColor32Rec(Result).R := (Color and PF.RBitMask shr PF.RShift) * 255 div PF.RRecDiv;
+    TColor32Rec(Result).G := (Color and PF.GBitMask shr PF.GShift) * 255 div PF.GRecDiv;
+    TColor32Rec(Result).B := (Color and PF.BBitMask shl PF.BShift) * 255 div PF.BRecDiv;
+  end;
+end;
+
+
+{ Color constructor functions }
+
+
+function Color24(R, G, B: Byte): TColor24Rec;
+begin
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+function Color32(A, R, G, B: Byte): TColor32Rec;
+begin
+  Result.A := A;
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+function Color48(R, G, B: Word): TColor48Rec;
+begin
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+function Color64(A, R, G, B: Word): TColor64Rec;
+begin
+  Result.A := A;
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+function ColorFP(A, R, G, B: Single): TColorFPRec;
+begin
+  Result.A := A;
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+function ColorHF(A, R, G, B: THalfFloat): TColorHFRec;
+begin
+  Result.A := A;
+  Result.R := R;
+  Result.G := G;
+  Result.B := B;
+end;
+
+
+{ Additional image manipulation functions (usually used internally by Imaging unit) }
+
+const
+  MaxPossibleColors = 4096;
+  HashSize = 32768;
+  AlphaWeight = 1024;
+  RedWeight = 612;
+  GreenWeight = 1202;
+  BlueWeight = 234;
+
+type
+  PColorBin = ^TColorBin;
+  TColorBin = record
+    Color: TColor32Rec;
+    Number: LongInt;
+    Next: PColorBin;
+  end;
+
+  THashTable = array[0..HashSize - 1] of PColorBin;
+
+  TColorBox = record
+    AMin, AMax,
+    RMin, RMax,
+    GMin, GMax,
+    BMin, BMax: LongInt;
+    Total: LongInt;
+    Represented: TColor32Rec;
+    List: PColorBin;
+  end;
+
+var
+  Table: THashTable;
+  Box: array[0..MaxPossibleColors - 1] of TColorBox;
+  Boxes: LongInt;
+  BoxesCreated: Boolean = False;
+
+procedure ReduceColorsMedianCut(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; MaxColors: LongInt; ChannelMask: Byte;
+  DstPal: PPalette32; Actions: TReduceColorsActions);
+
+  procedure CreateHistogram (Src: PByte; SrcInfo: PImageFormatInfo;
+    ChannelMask: Byte);
+  var
+    A, R, G, B: Byte;
+    I, Addr: LongInt;
+    PC: PColorBin;
+    Col: TColor32Rec;
+  begin
+    for I := 0 to NumPixels - 1 do
+    begin
+      Col := GetPixel32Generic(Src, SrcInfo, nil);
+      A := Col.A and ChannelMask;
+      R := Col.R and ChannelMask;
+      G := Col.G and ChannelMask;
+      B := Col.B and ChannelMask;
+
+      Addr := (A + 11 * B + 59 * R + 119 * G) mod HashSize;
+      PC := Table[Addr];
+
+      while (PC <> nil) and ((PC.Color.R <> R) or (PC.Color.G <> G) or
+        (PC.Color.B <> B) or (PC.Color.A <> A)) do
+        PC := PC.Next;
+
+      if PC = nil then
+      begin
+        New(PC);
+        PC.Color.R := R;
+        PC.Color.G := G;
+        PC.Color.B := B;
+        PC.Color.A := A;
+        PC.Number := 1;
+        PC.Next := Table[Addr];
+        Table[Addr] := PC;
+      end
+      else
+        Inc(PC^.Number);
+      Inc(Src, SrcInfo.BytesPerPixel);
+    end;
+  end;
+
+  procedure InitBox (var Box : TColorBox);
+  begin
+    Box.AMin := 256;
+    Box.RMin := 256;
+    Box.GMin := 256;
+    Box.BMin := 256;
+    Box.AMax := -1;
+    Box.RMax := -1;
+    Box.GMax := -1;
+    Box.BMax := -1;
+    Box.Total := 0;
+    Box.List := nil;
+  end;
+
+  procedure ChangeBox (var Box: TColorBox; const C: TColorBin);
+  begin
+    with C.Color do
+    begin
+      if A < Box.AMin then Box.AMin := A;
+      if A > Box.AMax then Box.AMax := A;
+      if B < Box.BMin then Box.BMin := B;
+      if B > Box.BMax then Box.BMax := B;
+      if G < Box.GMin then Box.GMin := G;
+      if G > Box.GMax then Box.GMax := G;
+      if R < Box.RMin then Box.RMin := R;
+      if R > Box.RMax then Box.RMax := R;
+    end;
+    Inc(Box.Total, C.Number);
+  end;
+
+  procedure MakeColormap;
+  var
+    I, J: LongInt;
+    CP, Pom: PColorBin;
+    Cut, LargestIdx, Largest, Size, S: LongInt;
+    CutA, CutR, CutG, CutB: Boolean;
+    SumA, SumR, SumG, SumB: LongInt;
+    Temp: TColorBox;
+  begin
+    I := 0;
+    Boxes := 1;
+    LargestIdx := 0;
+    while (I < HashSize) and (Table[I] = nil) do
+      Inc(i);
+    if I < HashSize then
+    begin
+      // put all colors into Box[0]
+      InitBox(Box[0]);
+      repeat
+        CP := Table[I];
+        while CP.Next <> nil do
+        begin
+          ChangeBox(Box[0], CP^);
+          CP := CP.Next;
+        end;
+        ChangeBox(Box[0], CP^);
+        CP.Next := Box[0].List;
+        Box[0].List := Table[I];
+        Table[I] := nil;
+        repeat
+          Inc(I)
+        until (I = HashSize) or (Table[I] <> nil);
+      until I = HashSize;
+      // now all colors are in Box[0]
+      repeat
+        // cut one color box
+        Largest := 0;
+        for I := 0 to Boxes - 1 do
+          with Box[I] do
+          begin
+            Size := (AMax - AMin) * AlphaWeight;
+            S := (RMax - RMin) * RedWeight;
+            if S > Size then
+              Size := S;
+            S := (GMax - GMin) * GreenWeight;
+            if S > Size then
+              Size := S;
+            S := (BMax - BMin) * BlueWeight;
+            if S > Size then
+              Size := S;
+            if Size > Largest then
+            begin
+              Largest := Size;
+              LargestIdx := I;
+            end;
+          end;
+        if Largest > 0 then
+        begin
+          // cutting Box[LargestIdx] into Box[LargestIdx] and Box[Boxes]
+          CutR := False;
+          CutG := False;
+          CutB := False;
+          CutA := False;
+          with Box[LargestIdx] do
+          begin
+            if (AMax - AMin) * AlphaWeight = Largest then
+            begin
+              Cut := (AMax + AMin) shr 1;
+              CutA := True;
+            end
+            else
+              if (RMax - RMin) * RedWeight = Largest then
+              begin
+                Cut := (RMax + RMin) shr 1;
+                CutR := True;
+              end
+              else
+                if (GMax - GMin) * GreenWeight = Largest then
+                begin
+                  Cut := (GMax + GMin) shr 1;
+                  CutG := True;
+                end
+                else
+                begin
+                  Cut := (BMax + BMin) shr 1;
+                  CutB := True;
+                end;
+            CP := List;
+          end;
+          InitBox(Box[LargestIdx]);
+          InitBox(Box[Boxes]);
+          repeat
+            // distribute one color
+            Pom := CP.Next;
+            with CP.Color do
+            begin
+              if (CutA and (A <= Cut)) or (CutR and (R <= Cut)) or
+                (CutG and (G <= Cut)) or (CutB and (B <= Cut)) then
+                I := LargestIdx
+              else
+                I := Boxes;
+            end;
+            CP.Next := Box[i].List;
+            Box[i].List := CP;
+            ChangeBox(Box[i], CP^);
+            CP := Pom;
+          until CP = nil;
+          Inc(Boxes);
+        end;
+      until (Boxes = MaxColors) or (Largest = 0);
+      // compute box representation
+      for I := 0 to Boxes - 1 do
+      begin
+        SumR := 0;
+        SumG := 0;
+        SumB := 0;
+        SumA := 0;
+        repeat
+          CP := Box[I].List;
+          Inc(SumR, CP.Color.R * CP.Number);
+          Inc(SumG, CP.Color.G * CP.Number);
+          Inc(SumB, CP.Color.B * CP.Number);
+          Inc(SumA, CP.Color.A * CP.Number);
+          Box[I].List := CP.Next;
+          Dispose(CP);
+        until Box[I].List = nil;
+        with Box[I] do
+        begin
+          Represented.A := SumA div Total;
+          Represented.R := SumR div Total;
+          Represented.G := SumG div Total;
+          Represented.B := SumB div Total;
+          AMin := AMin and ChannelMask;
+          RMin := RMin and ChannelMask;
+          GMin := GMin and ChannelMask;
+          BMin := BMin and ChannelMask;
+          AMax := (AMax and ChannelMask) + (not ChannelMask);
+          RMax := (RMax and ChannelMask) + (not ChannelMask);
+          GMax := (GMax and ChannelMask) + (not ChannelMask);
+          BMax := (BMax and ChannelMask) + (not ChannelMask);
+        end;
+      end;
+      // sort color boxes
+      for I := 0 to Boxes - 2 do
+      begin
+        Largest := 0;
+        for J := I to Boxes - 1 do
+          if Box[J].Total > Largest then
+          begin
+            Largest := Box[J].Total;
+            LargestIdx := J;
+          end;
+        if LargestIdx <> I then
+        begin
+          Temp := Box[I];
+          Box[I] := Box[LargestIdx];
+          Box[LargestIdx] := Temp;
+        end;
+      end;
+    end;
+  end;
+
+  procedure FillOutputPalette;
+  var
+    I: LongInt;
+  begin
+    FillChar(DstPal^, SizeOf(TColor32Rec) * MaxColors, $FF);
+    for I := 0 to MaxColors - 1 do
+    begin
+      if I < Boxes then
+      with Box[I].Represented do
+      begin
+        DstPal[I].A := A;
+        DstPal[I].R := R;
+        DstPal[I].G := G;
+        DstPal[I].B := B;
+      end
+      else
+        DstPal[I].Color := $FF000000;
+    end;
+  end;
+
+  function MapColor(const Col: TColor32Rec) : LongInt;
+  var
+    I: LongInt;
+  begin
+    I := 0;
+    with Col do
+      while (I < Boxes) and ((Box[I].AMin > A) or (Box[I].AMax < A) or
+        (Box[I].RMin > R) or (Box[I].RMax < R) or (Box[I].GMin > G) or
+        (Box[I].GMax < G) or (Box[I].BMin > B) or (Box[I].BMax < B)) do
+        Inc(I);
+    if I = Boxes then
+      MapColor := 0
+    else
+      MapColor := I;
+  end;
+
+  procedure MapImage(Src, Dst: PByte; SrcInfo, DstInfo: PImageFormatInfo);
+  var
+    I: LongInt;
+    Col: TColor32Rec;
+  begin
+    for I := 0 to NumPixels - 1 do
+    begin
+      Col := GetPixel32Generic(Src, SrcInfo, nil);
+      IndexSetDstPixel(Dst, DstInfo, MapColor(Col));
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+  end;
+
+begin
+  MaxColors := ClampInt(MaxColors, 2, MaxPossibleColors);
+
+  if (raUpdateHistogram in Actions) or (raMapImage in Actions) then
+  begin
+    Assert(not SrcInfo.IsSpecial);
+    Assert(not SrcInfo.IsIndexed);
+  end;
+
+  if raCreateHistogram in Actions then
+    FillChar(Table, SizeOf(Table), 0);
+
+  if raUpdateHistogram in Actions then
+    CreateHistogram(Src, SrcInfo, ChannelMask);
+
+  if raMakeColorMap in Actions then
+  begin
+    MakeColorMap;
+    FillOutputPalette;
+  end;
+
+  if raMapImage in Actions then
+    MapImage(Src, Dst, SrcInfo, DstInfo);
+end;
+
+procedure StretchNearest(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt);
+var
+  Info: TImageFormatInfo;
+  ScaleX, ScaleY, X, Y, Xp, Yp: LongInt;
+  DstPixel, SrcLine: PByte;
+begin
+  GetImageFormatInfo(SrcImage.Format, Info);
+  Assert(SrcImage.Format = DstImage.Format);
+  Assert(not Info.IsSpecial);
+  // Use integers instead of floats for source image pixel coords
+  // Xp and Yp coords must be shifted right to get read source image coords
+  ScaleX := (SrcWidth shl 16) div DstWidth;
+  ScaleY := (SrcHeight shl 16) div DstHeight;
+  Yp := 0;
+  for Y := 0 to DstHeight - 1 do
+  begin
+    Xp := 0;
+    SrcLine := @PByteArray(SrcImage.Bits)[((SrcY + Yp shr 16) * SrcImage.Width + SrcX) * Info.BytesPerPixel];
+    DstPixel := @PByteArray(DstImage.Bits)[((DstY + Y) * DstImage.Width + DstX) * Info.BytesPerPixel];
+    for X := 0 to DstWidth - 1 do
+    begin
+      case Info.BytesPerPixel of
+        1: PByte(DstPixel)^ := PByteArray(SrcLine)[Xp shr 16];
+        2: PWord(DstPixel)^ := PWordArray(SrcLine)[Xp shr 16];
+        3: PColor24Rec(DstPixel)^ := PPalette24(SrcLine)[Xp shr 16];
+        4: PColor32(DstPixel)^ := PLongWordArray(SrcLine)[Xp shr 16];
+        6: PColor48Rec(DstPixel)^ := PColor48RecArray(SrcLine)[Xp shr 16];
+        8: PColor64(DstPixel)^ := PInt64Array(SrcLine)[Xp shr 16];
+        16: PColorFPRec(DstPixel)^ := PColorFPRecArray(SrcLine)[Xp shr 16];
+      end;
+      Inc(DstPixel, Info.BytesPerPixel);
+      Inc(Xp, ScaleX);
+    end;
+    Inc(Yp, ScaleY);
+  end;
+end;
+
+{ Filter function for nearest filtering. Also known as box filter.}
+function FilterNearest(Value: Single): Single;
+begin
+  if (Value > -0.5) and (Value <= 0.5) then
+    Result := 1
+  else
+    Result := 0;
+end;
+
+{ Filter function for linear filtering. Also known as triangle or Bartlett filter.}
+function FilterLinear(Value: Single): Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 1.0 then
+    Result := 1.0 - Value
+  else
+    Result := 0.0;
+end;
+
+{ Cosine filter.}
+function FilterCosine(Value: Single): Single;
+begin
+  Result := 0;
+  if Abs(Value) < 1 then
+    Result := (Cos(Value * Pi) + 1) / 2;
+end;
+
+{ f(t) = 2|t|^3 - 3|t|^2 + 1, -1 <= t <= 1 }
+function FilterHermite(Value: Single): Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 1 then
+    Result := (2 * Value - 3) * Sqr(Value) + 1
+  else
+    Result := 0;
+end;
+
+{ Quadratic filter. Also known as Bell.}
+function FilterQuadratic(Value: Single): Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 0.5 then
+    Result := 0.75 - Sqr(Value)
+  else
+  if Value < 1.5 then
+  begin
+    Value := Value - 1.5;
+    Result := 0.5 * Sqr(Value);
+  end
+  else
+    Result := 0.0;
+end;
+
+{ Gaussian filter.}
+function FilterGaussian(Value: Single): Single;
+begin
+  Result := Exp(-2.0 * Sqr(Value)) * Sqrt(2.0 / Pi);
+end;
+
+{ 4th order (cubic) b-spline filter.}
+function FilterSpline(Value: Single): Single;
+var
+  Temp: Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 1.0 then
+  begin
+    Temp := Sqr(Value);
+    Result := 0.5 * Temp * Value - Temp + 2.0 / 3.0;
+  end
+  else
+  if Value < 2.0 then
+  begin
+    Value := 2.0 - Value;
+    Result := Sqr(Value) * Value / 6.0;
+  end
+  else
+    Result := 0.0;
+end;
+
+{ Lanczos-windowed sinc filter.}
+function FilterLanczos(Value: Single): Single;
+
+  function SinC(Value: Single): Single;
+  begin
+    if Value <> 0.0 then
+    begin
+      Value := Value * Pi;
+      Result := Sin(Value) / Value;
+    end
+    else
+      Result := 1.0;
+  end;
+
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 3.0 then
+    Result := SinC(Value) * SinC(Value / 3.0)
+  else
+    Result := 0.0;
+end;
+
+{ Micthell cubic filter.}
+function FilterMitchell(Value: Single): Single;
+const
+  B = 1.0 / 3.0;
+  C = 1.0 / 3.0;
+var
+  Temp: Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  Temp := Sqr(Value);
+  if Value < 1.0 then
+  begin
+    Value := (((12.0 - 9.0 * B - 6.0 * C) * (Value * Temp)) +
+      ((-18.0 + 12.0 * B + 6.0 * C) * Temp) +
+      (6.0 - 2.0 * B));
+    Result := Value / 6.0;
+  end
+  else
+  if Value < 2.0 then
+  begin
+    Value := (((-B - 6.0 * C) * (Value * Temp)) +
+      ((6.0 * B + 30.0 * C) * Temp) +
+      ((-12.0 * B - 48.0 * C) * Value) +
+      (8.0 * B + 24.0 * C));
+    Result := Value / 6.0;
+  end
+  else
+    Result := 0.0;
+end;
+
+{ CatmullRom spline filter.}
+function FilterCatmullRom(Value: Single): Single;
+begin
+  if Value < 0.0 then
+    Value := -Value;
+  if Value < 1.0 then
+    Result := 0.5 * (2.0 + Sqr(Value) * (-5.0 + 3.0 * Value))
+  else
+  if Value < 2.0 then
+    Result := 0.5 * (4.0 + Value * (-8.0 + Value * (5.0 - Value)))
+  else
+    Result := 0.0;
+end;
+
+procedure StretchResample(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TSamplingFilter; WrapEdges: Boolean);
+begin
+  // Calls the other function with filter function and radius defined by Filter
+  StretchResample(SrcImage, SrcX, SrcY, SrcWidth, SrcHeight, DstImage, DstX, DstY,
+    DstWidth, DstHeight, SamplingFilterFunctions[Filter], SamplingFilterRadii[Filter],
+    WrapEdges);
+end;
+
+var
+  FullEdge: Boolean = True;
+
+{ The following resampling code is modified and extended code from Graphics32
+  library by Alex A. Denisov.}
+function BuildMappingTable(DstLow, DstHigh, SrcLow, SrcHigh, SrcImageWidth: LongInt;
+  Filter: TFilterFunction; Radius: Single; WrapEdges: Boolean): TMappingTable;
+var
+  I, J, K, N: LongInt;
+  Left, Right, SrcWidth, DstWidth: LongInt;
+  Weight, Scale, Center, Count: Single;
+begin
+  Result := nil;
+  K := 0;
+  SrcWidth := SrcHigh - SrcLow;
+  DstWidth := DstHigh - DstLow;
+
+  // Check some special cases
+  if SrcWidth = 1 then
+  begin
+    SetLength(Result, DstWidth);
+    for I := 0 to DstWidth - 1 do
+    begin
+      SetLength(Result[I], 1);
+      Result[I][0].Pos := 0;
+      Result[I][0].Weight := 1.0;
+    end;
+    Exit;
+  end
+  else
+  if (SrcWidth = 0) or (DstWidth = 0) then
+    Exit;
+
+  if FullEdge then
+    Scale := DstWidth / SrcWidth
+  else
+    Scale := (DstWidth - 1) / (SrcWidth - 1);
+
+  SetLength(Result, DstWidth);
+
+  // Pre-calculate filter contributions for a row or column
+  if Scale = 0.0 then
+  begin
+    Assert(Length(Result) = 1);
+    SetLength(Result[0], 1);
+    Result[0][0].Pos := (SrcLow + SrcHigh) div 2;
+    Result[0][0].Weight := 1.0;
+  end
+  else if Scale < 1.0 then
+  begin
+    // Sub-sampling - scales from bigger to smaller
+    Radius := Radius / Scale;
+    for I := 0 to DstWidth - 1 do
+    begin
+      if FullEdge then
+        Center := SrcLow - 0.5 + (I + 0.5) / Scale
+      else
+        Center := SrcLow + I / Scale;
+      Left := Floor(Center - Radius);
+      Right := Ceil(Center + Radius);
+      Count := -1.0;
+      for J := Left to Right do
+      begin
+        Weight := Filter((Center - J) * Scale) * Scale;
+        if Weight <> 0.0 then
+        begin
+          Count := Count + Weight;
+          K := Length(Result[I]);
+          SetLength(Result[I], K + 1);
+          Result[I][K].Pos := ClampInt(J, SrcLow, SrcHigh - 1);
+          Result[I][K].Weight := Weight;
+        end;
+      end;
+      if Length(Result[I]) = 0 then
+      begin
+        SetLength(Result[I], 1);
+        Result[I][0].Pos := Floor(Center);
+        Result[I][0].Weight := 1.0;
+      end
+      else if Count <> 0.0 then
+        Result[I][K div 2].Weight := Result[I][K div 2].Weight - Count;
+    end;
+  end
+  else // if Scale > 1.0 then
+  begin
+    // Super-sampling - scales from smaller to bigger
+    Scale := 1.0 / Scale;
+    for I := 0 to DstWidth - 1 do
+    begin
+      if FullEdge then
+        Center := SrcLow - 0.5 + (I + 0.5) * Scale
+      else
+        Center := SrcLow + I * Scale;
+      Left := Floor(Center - Radius);
+      Right := Ceil(Center + Radius);
+      Count := -1.0;
+      for J := Left to Right do
+      begin
+        Weight := Filter(Center - J);
+        if Weight <> 0.0 then
+        begin
+          Count := Count + Weight;
+          K := Length(Result[I]);
+          SetLength(Result[I], K + 1);
+
+          if WrapEdges then
+          begin
+            if J < 0 then
+              N := SrcImageWidth + J
+            else if J >= SrcImageWidth then
+              N := J - SrcImageWidth
+            else
+              N := ClampInt(J, SrcLow, SrcHigh - 1);
+          end
+          else
+            N := ClampInt(J, SrcLow, SrcHigh - 1);
+
+          Result[I][K].Pos := N;
+          Result[I][K].Weight := Weight;
+        end;
+      end;
+      if Count <> 0.0 then
+        Result[I][K div 2].Weight := Result[I][K div 2].Weight - Count;
+    end;
+  end;
+end;
+
+procedure FindExtremes(const Map: TMappingTable; var MinPos, MaxPos: LongInt);
+var
+  I, J: LongInt;
+begin
+  if Length(Map) > 0 then
+  begin
+    MinPos := Map[0][0].Pos;
+    MaxPos := MinPos;
+    for I := 0 to Length(Map) - 1 do
+      for J := 0 to Length(Map[I]) - 1 do
+      begin
+        if MinPos > Map[I][J].Pos then
+          MinPos := Map[I][J].Pos;
+        if MaxPos < Map[I][J].Pos then
+          MaxPos := Map[I][J].Pos;
+      end;
+  end;
+end;
+
+procedure StretchResample(const SrcImage: TImageData; SrcX, SrcY, SrcWidth,
+  SrcHeight: LongInt; var DstImage: TImageData; DstX, DstY, DstWidth,
+  DstHeight: LongInt; Filter: TFilterFunction; Radius: Single; WrapEdges: Boolean);
+const
+  Channel8BitMax: Single = 255.0;
+var
+  MapX, MapY: TMappingTable;
+  I, J, X, Y: LongInt;
+  XMinimum, XMaximum: LongInt;
+  LineBufferFP: array of TColorFPRec;
+  ClusterX, ClusterY: TCluster;
+  Weight, AccumA, AccumR, AccumG, AccumB: Single;
+  DstLine: PByte;
+  SrcFloat: TColorFPRec;
+  Info: TImageFormatInfo;
+  BytesPerChannel: LongInt;
+begin
+  GetImageFormatInfo(SrcImage.Format, Info);
+  Assert(SrcImage.Format = DstImage.Format);
+  Assert(not Info.IsSpecial and not Info.IsIndexed);
+  BytesPerChannel := Info.BytesPerPixel div Info.ChannelCount;
+
+  // Create horizontal and vertical mapping tables
+  MapX := BuildMappingTable(DstX, DstX + DstWidth, SrcX, SrcX + SrcWidth,
+    SrcImage.Width, Filter, Radius, WrapEdges);
+  MapY := BuildMappingTable(DstY, DstY + DstHeight, SrcY, SrcY + SrcHeight,
+    SrcImage.Height, Filter, Radius, WrapEdges);
+
+  if (MapX = nil) or (MapY = nil) then
+    Exit;
+
+  ClusterX := nil;
+  ClusterY := nil;
+
+  try
+    // Find min and max X coords of pixels that will contribute to target image
+    FindExtremes(MapX, XMinimum, XMaximum);
+
+    SetLength(LineBufferFP, XMaximum - XMinimum + 1);
+    // Following code works for the rest of data formats
+    for J := 0 to DstHeight - 1 do
+    begin
+      // First for each pixel in the current line sample vertically
+      // and store results in LineBuffer. Then sample horizontally
+      // using values in LineBuffer.
+      ClusterY := MapY[J];
+      for X := XMinimum to XMaximum do
+      begin
+        // Clear accumulators
+        AccumA := 0;
+        AccumR := 0;
+        AccumG := 0;
+        AccumB := 0;
+        // For each pixel in line compute weighted sum of pixels
+        // in source column that will contribute to this pixel
+        for Y := 0 to Length(ClusterY) - 1 do
+        begin
+          // Accumulate this pixel's weighted value
+          Weight := ClusterY[Y].Weight;
+          SrcFloat := Info.GetPixelFP(@PByteArray(SrcImage.Bits)[(ClusterY[Y].Pos * SrcImage.Width + X) * Info.BytesPerPixel], @Info, nil);
+          AccumB := AccumB + SrcFloat.B * Weight;
+          AccumG := AccumG + SrcFloat.G * Weight;
+          AccumR := AccumR + SrcFloat.R * Weight;
+          AccumA := AccumA + SrcFloat.A * Weight;
+        end;
+        // Store accumulated value for this pixel in buffer
+        with LineBufferFP[X - XMinimum] do
+        begin
+          A := AccumA;
+          R := AccumR;
+          G := AccumG;
+          B := AccumB;
+        end;
+      end;
+
+      DstLine := @PByteArray(DstImage.Bits)[((J + DstY) * DstImage.Width + DstX) * Info.BytesPerPixel];
+      // Now compute final colors for targte pixels in the current row
+      // by sampling horizontally
+      for I := 0 to DstWidth - 1 do
+      begin
+        ClusterX := MapX[I];
+        // Clear accumulator
+        AccumA := 0;
+        AccumR := 0;
+        AccumG := 0;
+        AccumB := 0;
+        // Compute weighted sum of values (which are already
+        // computed weighted sums of pixels in source columns stored in LineBuffer)
+        // that will contribute to the current target pixel
+        for X := 0 to Length(ClusterX) - 1 do
+        begin
+          Weight := ClusterX[X].Weight;
+          with LineBufferFP[ClusterX[X].Pos - XMinimum] do
+          begin
+            AccumB := AccumB + B * Weight;
+            AccumG := AccumG + G * Weight;
+            AccumR := AccumR + R * Weight;
+            AccumA := AccumA + A * Weight;
+          end;
+        end;
+
+        // Now compute final color to be written to dest image
+        SrcFloat.A := AccumA;
+        SrcFloat.R := AccumR;
+        SrcFloat.G := AccumG;
+        SrcFloat.B := AccumB;
+
+        Info.SetPixelFP(DstLine, @Info, nil, SrcFloat);
+        Inc(DstLine, Info.BytesPerPixel);
+      end;
+    end;
+
+  finally
+    MapX := nil;
+    MapY := nil;
+  end;
+end;
+
+procedure FillMipMapLevel(const BiggerLevel: TImageData; Width, Height: LongInt;
+  var SmallerLevel: TImageData);
+var
+  Filter: TSamplingFilter;
+  Info: TImageFormatInfo;
+  CompatibleCopy: TImageData;
+begin
+  Assert(TestImage(BiggerLevel));
+  Filter := TSamplingFilter(GetOption(ImagingMipMapFilter));
+
+  // If we have special format image we must create copy to allow pixel access
+  GetImageFormatInfo(BiggerLevel.Format, Info);
+  if Info.IsSpecial then
+  begin
+    InitImage(CompatibleCopy);
+    CloneImage(BiggerLevel, CompatibleCopy);
+    ConvertImage(CompatibleCopy, ifDefault);
+  end
+  else
+    CompatibleCopy := BiggerLevel;
+
+  // Create new smaller image
+  NewImage(Width, Height, CompatibleCopy.Format, SmallerLevel);
+  GetImageFormatInfo(CompatibleCopy.Format, Info);
+  // If input is indexed we must copy its palette
+  if Info.IsIndexed then
+    CopyPalette(CompatibleCopy.Palette, SmallerLevel.Palette, 0, 0, Info.PaletteEntries);
+
+  if (Filter = sfNearest) or Info.IsIndexed then
+  begin
+    StretchNearest(CompatibleCopy, 0, 0, CompatibleCopy.Width, CompatibleCopy.Height,
+      SmallerLevel, 0, 0, Width, Height);
+  end
+  else
+  begin
+    StretchResample(CompatibleCopy, 0, 0, CompatibleCopy.Width, CompatibleCopy.Height,
+      SmallerLevel, 0, 0, Width, Height, Filter);
+  end;
+
+  // Free copy and convert result to special format if necessary
+  if CompatibleCopy.Format <> BiggerLevel.Format then
+  begin
+    ConvertImage(SmallerLevel, BiggerLevel.Format);
+    FreeImage(CompatibleCopy);
+  end;
+end;
+
+
+{ Various format support functions }
+
+procedure CopyPixel(Src, Dest: Pointer; BytesPerPixel: LongInt);
+begin
+  case BytesPerPixel of
+    1: PByte(Dest)^ := PByte(Src)^;
+    2: PWord(Dest)^ := PWord(Src)^;
+    3: PColor24Rec(Dest)^ := PColor24Rec(Src)^;
+    4: PLongWord(Dest)^ := PLongWord(Src)^;
+    6: PColor48Rec(Dest)^ := PColor48Rec(Src)^;
+    8: PInt64(Dest)^ := PInt64(Src)^;
+    12: PColor96FPRec(Dest)^ := PColor96FPRec(Src)^;
+    16: PColorFPRec(Dest)^ := PColorFPRec(Src)^;
+  end;
+end;
+
+function ComparePixels(PixelA, PixelB: Pointer; BytesPerPixel: LongInt): Boolean;
+begin
+  case BytesPerPixel of
+    1: Result := PByte(PixelA)^ = PByte(PixelB)^;
+    2: Result := PWord(PixelA)^ = PWord(PixelB)^;
+    3: Result := (PWord(PixelA)^ = PWord(PixelB)^) and (PColor24Rec(PixelA).R = PColor24Rec(PixelB).R);
+    4: Result := PLongWord(PixelA)^ = PLongWord(PixelB)^;
+    6: Result := (PLongWord(PixelA)^ = PLongWord(PixelB)^) and (PColor48Rec(PixelA).R = PColor48Rec(PixelB).R);
+    8: Result := PInt64(PixelA)^ = PInt64(PixelB)^;
+    12: Result := (PFloatHelper(PixelA).Data = PFloatHelper(PixelB).Data) and
+          (PFloatHelper(PixelA).Data32 = PFloatHelper(PixelB).Data32);
+    16: Result := (PFloatHelper(PixelA).Data = PFloatHelper(PixelB).Data) and
+          (PFloatHelper(PixelA).Data64 = PFloatHelper(PixelB).Data64);
+  else
+    Result := False;
+  end;
+end;
+
+procedure TranslatePixel(SrcPixel, DstPixel: Pointer; SrcFormat,
+  DstFormat: TImageFormat; SrcPalette, DstPalette: PPalette32);
+var
+  SrcInfo, DstInfo: PImageFormatInfo;
+  PixFP: TColorFPRec;
+begin
+  SrcInfo := FInfos[SrcFormat];
+  DstInfo := FInfos[DstFormat];
+
+  PixFP := GetPixelFPGeneric(SrcPixel, SrcInfo, SrcPalette);
+  SetPixelFPGeneric(DstPixel, DstInfo, DstPalette, PixFP);
+end;
+
+procedure ClampFloatPixel(var PixF: TColorFPRec);
+begin
+  if PixF.A > 1.0 then
+    PixF.A := 1.0;
+  if PixF.R > 1.0 then
+    PixF.R := 1.0;
+  if PixF.G > 1.0 then
+    PixF.G := 1.0;
+  if PixF.B > 1.0 then
+    PixF.B := 1.0;
+
+  if PixF.A < 0.0 then
+    PixF.A := 0.0;
+  if PixF.R < 0.0 then
+    PixF.R := 0.0;
+  if PixF.G < 0.0 then
+    PixF.G := 0.0;
+  if PixF.B < 0.0 then
+    PixF.B := 0.0;
+end;
+
+procedure ConvertToPixel32(SrcPix: PByte; DestPix: PColor32Rec;
+  const SrcInfo: TImageFormatInfo; SrcPalette: PPalette32);
+begin
+  case SrcInfo.Format of
+    ifIndex8:
+      begin
+        DestPix^ := SrcPalette[SrcPix^];
+      end;
+    ifGray8:
+      begin
+        DestPix.R := SrcPix^;
+        DestPix.G := SrcPix^;
+        DestPix.B := SrcPix^;
+        DestPix.A := 255;
+      end;
+    ifA8Gray8:
+      begin
+        DestPix.R := SrcPix^;
+        DestPix.G := SrcPix^;
+        DestPix.B := SrcPix^;
+        DestPix.A := PWordRec(SrcPix).High;
+      end;
+    ifGray16:
+      begin
+        DestPix.R := PWord(SrcPix)^ shr 8;
+        DestPix.G := DestPix.R;
+        DestPix.B := DestPix.R;
+        DestPix.A := 255;
+      end;
+    ifR8G8B8:
+      begin
+        DestPix.Color24Rec := PColor24Rec(SrcPix)^;
+        DestPix.A := 255;
+      end;
+    ifA8R8G8B8:
+      begin
+        DestPix^ := PColor32Rec(SrcPix)^;
+      end;
+    ifR16G16B16:
+      begin
+        DestPix.R := PColor48Rec(SrcPix).R shr 8;
+        DestPix.G := PColor48Rec(SrcPix).G shr 8;
+        DestPix.B := PColor48Rec(SrcPix).B shr 8;
+        DestPix.A := 255;
+      end;
+    ifA16R16G16B16:
+      begin
+        DestPix.R := PColor64Rec(SrcPix).R shr 8;
+        DestPix.G := PColor64Rec(SrcPix).G shr 8;
+        DestPix.B := PColor64Rec(SrcPix).B shr 8;
+        DestPix.A := PColor64Rec(SrcPix).A shr 8;
+      end;
+  else
+    DestPix^ := SrcInfo.GetPixel32(SrcPix, @SrcInfo, SrcPalette);
+  end;
+end;
+
+procedure AddPadBytes(DataIn: Pointer; DataOut: Pointer; Width, Height,
+  Bpp, WidthBytes: LongInt);
+var
+  I, W: LongInt;
+begin
+  W := Width * Bpp;
+  for I := 0 to Height - 1 do
+    Move(PByteArray(DataIn)[I * W], PByteArray(DataOut)[I * WidthBytes], W);
+end;
+
+procedure RemovePadBytes(DataIn: Pointer; DataOut: Pointer; Width, Height,
+  Bpp, WidthBytes: LongInt);
+var
+  I, W: LongInt;
+begin
+  W := Width * Bpp;
+  for I := 0 to Height - 1 do
+    Move(PByteArray(DataIn)[I * WidthBytes], PByteArray(DataOut)[I * W], W);
+end;
+
+procedure Convert1To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+const
+  Mask1: array[0..7] of Byte = ($80, $40, $20, $10, $08, $04, $02, $01);
+  Shift1: array[0..7] of Byte = (7, 6, 5, 4, 3, 2, 1, 0);
+  Scaling: Byte = 255;
+var
+  X, Y: LongInt;
+  InArray: PByteArray absolute DataIn;
+begin
+  for Y := 0 to Height - 1 do
+    for X := 0 to Width - 1 do
+    begin
+      DataOut^ := (InArray[Y * WidthBytes + X shr 3] and Mask1[X and 7]) shr Shift1[X and 7];
+      if ScaleTo8Bits then
+        DataOut^ := DataOut^ * Scaling;
+      Inc(DataOut);
+    end;
+end;
+
+procedure Convert2To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+const
+  Mask2: array[0..3] of Byte = ($C0, $30, $0C, $03);
+  Shift2: array[0..3] of Byte = (6, 4, 2, 0);
+  Scaling: Byte = 85;
+var
+  X, Y: LongInt;
+  InArray: PByteArray absolute DataIn;
+begin
+  for Y := 0 to Height - 1 do
+    for X := 0 to Width - 1 do
+    begin
+      DataOut^ := (InArray[Y * WidthBytes + X shr 2] and Mask2[X and 3]) shr Shift2[X and 3];
+      if ScaleTo8Bits then
+        DataOut^ := DataOut^ * Scaling;
+      Inc(DataOut);
+    end;
+end;
+
+procedure Convert4To8(DataIn, DataOut: PByte; Width, Height,
+  WidthBytes: LongInt; ScaleTo8Bits: Boolean);
+const
+  Mask4: array[0..1] of Byte = ($F0, $0F);
+  Shift4: array[0..1] of Byte = (4, 0);
+  Scaling: Byte = 17;
+var
+  X, Y: LongInt;
+  InArray: PByteArray absolute DataIn;
+begin
+  for Y := 0 to Height - 1 do
+    for X := 0 to Width - 1 do
+    begin
+      DataOut^ := (InArray[Y * WidthBytes + X shr 1] and  Mask4[X and 1]) shr Shift4[X and 1];
+      if ScaleTo8Bits then
+        DataOut^ := DataOut^ * Scaling;
+      Inc(DataOut);
+    end;
+end;
+
+function Has16BitImageAlpha(NumPixels: LongInt; Data: PWord): Boolean;
+var
+  I: LongInt;
+begin
+  Result := False;
+  for I := 0 to NumPixels - 1 do
+  begin
+    if Data^ >= 1 shl 15 then
+    begin
+      Result := True;
+      Exit;
+    end;
+    Inc(Data);
+  end;
+end;
+
+function Has32BitImageAlpha(NumPixels: LongInt; Data: PLongWord): Boolean;
+var
+  I: LongInt;
+begin
+  Result := False;
+  for I := 0 to NumPixels - 1 do
+  begin
+    if Data^ >= 1 shl 24 then
+    begin
+      Result := True;
+      Exit;
+    end;
+    Inc(Data);
+  end;
+end;
+
+function PaletteHasAlpha(Palette: PPalette32; PaletteEntries: Integer): Boolean;
+var
+  I: Integer;
+begin
+  for I := 0 to PaletteEntries - 1 do
+  begin
+    if Palette[I].A <> 255 then
+    begin
+      Result := True;
+      Exit;
+    end;
+  end;
+  Result := False;
+end;
+
+function GetScanLine(ImageBits: Pointer; const FormatInfo: TImageFormatInfo;
+  LineWidth, Index: LongInt): Pointer;
+var
+  LineBytes: LongInt;
+begin
+  Assert(not FormatInfo.IsSpecial);
+  LineBytes := FormatInfo.GetPixelsSize(FormatInfo.Format, LineWidth, 1);
+  Result := @PByteArray(ImageBits)[Index * LineBytes];
+end;
+
+function IsImageFormatValid(Format: TImageFormat): Boolean;
+begin
+  Result := FInfos[Format] <> nil;
+end;
+
+const
+  HalfMin:     Single = 5.96046448e-08; // Smallest positive half
+  HalfMinNorm: Single = 6.10351562e-05; // Smallest positive normalized half
+  HalfMax:     Single = 65504.0;        // Largest positive half
+  HalfEpsilon: Single = 0.00097656;     // Smallest positive e for which half (1.0 + e) != half (1.0)
+  HalfNaN:     THalfFloat = 65535;
+  HalfPosInf:  THalfFloat = 31744;
+  HalfNegInf:  THalfFloat = 64512;
+
+
+{
+  Half/Float conversions inspired by half class from OpenEXR library.
+
+  Float (Pascal Single type) is an IEEE 754 single-precision
+  floating point number.
+
+  Bit layout of Single:
+
+    31 (msb)
+    |
+    | 30     23
+    | |      |
+    | |      | 22                    0 (lsb)
+    | |      | |                     |
+    X XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXX
+    s e        m
+
+  Bit layout of half:
+
+    15 (msb)
+    |
+    | 14  10
+    | |   |
+    | |   | 9        0 (lsb)
+    | |   | |        |
+    X XXXXX XXXXXXXXXX
+    s e     m
+
+  S is the sign-bit, e is the exponent and m is the significand (mantissa).
+}
+
+function HalfToFloat(Half: THalfFloat): Single;
+var
+  Dst, Sign, Mantissa: LongWord;
+  Exp: LongInt;
+begin
+  // Extract sign, exponent, and mantissa from half number
+  Sign := Half shr 15;
+  Exp := (Half and $7C00) shr 10;
+  Mantissa := Half and 1023;
+
+  if (Exp > 0) and (Exp < 31) then
+  begin
+    // Common normalized number
+    Exp := Exp + (127 - 15);
+    Mantissa := Mantissa shl 13;
+    Dst := (Sign shl 31) or (LongWord(Exp) shl 23) or Mantissa;
+    // Result := Power(-1, Sign) * Power(2, Exp - 15) * (1 + Mantissa / 1024);
+  end
+  else if (Exp = 0) and (Mantissa = 0) then
+  begin
+    // Zero - preserve sign
+    Dst := Sign shl 31;
+  end
+  else if (Exp = 0) and (Mantissa <> 0) then
+  begin
+    // Denormalized number - renormalize it
+    while (Mantissa and $00000400) = 0 do
+    begin
+      Mantissa := Mantissa shl 1;
+      Dec(Exp);
+    end;
+    Inc(Exp);
+    Mantissa := Mantissa and not $00000400;
+    // Now assemble normalized number
+    Exp := Exp + (127 - 15);
+    Mantissa := Mantissa shl 13;
+    Dst := (Sign shl 31) or (LongWord(Exp) shl 23) or Mantissa;
+    // Result := Power(-1, Sign) * Power(2, -14) * (Mantissa / 1024);
+  end
+  else if (Exp = 31) and (Mantissa = 0) then
+  begin
+    // +/- infinity
+    Dst := (Sign shl 31) or $7F800000;
+  end
+  else //if (Exp = 31) and (Mantisa <> 0) then
+  begin
+    // Not a number - preserve sign and mantissa
+    Dst := (Sign shl 31) or $7F800000 or (Mantissa shl 13);
+  end;
+
+  // Reinterpret LongWord as Single
+  Result := PSingle(@Dst)^;
+end;
+
+function FloatToHalf(Float: Single): THalfFloat;
+var
+  Src: LongWord;
+  Sign, Exp, Mantissa: LongInt;
+begin
+  Src := PLongWord(@Float)^;
+  // Extract sign, exponent, and mantissa from Single number
+  Sign := Src shr 31;
+  Exp := LongInt((Src and $7F800000) shr 23) - 127 + 15;
+  Mantissa := Src and $007FFFFF;
+
+  if (Exp > 0) and (Exp < 30) then
+  begin
+    // Simple case - round the significand and combine it with the sign and exponent
+    Result := (Sign shl 15) or (Exp shl 10) or ((Mantissa + $00001000) shr 13);
+  end
+  else if Src = 0 then
+  begin
+    // Input float is zero - return zero
+    Result := 0;
+  end
+  else
+  begin
+    // Difficult case - lengthy conversion
+    if Exp <= 0 then
+    begin
+      if Exp < -10 then
+      begin
+        // Input float's value is less than HalfMin, return zero
+        Result := 0;
+      end
+      else
+      begin
+        // Float is a normalized Single whose magnitude is less than HalfNormMin.
+        // We convert it to denormalized half.
+        Mantissa := (Mantissa or $00800000) shr (1 - Exp);
+        // Round to nearest
+        if (Mantissa and $00001000) > 0 then
+          Mantissa := Mantissa + $00002000;
+        // Assemble Sign and Mantissa (Exp is zero to get denormalized number)
+        Result := (Sign shl 15) or (Mantissa shr 13);
+      end;
+    end
+    else if Exp = 255 - 127 + 15 then
+    begin
+      if Mantissa = 0 then
+      begin
+        // Input float is infinity, create infinity half with original sign
+        Result := (Sign shl 15) or $7C00;
+      end
+      else
+      begin
+        // Input float is NaN, create half NaN with original sign and mantissa
+        Result := (Sign shl 15) or $7C00 or (Mantissa shr 13);
+      end;
+    end
+    else
+    begin
+      // Exp is > 0 so input float is normalized Single
+
+      // Round to nearest
+      if (Mantissa and $00001000) > 0 then
+      begin
+        Mantissa := Mantissa + $00002000;
+        if (Mantissa and $00800000) > 0 then
+        begin
+          Mantissa := 0;
+          Exp := Exp + 1;
+        end;
+      end;
+
+      if Exp > 30 then
+      begin
+        // Exponent overflow - return infinity half
+        Result := (Sign shl 15) or $7C00;
+      end
+      else
+        // Assemble normalized half
+        Result := (Sign shl 15) or (Exp shl 10) or (Mantissa shr 13);
+    end;
+  end;
+end;
+
+function ColorHalfToFloat(ColorHF: TColorHFRec): TColorFPRec;
+begin
+  Result.A := HalfToFloat(ColorHF.A);
+  Result.R := HalfToFloat(ColorHF.R);
+  Result.G := HalfToFloat(ColorHF.G);
+  Result.B := HalfToFloat(ColorHF.B);
+end;
+
+function ColorFloatToHalf(ColorFP: TColorFPRec): TColorHFRec;
+begin
+  Result.A := FloatToHalf(ColorFP.A);
+  Result.R := FloatToHalf(ColorFP.R);
+  Result.G := FloatToHalf(ColorFP.G);
+  Result.B := FloatToHalf(ColorFP.B);
+end;
+
+procedure VisualizePalette(Pal: PPalette32; Entries: Integer; out PalImage: TImageData);
+var
+  I: Integer;
+  Pix: PColor32;
+begin
+  InitImage(PalImage);
+  NewImage(Entries, 1, ifA8R8G8B8, PalImage);
+  Pix := PalImage.Bits;
+  for I := 0 to Entries - 1 do
+  begin
+    Pix^ := Pal[I].Color;
+    Inc(Pix);
+  end;
+end;
+
+
+{ Pixel readers/writers for different image formats }
+
+procedure ChannelGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Pix: TColor64Rec);
+var
+  A, R, G, B: Byte;
+begin
+  A := 0;
+  R := 0;
+  G := 0;
+  B := 0;
+  FillChar(Pix, SizeOf(Pix), 0);
+  // returns 64 bit color value with 16 bits for each channel
+  case SrcInfo.BytesPerPixel of
+    1:
+      begin
+        PFGetARGB(SrcInfo.PixelFormat^, Src^, A, R, G, B);
+        Pix.A := A shl 8;
+        Pix.R := R shl 8;
+        Pix.G := G shl 8;
+        Pix.B := B shl 8;
+      end;
+    2:
+      begin
+        PFGetARGB(SrcInfo.PixelFormat^, PWord(Src)^, A, R, G, B);
+        Pix.A := A shl 8;
+        Pix.R := R shl 8;
+        Pix.G := G shl 8;
+        Pix.B := B shl 8;
+      end;
+    3:
+      with Pix do
+      begin
+        R := MulDiv(PColor24Rec(Src).R, 65535, 255);
+        G := MulDiv(PColor24Rec(Src).G, 65535, 255);
+        B := MulDiv(PColor24Rec(Src).B, 65535, 255);
+      end;
+    4:
+      with Pix do
+      begin
+        A := MulDiv(PColor32Rec(Src).A, 65535, 255);
+        R := MulDiv(PColor32Rec(Src).R, 65535, 255);
+        G := MulDiv(PColor32Rec(Src).G, 65535, 255);
+        B := MulDiv(PColor32Rec(Src).B, 65535, 255);
+      end;
+    6:
+      with Pix do
+      begin
+        R := PColor48Rec(Src).R;
+        G := PColor48Rec(Src).G;
+        B := PColor48Rec(Src).B;
+      end;
+    8: Pix.Color := PColor64(Src)^;
+  end;
+  // if src has no alpha, we set it to max (otherwise we would have to
+  // test if dest has alpha or not in each ChannelToXXX function)
+  if not SrcInfo.HasAlphaChannel then
+    Pix.A := 65535;
+
+  if SrcInfo.IsRBSwapped then
+    SwapValues(Pix.R, Pix.B);
+end;
+
+procedure ChannelSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Pix: TColor64Rec);
+var
+  PixW: TColor64Rec;
+begin
+  PixW := Pix;
+  if DstInfo.IsRBSwapped then
+    SwapValues(PixW.R, PixW.B);
+  // Pix contains 64 bit color value with 16 bit for each channel
+  case DstInfo.BytesPerPixel of
+    1: Dst^ := PFSetARGB(DstInfo.PixelFormat^, PixW.A shr 8,
+        PixW.R shr 8, PixW.G shr 8, PixW.B shr 8);
+    2: PWord(Dst)^ := PFSetARGB(DstInfo.PixelFormat^, PixW.A shr 8,
+        PixW.R shr 8, PixW.G shr 8, PixW.B shr 8);
+    3:
+      with PColor24Rec(Dst)^ do
+      begin
+        R := MulDiv(PixW.R, 255, 65535);
+        G := MulDiv(PixW.G, 255, 65535);
+        B := MulDiv(PixW.B, 255, 65535);
+      end;
+    4:
+      with PColor32Rec(Dst)^ do
+      begin
+        A := MulDiv(PixW.A, 255, 65535);
+        R := MulDiv(PixW.R, 255, 65535);
+        G := MulDiv(PixW.G, 255, 65535);
+        B := MulDiv(PixW.B, 255, 65535);
+      end;
+    6:
+      with PColor48Rec(Dst)^ do
+      begin
+        R := PixW.R;
+        G := PixW.G;
+        B := PixW.B;
+      end;
+    8: PColor64(Dst)^ := PixW.Color;
+  end;
+end;
+
+procedure GrayGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Gray: TColor64Rec; var Alpha: Word);
+begin
+  FillChar(Gray, SizeOf(Gray), 0);
+  // Source alpha is scaled to 16 bits and stored in Alpha,
+  // grayscale value is scaled to 64 bits and stored in Gray
+  case SrcInfo.BytesPerPixel of
+    1: Gray.A := MulDiv(Src^, 65535, 255);
+    2:
+      if SrcInfo.HasAlphaChannel then
+        with PWordRec(Src)^ do
+        begin
+          Alpha := MulDiv(High, 65535, 255);
+          Gray.A := MulDiv(Low, 65535, 255);
+        end
+      else
+        Gray.A := PWord(Src)^;
+    4:
+      if SrcInfo.HasAlphaChannel then
+        with PLongWordRec(Src)^ do
+        begin
+          Alpha := High;
+          Gray.A := Low;
+        end
+      else
+        with PLongWordRec(Src)^ do
+        begin
+          Gray.A := High;
+          Gray.R := Low;
+        end;
+    8: Gray.Color := PColor64(Src)^;
+  end;
+  // if src has no alpha, we set it to max (otherwise we would have to
+  // test if dest has alpha or not in each GrayToXXX function)
+  if not SrcInfo.HasAlphaChannel then
+    Alpha := 65535;
+end;
+
+procedure GraySetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Gray: TColor64Rec; Alpha: Word);
+begin
+  // Gray contains grayscale value scaled to 64 bits, Alpha contains
+  // alpha value scaled to 16 bits
+  case DstInfo.BytesPerPixel of
+    1: Dst^ := MulDiv(Gray.A, 255, 65535);
+    2:
+      if DstInfo.HasAlphaChannel then
+        with PWordRec(Dst)^ do
+        begin
+          High := MulDiv(Alpha, 255, 65535);
+          Low := MulDiv(Gray.A, 255, 65535);
+        end
+      else
+        PWord(Dst)^ := Gray.A;
+    4:
+      if DstInfo.HasAlphaChannel then
+        with PLongWordRec(Dst)^ do
+        begin
+          High := Alpha;
+          Low := Gray.A;
+        end
+      else
+        with PLongWordRec(Dst)^ do
+        begin
+          High := Gray.A;
+          Low := Gray.R;
+        end;
+    8: PColor64(Dst)^ := Gray.Color;
+  end;
+end;
+
+procedure FloatGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Pix: TColorFPRec);
+var
+  PixHF: TColorHFRec;
+begin
+  Assert(SrcInfo.BytesPerPixel in [2, 4, 8, 12, 16]);
+
+  if SrcInfo.BytesPerPixel in [4, 12, 16] then
+  begin
+    // IEEE 754 single-precision channels
+    FillChar(Pix, SizeOf(Pix), 0);
+    case SrcInfo.BytesPerPixel of
+      4: Pix.R := PSingle(Src)^;
+      12: Pix.Color96Rec := PColor96FPRec(Src)^;
+      16: Pix := PColorFPRec(Src)^;
+    end;
+  end
+  else
+  begin
+    // Half float channels
+    FillChar(PixHF, SizeOf(PixHF), 0);
+    case SrcInfo.BytesPerPixel of
+      2: PixHF.R := PHalfFloat(Src)^;
+      8: PixHF := PColorHFRec(Src)^;
+    end;
+    Pix := ColorHalfToFloat(PixHF);
+  end;
+
+  // If src has no alpha, we set it to max (otherwise we would have to
+  // test if dest has alpha or not in each FloatToXXX function)
+  if not SrcInfo.HasAlphaChannel then
+    Pix.A := 1.0;
+  if SrcInfo.IsRBSwapped then
+    SwapValues(Pix.R, Pix.B);
+end;
+
+procedure FloatSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  const Pix: TColorFPRec);
+var
+  PixW: TColorFPRec;
+  PixHF: TColorHFRec;
+begin
+  Assert(DstInfo.BytesPerPixel in [2, 4, 8, 12, 16]);
+
+  PixW := Pix;
+  if DstInfo.IsRBSwapped then
+    SwapValues(PixW.R, PixW.B);
+
+  if DstInfo.BytesPerPixel in [4, 12, 16] then
+  begin
+    case DstInfo.BytesPerPixel of
+      4:  PSingle(Dst)^ := PixW.R;
+      12: PColor96FPRec(Dst)^:= PixW.Color96Rec;
+      16: PColorFPRec(Dst)^ := PixW;
+    end;
+  end
+  else
+  begin
+    PixHF := ColorFloatToHalf(PixW);
+    case DstInfo.BytesPerPixel of
+      2: PHalfFloat(Dst)^ := PixHF.R;
+      8: PColorHFRec(Dst)^ := PixHF;
+    end;
+  end;
+end;
+
+procedure IndexGetSrcPixel(Src: PByte; SrcInfo: PImageFormatInfo;
+  var Index: LongWord);
+begin
+  case SrcInfo.BytesPerPixel of
+    1: Index := Src^;
+  end;
+end;
+
+procedure IndexSetDstPixel(Dst: PByte; DstInfo: PImageFormatInfo;
+  Index: LongWord);
+begin
+  case DstInfo.BytesPerPixel of
+    1: Dst^ := Byte(Index);
+    2: PWord(Dst)^ := Word(Index);
+    4: PLongWord(Dst)^ := Index;
+  end;
+end;
+
+
+{ Pixel readers/writers for 32bit and FP colors}
+
+function GetPixel32Generic(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColor32Rec;
+var
+  Pix64: TColor64Rec;
+  PixF: TColorFPRec;
+  Alpha: Word;
+  Index: LongWord;
+begin
+  if Info.Format = ifA8R8G8B8 then
+  begin
+    Result := PColor32Rec(Bits)^
+  end
+  else if Info.Format = ifR8G8B8 then
+  begin
+    PColor24Rec(@Result)^ := PColor24Rec(Bits)^;
+    Result.A := $FF;
+  end
+  else if Info.IsFloatingPoint then
+  begin
+    FloatGetSrcPixel(Bits, Info, PixF);
+    Result.A := ClampToByte(Round(PixF.A * 255.0));
+    Result.R := ClampToByte(Round(PixF.R * 255.0));
+    Result.G := ClampToByte(Round(PixF.G * 255.0));
+    Result.B := ClampToByte(Round(PixF.B * 255.0));
+  end
+  else if Info.HasGrayChannel then
+  begin
+    GrayGetSrcPixel(Bits, Info, Pix64, Alpha);
+    Result.A := MulDiv(Alpha, 255, 65535);
+    Result.R := MulDiv(Pix64.A, 255, 65535);
+    Result.G := MulDiv(Pix64.A, 255, 65535);
+    Result.B := MulDiv(Pix64.A, 255, 65535);
+  end
+  else if Info.IsIndexed then
+  begin
+    IndexGetSrcPixel(Bits, Info, Index);
+    Result := Palette[Index];
+  end
+  else
+  begin
+    ChannelGetSrcPixel(Bits, Info, Pix64);
+    Result.A := MulDiv(Pix64.A, 255, 65535);
+    Result.R := MulDiv(Pix64.R, 255, 65535);
+    Result.G := MulDiv(Pix64.G, 255, 65535);
+    Result.B := MulDiv(Pix64.B, 255, 65535);
+  end;
+end;
+
+procedure SetPixel32Generic(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColor32Rec);
+var
+  Pix64: TColor64Rec;
+  PixF: TColorFPRec;
+  Alpha: Word;
+  Index: LongWord;
+begin
+  if Info.Format = ifA8R8G8B8 then
+  begin
+    PColor32Rec(Bits)^ := Color
+  end
+  else if Info.Format = ifR8G8B8 then
+  begin
+    PColor24Rec(Bits)^ := Color.Color24Rec;
+  end
+  else if Info.IsFloatingPoint then
+  begin
+    PixF.A := Color.A * OneDiv8Bit;
+    PixF.R := Color.R * OneDiv8Bit;
+    PixF.G := Color.G * OneDiv8Bit;
+    PixF.B := Color.B * OneDiv8Bit;
+    FloatSetDstPixel(Bits, Info, PixF);
+  end
+  else if Info.HasGrayChannel then
+  begin
+    Alpha := MulDiv(Color.A, 65535, 255);
+    Pix64.Color := 0;
+    Pix64.A := MulDiv(Round(GrayConv.R * Color.R + GrayConv.G * Color.G +
+      GrayConv.B * Color.B), 65535, 255);
+    GraySetDstPixel(Bits, Info, Pix64, Alpha);
+  end
+  else if Info.IsIndexed then
+  begin
+    Index := FindColor(Palette, Info.PaletteEntries, Color.Color);
+    IndexSetDstPixel(Bits, Info, Index);
+  end
+  else
+  begin
+    Pix64.A := MulDiv(Color.A, 65535, 255);
+    Pix64.R := MulDiv(Color.R, 65535, 255);
+    Pix64.G := MulDiv(Color.G, 65535, 255);
+    Pix64.B := MulDiv(Color.B, 65535, 255);
+    ChannelSetDstPixel(Bits, Info, Pix64);
+  end;
+end;
+
+function GetPixelFPGeneric(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec;
+var
+  Pix32: TColor32Rec;
+  Pix64: TColor64Rec;
+  Alpha: Word;
+  Index: LongWord;
+begin
+  if Info.IsFloatingPoint then
+  begin
+    FloatGetSrcPixel(Bits, Info, Result);
+  end
+  else if Info.HasGrayChannel then
+  begin
+    GrayGetSrcPixel(Bits, Info, Pix64, Alpha);
+    Result.A := Alpha * OneDiv16Bit;
+    Result.R := Pix64.A * OneDiv16Bit;
+    Result.G := Pix64.A * OneDiv16Bit;
+    Result.B := Pix64.A * OneDiv16Bit;
+  end
+  else if Info.IsIndexed then
+  begin
+    IndexGetSrcPixel(Bits, Info, Index);
+    Pix32 := Palette[Index];
+    Result.A := Pix32.A * OneDiv8Bit;
+    Result.R := Pix32.R * OneDiv8Bit;
+    Result.G := Pix32.G * OneDiv8Bit;
+    Result.B := Pix32.B * OneDiv8Bit;
+  end
+  else
+  begin
+    ChannelGetSrcPixel(Bits, Info, Pix64);
+    Result.A := Pix64.A * OneDiv16Bit;
+    Result.R := Pix64.R * OneDiv16Bit;
+    Result.G := Pix64.G * OneDiv16Bit;
+    Result.B := Pix64.B * OneDiv16Bit;
+  end;
+end;
+
+procedure SetPixelFPGeneric(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec);
+var
+  Pix32: TColor32Rec;
+  Pix64: TColor64Rec;
+  Alpha: Word;
+  Index: LongWord;
+begin
+  if Info.IsFloatingPoint then
+  begin
+    FloatSetDstPixel(Bits, Info, Color);
+  end
+  else if Info.HasGrayChannel then
+  begin
+    Alpha := ClampToWord(Round(Color.A * 65535.0));
+    Pix64.Color := 0;
+    Pix64.A := ClampToWord(Round((GrayConv.R * Color.R + GrayConv.G * Color.G +
+      GrayConv.B * Color.B) * 65535.0));
+    GraySetDstPixel(Bits, Info, Pix64, Alpha);
+  end
+  else if Info.IsIndexed then
+  begin
+    Pix32.A := ClampToByte(Round(Color.A * 255.0));
+    Pix32.R := ClampToByte(Round(Color.R * 255.0));
+    Pix32.G := ClampToByte(Round(Color.G * 255.0));
+    Pix32.B := ClampToByte(Round(Color.B * 255.0));
+    Index := FindColor(Palette, Info.PaletteEntries, Pix32.Color);
+    IndexSetDstPixel(Bits, Info, Index);
+  end
+  else
+  begin
+    Pix64.A := ClampToWord(Round(Color.A * 65535.0));
+    Pix64.R := ClampToWord(Round(Color.R * 65535.0));
+    Pix64.G := ClampToWord(Round(Color.G * 65535.0));
+    Pix64.B := ClampToWord(Round(Color.B * 65535.0));
+    ChannelSetDstPixel(Bits, Info, Pix64);
+  end;
+end;
+
+
+{ Image format conversion functions }
+
+procedure ChannelToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+begin
+  // two most common conversions (RGB->ARGB and ARGB->RGB for 24/32 bit
+  // images) are made separately from general ARGB conversion to
+  // make them faster
+  if (SrcInfo.BytesPerPixel = 3) and (DstInfo.BytesPerPixel = 4) then
+  for I := 0 to NumPixels - 1 do
+    begin
+      PColor24Rec(Dst)^ := PColor24Rec(Src)^;
+      if DstInfo.HasAlphaChannel then
+        PColor32Rec(Dst).A := 255;
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+  if (SrcInfo.BytesPerPixel = 4) and (DstInfo.BytesPerPixel = 3) then
+    for I := 0 to NumPixels - 1 do
+    begin
+      PColor24Rec(Dst)^ := PColor24Rec(Src)^;
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      // general ARGB conversion
+      ChannelGetSrcPixel(Src, SrcInfo, Pix64);
+      ChannelSetDstPixel(Dst, DstInfo, Pix64);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure ChannelToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+  Alpha: Word;
+begin
+  // two most common conversions (R8G8B8->Gray8 nad A8R8G8B8->Gray8)
+  // are made separately from general conversions to make them faster
+  if (SrcInfo.BytesPerPixel in [3, 4]) and (DstInfo.Format = ifGray8) then
+    for I := 0 to NumPixels - 1 do
+    begin
+      Dst^ := Round(GrayConv.R * PColor24Rec(Src).R + GrayConv.G * PColor24Rec(Src).G +
+        GrayConv.B * PColor24Rec(Src).B);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      ChannelGetSrcPixel(Src, SrcInfo, Pix64);
+
+      // alpha is saved from source pixel to Alpha,
+      // Gray value is computed and set to highest word of Pix64 so
+      // Pix64.Color contains grayscale value scaled to 64 bits
+      Alpha := Pix64.A;
+      with GrayConv do
+        Pix64.A := Round(R * Pix64.R + G * Pix64.G + B * Pix64.B);
+
+      GraySetDstPixel(Dst, DstInfo, Pix64, Alpha);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure ChannelToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+  PixF: TColorFPRec;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    ChannelGetSrcPixel(Src, SrcInfo, Pix64);
+
+    // floating point channel values are scaled to 1.0
+    PixF.A := Pix64.A * OneDiv16Bit;
+    PixF.R := Pix64.R * OneDiv16Bit;
+    PixF.G := Pix64.G * OneDiv16Bit;
+    PixF.B := Pix64.B * OneDiv16Bit;
+
+    FloatSetDstPixel(Dst, DstInfo, PixF);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+procedure ChannelToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+begin
+  ReduceColorsMedianCut(NumPixels, Src, Dst, SrcInfo, DstInfo, DstInfo.PaletteEntries,
+    GetOption(ImagingColorReductionMask), DstPal);
+end;
+
+procedure GrayToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Gray: TColor64Rec;
+  Alpha: Word;
+begin
+  // two most common conversions (Gray8->Gray16 nad Gray16->Gray8)
+  // are made separately from general conversions to make them faster
+  if (SrcInfo.Format = ifGray8) and (DstInfo.Format = ifGray16) then
+  begin
+    for I := 0 to NumPixels - 1 do
+      PWordArray(Dst)[I] := PByteArray(Src)[I] shl 8;
+  end
+  else
+  begin
+    if (DstInfo.Format = ifGray8) and (SrcInfo.Format = ifGray16) then
+    begin
+      for I := 0 to NumPixels - 1 do
+        PByteArray(Dst)[I] := PWordArray(Src)[I] shr 8;
+    end
+    else
+      for I := 0 to NumPixels - 1 do
+      begin
+        // general grayscale conversion
+        GrayGetSrcPixel(Src, SrcInfo, Gray, Alpha);
+        GraySetDstPixel(Dst, DstInfo, Gray, Alpha);
+        Inc(Src, SrcInfo.BytesPerPixel);
+        Inc(Dst, DstInfo.BytesPerPixel);
+      end;
+  end;
+end;
+
+procedure GrayToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+  Alpha: Word;
+begin
+  // two most common conversions (Gray8->R8G8B8 nad Gray8->A8R8G8B8)
+  // are made separately from general conversions to make them faster
+  if (DstInfo.BytesPerPixel in [3, 4]) and (SrcInfo.Format = ifGray8) then
+    for I := 0 to NumPixels - 1 do
+    begin
+      PColor24Rec(Dst).R := Src^;
+      PColor24Rec(Dst).G := Src^;
+      PColor24Rec(Dst).B := Src^;
+      if DstInfo.HasAlphaChannel then
+        PColor32Rec(Dst).A := $FF;
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      GrayGetSrcPixel(Src, SrcInfo, Pix64, Alpha);
+
+      // most significant word of grayscale value is used for
+      // each channel and alpha channel is set to Alpha
+      Pix64.R := Pix64.A;
+      Pix64.G := Pix64.A;
+      Pix64.B := Pix64.A;
+      Pix64.A := Alpha;
+
+      ChannelSetDstPixel(Dst, DstInfo, Pix64);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure GrayToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Gray: TColor64Rec;
+  PixF: TColorFPRec;
+  Alpha: Word;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    GrayGetSrcPixel(Src, SrcInfo, Gray, Alpha);
+    // most significant word of grayscale value is used for
+    // each channel and alpha channel is set to Alpha
+    // then all is scaled to 0..1
+    PixF.R := Gray.A * OneDiv16Bit;
+    PixF.G := Gray.A * OneDiv16Bit;
+    PixF.B := Gray.A * OneDiv16Bit;
+    PixF.A := Alpha * OneDiv16Bit;
+
+    FloatSetDstPixel(Dst, DstInfo, PixF);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+procedure GrayToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+var
+  I: LongInt;
+  Idx: LongWord;
+  Gray: TColor64Rec;
+  Alpha, Shift: Word;
+begin
+  FillGrayscalePalette(DstPal, DstInfo.PaletteEntries);
+  Shift := Log2Int(DstInfo.PaletteEntries);
+  // most common conversion (Gray8->Index8)
+  // is made separately from general conversions to make it faster
+  if (SrcInfo.Format = ifGray8) and (DstInfo.Format = ifIndex8) then
+    for I := 0 to NumPixels - 1 do
+    begin
+      Dst^ := Src^;
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      // gray value is read from src and index to precomputed
+      // grayscale palette is computed and written to dst
+      // (we assume here that there will be no more than 65536 palette
+      // entries in dst format, gray value is shifted so the highest
+      // gray value match the highest possible index in palette)
+      GrayGetSrcPixel(Src, SrcInfo, Gray, Alpha);
+      Idx := Gray.A shr (16 - Shift);
+      IndexSetDstPixel(Dst, DstInfo, Idx);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure FloatToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  PixF: TColorFPRec;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    // general floating point conversion
+    FloatGetSrcPixel(Src, SrcInfo, PixF);
+    FloatSetDstPixel(Dst, DstInfo, PixF);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+procedure FloatToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+  PixF: TColorFPRec;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    FloatGetSrcPixel(Src, SrcInfo, PixF);
+    ClampFloatPixel(PixF);
+
+    // floating point channel values are scaled to 1.0
+    Pix64.A := ClampToWord(Round(PixF.A * 65535));
+    Pix64.R := ClampToWord(Round(PixF.R * 65535));
+    Pix64.G := ClampToWord(Round(PixF.G * 65535));
+    Pix64.B := ClampToWord(Round(PixF.B * 65535));
+
+    ChannelSetDstPixel(Dst, DstInfo, Pix64);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+procedure FloatToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo);
+var
+  I: LongInt;
+  PixF: TColorFPRec;
+  Gray: TColor64Rec;
+  Alpha: Word;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    FloatGetSrcPixel(Src, SrcInfo, PixF);
+    ClampFloatPixel(PixF);
+
+    // alpha is saved from source pixel to Alpha,
+    // Gray value is computed and set to highest word of Pix64 so
+    // Pix64.Color contains grayscale value scaled to 64 bits
+    Alpha := ClampToWord(Round(PixF.A * 65535.0));
+    Gray.A := ClampToWord(Round((GrayConv.R * PixF.R + GrayConv.G * PixF.G +
+      GrayConv.B * PixF.B) * 65535.0));
+
+    GraySetDstPixel(Dst, DstInfo, Gray, Alpha);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+procedure FloatToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; DstPal: PPalette32);
+begin
+  ReduceColorsMedianCut(NumPixels, Src, Dst, SrcInfo, DstInfo, DstInfo.PaletteEntries,
+    GetOption(ImagingColorReductionMask), DstPal);
+end;
+
+procedure IndexToIndex(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal, DstPal: PPalette32);
+var
+  I: LongInt;
+begin
+  // there is only one indexed format now, so it is just a copy
+  for I := 0 to NumPixels - 1 do
+  begin
+    Dst^ := Src^;
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+  for I := 0 to SrcInfo.PaletteEntries - 1 do
+    DstPal[I] := SrcPal[I];
+end;
+
+procedure IndexToChannel(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+var
+  I: LongInt;
+  Pix64: TColor64Rec;
+  Idx: LongWord;
+begin
+  // two most common conversions (Index8->R8G8B8 nad Index8->A8R8G8B8)
+  // are made separately from general conversions to make them faster
+  if (SrcInfo.Format = ifIndex8) and (DstInfo.Format in [ifR8G8B8, ifA8R8G8B8]) then
+    for I := 0 to NumPixels - 1 do
+    begin
+      with PColor24Rec(Dst)^ do
+      begin
+        R := SrcPal[Src^].R;
+        G := SrcPal[Src^].G;
+        B := SrcPal[Src^].B;
+      end;
+      if DstInfo.Format = ifA8R8G8B8 then
+        PColor32Rec(Dst).A := SrcPal[Src^].A;
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      // index to palette is read from source and color
+      // is retrieved from palette entry. Color is then
+      // scaled to 16bits and written to dest
+      IndexGetSrcPixel(Src, SrcInfo, Idx);
+      with Pix64 do
+      begin
+        A := SrcPal[Idx].A shl 8;
+        R := SrcPal[Idx].R shl 8;
+        G := SrcPal[Idx].G shl 8;
+        B := SrcPal[Idx].B shl 8;
+      end;
+      ChannelSetDstPixel(Dst, DstInfo, Pix64);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure IndexToGray(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+var
+  I: LongInt;
+  Gray: TColor64Rec;
+  Alpha: Word;
+  Idx: LongWord;
+begin
+  // most common conversion (Index8->Gray8)
+  // is made separately from general conversions to make it faster
+  if (SrcInfo.Format = ifIndex8) and (DstInfo.Format = ifGray8) then
+  begin
+    for I := 0 to NumPixels - 1 do
+    begin
+      Dst^ := Round(GrayConv.R * SrcPal[Src^].R + GrayConv.G * SrcPal[Src^].G +
+        GrayConv.B * SrcPal[Src^].B);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end
+  end
+  else
+    for I := 0 to NumPixels - 1 do
+    begin
+      // index to palette is read from source and color
+      // is retrieved from palette entry. Color is then
+      // transformed to grayscale and assigned to the highest
+      // byte of Gray value
+      IndexGetSrcPixel(Src, SrcInfo, Idx);
+      Alpha := SrcPal[Idx].A shl 8;
+      Gray.A := MulDiv(Round(GrayConv.R * SrcPal[Idx].R + GrayConv.G * SrcPal[Idx].G +
+        GrayConv.B * SrcPal[Idx].B), 65535, 255);
+      GraySetDstPixel(Dst, DstInfo, Gray, Alpha);
+      Inc(Src, SrcInfo.BytesPerPixel);
+      Inc(Dst, DstInfo.BytesPerPixel);
+    end;
+end;
+
+procedure IndexToFloat(NumPixels: LongInt; Src, Dst: PByte; SrcInfo,
+  DstInfo: PImageFormatInfo; SrcPal: PPalette32);
+var
+  I: LongInt;
+  Idx: LongWord;
+  PixF: TColorFPRec;
+begin
+  for I := 0 to NumPixels - 1 do
+  begin
+    // index to palette is read from source and color
+    // is retrieved from palette entry. Color is then
+    // scaled to 0..1 and written to dest
+    IndexGetSrcPixel(Src, SrcInfo, Idx);
+    with PixF do
+    begin
+      A := SrcPal[Idx].A * OneDiv8Bit;
+      R := SrcPal[Idx].R * OneDiv8Bit;
+      G := SrcPal[Idx].G * OneDiv8Bit;
+      B := SrcPal[Idx].B * OneDiv8Bit;
+    end;
+    FloatSetDstPixel(Dst, DstInfo, PixF);
+    Inc(Src, SrcInfo.BytesPerPixel);
+    Inc(Dst, DstInfo.BytesPerPixel);
+  end;
+end;
+
+
+{ Special formats conversion functions }
+
+type
+  // DXT RGB color block
+  TDXTColorBlock = packed record
+    Color0, Color1: Word;
+    Mask: LongWord;
+  end;
+  PDXTColorBlock = ^TDXTColorBlock;
+
+  // DXT explicit alpha for a block
+  TDXTAlphaBlockExp = packed record
+    Alphas: array[0..3] of Word;
+  end;
+  PDXTAlphaBlockExp = ^TDXTAlphaBlockExp;
+
+  // DXT interpolated alpha for a block
+  TDXTAlphaBlockInt = packed record
+    Alphas: array[0..7] of Byte;
+  end;
+  PDXTAlphaBlockInt = ^TDXTAlphaBlockInt;
+
+  TPixelInfo = record
+    Color: Word;
+    Alpha: Byte;
+    Orig: TColor32Rec;
+  end;
+
+  TPixelBlock = array[0..15] of TPixelInfo;
+
+function DecodeCol(Color: Word): TColor32Rec;
+{$IFDEF USE_INLINE} inline; {$ENDIF}
+begin
+  Result.A := $FF;
+{  Result.R := ((Color and $F800) shr 11) shl 3;
+  Result.G := ((Color and $07E0) shr 5) shl 2;
+  Result.B := (Color and $001F) shl 3;}
+  // this color expansion is slower but gives better results
+  Result.R := (Color shr 11) * 255 div 31;
+  Result.G := ((Color shr 5) and $3F) * 255 div 63;
+  Result.B := (Color and $1F) * 255 div 31;
+end;
+
+procedure DecodeDXT1(SrcBits, DestBits: PByte; Width, Height: LongInt);
+var
+  Sel, X, Y, I, J, K: LongInt;
+  Block: TDXTColorBlock;
+  Colors: array[0..3] of TColor32Rec;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      Block := PDXTColorBlock(SrcBits)^;
+      Inc(SrcBits, SizeOf(Block));
+      // we read and decode endpoint colors
+      Colors[0] := DecodeCol(Block.Color0);
+      Colors[1] := DecodeCol(Block.Color1);
+      // and interpolate between them
+      if Block.Color0 > Block.Color1 then
+      begin
+        // interpolation for block without alpha
+        Colors[2].A := $FF;
+        Colors[2].R := (Colors[0].R shl 1 + Colors[1].R + 1) div 3;
+        Colors[2].G := (Colors[0].G shl 1 + Colors[1].G + 1) div 3;
+        Colors[2].B := (Colors[0].B shl 1 + Colors[1].B + 1) div 3;
+        Colors[3].A := $FF;
+        Colors[3].R := (Colors[0].R + Colors[1].R shl 1 + 1) div 3;
+        Colors[3].G := (Colors[0].G + Colors[1].G shl 1 + 1) div 3;
+        Colors[3].B := (Colors[0].B + Colors[1].B shl 1 + 1) div 3;
+      end
+      else
+      begin
+        // interpolation for block with alpha
+        Colors[2].A := $FF;
+        Colors[2].R := (Colors[0].R + Colors[1].R) shr 1;
+        Colors[2].G := (Colors[0].G + Colors[1].G) shr 1;
+        Colors[2].B := (Colors[0].B + Colors[1].B) shr 1;
+        Colors[3].A := 0;
+        Colors[3].R := (Colors[0].R + Colors[1].R shl 1 + 1) div 3;
+        Colors[3].G := (Colors[0].G + Colors[1].G shl 1 + 1) div 3;
+        Colors[3].B := (Colors[0].B + Colors[1].B shl 1 + 1) div 3;
+      end;
+
+      // we distribute the dxt block colors across the 4x4 block of the
+      // destination image accroding to the dxt block mask
+      K := 0;
+      for J := 0 to 3 do
+        for I := 0 to 3 do
+        begin
+          Sel := (Block.Mask and (3 shl (K shl 1))) shr (K shl 1);
+          if ((X shl 2 + I) < Width) and ((Y shl 2 + J) < Height) then
+            PPalette32(DestBits)[(Y shl 2 + J) * Width + X shl 2 + I] :=
+              Colors[Sel];
+          Inc(K);
+        end;
+  end;
+end;
+
+procedure DecodeDXT3(SrcBits, DestBits: PByte; Width, Height: LongInt);
+var
+  Sel, X, Y, I, J, K: LongInt;
+  Block: TDXTColorBlock;
+  AlphaBlock: TDXTAlphaBlockExp;
+  Colors: array[0..3] of TColor32Rec;
+  AWord: Word;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      AlphaBlock := PDXTAlphaBlockExp(SrcBits)^;
+      Inc(SrcBits, SizeOf(AlphaBlock));
+      Block := PDXTColorBlock(SrcBits)^;
+      Inc(SrcBits, SizeOf(Block));
+      // we read and decode endpoint colors
+      Colors[0] := DecodeCol(Block.Color0);
+      Colors[1] := DecodeCol(Block.Color1);
+      // and interpolate between them
+      Colors[2].R := (Colors[0].R shl 1 + Colors[1].R + 1) div 3;
+      Colors[2].G := (Colors[0].G shl 1 + Colors[1].G + 1) div 3;
+      Colors[2].B := (Colors[0].B shl 1 + Colors[1].B + 1) div 3;
+      Colors[3].R := (Colors[0].R + Colors[1].R shl 1 + 1) div 3;
+      Colors[3].G := (Colors[0].G + Colors[1].G shl 1 + 1) div 3;
+      Colors[3].B := (Colors[0].B + Colors[1].B shl 1 + 1) div 3;
+
+      // we distribute the dxt block colors and alphas
+      // across the 4x4 block of the destination image
+      // accroding to the dxt block mask and alpha block
+      K := 0;
+      for J := 0 to 3 do
+      begin
+        AWord := AlphaBlock.Alphas[J];
+        for I := 0 to 3 do
+        begin
+          Sel := (Block.Mask and (3 shl (K shl 1))) shr (K shl 1);
+          if (X shl 2 + I < Width) and (Y shl 2 + J < Height) then
+          begin
+            Colors[Sel].A := AWord and $0F;
+            Colors[Sel].A := Colors[Sel].A or (Colors[Sel].A shl 4);
+            PPalette32(DestBits)[(Y shl 2 + J) * Width + X shl 2 + I] :=
+              Colors[Sel];
+          end;
+          Inc(K);
+          AWord := AWord shr 4;
+        end;
+      end;
+  end;
+end;
+
+procedure GetInterpolatedAlphas(var AlphaBlock: TDXTAlphaBlockInt);
+begin
+  with AlphaBlock do
+  if Alphas[0] > Alphas[1] then
+  begin
+    // Interpolation of six alphas
+    Alphas[2] := (6 * Alphas[0] + 1 * Alphas[1] + 3) div 7;
+    Alphas[3] := (5 * Alphas[0] + 2 * Alphas[1] + 3) div 7;
+    Alphas[4] := (4 * Alphas[0] + 3 * Alphas[1] + 3) div 7;
+    Alphas[5] := (3 * Alphas[0] + 4 * Alphas[1] + 3) div 7;
+    Alphas[6] := (2 * Alphas[0] + 5 * Alphas[1] + 3) div 7;
+    Alphas[7] := (1 * Alphas[0] + 6 * Alphas[1] + 3) div 7;
+  end
+  else
+  begin
+    // Interpolation of four alphas, two alphas are set directly
+    Alphas[2] := (4 * Alphas[0] + 1 * Alphas[1] + 2) div 5;
+    Alphas[3] := (3 * Alphas[0] + 2 * Alphas[1] + 2) div 5;
+    Alphas[4] := (2 * Alphas[0] + 3 * Alphas[1] + 2) div 5;
+    Alphas[5] := (1 * Alphas[0] + 4 * Alphas[1] + 2) div 5;
+    Alphas[6] := 0;
+    Alphas[7] := $FF;
+  end;
+end;
+
+procedure DecodeDXT5(SrcBits, DestBits: PByte; Width, Height: LongInt);
+var
+  Sel, X, Y, I, J, K: LongInt;
+  Block: TDXTColorBlock;
+  AlphaBlock: TDXTAlphaBlockInt;
+  Colors: array[0..3] of TColor32Rec;
+  AMask: array[0..1] of LongWord;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      AlphaBlock := PDXTAlphaBlockInt(SrcBits)^;
+      Inc(SrcBits, SizeOf(AlphaBlock));
+      Block := PDXTColorBlock(SrcBits)^;
+      Inc(SrcBits, SizeOf(Block));
+      // we read and decode endpoint colors
+      Colors[0] := DecodeCol(Block.Color0);
+      Colors[1] := DecodeCol(Block.Color1);
+      // and interpolate between them
+      Colors[2].R := (Colors[0].R shl 1 + Colors[1].R + 1) div 3;
+      Colors[2].G := (Colors[0].G shl 1 + Colors[1].G + 1) div 3;
+      Colors[2].B := (Colors[0].B shl 1 + Colors[1].B + 1) div 3;
+      Colors[3].R := (Colors[0].R + Colors[1].R shl 1 + 1) div 3;
+      Colors[3].G := (Colors[0].G + Colors[1].G shl 1 + 1) div 3;
+      Colors[3].B := (Colors[0].B + Colors[1].B shl 1 + 1) div 3;
+      // 6 bit alpha mask is copied into two long words for
+      // easier usage
+      AMask[0] := PLongWord(@AlphaBlock.Alphas[2])^ and $00FFFFFF;
+      AMask[1] := PLongWord(@AlphaBlock.Alphas[5])^ and $00FFFFFF;
+      // alpha interpolation between two endpoint alphas
+      GetInterpolatedAlphas(AlphaBlock);
+
+      // we distribute the dxt block colors and alphas
+      // across the 4x4 block of the destination image
+      // accroding to the dxt block mask and alpha block mask
+      K := 0;
+      for J := 0 to 3 do
+        for I := 0 to 3 do
+        begin
+          Sel := (Block.Mask and (3 shl (K shl 1))) shr (K shl 1);
+          if ((X shl 2 + I) < Width) and ((Y shl 2 + J) < Height) then
+          begin
+            Colors[Sel].A := AlphaBlock.Alphas[AMask[J shr 1] and 7];
+            PPalette32(DestBits)[(Y shl 2 + J) * Width + (X shl 2 + I)] :=
+              Colors[Sel];
+          end;
+          Inc(K);
+          AMask[J shr 1] := AMask[J shr 1] shr 3;
+        end;
+  end;
+end;
+
+procedure GetBlock(var Block: TPixelBlock; SrcBits: Pointer; XPos, YPos,
+  Width, Height: LongInt);
+var
+  X, Y, I: LongInt;
+  Src: PColor32Rec;
+begin
+  I := 0;
+  // 4x4 pixel block is filled with information about every
+  // pixel in the block: alpha, original color, 565 color
+  for Y := 0 to 3 do
+    for X := 0 to 3 do
+    begin
+      Src := @PPalette32(SrcBits)[(YPos shl 2 + Y) * Width + XPos shl 2 + X];
+      Block[I].Color := ((Src.R shr 3) shl 11) or ((Src.G shr 2) shl 5) or
+        (Src.B shr 3);
+      Block[I].Alpha := Src.A;
+      Block[I].Orig := Src^;
+      Inc(I);
+    end;
+end;
+
+function ColorDistance(const C1, C2: TColor32Rec): LongInt;
+{$IFDEF USE_INLINE} inline;{$ENDIF}
+begin
+  Result := (C1.R - C2.R) * (C1.R - C2.R) +
+    (C1.G - C2.G) * (C1.G - C2.G) + (C1.B - C2.B) * (C1.B - C2.B);
+end;
+
+procedure GetEndpoints(const Block: TPixelBlock; var Ep0, Ep1: Word);
+var
+  I, J, Farthest, Dist: LongInt;
+  Colors: array[0..15] of TColor32Rec;
+begin
+  // we choose two colors from the pixel block which has the
+  // largest distance between them
+  for I := 0 to 15 do
+    Colors[I] := Block[I].Orig;
+  Farthest := -1;
+  for I := 0 to 15 do
+    for J := I + 1 to 15 do
+    begin
+      Dist := ColorDistance(Colors[I], Colors[J]);
+      if Dist > Farthest then
+      begin
+        Farthest := Dist;
+        Ep0 := Block[I].Color;
+        Ep1 := Block[J].Color;
+      end;
+    end;
+end;
+
+procedure GetAlphaEndpoints(const Block: TPixelBlock; var Min, Max: Byte);
+var
+  I: LongInt;
+begin
+  Min := 255;
+  Max := 0;
+  // we choose the lowest and the highest alpha values
+  for I := 0 to 15 do
+  begin
+    if Block[I].Alpha < Min then
+      Min := Block[I].Alpha;
+    if Block[I].Alpha > Max then
+      Max := Block[I].Alpha;
+  end;
+end;
+
+procedure FixEndpoints(var Ep0, Ep1: Word; HasAlpha: Boolean);
+var
+  Temp: Word;
+begin
+  // if dxt block has alpha information, Ep0 must be smaller
+  // than Ep1, if the  block has no alpha Ep1 must be smaller
+  if HasAlpha then
+  begin
+    if Ep0 > Ep1 then
+    begin
+      Temp := Ep0;
+      Ep0 := Ep1;
+      Ep1 := Temp;
+    end;
+  end
+  else
+    if Ep0 < Ep1 then
+    begin
+      Temp := Ep0;
+      Ep0 := Ep1;
+      Ep1 := Temp;
+    end;
+end;
+
+function GetColorMask(Ep0, Ep1: Word; NumCols: LongInt;
+  const Block: TPixelBlock): LongWord;
+var
+  I, J, Closest, Dist: LongInt;
+  Colors: array[0..3] of TColor32Rec;
+  Mask: array[0..15] of Byte;
+begin
+  FillChar(Mask, sizeof(Mask), 0);
+  // we decode endpoint colors
+  Colors[0] := DecodeCol(Ep0);
+  Colors[1] := DecodeCol(Ep1);
+  // and interpolate colors between (3 for DXT1 with alpha, 4 for the others)
+  if NumCols = 3 then
+  begin
+    Colors[2].R := (Colors[0].R + Colors[1].R) shr 1;
+    Colors[2].G := (Colors[0].G + Colors[1].G) shr 1;
+    Colors[2].B := (Colors[0].B + Colors[1].B) shr 1;
+    Colors[3].R := (Colors[0].R + Colors[1].R) shr 1;
+    Colors[3].G := (Colors[0].G + Colors[1].G) shr 1;
+    Colors[3].B := (Colors[0].B + Colors[1].B) shr 1;
+  end
+  else
+  begin
+    Colors[2].R := (Colors[0].R shl 1 + Colors[1].R + 1) div 3;
+    Colors[2].G := (Colors[0].G shl 1 + Colors[1].G + 1) div 3;
+    Colors[2].B := (Colors[0].B shl 1 + Colors[1].B + 1) div 3;
+    Colors[3].R := (Colors[0].R + Colors[1].R shl 1 + 1) div 3;
+    Colors[3].G := (Colors[0].G + Colors[1].G shl 1 + 1) div 3;
+    Colors[3].B := (Colors[0].B + Colors[1].B shl 1 + 1) div 3;
+  end;
+
+  for I := 0 to 15 do
+  begin
+    // this is only for DXT1 with alpha
+    if (Block[I].Alpha < 128) and (NumCols = 3) then
+    begin
+      Mask[I] := 3;
+      Continue;
+    end;
+    // for each of the 16 input pixels the nearest color in the
+    // 4 dxt colors is found
+    Closest := MaxInt;
+    for J := 0 to NumCols - 1 do
+    begin
+      Dist := ColorDistance(Block[I].Orig, Colors[J]);
+      if Dist < Closest then
+      begin
+        Closest := Dist;
+        Mask[I] := J;
+      end;
+    end;
+  end;
+
+  Result := 0;
+  for I := 0 to 15 do
+    Result := Result or (Mask[I] shl (I shl 1));
+end;
+
+procedure GetAlphaMask(Ep0, Ep1: Byte; var Block: TPixelBlock; Mask: PByteArray);
+var
+  Alphas: array[0..7] of Byte;
+  M: array[0..15] of Byte;
+  I, J, Closest, Dist: LongInt;
+begin
+  FillChar(M, sizeof(M), 0);
+  Alphas[0] := Ep0;
+  Alphas[1] := Ep1;
+  // interpolation between two given alpha endpoints
+  // (I use 6 interpolated values mode)
+  Alphas[2] := (6 * Alphas[0] + 1 * Alphas[1] + 3) div 7;
+  Alphas[3] := (5 * Alphas[0] + 2 * Alphas[1] + 3) div 7;
+  Alphas[4] := (4 * Alphas[0] + 3 * Alphas[1] + 3) div 7;
+  Alphas[5] := (3 * Alphas[0] + 4 * Alphas[1] + 3) div 7;
+  Alphas[6] := (2 * Alphas[0] + 5 * Alphas[1] + 3) div 7;
+  Alphas[7] := (1 * Alphas[0] + 6 * Alphas[1] + 3) div 7;
+
+  // the closest interpolated values for each of the input alpha
+  // is found
+  for I := 0 to 15 do
+  begin
+    Closest := MaxInt;
+    for J := 0 to 7 do
+    begin
+      Dist := Abs(Alphas[J] - Block[I].Alpha);
+      if Dist < Closest then
+      begin
+        Closest := Dist;
+        M[I] := J;
+      end;
+    end;
+  end;
+
+  Mask[0] := M[0] or (M[1] shl 3) or ((M[2] and 3) shl 6);
+  Mask[1] := ((M[2] and 4) shr 2) or (M[3] shl 1) or (M[4] shl 4) or
+    ((M[5] and 1) shl 7);
+  Mask[2] := ((M[5] and 6) shr 1) or (M[6] shl 2) or (M[7] shl 5);
+  Mask[3] := M[8] or (M[9] shl 3) or ((M[10] and 3) shl 6);
+  Mask[4] := ((M[10] and 4) shr 2) or (M[11] shl 1) or (M[12] shl 4) or
+   ((M[13] and 1) shl 7);
+  Mask[5] := ((M[13] and 6) shr 1) or (M[14] shl 2) or (M[15] shl 5);
+end;
+
+
+procedure EncodeDXT1(SrcBits: PByte; DestBits: PByte; Width, Height: LongInt);
+var
+  X, Y, I: LongInt;
+  HasAlpha: Boolean;
+  Block: TDXTColorBlock;
+  Pixels: TPixelBlock;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      GetBlock(Pixels, SrcBits, X, Y, Width, Height);
+      HasAlpha := False;
+      for I := 0 to 15 do
+        if Pixels[I].Alpha < 128 then
+        begin
+          HasAlpha := True;
+          Break;
+        end;
+      GetEndpoints(Pixels, Block.Color0, Block.Color1);
+      FixEndpoints(Block.Color0, Block.Color1, HasAlpha);
+      if HasAlpha then
+        Block.Mask := GetColorMask(Block.Color0, Block.Color1, 3, Pixels)
+      else
+        Block.Mask := GetColorMask(Block.Color0, Block.Color1, 4, Pixels);
+      PDXTColorBlock(DestBits)^ := Block;
+      Inc(DestBits, SizeOf(Block));
+    end;
+end;
+
+procedure EncodeDXT3(SrcBits: Pointer; DestBits: PByte; Width, Height: LongInt);
+var
+  X, Y, I: LongInt;
+  Block: TDXTColorBlock;
+  AlphaBlock: TDXTAlphaBlockExp;
+  Pixels: TPixelBlock;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      GetBlock(Pixels, SrcBits, X, Y, Width, Height);
+      for I := 0 to 7 do
+        PByteArray(@AlphaBlock.Alphas)[I] :=
+          (Pixels[I shl 1].Alpha shr 4) or ((Pixels[I shl 1 + 1].Alpha shr 4) shl 4);
+      GetEndpoints(Pixels, Block.Color0, Block.Color1);
+      FixEndpoints(Block.Color0, Block.Color1, False);
+      Block.Mask := GetColorMask(Block.Color0, Block.Color1, 4, Pixels);
+      PDXTAlphaBlockExp(DestBits)^ := AlphaBlock;
+      Inc(DestBits, SizeOf(AlphaBlock));
+      PDXTColorBlock(DestBits)^ := Block;
+      Inc(DestBits, SizeOf(Block));
+    end;
+end;
+
+procedure EncodeDXT5(SrcBits: Pointer; DestBits: PByte; Width, Height: LongInt);
+var
+  X, Y: LongInt;
+  Block: TDXTColorBlock;
+  AlphaBlock: TDXTAlphaBlockInt;
+  Pixels: TPixelBlock;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      GetBlock(Pixels, SrcBits, X, Y, Width, Height);
+      GetEndpoints(Pixels, Block.Color0, Block.Color1);
+      FixEndpoints(Block.Color0, Block.Color1, False);
+      Block.Mask := GetColorMask(Block.Color0, Block.Color1, 4, Pixels);
+      GetAlphaEndPoints(Pixels, AlphaBlock.Alphas[1], AlphaBlock.Alphas[0]);
+      GetAlphaMask(AlphaBlock.Alphas[0], AlphaBlock.Alphas[1], Pixels,
+        PByteArray(@AlphaBlock.Alphas[2]));
+      PDXTAlphaBlockInt(DestBits)^ := AlphaBlock;
+      Inc(DestBits, SizeOf(AlphaBlock));
+      PDXTColorBlock(DestBits)^ := Block;
+      Inc(DestBits, SizeOf(Block));
+    end;
+end;
+
+type
+  TBTCBlock = packed record
+    MLower, MUpper: Byte;
+    BitField: Word;
+  end;
+  PBTCBlock = ^TBTCBlock;
+
+procedure EncodeBTC(SrcBits: Pointer; DestBits: PByte; Width, Height: Integer);
+var
+  X, Y, I, J: Integer;
+  Block: TBTCBlock;
+  M, MLower, MUpper, K: Integer;
+  Pixels: array[0..15] of Byte;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      M := 0;
+      MLower := 0;
+      MUpper := 0;
+      FillChar(Block, SizeOf(Block), 0);
+      K := 0;
+
+      // Store 4x4 pixels and compute average, lower, and upper intensity levels
+      for I := 0 to 3 do
+        for J := 0 to 3 do
+        begin
+          Pixels[K] := PByteArray(SrcBits)[(Y shl 2 + I) * Width + X shl 2 + J];
+          Inc(M, Pixels[K]);
+          Inc(K);
+        end;
+
+      M := M div 16;
+      K := 0;
+
+      // Now compute upper and lower levels, number of upper pixels,
+      // and update bit field (1 when pixel is above avg. level M)
+      for I := 0 to 15 do
+      begin
+        if Pixels[I] > M then
+        begin
+          Inc(MUpper, Pixels[I]);
+          Inc(K);
+          Block.BitField := Block.BitField or (1 shl I);
+        end
+        else
+          Inc(MLower, Pixels[I]);
+      end;
+
+      // Scale levels and save them to block
+      if K > 0 then
+        Block.MUpper := ClampToByte(MUpper div K)
+      else
+        Block.MUpper := 0;
+      Block.MLower := ClampToByte(MLower div (16 - K));
+
+      // Finally save block to dest data
+      PBTCBlock(DestBits)^ := Block;
+      Inc(DestBits, SizeOf(Block));
+    end;
+end;
+
+procedure GetOneChannelBlock(var Block: TPixelBlock; SrcBits: Pointer; XPos, YPos,
+  Width, Height, BytesPP, ChannelIdx: Integer);
+var
+  X, Y, I: Integer;
+  Src: PByte;
+begin
+  I := 0;
+  // 4x4 pixel block is filled with information about every pixel in the block,
+  // but only one channel value is stored in Alpha field
+  for Y := 0 to 3 do
+    for X := 0 to 3 do
+    begin
+      Src := @PByteArray(SrcBits)[(YPos * 4 + Y) * Width * BytesPP +
+        (XPos * 4 + X) * BytesPP + ChannelIdx];
+      Block[I].Alpha := Src^;
+      Inc(I);
+    end;
+end;
+
+procedure EncodeATI1N(SrcBits: Pointer; DestBits: PByte; Width, Height: Integer);
+var
+  X, Y: Integer;
+  AlphaBlock: TDXTAlphaBlockInt;
+  Pixels: TPixelBlock;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      // Encode one channel
+      GetOneChannelBlock(Pixels, SrcBits, X, Y, Width, Height, 1, 0);
+      GetAlphaEndPoints(Pixels, AlphaBlock.Alphas[1], AlphaBlock.Alphas[0]);
+      GetAlphaMask(AlphaBlock.Alphas[0], AlphaBlock.Alphas[1], Pixels,
+        PByteArray(@AlphaBlock.Alphas[2]));
+      PDXTAlphaBlockInt(DestBits)^ := AlphaBlock;
+      Inc(DestBits, SizeOf(AlphaBlock));
+    end;
+end;
+
+procedure EncodeATI2N(SrcBits: Pointer; DestBits: PByte; Width, Height: Integer);
+var
+  X, Y: Integer;
+  AlphaBlock: TDXTAlphaBlockInt;
+  Pixels: TPixelBlock;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      // Encode Red/X channel
+      GetOneChannelBlock(Pixels, SrcBits, X, Y, Width, Height, 4, ChannelRed);
+      GetAlphaEndPoints(Pixels, AlphaBlock.Alphas[1], AlphaBlock.Alphas[0]);
+      GetAlphaMask(AlphaBlock.Alphas[0], AlphaBlock.Alphas[1], Pixels,
+        PByteArray(@AlphaBlock.Alphas[2]));
+      PDXTAlphaBlockInt(DestBits)^ := AlphaBlock;
+      Inc(DestBits, SizeOf(AlphaBlock));
+      // Encode Green/Y channel
+      GetOneChannelBlock(Pixels, SrcBits, X, Y, Width, Height, 4, ChannelGreen);
+      GetAlphaEndPoints(Pixels, AlphaBlock.Alphas[1], AlphaBlock.Alphas[0]);
+      GetAlphaMask(AlphaBlock.Alphas[0], AlphaBlock.Alphas[1], Pixels,
+        PByteArray(@AlphaBlock.Alphas[2]));
+      PDXTAlphaBlockInt(DestBits)^ := AlphaBlock;
+      Inc(DestBits, SizeOf(AlphaBlock));
+    end;
+end;
+
+procedure EncodeBinary(SrcBits: Pointer; DestBits: PByte; Width, Height: Integer);
+var
+  Src: PByte absolute SrcBits;
+  Bitmap: PByteArray absolute DestBits;
+  X, Y, WidthBytes: Integer;
+  PixelTresholded, Treshold: Byte;
+begin
+  Treshold := ClampToByte(GetOption(ImagingBinaryTreshold));
+  WidthBytes := (Width + 7) div 8;
+
+  for Y := 0 to Height - 1 do
+    for X := 0 to Width - 1 do
+    begin
+      if Src^ > Treshold then
+        PixelTresholded := 255
+      else
+        PixelTresholded := 0;
+
+      Bitmap[Y * WidthBytes + X div 8] := Bitmap[Y * WidthBytes + X div 8] or // OR current value of byte with following:
+        (PixelTresholded and 1)  // To make 1 from 255, 0 remains 0
+        shl (7 - (X mod 8));  // Put current bit to proper place in byte
+
+      Inc(Src);
+    end;
+end;
+
+procedure DecodeBTC(SrcBits, DestBits: PByte; Width, Height: Integer);
+var
+  X, Y, I, J, K: Integer;
+  Block: TBTCBlock;
+  Dest: PByte;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      Block := PBTCBlock(SrcBits)^;
+      Inc(SrcBits, SizeOf(Block));
+      K := 0;
+
+      // Just write MUpper when there is '1' in bit field and MLower
+      // when there is '0'
+      for I := 0 to 3 do
+        for J := 0 to 3 do
+        begin
+          Dest := @PByteArray(DestBits)[(Y shl 2 + I) * Width + X shl 2 + J];
+          if Block.BitField and (1 shl K) <> 0 then
+            Dest^ := Block.MUpper
+          else
+            Dest^ := Block.MLower;
+          Inc(K);
+        end;
+    end;
+end;
+
+procedure DecodeATI1N(SrcBits, DestBits: PByte; Width, Height: Integer);
+var
+  X, Y, I, J: Integer;
+  AlphaBlock: TDXTAlphaBlockInt;
+  AMask: array[0..1] of LongWord;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      AlphaBlock := PDXTAlphaBlockInt(SrcBits)^;
+      Inc(SrcBits, SizeOf(AlphaBlock));
+      // 6 bit alpha mask is copied into two long words for
+      // easier usage
+      AMask[0] := PLongWord(@AlphaBlock.Alphas[2])^ and $00FFFFFF;
+      AMask[1] := PLongWord(@AlphaBlock.Alphas[5])^ and $00FFFFFF;
+      // alpha interpolation between two endpoint alphas
+      GetInterpolatedAlphas(AlphaBlock);
+
+      // we distribute the dxt block alphas
+      // across the 4x4 block of the destination image
+      for J := 0 to 3 do
+       for I := 0 to 3 do
+       begin
+         PByteArray(DestBits)[(Y shl 2 + J) * Width + (X shl 2 + I)] :=
+           AlphaBlock.Alphas[AMask[J shr 1] and 7];
+         AMask[J shr 1] := AMask[J shr 1] shr 3;
+       end;
+  end;
+end;
+
+procedure DecodeATI2N(SrcBits, DestBits: PByte; Width, Height: Integer);
+var
+  X, Y, I, J: Integer;
+  Color: TColor32Rec;
+  AlphaBlock1, AlphaBlock2: TDXTAlphaBlockInt;
+  AMask1: array[0..1] of LongWord;
+  AMask2: array[0..1] of LongWord;
+begin
+  for Y := 0 to Height div 4 - 1 do
+    for X := 0 to Width div 4 - 1 do
+    begin
+      // Read the first alpha block and get masks
+      AlphaBlock1 := PDXTAlphaBlockInt(SrcBits)^;
+      Inc(SrcBits, SizeOf(AlphaBlock1));
+      AMask1[0] := PLongWord(@AlphaBlock1.Alphas[2])^ and $00FFFFFF;
+      AMask1[1] := PLongWord(@AlphaBlock1.Alphas[5])^ and $00FFFFFF;
+      // Read the secind alpha block and get masks
+      AlphaBlock2 := PDXTAlphaBlockInt(SrcBits)^;
+      Inc(SrcBits, SizeOf(AlphaBlock2));
+      AMask2[0] := PLongWord(@AlphaBlock2.Alphas[2])^ and $00FFFFFF;
+      AMask2[1] := PLongWord(@AlphaBlock2.Alphas[5])^ and $00FFFFFF;
+      // alpha interpolation between two endpoint alphas
+      GetInterpolatedAlphas(AlphaBlock1);
+      GetInterpolatedAlphas(AlphaBlock2);
+
+      Color.A := $FF;
+      Color.B := 0;
+
+      // Distribute alpha block values across 4x4 pixel block,
+      // first alpha block represents Red channel, second is Green.
+      for J := 0 to 3 do
+       for I := 0 to 3 do
+       begin
+         Color.R := AlphaBlock1.Alphas[AMask1[J shr 1] and 7];
+         Color.G := AlphaBlock2.Alphas[AMask2[J shr 1] and 7];
+         PColor32RecArray(DestBits)[(Y shl 2 + J) * Width + (X shl 2 + I)] := Color;
+         AMask1[J shr 1] := AMask1[J shr 1] shr 3;
+         AMask2[J shr 1] := AMask2[J shr 1] shr 3;
+       end;
+  end;
+end;
+
+procedure DecodeBinary(SrcBits, DestBits: PByte; Width, Height: Integer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+begin
+  Convert1To8(SrcBits, DestBits, Width, Height, (Width + 7) div 8, True);
+end;
+
+procedure SpecialToUnSpecial(const SrcImage: TImageData; DestBits: Pointer;
+  SpecialFormat: TImageFormat);
+begin
+  case SpecialFormat of
+    ifDXT1: DecodeDXT1(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifDXT3: DecodeDXT3(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifDXT5: DecodeDXT5(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifBTC:  DecodeBTC (SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifATI1N: DecodeATI1N(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifATI2N: DecodeATI2N(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+    ifBinary: DecodeBinary(SrcImage.Bits, DestBits, SrcImage.Width, SrcImage.Height);
+  end;
+end;
+
+procedure UnSpecialToSpecial(SrcBits: Pointer; const DestImage: TImageData;
+  SpecialFormat: TImageFormat);
+begin
+  case SpecialFormat of
+    ifDXT1: EncodeDXT1(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifDXT3: EncodeDXT3(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifDXT5: EncodeDXT5(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifBTC:  EncodeBTC (SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifATI1N: EncodeATI1N(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifATI2N: EncodeATI2N(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+    ifBinary: EncodeBinary(SrcBits, DestImage.Bits, DestImage.Width, DestImage.Height);
+  end;
+end;
+
+procedure ConvertSpecial(var Image: TImageData;
+  SrcInfo, DstInfo: PImageFormatInfo);
+var
+  WorkImage: TImageData;
+
+  procedure CheckSize(var Img: TImageData; Info: PImageFormatInfo);
+  var
+    Width, Height: Integer;
+  begin
+    Width := Img.Width;
+    Height := Img.Height;
+    DstInfo.CheckDimensions(Info.Format, Width, Height);
+    ResizeImage(Img, Width, Height, rfNearest);
+  end;
+
+begin
+  if SrcInfo.IsSpecial and DstInfo.IsSpecial then
+  begin
+    // Convert source to nearest 'normal' format
+    InitImage(WorkImage);
+    NewImage(Image.Width, Image.Height, SrcInfo.SpecialNearestFormat, WorkImage);
+    SpecialToUnSpecial(Image, WorkImage.Bits, SrcInfo.Format);
+    FreeImage(Image);
+    // Make sure output of SpecialToUnSpecial is the same as input of
+    // UnSpecialToSpecial
+    if SrcInfo.SpecialNearestFormat <> DstInfo.SpecialNearestFormat then
+      ConvertImage(WorkImage, DstInfo.SpecialNearestFormat);
+    // Convert work image to dest special format
+    CheckSize(WorkImage, DstInfo);
+    NewImage(WorkImage.Width, WorkImage.Height, DstInfo.Format, Image);
+    UnSpecialToSpecial(WorkImage.Bits, Image, DstInfo.Format);
+    FreeImage(WorkImage);
+  end
+  else if SrcInfo.IsSpecial and not DstInfo.IsSpecial then
+  begin
+    // Convert source to nearest 'normal' format
+    InitImage(WorkImage);
+    NewImage(Image.Width, Image.Height, SrcInfo.SpecialNearestFormat, WorkImage);
+    SpecialToUnSpecial(Image, WorkImage.Bits, SrcInfo.Format);
+    FreeImage(Image);
+    // Now convert to dest format
+    ConvertImage(WorkImage, DstInfo.Format);
+    Image := WorkImage;
+  end
+  else if not SrcInfo.IsSpecial and DstInfo.IsSpecial then
+  begin
+    // Convert source to nearest format
+    WorkImage := Image;
+    ConvertImage(WorkImage, DstInfo.SpecialNearestFormat);
+    // Now convert from nearest to dest
+    CheckSize(WorkImage, DstInfo);
+    InitImage(Image);
+    NewImage(WorkImage.Width, WorkImage.Height, DstInfo.Format, Image);
+    UnSpecialToSpecial(WorkImage.Bits, Image, DstInfo.Format);
+    FreeImage(WorkImage);
+  end;
+end;
+
+function GetStdPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  if FInfos[Format] <> nil then
+    Result := Width * Height * FInfos[Format].BytesPerPixel
+  else
+    Result := 0;
+end;
+
+procedure CheckStdDimensions(Format: TImageFormat; var Width, Height: LongInt);
+begin
+end;
+
+function GetDXTPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  // DXT can be used only for images with dimensions that are
+  // multiples of four
+  CheckDXTDimensions(Format, Width, Height);
+  Result := Width * Height;
+  if Format in [ifDXT1, ifATI1N] then
+    Result := Result div 2;
+end;
+
+procedure CheckDXTDimensions(Format: TImageFormat; var Width, Height: LongInt);
+begin
+  // DXT image dimensions must be multiples of four
+  Width := (Width + 3) and not 3; // div 4 * 4;
+  Height := (Height + 3) and not 3; // div 4 * 4;
+end;
+
+function GetBTCPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  // BTC can be used only for images with dimensions that are
+  // multiples of four
+  CheckDXTDimensions(Format, Width, Height);
+  Result := Width * Height div 4; // 2bits/pixel
+end;
+
+function GetBCPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  raise ENotImplemented.Create();
+end;
+
+procedure CheckBCDimensions(Format: TImageFormat; var Width, Height: LongInt);
+begin
+  raise ENotImplemented.Create();
+end;
+
+function GetBinaryPixelsSize(Format: TImageFormat; Width, Height: LongInt): LongInt;
+begin
+  // Binary images are aligned on BYTE boundary
+  Result := ((Width + 7) div 8) * Height; // 1bit/pixel
+end;
+
+{ Optimized pixel readers/writers for 32bit and FP colors to be stored in TImageFormatInfo }
+
+function GetPixel32ifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColor32Rec;
+begin
+  Result.Color := PLongWord(Bits)^;
+end;
+
+procedure SetPixel32ifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColor32Rec);
+begin
+  PLongWord(Bits)^ := Color.Color;
+end;
+
+function GetPixelFPifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec;
+begin
+  Result.A := PColor32Rec(Bits).A * OneDiv8Bit;
+  Result.R := PColor32Rec(Bits).R * OneDiv8Bit;
+  Result.G := PColor32Rec(Bits).G * OneDiv8Bit;
+  Result.B := PColor32Rec(Bits).B * OneDiv8Bit;
+end;
+
+procedure SetPixelFPifA8R8G8B8(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec);
+begin
+  PColor32Rec(Bits).A := ClampToByte(Round(Color.A * 255.0));
+  PColor32Rec(Bits).R := ClampToByte(Round(Color.R * 255.0));
+  PColor32Rec(Bits).G := ClampToByte(Round(Color.G * 255.0));
+  PColor32Rec(Bits).B := ClampToByte(Round(Color.B * 255.0));
+end;
+
+function GetPixel32Channel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColor32Rec;
+begin
+  Result.A := 0;
+  Result.R := 0;
+  Result.G := 0;
+  Result.B := 0;
+  case Info.Format of
+    ifR8G8B8, ifX8R8G8B8:
+      begin
+        Result.A := $FF;
+        PColor24Rec(@Result)^ := PColor24Rec(Bits)^;
+      end;
+    ifGray8, ifA8Gray8:
+      begin
+        if Info.HasAlphaChannel then
+          Result.A := PWordRec(Bits).High
+        else
+          Result.A := $FF;
+        Result.R := PWordRec(Bits).Low;
+        Result.G := PWordRec(Bits).Low;
+        Result.B := PWordRec(Bits).Low;
+      end;
+  end;
+end;
+
+procedure SetPixel32Channel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColor32Rec);
+begin
+  case Info.Format of
+    ifR8G8B8, ifX8R8G8B8:
+      begin
+        PColor24Rec(Bits)^ := PColor24Rec(@Color)^;
+      end;
+    ifGray8, ifA8Gray8:
+      begin
+        if Info.HasAlphaChannel then
+          PWordRec(Bits).High := Color.A;
+        PWordRec(Bits).Low := Round(GrayConv.R * Color.R + GrayConv.G * Color.G +
+          GrayConv.B * Color.B);
+      end;
+  end;
+end;
+
+function GetPixelFPChannel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec;
+begin
+  Result.A := 0;
+  Result.R := 0;
+  Result.G := 0;
+  Result.B := 0;
+  case Info.Format of
+    ifR8G8B8, ifX8R8G8B8:
+      begin
+        Result.A := 1.0;
+        Result.R := PColor24Rec(Bits).R * OneDiv8Bit;
+        Result.G := PColor24Rec(Bits).G * OneDiv8Bit;
+        Result.B := PColor24Rec(Bits).B * OneDiv8Bit;
+      end;
+    ifGray8, ifA8Gray8:
+      begin
+        if Info.HasAlphaChannel then
+          Result.A := PWordRec(Bits).High * OneDiv8Bit
+        else
+          Result.A := 1.0;
+        Result.R := PWordRec(Bits).Low * OneDiv8Bit;
+        Result.G := PWordRec(Bits).Low * OneDiv8Bit;
+        Result.B := PWordRec(Bits).Low * OneDiv8Bit;
+      end;
+  end;
+end;
+
+procedure SetPixelFPChannel8Bit(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec);
+begin
+  case Info.Format of
+    ifR8G8B8, ifX8R8G8B8:
+      begin
+        PColor24Rec(Bits).R := ClampToByte(Round(Color.R * 255.0));
+        PColor24Rec(Bits).G := ClampToByte(Round(Color.G * 255.0));
+        PColor24Rec(Bits).B := ClampToByte(Round(Color.B * 255.0));
+      end;
+    ifGray8, ifA8Gray8:
+      begin
+        if Info.HasAlphaChannel then
+          PWordRec(Bits).High := ClampToByte(Round(Color.A * 255.0));
+        PWordRec(Bits).Low := ClampToByte(Round((GrayConv.R * Color.R + GrayConv.G * Color.G +
+          GrayConv.B * Color.B) * 255.0));
+      end;
+  end;
+end;
+
+function GetPixelFPFloat32(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32): TColorFPRec;
+begin
+  case Info.Format of
+    ifA32R32G32B32F, ifA32B32G32R32F:
+      begin
+        Result := PColorFPRec(Bits)^;
+      end;
+    ifR32G32B32F, ifB32G32R32F:
+      begin
+        Result.A := 1.0;
+        Result.Color96Rec := PColor96FPRec(Bits)^;
+      end;
+    ifR32F:
+      begin
+        Result.A := 1.0;
+        Result.R := PSingle(Bits)^;
+        Result.G := 0.0;
+        Result.B := 0.0;
+      end;
+  end;
+  if Info.IsRBSwapped then
+    SwapValues(Result.R, Result.B);
+end;
+
+procedure SetPixelFPFloat32(Bits: Pointer; Info: PImageFormatInfo; Palette: PPalette32; const Color: TColorFPRec);
+begin
+  case Info.Format of
+    ifA32R32G32B32F, ifA32B32G32R32F:
+      begin
+        PColorFPRec(Bits)^ := Color;
+      end;
+    ifR32G32B32F, ifB32G32R32F:
+      begin
+        PColor96FPRec(Bits)^ := Color.Color96Rec;
+      end;
+    ifR32F:
+      begin
+        PSingle(Bits)^ := Color.R;
+      end;
+  end;
+  if Info.IsRBSwapped then
+    SwapValues(PColor96FPRec(Bits).R, PColor96FPRec(Bits).B);
+end;
+
+initialization
+  // Initialize default sampling filter function pointers and radii
+  SamplingFilterFunctions[sfNearest]    := FilterNearest;
+  SamplingFilterFunctions[sfLinear]     := FilterLinear;
+  SamplingFilterFunctions[sfCosine]     := FilterCosine;
+  SamplingFilterFunctions[sfHermite]    := FilterHermite;
+  SamplingFilterFunctions[sfQuadratic]  := FilterQuadratic;
+  SamplingFilterFunctions[sfGaussian]   := FilterGaussian;
+  SamplingFilterFunctions[sfSpline]     := FilterSpline;
+  SamplingFilterFunctions[sfLanczos]    := FilterLanczos;
+  SamplingFilterFunctions[sfMitchell]   := FilterMitchell;
+  SamplingFilterFunctions[sfCatmullRom] := FilterCatmullRom;
+  SamplingFilterRadii[sfNearest]    := 1.0;
+  SamplingFilterRadii[sfLinear]     := 1.0;
+  SamplingFilterRadii[sfCosine]     := 1.0;
+  SamplingFilterRadii[sfHermite]    := 1.0;
+  SamplingFilterRadii[sfQuadratic]  := 1.5;
+  SamplingFilterRadii[sfGaussian]   := 1.25;
+  SamplingFilterRadii[sfSpline]     := 2.0;
+  SamplingFilterRadii[sfLanczos]    := 3.0;
+  SamplingFilterRadii[sfMitchell]   := 2.0;
+  SamplingFilterRadii[sfCatmullRom] := 2.0;
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77 Changes/Bug Fixes -------------------------------------
+    - NOT YET: Added support for Passtrough image data formats.
+    - Added ConvertToPixel32 helper function.
+
+  -- 0.26.5 Changes/Bug Fixes -----------------------------------
+    - Removed optimized codepatch for few data formats from StretchResample
+      function. It was quite buggy and not so much faster anyway.
+    - Added PaletteHasAlpha function.
+    - Added support functions for ifBinary data format.
+    - Added optional pixel scaling to Convert1To8, Convert2To8,
+      abd Convert4To8 functions.
+
+  -- 0.26.3 Changes/Bug Fixes -----------------------------------
+    - Filtered resampling ~10% faster now.
+    - Fixed DXT3 alpha encoding.
+    - ifIndex8 format now has HasAlphaChannel=True.
+
+  -- 0.25.0 Changes/Bug Fixes -----------------------------------
+    - Made some resampling stuff public so that it can be used in canvas class.
+    - Added some color constructors.
+    - Added VisualizePalette helper function.
+    - Fixed ConvertSpecial, not very readable before and error when
+      converting special->special.
+
+  -- 0.24.3 Changes/Bug Fixes -----------------------------------
+    - Some refactorings a changes to DXT based formats.
+    - Added ifATI1N and ifATI2N image data formats support structures and functions.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added ifBTC image format support structures and functions.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - FillMipMapLevel now works well with indexed and special formats too.
+    - Moved Convert1To8 and Convert4To8 functions from ImagingBitmaps here
+     and created new Convert2To8 function. They are now used by more than one
+     file format loader.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - StretchResample now uses pixel get/set functions stored in
+      TImageFormatInfo so it is  much faster for formats that override
+      them with optimized ones
+    - added pixel set/get functions optimized for various image formats
+      (to be stored in TImageFormatInfo)
+    - bug in ConvertSpecial caused problems when converting DXTC images
+      to bitmaps in ImagingCoponents
+    - bug in StretchRect caused that it didn't work with ifR32F and
+      ifR16F formats
+    - removed leftover code in FillMipMapLevel which disabled
+      filtered resizing of images witch ChannelSize <> 8bits
+    - added half float converting functions and support for half based
+      image formats where needed
+    - added TranslatePixel and IsImageFormatValid functions
+    - fixed possible range overflows when converting from FP to integer images
+    - added pixel set/get functions: GetPixel32Generic, GetPixelFPGeneric,
+      SetPixel32Generic, SetPixelFPGeneric
+    - fixed occasional range overflows in StretchResample
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - added StretchNearest, StretchResample and some sampling functions
+    - added ChannelCount values to TImageFormatInfo constants
+    - added resolution validity check to GetDXTPixelsSize
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - added RBSwapFormat values to some TImageFromatInfo definitions
+    - fixed bug in ConvertSpecial (causing DXT images to convert only to 32bit)
+    - added CopyPixel, ComparePixels helper functions
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - replaced pixel format conversions for colors not to be
+      darkened when converting from low bit counts
+    - ReduceColorsMedianCut was updated to support creating one
+      optimal palette for more images and it is somewhat faster
+      now too
+    - there was ugly bug in DXTC dimensions checking
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingGif.pas b/src/lib/vampimg/ImagingGif.pas

new file mode 100644 (file)

index 0000000..a38e33a
--- /dev/null
+++ b/src/lib/vampimg/ImagingGif.pas
@@ -0,0 +1,1291 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for GIF images.}
+unit ImagingGif;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, Imaging, ImagingTypes, ImagingIO, ImagingUtility;
+
+type
+  { GIF (Graphics Interchange Format) loader/saver class. GIF was
+    (and is still used) popular format for storing images supporting
+    multiple images per file and single color transparency.
+    Pixel format is 8 bit indexed where each image frame can have
+    its own color palette. GIF uses lossless LZW compression
+    (patent expired few years ago).
+    Imaging can load and save all GIFs with all frames and supports
+    transparency. Imaging can load just raw ifIndex8 frames or
+    also animate them in ifA8R8G8B8 format. See ImagingGIFLoadAnimated option.}
+  TGIFFileFormat = class(TImageFileFormat)
+  private
+    FLoadAnimated: LongBool;
+    function InterlaceStep(Y, Height: Integer; var Pass: Integer): Integer;
+    procedure LZWDecompress(Stream: TStream; Handle: TImagingHandle;
+      Width, Height: Integer; Interlaced: Boolean; Data: Pointer);
+    procedure LZWCompress(const IO: TIOFunctions; Handle: TImagingHandle;
+      Width, Height, BitCount: Integer; Interlaced: Boolean; Data: Pointer);
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  published
+    property LoadAnimated: LongBool read FLoadAnimated write FLoadAnimated;
+  end;
+
+implementation
+
+const
+  SGIFFormatName = 'Graphics Interchange Format';
+  SGIFMasks      = '*.gif';
+  GIFSupportedFormats: TImageFormats = [ifIndex8];
+  GIFDefaultLoadAnimated = True;
+
+type
+  TGIFVersion = (gv87, gv89);
+  TDisposalMethod = (dmNoRemoval, dmLeave, dmRestoreBackground,
+    dmRestorePrevious, dmReserved4, dmReserved5, dmReserved6, dmReserved7);
+
+const
+  GIFSignature: TChar3 = 'GIF';
+  GIFVersions: array[TGIFVersion] of TChar3 = ('87a', '89a');
+  GIFDefaultDelay = 65;
+
+  // Masks for accessing fields in PackedFields of TGIFHeader
+  GIFGlobalColorTable = $80;
+  GIFColorResolution  = $70;
+  GIFColorTableSorted = $08;
+  GIFColorTableSize   = $07;
+
+  // Masks for accessing fields in PackedFields of TImageDescriptor
+  GIFLocalColorTable  = $80;
+  GIFInterlaced       = $40;
+  GIFLocalTableSorted = $20;
+
+  // Block identifiers
+  GIFPlainText: Byte               = $01;
+  GIFGraphicControlExtension: Byte = $F9;
+  GIFCommentExtension: Byte        = $FE;
+  GIFApplicationExtension: Byte    = $FF;
+  GIFImageDescriptor: Byte         = Ord(',');
+  GIFExtensionIntroducer: Byte     = Ord('!');
+  GIFTrailer: Byte                 = Ord(';');
+  GIFBlockTerminator: Byte         = $00;
+
+  // Masks for accessing fields in PackedFields of TGraphicControlExtension
+  GIFTransparent    = $01;
+  GIFUserInput      = $02;
+  GIFDisposalMethod = $1C;
+
+const
+  // Netscape sub block types
+  GIFAppLoopExtension   = 1;
+  GIFAppBufferExtension = 2;
+
+type
+  TGIFHeader = packed record
+    // File header part
+    Signature: TChar3;  // Header Signature (always "GIF")
+    Version: TChar3;    // GIF format version("87a" or "89a")
+    // Logical Screen Descriptor part
+    ScreenWidth: Word;  // Width of Display Screen in Pixels
+    ScreenHeight: Word; // Height of Display Screen in Pixels
+    PackedFields: Byte; // Screen and color map information
+    BackgroundColorIndex: Byte; // Background color index (in global color table)
+    AspectRatio: Byte;  // Pixel aspect ratio, ratio = (AspectRatio + 15) / 64
+  end;
+
+  TImageDescriptor = packed record
+    //Separator: Byte; // leave that out since we always read one bye ahead
+    Left: Word;        // X position of image with respect to logical screen
+    Top: Word;         // Y position
+    Width: Word;
+    Height: Word;
+    PackedFields: Byte;
+  end;
+
+const
+  // GIF extension labels
+  GIFExtTypeGraphic     = $F9;
+  GIFExtTypePlainText   = $01;
+  GIFExtTypeApplication = $FF;
+  GIFExtTypeComment     = $FE;
+
+type
+  TGraphicControlExtension = packed record
+    BlockSize: Byte;
+    PackedFields: Byte;
+    DelayTime: Word;
+    TransparentColorIndex: Byte;
+    Terminator: Byte;
+  end;
+
+type
+  TGIFIdentifierCode = array[0..7] of AnsiChar;
+  TGIFAuthenticationCode = array[0..2] of AnsiChar;
+  TGIFApplicationRec = packed record
+    Identifier: TGIFIdentifierCode;
+    Authentication: TGIFAuthenticationCode;
+  end;
+
+const
+  CodeTableSize = 4096;
+  HashTableSize = 17777;
+
+type
+  TReadContext = record
+    Inx: Integer;
+    Size: Integer;
+    Buf: array [0..255 + 4] of Byte;
+    CodeSize: Integer;
+    ReadMask: Integer;
+  end;
+  PReadContext = ^TReadContext;
+
+  TWriteContext = record
+    Inx: Integer;
+    CodeSize: Integer;
+    Buf: array [0..255 + 4] of Byte;
+  end;
+  PWriteContext = ^TWriteContext;
+
+  TOutputContext = record
+    W: Integer;
+    H: Integer;
+    X: Integer;
+    Y: Integer;
+    BitsPerPixel: Integer;
+    Pass: Integer;
+    Interlace: Boolean;
+    LineIdent: Integer;
+    Data: Pointer;
+    CurrLineData: Pointer;
+  end;
+
+  TImageDict = record
+    Tail: Word;
+    Index: Word;
+    Col: Byte;
+  end;
+  PImageDict = ^TImageDict;
+
+  PIntCodeTable = ^TIntCodeTable;
+  TIntCodeTable = array [0..CodeTableSize - 1] of Word;
+
+  TDictTable = array [0..CodeTableSize - 1] of TImageDict;
+  PDictTable = ^TDictTable;
+
+resourcestring
+  SGIFDecodingError = 'Error when decoding GIF LZW data';
+
+{
+  TGIFFileFormat implementation
+}
+
+procedure TGIFFileFormat.Define;
+begin
+  inherited;
+  FName := SGIFFormatName;
+  FFeatures := [ffLoad, ffSave, ffMultiImage];
+  FSupportedFormats := GIFSupportedFormats;
+  FLoadAnimated := GIFDefaultLoadAnimated;
+
+  AddMasks(SGIFMasks);
+  RegisterOption(ImagingGIFLoadAnimated, @FLoadAnimated);
+end;
+
+function TGIFFileFormat.InterlaceStep(Y, Height: Integer; var Pass: Integer): Integer;
+begin
+  Result := Y;
+  case Pass of
+    0, 1:
+      Inc(Result, 8);
+    2:
+      Inc(Result, 4);
+    3:
+      Inc(Result, 2);
+  end;
+  if Result >= Height then
+  begin
+    if Pass = 0 then
+    begin
+      Pass := 1;
+      Result := 4;
+      if Result < Height then
+        Exit;
+    end;
+    if Pass = 1 then
+    begin
+      Pass := 2;
+      Result := 2;
+      if Result < Height then
+        Exit;
+    end;
+    if Pass = 2 then
+    begin
+      Pass := 3;
+      Result := 1;
+    end;
+  end;
+end;
+
+{ GIF LZW decompresion code is from JVCL JvGIF.pas unit.}
+procedure TGIFFileFormat.LZWDecompress(Stream: TStream; Handle: TImagingHandle; Width, Height: Integer;
+  Interlaced: Boolean; Data: Pointer);
+var
+  MinCodeSize: Byte;
+  MaxCode, BitMask, InitCodeSize: Integer;
+  ClearCode, EndingCode, FirstFreeCode, FreeCode: Word;
+  I, OutCount, Code: Integer;
+  CurCode, OldCode, InCode, FinalChar: Word;
+  Prefix, Suffix, OutCode: PIntCodeTable;
+  ReadCtxt: TReadContext;
+  OutCtxt: TOutputContext;
+  TableFull: Boolean;
+
+  function ReadCode(var Context: TReadContext): Integer;
+  var
+    RawCode: Integer;
+    ByteIndex: Integer;
+    Bytes: Byte;
+    BytesToLose: Integer;
+  begin
+    while (Context.Inx + Context.CodeSize > Context.Size) and
+      (Stream.Position < Stream.Size) do
+    begin
+      // Not enough bits in buffer - refill it - Not very efficient, but infrequently called
+      BytesToLose := Context.Inx shr 3;
+      // Note biggest Code Size is 12 bits. And this can at worst span 3 Bytes
+      Move(Context.Buf[Word(BytesToLose)], Context.Buf[0], 3);
+      Context.Inx := Context.Inx and 7;
+      Context.Size := Context.Size - (BytesToLose shl 3);
+      Stream.Read(Bytes, 1);
+      if Bytes > 0 then
+        Stream.Read(Context.Buf[Word(Context.Size shr 3)], Bytes);
+      Context.Size := Context.Size + (Bytes shl 3);
+    end;
+    ByteIndex := Context.Inx shr 3;
+    RawCode := Context.Buf[Word(ByteIndex)] +
+      (Word(Context.Buf[Word(ByteIndex + 1)]) shl 8);
+    if Context.CodeSize > 8 then
+      RawCode := RawCode + (Integer(Context.Buf[ByteIndex + 2]) shl 16);
+    RawCode := RawCode shr (Context.Inx and 7);
+    Context.Inx := Context.Inx + Byte(Context.CodeSize);
+    Result := RawCode and Context.ReadMask;
+  end;
+
+  procedure Output(Value: Byte; var Context: TOutputContext);
+  var
+    P: PByte;
+  begin
+    if Context.Y >= Context.H then
+      Exit;
+
+    // Only ifIndex8 supported
+    P := @PByteArray(Context.CurrLineData)[Context.X];
+    P^ := Value;
+
+    {case Context.BitsPerPixel of
+      1:
+        begin
+          P := @PByteArray(Context.CurrLineData)[Context.X shr 3];
+          if (Context.X and $07) <> 0 then
+            P^ := P^ or Word(Value shl (7 - (Word(Context.X and 7))))
+          else
+            P^ := Byte(Value shl 7);
+        end;
+      4:
+        begin
+          P := @PByteArray(Context.CurrLineData)[Context.X shr 1];
+          if (Context.X and 1) <> 0 then
+            P^ := P^ or Value
+          else
+            P^ := Byte(Value shl 4);
+        end;
+      8:
+        begin
+          P := @PByteArray(Context.CurrLineData)[Context.X];
+          P^ := Value;
+        end;
+    end;}
+    Inc(Context.X);
+
+    if Context.X < Context.W then
+      Exit;
+    Context.X := 0;
+    if Context.Interlace then
+      Context.Y := InterlaceStep(Context.Y, Context.H, Context.Pass)
+    else
+      Inc(Context.Y);
+
+    Context.CurrLineData := @PByteArray(Context.Data)[Context.Y * Context.LineIdent];
+  end;
+
+begin
+  OutCount := 0;
+  OldCode := 0;
+  FinalChar := 0;
+  TableFull := False;
+  GetMem(Prefix, SizeOf(TIntCodeTable));
+  GetMem(Suffix, SizeOf(TIntCodeTable));
+  GetMem(OutCode, SizeOf(TIntCodeTable) + SizeOf(Word));
+  try
+    Stream.Read(MinCodeSize, 1);
+    if (MinCodeSize < 2) or (MinCodeSize > 9) then
+      RaiseImaging(SGIFDecodingError, []);
+    // Initial read context
+    ReadCtxt.Inx := 0;
+    ReadCtxt.Size := 0;
+    ReadCtxt.CodeSize := MinCodeSize + 1;
+    ReadCtxt.ReadMask := (1 shl ReadCtxt.CodeSize) - 1;
+    // Initialise pixel-output context
+    OutCtxt.X := 0;
+    OutCtxt.Y := 0;
+    OutCtxt.Pass := 0;
+    OutCtxt.W := Width;
+    OutCtxt.H := Height;
+    OutCtxt.BitsPerPixel := MinCodeSize;
+    OutCtxt.Interlace := Interlaced;
+    OutCtxt.LineIdent := Width;
+    OutCtxt.Data := Data;
+    OutCtxt.CurrLineData := Data;
+    BitMask := (1 shl OutCtxt.BitsPerPixel) - 1;
+    // 2 ^ MinCodeSize accounts for all colours in file
+    ClearCode := 1 shl MinCodeSize;
+    EndingCode := ClearCode + 1;
+    FreeCode := ClearCode + 2;
+    FirstFreeCode := FreeCode;
+    // 2^ (MinCodeSize + 1) includes clear and eoi Code and space too
+    InitCodeSize := ReadCtxt.CodeSize;
+    MaxCode := 1 shl ReadCtxt.CodeSize;
+    Code := ReadCode(ReadCtxt);
+    while (Code <> EndingCode) and (Code <> $FFFF) and
+      (OutCtxt.Y < OutCtxt.H) do
+    begin
+      if Code = ClearCode then
+      begin
+        ReadCtxt.CodeSize := InitCodeSize;
+        MaxCode := 1 shl ReadCtxt.CodeSize;
+        ReadCtxt.ReadMask := MaxCode - 1;
+        FreeCode := FirstFreeCode;
+        Code := ReadCode(ReadCtxt);
+        CurCode := Code;
+        OldCode := Code;
+        if Code = $FFFF then
+          Break;
+        FinalChar := (CurCode and BitMask);
+        Output(Byte(FinalChar), OutCtxt);
+        TableFull := False;
+      end
+      else
+      begin
+        CurCode := Code;
+        InCode := Code;
+        if CurCode >= FreeCode then
+        begin
+          CurCode := OldCode;
+          OutCode^[OutCount] := FinalChar;
+          Inc(OutCount);
+        end;
+        while CurCode > BitMask do
+        begin
+          if OutCount > CodeTableSize then
+            RaiseImaging(SGIFDecodingError, []);
+          OutCode^[OutCount] := Suffix^[CurCode];
+          Inc(OutCount);
+          CurCode := Prefix^[CurCode];
+        end;
+
+        FinalChar := CurCode and BitMask;
+        OutCode^[OutCount] := FinalChar;
+        Inc(OutCount);
+        for I := OutCount - 1 downto 0 do
+          Output(Byte(OutCode^[I]), OutCtxt);
+        OutCount := 0;
+        // Update dictionary
+        if not TableFull then
+        begin
+          Prefix^[FreeCode] := OldCode;
+          Suffix^[FreeCode] := FinalChar;
+          // Advance to next free slot
+          Inc(FreeCode);
+          if FreeCode >= MaxCode then
+          begin
+            if ReadCtxt.CodeSize < 12 then
+            begin
+              Inc(ReadCtxt.CodeSize);
+              MaxCode := MaxCode shl 1;
+              ReadCtxt.ReadMask := (1 shl ReadCtxt.CodeSize) - 1;
+            end
+            else
+              TableFull := True;
+          end;
+        end;
+        OldCode := InCode;
+      end;
+      Code := ReadCode(ReadCtxt);
+    end;
+    if Code = $FFFF then
+      RaiseImaging(SGIFDecodingError, []);
+  finally
+    FreeMem(Prefix);
+    FreeMem(OutCode);
+    FreeMem(Suffix);
+  end;
+end;
+
+{ GIF LZW compresion code is from JVCL JvGIF.pas unit.}
+procedure TGIFFileFormat.LZWCompress(const IO: TIOFunctions; Handle: TImagingHandle; Width, Height, BitCount: Integer;
+    Interlaced: Boolean; Data: Pointer);
+var
+  LineIdent: Integer;
+  MinCodeSize, Col: Byte;
+  InitCodeSize, X, Y: Integer;
+  Pass: Integer;
+  MaxCode: Integer; { 1 shl CodeSize }
+  ClearCode, EndingCode, LastCode, Tail: Integer;
+  I, HashValue: Integer;
+  LenString: Word;
+  Dict: PDictTable;
+  HashTable: TList;
+  PData: PByte;
+  WriteCtxt: TWriteContext;
+
+  function InitHash(P: Integer): Integer;
+  begin
+    Result := (P + 3) * 301;
+  end;
+
+  procedure WriteCode(Code: Integer; var Context: TWriteContext);
+  var
+    BufIndex: Integer;
+    Bytes: Byte;
+  begin
+    BufIndex := Context.Inx shr 3;
+    Code := Code shl (Context.Inx and 7);
+    Context.Buf[BufIndex] := Context.Buf[BufIndex] or Byte(Code);
+    Context.Buf[BufIndex + 1] := Byte(Code shr 8);
+    Context.Buf[BufIndex + 2] := Byte(Code shr 16);
+    Context.Inx := Context.Inx + Context.CodeSize;
+    if Context.Inx >= 255 * 8 then
+    begin
+      // Flush out full buffer
+      Bytes := 255;
+      IO.Write(Handle, @Bytes, 1);
+      IO.Write(Handle, @Context.Buf, Bytes);
+      Move(Context.Buf[255], Context.Buf[0], 2);
+      FillChar(Context.Buf[2], 255, 0);
+      Context.Inx := Context.Inx - (255 * 8);
+    end;
+  end;
+
+  procedure FlushCode(var Context: TWriteContext);
+  var
+    Bytes: Byte;
+  begin
+    Bytes := (Context.Inx + 7) shr 3;
+    if Bytes > 0 then
+    begin
+      IO.Write(Handle, @Bytes, 1);
+      IO.Write(Handle, @Context.Buf, Bytes);
+    end;
+    // Data block terminator - a block of zero Size
+    Bytes := 0;
+    IO.Write(Handle, @Bytes, 1);
+  end;
+
+begin
+  LineIdent := Width;
+  Tail := 0;
+  HashValue := 0;
+  Col := 0;
+  HashTable := TList.Create;
+  GetMem(Dict, SizeOf(TDictTable));
+  try
+    for I := 0 to HashTableSize - 1 do
+      HashTable.Add(nil);
+
+    // Initialise encoder variables
+    InitCodeSize := BitCount + 1;
+    if InitCodeSize = 2 then
+      Inc(InitCodeSize);
+    MinCodeSize := InitCodeSize - 1;
+    IO.Write(Handle, @MinCodeSize, 1);
+    ClearCode := 1 shl MinCodeSize;
+    EndingCode := ClearCode + 1;
+    LastCode := EndingCode;
+    MaxCode := 1 shl InitCodeSize;
+    LenString := 0;
+    // Setup write context
+    WriteCtxt.Inx := 0;
+    WriteCtxt.CodeSize := InitCodeSize;
+    FillChar(WriteCtxt.Buf, SizeOf(WriteCtxt.Buf), 0);
+    WriteCode(ClearCode, WriteCtxt);
+    Y := 0;
+    Pass := 0;
+
+    while Y < Height do
+    begin
+      PData := @PByteArray(Data)[Y * LineIdent];
+      for X := 0 to Width - 1 do
+      begin
+        // Only ifIndex8 support
+        case BitCount of
+          8:
+            begin
+              Col := PData^;
+              PData := @PByteArray(PData)[1];
+            end;
+          {4:
+            begin
+              if X and 1 <> 0 then
+              begin
+                Col := PData^ and $0F;
+                PData := @PByteArray(PData)[1];
+              end
+              else
+                Col := PData^ shr 4;
+            end;
+          1:
+            begin
+              if X and 7 = 7 then
+              begin
+                Col := PData^ and 1;
+                PData := @PByteArray(PData)[1];
+              end
+              else
+                Col := (PData^ shr (7 - (X and $07))) and $01;
+            end;}
+        end;
+        Inc(LenString);
+        if LenString = 1 then
+        begin
+          Tail := Col;
+          HashValue := InitHash(Col);
+        end
+        else
+        begin
+          HashValue := HashValue * (Col + LenString + 4);
+          I := HashValue mod HashTableSize;
+          HashValue := HashValue mod HashTableSize;
+          while (HashTable[I] <> nil) and
+            ((PImageDict(HashTable[I])^.Tail <> Tail) or
+            (PImageDict(HashTable[I])^.Col <> Col)) do
+          begin
+            Inc(I);
+            if I >= HashTableSize then
+              I := 0;
+          end;
+          if HashTable[I] <> nil then // Found in the strings table
+            Tail := PImageDict(HashTable[I])^.Index
+          else
+          begin
+            // Not found
+            WriteCode(Tail, WriteCtxt);
+            Inc(LastCode);
+            HashTable[I] := @Dict^[LastCode];
+            PImageDict(HashTable[I])^.Index := LastCode;
+            PImageDict(HashTable[I])^.Tail := Tail;
+            PImageDict(HashTable[I])^.Col := Col;
+            Tail := Col;
+            HashValue := InitHash(Col);
+            LenString := 1;
+            if LastCode >= MaxCode then
+            begin
+              // Next Code will be written longer
+              MaxCode := MaxCode shl 1;
+              Inc(WriteCtxt.CodeSize);
+            end
+            else
+            if LastCode >= CodeTableSize - 2 then
+            begin
+              // Reset tables
+              WriteCode(Tail, WriteCtxt);
+              WriteCode(ClearCode, WriteCtxt);
+              LenString := 0;
+              LastCode := EndingCode;
+              WriteCtxt.CodeSize := InitCodeSize;
+              MaxCode := 1 shl InitCodeSize;
+              for I := 0 to HashTableSize - 1 do
+                HashTable[I] := nil;
+            end;
+          end;
+        end;
+      end;
+      if Interlaced then
+        Y := InterlaceStep(Y, Height, Pass)
+      else
+        Inc(Y);
+    end;
+    WriteCode(Tail, WriteCtxt);
+    WriteCode(EndingCode, WriteCtxt);
+    FlushCode(WriteCtxt);
+  finally
+    HashTable.Free;
+    FreeMem(Dict);
+  end;
+end;
+
+function TGIFFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+type
+  TFrameInfo = record
+    Left, Top: Integer;
+    Width, Height: Integer;
+    Disposal: TDisposalMethod;
+    HasTransparency: Boolean;
+    HasLocalPal: Boolean;
+    TransIndex: Integer;
+    BackIndex: Integer;
+  end;
+var
+  Header: TGIFHeader;
+  HasGlobalPal: Boolean;
+  GlobalPalLength: Integer;
+  GlobalPal: TPalette32Size256;
+  ScreenWidth, ScreenHeight, I, CachedIndex: Integer;
+  BlockID: Byte;
+  HasGraphicExt: Boolean;
+  GraphicExt: TGraphicControlExtension;
+  FrameInfos: array of TFrameInfo;
+  AppRead: Boolean;
+  CachedFrame: TImageData;
+  AnimFrames: TDynImageDataArray;
+
+  function ReadBlockID: Byte;
+  begin
+    Result := GIFTrailer;
+    if GetIO.Read(Handle, @Result, SizeOf(Result)) < SizeOf(Result) then
+      Result := GIFTrailer;
+  end;
+
+  procedure ReadExtensions;
+  var
+    BlockSize, BlockType, ExtType: Byte;
+    AppRec: TGIFApplicationRec;
+    LoopCount: SmallInt;
+
+    procedure SkipBytes;
+    begin
+      with GetIO do
+      repeat
+        // Read block sizes and skip them
+        Read(Handle, @BlockSize, SizeOf(BlockSize));
+        Seek(Handle, BlockSize, smFromCurrent);
+      until BlockSize = 0;
+    end;
+
+  begin
+    HasGraphicExt := False;
+    AppRead := False;
+
+    // Read extensions until image descriptor is found. Only graphic extension
+    // is stored now (for transparency), others are skipped.
+    while BlockID = GIFExtensionIntroducer do
+    with GetIO do
+    begin
+      Read(Handle, @ExtType, SizeOf(ExtType));
+
+      while ExtType in [GIFGraphicControlExtension, GIFCommentExtension, GIFApplicationExtension, GIFPlainText] do
+      begin
+        if ExtType = GIFGraphicControlExtension then
+        begin
+          HasGraphicExt := True;
+          Read(Handle, @GraphicExt, SizeOf(GraphicExt));
+        end
+        else if (ExtType = GIFApplicationExtension) and not AppRead then
+        begin
+          Read(Handle, @BlockSize, SizeOf(BlockSize));
+          if BlockSize >= SizeOf(AppRec) then
+          begin
+            Read(Handle, @AppRec, SizeOf(AppRec));
+            if ((AppRec.Identifier = 'NETSCAPE') and (AppRec.Authentication = '2.0')) or
+              ((AppRec.Identifier = 'ANIMEXTS') and (AppRec.Authentication = '1.0')) then
+            begin
+              Read(Handle, @BlockSize, SizeOf(BlockSize));
+              while BlockSize <> 0 do
+              begin
+                BlockType := ReadBlockID;
+                Dec(BlockSize);
+
+                case BlockType of
+                  GIFAppLoopExtension:
+                    if (BlockSize >= SizeOf(LoopCount)) then
+                    begin
+                      // Read loop count
+                      Read(Handle, @LoopCount, SizeOf(LoopCount));
+                      Dec(BlockSize, SizeOf(LoopCount));
+                      if LoopCount > 0 then
+                        Inc(LoopCount); // Netscape extension is really "repeats" not "loops"
+                      FMetadata.SetMetaItem(SMetaAnimationLoops, LoopCount);
+                    end;
+                  GIFAppBufferExtension:
+                    begin
+                      Dec(BlockSize, SizeOf(Word));
+                      Seek(Handle, SizeOf(Word), smFromCurrent);
+                    end;
+                end;
+              end;
+              SkipBytes;
+              AppRead := True;
+            end
+            else
+              begin
+                // Revert all bytes reading
+                Seek(Handle, - SizeOf(AppRec) - SizeOf(BlockSize), smFromCurrent);
+                SkipBytes;
+              end;
+          end
+          else
+            begin
+              Seek(Handle, - BlockSize - SizeOf(BlockSize), smFromCurrent);
+              SkipBytes;
+            end;
+        end
+        else if ExtType in [GIFCommentExtension, GIFApplicationExtension, GIFPlainText] then
+        repeat
+          // Read block sizes and skip them
+          Read(Handle, @BlockSize, SizeOf(BlockSize));
+          Seek(Handle, BlockSize, smFromCurrent);
+        until BlockSize = 0;
+
+        // Read ID of following block
+        BlockID := ReadBlockID;
+        ExtType := BlockID;
+      end
+    end;
+  end;
+
+  procedure CopyLZWData(Dest: TStream);
+  var
+    CodeSize, BlockSize: Byte;
+    InputSize: Integer;
+    Buff: array[Byte] of Byte;
+  begin
+    InputSize := ImagingIO.GetInputSize(GetIO, Handle);
+    // Copy codesize to stream
+    GetIO.Read(Handle, @CodeSize, 1);
+    Dest.Write(CodeSize, 1);
+    repeat
+      // Read and write data blocks, last is block term value of 0
+      GetIO.Read(Handle, @BlockSize, 1);
+      Dest.Write(BlockSize, 1);
+      if BlockSize > 0 then
+      begin
+        GetIO.Read(Handle, @Buff[0], BlockSize);
+        Dest.Write(Buff[0], BlockSize);
+      end;
+    until (BlockSize = 0) or (GetIO.Tell(Handle) >= InputSize);
+  end;
+
+  procedure ReadFrame;
+  var
+    ImageDesc: TImageDescriptor;
+    Interlaced: Boolean;
+    I, Idx, LocalPalLength: Integer;
+    LocalPal: TPalette32Size256;
+    LZWStream: TMemoryStream;
+
+    procedure RemoveBadFrame;
+    begin
+      FreeImage(Images[Idx]);
+      SetLength(Images, Length(Images) - 1);
+    end;
+
+  begin
+    Idx := Length(Images);
+    SetLength(Images, Idx + 1);
+    SetLength(FrameInfos, Idx + 1);
+    FillChar(LocalPal, SizeOf(LocalPal), 0);
+
+    with GetIO do
+    begin
+      // Read and parse image descriptor
+      Read(Handle, @ImageDesc, SizeOf(ImageDesc));
+      FrameInfos[Idx].HasLocalPal := (ImageDesc.PackedFields and GIFLocalColorTable) = GIFLocalColorTable;
+      Interlaced := (ImageDesc.PackedFields and GIFInterlaced) = GIFInterlaced;
+      LocalPalLength := ImageDesc.PackedFields and GIFColorTableSize;
+      LocalPalLength := 1 shl (LocalPalLength + 1);   // Total pal length is 2^(n+1)
+
+      // From Mozilla source
+      if (ImageDesc.Width = 0) or (ImageDesc.Width > Header.ScreenWidth) then
+        ImageDesc.Width := Header.ScreenWidth;
+      if (ImageDesc.Height = 0) or (ImageDesc.Height > Header.ScreenHeight)  then
+        ImageDesc.Height := Header.ScreenHeight;
+
+      FrameInfos[Idx].Left := ImageDesc.Left;
+      FrameInfos[Idx].Top := ImageDesc.Top;
+      FrameInfos[Idx].Width := ImageDesc.Width;
+      FrameInfos[Idx].Height := ImageDesc.Height;
+      FrameInfos[Idx].BackIndex := Header.BackgroundColorIndex;
+
+      // Create new image for this frame which would be later pasted onto logical screen
+      NewImage(ImageDesc.Width, ImageDesc.Height, ifIndex8, Images[Idx]);
+
+      // Load local palette if there is any
+      if FrameInfos[Idx].HasLocalPal then
+        for I := 0 to LocalPalLength - 1 do
+        begin
+          LocalPal[I].A := 255;
+          Read(Handle, @LocalPal[I].R, SizeOf(LocalPal[I].R));
+          Read(Handle, @LocalPal[I].G, SizeOf(LocalPal[I].G));
+          Read(Handle, @LocalPal[I].B, SizeOf(LocalPal[I].B));
+        end;
+
+      // Use local pal if present or global pal if present or create
+      // default pal if neither of them is present
+      if FrameInfos[Idx].HasLocalPal then
+        Move(LocalPal, Images[Idx].Palette^, SizeOf(LocalPal))
+      else if HasGlobalPal then
+        Move(GlobalPal, Images[Idx].Palette^, SizeOf(GlobalPal))
+      else
+        FillCustomPalette(Images[Idx].Palette, GlobalPalLength, 3, 3, 2);
+
+      if (ImageDesc.Left <= Header.ScreenWidth + 1) and (ImageDesc.Top <= Header.ScreenHeight + 1) then
+      begin
+        // Resize the screen if needed to fit the frame
+        ScreenWidth := Max(ScreenWidth, ImageDesc.Width + ImageDesc.Left);
+        ScreenHeight := Max(ScreenHeight, ImageDesc.Height + ImageDesc.Top);
+      end
+      else
+      begin
+        // Remove frame outside logical screen
+        RemoveBadFrame;
+        Exit;
+      end;
+
+      // If Grahic Control Extension is present make use of it
+      if HasGraphicExt then
+      begin
+        FrameInfos[Idx].HasTransparency := (GraphicExt.PackedFields and GIFTransparent) = GIFTransparent;
+        FrameInfos[Idx].Disposal := TDisposalMethod((GraphicExt.PackedFields and GIFDisposalMethod) shr 2);
+        if FrameInfos[Idx].HasTransparency then
+        begin
+          FrameInfos[Idx].TransIndex := GraphicExt.TransparentColorIndex;
+          Images[Idx].Palette[FrameInfos[Idx].TransIndex].A := 0;
+        end;
+        FMetadata.SetMetaItem(SMetaFrameDelay, Integer(GraphicExt.DelayTime * 10), Idx);
+      end
+      else
+        FrameInfos[Idx].HasTransparency := False;
+
+      LZWStream := TMemoryStream.Create;
+      try
+        try
+          // Copy LZW data to temp stream, needed for correct decompression
+          CopyLZWData(LZWStream);
+          LZWStream.Position := 0;
+          // Data decompression finally
+          LZWDecompress(LZWStream, Handle, ImageDesc.Width, ImageDesc.Height, Interlaced, Images[Idx].Bits);
+        except
+          RemoveBadFrame;
+          Exit;
+        end;
+      finally
+        LZWStream.Free;
+      end;
+    end;
+  end;
+
+  procedure CopyFrameTransparent32(const Image, Frame: TImageData; Left, Top: Integer);
+  var
+    X, Y: Integer;
+    Src: PByte;
+    Dst: PColor32;
+  begin
+    Src := Frame.Bits;
+
+    // Copy all pixels from frame to log screen but ignore the transparent ones
+    for Y := 0 to Frame.Height - 1 do
+    begin
+      Dst := @PColor32RecArray(Image.Bits)[(Top + Y) * Image.Width + Left];
+      for X := 0 to Frame.Width - 1 do
+      begin
+        if (Frame.Palette[Src^].A <> 0) then
+          Dst^ := Frame.Palette[Src^].Color;
+        Inc(Src);
+        Inc(Dst);
+      end;
+    end;
+  end;
+
+  procedure AnimateFrame(Index: Integer; var AnimFrame: TImageData);
+  var
+    I, First, Last: Integer;
+    UseCache: Boolean;
+    BGColor: TColor32;
+  begin
+    // We may need to use raw frame 0 to n to correctly animate n-th frame
+    Last := Index;
+    First := Max(0, Last);
+    // See if we can use last animate frame as a basis for this one
+    // (so we don't have to use previous raw frames).
+    UseCache := TestImage(CachedFrame) and (CachedIndex = Index - 1) and (CachedIndex >= 0) and
+      (FrameInfos[CachedIndex].Disposal <> dmRestorePrevious);
+
+    // Reuse or release cache
+    if UseCache then
+      CloneImage(CachedFrame, AnimFrame)
+    else
+      FreeImage(CachedFrame);
+
+    // Default color for clearing of the screen
+    BGColor := Images[Index].Palette[FrameInfos[Index].BackIndex].Color;
+
+    // Now prepare logical screen for drawing of raw frame at Index.
+    // We may need to use all previous raw frames to get the screen
+    // to proper state (according to their disposal methods).
+
+    if not UseCache then
+    begin
+      if FrameInfos[Index].HasTransparency then
+        BGColor := Images[Index].Palette[FrameInfos[Index].TransIndex].Color;
+      // Clear whole screen
+      FillMemoryLongWord(AnimFrame.Bits, AnimFrame.Size, BGColor);
+
+      // Try to maximize First so we don't have to use all 0 to n raw frames
+      while First > 0 do
+      begin
+        if (ScreenWidth = Images[First].Width) and (ScreenHeight = Images[First].Height) then
+        begin
+          if (FrameInfos[First].Disposal = dmRestoreBackground) and (First < Last) then
+            Break;
+        end;
+        Dec(First);
+      end;
+
+      for I := First to Last - 1 do
+      begin
+        case FrameInfos[I].Disposal of
+          dmNoRemoval, dmLeave:
+            begin
+              // Copy previous raw frame  onto screen
+              CopyFrameTransparent32(AnimFrame, Images[I], FrameInfos[I].Left, FrameInfos[I].Top);
+            end;
+          dmRestoreBackground:
+            if (I > First) then
+            begin
+              // Restore background color
+              FillRect(AnimFrame, FrameInfos[I].Left, FrameInfos[I].Top,
+                FrameInfos[I].Width, FrameInfos[I].Height, @BGColor);
+            end;
+          dmRestorePrevious: ; // Do nothing - previous state is already on screen
+        end;
+      end;
+    end
+    else if FrameInfos[CachedIndex].Disposal = dmRestoreBackground then
+    begin
+      // We have our cached result but also need to restore
+      // background in a place of cached frame
+      if FrameInfos[CachedIndex].HasTransparency then
+        BGColor := Images[CachedIndex].Palette[FrameInfos[CachedIndex].TransIndex].Color;
+      FillRect(AnimFrame, FrameInfos[CachedIndex].Left, FrameInfos[CachedIndex].Top,
+        FrameInfos[CachedIndex].Width, FrameInfos[CachedIndex].Height, @BGColor);
+    end;
+
+    // Copy current raw frame to prepared screen
+    CopyFrameTransparent32(AnimFrame, Images[Index], FrameInfos[Index].Left, FrameInfos[Index].Top);
+
+    // Cache animated result
+    CloneImage(AnimFrame, CachedFrame);
+    CachedIndex := Index;
+  end;
+
+begin
+  AppRead := False;
+
+  SetLength(Images, 0);
+  FillChar(GlobalPal, SizeOf(GlobalPal), 0);
+
+  with GetIO do
+  begin
+    // Read GIF header
+    Read(Handle, @Header, SizeOf(Header));
+    ScreenWidth := Header.ScreenWidth;
+    ScreenHeight := Header.ScreenHeight;
+    HasGlobalPal := Header.PackedFields and GIFGlobalColorTable = GIFGlobalColorTable; // Bit 7
+    GlobalPalLength := Header.PackedFields and GIFColorTableSize; // Bits 0-2
+    GlobalPalLength := 1 shl (GlobalPalLength + 1);   // Total pal length is 2^(n+1)
+
+    // Read global palette from file if present
+    if HasGlobalPal then
+    begin
+      for I := 0 to GlobalPalLength - 1 do
+      begin
+        GlobalPal[I].A := 255;
+        Read(Handle, @GlobalPal[I].R, SizeOf(GlobalPal[I].R));
+        Read(Handle, @GlobalPal[I].G, SizeOf(GlobalPal[I].G));
+        Read(Handle, @GlobalPal[I].B, SizeOf(GlobalPal[I].B));
+      end;
+    end;
+
+    // Read ID of the first block
+    BlockID := ReadBlockID;
+
+    // Now read all data blocks in the file until file trailer is reached
+    while BlockID <> GIFTrailer do
+    begin
+      // Read blocks until we find the one of known type
+      while not (BlockID in [GIFTrailer, GIFExtensionIntroducer, GIFImageDescriptor]) do
+        BlockID := ReadBlockID;
+      // Read supported and skip unsupported extensions
+      ReadExtensions;
+      // If image frame is found read it
+      if BlockID = GIFImageDescriptor then
+        ReadFrame;
+      // Read next block's ID
+      BlockID := ReadBlockID;
+      // If block ID is unknown set it to end-of-GIF marker
+      if not (BlockID in [GIFExtensionIntroducer, GIFTrailer, GIFImageDescriptor]) then
+        BlockID := GIFTrailer;
+    end;
+
+    if FLoadAnimated then
+    begin
+      // Aniated frames will be stored in AnimFrames
+      SetLength(AnimFrames, Length(Images));
+      InitImage(CachedFrame);
+      CachedIndex := -1;
+
+      for I := 0 to High(Images) do
+      begin
+        // Create new logical screen
+        NewImage(ScreenWidth, ScreenHeight, ifA8R8G8B8, AnimFrames[I]);
+        // Animate frames to current log screen
+        AnimateFrame(I, AnimFrames[I]);
+      end;
+
+      // Now release raw 8bit frames and put animated 32bit ones
+      // to output array
+      FreeImage(CachedFrame);
+      for I := 0 to High(AnimFrames) do
+      begin
+        FreeImage(Images[I]);
+        Images[I] := AnimFrames[I];
+      end;
+    end;
+
+    Result := True;
+  end;
+end;
+
+function TGIFFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+var
+  Header: TGIFHeader;
+  ImageDesc: TImageDescriptor;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+  I, J: Integer;
+  GraphicExt: TGraphicControlExtension;
+
+  procedure FindMaxDimensions(var MaxWidth, MaxHeight: Word);
+  var
+    I: Integer;
+  begin
+    MaxWidth := Images[FFirstIdx].Width;
+    MaxHeight := Images[FFirstIdx].Height;
+
+    for I := FFirstIdx + 1 to FLastIdx do
+    begin
+      MaxWidth := Iff(Images[I].Width > MaxWidth, Images[I].Width, MaxWidth);
+      MaxHeight := Iff(Images[I].Height > MaxWidth, Images[I].Height, MaxHeight);
+    end;
+  end;
+
+  procedure SetFrameDelay(Idx: Integer; var Ext: TGraphicControlExtension);
+  begin
+    if FMetadata.HasMetaItemForSaving(SMetaFrameDelay, Idx) then
+      Ext.DelayTime := FMetadata.MetaItemsForSavingMulti[SMetaFrameDelay, Idx] div 10
+    else
+      Ext.DelayTime := GIFDefaultDelay;
+  end;
+
+  procedure SaveGlobalMetadata;
+  var
+    AppExt: TGIFApplicationRec;
+    BlockSize, LoopExtId: Byte;
+    Repeats: Word;
+  begin
+    if FMetadata.HasMetaItemForSaving(SMetaAnimationLoops) then
+    with GetIO do
+    begin
+      FillChar(AppExt, SizeOf(AppExt), 0);
+      AppExt.Identifier := 'NETSCAPE';
+      AppExt.Authentication := '2.0';
+      Repeats := FMetadata.MetaItemsForSaving[SMetaAnimationLoops];
+      if Repeats > 0 then
+        Dec(Repeats);
+      LoopExtId := GIFAppLoopExtension;
+
+      Write(Handle, @GIFExtensionIntroducer, SizeOf(GIFExtensionIntroducer));
+      Write(Handle, @GIFApplicationExtension, SizeOf(GIFApplicationExtension));
+      BlockSize := 11;
+      Write(Handle, @BlockSize, SizeOf(BlockSize));
+      Write(Handle, @AppExt, SizeOf(AppExt));
+      BlockSize := 3;
+      Write(Handle, @BlockSize, SizeOf(BlockSize));
+      Write(Handle, @LoopExtId, SizeOf(LoopExtId));
+      Write(Handle, @Repeats, SizeOf(Repeats));
+      Write(Handle, @GIFBlockTerminator, SizeOf(GIFBlockTerminator));
+    end;
+  end;
+
+begin
+  // Fill header with data, select size of largest image in array as
+  // logical screen size
+  FillChar(Header, Sizeof(Header), 0);
+  Header.Signature := GIFSignature;
+  Header.Version := GIFVersions[gv89];
+  FindMaxDimensions(Header.ScreenWidth, Header.ScreenHeight);
+  Header.PackedFields := GIFColorResolution; // Color resolution is 256
+  GetIO.Write(Handle, @Header, SizeOf(Header));
+
+  // Prepare default GC extension with delay
+  FillChar(GraphicExt, Sizeof(GraphicExt), 0);
+  GraphicExt.DelayTime := GIFDefaultDelay;
+  GraphicExt.BlockSize := 4;
+
+  SaveGlobalMetadata;
+
+  for I := FFirstIdx to FLastIdx do
+  begin
+    if MakeCompatible(Images[I], ImageToSave, MustBeFreed) then
+    with GetIO, ImageToSave do
+    try
+      // Write Graphic Control Extension with default delay
+      Write(Handle, @GIFExtensionIntroducer, SizeOf(GIFExtensionIntroducer));
+      Write(Handle, @GIFGraphicControlExtension, SizeOf(GIFGraphicControlExtension));
+      SetFrameDelay(I, GraphicExt);
+      Write(Handle, @GraphicExt, SizeOf(GraphicExt));
+      // Write frame marker and fill and write image descriptor for this frame
+      Write(Handle, @GIFImageDescriptor, SizeOf(GIFImageDescriptor));
+      FillChar(ImageDesc, Sizeof(ImageDesc), 0);
+      ImageDesc.Width := Width;
+      ImageDesc.Height := Height;
+      ImageDesc.PackedFields := GIFLocalColorTable or GIFColorTableSize; // Use lccal color table with 256 entries
+      Write(Handle, @ImageDesc, SizeOf(ImageDesc));
+
+      // Write local color table for each frame
+      for J := 0 to 255 do
+      begin
+        Write(Handle, @Palette[J].R, SizeOf(Palette[J].R));
+        Write(Handle, @Palette[J].G, SizeOf(Palette[J].G));
+        Write(Handle, @Palette[J].B, SizeOf(Palette[J].B));
+      end;
+
+      // Finally compress image data
+      LZWCompress(GetIO, Handle, Width, Height, 8, False, Bits);
+
+    finally
+      if MustBeFreed then
+        FreeImage(ImageToSave);
+    end;
+  end;
+
+  GetIO.Write(Handle, @GIFTrailer, SizeOf(GIFTrailer));
+  Result := True;
+end;
+
+procedure TGIFFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+  ConvertImage(Image, ifIndex8);
+end;
+
+function TGIFFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Header: TGIFHeader;
+  ReadCount: Integer;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @Header, SizeOf(Header));
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount >= SizeOf(Header)) and
+      (Header.Signature = GIFSignature) and
+      ((Header.Version = GIFVersions[gv87]) or (Header.Version = GIFVersions[gv89]));
+  end;
+end;
+
+initialization
+  RegisterImageFileFormat(TGIFFileFormat);
+
+{
+  File Notes:
+
+ -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77 Changes/Bug Fixes -----------------------------------
+    - Fixed crash when resaving GIF with animation metadata.
+    - Writes frame delays of GIF animations from metadata.
+    - Reads and writes looping of GIF animations stored into/from metadata.
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Reads frame delays from GIF animations into metadata.
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Fixed bug - loading of GIF with NETSCAPE app extensions
+      failed with Delphi 2009.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - GIF loading and animation mostly rewritten, based on
+      modification by Sergey Galezdinov (ExtraGIF in Extras/Contrib).
+
+  -- 0.25.0 Changes/Bug Fixes ---------------------------------
+    - Fixed loading of some rare GIFs, problems with LZW
+      decompression.
+
+  -- 0.24.3 Changes/Bug Fixes ---------------------------------
+    - Better solution to transparency for some GIFs. Background not
+      transparent by default.
+
+  -- 0.24.1 Changes/Bug Fixes ---------------------------------
+    - Made backround color transparent by default (alpha = 0).
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Fixed other loading bugs (local pal size, transparency).
+    - Added GIF saving.
+    - Fixed bug when loading multiframe GIFs and implemented few animation
+      features (disposal methods, ...).
+    - Loading of GIFs working.
+    - Unit created with initial stuff!
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingIO.pas b/src/lib/vampimg/ImagingIO.pas

new file mode 100644 (file)

index 0000000..32d2bc2
--- /dev/null
+++ b/src/lib/vampimg/ImagingIO.pas
@@ -0,0 +1,646 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains default IO functions for reading from/writting to
+  files, streams and memory.}
+unit ImagingIO;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, ImagingTypes, Imaging, ImagingUtility;
+
+type
+  TMemoryIORec = record
+    Data: ImagingUtility.PByteArray;
+    Position: LongInt;
+    Size: LongInt;
+  end;
+  PMemoryIORec = ^TMemoryIORec;
+
+var
+  OriginalFileIO: TIOFunctions;
+  FileIO: TIOFunctions;
+  StreamIO: TIOFunctions;
+  MemoryIO: TIOFunctions;
+
+{ Helper function that returns size of input (from current position to the end)
+  represented by Handle (and opened and operated on by members of IOFunctions).}
+function GetInputSize(IOFunctions: TIOFunctions; Handle: TImagingHandle): LongInt;
+{ Helper function that initializes TMemoryIORec with given params.}
+function PrepareMemIO(Data: Pointer; Size: LongInt): TMemoryIORec;
+{ Reads one text line from input (CR+LF, CR, or LF as line delimiter).}
+function ReadLine(IOFunctions: TIOFunctions; Handle: TImagingHandle;
+  out Line: AnsiString; FailOnControlChars: Boolean = False): Boolean;
+{ Writes one text line to input with optional line delimiter.}
+procedure WriteLine(IOFunctions: TIOFunctions; Handle: TImagingHandle;
+  const Line: AnsiString; const LineEnding: AnsiString = sLineBreak);
+
+implementation
+
+const
+  DefaultBufferSize = 16 * 1024;
+
+type
+  { Based on TaaBufferedStream
+    Copyright (c) Julian M Bucknall 1997, 1999 }
+  TBufferedStream = class
+  private
+    FBuffer: PByteArray;
+    FBufSize: Integer;
+    FBufStart: Integer;
+    FBufPos: Integer;
+    FBytesInBuf: Integer;
+    FSize: Integer;
+    FDirty: Boolean;
+    FStream: TStream;
+    function GetPosition: Integer;
+    function GetSize: Integer;
+    procedure ReadBuffer;
+    procedure WriteBuffer;
+    procedure SetPosition(const Value: Integer);
+  public
+    constructor Create(AStream: TStream);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Integer): Integer;
+    function Write(const Buffer; Count: Integer): Integer;
+    function Seek(Offset: Integer; Origin: Word): Integer;
+    procedure Commit;
+    property Stream: TStream read FStream;
+    property Position: Integer read GetPosition write SetPosition;
+    property Size: Integer read GetSize;
+  end;
+
+constructor TBufferedStream.Create(AStream: TStream);
+begin
+  inherited Create;
+  FStream := AStream;
+  FBufSize := DefaultBufferSize;
+  GetMem(FBuffer, FBufSize);
+  FBufPos := 0;
+  FBytesInBuf := 0;
+  FBufStart := 0;
+  FDirty := False;
+  FSize := AStream.Size;
+end;
+
+destructor TBufferedStream.Destroy;
+begin
+  if FBuffer <> nil then
+  begin
+    Commit;
+    FreeMem(FBuffer);
+  end;
+  FStream.Position := Position; // Make sure source stream has right position
+  inherited Destroy;
+end;
+
+function TBufferedStream.GetPosition: Integer;
+begin
+  Result := FBufStart + FBufPos;
+end;
+
+procedure TBufferedStream.SetPosition(const Value: Integer);
+begin
+  Seek(Value, soFromCurrent);
+end;
+
+function TBufferedStream.GetSize: Integer;
+begin
+  Result := FSize;
+end;
+
+procedure TBufferedStream.ReadBuffer;
+var
+  SeekResult: Integer;
+begin
+  SeekResult := FStream.Seek(FBufStart, 0);
+  if SeekResult = -1 then
+    raise Exception.Create('TBufferedStream.ReadBuffer: seek failed');
+  FBytesInBuf := FStream.Read(FBuffer^, FBufSize);
+  if FBytesInBuf <= 0 then
+    raise Exception.Create('TBufferedStream.ReadBuffer: read failed');
+end;
+
+procedure TBufferedStream.WriteBuffer;
+var
+  SeekResult: Integer;
+  BytesWritten: Integer;
+begin
+  SeekResult := FStream.Seek(FBufStart, 0);
+  if SeekResult = -1 then
+    raise Exception.Create('TBufferedStream.WriteBuffer: seek failed');
+  BytesWritten := FStream.Write(FBuffer^, FBytesInBuf);
+  if BytesWritten <> FBytesInBuf then
+    raise Exception.Create('TBufferedStream.WriteBuffer: write failed');
+end;
+
+procedure TBufferedStream.Commit;
+begin
+  if FDirty then
+  begin
+    WriteBuffer;
+    FDirty := False;
+  end;
+end;
+
+function TBufferedStream.Read(var Buffer; Count: Integer): Integer;
+var
+  BufAsBytes  : TByteArray absolute Buffer;
+  BufIdx, BytesToGo, BytesToRead: Integer;
+begin
+  // Calculate the actual number of bytes we can read - this depends on
+  // the current position and size of the stream as well as the number
+  // of bytes requested.
+  BytesToGo := Count;
+  if FSize < (FBufStart + FBufPos + Count) then
+    BytesToGo := FSize - (FBufStart + FBufPos);
+
+  if BytesToGo <= 0 then
+  begin
+    Result := 0;
+    Exit;
+  end;
+  // Remember to return the result of our calculation
+  Result := BytesToGo;
+
+  BufIdx := 0;
+  if FBytesInBuf = 0 then
+    ReadBuffer;
+  // Calculate the number of bytes we can read prior to the loop
+  BytesToRead := FBytesInBuf - FBufPos;
+  if BytesToRead > BytesToGo then
+    BytesToRead := BytesToGo;
+  // Copy from the stream buffer to the caller's buffer
+  Move(FBuffer^[FBufPos], BufAsBytes[BufIdx], BytesToRead);
+  // Calculate the number of bytes still to read}
+  Dec(BytesToGo, BytesToRead);
+
+  // while we have bytes to read, read them
+  while BytesToGo > 0 do
+  begin
+    Inc(BufIdx, BytesToRead);
+    // As we've exhausted this buffer-full, advance to the next, check
+    //  to see whether we need to write the buffer out first
+    if FDirty then
+    begin
+      WriteBuffer;
+      FDirty := false;
+    end;
+    Inc(FBufStart, FBufSize);
+    FBufPos := 0;
+    ReadBuffer;
+    // Calculate the number of bytes we can read in this cycle
+    BytesToRead := FBytesInBuf;
+    if BytesToRead > BytesToGo then
+      BytesToRead := BytesToGo;
+    // Ccopy from the stream buffer to the caller's buffer
+    Move(FBuffer^, BufAsBytes[BufIdx], BytesToRead);
+    // Calculate the number of bytes still to read
+    Dec(BytesToGo, BytesToRead);
+  end;
+  // Remember our new position
+  Inc(FBufPos, BytesToRead);
+  if FBufPos = FBufSize then
+  begin
+    Inc(FBufStart, FBufSize);
+    FBufPos := 0;
+    FBytesInBuf := 0;
+  end;
+end;
+
+function TBufferedStream.Seek(Offset: Integer; Origin: Word): Integer;
+var
+  NewBufStart, NewPos: Integer;
+begin
+  // Calculate the new position
+  case Origin of
+    soFromBeginning : NewPos := Offset;
+    soFromCurrent   : NewPos := FBufStart + FBufPos + Offset;
+    soFromEnd       : NewPos := FSize + Offset;
+  else
+    raise Exception.Create('TBufferedStream.Seek: invalid origin');
+  end;
+
+  if (NewPos < 0) or (NewPos > FSize) then
+  begin
+    //NewPos := ClampInt(NewPos, 0, FSize); don't do this - for writing
+  end;
+  // Calculate which page of the file we need to be at
+  NewBufStart := NewPos and not Pred(FBufSize);
+  // If the new page is different than the old, mark the buffer as being
+  // ready to be replenished, and if need be write out any dirty data
+  if NewBufStart <> FBufStart then
+  begin
+    if FDirty then
+    begin
+      WriteBuffer;
+      FDirty := False;
+    end;
+    FBufStart := NewBufStart;
+    FBytesInBuf := 0;
+  end;
+  // Save the new position
+  FBufPos := NewPos - NewBufStart;
+  Result := NewPos;
+end;
+
+function TBufferedStream.Write(const Buffer; Count: Integer): Integer;
+var
+  BufAsBytes: TByteArray absolute Buffer;
+  BufIdx, BytesToGo, BytesToWrite: Integer;
+begin
+  // When we write to this stream we always assume that we can write the
+  // requested number of bytes: if we can't (eg, the disk is full) we'll
+  // get an exception somewhere eventually.
+  BytesToGo := Count;
+  // Remember to return the result of our calculation
+  Result := BytesToGo;
+
+  BufIdx := 0;
+  if (FBytesInBuf = 0) and (FSize > FBufStart) then
+    ReadBuffer;
+  // Calculate the number of bytes we can write prior to the loop
+  BytesToWrite := FBufSize - FBufPos;
+  if BytesToWrite > BytesToGo then
+    BytesToWrite := BytesToGo;
+  // Copy from the caller's buffer to the stream buffer
+  Move(BufAsBytes[BufIdx], FBuffer^[FBufPos], BytesToWrite);
+  // Mark our stream buffer as requiring a save to the actual stream,
+  // note that this will suffice for the rest of the routine as well: no
+  // inner routine will turn off the dirty flag.
+  FDirty := True;
+  // Calculate the number of bytes still to write
+  Dec(BytesToGo, BytesToWrite);
+
+  // While we have bytes to write, write them
+  while BytesToGo > 0 do
+  begin
+    Inc(BufIdx, BytesToWrite);
+    // As we've filled this buffer, write it out to the actual stream
+    // and advance to the next buffer, reading it if required
+    FBytesInBuf := FBufSize;
+    WriteBuffer;
+    Inc(FBufStart, FBufSize);
+    FBufPos := 0;
+    FBytesInBuf := 0;
+    if FSize > FBufStart then
+      ReadBuffer;
+    // Calculate the number of bytes we can write in this cycle
+    BytesToWrite := FBufSize;
+    if BytesToWrite > BytesToGo then
+      BytesToWrite := BytesToGo;
+    // Copy from the caller's buffer to our buffer
+    Move(BufAsBytes[BufIdx], FBuffer^, BytesToWrite);
+    // Calculate the number of bytes still to write
+    Dec(BytesToGo, BytesToWrite);
+  end;
+  // Remember our new position
+  Inc(FBufPos, BytesToWrite);
+  // Make sure the count of valid bytes is correct
+  if FBytesInBuf < FBufPos then
+    FBytesInBuf := FBufPos;
+  // Make sure the stream size is correct
+  if FSize < (FBufStart + FBytesInBuf) then
+    FSize := FBufStart + FBytesInBuf;
+  // If we're at the end of the buffer, write it out and advance to the
+  // start of the next page
+  if FBufPos = FBufSize then
+  begin
+    WriteBuffer;
+    FDirty := False;
+    Inc(FBufStart, FBufSize);
+    FBufPos := 0;
+    FBytesInBuf := 0;
+  end;
+end;
+
+{ File IO functions }
+
+function FileOpen(FileName: PChar; Mode: TOpenMode): TImagingHandle; cdecl;
+var
+  Stream: TStream;
+begin
+  Stream := nil;
+
+  case Mode of
+    omReadOnly:  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
+    omCreate:    Stream := TFileStream.Create(FileName, fmCreate);
+    omReadWrite:
+      begin
+        if FileExists(FileName) then
+          Stream := TFileStream.Create(FileName, fmOpenReadWrite or fmShareExclusive)
+        else
+          Stream := TFileStream.Create(FileName, fmCreate);
+      end;
+  end;
+
+  Assert(Stream <> nil);
+  Result := TBufferedStream.Create(Stream);
+end;
+
+procedure FileClose(Handle: TImagingHandle); cdecl;
+var
+  Stream: TStream;
+begin
+  Stream := TBufferedStream(Handle).Stream;
+  TBufferedStream(Handle).Free;
+  Stream.Free;
+end;
+
+function FileEof(Handle: TImagingHandle): Boolean; cdecl;
+begin
+  Result := TBufferedStream(Handle).Position = TBufferedStream(Handle).Size;
+end;
+
+function FileSeek(Handle: TImagingHandle; Offset: LongInt; Mode: TSeekMode):
+  LongInt; cdecl;
+begin
+  Result := TBufferedStream(Handle).Seek(Offset, LongInt(Mode));
+end;
+
+function FileTell(Handle: TImagingHandle): LongInt; cdecl;
+begin
+  Result := TBufferedStream(Handle).Position;
+end;
+
+function FileRead(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+begin
+  Result := TBufferedStream(Handle).Read(Buffer^, Count);
+end;
+
+function FileWrite(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+begin
+  Result := TBufferedStream(Handle).Write(Buffer^, Count);
+end;
+
+{ Stream IO functions }
+
+function StreamOpen(FileName: PChar; Mode: TOpenMode): TImagingHandle; cdecl;
+begin
+  Result := FileName;
+end;
+
+procedure StreamClose(Handle: TImagingHandle); cdecl;
+begin
+end;
+
+function StreamEof(Handle: TImagingHandle): Boolean; cdecl;
+begin
+  Result := TStream(Handle).Position = TStream(Handle).Size;
+end;
+
+function StreamSeek(Handle: TImagingHandle; Offset: LongInt; Mode: TSeekMode):
+  LongInt; cdecl;
+begin
+  Result := TStream(Handle).Seek(Offset, LongInt(Mode));
+end;
+
+function StreamTell(Handle: TImagingHandle): LongInt; cdecl;
+begin
+  Result := TStream(Handle).Position;
+end;
+
+function StreamRead(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+begin
+  Result := TStream(Handle).Read(Buffer^, Count);
+end;
+
+function StreamWrite(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+begin
+  Result := TStream(Handle).Write(Buffer^, Count);
+end;
+
+{ Memory IO functions }
+
+function MemoryOpen(FileName: PChar; Mode: TOpenMode): TImagingHandle; cdecl;
+begin
+  Result := FileName;
+end;
+
+procedure MemoryClose(Handle: TImagingHandle); cdecl;
+begin
+end;
+
+function MemoryEof(Handle: TImagingHandle): Boolean; cdecl;
+begin
+  Result := PMemoryIORec(Handle).Position = PMemoryIORec(Handle).Size;
+end;
+
+function MemorySeek(Handle: TImagingHandle; Offset: LongInt; Mode: TSeekMode):
+  LongInt; cdecl;
+begin
+  Result := PMemoryIORec(Handle).Position;
+  case Mode of
+    smFromBeginning: Result := Offset;
+    smFromCurrent:   Result := PMemoryIORec(Handle).Position + Offset;
+    smFromEnd:       Result := PMemoryIORec(Handle).Size + Offset;
+  end;
+  //Result := ClampInt(Result, 0, PMemoryIORec(Handle).Size); don't do this - some file formats use it
+  PMemoryIORec(Handle).Position := Result;
+end;
+
+function MemoryTell(Handle: TImagingHandle): LongInt; cdecl;
+begin
+  Result := PMemoryIORec(Handle).Position;
+end;
+
+function MemoryRead(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+var
+  Rec: PMemoryIORec;
+begin
+  Rec := PMemoryIORec(Handle);
+  Result := Count;
+  if Rec.Position + Count > Rec.Size then
+    Result := Rec.Size - Rec.Position;
+  Move(Rec.Data[Rec.Position], Buffer^, Result);
+  Rec.Position := Rec.Position + Result;
+end;
+
+function MemoryWrite(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt):
+  LongInt; cdecl;
+var
+  Rec: PMemoryIORec;
+begin
+  Rec := PMemoryIORec(Handle);
+  Result := Count;
+  if Rec.Position + Count > Rec.Size then
+    Result := Rec.Size - Rec.Position;
+  Move(Buffer^, Rec.Data[Rec.Position], Result);
+  Rec.Position := Rec.Position + Result;
+end;
+
+{ Helper IO functions }
+
+function GetInputSize(IOFunctions: TIOFunctions; Handle: TImagingHandle): LongInt;
+var
+  OldPos: Int64;
+begin
+  OldPos := IOFunctions.Tell(Handle);
+  IOFunctions.Seek(Handle, 0, smFromEnd);
+  Result := IOFunctions.Tell(Handle);
+  IOFunctions.Seek(Handle, OldPos, smFromBeginning);
+end;
+
+function PrepareMemIO(Data: Pointer; Size: LongInt): TMemoryIORec;
+begin
+  Result.Data := Data;
+  Result.Position := 0;
+  Result.Size := Size;
+end;
+
+function ReadLine(IOFunctions: TIOFunctions; Handle: TImagingHandle;
+  out Line: AnsiString; FailOnControlChars: Boolean): Boolean;
+const
+  MaxLine = 1024;
+var
+  EolPos, Pos: Integer;
+  C: AnsiChar;
+  EolReached: Boolean;
+  Endings: set of AnsiChar;
+begin
+  Line := '';
+  Pos := 0;
+  EolPos := 0;
+  EolReached := False;
+  Endings := [#10, #13];
+  Result := True;
+
+  while not IOFunctions.Eof(Handle) do
+  begin
+    IOFunctions.Read(Handle, @C, SizeOf(C));
+
+    if FailOnControlChars and (Byte(C) < $20) then
+    begin
+      Break;
+    end;
+
+    if not (C in Endings) then
+    begin
+      if EolReached then
+      begin
+        IOFunctions.Seek(Handle, EolPos, smFromBeginning);
+        Exit;
+      end
+      else
+      begin
+        SetLength(Line, Length(Line) + 1);
+        Line[Length(Line)] := C;
+      end;
+    end
+    else if not EolReached then
+    begin
+      EolReached := True;
+      EolPos := IOFunctions.Tell(Handle);
+    end;
+
+    Inc(Pos);
+    if Pos >= MaxLine then
+    begin
+      Break;
+    end;
+  end;
+
+  Result := False;
+  IOFunctions.Seek(Handle, -Pos, smFromCurrent);
+end;
+
+procedure WriteLine(IOFunctions: TIOFunctions; Handle: TImagingHandle;
+  const Line: AnsiString; const LineEnding: AnsiString);
+var
+  ToWrite: AnsiString;
+begin
+  ToWrite := Line + LineEnding;
+  IOFunctions.Write(Handle, @ToWrite[1], Length(ToWrite));
+end;
+
+initialization
+  OriginalFileIO.Open := FileOpen;
+  OriginalFileIO.Close := FileClose;
+  OriginalFileIO.Eof := FileEof;
+  OriginalFileIO.Seek := FileSeek;
+  OriginalFileIO.Tell := FileTell;
+  OriginalFileIO.Read := FileRead;
+  OriginalFileIO.Write := FileWrite;
+
+  StreamIO.Open := StreamOpen;
+  StreamIO.Close := StreamClose;
+  StreamIO.Eof := StreamEof;
+  StreamIO.Seek := StreamSeek;
+  StreamIO.Tell := StreamTell;
+  StreamIO.Read := StreamRead;
+  StreamIO.Write := StreamWrite;
+
+  MemoryIO.Open := MemoryOpen;
+  MemoryIO.Close := MemoryClose;
+  MemoryIO.Eof := MemoryEof;
+  MemoryIO.Seek := MemorySeek;
+  MemoryIO.Tell := MemoryTell;
+  MemoryIO.Read := MemoryRead;
+  MemoryIO.Write := MemoryWrite;
+
+  ResetFileIO;
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ---------------------------------------------------
+   - Updated IO Open functions according to changes in ImagingTypes.
+   - Added ReadLine and WriteLine functions.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added merge between buffered read-only and write-only file
+      stream adapters - TIFF saving needed both reading and writing.
+    - Fixed bug causing wrong value of TBufferedWriteFile.Size
+      (needed to add buffer pos to size).
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Removed TMemoryIORec.Written, use Position to get proper memory
+      position (Written didn't take Seeks into account).
+    - Added TBufferedReadFile and TBufferedWriteFile classes for
+      buffered file reading/writting. File IO functions now use these
+      classes resulting in performance increase mainly in file formats
+      that read/write many small chunks.
+    - Added fmShareDenyWrite to FileOpenRead. You can now read
+      files opened for reading by Imaging from other apps.
+    - Added GetInputSize and PrepareMemIO helper functions.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - changed behaviour of MemorySeek to act as TStream
+      based Seeks
+}
+end.
diff --git a/src/lib/vampimg/ImagingJpeg.pas b/src/lib/vampimg/ImagingJpeg.pas

new file mode 100644 (file)

index 0000000..ef9a5e7
--- /dev/null
+++ b/src/lib/vampimg/ImagingJpeg.pas
@@ -0,0 +1,768 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for Jpeg images.}
+unit ImagingJpeg;
+
+{$I ImagingOptions.inc}
+
+{ You can choose which Pascal JpegLib implementation will be used.
+  IMJPEGLIB is version bundled with Imaging which works with all supported
+  compilers and platforms.
+  PASJPEG is original JpegLib translation or version modified for FPC
+  (and shipped with it). You can use PASJPEG if this version is already
+  linked with another part of your program and you don't want to have
+  two quite large almost the same libraries linked to your exe.
+  This is the case with Lazarus applications for example.}
+
+{$DEFINE IMJPEGLIB}
+{ $DEFINE PASJPEG}
+
+{ Automatically use FPC's PasJpeg when compiling with Lazarus. But not when
+  WINDOWS is defined. See http://galfar.vevb.net/imaging/smf/index.php/topic,90.0.html.
+  Fixed in FPC revision 13963: http://bugs.freepascal.org/view.php?id=14928 }
+{$IF Defined(LCL) and not Defined(WINDOWS)}
+  {$UNDEF IMJPEGLIB}
+  {$DEFINE PASJPEG}
+{$IFEND}
+
+{ We usually want to skip the rest of the corrupted file when loading JEPG files
+  instead of getting exception. JpegLib's error handler can only be
+  exited using setjmp/longjmp ("non-local goto") functions to get error
+  recovery when loading corrupted JPEG files. This is implemented in assembler
+  and currently available only for 32bit Delphi targets and FPC.}
+{$DEFINE ErrorJmpRecovery}
+{$IF Defined(DCC) and not Defined(CPUX86)}
+  {$UNDEF ErrorJmpRecovery}
+{$IFEND}
+
+interface
+
+uses
+  SysUtils, ImagingTypes, Imaging, ImagingColors,
+{$IF Defined(IMJPEGLIB)}
+  imjpeglib, imjmorecfg, imjcomapi, imjdapimin, imjdeferr, imjerror,
+  imjdapistd, imjcapimin, imjcapistd, imjdmarker, imjcparam,
+{$ELSEIF Defined(PASJPEG)}
+  jpeglib, jmorecfg, jcomapi, jdapimin, jdeferr, jerror,
+  jdapistd, jcapimin, jcapistd, jdmarker, jcparam,
+{$IFEND}
+  ImagingUtility;
+
+{$IF Defined(FPC) and Defined(PASJPEG)}
+  { When using FPC's pasjpeg in FPC the channel order is BGR instead of RGB}
+  {$DEFINE RGBSWAPPED}
+{$IFEND}
+
+type
+  { Class for loading/saving Jpeg images. Supports load/save of
+    8 bit grayscale and 24 bit RGB images. Jpegs can be saved with optional
+    progressive encoding.
+    Based on IJG's JpegLib so doesn't support alpha channels and lossless
+    coding.}
+  TJpegFileFormat = class(TImageFileFormat)
+  private
+    FGrayScale: Boolean;
+  protected
+    FQuality: LongInt;
+    FProgressive: LongBool;
+    procedure SetJpegIO(const JpegIO: TIOFunctions); virtual;
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+    procedure CheckOptionsValidity; override;
+  published
+    { Controls Jpeg save compression quality. It is number in range 1..100.
+      1 means small/ugly file, 100 means large/nice file. Accessible trough
+      ImagingJpegQuality option.}
+    property Quality: LongInt read FQuality write FQuality;
+    { If True Jpeg images are saved in progressive format. Accessible trough
+      ImagingJpegProgressive option.}
+    property Progressive: LongBool read FProgressive write FProgressive;
+  end;
+
+implementation
+
+const
+  SJpegFormatName = 'Joint Photographic Experts Group Image';
+  SJpegMasks      = '*.jpg,*.jpeg,*.jfif,*.jpe,*.jif';
+  JpegSupportedFormats: TImageFormats = [ifR8G8B8, ifGray8];
+  JpegDefaultQuality = 90;
+  JpegDefaultProgressive = False;
+
+const
+  { Jpeg file identifiers.}
+  JpegMagic: TChar2 = #$FF#$D8;
+  BufferSize = 16384;
+
+resourcestring
+  SJpegError = 'JPEG Error';
+
+type
+  TJpegContext = record
+    case Byte of
+      0: (common: jpeg_common_struct);
+      1: (d: jpeg_decompress_struct);
+      2: (c: jpeg_compress_struct);
+  end;
+
+  TSourceMgr = record
+    Pub: jpeg_source_mgr;
+    Input: TImagingHandle;
+    Buffer: JOCTETPTR;
+    StartOfFile: Boolean;
+  end;
+  PSourceMgr = ^TSourceMgr;
+
+  TDestMgr = record
+    Pub: jpeg_destination_mgr;
+    Output: TImagingHandle;
+    Buffer: JOCTETPTR;
+  end;
+  PDestMgr = ^TDestMgr;
+
+var
+  JIO: TIOFunctions;
+  JpegErrorMgr: jpeg_error_mgr;
+
+{ Intenal unit jpeglib support functions }
+
+{$IFDEF ErrorJmpRecovery}
+  {$IFDEF DCC}
+  type
+    jmp_buf = record
+      EBX,
+      ESI,
+      EDI,
+      ESP,
+      EBP,
+      EIP: LongWord;
+    end;
+    pjmp_buf = ^jmp_buf;
+
+  { JmpLib SetJmp/LongJmp Library
+    (C)Copyright 2003, 2004 Will DeWitt Jr. <edge@boink.net> }
+  function  SetJmp(out jmpb: jmp_buf): Integer;
+  asm
+  {     ->  EAX     jmpb   }
+  {     <-  EAX     Result }
+            MOV     EDX, [ESP]  // Fetch return address (EIP)
+            // Save task state
+            MOV     [EAX+jmp_buf.&EBX], EBX
+            MOV     [EAX+jmp_buf.&ESI], ESI
+            MOV     [EAX+jmp_buf.&EDI], EDI
+            MOV     [EAX+jmp_buf.&ESP], ESP
+            MOV     [EAX+jmp_buf.&EBP], EBP
+            MOV     [EAX+jmp_buf.&EIP], EDX
+
+            SUB     EAX, EAX
+  @@1:
+  end;
+
+  procedure LongJmp(const jmpb: jmp_buf; retval: Integer);
+  asm
+  {     ->  EAX     jmpb   }
+  {         EDX     retval }
+  {     <-  EAX     Result }
+            XCHG    EDX, EAX
+
+            MOV     ECX, [EDX+jmp_buf.&EIP]
+            // Restore task state
+            MOV     EBX, [EDX+jmp_buf.&EBX]
+            MOV     ESI, [EDX+jmp_buf.&ESI]
+            MOV     EDI, [EDX+jmp_buf.&EDI]
+            MOV     ESP, [EDX+jmp_buf.&ESP]
+            MOV     EBP, [EDX+jmp_buf.&EBP]
+            MOV     [ESP], ECX  // Restore return address (EIP)
+
+            TEST    EAX, EAX    // Ensure retval is <> 0
+            JNZ     @@1
+            MOV     EAX, 1
+  @@1:
+  end;
+  {$ENDIF}
+
+type
+  TJmpBuf = jmp_buf;
+  TErrorClientData = record
+    JmpBuf: TJmpBuf;
+    ScanlineReadReached: Boolean;
+  end;
+  PErrorClientData = ^TErrorClientData;
+{$ENDIF}
+
+procedure JpegError(CInfo: j_common_ptr);
+
+  procedure RaiseError;
+  var
+    Buffer: AnsiString;
+  begin
+    // Create the message and raise exception
+    CInfo.err.format_message(CInfo, Buffer);
+    // Warning: you can get "Invalid argument index in format" exception when
+    // using FPC (see http://bugs.freepascal.org/view.php?id=21229).
+    // Fixed in FPC 2.7.1
+  {$IF Defined(FPC) and (FPC_FULLVERSION <= 20701)}
+    raise EImagingError.CreateFmt(SJPEGError + ' %d', [CInfo.err.msg_code]);
+  {$ELSE}
+    raise EImagingError.CreateFmt(SJPEGError + ' %d: ' + string(Buffer), [CInfo.err.msg_code]);
+  {$IFEND}
+  end;
+
+begin
+{$IFDEF ErrorJmpRecovery}
+  // Only recovers on loads and when header is sucessfully loaded
+  // (error occurs when reading scanlines)
+  if (CInfo.client_data <> nil) and
+    PErrorClientData(CInfo.client_data).ScanlineReadReached then
+  begin
+    // Non-local jump to error handler in TJpegFileFormat.LoadData
+    longjmp(PErrorClientData(CInfo.client_data).JmpBuf, 1)
+  end
+  else
+    RaiseError;
+{$ELSE}
+  RaiseError;
+{$ENDIF}
+end;
+
+procedure OutputMessage(CurInfo: j_common_ptr);
+begin
+end;
+
+procedure ReleaseContext(var jc: TJpegContext);
+begin
+  if jc.common.err = nil then
+    Exit;
+  jpeg_destroy(@jc.common);
+  jpeg_destroy_decompress(@jc.d);
+  jpeg_destroy_compress(@jc.c);
+  jc.common.err := nil;
+end;
+
+procedure InitSource(cinfo: j_decompress_ptr);
+begin
+  PSourceMgr(cinfo.src).StartOfFile := True;
+end;
+
+function FillInputBuffer(cinfo: j_decompress_ptr): Boolean;
+var
+  NBytes: LongInt;
+  Src: PSourceMgr;
+begin
+  Src := PSourceMgr(cinfo.src);
+  NBytes := JIO.Read(Src.Input, Src.Buffer, BufferSize);
+
+  if NBytes <= 0 then
+  begin
+    PByteArray(Src.Buffer)[0] := $FF;
+    PByteArray(Src.Buffer)[1] := JPEG_EOI;
+    NBytes := 2;
+  end;
+  Src.Pub.next_input_byte := Src.Buffer;
+  Src.Pub.bytes_in_buffer := NBytes;
+  Src.StartOfFile := False;
+  Result := True;
+end;
+
+procedure SkipInputData(cinfo: j_decompress_ptr; num_bytes: LongInt);
+var
+  Src: PSourceMgr;
+begin
+  Src := PSourceMgr(cinfo.src);
+  if num_bytes > 0 then
+  begin
+    while num_bytes > Src.Pub.bytes_in_buffer do
+    begin
+      Dec(num_bytes, Src.Pub.bytes_in_buffer);
+      FillInputBuffer(cinfo);
+    end;
+    Src.Pub.next_input_byte := @PByteArray(Src.Pub.next_input_byte)[num_bytes];
+    //Inc(LongInt(Src.Pub.next_input_byte), num_bytes);
+    Dec(Src.Pub.bytes_in_buffer, num_bytes);
+  end;
+end;
+
+procedure TermSource(cinfo: j_decompress_ptr);
+var
+  Src: PSourceMgr;
+begin
+  Src := PSourceMgr(cinfo.src);
+  // Move stream position back just after EOI marker so that more that one
+  // JPEG images can be loaded from one stream
+  JIO.Seek(Src.Input, -Src.Pub.bytes_in_buffer, smFromCurrent);
+end;
+
+procedure JpegStdioSrc(var cinfo: jpeg_decompress_struct; Handle:
+  TImagingHandle);
+var
+  Src: PSourceMgr;
+begin
+  if cinfo.src = nil then
+  begin
+    cinfo.src := cinfo.mem.alloc_small(j_common_ptr(@cinfo), JPOOL_PERMANENT,
+      SizeOf(TSourceMgr));
+    Src := PSourceMgr(cinfo.src);
+    Src.Buffer := cinfo.mem.alloc_small(j_common_ptr(@cinfo), JPOOL_PERMANENT,
+      BufferSize * SizeOf(JOCTET));
+  end;
+  Src := PSourceMgr(cinfo.src);
+  Src.Pub.init_source := InitSource;
+  Src.Pub.fill_input_buffer := FillInputBuffer;
+  Src.Pub.skip_input_data := SkipInputData;
+  Src.Pub.resync_to_restart := jpeg_resync_to_restart;
+  Src.Pub.term_source := TermSource;
+  Src.Input := Handle;
+  Src.Pub.bytes_in_buffer := 0;
+  Src.Pub.next_input_byte := nil;
+end;
+
+procedure InitDest(cinfo: j_compress_ptr);
+var
+  Dest: PDestMgr;
+begin
+  Dest := PDestMgr(cinfo.dest);
+  Dest.Pub.next_output_byte := Dest.Buffer;
+  Dest.Pub.free_in_buffer := BufferSize;
+end;
+
+function EmptyOutput(cinfo: j_compress_ptr): Boolean;
+var
+  Dest: PDestMgr;
+begin
+  Dest := PDestMgr(cinfo.dest);
+  JIO.Write(Dest.Output, Dest.Buffer, BufferSize);
+  Dest.Pub.next_output_byte := Dest.Buffer;
+  Dest.Pub.free_in_buffer := BufferSize;
+  Result := True;
+end;
+
+procedure TermDest(cinfo: j_compress_ptr);
+var
+  Dest: PDestMgr;
+  DataCount: LongInt;
+begin
+  Dest := PDestMgr(cinfo.dest);
+  DataCount := BufferSize - Dest.Pub.free_in_buffer;
+  if DataCount > 0 then
+    JIO.Write(Dest.Output, Dest.Buffer, DataCount);
+end;
+
+procedure JpegStdioDest(var cinfo: jpeg_compress_struct; Handle:
+  TImagingHandle);
+var
+  Dest: PDestMgr;
+begin
+  if cinfo.dest = nil then
+    cinfo.dest := cinfo.mem.alloc_small(j_common_ptr(@cinfo),
+      JPOOL_PERMANENT, SizeOf(TDestMgr));
+  Dest := PDestMgr(cinfo.dest);
+  Dest.Buffer := cinfo.mem.alloc_small(j_common_ptr(@cinfo), JPOOL_IMAGE,
+    BufferSize * SIZEOF(JOCTET));
+  Dest.Pub.init_destination := InitDest;
+  Dest.Pub.empty_output_buffer := EmptyOutput;
+  Dest.Pub.term_destination := TermDest;
+  Dest.Output := Handle;
+end;
+
+procedure SetupErrorMgr(var jc: TJpegContext);
+begin
+  // Set standard error handlers and then override some
+  jc.common.err := jpeg_std_error(JpegErrorMgr);
+  jc.common.err.error_exit := JpegError;
+  jc.common.err.output_message := OutputMessage;
+end;
+
+procedure InitDecompressor(Handle: TImagingHandle; var jc: TJpegContext);
+begin
+  jpeg_CreateDecompress(@jc.d, JPEG_LIB_VERSION, sizeof(jc.d));
+  JpegStdioSrc(jc.d, Handle);
+  jpeg_read_header(@jc.d, True);
+  jc.d.scale_num := 1;
+  jc.d.scale_denom := 1;
+  jc.d.do_block_smoothing := True;
+  if jc.d.out_color_space = JCS_GRAYSCALE then
+  begin
+    jc.d.quantize_colors := True;
+    jc.d.desired_number_of_colors := 256;
+  end;
+end;
+
+procedure InitCompressor(Handle: TImagingHandle; var jc: TJpegContext;
+  Saver: TJpegFileFormat);
+begin
+  jpeg_CreateCompress(@jc.c, JPEG_LIB_VERSION, sizeof(jc.c));
+  JpegStdioDest(jc.c, Handle);
+  if Saver.FGrayScale then
+    jc.c.in_color_space := JCS_GRAYSCALE
+  else
+    jc.c.in_color_space := JCS_RGB;
+  jpeg_set_defaults(@jc.c);
+  jpeg_set_quality(@jc.c, Saver.FQuality, True);
+  if Saver.FProgressive then
+    jpeg_simple_progression(@jc.c);
+end;
+
+{ TJpegFileFormat class implementation }
+
+procedure TJpegFileFormat.Define;
+begin
+  FName := SJpegFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := JpegSupportedFormats;
+
+  FQuality := JpegDefaultQuality;
+  FProgressive := JpegDefaultProgressive;
+
+  AddMasks(SJpegMasks);
+  RegisterOption(ImagingJpegQuality, @FQuality);
+  RegisterOption(ImagingJpegProgressive, @FProgressive);
+end;
+
+procedure TJpegFileFormat.CheckOptionsValidity;
+begin
+  // Check if option values are valid
+  if not (FQuality in [1..100]) then
+    FQuality := JpegDefaultQuality;
+end;
+
+function TJpegFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  PtrInc, LinesPerCall, LinesRead, I: Integer;
+  Dest: PByte;
+  jc: TJpegContext;
+  Info: TImageFormatInfo;
+  Col32: PColor32Rec;
+  NeedsRedBlueSwap: Boolean;
+  Pix: PColor24Rec;
+{$IFDEF ErrorJmpRecovery}
+  ErrorClient: TErrorClientData;
+{$ENDIF}
+
+  procedure LoadMetaData;
+  var
+    XDensity, YDensity: Single;
+    ResUnit: TResolutionUnit;
+  begin
+    // Density unit: 0 - undef, 1 - inch, 2 - cm
+    if jc.d.saw_JFIF_marker and (jc.d.density_unit > 0) and
+      (jc.d.X_density > 0) and (jc.d.Y_density > 0) then
+    begin
+      XDensity := jc.d.X_density;
+      YDensity := jc.d.Y_density;
+      ResUnit := ruDpi;
+      if jc.d.density_unit = 2 then
+        ResUnit := ruDpcm;
+      FMetadata.SetPhysicalPixelSize(ResUnit, XDensity, YDensity);
+    end;
+  end;
+
+begin
+  // Copy IO functions to global var used in JpegLib callbacks
+  Result := False;
+  SetJpegIO(GetIO);
+  SetLength(Images, 1);
+
+  with JIO, Images[0] do
+  try
+    ZeroMemory(@jc, SizeOf(jc));
+    SetupErrorMgr(jc);
+  {$IFDEF ErrorJmpRecovery}
+    ZeroMemory(@ErrorClient, SizeOf(ErrorClient));
+    jc.common.client_data := @ErrorClient;
+    if setjmp(ErrorClient.JmpBuf) <> 0 then
+    begin
+      Result := True;
+      Exit;
+    end;
+  {$ENDIF}
+    InitDecompressor(Handle, jc);
+
+    case jc.d.out_color_space of
+      JCS_GRAYSCALE: Format := ifGray8;
+      JCS_RGB:       Format := ifR8G8B8;
+      JCS_CMYK:      Format := ifA8R8G8B8;
+    else
+      Exit;
+    end;
+
+    NewImage(jc.d.image_width, jc.d.image_height, Format, Images[0]);
+    jpeg_start_decompress(@jc.d);
+    GetImageFormatInfo(Format, Info);
+    PtrInc := Width * Info.BytesPerPixel;
+    LinesPerCall := 1;
+    Dest := Bits;
+
+    // If Jpeg's colorspace is RGB and not YCbCr we need to swap
+    // R and B to get Imaging's native order
+    NeedsRedBlueSwap := jc.d.jpeg_color_space = JCS_RGB;
+  {$IFDEF RGBSWAPPED}
+    // Force R-B swap for FPC's PasJpeg
+    NeedsRedBlueSwap := True;
+  {$ENDIF}
+
+  {$IFDEF ErrorJmpRecovery}
+    ErrorClient.ScanlineReadReached := True;
+  {$ENDIF}
+
+    while jc.d.output_scanline < jc.d.output_height do
+    begin
+      LinesRead := jpeg_read_scanlines(@jc.d, @Dest, LinesPerCall);
+      if NeedsRedBlueSwap and (Format = ifR8G8B8) then
+      begin
+        Pix := PColor24Rec(Dest);
+        for I := 0 to Width - 1 do
+        begin
+          SwapValues(Pix.R, Pix.B);
+          Inc(Pix);
+        end;
+      end;
+      Inc(Dest, PtrInc * LinesRead);
+    end;
+
+    if jc.d.out_color_space = JCS_CMYK then
+    begin
+      Col32 := Bits;
+      // Translate from CMYK to RGB
+      for I := 0 to Width * Height - 1 do
+      begin
+        CMYKToRGB(255 - Col32.B, 255 - Col32.G, 255 - Col32.R, 255 - Col32.A,
+          Col32.R, Col32.G, Col32.B);
+        Col32.A := 255;
+        Inc(Col32);
+      end;
+    end;
+
+    // Store supported metadata
+    LoadMetaData;
+
+    jpeg_finish_output(@jc.d);
+    jpeg_finish_decompress(@jc.d);
+    Result := True;
+  finally
+    ReleaseContext(jc);
+  end;
+end;
+
+function TJpegFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  PtrInc, LinesWritten: LongInt;
+  Src, Line: PByte;
+  jc: TJpegContext;
+  ImageToSave: TImageData;
+  Info: TImageFormatInfo;
+  MustBeFreed: Boolean;
+{$IFDEF RGBSWAPPED}
+  I: LongInt;
+  Pix: PColor24Rec;
+{$ENDIF}
+
+  procedure SaveMetaData;
+  var
+    XRes, YRes: Single;
+  begin
+    if FMetadata.GetPhysicalPixelSize(ruDpcm, XRes, YRes, True) then
+    begin
+      jc.c.density_unit := 2; // Dots per cm
+      jc.c.X_density := Round(XRes);
+      jc.c.Y_density := Round(YRes)
+    end;
+  end;
+
+begin
+  Result := False;
+  // Copy IO functions to global var used in JpegLib callbacks
+  SetJpegIO(GetIO);
+
+  // Makes image to save compatible with Jpeg saving capabilities
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with JIO, ImageToSave do
+  try
+    ZeroMemory(@jc, SizeOf(jc));
+    SetupErrorMgr(jc);
+
+    GetImageFormatInfo(Format, Info);
+    FGrayScale := Format = ifGray8;
+    InitCompressor(Handle, jc, Self);
+    jc.c.image_width := Width;
+    jc.c.image_height := Height;
+    if FGrayScale then
+    begin
+      jc.c.input_components := 1;
+      jc.c.in_color_space := JCS_GRAYSCALE;
+    end
+    else
+    begin
+      jc.c.input_components := 3;
+      jc.c.in_color_space := JCS_RGB;
+    end;
+
+    PtrInc := Width * Info.BytesPerPixel;
+    Src := Bits;
+
+  {$IFDEF RGBSWAPPED}
+    GetMem(Line, PtrInc);
+  {$ENDIF}
+
+    // Save supported metadata
+    SaveMetaData;
+
+    jpeg_start_compress(@jc.c, True);
+    while (jc.c.next_scanline < jc.c.image_height) do
+    begin
+    {$IFDEF RGBSWAPPED}
+      if Format = ifR8G8B8 then
+      begin
+        Move(Src^, Line^, PtrInc);
+        Pix := PColor24Rec(Line);
+        for I := 0 to Width - 1 do
+        begin
+          SwapValues(Pix.R, Pix.B);
+          Inc(Pix, 1);
+        end;
+      end;
+    {$ELSE}
+      Line := Src;
+    {$ENDIF}
+
+      LinesWritten := jpeg_write_scanlines(@jc.c, @Line, 1);
+      Inc(Src, PtrInc * LinesWritten);
+    end;
+
+    jpeg_finish_compress(@jc.c);
+    Result := True;
+  finally
+    ReleaseContext(jc);
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  {$IFDEF RGBSWAPPED}
+    FreeMem(Line);
+  {$ENDIF}
+  end;
+end;
+
+procedure TJpegFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+  if Info.HasGrayChannel then
+    ConvertImage(Image, ifGray8)
+  else
+    ConvertImage(Image, ifR8G8B8);
+end;
+
+function TJpegFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  ReadCount: LongInt;
+  ID: array[0..9] of AnsiChar;
+begin
+  Result := False;
+  if Handle <> nil then
+  with GetIO do
+  begin
+    FillChar(ID, SizeOf(ID), 0);
+    ReadCount := Read(Handle, @ID, SizeOf(ID));
+    Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount = SizeOf(ID)) and
+      CompareMem(@ID, @JpegMagic, SizeOf(JpegMagic));
+  end;
+end;
+
+procedure TJpegFileFormat.SetJpegIO(const JpegIO: TIOFunctions);
+begin
+  JIO := JpegIO;
+end;
+
+initialization
+  RegisterImageFileFormat(TJpegFileFormat);
+
+{
+  File Notes:
+
+ -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ---------------------------------------------------
+    - Able to read corrupted JPEG files - loads partial image
+      and skips the corrupted parts (FPC and x86 Delphi).
+    - Fixed reading of physical resolution metadata, could cause
+      "divided by zero" later on for some files.
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Fixed loading of some JPEGs with certain APPN markers (bug in JpegLib).
+    - Fixed swapped Red-Blue order when loading Jpegs with
+      jc.d.jpeg_color_space = JCS_RGB.
+    - Added loading and saving of physical pixel size metadata.
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Changed the Jpeg error manager, messages were not properly formated.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - Fixed wrong color space setting in InitCompressor.
+    - Fixed problem with progressive Jpegs in FPC (modified JpegLib,
+      can't use FPC's PasJpeg in Windows).
+
+  -- 0.25.0 Changes/Bug Fixes ---------------------------------
+    - FPC's PasJpeg wasn't really used in last version, fixed.
+
+  -- 0.24.1 Changes/Bug Fixes ---------------------------------
+    - Fixed loading of CMYK jpeg images. Could cause heap corruption
+      and loaded image looked wrong.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Removed JFIF/EXIF detection from TestFormat. Found JPEGs
+      with different headers (Lavc) which weren't recognized.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - MakeCompatible method moved to base class, put ConvertToSupported here.
+      GetSupportedFormats removed, it is now set in constructor.
+    - Made public properties for options registered to SetOption/GetOption
+      functions.
+    - Changed extensions to filename masks.
+    - Changed SaveData, LoadData, and MakeCompatible methods according
+      to changes in base class in Imaging unit.
+    - Changes in TestFormat, now reads JFIF and EXIF signatures too.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - input position is now set correctly to the end of the image
+      after loading is done. Loading of sequence of JPEG files stored in
+      single stream works now
+    - when loading and saving images in FPC with PASJPEG read and
+      blue channels are swapped to have the same chanel order as IMJPEGLIB
+    - you can now choose between IMJPEGLIB and PASJPEG implementations
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - added SetJpegIO method which is used by JNG image format
+}
+end.
diff --git a/src/lib/vampimg/ImagingNetworkGraphics.pas b/src/lib/vampimg/ImagingNetworkGraphics.pas

new file mode 100644 (file)

index 0000000..364cbcf
--- /dev/null
+++ b/src/lib/vampimg/ImagingNetworkGraphics.pas
@@ -0,0 +1,2695 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loaders/savers for Network Graphics image
+  file formats PNG, MNG, and JNG.}
+unit ImagingNetworkGraphics;
+
+interface
+
+{$I ImagingOptions.inc}
+
+{ If MNG support is enabled we must make sure PNG and JNG are enabled too.}
+{$IFNDEF DONT_LINK_MNG}
+  {$UNDEF DONT_LINK_PNG}
+  {$UNDEF DONT_LINK_JNG}
+{$ENDIF}
+
+uses
+  Types, SysUtils, Classes, ImagingTypes, Imaging, ImagingUtility, ImagingFormats, dzlib;
+
+type
+  { Basic class for Network Graphics file formats loaders/savers.}
+  TNetworkGraphicsFileFormat = class(TImageFileFormat)
+  protected
+    FSignature: TChar8;
+    FPreFilter: LongInt;
+    FCompressLevel: LongInt;
+    FLossyCompression: LongBool;
+    FLossyAlpha: LongBool;
+    FQuality: LongInt;
+    FProgressive: LongBool;
+    FZLibStategy: Integer;
+    function GetSupportedFormats: TImageFormats; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+    procedure Define; override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+    procedure CheckOptionsValidity; override;
+  published
+    { Sets precompression filter used when saving images with lossless compression.
+      Allowed values are: 0 (none), 1 (sub), 2 (up), 3 (average), 4 (paeth),
+      5 (use 0 for indexed/gray images and 4 for RGB/ARGB images),
+      6 (adaptive filtering - use best filter for each scanline - very slow).
+      Note that filters 3 and 4 are much slower than filters 1 and 2.
+      Default value is 5.}
+    property PreFilter: LongInt read FPreFilter write FPreFilter;
+    { Sets ZLib compression level used when saving images with lossless compression.
+      Allowed values are in range 0 (no compresstion) to 9 (best compression).
+      Default value is 5.}
+    property CompressLevel: LongInt read FCompressLevel write FCompressLevel;
+    { Specifies whether MNG animation frames are saved with lossy or lossless
+      compression. Lossless frames are saved as PNG images and lossy frames are
+      saved as JNG images. Allowed values are 0 (False) and 1 (True).
+      Default value is 0.}
+    property LossyCompression: LongBool read FLossyCompression write FLossyCompression;
+    { Defines whether alpha channel of lossy MNG frames or JNG images
+      is lossy compressed too. Allowed values are 0 (False) and 1 (True).
+      Default value is 0.}
+    property LossyAlpha: LongBool read FLossyAlpha write FLossyAlpha;
+    { Specifies compression quality used when saving lossy MNG frames or JNG images.
+      For details look at ImagingJpegQuality option.}
+    property Quality: LongInt read FQuality write FQuality;
+    { Specifies whether images are saved in progressive format when saving lossy
+      MNG frames or JNG images. For details look at ImagingJpegProgressive.}
+    property Progressive: LongBool read FProgressive write FProgressive;
+  end;
+
+  { Class for loading Portable Network Graphics Images.
+    Loads all types of this image format (all images in png test suite)
+    and saves all types with bitcount >= 8 (non-interlaced only).
+    Compression level and  filtering can be set by options interface.
+
+    Supported ancillary chunks (loading):
+    tRNS, bKGD
+    (for indexed images transparency contains alpha values for palette,
+    RGB/Gray images with transparency are converted to formats with alpha
+    and pixels with transparent color are replaced with background color
+    with alpha = 0).}
+  TPNGFileFormat = class(TNetworkGraphicsFileFormat)
+  private
+    FLoadAnimated: LongBool;
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+  published
+    property LoadAnimated: LongBool read FLoadAnimated write FLoadAnimated;
+  end;
+
+{$IFNDEF DONT_LINK_MNG}
+  { Class for loading Multiple Network Graphics files.
+    This format has complex animation capabilities but Imaging only
+    extracts frames. Individual frames are stored as standard PNG or JNG
+    images. Loads all types of these frames stored in IHDR-IEND and
+    JHDR-IEND streams (Note that there are MNG chunks
+    like BASI which define images but does not contain image data itself,
+    those are ignored).
+    Imaging saves MNG files as MNG-VLC (very low complexity) so it is basicaly
+    an array of image frames without MNG animation chunks. Frames can be saved
+    as lossless PNG or lossy JNG images (look at TPNGFileFormat and
+    TJNGFileFormat for info). Every frame can be in different data format.
+
+    Many frame compression settings can be modified by options interface.}
+  TMNGFileFormat = class(TNetworkGraphicsFileFormat)
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+  end;
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JNG}
+  { Class for loading JPEG Network Graphics Images.
+    Loads all types of this image format (all images in jng test suite)
+    and saves all types except 12 bit JPEGs.
+    Alpha channel in JNG images is stored separately from color/gray data and
+    can be lossy (as JPEG image) or lossless (as PNG image) compressed.
+    Type of alpha compression, compression level and quality,
+    and filtering can be set by options interface.
+
+    Supported ancillary chunks (loading):
+    tRNS, bKGD
+    (Images with transparency are converted to formats with alpha
+    and pixels with transparent color are replaced with background color
+    with alpha = 0).}
+  TJNGFileFormat = class(TNetworkGraphicsFileFormat)
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+  end;
+{$ENDIF}
+
+
+implementation
+
+uses
+{$IFNDEF DONT_LINK_JNG}
+  ImagingJpeg, ImagingIO,
+{$ENDIF}
+  ImagingCanvases;
+
+const
+  NGDefaultPreFilter = 5;
+  NGDefaultCompressLevel = 5;
+  NGDefaultLossyAlpha = False;
+  NGDefaultLossyCompression = False;
+  NGDefaultProgressive = False;
+  NGDefaultQuality = 90;
+  NGLosslessFormats: TImageFormats = [ifIndex8, ifGray8, ifA8Gray8, ifGray16,
+    ifA16Gray16, ifR8G8B8, ifA8R8G8B8, ifR16G16B16, ifA16R16G16B16, ifB16G16R16,
+    ifA16B16G16R16, ifBinary];
+  NGLossyFormats: TImageFormats = [ifGray8, ifA8Gray8, ifR8G8B8, ifA8R8G8B8];
+  PNGDefaultLoadAnimated = True;
+  NGDefaultZLibStartegy = 1; // Z_FILTERED
+
+  SPNGFormatName = 'Portable Network Graphics';
+  SPNGMasks      = '*.png';
+  SMNGFormatName = 'Multiple Network Graphics';
+  SMNGMasks      = '*.mng';
+  SJNGFormatName = 'JPEG Network Graphics';
+  SJNGMasks      = '*.jng';
+
+resourcestring
+  SErrorLoadingChunk = 'Error when reading %s chunk data. File may be corrupted.';
+
+type
+  { Chunk header.}
+  TChunkHeader = packed record
+    DataSize: LongWord;
+    ChunkID: TChar4;
+  end;
+
+  { IHDR chunk format - PNG header.}
+  TIHDR = packed record
+    Width: LongWord;              // Image width
+    Height: LongWord;             // Image height
+    BitDepth: Byte;               // Bits per pixel or bits per sample (for truecolor)
+    ColorType: Byte;              // 0 = grayscale, 2 = truecolor, 3 = palette,
+                                  // 4 = gray + alpha, 6 = truecolor + alpha
+    Compression: Byte;            // Compression type:  0 = ZLib
+    Filter: Byte;                 // Used precompress filter
+    Interlacing: Byte;            // Used interlacing: 0 = no int, 1 = Adam7
+  end;
+  PIHDR = ^TIHDR;
+
+  { MHDR chunk format - MNG header.}
+  TMHDR = packed record
+    FrameWidth: LongWord;         // Frame width
+    FrameHeight: LongWord;        // Frame height
+    TicksPerSecond: LongWord;     // FPS of animation
+    NominalLayerCount: LongWord;  // Number of layers in file
+    NominalFrameCount: LongWord;  // Number of frames in file
+    NominalPlayTime: LongWord;    // Play time of animation in ticks
+    SimplicityProfile: LongWord;  // Defines which MNG features are used in this file
+  end;
+  PMHDR = ^TMHDR;
+
+  { JHDR chunk format - JNG header.}
+  TJHDR = packed record
+    Width: LongWord;              // Image width
+    Height: LongWord;             // Image height
+    ColorType: Byte;              // 8 = grayscale (Y), 10 = color (YCbCr),
+                                  // 12 = gray + alpha (Y-alpha), 14 = color + alpha (YCbCr-alpha)
+    SampleDepth: Byte;            // 8, 12 or 20 (8 and 12 samples together) bit
+    Compression: Byte;            // Compression type:  8 = Huffman coding
+    Interlacing: Byte;            // 0 = single scan, 8 = progressive
+    AlphaSampleDepth: Byte;       // 0, 1, 2, 4, 8, 16 if alpha compression is 0 (PNG)
+                                  // 8 if alpha compression is 8 (JNG)
+    AlphaCompression: Byte;       // 0 = PNG graysscale IDAT, 8 = grayscale 8-bit JPEG
+    AlphaFilter: Byte;            // 0 = PNG filter or no filter (JPEG)
+    AlphaInterlacing: Byte;       // 0 = non interlaced
+  end;
+  PJHDR = ^TJHDR;
+
+  { acTL chunk format - APNG animation control.}
+  TacTL = packed record
+    NumFrames: LongWord;          // Number of frames
+    NumPlay: LongWord;            // Number of times to loop the animation (0 = inf)
+  end;
+  PacTL =^TacTL;
+
+  { fcTL chunk format - APNG frame control.}
+  TfcTL = packed record
+    SeqNumber: LongWord;          // Sequence number of the animation chunk, starting from 0
+    Width: LongWord;              // Width of the following frame
+    Height: LongWord;             // Height of the following frame
+    XOffset: LongWord;            // X position at which to render the following frame
+    YOffset: LongWord;            // Y position at which to render the following frame
+    DelayNumer: Word;             // Frame delay fraction numerator
+    DelayDenom: Word;             // Frame delay fraction denominator
+    DisposeOp: Byte;              // Type of frame area disposal to be done after rendering this frame
+    BlendOp: Byte;                // Type of frame area rendering for this frame
+  end;
+  PfcTL = ^TfcTL;
+
+  { pHYs chunk format - encodes the absolute or relative dimensions of pixels.}
+  TpHYs = packed record
+    PixelsPerUnitX: LongWord;
+    PixelsPerUnitY: LongWord;
+    UnitSpecifier: Byte;
+  end;
+  PpHYs = ^TpHYs;
+
+const
+  { PNG file identifier.}
+  PNGSignature: TChar8 = #$89'PNG'#$0D#$0A#$1A#$0A;
+  { MNG file identifier.}
+  MNGSignature: TChar8 = #$8A'MNG'#$0D#$0A#$1A#$0A;
+  { JNG file identifier.}
+  JNGSignature: TChar8 = #$8B'JNG'#$0D#$0A#$1A#$0A;
+
+  { Constants for chunk identifiers and signature identifiers.
+    They are in big-endian format.}
+  IHDRChunk: TChar4 = 'IHDR';
+  IENDChunk: TChar4 = 'IEND';
+  MHDRChunk: TChar4 = 'MHDR';
+  MENDChunk: TChar4 = 'MEND';
+  JHDRChunk: TChar4 = 'JHDR';
+  IDATChunk: TChar4 = 'IDAT';
+  JDATChunk: TChar4 = 'JDAT';
+  JDAAChunk: TChar4 = 'JDAA';
+  JSEPChunk: TChar4 = 'JSEP';
+  PLTEChunk: TChar4 = 'PLTE';
+  BACKChunk: TChar4 = 'BACK';
+  DEFIChunk: TChar4 = 'DEFI';
+  TERMChunk: TChar4 = 'TERM';
+  tRNSChunk: TChar4 = 'tRNS';
+  bKGDChunk: TChar4 = 'bKGD';
+  gAMAChunk: TChar4 = 'gAMA';
+  acTLChunk: TChar4 = 'acTL';
+  fcTLChunk: TChar4 = 'fcTL';
+  fdATChunk: TChar4 = 'fdAT';
+  pHYsChunk: TChar4 = 'pHYs';
+
+  { APNG frame dispose operations.}
+  DisposeOpNone       = 0;
+  DisposeOpBackground = 1;
+  DisposeOpPrevious   = 2;
+
+  { APNG frame blending modes}
+  BlendOpSource = 0;
+  BlendOpOver   = 1;
+
+  { Interlace start and offsets.}
+  RowStart: array[0..6] of LongInt = (0, 0, 4, 0, 2, 0, 1);
+  ColumnStart: array[0..6] of LongInt = (0, 4, 0, 2, 0, 1, 0);
+  RowIncrement: array[0..6] of LongInt = (8, 8, 8, 4, 4, 2, 2);
+  ColumnIncrement: array[0..6] of LongInt = (8, 8, 4, 4, 2, 2, 1);
+
+type
+  { Helper class that holds information about MNG frame in PNG or JNG format.}
+  TFrameInfo = class
+  public
+    Index: Integer;
+    FrameWidth, FrameHeight: LongInt;
+    IsJpegFrame: Boolean;
+    IHDR: TIHDR;
+    JHDR: TJHDR;
+    fcTL: TfcTL;
+    pHYs: TpHYs;
+    Palette: PPalette24;
+    PaletteEntries: LongInt;
+    Transparency: Pointer;
+    TransparencySize: LongInt;
+    Background: Pointer;
+    BackgroundSize: LongInt;
+    IDATMemory: TMemoryStream;
+    JDATMemory: TMemoryStream;
+    JDAAMemory: TMemoryStream;
+    constructor Create(AIndex: Integer);
+    destructor Destroy; override;
+    procedure AssignSharedProps(Source: TFrameInfo);
+  end;
+
+  { Defines type of Network Graphics file.}
+  TNGFileType = (ngPNG, ngAPNG, ngMNG, ngJNG);
+
+  TNGFileHandler = class
+  public
+    FileFormat: TNetworkGraphicsFileFormat;
+    FileType: TNGFileType;
+    Frames: array of TFrameInfo;
+    MHDR: TMHDR; // Main header for MNG files
+    acTL: TacTL; // Global anim control for APNG files
+    GlobalPalette: PPalette24;
+    GlobalPaletteEntries: LongInt;
+    GlobalTransparency: Pointer;
+    GlobalTransparencySize: LongInt;
+    constructor Create(AFileFormat: TNetworkGraphicsFileFormat);
+    destructor Destroy; override;
+    procedure Clear;
+    function GetLastFrame: TFrameInfo;
+    function AddFrameInfo: TFrameInfo;
+    procedure LoadMetaData;
+  end;
+
+  { Network Graphics file parser and frame converter.}
+  TNGFileLoader = class(TNGFileHandler)
+  public
+    function LoadFile(Handle: TImagingHandle): Boolean;
+    procedure LoadImageFromPNGFrame(FrameWidth, FrameHeight: LongInt; const IHDR: TIHDR; IDATStream: TMemoryStream; var Image: TImageData);
+{$IFNDEF DONT_LINK_JNG}
+    procedure LoadImageFromJNGFrame(FrameWidth, FrameHeight: LongInt; const JHDR: TJHDR; IDATStream, JDATStream, JDAAStream: TMemoryStream; var Image: TImageData);
+{$ENDIF}
+    procedure ApplyFrameSettings(Frame: TFrameInfo; var Image: TImageData);
+  end;
+
+  TNGFileSaver = class(TNGFileHandler)
+  public
+    PreFilter: LongInt;
+    CompressLevel: LongInt;
+    LossyAlpha: Boolean;
+    Quality: LongInt;
+    Progressive: Boolean;
+    ZLibStrategy: Integer;
+    function SaveFile(Handle: TImagingHandle): Boolean;
+    procedure AddFrame(const Image: TImageData; IsJpegFrame: Boolean);
+    procedure StoreImageToPNGFrame(const IHDR: TIHDR; Bits: Pointer; FmtInfo: TImageFormatInfo; IDATStream: TMemoryStream);
+{$IFNDEF DONT_LINK_JNG}
+    procedure StoreImageToJNGFrame(const JHDR: TJHDR; const Image: TImageData; IDATStream, JDATStream, JDAAStream: TMemoryStream);
+{$ENDIF}
+    procedure SetFileOptions;
+  end;
+
+{$IFNDEF DONT_LINK_JNG}
+  TCustomIOJpegFileFormat = class(TJpegFileFormat)
+  protected
+    FCustomIO: TIOFunctions;
+    procedure SetJpegIO(const JpegIO: TIOFunctions); override;
+    procedure SetCustomIO(const CustomIO: TIOFunctions);
+  end;
+{$ENDIF}
+
+  TAPNGAnimator = class
+  public
+    class procedure Animate(var Images: TDynImageDataArray; const acTL: TacTL; const SrcFrames: array of TFrameInfo);
+  end;
+
+{ Helper routines }
+
+function PaethPredictor(A, B, C: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+var
+  P, PA, PB, PC: LongInt;
+begin
+  P := A + B - C;
+  PA := Abs(P - A);
+  PB := Abs(P - B);
+  PC := Abs(P - C);
+  if (PA <= PB) and (PA <= PC) then
+    Result := A
+  else
+    if PB <= PC then
+      Result := B
+    else
+      Result := C;
+end;
+
+procedure SwapRGB(Line: PByte; Width, SampleDepth, BytesPerPixel: LongInt);
+var
+  I: LongInt;
+  Tmp: Word;
+begin
+  case SampleDepth of
+    8:
+      for I := 0 to Width - 1 do
+      with PColor24Rec(Line)^ do
+      begin
+        Tmp := R;
+        R := B;
+        B := Tmp;
+        Inc(Line, BytesPerPixel);
+      end;
+    16:
+      for I := 0 to Width - 1 do
+      with PColor48Rec(Line)^ do
+      begin
+        Tmp := R;
+        R := B;
+        B := Tmp;
+        Inc(Line, BytesPerPixel);
+      end;
+    end;
+ end;
+
+{$IFNDEF DONT_LINK_JNG}
+
+{ TCustomIOJpegFileFormat class implementation }
+
+procedure TCustomIOJpegFileFormat.SetCustomIO(const CustomIO: TIOFunctions);
+begin
+  FCustomIO := CustomIO;
+end;
+
+procedure TCustomIOJpegFileFormat.SetJpegIO(const JpegIO: TIOFunctions);
+begin
+  inherited SetJpegIO(FCustomIO);
+end;
+
+{$ENDIF}
+
+{ TFrameInfo class implementation }
+
+constructor TFrameInfo.Create(AIndex: Integer);
+begin
+  Index := AIndex;
+  IDATMemory := TMemoryStream.Create;
+  JDATMemory := TMemoryStream.Create;
+  JDAAMemory := TMemoryStream.Create;
+end;
+
+destructor TFrameInfo.Destroy;
+begin
+  FreeMem(Palette);
+  FreeMem(Transparency);
+  FreeMem(Background);
+  IDATMemory.Free;
+  JDATMemory.Free;
+  JDAAMemory.Free;
+  inherited Destroy;
+end;
+
+procedure TFrameInfo.AssignSharedProps(Source: TFrameInfo);
+begin
+  IHDR := Source.IHDR;
+  JHDR := Source.JHDR;
+  PaletteEntries := Source.PaletteEntries;
+  GetMem(Palette, PaletteEntries * SizeOf(TColor24Rec));
+  Move(Source.Palette^, Palette^, PaletteEntries * SizeOf(TColor24Rec));
+  TransparencySize := Source.TransparencySize;
+  GetMem(Transparency, TransparencySize);
+  Move(Source.Transparency^, Transparency^, TransparencySize);
+end;
+
+{ TNGFileHandler class implementation}
+
+destructor TNGFileHandler.Destroy;
+begin
+  Clear;
+  inherited Destroy;
+end;
+
+procedure TNGFileHandler.Clear;
+var
+  I: LongInt;
+begin
+  for I := 0 to Length(Frames) - 1 do
+    Frames[I].Free;
+  SetLength(Frames, 0);
+  FreeMemNil(GlobalPalette);
+  GlobalPaletteEntries := 0;
+  FreeMemNil(GlobalTransparency);
+  GlobalTransparencySize := 0;
+end;
+
+constructor TNGFileHandler.Create(AFileFormat: TNetworkGraphicsFileFormat);
+begin
+  FileFormat := AFileFormat;
+end;
+
+function TNGFileHandler.GetLastFrame: TFrameInfo;
+var
+  Len: LongInt;
+begin
+  Len := Length(Frames);
+  if Len > 0 then
+    Result := Frames[Len - 1]
+  else
+    Result := nil;
+end;
+
+procedure TNGFileHandler.LoadMetaData;
+var
+  I: Integer;
+  Delay, Denom: Integer;
+begin
+  if FileType = ngAPNG then
+  begin
+    // Num plays of APNG animation
+    FileFormat.FMetadata.SetMetaItem(SMetaAnimationLoops, acTL.NumPlay);
+  end;
+
+  for I := 0 to High(Frames) do
+  begin
+    if Frames[I].pHYs.UnitSpecifier = 1 then
+    begin
+      // Store physical pixel dimensions, in PNG stored as pixels per meter DPM
+      FileFormat.FMetadata.SetPhysicalPixelSize(ruDpm, Frames[I].pHYs.PixelsPerUnitX,
+        Frames[I].pHYs.PixelsPerUnitY);
+    end;
+    if FileType = ngAPNG then
+    begin
+      // Store frame delay of APNG file frame
+      Denom := Frames[I].fcTL.DelayDenom;
+      if Denom = 0 then
+        Denom := 100;
+      Delay := Round(1000 * (Frames[I].fcTL.DelayNumer / Denom));
+      FileFormat.FMetadata.SetMetaItem(SMetaFrameDelay, Delay, I);
+    end;
+  end;
+end;
+
+function TNGFileHandler.AddFrameInfo: TFrameInfo;
+var
+  Len: LongInt;
+begin
+  Len := Length(Frames);
+  SetLength(Frames, Len + 1);
+  Result := TFrameInfo.Create(Len);
+  Frames[Len] := Result;
+end;
+
+{ TNGFileLoader class implementation}
+
+function TNGFileLoader.LoadFile(Handle: TImagingHandle): Boolean;
+var
+  Sig: TChar8;
+  Chunk: TChunkHeader;
+  ChunkData: Pointer;
+  ChunkCrc: LongWord;
+
+  procedure ReadChunk;
+  begin
+    GetIO.Read(Handle, @Chunk, SizeOf(Chunk));
+    Chunk.DataSize := SwapEndianLongWord(Chunk.DataSize);
+  end;
+
+  procedure ReadChunkData;
+  var
+    ReadBytes: LongWord;
+  begin
+    FreeMemNil(ChunkData);
+    GetMem(ChunkData, Chunk.DataSize);
+    ReadBytes := GetIO.Read(Handle, ChunkData, Chunk.DataSize);
+    GetIO.Read(Handle, @ChunkCrc, SizeOf(ChunkCrc));
+    if ReadBytes <> Chunk.DataSize then
+      RaiseImaging(SErrorLoadingChunk, [string(Chunk.ChunkID)]);
+  end;
+
+  procedure SkipChunkData;
+  begin
+    GetIO.Seek(Handle, Chunk.DataSize + SizeOf(ChunkCrc), smFromCurrent);
+  end;
+
+  procedure StartNewPNGImage;
+  var
+    Frame: TFrameInfo;
+  begin
+    ReadChunkData;
+
+    if Chunk.ChunkID = fcTLChunk then
+    begin
+      if (Length(Frames) = 1) and (Frames[0].IDATMemory.Size = 0) then
+      begin
+        // First fcTL chunk maybe for first IDAT frame which is alredy created
+        Frame := Frames[0];
+      end
+      else
+      begin
+        // Subsequent APNG frames with data in fdAT
+        Frame := AddFrameInfo;
+        // Copy some shared props from first frame (IHDR is the same for all APNG frames, palette etc)
+        Frame.AssignSharedProps(Frames[0]);
+      end;
+      Frame.fcTL := PfcTL(ChunkData)^;
+      SwapEndianLongWord(@Frame.fcTL, 5);
+      Frame.fcTL.DelayNumer := SwapEndianWord(Frame.fcTL.DelayNumer);
+      Frame.fcTL.DelayDenom := SwapEndianWord(Frame.fcTL.DelayDenom);
+      Frame.FrameWidth := Frame.fcTL.Width;
+      Frame.FrameHeight := Frame.fcTL.Height;
+    end
+    else
+    begin
+      // This is frame defined by IHDR chunk
+      Frame := AddFrameInfo;
+      Frame.IHDR := PIHDR(ChunkData)^;
+      SwapEndianLongWord(@Frame.IHDR, 2);
+      Frame.FrameWidth := Frame.IHDR.Width;
+      Frame.FrameHeight := Frame.IHDR.Height;
+    end;
+    Frame.IsJpegFrame := False;
+  end;
+
+  procedure StartNewJNGImage;
+  var
+    Frame: TFrameInfo;
+  begin
+    ReadChunkData;
+    Frame := AddFrameInfo;
+    Frame.IsJpegFrame := True;
+    Frame.JHDR := PJHDR(ChunkData)^;
+    SwapEndianLongWord(@Frame.JHDR, 2);
+    Frame.FrameWidth := Frame.JHDR.Width;
+    Frame.FrameHeight := Frame.JHDR.Height;
+  end;
+
+  procedure AppendIDAT;
+  begin
+    ReadChunkData;
+    // Append current IDAT/fdAT chunk to storage stream
+    if Chunk.ChunkID = IDATChunk then
+      GetLastFrame.IDATMemory.Write(ChunkData^, Chunk.DataSize)
+    else if Chunk.ChunkID = fdATChunk then
+      GetLastFrame.IDATMemory.Write(PByteArray(ChunkData)[4], Chunk.DataSize - SizeOf(LongWord));
+  end;
+
+  procedure AppendJDAT;
+  begin
+    ReadChunkData;
+    // Append current JDAT chunk to storage stream
+    GetLastFrame.JDATMemory.Write(ChunkData^, Chunk.DataSize);
+  end;
+
+  procedure AppendJDAA;
+  begin
+    ReadChunkData;
+    // Append current JDAA chunk to storage stream
+    GetLastFrame.JDAAMemory.Write(ChunkData^, Chunk.DataSize);
+  end;
+
+  procedure LoadPLTE;
+  begin
+    ReadChunkData;
+    if GetLastFrame = nil then
+    begin
+      // Load global palette
+      GetMem(GlobalPalette, Chunk.DataSize);
+      Move(ChunkData^, GlobalPalette^, Chunk.DataSize);
+      GlobalPaletteEntries := Chunk.DataSize div 3;
+    end
+    else if GetLastFrame.Palette = nil then
+    begin
+      if (Chunk.DataSize = 0) and (GlobalPalette <> nil) then
+      begin
+        // Use global palette
+        GetMem(GetLastFrame.Palette, GlobalPaletteEntries * SizeOf(TColor24Rec));
+        Move(GlobalPalette^, GetLastFrame.Palette^, GlobalPaletteEntries * SizeOf(TColor24Rec));
+        GetLastFrame.PaletteEntries := GlobalPaletteEntries;
+      end
+      else
+      begin
+        // Load pal from PLTE chunk
+        GetMem(GetLastFrame.Palette, Chunk.DataSize);
+        Move(ChunkData^, GetLastFrame.Palette^, Chunk.DataSize);
+        GetLastFrame.PaletteEntries := Chunk.DataSize div 3;
+      end;
+    end;
+  end;
+
+  procedure LoadtRNS;
+  begin
+    ReadChunkData;
+    if GetLastFrame = nil then
+    begin
+      // Load global transparency
+      GetMem(GlobalTransparency, Chunk.DataSize);
+      Move(ChunkData^, GlobalTransparency^, Chunk.DataSize);
+      GlobalTransparencySize := Chunk.DataSize;
+    end
+    else if GetLastFrame.Transparency = nil then
+    begin
+      if (Chunk.DataSize = 0) and (GlobalTransparency <> nil) then
+      begin
+        // Use global transparency
+        GetMem(GetLastFrame.Transparency, GlobalTransparencySize);
+        Move(GlobalTransparency^, GetLastFrame.Transparency^, Chunk.DataSize);
+        GetLastFrame.TransparencySize := GlobalTransparencySize;
+      end
+      else
+      begin
+        // Load pal from tRNS chunk
+        GetMem(GetLastFrame.Transparency, Chunk.DataSize);
+        Move(ChunkData^, GetLastFrame.Transparency^, Chunk.DataSize);
+        GetLastFrame.TransparencySize := Chunk.DataSize;
+      end;
+    end;
+  end;
+
+  procedure LoadbKGD;
+  begin
+    ReadChunkData;
+    if GetLastFrame.Background = nil then
+    begin
+      GetMem(GetLastFrame.Background, Chunk.DataSize);
+      Move(ChunkData^, GetLastFrame.Background^, Chunk.DataSize);
+      GetLastFrame.BackgroundSize := Chunk.DataSize;
+    end;
+  end;
+
+  procedure HandleacTL;
+  begin
+    FileType := ngAPNG;
+    ReadChunkData;
+    acTL := PacTL(ChunkData)^;
+    SwapEndianLongWord(@acTL, SizeOf(acTL) div SizeOf(LongWord));
+  end;
+
+  procedure LoadpHYs;
+  begin
+    ReadChunkData;
+    with GetLastFrame do
+    begin
+      pHYs := PpHYs(ChunkData)^;
+      SwapEndianLongWord(@pHYs, SizeOf(pHYs) div SizeOf(LongWord));
+    end;
+  end;
+
+begin
+  Result := False;
+  Clear;
+  ChunkData := nil;
+  with GetIO do
+  try
+    Read(Handle, @Sig, SizeOf(Sig));
+    // Set file type according to the signature
+    if Sig = PNGSignature then FileType := ngPNG
+    else if Sig = MNGSignature then FileType := ngMNG
+    else if Sig = JNGSignature then FileType := ngJNG
+    else Exit;
+
+    if FileType = ngMNG then
+    begin
+      // Store MNG header if present
+      ReadChunk;
+      ReadChunkData;
+      MHDR := PMHDR(ChunkData)^;
+      SwapEndianLongWord(@MHDR, SizeOf(MHDR) div SizeOf(LongWord));
+    end;
+
+    // Read chunks until ending chunk or EOF is reached
+    repeat
+      ReadChunk;
+      if (Chunk.ChunkID = IHDRChunk) or (Chunk.ChunkID = fcTLChunk) then StartNewPNGImage
+      else if Chunk.ChunkID = JHDRChunk then StartNewJNGImage
+      else if (Chunk.ChunkID = IDATChunk) or (Chunk.ChunkID = fdATChunk) then AppendIDAT
+      else if Chunk.ChunkID = JDATChunk then AppendJDAT
+      else if Chunk.ChunkID = JDAAChunk then AppendJDAA
+      else if Chunk.ChunkID = PLTEChunk then LoadPLTE
+      else if Chunk.ChunkID = tRNSChunk then LoadtRNS
+      else if Chunk.ChunkID = bKGDChunk then LoadbKGD
+      else if Chunk.ChunkID = acTLChunk then HandleacTL
+      else if Chunk.ChunkID = pHYsChunk then LoadpHYs
+      else SkipChunkData;
+    until Eof(Handle) or (Chunk.ChunkID = MENDChunk) or
+      ((FileType <> ngMNG) and (Chunk.ChunkID = IENDChunk));
+
+    Result := True;
+  finally
+    FreeMemNil(ChunkData);
+  end;
+end;
+
+procedure TNGFileLoader.LoadImageFromPNGFrame(FrameWidth, FrameHeight: LongInt; const IHDR: TIHDR;
+  IDATStream: TMemoryStream; var Image: TImageData);
+type
+  TGetPixelFunc = function(Line: PByteArray; X: LongInt): Byte;
+var
+  LineBuffer: array[Boolean] of PByteArray;
+  ActLine: Boolean;
+  Data, TotalBuffer, ZeroLine, PrevLine: Pointer;
+  BitCount, TotalSize, TotalPos, BytesPerPixel, I, Pass,
+  SrcDataSize, BytesPerLine, InterlaceLineBytes, InterlaceWidth: LongInt;
+  Info: TImageFormatInfo;
+
+  procedure DecodeAdam7;
+  const
+    BitTable: array[1..8] of LongInt = ($1, $3, 0, $F, 0, 0, 0, $FF);
+    StartBit: array[1..8] of LongInt = (7, 6, 0, 4, 0, 0, 0, 0);
+  var
+    Src, Dst, Dst2: PByte;
+    CurBit, Col: LongInt;
+  begin
+    Src := @LineBuffer[ActLine][1];
+    Col := ColumnStart[Pass];
+    with Image do
+      case BitCount of
+        1, 2, 4:
+          begin
+            Dst := @PByteArray(Data)[I * BytesPerLine];
+            repeat
+              CurBit := StartBit[BitCount];
+              repeat
+                Dst2 := @PByteArray(Dst)[(BitCount * Col) shr 3];
+                Dst2^ := Dst2^ or ((Src^ shr CurBit) and BitTable[BitCount])
+                  shl (StartBit[BitCount] - (Col * BitCount mod 8));
+                Inc(Col, ColumnIncrement[Pass]);
+                Dec(CurBit, BitCount);
+              until CurBit < 0;
+              Inc(Src);
+            until Col >= Width;
+          end;
+        else
+        begin
+          Dst := @PByteArray(Data)[I * BytesPerLine + Col * BytesPerPixel];
+          repeat
+            CopyPixel(Src, Dst, BytesPerPixel);
+            Inc(Dst, BytesPerPixel);
+            Inc(Src, BytesPerPixel);
+            Inc(Dst, ColumnIncrement[Pass] * BytesPerPixel - BytesPerPixel);
+            Inc(Col, ColumnIncrement[Pass]);
+          until Col >= Width;
+        end;
+      end;
+  end;
+
+  procedure FilterScanline(Filter: Byte; BytesPerPixel: LongInt; Line, PrevLine, Target: PByteArray;
+    BytesPerLine: LongInt);
+  var
+    I: LongInt;
+  begin
+    case Filter of
+      0:
+        begin
+          // No filter
+          Move(Line^, Target^, BytesPerLine);
+        end;
+      1:
+        begin
+          // Sub filter
+          Move(Line^, Target^, BytesPerPixel);
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] + Target[I - BytesPerPixel]) and $FF;
+        end;
+      2:
+        begin
+          // Up filter
+          for I := 0 to BytesPerLine - 1 do
+            Target[I] := (Line[I] + PrevLine[I]) and $FF;
+        end;
+      3:
+        begin
+          // Average filter
+          for I := 0 to BytesPerPixel - 1 do
+            Target[I] := (Line[I] + PrevLine[I] shr 1) and $FF;
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] + (Target[I - BytesPerPixel] + PrevLine[I]) shr 1) and $FF;
+        end;
+      4:
+        begin
+          // Paeth filter
+          for I := 0 to BytesPerPixel - 1 do
+            Target[I] := (Line[I] + PaethPredictor(0, PrevLine[I], 0)) and $FF;
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] + PaethPredictor(Target[I - BytesPerPixel], PrevLine[I], PrevLine[I - BytesPerPixel])) and $FF;
+        end;
+    end;
+  end;
+
+  procedure TransformLOCOToRGB(Data: PByte; NumPixels, BytesPerPixel: LongInt);
+  var
+    I: LongInt;
+  begin
+    for I := 0 to NumPixels - 1 do
+    begin
+      if IHDR.BitDepth = 8 then
+      begin
+        PColor32Rec(Data).R := Byte(PColor32Rec(Data).R + PColor32Rec(Data).G);
+        PColor32Rec(Data).B := Byte(PColor32Rec(Data).B + PColor32Rec(Data).G);
+      end
+      else
+      begin
+        PColor64Rec(Data).R := Word(PColor64Rec(Data).R + PColor64Rec(Data).G);
+        PColor64Rec(Data).B := Word(PColor64Rec(Data).B + PColor64Rec(Data).G);
+      end;
+      Inc(Data, BytesPerPixel);
+    end;
+  end;
+
+  function CheckBinaryPalette: Boolean;
+  begin
+    with GetLastFrame do
+      Result := (PaletteEntries = 2) and
+        (Palette[0].R = 0) and (Palette[0].G = 0) and (Palette[0].B = 0) and
+        (Palette[1].R = 255) and (Palette[1].G = 255) and (Palette[1].B = 255);
+  end;
+
+begin
+  Image.Width := FrameWidth;
+  Image.Height := FrameHeight;
+  Image.Format := ifUnknown;
+
+  case IHDR.ColorType of
+    0:
+      begin
+        // Gray scale image
+        case IHDR.BitDepth of
+          1:       Image.Format := ifBinary;
+          2, 4, 8: Image.Format := ifGray8;
+          16:      Image.Format := ifGray16;
+        end;
+        BitCount := IHDR.BitDepth;
+      end;
+    2:
+      begin
+        // RGB image
+        case IHDR.BitDepth of
+          8:  Image.Format := ifR8G8B8;
+          16: Image.Format := ifR16G16B16;
+        end;
+        BitCount := IHDR.BitDepth * 3;
+      end;
+    3:
+      begin
+        // Indexed image
+        if (IHDR.BitDepth = 1) and CheckBinaryPalette  then
+          Image.Format := ifBinary
+        else
+          Image.Format := ifIndex8;
+        BitCount := IHDR.BitDepth;
+      end;
+    4:
+      begin
+        // Grayscale + alpha image
+        case IHDR.BitDepth of
+          8: Image.Format := ifA8Gray8;
+          16: Image.Format := ifA16Gray16;
+        end;
+        BitCount := IHDR.BitDepth * 2;
+      end;
+    6:
+      begin
+        // ARGB image
+        case IHDR.BitDepth of
+          8: Image.Format := ifA8R8G8B8;
+          16: Image.Format := ifA16R16G16B16;
+        end;
+        BitCount := IHDR.BitDepth * 4;
+      end;
+  end;
+
+  GetImageFormatInfo(Image.Format, Info);
+  BytesPerPixel := (BitCount + 7) div 8;
+
+  LineBuffer[True] := nil;
+  LineBuffer[False] := nil;
+  TotalBuffer := nil;
+  ZeroLine := nil;
+  ActLine := True;
+
+  // Start decoding
+  with Image do
+  try
+    BytesPerLine := (Width * BitCount + 7) div 8;
+    SrcDataSize := Height * BytesPerLine;
+    GetMem(Data, SrcDataSize);
+    FillChar(Data^, SrcDataSize, 0);
+    GetMem(ZeroLine, BytesPerLine);
+    FillChar(ZeroLine^, BytesPerLine, 0);
+
+    if IHDR.Interlacing = 1 then
+    begin
+      // Decode interlaced images
+      TotalPos := 0;
+      DecompressBuf(IDATStream.Memory, IDATStream.Size, 0,
+        Pointer(TotalBuffer), TotalSize);
+      GetMem(LineBuffer[True], BytesPerLine + 1);
+      GetMem(LineBuffer[False], BytesPerLine + 1);
+      for Pass := 0 to 6 do
+      begin
+        // Prepare next interlace run
+        if Width <= ColumnStart[Pass] then
+          Continue;
+        InterlaceWidth := (Width + ColumnIncrement[Pass] - 1 -
+          ColumnStart[Pass]) div ColumnIncrement[Pass];
+        InterlaceLineBytes := (InterlaceWidth * BitCount + 7) shr 3;
+        I := RowStart[Pass];
+        FillChar(LineBuffer[True][0], BytesPerLine + 1, 0);
+        FillChar(LineBuffer[False][0], BytesPerLine + 1, 0);
+        while I < Height do
+        begin
+          // Copy line from decompressed data to working buffer
+          Move(PByteArray(TotalBuffer)[TotalPos],
+            LineBuffer[ActLine][0], InterlaceLineBytes + 1);
+          Inc(TotalPos, InterlaceLineBytes + 1);
+          // Swap red and blue channels if necessary
+          if (IHDR.ColorType in [2, 6]) then
+            SwapRGB(@LineBuffer[ActLine][1], InterlaceWidth, IHDR.BitDepth, BytesPerPixel);
+          // Reverse-filter current scanline
+          FilterScanline(LineBuffer[ActLine][0], BytesPerPixel,
+            @LineBuffer[ActLine][1], @LineBuffer[not ActLine][1],
+            @LineBuffer[ActLine][1], InterlaceLineBytes);
+          // Decode Adam7 interlacing
+          DecodeAdam7;
+          ActLine := not ActLine;
+          // Continue with next row in interlaced order
+          Inc(I, RowIncrement[Pass]);
+        end;
+      end;
+    end
+    else
+    begin
+      // Decode non-interlaced images
+      PrevLine := ZeroLine;
+      DecompressBuf(IDATStream.Memory, IDATStream.Size, SrcDataSize + Height,
+        Pointer(TotalBuffer), TotalSize);
+      for I := 0 to Height - 1 do
+      begin
+        // Swap red and blue channels if necessary
+        if IHDR.ColorType in [2, 6] then
+          SwapRGB(@PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1], Width,
+           IHDR.BitDepth, BytesPerPixel);
+        // reverse-filter current scanline
+        FilterScanline(PByteArray(TotalBuffer)[I * (BytesPerLine + 1)],
+          BytesPerPixel, @PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1],
+          PrevLine, @PByteArray(Data)[I * BytesPerLine], BytesPerLine);
+        PrevLine := @PByteArray(Data)[I * BytesPerLine];
+      end;
+    end;
+
+    Size := Info.GetPixelsSize(Info.Format, Width, Height);
+
+    if Size <> SrcDataSize then
+    begin
+      // If source data size is different from size of image in assigned
+      // format we must convert it (it is in 1/2/4 bit count)
+      GetMem(Bits, Size);
+      case IHDR.BitDepth of
+        1:
+          begin
+            // Convert only indexed, keep black and white in ifBinary
+            if IHDR.ColorType <> 0 then
+              Convert1To8(Data, Bits, Width, Height, BytesPerLine, False);
+          end;
+        2: Convert2To8(Data, Bits, Width, Height, BytesPerLine, IHDR.ColorType = 0);
+        4: Convert4To8(Data, Bits, Width, Height, BytesPerLine, IHDR.ColorType = 0);
+      end;
+      FreeMem(Data);
+    end
+    else
+    begin
+      // If source data size is the same as size of
+      // image Bits in assigned format we simply copy pointer reference
+      Bits := Data;
+    end;
+
+    // LOCO transformation was used too (only for color types 2 and 6)
+    if (IHDR.Filter = 64) and (IHDR.ColorType in [2, 6]) then
+      TransformLOCOToRGB(Bits, Width * Height, BytesPerPixel);
+
+    // Images with 16 bit channels must be swapped because of PNG's big endianity
+    if IHDR.BitDepth = 16 then
+      SwapEndianWord(Bits, Width * Height * BytesPerPixel div SizeOf(Word));
+  finally
+    FreeMem(LineBuffer[True]);
+    FreeMem(LineBuffer[False]);
+    FreeMem(TotalBuffer);
+    FreeMem(ZeroLine);
+  end;
+end;
+
+{$IFNDEF DONT_LINK_JNG}
+
+procedure TNGFileLoader.LoadImageFromJNGFrame(FrameWidth, FrameHeight: LongInt; const JHDR: TJHDR; IDATStream,
+  JDATStream, JDAAStream: TMemoryStream; var Image: TImageData);
+var
+  AlphaImage: TImageData;
+  FakeIHDR: TIHDR;
+  FmtInfo: TImageFormatInfo;
+  I: LongInt;
+  AlphaPtr: PByte;
+  GrayPtr: PWordRec;
+  ColorPtr: PColor32Rec;
+
+  procedure LoadJpegFromStream(Stream: TStream; var DestImage: TImageData);
+  var
+    JpegFormat: TCustomIOJpegFileFormat;
+    Handle: TImagingHandle;
+    DynImages: TDynImageDataArray;
+  begin
+    if JHDR.SampleDepth <> 12 then
+    begin
+      JpegFormat := TCustomIOJpegFileFormat.Create;
+      JpegFormat.SetCustomIO(StreamIO);
+      Stream.Position := 0;
+      Handle := StreamIO.Open(Pointer(Stream), omReadOnly);
+      try
+        JpegFormat.LoadData(Handle, DynImages, True);
+        DestImage := DynImages[0];
+      finally
+        StreamIO.Close(Handle);
+        JpegFormat.Free;
+        SetLength(DynImages, 0);
+      end;
+    end
+    else
+      NewImage(FrameWidth, FrameHeight, ifR8G8B8, DestImage);
+  end;
+
+begin
+  LoadJpegFromStream(JDATStream, Image);
+
+  // If present separate alpha channel is processed
+  if (JHDR.ColorType in [12, 14]) and (Image.Format in [ifGray8, ifR8G8B8]) then
+  begin
+    InitImage(AlphaImage);
+    if JHDR.AlphaCompression = 0 then
+    begin
+      // Alpha channel is PNG compressed
+      FakeIHDR.Width := JHDR.Width;
+      FakeIHDR.Height := JHDR.Height;
+      FakeIHDR.ColorType := 0;
+      FakeIHDR.BitDepth := JHDR.AlphaSampleDepth;
+      FakeIHDR.Filter := JHDR.AlphaFilter;
+      FakeIHDR.Interlacing := JHDR.AlphaInterlacing;
+
+      LoadImageFromPNGFrame(FrameWidth, FrameHeight, FakeIHDR, IDATStream, AlphaImage);
+    end
+    else
+    begin
+      // Alpha channel is JPEG compressed
+      LoadJpegFromStream(JDAAStream, AlphaImage);
+    end;
+
+    // Check if alpha channel is the same size as image
+    if (Image.Width <> AlphaImage.Width) and (Image.Height <> AlphaImage.Height) then
+      ResizeImage(AlphaImage, Image.Width, Image.Height, rfNearest);
+
+    // Check alpha channels data format
+    GetImageFormatInfo(AlphaImage.Format, FmtInfo);
+    if (FmtInfo.BytesPerPixel > 1) or (not FmtInfo.HasGrayChannel) then
+      ConvertImage(AlphaImage, ifGray8);
+
+    // Convert image to fromat with alpha channel
+    if Image.Format = ifGray8 then
+      ConvertImage(Image, ifA8Gray8)
+    else
+      ConvertImage(Image, ifA8R8G8B8);
+
+    // Combine alpha channel with image
+    AlphaPtr := AlphaImage.Bits;
+    if Image.Format = ifA8Gray8 then
+    begin
+      GrayPtr := Image.Bits;
+      for I := 0 to Image.Width * Image.Height - 1 do
+      begin
+        GrayPtr.High := AlphaPtr^;
+        Inc(GrayPtr);
+        Inc(AlphaPtr);
+      end;
+    end
+    else
+    begin
+      ColorPtr := Image.Bits;
+      for I := 0 to Image.Width * Image.Height - 1 do
+      begin
+        ColorPtr.A := AlphaPtr^;
+        Inc(ColorPtr);
+        Inc(AlphaPtr);
+      end;
+    end;
+
+    FreeImage(AlphaImage);
+  end;
+end;
+
+{$ENDIF}
+
+procedure TNGFileLoader.ApplyFrameSettings(Frame: TFrameInfo; var Image: TImageData);
+var
+  FmtInfo: TImageFormatInfo;
+  BackGroundColor: TColor64Rec;
+  ColorKey: TColor64Rec;
+  Alphas: PByteArray;
+  AlphasSize: LongInt;
+  IsColorKeyPresent: Boolean;
+  IsBackGroundPresent: Boolean;
+  IsColorFormat: Boolean;
+
+  procedure ConverttRNS;
+  begin
+    if FmtInfo.IsIndexed then
+    begin
+      if Alphas = nil then
+      begin
+        GetMem(Alphas, Frame.TransparencySize);
+        Move(Frame.Transparency^, Alphas^, Frame.TransparencySize);
+        AlphasSize := Frame.TransparencySize;
+      end;
+    end
+    else if not FmtInfo.HasAlphaChannel then
+    begin
+      FillChar(ColorKey, SizeOf(ColorKey), 0);
+      Move(Frame.Transparency^, ColorKey, Min(Frame.TransparencySize, SizeOf(ColorKey)));
+      if IsColorFormat then
+        SwapValues(ColorKey.R, ColorKey.B);
+      SwapEndianWord(@ColorKey, 3);
+      // 1/2/4 bit images were converted to 8 bit so we must convert color key too
+      if (not Frame.IsJpegFrame) and (Frame.IHDR.ColorType in [0, 4]) then
+        case Frame.IHDR.BitDepth of
+          1: ColorKey.B := Word(ColorKey.B * 255);
+          2: ColorKey.B := Word(ColorKey.B * 85);
+          4: ColorKey.B := Word(ColorKey.B * 17);
+        end;
+      IsColorKeyPresent := True;
+    end;
+  end;
+
+  procedure ConvertbKGD;
+  begin
+    FillChar(BackGroundColor, SizeOf(BackGroundColor), 0);
+    Move(Frame.Background^, BackGroundColor, Min(Frame.BackgroundSize, SizeOf(BackGroundColor)));
+    if IsColorFormat then
+      SwapValues(BackGroundColor.R, BackGroundColor.B);
+    SwapEndianWord(@BackGroundColor, 3);
+    // 1/2/4 bit images were converted to 8 bit so we must convert back color too
+    if (not Frame.IsJpegFrame) and (Frame.IHDR.ColorType in [0, 4]) then
+      case Frame.IHDR.BitDepth of
+        1: BackGroundColor.B := Word(BackGroundColor.B * 255);
+        2: BackGroundColor.B := Word(BackGroundColor.B * 85);
+        4: BackGroundColor.B := Word(BackGroundColor.B * 17);
+      end;
+    IsBackGroundPresent := True;
+  end;
+
+  procedure ReconstructPalette;
+  var
+    I: LongInt;
+  begin
+    with Image do
+    begin
+      GetMem(Palette, FmtInfo.PaletteEntries * SizeOf(TColor32Rec));
+      FillChar(Palette^, FmtInfo.PaletteEntries * SizeOf(TColor32Rec), $FF);
+      // if RGB palette was loaded from file then use it
+      if Frame.Palette <> nil then
+        for I := 0 to Min(Frame.PaletteEntries, FmtInfo.PaletteEntries) - 1 do
+        with Palette[I] do
+        begin
+          R := Frame.Palette[I].B;
+          G := Frame.Palette[I].G;
+          B := Frame.Palette[I].R;
+        end;
+      // if palette alphas were loaded from file then use them
+      if Alphas <> nil then
+      begin
+        for I := 0 to Min(AlphasSize, FmtInfo.PaletteEntries) - 1 do
+          Palette[I].A := Alphas[I];
+      end;
+    end;
+  end;
+
+  procedure ApplyColorKey;
+  var
+    DestFmt: TImageFormat;
+    Col32, Bkg32: TColor32Rec;
+    OldPixel, NewPixel: Pointer;
+  begin
+    case Image.Format of
+      ifGray8: DestFmt := ifA8Gray8;
+      ifGray16: DestFmt := ifA16Gray16;
+      ifR8G8B8: DestFmt := ifA8R8G8B8;
+      ifR16G16B16: DestFmt := ifA16R16G16B16;
+    else
+      DestFmt := ifUnknown;
+    end;
+
+    if DestFmt <> ifUnknown then
+    begin
+      if not IsBackGroundPresent then
+        BackGroundColor := ColorKey;
+      ConvertImage(Image, DestFmt);
+
+      // Now back color and color key must be converted to image's data format, looks ugly
+      case Image.Format of
+        ifA8Gray8:
+          begin
+            Col32 := Color32(0, 0, $FF, Byte(ColorKey.B));
+            Bkg32 := Color32(0, 0, 0, Byte(BackGroundColor.B));
+          end;
+        ifA16Gray16:
+          begin
+            ColorKey.G := $FFFF;
+          end;
+        ifA8R8G8B8:
+          begin
+            Col32 := Color32($FF, Byte(ColorKey.R), Byte(ColorKey.G), Byte(ColorKey.B));
+            Bkg32 := Color32(0, Byte(BackGroundColor.R), Byte(BackGroundColor.G), Byte(BackGroundColor.B));
+          end;
+        ifA16R16G16B16:
+          begin
+            ColorKey.A := $FFFF;
+          end;
+      end;
+
+      if Image.Format in [ifA8Gray8, ifA8R8G8B8] then
+      begin
+        OldPixel := @Col32;
+        NewPixel := @Bkg32;
+      end
+      else
+      begin
+        OldPixel := @ColorKey;
+        NewPixel := @BackGroundColor;
+      end;
+
+      ReplaceColor(Image, 0, 0, Image.Width, Image.Height, OldPixel, NewPixel);
+    end;
+  end;
+
+begin
+  Alphas := nil;
+  IsColorKeyPresent := False;
+  IsBackGroundPresent := False;
+  GetImageFormatInfo(Image.Format, FmtInfo);
+
+  IsColorFormat := (Frame.IsJpegFrame and (Frame.JHDR.ColorType in [10, 14])) or
+    (not Frame.IsJpegFrame and (Frame.IHDR.ColorType in [2, 6]));
+
+  // Convert some chunk data to useful format
+  if Frame.TransparencySize > 0 then
+    ConverttRNS;
+  if Frame.BackgroundSize > 0 then
+    ConvertbKGD;
+
+  // Build palette for indexed images
+  if FmtInfo.IsIndexed then
+    ReconstructPalette;
+
+  // Apply color keying
+  if IsColorKeyPresent and not FmtInfo.HasAlphaChannel then
+    ApplyColorKey;
+
+  FreeMemNil(Alphas);
+end;
+
+{ TNGFileSaver class implementation }
+
+procedure TNGFileSaver.StoreImageToPNGFrame(const IHDR: TIHDR; Bits: Pointer;
+  FmtInfo: TImageFormatInfo; IDATStream: TMemoryStream);
+var
+  TotalBuffer, CompBuffer, ZeroLine, PrevLine: Pointer;
+  FilterLines: array[0..4] of PByteArray;
+  TotalSize, CompSize, I, BytesPerLine, BytesPerPixel: LongInt;
+  Filter: Byte;
+  Adaptive: Boolean;
+
+  procedure FilterScanline(Filter: Byte; BytesPerPixel: LongInt; Line, PrevLine, Target: PByteArray);
+  var
+    I: LongInt;
+  begin
+    case Filter of
+      0:
+        begin
+          // No filter
+          Move(Line^, Target^, BytesPerLine);
+        end;
+      1:
+        begin
+          // Sub filter
+          Move(Line^, Target^, BytesPerPixel);
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] - Line[I - BytesPerPixel]) and $FF;
+        end;
+      2:
+        begin
+          // Up filter
+          for I := 0 to BytesPerLine - 1 do
+            Target[I] := (Line[I] - PrevLine[I]) and $FF;
+        end;
+      3:
+        begin
+          // Average filter
+          for I := 0 to BytesPerPixel - 1 do
+            Target[I] := (Line[I] - PrevLine[I] shr 1) and $FF;
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] - (Line[I - BytesPerPixel] + PrevLine[I]) shr 1) and $FF;
+        end;
+      4:
+        begin
+          // Paeth filter
+          for I := 0 to BytesPerPixel - 1 do
+            Target[I] := (Line[I] - PaethPredictor(0, PrevLine[I], 0)) and $FF;
+          for I := BytesPerPixel to BytesPerLine - 1 do
+            Target[I] := (Line[I] - PaethPredictor(Line[I - BytesPerPixel], PrevLine[I], PrevLine[I - BytesPerPixel])) and $FF;
+        end;
+    end;
+  end;
+
+  procedure AdaptiveFilter(var Filter: Byte; BytesPerPixel: LongInt; Line, PrevLine, Target: PByteArray);
+  var
+    I, J, BestTest: LongInt;
+    Sums: array[0..4] of LongInt;
+  begin
+    // Compute the output scanline using all five filters,
+    // and select the filter that gives the smallest sum of
+    // absolute values of outputs
+    FillChar(Sums, SizeOf(Sums), 0);
+    BestTest := MaxInt;
+    for I := 0 to 4 do
+    begin
+      FilterScanline(I, BytesPerPixel, Line, PrevLine, FilterLines[I]);
+      for J := 0 to BytesPerLine - 1 do
+        Sums[I] := Sums[I] + Abs(ShortInt(FilterLines[I][J]));
+      if Sums[I] < BestTest then
+      begin
+        Filter := I;
+        BestTest := Sums[I];
+      end;
+    end;
+    Move(FilterLines[Filter]^, Target^, BytesPerLine);
+  end;
+
+begin
+  // Select precompression filter and compression level
+  Adaptive := False;
+  Filter := 0;
+  case PreFilter of
+    6:
+      if not ((IHDR.BitDepth < 8) or (IHDR.ColorType = 3)) then
+        Adaptive := True;
+    0..4: Filter := PreFilter;
+  else
+    if IHDR.ColorType in [2, 6] then
+      Filter := 4
+  end;
+
+  // Prepare data for compression
+  CompBuffer := nil;
+  FillChar(FilterLines, SizeOf(FilterLines), 0);
+  BytesPerPixel := Max(1, FmtInfo.BytesPerPixel);
+  BytesPerLine := FmtInfo.GetPixelsSize(FmtInfo.Format, LongInt(IHDR.Width), 1);
+  TotalSize := (BytesPerLine + 1) * LongInt(IHDR.Height);
+  GetMem(TotalBuffer, TotalSize);
+  GetMem(ZeroLine, BytesPerLine);
+  FillChar(ZeroLine^, BytesPerLine, 0);
+  PrevLine := ZeroLine;
+
+  if Adaptive then
+  begin
+    for I := 0 to 4 do
+      GetMem(FilterLines[I], BytesPerLine);
+  end;
+
+  try
+    // Process next scanlines
+    for I := 0 to IHDR.Height - 1 do
+    begin
+      // Filter scanline
+      if Adaptive then
+      begin
+        AdaptiveFilter(Filter, BytesPerPixel, @PByteArray(Bits)[I * BytesPerLine],
+          PrevLine, @PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1]);
+      end
+      else
+      begin
+        FilterScanline(Filter, BytesPerPixel, @PByteArray(Bits)[I * BytesPerLine],
+          PrevLine, @PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1]);
+      end;
+      PrevLine := @PByteArray(Bits)[I * BytesPerLine];
+      // Swap red and blue if necessary
+      if (IHDR.ColorType in [2, 6]) and not FmtInfo.IsRBSwapped then
+      begin
+        SwapRGB(@PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1],
+          IHDR.Width, IHDR.BitDepth, BytesPerPixel);
+      end;
+      // Images with 16 bit channels must be swapped because of PNG's big endianess
+      if IHDR.BitDepth = 16 then
+      begin
+        SwapEndianWord(@PByteArray(TotalBuffer)[I * (BytesPerLine + 1) + 1],
+          BytesPerLine div SizeOf(Word));
+      end;
+      // Set filter used for this scanline
+      PByteArray(TotalBuffer)[I * (BytesPerLine + 1)] := Filter;
+    end;
+    // Compress IDAT data
+    CompressBuf(TotalBuffer, TotalSize, CompBuffer, CompSize,
+      CompressLevel, ZLibStrategy);
+    // Write IDAT data to stream
+    IDATStream.WriteBuffer(CompBuffer^, CompSize);
+  finally
+    FreeMem(TotalBuffer);
+    FreeMem(CompBuffer);
+    FreeMem(ZeroLine);
+    if Adaptive then
+      for I := 0 to 4 do
+        FreeMem(FilterLines[I]);
+  end;
+end;
+
+{$IFNDEF DONT_LINK_JNG}
+
+procedure TNGFileSaver.StoreImageToJNGFrame(const JHDR: TJHDR;
+  const Image: TImageData; IDATStream, JDATStream,
+  JDAAStream: TMemoryStream);
+var
+  ColorImage, AlphaImage: TImageData;
+  FmtInfo: TImageFormatInfo;
+  AlphaPtr: PByte;
+  GrayPtr: PWordRec;
+  ColorPtr: PColor32Rec;
+  I: LongInt;
+  FakeIHDR: TIHDR;
+
+  procedure SaveJpegToStream(Stream: TStream; const Image: TImageData);
+  var
+    JpegFormat: TCustomIOJpegFileFormat;
+    Handle: TImagingHandle;
+    DynImages: TDynImageDataArray;
+  begin
+    JpegFormat := TCustomIOJpegFileFormat.Create;
+    JpegFormat.SetCustomIO(StreamIO);
+    // Only JDAT stream can be saved progressive
+    if Stream = JDATStream then
+      JpegFormat.FProgressive := Progressive
+    else
+      JpegFormat.FProgressive := False;
+    JpegFormat.FQuality := Quality;
+    SetLength(DynImages, 1);
+    DynImages[0] := Image;
+    Handle := StreamIO.Open(Pointer(Stream), omCreate);
+    try
+      JpegFormat.SaveData(Handle, DynImages, 0);
+    finally
+      StreamIO.Close(Handle);
+      SetLength(DynImages, 0);
+      JpegFormat.Free;
+    end;
+  end;
+
+begin
+  GetImageFormatInfo(Image.Format, FmtInfo);
+  InitImage(ColorImage);
+  InitImage(AlphaImage);
+
+  if FmtInfo.HasAlphaChannel then
+  begin
+    // Create new image for alpha channel and color image without alpha
+    CloneImage(Image, ColorImage);
+    NewImage(Image.Width, Image.Height, ifGray8, AlphaImage);
+    case Image.Format of
+      ifA8Gray8:  ConvertImage(ColorImage, ifGray8);
+      ifA8R8G8B8: ConvertImage(ColorImage, ifR8G8B8);
+    end;
+
+    // Store source image's alpha to separate image
+    AlphaPtr := AlphaImage.Bits;
+    if Image.Format = ifA8Gray8 then
+    begin
+      GrayPtr := Image.Bits;
+      for I := 0 to Image.Width * Image.Height - 1 do
+      begin
+        AlphaPtr^ := GrayPtr.High;
+        Inc(GrayPtr);
+        Inc(AlphaPtr);
+      end;
+    end
+    else
+    begin
+      ColorPtr := Image.Bits;
+      for I := 0 to Image.Width * Image.Height - 1 do
+      begin
+        AlphaPtr^ := ColorPtr.A;
+        Inc(ColorPtr);
+        Inc(AlphaPtr);
+      end;
+    end;
+
+    // Write color image to stream as JPEG
+    SaveJpegToStream(JDATStream, ColorImage);
+
+    if LossyAlpha then
+    begin
+      // Write alpha image to stream as JPEG
+      SaveJpegToStream(JDAAStream, AlphaImage);
+    end
+    else
+    begin
+      // Alpha channel is PNG compressed
+      FakeIHDR.Width := JHDR.Width;
+      FakeIHDR.Height := JHDR.Height;
+      FakeIHDR.ColorType := 0;
+      FakeIHDR.BitDepth := JHDR.AlphaSampleDepth;
+      FakeIHDR.Filter := JHDR.AlphaFilter;
+      FakeIHDR.Interlacing := JHDR.AlphaInterlacing;
+
+      GetImageFormatInfo(AlphaImage.Format, FmtInfo);
+      StoreImageToPNGFrame(FakeIHDR, AlphaImage.Bits, FmtInfo, IDATStream);
+    end;
+
+    FreeImage(ColorImage);
+    FreeImage(AlphaImage);
+  end
+  else
+  begin
+    // Simply write JPEG to stream
+    SaveJpegToStream(JDATStream, Image);
+  end;
+end;
+
+{$ENDIF}
+
+procedure TNGFileSaver.AddFrame(const Image: TImageData; IsJpegFrame: Boolean);
+var
+  Frame: TFrameInfo;
+  FmtInfo: TImageFormatInfo;
+  Index: Integer;
+
+  procedure StorePalette;
+  var
+    Pal: PPalette24;
+    Alphas: PByteArray;
+    I, PalBytes: LongInt;
+    AlphasDiffer: Boolean;
+  begin
+    // Fill and save RGB part of palette to PLTE chunk
+    PalBytes := FmtInfo.PaletteEntries * SizeOf(TColor24Rec);
+    GetMem(Pal, PalBytes);
+    AlphasDiffer := False;
+    for I := 0 to FmtInfo.PaletteEntries - 1 do
+    begin
+      Pal[I].B := Image.Palette[I].R;
+      Pal[I].G := Image.Palette[I].G;
+      Pal[I].R := Image.Palette[I].B;
+      if Image.Palette[I].A < 255 then
+        AlphasDiffer := True;
+    end;
+    Frame.Palette := Pal;
+    Frame.PaletteEntries := FmtInfo.PaletteEntries;
+    // Fill and save alpha part (if there are any alphas < 255) of palette to tRNS chunk
+    if AlphasDiffer then
+    begin
+      PalBytes := FmtInfo.PaletteEntries * SizeOf(Byte);
+      GetMem(Alphas, PalBytes);
+      for I := 0 to FmtInfo.PaletteEntries - 1 do
+        Alphas[I] := Image.Palette[I].A;
+      Frame.Transparency := Alphas;
+      Frame.TransparencySize := PalBytes;
+    end;
+  end;
+
+  procedure FillFrameControlChunk(const IHDR: TIHDR; var fcTL: TfcTL);
+  var
+    Delay: Integer;
+  begin
+    fcTL.SeqNumber := 0; // Decided when writing to file
+    fcTL.Width := IHDR.Width;
+    fcTL.Height := IHDR.Height;
+    fcTL.XOffset := 0;
+    fcTL.YOffset := 0;
+    fcTL.DelayNumer := 1;
+    fcTL.DelayDenom := 3;
+    if FileFormat.FMetadata.HasMetaItemForSaving(SMetaFrameDelay, Index) then
+    begin
+      // Metadata contains frame delay information in milliseconds
+      Delay := FileFormat.FMetadata.MetaItemsForSavingMulti[SMetaFrameDelay, Index];
+      fcTL.DelayNumer := Delay;
+      fcTL.DelayDenom := 1000;
+    end;
+    fcTL.DisposeOp := DisposeOpNone;
+    fcTL.BlendOp := BlendOpSource;
+    SwapEndianLongWord(@fcTL, 5);
+    fcTL.DelayNumer := SwapEndianWord(fcTL.DelayNumer);
+    fcTL.DelayDenom := SwapEndianWord(fcTL.DelayDenom);
+  end;
+
+begin
+  // Add new frame
+  Frame := AddFrameInfo;
+  Frame.IsJpegFrame := IsJpegFrame;
+  Index := Length(Frames) - 1;
+
+  with Frame do
+  begin
+    GetImageFormatInfo(Image.Format, FmtInfo);
+
+    if IsJpegFrame then
+    begin
+{$IFNDEF DONT_LINK_JNG}
+      // Fill JNG header
+      JHDR.Width := Image.Width;
+      JHDR.Height := Image.Height;
+      case Image.Format of
+        ifGray8:    JHDR.ColorType := 8;
+        ifR8G8B8:   JHDR.ColorType := 10;
+        ifA8Gray8:  JHDR.ColorType := 12;
+        ifA8R8G8B8: JHDR.ColorType := 14;
+      end;
+      JHDR.SampleDepth := 8; // 8-bit samples and quantization tables
+      JHDR.Compression := 8; // Huffman coding
+      JHDR.Interlacing := Iff(Progressive, 8, 0);
+      JHDR.AlphaSampleDepth := Iff(FmtInfo.HasAlphaChannel, 8, 0);
+      JHDR.AlphaCompression := Iff(LossyAlpha, 8, 0);
+      JHDR.AlphaFilter := 0;
+      JHDR.AlphaInterlacing := 0;
+
+      StoreImageToJNGFrame(JHDR, Image, IDATMemory, JDATMemory, JDAAMemory);
+
+      // Finally swap endian
+      SwapEndianLongWord(@JHDR, 2);
+{$ENDIF}
+    end
+    else
+    begin
+      // Fill PNG header
+      IHDR.Width := Image.Width;
+      IHDR.Height := Image.Height;
+      IHDR.Compression := 0;
+      IHDR.Filter := 0;
+      IHDR.Interlacing := 0;
+      IHDR.BitDepth := FmtInfo.BytesPerPixel * 8;
+
+      // Select appropiate PNG color type and modify bitdepth
+      if FmtInfo.HasGrayChannel then
+      begin
+        IHDR.ColorType := 0;
+        if FmtInfo.HasAlphaChannel then
+        begin
+          IHDR.ColorType := 4;
+          IHDR.BitDepth := IHDR.BitDepth div 2;
+        end;
+      end
+      else if FmtInfo.Format = ifBinary then
+      begin
+        IHDR.ColorType := 0;
+        IHDR.BitDepth := 1;
+      end
+      else if FmtInfo.IsIndexed then
+        IHDR.ColorType := 3
+      else if FmtInfo.HasAlphaChannel then
+      begin
+        IHDR.ColorType := 6;
+        IHDR.BitDepth := IHDR.BitDepth div 4;
+      end
+      else
+      begin
+        IHDR.ColorType := 2;
+        IHDR.BitDepth := IHDR.BitDepth div 3;
+      end;
+
+      if FileType = ngAPNG then
+      begin
+        // Fill fcTL chunk of APNG file
+        FillFrameControlChunk(IHDR, fcTL);
+      end;
+
+      // Compress PNG image and store it to stream
+      StoreImageToPNGFrame(IHDR, Image.Bits, FmtInfo, IDATMemory);
+      // Store palette if necesary
+      if FmtInfo.IsIndexed then
+        StorePalette;
+
+      // Finally swap endian
+      SwapEndianLongWord(@IHDR, 2);
+    end;
+  end;
+end;
+
+function TNGFileSaver.SaveFile(Handle: TImagingHandle): Boolean;
+var
+  I: LongInt;
+  Chunk: TChunkHeader;
+  SeqNo: LongWord;
+
+  function GetNextSeqNo: LongWord;
+  begin
+    // Seq numbers of fcTL and fdAT are "interleaved" as they share the counter.
+    // Example: first fcTL for IDAT has seq=0, next is fcTL for seond frame with
+    // seq=1, then first fdAT with seq=2, fcTL seq=3, fdAT=4, ...
+    Result := SwapEndianLongWord(SeqNo);
+    Inc(SeqNo);
+  end;
+
+  function CalcChunkCrc(const ChunkHdr: TChunkHeader; Data: Pointer;
+    Size: LongInt): LongWord;
+  begin
+    Result := $FFFFFFFF;
+    CalcCrc32(Result, @ChunkHdr.ChunkID, SizeOf(ChunkHdr.ChunkID));
+    CalcCrc32(Result, Data, Size);
+    Result := SwapEndianLongWord(Result xor $FFFFFFFF);
+  end;
+
+  procedure WriteChunk(var Chunk: TChunkHeader; ChunkData: Pointer);
+  var
+    ChunkCrc: LongWord;
+    SizeToWrite: LongInt;
+  begin
+    SizeToWrite := Chunk.DataSize;
+    Chunk.DataSize := SwapEndianLongWord(Chunk.DataSize);
+    ChunkCrc := CalcChunkCrc(Chunk, ChunkData, SizeToWrite);
+    GetIO.Write(Handle, @Chunk, SizeOf(Chunk));
+    if SizeToWrite <> 0 then
+      GetIO.Write(Handle, ChunkData, SizeToWrite);
+    GetIO.Write(Handle, @ChunkCrc, SizeOf(ChunkCrc));
+  end;
+
+  procedure WritefdAT(Frame: TFrameInfo);
+  var
+    ChunkCrc: LongWord;
+    ChunkSeqNo: LongWord;
+  begin
+    Chunk.ChunkID := fdATChunk;
+    ChunkSeqNo := GetNextSeqNo;
+    // fdAT saves seq number LongWord before compressed pixels
+    Chunk.DataSize := Frame.IDATMemory.Size + SizeOf(LongWord);
+    Chunk.DataSize := SwapEndianLongWord(Chunk.DataSize);
+    // Calc CRC
+    ChunkCrc := $FFFFFFFF;
+    CalcCrc32(ChunkCrc, @Chunk.ChunkID, SizeOf(Chunk.ChunkID));
+    CalcCrc32(ChunkCrc, @ChunkSeqNo, SizeOf(ChunkSeqNo));
+    CalcCrc32(ChunkCrc, Frame.IDATMemory.Memory, Frame.IDATMemory.Size);
+    ChunkCrc := SwapEndianLongWord(ChunkCrc xor $FFFFFFFF);
+    // Write out all fdAT data
+    GetIO.Write(Handle, @Chunk, SizeOf(Chunk));
+    GetIO.Write(Handle, @ChunkSeqNo, SizeOf(ChunkSeqNo));
+    GetIO.Write(Handle, Frame.IDATMemory.Memory, Frame.IDATMemory.Size);
+    GetIO.Write(Handle, @ChunkCrc, SizeOf(ChunkCrc));
+  end;
+
+  procedure WriteGlobalMetaDataChunks(Frame: TFrameInfo);
+  var
+    XRes, YRes: Single;
+  begin
+    if FileFormat.FMetadata.GetPhysicalPixelSize(ruDpm, XRes, YRes, True) then
+    begin
+      // Save pHYs chunk
+      Frame.pHYs.UnitSpecifier := 1;
+      // PNG stores physical resolution as dots per meter
+      Frame.pHYs.PixelsPerUnitX := Round(XRes);
+      Frame.pHYs.PixelsPerUnitY := Round(YRes);
+
+      Chunk.DataSize := SizeOf(Frame.pHYs);
+      Chunk.ChunkID := pHYsChunk;
+      SwapEndianLongWord(@Frame.pHYs, SizeOf(Frame.pHYs) div SizeOf(LongWord));
+      WriteChunk(Chunk, @Frame.pHYs);
+    end;
+  end;
+
+  procedure WritePNGMainImageChunks(Frame: TFrameInfo);
+  begin
+    with Frame do
+    begin
+      // Write IHDR chunk
+      Chunk.DataSize := SizeOf(IHDR);
+      Chunk.ChunkID := IHDRChunk;
+      WriteChunk(Chunk, @IHDR);
+      // Write PLTE chunk if data is present
+      if Palette <> nil then
+      begin
+        Chunk.DataSize := PaletteEntries * SizeOf(TColor24Rec);
+        Chunk.ChunkID := PLTEChunk;
+        WriteChunk(Chunk, Palette);
+      end;
+      // Write tRNS chunk if data is present
+      if Transparency <> nil then
+      begin
+        Chunk.DataSize := TransparencySize;
+        Chunk.ChunkID := tRNSChunk;
+        WriteChunk(Chunk, Transparency);
+      end;
+    end;
+    // Write metadata related chunks
+    WriteGlobalMetaDataChunks(Frame);
+  end;
+
+begin
+  Result := False;
+  SeqNo := 0;
+
+  case FileType of
+    ngPNG, ngAPNG: GetIO.Write(Handle, @PNGSignature, SizeOf(TChar8));
+    ngMNG: GetIO.Write(Handle, @MNGSignature, SizeOf(TChar8));
+    ngJNG: GetIO.Write(Handle, @JNGSignature, SizeOf(TChar8));
+  end;
+
+  if FileType = ngMNG then
+  begin
+    // MNG - main header before frames
+    SwapEndianLongWord(@MHDR, SizeOf(MHDR) div SizeOf(LongWord));
+    Chunk.DataSize := SizeOf(MHDR);
+    Chunk.ChunkID := MHDRChunk;
+    WriteChunk(Chunk, @MHDR);
+  end
+  else if FileType = ngAPNG then
+  begin
+    // APNG - IHDR and global chunks for all frames, then acTL chunk, then frames
+    // (fcTL+IDAT, fcTL+fdAT, fcTL+fdAT, fcTL+fdAT, ....)
+    WritePNGMainImageChunks(Frames[0]);
+
+    // Animation control chunk
+    acTL.NumFrames := Length(Frames);
+    if FileFormat.FMetadata.HasMetaItemForSaving(SMetaAnimationLoops) then
+    begin
+      // Number of plays of APNG animation
+      acTL.NumPlay:= FileFormat.FMetadata.MetaItemsForSaving[SMetaAnimationLoops];
+    end
+    else
+      acTL.NumPlay := 0;
+    SwapEndianLongWord(@acTL, SizeOf(acTL) div SizeOf(LongWord));
+
+    Chunk.DataSize := SizeOf(acTL);
+    Chunk.ChunkID := acTLChunk;
+    WriteChunk(Chunk, @acTL);
+  end;
+
+  for I := 0 to Length(Frames) - 1 do
+  with Frames[I] do
+  begin
+    if IsJpegFrame then
+    begin
+      // Write JHDR chunk
+      Chunk.DataSize := SizeOf(JHDR);
+      Chunk.ChunkID := JHDRChunk;
+      WriteChunk(Chunk, @JHDR);
+      // Write metadata related chunks
+      WriteGlobalMetaDataChunks(Frames[I]);
+      // Write JNG image data
+      Chunk.DataSize := JDATMemory.Size;
+      Chunk.ChunkID := JDATChunk;
+      WriteChunk(Chunk, JDATMemory.Memory);
+      // Write alpha channel if present
+      if JHDR.AlphaSampleDepth > 0 then
+      begin
+        if JHDR.AlphaCompression = 0 then
+        begin
+          // Alpha is PNG compressed
+          Chunk.DataSize := IDATMemory.Size;
+          Chunk.ChunkID := IDATChunk;
+          WriteChunk(Chunk, IDATMemory.Memory);
+        end
+        else
+        begin
+          // Alpha is JNG compressed
+          Chunk.DataSize := JDAAMemory.Size;
+          Chunk.ChunkID := JDAAChunk;
+          WriteChunk(Chunk, JDAAMemory.Memory);
+        end;
+      end;
+      // Write image end
+      Chunk.DataSize := 0;
+      Chunk.ChunkID := IENDChunk;
+      WriteChunk(Chunk, nil);
+    end
+    else if FileType <> ngAPNG then
+    begin
+      // Regular PNG frame (single PNG image or MNG frame)
+      WritePNGMainImageChunks(Frames[I]);
+      // Write PNG image data
+      Chunk.DataSize := IDATMemory.Size;
+      Chunk.ChunkID := IDATChunk;
+      WriteChunk(Chunk, IDATMemory.Memory);
+      // Write image end
+      Chunk.DataSize := 0;
+      Chunk.ChunkID := IENDChunk;
+      WriteChunk(Chunk, nil);
+    end
+    else if FileType = ngAPNG then
+    begin
+      // APNG frame - Write fcTL before frame data
+      Chunk.DataSize := SizeOf(fcTL);
+      Chunk.ChunkID := fcTLChunk;
+      fcTl.SeqNumber := GetNextSeqNo;
+      WriteChunk(Chunk, @fcTL);
+      // Write data - IDAT for first frame and fdAT for following ones
+      if I = 0 then
+      begin
+        Chunk.DataSize := IDATMemory.Size;
+        Chunk.ChunkID := IDATChunk;
+        WriteChunk(Chunk, IDATMemory.Memory);
+      end
+      else
+        WritefdAT(Frames[I]);
+      // Write image end after last frame
+      if I = Length(Frames) - 1 then
+      begin
+        Chunk.DataSize := 0;
+        Chunk.ChunkID := IENDChunk;
+        WriteChunk(Chunk, nil);
+      end;
+    end;
+  end;
+
+  if FileType = ngMNG then
+  begin
+    Chunk.DataSize := 0;
+    Chunk.ChunkID := MENDChunk;
+    WriteChunk(Chunk, nil);
+  end;
+end;
+
+procedure TNGFileSaver.SetFileOptions;
+begin
+  PreFilter := FileFormat.FPreFilter;
+  CompressLevel := FileFormat.FCompressLevel;
+  LossyAlpha := FileFormat.FLossyAlpha;
+  Quality := FileFormat.FQuality;
+  Progressive := FileFormat.FProgressive;
+  ZLibStrategy := FileFormat.FZLibStategy;
+end;
+
+{ TAPNGAnimator class implementation }
+
+class procedure TAPNGAnimator.Animate(var Images: TDynImageDataArray;
+  const acTL: TacTL; const SrcFrames: array of TFrameInfo);
+var
+  I, SrcIdx, Offset, Len: Integer;
+  DestFrames: TDynImageDataArray;
+  SrcCanvas, DestCanvas: TImagingCanvas;
+  PreviousCache: TImageData;
+
+  function AnimatingNeeded: Boolean;
+  var
+    I: Integer;
+  begin
+    Result := False;
+    for I := 0 to Len - 1 do
+    with SrcFrames[I] do
+    begin
+      if (FrameWidth <> Integer(IHDR.Width)) or (FrameHeight <> Integer(IHDR.Height)) or (Len <> Integer(acTL.NumFrames)) or
+        (not ((fcTL.DisposeOp = DisposeOpNone) and (fcTL.BlendOp = BlendOpSource)) and
+        not ((fcTL.DisposeOp = DisposeOpBackground) and (fcTL.BlendOp = BlendOpSource)) and
+        not ((fcTL.DisposeOp = DisposeOpBackground) and (fcTL.BlendOp = BlendOpOver))) then
+      begin
+        Result := True;
+        Exit;
+      end;
+    end;
+  end;
+
+begin
+  Len := Length(SrcFrames);
+  if (Len = 0) or not AnimatingNeeded then
+    Exit;
+
+  if (Len = Integer(acTL.NumFrames) + 1) and (SrcFrames[0].fcTL.Width = 0) then
+  begin
+    // If default image (stored in IDAT chunk) isn't part of animation we ignore it
+    Offset := 1;
+    Len := Len - 1;
+  end
+  else
+    Offset := 0;
+
+  SetLength(DestFrames, Len);
+  DestCanvas := ImagingCanvases.FindBestCanvasForImage(Images[0]).Create;
+  SrcCanvas := ImagingCanvases.FindBestCanvasForImage(Images[0]).Create;
+  InitImage(PreviousCache);
+  NewImage(SrcFrames[0].IHDR.Width, SrcFrames[0].IHDR.Height, Images[0].Format, PreviousCache);
+
+  for I := 0 to Len - 1 do
+  begin
+    SrcIdx := I + Offset;
+    NewImage(SrcFrames[SrcIdx].IHDR.Width, SrcFrames[SrcIdx].IHDR.Height,
+      Images[SrcIdx].Format, DestFrames[I]);
+    if DestFrames[I].Format = ifIndex8 then
+      Move(Images[SrcIdx].Palette^, DestFrames[I].Palette^, 256 * SizeOf(TColor32));
+    DestCanvas.CreateForData(@DestFrames[I]);
+
+    if (SrcFrames[SrcIdx].fcTL.DisposeOp = DisposeOpPrevious) and (SrcFrames[SrcIdx - 1].fcTL.DisposeOp <> DisposeOpPrevious) then
+    begin
+      // Cache current output buffer so we may return to it later (previous dispose op)
+      CopyRect(DestFrames[I - 1], 0, 0, DestFrames[I - 1].Width, DestFrames[I - 1].Height,
+        PreviousCache, 0, 0);
+    end;
+
+    if (I = 0) or (SrcIdx = 0) then
+    begin
+      // Clear whole frame with transparent black color (default for first frame)
+      DestCanvas.FillColor32 := pcClear;
+      DestCanvas.Clear;
+    end
+    else if SrcFrames[SrcIdx - 1].fcTL.DisposeOp = DisposeOpBackground then
+    begin
+      // Restore background color (clear) on previous frame's area and leave previous content outside of it
+      CopyRect(DestFrames[I - 1], 0, 0, DestFrames[I - 1].Width, DestFrames[I - 1].Height,
+        DestFrames[I], 0, 0);
+      DestCanvas.FillColor32 := pcClear;
+      DestCanvas.FillRect(BoundsToRect(SrcFrames[SrcIdx - 1].fcTL.XOffset, SrcFrames[SrcIdx - 1].fcTL.YOffset,
+        SrcFrames[SrcIdx - 1].FrameWidth, SrcFrames[SrcIdx - 1].FrameHeight));
+    end
+    else if SrcFrames[SrcIdx - 1].fcTL.DisposeOp = DisposeOpNone then
+    begin
+      // Clone previous frame - no change to output buffer
+      CopyRect(DestFrames[I - 1], 0, 0, DestFrames[I - 1].Width, DestFrames[I - 1].Height,
+        DestFrames[I], 0, 0);
+    end
+    else if SrcFrames[SrcIdx - 1].fcTL.DisposeOp = DisposeOpPrevious then
+    begin
+      // Revert to previous frame (cached, can't just restore DestFrames[I - 2])
+      CopyRect(PreviousCache, 0, 0, PreviousCache.Width, PreviousCache.Height,
+        DestFrames[I], 0, 0);
+    end;
+
+    // Copy pixels or alpha blend them over
+    if SrcFrames[SrcIdx].fcTL.BlendOp = BlendOpSource then
+    begin
+      CopyRect(Images[SrcIdx], 0, 0, Images[SrcIdx].Width, Images[SrcIdx].Height,
+        DestFrames[I], SrcFrames[SrcIdx].fcTL.XOffset, SrcFrames[SrcIdx].fcTL.YOffset);
+    end
+    else if SrcFrames[SrcIdx].fcTL.BlendOp = BlendOpOver then
+    begin
+      SrcCanvas.CreateForData(@Images[SrcIdx]);
+      SrcCanvas.DrawAlpha(SrcCanvas.ClipRect, DestCanvas,
+        SrcFrames[SrcIdx].fcTL.XOffset, SrcFrames[SrcIdx].fcTL.YOffset);
+    end;
+
+    FreeImage(Images[SrcIdx]);
+  end;
+
+  DestCanvas.Free;
+  SrcCanvas.Free;
+  FreeImage(PreviousCache);
+
+  // Assign dest frames to final output images
+  Images := DestFrames;
+end;
+
+{ TNetworkGraphicsFileFormat class implementation }
+
+procedure TNetworkGraphicsFileFormat.Define;
+begin
+  inherited;
+  FFeatures := [ffLoad, ffSave];
+
+  FPreFilter := NGDefaultPreFilter;
+  FCompressLevel := NGDefaultCompressLevel;
+  FLossyAlpha := NGDefaultLossyAlpha;
+  FLossyCompression := NGDefaultLossyCompression;
+  FQuality := NGDefaultQuality;
+  FProgressive := NGDefaultProgressive;
+  FZLibStategy := NGDefaultZLibStartegy;
+end;
+
+procedure TNetworkGraphicsFileFormat.CheckOptionsValidity;
+begin
+  // Just check if save options has valid values
+  if not (FPreFilter in [0..6]) then
+    FPreFilter := NGDefaultPreFilter;
+  if not (FCompressLevel in [0..9]) then
+    FCompressLevel := NGDefaultCompressLevel;
+  if not (FQuality in [1..100]) then
+    FQuality := NGDefaultQuality;
+end;
+
+function TNetworkGraphicsFileFormat.GetSupportedFormats: TImageFormats;
+begin
+  if FLossyCompression then
+    Result := NGLossyFormats
+  else
+    Result := NGLosslessFormats;
+end;
+
+procedure TNetworkGraphicsFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if not FLossyCompression then
+  begin
+    // Convert formats for lossless compression
+    if Info.HasGrayChannel then
+    begin
+      if Info.HasAlphaChannel then
+      begin
+        if Info.BytesPerPixel <= 2 then
+          // Convert <= 16bit grayscale images with alpha to ifA8Gray8
+          ConvFormat := ifA8Gray8
+        else
+          // Convert > 16bit grayscale images with alpha to ifA16Gray16
+          ConvFormat := ifA16Gray16
+      end
+      else
+        // Convert grayscale images without alpha to ifGray16
+        ConvFormat := ifGray16;
+    end
+    else
+      if Info.IsFloatingPoint then
+        // Convert floating point images to 64 bit ARGB (or RGB if no alpha)
+        ConvFormat := IffFormat(Info.HasAlphaChannel, ifA16B16G16R16, ifB16G16R16)
+      else if Info.HasAlphaChannel or Info.IsSpecial then
+        // Convert all other images with alpha or special images to A8R8G8B8
+        ConvFormat := ifA8R8G8B8
+      else
+        // Convert images without alpha to R8G8B8
+        ConvFormat := ifR8G8B8;
+  end
+  else
+  begin
+    // Convert formats for lossy compression
+    if Info.HasGrayChannel then
+      ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8Gray8, ifGray8)
+    else
+      ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8R8G8B8, ifR8G8B8);
+  end;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+function TNetworkGraphicsFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  ReadCount: LongInt;
+  Sig: TChar8;
+begin
+  Result := False;
+  if Handle <> nil then
+    with GetIO do
+    begin
+      FillChar(Sig, SizeOf(Sig), 0);
+      ReadCount := Read(Handle, @Sig, SizeOf(Sig));
+      Seek(Handle, -ReadCount, smFromCurrent);
+      Result := (ReadCount = SizeOf(Sig)) and (Sig = FSignature);
+    end;
+end;
+
+{ TPNGFileFormat class implementation }
+
+procedure TPNGFileFormat.Define;
+begin
+  inherited;
+  FName := SPNGFormatName;
+  FFeatures := FFeatures + [ffMultiImage];
+  FLoadAnimated := PNGDefaultLoadAnimated;
+  AddMasks(SPNGMasks);
+
+  FSignature := PNGSignature;
+
+  RegisterOption(ImagingPNGPreFilter, @FPreFilter);
+  RegisterOption(ImagingPNGCompressLevel, @FCompressLevel);
+  RegisterOption(ImagingPNGLoadAnimated, @FLoadAnimated);
+  RegisterOption(ImagingPNGZLibStrategy, @FZLibStategy);
+end;
+
+function TPNGFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  I, Len: LongInt;
+  NGFileLoader: TNGFileLoader;
+begin
+  Result := False;
+  NGFileLoader := TNGFileLoader.Create(Self);
+  try
+    // Use NG file parser to load file
+    if NGFileLoader.LoadFile(Handle) and (Length(NGFileLoader.Frames) > 0) then
+    begin
+      Len := Length(NGFileLoader.Frames);
+      SetLength(Images, Len);
+      for I := 0 to Len - 1 do
+      with NGFileLoader.Frames[I] do
+      begin
+        // Build actual image bits
+        if not IsJpegFrame then
+          NGFileLoader.LoadImageFromPNGFrame(FrameWidth, FrameHeight, IHDR, IDATMemory, Images[I]);
+        // Build palette, aply color key or background
+
+        NGFileLoader.ApplyFrameSettings(NGFileLoader.Frames[I], Images[I]);
+        Result := True;
+      end;
+      // Animate APNG images
+      if (NGFileLoader.FileType = ngAPNG) and FLoadAnimated then
+        TAPNGAnimator.Animate(Images, NGFileLoader.acTL, NGFileLoader.Frames);
+    end;
+  finally
+    NGFileLoader.LoadMetaData; // Store metadata
+    NGFileLoader.Free;
+  end;
+end;
+
+function TPNGFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  I: Integer;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+  NGFileSaver: TNGFileSaver;
+  DefaultFormat: TImageFormat;
+  Screen: TImageData;
+  AnimWidth, AnimHeight: Integer;
+begin
+  Result := False;
+  DefaultFormat := ifDefault;
+  AnimWidth := 0;
+  AnimHeight := 0;
+  NGFileSaver := TNGFileSaver.Create(Self);
+
+  // Save images with more frames as APNG format
+  if Length(Images) > 1 then
+  begin
+    NGFileSaver.FileType := ngAPNG;
+    // Get max dimensions of frames
+    AnimWidth := Images[FFirstIdx].Width;
+    AnimHeight := Images[FFirstIdx].Height;
+    for I := FFirstIdx + 1 to FLastIdx do
+    begin
+      AnimWidth := Max(AnimWidth, Images[I].Width);
+      AnimHeight := Max(AnimHeight, Images[I].Height);
+    end;
+  end
+  else
+    NGFileSaver.FileType := ngPNG;
+
+  NGFileSaver.SetFileOptions;
+
+  with NGFileSaver do
+  try
+    // Store all frames to be saved frames file saver
+    for I := FFirstIdx to FLastIdx do
+    begin
+      if MakeCompatible(Images[I], ImageToSave, MustBeFreed) then
+      try
+        if FileType = ngAPNG then
+        begin
+          // IHDR chunk is shared for all frames so all frames must have the
+          // same data format as the first image.
+          if I = FFirstIdx then
+          begin
+            DefaultFormat := ImageToSave.Format;
+            // Subsequenet frames may be bigger than the first one.
+            // APNG doens't support this - max allowed size is what's written in
+            // IHDR - size of main/default/first image. If some frame is
+            // bigger than the first one we need to resize (create empty bigger
+            // image and copy) the first frame so all following frames could fit to
+            // its area.
+            if (ImageToSave.Width <> AnimWidth) or (ImageToSave.Height <> AnimHeight) then
+            begin
+              InitImage(Screen);
+              NewImage(AnimWidth, AnimHeight, ImageToSave.Format, Screen);
+              CopyRect(ImageToSave, 0, 0, ImageToSave.Width, ImageToSave.Height, Screen, 0, 0);
+              if MustBeFreed then
+                FreeImage(ImageToSave);
+              ImageToSave := Screen;
+            end;
+          end
+          else if ImageToSave.Format <> DefaultFormat then
+          begin
+            if MustBeFreed then
+              ConvertImage(ImageToSave, DefaultFormat)
+            else
+            begin
+              CloneImage(Images[I], ImageToSave);
+              ConvertImage(ImageToSave, DefaultFormat);
+              MustBeFreed := True;
+            end;
+          end;
+        end;
+
+        // Add image as PNG frame
+        AddFrame(ImageToSave, False);
+      finally
+        if MustBeFreed then
+          FreeImage(ImageToSave);
+      end
+      else
+        Exit;
+    end;
+
+    // Finally save PNG file
+    SaveFile(Handle);
+    Result := True;
+  finally
+    NGFileSaver.Free;
+  end;
+end;
+
+{$IFNDEF DONT_LINK_MNG}
+
+{ TMNGFileFormat class implementation }
+
+procedure TMNGFileFormat.Define;
+begin
+  inherited;
+  FName := SMNGFormatName;
+  FFeatures := FFeatures + [ffMultiImage];
+  AddMasks(SMNGMasks);
+
+  FSignature := MNGSignature;
+
+  RegisterOption(ImagingMNGLossyCompression, @FLossyCompression);
+  RegisterOption(ImagingMNGLossyAlpha, @FLossyAlpha);
+  RegisterOption(ImagingMNGPreFilter, @FPreFilter);
+  RegisterOption(ImagingMNGCompressLevel, @FCompressLevel);
+  RegisterOption(ImagingMNGQuality, @FQuality);
+  RegisterOption(ImagingMNGProgressive, @FProgressive);
+end;
+
+function TMNGFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  NGFileLoader: TNGFileLoader;
+  I, Len: LongInt;
+begin
+  Result := False;
+  NGFileLoader := TNGFileLoader.Create(Self);
+  try
+    // Use NG file parser to load file
+    if NGFileLoader.LoadFile(Handle) then
+    begin
+      Len := Length(NGFileLoader.Frames);
+      if Len > 0 then
+      begin
+        SetLength(Images, Len);
+        for I := 0 to Len - 1 do
+        with NGFileLoader.Frames[I] do
+        begin
+          // Build actual image bits
+          if IsJpegFrame then
+            NGFileLoader.LoadImageFromJNGFrame(FrameWidth, FrameHeight, JHDR, IDATMemory, JDATMemory, JDAAMemory, Images[I])
+          else
+            NGFileLoader.LoadImageFromPNGFrame(FrameWidth, FrameHeight, IHDR, IDATMemory, Images[I]);
+          // Build palette, aply color key or background
+          NGFileLoader.ApplyFrameSettings(NGFileLoader.Frames[I], Images[I]);
+        end;
+      end
+      else
+      begin
+        // Some MNG files (with BASI-IEND streams) dont have actual pixel data
+        SetLength(Images, 1);
+        NewImage(NGFileLoader.MHDR.FrameWidth, NGFileLoader.MHDR.FrameWidth, ifDefault, Images[0]);
+      end;
+      Result := True;
+    end;
+  finally
+    NGFileLoader.LoadMetaData; // Store metadata
+    NGFileLoader.Free;
+  end;
+end;
+
+function TMNGFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  NGFileSaver: TNGFileSaver;
+  I, LargestWidth, LargestHeight: LongInt;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+begin
+  Result := False;
+  LargestWidth := 0;
+  LargestHeight := 0;
+
+  NGFileSaver := TNGFileSaver.Create(Self);
+  NGFileSaver.FileType := ngMNG;
+  NGFileSaver.SetFileOptions;
+
+  with NGFileSaver do
+  try
+    // Store all frames to be saved frames file saver
+    for I := FFirstIdx to FLastIdx do
+    begin
+      if MakeCompatible(Images[I], ImageToSave, MustBeFreed) then
+      try
+        // Add image as PNG or JNG frame
+        AddFrame(ImageToSave, FLossyCompression);
+        // Remember largest frame width and height
+        LargestWidth := Iff(LargestWidth < ImageToSave.Width, ImageToSave.Width, LargestWidth);
+        LargestHeight := Iff(LargestHeight < ImageToSave.Height, ImageToSave.Height, LargestHeight);
+      finally
+        if MustBeFreed then
+          FreeImage(ImageToSave);
+      end
+      else
+        Exit;
+    end;
+
+    // Fill MNG header
+    MHDR.FrameWidth := LargestWidth;
+    MHDR.FrameHeight := LargestHeight;
+    MHDR.TicksPerSecond := 0;
+    MHDR.NominalLayerCount := 0;
+    MHDR.NominalFrameCount := Length(Frames);
+    MHDR.NominalPlayTime := 0;
+    MHDR.SimplicityProfile := 473; // 111011001 binary, defines MNG-VLC with transparency and JNG support
+
+    // Finally save MNG file
+    SaveFile(Handle);
+    Result := True;
+  finally
+    NGFileSaver.Free;
+  end;
+end;
+
+{$ENDIF}
+
+{$IFNDEF DONT_LINK_JNG}
+
+{ TJNGFileFormat class implementation }
+
+procedure TJNGFileFormat.Define;
+begin
+  inherited;
+  FName := SJNGFormatName;
+  AddMasks(SJNGMasks);
+
+  FSignature := JNGSignature;
+  FLossyCompression := True;
+
+  RegisterOption(ImagingJNGLossyAlpha, @FLossyAlpha);
+  RegisterOption(ImagingJNGAlphaPreFilter, @FPreFilter);
+  RegisterOption(ImagingJNGAlphaCompressLevel, @FCompressLevel);
+  RegisterOption(ImagingJNGQuality, @FQuality);
+  RegisterOption(ImagingJNGProgressive, @FProgressive);
+
+end;
+
+function TJNGFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  NGFileLoader: TNGFileLoader;
+begin
+  Result := False;
+  NGFileLoader := TNGFileLoader.Create(Self);
+  try
+    // Use NG file parser to load file
+    if NGFileLoader.LoadFile(Handle) and (Length(NGFileLoader.Frames) > 0) then
+    with NGFileLoader.Frames[0] do
+    begin
+      SetLength(Images, 1);
+      // Build actual image bits
+      if IsJpegFrame then
+        NGFileLoader.LoadImageFromJNGFrame(FrameWidth, FrameHeight, JHDR, IDATMemory, JDATMemory, JDAAMemory, Images[0]);
+      // Build palette, aply color key or background
+      NGFileLoader.ApplyFrameSettings(NGFileLoader.Frames[0], Images[0]);
+      Result := True;
+    end;
+  finally
+    NGFileLoader.LoadMetaData; // Store metadata
+    NGFileLoader.Free;
+  end;
+end;
+
+function TJNGFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  NGFileSaver: TNGFileSaver;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+begin
+  // Make image JNG compatible, store it in saver, and save it to file
+  Result := MakeCompatible(Images[Index], ImageToSave, MustBeFreed);
+  if Result then
+  begin
+    NGFileSaver := TNGFileSaver.Create(Self);
+    with NGFileSaver do
+    try
+      FileType := ngJNG;
+      SetFileOptions;
+      AddFrame(ImageToSave, True);
+      SaveFile(Handle);
+    finally
+      // Free NG saver and compatible image
+      NGFileSaver.Free;
+      if MustBeFreed then
+        FreeImage(ImageToSave);
+    end;
+  end;
+end;
+
+{$ENDIF}
+
+initialization
+  RegisterImageFileFormat(TPNGFileFormat);
+{$IFNDEF DONT_LINK_MNG}
+  RegisterImageFileFormat(TMNGFileFormat);
+{$ENDIF}
+{$IFNDEF DONT_LINK_JNG}
+  RegisterImageFileFormat(TJNGFileFormat);
+{$ENDIF}
+finalization
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77 Changes/Bug Fixes -----------------------------------
+    - Reads and writes APNG animation loop count metadata.
+    - Writes frame delays of APNG from metadata.
+    - Fixed color keys in 8bit depth PNG/MNG loading.
+    - Fixed needless (and sometimes buggy) conversion to format with alpha
+      channel in FPC (GetMem(0) <> nil!).
+    - Added support for optional ZLib compression strategy.
+    - Added loading and saving of ifBinary (1bit black and white)
+      format images. During loading grayscale 1bpp and indexed 1bpp
+      (with only black and white colors in palette) are treated as ifBinary.
+      ifBinary are saved as 1bpp grayscale PNGs.
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Reads frame delays from APNG files into metadata.
+    - Added loading and saving of metadata from these chunks: pHYs.
+    - Simplified decoding of 1/2/4 bit images a bit (less code).
+
+  -- 0.26.3 Changes/Bug Fixes ---------------------------------
+    - Added APNG saving support.
+    - Added APNG support to NG loader and animating to PNG loader.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - Changed file format conditional compilation to reflect changes
+      in LINK symbols.
+
+  -- 0.24.3 Changes/Bug Fixes ---------------------------------
+    - Changes for better thread safety.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added loading of global palettes and transparencies in MNG files
+      (and by doing so fixed crash when loading images with global PLTE or tRNS).
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Small changes in converting to supported formats.
+    - MakeCompatible method moved to base class, put ConvertToSupported here.
+      GetSupportedFormats removed, it is now set in constructor.
+    - Made public properties for options registered to SetOption/GetOption
+      functions.
+    - Changed extensions to filename masks.
+    - Changed SaveData, LoadData, and MakeCompatible methods according
+      to changes in base class in Imaging unit.
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - MNG and JNG support added, PNG support redesigned to support NG file handlers
+    - added classes for working with NG file formats
+    - stuff from old ImagingPng unit added and that unit was deleted
+    - unit created and initial stuff added
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - when saving indexed images save alpha to tRNS?
+    - added some defines and ifdefs to dzlib unit to allow choosing
+      impaszlib, fpc's paszlib, zlibex or other zlib implementation
+    - added colorkeying support
+    - fixed 16bit channel image handling - pixels were not swapped
+    - fixed arithmetic overflow (in paeth filter) in FPC
+    - data of unknown chunks are skipped and not needlesly loaded
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - adaptive filtering added to PNG saving
+    - TPNGFileFormat class added
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingOptions.inc b/src/lib/vampimg/ImagingOptions.inc

new file mode 100644 (file)

index 0000000..deb21e4
--- /dev/null
+++ b/src/lib/vampimg/ImagingOptions.inc
@@ -0,0 +1,216 @@
+{
+  User Options
+  Following defines and options can be changed by user.
+}
+
+{ Source options }
+
+{$DEFINE USE_INLINE}          // Use function inlining for some functions
+                              // works in Free Pascal and Delphi 9+.
+{$DEFINE USE_ASM}             // Ff defined, assembler versions of some
+                              // functions will be used (only for x86).
+
+                              // Debug options: If none of these two are defined
+                              // your project settings are used.
+{ $DEFINE IMAGING_DEBUG}      // If defined, debug info, range/IO/overflow
+                              // checking, stack frames, assertions, and
+                              // other debugging options will be turned on.
+{ $DEFINE IMAGING_RELEASE}    // If defined, all debug info is off.
+
+
+
+(* File format support linking options.
+  Define formats which you don't want to be registred automatically.
+  Default: all formats are registered = no symbols defined.
+  Example: If you want to disable JPEG support just uncomment //{$DEFINE DONT_LINK_JPEG} line
+*)
+
+//{$DEFINE DONT_LINK_JPEG}        // link support for Jpeg images
+//{$DEFINE DONT_LINK_PNG}         // link support for PNG images
+//{$DEFINE DONT_LINK_TARGA}       // link support for Targa images
+//{$DEFINE DONT_LINK_BITMAP}      // link support for Windows Bitmap images
+//{$DEFINE DONT_LINK_DDS}         // link support for DDS images
+//{$DEFINE DONT_LINK_GIF}         // link support for GIF images
+{$DEFINE DONT_LINK_MNG}         // link support for MNG images
+{$DEFINE DONT_LINK_JNG}         // link support for JNG images
+//{$DEFINE DONT_LINK_PNM}         // link support for PortableMap images (PBM, PGM, PPM, PAM, PFM)
+{$DEFINE DONT_LINK_RADHDR}      // link support for Radiance HDR/RGBE file format
+
+//{$DEFINE DONT_LINK_EXTRAS}  // link support for file formats defined in
+                             // Extras package. Exactly which formats will be
+                             // registered depends on settings in
+                             // ImagingExtras.pas unit.
+
+{ Component set used in ImagignComponents.pas unit. You usually don't need
+  to be concerned with this - proper component library is selected automatically
+  according to your compiler. }
+
+{ $DEFINE COMPONENT_SET_VCL}   // use Delphi VCL
+{ $DEFINE COMPONENT_SET_LCL}  // use Lazarus LCL (set automatically when compiling with FPC)
+
+{
+  Auto Options
+  Following options and defines are set automatically and some
+  are required for Imaging to compile successfully. Do not change
+  anything here if you don't know what you are doing.
+}
+
+{ Compiler options }
+
+{$ALIGN ON}               // Field alignment: 8 Bytes (in D6+)
+{$BOOLEVAL OFF}           // Boolean eval: off
+{$EXTENDEDSYNTAX ON}      // Extended syntax: on
+{$LONGSTRINGS ON}         // string = AnsiString: on
+{$MINENUMSIZE 4}          // Min enum size: 4 B
+{$TYPEDADDRESS OFF}       // Typed pointers: off
+{$WRITEABLECONST OFF}     // Writeable constants: off
+
+{$IFNDEF FPC}
+  {$DEFINE DCC}           // if not using FPC then DCC compiler is used (Delphi/BCB)
+                          // others are not supported
+{$ENDIF}
+
+{$IFDEF DCC}
+  {$DEFINE DELPHI}
+{$ENDIF}
+
+{$IF (Defined(DCC) and (CompilerVersion >= 18.5))}
+  {$IFDEF RELEASE}
+    {$UNDEF DEBUG} // If we are using Delphi 2007+ where you can set
+                   // DEBUG/RELEASE mode in project options and RELEASE
+                   // is currently set we undef DEBUG mode
+  {$ENDIF}
+{$IFEND}
+
+{$IF Defined(IMAGING_DEBUG)}
+  {$ASSERTIONS ON}
+  {$DEBUGINFO ON}
+  {$RANGECHECKS ON}
+  {$IOCHECKS ON}
+  {$OVERFLOWCHECKS ON}
+  {$IFDEF DCC}
+    {$OPTIMIZATION OFF}
+    {$STACKFRAMES ON}
+    {$LOCALSYMBOLS ON}
+    {$DEFINE MEMCHECK}
+  {$ENDIF}
+  {$IFDEF FPC}
+    {$S+}
+    {$CHECKPOINTER ON}
+  {$ENDIF}
+{$ELSEIF Defined(IMAGING_RELEASE)}
+  {$ASSERTIONS OFF}
+  {$DEBUGINFO OFF}
+  {$RANGECHECKS OFF}
+  {$IOCHECKS OFF}
+  {$OVERFLOWCHECKS OFF}
+  {$IFDEF DCC}
+    {$OPTIMIZATION ON}
+    {$STACKFRAMES OFF}
+    {$LOCALSYMBOLS OFF}
+  {$ENDIF}
+  {$IFDEF FPC}
+    {$S-}
+  {$ENDIF}
+{$IFEND}
+
+{$IF Defined (CPU86) and not Defined(CPUX86)}
+  {$DEFINE CPUX86} // Compatibility with Delphi
+{$IFEND}
+
+{$IF Defined (CPUX86_64) and not Defined(CPUX64)}
+  {$DEFINE CPUX64} // Compatibility with Delphi
+{$IFEND}
+
+{$IF Defined (DARWIN) and not Defined(MACOSX)}
+  {$DEFINE MACOS} // Compatibility with Delphi
+{$IFEND}
+
+{$IF Defined(DCC) and (CompilerVersion < 23)}
+  {$DEFINE CPUX86} // Compatibility with older Delphi
+{$IFEND}
+
+{ Compiler capabilities }
+
+// Define if compiler supports inlining of functions and procedures
+{$IF (Defined(DCC) and (CompilerVersion >= 17)) or Defined(FPC)}
+  {$DEFINE HAS_INLINE}
+{$IFEND}
+
+// Define if compiler supports advanced records with methods
+{$IF (Defined(DCC) and (CompilerVersion >= 18)) or
+  (Defined(FPC) and (FPC_FULLVERSION >= 20600))}
+  {$DEFINE HAS_ADVANCED_RECORDS}
+{$IFEND}
+
+// Define if compiler supports operator overloading
+// (unfortunately Delphi and FPC operator overloading is not compatible).
+// FPC supports Delphi compatible operator overloads since 2.6.0
+{$IF (Defined(DCC) and (CompilerVersion >= 18)) or
+  (Defined(FPC) and (FPC_FULLVERSION >= 20600))}
+  {$DEFINE HAS_OPERATOR_OVERLOADING}
+{$IFEND}
+
+// Anonymous methods
+{$IF Defined(DCC) and (CompilerVersion >= 20) }
+  {$DEFINE HAS_ANON_METHODS}
+{$IFEND}
+
+// Generic types (Delphi and FPC implementations incompatible).
+// Update: FPC supports Delphi compatible generics since 2.6.0
+{$IF (Defined(DCC) and (CompilerVersion >= 20)) or
+  (Defined(FPC) and (FPC_FULLVERSION >= 20600))}
+  {$DEFINE HAS_GENERICS}
+{$IFEND}
+
+{ Imaging options check}
+
+{$IFNDEF HAS_INLINE}
+  {$UNDEF USE_INLINE}
+{$ENDIF}
+
+{$IF not Defined(CPUX86)}
+  {$UNDEF USE_ASM}
+{$IFEND}
+
+{$IFDEF FPC}
+  {$DEFINE COMPONENT_SET_LCL}
+  {$UNDEF COMPONENT_SET_VCL}
+{$ENDIF}
+
+{$IFDEF DELPHI}
+  {$UNDEF COMPONENT_SET_LCL}
+  {$DEFINE COMPONENT_SET_VCL}
+{$ENDIF}
+
+{ Platform options }
+
+{$IF Defined(WIN32) or Defined(WIN64)}
+  {$DEFINE MSWINDOWS}
+{$IFEND}
+
+{$IFDEF LINUX}
+  {$DEFINE UNIX}
+{$ENDIF}
+
+{ More compiler options }
+
+{$IFDEF FPC}               // Free Pascal options - some options set above (like min enum size)
+                           // are reset to defaults by setting {$MODE} so they are
+                           // redeclared here
+  {$MODE DELPHI}           // compatible with delphi
+  {$GOTO ON}               // alow goto
+  {$PACKRECORDS 8}         // same as ALING 8 for Delphi
+  {$PACKENUM 4}            // Min enum size: 4 B
+  {$IFDEF CPU86}
+    {$ASMMODE INTEL}       // intel assembler mode
+  {$ENDIF}
+{$ENDIF}
+
+{$IFDEF HAS_INLINE}
+  {$INLINE ON}             // turns inlining on for compilers that support it
+{$ENDIF}
+
+{$WARNINGS OFF}
+{$HINTS OFF}
+{$NOTES OFF}
diff --git a/src/lib/vampimg/ImagingPcx.pas b/src/lib/vampimg/ImagingPcx.pas

new file mode 100644 (file)

index 0000000..d278542
--- /dev/null
+++ b/src/lib/vampimg/ImagingPcx.pas
@@ -0,0 +1,375 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader for ZSoft Paintbrush images known as PCX.}
+unit ImagingPcx;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  ImagingTypes, Imaging, ImagingFormats, ImagingUtility, ImagingIO;
+
+type
+  { Class for loading  ZSoft Paintbrush images known as PCX. It is old
+    format which can store 1bit, 2bit, 4bit, 8bit, and 24bit (and 32bit but is
+    probably non-standard) images. Only loading is supported (you can still come
+    accross some PCX files) but saving is not (I don't wont this venerable format
+    to spread).}
+  TPCXFileFormat = class(TImageFileFormat)
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  end;
+
+implementation
+
+const
+  SPCXFormatName = 'ZSoft Paintbrush Image';
+  SPCXMasks      = '*.pcx';
+
+type
+  TPCXHeader = packed record
+    Id: Byte;            // Always $0A
+    Version: Byte;       // 0, 2, 3, 4, 5
+    Encoding: Byte;      // 0, 1
+    BitsPerPixel: Byte;  // 1, 2, 4, 8
+    X0, Y0: Word;        // Image window top-left
+    X1, Y1: Word;        // Image window bottom-right
+    DpiX: Word;
+    DpiY: Word;
+    Palette16: array [0..15] of TColor24Rec;
+    Reserved1: Byte;
+    Planes: Byte;        // 1, 3, 4
+    BytesPerLine: Word;
+    PaletteType: Word;   // 1: color or s/w   2: grayscale
+    Reserved2: array [0..57] of Byte;
+  end;
+
+{ TPCXFileFormat }
+
+procedure TPCXFileFormat.Define;
+begin
+  inherited;
+  FName := SPCXFormatName;
+  FFeatures := [ffLoad];
+
+  AddMasks(SPCXMasks);
+end;
+
+function TPCXFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+const
+  ifMono: TImageFormat = TImageFormat(250);
+  ifIndex2: TImageFormat = TImageFormat(251);
+  ifIndex4: TImageFormat = TImageFormat(252);
+var
+  Hdr: TPCXHeader;
+  PalID, B: Byte;
+  PalPCX: TPalette24Size256;
+  FileDataFormat: TImageFormat;
+  I, J, UncompSize, BytesPerLine, ByteNum, BitNum: LongInt;
+  UncompData, RowPointer, PixelIdx: PByte;
+  Pixel24: PColor24Rec;
+  Pixel32: PColor32Rec;
+  AlphaPlane, RedPlane, GreenPlane, BluePlane,
+  Plane1, Plane2, Plane3, Plane4: PByteArray;
+
+  procedure RleDecode(Target: PByte; UnpackedSize: LongInt);
+  var
+    Count: LongInt;
+    Source: Byte;
+  begin
+    while UnpackedSize > 0 do
+    with GetIO do
+    begin
+      GetIO.Read(Handle, @Source, SizeOf(Source));
+      if (Source and $C0) = $C0 then
+      begin
+        // RLE data
+        Count := Source and $3F;
+        if UnpackedSize < Count then
+          Count := UnpackedSize;
+        Read(Handle, @Source, SizeOf(Source));
+        FillChar(Target^, Count, Source);
+        //Inc(Source);
+        Inc(Target, Count);
+        Dec(UnpackedSize, Count);
+      end
+      else
+      begin
+        // Uncompressed data
+        Target^ := Source;
+        Inc(Target);
+        Dec(UnpackedSize);
+      end;
+    end;
+  end;
+
+begin
+  Result := False;
+  SetLength(Images, 1);
+  with GetIO, Images[0] do
+  begin
+    // Read PCX header and store input position (start of image data)
+    Read(Handle, @Hdr, SizeOf(Hdr));
+    FileDataFormat := ifUnknown;
+
+    // Determine image's data format and find its Imaging equivalent
+    // (using some custom TImageFormat constants)
+    case Hdr.BitsPerPixel of
+      1:
+        case Hdr.Planes of
+          1: FileDataFormat := ifMono;
+          4: FileDataFormat := ifIndex4;
+        end;
+      2: FileDataFormat := ifIndex2;
+      4: FileDataFormat := ifIndex4;
+      8:
+        case Hdr.Planes of
+          1: FileDataFormat := ifIndex8;
+          3: FileDataFormat := ifR8G8B8;
+          4: FileDataFormat := ifA8R8G8B8;
+        end;
+    end;
+
+    // No compatible Imaging format found, exit
+    if FileDataFormat = ifUnknown then
+      Exit;
+
+    // Get width, height, and output data format (unsupported formats
+    // like ifMono are converted later to ifIndex8)
+    Width := Hdr.X1 - Hdr.X0 + 1;
+    Height := Hdr.Y1 - Hdr.Y0 + 1;
+    if FileDataFormat in [ifIndex8, ifR8G8B8] then
+      Format := FileDataFormat
+    else
+      Format := ifIndex8;
+
+    NewImage(Width, Height, Format, Images[0]);
+
+    if not (FileDataFormat in [ifIndex8, ifR8G8B8]) then
+    begin
+      // other formats use palette embedded to file header
+      for I := Low(Hdr.Palette16) to High(Hdr.Palette16) do
+      begin
+        Palette[I].A := $FF;
+        Palette[I].R := Hdr.Palette16[I].B;
+        Palette[I].G := Hdr.Palette16[I].G;
+        Palette[I].B := Hdr.Palette16[I].R;
+      end;
+    end;
+
+    // Now we determine various data sizes
+    BytesPerLine := Hdr.BytesPerLine * Hdr.Planes;
+    UncompSize := BytesPerLine * Height;
+
+    GetMem(UncompData, UncompSize);
+    try
+      if Hdr.Encoding = 1 then
+      begin
+        // Image data is compressed -> read and decompress
+        RleDecode(UncompData, UncompSize);
+      end
+      else
+      begin
+        // Just read uncompressed data
+        Read(Handle, UncompData, UncompSize);
+      end;
+
+      if FileDataFormat in [ifR8G8B8, ifA8R8G8B8] then
+      begin
+        // RGB and ARGB images are stored in layout different from
+        // Imaging's (and most other file formats'). First there is
+        // Width red values then there is Width green values and so on
+        RowPointer := UncompData;
+
+        if FileDataFormat = ifA8R8G8B8 then
+        begin
+          Pixel32 := Bits;
+          for I := 0 to Height - 1 do
+          begin
+            AlphaPlane := PByteArray(RowPointer);
+            RedPlane :=   @AlphaPlane[Hdr.BytesPerLine];
+            GreenPlane := @AlphaPlane[Hdr.BytesPerLine * 2];
+            BluePlane :=  @AlphaPlane[Hdr.BytesPerLine * 3];
+            for J := 0 to Width - 1 do
+            begin
+              Pixel32.A := AlphaPlane[J];
+              Pixel32.R := RedPlane[J];
+              Pixel32.G := GreenPlane[J];
+              Pixel32.B := BluePlane[J];
+              Inc(Pixel32);
+            end;
+            Inc(RowPointer, BytesPerLine);
+          end;
+        end
+        else
+        begin
+          Pixel24 := Bits;
+          for I := 0 to Height - 1 do
+          begin
+            RedPlane :=   PByteArray(RowPointer);
+            GreenPlane := @RedPlane[Hdr.BytesPerLine];
+            BluePlane :=  @RedPlane[Hdr.BytesPerLine * 2];
+            for J := 0 to Width - 1 do
+            begin
+              Pixel24.R := RedPlane[J];
+              Pixel24.G := GreenPlane[J];
+              Pixel24.B := BluePlane[J];
+              Inc(Pixel24);
+            end;
+            Inc(RowPointer, BytesPerLine);
+          end;
+        end;
+      end
+      else if FileDataFormat = ifIndex8 then
+      begin
+        // Just copy 8bit lines
+        for I := 0 to Height - 1 do
+          Move(PByteArray(UncompData)[I * Hdr.BytesPerLine], PByteArray(Bits)[I * Width], Width);
+      end
+      else if FileDataFormat = ifMono then
+      begin
+        // Convert 1bit images to ifIndex8
+        Convert1To8(UncompData, Bits, Width, Height, Hdr.BytesPerLine, False);
+      end
+      else if FileDataFormat = ifIndex2 then
+      begin
+        // Convert 2bit images to ifIndex8. Note that 2bit PCX images
+        // usually use (from specs, I've never seen one myself) CGA palette
+        // which is not array of RGB tripplets. So 2bit PCXs are loaded but
+        // their colors would be wrong
+        Convert2To8(UncompData, Bits, Width, Height, Hdr.BytesPerLine, False);
+      end
+      else if FileDataFormat = ifIndex4 then
+      begin
+        // 4bit images can be stored similar to RGB images (in four one bit planes)
+        // or like array of nibbles (which is more common)
+        if (Hdr.BitsPerPixel = 1) and (Hdr.Planes = 4) then
+        begin
+          RowPointer := UncompData;
+          PixelIdx := Bits;
+          for I := 0 to Height - 1 do
+          begin
+            Plane1 := PByteArray(RowPointer);
+            Plane2 := @Plane1[Hdr.BytesPerLine];
+            Plane3 := @Plane1[Hdr.BytesPerLine * 2];
+            Plane4 := @Plane1[Hdr.BytesPerLine * 3];
+
+            for J := 0 to Width - 1 do
+            begin
+              B := 0;
+              ByteNum := J div 8;
+              BitNum := 7 - (J mod 8);
+              if (Plane1[ByteNum] shr BitNum) and $1 <> 0 then B := B or $01;
+              if (Plane2[ByteNum] shr BitNum) and $1 <> 0 then B := B or $02;
+              if (Plane3[ByteNum] shr BitNum) and $1 <> 0 then B := B or $04;
+              if (Plane4[ByteNum] shr BitNum) and $1 <> 0 then B := B or $08;
+              PixelIdx^ := B;
+              Inc(PixelIdx);
+            end;
+            Inc(RowPointer, BytesPerLine);
+          end;
+        end
+        else if (Hdr.BitsPerPixel = 4) and (Hdr.Planes = 1) then
+        begin
+          // Convert 4bit images to ifIndex8
+          Convert4To8(UncompData, Bits, Width, Height, Hdr.BytesPerLine, False);
+        end
+      end;
+
+      if FileDataFormat = ifIndex8 then
+      begin
+        // 8bit palette is appended at the end of the file
+        // with $0C identifier
+        //Seek(Handle, -769, smFromEnd);
+        Read(Handle, @PalID, SizeOf(PalID));
+        if PalID = $0C then
+        begin
+          Read(Handle, @PalPCX, SizeOf(PalPCX));
+          for I := Low(PalPCX) to High(PalPCX) do
+          begin
+            Palette[I].A := $FF;
+            Palette[I].R := PalPCX[I].B;
+            Palette[I].G := PalPCX[I].G;
+            Palette[I].B := PalPCX[I].R;
+          end;
+        end
+        else
+          Seek(Handle, -SizeOf(PalID), smFromCurrent);
+      end;
+
+    finally
+      FreeMem(UncompData);
+    end;
+    Result := True;
+  end;
+end;
+
+function TPCXFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Hdr: TPCXHeader;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @Hdr, SizeOf(Hdr));
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount >= SizeOf(Hdr)) and
+      (Hdr.Id = $0A) and
+      (Hdr.Version in [0, 2, 3, 4, 5]) and
+      (Hdr.Encoding in [0..1]) and
+      (Hdr.BitsPerPixel in [1, 2, 4, 8]) and
+      (Hdr.Planes in [1, 3, 4]) and
+      (Hdr.PaletteType in [1..2]);
+  end;
+
+end;
+
+initialization
+  RegisterImageFileFormat(TPCXFileFormat);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Made loader stream-safe - stream position is exactly at the end of the
+      image after loading and file size doesn't need to be know during the process.
+    - Initial TPCXFileFormat class implemented.
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingPortableMaps.pas b/src/lib/vampimg/ImagingPortableMaps.pas

new file mode 100644 (file)

index 0000000..89d862d
--- /dev/null
+++ b/src/lib/vampimg/ImagingPortableMaps.pas
@@ -0,0 +1,977 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains loader/saver for Portable Maps file format family (or PNM).
+  That includes PBM, PGM, PPM, PAM, and PFM formats.}
+unit ImagingPortableMaps;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, ImagingTypes, Imaging, ImagingFormats, ImagingUtility;
+
+type
+  { Types of pixels of PNM images.}
+  TTupleType = (ttInvalid, ttBlackAndWhite, ttGrayScale, ttRGB, ttBlackAndWhiteAlpha,
+    ttGrayScaleAlpha, ttRGBAlpha, ttGrayScaleFP, ttRGBFP);
+
+  { Record with info about PNM image used in both loading and saving functions.}
+  TPortableMapInfo = record
+    Width: LongInt;
+    Height: LongInt;
+    FormatId: AnsiChar;
+    MaxVal: LongInt;
+    BitCount: LongInt;
+    Depth: LongInt;
+    TupleType: TTupleType;
+    Binary: Boolean;
+    HasPAMHeader: Boolean;
+    IsBigEndian: Boolean;
+  end;
+
+  { Base class for Portable Map file formats (or Portable AnyMaps or PNM).
+    There are several types of PNM file formats that share common
+    (simple) structure. This class can actually load all supported PNM formats.
+    Saving is also done by this class but descendants (each for different PNM
+    format) control it.}
+  TPortableMapFileFormat = class(TImageFileFormat)
+  protected
+    FIdNumbers: TChar2;
+    FSaveBinary: LongBool;
+    FUSFormat: TFormatSettings;
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveDataInternal(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt; var MapInfo: TPortableMapInfo): Boolean;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  published
+    { If set to True images will be saved in binary format. If it is False
+      they will be saved in text format (which could result in 5-10x bigger file).
+      Default is value True. Note that PAM and PFM files are always saved in binary.}
+    property SaveBinary: LongBool read FSaveBinary write FSaveBinary;
+  end;
+
+  { Portable Bit Map is used to store monochrome 1bit images. Raster data
+    can be saved as text or binary data. Either way value of 0 represents white
+    and 1 is black. As Imaging does not have support for 1bit data formats
+    PBM images can be loaded but not saved. Loaded images are returned in
+    ifGray8 format (witch pixel values scaled from 1bit to 8bit).}
+  TPBMFileFormat = class(TPortableMapFileFormat)
+  protected
+    procedure Define; override;
+  end;
+
+  { Portable Gray Map is used to store grayscale 8bit or 16bit images.
+    Raster data can be saved as text or binary data.}
+  TPGMFileFormat = class(TPortableMapFileFormat)
+  protected
+    procedure Define; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  end;
+
+  { Portable Pixel Map is used to store RGB images with 8bit or 16bit channels.
+    Raster data can be saved as text or binary data.}
+  TPPMFileFormat = class(TPortableMapFileFormat)
+  protected
+    procedure Define; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  end;
+
+  { Portable Arbitrary Map is format that can store image data formats
+    of PBM, PGM, and PPM formats with optional alpha channel. Raster data
+    can be stored only in binary format. All data formats supported
+    by this format are ifGray8, ifGray16, ifA8Gray8, ifA16Gray16,
+    ifR8G8B8, ifR16G16R16, ifA8R8G8B8, and ifA16R16G16B16.}
+  TPAMFileFormat = class(TPortableMapFileFormat)
+  protected
+    procedure Define; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  end;
+
+  { Portable Float Map is unofficial extension of PNM format family which
+    can store images with floating point pixels. Raster data is saved in
+    binary format as array of IEEE 32 bit floating point numbers. One channel
+    or RGB images are supported by PFM format (so no alpha).}
+  TPFMFileFormat = class(TPortableMapFileFormat)
+  protected
+    procedure Define; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  end;
+
+implementation
+
+const
+  PortableMapDefaultBinary = True;
+
+  SPBMFormatName = 'Portable Bit Map';
+  SPBMMasks =      '*.pbm';
+  SPGMFormatName = 'Portable Gray Map';
+  SPGMMasks =      '*.pgm';
+  PGMSupportedFormats = [ifGray8, ifGray16];
+  SPPMFormatName = 'Portable Pixel Map';
+  SPPMMasks =      '*.ppm';
+  PPMSupportedFormats = [ifR8G8B8, ifR16G16B16];
+  SPAMFormatName = 'Portable Arbitrary Map';
+  SPAMMasks =      '*.pam';
+  PAMSupportedFormats = [ifGray8, ifGray16, ifA8Gray8, ifA16Gray16,
+    ifR8G8B8, ifR16G16B16, ifA8R8G8B8, ifA16R16G16B16];
+  SPFMFormatName = 'Portable Float Map';
+  SPFMMasks =      '*.pfm';
+  PFMSupportedFormats = [ifR32F, ifB32G32R32F];
+
+const
+  { TAB, CR, LF, and Space are used as seperators in Portable map headers and data.}
+  WhiteSpaces = [#9, #10, #13, #32];
+  SPAMWidth = 'WIDTH';
+  SPAMHeight = 'HEIGHT';
+  SPAMDepth = 'DEPTH';
+  SPAMMaxVal = 'MAXVAL';
+  SPAMTupleType = 'TUPLTYPE';
+  SPAMEndHdr = 'ENDHDR';
+
+  { Size of buffer used to speed up text PNM loading/saving.}
+  LineBufferCapacity = 16 * 1024;
+
+  TupleTypeNames: array[TTupleType] of string = (
+    'INVALID', 'BLACKANDWHITE', 'GRAYSCALE', 'RGB',
+    'BLACKANDWHITE_ALPHA', 'GRAYSCALE_ALPHA', 'RGB_ALPHA', 'GRAYSCALEFP',
+    'RGBFP');
+
+{ TPortableMapFileFormat }
+
+procedure TPortableMapFileFormat.Define;
+begin
+  inherited;
+  FFeatures := [ffLoad, ffSave];
+  FSaveBinary := PortableMapDefaultBinary;
+  FUSFormat := GetFormatSettingsForFloats;
+end;
+
+function TPortableMapFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  I, ScanLineSize, MonoSize: LongInt;
+  Dest: PByte;
+  MonoData: Pointer;
+  Info: TImageFormatInfo;
+  LineBuffer: array[0..LineBufferCapacity - 1] of AnsiChar;
+  LineEnd, LinePos: LongInt;
+  MapInfo: TPortableMapInfo;
+  LineBreak: string;
+
+  procedure CheckBuffer;
+  begin
+    if (LineEnd = 0) or (LinePos = LineEnd) then
+    begin
+      // Reload buffer if its is empty or its end was reached
+      LineEnd := GetIO.Read(Handle, @LineBuffer[0], LineBufferCapacity);
+      LinePos := 0;
+    end;
+  end;
+
+  procedure FixInputPos;
+  begin
+    // Sets input's position to its real pos as it would be without buffering
+    if LineEnd > 0 then
+    begin
+      GetIO.Seek(Handle, -LineEnd + LinePos, smFromCurrent);
+      LineEnd := 0;
+    end;
+  end;
+
+  function ReadString: string;
+  var
+    S: AnsiString;
+    C: AnsiChar;
+  begin
+    // First skip all whitespace chars
+    SetLength(S, 1);
+    repeat
+      CheckBuffer;
+      S[1] := LineBuffer[LinePos];
+      Inc(LinePos);
+      if S[1] = '#' then
+      repeat
+        // Comment detected, skip everything until next line is reached
+        CheckBuffer;
+        S[1] := LineBuffer[LinePos];
+        Inc(LinePos);
+      until S[1] = #10;
+    until not(S[1] in WhiteSpaces);
+    // Now we have reached some chars other than white space, read them until
+    // there is whitespace again
+    repeat
+      SetLength(S, Length(S) + 1);
+      CheckBuffer;
+      S[Length(S)] := LineBuffer[LinePos];
+      Inc(LinePos);
+      // Repeat until current char is whitespace or end of file is reached
+      // (Line buffer has 0 bytes which happens only on EOF)
+    until (S[Length(S)] in WhiteSpaces) or (LineEnd = 0);
+    // Get rid of last char - whitespace or null
+    SetLength(S, Length(S) - 1);
+    // Move position to the beginning of next string (skip white space - needed
+    // to make the loader stop at the right input position)
+    repeat
+      CheckBuffer;
+      C := LineBuffer[LinePos];
+      Inc(LinePos);
+    until not (C in WhiteSpaces) or (LineEnd = 0);
+    // Dec pos, current is the begining of the the string
+    Dec(LinePos);
+
+    Result := string(S);
+  end;
+
+  function ReadIntValue: LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+  begin
+    Result := StrToInt(ReadString);
+  end;
+
+  procedure FindLineBreak;
+  var
+    C: AnsiChar;
+  begin
+    LineBreak := #10;
+    repeat
+      CheckBuffer;
+      C := LineBuffer[LinePos];
+      Inc(LinePos);
+
+      if C = #13 then
+        LineBreak := #13#10;
+
+    until C = #10;
+  end;
+
+  function ParseHeader: Boolean;
+  var
+    Id: TChar2;
+    I: TTupleType;
+    TupleTypeName: string;
+    Scale: Single;
+  begin
+    Result := False;
+    with GetIO do
+    begin
+      FillChar(MapInfo, SizeOf(MapInfo), 0);
+      Read(Handle, @Id, SizeOf(Id));
+      FindLineBreak;
+
+      if Id[1] in ['1'..'6'] then
+      begin
+        // Read header for PBM, PGM, and PPM files
+        MapInfo.Width := ReadIntValue;
+        MapInfo.Height := ReadIntValue;
+
+        if Id[1] in ['1', '4'] then
+        begin
+          MapInfo.MaxVal := 1;
+          MapInfo.BitCount := 1
+        end
+        else
+        begin
+          // Read channel max value, <=255 for 8bit images, >255 for 16bit images
+          // but some programs think its max colors so put <=256 here
+          MapInfo.MaxVal := ReadIntValue;
+          MapInfo.BitCount := Iff(MapInfo.MaxVal <= 256, 8, 16);
+        end;
+
+        MapInfo.Depth := 1;
+        case Id[1] of
+          '1', '4': MapInfo.TupleType := ttBlackAndWhite;
+          '2', '5': MapInfo.TupleType := ttGrayScale;
+          '3', '6':
+            begin
+              MapInfo.TupleType := ttRGB;
+              MapInfo.Depth := 3;
+            end;
+        end;
+      end
+      else if Id[1] = '7' then
+      begin
+        // Read values from PAM header
+        // WIDTH
+        if (ReadString <> SPAMWidth) then Exit;
+        MapInfo.Width := ReadIntValue;
+        // HEIGHT
+        if (ReadString <> SPAMheight) then Exit;
+        MapInfo.Height := ReadIntValue;
+        // DEPTH
+        if (ReadString <> SPAMDepth) then Exit;
+        MapInfo.Depth := ReadIntValue;
+        // MAXVAL
+        if (ReadString <> SPAMMaxVal) then Exit;
+        MapInfo.MaxVal := ReadIntValue;
+        MapInfo.BitCount := Iff(MapInfo.MaxVal <= 256, 8, 16);
+        // TUPLETYPE
+        if (ReadString <> SPAMTupleType) then Exit;
+        TupleTypeName := ReadString;
+        for I := Low(TTupleType) to High(TTupleType) do
+          if SameText(TupleTypeName, TupleTypeNames[I]) then
+          begin
+            MapInfo.TupleType := I;
+            Break;
+          end;
+        // ENDHDR
+        if (ReadString <> SPAMEndHdr) then Exit;
+      end
+      else if Id[1] in ['F', 'f'] then
+      begin
+        // Read header of PFM file
+        MapInfo.Width := ReadIntValue;
+        MapInfo.Height := ReadIntValue;
+        Scale := StrToFloatDef(ReadString, 0, FUSFormat);
+        MapInfo.IsBigEndian := Scale > 0.0;
+        if Id[1] = 'F' then
+          MapInfo.TupleType := ttRGBFP
+        else
+          MapInfo.TupleType := ttGrayScaleFP;
+        MapInfo.Depth := Iff(MapInfo.TupleType = ttRGBFP, 3, 1);
+        MapInfo.BitCount := Iff(MapInfo.TupleType = ttRGBFP, 96, 32);
+      end;
+
+      FixInputPos;
+      MapInfo.Binary := (Id[1] in ['4', '5', '6', '7', 'F', 'f']);
+
+      if MapInfo.Binary  and not (Id[1] in ['F', 'f']) then
+      begin
+        // Mimic the behaviour of Photoshop and other editors/viewers:
+        // If linenreaks in file are DOS CR/LF 16bit binary values are
+        // little endian, Unix LF only linebreak indicates big endian.
+        MapInfo.IsBigEndian := LineBreak = #10;
+      end;
+
+      // Check if values found in header are valid
+      Result := (MapInfo.Width > 0) and (MapInfo.Height > 0) and
+        (MapInfo.BitCount in [1, 8, 16, 32, 96]) and (MapInfo.TupleType <> ttInvalid);
+      // Now check if image has proper number of channels (PAM)
+      if Result then
+        case MapInfo.TupleType of
+          ttBlackAndWhite, ttGrayScale:           Result := MapInfo.Depth = 1;
+          ttBlackAndWhiteAlpha, ttGrayScaleAlpha: Result := MapInfo.Depth = 2;
+          ttRGB:      Result := MapInfo.Depth = 3;
+          ttRGBAlpha: Result := MapInfo.Depth = 4;
+        end;
+    end;
+  end;
+
+begin
+  Result := False;
+  LineEnd := 0;
+  LinePos := 0;
+  SetLength(Images, 1);
+
+  with GetIO, Images[0] do
+  begin
+    Format := ifUnknown;
+    // Try to parse file header
+    if not ParseHeader then Exit;
+    // Select appropriate data format based on values read from file header
+    case MapInfo.TupleType of
+      ttBlackAndWhite:      Format := ifGray8;
+      ttBlackAndWhiteAlpha: Format := ifA8Gray8;
+      ttGrayScale:          Format := IffFormat(MapInfo.BitCount = 8, ifGray8, ifGray16);
+      ttGrayScaleAlpha:     Format := IffFormat(MapInfo.BitCount = 8, ifA8Gray8, ifA16Gray16);
+      ttRGB:                Format := IffFormat(MapInfo.BitCount = 8, ifR8G8B8, ifR16G16B16);
+      ttRGBAlpha:           Format := IffFormat(MapInfo.BitCount = 8, ifA8R8G8B8, ifA16R16G16B16);
+      ttGrayScaleFP:        Format := ifR32F;
+      ttRGBFP:              Format := ifB32G32R32F;
+    end;
+    // Exit if no matching data format was found
+    if Format = ifUnknown then Exit;
+
+    NewImage(MapInfo.Width, MapInfo.Height, Format, Images[0]);
+    Info := GetFormatInfo(Format);
+
+    // Now read pixels from file to dest image
+    if not MapInfo.Binary then
+    begin
+      Dest := Bits;
+      for I := 0 to Width * Height - 1 do
+      begin
+        case Format of
+          ifGray8:
+            begin
+              Dest^ := ReadIntValue;
+              if MapInfo.BitCount = 1 then
+                // If source is 1bit mono image (where 0=white, 1=black)
+                // we must scale it to 8bits
+                Dest^ := 255 - Dest^ * 255;
+            end;
+          ifGray16: PWord(Dest)^ := ReadIntValue;
+          ifR8G8B8:
+            with PColor24Rec(Dest)^ do
+            begin
+              R := ReadIntValue;
+              G := ReadIntValue;
+              B := ReadIntValue;
+            end;
+          ifR16G16B16:
+            with PColor48Rec(Dest)^ do
+            begin
+              R := ReadIntValue;
+              G := ReadIntValue;
+              B := ReadIntValue;
+            end;
+        end;
+        Inc(Dest, Info.BytesPerPixel);
+      end;
+    end
+    else
+    begin
+      if MapInfo.BitCount > 1 then
+      begin
+        if not (MapInfo.TupleType in [ttGrayScaleFP, ttRGBFP]) then
+        begin
+          // Just copy bytes from binary Portable Maps (non 1bit, non FP)
+          Read(Handle, Bits, Size);
+        end
+        else
+        begin
+          Dest := Bits;
+          // FP images are in BGR order and endian swap maybe needed.
+          // Some programs store scanlines in bottom-up order but
+          // I will stick with Photoshops behaviour here
+          Read(Handle, Bits, Size);
+          if MapInfo.IsBigEndian then
+            SwapEndianLongWord(PLongWord(Dest), Size div SizeOf(LongWord));
+        end;
+
+        if MapInfo.TupleType in [ttBlackAndWhite, ttBlackAndWhiteAlpha] then
+        begin
+          // Black and white PAM files must be scaled to 8bits. Note that
+          // in PAM files 1=white, 0=black (reverse of PBM)
+          for I := 0 to Width * Height * Iff(MapInfo.TupleType = ttBlackAndWhiteAlpha, 2, 1) - 1 do
+            PByteArray(Bits)[I] := PByteArray(Bits)[I] * 255;
+        end
+        else if MapInfo.TupleType in [ttRGB, ttRGBAlpha] then
+        begin
+          // Swap channels of RGB/ARGB images. Binary RGB image files use BGR order.
+          SwapChannels(Images[0], ChannelBlue, ChannelRed);
+        end;
+
+        // Swap byte order if needed
+        if (MapInfo.BitCount = 16) and MapInfo.IsBigEndian then
+          SwapEndianWord(Bits, Width * Height * Info.BytesPerPixel div SizeOf(Word));
+      end
+      else
+      begin
+        // Handle binary PBM files (ttBlackAndWhite 1bit)
+        ScanLineSize := (Width + 7) div 8;
+        // Get total binary data size, read it from file to temp
+        // buffer and convert the data to Gray8
+        MonoSize := ScanLineSize * Height;
+        GetMem(MonoData, MonoSize);
+        try
+          Read(Handle, MonoData, MonoSize);
+          Convert1To8(MonoData, Bits, Width, Height, ScanLineSize, False);
+          // 1bit mono images must be scaled to 8bit, but inverted (where 0=white, 1=black)
+          for I := 0 to Width * Height - 1 do
+            PByteArray(Bits)[I] := 255 - PByteArray(Bits)[I] * 255;
+        finally
+          FreeMem(MonoData);
+        end;
+      end;
+    end;
+
+    FixInputPos;
+
+    if (MapInfo.MaxVal <> Pow2Int(MapInfo.BitCount) - 1) and
+      (MapInfo.TupleType in [ttGrayScale, ttGrayScaleAlpha, ttRGB, ttRGBAlpha]) then
+    begin
+      Dest := Bits;
+      // Scale color values according to MaxVal we got from header
+      // if necessary.
+      for I := 0 to Width * Height * Info.BytesPerPixel div (MapInfo.BitCount shr 3) - 1 do
+      begin
+        if MapInfo.BitCount = 8 then
+          Dest^ := Dest^ * 255 div MapInfo.MaxVal
+        else
+          PWord(Dest)^ := PWord(Dest)^ * 65535 div MapInfo.MaxVal;
+        Inc(Dest, MapInfo.BitCount shr 3);
+      end;
+    end;
+
+    Result := True;
+  end;
+end;
+
+function TPortableMapFileFormat.SaveDataInternal(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer; var MapInfo: TPortableMapInfo): Boolean;
+const
+  // Use Unix linebreak, for many viewers/editors it means that
+  // 16bit samples are stored as big endian - so we need to swap byte order
+  // before saving
+  LineDelimiter  = #10;
+  PixelDelimiter = #32;
+var
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+  Info: TImageFormatInfo;
+  I, LineLength: LongInt;
+  Src: PByte;
+  Pixel32: TColor32Rec;
+  Pixel64: TColor64Rec;
+  W: Word;
+
+  procedure WriteString(S: string; Delimiter: Char = LineDelimiter);
+  begin
+    SetLength(S, Length(S) + 1);
+    S[Length(S)] := Delimiter;
+  {$IF Defined(DCC) and Defined(UNICODE)}
+    GetIO.Write(Handle, @AnsiString(S)[1], Length(S));
+  {$ELSE}
+    GetIO.Write(Handle, @S[1], Length(S));
+  {$IFEND}
+    Inc(LineLength, Length(S));
+  end;
+
+  procedure WriteHeader;
+  begin
+    WriteString('P' + MapInfo.FormatId);
+    if not MapInfo.HasPAMHeader then
+    begin
+      // Write header of PGM, PPM, and PFM files
+      WriteString(IntToStr(ImageToSave.Width));
+      WriteString(IntToStr(ImageToSave.Height));
+      case MapInfo.TupleType of
+        ttGrayScale, ttRGB: WriteString(IntToStr(Pow2Int(MapInfo.BitCount) - 1));
+        ttGrayScaleFP, ttRGBFP:
+          begin
+            // Negative value indicates that raster data is saved in little endian
+            WriteString(FloatToStr(-1.0, FUSFormat));
+          end;
+      end;
+    end
+    else
+    begin
+      // Write PAM file header
+      WriteString(Format('%s %d', [SPAMWidth, ImageToSave.Width]));
+      WriteString(Format('%s %d', [SPAMHeight, ImageToSave.Height]));
+      WriteString(Format('%s %d', [SPAMDepth, MapInfo.Depth]));
+      WriteString(Format('%s %d', [SPAMMaxVal, Pow2Int(MapInfo.BitCount) - 1]));
+      WriteString(Format('%s %s', [SPAMTupleType, TupleTypeNames[MapInfo.TupleType]]));
+      WriteString(SPAMEndHdr);
+    end;
+  end;
+
+begin
+  Result := False;
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with GetIO, ImageToSave do
+  try
+    Info := GetFormatInfo(Format);
+    // Fill values of MapInfo record that were not filled by
+    // descendants in their SaveData methods
+    MapInfo.BitCount := (Info.BytesPerPixel div Info.ChannelCount) * 8;
+    MapInfo.Depth := Info.ChannelCount;
+    if MapInfo.TupleType = ttInvalid then
+    begin
+      if Info.HasGrayChannel then
+      begin
+        if Info.HasAlphaChannel then
+          MapInfo.TupleType := ttGrayScaleAlpha
+        else
+          MapInfo.TupleType := ttGrayScale;
+      end
+      else
+      begin
+        if Info.HasAlphaChannel then
+          MapInfo.TupleType := ttRGBAlpha
+        else
+          MapInfo.TupleType := ttRGB;
+      end;
+    end;
+    // Write file header
+    WriteHeader;
+
+    if not MapInfo.Binary then
+    begin
+      Src := Bits;
+      LineLength := 0;
+      // For each pixel find its text representation and write it to file
+      for I := 0 to Width * Height  - 1 do
+      begin
+        case Format of
+          ifGray8: WriteString(IntToStr(Src^), PixelDelimiter);
+          ifGray16: WriteString(IntToStr(PWord(Src)^), PixelDelimiter);
+          ifR8G8B8:
+            with PColor24Rec(Src)^ do
+              WriteString(SysUtils.Format('%d %d %d', [R, G, B]), PixelDelimiter);
+          ifR16G16B16:
+            with PColor48Rec(Src)^ do
+              WriteString(SysUtils.Format('%d %d %d', [R, G, B]), PixelDelimiter);
+        end;
+        // Lines in text PNM images should have length <70
+        if LineLength > 65 then
+        begin
+          LineLength := 0;
+          WriteString('', LineDelimiter);
+        end;
+        Inc(Src, Info.BytesPerPixel);
+      end;
+    end
+    else
+    begin
+      // Write binary images
+      if not (MapInfo.TupleType in [ttGrayScaleFP, ttRGBFP]) then
+      begin
+        // Save integer binary images
+        if  MapInfo.BitCount = 8 then
+        begin
+          if MapInfo.TupleType in [ttGrayScale, ttGrayScaleAlpha] then
+          begin
+            // 8bit grayscale images can be written in one Write call
+            Write(Handle, Bits, Size);
+          end
+          else
+          begin
+            // 8bit RGB/ARGB images: red and blue must be swapped and
+            // 3 or 4 bytes must be written
+            Src := Bits;
+            for I := 0 to Width * Height - 1 do
+            with PColor32Rec(Src)^ do
+            begin
+              if MapInfo.TupleType = ttRGBAlpha then
+                Pixel32.A := A;
+              Pixel32.R := B;
+              Pixel32.G := G;
+              Pixel32.B := R;
+              Write(Handle, @Pixel32, Info.BytesPerPixel);
+              Inc(Src, Info.BytesPerPixel);
+            end;
+          end;
+        end
+        else
+        begin
+          // Images with 16bit channels: make sure that channel values are saved in big endian
+          Src := Bits;
+          if MapInfo.TupleType in [ttGrayScale, ttGrayScaleAlpha] then
+          begin
+            // 16bit grayscale image
+            for I := 0 to Width * Height * Info.BytesPerPixel div SizeOf(Word) - 1 do
+            begin
+              W := SwapEndianWord(PWord(Src)^);
+              Write(Handle, @W, SizeOf(Word));
+              Inc(Src, SizeOf(Word));
+            end;
+          end
+          else
+          begin
+            // RGB images with 16bit channels: swap RB and endian too
+            for I := 0 to Width * Height - 1 do
+            with PColor64Rec(Src)^ do
+            begin
+              if MapInfo.TupleType = ttRGBAlpha then
+                Pixel64.A := SwapEndianWord(A);
+              Pixel64.R := SwapEndianWord(B);
+              Pixel64.G := SwapEndianWord(G);
+              Pixel64.B := SwapEndianWord(R);
+              Write(Handle, @Pixel64, Info.BytesPerPixel);
+              Inc(Src, Info.BytesPerPixel);
+            end;
+          end;
+        end;
+      end
+      else
+      begin
+        // Floating point images (no need to swap endian here - little
+        // endian is specified in file header)
+        Write(Handle, Bits, Size);
+      end;
+    end;
+    Result := True;
+  finally
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+function TPortableMapFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Id: TChar4;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+  with GetIO do
+  begin
+    ReadCount := Read(Handle, @Id, SizeOf(Id));
+    Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (Id[0] = 'P') and (Id[1] in [FIdNumbers[0], FIdNumbers[1]]) and
+      (Id[2] in WhiteSpaces);
+  end;
+end;
+
+{ TPBMFileFormat }
+
+procedure TPBMFileFormat.Define;
+begin
+  inherited;
+  FName := SPBMFormatName;
+  FFeatures := [ffLoad];
+  AddMasks(SPBMMasks);
+  FIdNumbers := '14';
+end;
+
+{ TPGMFileFormat }
+
+procedure TPGMFileFormat.Define;
+begin
+  inherited;
+  FName := SPGMFormatName;
+  FSupportedFormats := PGMSupportedFormats;
+  AddMasks(SPGMMasks);
+  RegisterOption(ImagingPGMSaveBinary, @FSaveBinary);
+  FIdNumbers := '25';
+end;
+
+function TPGMFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+var
+  MapInfo: TPortableMapInfo;
+begin
+  FillChar(MapInfo, SizeOf(MapInfo), 0);
+  if FSaveBinary then
+    MapInfo.FormatId := FIdNumbers[1]
+  else
+    MapInfo.FormatId := FIdNumbers[0];
+  MapInfo.Binary := FSaveBinary;
+  Result := SaveDataInternal(Handle, Images, Index, MapInfo);
+end;
+
+procedure TPGMFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsFloatingPoint then
+    // All FP images go to 16bit
+    ConvFormat :=  ifGray16
+  else if Info.HasGrayChannel then
+    // Grayscale will be 8 or 16 bit - depends on input's bitcount
+    ConvFormat := IffFormat(Info.BytesPerPixel div Info.ChannelCount > 1,
+      ifGray16, ifGray8)
+  else if Info.BytesPerPixel > 4 then
+    // Large bitcounts -> 16bit
+    ConvFormat := ifGray16
+  else
+    // Rest of the formats -> 8bit
+    ConvFormat := ifGray8;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+{ TPPMFileFormat }
+
+procedure TPPMFileFormat.Define;
+begin
+  inherited;
+  FName := SPPMFormatName;
+  FSupportedFormats := PPMSupportedFormats;
+  AddMasks(SPPMMasks);
+  RegisterOption(ImagingPPMSaveBinary, @FSaveBinary);
+  FIdNumbers := '36';
+end;
+
+function TPPMFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+var
+  MapInfo: TPortableMapInfo;
+begin
+  FillChar(MapInfo, SizeOf(MapInfo), 0);
+  if FSaveBinary then
+    MapInfo.FormatId := FIdNumbers[1]
+  else
+    MapInfo.FormatId := FIdNumbers[0];
+  MapInfo.Binary := FSaveBinary;
+  Result := SaveDataInternal(Handle, Images, Index, MapInfo);
+end;
+
+procedure TPPMFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsFloatingPoint then
+    // All FP images go to 48bit RGB
+    ConvFormat :=  ifR16G16B16
+  else if Info.HasGrayChannel then
+    // Grayscale will be 24 or 48 bit RGB - depends on input's bitcount
+    ConvFormat := IffFormat(Info.BytesPerPixel div Info.ChannelCount > 1,
+      ifR16G16B16, ifR8G8B8)
+  else if Info.BytesPerPixel > 4 then
+    // Large bitcounts -> 48bit RGB
+    ConvFormat := ifR16G16B16
+  else
+    // Rest of the formats -> 24bit RGB
+    ConvFormat := ifR8G8B8;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+{ TPAMFileFormat }
+
+procedure TPAMFileFormat.Define;
+begin
+  inherited;
+  FName := SPAMFormatName;
+  FSupportedFormats := PAMSupportedFormats;
+  AddMasks(SPAMMasks);
+  FIdNumbers := '77';
+end;
+
+function TPAMFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+var
+  MapInfo: TPortableMapInfo;
+begin
+  FillChar(MapInfo, SizeOf(MapInfo), 0);
+  MapInfo.FormatId := FIdNumbers[0];
+  MapInfo.Binary := True;
+  MapInfo.HasPAMHeader := True;
+  Result := SaveDataInternal(Handle, Images, Index, MapInfo);
+end;
+
+procedure TPAMFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsFloatingPoint then
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA16R16G16B16, ifR16G16B16)
+  else if Info.HasGrayChannel then
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA16Gray16, ifGray16)
+  else
+  begin
+    if Info.BytesPerPixel <= 4 then
+      ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8R8G8B8, ifR8G8B8)
+    else
+      ConvFormat := IffFormat(Info.HasAlphaChannel, ifA16R16G16B16, ifR16G16B16);
+  end;
+  ConvertImage(Image, ConvFormat);
+end;
+
+{ TPFMFileFormat }
+
+procedure TPFMFileFormat.Define;
+begin
+  inherited;
+  FName := SPFMFormatName;
+  AddMasks(SPFMMasks);
+  FIdNumbers := 'Ff';
+  FSupportedFormats := PFMSupportedFormats;
+end;
+
+function TPFMFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+var
+  Info: TImageFormatInfo;
+  MapInfo: TPortableMapInfo;
+begin
+  FillChar(MapInfo, SizeOf(MapInfo), 0);
+  Info := GetFormatInfo(Images[Index].Format);
+
+  if (Info.ChannelCount > 1) or Info.IsIndexed then
+    MapInfo.TupleType := ttRGBFP
+  else
+    MapInfo.TupleType := ttGrayScaleFP;
+
+  if MapInfo.TupleType = ttGrayScaleFP then
+    MapInfo.FormatId := FIdNumbers[1]
+  else
+    MapInfo.FormatId := FIdNumbers[0];
+
+  MapInfo.Binary := True;
+  Result := SaveDataInternal(Handle, Images, Index, MapInfo);
+end;
+
+procedure TPFMFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+  if (Info.ChannelCount > 1) or Info.IsIndexed then
+    ConvertImage(Image, ifB32G32R32F)
+  else
+    ConvertImage(Image, ifR32F);
+end;
+
+initialization
+  RegisterImageFileFormat(TPBMFileFormat);
+  RegisterImageFileFormat(TPGMFileFormat);
+  RegisterImageFileFormat(TPPMFileFormat);
+  RegisterImageFileFormat(TPAMFileFormat);
+  RegisterImageFileFormat(TPFMFileFormat);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 Changes/Bug Fixes -----------------------------------
+    - Native RGB floating point format of PFM is now supported by Imaging
+      so we use it now for saving instead of A32B32G32B32.
+    - String to float formatting changes (don't change global settings).
+
+  -- 0.26.3 Changes/Bug Fixes -----------------------------------
+    - Fixed D2009 Unicode related bug in PNM saving.
+
+  -- 0.24.3 Changes/Bug Fixes -----------------------------------
+    - Improved compatibility of 16bit/component image loading.
+    - Changes for better thread safety.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Made modifications to ASCII PNM loading to be more "stream-safe".
+    - Fixed bug: indexed images saved as grayscale in PFM.
+    - Changed converting to supported formats little bit.
+    - Added scaling of channel values (non-FP and non-mono images) according
+      to MaxVal.
+    - Added buffering to loading of PNM files. More than 10x faster now
+      for text files.
+    - Added saving support to PGM, PPM, PAM, and PFM format.
+    - Added PFM file format.
+    - Initial version created.
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingPsd.pas b/src/lib/vampimg/ImagingPsd.pas

new file mode 100644 (file)

index 0000000..cd395ca
--- /dev/null
+++ b/src/lib/vampimg/ImagingPsd.pas
@@ -0,0 +1,800 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for Photoshop PSD image format.}
+unit ImagingPsd;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, ImagingTypes, Imaging, ImagingColors, ImagingUtility;
+
+type
+  { Class for loading and saving Adobe Photoshop PSD images.
+    Loading and saving of indexed, grayscale, RGB(A), HDR (FP32), and CMYK
+    (auto converted to RGB) images is supported. Non-HDR gray, RGB,
+    and CMYK images can have 8bit or 16bit color channels.
+    There is no support for loading mono images, duotone images are treated
+    like grayscale images, and multichannel and CIE Lab images are loaded as
+    RGB images but without actual conversion to RGB color space.
+    Also no layer information is loaded.}
+  TPSDFileFormat = class(TImageFileFormat)
+  private
+    FSaveAsLayer: LongBool;
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  published
+    property SaveAsLayer: LongBool read FSaveAsLayer write FSaveAsLayer;
+  end;
+
+implementation
+
+uses
+  ImagingExtras;
+
+const
+  SPSDFormatName = 'Photoshop Image';
+  SPSDMasks      = '*.psd,*.pdd';
+  PSDSupportedFormats: TImageFormats = [ifIndex8, ifGray8, ifA8Gray8,
+    ifR8G8B8, ifA8R8G8B8, ifGray16, ifA16Gray16, ifR16G16B16, ifA16R16G16B16,
+    ifR32F, ifR32G32B32F, ifA32R32G32B32F];
+  PSDDefaultSaveAsLayer = True;
+
+const
+  SPSDMagic = '8BPS';
+  CompressionNone: Word = 0;
+  CompressionRLE: Word  = 1;
+
+type
+  {$MINENUMSIZE 2}
+  { PSD Image color mode.}
+  TPSDColorMode = (
+    cmMono         = 0,
+    cmGrayscale    = 1,
+    cmIndexed      = 2,
+    cmRGB          = 3,
+    cmCMYK         = 4,
+    cmMultiChannel = 7,
+    cmDuoTone      = 8,
+    cmLab          = 9
+  );
+
+  { PSD image main header.}
+  TPSDHeader = packed record
+    Signature: TChar4;             // Format ID '8BPS'
+    Version: Word;                 // Always 1
+    Reserved: array[0..5] of Byte; // Reserved, all zero
+    Channels: Word;                // Number of color channels (1-24) including alpha channels
+    Rows : LongWord;               // Height of image in pixels (1-30000)
+    Columns: LongWord;             // Width of image in pixels (1-30000)
+    Depth: Word;                   // Number of bits per channel (1, 8, and 16)
+    Mode: TPSDColorMode;           // Color mode
+  end;
+
+  TPSDChannelInfo = packed record
+    ChannelID: Word;               // 0 = Red, 1 = Green, 2 = Blue etc., -1 = Transparency mask, -2 = User mask
+    Size: LongWord;                // Size of channel data.
+  end;
+
+procedure SwapHeader(var Header: TPSDHeader);
+begin
+  Header.Version := SwapEndianWord(Header.Version);
+  Header.Channels := SwapEndianWord(Header.Channels);
+  Header.Depth := SwapEndianWord(Header.Depth);
+  Header.Rows := SwapEndianLongWord(Header.Rows);
+  Header.Columns := SwapEndianLongWord(Header.Columns);
+  Header.Mode := TPSDColorMode(SwapEndianWord(Word(Header.Mode)));
+end;
+
+{
+  TPSDFileFormat class implementation
+}
+
+procedure TPSDFileFormat.Define;
+begin
+  inherited;
+  FName := SPSDFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := PSDSupportedFormats;
+  AddMasks(SPSDMasks);
+
+  FSaveAsLayer := PSDDefaultSaveAsLayer;
+  RegisterOption(ImagingPSDSaveAsLayer, @FSaveAsLayer);
+end;
+
+function TPSDFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Header: TPSDHeader;
+  ByteCount: LongWord;
+  RawPal: array[0..767] of Byte;
+  Compression, PackedSize: Word;
+  LineSize, ChannelPixelSize, WidthBytes,
+    CurrChannel, MaxRLESize, I, Y, X: LongInt;
+  Info: TImageFormatInfo;
+  PackedLine, LineBuffer: PByte;
+  RLELineSizes: array of Word;
+  Col32: TColor32Rec;
+  Col64: TColor64Rec;
+  PCol32: PColor32Rec;
+  PCol64: PColor64Rec;
+
+  { PackBits RLE decode code from Mike Lischke's GraphicEx library.}
+  procedure DecodeRLE(Source, Dest: PByte; PackedSize, UnpackedSize: LongInt);
+  var
+    Count: LongInt;
+  begin
+    while (UnpackedSize > 0) and (PackedSize > 0) do
+    begin
+      Count := ShortInt(Source^);
+      Inc(Source);
+      Dec(PackedSize);
+      if Count < 0 then
+      begin
+        // Replicate next byte -Count + 1 times
+        if Count = -128 then
+          Continue;
+        Count := -Count + 1;
+        if Count > UnpackedSize then
+          Count := UnpackedSize;
+        FillChar(Dest^, Count, Source^);
+        Inc(Source);
+        Dec(PackedSize);
+        Inc(Dest, Count);
+        Dec(UnpackedSize, Count);
+      end
+      else
+      begin
+        // Copy next Count + 1 bytes from input
+        Inc(Count);
+        if Count > UnpackedSize then
+          Count := UnpackedSize;
+        if Count > PackedSize then
+          Count := PackedSize;
+        Move(Source^, Dest^, Count);
+        Inc(Dest, Count);
+        Inc(Source, Count);
+        Dec(PackedSize, Count);
+        Dec(UnpackedSize, Count);
+      end;
+    end;
+  end;
+
+begin
+  Result := False;
+  SetLength(Images, 1);
+  with GetIO, Images[0] do
+  begin
+    // Read PSD header
+    Read(Handle, @Header, SizeOf(Header));
+    SwapHeader(Header);
+
+    // Determine image data format
+    Format := ifUnknown;
+    case Header.Mode of
+      cmGrayscale, cmDuoTone:
+        begin
+          if Header.Depth in [8, 16] then
+          begin
+            if Header.Channels = 1 then
+              Format := IffFormat(Header.Depth = 8, ifGray8, ifGray16)
+            else if Header.Channels >= 2 then
+              Format := IffFormat(Header.Depth = 8, ifA8Gray8, ifA16Gray16);
+          end
+          else if (Header.Depth = 32) and (Header.Channels = 1) then
+            Format := ifR32F;
+        end;
+      cmIndexed:
+        begin
+          if Header.Depth = 8 then
+            Format := ifIndex8;
+        end;
+      cmRGB, cmMultiChannel, cmCMYK, cmLab:
+        begin
+          if Header.Depth in [8, 16] then
+          begin
+            if Header.Channels = 3 then
+              Format := IffFormat(Header.Depth = 8, ifR8G8B8, ifR16G16B16)
+            else if Header.Channels >= 4 then
+              Format := IffFormat(Header.Depth = 8, ifA8R8G8B8, ifA16R16G16B16);
+          end
+          else if Header.Depth = 32 then
+          begin
+            if Header.Channels = 3 then
+              Format := ifR32G32B32F
+            else if Header.Channels >= 4 then
+              Format := ifA32R32G32B32F;
+          end;
+        end;
+      cmMono:; // Not supported
+    end;
+
+    // Exit if no compatible format was found
+    if Format = ifUnknown then
+      Exit;
+
+    NewImage(Header.Columns, Header.Rows, Format, Images[0]);
+    Info := GetFormatInfo(Format);
+
+    // Read or skip Color Mode Data Block (palette)
+    Read(Handle, @ByteCount, SizeOf(ByteCount));
+    ByteCount := SwapEndianLongWord(ByteCount);
+    if Format = ifIndex8 then
+    begin
+      // Read palette only for indexed images
+      Read(Handle, @RawPal, SizeOf(RawPal));
+      for I := 0 to 255 do
+      begin
+        Palette[I].A := $FF;
+        Palette[I].R := RawPal[I + 0];
+        Palette[I].G := RawPal[I + 256];
+        Palette[I].B := RawPal[I + 512];
+      end;
+    end
+    else
+      Seek(Handle, ByteCount, smFromCurrent);
+
+    // Skip Image Resources Block
+    Read(Handle, @ByteCount, SizeOf(ByteCount));
+    ByteCount := SwapEndianLongWord(ByteCount);
+    Seek(Handle, ByteCount, smFromCurrent);
+    // Now there is Layer and Mask Information Block
+    Read(Handle, @ByteCount, SizeOf(ByteCount));
+    ByteCount := SwapEndianLongWord(ByteCount);
+    // Skip Layer and Mask Information Block
+    Seek(Handle, ByteCount, smFromCurrent);
+
+    // Read compression flag
+    Read(Handle, @Compression, SizeOf(Compression));
+    Compression := SwapEndianWord(Compression);
+
+    if Compression = CompressionRLE then
+    begin
+      // RLE compressed PSDs (most) have first lengths of compressed scanlines
+      // for each channel stored
+      SetLength(RLELineSizes, Height * Header.Channels);
+      Read(Handle, @RLELineSizes[0], Length(RLELineSizes) * SizeOf(Word));
+      SwapEndianWord(@RLELineSizes[0], Height * Header.Channels);
+      MaxRLESize := RLELineSizes[0];
+      for I := 1 to High(RLELineSizes) do
+      begin
+        if MaxRLESize < RLELineSizes[I] then
+          MaxRLESize := RLELineSizes[I];
+      end;
+    end
+    else
+      MaxRLESize := 0;
+
+    ChannelPixelSize := Info.BytesPerPixel div Info.ChannelCount;
+    LineSize := Width * ChannelPixelSize;
+    WidthBytes := Width * Info.BytesPerPixel;
+    GetMem(LineBuffer, LineSize);
+    GetMem(PackedLine, MaxRLESize);
+
+    try
+      // Image color chanels are stored separately in PSDs so we will load
+      // one by one and copy their data to appropriate addresses of dest image.
+      for I := 0 to Header.Channels - 1 do
+      begin
+        // Now determine to which color channel of destination image we are going
+        // to write pixels.
+        if I <= 4 then
+        begin
+          // If PSD has alpha channel we need to switch current channel order -
+          // PSDs have alpha stored after blue channel but Imaging has alpha
+          // before red.
+          if Info.HasAlphaChannel and (Header.Mode <> cmCMYK) then
+          begin
+            if I = Info.ChannelCount - 1 then
+              CurrChannel := I
+            else
+              CurrChannel := Info.ChannelCount - 2 - I;
+          end
+          else
+            CurrChannel := Info.ChannelCount - 1 - I;
+        end
+        else
+        begin
+          // No valid channel remains
+          CurrChannel := -1;
+        end;
+
+        if CurrChannel >= 0 then
+        begin
+          for Y := 0 to Height - 1 do
+          begin
+            if Compression = CompressionRLE then
+            begin
+              // Read RLE line and decompress it
+              PackedSize := RLELineSizes[I * Height + Y];
+              Read(Handle, PackedLine, PackedSize);
+              DecodeRLE(PackedLine, LineBuffer, PackedSize, LineSize);
+            end
+            else
+            begin
+              // Just read uncompressed line
+              Read(Handle, LineBuffer, LineSize);
+            end;
+
+            // Swap endian if needed
+            if ChannelPixelSize = 4 then
+              SwapEndianLongWord(PLongWord(LineBuffer), Width)
+            else if ChannelPixelSize = 2 then
+              SwapEndianWord(PWordArray(LineBuffer), Width);
+
+            if Info.ChannelCount > 1 then
+            begin
+              // Copy each pixel fragment to its right place in destination image
+              for X := 0 to Width - 1 do
+              begin
+                Move(PByteArray(LineBuffer)[X * ChannelPixelSize],
+                  PByteArray(Bits)[Y * WidthBytes + X * Info.BytesPerPixel + CurrChannel * ChannelPixelSize],
+                  ChannelPixelSize);
+              end;
+            end
+            else
+            begin
+              // Just copy the line
+              Move(LineBuffer^, PByteArray(Bits)[Y * LineSize], LineSize);
+            end;
+          end;
+        end
+        else
+        begin
+          // Skip current color channel, not needed for image loading - just to
+          // get stream's position to the end of PSD
+          if Compression = CompressionRLE then
+          begin
+            for Y := 0 to Height - 1 do
+              Seek(Handle, RLELineSizes[I * Height + Y], smFromCurrent);
+          end
+          else
+            Seek(Handle, LineSize * Height, smFromCurrent);
+        end;
+      end;
+
+      if Header.Mode = cmCMYK then
+      begin
+        // Convert CMYK images to RGB (alpha is ignored here). PSD stores CMYK
+        // channels in the way that first requires substraction from max channel value
+        if ChannelPixelSize = 1 then
+        begin
+          PCol32 := Bits;
+          for X := 0 to Width * Height - 1 do
+          begin
+            Col32.A := 255 - PCol32.A;
+            Col32.R := 255 - PCol32.R;
+            Col32.G := 255 - PCol32.G;
+            Col32.B := 255 - PCol32.B;
+            CMYKToRGB(Col32.A, Col32.R, Col32.G, Col32.B, PCol32.R, PCol32.G, PCol32.B);
+            PCol32.A := 255;
+            Inc(PCol32);
+          end;
+        end
+        else
+        begin
+          PCol64 := Bits;
+          for X := 0 to Width * Height - 1 do
+          begin
+            Col64.A := 65535 - PCol64.A;
+            Col64.R := 65535 - PCol64.R;
+            Col64.G := 65535 - PCol64.G;
+            Col64.B := 65535 - PCol64.B;
+            CMYKToRGB16(Col64.A, Col64.R, Col64.G, Col64.B, PCol64.R, PCol64.G, PCol64.B);
+            PCol64.A := 65535;
+            Inc(PCol64);
+          end;
+        end;
+      end;
+
+      Result := True;
+    finally
+      FreeMem(LineBuffer);
+      FreeMem(PackedLine);
+    end;
+  end;
+end;
+
+function TPSDFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+type
+  TURect = packed record
+    Top, Left, Bottom, Right: LongWord;
+  end;
+const
+  BlendMode: TChar8 = '8BIMnorm';
+  LayerOptions: array[0..3] of Byte = (255, 0, 0, 0);
+  LayerName: array[0..7] of AnsiChar = #7'Layer 0';
+var
+  MustBeFreed: Boolean;
+  ImageToSave: TImageData;
+  Info: TImageFormatInfo;
+  Header: TPSDHeader;
+  I, CurrChannel, ChannelPixelSize: LongInt;
+  LayerBlockOffset, SaveOffset, ChannelInfoOffset: Integer;
+  ChannelInfo: TPSDChannelInfo;
+  R: TURect;
+  LongVal: LongWord;
+  WordVal, LayerCount: Word;
+  RawPal: array[0..767] of Byte;
+  ChannelDataSizes: array of Integer;
+
+  function PackLine(Src, Dest: PByteArray; Length: Integer): Integer;
+  var
+    I, Remaining: Integer;
+  begin
+    Remaining := Length;
+    Result := 0;
+    while Remaining > 0 do
+    begin
+      I := 0;
+      // Look for characters same as the first
+      while (I < 128) and (Remaining - I > 0) and (Src[0] = Src[I]) do
+        Inc(I);
+
+      if I > 2 then
+      begin
+        Dest[0] := Byte(-(I - 1));
+        Dest[1] := Src[0];
+        Dest := PByteArray(@Dest[2]);
+
+        Src := PByteArray(@Src[I]);
+        Dec(Remaining, I);
+        Inc(Result, 2);
+      end
+      else
+      begin
+        // Look for different characters
+        I := 0;
+        while (I < 128) and (Remaining - (I + 1) > 0) and
+          ((Src[I] <> Src[I + 1]) or (Remaining - (I + 2) <= 0) or
+          (Src[I] <> Src[I + 2])) do
+        begin
+          Inc(I);
+        end;
+        // If there's only 1 remaining, the previous WHILE doesn't catch it
+        if Remaining = 1 then
+          I := 1;
+
+        if I > 0 then
+        begin
+          // Some distinct ones found
+          Dest[0] := I - 1;
+          Move(Src[0], Dest[1], I);
+          Dest := PByteArray(@Dest[1 + I]);
+          Src := PByteArray(@Src[I]);
+          Dec(Remaining, I);
+          Inc(Result, I + 1);
+        end;
+      end;
+    end;
+  end;
+
+  procedure WriteChannelData(SeparateChannelStorage: Boolean);
+  var
+    I, X, Y, LineSize, WidthBytes, RLETableOffset, CurrentOffset, WrittenLineSize: Integer;
+    LineBuffer, RLEBuffer: PByteArray;
+    RLELengths: array of Word;
+    Compression: Word;
+  begin
+    LineSize := ImageToSave.Width * ChannelPixelSize;
+    WidthBytes := ImageToSave.Width * Info.BytesPerPixel;
+    GetMem(LineBuffer, LineSize);
+    GetMem(RLEBuffer, LineSize * 3);
+    SetLength(RLELengths, ImageToSave.Height * Info.ChannelCount);
+    RLETableOffset := 0;
+    // No compression for FP32, Photoshop won't open them
+    Compression := Iff(Info.IsFloatingPoint, CompressionNone, CompressionRLE);
+
+    if not SeparateChannelStorage then
+    begin
+      // This is for storing background merged image. There's only one
+      // compression flag and one RLE lenghts table for all channels
+      WordVal := Swap(Compression);
+      GetIO.Write(Handle, @WordVal, SizeOf(WordVal));
+      if Compression = CompressionRLE then
+      begin
+        RLETableOffset := GetIO.Tell(Handle);
+        GetIO.Write(Handle, @RLELengths[0], SizeOf(Word) * ImageToSave.Height * Info.ChannelCount);
+      end;
+    end;
+
+    for I := 0 to Info.ChannelCount - 1 do
+    begin
+      if SeparateChannelStorage then
+      begin
+        // Layer image data has compression flag and RLE lenghts table
+        // independent for each channel
+        WordVal := Swap(CompressionRLE);
+        GetIO.Write(Handle, @WordVal, SizeOf(WordVal));
+        if Compression = CompressionRLE then
+        begin
+          RLETableOffset := GetIO.Tell(Handle);
+          GetIO.Write(Handle, @RLELengths[0], SizeOf(Word) * ImageToSave.Height);
+          ChannelDataSizes[I] := 0;
+        end;
+      end;
+
+      // Now determine which color channel we are going to write to file.
+      if Info.HasAlphaChannel then
+      begin
+        if I = Info.ChannelCount - 1 then
+          CurrChannel := I
+        else
+          CurrChannel := Info.ChannelCount - 2 - I;
+      end
+      else
+        CurrChannel := Info.ChannelCount - 1 - I;
+
+      for Y := 0 to ImageToSave.Height - 1 do
+      begin
+        if Info.ChannelCount > 1 then
+        begin
+          // Copy each pixel fragment to its right place in destination image
+          for X := 0 to ImageToSave.Width - 1 do
+          begin
+            Move(PByteArray(ImageToSave.Bits)[Y * WidthBytes + X * Info.BytesPerPixel + CurrChannel * ChannelPixelSize],
+              PByteArray(LineBuffer)[X * ChannelPixelSize], ChannelPixelSize);
+          end;
+        end
+        else
+          Move(PByteArray(ImageToSave.Bits)[Y * LineSize], LineBuffer^, LineSize);
+
+        // Write current channel line to file (swap endian if needed first)
+        if ChannelPixelSize = 4 then
+          SwapEndianLongWord(PLongWord(LineBuffer), ImageToSave.Width)
+        else if ChannelPixelSize = 2 then
+          SwapEndianWord(PWordArray(LineBuffer), ImageToSave.Width);
+
+        if Compression = CompressionRLE then
+        begin
+          // Compress and write line
+          WrittenLineSize := PackLine(LineBuffer, RLEBuffer, LineSize);
+          RLELengths[ImageToSave.Height * I + Y] := SwapEndianWord(WrittenLineSize);
+          GetIO.Write(Handle, RLEBuffer, WrittenLineSize);
+        end
+        else
+        begin
+          WrittenLineSize := LineSize;
+          GetIO.Write(Handle, LineBuffer, WrittenLineSize);
+        end;
+
+        if SeparateChannelStorage then
+          Inc(ChannelDataSizes[I], WrittenLineSize);
+      end;
+
+      if SeparateChannelStorage and (Compression = CompressionRLE) then
+      begin
+        // Update channel RLE lengths
+        CurrentOffset := GetIO.Tell(Handle);
+        GetIO.Seek(Handle, RLETableOffset, smFromBeginning);
+        GetIO.Write(Handle, @RLELengths[ImageToSave.Height * I], SizeOf(Word) * ImageToSave.Height);
+        GetIO.Seek(Handle, CurrentOffset, smFromBeginning);
+        Inc(ChannelDataSizes[I], SizeOf(Word) * ImageToSave.Height);
+      end;
+    end;
+
+    if not SeparateChannelStorage and (Compression = CompressionRLE) then
+    begin
+      // Update channel RLE lengths
+      CurrentOffset := GetIO.Tell(Handle);
+      GetIO.Seek(Handle, RLETableOffset, smFromBeginning);
+      GetIO.Write(Handle, @RLELengths[0], SizeOf(Word) * ImageToSave.Height * Info.ChannelCount);
+      GetIO.Seek(Handle, CurrentOffset, smFromBeginning);
+    end;
+
+    FreeMem(LineBuffer);
+    FreeMem(RLEBuffer);
+  end;
+
+begin
+  Result := False;
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with GetIO, ImageToSave do
+  try
+    Info := GetFormatInfo(Format);
+    ChannelPixelSize := Info.BytesPerPixel div Info.ChannelCount;
+
+    // Fill header with proper info and save it
+    FillChar(Header, SizeOf(Header), 0);
+    Header.Signature := SPSDMagic;
+    Header.Version := 1;
+    Header.Channels := Info.ChannelCount;
+    Header.Rows := Height;
+    Header.Columns := Width;
+    Header.Depth := Info.BytesPerPixel div Info.ChannelCount * 8;
+    if Info.IsIndexed then
+      Header.Mode := cmIndexed
+    else if Info.HasGrayChannel or (Info.ChannelCount = 1) then
+      Header.Mode := cmGrayscale
+    else
+      Header.Mode := cmRGB;
+
+    SwapHeader(Header);
+    Write(Handle, @Header, SizeOf(Header));
+
+    // Write palette size and data
+    LongVal := SwapEndianLongWord(IffUnsigned(Info.IsIndexed, SizeOf(RawPal), 0));
+    Write(Handle, @LongVal, SizeOf(LongVal));
+    if Info.IsIndexed then
+    begin
+      for I := 0 to Info.PaletteEntries - 1 do
+      begin
+        RawPal[I] := Palette[I].R;
+        RawPal[I + 256] := Palette[I].G;
+        RawPal[I + 512] := Palette[I].B;
+      end;
+      Write(Handle, @RawPal, SizeOf(RawPal));
+    end;
+
+    // Write empty resource and layer block sizes
+    LongVal := 0;
+    Write(Handle, @LongVal, SizeOf(LongVal));
+    LayerBlockOffset := Tell(Handle);
+    Write(Handle, @LongVal, SizeOf(LongVal));
+
+    if FSaveAsLayer and (ChannelPixelSize < 4) then  // No Layers for FP32 images
+    begin
+      LayerCount := SwapEndianWord(Iff(Info.HasAlphaChannel, Word(-1), 1)); // Must be -1 to get transparency in Photoshop
+      R.Top := 0;
+      R.Left := 0;
+      R.Bottom := SwapEndianLongWord(Height);
+      R.Right := SwapEndianLongWord(Width);
+      WordVal := SwapEndianWord(Info.ChannelCount);
+      Write(Handle, @LongVal, SizeOf(LongVal));        // Layer section size, empty now
+      Write(Handle, @LayerCount, SizeOf(LayerCount));  // Layer count
+      Write(Handle, @R, SizeOf(R));                    // Bounds rect
+      Write(Handle, @WordVal, SizeOf(WordVal));        // Channel count
+
+      ChannelInfoOffset := Tell(Handle);
+      SetLength(ChannelDataSizes, Info.ChannelCount);  // Empty channel infos
+      FillChar(ChannelInfo, SizeOf(ChannelInfo), 0);
+      for I := 0 to Info.ChannelCount - 1 do
+        Write(Handle, @ChannelInfo, SizeOf(ChannelInfo));
+
+      Write(Handle, @BlendMode, SizeOf(BlendMode));    // Blend mode = normal
+      Write(Handle, @LayerOptions, SizeOf(LayerOptions)); // Predefined options
+      LongVal := SwapEndianLongWord(16);               // Extra data size (4 (mask size) + 4 (ranges size) + 8 (name))
+      Write(Handle, @LongVal, SizeOf(LongVal));
+      LongVal := 0;
+      Write(Handle, @LongVal, SizeOf(LongVal));        // Mask size = 0
+      LongVal := 0;
+      Write(Handle, @LongVal, SizeOf(LongVal));        // Blend ranges size
+      Write(Handle, @LayerName, SizeOf(LayerName));    // Layer name
+
+      WriteChannelData(True);                          // Write Layer image data
+
+      Write(Handle, @LongVal, SizeOf(LongVal));        // Global mask info size = 0
+
+      SaveOffset := Tell(Handle);
+      Seek(Handle, LayerBlockOffset, smFromBeginning);
+
+      // Update layer and mask section sizes
+      LongVal := SwapEndianLongWord(SaveOffset - LayerBlockOffset - 4);
+      Write(Handle, @LongVal, SizeOf(LongVal));
+      LongVal := SwapEndianLongWord(SaveOffset - LayerBlockOffset - 8);
+      Write(Handle, @LongVal, SizeOf(LongVal));
+
+      // Update layer channel info
+      Seek(Handle, ChannelInfoOffset, smFromBeginning);
+      for I := 0 to Info.ChannelCount - 1 do
+      begin
+        ChannelInfo.ChannelID := SwapEndianWord(I);
+        if (I = Info.ChannelCount - 1) and Info.HasAlphaChannel then
+          ChannelInfo.ChannelID := Swap(Word(-1));
+        ChannelInfo.Size := SwapEndianLongWord(ChannelDataSizes[I] + 2); // datasize (incl RLE table) + comp. flag
+        Write(Handle, @ChannelInfo, SizeOf(ChannelInfo));
+      end;
+
+      Seek(Handle, SaveOffset, smFromBeginning);
+    end;
+
+    // Write background merged image
+    WriteChannelData(False);
+
+    Result := True;
+  finally
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+procedure TPSDFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.IsFloatingPoint then
+  begin
+    if Info.ChannelCount = 1 then
+      ConvFormat := ifR32F
+    else if Info.HasAlphaChannel then
+      ConvFormat := ifA32R32G32B32F
+    else
+      ConvFormat := ifR32G32B32F;
+  end
+  else if Info.HasGrayChannel then
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA16Gray16, ifGray16)
+  else if Info.RBSwapFormat in GetSupportedFormats then
+    ConvFormat := Info.RBSwapFormat
+  else
+    ConvFormat := IffFormat(Info.HasAlphaChannel, ifA8R8G8B8, ifR8G8B8);
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+function TPSDFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Header: TPSDHeader;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @Header, SizeOf(Header));
+    SwapHeader(Header);
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount >= SizeOf(Header)) and
+      (Header.Signature = SPSDMagic) and
+      (Header.Version = 1);
+  end;
+end;
+
+initialization
+  RegisterImageFileFormat(TPSDFileFormat);
+
+{
+  File Notes:
+
+  -- 0.77.1 ---------------------------------------------------
+    - 3 channel RGB float images are loaded and saved directly
+      as ifR32G32B32F.
+
+  -- 0.26.1 Changes/Bug Fixes ---------------------------------
+    - PSDs are now saved with RLE compression.
+    - Mask layer saving added to SaveData for images with alpha
+      (shows proper transparency when opened in Photoshop). Can be
+      enabled/disabled using option
+    - Fixed memory leak in SaveData.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Saving implemented.
+    - Loading implemented.
+    - Unit created with initial stuff!
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingRadiance.pas b/src/lib/vampimg/ImagingRadiance.pas

new file mode 100644 (file)

index 0000000..122e0c2
--- /dev/null
+++ b/src/lib/vampimg/ImagingRadiance.pas
@@ -0,0 +1,497 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for Radiance HDR/RGBE images.}
+unit ImagingRadiance;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, Imaging, ImagingTypes, ImagingUtility;
+
+type
+  { Radiance is a suite of tools for performing lighting simulation. It's
+    development started in 1985 and it pioneered the concept of
+    high dynamic range imaging. Radiance defined an image format for storing
+    HDR images, now described as RGBE image format. Since it was the first
+    HDR image format, this format is supported by many other software packages.
+
+    Radiance image file consists of three sections: a header, resolution string,
+    followed by the pixel data. Each pixel is stored as 4 bytes, one byte
+    mantissa for each r, g, b and a shared one byte exponent.
+    The pixel data may be stored uncompressed or using run length encoding.
+
+    Imaging translates RGBE pixels to original float values and stores them
+    in ifR32G32B32F data format. It can read both compressed and uncompressed
+    files, and saves files as compressed.}
+  THdrFileFormat = class(TImageFileFormat)
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  end;
+
+implementation
+
+uses
+  Math, ImagingIO;
+
+const
+  SHdrFormatName = 'Radiance HDR/RGBE';
+  SHdrMasks      = '*.hdr';
+  HdrSupportedFormats: TImageFormats = [ifR32G32B32F];
+
+type
+  TSignature = array[0..9] of AnsiChar;
+  THdrFormat = (hfRgb, hfXyz);
+
+  THdrHeader = record
+    Format: THdrFormat;
+    Width: Integer;
+    Height: Integer;
+  end;
+
+  TRgbe = packed record
+    R, G, B, E: Byte;
+  end;
+  PRgbe = ^TRgbe;
+  TDynRgbeArray = array of TRgbe;
+
+const
+  RadianceSignature: TSignature = '#?RADIANCE';
+  RgbeSignature: TSignature = '#?RGBE';
+  MaxLineLength = 256;
+  SFmtRgbeRle = '32-bit_rle_rgbe';
+  SFmtXyzeRle = '32-bit_rle_xyze';
+
+resourcestring
+  SErrorBadHeader = 'Bad HDR/RGBE header format.';
+  SWrongScanLineWidth = 'Wrong scanline width.';
+  SXyzNotSupported = 'XYZ color space not supported.';
+
+{ THdrFileFormat }
+
+procedure THdrFileFormat.Define;
+begin
+  inherited;
+  FName := SHdrFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := HdrSupportedFormats;
+
+  AddMasks(SHdrMasks);
+end;
+
+function THdrFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Header: THdrHeader;
+  IO: TIOFunctions;
+
+  function ReadHeader: Boolean;
+  const
+    CommentIds: TAnsiCharSet = ['#', '!'];
+  var
+    Line: AnsiString;
+    HasResolution: Boolean;
+    Count, Idx: Integer;
+    ValStr, NativeLine: string;
+    ValFloat: Double;
+  begin
+    Result := False;
+    HasResolution := False;
+    Count := 0;
+
+    repeat
+      if not ReadLine(IO, Handle, Line) then
+        Exit;
+
+      Inc(Count);
+      if Count > 16 then // Too long header for HDR
+        Exit;
+
+      if Length(Line) = 0 then
+        Continue;
+      if Line[1] in CommentIds then
+        Continue;
+
+      NativeLine := string(Line);
+
+      if StrMaskMatch(NativeLine, 'Format=*') then
+      begin
+        // Data format parsing
+        ValStr := Copy(NativeLine, 8, MaxInt);
+        if ValStr = SFmtRgbeRle then
+          Header.Format := hfRgb
+        else if ValStr = SFmtXyzeRle then
+          Header.Format := hfXyz
+        else
+          Exit;
+      end;
+
+      if StrMaskMatch(NativeLine, 'Gamma=*') then
+      begin
+        ValStr := Copy(NativeLine, 7, MaxInt);
+        if TryStrToFloat(ValStr, ValFloat, GetFormatSettingsForFloats) then
+          FMetadata.SetMetaItem(SMetaGamma, ValFloat);
+      end;
+
+      if StrMaskMatch(NativeLine, 'Exposure=*') then
+      begin
+        ValStr := Copy(NativeLine, 10, MaxInt);
+        if TryStrToFloat(ValStr, ValFloat, GetFormatSettingsForFloats) then
+          FMetadata.SetMetaItem(SMetaExposure, ValFloat);
+      end;
+
+      if StrMaskMatch(NativeLine, '?Y * ?X *') then
+      begin
+        Idx := Pos('X', NativeLine);
+        ValStr := SubString(NativeLine, 4, Idx - 2);
+        if not TryStrToInt(ValStr, Header.Height) then
+          Exit;
+        ValStr := Copy(NativeLine, Idx + 2, MaxInt);
+        if not TryStrToInt(ValStr, Header.Width) then
+          Exit;
+
+        if (NativeLine[1] = '-') then
+          Header.Height := -Header.Height;
+        if (NativeLine[Idx - 1] = '-') then
+          Header.Width := -Header.Width;
+
+        HasResolution := True;
+      end;
+
+    until HasResolution;
+    Result := True;
+  end;
+
+  procedure DecodeRgbe(const Src: TRgbe; Dest: PColor96FPRec); {$IFDEF USE_INLINE}inline;{$ENDIF}
+  var
+    Mult: Single;
+  begin
+    if Src.E > 0 then
+    begin
+      Mult := Math.Ldexp(1, Src.E - 128);
+      Dest.R := Src.R / 255 * Mult;
+      Dest.G := Src.G / 255 * Mult;
+      Dest.B := Src.B / 255 * Mult;
+    end
+    else
+    begin
+      Dest.R := 0;
+      Dest.G := 0;
+      Dest.B := 0;
+    end;
+  end;
+
+  procedure ReadCompressedLine(Width, Y: Integer; var DestBuffer: TDynRgbeArray);
+  var
+    Pos: Integer;
+    I, X, Count: Integer;
+    Code, Value: Byte;
+    LineBuff: TDynByteArray;
+    Rgbe: TRgbe;
+    Ptr: PByte;
+  begin
+    SetLength(LineBuff, Width);
+    IO.Read(Handle, @Rgbe, SizeOf(Rgbe));
+
+    if ((Rgbe.B shl 8) or Rgbe.E) <> Width  then
+      RaiseImaging(SWrongScanLineWidth);
+
+    for I := 0 to 3 do
+    begin
+      Pos := 0;
+      while Pos < Width do
+      begin
+        IO.Read(Handle, @Code, SizeOf(Byte));
+        if Code > 128 then
+        begin
+          Count := Code - 128;
+          IO.Read(Handle, @Value, SizeOf(Byte));
+          FillMemoryByte(@LineBuff[Pos], Count, Value);
+        end
+        else
+        begin
+          Count := Code;
+          IO.Read(Handle, @LineBuff[Pos], Count * SizeOf(Byte));
+        end;
+        Inc(Pos, Count);
+      end;
+
+      Ptr := @PByteArray(@DestBuffer[0])[I];
+      for X := 0 to Width - 1 do
+      begin
+        Ptr^ := LineBuff[X];
+        Inc(Ptr, 4);
+      end;
+    end;
+  end;
+
+  procedure ReadPixels(var Image: TImageData);
+  var
+    Y, X, SrcLineLen: Integer;
+    Dest: PColor96FPRec;
+    Compressed: Boolean;
+    Rgbe: TRgbe;
+    Buffer: TDynRgbeArray;
+  begin
+    Dest := Image.Bits;
+    Compressed := not ((Image.Width < 8) or (Image.Width > $7FFFF));
+    SrcLineLen := Image.Width * SizeOf(TRgbe);
+
+    IO.Read(Handle, @Rgbe, SizeOf(Rgbe));
+    IO.Seek(Handle, -SizeOf(Rgbe), smFromCurrent);
+
+    if (Rgbe.R <> 2) or (Rgbe.G <> 2) or ((Rgbe.B and 128) > 0) then
+      Compressed := False;
+
+    SetLength(Buffer, Image.Width);
+
+    for Y := 0 to Image.Height - 1 do
+    begin
+      if Compressed then
+        ReadCompressedLine(Image.Width, Y, Buffer)
+      else
+        IO.Read(Handle, @Buffer[0], SrcLineLen);
+
+      for X := 0 to Image.Width - 1 do
+      begin
+        DecodeRgbe(Buffer[X], Dest);
+        Inc(Dest);
+      end;
+    end;
+  end;
+
+begin
+  IO := GetIO;
+  SetLength(Images, 1);
+
+  // Read header, allocate new image and, then read and convert the pixels
+  if not ReadHeader then
+    RaiseImaging(SErrorBadHeader);
+  if (Header.Format = hfXyz) then
+    RaiseImaging(SXyzNotSupported);
+
+  NewImage(Abs(Header.Width), Abs(Header.Height), ifR32G32B32F, Images[0]);
+  ReadPixels(Images[0]);
+
+  // Flip/mirror the image as needed (height < 0 is default top-down)
+  if Header.Width < 0 then
+    MirrorImage(Images[0]);
+  if Header.Height > 0 then
+    FlipImage(Images[0]);
+
+  Result := True;
+end;
+
+function THdrFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: Integer): Boolean;
+const
+  LineEnd = #$0A;
+  SPrgComment = '#Made with Vampyre Imaging Library';
+  SSizeFmt = '-Y %d +X %d';
+var
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+  IO: TIOFunctions;
+
+  procedure SaveHeader;
+  begin
+    WriteLine(IO, Handle, RadianceSignature, LineEnd);
+    WriteLine(IO, Handle, SPrgComment, LineEnd);
+    WriteLine(IO, Handle, 'FORMAT=' + SFmtRgbeRle, LineEnd + LineEnd);
+    WriteLine(IO, Handle, AnsiString(Format(SSizeFmt, [ImageToSave.Height, ImageToSave.Width])), LineEnd);
+  end;
+
+  procedure EncodeRgbe(const Src: TColor96FPRec; var DestR, DestG, DestB, DestE: Byte); {$IFDEF USE_INLINE}inline;{$ENDIF}
+  var
+    V, M: {$IFDEF FPC}Float{$ELSE}Extended{$ENDIF};
+    E: Integer;
+  begin
+    V := Src.R;
+    if (Src.G > V) then
+      V := Src.G;
+    if (Src.B > V) then
+      V := Src.B;
+
+    if V < 1e-32 then
+    begin
+      DestR := 0;
+      DestG := 0;
+      DestB := 0;
+      DestE := 0;
+    end
+    else
+    begin
+      Frexp(V, M, E);
+      V := M * 256.0 / V;
+      DestR := ClampToByte(Round(Src.R * V));
+      DestG := ClampToByte(Round(Src.G * V));
+      DestB := ClampToByte(Round(Src.B * V));
+      DestE := ClampToByte(E + 128);
+    end;
+  end;
+
+  procedure WriteRleLine(const Line: array of Byte; Width: Integer);
+  const
+    MinRunLength = 4;
+  var
+    Cur, BeginRun, RunCount, OldRunCount, NonRunCount: Integer;
+    Buf: array[0..1] of Byte;
+  begin
+    Cur := 0;
+    while Cur < Width do
+    begin
+      BeginRun := Cur;
+      RunCount := 0;
+      OldRunCount := 0;
+      while (RunCount < MinRunLength) and (BeginRun < Width) do
+      begin
+        Inc(BeginRun, RunCount);
+        OldRunCount := RunCount;
+        RunCount := 1;
+        while (BeginRun + RunCount < Width) and (RunCount < 127) and (Line[BeginRun] = Line[BeginRun + RunCount]) do
+          Inc(RunCount);
+      end;
+      if (OldRunCount > 1) and (OldRunCount = BeginRun - Cur) then
+      begin
+        Buf[0] := 128 + OldRunCount;
+        Buf[1] := Line[Cur];
+        IO.Write(Handle, @Buf, 2);
+        Cur := BeginRun;
+      end;
+      while Cur < BeginRun do
+      begin
+        NonRunCount := Min(128, BeginRun - Cur);
+        Buf[0] := NonRunCount;
+        IO.Write(Handle, @Buf, 1);
+        IO.Write(Handle, @Line[Cur], NonRunCount);
+        Inc(Cur, NonRunCount);
+      end;
+      if RunCount >= MinRunLength then
+      begin
+        Buf[0] := 128 + RunCount;
+        Buf[1] := Line[BeginRun];
+        IO.Write(Handle, @Buf, 2);
+        Inc(Cur, RunCount);
+      end;
+    end;
+  end;
+
+  procedure SavePixels;
+  var
+    Y, X, I, Width: Integer;
+    SrcPtr: PColor96FPRecArray;
+    Components: array of array of Byte;
+    StartLine: array[0..3] of Byte;
+  begin
+    Width := ImageToSave.Width;
+    // Save using RLE, each component is compressed separately
+    SetLength(Components, 4, Width);
+
+    for Y := 0 to ImageToSave.Height - 1 do
+    begin
+      SrcPtr := @PColor96FPRecArray(ImageToSave.Bits)[ImageToSave.Width * Y];
+
+      // Identify line as using "new" RLE scheme (separate components)
+      StartLine[0] := 2;
+      StartLine[1] := 2;
+      StartLine[2] := Width shr 8;
+      StartLine[3] := Width and $FF;
+      IO.Write(Handle, @StartLine, SizeOf(StartLine));
+
+      for X := 0 to Width - 1 do
+      begin
+        EncodeRgbe(SrcPtr[X], Components[0, X], Components[1, X],
+          Components[2, X], Components[3, X]);
+      end;
+
+      for I := 0 to 3 do
+        WriteRleLine(Components[I], Width);
+    end;
+  end;
+
+begin
+  Result := False;
+  IO := GetIO;
+  // Makes image to save compatible with Jpeg saving capabilities
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with ImageToSave do
+  try
+    // Save header
+    SaveHeader;
+    // Save uncompressed pixels
+    SavePixels;
+  finally
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+procedure THdrFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+  ConvertImage(Image, ifR32G32B32F);
+end;
+
+function THdrFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  FileSig: TSignature;
+  ReadCount: Integer;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @FileSig, SizeOf(FileSig));
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount = SizeOf(FileSig)) and
+      ((FileSig = RadianceSignature) or CompareMem(@FileSig, @RgbeSignature, 6));
+  end;
+end;
+
+initialization
+  RegisterImageFileFormat(THdrFileFormat);
+
+{
+  File Notes:
+
+  -- 0.77.1 ---------------------------------------------------
+    - Added RLE compression to saving.
+    - Added image saving.
+    - Unit created with initial stuff (loading only).
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingTarga.pas b/src/lib/vampimg/ImagingTarga.pas

new file mode 100644 (file)

index 0000000..66af5f2
--- /dev/null
+++ b/src/lib/vampimg/ImagingTarga.pas
@@ -0,0 +1,619 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader/saver for Targa images.}
+unit ImagingTarga;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  ImagingTypes, Imaging, ImagingFormats, ImagingUtility;
+
+type
+  { Class for loading and saving Truevision Targa images.
+    It can load/save 8bit indexed or grayscale, 16 bit RGB or grayscale,
+    24 bit RGB and 32 bit ARGB images with or without RLE compression.}
+  TTargaFileFormat = class(TImageFileFormat)
+  protected
+    FUseRLE: LongBool;
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  published
+    { Controls that RLE compression is used during saving. Accessible trough
+      ImagingTargaRLE option.}
+    property UseRLE: LongBool read FUseRLE write FUseRLE;
+  end;
+
+implementation
+
+const
+  STargaFormatName = 'Truevision Targa Image';
+  STargaMasks      = '*.tga';
+  TargaSupportedFormats: TImageFormats = [ifIndex8, ifGray8, ifA1R5G5B5,
+    ifR8G8B8, ifA8R8G8B8];
+  TargaDefaultRLE = False;
+
+const
+  STargaSignature = 'TRUEVISION-XFILE';
+
+type
+  { Targa file header.}
+  TTargaHeader = packed record
+    IDLength: Byte;
+    ColorMapType: Byte;
+    ImageType: Byte;
+    ColorMapOff: Word;
+    ColorMapLength: Word;
+    ColorEntrySize: Byte;
+    XOrg: SmallInt;
+    YOrg: SmallInt;
+    Width: SmallInt;
+    Height: SmallInt;
+    PixelSize: Byte;
+    Desc: Byte;
+  end;
+
+  { Footer at the end of TGA file.}
+  TTargaFooter = packed record
+    ExtOff: LongWord;             // Extension Area Offset
+    DevDirOff: LongWord;          // Developer Directory Offset
+    Signature: TChar16;           // TRUEVISION-XFILE
+    Reserved: Byte;               // ASCII period '.'
+    NullChar: Byte;               // 0
+  end;
+
+
+{ TTargaFileFormat class implementation }
+
+procedure TTargaFileFormat.Define;
+begin
+  inherited;
+  FName := STargaFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := TargaSupportedFormats;
+
+  FUseRLE := TargaDefaultRLE;
+
+  AddMasks(STargaMasks);
+  RegisterOption(ImagingTargaRLE, @FUseRLE);
+end;
+
+function TTargaFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Hdr: TTargaHeader;
+  Foo: TTargaFooter;
+  FooterFound, ExtFound: Boolean;
+  I, PSize, PalSize: LongWord;
+  Pal: Pointer;
+  FmtInfo: TImageFormatInfo;
+  WordValue: Word;
+
+  procedure LoadRLE;
+  var
+    I, CPixel, Cnt: LongInt;
+    Bpp, Rle: Byte;
+    Buffer, Dest, Src: PByte;
+    BufSize: LongInt;
+  begin
+    with GetIO, Images[0] do
+    begin
+      // Alocates buffer large enough to hold the worst case
+      // RLE compressed data and reads then from input
+      BufSize := Width * Height * FmtInfo.BytesPerPixel;
+      BufSize := BufSize + BufSize div 2 + 1;
+      GetMem(Buffer, BufSize);
+      Src := Buffer;
+      Dest := Bits;
+      BufSize := Read(Handle, Buffer, BufSize);
+
+      Cnt := Width * Height;
+      Bpp := FmtInfo.BytesPerPixel;
+      CPixel := 0;
+      while CPixel < Cnt do
+      begin
+        Rle := Src^;
+        Inc(Src);
+        if Rle < 128 then
+        begin
+          // Process uncompressed pixel
+          Rle := Rle + 1;
+          CPixel := CPixel + Rle;
+          for I := 0 to Rle - 1 do
+          begin
+            // Copy pixel from src to dest
+            case Bpp of
+              1: Dest^ := Src^;
+              2: PWord(Dest)^ := PWord(Src)^;
+              3: PColor24Rec(Dest)^ := PColor24Rec(Src)^;
+              4: PLongWord(Dest)^ := PLongWord(Src)^;
+            end;
+            Inc(Src, Bpp);
+            Inc(Dest, Bpp);
+          end;
+        end
+        else
+        begin
+          // Process compressed pixels
+          Rle := Rle - 127;
+          CPixel := CPixel + Rle;
+          // Copy one pixel from src to dest (many times there)
+          for I := 0 to Rle - 1 do
+          begin
+            case Bpp of
+              1: Dest^ := Src^;
+              2: PWord(Dest)^ := PWord(Src)^;
+              3: PColor24Rec(Dest)^ := PColor24Rec(Src)^;
+              4: PLongWord(Dest)^ := PLongWord(Src)^;
+            end;
+            Inc(Dest, Bpp);
+          end;
+          Inc(Src, Bpp);
+        end;
+      end;
+      // set position in source to real end of compressed data
+      Seek(Handle, -(BufSize - LongInt(LongWord(Src) - LongWord(Buffer))),
+        smFromCurrent);
+      FreeMem(Buffer);
+    end;
+  end;
+
+begin
+  SetLength(Images, 1);
+  with GetIO, Images[0] do
+  begin
+    // Read targa header
+    Read(Handle, @Hdr, SizeOf(Hdr));
+    // Skip image ID info
+    Seek(Handle, Hdr.IDLength, smFromCurrent);
+    // Determine image format
+    Format := ifUnknown;
+    case Hdr.ImageType of
+      1, 9: Format := ifIndex8;
+      2, 10: case Hdr.PixelSize of
+          15: Format := ifX1R5G5B5;
+          16: Format := ifA1R5G5B5;
+          24: Format := ifR8G8B8;
+          32: Format := ifA8R8G8B8;
+        end;
+      3, 11: Format := ifGray8;
+    end;
+    // Format was not assigned by previous testing (it should be in
+    // well formed targas), so formats which reflects bit dept are selected
+    if Format = ifUnknown then
+      case Hdr.PixelSize of
+        8: Format := ifGray8;
+        15: Format := ifX1R5G5B5;
+        16: Format := ifA1R5G5B5;
+        24: Format := ifR8G8B8;
+        32: Format := ifA8R8G8B8;
+      end;
+    NewImage(Hdr.Width, Hdr.Height, Format, Images[0]);
+    FmtInfo := GetFormatInfo(Format);
+
+    if (Hdr.ColorMapType = 1) and (Hdr.ImageType in [1, 9]) then
+    begin
+      // Read palette
+      PSize := Hdr.ColorMapLength * (Hdr.ColorEntrySize shr 3);
+      GetMem(Pal, PSize);
+      try
+        Read(Handle, Pal, PSize);
+        // Process palette
+        PalSize := Iff(Hdr.ColorMapLength > FmtInfo.PaletteEntries,
+          FmtInfo.PaletteEntries, Hdr.ColorMapLength);
+        for I := 0 to PalSize - 1 do
+          case Hdr.ColorEntrySize of
+            24:
+              with Palette[I] do
+              begin
+                A := $FF;
+                R := PPalette24(Pal)[I].R;
+                G := PPalette24(Pal)[I].G;
+                B := PPalette24(Pal)[I].B;
+              end;
+            // I've never seen tga with these palettes so they are untested
+            16:
+              with Palette[I] do
+              begin
+                A := (PWordArray(Pal)[I] and $8000) shr 12;
+                R := (PWordArray(Pal)[I] and $FC00) shr 7;
+                G := (PWordArray(Pal)[I] and $03E0) shr 2;
+                B := (PWordArray(Pal)[I] and $001F) shl 3;
+              end;
+            32:
+              with Palette[I] do
+              begin
+                A := PPalette32(Pal)[I].A;
+                R := PPalette32(Pal)[I].R;
+                G := PPalette32(Pal)[I].G;
+                B := PPalette32(Pal)[I].B;
+              end;
+          end;
+      finally
+        FreeMemNil(Pal);
+      end;
+    end;
+
+    case Hdr.ImageType of
+      0, 1, 2, 3:
+        // Load uncompressed mode images
+        Read(Handle, Bits, Size);
+      9, 10, 11:
+        // Load RLE compressed mode images
+        LoadRLE;
+    end;
+
+    // Check if there is alpha channel present in A1R5GB5 images, if it is not
+    // change format to X1R5G5B5
+    if Format = ifA1R5G5B5 then
+    begin
+      if not Has16BitImageAlpha(Width * Height, Bits) then
+        Format := ifX1R5G5B5;
+    end;
+
+    // We must find true end of file and set input' position to it
+    // paint programs appends extra info at the end of Targas
+    // some of them multiple times (PSP Pro 8)
+    repeat
+      ExtFound := False;
+      FooterFound := False;
+
+      if Read(Handle, @WordValue, 2) = 2 then
+      begin
+        // 495 = size of Extension Area
+        if WordValue = 495 then
+        begin
+          Seek(Handle, 493, smFromCurrent);
+          ExtFound := True;
+        end
+        else
+          Seek(Handle, -2, smFromCurrent);
+      end;
+
+      if Read(Handle, @Foo, SizeOf(Foo)) = SizeOf(Foo) then
+      begin
+        if Foo.Signature = STargaSignature then
+          FooterFound := True
+        else
+          Seek(Handle, -SizeOf(Foo), smFromCurrent);
+      end;
+    until (not ExtFound) and (not FooterFound);
+
+    // Some editors save targas flipped
+    if Hdr.Desc < 31 then
+      FlipImage(Images[0]);
+
+    Result := True;
+  end;
+end;
+
+function TTargaFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+var
+  I: LongInt;
+  Hdr: TTargaHeader;
+  FmtInfo: TImageFormatInfo;
+  Pal: PPalette24;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+
+  procedure SaveRLE;
+  var
+    Dest: PByte;
+    WidthBytes, Written, I, Total, DestSize: LongInt;
+
+    function CountDiff(Data: PByte; Bpp, PixelCount: Longint): LongInt;
+    var
+      Pixel: LongWord;
+      NextPixel: LongWord;
+      N: LongInt;
+    begin
+      N := 0;
+      Pixel := 0;
+      NextPixel := 0;
+      if PixelCount = 1 then
+      begin
+        Result := PixelCount;
+        Exit;
+      end;
+      case Bpp of
+        1: Pixel := Data^;
+        2: Pixel := PWord(Data)^;
+        3: PColor24Rec(@Pixel)^ := PColor24Rec(Data)^;
+        4: Pixel := PLongWord(Data)^;
+      end;
+      while PixelCount > 1 do
+      begin
+        Inc(Data, Bpp);
+        case Bpp of
+          1: NextPixel := Data^;
+          2: NextPixel := PWord(Data)^;
+          3: PColor24Rec(@NextPixel)^ := PColor24Rec(Data)^;
+          4: NextPixel := PLongWord(Data)^;
+        end;
+        if NextPixel = Pixel then
+          Break;
+        Pixel := NextPixel;
+        N := N + 1;
+        PixelCount := PixelCount - 1;
+      end;
+      if NextPixel = Pixel then
+        Result := N
+      else
+        Result := N + 1;
+    end;
+
+    function CountSame(Data: PByte; Bpp, PixelCount: LongInt): LongInt;
+    var
+      Pixel: LongWord;
+      NextPixel: LongWord;
+      N: LongInt;
+    begin
+      N := 1;
+      Pixel := 0;
+      NextPixel := 0;
+      case Bpp of
+        1: Pixel := Data^;
+        2: Pixel := PWord(Data)^;
+        3: PColor24Rec(@Pixel)^ := PColor24Rec(Data)^;
+        4: Pixel := PLongWord(Data)^;
+      end;
+      PixelCount := PixelCount - 1;
+      while PixelCount > 0 do
+      begin
+        Inc(Data, Bpp);
+        case Bpp of
+          1: NextPixel := Data^;
+          2: NextPixel := PWord(Data)^;
+          3: PColor24Rec(@NextPixel)^ := PColor24Rec(Data)^;
+          4: NextPixel := PLongWord(Data)^;
+        end;
+        if NextPixel <> Pixel then
+          Break;
+        N := N + 1;
+        PixelCount := PixelCount - 1;
+      end;
+      Result := N;
+    end;
+
+    procedure RleCompressLine(Data: PByte; PixelCount, Bpp: LongInt; Dest:
+      PByte; var Written: LongInt);
+    const
+      MaxRun = 128;
+    var
+      DiffCount: LongInt;
+      SameCount: LongInt;
+      RleBufSize: LongInt;
+    begin
+      RleBufSize := 0;
+      while PixelCount > 0 do
+      begin
+        DiffCount := CountDiff(Data, Bpp, PixelCount);
+        SameCount := CountSame(Data, Bpp, PixelCount);
+        if (DiffCount > MaxRun) then
+          DiffCount := MaxRun;
+        if (SameCount > MaxRun) then
+          SameCount := MaxRun;
+        if (DiffCount > 0) then
+        begin
+          Dest^ := Byte(DiffCount - 1);
+          Inc(Dest);
+          PixelCount := PixelCount - DiffCount;
+          RleBufSize := RleBufSize + (DiffCount * Bpp) + 1;
+          Move(Data^, Dest^, DiffCount * Bpp);
+          Inc(Data, DiffCount * Bpp);
+          Inc(Dest, DiffCount * Bpp);
+        end;
+        if SameCount > 1 then
+        begin
+          Dest^ := Byte((SameCount - 1) or $80);
+          Inc(Dest);
+          PixelCount := PixelCount - SameCount;
+          RleBufSize := RleBufSize + Bpp + 1;
+          Inc(Data, (SameCount - 1) * Bpp);
+          case Bpp of
+            1: Dest^ := Data^;
+            2: PWord(Dest)^ := PWord(Data)^;
+            3: PColor24Rec(Dest)^ := PColor24Rec(Data)^;
+            4: PLongWord(Dest)^ := PLongWord(Data)^;
+          end;
+          Inc(Data, Bpp);
+          Inc(Dest, Bpp);
+        end;
+      end;
+      Written := RleBufSize;
+    end;
+
+  begin
+    with ImageToSave do
+    begin
+      // Allocate enough space to hold the worst case compression
+      // result and then compress source's scanlines
+      WidthBytes := Width * FmtInfo.BytesPerPixel;
+      DestSize := WidthBytes * Height;
+      DestSize := DestSize + DestSize div 2 + 1;
+      GetMem(Dest, DestSize);
+      Total := 0;
+      try
+        for I := 0 to Height - 1 do
+        begin
+          RleCompressLine(@PByteArray(Bits)[I * WidthBytes], Width,
+            FmtInfo.BytesPerPixel, @PByteArray(Dest)[Total], Written);
+          Total := Total + Written;
+        end;
+        GetIO.Write(Handle, Dest, Total);
+      finally
+        FreeMem(Dest);
+      end;
+    end;
+  end;
+
+begin
+  Result := False;
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  with GetIO, ImageToSave do
+  try
+    FmtInfo := GetFormatInfo(Format);
+    // Fill targa header
+    FillChar(Hdr, SizeOf(Hdr), 0);
+    Hdr.IDLength := 0;
+    Hdr.ColorMapType := Iff(FmtInfo.PaletteEntries > 0, 1, 0);
+    Hdr.Width := Width;
+    Hdr.Height := Height;
+    Hdr.PixelSize := FmtInfo.BytesPerPixel * 8;
+    Hdr.ColorMapLength := FmtInfo.PaletteEntries;
+    Hdr.ColorEntrySize := Iff(FmtInfo.PaletteEntries > 0, 24, 0);
+    Hdr.ColorMapOff := 0;
+    // This indicates that targa is stored in top-left format
+    // as our images -> no flipping is needed.
+    Hdr.Desc := 32;
+    // Set alpha channel size in descriptor (mostly ignored by other software though)
+    if Format = ifA8R8G8B8 then
+      Hdr.Desc := Hdr.Desc or 8
+    else if Format = ifA1R5G5B5 then
+      Hdr.Desc := Hdr.Desc or 1;
+
+    // Choose image type
+    if FmtInfo.IsIndexed then
+      Hdr.ImageType := Iff(FUseRLE, 9, 1)
+    else
+      if FmtInfo.HasGrayChannel then
+        Hdr.ImageType := Iff(FUseRLE, 11, 3)
+      else
+        Hdr.ImageType := Iff(FUseRLE, 10, 2);
+
+    Write(Handle, @Hdr, SizeOf(Hdr));
+
+    // Write palette
+    if FmtInfo.PaletteEntries > 0 then
+    begin
+      GetMem(Pal, FmtInfo.PaletteEntries * SizeOf(TColor24Rec));
+      try
+        for I := 0 to FmtInfo.PaletteEntries - 1 do
+          with Pal[I] do
+          begin
+            R := Palette[I].R;
+            G := Palette[I].G;
+            B := Palette[I].B;
+          end;
+        Write(Handle, Pal, FmtInfo.PaletteEntries * SizeOf(TColor24Rec));
+      finally
+        FreeMemNil(Pal);
+      end;
+    end;
+
+    if FUseRLE then
+      // Save rle compressed mode images
+      SaveRLE
+    else
+      // Save uncompressed mode images
+      Write(Handle, Bits, Size);
+
+    Result := True;
+  finally
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+procedure TTargaFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+var
+  ConvFormat: TImageFormat;
+begin
+  if Info.HasGrayChannel then
+    // Convert all grayscale images to Gray8 (preserve alpha of AxGrayx formats)
+    ConvFormat := IffFormat(not Info.HasAlphaChannel, ifGray8, ifA8R8G8B8)
+  else if Info.IsIndexed then
+    // Convert all indexed images to Index8
+    ConvFormat := ifIndex8
+  else if Info.HasAlphaChannel then
+    // Convert images with alpha channel to A8R8G8B8
+    ConvFormat := ifA8R8G8B8
+  else if Info.UsePixelFormat then
+    // Convert 16bit images (without alpha channel) to A1R5G5B5
+    ConvFormat := ifA1R5G5B5
+  else
+    // Convert all other formats to R8G8B8
+    ConvFormat := ifR8G8B8;
+
+  ConvertImage(Image, ConvFormat);
+end;
+
+function TTargaFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Hdr: TTargaHeader;
+  ReadCount: LongInt;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @Hdr, SizeOf(Hdr));
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (ReadCount >= SizeOf(Hdr)) and
+      (Hdr.ImageType in [0, 1, 2, 3, 9, 10, 11]) and
+      (Hdr.PixelSize in [1, 8, 15, 16, 24, 32]) and
+      (Hdr.ColorEntrySize in [0, 16, 24, 32]);
+  end;
+end;
+
+initialization
+  RegisterImageFileFormat(TTargaFileFormat);
+
+{
+  File Notes:
+
+ -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - MakeCompatible method moved to base class, put ConvertToSupported here.
+      GetSupportedFormats removed, it is now set in constructor.
+    - Made public properties for options registered to SetOption/GetOption
+      functions.
+    - Changed extensions to filename masks.
+    - Changed SaveData, LoadData, and MakeCompatible methods according
+      to changes in base class in Imaging unit.
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - 16 bit images are usually without alpha but some has alpha
+      channel and there is no indication of it - so I have added
+      a check: if all pixels of image are with alpha = 0 image is treated
+      as X1R5G5B5 otherwise as A1R5G5B5
+    - fixed problems with some nonstandard 15 bit images
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingTypes.pas b/src/lib/vampimg/ImagingTypes.pas

new file mode 100644 (file)

index 0000000..9c5e1f1
--- /dev/null
+++ b/src/lib/vampimg/ImagingTypes.pas
@@ -0,0 +1,564 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains basic types and constants used by Imaging library.}
+unit ImagingTypes;
+
+{$I ImagingOptions.inc}
+
+interface
+
+const
+  { Current Major version of Imaging.}
+  ImagingVersionMajor = 0;
+  { Current Minor version of Imaging.}
+  ImagingVersionMinor = 77;
+  { Current patch of Imaging.}
+  ImagingVersionPatch = 2;
+
+  { Imaging Option Ids whose values can be set/get by SetOption/
+    GetOption functions.}
+
+  { Defines Jpeg compression quality, ranges from 1 (ugly/small) to 100 (nice/large).
+    Default value is 90.}
+  ImagingJpegQuality           = 10;
+  { Specifies whether Jpeg images are saved in progressive format,
+    can be 0 or 1. Default value is 0.}
+  ImagingJpegProgressive       = 11;
+
+  { Specifies whether Windows Bitmaps are saved using RLE compression
+    (only for 1/4/8 bit images), can be 0 or 1. Default value is 1.}
+  ImagingBitmapRLE             = 12;
+
+  { Specifies whether Targa images are saved using RLE compression,
+    can be 0 or 1. Default value is 0.}
+  ImagingTargaRLE              = 13;
+
+  { Value of this option is non-zero if last loaded DDS file was cube map.}
+  ImagingDDSLoadedCubeMap      = 14;
+  { Value of this option is non-zero if last loaded DDS file was volume texture.}
+  ImagingDDSLoadedVolume       = 15;
+  { Value of this option is number of mipmap levels of last loaded DDS image.}
+  ImagingDDSLoadedMipMapCount  = 16;
+  { Value of this option is depth (slices of volume texture or faces of
+    cube map) of last loaded DDS image.}
+  ImagingDDSLoadedDepth        = 17;
+  { If it is non-zero next saved DDS file should be stored as cube map.}
+  ImagingDDSSaveCubeMap        = 18;
+  { If it is non-zero next saved DDS file should be stored as volume texture.}
+  ImagingDDSSaveVolume         = 19;
+  { Sets the number of mipmaps which should be stored in the next saved DDS file.
+    Only applies to cube maps and volumes, ordinary 2D textures save all
+    levels present in input.}
+  ImagingDDSSaveMipMapCount    = 20;
+  { Sets the depth (slices of volume texture or faces of cube map)
+    of the next saved DDS file.}
+  ImagingDDSSaveDepth          = 21;
+
+  { Sets precompression filter used when saving PNG images. Allowed values
+    are: 0 (none), 1 (sub), 2 (up), 3 (average), 4 (paeth),
+    5 (use 0 for indexed/gray images and 4 for RGB/ARGB images),
+    6 (adaptive filtering - use best filter for each scanline - very slow).
+    Note that filters 3 and 4 are much slower than filters 1 and 2.
+    Default value is 5.}
+  ImagingPNGPreFilter          = 25;
+  { Sets ZLib compression level used when saving PNG images.
+    Allowed values are in range 0 (no compresstion) to 9 (best compression).
+    Default value is 5.}
+  ImagingPNGCompressLevel      = 26;
+  { Boolean option that specifies whether PNG images with more frames (APNG format)
+    are animated by Imaging (according to frame disposal/blend methods) or just
+    raw frames are loaded and sent to user (if you want to animate APNG yourself).
+    Default value is 1.}
+  ImagingPNGLoadAnimated       = 27;
+  { Sets ZLib compression strategy used when saving PNG files (see deflateInit2()
+    in ZLib for details). Allowed values are: 0 (default), 1 (filtered),
+    2 (huffman only). Default value is 0.}
+  ImagingPNGZLibStrategy       = 28;
+
+  { Specifies whether MNG animation frames are saved with lossy or lossless
+    compression. Lossless frames are saved as PNG images and lossy frames are
+    saved as JNG images. Allowed values are 0 (False) and 1 (True).
+    Default value is 0.}
+  ImagingMNGLossyCompression   = 32;
+  { Defines whether alpha channel of lossy compressed MNG frames
+    (when ImagingMNGLossyCompression is 1) is lossy compressed too.
+    Allowed values are 0 (False) and 1 (True). Default value is 0.}
+  ImagingMNGLossyAlpha         = 33;
+  { Sets precompression filter used when saving MNG frames as PNG images.
+    For details look at ImagingPNGPreFilter.}
+  ImagingMNGPreFilter          = 34;
+  { Sets ZLib compression level used when saving MNG frames as PNG images.
+    For details look at ImagingPNGCompressLevel.}
+  ImagingMNGCompressLevel      = 35;
+  { Specifies compression quality used when saving MNG frames as JNG images.
+    For details look at ImagingJpegQuality.}
+  ImagingMNGQuality            = 36;
+  { Specifies whether images are saved in progressive format when saving MNG
+    frames as JNG images. For details look at ImagingJpegProgressive.}
+  ImagingMNGProgressive        = 37;
+
+  { Specifies whether alpha channels of JNG images are lossy compressed.
+    Allowed values are 0 (False) and 1 (True). Default value is 0.}
+  ImagingJNGLossyAlpha         = 40;
+  { Sets precompression filter used when saving lossless alpha channels.
+    For details look at ImagingPNGPreFilter.}
+  ImagingJNGAlphaPreFilter     = 41;
+  { Sets ZLib compression level used when saving lossless alpha channels.
+    For details look at ImagingPNGCompressLevel.}
+  ImagingJNGAlphaCompressLevel = 42;
+  { Defines compression quality used when saving JNG images (and lossy alpha channels).
+    For details look at ImagingJpegQuality.}
+  ImagingJNGQuality            = 43;
+  { Specifies whether JNG images are saved in progressive format.
+    For details look at ImagingJpegProgressive.}
+  ImagingJNGProgressive        = 44;
+
+  { Specifies whether PGM files are stored in text or in binary format.
+    Allowed values are 0 (store as text - very! large files) and 1 (save binary).
+    Default value is 1.}
+  ImagingPGMSaveBinary         = 50;
+
+  { Specifies whether PPM files are stored in text or in binary format.
+    Allowed values are 0 (store as text - very! large files) and 1 (save binary).
+    Default value is 1.}
+  ImagingPPMSaveBinary         = 51;
+
+  { Boolean option that specifies whether GIF images with more frames
+    are animated by Imaging (according to frame disposal methods) or just
+    raw frames are loaded and sent to user (if you want to animate GIF yourself).
+    Default value is 1.
+    Raw frames are 256 color indexed images (ifIndex8), whereas
+    animated frames are always in 32bit ifA8R8G8B8 format (simplifies animating).}
+  ImagingGIFLoadAnimated       = 56;
+
+  { This option is used when reducing number of colors used in
+    image (mainly when converting from ARGB image to indexed
+    format). Mask is 'anded' (bitwise AND) with every pixel's
+    channel value when creating color histogram. If $FF is used
+    all 8bits of color channels are used which can result in very
+    slow proccessing of large images with many colors so you can
+    use lower masks to speed it up (FC, F8 and F0 are good
+    choices). Allowed values are in range <0, $FF> and default is
+    $FE.                                                          }
+  ImagingColorReductionMask   = 128;
+  { This option can be used to override image data format during image
+    loading. If set to format different from ifUnknown all loaded images
+    are automaticaly converted to this format. Useful when you have
+    many files in various formats but you want them all in one format for
+    further proccessing. Allowed values are in
+    range <Ord(Low(TImageFormat)), Ord(High(TImageFormat))> and
+    default value is ifUnknown.}
+  ImagingLoadOverrideFormat   = 129;
+  { This option can be used to override image data format during image
+    saving. If set to format different from ifUnknown all images
+    to be saved are automaticaly internaly converted to this format.
+    Note that image file formats support only a subset of Imaging data formats
+    so final saved file may in different format than this override.
+    Allowed values are in range <Ord(Low(TImageFormat)), Ord(High(TImageFormat))>
+    and default value is ifUnknown.}
+  ImagingSaveOverrideFormat   = 130;
+  { Specifies resampling filter used when generating mipmaps. It is used
+    in GenerateMipMaps low level function and Direct3D and OpenGL extensions.
+    Allowed values are in range
+    <Ord(Low(ImagingFormats.TSamplingFilter)), Ord(High(ImagingFormats.TSamplingFilter))>
+    and default value is 1 (linear filter).}
+  ImagingMipMapFilter         = 131;
+  { Specifies treshold value used when automatically converting images to
+    ifBinary format. For adaptive tresholding see ImagingBinary.pas unit.
+    Default value is 128 and allowed range is 0..255.}
+  ImagingBinaryTreshold       = 132;
+
+  { Returned by GetOption if given Option Id is invalid.}
+  InvalidOption = -$7FFFFFFF;
+
+  { Indices that can be used to access channel values in array parts
+    of structures like TColor32Rec. Note that this order can be
+    used only for ARGB images. For ABGR image you must swap Red and Blue.}
+  ChannelBlue  = 0;
+  ChannelGreen = 1;
+  ChannelRed   = 2;
+  ChannelAlpha = 3;
+
+type
+  { Enum defining image data format. In formats with more channels,
+    first channel after "if" is stored in the most significant bits and channel
+    before end is stored in the least significant.}
+  TImageFormat = (
+    ifUnknown        = 0,
+    ifDefault        = 1,
+    { Indexed formats using palette }
+    ifIndex8         = 10,
+    { Grayscale/Luminance formats }
+    ifGray8          = 40,
+    ifA8Gray8        = 41,
+    ifGray16         = 42,
+    ifGray32         = 43,
+    ifGray64         = 44,
+    ifA16Gray16      = 45,
+    { ARGB formats }
+    ifX5R1G1B1       = 80,
+    ifR3G3B2         = 81,
+    ifR5G6B5         = 82,
+    ifA1R5G5B5       = 83,
+    ifA4R4G4B4       = 84,
+    ifX1R5G5B5       = 85,
+    ifX4R4G4B4       = 86,
+    ifR8G8B8         = 87,
+    ifA8R8G8B8       = 88,
+    ifX8R8G8B8       = 89,
+    ifR16G16B16      = 90,
+    ifA16R16G16B16   = 91,
+    ifB16G16R16      = 92,
+    ifA16B16G16R16   = 93,
+    { Floating point formats }
+    ifR32F           = 160,
+    ifA32R32G32B32F  = 161,
+    ifA32B32G32R32F  = 162,
+    ifR16F           = 163,
+    ifA16R16G16B16F  = 164,
+    ifA16B16G16R16F  = 165,
+    ifR32G32B32F     = 166,
+    ifB32G32R32F     = 167,
+    { Special formats }
+    ifDXT1           = 200,
+    ifDXT3           = 201,
+    ifDXT5           = 202,
+    ifBTC            = 203,
+    ifATI1N          = 204,
+    ifATI2N          = 205,
+    ifBinary         = 206
+    { Passtrough formats }
+    {ifETC1           = 220,
+    ifETC2RGB        = 221,
+    ifETC2RGBA       = 222,
+    ifETC2PA         = 223,
+    ifDXBC6          = 224,
+    ifDXBC7          = 225}
+  );
+
+  { Color value for 32 bit images.}
+  TColor32 = LongWord;
+  PColor32 = ^TColor32;
+
+  { Color value for 64 bit images.}
+  TColor64 = type Int64;
+  PColor64 = ^TColor64;
+
+  { Color record for 24 bit images, which allows access to individual color
+    channels.}
+  TColor24Rec = packed record
+    case LongInt of
+      0: (B, G, R: Byte);
+      1: (Channels: array[0..2] of Byte);
+  end;
+  PColor24Rec = ^TColor24Rec;
+  TColor24RecArray = array[0..MaxInt div SizeOf(TColor24Rec) - 1] of TColor24Rec;
+  PColor24RecArray = ^TColor24RecArray;
+
+  { Color record for 32 bit images, which allows access to individual color
+    channels.}
+  TColor32Rec = packed record
+    case LongInt of
+      0: (Color: TColor32);
+      1: (B, G, R, A: Byte);
+      2: (Channels: array[0..3] of Byte);
+      3: (Color24Rec: TColor24Rec);
+  end;
+  PColor32Rec = ^TColor32Rec;
+  TColor32RecArray = array[0..MaxInt div SizeOf(TColor32Rec) - 1] of TColor32Rec;
+  PColor32RecArray = ^TColor32RecArray;
+
+  { Color record for 48 bit images, which allows access to individual color
+    channels.}
+  TColor48Rec = packed record
+    case LongInt of
+      0: (B, G, R: Word);
+      1: (Channels: array[0..2] of Word);
+  end;
+  PColor48Rec = ^TColor48Rec;
+  TColor48RecArray = array[0..MaxInt div SizeOf(TColor48Rec) - 1] of TColor48Rec;
+  PColor48RecArray = ^TColor48RecArray;
+
+  { Color record for 64 bit images, which allows access to individual color
+    channels.}
+  TColor64Rec = packed record
+    case LongInt of
+      0: (Color: TColor64);
+      1: (B, G, R, A: Word);
+      2: (Channels: array[0..3] of Word);
+      3: (Color48Rec: TColor48Rec);
+  end;
+  PColor64Rec = ^TColor64Rec;
+  TColor64RecArray = array[0..MaxInt div SizeOf(TColor64Rec) - 1] of TColor64Rec;
+  PColor64RecArray = ^TColor64RecArray;
+
+  { Color record for 96 bit floating point images, which allows access to
+    individual color channels.}
+  TColor96FPRec = packed record
+    case Integer of
+      0: (B, G, R: Single);
+      1: (Channels: array[0..2] of Single);
+  end;
+  PColor96FPRec = ^TColor96FPRec;
+  TColor96FPRecArray = array[0..MaxInt div SizeOf(TColor96FPRec) - 1] of TColor96FPRec;
+  PColor96FPRecArray = ^TColor96FPRecArray;
+
+  { Color record for 128 bit floating point images, which allows access to
+    individual color channels.}
+  TColorFPRec = packed record
+    case LongInt of
+      0: (B, G, R, A: Single);
+      1: (Channels: array[0..3] of Single);
+      2: (Color96Rec: TColor96FPRec);
+  end;
+  PColorFPRec = ^TColorFPRec;
+  TColorFPRecArray = array[0..MaxInt div SizeOf(TColorFPRec) - 1] of TColorFPRec;
+  PColorFPRecArray = ^TColorFPRecArray;
+
+  { 16 bit floating-point value. It has 1 sign bit, 5 exponent bits,
+    and 10 mantissa bits.}
+  THalfFloat = type Word;
+  PHalfFloat = ^THalfFloat;
+
+  { Color record for 64 bit floating point images, which allows access to
+    individual color channels.}
+  TColorHFRec = packed record
+    case LongInt of
+      0: (B, G, R, A: THalfFloat);
+      1: (Channels: array[0..3] of THalfFloat);
+  end;
+  PColorHFRec = ^TColorHFRec;
+  TColorHFRecArray = array[0..MaxInt div SizeOf(TColorHFRec) - 1] of TColorHFRec;
+  PColorHFRecArray = ^TColorHFRecArray;
+
+  { Palette for indexed mode images with 32 bit colors.}
+  TPalette32 = TColor32RecArray;
+  TPalette32Size256 = array[0..255] of TColor32Rec;
+  PPalette32 = ^TPalette32;
+
+  { Palette for indexd mode images with 24 bit colors.}
+  TPalette24 = TColor24RecArray;
+  TPalette24Size256 = array[0..255] of TColor24Rec;
+  PPalette24 = ^TPalette24;
+
+  { Record that stores single image data and information describing it.}
+  TImageData = packed record
+    Width: LongInt;       // Width of image in pixels
+    Height: LongInt;      // Height of image in pixels
+    Format: TImageFormat; // Data format of image
+    Size: LongInt;        // Size of image bits in Bytes
+    Bits: Pointer;        // Pointer to memory containing image bits
+    Palette: PPalette32;  // Image palette for indexed images
+    Tag: Pointer;         // User data
+  end;
+  PImageData = ^TImageData;
+
+  { Pixel format information used in conversions to/from 16 and 8 bit ARGB
+    image formats.}
+  TPixelFormatInfo = packed record
+    ABitCount, RBitCount, GBitCount, BBitCount: Byte;
+    ABitMask, RBitMask, GBitMask, BBitMask: LongWord;
+    AShift, RShift, GShift, BShift: Byte;
+    ARecDiv, RRecDiv, GRecDiv, BRecDiv: Byte;
+  end;
+  PPixelFormatInfo = ^TPixelFormatInfo;
+
+  PImageFormatInfo = ^TImageFormatInfo;
+
+  { Look at TImageFormatInfo.GetPixelsSize for details.}
+  TFormatGetPixelsSizeFunc = function(Format: TImageFormat; Width,
+    Height: LongInt): LongInt;
+  { Look at TImageFormatInfo.CheckDimensions for details.}
+  TFormatCheckDimensionsProc = procedure(Format: TImageFormat; var Width,
+    Height: LongInt);
+  { Function for getting pixel colors. Native pixel is read from Image and
+    then translated to 32 bit ARGB.}
+  TGetPixel32Func = function(Bits: Pointer; Info: PImageFormatInfo;
+    Palette: PPalette32): TColor32Rec;
+  { Function for getting pixel colors. Native pixel is read from Image and
+    then translated to FP ARGB.}
+  TGetPixelFPFunc = function(Bits: Pointer; Info: PImageFormatInfo;
+    Palette: PPalette32): TColorFPRec;
+  { Procedure for setting pixel colors. Input 32 bit ARGB color is translated to
+    native format and then written to Image.}
+  TSetPixel32Proc = procedure(Bits: Pointer; Info: PImageFormatInfo;
+    Palette: PPalette32;const Color: TColor32Rec);
+  { Procedure for setting pixel colors. Input FP ARGB color is translated to
+    native format and then written to Image.}
+  TSetPixelFPProc = procedure(Bits: Pointer; Info: PImageFormatInfo;
+    Palette: PPalette32; const Color: TColorFPRec);
+
+  { Additional information for each TImageFormat value.}
+  TImageFormatInfo = packed record
+    Format: TImageFormat;             // Format described by this record
+    Name: array[0..15] of Char;       // Symbolic name of format
+    BytesPerPixel: LongInt;           // Number of bytes per pixel (note: it is
+                                      // 0 for formats where BitsPerPixel < 8 (e.g. DXT).
+                                      // Use GetPixelsSize function to get size of
+                                      // image data.
+    ChannelCount: LongInt;            // Number of image channels (R, G, B, A, Gray)
+    PaletteEntries: LongInt;          // Number of palette entries
+    HasGrayChannel: Boolean;          // True if image has grayscale channel
+    HasAlphaChannel: Boolean;         // True if image has alpha channel
+    IsFloatingPoint: Boolean;         // True if image has floating point pixels
+    UsePixelFormat: Boolean;          // True if image uses pixel format
+    IsRBSwapped: Boolean;             // True if Red and Blue channels are swapped
+                                      // e.g. A16B16G16R16 has IsRBSwapped True
+    RBSwapFormat: TImageFormat;       // Indicates supported format with swapped
+                                      // Red and Blue channels, ifUnknown if such
+                                      // format does not exist
+    IsIndexed: Boolean;               // True if image uses palette
+    IsSpecial: Boolean;               // True if image is in special format
+    IsPasstrough: Boolean;            // True if image is in passtrough program (Imaging
+                                      // iself doesn't know how to decode and encode it -
+                                      // complex texture compressions etc.)
+    PixelFormat: PPixelFormatInfo;    // Pixel format structure
+    GetPixelsSize: TFormatGetPixelsSizeFunc; // Returns size in bytes of
+                                      // Width * Height pixels of image
+    CheckDimensions: TFormatCheckDimensionsProc; // some formats have limited
+                                      // values of Width and Height. This
+                                      // procedure checks and changes dimensions
+                                      // to be valid for given format.
+    GetPixel32: TGetPixel32Func;      // 32bit ARGB pixel get function
+    GetPixelFP: TGetPixelFPFunc;      // FP ARGB pixel get function
+    SetPixel32: TSetPixel32Proc;      // 32bit ARGB pixel set procedure
+    SetPixelFP: TSetPixelFPProc;      // FP ARGB pixel set procedure
+    SpecialNearestFormat: TImageFormat; // Regular image format used when
+                                      // compressing/decompressing special images
+                                      // as source/target
+  end;
+
+  { Handle to list of image data records.}
+  TImageDataList = Pointer;
+  PImageDataList = ^TImageDataList;
+
+  { Handle to input/output.}
+  TImagingHandle = Pointer;
+
+  { Filters used in functions that resize images or their portions.}
+  TResizeFilter = (
+    rfNearest  = 0,
+    rfBilinear = 1,
+    rfBicubic  = 2,
+    rfLanczos  = 3);
+
+  { Seek origin mode for IO function Seek.}
+  TSeekMode = (
+   smFromBeginning = 0,
+   smFromCurrent   = 1,
+   smFromEnd       = 2);
+
+  TOpenMode = (
+    omReadOnly  = 0, // Opens file for reading only
+    omCreate    = 1, // Creates new file (overwriting any existing) and opens it for writing
+    omReadWrite = 2  // Opens for reading and writing. Non existing file is created.
+  );
+
+  { IO functions used for reading and writing images from/to input/output.}
+  TOpenProc = function(Source: PChar; Mode: TOpenMode): TImagingHandle; cdecl;
+  TCloseProc = procedure(Handle: TImagingHandle); cdecl;
+  TEofProc = function(Handle: TImagingHandle): Boolean; cdecl;
+  TSeekProc = function(Handle: TImagingHandle; Offset: LongInt; Mode: TSeekMode): LongInt; cdecl;
+  TTellProc = function(Handle: TImagingHandle): LongInt; cdecl;
+  TReadProc = function(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt): LongInt; cdecl;
+  TWriteProc = function(Handle: TImagingHandle; Buffer: Pointer; Count: LongInt): LongInt; cdecl;
+
+{$IFNDEF FPC}
+type
+{$IF CompilerVersion <= 18.5}
+  PtrUInt = LongWord;
+{$ELSE}
+  PtrUInt = NativeUInt;
+{$IFEND}
+{$ENDIF}
+
+implementation
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - add lookup tables to pixel formats for fast conversions
+
+  -- 0.77.1 ---------------------------------------------------
+    - Added "Passtrough" image data formats.
+    - Added Tag to TImageData for storing user data.
+    - Added ImagingPNGZLibStrategy option.
+    - Changed IO functions. Merged open functions to one
+      and added third open mode R/W (for TIFF append etc.).
+    - Added new image data formats and related structures:
+      ifR32G32B32F, ifB32G32G32F.
+
+  -- 0.26.5 Changes/Bug Fixes ---------------------------------
+    - Added ifBinary image format and ImagingBinaryTreshold option.
+    - Lanczos filter added to TResizeFilter enum.
+
+  -- 0.24.3 Changes/Bug Fixes ---------------------------------
+    - Added ifATI1N and ifATI2N image data formats.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added ifBTC image format and SpecialNearestFormat field
+      to TImageFormatInfo.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Added option constants for PGM and PPM file formats.
+    - Added TPalette32Size256 and TPalette24Size256 types.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added ImagingVersionPatch constant so bug fix only releases
+      can be distinguished from ordinary major/minor releases
+    - renamed TPixelFormat to TPixelFormatInfo to avoid name collisions
+      with Graphics.TPixelFormat
+    - added new image data formats:  ifR16F, ifA16R16G16B16F,
+      ifA16B16G16R16F
+    - added pixel get/set function pointers to TImageFormatInfo
+    - added 16bit half float type and color record
+    - renamed TColorFRec to TColorFPRec (and related types too)
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+    - added option ImagingMipMapFilter which now controls resampling filter
+      used when generating mipmaps
+    - added TResizeFilter type
+    - added ChannelCount to TImageFormatInfo
+    - added new option constants for MNG and JNG images
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - added RBSwapFormat to TImageFormatInfo for faster conversions
+      between swapped formats (it just calls SwapChannels now if
+      RBSwapFormat is not ifUnknown)
+    - moved TImageFormatInfo and required types from Imaging unit
+      here, removed TImageFormatShortInfo
+    - added new options: ImagingLoadOverrideFormat, ImagingSaveOverrideFormat
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - new ImagingColorReductionMask option added
+    - new image format added: ifA16Gray16
+
+}
+
+end.
diff --git a/src/lib/vampimg/ImagingUtility.pas b/src/lib/vampimg/ImagingUtility.pas

new file mode 100644 (file)

index 0000000..c137e1d
--- /dev/null
+++ b/src/lib/vampimg/ImagingUtility.pas
@@ -0,0 +1,1691 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains utility functions and types for Imaging library.}
+unit ImagingUtility;
+
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, Types;
+
+const
+  STrue = 'True';
+  SFalse = 'False';
+
+type
+  TByteArray = array[0..MaxInt - 1] of Byte;
+  PByteArray = ^TByteArray;
+  TWordArray = array[0..MaxInt div 2 - 1] of Word;
+  PWordArray = ^TWordArray;
+  TLongIntArray = array[0..MaxInt div 4 - 1] of LongInt;
+  PLongIntArray = ^TLongIntArray;
+  TLongWordArray = array[0..MaxInt div 4 - 1] of LongWord;
+  PLongWordArray = ^TLongWordArray;
+  TInt64Array = array[0..MaxInt div 8 - 1] of Int64;
+  PInt64Array = ^TInt64Array;
+  TSingleArray = array[0..MaxInt div 4 - 1] of Single;
+  PSingleArray = ^TSingleArray;
+  TBooleanArray = array[0..MaxInt - 1] of Boolean;
+  PBooleanArray = ^TBooleanArray;
+
+  TDynByteArray = array of Byte;
+  TDynIntegerArray = array of Integer;
+  TDynBooleanArray = array of Boolean;
+  TDynStringArray = array of string;
+
+  TWordRec = packed record
+    case Integer of
+      0: (WordValue: Word);
+      1: (Low, High: Byte);
+  end;
+  PWordRec = ^TWordRec;
+  TWordRecArray = array[0..MaxInt div 2 - 1] of TWordRec;
+  PWordRecArray = ^TWordRecArray;
+
+  TLongWordRec = packed record
+    case Integer of
+      0: (LongWordValue: LongWord);
+      1: (Low, High: Word);
+      { Array variants - Index 0 means lowest significant byte (word, ...).}
+      2: (Words: array[0..1] of Word);
+      3: (Bytes: array[0..3] of Byte);
+  end;
+  PLongWordRec = ^TLongWordRec;
+  TLongWordRecArray = array[0..MaxInt div 4 - 1] of TLongWordRec;
+  PLongWordRecArray = ^TLongWordRecArray;
+
+  TInt64Rec = packed record
+    case Integer of
+      0: (Int64Value: Int64);
+      1: (Low, High: LongWord);
+      { Array variants - Index 0 means lowest significant byte (word, ...).}
+      2: (Words: array[0..3] of Word);
+      3: (Bytes: array[0..7] of Byte);
+  end;
+  PInt64Rec = ^TInt64Rec;
+  TInt64RecArray = array[0..MaxInt div 8 - 1] of TInt64Rec;
+  PInt64RecArray = ^TInt64RecArray;
+
+  TFloatHelper = record
+    Data: Int64;
+    case Integer of
+      0: (Data64: Int64);
+      1: (Data32: LongWord);
+  end;
+  PFloatHelper = ^TFloatHelper;
+
+  TFloatRect = record
+    Left, Top, Right, Bottom: Single;
+  end;
+
+  TChar2 = array[0..1] of AnsiChar;
+  TChar3 = array[0..2] of AnsiChar;
+  TChar4 = array[0..3] of AnsiChar;
+  TChar8 = array[0..7] of AnsiChar;
+  TChar16 = array[0..15] of AnsiChar;
+  TAnsiCharSet = set of AnsiChar;
+
+  ENotImplemented = class(Exception)
+  public
+    constructor Create;
+  end;
+
+  { Options for BuildFileList function:
+    flFullNames - file names in result will have full path names
+                (ExtractFileDir(Path) + FileName)
+    flRelNames  - file names in result will have names relative to
+                ExtractFileDir(Path) dir
+    flRecursive - adds files in subdirectories found in Path.}
+  TFileListOption = (flFullNames, flRelNames, flRecursive);
+  TFileListOptions = set of TFileListOption;
+
+
+{ Frees class instance and sets its reference to nil.}
+procedure FreeAndNil(var Obj);
+{ Frees pointer and sets it to nil.}
+procedure FreeMemNil(var P); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Replacement of standard System.FreeMem procedure which checks if P is nil
+  (this is only needed for Free Pascal, Delphi makes checks in its FreeMem).}
+procedure FreeMem(P: Pointer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns current exception object. Do not call outside exception handler.}
+function GetExceptObject: Exception; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns time value with microsecond resolution.}
+function GetTimeMicroseconds: Int64;
+{ Returns time value with milisecond resolution.}
+function GetTimeMilliseconds: Int64;
+
+{ Returns file extension (without "." dot)}
+function GetFileExt(const FileName: string): string;
+{ Returns file name of application's executable.}
+function GetAppExe: string;
+{ Returns directory where application's exceutable is located without
+  path delimiter at the end.}
+function GetAppDir: string;
+{ Works like SysUtils.ExtractFileName but supports '/' and '\' dir delimiters
+  at the same time (whereas ExtractFileName supports on default delimiter on current platform).}
+function GetFileName(const FileName: string): string;
+{ Works like SysUtils.ExtractFileDir but supports '/' and '\' dir delimiters
+  at the same time (whereas ExtractFileDir supports on default delimiter on current platform).}
+function GetFileDir(const FileName: string): string;
+{ Returns True if Subject matches given Mask with optional case sensitivity.
+  Mask can contain ? and * special characters: ? matches
+  one character, * matches zero or more characters.}
+function StrMaskMatch(const Subject, Mask: string; CaseSensitive: Boolean = False): Boolean;
+{ This function fills Files string list with names of files found
+  with FindFirst/FindNext functions (See details on Path/Atrr here).
+  - BuildFileList('c:\*.*', faAnyFile, List, [flRecursive]) returns
+    list of all files (only name.ext - no path) on C drive
+  - BuildFileList('d:\*.*', faDirectory, List, [flFullNames]) returns
+    list of all directories (d:\dirxxx) in root of D drive.}
+function BuildFileList(Path: string; Attr: LongInt; Files: TStrings;
+  Options: TFileListOptions = []): Boolean;
+{ Similar to RTL's Pos function but with optional Offset where search will start.
+  This function is in the RTL StrUtils unit but }
+function PosEx(const SubStr, S: string; Offset: LongInt = 1): LongInt;
+{ Same as PosEx but without case sensitivity.}
+function PosNoCase(const SubStr, S: string; Offset: LongInt = 1): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns a sub-string from S which is followed by
+  Sep separator and deletes the sub-string from S including the separator.}
+function StrToken(var S: string; Sep: Char): string;
+{ Same as StrToken but searches from the end of S string.}
+function StrTokenEnd(var S: string; Sep: Char): string;
+{ Fills instance of TStrings with tokens from string S where tokens are separated by
+  one of Seps characters.}
+procedure StrTokensToList(const S: string; Sep: Char; Tokens: TStrings);
+{ Returns string representation of integer number (with digit grouping).
+  Uses current locale.}
+function IntToStrFmt(const I: Int64): string; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns string representation of float number (with digit grouping).
+  Uses current locale.}
+function FloatToStrFmt(const F: Double; Precision: Integer = 2): string; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns format settings for parsing floats (dot as decimal separator).
+  Useful when fomatting/parsing floats etc.}
+function GetFormatSettingsForFloats: TFormatSettings;
+{ Returns True if S contains at least one of the substrings in SubStrs array. Case sensitive.}
+function ContainsAnySubStr(const S: string; const SubStrs: array of string): Boolean;
+{ Extracts substring starting at IdxStart ending at IdxEnd.
+  S[IdxEnd] is not included in the result.}
+function SubString(const S: string; IdxStart, IdxEnd: Integer): string; {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+{ Clamps integer value to range <Min, Max>}
+function ClampInt(Number: LongInt; Min, Max: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Clamps float value to range <Min, Max>}
+function ClampFloat(Number: Single; Min, Max: Single): Single; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Clamps integer value to Byte boundaries.}
+function ClampToByte(Value: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Clamps integer value to Word boundaries.}
+function ClampToWord(Value: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns True if Num is power of 2.}
+function IsPow2(Num: LongInt): Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns next power of 2 greater than or equal to Num
+  (if Num itself is power of 2 then it retuns Num).}
+function NextPow2(Num: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Raises 2 to the given integer power (in range [0, 30]).}
+function Pow2Int(Exponent: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Raises Base to any power.}
+function Power(const Base, Exponent: Single): Single;
+{ Returns log base 2 of integer X (max 2^30) or -1 if X is not power of 2.}
+function Log2Int(X: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns log base 2 of X.}
+function Log2(X: Single): Single;
+{ Returns log base 10 of X.}
+function Log10(X: Single): Single;
+{ Returns largest integer <= Val (for 5.9 returns 5).}
+function Floor(Value: Single): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns smallest integer >= Val (for 5.1 returns 6).}
+function Ceil(Value: Single): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns lesser of two integer numbers.}
+function Min(A, B: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns lesser of two float numbers.}
+function MinFloat(A, B: Single): Single; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns greater of two integer numbers.}
+function Max(A, B: LongInt): LongInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns greater of two float numbers.}
+function MaxFloat(A, B: Single): Single; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns result from multiplying Number by Numerator and then dividing by Denominator.
+  Denominator must be greater than 0.}
+function MulDiv(Number, Numerator, Denominator: Word): Word; {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+{ Switches Boolean value.}
+procedure Switch(var Value: Boolean); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition: Boolean; TruePart, FalsePart: LongInt): LongInt; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function IffUnsigned(Condition: Boolean; TruePart, FalsePart: LongWord): LongWord; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition, TruePart, FalsePart: Boolean): Boolean; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition: Boolean; const TruePart, FalsePart: string): string; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition: Boolean; TruePart, FalsePart: Char): Char; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition: Boolean; TruePart, FalsePart: Pointer): Pointer; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function Iff(Condition: Boolean; const TruePart, FalsePart: Int64): Int64; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ If Condition is True then TruePart is retured, otherwise
+  FalsePart is returned.}
+function IffFloat(Condition: Boolean; TruePart, FalsePart: Single): Single; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Swaps two Boolean values}
+procedure SwapValues(var A, B: Boolean); overload;
+{ Swaps two Byte values}
+procedure SwapValues(var A, B: Byte); overload;
+{ Swaps two Word values}
+procedure SwapValues(var A, B: Word); overload;
+{ Swaps two LongInt values}
+procedure SwapValues(var A, B: LongInt); overload;
+{ Swaps two Single values}
+procedure SwapValues(var A, B: Single); overload;
+{ Swaps two LongInt values if necessary to ensure that Min <= Max.}
+procedure SwapMin(var Min, Max: LongInt); {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ This function returns True if running on little endian machine.}
+function IsLittleEndian: Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Swaps byte order of Word value.}
+function SwapEndianWord(Value: Word): Word; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Swaps byte order of multiple Word values.}
+procedure SwapEndianWord(P: PWordArray; Count: LongInt); overload;
+{ Swaps byte order of LongWord value.}
+function SwapEndianLongWord(Value: LongWord): LongWord; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Swaps byte order of multiple LongWord values.}
+procedure SwapEndianLongWord(P: PLongWord; Count: LongInt); overload;
+
+{ Calculates CRC32 for the given data.}
+procedure CalcCrc32(var Crc: LongWord; Data: Pointer; Size: LongInt);
+{ Fills given memory with given Byte value. Size is size of buffer in bytes.}
+procedure FillMemoryByte(Data: Pointer; Size: LongInt; Value: Byte);
+{ Fills given memory with given Word value. Size is size of buffer in bytes.}
+procedure FillMemoryWord(Data: Pointer; Size: LongInt; Value: Word);
+{ Fills given memory with given LongWord value. Size is size of buffer in bytes.}
+procedure FillMemoryLongWord(Data: Pointer; Size: LongInt; Value: LongWord);
+{ Fills given memory zeroes.}
+{$EXTERNALSYM ZeroMemory} // Conflicts with WinAPI ZeroMemory in C++ Builder
+procedure ZeroMemory(Data: Pointer; Size: Integer); {$IFDEF USE_INLINE}inline;{$ENDIF}
+
+{ Returns how many mipmap levels can be created for image of given size.}
+function GetNumMipMapLevels(Width, Height: LongInt): LongInt;
+{ Returns total number of levels of volume texture with given depth and
+  mipmap count (this is not depth * mipmaps!).}
+function GetVolumeLevelCount(Depth, MipMaps: LongInt): LongInt;
+{ Returns rectangle (X, Y, X + Width, Y + Height).}
+function BoundsToRect(X, Y, Width, Height: LongInt): TRect; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns rectangle (R.Left, R.Top, R.Left + R.Right, R.Top + R.Bottom).}
+function BoundsToRect(const R: TRect): TRect; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Returns rectangle (R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top).}
+function RectToBounds(const R: TRect): TRect; overload; {$IFDEF USE_INLINE}inline;{$ENDIF}
+{ Clips given bounds to Clip rectangle.}
+procedure ClipRectBounds(var X, Y, Width, Height: LongInt; const Clip: TRect);
+{ Clips given source bounds and dest position. It is used by various CopyRect
+  functions that copy rect from one image to another. It handles clipping the same way
+  as Win32 BitBlt function. }
+procedure ClipCopyBounds(var SrcX, SrcY, Width, Height, DstX, DstY: LongInt;
+  SrcImageWidth, SrcImageHeight: LongInt; const DstClip: TRect);
+{ Clips given source bounds and dest bounds. It is used by various StretchRect
+  functions that stretch rectangle of pixels from one image to another.
+  It handles clipping the same way as Win32 StretchBlt function. }
+procedure ClipStretchBounds(var SrcX, SrcY, SrcWidth, SrcHeight, DstX, DstY,
+  DstWidth, DstHeight: LongInt; SrcImageWidth, SrcImageHeight: LongInt; const DstClip: TRect);
+{ Scales one rectangle to fit into another. Proportions are preserved so
+  it could be used for 'Stretch To Fit Window' image drawing for instance.}
+function ScaleRectToRect(const SourceRect, TargetRect: TRect): TRect;
+{ Scales given size to fit into max size while keeping the original ascpect ration.
+  Useful for calculating thumbnail dimensions etc.}
+function ScaleSizeToFit(const CurrentSize, MaxSize: TSize): TSize;
+{ Returns width of given rect. Part of RTL in newer Delphi.}
+function RectWidth(const Rect: TRect): Integer;
+{ Returns height of given rect. Part of RTL in newer Delphi.}
+function RectHeight(const Rect: TRect): Integer;
+{ Returns True if R1 fits into R2.}
+function RectInRect(const R1, R2: TRect): Boolean;
+{ Returns True if R1 and R2 intersects.}
+function RectIntersects(const R1, R2: TRect): Boolean;
+
+{ Converts pixel size in micrometers to corrensponding DPI.}
+function PixelSizeToDpi(SizeInMicroMeters: Single): Single;
+{ Converts DPI to corrensponding pixel size in micrometers.}
+function DpiToPixelSize(Dpi: Single): Single;
+
+function FloatRect(ALeft, ATop, ARight, ABottom: Single): TFloatRect;
+function FloatRectWidth(const R: TFloatRect): Single;
+function FloatRectHeight(const R: TFloatRect): Single;
+
+{ Formats given message for usage in Exception.Create(..). Use only
+  in except block - returned message contains message of last raised exception.}
+function FormatExceptMsg(const Msg: string; const Args: array of const): string;
+{ Outputs debug message - shows message dialog in Windows and writes to console
+  in Linux/Unix.}
+procedure DebugMsg(const Msg: string; const Args: array of const);
+
+implementation
+
+uses
+{$IF Defined(MSWINDOWS)}
+  Windows;
+{$ELSEIF Defined(FPC)}
+  Dos, BaseUnix, Unix;
+{$ELSEIF Defined(DELPHI)}
+  Posix.SysTime;
+{$IFEND}
+
+var
+  FloatFormatSettings: TFormatSettings;
+
+constructor ENotImplemented.Create;
+begin
+  inherited Create('Not implemented');
+end;
+
+procedure FreeAndNil(var Obj);
+var
+  Temp: TObject;
+begin
+  Temp := TObject(Obj);
+  Pointer(Obj) := nil;
+  Temp.Free;
+end;
+
+procedure FreeMemNil(var P);
+begin
+  FreeMem(Pointer(P));
+  Pointer(P) := nil;
+end;
+
+procedure FreeMem(P: Pointer);
+begin
+  if P <> nil then
+    System.FreeMem(P);
+end;
+
+function GetExceptObject: Exception;
+begin
+  Result := Exception(ExceptObject);
+end;
+
+{$IF Defined(MSWINDOWS)}
+var
+  PerfFrequency: Int64;
+  InvPerfFrequency: Single;
+
+function GetTimeMicroseconds: Int64;
+var
+  Time: Int64;
+begin
+  QueryPerformanceCounter(Time);
+  Result := Round(1000000 * InvPerfFrequency * Time);
+end;
+{$ELSEIF Defined(DELPHI)}
+function GetTimeMicroseconds: Int64;
+var
+  Time: TimeVal;
+begin
+  Posix.SysTime.GetTimeOfDay(Time, nil);
+  Result := Int64(Time.tv_sec) * 1000000 + Time.tv_usec;
+end;
+{$ELSEIF Defined(FPC)}
+function GetTimeMicroseconds: Int64;
+var
+  TimeVal: TTimeVal;
+begin
+  fpGetTimeOfDay(@TimeVal, nil);
+  Result := Int64(TimeVal.tv_sec) * 1000000 + TimeVal.tv_usec;
+end;
+{$IFEND}
+
+function GetTimeMilliseconds: Int64;
+begin
+  Result := GetTimeMicroseconds div 1000;
+end;
+
+function GetFileExt(const FileName: string): string;
+begin
+  Result := ExtractFileExt(FileName);
+  if Length(Result) > 1 then
+    Delete(Result, 1, 1);
+end;
+
+function GetAppExe: string;
+{$IF Defined(MSWINDOWS)}
+var
+  FileName: array[0..MAX_PATH] of Char;
+begin
+  SetString(Result, FileName,
+    Windows.GetModuleFileName(MainInstance, FileName, SizeOf(FileName)));
+{$ELSEIF Defined(DELPHI)} // Delphi non Win targets
+var
+  FileName: array[0..1024] of Char;
+begin
+  SetString(Result, FileName,
+    System.GetModuleFileName(MainInstance, FileName, SizeOf(FileName)));
+{$ELSE}
+begin
+  Result := ParamStr(0);
+{$IFEND}
+end;
+
+function GetAppDir: string;
+begin
+  Result := ExtractFileDir(GetAppExe);
+end;
+
+function GetFileName(const FileName: string): string;
+var
+  I: Integer;
+begin
+  I := LastDelimiter('\/' + DriveDelim, FileName);
+  Result := Copy(FileName, I + 1, MaxInt);
+end;
+
+function GetFileDir(const FileName: string): string;
+const
+  Delims = '\/' + DriveDelim;
+var
+  I: Integer;
+begin
+  I := LastDelimiter(Delims, Filename);
+  if (I > 1) and
+    ((FileName[I] = Delims[1]) or (FileName[I] = Delims[2])) and
+    (not IsDelimiter(Delims, FileName, I - 1)) then Dec(I);
+  Result := Copy(FileName, 1, I);
+end;
+
+function StrMaskMatch(const Subject, Mask: string; CaseSensitive: Boolean): Boolean;
+var
+  MaskLen, KeyLen : LongInt;
+
+  function CharMatch(A, B: Char): Boolean;
+  begin
+    if CaseSensitive then
+      Result := A = B
+    else
+      Result := AnsiUpperCase (A) = AnsiUpperCase (B);
+  end;
+
+  function MatchAt(MaskPos, KeyPos: LongInt): Boolean;
+  begin
+    while (MaskPos <= MaskLen) and (KeyPos <= KeyLen) do
+    begin
+      case Mask[MaskPos] of
+        '?' :
+          begin
+            Inc(MaskPos);
+            Inc(KeyPos);
+          end;
+        '*' :
+          begin
+            while (MaskPos <= MaskLen) and (Mask[MaskPos] = '*') do
+              Inc(MaskPos);
+            if MaskPos > MaskLen then
+            begin
+              Result := True;
+              Exit;
+            end;
+            repeat
+              if MatchAt(MaskPos, KeyPos) then
+              begin
+                Result := True;
+                Exit;
+              end;
+              Inc(KeyPos);
+            until KeyPos > KeyLen;
+            Result := False;
+            Exit;
+          end;
+        else
+          if not CharMatch(Mask[MaskPos], Subject[KeyPos]) then
+          begin
+            Result := False;
+            Exit;
+          end
+          else
+          begin
+            Inc(MaskPos);
+            Inc(KeyPos);
+          end;
+      end;
+    end;
+
+    while (MaskPos <= MaskLen) and (AnsiChar(Mask[MaskPos]) in ['?', '*']) do
+      Inc(MaskPos);
+    if (MaskPos <= MaskLen) or (KeyPos <= KeyLen) then
+    begin
+      Result := False;
+      Exit;
+    end;
+
+    Result := True;
+  end;
+
+begin
+  MaskLen := Length(Mask);
+  KeyLen := Length(Subject);
+  if MaskLen = 0 then
+  begin
+    Result := True;
+    Exit;
+  end;
+  Result := MatchAt(1, 1);
+end;
+
+function BuildFileList(Path: string; Attr: LongInt;
+  Files: TStrings; Options: TFileListOptions): Boolean;
+var
+  FileMask: string;
+  RootDir: string;
+  Folders: TStringList;
+  CurrentItem: LongInt;
+  Counter: LongInt;
+  LocAttr: LongInt;
+
+  procedure BuildFolderList;
+  var
+    FindInfo: TSearchRec;
+    Rslt: LongInt;
+  begin
+    Counter := Folders.Count - 1;
+    CurrentItem := 0;
+    while CurrentItem <= Counter do
+    begin
+      // Searching for subfolders
+      Rslt := SysUtils.FindFirst(Folders[CurrentItem] + '*', faDirectory, FindInfo);
+      try
+        while Rslt = 0 do
+        begin
+          if (FindInfo.Name <> '.') and (FindInfo.Name <> '..') and
+            (FindInfo.Attr and faDirectory = faDirectory) then
+            Folders.Add(Folders[CurrentItem] + FindInfo.Name + PathDelim);
+          Rslt := SysUtils.FindNext(FindInfo);
+        end;
+      finally
+        SysUtils.FindClose(FindInfo);
+      end;
+      Counter := Folders.Count - 1;
+      Inc(CurrentItem);
+    end;
+  end;
+
+  procedure FillFileList(CurrentCounter: LongInt);
+  var
+    FindInfo: TSearchRec;
+    Res: LongInt;
+    CurrentFolder: string;
+  begin
+    CurrentFolder := Folders[CurrentCounter];
+    Res := SysUtils.FindFirst(CurrentFolder + FileMask, LocAttr, FindInfo);
+    if flRelNames in Options then
+      CurrentFolder := ExtractRelativePath(RootDir, CurrentFolder);
+    try
+      while Res = 0 do
+      begin
+        if (FindInfo.Name <> '.') and (FindInfo.Name <> '..') then
+        begin
+          if (flFullNames in Options) or (flRelNames in Options) then
+            Files.Add(CurrentFolder + FindInfo.Name)
+          else
+            Files.Add(FindInfo.Name);
+        end;
+        Res := SysUtils.FindNext(FindInfo);
+      end;
+    finally
+      SysUtils.FindClose(FindInfo);
+    end;
+  end;
+
+begin
+  FileMask := ExtractFileName(Path);
+  RootDir := ExtractFilePath(Path);
+  Folders := TStringList.Create;
+  Folders.Add(RootDir);
+  Files.Clear;
+{$IFDEF DCC}
+  {$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}
+  if Attr = faAnyFile then
+    LocAttr := faSysFile or faHidden or faArchive or faReadOnly
+  else
+    LocAttr := Attr;
+{$IFDEF DCC}
+  {$WARN SYMBOL_PLATFORM ON}
+{$ENDIF}
+  // Here's the recursive search for nested folders
+  if flRecursive in Options then
+    BuildFolderList;
+  if Attr <> faDirectory then
+    for Counter := 0 to Folders.Count - 1 do
+      FillFileList(Counter)
+  else
+    Files.AddStrings(Folders);
+  Folders.Free;
+  Result := True;
+end;
+
+function PosEx(const SubStr, S: string; Offset: LongInt = 1): LongInt;
+var
+  I, X: LongInt;
+  Len, LenSubStr: LongInt;
+begin
+  I := Offset;
+  LenSubStr := Length(SubStr);
+  Len := Length(S) - LenSubStr + 1;
+  while I <= Len do
+  begin
+    if S[I] = SubStr[1] then
+    begin
+      X := 1;
+      while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
+        Inc(X);
+      if (X = LenSubStr) then
+      begin
+        Result := I;
+        Exit;
+      end;
+    end;
+    Inc(I);
+  end;
+  Result := 0;
+end;
+
+function PosNoCase(const SubStr, S: string; Offset: LongInt): LongInt;
+begin
+  Result := PosEx(AnsiLowerCase(SubStr), AnsiLowerCase(S), Offset);
+end;
+
+function StrToken(var S: string; Sep: Char): string;
+var
+  I: LongInt;
+begin
+  I := Pos(Sep, S);
+  if I <> 0 then
+  begin
+    Result := Copy(S, 1, I - 1);
+    Delete(S, 1, I);
+  end
+  else
+  begin
+    Result := S;
+    S := '';
+  end;
+end;
+
+function StrTokenEnd(var S: string; Sep: Char): string;
+var
+  I, J: LongInt;
+begin
+  J := 0;
+  I := Pos(Sep, S);
+  while I <> 0 do
+  begin
+    J := I;
+    I := PosEx(Sep, S, J + 1);
+  end;
+  if J <> 0 then
+  begin
+    Result := Copy(S, J + 1, MaxInt);
+    Delete(S, J, MaxInt);
+  end
+  else
+  begin
+    Result := S;
+    S := '';
+  end;
+end;
+
+procedure StrTokensToList(const S: string; Sep: Char; Tokens: TStrings);
+var
+  Token, Str: string;
+begin
+  Tokens.Clear;
+  Str := S;
+  while Str <> '' do
+  begin
+    Token := StrToken(Str, Sep);
+    Tokens.Add(Token);
+  end;
+end;
+
+function IntToStrFmt(const I: Int64): string;
+begin
+  Result := Format('%.0n', [I * 1.0]);
+end;
+
+function FloatToStrFmt(const F: Double; Precision: Integer): string;
+begin
+  Result := Format('%.' + IntToStr(Precision) + 'n', [F]);
+end;
+
+function GetFormatSettingsForFloats: TFormatSettings;
+begin
+  Result := FloatFormatSettings;
+end;
+
+function ContainsAnySubStr(const S: string; const SubStrs: array of string): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to High(SubStrs) do
+  begin
+    Result := Pos(SubStrs[I], S) > 0;
+    if Result then
+      Exit;
+  end;
+end;
+
+function SubString(const S: string; IdxStart, IdxEnd: Integer): string;
+begin
+  Result := Copy(S, IdxStart, IdxEnd - IdxStart);
+end;
+
+function ClampInt(Number: LongInt; Min, Max: LongInt): LongInt;
+begin
+  Result := Number;
+  if Result < Min then
+    Result := Min
+  else if Result > Max then
+    Result := Max;
+end;
+
+function ClampFloat(Number: Single; Min, Max: Single): Single;
+begin
+  Result := Number;
+  if Result < Min then
+    Result := Min
+  else if Result > Max then
+    Result := Max;
+end;
+
+function ClampToByte(Value: LongInt): LongInt;
+begin
+  Result := Value;
+  if Result > 255 then
+    Result := 255
+  else if Result < 0 then
+    Result := 0;
+end;
+
+function ClampToWord(Value: LongInt): LongInt;
+begin
+  Result := Value;
+  if Result > 65535 then
+    Result := 65535
+  else if Result < 0 then
+    Result := 0;
+end;
+
+function IsPow2(Num: LongInt): Boolean;
+begin
+  Result := (Num and -Num) = Num;
+end;
+
+function NextPow2(Num: LongInt): LongInt;
+begin
+  Result := Num and -Num;
+  while Result < Num do
+    Result := Result shl 1;
+end;
+
+function Pow2Int(Exponent: LongInt): LongInt;
+begin
+  Result := 1 shl Exponent;
+end;
+
+function Power(const Base, Exponent: Single): Single;
+begin
+  if Exponent = 0.0 then
+    Result := 1.0
+  else if (Base = 0.0) and (Exponent > 0.0) then
+    Result := 0.0
+  else
+    Result := Exp(Exponent * Ln(Base));
+end;
+
+function Log2Int(X: LongInt): LongInt;
+begin
+  case X of
+    1: Result := 0;
+    2: Result := 1;
+    4: Result := 2;
+    8: Result := 3;
+    16: Result := 4;
+    32: Result := 5;
+    64: Result := 6;
+    128: Result := 7;
+    256: Result := 8;
+    512: Result := 9;
+    1024: Result := 10;
+    2048: Result := 11;
+    4096: Result := 12;
+    8192: Result := 13;
+    16384: Result := 14;
+    32768: Result := 15;
+    65536: Result := 16;
+    131072: Result := 17;
+    262144: Result := 18;
+    524288: Result := 19;
+    1048576: Result := 20;
+    2097152: Result := 21;
+    4194304: Result := 22;
+    8388608: Result := 23;
+    16777216: Result := 24;
+    33554432: Result := 25;
+    67108864: Result := 26;
+    134217728: Result := 27;
+    268435456: Result := 28;
+    536870912: Result := 29;
+    1073741824: Result := 30;
+  else
+    Result := -1;
+  end;
+end;
+
+function Log2(X: Single): Single;
+{$IFDEF USE_ASM}
+asm
+  FLD1
+  FLD     X
+  FYL2X
+  FWAIT
+end;
+{$ELSE}
+const
+  Ln2: Single = 0.6931471;
+begin
+  Result := Ln(X) / Ln2;
+end;
+{$ENDIF}
+
+function Log10(X: Single): Single;
+{$IFDEF USE_ASM}
+asm
+  FLDLG2
+  FLD     X
+  FYL2X
+  FWAIT
+end;
+{$ELSE}
+const
+  Ln10: Single = 2.30258509299405;
+begin
+  Result := Ln(X) / Ln10;
+end;
+{$ENDIF}
+
+function Floor(Value: Single): LongInt;
+begin
+  Result := Trunc(Value);
+  if Frac(Value) < 0.0 then
+    Dec(Result);
+end;
+
+function Ceil(Value: Single): LongInt;
+begin
+  Result := Trunc(Value);
+  if Frac(Value) > 0.0 then
+    Inc(Result);
+end;
+
+procedure Switch(var Value: Boolean);
+begin
+  Value := not Value;
+end;
+
+function Iff(Condition: Boolean; TruePart, FalsePart: LongInt): LongInt;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function IffUnsigned(Condition: Boolean; TruePart, FalsePart: LongWord): LongWord;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function Iff(Condition, TruePart, FalsePart: Boolean): Boolean;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function Iff(Condition: Boolean; const TruePart, FalsePart: string): string;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function Iff(Condition: Boolean; TruePart, FalsePart: Char): Char;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function Iff(Condition: Boolean; TruePart, FalsePart: Pointer): Pointer;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function Iff(Condition: Boolean; const TruePart, FalsePart: Int64): Int64;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+function IffFloat(Condition: Boolean; TruePart, FalsePart: Single): Single;
+begin
+  if Condition then
+    Result := TruePart
+  else
+    Result := FalsePart;
+end;
+
+procedure SwapValues(var A, B: Boolean);
+var
+  Tmp: Boolean;
+begin
+  Tmp := A;
+  A := B;
+  B := Tmp;
+end;
+
+procedure SwapValues(var A, B: Byte);
+var
+  Tmp: Byte;
+begin
+  Tmp := A;
+  A := B;
+  B := Tmp;
+end;
+
+procedure SwapValues(var A, B: Word);
+var
+  Tmp: Word;
+begin
+  Tmp := A;
+  A := B;
+  B := Tmp;
+end;
+
+procedure SwapValues(var A, B: LongInt);
+var
+  Tmp: LongInt;
+begin
+  Tmp := A;
+  A := B;
+  B := Tmp;
+end;
+
+procedure SwapValues(var A, B: Single);
+var
+  Tmp: Single;
+begin
+  Tmp := A;
+  A := B;
+  B := Tmp;
+end;
+
+procedure SwapMin(var Min, Max: LongInt);
+var
+  Tmp: LongInt;
+begin
+  if Min > Max then
+  begin
+    Tmp := Min;
+    Min := Max;
+    Max := Tmp;
+  end;
+end;
+
+function Min(A, B: LongInt): LongInt;
+begin
+  if A < B then
+    Result := A
+  else
+    Result := B;
+end;
+
+function MinFloat(A, B: Single): Single;
+begin
+  if A < B then
+    Result := A
+  else
+    Result := B;
+end;
+
+function Max(A, B: LongInt): LongInt;
+begin
+  if A > B then
+    Result := A
+  else
+    Result := B;
+end;
+
+function MaxFloat(A, B: Single): Single;
+begin
+  if A > B then
+    Result := A
+  else
+    Result := B;
+end;
+
+function MulDiv(Number, Numerator, Denominator: Word): Word;
+{$IF Defined(USE_ASM) and (not Defined(USE_INLINE))}
+asm
+         MUL DX
+         DIV CX
+end;
+{$ELSE}
+begin
+  Result := Number * Numerator div Denominator;
+end;
+{$IFEND}
+
+function IsLittleEndian: Boolean;
+var
+  W: Word;
+begin
+  W := $00FF;
+  Result := PByte(@W)^ = $FF;
+end;
+
+function SwapEndianWord(Value: Word): Word;
+{$IF Defined(USE_ASM) and (not Defined(USE_INLINE))}
+asm
+  XCHG   AH, AL
+end;
+{$ELSE}
+begin
+  TWordRec(Result).Low := TWordRec(Value).High;
+  TWordRec(Result).High := TWordRec(Value).Low;
+end;
+{$IFEND}
+
+procedure SwapEndianWord(P: PWordArray; Count: LongInt);
+{$IFDEF USE_ASM}
+asm
+@Loop:
+  MOV    CX, [EAX]
+  XCHG   CH, CL
+  MOV    [EAX], CX
+  ADD    EAX, 2
+  DEC    EDX
+  JNZ    @Loop
+end;
+{$ELSE}
+var
+  I: LongInt;
+  Temp: Word;
+begin
+  for I := 0 to Count - 1 do
+  begin
+    Temp := P[I];
+    TWordRec(P[I]).Low := TWordRec(Temp).High;
+    TWordRec(P[I]).High := TWordRec(Temp).Low;
+  end;
+end;
+{$ENDIF}
+
+function SwapEndianLongWord(Value: LongWord): LongWord;
+{$IF Defined(USE_ASM) and (not Defined(USE_INLINE))}
+asm
+  BSWAP   EAX
+end;
+{$ELSE}
+begin
+  TLongWordRec(Result).Bytes[0] := TLongWordRec(Value).Bytes[3];
+  TLongWordRec(Result).Bytes[1] := TLongWordRec(Value).Bytes[2];
+  TLongWordRec(Result).Bytes[2] := TLongWordRec(Value).Bytes[1];
+  TLongWordRec(Result).Bytes[3] := TLongWordRec(Value).Bytes[0];
+end;
+{$IFEND}
+
+procedure SwapEndianLongWord(P: PLongWord; Count: LongInt);
+{$IFDEF USE_ASM}
+asm
+@Loop:
+  MOV    ECX, [EAX]
+  BSWAP  ECX
+  MOV    [EAX], ECX
+  ADD    EAX, 4
+  DEC    EDX
+  JNZ    @Loop
+end;
+{$ELSE}
+var
+  I: LongInt;
+  Temp: LongWord;
+begin
+  for I := 0 to Count - 1 do
+  begin
+    Temp := PLongWordArray(P)[I];
+    TLongWordRec(PLongWordArray(P)[I]).Bytes[0] := TLongWordRec(Temp).Bytes[3];
+    TLongWordRec(PLongWordArray(P)[I]).Bytes[1] := TLongWordRec(Temp).Bytes[2];
+    TLongWordRec(PLongWordArray(P)[I]).Bytes[2] := TLongWordRec(Temp).Bytes[1];
+    TLongWordRec(PLongWordArray(P)[I]).Bytes[3] := TLongWordRec(Temp).Bytes[0];
+  end;
+end;
+{$ENDIF}
+
+type
+  TCrcTable = array[Byte] of LongWord;
+var
+  CrcTable: TCrcTable;
+
+procedure InitCrcTable;
+const
+  Polynom = $EDB88320;
+var
+  I, J: LongInt;
+  C: LongWord;
+begin
+  for I := 0 to 255 do
+  begin
+    C := I;
+    for J := 0 to 7 do
+    begin
+      if (C and $01) <> 0 then
+        C := Polynom xor (C shr 1)
+      else
+        C := C shr 1;
+    end;
+    CrcTable[I] := C;
+  end;
+end;
+
+procedure CalcCrc32(var Crc: LongWord; Data: Pointer; Size: LongInt);
+var
+  I: LongInt;
+  B: PByte;
+begin
+  B := Data;
+  for I := 0 to Size - 1 do
+  begin
+    Crc := (Crc shr 8) xor CrcTable[B^ xor Byte(Crc)];
+    Inc(B);
+  end
+end;
+
+procedure FillMemoryByte(Data: Pointer; Size: LongInt; Value: Byte);
+{$IFDEF USE_ASM}
+asm
+  PUSH   EDI
+  MOV    EDI, EAX
+  MOV    EAX, ECX
+  MOV    AH, AL
+  MOV    CX, AX
+  SHL    EAX, 16
+  MOV    AX, CX
+  MOV    ECX, EDX
+  SAR    ECX, 2
+  JS     @Exit
+  REP    STOSD
+  MOV    ECX, EDX
+  AND    ECX, 3
+  REP    STOSB
+  POP    EDI
+@Exit:
+end;
+{$ELSE}
+begin
+  FillChar(Data^, Size, Value);
+end;
+{$ENDIF}
+
+procedure FillMemoryWord(Data: Pointer; Size: LongInt; Value: Word);
+{$IFDEF USE_ASM}
+asm
+  PUSH   EDI
+  PUSH   EBX
+  MOV    EBX, EDX
+  MOV    EDI, EAX
+  MOV    EAX, ECX
+  MOV    CX, AX
+  SHL    EAX, 16
+  MOV    AX, CX
+  MOV    ECX, EDX
+  SHR    ECX, 2
+  JZ     @Word
+  REP    STOSD
+@Word:
+  MOV    ECX, EBX
+  AND    ECX, 2
+  JZ     @Byte
+  MOV    [EDI], AX
+  ADD    EDI, 2
+@Byte:
+  MOV    ECX, EBX
+  AND    ECX, 1
+  JZ     @Exit
+  MOV    [EDI], AL
+@Exit:
+  POP    EBX
+  POP    EDI
+end;
+{$ELSE}
+var
+  I, V: LongWord;
+begin
+  V := Value * $10000 + Value;
+  for I := 0 to Size div 4 - 1 do
+    PLongWordArray(Data)[I] := V;
+  case Size mod 4 of
+    1: PByteArray(Data)[Size - 1] := Lo(Value);
+    2: PWordArray(Data)[Size div 2] := Value;
+    3:
+      begin
+        PWordArray(Data)[Size  div 2 - 1] := Value;
+        PByteArray(Data)[Size - 1] := Lo(Value);
+      end;
+  end;
+end;
+{$ENDIF}
+
+procedure FillMemoryLongWord(Data: Pointer; Size: LongInt; Value: LongWord);
+{$IFDEF USE_ASM}
+asm
+  PUSH   EDI
+  PUSH   EBX
+  MOV    EBX, EDX
+  MOV    EDI, EAX
+  MOV    EAX, ECX
+  MOV    ECX, EDX
+  SHR    ECX, 2
+  JZ     @Word
+  REP    STOSD
+@Word:
+  MOV    ECX, EBX
+  AND    ECX, 2
+  JZ     @Byte
+  MOV    [EDI], AX
+  ADD    EDI, 2
+@Byte:
+  MOV    ECX, EBX
+  AND    ECX, 1
+  JZ     @Exit
+  MOV    [EDI], AL
+@Exit:
+  POP    EBX
+  POP    EDI
+end;
+{$ELSE}
+var
+  I: LongInt;
+begin
+  for I := 0 to Size div 4 - 1 do
+    PLongWordArray(Data)[I] := Value;
+  case Size mod 4 of
+    1: PByteArray(Data)[Size - 1] := TLongWordRec(Value).Bytes[0];
+    2: PWordArray(Data)[Size div 2] := TLongWordRec(Value).Words[0];
+    3:
+      begin
+        PWordArray(Data)[Size div 2 - 1] := TLongWordRec(Value).Words[0];
+        PByteArray(Data)[Size - 1] := TLongWordRec(Value).Bytes[0];
+      end;
+  end;
+end;
+{$ENDIF}
+
+procedure ZeroMemory(Data: Pointer; Size: Integer);
+begin
+  FillMemoryByte(Data, Size, 0);
+end;
+
+function GetNumMipMapLevels(Width, Height: LongInt): LongInt;
+begin
+  Result := 0;
+  if (Width > 0) and (Height > 0) then
+  begin
+    Result := 1;
+    while (Width <> 1) or (Height <> 1) do
+    begin
+      Width := Width div 2;
+      Height := Height div 2;
+      if Width < 1 then Width := 1;
+      if Height < 1 then Height := 1;
+      Inc(Result);
+    end;
+  end;
+end;
+
+function GetVolumeLevelCount(Depth, MipMaps: LongInt): LongInt;
+var
+  I: LongInt;
+begin
+  Result := Depth;
+  for I := 1 to MipMaps - 1 do
+    Inc(Result, ClampInt(Depth shr I, 1, Depth));
+end;
+
+function BoundsToRect(X, Y, Width, Height: LongInt): TRect;
+begin
+  Result.Left := X;
+  Result.Top := Y;
+  Result.Right := X + Width;
+  Result.Bottom := Y + Height;
+end;
+
+function BoundsToRect(const R: TRect): TRect;
+begin
+  Result.Left := R.Left;
+  Result.Top := R.Top;
+  Result.Right := R.Left + R.Right;
+  Result.Bottom := R.Top + R.Bottom;
+end;
+
+function RectToBounds(const R: TRect): TRect;
+begin
+  Result.Left := R.Left;
+  Result.Top := R.Top;
+  Result.Right := R.Right - R.Left;
+  Result.Bottom := R.Bottom - R.Top;
+end;
+
+procedure ClipRectBounds(var X, Y, Width, Height: LongInt; const Clip: TRect);
+
+  procedure ClipDim(var AStart, ALength: LongInt; ClipMin, ClipMax: LongInt);
+  begin
+    if AStart < ClipMin then
+    begin
+      ALength := ALength - (ClipMin - AStart);
+      AStart := ClipMin;
+    end;
+    if AStart + ALength > ClipMax then ALength := Max(0, ClipMax - AStart);
+  end;
+
+begin
+  ClipDim(X, Width, Clip.Left, Clip.Right);
+  ClipDim(Y, Height, Clip.Top, Clip.Bottom);
+end;
+
+procedure ClipCopyBounds(var SrcX, SrcY, Width, Height, DstX, DstY: LongInt; SrcImageWidth, SrcImageHeight: LongInt; const DstClip: TRect);
+
+  procedure ClipDim(var SrcPos, DstPos, Size: LongInt; SrcClipMax,
+    DstClipMin, DstClipMax: LongInt);
+  var
+    OldDstPos: LongInt;
+    Diff: LongInt;
+  begin
+    OldDstPos := Iff(DstPos < 0, DstPos, 0);
+    if DstPos < DstClipMin then
+    begin
+      Diff := DstClipMin - DstPos;
+      Size := Size - Diff;
+      SrcPos := SrcPos + Diff;
+      DstPos := DstClipMin;
+    end;
+    if SrcPos < 0 then
+    begin
+      Size := Size + SrcPos - OldDstPos;
+      DstPos := DstPos - SrcPos + OldDstPos;
+      SrcPos := 0;
+    end;
+    if SrcPos + Size > SrcClipMax then Size := SrcClipMax - SrcPos;
+    if DstPos + Size > DstClipMax then Size := DstClipMax - DstPos;
+  end;
+
+begin
+  ClipDim(SrcX, DstX, Width, SrcImageWidth, DstClip.Left, DstClip.Right);
+  ClipDim(SrcY, DstY, Height, SrcImageHeight, DstClip.Top, DstClip.Bottom);
+end;
+
+procedure ClipStretchBounds(var SrcX, SrcY, SrcWidth, SrcHeight, DstX, DstY,
+  DstWidth, DstHeight: LongInt; SrcImageWidth, SrcImageHeight: LongInt; const DstClip: TRect);
+
+  procedure ClipDim(var SrcPos, DstPos, SrcSize, DstSize: LongInt; SrcClipMax,
+    DstClipMin, DstClipMax: LongInt);
+  var
+    OldSize: LongInt;
+    Diff: LongInt;
+    Scale: Single;
+  begin
+    Scale := DstSize / SrcSize;
+    if DstPos < DstClipMin then
+    begin
+      Diff := DstClipMin - DstPos;
+      DstSize := DstSize - Diff;
+      SrcPos := SrcPos + Round(Diff / Scale);
+      SrcSize := SrcSize - Round(Diff / Scale);
+      DstPos := DstClipMin;
+    end;
+    if SrcPos < 0 then
+    begin
+      SrcSize := SrcSize + SrcPos;
+      DstPos := DstPos - Round(SrcPos * Scale);
+      DstSize := DstSize + Round(SrcPos * Scale);
+      SrcPos := 0;
+    end;
+    if SrcPos + SrcSize > SrcClipMax then
+    begin
+      OldSize := SrcSize;
+      SrcSize := SrcClipMax - SrcPos;
+      DstSize := Round(DstSize * (SrcSize / OldSize));
+    end;
+    if DstPos + DstSize > DstClipMax then
+    begin
+      OldSize := DstSize;
+      DstSize := DstClipMax - DstPos;
+      SrcSize := Round(SrcSize * (DstSize / OldSize));
+    end;
+  end;
+
+begin
+  ClipDim(SrcX, DstX, SrcWidth, DstWidth, SrcImageWidth, DstClip.Left, DstClip.Right);
+  ClipDim(SrcY, DstY, SrcHeight, DstHeight, SrcImageHeight, DstClip.Top, DstClip.Bottom);
+end;
+
+function ScaleRectToRect(const SourceRect, TargetRect: TRect): TRect;
+var
+  SourceWidth: LongInt;
+  SourceHeight: LongInt;
+  TargetWidth: LongInt;
+  TargetHeight: LongInt;
+  ScaledWidth: LongInt;
+  ScaledHeight: LongInt;
+begin
+  SourceWidth := SourceRect.Right - SourceRect.Left;
+  SourceHeight := SourceRect.Bottom - SourceRect.Top;
+  TargetWidth := TargetRect.Right - TargetRect.Left;
+  TargetHeight := TargetRect.Bottom - TargetRect.Top;
+
+  if SourceWidth * TargetHeight < SourceHeight * TargetWidth then
+  begin
+    ScaledWidth := (SourceWidth * TargetHeight) div SourceHeight;
+    Result := BoundsToRect(TargetRect.Left + ((TargetWidth - ScaledWidth) div 2),
+      TargetRect.Top, ScaledWidth, TargetHeight);
+  end
+  else
+  begin
+    ScaledHeight := (SourceHeight * TargetWidth) div SourceWidth;
+    Result := BoundsToRect(TargetRect.Left, TargetRect.Top + ((TargetHeight - ScaledHeight) div 2),
+      TargetWidth, ScaledHeight);
+  end;
+end;
+
+function ScaleSizeToFit(const CurrentSize, MaxSize: Types.TSize): Types.TSize;
+var
+  SR, TR, ScaledRect: TRect;
+begin
+  SR := Types.Rect(0, 0, CurrentSize.CX, CurrentSize.CY);
+  TR := Types.Rect(0, 0, MaxSize.CX, MaxSize.CY);
+  ScaledRect := ScaleRectToRect(SR, TR);
+  Result.CX := ScaledRect.Right - ScaledRect.Left;
+  Result.CY := ScaledRect.Bottom - ScaledRect.Top;
+end;
+
+function RectWidth(const Rect: TRect): Integer;
+begin
+  Result := Rect.Right - Rect.Left;
+end;
+
+function RectHeight(const Rect: TRect): Integer;
+begin
+  Result := Rect.Bottom - Rect.Top;
+end;
+
+function RectInRect(const R1, R2: TRect): Boolean;
+begin
+  Result:=
+    (R1.Left >= R2.Left) and
+    (R1.Top >= R2.Top) and
+    (R1.Right <= R2.Right) and
+    (R1.Bottom <= R2.Bottom);
+end;
+
+function RectIntersects(const R1, R2: TRect): Boolean;
+begin
+  Result :=
+    not (R1.Left > R2.Right) and
+    not (R1.Top > R2.Bottom) and
+    not (R1.Right < R2.Left) and
+    not (R1.Bottom < R2.Top);
+end;
+
+function PixelSizeToDpi(SizeInMicroMeters: Single): Single;
+begin
+  Result := 25400 / SizeInMicroMeters;
+end;
+
+function DpiToPixelSize(Dpi: Single): Single;
+begin
+  Result := 1e03 / (Dpi / 25.4);
+end;
+
+function FloatRect(ALeft, ATop, ARight, ABottom: Single): TFloatRect;
+begin
+  with Result do
+  begin
+    Left := ALeft;
+    Top := ATop;
+    Right := ARight;
+    Bottom := ABottom;
+  end;
+end;
+
+function FloatRectWidth(const R: TFloatRect): Single;
+begin
+  Result := R.Right - R.Left;
+end;
+
+function FloatRectHeight(const R: TFloatRect): Single;
+begin
+  Result := R.Bottom - R.Top;
+end;
+
+function FormatExceptMsg(const Msg: string; const Args: array of const): string;
+begin
+  Result := Format(Msg + SLineBreak + 'Message: ' + GetExceptObject.Message, Args);
+end;
+
+procedure DebugMsg(const Msg: string; const Args: array of const);
+var
+  FmtMsg: string;
+begin
+  FmtMsg := Format(Msg, Args);
+{$IFDEF MSWINDOWS}
+  if IsConsole then
+    WriteLn('DebugMsg: ' + FmtMsg)
+  else
+    MessageBox(GetActiveWindow, PChar(FmtMsg), 'DebugMsg', MB_OK);
+{$ENDIF}
+{$IFDEF UNIX}
+  WriteLn('DebugMsg: ' + FmtMsg);
+{$ENDIF}
+{$IFDEF MSDOS}
+  WriteLn('DebugMsg: ' + FmtMsg);
+{$ENDIF}
+end;
+
+initialization
+  InitCrcTable;
+{$IFDEF MSWINDOWS}
+  QueryPerformanceFrequency(PerfFrequency);
+  InvPerfFrequency := 1.0 / PerfFrequency;
+{$ENDIF}
+
+{$IF Defined(DELPHI)}
+  {$IF CompilerVersion >= 23}
+  FloatFormatSettings := TFormatSettings.Create('en-US');
+  {$ELSE}
+  GetLocaleFormatSettings(1033, FloatFormatSettings);
+  {$IFEND}
+{$ELSE FPC}
+  FloatFormatSettings := DefaultFormatSettings;
+  FloatFormatSettings.DecimalSeparator := '.';
+{$IFEND}
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+    - nothing now
+
+  -- 0.77.1 ----------------------------------------------------
+    - Added GetFileName, GetFileDir, RectWidth, RectHeight function.
+    - Added ScaleSizeToFit function.
+    - Added ZeroMemory and SwapValues for Booleans.
+    - Added Substring function.
+    - Renamed MatchFileNameMask to StrMaskMatch (it's for general use not
+      just filenames).
+    - Delphi XE2 new targets (Win64, OSX32) compatibility changes.
+    - Added GetFormatSettingsForFloats function.
+
+  -- 0.26.5 Changes/Bug Fixes -----------------------------------
+    - Added Log10 function.
+    - Added TFloatRect type and helper functions FloatRect, FloatRectWidth,
+      FloatRectHeight.
+    - Added string function ContainsAnySubStr.
+    - Added functions PixelSizeToDpi, DpiToPixelSize.
+
+  -- 0.26.1 Changes/Bug Fixes -----------------------------------
+    - Some formatting changes.
+    - Changed some string functions to work with localized strings.
+    - ASM version of PosEx had bugs, removed it.
+    - Added StrTokensToList function.
+
+  -- 0.25.0 Changes/Bug Fixes -----------------------------------
+    - Fixed error in ClipCopyBounds which was causing ... bad clipping!
+
+  -- 0.24.3 Changes/Bug Fixes -----------------------------------
+    - Added GetTimeMilliseconds function.
+    - Added IntToStrFmt and FloatToStrFmt helper functions.
+
+  -- 0.23 Changes/Bug Fixes -----------------------------------
+    - Added RectInRect and RectIntersects functions
+    - Added some string utils: StrToken, StrTokenEnd, PosEx, PosNoCase.
+    - Moved BuildFileList here from DemoUtils.
+
+  -- 0.21 Changes/Bug Fixes -----------------------------------
+    - Moved GetVolumeLevelCount from ImagingDds here.
+    - Renamed FillMemory to FillMemoryByte to avoid name collision in C++ Builder.
+    - Added Iff function for Char, Pointer, and Int64 types.
+    - Added IsLittleEndian function.
+    - Added array types for TWordRec, TLongWordRec, and TInt64Rec.
+    - Added MatchFileNameMask function.
+
+  -- 0.19 Changes/Bug Fixes -----------------------------------
+    - added ScaleRectToRect (thanks to Paul Michell)
+    - added BoundsToRect, ClipBounds, ClipCopyBounds, ClipStretchBounds functions
+    - added MulDiv function
+    - FreeAndNil is not inline anymore - caused AV in one program
+
+  -- 0.17 Changes/Bug Fixes -----------------------------------
+
+    - GetAppExe didn't return absolute path in FreeBSD, fixed
+    - added debug message output
+    - fixed Unix compatibility issues (thanks to Ales Katona).
+      Imaging now compiles in FreeBSD and maybe in other Unixes as well.
+
+  -- 0.15 Changes/Bug Fixes -----------------------------------
+    - added some new utility functions
+
+  -- 0.13 Changes/Bug Fixes -----------------------------------
+    - added many new utility functions
+    - minor change in SwapEndian to avoid range check error
+
+}
+end.
diff --git a/src/lib/vampimg/ImagingXpm.pas b/src/lib/vampimg/ImagingXpm.pas

new file mode 100644 (file)

index 0000000..2e10dc2
--- /dev/null
+++ b/src/lib/vampimg/ImagingXpm.pas
@@ -0,0 +1,580 @@
+{
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  The contents of this file are used with permission, subject to the Mozilla
+  Public License Version 1.1 (the "License"); you may not use this file except
+  in compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/MPL-1.1.html
+
+  Software distributed under the License is distributed on an "AS IS" basis,
+  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
+  the specific language governing rights and limitations under the License.
+
+  Alternatively, the contents of this file may be used under the terms of the
+  GNU Lesser General Public License (the  "LGPL License"), in which case the
+  provisions of the LGPL License are applicable instead of those above.
+  If you wish to allow use of your version of this file only under the terms
+  of the LGPL License and not to allow others to use your version of this file
+  under the MPL, indicate your decision by deleting  the provisions above and
+  replace  them with the notice and other provisions required by the LGPL
+  License.  If you do not delete the provisions above, a recipient may use
+  your version of this file under either the MPL or the LGPL License.
+
+  For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html
+}
+
+{ This unit contains image format loader for X Window Pixmap images. }
+unit ImagingXpm;
+{$I ImagingOptions.inc}
+
+interface
+
+uses
+  SysUtils, Classes, Contnrs, ImagingTypes, Imaging, ImagingUtility,
+  ImagingFormats, ImagingIO, ImagingCanvases;
+
+type
+  { Class for loading X Window Pixmap images known as XPM.
+    It is ASCII-text-based format, basicaly a fragment of C code
+    declaring static array. Loaded image is in ifA8R8G8B8 data format.
+    Loading as well as saving is supported now. }
+  TXPMFileFormat = class(TImageFileFormat)
+  protected
+    procedure Define; override;
+    function LoadData(Handle: TImagingHandle; var Images: TDynImageDataArray;
+      OnlyFirstLevel: Boolean): Boolean; override;
+    function SaveData(Handle: TImagingHandle; const Images: TDynImageDataArray;
+      Index: LongInt): Boolean; override;
+    procedure ConvertToSupported(var Image: TImageData;
+      const Info: TImageFormatInfo); override;
+  public
+    function TestFormat(Handle: TImagingHandle): Boolean; override;
+  end;
+
+implementation
+
+const
+  SXPMFormatName = 'X Window Pixmap';
+  SXPMMasks = '*.xpm';
+  XPMSupportedFormats: TImageFormats = [ifA8R8G8B8];
+
+const
+  SXPMId = '/* XPM */';
+  WhiteSpaces = [#9, #10, #13, #32];
+
+const
+  BucketCount = 257;
+
+type
+  TColorHolder = class
+  public
+    Color: TColor32;
+  end;
+
+  TBucketItem = record
+    Key: TColor32;
+    Data: string[8];
+  end;
+
+  TBucketItemArray = array of TBucketItem;
+
+  TBucket = record
+    Count: Integer;
+    ItemIdxStart: Integer;
+    Items: TBucketItemArray;
+  end;
+
+  TBucketArray = array of TBucket;
+
+  { Simple color-string hash table for faster than linear searches
+    during XPM saving. }
+  TSimpleBucketList = class
+  private
+    FBuckets: TBucketArray;
+    FItemCount: Integer;
+    FABucket, FAIndex: Integer;
+    function GetData(AKey: TColor32): string;
+    procedure SetData(AKey: TColor32; const AData: string);
+    function FindItem(AKey: TColor32; out ABucket, AIndex: Integer): Boolean;
+  public
+    constructor Create;
+    procedure Add(AKey: TColor32; const AData: string);
+    function Exists(AKey: TColor32): Boolean;
+    function EnumNext(out AData: string): TColor32;
+    property Data[AKey: TColor32]: string read GetData write SetData; default;
+    property ItemCount: Integer read FItemCount;
+  end;
+
+  { TSimpleBucketList }
+
+constructor TSimpleBucketList.Create;
+begin
+  SetLength(FBuckets, BucketCount);
+end;
+
+function TSimpleBucketList.GetData(AKey: TColor32): string;
+var
+  Bucket, Index: Integer;
+begin
+  Result := '';
+  if FindItem(AKey, Bucket, Index) then
+    Result := string(FBuckets[Bucket].Items[Index].Data);
+end;
+
+procedure TSimpleBucketList.SetData(AKey: TColor32; const AData: string);
+var
+  Bucket, Index: Integer;
+begin
+  if FindItem(AKey, Bucket, Index) then
+    FBuckets[Bucket].Items[Index].Data := ShortString(AData);
+end;
+
+function TSimpleBucketList.EnumNext(out AData: string): TColor32;
+begin
+  // Skip empty buckets
+  while FAIndex >= FBuckets[FABucket].Count do
+  begin
+    Inc(FABucket);
+    if FABucket >= Length(FBuckets) then
+      FABucket := 0;
+    FAIndex := 0;
+  end;
+
+  Result := FBuckets[FABucket].Items[FAIndex].Key;
+  AData := string(FBuckets[FABucket].Items[FAIndex].Data);
+  Inc(FAIndex);
+end;
+
+function TSimpleBucketList.FindItem(AKey: TColor32; out ABucket,
+  AIndex: Integer): Boolean;
+var
+  I: Integer;
+  Col: TColor32Rec;
+begin
+  Result := False;
+  Col := TColor32Rec(AKey);
+  ABucket := (Col.A + 11 * Col.B + 59 * Col.R + 119 * Col.G) mod BucketCount;
+  with FBuckets[ABucket] do
+  for I := 0 to Count - 1 do
+    if Items[I].Key = AKey then
+    begin
+      AIndex := I;
+      Result := True;
+      Break;
+    end;
+end;
+
+procedure TSimpleBucketList.Add(AKey: TColor32; const AData: string);
+var
+  Bucket, Index, Delta, Size: Integer;
+begin
+  if not FindItem(AKey, Bucket, Index) then
+  with FBuckets[Bucket] do
+  begin
+    Size := Length(Items);
+    if Count = Size then
+    begin
+      if Size > 64 then
+        Delta := Size div 4
+      else
+        Delta := 16;
+      SetLength(Items, Size + Delta);
+    end;
+
+    with Items[Count] do
+    begin
+      Key := AKey;
+      Data := ShortString(AData);
+    end;
+    Inc(Count);
+    Inc(FItemCount);
+  end;
+end;
+
+function TSimpleBucketList.Exists(AKey: TColor32): Boolean;
+var
+  Bucket, Index: Integer;
+begin
+  Result := FindItem(AKey, Bucket, Index);
+end;
+
+{
+  TXPMFileFormat implementation
+}
+
+procedure TXPMFileFormat.Define;
+begin
+  inherited;
+  FName := SXPMFormatName;
+  FFeatures := [ffLoad, ffSave];
+  FSupportedFormats := XPMSupportedFormats;
+
+  AddMasks(SXPMMasks);
+end;
+
+function TXPMFileFormat.LoadData(Handle: TImagingHandle;
+  var Images: TDynImageDataArray; OnlyFirstLevel: Boolean): Boolean;
+var
+  Contents, PalLookup: TStringList;
+  S: AnsiString;
+  I, J, NumColors, Cpp, Line: Integer;
+
+  procedure SkipWhiteSpace(var Line: string);
+  begin
+    while (Length(Line) > 0) and (AnsiChar(Line[1]) in WhiteSpaces) do
+      Delete(Line, 1, 1);
+  end;
+
+  function ReadString(var Line: string): string;
+  begin
+    Result := '';
+    SkipWhiteSpace(Line);
+    while (Length(Line) > 0) and not (AnsiChar(Line[1]) in WhiteSpaces) do
+    begin
+      SetLength(Result, Length(Result) + 1);
+      Result[Length(Result)] := Line[1];
+      Delete(Line, 1, 1);
+    end;
+  end;
+
+  function ReadInt(var Line: string): Integer;
+  begin
+    Result := StrToInt(ReadString(Line));
+  end;
+
+  function ParseHeader: Boolean;
+  var
+    S: string;
+  begin
+    S := Contents[0];
+    try
+      Images[0].Width := ReadInt(S);
+      Images[0].Height := ReadInt(S);
+      NumColors := ReadInt(S);
+      Cpp := ReadInt(S);
+      Line := 1;
+      Result := True;
+    except
+      Result := False;
+    end;
+  end;
+
+  function NamedToColor(const ColStr: string): TColor32;
+  var
+    S: string;
+  begin
+    S := LowerCase(ColStr);
+    if (S = 'transparent') or (S = 'none') then
+      Result := pcClear
+    else if S = 'black' then
+      Result := pcBlack
+    else if S = 'blue' then
+      Result := pcBlue
+    else if S = 'green' then
+      Result := pcGreen
+    else if S = 'cyan' then
+      Result := pcAqua
+    else if S = 'red' then
+      Result := pcRed
+    else if S = 'magenta' then
+      Result := pcFuchsia
+    else if S = 'yellow' then
+      Result := pcYellow
+    else if S = 'white' then
+      Result := pcWhite
+    else if S = 'gray' then
+      Result := pcLtGray
+    else if S = 'dkblue' then
+      Result := pcNavy
+    else if S = 'dkgreen' then
+      Result := pcGreen
+    else if S = 'dkcyan' then
+      Result := pcTeal
+    else if S = 'dkred' then
+      Result := pcMaroon
+    else if S = 'dkmagenta' then
+      Result := pcPurple
+    else if S = 'dkyellow' then
+      Result := pcOlive
+    else if S = 'maroon' then
+      Result := pcMaroon
+    else if S = 'olive' then
+      Result := pcOlive
+    else if S = 'navy' then
+      Result := pcNavy
+    else if S = 'purple' then
+      Result := pcPurple
+    else if S = 'teal' then
+      Result := pcTeal
+    else if S = 'silver' then
+      Result := pcSilver
+    else if S = 'lime' then
+      Result := pcLime
+    else if S = 'fuchsia' then
+      Result := pcFuchsia
+    else if S = 'aqua' then
+      Result := pcAqua
+    else
+      Result := pcClear;
+  end;
+
+  procedure ParsePalette;
+  var
+    I: Integer;
+    S, ColType, ColStr, Code: string;
+    Color: TColor32;
+    Holder: TColorHolder;
+  begin
+    for I := 0 to NumColors - 1 do
+    begin
+      Holder := TColorHolder.Create;
+      // Parse pixel code and color
+      S := Contents[Line + I];
+      Code := Copy(S, 1, Cpp);
+      Delete(S, 1, Cpp);
+      ColType := ReadString(S);
+      ColStr := ReadString(S);
+      // Convert color from hex number or named constant
+      if ColStr[1] = '#' then
+      begin
+        Delete(ColStr, 1, 1);
+        Color := LongWord(StrToInt('$' + Trim(ColStr))) or $FF000000;
+      end
+      else
+        Color := NamedToColor(ColStr);
+      // Store code and color in table for later lookup
+      Holder.Color := Color;
+      PalLookup.AddObject(Code, Holder);
+    end;
+    Inc(Line, NumColors);
+  end;
+
+  procedure ParsePixels;
+  var
+    X, Y, Idx: Integer;
+    S, Code: string;
+    Pix: PColor32;
+  begin
+    Pix := Images[0].Bits;
+    for Y := 0 to Images[0].Height - 1 do
+    begin
+      S := Contents[Line + Y];
+      for X := 0 to Images[0].Width - 1 do
+      begin
+        // Read code and look up color in the palette
+        Code := Copy(S, X * Cpp + 1, Cpp);
+        if PalLookup.Find(Code, Idx) then
+          Pix^ := TColorHolder(PalLookup.Objects[Idx]).Color
+        else
+          Pix^ := pcClear;
+        Inc(Pix);
+      end;
+    end;
+  end;
+
+begin
+  Result := False;
+  SetLength(Images, 1);
+  with GetIO, Images[0] do
+  begin
+    // Look up table for XPM palette entries
+    PalLookup := TStringList.Create;
+    PalLookup.Sorted := True;
+    PalLookup.CaseSensitive := True;
+    // Read whole file and assign it to string list
+    Contents := TStringList.Create;
+    SetLength(S, GetInputSize(GetIO, Handle));
+    Read(Handle, @S[1], Length(S));
+    Contents.Text := string(S);
+    // Remove quotes and other stuff
+    for I := Contents.Count - 1 downto 0 do
+    begin
+      J := Pos('"', Contents[I]);
+      if J > 0 then
+        Contents[I] := Copy(Contents[I], J + 1, LastDelimiter('"', Contents[I]) - J - 1)
+      else
+        Contents.Delete(I);
+    end;
+    // Parse header and create new image
+    if not ParseHeader then
+      Exit;
+    NewImage(Width, Height, ifA8R8G8B8, Images[0]);
+    // Read palette entries and assign colors to pixels
+    ParsePalette;
+    ParsePixels;
+
+    Contents.Free;
+    for I := 0 to PalLookup.Count - 1 do
+      PalLookup.Objects[I].Free;
+    PalLookup.Free;
+    Result := True;
+  end;
+end;
+
+function TXPMFileFormat.SaveData(Handle: TImagingHandle;
+  const Images: TDynImageDataArray; Index: LongInt): Boolean;
+const
+  ColorCharsCount = 92;
+  ColorChars = ' .XoO+@#$%&*=-;:>,<1234567890qwertyuipasdfghjklzxcvbnmMNBVCZASDFGHJKLPIUYTREWQ!~^/()_`''][{}|';
+var
+  X, Y: Integer;
+  ImageToSave: TImageData;
+  MustBeFreed: Boolean;
+  StrFile: TStringList;
+  ColTable: TSimpleBucketList;
+  Stream: TMemoryStream;
+  Line, Id: string;
+  CharsPerPixel: Integer;
+  Ptr: PColor32Rec;
+  ColRec: TColor32Rec;
+
+  procedure BuildColorTables(const Img: TImageData);
+  var
+    I: Integer;
+  begin
+    Ptr := Img.Bits;
+    for I := 0 to Img.Width * Img.Height - 1 do
+    begin
+      if not ColTable.Exists(Ptr.Color) then
+        ColTable.Add(Ptr.Color, '');
+      Inc(Ptr);
+    end;
+  end;
+
+  procedure MakeStrIdsForColors;
+  var
+    I, J, K: Integer;
+    Id, Data: string;
+  begin
+    SetLength(Id, CharsPerPixel);
+    for I := 0 to ColTable.ItemCount - 1 do
+    begin
+      ColRec.Color := ColTable.EnumNext(Data);
+      K := I;
+      for J := 0 to CharsPerPixel - 1 do
+      begin
+        Id[J + 1] := ColorChars[K mod ColorCharsCount + 1];
+        K := K div ColorCharsCount;
+      end;
+      ColTable.Data[ColRec.Color] := Id;
+    end;
+  end;
+
+begin
+  Result := False;
+
+  StrFile := TStringList.Create;
+  ColTable := TSimpleBucketList.Create;
+  Stream := TMemoryStream.Create;
+
+  if MakeCompatible(Images[Index], ImageToSave, MustBeFreed) then
+  try
+    // Put all unique colors of image to table
+    BuildColorTables(ImageToSave);
+    // Compute the character per pixel
+    CharsPerPixel := 1;
+    X := ColorCharsCount;
+    while ColTable.ItemCount > X do
+    begin
+      X := X * ColorCharsCount;
+      Inc(CharsPerPixel);
+    end;
+    // Assign char id to each color
+    MakeStrIdsForColors;
+
+    // Start writing XPM file
+    StrFile.Add(SXPMId);
+    StrFile.Add('static char *graphic[] = {');
+    StrFile.Add('/* width height num_colors chars_per_pixel */');
+    StrFile.Add(SysUtils.Format('"%d %d %d %d", ', [ImageToSave.Width,
+        ImageToSave.Height, ColTable.ItemCount, CharsPerPixel]));
+    StrFile.Add('/* colors */');
+
+    // Write 'colors' part of XPM file
+    for X := 0 to ColTable.ItemCount - 1 do
+    begin
+      ColRec.Color := ColTable.EnumNext(Id);
+      if ColRec.A >= 128 then
+        StrFile.Add(Format('"%s c #%.2x%.2x%.2x",', [Id, ColRec.R, ColRec.G, ColRec.B]))
+      else
+        StrFile.Add(Format('"%s c None",', [Id]));
+    end;
+
+    StrFile.Add('/* pixels */');
+
+    // Write pixels - for aech pixel of image find its char id
+    // and append it to line
+    Ptr := ImageToSave.Bits;
+    for Y := 0 to ImageToSave.Height - 1 do
+    begin
+      Line := '';
+      for X := 0 to ImageToSave.Width - 1 do
+      begin
+        Line := Line + ColTable.Data[Ptr.Color];
+        Inc(Ptr);
+      end;
+      Line := '"' + Line + '"';
+      if Y < ImageToSave.Height - 1 then
+        Line := Line + ',';
+      StrFile.Add(Line);
+    end;
+
+    StrFile.Add('};');
+
+    // Finally save strings to stream and write stream's data to output
+    // (we could directly write lines from list to output, but stream method
+    // takes care of D2009+ Unicode strings).
+    StrFile.SaveToStream(Stream);
+    GetIO.Write(Handle, Stream.Memory, Stream.Size);
+
+    Result := True;
+  finally
+    StrFile.Free;
+    ColTable.Free;
+    Stream.Free;
+    if MustBeFreed then
+      FreeImage(ImageToSave);
+  end;
+end;
+
+procedure TXPMFileFormat.ConvertToSupported(var Image: TImageData;
+  const Info: TImageFormatInfo);
+begin
+  ConvertImage(Image, ifA8R8G8B8)
+end;
+
+function TXPMFileFormat.TestFormat(Handle: TImagingHandle): Boolean;
+var
+  Id: array[0 .. 8] of AnsiChar;
+  ReadCount: Integer;
+begin
+  Result := False;
+  if Handle <> nil then
+  begin
+    ReadCount := GetIO.Read(Handle, @Id, SizeOf(Id));
+    GetIO.Seek(Handle, -ReadCount, smFromCurrent);
+    Result := (Id = SXPMId) and (ReadCount = SizeOf(Id));
+  end;
+end;
+
+initialization
+
+RegisterImageFileFormat(TXPMFileFormat);
+
+{
+  File Notes:
+
+  -- TODOS ----------------------------------------------------
+  - nothing now
+
+  -- 0.26.3 Changes/Bug Fixes -----------------------------------
+  - Added XPM saving.
+
+  -- 0.25.0 Changes/Bug Fixes -----------------------------------
+  - Added XPM loading.
+  - Unit created.
+}
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcapimin.pas b/src/lib/vampimg/JpegLib/imjcapimin.pas

new file mode 100644 (file)

index 0000000..d16c2ae
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcapimin.pas
@@ -0,0 +1,401 @@
+unit imjcapimin;
+{$N+}
+{  This file contains application interface code for the compression half
+  of the JPEG library.  These are the "minimum" API routines that may be
+  needed in either the normal full-compression case or the transcoding-only
+  case.
+
+  Most of the routines intended to be called directly by an application
+  are in this file or in jcapistd.c.  But also see jcparam.c for
+  parameter-setup helper routines, jcomapi.c for routines shared by
+  compression and decompression, and jctrans.c for the transcoding case. }
+
+{ jcapimin.c ;  Copyright (C) 1994-1998, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjcomapi,
+  imjmemmgr,
+  imjcmarker;
+
+{ Initialization of JPEG compression objects.
+  Nomssi: This is a macro in the original code.
+
+  jpeg_create_compress() and jpeg_create_decompress() are the exported
+  names that applications should call.  These expand to calls on
+  jpeg_CreateCompress and jpeg_CreateDecompress with additional information
+  passed for version mismatch checking.
+  NB: you must set up the error-manager BEFORE calling jpeg_create_xxx. }
+
+procedure jpeg_create_compress(cinfo : j_compress_ptr);
+
+
+{ Initialization of a JPEG compression object.
+  The error manager must already be set up (in case memory manager fails). }
+
+{GLOBAL}
+procedure jpeg_CreateCompress (cinfo : j_compress_ptr;
+                               version : int;
+                               structsize : size_t);
+
+{ Destruction of a JPEG compression object }
+
+{GLOBAL}
+procedure jpeg_destroy_compress (cinfo : j_compress_ptr);
+
+
+{ Abort processing of a JPEG compression operation,
+  but don't destroy the object itself. }
+
+{GLOBAL}
+procedure jpeg_abort_compress (cinfo : j_compress_ptr);
+
+
+{ Forcibly suppress or un-suppress all quantization and Huffman tables.
+  Marks all currently defined tables as already written (if suppress)
+  or not written (if !suppress).  This will control whether they get emitted
+  by a subsequent jpeg_start_compress call.
+
+  This routine is exported for use by applications that want to produce
+  abbreviated JPEG datastreams.  It logically belongs in jcparam.c, but
+  since it is called by jpeg_start_compress, we put it here --- otherwise
+  jcparam.o would be linked whether the application used it or not. }
+
+{GLOBAL}
+procedure jpeg_suppress_tables (cinfo : j_compress_ptr;
+                                suppress : boolean);
+
+
+{ Finish JPEG compression.
+
+  If a multipass operating mode was selected, this may do a great deal of
+  work including most of the actual output. }
+
+{GLOBAL}
+procedure jpeg_finish_compress (cinfo : j_compress_ptr);
+
+{ Write a special marker.
+  This is only recommended for writing COM or APPn markers.
+  Must be called after jpeg_start_compress() and before
+  first call to jpeg_write_scanlines() or jpeg_write_raw_data(). }
+
+{GLOBAL}
+procedure jpeg_write_marker (cinfo : j_compress_ptr;
+                             marker : int;
+                 dataptr : JOCTETptr;
+                             datalen : uInt);
+
+{GLOBAL}
+procedure jpeg_write_m_header (cinfo : j_compress_ptr;
+                               marker : int;
+                               datalen : uint);
+{GLOBAL}
+procedure jpeg_write_m_byte (cinfo : j_compress_ptr; val : int);
+
+{ Alternate compression function: just write an abbreviated table file.
+  Before calling this, all parameters and a data destination must be set up.
+
+  To produce a pair of files containing abbreviated tables and abbreviated
+  image data, one would proceed as follows:
+
+    initialize JPEG object
+    set JPEG parameters
+    set destination to table file
+    jpeg_write_tables(cinfo);
+    set destination to image file
+    jpeg_start_compress(cinfo, FALSE);
+    write data...
+    jpeg_finish_compress(cinfo);
+
+  jpeg_write_tables has the side effect of marking all tables written
+  (same as jpeg_suppress_tables(..., TRUE)).  Thus a subsequent start_compress
+  will not re-emit the tables unless it is passed write_all_tables=TRUE. }
+
+
+
+{GLOBAL}
+procedure jpeg_write_tables (cinfo : j_compress_ptr);
+
+implementation
+
+procedure jpeg_create_compress(cinfo : j_compress_ptr);
+begin
+  jpeg_CreateCompress(cinfo, JPEG_LIB_VERSION,
+                      size_t(sizeof(jpeg_compress_struct)));
+end;
+
+{ Initialization of a JPEG compression object.
+  The error manager must already be set up (in case memory manager fails). }
+
+{GLOBAL}
+procedure jpeg_CreateCompress (cinfo : j_compress_ptr;
+                               version : int;
+                               structsize : size_t);
+var
+  i : int;
+var
+  err : jpeg_error_mgr_ptr;
+  client_data : voidp;
+begin
+
+  { Guard against version mismatches between library and caller. }
+  cinfo^.mem := NIL;    { so jpeg_destroy knows mem mgr not called }
+  if (version <> JPEG_LIB_VERSION) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_BAD_LIB_VERSION, JPEG_LIB_VERSION, version);
+  if (structsize <> SIZEOF(jpeg_compress_struct)) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_BAD_STRUCT_SIZE,
+       int(SIZEOF(jpeg_compress_struct)), int(structsize));
+
+  { For debugging purposes, we zero the whole master structure.
+    But the application has already set the err pointer, and may have set
+    client_data, so we have to save and restore those fields.
+    Note: if application hasn't set client_data, tools like Purify may
+    complain here. }
+
+  err := cinfo^.err;
+  client_data := cinfo^.client_data; { ignore Purify complaint here }
+  MEMZERO(cinfo, SIZEOF(jpeg_compress_struct));
+  cinfo^.err := err;
+  cinfo^.is_decompressor := FALSE;
+
+  { Initialize a memory manager instance for this object }
+  jinit_memory_mgr(j_common_ptr(cinfo));
+
+  { Zero out pointers to permanent structures. }
+  cinfo^.progress := NIL;
+  cinfo^.dest := NIL;
+
+  cinfo^.comp_info := NIL;
+
+  for i := 0 to pred(NUM_QUANT_TBLS) do
+    cinfo^.quant_tbl_ptrs[i] := NIL;
+
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    cinfo^.dc_huff_tbl_ptrs[i] := NIL;
+    cinfo^.ac_huff_tbl_ptrs[i] := NIL;
+  end;
+
+  cinfo^.script_space := NIL;
+
+  cinfo^.input_gamma := 1.0;  { in case application forgets }
+
+  { OK, I'm ready }
+  cinfo^.global_state := CSTATE_START;
+end;
+
+
+{ Destruction of a JPEG compression object }
+
+{GLOBAL}
+procedure jpeg_destroy_compress (cinfo : j_compress_ptr);
+begin
+  jpeg_destroy(j_common_ptr(cinfo)); { use common routine }
+end;
+
+
+{ Abort processing of a JPEG compression operation,
+  but don't destroy the object itself. }
+
+{GLOBAL}
+procedure jpeg_abort_compress (cinfo : j_compress_ptr);
+begin
+  jpeg_abort(j_common_ptr(cinfo)); { use common routine }
+end;
+
+
+{ Forcibly suppress or un-suppress all quantization and Huffman tables.
+  Marks all currently defined tables as already written (if suppress)
+  or not written (if !suppress).  This will control whether they get emitted
+  by a subsequent jpeg_start_compress call.
+
+  This routine is exported for use by applications that want to produce
+  abbreviated JPEG datastreams.  It logically belongs in jcparam.c, but
+  since it is called by jpeg_start_compress, we put it here --- otherwise
+  jcparam.o would be linked whether the application used it or not. }
+
+{GLOBAL}
+procedure jpeg_suppress_tables (cinfo : j_compress_ptr;
+                                suppress : boolean);
+var
+  i : int;
+  qtbl : JQUANT_TBL_PTR;
+  htbl : JHUFF_TBL_PTR;
+begin
+  for i := 0 to pred(NUM_QUANT_TBLS) do
+  begin
+    qtbl := cinfo^.quant_tbl_ptrs[i];
+    if (qtbl <> NIL) then
+      qtbl^.sent_table := suppress;
+  end;
+
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    htbl := cinfo^.dc_huff_tbl_ptrs[i];
+    if (htbl <> NIL) then
+      htbl^.sent_table := suppress;
+    htbl := cinfo^.ac_huff_tbl_ptrs[i];
+    if (htbl <> NIL) then
+      htbl^.sent_table := suppress;
+  end;
+end;
+
+
+{ Finish JPEG compression.
+
+  If a multipass operating mode was selected, this may do a great deal of
+  work including most of the actual output. }
+
+{GLOBAL}
+procedure jpeg_finish_compress (cinfo : j_compress_ptr);
+var
+  iMCU_row : JDIMENSION;
+begin
+  if (cinfo^.global_state = CSTATE_SCANNING) or
+     (cinfo^.global_state = CSTATE_RAW_OK) then
+  begin
+    { Terminate first pass }
+    if (cinfo^.next_scanline < cinfo^.image_height) then
+      ERREXIT(j_common_ptr(cinfo), JERR_TOO_LITTLE_DATA);
+    cinfo^.master^.finish_pass (cinfo);
+  end
+  else
+    if (cinfo^.global_state <> CSTATE_WRCOEFS) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  { Perform any remaining passes }
+  while (not cinfo^.master^.is_last_pass) do
+  begin
+    cinfo^.master^.prepare_for_pass (cinfo);
+    for iMCU_row := 0 to pred(cinfo^.total_iMCU_rows) do
+    begin
+      if (cinfo^.progress <> NIL) then
+      begin
+        cinfo^.progress^.pass_counter := long (iMCU_row);
+        cinfo^.progress^.pass_limit := long (cinfo^.total_iMCU_rows);
+        cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+      end;
+      { We bypass the main controller and invoke coef controller directly;
+        all work is being done from the coefficient buffer. }
+
+      if (not cinfo^.coef^.compress_data (cinfo, JSAMPIMAGE(NIL))) then
+        ERREXIT(j_common_ptr(cinfo), JERR_CANT_SUSPEND);
+    end;
+    cinfo^.master^.finish_pass (cinfo);
+  end;
+  { Write EOI, do final cleanup }
+  cinfo^.marker^.write_file_trailer (cinfo);
+  cinfo^.dest^.term_destination (cinfo);
+  { We can use jpeg_abort to release memory and reset global_state }
+  jpeg_abort(j_common_ptr(cinfo));
+end;
+
+
+{ Write a special marker.
+  This is only recommended for writing COM or APPn markers.
+  Must be called after jpeg_start_compress() and before
+  first call to jpeg_write_scanlines() or jpeg_write_raw_data(). }
+
+{GLOBAL}
+procedure jpeg_write_marker (cinfo : j_compress_ptr;
+                             marker : int;
+                 dataptr : JOCTETptr;
+                             datalen : uInt);
+var
+  write_marker_byte : procedure(info : j_compress_ptr; val : int);
+begin
+  if (cinfo^.next_scanline <> 0) or
+     ((cinfo^.global_state <> CSTATE_SCANNING) and
+      (cinfo^.global_state <> CSTATE_RAW_OK) and
+      (cinfo^.global_state <> CSTATE_WRCOEFS)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  cinfo^.marker^.write_marker_header (cinfo, marker, datalen);
+  write_marker_byte := cinfo^.marker^.write_marker_byte; { copy for speed }
+  while (datalen <> 0) do
+  begin
+    Dec(datalen);
+    write_marker_byte (cinfo, dataptr^);
+    Inc(dataptr);
+  end;
+end;
+
+{ Same, but piecemeal. }
+
+{GLOBAL}
+procedure jpeg_write_m_header (cinfo : j_compress_ptr;
+                               marker : int;
+                               datalen : uint);
+begin
+  if (cinfo^.next_scanline <> 0) or
+     ((cinfo^.global_state <> CSTATE_SCANNING) and
+      (cinfo^.global_state <> CSTATE_RAW_OK) and
+      (cinfo^.global_state <> CSTATE_WRCOEFS)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  cinfo^.marker^.write_marker_header (cinfo, marker, datalen);
+end;
+
+{GLOBAL}
+procedure jpeg_write_m_byte (cinfo : j_compress_ptr; val : int);
+begin
+  cinfo^.marker^.write_marker_byte (cinfo, val);
+end;
+
+
+{ Alternate compression function: just write an abbreviated table file.
+  Before calling this, all parameters and a data destination must be set up.
+
+  To produce a pair of files containing abbreviated tables and abbreviated
+  image data, one would proceed as follows:
+
+    initialize JPEG object
+    set JPEG parameters
+    set destination to table file
+    jpeg_write_tables(cinfo);
+    set destination to image file
+    jpeg_start_compress(cinfo, FALSE);
+    write data...
+    jpeg_finish_compress(cinfo);
+
+  jpeg_write_tables has the side effect of marking all tables written
+  (same as jpeg_suppress_tables(..., TRUE)).  Thus a subsequent start_compress
+  will not re-emit the tables unless it is passed write_all_tables=TRUE. }
+
+{GLOBAL}
+procedure jpeg_write_tables (cinfo : j_compress_ptr);
+begin
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  { (Re)initialize error mgr and destination modules }
+  cinfo^.err^.reset_error_mgr (j_common_ptr(cinfo));
+  cinfo^.dest^.init_destination (cinfo);
+  { Initialize the marker writer ... bit of a crock to do it here. }
+  jinit_marker_writer(cinfo);
+  { Write them tables! }
+  cinfo^.marker^.write_tables_only (cinfo);
+  { And clean up. }
+  cinfo^.dest^.term_destination (cinfo);
+
+  { In library releases up through v6a, we called jpeg_abort() here to free
+    any working memory allocated by the destination manager and marker
+    writer.  Some applications had a problem with that: they allocated space
+    of their own from the library memory manager, and didn't want it to go
+    away during write_tables.  So now we do nothing.  This will cause a
+    memory leak if an app calls write_tables repeatedly without doing a full
+    compression cycle or otherwise resetting the JPEG object.  However, that
+    seems less bad than unexpectedly freeing memory in the normal case.
+    An app that prefers the old behavior can call jpeg_abort for itself after
+    each call to jpeg_write_tables(). }
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcapistd.pas b/src/lib/vampimg/JpegLib/imjcapistd.pas

new file mode 100644 (file)

index 0000000..bc487a7
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcapistd.pas
@@ -0,0 +1,222 @@
+unit imjcapistd;
+
+{ Original : jcapistd.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This file is part of the Independent JPEG Group's software.
+  For conditions of distribution and use, see the accompanying README file.
+
+  This file contains application interface code for the compression half
+  of the JPEG library.  These are the "standard" API routines that are
+  used in the normal full-compression case.  They are not used by a
+  transcoding-only application.  Note that if an application links in
+  jpeg_start_compress, it will end up linking in the entire compressor.
+  We thus must separate this file from jcapimin.c to avoid linking the
+  whole compression library into a transcoder. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjcapimin, imjcinit;
+
+
+
+{ Compression initialization.
+  Before calling this, all parameters and a data destination must be set up.
+
+  We require a write_all_tables parameter as a failsafe check when writing
+  multiple datastreams from the same compression object.  Since prior runs
+  will have left all the tables marked sent_table=TRUE, a subsequent run
+  would emit an abbreviated stream (no tables) by default.  This may be what
+  is wanted, but for safety's sake it should not be the default behavior:
+  programmers should have to make a deliberate choice to emit abbreviated
+  images.  Therefore the documentation and examples should encourage people
+  to pass write_all_tables=TRUE; then it will take active thought to do the
+  wrong thing. }
+
+{GLOBAL}
+procedure jpeg_start_compress (cinfo : j_compress_ptr;
+                               write_all_tables : boolean);
+
+
+{ Write some scanlines of data to the JPEG compressor.
+
+  The return value will be the number of lines actually written.
+  This should be less than the supplied num_lines only in case that
+  the data destination module has requested suspension of the compressor,
+  or if more than image_height scanlines are passed in.
+
+  Note: we warn about excess calls to jpeg_write_scanlines() since
+  this likely signals an application programmer error.  However,
+  excess scanlines passed in the last valid call are *silently* ignored,
+  so that the application need not adjust num_lines for end-of-image
+  when using a multiple-scanline buffer. }
+
+{GLOBAL}
+function jpeg_write_scanlines (cinfo : j_compress_ptr;
+                              scanlines : JSAMPARRAY;
+                  num_lines : JDIMENSION) : JDIMENSION;
+
+{ Alternate entry point to write raw data.
+  Processes exactly one iMCU row per call, unless suspended. }
+
+{GLOBAL}
+function jpeg_write_raw_data (cinfo : j_compress_ptr;
+                              data : JSAMPIMAGE;
+                  num_lines : JDIMENSION) : JDIMENSION;
+
+implementation
+
+{ Compression initialization.
+  Before calling this, all parameters and a data destination must be set up.
+
+  We require a write_all_tables parameter as a failsafe check when writing
+  multiple datastreams from the same compression object.  Since prior runs
+  will have left all the tables marked sent_table=TRUE, a subsequent run
+  would emit an abbreviated stream (no tables) by default.  This may be what
+  is wanted, but for safety's sake it should not be the default behavior:
+  programmers should have to make a deliberate choice to emit abbreviated
+  images.  Therefore the documentation and examples should encourage people
+  to pass write_all_tables=TRUE; then it will take active thought to do the
+  wrong thing. }
+
+{GLOBAL}
+procedure jpeg_start_compress (cinfo : j_compress_ptr;
+                               write_all_tables : boolean);
+begin
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  if (write_all_tables) then
+    jpeg_suppress_tables(cinfo, FALSE); { mark all tables to be written }
+
+  { (Re)initialize error mgr and destination modules }
+  cinfo^.err^.reset_error_mgr (j_common_ptr(cinfo));
+  cinfo^.dest^.init_destination (cinfo);
+  { Perform master selection of active modules }
+  jinit_compress_master(cinfo);
+  { Set up for the first pass }
+  cinfo^.master^.prepare_for_pass (cinfo);
+  { Ready for application to drive first pass through jpeg_write_scanlines
+    or jpeg_write_raw_data. }
+
+  cinfo^.next_scanline := 0;
+  if cinfo^.raw_data_in then
+    cinfo^.global_state := CSTATE_RAW_OK
+  else
+    cinfo^.global_state := CSTATE_SCANNING;
+end;
+
+
+{ Write some scanlines of data to the JPEG compressor.
+
+  The return value will be the number of lines actually written.
+  This should be less than the supplied num_lines only in case that
+  the data destination module has requested suspension of the compressor,
+  or if more than image_height scanlines are passed in.
+
+  Note: we warn about excess calls to jpeg_write_scanlines() since
+  this likely signals an application programmer error.  However,
+  excess scanlines passed in the last valid call are *silently* ignored,
+  so that the application need not adjust num_lines for end-of-image
+  when using a multiple-scanline buffer. }
+
+{GLOBAL}
+function jpeg_write_scanlines (cinfo : j_compress_ptr;
+                              scanlines : JSAMPARRAY;
+                  num_lines : JDIMENSION) : JDIMENSION;
+var
+  row_ctr, rows_left : JDIMENSION;
+begin
+  if (cinfo^.global_state <> CSTATE_SCANNING) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  if (cinfo^.next_scanline >= cinfo^.image_height) then
+    WARNMS(j_common_ptr(cinfo), JWRN_TOO_MUCH_DATA);
+
+  { Call progress monitor hook if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.pass_counter := long (cinfo^.next_scanline);
+    cinfo^.progress^.pass_limit := long (cinfo^.image_height);
+    cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+  end;
+
+  { Give master control module another chance if this is first call to
+    jpeg_write_scanlines.  This lets output of the frame/scan headers be
+    delayed so that application can write COM, etc, markers between
+    jpeg_start_compress and jpeg_write_scanlines. }
+  if (cinfo^.master^.call_pass_startup) then
+    cinfo^.master^.pass_startup (cinfo);
+
+  { Ignore any extra scanlines at bottom of image. }
+  rows_left := cinfo^.image_height - cinfo^.next_scanline;
+  if (num_lines > rows_left) then
+    num_lines := rows_left;
+
+  row_ctr := 0;
+  cinfo^.main^.process_data (cinfo, scanlines, {var}row_ctr, num_lines);
+  Inc(cinfo^.next_scanline, row_ctr);
+  jpeg_write_scanlines := row_ctr;
+end;
+
+
+{ Alternate entry point to write raw data.
+  Processes exactly one iMCU row per call, unless suspended. }
+
+{GLOBAL}
+function jpeg_write_raw_data (cinfo : j_compress_ptr;
+                              data : JSAMPIMAGE;
+                  num_lines : JDIMENSION) : JDIMENSION;
+var
+  lines_per_iMCU_row : JDIMENSION;
+begin
+  if (cinfo^.global_state <> CSTATE_RAW_OK) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  if (cinfo^.next_scanline >= cinfo^.image_height) then
+  begin
+    WARNMS(j_common_ptr(cinfo), JWRN_TOO_MUCH_DATA);
+    jpeg_write_raw_data := 0;
+    exit;
+  end;
+
+  { Call progress monitor hook if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.pass_counter := long(cinfo^.next_scanline);
+    cinfo^.progress^.pass_limit := long(cinfo^.image_height);
+    cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+  end;
+
+  { Give master control module another chance if this is first call to
+    jpeg_write_raw_data.  This lets output of the frame/scan headers be
+    delayed so that application can write COM, etc, markers between
+    jpeg_start_compress and jpeg_write_raw_data. }
+
+  if (cinfo^.master^.call_pass_startup) then
+    cinfo^.master^.pass_startup (cinfo);
+
+  { Verify that at least one iMCU row has been passed. }
+  lines_per_iMCU_row := cinfo^.max_v_samp_factor * DCTSIZE;
+  if (num_lines < lines_per_iMCU_row) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BUFFER_SIZE);
+
+  { Directly compress the row. }
+  if (not cinfo^.coef^.compress_data (cinfo, data)) then
+  begin
+    { If compressor did not consume the whole row, suspend processing. }
+    jpeg_write_raw_data := 0;
+    exit;
+  end;
+
+  { OK, we processed one iMCU row. }
+  Inc(cinfo^.next_scanline, lines_per_iMCU_row);
+  jpeg_write_raw_data := lines_per_iMCU_row;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjccoefct.pas b/src/lib/vampimg/JpegLib/imjccoefct.pas

new file mode 100644 (file)

index 0000000..7d6ee6f
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjccoefct.pas
@@ -0,0 +1,521 @@
+unit imjccoefct;
+
+{ This file contains the coefficient buffer controller for compression.
+  This controller is the top level of the JPEG compressor proper.
+  The coefficient buffer lies between forward-DCT and entropy encoding steps.}
+
+{ Original: jccoefct.c; Copyright (C) 1994-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjerror,
+  imjdeferr,
+  imjutils,
+  imjpeglib;
+
+{ We use a full-image coefficient buffer when doing Huffman optimization,
+  and also for writing multiple-scan JPEG files.  In all cases, the DCT
+  step is run during the first pass, and subsequent passes need only read
+  the buffered coefficients. }
+{$ifdef ENTROPY_OPT_SUPPORTED}
+  {$define FULL_COEF_BUFFER_SUPPORTED}
+{$else}
+  {$ifdef C_MULTISCAN_FILES_SUPPORTED}
+    {$define FULL_COEF_BUFFER_SUPPORTED}
+  {$endif}
+{$endif}
+
+{ Initialize coefficient buffer controller. }
+
+{GLOBAL}
+procedure jinit_c_coef_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+
+implementation
+
+{ Private buffer controller object }
+
+type
+  my_coef_ptr = ^my_coef_controller;
+  my_coef_controller = record
+    pub : jpeg_c_coef_controller; { public fields }
+
+    iMCU_row_num : JDIMENSION;  { iMCU row # within image }
+    mcu_ctr : JDIMENSION; { counts MCUs processed in current row }
+    MCU_vert_offset : int;  { counts MCU rows within iMCU row }
+    MCU_rows_per_iMCU_row : int;  { number of such rows needed }
+
+    { For single-pass compression, it's sufficient to buffer just one MCU
+      (although this may prove a bit slow in practice).  We allocate a
+      workspace of C_MAX_BLOCKS_IN_MCU coefficient blocks, and reuse it for each
+      MCU constructed and sent.  (On 80x86, the workspace is FAR even though
+      it's not really very big; this is to keep the module interfaces unchanged
+      when a large coefficient buffer is necessary.)
+      In multi-pass modes, this array points to the current MCU's blocks
+      within the virtual arrays. }
+
+    MCU_buffer : array[0..C_MAX_BLOCKS_IN_MCU-1] of JBLOCKROW;
+
+    { In multi-pass modes, we need a virtual block array for each component. }
+    whole_image : array[0..MAX_COMPONENTS-1] of jvirt_barray_ptr;
+  end;
+
+
+{ Forward declarations }
+{METHODDEF}
+function compress_data(cinfo : j_compress_ptr;
+                       input_buf : JSAMPIMAGE) : boolean; forward;
+{$ifdef FULL_COEF_BUFFER_SUPPORTED}
+{METHODDEF}
+function compress_first_pass(cinfo : j_compress_ptr;
+                             input_buf : JSAMPIMAGE) : boolean;  forward;
+{METHODDEF}
+function compress_output(cinfo : j_compress_ptr;
+                         input_buf : JSAMPIMAGE) : boolean;  forward;
+{$endif}
+
+
+{LOCAL}
+procedure start_iMCU_row (cinfo : j_compress_ptr);
+{ Reset within-iMCU-row counters for a new row }
+var
+  coef : my_coef_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+
+  { In an interleaved scan, an MCU row is the same as an iMCU row.
+    In a noninterleaved scan, an iMCU row has v_samp_factor MCU rows.
+    But at the bottom of the image, process only what's left. }
+  if (cinfo^.comps_in_scan > 1) then
+  begin
+    coef^.MCU_rows_per_iMCU_row := 1;
+  end
+  else
+  begin
+    if (coef^.iMCU_row_num < (cinfo^.total_iMCU_rows-1)) then
+      coef^.MCU_rows_per_iMCU_row := cinfo^.cur_comp_info[0]^.v_samp_factor
+    else
+      coef^.MCU_rows_per_iMCU_row := cinfo^.cur_comp_info[0]^.last_row_height;
+  end;
+
+  coef^.mcu_ctr := 0;
+  coef^.MCU_vert_offset := 0;
+end;
+
+
+{ Initialize for a processing pass. }
+
+{METHODDEF}
+procedure start_pass_coef (cinfo : j_compress_ptr;
+                           pass_mode : J_BUF_MODE);
+var
+  coef : my_coef_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+
+  coef^.iMCU_row_num := 0;
+  start_iMCU_row(cinfo);
+
+  case (pass_mode) of
+  JBUF_PASS_THRU:
+    begin
+      if (coef^.whole_image[0] <> NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      coef^.pub.compress_data := compress_data;
+    end;
+{$ifdef FULL_COEF_BUFFER_SUPPORTED}
+  JBUF_SAVE_AND_PASS:
+    begin
+      if (coef^.whole_image[0] = NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      coef^.pub.compress_data := compress_first_pass;
+    end;
+  JBUF_CRANK_DEST:
+    begin
+      if (coef^.whole_image[0] = NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      coef^.pub.compress_data := compress_output;
+    end;
+{$endif}
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+  end;
+end;
+
+
+{ Process some data in the single-pass case.
+  We process the equivalent of one fully interleaved MCU row ("iMCU" row)
+  per call, ie, v_samp_factor block rows for each component in the image.
+  Returns TRUE if the iMCU row is completed, FALSE if suspended.
+
+  NB: input_buf contains a plane for each component in image,
+  which we index according to the component's SOF position. }
+
+
+{METHODDEF}
+function compress_data (cinfo : j_compress_ptr;
+                        input_buf : JSAMPIMAGE) : boolean;
+var
+  coef : my_coef_ptr;
+  MCU_col_num : JDIMENSION; { index of current MCU within row }
+  last_MCU_col : JDIMENSION;
+  last_iMCU_row : JDIMENSION;
+  blkn, bi, ci, yindex, yoffset, blockcnt : int;
+  ypos, xpos : JDIMENSION;
+  compptr : jpeg_component_info_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  last_MCU_col := cinfo^.MCUs_per_row - 1;
+  last_iMCU_row := cinfo^.total_iMCU_rows - 1;
+
+  { Loop to write as much as one whole iMCU row }
+  for yoffset := coef^.MCU_vert_offset to pred(coef^.MCU_rows_per_iMCU_row) do
+  begin
+    for MCU_col_num := coef^.mcu_ctr to last_MCU_col do
+    begin
+      { Determine where data comes from in input_buf and do the DCT thing.
+        Each call on forward_DCT processes a horizontal row of DCT blocks
+        as wide as an MCU; we rely on having allocated the MCU_buffer[] blocks
+        sequentially.  Dummy blocks at the right or bottom edge are filled in
+        specially.  The data in them does not matter for image reconstruction,
+        so we fill them with values that will encode to the smallest amount of
+        data, viz: all zeroes in the AC entries, DC entries equal to previous
+        block's DC value.  (Thanks to Thomas Kinsman for this idea.) }
+
+      blkn := 0;
+      for ci := 0 to pred(cinfo^.comps_in_scan) do
+      begin
+  compptr := cinfo^.cur_comp_info[ci];
+        if (MCU_col_num < last_MCU_col)  then
+          blockcnt := compptr^.MCU_width
+        else
+          blockcnt := compptr^.last_col_width;
+  xpos := MCU_col_num * JDIMENSION(compptr^.MCU_sample_width);
+  ypos := yoffset * DCTSIZE;      { ypos = (yoffset+yindex) * DCTSIZE }
+  for yindex := 0 to pred(compptr^.MCU_height) do
+        begin
+    if (coef^.iMCU_row_num < last_iMCU_row) or
+       (yoffset+yindex < compptr^.last_row_height) then
+          begin
+      cinfo^.fdct^.forward_DCT (cinfo, compptr,
+              input_buf^[compptr^.component_index],
+              coef^.MCU_buffer[blkn],
+              ypos, xpos, JDIMENSION (blockcnt));
+
+      if (blockcnt < compptr^.MCU_width) then
+            begin
+        { Create some dummy blocks at the right edge of the image. }
+        jzero_far({FAR}pointer(coef^.MCU_buffer[blkn + blockcnt]),
+      (compptr^.MCU_width - blockcnt) * SIZEOF(JBLOCK));
+        for bi := blockcnt to pred(compptr^.MCU_width) do
+              begin
+    coef^.MCU_buffer[blkn+bi]^[0][0] := coef^.MCU_buffer[blkn+bi-1]^[0][0];
+        end;
+      end;
+    end
+          else
+          begin
+      { Create a row of dummy blocks at the bottom of the image. }
+      jzero_far({FAR}pointer(coef^.MCU_buffer[blkn]),
+          compptr^.MCU_width * SIZEOF(JBLOCK));
+      for bi := 0 to pred(compptr^.MCU_width) do
+            begin
+        coef^.MCU_buffer[blkn+bi]^[0][0] := coef^.MCU_buffer[blkn-1]^[0][0];
+      end;
+    end;
+    Inc(blkn, compptr^.MCU_width);
+    Inc(ypos, DCTSIZE);
+  end;
+      end;
+      { Try to write the MCU.  In event of a suspension failure, we will
+        re-DCT the MCU on restart (a bit inefficient, could be fixed...) }
+
+      if (not cinfo^.entropy^.encode_mcu (cinfo, JBLOCKARRAY(@coef^.MCU_buffer)^)) then
+      begin
+  { Suspension forced; update state counters and exit }
+  coef^.MCU_vert_offset := yoffset;
+  coef^.mcu_ctr := MCU_col_num;
+  compress_data := FALSE;
+        exit;
+      end;
+    end;
+    { Completed an MCU row, but perhaps not an iMCU row }
+    coef^.mcu_ctr := 0;
+  end;
+  { Completed the iMCU row, advance counters for next one }
+  Inc(coef^.iMCU_row_num);
+  start_iMCU_row(cinfo);
+  compress_data := TRUE;
+end;
+
+
+{$ifdef FULL_COEF_BUFFER_SUPPORTED}
+
+{ Process some data in the first pass of a multi-pass case.
+  We process the equivalent of one fully interleaved MCU row ("iMCU" row)
+  per call, ie, v_samp_factor block rows for each component in the image.
+  This amount of data is read from the source buffer, DCT'd and quantized,
+  and saved into the virtual arrays.  We also generate suitable dummy blocks
+  as needed at the right and lower edges.  (The dummy blocks are constructed
+  in the virtual arrays, which have been padded appropriately.)  This makes
+  it possible for subsequent passes not to worry about real vs. dummy blocks.
+
+  We must also emit the data to the entropy encoder.  This is conveniently
+  done by calling compress_output() after we've loaded the current strip
+  of the virtual arrays.
+
+  NB: input_buf contains a plane for each component in image.  All
+  components are DCT'd and loaded into the virtual arrays in this pass.
+  However, it may be that only a subset of the components are emitted to
+  the entropy encoder during this first pass; be careful about looking
+  at the scan-dependent variables (MCU dimensions, etc). }
+
+{METHODDEF}
+function compress_first_pass (cinfo : j_compress_ptr;
+                              input_buf : JSAMPIMAGE) : boolean;
+var
+  coef : my_coef_ptr;
+  last_iMCU_row : JDIMENSION;
+  blocks_across, MCUs_across, MCUindex : JDIMENSION;
+  bi, ci, h_samp_factor, block_row, block_rows, ndummy : int;
+  lastDC : JCOEF;
+  compptr : jpeg_component_info_ptr;
+  buffer : JBLOCKARRAY;
+  thisblockrow, lastblockrow : JBLOCKROW;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  last_iMCU_row := cinfo^.total_iMCU_rows - 1;
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Align the virtual buffer for this component. }
+    buffer := cinfo^.mem^.access_virt_barray
+      (j_common_ptr(cinfo), coef^.whole_image[ci],
+       coef^.iMCU_row_num * JDIMENSION(compptr^.v_samp_factor),
+       JDIMENSION (compptr^.v_samp_factor), TRUE);
+    { Count non-dummy DCT block rows in this iMCU row. }
+    if (coef^.iMCU_row_num < last_iMCU_row) then
+      block_rows := compptr^.v_samp_factor
+    else
+    begin
+      { NB: can't use last_row_height here, since may not be set! }
+      block_rows := int (compptr^.height_in_blocks) mod compptr^.v_samp_factor;
+      if (block_rows = 0) then
+        block_rows := compptr^.v_samp_factor;
+    end;
+    blocks_across := compptr^.width_in_blocks;
+    h_samp_factor := compptr^.h_samp_factor;
+    { Count number of dummy blocks to be added at the right margin. }
+    ndummy := int (blocks_across) mod h_samp_factor;
+    if (ndummy > 0) then
+      ndummy := h_samp_factor - ndummy;
+    { Perform DCT for all non-dummy blocks in this iMCU row.  Each call
+      on forward_DCT processes a complete horizontal row of DCT blocks. }
+
+    for block_row := 0 to pred(block_rows) do
+    begin
+      thisblockrow := buffer^[block_row];
+      cinfo^.fdct^.forward_DCT (cinfo, compptr,
+                          input_buf^[ci],
+                                thisblockrow,
+        JDIMENSION (block_row * DCTSIZE),
+        JDIMENSION (0),
+                                blocks_across);
+      if (ndummy > 0) then
+      begin
+  { Create dummy blocks at the right edge of the image. }
+  Inc(JBLOCK_PTR(thisblockrow), blocks_across); { => first dummy block }
+  jzero_far({FAR}pointer(thisblockrow), ndummy * SIZEOF(JBLOCK));
+  {lastDC := thisblockrow^[-1][0];}
+        { work around Range Checking }
+        Dec(JBLOCK_PTR(thisblockrow));
+        lastDC := thisblockrow^[0][0];
+        Inc(JBLOCK_PTR(thisblockrow));
+
+  for bi := 0 to pred(ndummy) do
+        begin
+    thisblockrow^[bi][0] := lastDC;
+  end;
+      end;
+    end;
+    { If at end of image, create dummy block rows as needed.
+      The tricky part here is that within each MCU, we want the DC values
+      of the dummy blocks to match the last real block's DC value.
+      This squeezes a few more bytes out of the resulting file... }
+
+    if (coef^.iMCU_row_num = last_iMCU_row) then
+    begin
+      Inc(blocks_across, ndummy);       { include lower right corner }
+      MCUs_across := blocks_across div JDIMENSION(h_samp_factor);
+      for block_row := block_rows to pred(compptr^.v_samp_factor) do
+      begin
+  thisblockrow := buffer^[block_row];
+  lastblockrow := buffer^[block_row-1];
+  jzero_far({FAR} pointer(thisblockrow),
+      size_t(blocks_across * SIZEOF(JBLOCK)));
+  for MCUindex := 0 to pred(MCUs_across) do
+        begin
+    lastDC := lastblockrow^[h_samp_factor-1][0];
+    for bi := 0 to pred(h_samp_factor) do
+          begin
+      thisblockrow^[bi][0] := lastDC;
+    end;
+    Inc(JBLOCK_PTR(thisblockrow), h_samp_factor); { advance to next MCU in row }
+    Inc(JBLOCK_PTR(lastblockrow), h_samp_factor);
+  end;
+      end;
+    end;
+    Inc(compptr);
+  end;
+  { NB: compress_output will increment iMCU_row_num if successful.
+    A suspension return will result in redoing all the work above next time.}
+
+
+  { Emit data to the entropy encoder, sharing code with subsequent passes }
+  compress_first_pass := compress_output(cinfo, input_buf);
+end;
+
+
+{ Process some data in subsequent passes of a multi-pass case.
+  We process the equivalent of one fully interleaved MCU row ("iMCU" row)
+  per call, ie, v_samp_factor block rows for each component in the scan.
+  The data is obtained from the virtual arrays and fed to the entropy coder.
+  Returns TRUE if the iMCU row is completed, FALSE if suspended.
+
+  NB: input_buf is ignored; it is likely to be a NIL pointer. }
+
+{METHODDEF}
+function compress_output (cinfo : j_compress_ptr;
+                          input_buf : JSAMPIMAGE) : boolean;
+var
+  coef : my_coef_ptr;
+  MCU_col_num : JDIMENSION; { index of current MCU within row }
+  blkn, ci, xindex, yindex, yoffset : int;
+  start_col : JDIMENSION;
+  buffer : array[0..MAX_COMPS_IN_SCAN-1] of JBLOCKARRAY;
+  buffer_ptr : JBLOCKROW;
+  compptr : jpeg_component_info_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+
+  { Align the virtual buffers for the components used in this scan.
+    NB: during first pass, this is safe only because the buffers will
+    already be aligned properly, so jmemmgr.c won't need to do any I/O. }
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    buffer[ci] := cinfo^.mem^.access_virt_barray (
+       j_common_ptr(cinfo), coef^.whole_image[compptr^.component_index],
+       coef^.iMCU_row_num * JDIMENSION(compptr^.v_samp_factor),
+       JDIMENSION (compptr^.v_samp_factor), FALSE);
+  end;
+
+  { Loop to process one whole iMCU row }
+  for yoffset := coef^.MCU_vert_offset to pred(coef^.MCU_rows_per_iMCU_row) do
+  begin
+    for MCU_col_num := coef^.mcu_ctr to pred(cinfo^.MCUs_per_row) do
+    begin
+      { Construct list of pointers to DCT blocks belonging to this MCU }
+      blkn := 0;      { index of current DCT block within MCU }
+      for ci := 0 to pred(cinfo^.comps_in_scan) do
+      begin
+  compptr := cinfo^.cur_comp_info[ci];
+  start_col := MCU_col_num * JDIMENSION(compptr^.MCU_width);
+  for yindex := 0 to pred(compptr^.MCU_height) do
+        begin
+    buffer_ptr := JBLOCKROW(@ buffer[ci]^[yindex+yoffset]^[start_col]);
+    for xindex := 0 to pred(compptr^.MCU_width) do
+          begin
+      coef^.MCU_buffer[blkn] := buffer_ptr;
+      Inc(blkn);
+            Inc(JBLOCK_PTR(buffer_ptr));
+    end;
+  end;
+      end;
+      { Try to write the MCU. }
+      if (not cinfo^.entropy^.encode_mcu (cinfo, coef^.MCU_buffer)) then
+      begin
+  { Suspension forced; update state counters and exit }
+  coef^.MCU_vert_offset := yoffset;
+  coef^.mcu_ctr := MCU_col_num;
+  compress_output := FALSE;
+        exit;
+      end;
+    end;
+    { Completed an MCU row, but perhaps not an iMCU row }
+    coef^.mcu_ctr := 0;
+  end;
+  { Completed the iMCU row, advance counters for next one }
+  Inc(coef^.iMCU_row_num);
+  start_iMCU_row(cinfo);
+  compress_output := TRUE;
+end;
+
+{$endif} { FULL_COEF_BUFFER_SUPPORTED }
+
+
+{ Initialize coefficient buffer controller. }
+
+{GLOBAL}
+procedure jinit_c_coef_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+var
+  coef : my_coef_ptr;
+var
+  buffer : JBLOCKROW;
+  i : int;
+var
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  coef := my_coef_ptr (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_coef_controller)) );
+  cinfo^.coef := jpeg_c_coef_controller_ptr(coef);
+  coef^.pub.start_pass := start_pass_coef;
+
+  { Create the coefficient buffer. }
+  if (need_full_buffer) then
+  begin
+{$ifdef FULL_COEF_BUFFER_SUPPORTED}
+    { Allocate a full-image virtual array for each component, }
+    { padded to a multiple of samp_factor DCT blocks in each direction. }
+
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      coef^.whole_image[ci] := cinfo^.mem^.request_virt_barray
+  (j_common_ptr(cinfo), JPOOL_IMAGE, FALSE,
+   JDIMENSION (jround_up( long (compptr^.width_in_blocks),
+        long (compptr^.h_samp_factor) )),
+   JDIMENSION (jround_up(long (compptr^.height_in_blocks),
+        long (compptr^.v_samp_factor))),
+   JDIMENSION (compptr^.v_samp_factor));
+      Inc(compptr);
+    end;
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+{$endif}
+  end
+  else
+  begin
+    { We only need a single-MCU buffer. }
+    buffer := JBLOCKROW (
+      cinfo^.mem^.alloc_large (j_common_ptr(cinfo), JPOOL_IMAGE,
+          C_MAX_BLOCKS_IN_MCU * SIZEOF(JBLOCK)) );
+    for i := 0 to pred(C_MAX_BLOCKS_IN_MCU) do
+    begin
+      coef^.MCU_buffer[i] := JBLOCKROW(@ buffer^[i]);
+    end;
+    coef^.whole_image[0] := NIL; { flag for no virtual arrays }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjccolor.pas b/src/lib/vampimg/JpegLib/imjccolor.pas

new file mode 100644 (file)

index 0000000..09fb8af
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjccolor.pas
@@ -0,0 +1,530 @@
+unit imjccolor;
+
+{  This file contains input colorspace conversion routines. }
+
+{ Original : jccolor.c ;  Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib;
+
+{ Module initialization routine for input colorspace conversion. }
+
+{GLOBAL}
+procedure jinit_color_converter (cinfo : j_compress_ptr);
+
+implementation
+
+{ Private subobject }
+type
+  INT32_FIELD = array[0..MaxInt div SizeOf(INT32) - 1] of INT32;
+  INT32_FIELD_PTR = ^INT32_FIELD;
+
+type
+  my_cconvert_ptr = ^my_color_converter;
+  my_color_converter = record
+    pub : jpeg_color_converter; { public fields }
+
+    { Private state for RGB -> YCC conversion }
+    rgb_ycc_tab : INT32_FIELD_PTR;  { => table for RGB to YCbCr conversion }
+  end; {my_color_converter;}
+
+
+{*************** RGB -> YCbCr conversion: most common case *************}
+
+{
+  YCbCr is defined per CCIR 601-1, except that Cb and Cr are
+  normalized to the range 0..MAXJSAMPLE rather than -0.5 .. 0.5.
+  The conversion equations to be implemented are therefore
+  Y  =  0.29900 * R + 0.58700 * G + 0.11400 * B
+  Cb = -0.16874 * R - 0.33126 * G + 0.50000 * B  + CENTERJSAMPLE
+  Cr =  0.50000 * R - 0.41869 * G - 0.08131 * B  + CENTERJSAMPLE
+  (These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.)
+  Note: older versions of the IJG code used a zero offset of MAXJSAMPLE/2,
+  rather than CENTERJSAMPLE, for Cb and Cr.  This gave equal positive and
+  negative swings for Cb/Cr, but meant that grayscale values (Cb=Cr=0)
+  were not represented exactly.  Now we sacrifice exact representation of
+  maximum red and maximum blue in order to get exact grayscales.
+
+  To avoid floating-point arithmetic, we represent the fractional constants
+  as integers scaled up by 2^16 (about 4 digits precision); we have to divide
+  the products by 2^16, with appropriate rounding, to get the correct answer.
+
+  For even more speed, we avoid doing any multiplications in the inner loop
+  by precalculating the constants times R,G,B for all possible values.
+  For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table);
+  for 12-bit samples it is still acceptable.  It's not very reasonable for
+  16-bit samples, but if you want lossless storage you shouldn't be changing
+  colorspace anyway.
+  The CENTERJSAMPLE offsets and the rounding fudge-factor of 0.5 are included
+  in the tables to save adding them separately in the inner loop. }
+const
+  SCALEBITS   =  16;  { speediest right-shift on some machines }
+  CBCR_OFFSET = INT32(CENTERJSAMPLE shl SCALEBITS);
+  ONE_HALF    = INT32(1) shl (SCALEBITS-1);
+
+
+{ We allocate one big table and divide it up into eight parts, instead of
+  doing eight alloc_small requests.  This lets us use a single table base
+  address, which can be held in a register in the inner loops on many
+  machines (more than can hold all eight addresses, anyway). }
+
+  R_Y_OFF     = 0;                              { offset to R => Y section }
+  G_Y_OFF     = 1*(MAXJSAMPLE+1);               { offset to G => Y section }
+  B_Y_OFF     = 2*(MAXJSAMPLE+1);               { etc. }
+  R_CB_OFF    = 3*(MAXJSAMPLE+1);
+  G_CB_OFF    = 4*(MAXJSAMPLE+1);
+  B_CB_OFF    = 5*(MAXJSAMPLE+1);
+  R_CR_OFF    = B_CB_OFF;                       { B=>Cb, R=>Cr are the same }
+  G_CR_OFF    = 6*(MAXJSAMPLE+1);
+  B_CR_OFF    = 7*(MAXJSAMPLE+1);
+  TABLE_SIZE  = 8*(MAXJSAMPLE+1);
+
+
+{ Initialize for RGB->YCC colorspace conversion. }
+
+{METHODDEF}
+procedure rgb_ycc_start (cinfo : j_compress_ptr);
+const
+  FIX_0_29900 = INT32(Round(0.29900 * (1 shl SCALEBITS)));
+  FIX_0_58700 = INT32(Round(0.58700 * (1 shl SCALEBITS)));
+  FIX_0_11400 = INT32(Round(0.11400 * (1 shl SCALEBITS)));
+  FIX_0_16874 = INT32(Round(0.16874 * (1 shl SCALEBITS)));
+  FIX_0_33126 = INT32(Round(0.33126 * (1 shl SCALEBITS)));
+  FIX_0_50000 = INT32(Round(0.50000 * (1 shl SCALEBITS)));
+  FIX_0_41869 = INT32(Round(0.41869 * (1 shl SCALEBITS)));
+  FIX_0_08131 = INT32(Round(0.08131 * (1 shl SCALEBITS)));
+var
+  cconvert : my_cconvert_ptr;
+  rgb_ycc_tab : INT32_FIELD_PTR;
+  i : INT32;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+
+  { Allocate and fill in the conversion tables. }
+  rgb_ycc_tab := INT32_FIELD_PTR(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        (TABLE_SIZE * SIZEOF(INT32))) );
+  cconvert^.rgb_ycc_tab := rgb_ycc_tab;
+
+  for i := 0 to MAXJSAMPLE do
+  begin
+    rgb_ycc_tab^[i+R_Y_OFF] := FIX_0_29900 * i;
+    rgb_ycc_tab^[i+G_Y_OFF] := FIX_0_58700 * i;
+    rgb_ycc_tab^[i+B_Y_OFF] := FIX_0_11400 * i     + ONE_HALF;
+    rgb_ycc_tab^[i+R_CB_OFF] := (-FIX_0_16874) * i;
+    rgb_ycc_tab^[i+G_CB_OFF] := (-FIX_0_33126) * i;
+    { We use a rounding fudge-factor of 0.5-epsilon for Cb and Cr.
+      This ensures that the maximum output will round to MAXJSAMPLE
+      not MAXJSAMPLE+1, and thus that we don't have to range-limit. }
+
+    rgb_ycc_tab^[i+B_CB_OFF] := FIX_0_50000 * i    + CBCR_OFFSET + ONE_HALF-1;
+{  B=>Cb and R=>Cr tables are the same
+    rgb_ycc_tab^[i+R_CR_OFF] := FIX_0_50000 * i    + CBCR_OFFSET + ONE_HALF-1;
+}
+    rgb_ycc_tab^[i+G_CR_OFF] := (-FIX_0_41869) * i;
+    rgb_ycc_tab^[i+B_CR_OFF] := (-FIX_0_08131) * i;
+  end;
+end;
+
+
+{ Convert some rows of samples to the JPEG colorspace.
+
+  Note that we change from the application's interleaved-pixel format
+  to our internal noninterleaved, one-plane-per-component format.
+  The input buffer is therefore three times as wide as the output buffer.
+
+  A starting row offset is provided only for the output buffer.  The caller
+  can easily adjust the passed input_buf value to accommodate any row
+  offset required on that side. }
+
+{METHODDEF}
+procedure rgb_ycc_convert (cinfo : j_compress_ptr;
+               input_buf : JSAMPARRAY;
+                           output_buf :  JSAMPIMAGE;
+               output_row : JDIMENSION;
+                           num_rows : int);
+var
+  cconvert : my_cconvert_ptr;
+  {register} r, g, b : int;
+  {register} ctab : INT32_FIELD_PTR;
+  {register} inptr : JSAMPROW;
+  {register} outptr0, outptr1, outptr2 : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+  ctab := cconvert^.rgb_ycc_tab;
+  num_cols := cinfo^.image_width;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr := input_buf^[0];
+    Inc(JSAMPROW_PTR(input_buf));
+    outptr0 := output_buf^[0]^[output_row];
+    outptr1 := output_buf^[1]^[output_row];
+    outptr2 := output_buf^[2]^[output_row];
+    Inc(output_row);
+    for col := 0 to pred(num_cols) do
+    begin
+      r := GETJSAMPLE(inptr^[RGB_RED]);
+      g := GETJSAMPLE(inptr^[RGB_GREEN]);
+      b := GETJSAMPLE(inptr^[RGB_BLUE]);
+      Inc(JSAMPLE_PTR(inptr), RGB_PIXELSIZE);
+      { If the inputs are 0..MAXJSAMPLE, the outputs of these equations
+        must be too; we do not need an explicit range-limiting operation.
+        Hence the value being shifted is never negative, and we don't
+        need the general RIGHT_SHIFT macro. }
+
+      { Y }
+      outptr0^[col] := JSAMPLE(
+    ((ctab^[r+R_Y_OFF] + ctab^[g+G_Y_OFF] + ctab^[b+B_Y_OFF])
+     shr SCALEBITS) );
+      { Cb }
+      outptr1^[col] := JSAMPLE(
+    ((ctab^[r+R_CB_OFF] + ctab^[g+G_CB_OFF] + ctab^[b+B_CB_OFF])
+     shr SCALEBITS) );
+      { Cr }
+      outptr2^[col] := JSAMPLE(
+    ((ctab^[r+R_CR_OFF] + ctab^[g+G_CR_OFF] + ctab^[b+B_CR_OFF])
+     shr SCALEBITS) );
+    end;
+  end;
+end;
+
+
+{*************** Cases other than RGB -> YCbCr *************}
+
+
+{ Convert some rows of samples to the JPEG colorspace.
+  This version handles RGB -> grayscale conversion, which is the same
+  as the RGB -> Y portion of RGB -> YCbCr.
+  We assume rgb_ycc_start has been called (we only use the Y tables). }
+
+{METHODDEF}
+procedure rgb_gray_convert (cinfo : j_compress_ptr;
+                input_buf : JSAMPARRAY;
+                            output_buf : JSAMPIMAGE;
+                output_row : JDIMENSION;
+                            num_rows : int);
+var
+  cconvert : my_cconvert_ptr;
+  {register} r, g, b : int;
+  {register} ctab :INT32_FIELD_PTR;
+  {register} inptr : JSAMPROW;
+  {register} outptr : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+  ctab := cconvert^.rgb_ycc_tab;
+  num_cols := cinfo^.image_width;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr := input_buf[0];
+    Inc(JSAMPROW_PTR(input_buf));
+    outptr := output_buf[0][output_row];
+    Inc(output_row);
+    for col := 0 to num_cols - 1 do
+    begin
+      r := GETJSAMPLE(inptr[RGB_RED]);
+      g := GETJSAMPLE(inptr[RGB_GREEN]);
+      b := GETJSAMPLE(inptr[RGB_BLUE]);
+      Inc(JSAMPLE_PTR(inptr), RGB_PIXELSIZE);
+      (* Y *)
+      // kylix 3 compiler crashes on this
+      // it also crashes Delphi OSX compiler 9 years later :(
+      {$IF not (Defined(DCC) and not Defined(MSWINDOWS))}
+      outptr[col] := JSAMPLE(((ctab[r+R_Y_OFF] + ctab[g+G_Y_OFF] + ctab[b+B_Y_OFF]) shr SCALEBITS));
+      {$IFEND}
+    end;
+  end;
+end;
+
+
+{ Convert some rows of samples to the JPEG colorspace.
+  This version handles Adobe-style CMYK -> YCCK conversion,
+  where we convert R=1-C, G=1-M, and B=1-Y to YCbCr using the same
+  conversion as above, while passing K (black) unchanged.
+  We assume rgb_ycc_start has been called. }
+
+{METHODDEF}
+procedure cmyk_ycck_convert (cinfo : j_compress_ptr;
+                 input_buf : JSAMPARRAY;
+                             output_buf : JSAMPIMAGE;
+                 output_row : JDIMENSION;
+                             num_rows : int);
+var
+  cconvert : my_cconvert_ptr;
+  {register} r, g, b : int;
+  {register} ctab : INT32_FIELD_PTR;
+  {register} inptr : JSAMPROW;
+  {register} outptr0, outptr1, outptr2, outptr3 : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+  ctab := cconvert^.rgb_ycc_tab;
+  num_cols := cinfo^.image_width;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr := input_buf^[0];
+    Inc(JSAMPROW_PTR(input_buf));
+    outptr0 := output_buf^[0]^[output_row];
+    outptr1 := output_buf^[1]^[output_row];
+    outptr2 := output_buf^[2]^[output_row];
+    outptr3 := output_buf^[3]^[output_row];
+    Inc(output_row);
+    for col := 0 to pred(num_cols) do
+    begin
+      r := MAXJSAMPLE - GETJSAMPLE(inptr^[0]);
+      g := MAXJSAMPLE - GETJSAMPLE(inptr^[1]);
+      b := MAXJSAMPLE - GETJSAMPLE(inptr^[2]);
+      { K passes through as-is }
+      outptr3^[col] := inptr^[3]; { don't need GETJSAMPLE here }
+      Inc(JSAMPLE_PTR(inptr), 4);
+      { If the inputs are 0..MAXJSAMPLE, the outputs of these equations
+        must be too; we do not need an explicit range-limiting operation.
+        Hence the value being shifted is never negative, and we don't
+        need the general RIGHT_SHIFT macro. }
+
+      { Y }
+      outptr0^[col] := JSAMPLE (
+    ((ctab^[r+R_Y_OFF] + ctab^[g+G_Y_OFF] + ctab^[b+B_Y_OFF])
+     shr SCALEBITS) );
+      { Cb }
+      outptr1^[col] := JSAMPLE(
+    ((ctab^[r+R_CB_OFF] + ctab^[g+G_CB_OFF] + ctab^[b+B_CB_OFF])
+     shr SCALEBITS) );
+      { Cr }
+      outptr2^[col] := JSAMPLE (
+    ((ctab^[r+R_CR_OFF] + ctab^[g+G_CR_OFF] + ctab^[b+B_CR_OFF])
+     shr SCALEBITS) );
+    end;
+  end;
+end;
+
+
+{ Convert some rows of samples to the JPEG colorspace.
+  This version handles grayscale output with no conversion.
+  The source can be either plain grayscale or YCbCr (since Y = gray). }
+
+{METHODDEF}
+procedure grayscale_convert (cinfo : j_compress_ptr;
+                            input_buf : JSAMPARRAY;
+                            output_buf : JSAMPIMAGE;
+                            output_row : JDIMENSION;
+                            num_rows: int);
+var
+  {register} inptr : JSAMPROW;
+  {register} outptr : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols :JDIMENSION;
+  instride : int;
+begin
+  num_cols := cinfo^.image_width;
+  instride := cinfo^.input_components;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr := input_buf^[0];
+    Inc(JSAMPROW_PTR(input_buf));
+    outptr := output_buf^[0]^[output_row];
+    Inc(output_row);
+    for col := 0 to pred(num_cols) do
+    begin
+      outptr^[col] := inptr^[0];  { don't need GETJSAMPLE() here }
+      Inc(JSAMPLE_PTR(inptr), instride);
+    end;
+  end;
+end;
+
+
+{ Convert some rows of samples to the JPEG colorspace.
+  This version handles multi-component colorspaces without conversion.
+  We assume input_components = num_components. }
+
+{METHODDEF}
+procedure null_convert (cinfo : j_compress_ptr;
+                  input_buf : JSAMPARRAY;
+                        output_buf : JSAMPIMAGE;
+                        output_row : JDIMENSION;
+                        num_rows : int);
+var
+  {register} inptr : JSAMPROW;
+  {register} outptr : JSAMPROW;
+  {register} col : JDIMENSION;
+  {register} ci : int;
+  nc : int;
+  num_cols : JDIMENSION;
+begin
+  nc := cinfo^.num_components;
+  num_cols := cinfo^.image_width;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    { It seems fastest to make a separate pass for each component. }
+    for ci := 0 to pred(nc) do
+    begin
+      inptr := input_buf^[0];
+      outptr := output_buf^[ci]^[output_row];
+      for col := 0 to pred(num_cols) do
+      begin
+  outptr^[col] := inptr^[ci]; { don't need GETJSAMPLE() here }
+  Inc(JSAMPLE_PTR(inptr), nc);
+      end;
+    end;
+    Inc(JSAMPROW_PTR(input_buf));
+    Inc(output_row);
+  end;
+end;
+
+
+{ Empty method for start_pass. }
+
+{METHODDEF}
+procedure null_method (cinfo : j_compress_ptr);
+begin
+  { no work needed }
+end;
+
+
+{ Module initialization routine for input colorspace conversion. }
+
+{GLOBAL}
+procedure jinit_color_converter (cinfo : j_compress_ptr);
+var
+  cconvert : my_cconvert_ptr;
+begin
+  cconvert := my_cconvert_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_color_converter)) );
+  cinfo^.cconvert := jpeg_color_converter_ptr(cconvert);
+  { set start_pass to null method until we find out differently }
+  cconvert^.pub.start_pass := null_method;
+
+  { Make sure input_components agrees with in_color_space }
+  case (cinfo^.in_color_space) of
+  JCS_GRAYSCALE:
+    if (cinfo^.input_components <> 1) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+
+{$ifdef RGB_PIXELSIZE <> 3}
+  JCS_RGB:
+    if (cinfo^.input_components <> RGB_PIXELSIZE) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+{$else} { share code with YCbCr }
+  JCS_RGB,
+{$endif}
+  JCS_YCbCr:
+    if (cinfo^.input_components <> 3) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+
+  JCS_CMYK,
+  JCS_YCCK:
+    if (cinfo^.input_components <> 4) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+
+  else      { JCS_UNKNOWN can be anything }
+    if (cinfo^.input_components < 1) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+  end;
+
+  { Check num_components, set conversion method based on requested space }
+  case (cinfo^.jpeg_color_space) of
+  JCS_GRAYSCALE:
+    begin
+      if (cinfo^.num_components <> 1) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+      if (cinfo^.in_color_space = JCS_GRAYSCALE) then
+        cconvert^.pub.color_convert := grayscale_convert
+      else
+        if (cinfo^.in_color_space = JCS_RGB) then
+        begin
+          cconvert^.pub.start_pass := rgb_ycc_start;
+          cconvert^.pub.color_convert := rgb_gray_convert;
+        end
+        else
+          if (cinfo^.in_color_space = JCS_YCbCr) then
+            cconvert^.pub.color_convert := grayscale_convert
+          else
+            ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_RGB:
+    begin
+      if (cinfo^.num_components <> 3) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+        if (cinfo^.in_color_space = JCS_RGB) and (RGB_PIXELSIZE = 3) then
+          cconvert^.pub.color_convert := null_convert
+        else
+          ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_YCbCr:
+    begin
+      if (cinfo^.num_components <> 3) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+      if (cinfo^.in_color_space = JCS_RGB) then
+      begin
+        cconvert^.pub.start_pass := rgb_ycc_start;
+        cconvert^.pub.color_convert := rgb_ycc_convert;
+      end
+      else
+        if (cinfo^.in_color_space = JCS_YCbCr) then
+          cconvert^.pub.color_convert := null_convert
+        else
+          ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_CMYK:
+    begin
+      if (cinfo^.num_components <> 4) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+      if (cinfo^.in_color_space = JCS_CMYK) then
+        cconvert^.pub.color_convert := null_convert
+      else
+        ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_YCCK:
+    begin
+      if (cinfo^.num_components <> 4) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+      if (cinfo^.in_color_space = JCS_CMYK) then
+      begin
+        cconvert^.pub.start_pass := rgb_ycc_start;
+        cconvert^.pub.color_convert := cmyk_ycck_convert;
+      end
+      else
+        if (cinfo^.in_color_space = JCS_YCCK) then
+          cconvert^.pub.color_convert := null_convert
+        else
+          ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  else    { allow null conversion of JCS_UNKNOWN }
+    begin
+      if (cinfo^.jpeg_color_space <> cinfo^.in_color_space) or
+   (cinfo^.num_components <> cinfo^.input_components) then
+        ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+      cconvert^.pub.color_convert := null_convert;
+    end;
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcdctmgr.pas b/src/lib/vampimg/JpegLib/imjcdctmgr.pas

new file mode 100644 (file)

index 0000000..f63569e
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcdctmgr.pas
@@ -0,0 +1,514 @@
+unit imjcdctmgr;
+
+{ Original : jcdctmgr.c ;  Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This file is part of the Independent JPEG Group's software.
+  For conditions of distribution and use, see the accompanying README file.
+
+  This file contains the forward-DCT management logic.
+  This code selects a particular DCT implementation to be used,
+  and it performs related housekeeping chores including coefficient
+  quantization. }
+
+interface
+
+{$N+}
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjdct,                 { Private declarations for DCT subsystem }
+  imjfdctint, imjfdctfst, imjfdctflt;
+
+{ Initialize FDCT manager. }
+
+{GLOBAL}
+procedure jinit_forward_dct (cinfo : j_compress_ptr);
+
+implementation
+
+
+{ Private subobject for this module }
+
+type
+  my_fdct_ptr = ^my_fdct_controller;
+  my_fdct_controller = record
+    pub : jpeg_forward_dct; { public fields }
+
+    { Pointer to the DCT routine actually in use }
+    do_dct : forward_DCT_method_ptr;
+
+    { The actual post-DCT divisors --- not identical to the quant table
+      entries, because of scaling (especially for an unnormalized DCT).
+      Each table is given in normal array order. }
+
+    divisors : array[0..NUM_QUANT_TBLS-1] of DCTELEM_FIELD_PTR;
+
+  {$ifdef DCT_FLOAT_SUPPORTED}
+    { Same as above for the floating-point case. }
+    do_float_dct : float_DCT_method_ptr;
+    float_divisors : array[0..NUM_QUANT_TBLS-1] of FAST_FLOAT_FIELD_PTR;
+  {$endif}
+  end;
+
+
+{ Initialize for a processing pass.
+  Verify that all referenced Q-tables are present, and set up
+  the divisor table for each one.
+  In the current implementation, DCT of all components is done during
+  the first pass, even if only some components will be output in the
+  first scan.  Hence all components should be examined here. }
+
+{METHODDEF}
+procedure start_pass_fdctmgr (cinfo : j_compress_ptr);
+var
+  fdct : my_fdct_ptr;
+  ci, qtblno, i : int;
+  compptr : jpeg_component_info_ptr;
+  qtbl : JQUANT_TBL_PTR;
+  dtbl : DCTELEM_FIELD_PTR;
+{$ifdef DCT_IFAST_SUPPORTED}
+const
+  CONST_BITS = 14;
+  aanscales : array[0..DCTSIZE2-1] of INT16 =
+         ({ precomputed values scaled up by 14 bits }
+    16384, 22725, 21407, 19266, 16384, 12873,  8867,  4520,
+    22725, 31521, 29692, 26722, 22725, 17855, 12299,  6270,
+    21407, 29692, 27969, 25172, 21407, 16819, 11585,  5906,
+    19266, 26722, 25172, 22654, 19266, 15137, 10426,  5315,
+    16384, 22725, 21407, 19266, 16384, 12873,  8867,  4520,
+    12873, 17855, 16819, 15137, 12873, 10114,  6967,  3552,
+     8867, 12299, 11585, 10426,  8867,  6967,  4799,  2446,
+     4520,  6270,  5906,  5315,  4520,  3552,  2446,  1247);
+  {SHIFT_TEMPS}
+
+  { Descale and correctly round an INT32 value that's scaled by N bits.
+    We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+    the fudge factor is correct for either sign of X. }
+
+  function DESCALE(x : INT32; n : int) : INT32;
+  var
+    shift_temp : INT32;
+  begin
+    shift_temp := x + (INT32(1) shl (n-1));
+  {$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+    if shift_temp < 0 then
+      Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+    else
+  {$endif}
+      Descale :=  (shift_temp shr n);
+  end;
+
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+var
+  fdtbl : FAST_FLOAT_FIELD_PTR;
+  row, col : int;
+const
+  aanscalefactor : array[0..DCTSIZE-1] of double =
+    (1.0, 1.387039845, 1.306562965, 1.175875602,
+     1.0, 0.785694958, 0.541196100, 0.275899379);
+{$endif}
+begin
+  fdct := my_fdct_ptr (cinfo^.fdct);
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    qtblno := compptr^.quant_tbl_no;
+    { Make sure specified quantization table is present }
+    if (qtblno < 0) or (qtblno >= NUM_QUANT_TBLS) or
+       (cinfo^.quant_tbl_ptrs[qtblno] = NIL) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_NO_QUANT_TABLE, qtblno);
+    qtbl := cinfo^.quant_tbl_ptrs[qtblno];
+    { Compute divisors for this quant table }
+    { We may do this more than once for same table, but it's not a big deal }
+    case (cinfo^.dct_method) of
+{$ifdef DCT_ISLOW_SUPPORTED}
+    JDCT_ISLOW:
+    begin
+      { For LL&M IDCT method, divisors are equal to raw quantization
+        coefficients multiplied by 8 (to counteract scaling). }
+
+      if (fdct^.divisors[qtblno] = NIL) then
+      begin
+  fdct^.divisors[qtblno] := DCTELEM_FIELD_PTR(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+              DCTSIZE2 * SIZEOF(DCTELEM)) );
+      end;
+      dtbl := fdct^.divisors[qtblno];
+      for i := 0 to pred(DCTSIZE2) do
+      begin
+  dtbl^[i] := (DCTELEM(qtbl^.quantval[i])) shl 3;
+      end;
+    end;
+{$endif}
+{$ifdef DCT_IFAST_SUPPORTED}
+    JDCT_IFAST:
+      begin
+        { For AA&N IDCT method, divisors are equal to quantization
+          coefficients scaled by scalefactor[row]*scalefactor[col], where
+            scalefactor[0] := 1
+            scalefactor[k] := cos(k*PI/16) * sqrt(2)    for k=1..7
+          We apply a further scale factor of 8. }
+
+
+  if (fdct^.divisors[qtblno] = NIL) then
+        begin
+    fdct^.divisors[qtblno] := DCTELEM_FIELD_PTR(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          DCTSIZE2 * SIZEOF(DCTELEM)) );
+  end;
+  dtbl := fdct^.divisors[qtblno];
+  for i := 0 to pred(DCTSIZE2) do
+        begin
+    dtbl^[i] := DCTELEM(
+                     {MULTIPLY16V16}
+      DESCALE( INT32(qtbl^.quantval[i]) * INT32 (aanscales[i]),
+         CONST_BITS-3) );
+  end;
+      end;
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+
+    JDCT_FLOAT:
+      begin
+  { For float AA&N IDCT method, divisors are equal to quantization
+    coefficients scaled by scalefactor[row]*scalefactor[col], where
+      scalefactor[0] := 1
+      scalefactor[k] := cos(k*PI/16) * sqrt(2)    for k=1..7
+    We apply a further scale factor of 8.
+    What's actually stored is 1/divisor so that the inner loop can
+    use a multiplication rather than a division. }
+
+  if (fdct^.float_divisors[qtblno] = NIL) then
+        begin
+    fdct^.float_divisors[qtblno] := FAST_FLOAT_FIELD_PTR(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          DCTSIZE2 * SIZEOF(FAST_FLOAT)) );
+  end;
+  fdtbl := fdct^.float_divisors[qtblno];
+  i := 0;
+  for row := 0 to pred(DCTSIZE) do
+        begin
+    for col := 0 to pred(DCTSIZE) do
+          begin
+      fdtbl^[i] := {FAST_FLOAT}
+        (1.0 / (( {double}(qtbl^.quantval[i]) *
+           aanscalefactor[row] * aanscalefactor[col] * 8.0)));
+      Inc(i);
+    end;
+  end;
+      end;
+{$endif}
+    else
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+    end;
+    Inc(compptr);
+  end;
+end;
+
+
+{ Perform forward DCT on one or more blocks of a component.
+
+  The input samples are taken from the sample_data[] array starting at
+  position start_row/start_col, and moving to the right for any additional
+  blocks. The quantized coefficients are returned in coef_blocks[]. }
+
+{METHODDEF}
+procedure forward_DCT (cinfo : j_compress_ptr;
+                       compptr : jpeg_component_info_ptr;
+                 sample_data : JSAMPARRAY;
+                       coef_blocks : JBLOCKROW;
+                 start_row : JDIMENSION;
+                       start_col : JDIMENSION;
+                 num_blocks : JDIMENSION);
+{ This version is used for integer DCT implementations. }
+var
+  { This routine is heavily used, so it's worth coding it tightly. }
+  fdct : my_fdct_ptr;
+  do_dct : forward_DCT_method_ptr;
+  divisors : DCTELEM_FIELD_PTR;
+  workspace : array[0..DCTSIZE2-1] of DCTELEM;  { work area for FDCT subroutine }
+  bi : JDIMENSION;
+var
+  {register} workspaceptr : DCTELEMPTR;
+  {register} elemptr : JSAMPLE_PTR;
+  {register} elemr : int;
+{$ifndef DCTSIZE_IS_8}
+var
+  {register} elemc : int;
+{$endif}
+var
+  {register} temp, qval : DCTELEM;
+  {register} i : int;
+  {register} output_ptr : JCOEFPTR;
+begin
+  fdct := my_fdct_ptr (cinfo^.fdct);
+  do_dct := fdct^.do_dct;
+  divisors := fdct^.divisors[compptr^.quant_tbl_no];
+
+  Inc(JSAMPROW_PTR(sample_data), start_row);  { fold in the vertical offset once }
+
+  for bi := 0 to pred(num_blocks) do
+  begin
+
+    { Load data into workspace, applying unsigned->signed conversion }
+
+    workspaceptr := @workspace[0];
+    for elemr := 0 to pred(DCTSIZE) do
+    begin
+      elemptr := @sample_data^[elemr]^[start_col];
+{$ifdef DCTSIZE_IS_8}   { unroll the inner loop }
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+      Inc(workspaceptr);
+      {Inc(elemptr);       - Value never used }
+{$else}
+      for elemc := pred(DCTSIZE) downto 0 do
+      begin
+        workspaceptr^ := GETJSAMPLE(elemptr^) - CENTERJSAMPLE;
+        Inc(workspaceptr);
+        Inc(elemptr);
+      end;
+{$endif}
+    end;
+
+    { Perform the DCT }
+    do_dct (workspace);
+
+    { Quantize/descale the coefficients, and store into coef_blocks[] }
+
+    output_ptr := JCOEFPTR(@coef_blocks^[bi]);
+    for i := 0 to pred(DCTSIZE2) do
+    begin
+      qval := divisors^[i];
+      temp := workspace[i];
+      { Divide the coefficient value by qval, ensuring proper rounding.
+  Since C does not specify the direction of rounding for negative
+  quotients, we have to force the dividend positive for portability.
+
+  In most files, at least half of the output values will be zero
+  (at default quantization settings, more like three-quarters...)
+  so we should ensure that this case is fast.  On many machines,
+  a comparison is enough cheaper than a divide to make a special test
+  a win.  Since both inputs will be nonnegative, we need only test
+  for a < b to discover whether a/b is 0.
+  If your machine's division is fast enough, define FAST_DIVIDE. }
+
+      if (temp < 0) then
+      begin
+  temp := -temp;
+  Inc(temp, qval shr 1);  { for rounding }
+        {DIVIDE_BY(temp, qval);}
+        {$ifdef FAST_DIVIDE}
+          temp := temp div qval;
+        {$else}
+          if (temp >= qval) then
+            temp := temp div qval
+          else
+            temp := 0;
+        {$endif}
+  temp := -temp;
+      end
+      else
+      begin
+  Inc(temp, qval shr 1);  { for rounding }
+        {DIVIDE_BY(temp, qval);}
+        {$ifdef FAST_DIVIDE}
+          temp := temp div qval;
+        {$else}
+          if (temp >= qval) then
+            temp := temp div qval
+          else
+            temp := 0;
+        {$endif}
+      end;
+      output_ptr^[i] := JCOEF (temp);
+    end;
+    Inc(start_col, DCTSIZE);
+  end;
+end;
+
+
+{$ifdef DCT_FLOAT_SUPPORTED}
+
+{METHODDEF}
+procedure forward_DCT_float (cinfo : j_compress_ptr;
+                             compptr : jpeg_component_info_ptr;
+                 sample_data : JSAMPARRAY;
+                             coef_blocks : JBLOCKROW;
+                 start_row : JDIMENSION;
+                             start_col : JDIMENSION;
+                 num_blocks : JDIMENSION);
+{ This version is used for floating-point DCT implementations. }
+var
+  { This routine is heavily used, so it's worth coding it tightly. }
+  fdct : my_fdct_ptr;
+  do_dct : float_DCT_method_ptr;
+  divisors : FAST_FLOAT_FIELD_PTR;
+  workspace : array[0..DCTSIZE2-1] of FAST_FLOAT; { work area for FDCT subroutine }
+  bi : JDIMENSION;
+var
+  {register} workspaceptr : FAST_FLOAT_PTR;
+  {register} elemptr : JSAMPLE_PTR;
+  {register} elemr : int;
+{$ifndef DCTSIZE_IS_8}
+var
+  {register} elemc : int;
+{$endif}
+var
+  {register} temp : FAST_FLOAT;
+  {register} i : int;
+  {register} output_ptr : JCOEFPTR;
+begin
+  fdct := my_fdct_ptr (cinfo^.fdct);
+  do_dct := fdct^.do_float_dct;
+  divisors := fdct^.float_divisors[compptr^.quant_tbl_no];
+
+  Inc(JSAMPROW_PTR(sample_data), start_row);  { fold in the vertical offset once }
+
+  for bi := 0 to pred(num_blocks) do
+  begin
+    { Load data into workspace, applying unsigned->signed conversion }
+
+    workspaceptr := @workspace[0];
+    for elemr := 0 to pred(DCTSIZE) do
+    begin
+      elemptr := @(sample_data^[elemr]^[start_col]);
+{$ifdef DCTSIZE_IS_8}   { unroll the inner loop }
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      Inc(elemptr);
+      workspaceptr^ := {FAST_FLOAT}(GETJSAMPLE(elemptr^) - CENTERJSAMPLE);
+      Inc(workspaceptr);
+      {Inc(elemptr);         - value never used }
+{$else}
+      for elemc := pred(DCTSIZE) downto 0 do
+      begin
+  workspaceptr^ := {FAST_FLOAT}(
+    (GETJSAMPLE(elemptr^) - CENTERJSAMPLE) );
+        Inc(workspaceptr);
+        Inc(elemptr);
+      end;
+{$endif}
+    end;
+
+
+    { Perform the DCT }
+    do_dct (workspace);
+
+    { Quantize/descale the coefficients, and store into coef_blocks[] }
+
+    output_ptr := JCOEFPTR(@(coef_blocks^[bi]));
+
+    for i := 0 to pred(DCTSIZE2) do
+    begin
+      { Apply the quantization and scaling factor }
+      temp := workspace[i] * divisors^[i];
+      { Round to nearest integer.
+  Since C does not specify the direction of rounding for negative
+  quotients, we have to force the dividend positive for portability.
+  The maximum coefficient size is +-16K (for 12-bit data), so this
+  code should work for either 16-bit or 32-bit ints. }
+      output_ptr^[i] := JCOEF ( int(Trunc (temp + {FAST_FLOAT}(16384.5))) - 16384);
+    end;
+    Inc(start_col, DCTSIZE);
+  end;
+end;
+
+{$endif} { DCT_FLOAT_SUPPORTED }
+
+
+{ Initialize FDCT manager. }
+
+{GLOBAL}
+procedure jinit_forward_dct (cinfo : j_compress_ptr);
+var
+  fdct : my_fdct_ptr;
+  i : int;
+begin
+  fdct := my_fdct_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_fdct_controller)) );
+  cinfo^.fdct := jpeg_forward_dct_ptr (fdct);
+  fdct^.pub.start_pass := start_pass_fdctmgr;
+
+  case (cinfo^.dct_method) of
+{$ifdef DCT_ISLOW_SUPPORTED}
+  JDCT_ISLOW:
+    begin
+      fdct^.pub.forward_DCT := forward_DCT;
+      fdct^.do_dct := jpeg_fdct_islow;
+    end;
+{$endif}
+{$ifdef DCT_IFAST_SUPPORTED}
+  JDCT_IFAST:
+    begin
+      fdct^.pub.forward_DCT := forward_DCT;
+      fdct^.do_dct := jpeg_fdct_ifast;
+    end;
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+  JDCT_FLOAT:
+    begin
+      fdct^.pub.forward_DCT := forward_DCT_float;
+      fdct^.do_float_dct := jpeg_fdct_float;
+    end;
+{$endif}
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+  end;
+
+  { Mark divisor tables unallocated }
+  for i := 0 to pred(NUM_QUANT_TBLS) do
+  begin
+    fdct^.divisors[i] := NIL;
+{$ifdef DCT_FLOAT_SUPPORTED}
+    fdct^.float_divisors[i] := NIL;
+{$endif}
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjchuff.pas b/src/lib/vampimg/JpegLib/imjchuff.pas

new file mode 100644 (file)

index 0000000..66856dc
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjchuff.pas
@@ -0,0 +1,1116 @@
+unit imjchuff;
+
+{ This file contains Huffman entropy encoding routines.
+
+  Much of the complexity here has to do with supporting output suspension.
+  If the data destination module demands suspension, we want to be able to
+  back up to the start of the current MCU.  To do this, we copy state
+  variables into local working storage, and update them back to the
+  permanent JPEG objects only upon successful completion of an MCU. }
+
+{ Original: jchuff.c; Copyright (C) 1991-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg, { longptr definition missing }
+  imjpeglib,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjinclude,
+  imjcomapi;
+
+{ The legal range of a DCT coefficient is
+   -1024 .. +1023  for 8-bit data;
+  -16384 .. +16383 for 12-bit data.
+  Hence the magnitude should always fit in 10 or 14 bits respectively. }
+
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  MAX_COEF_BITS = 10;
+{$else}
+const
+  MAX_COEF_BITS = 14;
+{$endif}
+
+{ Derived data constructed for each Huffman table }
+{ Declarations shared with jcphuff.c }
+type
+  c_derived_tbl_ptr = ^c_derived_tbl;
+  c_derived_tbl = record
+    ehufco : array[0..256-1] of uInt; { code for each symbol }
+    ehufsi : array[0..256-1] of byte;   { length of code for each symbol }
+    { If no code has been allocated for a symbol S, ehufsi[S] contains 0 }
+  end;
+{ for JCHUFF und JCPHUFF }
+type
+  TLongTable = array[0..256] of long;
+  TLongTablePtr = ^TLongTable;
+
+{ Compute the derived values for a Huffman table.
+  Note this is also used by jcphuff.c. }
+
+{GLOBAL}
+procedure jpeg_make_c_derived_tbl (cinfo : j_compress_ptr;
+                                   isDC : boolean;
+                                   tblno : int;
+                 var pdtbl : c_derived_tbl_ptr);
+
+{ Generate the optimal coding for the given counts, fill htbl.
+  Note this is also used by jcphuff.c. }
+
+{GLOBAL}
+procedure jpeg_gen_optimal_table (cinfo : j_compress_ptr;
+                                  htbl : JHUFF_TBL_PTR;
+                                  var freq : TLongTable);  { Nomssi }
+
+{ Module initialization routine for Huffman entropy encoding. }
+
+{GLOBAL}
+procedure jinit_huff_encoder (cinfo : j_compress_ptr);
+
+implementation
+
+{ Expanded entropy encoder object for Huffman encoding.
+
+  The savable_state subrecord contains fields that change within an MCU,
+  but must not be updated permanently until we complete the MCU. }
+
+type
+  savable_state = record
+    put_buffer : INT32;   { current bit-accumulation buffer }
+    put_bits : int;   { # of bits now in it }
+    last_dc_val : array[0..MAX_COMPS_IN_SCAN-1] of int;
+                                { last DC coef for each component }
+  end;
+
+
+type
+  huff_entropy_ptr = ^huff_entropy_encoder;
+  huff_entropy_encoder = record
+    pub : jpeg_entropy_encoder; { public fields }
+
+    saved : savable_state;  { Bit buffer & DC state at start of MCU }
+
+    { These fields are NOT loaded into local working state. }
+    restarts_to_go : uInt;  { MCUs left in this restart interval }
+    next_restart_num : int; { next restart number to write (0-7) }
+
+    { Pointers to derived tables (these workspaces have image lifespan) }
+    dc_derived_tbls : array[0..NUM_HUFF_TBLS-1] of c_derived_tbl_ptr;
+    ac_derived_tbls : array[0..NUM_HUFF_TBLS-1] of c_derived_tbl_ptr;
+
+  {$ifdef ENTROPY_OPT_SUPPORTED} { Statistics tables for optimization }
+    dc_count_ptrs : array[0..NUM_HUFF_TBLS-1] of TLongTablePtr;
+    ac_count_ptrs : array[0..NUM_HUFF_TBLS-1] of TLongTablePtr;
+  {$endif}
+  end;
+
+
+
+{ Working state while writing an MCU.
+  This struct contains all the fields that are needed by subroutines. }
+
+type
+  working_state = record
+    next_output_byte : JOCTETptr; { => next byte to write in buffer }
+    free_in_buffer : size_t;    { # of byte spaces remaining in buffer }
+    cur : savable_state;    { Current bit buffer & DC state }
+    cinfo : j_compress_ptr;   { dump_buffer needs access to this }
+  end;
+
+
+{ Forward declarations }
+{METHODDEF}
+function encode_mcu_huff (cinfo : j_compress_ptr;
+                          const MCU_data : array of JBLOCKROW) : boolean;
+                          forward;
+{METHODDEF}
+procedure finish_pass_huff (cinfo : j_compress_ptr); forward;
+{$ifdef ENTROPY_OPT_SUPPORTED}
+{METHODDEF}
+function encode_mcu_gather (cinfo : j_compress_ptr;
+                            const MCU_data: array of JBLOCKROW) : boolean;
+                            forward;
+
+{METHODDEF}
+procedure finish_pass_gather (cinfo : j_compress_ptr); forward;
+{$endif}
+
+
+{ Initialize for a Huffman-compressed scan.
+  If gather_statistics is TRUE, we do not output anything during the scan,
+  just count the Huffman symbols used and generate Huffman code tables. }
+
+{METHODDEF}
+procedure start_pass_huff (cinfo : j_compress_ptr;
+                           gather_statistics : boolean);
+var
+  entropy : huff_entropy_ptr;
+  ci, dctbl, actbl : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  if (gather_statistics) then
+  begin
+{$ifdef ENTROPY_OPT_SUPPORTED}
+    entropy^.pub.encode_mcu := encode_mcu_gather;
+    entropy^.pub.finish_pass := finish_pass_gather;
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+  end
+  else
+  begin
+    entropy^.pub.encode_mcu := encode_mcu_huff;
+    entropy^.pub.finish_pass := finish_pass_huff;
+  end;
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    dctbl := compptr^.dc_tbl_no;
+    actbl := compptr^.ac_tbl_no;
+    if (gather_statistics) then
+    begin
+{$ifdef ENTROPY_OPT_SUPPORTED}
+      { Check for invalid table indexes }
+      { (make_c_derived_tbl does this in the other path) }
+      if (dctbl < 0) or (dctbl >= NUM_HUFF_TBLS) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, dctbl);
+      if (actbl < 0) or (actbl >= NUM_HUFF_TBLS) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, actbl);
+      { Allocate and zero the statistics tables }
+      { Note that jpeg_gen_optimal_table expects 257 entries in each table! }
+      if (entropy^.dc_count_ptrs[dctbl] = NIL) then
+  entropy^.dc_count_ptrs[dctbl] := TLongTablePtr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+              257 * SIZEOF(long)) );
+      MEMZERO(entropy^.dc_count_ptrs[dctbl], 257 * SIZEOF(long));
+      if (entropy^.ac_count_ptrs[actbl] = NIL) then
+  entropy^.ac_count_ptrs[actbl] := TLongTablePtr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+              257 * SIZEOF(long)) );
+      MEMZERO(entropy^.ac_count_ptrs[actbl], 257 * SIZEOF(long));
+{$endif}
+    end
+    else
+    begin
+      { Compute derived values for Huffman tables }
+      { We may do this more than once for a table, but it's not expensive }
+      jpeg_make_c_derived_tbl(cinfo, TRUE, dctbl,
+            entropy^.dc_derived_tbls[dctbl]);
+      jpeg_make_c_derived_tbl(cinfo, FALSE, actbl,
+            entropy^.ac_derived_tbls[actbl]);
+    end;
+    { Initialize DC predictions to 0 }
+    entropy^.saved.last_dc_val[ci] := 0;
+  end;
+
+  { Initialize bit buffer to empty }
+  entropy^.saved.put_buffer := 0;
+  entropy^.saved.put_bits := 0;
+
+  { Initialize restart stuff }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+  entropy^.next_restart_num := 0;
+end;
+
+
+{ Compute the derived values for a Huffman table.
+  This routine also performs some validation checks on the table.
+
+  Note this is also used by jcphuff.c. }
+
+{GLOBAL}
+procedure jpeg_make_c_derived_tbl (cinfo : j_compress_ptr;
+                                   isDC : boolean;
+                                   tblno : int;
+                 var pdtbl : c_derived_tbl_ptr);
+var
+  htbl : JHUFF_TBL_PTR;
+  dtbl : c_derived_tbl_ptr;
+  p, i, l, lastp, si, maxsymbol : int;
+  huffsize : array[0..257-1] of byte;
+  huffcode : array[0..257-1] of uInt;
+  code : uInt;
+begin
+  { Note that huffsize[] and huffcode[] are filled in code-length order,
+    paralleling the order of the symbols themselves in htbl->huffval[]. }
+
+  { Find the input Huffman table }
+  if (tblno < 0) or (tblno >= NUM_HUFF_TBLS) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, tblno);
+  if isDC then
+    htbl := cinfo^.dc_huff_tbl_ptrs[tblno]
+  else
+    htbl := cinfo^.ac_huff_tbl_ptrs[tblno];
+  if (htbl = NIL) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, tblno);
+
+  { Allocate a workspace if we haven't already done so. }
+  if (pdtbl = NIL) then
+    pdtbl := c_derived_tbl_ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(c_derived_tbl)) );
+  dtbl := pdtbl;
+
+  { Figure C.1: make table of Huffman code length for each symbol }
+
+  p := 0;
+  for l := 1 to 16 do
+  begin
+    i := int(htbl^.bits[l]);
+    if (i < 0) and (p + i > 256) then { protect against table overrun }
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+    while (i > 0) do
+    begin
+      huffsize[p] := byte(l);
+      Inc(p);
+      Dec(i);
+    end;
+  end;
+  huffsize[p] := 0;
+  lastp := p;
+
+  { Figure C.2: generate the codes themselves }
+  { We also validate that the counts represent a legal Huffman code tree. }
+
+  code := 0;
+  si := huffsize[0];
+  p := 0;
+  while (huffsize[p] <> 0) do
+  begin
+    while (( int(huffsize[p]) ) = si) do
+    begin
+      huffcode[p] := code;
+      Inc(p);
+      Inc(code);
+    end;
+    { code is now 1 more than the last code used for codelength si; but
+      it must still fit in si bits, since no code is allowed to be all ones. }
+
+    if (INT32(code) >= (INT32(1) shl si)) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+    code := code shl 1;
+    Inc(si);
+  end;
+
+  { Figure C.3: generate encoding tables }
+  { These are code and size indexed by symbol value }
+
+  { Set all codeless symbols to have code length 0;
+    this lets us detect duplicate VAL entries here, and later
+    allows emit_bits to detect any attempt to emit such symbols. }
+
+  MEMZERO(@dtbl^.ehufsi, SIZEOF(dtbl^.ehufsi));
+
+  { This is also a convenient place to check for out-of-range
+    and duplicated VAL entries.  We allow 0..255 for AC symbols
+    but only 0..15 for DC.  (We could constrain them further
+    based on data depth and mode, but this seems enough.) }
+
+  if isDC then
+    maxsymbol := 15
+  else
+    maxsymbol := 255;
+
+  for p := 0 to pred(lastp) do
+  begin
+    i := htbl^.huffval[p];
+    if (i < 0) or (i > maxsymbol) or (dtbl^.ehufsi[i] <> 0) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+    dtbl^.ehufco[i] := huffcode[p];
+    dtbl^.ehufsi[i] := huffsize[p];
+  end;
+end;
+
+
+{ Outputting bytes to the file }
+
+
+{LOCAL}
+function dump_buffer (var state : working_state) : boolean;
+{ Empty the output buffer; return TRUE if successful, FALSE if must suspend }
+var
+  dest : jpeg_destination_mgr_ptr;
+begin
+  dest := state.cinfo^.dest;
+
+  if (not dest^.empty_output_buffer (state.cinfo)) then
+  begin
+    dump_buffer := FALSE;
+    exit;
+  end;
+  { After a successful buffer dump, must reset buffer pointers }
+  state.next_output_byte := dest^.next_output_byte;
+  state.free_in_buffer := dest^.free_in_buffer;
+  dump_buffer := TRUE;
+end;
+
+
+{ Outputting bits to the file }
+
+{ Only the right 24 bits of put_buffer are used; the valid bits are
+  left-justified in this part.  At most 16 bits can be passed to emit_bits
+  in one call, and we never retain more than 7 bits in put_buffer
+  between calls, so 24 bits are sufficient. }
+
+
+{LOCAL}
+function emit_bits (var state : working_state;
+                    code : uInt;
+                    size : int) : boolean;  {INLINE}
+{ Emit some bits; return TRUE if successful, FALSE if must suspend }
+var
+  { This routine is heavily used, so it's worth coding tightly. }
+  {register} put_buffer : INT32;
+  {register} put_bits : int;
+var
+  c : int;
+begin
+  put_buffer := INT32 (code);
+  put_bits := state.cur.put_bits;
+
+  { if size is 0, caller used an invalid Huffman table entry }
+  if (size = 0) then
+    ERREXIT(j_common_ptr(state.cinfo), JERR_HUFF_MISSING_CODE);
+
+  put_buffer := put_buffer and pred(INT32(1) shl size);
+                { mask off any extra bits in code }
+
+  Inc(put_bits, size);          { new number of bits in buffer }
+
+  put_buffer := put_buffer shl (24 - put_bits);
+                                { align incoming bits }
+  put_buffer := put_buffer or state.cur.put_buffer;
+                                { and merge with old buffer contents }
+  while (put_bits >= 8) do
+  begin
+    c := int ((put_buffer shr 16) and $FF);
+
+    {emit_byte(state, c, return FALSE);}
+    { Emit a byte, return FALSE if must suspend. }
+    state.next_output_byte^ := JOCTET (c);
+    Inc(state.next_output_byte);
+    Dec(state.free_in_buffer);
+    if (state.free_in_buffer = 0) then
+      if not dump_buffer(state) then
+      begin
+        emit_bits := FALSE;
+        exit;
+      end;
+
+    if (c = $FF) then          { need to stuff a zero byte? }
+    begin
+      {emit_byte(state, 0, return FALSE);}
+      state.next_output_byte^ := JOCTET (0);
+      Inc(state.next_output_byte);
+      Dec(state.free_in_buffer);
+      if (state.free_in_buffer = 0) then
+  if not dump_buffer(state) then
+  begin
+          emit_bits := FALSE;
+          exit;
+        end;
+
+    end;
+    put_buffer := put_buffer shl 8;
+    Dec(put_bits, 8);
+  end;
+
+  state.cur.put_buffer := put_buffer; { update state variables }
+  state.cur.put_bits := put_bits;
+
+  emit_bits := TRUE;
+end;
+
+
+{LOCAL}
+function flush_bits (var state : working_state) : boolean;
+begin
+  if (not emit_bits(state, $7F, 7)) then { fill any partial byte with ones }
+  begin
+    flush_bits := FALSE;
+    exit;
+  end;
+  state.cur.put_buffer := 0;  { and reset bit-buffer to empty }
+  state.cur.put_bits := 0;
+  flush_bits := TRUE;
+end;
+
+
+{ Encode a single block's worth of coefficients }
+
+{LOCAL}
+function encode_one_block (var state : working_state;
+                           const block : JBLOCK;
+                           last_dc_val : int;
+                           dctbl : c_derived_tbl_ptr;
+                           actbl : c_derived_tbl_ptr) : boolean;
+var
+  {register} temp, temp2 : int;
+  {register} nbits : int;
+  {register} k, r, i : int;
+begin
+  { Encode the DC coefficient difference per section F.1.2.1 }
+
+  temp2 := block[0] - last_dc_val;
+  temp := temp2;
+
+  if (temp < 0) then
+  begin
+    temp := -temp;    { temp is abs value of input }
+    { For a negative input, want temp2 := bitwise complement of abs(input) }
+    { This code assumes we are on a two's complement machine }
+    Dec(temp2);
+  end;
+
+  { Find the number of bits needed for the magnitude of the coefficient }
+  nbits := 0;
+  while (temp <> 0) do
+  begin
+    Inc(nbits);
+    temp := temp shr 1;
+  end;
+
+  { Check for out-of-range coefficient values.
+    Since we're encoding a difference, the range limit is twice as much. }
+
+  if (nbits > MAX_COEF_BITS+1) then
+    ERREXIT(j_common_ptr(state.cinfo), JERR_BAD_DCT_COEF);
+
+  { Emit the Huffman-coded symbol for the number of bits }
+  if not emit_bits(state, dctbl^.ehufco[nbits], dctbl^.ehufsi[nbits]) then
+  begin
+    encode_one_block := FALSE;
+    exit;
+  end;
+
+  { Emit that number of bits of the value, if positive, }
+  { or the complement of its magnitude, if negative. }
+  if (nbits <> 0) then              { emit_bits rejects calls with size 0 }
+    if not emit_bits(state, uInt(temp2), nbits) then
+    begin
+      encode_one_block := FALSE;
+      exit;
+    end;
+
+  { Encode the AC coefficients per section F.1.2.2 }
+
+  r := 0;     { r := run length of zeros }
+
+  for k := 1 to pred(DCTSIZE2) do
+  begin
+    temp := block[jpeg_natural_order[k]];
+    if (temp = 0) then
+    begin
+      Inc(r);
+    end
+    else
+    begin
+      { if run length > 15, must emit special run-length-16 codes ($F0) }
+      while (r > 15) do
+      begin
+  if not emit_bits(state, actbl^.ehufco[$F0], actbl^.ehufsi[$F0]) then
+        begin
+          encode_one_block := FALSE;
+          exit;
+        end;
+  Dec(r, 16);
+      end;
+
+      temp2 := temp;
+      if (temp < 0) then
+      begin
+  temp := -temp;    { temp is abs value of input }
+  { This code assumes we are on a two's complement machine }
+  Dec(temp2);
+      end;
+
+      { Find the number of bits needed for the magnitude of the coefficient }
+      nbits := 0;   { there must be at least one 1 bit }
+      repeat
+  Inc(nbits);
+        temp := temp shr 1;
+      until (temp = 0);
+
+      { Check for out-of-range coefficient values }
+      if (nbits > MAX_COEF_BITS) then
+  ERREXIT(j_common_ptr(state.cinfo), JERR_BAD_DCT_COEF);
+
+      { Emit Huffman symbol for run length / number of bits }
+      i := (r shl 4) + nbits;
+      if not emit_bits(state, actbl^.ehufco[i], actbl^.ehufsi[i]) then
+      begin
+        encode_one_block := FALSE;
+        exit;
+      end;
+
+      { Emit that number of bits of the value, if positive, }
+      { or the complement of its magnitude, if negative. }
+      if not emit_bits(state, uInt(temp2), nbits) then
+      begin
+        encode_one_block := FALSE;
+        exit;
+      end;
+
+      r := 0;
+    end;
+  end;
+
+  { If the last coef(s) were zero, emit an end-of-block code }
+  if (r > 0) then
+    if not emit_bits(state, actbl^.ehufco[0], actbl^.ehufsi[0]) then
+    begin
+      encode_one_block := FALSE;
+      exit;
+    end;
+
+  encode_one_block := TRUE;
+end;
+
+
+{ Emit a restart marker & resynchronize predictions. }
+
+{LOCAL}
+function emit_restart (var state : working_state;
+                       restart_num : int) : boolean;
+var
+  ci : int;
+begin
+  if (not flush_bits(state)) then
+  begin
+    emit_restart  := FALSE;
+    exit;
+  end;
+
+  {emit_byte(state, $FF, return FALSE);}
+  { Emit a byte, return FALSE if must suspend. }
+  state.next_output_byte^ := JOCTET ($FF);
+  Inc(state.next_output_byte);
+  Dec(state.free_in_buffer);
+  if (state.free_in_buffer = 0) then
+    if not dump_buffer(state) then
+    begin
+      emit_restart := FALSE;
+      exit;
+    end;
+
+  {emit_byte(state, JPEG_RST0 + restart_num, return FALSE);}
+  { Emit a byte, return FALSE if must suspend. }
+  state.next_output_byte^ := JOCTET (JPEG_RST0 + restart_num);
+  Inc(state.next_output_byte);
+  Dec(state.free_in_buffer);
+  if (state.free_in_buffer = 0) then
+    if not dump_buffer(state) then
+    begin
+      emit_restart := FALSE;
+      exit;
+    end;
+
+  { Re-initialize DC predictions to 0 }
+  for ci := 0 to pred(state.cinfo^.comps_in_scan) do
+    state.cur.last_dc_val[ci] := 0;
+
+  { The restart counter is not updated until we successfully write the MCU. }
+
+  emit_restart := TRUE;
+end;
+
+
+{ Encode and output one MCU's worth of Huffman-compressed coefficients. }
+
+{METHODDEF}
+function encode_mcu_huff (cinfo : j_compress_ptr;
+                          const MCU_data: array of JBLOCKROW) : boolean;
+var
+  entropy : huff_entropy_ptr;
+  state : working_state;
+  blkn, ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+  { Load up working state }
+  state.next_output_byte := cinfo^.dest^.next_output_byte;
+  state.free_in_buffer := cinfo^.dest^.free_in_buffer;
+  {ASSIGN_STATE(state.cur, entropy^.saved);}
+  state.cur := entropy^.saved;
+  state.cinfo := cinfo;
+
+  { Emit restart marker if needed }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if not emit_restart(state, entropy^.next_restart_num) then
+      begin
+  encode_mcu_huff := FALSE;
+        exit;
+      end;
+  end;
+
+  { Encode the MCU data blocks }
+  for blkn := 0  to pred(cinfo^.blocks_in_MCU) do
+  begin
+    ci := cinfo^.MCU_membership[blkn];
+    compptr := cinfo^.cur_comp_info[ci];
+    if not encode_one_block(state,
+                            MCU_data[blkn]^[0],
+                            state.cur.last_dc_val[ci],
+                            entropy^.dc_derived_tbls[compptr^.dc_tbl_no],
+                            entropy^.ac_derived_tbls[compptr^.ac_tbl_no]) then
+    begin
+      encode_mcu_huff := FALSE;
+      exit;
+    end;
+    { Update last_dc_val }
+    state.cur.last_dc_val[ci] := MCU_data[blkn]^[0][0];
+  end;
+
+  { Completed MCU, so update state }
+  cinfo^.dest^.next_output_byte := state.next_output_byte;
+  cinfo^.dest^.free_in_buffer := state.free_in_buffer;
+  {ASSIGN_STATE(entropy^.saved, state.cur);}
+  entropy^.saved := state.cur;
+
+  { Update restart-interval state too }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+      Inc(entropy^.next_restart_num);
+      with entropy^ do
+        next_restart_num := next_restart_num and 7;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  encode_mcu_huff := TRUE;
+end;
+
+
+{ Finish up at the end of a Huffman-compressed scan. }
+
+{METHODDEF}
+procedure finish_pass_huff (cinfo : j_compress_ptr);
+var
+  entropy : huff_entropy_ptr;
+  state : working_state;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  { Load up working state ... flush_bits needs it }
+  state.next_output_byte := cinfo^.dest^.next_output_byte;
+  state.free_in_buffer := cinfo^.dest^.free_in_buffer;
+  {ASSIGN_STATE(state.cur, entropy^.saved);}
+  state.cur := entropy^.saved;
+  state.cinfo := cinfo;
+
+  { Flush out the last data }
+  if not flush_bits(state) then
+    ERREXIT(j_common_ptr(cinfo), JERR_CANT_SUSPEND);
+
+  { Update state }
+  cinfo^.dest^.next_output_byte := state.next_output_byte;
+  cinfo^.dest^.free_in_buffer := state.free_in_buffer;
+  {ASSIGN_STATE(entropy^.saved, state.cur);}
+  entropy^.saved := state.cur;
+end;
+
+
+{ Huffman coding optimization.
+
+  We first scan the supplied data and count the number of uses of each symbol
+  that is to be Huffman-coded. (This process MUST agree with the code above.)
+  Then we build a Huffman coding tree for the observed counts.
+  Symbols which are not needed at all for the particular image are not
+  assigned any code, which saves space in the DHT marker as well as in
+  the compressed data. }
+
+{$ifdef ENTROPY_OPT_SUPPORTED}
+
+
+{ Process a single block's worth of coefficients }
+
+{LOCAL}
+procedure htest_one_block (cinfo : j_compress_ptr;
+                           const block : JBLOCK;
+                           last_dc_val : int;
+               dc_counts : TLongTablePtr;
+                           ac_counts : TLongTablePtr);
+
+var
+  {register} temp : int;
+  {register} nbits : int;
+  {register} k, r : int;
+begin
+  { Encode the DC coefficient difference per section F.1.2.1 }
+  temp := block[0] - last_dc_val;
+  if (temp < 0) then
+    temp := -temp;
+
+  { Find the number of bits needed for the magnitude of the coefficient }
+  nbits := 0;
+  while (temp <> 0) do
+  begin
+    Inc(nbits);
+    temp := temp shr 1;
+  end;
+
+  { Check for out-of-range coefficient values.
+    Since we're encoding a difference, the range limit is twice as much. }
+
+  if (nbits > MAX_COEF_BITS+1) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_DCT_COEF);
+
+  { Count the Huffman symbol for the number of bits }
+  Inc(dc_counts^[nbits]);
+
+  { Encode the AC coefficients per section F.1.2.2 }
+
+  r := 0;     { r := run length of zeros }
+
+  for k := 1 to pred(DCTSIZE2) do
+  begin
+    temp := block[jpeg_natural_order[k]];
+    if (temp = 0) then
+    begin
+      Inc(r);
+    end
+    else
+    begin
+      { if run length > 15, must emit special run-length-16 codes ($F0) }
+      while (r > 15) do
+      begin
+  Inc(ac_counts^[$F0]);
+  Dec(r, 16);
+      end;
+
+      { Find the number of bits needed for the magnitude of the coefficient }
+      if (temp < 0) then
+  temp := -temp;
+
+      { Find the number of bits needed for the magnitude of the coefficient }
+      nbits := 0;   { there must be at least one 1 bit }
+      repeat
+        Inc(nbits);
+        temp := temp shr 1;
+      until (temp = 0);
+
+
+      { Count Huffman symbol for run length / number of bits }
+      Inc(ac_counts^[(r shl 4) + nbits]);
+
+      r := 0;
+    end;
+  end;
+
+  { If the last coef(s) were zero, emit an end-of-block code }
+  if (r > 0) then
+    Inc(ac_counts^[0]);
+end;
+
+
+{ Trial-encode one MCU's worth of Huffman-compressed coefficients.
+  No data is actually output, so no suspension return is possible. }
+
+{METHODDEF}
+function encode_mcu_gather (cinfo : j_compress_ptr;
+                           const MCU_data: array of JBLOCKROW) : boolean;
+var
+  entropy : huff_entropy_ptr;
+  blkn, ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+  { Take care of restart intervals if needed }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      { Re-initialize DC predictions to 0 }
+      for ci := 0 to pred(cinfo^.comps_in_scan) do
+  entropy^.saved.last_dc_val[ci] := 0;
+      { Update restart state }
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+  begin
+    ci := cinfo^.MCU_membership[blkn];
+    compptr := cinfo^.cur_comp_info[ci];
+    htest_one_block(cinfo, MCU_data[blkn]^[0],
+                    entropy^.saved.last_dc_val[ci],
+                    entropy^.dc_count_ptrs[compptr^.dc_tbl_no],
+        entropy^.ac_count_ptrs[compptr^.ac_tbl_no]);
+    entropy^.saved.last_dc_val[ci] := MCU_data[blkn]^[0][0];
+  end;
+
+  encode_mcu_gather := TRUE;
+end;
+
+
+{ Generate the best Huffman code table for the given counts, fill htbl.
+  Note this is also used by jcphuff.c.
+
+  The JPEG standard requires that no symbol be assigned a codeword of all
+  one bits (so that padding bits added at the end of a compressed segment
+  can't look like a valid code).  Because of the canonical ordering of
+  codewords, this just means that there must be an unused slot in the
+  longest codeword length category.  Section K.2 of the JPEG spec suggests
+  reserving such a slot by pretending that symbol 256 is a valid symbol
+  with count 1.  In theory that's not optimal; giving it count zero but
+  including it in the symbol set anyway should give a better Huffman code.
+  But the theoretically better code actually seems to come out worse in
+  practice, because it produces more all-ones bytes (which incur stuffed
+  zero bytes in the final file).  In any case the difference is tiny.
+
+  The JPEG standard requires Huffman codes to be no more than 16 bits long.
+  If some symbols have a very small but nonzero probability, the Huffman tree
+  must be adjusted to meet the code length restriction.  We currently use
+  the adjustment method suggested in JPEG section K.2.  This method is *not*
+  optimal; it may not choose the best possible limited-length code.  But
+  typically only very-low-frequency symbols will be given less-than-optimal
+  lengths, so the code is almost optimal.  Experimental comparisons against
+  an optimal limited-length-code algorithm indicate that the difference is
+  microscopic --- usually less than a hundredth of a percent of total size.
+  So the extra complexity of an optimal algorithm doesn't seem worthwhile. }
+
+
+{GLOBAL}
+procedure jpeg_gen_optimal_table (cinfo : j_compress_ptr;
+                                  htbl : JHUFF_TBL_PTR;
+                                  var freq : TLongTable);
+const
+  MAX_CLEN = 32;    { assumed maximum initial code length }
+var
+  bits : array[0..MAX_CLEN+1-1] of UINT8;  { bits[k] := # of symbols with code length k }
+  codesize : array[0..257-1] of int;       { codesize[k] := code length of symbol k }
+  others : array[0..257-1] of int;         { next symbol in current branch of tree }
+  c1, c2 : int;
+  p, i, j : int;
+  v : long;
+begin
+  { This algorithm is explained in section K.2 of the JPEG standard }
+
+  MEMZERO(@bits, SIZEOF(bits));
+  MEMZERO(@codesize, SIZEOF(codesize));
+  for i := 0 to 256 do
+    others[i] := -1;    { init links to empty }
+
+  freq[256] := 1;   { make sure 256 has a nonzero count }
+  { Including the pseudo-symbol 256 in the Huffman procedure guarantees
+    that no real symbol is given code-value of all ones, because 256
+    will be placed last in the largest codeword category. }
+
+  { Huffman's basic algorithm to assign optimal code lengths to symbols }
+
+  while TRUE do
+  begin
+    { Find the smallest nonzero frequency, set c1 := its symbol }
+    { In case of ties, take the larger symbol number }
+    c1 := -1;
+    v := long(1000000000);
+    for i := 0 to 256 do
+    begin
+      if (freq[i] <> 0) and (freq[i] <= v) then
+      begin
+        v := freq[i];
+        c1 := i;
+      end;
+    end;
+
+    { Find the next smallest nonzero frequency, set c2 := its symbol }
+    { In case of ties, take the larger symbol number }
+    c2 := -1;
+    v := long(1000000000);
+    for i := 0 to 256 do
+    begin
+      if (freq[i] <> 0) and (freq[i] <= v) and (i <> c1) then
+      begin
+        v := freq[i];
+        c2 := i;
+      end;
+    end;
+
+    { Done if we've merged everything into one frequency }
+    if (c2 < 0) then
+      break;
+
+    { Else merge the two counts/trees }
+    Inc(freq[c1], freq[c2]);
+    freq[c2] := 0;
+
+    { Increment the codesize of everything in c1's tree branch }
+    Inc(codesize[c1]);
+    while (others[c1] >= 0) do
+    begin
+      c1 := others[c1];
+      Inc(codesize[c1]);
+    end;
+
+    others[c1] := c2;   { chain c2 onto c1's tree branch }
+
+    { Increment the codesize of everything in c2's tree branch }
+    Inc(codesize[c2]);
+    while (others[c2] >= 0) do
+    begin
+      c2 := others[c2];
+      Inc(codesize[c2]);
+    end;
+  end;
+
+  { Now count the number of symbols of each code length }
+  for i := 0 to 256 do
+  begin
+    if (codesize[i]<>0) then
+    begin
+      { The JPEG standard seems to think that this can't happen, }
+      { but I'm paranoid... }
+      if (codesize[i] > MAX_CLEN) then
+  ERREXIT(j_common_ptr(cinfo), JERR_HUFF_CLEN_OVERFLOW);
+
+      Inc(bits[codesize[i]]);
+    end;
+  end;
+
+  { JPEG doesn't allow symbols with code lengths over 16 bits, so if the pure
+    Huffman procedure assigned any such lengths, we must adjust the coding.
+    Here is what the JPEG spec says about how this next bit works:
+    Since symbols are paired for the longest Huffman code, the symbols are
+    removed from this length category two at a time.  The prefix for the pair
+    (which is one bit shorter) is allocated to one of the pair; then,
+    skipping the BITS entry for that prefix length, a code word from the next
+    shortest nonzero BITS entry is converted into a prefix for two code words
+    one bit longer.  }
+
+  for i := MAX_CLEN downto 17 do
+  begin
+    while (bits[i] > 0) do
+    begin
+      j := i - 2;               { find length of new prefix to be used }
+      while (bits[j] = 0) do
+        Dec(j);
+
+      Dec(bits[i], 2);          { remove two symbols }
+      Inc(bits[i-1]);           { one goes in this length }
+      Inc(bits[j+1], 2);        { two new symbols in this length }
+      Dec(bits[j]);   { symbol of this length is now a prefix }
+    end;
+  end;
+
+  { Delphi 2: FOR-loop variable 'i' may be undefined after loop }
+  i := 16;                      { Nomssi: work around }
+
+  { Remove the count for the pseudo-symbol 256 from the largest codelength }
+  while (bits[i] = 0) do        { find largest codelength still in use }
+    Dec(i);
+  Dec(bits[i]);
+
+  { Return final symbol counts (only for lengths 0..16) }
+  MEMCOPY(@htbl^.bits, @bits, SIZEOF(htbl^.bits));
+
+  { Return a list of the symbols sorted by code length }
+  { It's not real clear to me why we don't need to consider the codelength
+    changes made above, but the JPEG spec seems to think this works. }
+
+  p := 0;
+  for i := 1 to MAX_CLEN do
+  begin
+    for j := 0 to 255 do
+    begin
+      if (codesize[j] = i) then
+      begin
+  htbl^.huffval[p] := UINT8 (j);
+  Inc(p);
+      end;
+    end;
+  end;
+
+  { Set sent_table FALSE so updated table will be written to JPEG file. }
+  htbl^.sent_table := FALSE;
+end;
+
+
+{ Finish up a statistics-gathering pass and create the new Huffman tables. }
+
+{METHODDEF}
+procedure finish_pass_gather (cinfo : j_compress_ptr);
+var
+  entropy : huff_entropy_ptr;
+  ci, dctbl, actbl : int;
+  compptr : jpeg_component_info_ptr;
+  htblptr : ^JHUFF_TBL_PTR;
+  did_dc : array[0..NUM_HUFF_TBLS-1] of boolean;
+  did_ac : array[0..NUM_HUFF_TBLS-1] of boolean;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  { It's important not to apply jpeg_gen_optimal_table more than once
+    per table, because it clobbers the input frequency counts! }
+
+  MEMZERO(@did_dc, SIZEOF(did_dc));
+  MEMZERO(@did_ac, SIZEOF(did_ac));
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    dctbl := compptr^.dc_tbl_no;
+    actbl := compptr^.ac_tbl_no;
+    if (not did_dc[dctbl]) then
+    begin
+      htblptr := @(cinfo^.dc_huff_tbl_ptrs[dctbl]);
+      if ( htblptr^ = NIL) then
+  htblptr^ := jpeg_alloc_huff_table(j_common_ptr(cinfo));
+      jpeg_gen_optimal_table(cinfo, htblptr^, entropy^.dc_count_ptrs[dctbl]^);
+      did_dc[dctbl] := TRUE;
+    end;
+    if (not did_ac[actbl]) then
+    begin
+      htblptr := @(cinfo^.ac_huff_tbl_ptrs[actbl]);
+      if ( htblptr^ = NIL) then
+  htblptr^ := jpeg_alloc_huff_table(j_common_ptr(cinfo));
+      jpeg_gen_optimal_table(cinfo, htblptr^, entropy^.ac_count_ptrs[actbl]^);
+      did_ac[actbl] := TRUE;
+    end;
+  end;
+end;
+
+{$endif} { ENTROPY_OPT_SUPPORTED }
+
+
+{ Module initialization routine for Huffman entropy encoding. }
+
+{GLOBAL}
+procedure jinit_huff_encoder (cinfo : j_compress_ptr);
+var
+  entropy : huff_entropy_ptr;
+  i : int;
+begin
+  entropy := huff_entropy_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(huff_entropy_encoder)) );
+  cinfo^.entropy := jpeg_entropy_encoder_ptr (entropy);
+  entropy^.pub.start_pass := start_pass_huff;
+
+  { Mark tables unallocated }
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    entropy^.ac_derived_tbls[i] := NIL;
+    entropy^.dc_derived_tbls[i] := NIL;
+{$ifdef ENTROPY_OPT_SUPPORTED}
+    entropy^.ac_count_ptrs[i] := NIL;
+    entropy^.dc_count_ptrs[i] := NIL;
+{$endif}
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcinit.pas b/src/lib/vampimg/JpegLib/imjcinit.pas

new file mode 100644 (file)

index 0000000..9adaee6
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcinit.pas
@@ -0,0 +1,95 @@
+unit imjcinit;
+
+{ Original: jcinit.c ;  Copyright (C) 1991-1997, Thomas G. Lane. }
+
+{ This file contains initialization logic for the JPEG compressor.
+  This routine is in charge of selecting the modules to be executed and
+  making an initialization call to each one.
+
+  Logically, this code belongs in jcmaster.c.  It's split out because
+  linking this routine implies linking the entire compression library.
+  For a transcoding-only application, we want to be able to use jcmaster.c
+  without linking in the whole library. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+  imjcphuff,
+{$endif}
+  imjchuff, imjcmaster, imjccolor, imjcsample, imjcprepct,
+  imjcdctmgr, imjccoefct, imjcmainct, imjcmarker;
+
+{ Master selection of compression modules.
+  This is done once at the start of processing an image.  We determine
+  which modules will be used and give them appropriate initialization calls. }
+
+{GLOBAL}
+procedure jinit_compress_master (cinfo : j_compress_ptr);
+
+implementation
+
+
+
+{ Master selection of compression modules.
+  This is done once at the start of processing an image.  We determine
+  which modules will be used and give them appropriate initialization calls. }
+
+{GLOBAL}
+procedure jinit_compress_master (cinfo : j_compress_ptr);
+begin
+  { Initialize master control (includes parameter checking/processing) }
+  jinit_c_master_control(cinfo, FALSE { full compression });
+
+  { Preprocessing }
+  if (not cinfo^.raw_data_in) then
+  begin
+    jinit_color_converter(cinfo);
+    jinit_downsampler(cinfo);
+    jinit_c_prep_controller(cinfo, FALSE { never need full buffer here });
+  end;
+  { Forward DCT }
+  jinit_forward_dct(cinfo);
+  { Entropy encoding: either Huffman or arithmetic coding. }
+  if (cinfo^.arith_code) then
+  begin
+    ERREXIT(j_common_ptr(cinfo), JERR_ARITH_NOTIMPL);
+  end
+  else
+  begin
+    if (cinfo^.progressive_mode) then
+    begin
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+      jinit_phuff_encoder(cinfo);
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+    end
+    else
+      jinit_huff_encoder(cinfo);
+  end;
+
+  { Need a full-image coefficient buffer in any multi-pass mode. }
+  jinit_c_coef_controller(cinfo,
+        (cinfo^.num_scans > 1) or (cinfo^.optimize_coding));
+  jinit_c_main_controller(cinfo, FALSE { never need full buffer here });
+
+  jinit_marker_writer(cinfo);
+
+  { We can now tell the memory manager to allocate virtual arrays. }
+  cinfo^.mem^.realize_virt_arrays (j_common_ptr(cinfo));
+
+  { Write the datastream header (SOI) immediately.
+    Frame and scan headers are postponed till later.
+    This lets application insert special markers after the SOI. }
+
+  cinfo^.marker^.write_file_header (cinfo);
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcmainct.pas b/src/lib/vampimg/JpegLib/imjcmainct.pas

new file mode 100644 (file)

index 0000000..983ac83
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcmainct.pas
@@ -0,0 +1,343 @@
+unit imjcmainct;
+
+{ This file contains the main buffer controller for compression.
+  The main buffer lies between the pre-processor and the JPEG
+  compressor proper; it holds downsampled data in the JPEG colorspace. }
+
+{ Original : jcmainct.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+{ Note: currently, there is no operating mode in which a full-image buffer
+  is needed at this step.  If there were, that mode could not be used with
+  "raw data" input, since this module is bypassed in that case.  However,
+  we've left the code here for possible use in special applications. }
+
+{$undef FULL_MAIN_BUFFER_SUPPORTED}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+  imjutils,
+{$endif}
+  imjpeglib;
+
+{ Initialize main buffer controller. }
+
+{GLOBAL}
+procedure jinit_c_main_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+
+implementation
+
+
+{ Private buffer controller object }
+
+type
+  my_main_ptr = ^my_main_controller;
+  my_main_controller = record
+    pub : jpeg_c_main_controller; { public fields }
+
+    cur_iMCU_row : JDIMENSION;  { number of current iMCU row }
+    rowgroup_ctr : JDIMENSION;  { counts row groups received in iMCU row }
+    suspended : boolean;    { remember if we suspended output }
+    pass_mode : J_BUF_MODE;   { current operating mode }
+
+    { If using just a strip buffer, this points to the entire set of buffers
+      (we allocate one for each component).  In the full-image case, this
+      points to the currently accessible strips of the virtual arrays. }
+
+    buffer : array[0..MAX_COMPONENTS-1] of JSAMPARRAY;
+
+  {$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+    { If using full-image storage, this array holds pointers to virtual-array
+      control blocks for each component.  Unused if not full-image storage. }
+
+    whole_image : array[0..MAX_COMPONENTS-1] of jvirt_sarray_ptr;
+  {$endif}
+  end; {my_main_controller}
+
+
+{ Forward declarations }
+{METHODDEF}
+procedure process_data_simple_main(cinfo : j_compress_ptr;
+                                   input_buf : JSAMPARRAY;
+                                   var in_row_ctr: JDIMENSION;
+                                   in_rows_avail : JDIMENSION); forward;
+
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+{METHODDEF}
+procedure process_data_buffer_main(cinfo : j_compress_ptr;
+                                   input_buf : JSAMPARRAY;
+                                   var in_row_ctr : JDIMENSION;
+                                   in_rows_avail : JDIMENSION); forward;
+{$endif}
+
+
+{ Initialize for a processing pass. }
+
+{METHODDEF}
+procedure start_pass_main (cinfo : j_compress_ptr;
+                           pass_mode : J_BUF_MODE);
+var
+  main : my_main_ptr;
+begin
+  main := my_main_ptr (cinfo^.main);
+
+  { Do nothing in raw-data mode. }
+  if (cinfo^.raw_data_in) then
+    exit;
+
+  main^.cur_iMCU_row := 0;  { initialize counters }
+  main^.rowgroup_ctr := 0;
+  main^.suspended := FALSE;
+  main^.pass_mode := pass_mode; { save mode for use by process_data }
+
+  case (pass_mode) of
+  JBUF_PASS_THRU:
+    begin
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+      if (main^.whole_image[0] <> NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+{$endif}
+      main^.pub.process_data := process_data_simple_main;
+    end;
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+  JBUF_SAVE_SOURCE,
+  JBUF_CRANK_DEST,
+  JBUF_SAVE_AND_PASS:
+    begin
+      if (main^.whole_image[0] = NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      main^.pub.process_data := process_data_buffer_main;
+    end;
+{$endif}
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+  end;
+end;
+
+
+{ Process some data.
+  This routine handles the simple pass-through mode,
+  where we have only a strip buffer. }
+
+{METHODDEF}
+procedure process_data_simple_main (cinfo : j_compress_ptr;
+                  input_buf : JSAMPARRAY;
+                                    var in_row_ctr : JDIMENSION;
+                                    in_rows_avail : JDIMENSION);
+var
+  main : my_main_ptr;
+begin
+  main := my_main_ptr (cinfo^.main);
+
+  while (main^.cur_iMCU_row < cinfo^.total_iMCU_rows) do
+  begin
+    { Read input data if we haven't filled the main buffer yet }
+    if (main^.rowgroup_ctr < DCTSIZE) then
+      cinfo^.prep^.pre_process_data (cinfo,
+                                     input_buf,
+                                     in_row_ctr,
+                                     in_rows_avail,
+             JSAMPIMAGE(@main^.buffer),
+                                     main^.rowgroup_ctr,
+             JDIMENSION(DCTSIZE));
+
+    { If we don't have a full iMCU row buffered, return to application for
+      more data.  Note that preprocessor will always pad to fill the iMCU row
+      at the bottom of the image. }
+    if (main^.rowgroup_ctr <> DCTSIZE) then
+      exit;
+
+    { Send the completed row to the compressor }
+    if (not cinfo^.coef^.compress_data (cinfo, JSAMPIMAGE(@main^.buffer))) then
+    begin
+      { If compressor did not consume the whole row, then we must need to
+        suspend processing and return to the application.  In this situation
+        we pretend we didn't yet consume the last input row; otherwise, if
+        it happened to be the last row of the image, the application would
+        think we were done. }
+
+      if (not main^.suspended) then
+      begin
+  Dec(in_row_ctr);
+  main^.suspended := TRUE;
+      end;
+      exit;
+    end;
+    { We did finish the row.  Undo our little suspension hack if a previous
+      call suspended; then mark the main buffer empty. }
+
+    if (main^.suspended) then
+    begin
+      Inc(in_row_ctr);
+      main^.suspended := FALSE;
+    end;
+    main^.rowgroup_ctr := 0;
+    Inc(main^.cur_iMCU_row);
+  end;
+end;
+
+
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+
+{ Process some data.
+  This routine handles all of the modes that use a full-size buffer. }
+
+{METHODDEF}
+procedure process_data_buffer_main (cinfo : j_compress_ptr;
+                  input_buf : JSAMPARRAY;
+                                    var in_row_ctr : JDIMENSION;
+                  in_rows_avail : JDIMENSION);
+var
+  main : my_main_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  writing : boolean;
+begin
+  main := my_main_ptr (cinfo^.main);
+  writing := (main^.pass_mode <> JBUF_CRANK_DEST);
+
+  while (main^.cur_iMCU_row < cinfo^.total_iMCU_rows) do
+  begin
+    { Realign the virtual buffers if at the start of an iMCU row. }
+    if (main^.rowgroup_ctr = 0) then
+    begin
+      compptr := cinfo^.comp_info;
+      for ci := 0 to pred(cinfo^.num_components) do
+      begin
+  main^.buffer[ci] := cinfo^.mem^.access_virt_sarray
+    (j_common_ptr (cinfo), main^.whole_image[ci],
+     main^.cur_iMCU_row * (compptr^.v_samp_factor * DCTSIZE),
+     JDIMENSION (compptr^.v_samp_factor * DCTSIZE), writing);
+        Inc(compptr);
+      end;
+      { In a read pass, pretend we just read some source data. }
+      if (not writing) then
+      begin
+  Inc(in_row_ctr, cinfo^.max_v_samp_factor * DCTSIZE);
+  main^.rowgroup_ctr := DCTSIZE;
+      end;
+    end;
+
+    { If a write pass, read input data until the current iMCU row is full. }
+    { Note: preprocessor will pad if necessary to fill the last iMCU row. }
+    if (writing) then
+    begin
+      cinfo^.prep^.pre_process_data (cinfo,
+                                     input_buf, in_row_ctr, in_rows_avail,
+             JSAMPIMAGE(@main^.buffer),
+                                     main^.rowgroup_ctr,
+             JDIMENSION (DCTSIZE));
+
+      { Return to application if we need more data to fill the iMCU row. }
+      if (main^.rowgroup_ctr < DCTSIZE) then
+  exit;
+    end;
+
+    { Emit data, unless this is a sink-only pass. }
+    if (main^.pass_mode <> JBUF_SAVE_SOURCE) then
+    begin
+      if (not cinfo^.coef^.compress_data (cinfo,
+                                          JSAMPIMAGE(@main^.buffer))) then
+      begin
+  { If compressor did not consume the whole row, then we must need to
+    suspend processing and return to the application.  In this situation
+    we pretend we didn't yet consume the last input row; otherwise, if
+    it happened to be the last row of the image, the application would
+    think we were done. }
+
+  if (not main^.suspended) then
+        begin
+    Dec(in_row_ctr);
+    main^.suspended := TRUE;
+  end;
+  exit;
+      end;
+      { We did finish the row.  Undo our little suspension hack if a previous
+        call suspended; then mark the main buffer empty. }
+
+      if (main^.suspended) then
+      begin
+  Inc(in_row_ctr);
+  main^.suspended := FALSE;
+      end;
+    end;
+
+    { If get here, we are done with this iMCU row.  Mark buffer empty. }
+    main^.rowgroup_ctr := 0;
+    Inc(main^.cur_iMCU_row);
+  end;
+end;
+
+{$endif} { FULL_MAIN_BUFFER_SUPPORTED }
+
+
+{ Initialize main buffer controller. }
+
+{GLOBAL}
+procedure jinit_c_main_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+var
+  main : my_main_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  main := my_main_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_main_controller)) );
+  cinfo^.main := jpeg_c_main_controller_ptr(main);
+  main^.pub.start_pass := start_pass_main;
+
+  { We don't need to create a buffer in raw-data mode. }
+  if (cinfo^.raw_data_in) then
+    exit;
+
+  { Create the buffer.  It holds downsampled data, so each component
+    may be of a different size. }
+
+  if (need_full_buffer) then
+  begin
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+    { Allocate a full-image virtual array for each component }
+    { Note we pad the bottom to a multiple of the iMCU height }
+    compptr := cinfo^.comp_info;
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      main^.whole_image[ci] := cinfo^.mem^.request_virt_sarray
+  (j_common_ptr(cinfo), JPOOL_IMAGE, FALSE,
+   compptr^.width_in_blocks * DCTSIZE,
+   JDIMENSION (jround_up( long (compptr^.height_in_blocks),
+        long (compptr^.v_samp_factor)) * DCTSIZE),
+   JDIMENSION (compptr^.v_samp_factor * DCTSIZE));
+      Inc(compptr);
+    end;
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+{$endif}
+  end
+  else
+  begin
+{$ifdef FULL_MAIN_BUFFER_SUPPORTED}
+    main^.whole_image[0] := NIL; { flag for no virtual arrays }
+{$endif}
+    { Allocate a strip buffer for each component }
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      main^.buffer[ci] := cinfo^.mem^.alloc_sarray
+  (j_common_ptr(cinfo), JPOOL_IMAGE,
+   compptr^.width_in_blocks * DCTSIZE,
+   JDIMENSION (compptr^.v_samp_factor * DCTSIZE));
+      Inc(compptr);
+    end;
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcmarker.pas b/src/lib/vampimg/JpegLib/imjcmarker.pas

new file mode 100644 (file)

index 0000000..35463dc
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcmarker.pas
@@ -0,0 +1,724 @@
+unit imjcmarker;
+
+{ This file contains routines to write JPEG datastream markers. }
+
+{ Original: jcmarker.c; Copyright (C) 1991-1998, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjinclude, imjmorecfg, imjerror,
+  imjdeferr, imjpeglib, imjutils;
+
+
+const
+                { JPEG marker codes }
+  M_SOF0  = $c0;
+  M_SOF1  = $c1;
+  M_SOF2  = $c2;
+  M_SOF3  = $c3;
+
+  M_SOF5  = $c5;
+  M_SOF6  = $c6;
+  M_SOF7  = $c7;
+
+  M_JPG   = $c8;
+  M_SOF9  = $c9;
+  M_SOF10 = $ca;
+  M_SOF11 = $cb;
+
+  M_SOF13 = $cd;
+  M_SOF14 = $ce;
+  M_SOF15 = $cf;
+
+  M_DHT   = $c4;
+
+  M_DAC   = $cc;
+
+  M_RST0  = $d0;
+  M_RST1  = $d1;
+  M_RST2  = $d2;
+  M_RST3  = $d3;
+  M_RST4  = $d4;
+  M_RST5  = $d5;
+  M_RST6  = $d6;
+  M_RST7  = $d7;
+
+  M_SOI   = $d8;
+  M_EOI   = $d9;
+  M_SOS   = $da;
+  M_DQT   = $db;
+  M_DNL   = $dc;
+  M_DRI   = $dd;
+  M_DHP   = $de;
+  M_EXP   = $df;
+
+  M_APP0  = $e0;
+  M_APP1  = $e1;
+  M_APP2  = $e2;
+  M_APP3  = $e3;
+  M_APP4  = $e4;
+  M_APP5  = $e5;
+  M_APP6  = $e6;
+  M_APP7  = $e7;
+  M_APP8  = $e8;
+  M_APP9  = $e9;
+  M_APP10 = $ea;
+  M_APP11 = $eb;
+  M_APP12 = $ec;
+  M_APP13 = $ed;
+  M_APP14 = $ee;
+  M_APP15 = $ef;
+
+  M_JPG0  = $f0;
+  M_JPG13 = $fd;
+  M_COM   = $fe;
+
+  M_TEM   = $01;
+
+  M_ERROR = $100;
+
+type
+  JPEG_MARKER = Word;
+
+{ Private state }
+
+type
+  my_marker_ptr = ^my_marker_writer;
+  my_marker_writer = record
+    pub : jpeg_marker_writer; { public fields }
+
+    last_restart_interval : uint; { last DRI value emitted; 0 after SOI }
+  end;
+
+
+
+
+{GLOBAL}
+procedure jinit_marker_writer (cinfo : j_compress_ptr);
+
+implementation
+
+{ Basic output routines.
+
+  Note that we do not support suspension while writing a marker.
+  Therefore, an application using suspension must ensure that there is
+  enough buffer space for the initial markers (typ. 600-700 bytes) before
+  calling jpeg_start_compress, and enough space to write the trailing EOI
+  (a few bytes) before calling jpeg_finish_compress.  Multipass compression
+  modes are not supported at all with suspension, so those two are the only
+  points where markers will be written. }
+
+
+{LOCAL}
+procedure emit_byte (cinfo : j_compress_ptr; val : int);
+{ Emit a byte }
+var
+  dest : jpeg_destination_mgr_ptr;
+begin
+  dest := cinfo^.dest;
+
+  dest^.next_output_byte^ := JOCTET(val);
+  Inc(dest^.next_output_byte);
+
+  Dec(dest^.free_in_buffer);
+  if (dest^.free_in_buffer = 0) then
+  begin
+    if not dest^.empty_output_buffer(cinfo) then
+      ERREXIT(j_common_ptr(cinfo), JERR_CANT_SUSPEND);
+  end;
+end;
+
+
+{LOCAL}
+procedure emit_marker(cinfo : j_compress_ptr; mark : JPEG_MARKER);
+{ Emit a marker code }
+begin
+  emit_byte(cinfo, $FF);
+  emit_byte(cinfo, int(mark));
+end;
+
+
+{LOCAL}
+procedure emit_2bytes (cinfo : j_compress_ptr; value : int);
+{ Emit a 2-byte integer; these are always MSB first in JPEG files }
+begin
+  emit_byte(cinfo, (value shr 8) and $FF);
+  emit_byte(cinfo, value and $FF);
+end;
+
+
+{ Routines to write specific marker types. }
+
+{LOCAL}
+function emit_dqt (cinfo : j_compress_ptr; index : int) : int;
+{ Emit a DQT marker }
+{ Returns the precision used (0 = 8bits, 1 = 16bits) for baseline checking }
+var
+  qtbl : JQUANT_TBL_PTR;
+  prec : int;
+  i : int;
+var
+  qval : uint;
+begin
+  qtbl := cinfo^.quant_tbl_ptrs[index];
+  if (qtbl = NIL) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_QUANT_TABLE, index);
+
+  prec := 0;
+  for i := 0 to Pred(DCTSIZE2) do
+  begin
+    if (qtbl^.quantval[i] > 255) then
+      prec := 1;
+  end;
+
+  if not qtbl^.sent_table then
+  begin
+    emit_marker(cinfo, M_DQT);
+
+    if (prec <> 0) then
+      emit_2bytes(cinfo, DCTSIZE2*2 + 1 + 2)
+    else
+      emit_2bytes(cinfo, DCTSIZE2 + 1 + 2);
+
+    emit_byte(cinfo, index + (prec shl 4));
+
+    for i := 0 to Pred(DCTSIZE2) do
+    begin
+      { The table entries must be emitted in zigzag order. }
+      qval := qtbl^.quantval[jpeg_natural_order[i]];
+      if (prec <> 0) then
+  emit_byte(cinfo, int(qval shr 8));
+      emit_byte(cinfo, int(qval and $FF));
+    end;
+
+    qtbl^.sent_table := TRUE;
+  end;
+
+  emit_dqt := prec;
+end;
+
+
+{LOCAL}
+procedure emit_dht (cinfo : j_compress_ptr; index : int; is_ac : boolean);
+{ Emit a DHT marker }
+var
+  htbl : JHUFF_TBL_PTR;
+  length, i : int;
+begin
+  if (is_ac) then
+  begin
+    htbl := cinfo^.ac_huff_tbl_ptrs[index];
+    index := index + $10;                { output index has AC bit set }
+  end
+  else
+  begin
+    htbl := cinfo^.dc_huff_tbl_ptrs[index];
+  end;
+
+  if (htbl = NIL) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, index);
+
+  if not htbl^.sent_table then
+  begin
+    emit_marker(cinfo, M_DHT);
+
+    length := 0;
+    for i := 1 to 16 do
+      length := length + htbl^.bits[i];
+
+    emit_2bytes(cinfo, length + 2 + 1 + 16);
+    emit_byte(cinfo, index);
+
+    for i := 1 to 16 do
+      emit_byte(cinfo, htbl^.bits[i]);
+
+    for i := 0 to Pred(length) do
+      emit_byte(cinfo, htbl^.huffval[i]);
+
+    htbl^.sent_table := TRUE;
+  end;
+end;
+
+
+{LOCAL}
+procedure emit_dac (cinfo : j_compress_ptr);
+{ Emit a DAC marker }
+{ Since the useful info is so small, we want to emit all the tables in }
+{ one DAC marker.  Therefore this routine does its own scan of the table. }
+{$ifdef C_ARITH_CODING_SUPPORTED}
+var
+  dc_in_use : array[0..NUM_ARITH_TBLS] of byte;
+  ac_in_use : array[0..NUM_ARITH_TBLS] of byte;
+  length, i : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  for i := 0 to pred(NUM_ARITH_TBLS) do
+  begin
+    dc_in_use[i] := 0;
+    ac_in_use[i] := 0;
+  end;
+
+  for i := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[i];
+    dc_in_use[compptr^.dc_tbl_no] := 1;
+    ac_in_use[compptr^.ac_tbl_no] := 1;
+  end;
+
+  length := 0;
+  for i := 0 to pred(NUM_ARITH_TBLS) do
+    Inc(length, dc_in_use[i] + ac_in_use[i]);
+
+  emit_marker(cinfo, M_DAC);
+
+  emit_2bytes(cinfo, length*2 + 2);
+
+  for i := 0 to pred(NUM_ARITH_TBLS) do
+  begin
+    if (dc_in_use[i] <> 0) then
+    begin
+      emit_byte(cinfo, i);
+      emit_byte(cinfo, cinfo^.arith_dc_L[i] + (cinfo^.arith_dc_U[i] shl 4));
+    end;
+    if (ac_in_use[i] <> 0) then
+    begin
+      emit_byte(cinfo, i + $10);
+      emit_byte(cinfo, cinfo^.arith_ac_K[i]);
+    end;
+  end;
+end;
+{$else}
+begin
+end;
+{$endif}  {C_ARITH_CODING_SUPPORTED}
+
+
+{LOCAL}
+procedure emit_dri (cinfo : j_compress_ptr);
+{ Emit a DRI marker }
+begin
+  emit_marker(cinfo, M_DRI);
+
+  emit_2bytes(cinfo, 4);  { fixed length }
+
+  emit_2bytes(cinfo, int(cinfo^.restart_interval));
+end;
+
+
+{LOCAL}
+procedure emit_sof (cinfo : j_compress_ptr; code : JPEG_MARKER);
+{ Emit a SOF marker }
+var
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  emit_marker(cinfo, code);
+
+  emit_2bytes(cinfo, 3 * cinfo^.num_components + 2 + 5 + 1); { length }
+
+  { Make sure image isn't bigger than SOF field can handle }
+  if (long(cinfo^.image_height) > long(65535)) or
+     (long(cinfo^.image_width) > long(65535)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_IMAGE_TOO_BIG, uInt(65535));
+
+  emit_byte(cinfo, cinfo^.data_precision);
+  emit_2bytes(cinfo, int(cinfo^.image_height));
+  emit_2bytes(cinfo, int(cinfo^.image_width));
+
+  emit_byte(cinfo, cinfo^.num_components);
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0  to Pred(cinfo^.num_components) do
+  begin
+    emit_byte(cinfo, compptr^.component_id);
+    emit_byte(cinfo, (compptr^.h_samp_factor shl 4) + compptr^.v_samp_factor);
+    emit_byte(cinfo, compptr^.quant_tbl_no);
+    Inc(compptr);
+  end;
+end;
+
+
+{LOCAL}
+procedure emit_sos (cinfo : j_compress_ptr);
+{ Emit a SOS marker }
+var
+  i, td, ta : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  emit_marker(cinfo, M_SOS);
+
+  emit_2bytes(cinfo, 2 * cinfo^.comps_in_scan + 2 + 1 + 3); { length }
+
+  emit_byte(cinfo, cinfo^.comps_in_scan);
+
+  for i := 0 to Pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[i];
+    emit_byte(cinfo, compptr^.component_id);
+    td := compptr^.dc_tbl_no;
+    ta := compptr^.ac_tbl_no;
+    if (cinfo^.progressive_mode) then
+    begin
+      { Progressive mode: only DC or only AC tables are used in one scan;
+        furthermore, Huffman coding of DC refinement uses no table at all.
+        We emit 0 for unused field(s); this is recommended by the P&M text
+        but does not seem to be specified in the standard. }
+
+      if (cinfo^.Ss = 0) then
+      begin
+  ta := 0;                { DC scan }
+  if (cinfo^.Ah <> 0) and not cinfo^.arith_code then
+    td := 0;              { no DC table either }
+      end
+      else
+      begin
+  td := 0;      { AC scan }
+      end;
+    end;
+    emit_byte(cinfo, (td shl 4) + ta);
+  end;
+
+  emit_byte(cinfo, cinfo^.Ss);
+  emit_byte(cinfo, cinfo^.Se);
+  emit_byte(cinfo, (cinfo^.Ah shl 4) + cinfo^.Al);
+end;
+
+
+{LOCAL}
+procedure emit_jfif_app0 (cinfo : j_compress_ptr);
+{ Emit a JFIF-compliant APP0 marker }
+{
+ Length of APP0 block (2 bytes)
+ Block ID     (4 bytes - ASCII "JFIF")
+ Zero byte      (1 byte to terminate the ID string)
+ Version Major, Minor   (2 bytes - major first)
+ Units      (1 byte - $00 = none, $01 = inch, $02 = cm)
+ Xdpu     (2 bytes - dots per unit horizontal)
+ Ydpu     (2 bytes - dots per unit vertical)
+ Thumbnail X size   (1 byte)
+ Thumbnail Y size   (1 byte)
+}
+begin
+  emit_marker(cinfo, M_APP0);
+
+  emit_2bytes(cinfo, 2 + 4 + 1 + 2 + 1 + 2 + 2 + 1 + 1); { length }
+
+  emit_byte(cinfo, $4A);  { Identifier: ASCII "JFIF" }
+  emit_byte(cinfo, $46);
+  emit_byte(cinfo, $49);
+  emit_byte(cinfo, $46);
+  emit_byte(cinfo, 0);
+  emit_byte(cinfo, cinfo^.JFIF_major_version); { Version fields }
+  emit_byte(cinfo, cinfo^.JFIF_minor_version);
+  emit_byte(cinfo, cinfo^.density_unit); { Pixel size information }
+  emit_2bytes(cinfo, int(cinfo^.X_density));
+  emit_2bytes(cinfo, int(cinfo^.Y_density));
+  emit_byte(cinfo, 0);    { No thumbnail image }
+  emit_byte(cinfo, 0);
+end;
+
+
+{LOCAL}
+procedure emit_adobe_app14 (cinfo : j_compress_ptr);
+{ Emit an Adobe APP14 marker }
+{
+  Length of APP14 block (2 bytes)
+  Block ID      (5 bytes - ASCII "Adobe")
+  Version Number    (2 bytes - currently 100)
+  Flags0      (2 bytes - currently 0)
+  Flags1      (2 bytes - currently 0)
+  Color transform   (1 byte)
+
+  Although Adobe TN 5116 mentions Version = 101, all the Adobe files
+  now in circulation seem to use Version = 100, so that's what we write.
+
+  We write the color transform byte as 1 if the JPEG color space is
+  YCbCr, 2 if it's YCCK, 0 otherwise.  Adobe's definition has to do with
+  whether the encoder performed a transformation, which is pretty useless.
+}
+begin
+  emit_marker(cinfo, M_APP14);
+
+  emit_2bytes(cinfo, 2 + 5 + 2 + 2 + 2 + 1); { length }
+
+  emit_byte(cinfo, $41);  { Identifier: ASCII "Adobe" }
+  emit_byte(cinfo, $64);
+  emit_byte(cinfo, $6F);
+  emit_byte(cinfo, $62);
+  emit_byte(cinfo, $65);
+  emit_2bytes(cinfo, 100);  { Version }
+  emit_2bytes(cinfo, 0);  { Flags0 }
+  emit_2bytes(cinfo, 0);  { Flags1 }
+  case (cinfo^.jpeg_color_space) of
+  JCS_YCbCr:
+    emit_byte(cinfo, 1);  { Color transform = 1 }
+  JCS_YCCK:
+    emit_byte(cinfo, 2);  { Color transform = 2 }
+  else
+    emit_byte(cinfo, 0);  { Color transform = 0 }
+  end;
+end;
+
+
+{ These routines allow writing an arbitrary marker with parameters.
+  The only intended use is to emit COM or APPn markers after calling
+  write_file_header and before calling write_frame_header.
+  Other uses are not guaranteed to produce desirable results.
+  Counting the parameter bytes properly is the caller's responsibility. }
+
+{METHODDEF}
+procedure write_marker_header (cinfo : j_compress_ptr;
+                               marker : int;
+                               datalen : uint);
+{ Emit an arbitrary marker header }
+begin
+  if (datalen > uint(65533)) then  { safety check }
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  emit_marker(cinfo, JPEG_MARKER(marker));
+
+  emit_2bytes(cinfo, int(datalen + 2)); { total length }
+end;
+
+{METHODDEF}
+procedure write_marker_byte (cinfo : j_compress_ptr; val : int);
+{ Emit one byte of marker parameters following write_marker_header }
+begin
+  emit_byte(cinfo, val);
+end;
+
+{ Write datastream header.
+  This consists of an SOI and optional APPn markers.
+  We recommend use of the JFIF marker, but not the Adobe marker,
+  when using YCbCr or grayscale data.  The JFIF marker should NOT
+  be used for any other JPEG colorspace.  The Adobe marker is helpful
+  to distinguish RGB, CMYK, and YCCK colorspaces.
+  Note that an application can write additional header markers after
+  jpeg_start_compress returns. }
+
+
+{METHODDEF}
+procedure write_file_header (cinfo : j_compress_ptr);
+var
+  marker : my_marker_ptr;
+begin
+  marker := my_marker_ptr(cinfo^.marker);
+
+  emit_marker(cinfo, M_SOI);   { first the SOI }
+
+  { SOI is defined to reset restart interval to 0 }
+  marker^.last_restart_interval := 0;
+
+  if (cinfo^.write_JFIF_header) then { next an optional JFIF APP0 }
+    emit_jfif_app0(cinfo);
+  if (cinfo^.write_Adobe_marker) then { next an optional Adobe APP14 }
+    emit_adobe_app14(cinfo);
+end;
+
+
+{ Write frame header.
+  This consists of DQT and SOFn markers.
+  Note that we do not emit the SOF until we have emitted the DQT(s).
+  This avoids compatibility problems with incorrect implementations that
+  try to error-check the quant table numbers as soon as they see the SOF. }
+
+
+{METHODDEF}
+procedure write_frame_header (cinfo : j_compress_ptr);
+var
+  ci, prec : int;
+  is_baseline : boolean;
+  compptr : jpeg_component_info_ptr;
+begin
+  { Emit DQT for each quantization table.
+    Note that emit_dqt() suppresses any duplicate tables. }
+
+  prec := 0;
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to Pred(cinfo^.num_components) do
+  begin
+    prec := prec + emit_dqt(cinfo, compptr^.quant_tbl_no);
+    Inc(compptr);
+  end;
+  { now prec is nonzero iff there are any 16-bit quant tables. }
+
+  { Check for a non-baseline specification.
+    Note we assume that Huffman table numbers won't be changed later. }
+
+  if (cinfo^.arith_code) or (cinfo^.progressive_mode)
+   or (cinfo^.data_precision <> 8) then
+  begin
+    is_baseline := FALSE;
+  end
+  else
+  begin
+    is_baseline := TRUE;
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to Pred(cinfo^.num_components) do
+    begin
+      if (compptr^.dc_tbl_no > 1) or (compptr^.ac_tbl_no > 1) then
+  is_baseline := FALSE;
+      Inc(compptr);
+    end;
+    if (prec <> 0) and (is_baseline) then
+    begin
+      is_baseline := FALSE;
+      { If it's baseline except for quantizer size, warn the user }
+      {$IFDEF DEBUG}
+      TRACEMS(j_common_ptr(cinfo), 0, JTRC_16BIT_TABLES);
+      {$ENDIF}
+    end;
+  end;
+
+  { Emit the proper SOF marker }
+  if (cinfo^.arith_code) then
+  begin
+    emit_sof(cinfo, M_SOF9);  { SOF code for arithmetic coding }
+  end
+  else
+  begin
+    if (cinfo^.progressive_mode) then
+      emit_sof(cinfo, M_SOF2) { SOF code for progressive Huffman }
+    else if (is_baseline) then
+      emit_sof(cinfo, M_SOF0) { SOF code for baseline implementation }
+    else
+      emit_sof(cinfo, M_SOF1);  { SOF code for non-baseline Huffman file }
+  end;
+end;
+
+
+{ Write scan header.
+  This consists of DHT or DAC markers, optional DRI, and SOS.
+  Compressed data will be written following the SOS. }
+
+{METHODDEF}
+procedure write_scan_header (cinfo : j_compress_ptr);
+var
+  marker : my_marker_ptr;
+  i : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  marker := my_marker_ptr(cinfo^.marker);
+  if (cinfo^.arith_code) then
+  begin
+    { Emit arith conditioning info.  We may have some duplication
+      if the file has multiple scans, but it's so small it's hardly
+      worth worrying about. }
+    emit_dac(cinfo);
+  end
+  else
+  begin
+    { Emit Huffman tables.
+      Note that emit_dht() suppresses any duplicate tables. }
+    for i := 0 to Pred(cinfo^.comps_in_scan) do
+    begin
+      compptr := cinfo^.cur_comp_info[i];
+      if (cinfo^.progressive_mode) then
+      begin
+  { Progressive mode: only DC or only AC tables are used in one scan }
+  if (cinfo^.Ss = 0) then
+        begin
+    if (cinfo^.Ah = 0) then  { DC needs no table for refinement scan }
+      emit_dht(cinfo, compptr^.dc_tbl_no, FALSE);
+  end
+        else
+        begin
+    emit_dht(cinfo, compptr^.ac_tbl_no, TRUE);
+  end;
+      end
+      else
+      begin
+  { Sequential mode: need both DC and AC tables }
+  emit_dht(cinfo, compptr^.dc_tbl_no, FALSE);
+  emit_dht(cinfo, compptr^.ac_tbl_no, TRUE);
+      end;
+    end;
+  end;
+
+  { Emit DRI if required --- note that DRI value could change for each scan.
+    We avoid wasting space with unnecessary DRIs, however. }
+
+  if (cinfo^.restart_interval <> marker^.last_restart_interval) then
+  begin
+    emit_dri(cinfo);
+    marker^.last_restart_interval := cinfo^.restart_interval;
+  end;
+
+  emit_sos(cinfo);
+end;
+
+
+
+{ Write datastream trailer. }
+
+
+{METHODDEF}
+procedure write_file_trailer (cinfo : j_compress_ptr);
+begin
+  emit_marker(cinfo, M_EOI);
+end;
+
+
+{ Write an abbreviated table-specification datastream.
+  This consists of SOI, DQT and DHT tables, and EOI.
+  Any table that is defined and not marked sent_table = TRUE will be
+  emitted.  Note that all tables will be marked sent_table = TRUE at exit. }
+
+
+{METHODDEF}
+procedure write_tables_only (cinfo : j_compress_ptr);
+var
+  i : int;
+begin
+  emit_marker(cinfo, M_SOI);
+
+  for i := 0 to Pred(NUM_QUANT_TBLS) do
+  begin
+    if (cinfo^.quant_tbl_ptrs[i] <> NIL) then
+      emit_dqt(cinfo, i);  { dummy := ... }
+  end;
+
+  if (not cinfo^.arith_code) then
+  begin
+    for i := 0 to Pred(NUM_HUFF_TBLS) do
+    begin
+      if (cinfo^.dc_huff_tbl_ptrs[i] <> NIL) then
+  emit_dht(cinfo, i, FALSE);
+      if (cinfo^.ac_huff_tbl_ptrs[i] <> NIL) then
+  emit_dht(cinfo, i, TRUE);
+    end;
+  end;
+
+  emit_marker(cinfo, M_EOI);
+end;
+
+
+{ Initialize the marker writer module. }
+
+{GLOBAL}
+procedure jinit_marker_writer (cinfo : j_compress_ptr);
+var
+  marker : my_marker_ptr;
+begin
+  { Create the subobject }
+  marker := my_marker_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_marker_writer)) );
+  cinfo^.marker := jpeg_marker_writer_ptr(marker);
+  { Initialize method pointers }
+  marker^.pub.write_file_header := write_file_header;
+  marker^.pub.write_frame_header := write_frame_header;
+  marker^.pub.write_scan_header := write_scan_header;
+  marker^.pub.write_file_trailer := write_file_trailer;
+  marker^.pub.write_tables_only := write_tables_only;
+  marker^.pub.write_marker_header := write_marker_header;
+  marker^.pub.write_marker_byte := write_marker_byte;
+  { Initialize private state }
+  marker^.last_restart_interval := 0;
+end;
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcmaster.pas b/src/lib/vampimg/JpegLib/imjcmaster.pas

new file mode 100644 (file)

index 0000000..1498398
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcmaster.pas
@@ -0,0 +1,701 @@
+unit imjcmaster;
+
+{ This file contains master control logic for the JPEG compressor.
+  These routines are concerned with parameter validation, initial setup,
+  and inter-pass control (determining the number of passes and the work
+  to be done in each pass). }
+
+{ Original: jcmaster.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjpeglib;
+
+{ Initialize master compression control. }
+
+{GLOBAL}
+procedure jinit_c_master_control (cinfo : j_compress_ptr;
+                                  transcode_only : boolean);
+
+implementation
+
+{ Private state }
+
+type
+  c_pass_type = (
+  main_pass,    { input data, also do first output step }
+  huff_opt_pass,    { Huffman code optimization pass }
+  output_pass   { data output pass }
+                );
+
+type
+  my_master_ptr = ^my_comp_master;
+  my_comp_master = record
+    pub : jpeg_comp_master; { public fields }
+
+    pass_type : c_pass_type;  { the type of the current pass }
+
+    pass_number : int;    { # of passes completed }
+    total_passes : int;   { total # of passes needed }
+
+    scan_number : int;    { current index in scan_info[] }
+  end;
+
+
+{ Support routines that do various essential calculations. }
+
+{LOCAL}
+procedure initial_setup (cinfo : j_compress_ptr);
+{ Do computations that are needed before master selection phase }
+var
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  samplesperrow : long;
+  jd_samplesperrow : JDIMENSION;
+begin
+
+  { Sanity check on image dimensions }
+  if (cinfo^.image_height <= 0) or (cinfo^.image_width <= 0) or
+     (cinfo^.num_components <= 0) or (cinfo^.input_components <= 0) then
+    ERREXIT(j_common_ptr(cinfo), JERR_EMPTY_IMAGE);
+
+  { Make sure image isn't bigger than I can handle }
+  if ( long(cinfo^.image_height) > long(JPEG_MAX_DIMENSION)) or
+      ( long(cinfo^.image_width) > long(JPEG_MAX_DIMENSION)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_IMAGE_TOO_BIG,
+                                  uInt(JPEG_MAX_DIMENSION));
+
+  { Width of an input scanline must be representable as JDIMENSION. }
+  samplesperrow := long (cinfo^.image_width) * long (cinfo^.input_components);
+  jd_samplesperrow := JDIMENSION (samplesperrow);
+  if ( long(jd_samplesperrow) <> samplesperrow) then
+    ERREXIT(j_common_ptr(cinfo), JERR_WIDTH_OVERFLOW);
+
+  { For now, precision must match compiled-in value... }
+  if (cinfo^.data_precision <> BITS_IN_JSAMPLE) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PRECISION, cinfo^.data_precision);
+
+  { Check that number of components won't exceed internal array sizes }
+  if (cinfo^.num_components > MAX_COMPONENTS) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT, cinfo^.num_components,
+       MAX_COMPONENTS);
+
+  { Compute maximum sampling factors; check factor validity }
+  cinfo^.max_h_samp_factor := 1;
+  cinfo^.max_v_samp_factor := 1;
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    if (compptr^.h_samp_factor<=0) or (compptr^.h_samp_factor>MAX_SAMP_FACTOR)
+    or (compptr^.v_samp_factor<=0) or (compptr^.v_samp_factor>MAX_SAMP_FACTOR) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_SAMPLING);
+    { MAX }
+    if cinfo^.max_h_samp_factor > compptr^.h_samp_factor then
+      cinfo^.max_h_samp_factor := cinfo^.max_h_samp_factor
+    else
+      cinfo^.max_h_samp_factor := compptr^.h_samp_factor;
+    { MAX }
+    if cinfo^.max_v_samp_factor > compptr^.v_samp_factor then
+      cinfo^.max_v_samp_factor := cinfo^.max_v_samp_factor
+    else
+      cinfo^.max_v_samp_factor := compptr^.v_samp_factor;
+    Inc(compptr);
+  end;
+
+  { Compute dimensions of components }
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Fill in the correct component_index value; don't rely on application }
+    compptr^.component_index := ci;
+    { For compression, we never do DCT scaling. }
+    compptr^.DCT_scaled_size := DCTSIZE;
+    { Size in DCT blocks }
+    compptr^.width_in_blocks := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_width) * long (compptr^.h_samp_factor),
+        long (cinfo^.max_h_samp_factor * DCTSIZE)) );
+    compptr^.height_in_blocks := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height) * long (compptr^.v_samp_factor),
+        long (cinfo^.max_v_samp_factor * DCTSIZE)) );
+    { Size in samples }
+    compptr^.downsampled_width := JDIMENSION (
+      jdiv_round_up(long(cinfo^.image_width) * long(compptr^.h_samp_factor),
+        long(cinfo^.max_h_samp_factor)) );
+    compptr^.downsampled_height := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height) * long(compptr^.v_samp_factor),
+        long (cinfo^.max_v_samp_factor)) );
+    { Mark component needed (this flag isn't actually used for compression) }
+    compptr^.component_needed := TRUE;
+    Inc(compptr);
+  end;
+
+  { Compute number of fully interleaved MCU rows (number of times that
+    main controller will call coefficient controller). }
+
+  cinfo^.total_iMCU_rows := JDIMENSION (
+    jdiv_round_up(long (cinfo^.image_height),
+      long (cinfo^.max_v_samp_factor*DCTSIZE)) );
+end;
+
+
+{$ifdef C_MULTISCAN_FILES_SUPPORTED}
+
+{LOCAL}
+procedure validate_script (cinfo : j_compress_ptr);
+{ Verify that the scan script in cinfo^.scan_info[] is valid; also
+  determine whether it uses progressive JPEG, and set cinfo^.progressive_mode. }
+type
+  IntRow = array[0..DCTSIZE2-1] of int;
+  introw_ptr = ^IntRow;
+var
+  {const}scanptr : jpeg_scan_info_ptr;
+  scanno, ncomps, ci, coefi, thisi : int;
+  Ss, Se, Ah, Al : int;
+  component_sent : array[0..MAX_COMPONENTS-1] of boolean;
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+  last_bitpos_int_ptr : int_ptr;
+  last_bitpos_ptr : introw_ptr;
+  last_bitpos : array[0..MAX_COMPONENTS-1] of IntRow;
+  { -1 until that coefficient has been seen; then last Al for it }
+  { The JPEG spec simply gives the ranges 0..13 for Ah and Al, but that
+    seems wrong: the upper bound ought to depend on data precision.
+    Perhaps they really meant 0..N+1 for N-bit precision.
+    Here we allow 0..10 for 8-bit data; Al larger than 10 results in
+    out-of-range reconstructed DC values during the first DC scan,
+    which might cause problems for some decoders. }
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  MAX_AH_AL = 10;
+{$else}
+const
+  MAX_AH_AL = 13;
+{$endif}
+{$endif}
+begin
+
+  if (cinfo^.num_scans <= 0) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_SCAN_SCRIPT, 0);
+
+  { For sequential JPEG, all scans must have Ss=0, Se=DCTSIZE2-1;
+    for progressive JPEG, no scan can have this. }
+
+  scanptr := cinfo^.scan_info;
+  if (scanptr^.Ss <> 0) or (scanptr^.Se <> DCTSIZE2-1) then
+  begin
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+    cinfo^.progressive_mode := TRUE;
+    last_bitpos_int_ptr := @(last_bitpos[0][0]);
+    for ci := 0 to pred(cinfo^.num_components) do
+      for coefi := 0 to pred(DCTSIZE2) do
+      begin
+  last_bitpos_int_ptr^ := -1;
+        Inc(last_bitpos_int_ptr);
+      end;
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+  end
+  else
+  begin
+    cinfo^.progressive_mode := FALSE;
+    for ci := 0 to pred(cinfo^.num_components) do
+      component_sent[ci] := FALSE;
+  end;
+
+  for scanno := 1 to cinfo^.num_scans do
+  begin
+    { Validate component indexes }
+    ncomps := scanptr^.comps_in_scan;
+    if (ncomps <= 0) or (ncomps > MAX_COMPS_IN_SCAN) then
+      ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT, ncomps, MAX_COMPS_IN_SCAN);
+    for ci := 0 to pred(ncomps) do
+    begin
+      thisi := scanptr^.component_index[ci];
+      if (thisi < 0) or (thisi >= cinfo^.num_components) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_BAD_SCAN_SCRIPT, scanno);
+      { Components must appear in SOF order within each scan }
+      if (ci > 0) and (thisi <= scanptr^.component_index[ci-1]) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_BAD_SCAN_SCRIPT, scanno);
+    end;
+    { Validate progression parameters }
+    Ss := scanptr^.Ss;
+    Se := scanptr^.Se;
+    Ah := scanptr^.Ah;
+    Al := scanptr^.Al;
+    if (cinfo^.progressive_mode) then
+    begin
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+      if (Ss < 0) or (Ss >= DCTSIZE2) or (Se < Ss) or (Se >= DCTSIZE2) or
+   (Ah < 0) or (Ah > MAX_AH_AL) or (Al < 0) or (Al > MAX_AH_AL) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+
+      if (Ss < 0) or (Ss >= DCTSIZE2) or (Se < Ss) or (Se >= DCTSIZE2)
+       or (Ah < 0) or (Ah > MAX_AH_AL) or (Al < 0) or (Al > MAX_AH_AL) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+      if (Ss = 0) then
+      begin
+  if (Se <> 0) then { DC and AC together not OK }
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+      end
+      else
+      begin
+  if (ncomps <> 1) then  { AC scans must be for only one component }
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+      end;
+      for ci := 0 to pred(ncomps) do
+      begin
+  last_bitpos_ptr := @( last_bitpos[scanptr^.component_index[ci]]);
+  if (Ss <> 0) and (last_bitpos_ptr^[0] < 0) then { AC without prior DC scan }
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+  for coefi := Ss to Se do
+        begin
+    if (last_bitpos_ptr^[coefi] < 0) then
+          begin
+      { first scan of this coefficient }
+      if (Ah <> 0) then
+        ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+    end
+          else
+          begin
+      { not first scan }
+      if (Ah <> last_bitpos_ptr^[coefi]) or (Al <> Ah-1) then
+        ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+    end;
+    last_bitpos_ptr^[coefi] := Al;
+  end;
+      end;
+{$endif}
+    end
+    else
+    begin
+      { For sequential JPEG, all progression parameters must be these: }
+      if (Ss <> 0) or (Se <> DCTSIZE2-1) or (Ah <> 0) or (Al <> 0) then
+  ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PROG_SCRIPT, scanno);
+      { Make sure components are not sent twice }
+      for ci := 0 to pred(ncomps) do
+      begin
+  thisi := scanptr^.component_index[ci];
+  if (component_sent[thisi]) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_SCAN_SCRIPT, scanno);
+  component_sent[thisi] := TRUE;
+      end;
+    end;
+    Inc(scanptr);
+  end;
+
+  { Now verify that everything got sent. }
+  if (cinfo^.progressive_mode) then
+  begin
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+    { For progressive mode, we only check that at least some DC data
+      got sent for each component; the spec does not require that all bits
+      of all coefficients be transmitted.  Would it be wiser to enforce
+      transmission of all coefficient bits?? }
+
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      if (last_bitpos[ci][0] < 0) then
+  ERREXIT(j_common_ptr(cinfo), JERR_MISSING_DATA);
+    end;
+{$endif}
+  end
+  else
+  begin
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      if (not component_sent[ci]) then
+  ERREXIT(j_common_ptr(cinfo), JERR_MISSING_DATA);
+    end;
+  end;
+end;
+
+{$endif} { C_MULTISCAN_FILES_SUPPORTED }
+
+
+{LOCAL}
+procedure select_scan_parameters (cinfo : j_compress_ptr);
+{ Set up the scan parameters for the current scan }
+var
+  master : my_master_ptr;
+  {const} scanptr : jpeg_scan_info_ptr;
+  ci : int;
+var
+  comp_infos : jpeg_component_info_list_ptr;
+begin
+{$ifdef C_MULTISCAN_FILES_SUPPORTED}
+  if (cinfo^.scan_info <> NIL) then
+  begin
+    { Prepare for current scan --- the script is already validated }
+    master := my_master_ptr (cinfo^.master);
+    scanptr := cinfo^.scan_info;
+    Inc(scanptr, master^.scan_number);
+
+    cinfo^.comps_in_scan := scanptr^.comps_in_scan;
+    comp_infos := cinfo^.comp_info;
+    for ci := 0 to pred(scanptr^.comps_in_scan) do
+    begin
+      cinfo^.cur_comp_info[ci] :=
+        @(comp_infos^[scanptr^.component_index[ci]]);
+    end;
+    cinfo^.Ss := scanptr^.Ss;
+    cinfo^.Se := scanptr^.Se;
+    cinfo^.Ah := scanptr^.Ah;
+    cinfo^.Al := scanptr^.Al;
+  end
+  else
+{$endif}
+  begin
+    { Prepare for single sequential-JPEG scan containing all components }
+    if (cinfo^.num_components > MAX_COMPS_IN_SCAN) then
+      ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT, cinfo^.num_components,
+         MAX_COMPS_IN_SCAN);
+    cinfo^.comps_in_scan := cinfo^.num_components;
+    comp_infos := cinfo^.comp_info;
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      cinfo^.cur_comp_info[ci] := @(comp_infos^[ci]);
+    end;
+    cinfo^.Ss := 0;
+    cinfo^.Se := DCTSIZE2-1;
+    cinfo^.Ah := 0;
+    cinfo^.Al := 0;
+  end;
+end;
+
+
+{LOCAL}
+procedure per_scan_setup (cinfo : j_compress_ptr);
+{ Do computations that are needed before processing a JPEG scan }
+{ cinfo^.comps_in_scan and cinfo^.cur_comp_info[] are already set }
+var
+  ci, mcublks, tmp : int;
+  compptr : jpeg_component_info_ptr;
+  nominal : long;
+begin
+  if (cinfo^.comps_in_scan = 1) then
+  begin
+
+    { Noninterleaved (single-component) scan }
+    compptr := cinfo^.cur_comp_info[0];
+
+    { Overall image size in MCUs }
+    cinfo^.MCUs_per_row := compptr^.width_in_blocks;
+    cinfo^.MCU_rows_in_scan := compptr^.height_in_blocks;
+
+    { For noninterleaved scan, always one block per MCU }
+    compptr^.MCU_width := 1;
+    compptr^.MCU_height := 1;
+    compptr^.MCU_blocks := 1;
+    compptr^.MCU_sample_width := DCTSIZE;
+    compptr^.last_col_width := 1;
+    { For noninterleaved scans, it is convenient to define last_row_height
+      as the number of block rows present in the last iMCU row. }
+
+    tmp := int (compptr^.height_in_blocks) mod compptr^.v_samp_factor;
+    if (tmp = 0) then
+      tmp := compptr^.v_samp_factor;
+    compptr^.last_row_height := tmp;
+
+    { Prepare array describing MCU composition }
+    cinfo^.blocks_in_MCU := 1;
+    cinfo^.MCU_membership[0] := 0;
+
+  end
+  else
+  begin
+
+    { Interleaved (multi-component) scan }
+    if (cinfo^.comps_in_scan <= 0) or
+       (cinfo^.comps_in_scan > MAX_COMPS_IN_SCAN) then
+      ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT,
+        cinfo^.comps_in_scan,  MAX_COMPS_IN_SCAN);
+
+    { Overall image size in MCUs }
+    cinfo^.MCUs_per_row := JDIMENSION (
+      jdiv_round_up( long (cinfo^.image_width),
+         long (cinfo^.max_h_samp_factor*DCTSIZE)) );
+    cinfo^.MCU_rows_in_scan := JDIMENSION (
+      jdiv_round_up( long (cinfo^.image_height),
+         long (cinfo^.max_v_samp_factor*DCTSIZE)) );
+
+    cinfo^.blocks_in_MCU := 0;
+
+    for ci := 0 to pred(cinfo^.comps_in_scan) do
+    begin
+      compptr := cinfo^.cur_comp_info[ci];
+      { Sampling factors give # of blocks of component in each MCU }
+      compptr^.MCU_width := compptr^.h_samp_factor;
+      compptr^.MCU_height := compptr^.v_samp_factor;
+      compptr^.MCU_blocks := compptr^.MCU_width * compptr^.MCU_height;
+      compptr^.MCU_sample_width := compptr^.MCU_width * DCTSIZE;
+      { Figure number of non-dummy blocks in last MCU column & row }
+      tmp := int (compptr^.width_in_blocks) mod compptr^.MCU_width;
+      if (tmp = 0) then
+        tmp := compptr^.MCU_width;
+      compptr^.last_col_width := tmp;
+      tmp := int (compptr^.height_in_blocks) mod compptr^.MCU_height;
+      if (tmp = 0) then
+        tmp := compptr^.MCU_height;
+      compptr^.last_row_height := tmp;
+      { Prepare array describing MCU composition }
+      mcublks := compptr^.MCU_blocks;
+      if (cinfo^.blocks_in_MCU + mcublks > C_MAX_BLOCKS_IN_MCU) then
+  ERREXIT(j_common_ptr(cinfo), JERR_BAD_MCU_SIZE);
+      while (mcublks > 0) do
+      begin
+        Dec(mcublks);
+  cinfo^.MCU_membership[cinfo^.blocks_in_MCU] := ci;
+        Inc(cinfo^.blocks_in_MCU);
+      end;
+    end;
+
+  end;
+
+  { Convert restart specified in rows to actual MCU count. }
+  { Note that count must fit in 16 bits, so we provide limiting. }
+  if (cinfo^.restart_in_rows > 0) then
+  begin
+    nominal := long(cinfo^.restart_in_rows) * long(cinfo^.MCUs_per_row);
+    if nominal < long(65535) then
+      cinfo^.restart_interval := uInt (nominal)
+    else
+      cinfo^.restart_interval := long(65535);
+  end;
+end;
+
+
+{ Per-pass setup.
+  This is called at the beginning of each pass.  We determine which modules
+  will be active during this pass and give them appropriate start_pass calls.
+  We also set is_last_pass to indicate whether any more passes will be
+  required. }
+
+{METHODDEF}
+procedure prepare_for_pass (cinfo : j_compress_ptr);
+var
+  master : my_master_ptr;
+var
+  fallthrough : boolean;
+begin
+  master := my_master_ptr (cinfo^.master);
+  fallthrough := true;
+
+  case (master^.pass_type) of
+  main_pass:
+    begin
+      { Initial pass: will collect input data, and do either Huffman
+        optimization or data output for the first scan. }
+      select_scan_parameters(cinfo);
+      per_scan_setup(cinfo);
+      if (not cinfo^.raw_data_in) then
+      begin
+        cinfo^.cconvert^.start_pass (cinfo);
+        cinfo^.downsample^.start_pass (cinfo);
+        cinfo^.prep^.start_pass (cinfo, JBUF_PASS_THRU);
+      end;
+      cinfo^.fdct^.start_pass (cinfo);
+      cinfo^.entropy^.start_pass (cinfo, cinfo^.optimize_coding);
+      if master^.total_passes > 1 then
+        cinfo^.coef^.start_pass (cinfo, JBUF_SAVE_AND_PASS)
+      else
+        cinfo^.coef^.start_pass (cinfo, JBUF_PASS_THRU);
+      cinfo^.main^.start_pass (cinfo, JBUF_PASS_THRU);
+      if (cinfo^.optimize_coding) then
+      begin
+        { No immediate data output; postpone writing frame/scan headers }
+        master^.pub.call_pass_startup := FALSE;
+      end
+      else
+      begin
+        { Will write frame/scan headers at first jpeg_write_scanlines call }
+        master^.pub.call_pass_startup := TRUE;
+      end;
+    end;
+{$ifdef ENTROPY_OPT_SUPPORTED}
+  huff_opt_pass,
+  output_pass:
+    begin
+      if (master^.pass_type = huff_opt_pass) then
+      begin
+        { Do Huffman optimization for a scan after the first one. }
+        select_scan_parameters(cinfo);
+        per_scan_setup(cinfo);
+        if (cinfo^.Ss <> 0) or (cinfo^.Ah = 0) or (cinfo^.arith_code) then
+        begin
+          cinfo^.entropy^.start_pass (cinfo, TRUE);
+          cinfo^.coef^.start_pass (cinfo, JBUF_CRANK_DEST);
+          master^.pub.call_pass_startup := FALSE;
+          fallthrough := false;
+        end;
+        { Special case: Huffman DC refinement scans need no Huffman table
+          and therefore we can skip the optimization pass for them. }
+        if fallthrough then
+        begin
+          master^.pass_type := output_pass;
+          Inc(master^.pass_number);
+          {FALLTHROUGH}
+        end;
+      end;
+{$else}
+  output_pass:
+    begin
+{$endif}
+      if fallthrough then
+      begin
+        { Do a data-output pass. }
+        { We need not repeat per-scan setup if prior optimization pass did it. }
+        if (not cinfo^.optimize_coding) then
+        begin
+          select_scan_parameters(cinfo);
+          per_scan_setup(cinfo);
+        end;
+        cinfo^.entropy^.start_pass (cinfo, FALSE);
+        cinfo^.coef^.start_pass (cinfo, JBUF_CRANK_DEST);
+        { We emit frame/scan headers now }
+        if (master^.scan_number = 0) then
+          cinfo^.marker^.write_frame_header (cinfo);
+        cinfo^.marker^.write_scan_header (cinfo);
+        master^.pub.call_pass_startup := FALSE;
+      end;
+    end;
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+  end;
+
+  master^.pub.is_last_pass := (master^.pass_number = master^.total_passes-1);
+
+  { Set up progress monitor's pass info if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.completed_passes := master^.pass_number;
+    cinfo^.progress^.total_passes := master^.total_passes;
+  end;
+end;
+
+
+{ Special start-of-pass hook.
+  This is called by jpeg_write_scanlines if call_pass_startup is TRUE.
+  In single-pass processing, we need this hook because we don't want to
+  write frame/scan headers during jpeg_start_compress; we want to let the
+  application write COM markers etc. between jpeg_start_compress and the
+  jpeg_write_scanlines loop.
+  In multi-pass processing, this routine is not used. }
+
+{METHODDEF}
+procedure pass_startup (cinfo : j_compress_ptr);
+begin
+  cinfo^.master^.call_pass_startup := FALSE; { reset flag so call only once }
+
+  cinfo^.marker^.write_frame_header (cinfo);
+  cinfo^.marker^.write_scan_header (cinfo);
+end;
+
+
+{ Finish up at end of pass. }
+
+{METHODDEF}
+procedure finish_pass_master (cinfo : j_compress_ptr);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr (cinfo^.master);
+
+  { The entropy coder always needs an end-of-pass call,
+    either to analyze statistics or to flush its output buffer. }
+  cinfo^.entropy^.finish_pass (cinfo);
+
+  { Update state for next pass }
+  case (master^.pass_type) of
+  main_pass:
+    begin
+      { next pass is either output of scan 0 (after optimization)
+        or output of scan 1 (if no optimization). }
+
+      master^.pass_type := output_pass;
+      if (not cinfo^.optimize_coding) then
+        Inc(master^.scan_number);
+    end;
+  huff_opt_pass:
+    { next pass is always output of current scan }
+    master^.pass_type := output_pass;
+  output_pass:
+    begin
+      { next pass is either optimization or output of next scan }
+      if (cinfo^.optimize_coding) then
+        master^.pass_type := huff_opt_pass;
+      Inc(master^.scan_number);
+    end;
+  end;
+
+  Inc(master^.pass_number);
+end;
+
+
+{ Initialize master compression control. }
+
+{GLOBAL}
+procedure jinit_c_master_control (cinfo : j_compress_ptr;
+                                  transcode_only : boolean);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(my_comp_master)) );
+  cinfo^.master := jpeg_comp_master_ptr(master);
+  master^.pub.prepare_for_pass := prepare_for_pass;
+  master^.pub.pass_startup := pass_startup;
+  master^.pub.finish_pass := finish_pass_master;
+  master^.pub.is_last_pass := FALSE;
+
+  { Validate parameters, determine derived values }
+  initial_setup(cinfo);
+
+  if (cinfo^.scan_info <> NIL) then
+  begin
+{$ifdef C_MULTISCAN_FILES_SUPPORTED}
+    validate_script(cinfo);
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+  end
+  else
+  begin
+    cinfo^.progressive_mode := FALSE;
+    cinfo^.num_scans := 1;
+  end;
+
+  if (cinfo^.progressive_mode) then  {  TEMPORARY HACK ??? }
+    cinfo^.optimize_coding := TRUE;  { assume default tables no good for progressive mode }
+
+  { Initialize my private state }
+  if (transcode_only) then
+  begin
+    { no main pass in transcoding }
+    if (cinfo^.optimize_coding) then
+      master^.pass_type := huff_opt_pass
+    else
+      master^.pass_type := output_pass;
+  end
+  else
+  begin
+    { for normal compression, first pass is always this type: }
+    master^.pass_type := main_pass;
+  end;
+  master^.scan_number := 0;
+  master^.pass_number := 0;
+  if (cinfo^.optimize_coding) then
+    master^.total_passes := cinfo^.num_scans * 2
+  else
+    master^.total_passes := cinfo^.num_scans;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcomapi.pas b/src/lib/vampimg/JpegLib/imjcomapi.pas

new file mode 100644 (file)

index 0000000..c58a7ae
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcomapi.pas
@@ -0,0 +1,130 @@
+unit imjcomapi;
+
+{ This file contains application interface routines that are used for both
+  compression and decompression. }
+
+{ Original: jcomapi.c;  Copyright (C) 1994-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib;
+
+{ Abort processing of a JPEG compression or decompression operation,
+  but don't destroy the object itself. }
+
+{GLOBAL}
+procedure jpeg_abort (cinfo : j_common_ptr);
+
+
+{ Destruction of a JPEG object. }
+
+{GLOBAL}
+procedure jpeg_destroy (cinfo : j_common_ptr);
+
+{GLOBAL}
+function jpeg_alloc_quant_table (cinfo : j_common_ptr) : JQUANT_TBL_PTR;
+
+{GLOBAL}
+function jpeg_alloc_huff_table (cinfo : j_common_ptr) : JHUFF_TBL_PTR;
+
+implementation
+
+{ Abort processing of a JPEG compression or decompression operation,
+  but don't destroy the object itself.
+
+  For this, we merely clean up all the nonpermanent memory pools.
+  Note that temp files (virtual arrays) are not allowed to belong to
+  the permanent pool, so we will be able to close all temp files here.
+  Closing a data source or destination, if necessary, is the application's
+  responsibility. }
+
+
+{GLOBAL}
+procedure jpeg_abort (cinfo : j_common_ptr);
+var
+  pool : int;
+begin
+  { Do nothing if called on a not-initialized or destroyed JPEG object. }
+  if (cinfo^.mem = NIL) then
+    exit;
+
+  { Releasing pools in reverse order might help avoid fragmentation
+    with some (brain-damaged) malloc libraries. }
+
+  for pool := JPOOL_NUMPOOLS-1 downto JPOOL_PERMANENT+1 do
+  begin
+    cinfo^.mem^.free_pool (cinfo, pool);
+  end;
+
+  { Reset overall state for possible reuse of object }
+  if (cinfo^.is_decompressor) then
+  begin
+    cinfo^.global_state := DSTATE_START;
+    { Try to keep application from accessing now-deleted marker list.
+      A bit kludgy to do it here, but this is the most central place. }
+    j_decompress_ptr(cinfo)^.marker_list := NIL;
+  end
+  else
+  begin
+    cinfo^.global_state := CSTATE_START;
+  end;
+end;
+
+
+{ Destruction of a JPEG object.
+
+  Everything gets deallocated except the master jpeg_compress_struct itself
+  and the error manager struct.  Both of these are supplied by the application
+  and must be freed, if necessary, by the application.  (Often they are on
+  the stack and so don't need to be freed anyway.)
+  Closing a data source or destination, if necessary, is the application's
+  responsibility. }
+
+
+{GLOBAL}
+procedure jpeg_destroy (cinfo : j_common_ptr);
+begin
+  { We need only tell the memory manager to release everything. }
+  { NB: mem pointer is NIL if memory mgr failed to initialize. }
+  if (cinfo^.mem <> NIL) then
+    cinfo^.mem^.self_destruct (cinfo);
+  cinfo^.mem := NIL;           { be safe if jpeg_destroy is called twice }
+  cinfo^.global_state := 0;    { mark it destroyed }
+end;
+
+
+{ Convenience routines for allocating quantization and Huffman tables.
+  (Would jutils.c be a more reasonable place to put these?) }
+
+
+{GLOBAL}
+function jpeg_alloc_quant_table (cinfo : j_common_ptr) : JQUANT_TBL_PTR;
+var
+  tbl : JQUANT_TBL_PTR;
+begin
+  tbl := JQUANT_TBL_PTR(
+    cinfo^.mem^.alloc_small (cinfo, JPOOL_PERMANENT, SIZEOF(JQUANT_TBL))
+                      );
+  tbl^.sent_table := FALSE;   { make sure this is false in any new table }
+  jpeg_alloc_quant_table := tbl;
+end;
+
+
+{GLOBAL}
+function jpeg_alloc_huff_table (cinfo : j_common_ptr) : JHUFF_TBL_PTR;
+var
+  tbl : JHUFF_TBL_PTR;
+begin
+  tbl := JHUFF_TBL_PTR(
+    cinfo^.mem^.alloc_small (cinfo, JPOOL_PERMANENT, SIZEOF(JHUFF_TBL))
+                     );
+  tbl^.sent_table := FALSE;   { make sure this is false in any new table }
+  jpeg_alloc_huff_table := tbl;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjconfig.inc b/src/lib/vampimg/JpegLib/imjconfig.inc

new file mode 100644 (file)

index 0000000..70cf478
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjconfig.inc
@@ -0,0 +1,125 @@
+{ ----------------------- JPEG_INTERNAL_OPTIONS ---------------------- }
+
+
+{ These defines indicate whether to include various optional functions.
+  Undefining some of these symbols will produce a smaller but less capable
+  library.  Note that you can leave certain source files out of the
+  compilation/linking process if you've #undef'd the corresponding symbols.
+  (You may HAVE to do that if your compiler doesn't like null source files.)}
+
+
+{ Arithmetic coding is unsupported for legal reasons.  Complaints to IBM. }
+
+{ Capability options common to encoder and decoder: }
+
+{$define DCT_ISLOW_SUPPORTED}     { slow but accurate integer algorithm }
+{$define DCT_IFAST_SUPPORTED}     { faster, less accurate integer method }
+{$define DCT_FLOAT_SUPPORTED}     { floating-point: accurate, fast on fast HW }
+
+{ Encoder capability options: }
+
+{$undef C_ARITH_CODING_SUPPORTED}    { Arithmetic coding back end? }
+{$define C_MULTISCAN_FILES_SUPPORTED} { Multiple-scan JPEG files? }
+{$define C_PROGRESSIVE_SUPPORTED}     { Progressive JPEG? (Requires MULTISCAN)}
+{$define ENTROPY_OPT_SUPPORTED}       { Optimization of entropy coding parms? }
+{ Note: if you selected 12-bit data precision, it is dangerous to turn off
+  ENTROPY_OPT_SUPPORTED.  The standard Huffman tables are only good for 8-bit
+  precision, so jchuff.c normally uses entropy optimization to compute
+  usable tables for higher precision.  If you don't want to do optimization,
+  you'll have to supply different default Huffman tables.
+  The exact same statements apply for progressive JPEG: the default tables
+  don't work for progressive mode.  (This may get fixed, however.) }
+
+{$define INPUT_SMOOTHING_SUPPORTED}   { Input image smoothing option? }
+
+{ Decoder capability options: }
+
+{$undef  D_ARITH_CODING_SUPPORTED}    { Arithmetic coding back end? }
+{$define D_MULTISCAN_FILES_SUPPORTED} { Multiple-scan JPEG files? }
+{$define D_PROGRESSIVE_SUPPORTED}     { Progressive JPEG? (Requires MULTISCAN)}
+{$define SAVE_MARKERS_SUPPORTED}      { jpeg_save_markers() needed? }
+{$define BLOCK_SMOOTHING_SUPPORTED}   { Block smoothing? (Progressive only) }
+{$define IDCT_SCALING_SUPPORTED}      { Output rescaling via IDCT? }
+{$undef  UPSAMPLE_SCALING_SUPPORTED}  { Output rescaling at upsample stage? }
+{$define UPSAMPLE_MERGING_SUPPORTED}  { Fast path for sloppy upsampling? }
+{$define QUANT_1PASS_SUPPORTED}       { 1-pass color quantization? }
+{$define QUANT_2PASS_SUPPORTED}       { 2-pass color quantization? }
+
+{ If you happen not to want the image transform support, disable it here }
+{$define TRANSFORMS_SUPPORTED}
+
+{ more capability options later, no doubt }
+
+{$ifopt I+} {$define IOcheck} {$endif}
+
+{ ------------------------------------------------------------------------ }
+
+{$define USE_FMEM}              { Borland has _fmemcpy() and _fmemset() }
+
+{$define FMEMCOPY}
+{$define FMEMZERO}
+
+{$define DCTSIZE_IS_8}          { e.g. unroll the inner loop }
+{$define RIGHT_SHIFT_IS_UNSIGNED}
+{$undef AVOID_TABLES}
+{$undef FAST_DIVIDE}
+
+{$define BITS_IN_JSAMPLE_IS_8}
+
+{----------------------------------------------------------------}
+{ for test of 12 bit JPEG code only. !! }
+{-- $undef  BITS_IN_JSAMPLE_IS_8}
+{----------------------------------------------------------------}
+
+//{$define RGB_RED_IS_0}
+{ !CHANGE: This must be defined for Delphi/Kylix/FPC }
+{$define RGB_RED_IS_2}          { RGB byte order }
+
+
+{$define RGB_PIXELSIZE_IS_3}
+{$define SLOW_SHIFT_32}
+{$undef NO_ZERO_ROW_TEST}
+
+{$define USE_MSDOS_MEMMGR}      { Define this if you use jmemdos.c }
+{$define XMS_SUPPORTED}
+{$define EMS_SUPPORTED}
+
+{$undef MEM_STATS}              { Write out memory usage }
+{$define AM_MEMORY_MANAGER}     { we define jvirt_Xarray_control structs }
+
+{$undef FULL_MAIN_BUFFER_SUPPORTED}
+
+{$define PROGRESS_REPORT}
+{$define TWO_FILE_COMMANDLINE}
+{$undef BMP_SUPPORTED}
+{$undef PPM_SUPPORTED}
+{$undef GIF_SUPPORTED}
+{$undef RLE_SUPPORTED}
+{$undef TARGA_SUPPORTED}
+{$define EXT_SWITCH}
+
+{$ifndef BITS_IN_JSAMPLE_IS_8}  { for 12 bit samples }
+{$undef BMP_SUPPORTED}
+{$undef RLE_SUPPORTED}
+{$undef TARGA_SUPPORTED}
+{$endif}
+
+
+{!CHANGE: Allowed only for Delphi}
+{$undef BASM16}                  { for TP7 - use BASM for fast multiply }
+{$ifdef Win32}
+  {$ifndef FPC}
+    {$define BASM}                 { jidctint with BASM for Delphi 2/3 }
+    {$undef RGB_RED_IS_0}          { BGR byte order in JQUANT2 }
+  {$endif}
+{$endif}
+
+{$ifdef FPC}
+  {$MODE DELPHI}
+{$endif}
+
+{!CHANGE: Added this}
+{$define Delphi_Stream}
+{$Q-}
+{$MINENUMSIZE 4}
+{$ALIGN 8}
diff --git a/src/lib/vampimg/JpegLib/imjcparam.pas b/src/lib/vampimg/JpegLib/imjcparam.pas

new file mode 100644 (file)

index 0000000..66117ca
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcparam.pas
@@ -0,0 +1,701 @@
+unit imjcparam;
+
+{ This file contains optional default-setting code for the JPEG compressor.
+  Applications do not have to use this file, but those that don't use it
+  must know a lot more about the innards of the JPEG code. }
+
+{ Original: jcparam.c ; Copyright (C) 1991-1998, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjcomapi,
+  imjpeglib;
+
+{ Quantization table setup routines }
+
+{GLOBAL}
+procedure jpeg_add_quant_table (cinfo : j_compress_ptr;
+                                which_tbl : int;
+                    const basic_table : array of uInt;
+                    scale_factor : int;
+                                force_baseline : boolean);
+
+{GLOBAL}
+procedure jpeg_set_linear_quality (cinfo : j_compress_ptr;
+                                   scale_factor : int;
+                 force_baseline : boolean);
+{ Set or change the 'quality' (quantization) setting, using default tables
+  and a straight percentage-scaling quality scale.  In most cases it's better
+  to use jpeg_set_quality (below); this entry point is provided for
+  applications that insist on a linear percentage scaling. }
+
+{GLOBAL}
+function jpeg_quality_scaling (quality : int) : int;
+{ Convert a user-specified quality rating to a percentage scaling factor
+  for an underlying quantization table, using our recommended scaling curve.
+  The input 'quality' factor should be 0 (terrible) to 100 (very good). }
+
+{GLOBAL}
+procedure jpeg_set_quality (cinfo : j_compress_ptr;
+                            quality : int;
+                            force_baseline : boolean);
+{ Set or change the 'quality' (quantization) setting, using default tables.
+  This is the standard quality-adjusting entry point for typical user
+  interfaces; only those who want detailed control over quantization tables
+  would use the preceding three routines directly. }
+
+{GLOBAL}
+procedure jpeg_set_defaults (cinfo : j_compress_ptr);
+
+{ Create a recommended progressive-JPEG script.
+  cinfo^.num_components and cinfo^.jpeg_color_space must be correct. }
+
+{ Set the JPEG colorspace, and choose colorspace-dependent default values. }
+
+{GLOBAL}
+procedure jpeg_set_colorspace (cinfo : j_compress_ptr;
+                               colorspace : J_COLOR_SPACE);
+
+{ Select an appropriate JPEG colorspace for in_color_space. }
+
+{GLOBAL}
+procedure jpeg_default_colorspace (cinfo : j_compress_ptr);
+
+{GLOBAL}
+procedure jpeg_simple_progression (cinfo : j_compress_ptr);
+
+
+implementation
+
+{ Quantization table setup routines }
+
+{GLOBAL}
+procedure jpeg_add_quant_table (cinfo : j_compress_ptr;
+                      which_tbl : int;
+          const basic_table : array of uInt;
+          scale_factor : int;
+                      force_baseline : boolean);
+{ Define a quantization table equal to the basic_table times
+  a scale factor (given as a percentage).
+  If force_baseline is TRUE, the computed quantization table entries
+  are limited to 1..255 for JPEG baseline compatibility. }
+var
+  qtblptr :^JQUANT_TBL_PTR;
+  i : int;
+  temp : long;
+begin
+  { Safety check to ensure start_compress not called yet. }
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  if (which_tbl < 0) or (which_tbl >= NUM_QUANT_TBLS) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_DQT_INDEX, which_tbl);
+
+  qtblptr := @(cinfo^.quant_tbl_ptrs[which_tbl]);
+
+  if (qtblptr^ = NIL) then
+    qtblptr^ := jpeg_alloc_quant_table(j_common_ptr(cinfo));
+
+  for i := 0 to pred(DCTSIZE2) do
+  begin
+    temp := (long(basic_table[i]) * scale_factor + long(50)) div long(100);
+    { limit the values to the valid range }
+    if (temp <= long(0)) then
+      temp := long(1);
+    if (temp > long(32767)) then
+      temp := long(32767); { max quantizer needed for 12 bits }
+    if (force_baseline) and (temp > long(255)) then
+      temp := long(255);    { limit to baseline range if requested }
+    (qtblptr^)^.quantval[i] := UINT16 (temp);
+  end;
+
+  { Initialize sent_table FALSE so table will be written to JPEG file. }
+  (qtblptr^)^.sent_table := FALSE;
+end;
+
+
+{GLOBAL}
+procedure jpeg_set_linear_quality (cinfo : j_compress_ptr;
+                                   scale_factor : int;
+                 force_baseline : boolean);
+{ Set or change the 'quality' (quantization) setting, using default tables
+  and a straight percentage-scaling quality scale.  In most cases it's better
+  to use jpeg_set_quality (below); this entry point is provided for
+  applications that insist on a linear percentage scaling. }
+
+{ These are the sample quantization tables given in JPEG spec section K.1.
+  The spec says that the values given produce "good" quality, and
+  when divided by 2, "very good" quality. }
+
+const
+  std_luminance_quant_tbl : array[0..DCTSIZE2-1] of uInt =
+   (16,  11,  10,  16,  24,  40,  51,  61,
+    12,  12,  14,  19,  26,  58,  60,  55,
+    14,  13,  16,  24,  40,  57,  69,  56,
+    14,  17,  22,  29,  51,  87,  80,  62,
+    18,  22,  37,  56,  68, 109, 103,  77,
+    24,  35,  55,  64,  81, 104, 113,  92,
+    49,  64,  78,  87, 103, 121, 120, 101,
+    72,  92,  95,  98, 112, 100, 103,  99);
+
+const
+  std_chrominance_quant_tbl : array[0..DCTSIZE2-1] of uInt =
+   (17,  18,  24,  47,  99,  99,  99,  99,
+    18,  21,  26,  66,  99,  99,  99,  99,
+    24,  26,  56,  99,  99,  99,  99,  99,
+    47,  66,  99,  99,  99,  99,  99,  99,
+    99,  99,  99,  99,  99,  99,  99,  99,
+    99,  99,  99,  99,  99,  99,  99,  99,
+    99,  99,  99,  99,  99,  99,  99,  99,
+    99,  99,  99,  99,  99,  99,  99,  99);
+begin
+  { Set up two quantization tables using the specified scaling }
+  jpeg_add_quant_table(cinfo, 0, std_luminance_quant_tbl,
+           scale_factor, force_baseline);
+  jpeg_add_quant_table(cinfo, 1, std_chrominance_quant_tbl,
+           scale_factor, force_baseline);
+end;
+
+
+{GLOBAL}
+function jpeg_quality_scaling (quality : int) : int;
+{ Convert a user-specified quality rating to a percentage scaling factor
+  for an underlying quantization table, using our recommended scaling curve.
+  The input 'quality' factor should be 0 (terrible) to 100 (very good). }
+begin
+  { Safety limit on quality factor.  Convert 0 to 1 to avoid zero divide. }
+  if (quality <= 0) then
+    quality := 1;
+  if (quality > 100) then
+    quality := 100;
+
+  { The basic table is used as-is (scaling 100) for a quality of 50.
+    Qualities 50..100 are converted to scaling percentage 200 - 2*Q;
+    note that at Q=100 the scaling is 0, which will cause jpeg_add_quant_table
+    to make all the table entries 1 (hence, minimum quantization loss).
+    Qualities 1..50 are converted to scaling percentage 5000/Q. }
+  if (quality < 50) then
+    quality := 5000 div quality
+  else
+    quality := 200 - quality*2;
+
+  jpeg_quality_scaling := quality;
+end;
+
+
+{GLOBAL}
+procedure jpeg_set_quality (cinfo : j_compress_ptr;
+                            quality : int;
+                            force_baseline : boolean);
+{ Set or change the 'quality' (quantization) setting, using default tables.
+  This is the standard quality-adjusting entry point for typical user
+  interfaces; only those who want detailed control over quantization tables
+  would use the preceding three routines directly. }
+begin
+  { Convert user 0-100 rating to percentage scaling }
+  quality := jpeg_quality_scaling(quality);
+
+  { Set up standard quality tables }
+  jpeg_set_linear_quality(cinfo, quality, force_baseline);
+end;
+
+
+{ Huffman table setup routines }
+
+{LOCAL}
+procedure add_huff_table (cinfo : j_compress_ptr;
+                          var htblptr : JHUFF_TBL_PTR;
+                          var bits : array of UINT8;
+                          var val : array of UINT8);
+{ Define a Huffman table }
+var
+  nsymbols, len : int;
+begin
+  if (htblptr = NIL) then
+    htblptr := jpeg_alloc_huff_table(j_common_ptr(cinfo));
+
+  { Copy the number-of-symbols-of-each-code-length counts }
+  MEMCOPY(@htblptr^.bits, @bits, SIZEOF(htblptr^.bits));
+
+
+  { Validate the counts.  We do this here mainly so we can copy the right
+    number of symbols from the val[] array, without risking marching off
+    the end of memory.  jchuff.c will do a more thorough test later. }
+
+  nsymbols := 0;
+  for len := 1 to 16 do
+    Inc(nsymbols, bits[len]);
+  if (nsymbols < 1) or (nsymbols > 256) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+
+  MEMCOPY(@htblptr^.huffval, @val, nsymbols * SIZEOF(UINT8));
+
+  { Initialize sent_table FALSE so table will be written to JPEG file. }
+  (htblptr)^.sent_table := FALSE;
+end;
+
+
+{$J+}
+{LOCAL}
+procedure std_huff_tables (cinfo : j_compress_ptr);
+{ Set up the standard Huffman tables (cf. JPEG standard section K.3) }
+{ IMPORTANT: these are only valid for 8-bit data precision! }
+  const bits_dc_luminance : array[0..17-1] of UINT8 =
+    ({ 0-base } 0, 0, 1, 5, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0);
+  const val_dc_luminance : array[0..11] of UINT8 =
+    (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
+
+  const bits_dc_chrominance : array[0..17-1] of UINT8 =
+    ( { 0-base } 0, 0, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 );
+  const val_dc_chrominance : array[0..11] of UINT8 =
+    ( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 );
+
+  const bits_ac_luminance : array[0..17-1] of UINT8 =
+    ( { 0-base } 0, 0, 2, 1, 3, 3, 2, 4, 3, 5, 5, 4, 4, 0, 0, 1, $7d );
+  const val_ac_luminance : array[0..161] of UINT8 =
+    ( $01, $02, $03, $00, $04, $11, $05, $12,
+      $21, $31, $41, $06, $13, $51, $61, $07,
+      $22, $71, $14, $32, $81, $91, $a1, $08,
+      $23, $42, $b1, $c1, $15, $52, $d1, $f0,
+      $24, $33, $62, $72, $82, $09, $0a, $16,
+      $17, $18, $19, $1a, $25, $26, $27, $28,
+      $29, $2a, $34, $35, $36, $37, $38, $39,
+      $3a, $43, $44, $45, $46, $47, $48, $49,
+      $4a, $53, $54, $55, $56, $57, $58, $59,
+      $5a, $63, $64, $65, $66, $67, $68, $69,
+      $6a, $73, $74, $75, $76, $77, $78, $79,
+      $7a, $83, $84, $85, $86, $87, $88, $89,
+      $8a, $92, $93, $94, $95, $96, $97, $98,
+      $99, $9a, $a2, $a3, $a4, $a5, $a6, $a7,
+      $a8, $a9, $aa, $b2, $b3, $b4, $b5, $b6,
+      $b7, $b8, $b9, $ba, $c2, $c3, $c4, $c5,
+      $c6, $c7, $c8, $c9, $ca, $d2, $d3, $d4,
+      $d5, $d6, $d7, $d8, $d9, $da, $e1, $e2,
+      $e3, $e4, $e5, $e6, $e7, $e8, $e9, $ea,
+      $f1, $f2, $f3, $f4, $f5, $f6, $f7, $f8,
+      $f9, $fa );
+
+  const bits_ac_chrominance : array[0..17-1] of UINT8 =
+    ( { 0-base } 0, 0, 2, 1, 2, 4, 4, 3, 4, 7, 5, 4, 4, 0, 1, 2, $77 );
+  const val_ac_chrominance : array[0..161] of UINT8 =
+    ( $00, $01, $02, $03, $11, $04, $05, $21,
+      $31, $06, $12, $41, $51, $07, $61, $71,
+      $13, $22, $32, $81, $08, $14, $42, $91,
+      $a1, $b1, $c1, $09, $23, $33, $52, $f0,
+      $15, $62, $72, $d1, $0a, $16, $24, $34,
+      $e1, $25, $f1, $17, $18, $19, $1a, $26,
+      $27, $28, $29, $2a, $35, $36, $37, $38,
+      $39, $3a, $43, $44, $45, $46, $47, $48,
+      $49, $4a, $53, $54, $55, $56, $57, $58,
+      $59, $5a, $63, $64, $65, $66, $67, $68,
+      $69, $6a, $73, $74, $75, $76, $77, $78,
+      $79, $7a, $82, $83, $84, $85, $86, $87,
+      $88, $89, $8a, $92, $93, $94, $95, $96,
+      $97, $98, $99, $9a, $a2, $a3, $a4, $a5,
+      $a6, $a7, $a8, $a9, $aa, $b2, $b3, $b4,
+      $b5, $b6, $b7, $b8, $b9, $ba, $c2, $c3,
+      $c4, $c5, $c6, $c7, $c8, $c9, $ca, $d2,
+      $d3, $d4, $d5, $d6, $d7, $d8, $d9, $da,
+      $e2, $e3, $e4, $e5, $e6, $e7, $e8, $e9,
+      $ea, $f2, $f3, $f4, $f5, $f6, $f7, $f8,
+      $f9, $fa );
+begin
+  add_huff_table(cinfo, cinfo^.dc_huff_tbl_ptrs[0],
+  bits_dc_luminance, val_dc_luminance);
+  add_huff_table(cinfo, cinfo^.ac_huff_tbl_ptrs[0],
+  bits_ac_luminance, val_ac_luminance);
+  add_huff_table(cinfo, cinfo^.dc_huff_tbl_ptrs[1],
+  bits_dc_chrominance, val_dc_chrominance);
+  add_huff_table(cinfo, cinfo^.ac_huff_tbl_ptrs[1],
+  bits_ac_chrominance, val_ac_chrominance);
+end;
+
+
+{ Default parameter setup for compression.
+
+  Applications that don't choose to use this routine must do their
+  own setup of all these parameters.  Alternately, you can call this
+  to establish defaults and then alter parameters selectively.  This
+  is the recommended approach since, if we add any new parameters,
+  your code will still work (they'll be set to reasonable defaults). }
+
+{GLOBAL}
+procedure jpeg_set_defaults (cinfo : j_compress_ptr);
+var
+  i : int;
+begin
+  { Safety check to ensure start_compress not called yet. }
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(J_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  { Allocate comp_info array large enough for maximum component count.
+    Array is made permanent in case application wants to compress
+    multiple images at same param settings. }
+
+  if (cinfo^.comp_info = NIL) then
+    cinfo^.comp_info := jpeg_component_info_list_ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_PERMANENT,
+             MAX_COMPONENTS * SIZEOF(jpeg_component_info)) );
+
+  { Initialize everything not dependent on the color space }
+
+  cinfo^.data_precision := BITS_IN_JSAMPLE;
+  { Set up two quantization tables using default quality of 75 }
+  jpeg_set_quality(cinfo, 75, TRUE);
+  { Set up two Huffman tables }
+  std_huff_tables(cinfo);
+
+  { Initialize default arithmetic coding conditioning }
+  for i := 0 to pred(NUM_ARITH_TBLS) do
+  begin
+    cinfo^.arith_dc_L[i] := 0;
+    cinfo^.arith_dc_U[i] := 1;
+    cinfo^.arith_ac_K[i] := 5;
+  end;
+
+  { Default is no multiple-scan output }
+  cinfo^.scan_info := NIL;
+  cinfo^.num_scans := 0;
+
+  { Expect normal source image, not raw downsampled data }
+  cinfo^.raw_data_in := FALSE;
+
+  { Use Huffman coding, not arithmetic coding, by default }
+  cinfo^.arith_code := FALSE;
+
+  { By default, don't do extra passes to optimize entropy coding }
+  cinfo^.optimize_coding := FALSE;
+  { The standard Huffman tables are only valid for 8-bit data precision.
+    If the precision is higher, force optimization on so that usable
+    tables will be computed.  This test can be removed if default tables
+    are supplied that are valid for the desired precision. }
+
+  if (cinfo^.data_precision > 8) then
+    cinfo^.optimize_coding := TRUE;
+
+  { By default, use the simpler non-cosited sampling alignment }
+  cinfo^.CCIR601_sampling := FALSE;
+
+  { No input smoothing }
+  cinfo^.smoothing_factor := 0;
+
+  { DCT algorithm preference }
+  cinfo^.dct_method := JDCT_DEFAULT;
+
+  { No restart markers }
+  cinfo^.restart_interval := 0;
+  cinfo^.restart_in_rows := 0;
+
+  { Fill in default JFIF marker parameters.  Note that whether the marker
+    will actually be written is determined by jpeg_set_colorspace.
+
+    By default, the library emits JFIF version code 1.01.
+    An application that wants to emit JFIF 1.02 extension markers should set
+    JFIF_minor_version to 2.  We could probably get away with just defaulting
+    to 1.02, but there may still be some decoders in use that will complain
+    about that; saying 1.01 should minimize compatibility problems. }
+
+  cinfo^.JFIF_major_version := 1; { Default JFIF version = 1.01 }
+  cinfo^.JFIF_minor_version := 1;
+  cinfo^.density_unit := 0; { Pixel size is unknown by default }
+  cinfo^.X_density := 1;    { Pixel aspect ratio is square by default }
+  cinfo^.Y_density := 1;
+
+  { Choose JPEG colorspace based on input space, set defaults accordingly }
+
+  jpeg_default_colorspace(cinfo);
+end;
+
+
+{ Select an appropriate JPEG colorspace for in_color_space. }
+
+{GLOBAL}
+procedure jpeg_default_colorspace (cinfo : j_compress_ptr);
+begin
+  case (cinfo^.in_color_space) of
+  JCS_GRAYSCALE:
+    jpeg_set_colorspace(cinfo, JCS_GRAYSCALE);
+  JCS_RGB:
+    jpeg_set_colorspace(cinfo, JCS_YCbCr);
+  JCS_YCbCr:
+    jpeg_set_colorspace(cinfo, JCS_YCbCr);
+  JCS_CMYK:
+    jpeg_set_colorspace(cinfo, JCS_CMYK); { By default, no translation }
+  JCS_YCCK:
+    jpeg_set_colorspace(cinfo, JCS_YCCK);
+  JCS_UNKNOWN:
+    jpeg_set_colorspace(cinfo, JCS_UNKNOWN);
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_IN_COLORSPACE);
+  end;
+end;
+
+
+{ Set the JPEG colorspace, and choose colorspace-dependent default values. }
+
+{GLOBAL}
+procedure jpeg_set_colorspace (cinfo : j_compress_ptr;
+                               colorspace : J_COLOR_SPACE);
+  { macro }
+  procedure SET_COMP(index,id,hsamp,vsamp,quant,dctbl,actbl : int);
+  begin
+    with cinfo^.comp_info^[index] do
+    begin
+      component_id := (id);
+      h_samp_factor := (hsamp);
+      v_samp_factor := (vsamp);
+      quant_tbl_no := (quant);
+      dc_tbl_no := (dctbl);
+      ac_tbl_no := (actbl);
+    end;
+  end;
+
+var
+  ci : int;
+begin
+  { Safety check to ensure start_compress not called yet. }
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  { For all colorspaces, we use Q and Huff tables 0 for luminance components,
+    tables 1 for chrominance components. }
+
+  cinfo^.jpeg_color_space := colorspace;
+
+  cinfo^.write_JFIF_header := FALSE; { No marker for non-JFIF colorspaces }
+  cinfo^.write_Adobe_marker := FALSE; { write no Adobe marker by default }
+
+  case (colorspace) of
+  JCS_GRAYSCALE:
+    begin
+      cinfo^.write_JFIF_header := TRUE; { Write a JFIF marker }
+      cinfo^.num_components := 1;
+      { JFIF specifies component ID 1 }
+      SET_COMP(0, 1, 1,1, 0, 0,0);
+    end;
+  JCS_RGB:
+    begin
+      cinfo^.write_Adobe_marker := TRUE; { write Adobe marker to flag RGB }
+      cinfo^.num_components := 3;
+      SET_COMP(0, $52 { 'R' }, 1,1, 0, 0,0);
+      SET_COMP(1, $47 { 'G' }, 1,1, 0, 0,0);
+      SET_COMP(2, $42 { 'B' }, 1,1, 0, 0,0);
+    end;
+  JCS_YCbCr:
+    begin
+      cinfo^.write_JFIF_header := TRUE; { Write a JFIF marker }
+      cinfo^.num_components := 3;
+      { JFIF specifies component IDs 1,2,3 }
+      { We default to 2x2 subsamples of chrominance }
+      SET_COMP(0, 1, 2,2, 0, 0,0);
+      SET_COMP(1, 2, 1,1, 1, 1,1);
+      SET_COMP(2, 3, 1,1, 1, 1,1);
+    end;
+  JCS_CMYK:
+    begin
+      cinfo^.write_Adobe_marker := TRUE; { write Adobe marker to flag CMYK }
+      cinfo^.num_components := 4;
+      SET_COMP(0, $43 { 'C' }, 1,1, 0, 0,0);
+      SET_COMP(1, $4D { 'M' }, 1,1, 0, 0,0);
+      SET_COMP(2, $59 { 'Y' }, 1,1, 0, 0,0);
+      SET_COMP(3, $4B { 'K' }, 1,1, 0, 0,0);
+    end;
+  JCS_YCCK:
+    begin
+      cinfo^.write_Adobe_marker := TRUE; { write Adobe marker to flag YCCK }
+      cinfo^.num_components := 4;
+      SET_COMP(0, 1, 2,2, 0, 0,0);
+      SET_COMP(1, 2, 1,1, 1, 1,1);
+      SET_COMP(2, 3, 1,1, 1, 1,1);
+      SET_COMP(3, 4, 2,2, 0, 0,0);
+    end;
+  JCS_UNKNOWN:
+    begin
+      cinfo^.num_components := cinfo^.input_components;
+      if (cinfo^.num_components < 1)
+      or (cinfo^.num_components > MAX_COMPONENTS) then
+        ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT,
+                 cinfo^.num_components, MAX_COMPONENTS);
+      for ci := 0 to pred(cinfo^.num_components) do
+      begin
+        SET_COMP(ci, ci, 1,1, 0, 0,0);
+      end;
+    end;
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+  end;
+end;
+
+
+{$ifdef C_PROGRESSIVE_SUPPORTED}
+
+{LOCAL}
+function fill_a_scan (scanptr : jpeg_scan_info_ptr;
+                      ci : int; Ss : int;
+                      Se : int; Ah : int;
+                      Al : int) : jpeg_scan_info_ptr;
+{ Support routine: generate one scan for specified component }
+begin
+  scanptr^.comps_in_scan := 1;
+  scanptr^.component_index[0] := ci;
+  scanptr^.Ss := Ss;
+  scanptr^.Se := Se;
+  scanptr^.Ah := Ah;
+  scanptr^.Al := Al;
+  Inc(scanptr);
+  fill_a_scan := scanptr;
+end;
+
+{LOCAL}
+function fill_scans (scanptr : jpeg_scan_info_ptr;
+                     ncomps : int;
+               Ss : int; Se : int;
+                     Ah : int; Al : int) : jpeg_scan_info_ptr;
+{ Support routine: generate one scan for each component }
+var
+  ci : int;
+begin
+
+  for ci := 0 to pred(ncomps) do
+  begin
+    scanptr^.comps_in_scan := 1;
+    scanptr^.component_index[0] := ci;
+    scanptr^.Ss := Ss;
+    scanptr^.Se := Se;
+    scanptr^.Ah := Ah;
+    scanptr^.Al := Al;
+    Inc(scanptr);
+  end;
+  fill_scans := scanptr;
+end;
+
+{LOCAL}
+function fill_dc_scans (scanptr : jpeg_scan_info_ptr;
+                        ncomps : int;
+                        Ah : int; Al : int) : jpeg_scan_info_ptr;
+{ Support routine: generate interleaved DC scan if possible, else N scans }
+var
+  ci : int;
+begin
+
+  if (ncomps <= MAX_COMPS_IN_SCAN) then
+  begin
+    { Single interleaved DC scan }
+    scanptr^.comps_in_scan := ncomps;
+    for ci := 0 to pred(ncomps) do
+      scanptr^.component_index[ci] := ci;
+    scanptr^.Ss := 0;
+    scanptr^.Se := 0;
+    scanptr^.Ah := Ah;
+    scanptr^.Al := Al;
+    Inc(scanptr);
+  end
+  else
+  begin
+    { Noninterleaved DC scan for each component }
+    scanptr := fill_scans(scanptr, ncomps, 0, 0, Ah, Al);
+  end;
+  fill_dc_scans := scanptr;
+end;
+
+
+{ Create a recommended progressive-JPEG script.
+  cinfo^.num_components and cinfo^.jpeg_color_space must be correct. }
+
+{GLOBAL}
+procedure jpeg_simple_progression (cinfo : j_compress_ptr);
+var
+  ncomps : int;
+  nscans : int;
+  scanptr : jpeg_scan_info_ptr;
+begin
+  ncomps := cinfo^.num_components;
+
+  { Safety check to ensure start_compress not called yet. }
+  if (cinfo^.global_state <> CSTATE_START) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  { Figure space needed for script.  Calculation must match code below! }
+  if (ncomps = 3) and (cinfo^.jpeg_color_space = JCS_YCbCr) then
+  begin
+    { Custom script for YCbCr color images. }
+    nscans := 10;
+  end
+  else
+  begin
+    { All-purpose script for other color spaces. }
+    if (ncomps > MAX_COMPS_IN_SCAN) then
+      nscans := 6 * ncomps  { 2 DC + 4 AC scans per component }
+    else
+      nscans := 2 + 4 * ncomps; { 2 DC scans; 4 AC scans per component }
+  end;
+
+  { Allocate space for script.
+    We need to put it in the permanent pool in case the application performs
+    multiple compressions without changing the settings.  To avoid a memory
+    leak if jpeg_simple_progression is called repeatedly for the same JPEG
+    object, we try to re-use previously allocated space, and we allocate
+    enough space to handle YCbCr even if initially asked for grayscale. }
+
+  if (cinfo^.script_space = NIL) or (cinfo^.script_space_size < nscans) then
+  begin
+    if nscans > 10 then
+      cinfo^.script_space_size := nscans
+    else
+      cinfo^.script_space_size := 10;
+
+    cinfo^.script_space := jpeg_scan_info_ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_PERMANENT,
+    cinfo^.script_space_size * SIZEOF(jpeg_scan_info)) );
+  end;
+  scanptr := cinfo^.script_space;
+
+  cinfo^.scan_info := scanptr;
+  cinfo^.num_scans := nscans;
+
+  if (ncomps = 3) and (cinfo^.jpeg_color_space = JCS_YCbCr) then
+  begin
+    { Custom script for YCbCr color images. }
+    { Initial DC scan }
+    scanptr := fill_dc_scans(scanptr, ncomps, 0, 1);
+    { Initial AC scan: get some luma data out in a hurry }
+    scanptr := fill_a_scan(scanptr, 0, 1, 5, 0, 2);
+    { Chroma data is too small to be worth expending many scans on }
+    scanptr := fill_a_scan(scanptr, 2, 1, 63, 0, 1);
+    scanptr := fill_a_scan(scanptr, 1, 1, 63, 0, 1);
+    { Complete spectral selection for luma AC }
+    scanptr := fill_a_scan(scanptr, 0, 6, 63, 0, 2);
+    { Refine next bit of luma AC }
+    scanptr := fill_a_scan(scanptr, 0, 1, 63, 2, 1);
+    { Finish DC successive approximation }
+    scanptr := fill_dc_scans(scanptr, ncomps, 1, 0);
+    { Finish AC successive approximation }
+    scanptr := fill_a_scan(scanptr, 2, 1, 63, 1, 0);
+    scanptr := fill_a_scan(scanptr, 1, 1, 63, 1, 0);
+    { Luma bottom bit comes last since it's usually largest scan }
+    scanptr := fill_a_scan(scanptr, 0, 1, 63, 1, 0);
+  end
+  else
+  begin
+    { All-purpose script for other color spaces. }
+    { Successive approximation first pass }
+    scanptr := fill_dc_scans(scanptr, ncomps, 0, 1);
+    scanptr := fill_scans(scanptr, ncomps, 1, 5, 0, 2);
+    scanptr := fill_scans(scanptr, ncomps, 6, 63, 0, 2);
+    { Successive approximation second pass }
+    scanptr := fill_scans(scanptr, ncomps, 1, 63, 2, 1);
+    { Successive approximation final pass }
+    scanptr := fill_dc_scans(scanptr, ncomps, 1, 0);
+    scanptr := fill_scans(scanptr, ncomps, 1, 63, 1, 0);
+  end;
+end;
+
+{$endif}
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcphuff.pas b/src/lib/vampimg/JpegLib/imjcphuff.pas

new file mode 100644 (file)

index 0000000..3c9dbf7
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcphuff.pas
@@ -0,0 +1,962 @@
+unit imjcphuff;
+
+{ This file contains Huffman entropy encoding routines for progressive JPEG.
+
+  We do not support output suspension in this module, since the library
+  currently does not allow multiple-scan files to be written with output
+  suspension. }
+
+{ Original: jcphuff.c;  Copyright (C) 1995-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjcomapi,
+  imjchuff;         { Declarations shared with jchuff.c }
+
+{ Module initialization routine for progressive Huffman entropy encoding. }
+
+{GLOBAL}
+procedure jinit_phuff_encoder (cinfo : j_compress_ptr);
+
+implementation
+
+{ Expanded entropy encoder object for progressive Huffman encoding. }
+type
+  phuff_entropy_ptr = ^phuff_entropy_encoder;
+  phuff_entropy_encoder = record
+    pub : jpeg_entropy_encoder; { public fields }
+
+    { Mode flag: TRUE for optimization, FALSE for actual data output }
+    gather_statistics : boolean;
+
+    { Bit-level coding status.
+      next_output_byte/free_in_buffer are local copies of cinfo^.dest fields.}
+
+    next_output_byte : JOCTETptr; { => next byte to write in buffer }
+    free_in_buffer : size_t;    { # of byte spaces remaining in buffer }
+    put_buffer : INT32;   { current bit-accumulation buffer }
+    put_bits : int;             { # of bits now in it }
+    cinfo : j_compress_ptr;     { link to cinfo (needed for dump_buffer) }
+
+    { Coding status for DC components }
+    last_dc_val : array[0..MAX_COMPS_IN_SCAN-1] of int;
+                                { last DC coef for each component }
+
+    { Coding status for AC components }
+    ac_tbl_no : int;            { the table number of the single component }
+    EOBRUN : uInt;              { run length of EOBs }
+    BE : uInt;                  { # of buffered correction bits before MCU }
+    bit_buffer : JBytePtr;      { buffer for correction bits (1 per char) }
+    { packing correction bits tightly would save some space but cost time... }
+
+    restarts_to_go : uInt;  { MCUs left in this restart interval }
+    next_restart_num : int;     { next restart number to write (0-7) }
+
+    { Pointers to derived tables (these workspaces have image lifespan).
+      Since any one scan codes only DC or only AC, we only need one set
+      of tables, not one for DC and one for AC. }
+
+    derived_tbls : array[0..NUM_HUFF_TBLS-1] of c_derived_tbl_ptr;
+
+    { Statistics tables for optimization; again, one set is enough }
+    count_ptrs : array[0..NUM_HUFF_TBLS-1] of TLongTablePtr;
+  end;
+
+
+{ MAX_CORR_BITS is the number of bits the AC refinement correction-bit
+  buffer can hold.  Larger sizes may slightly improve compression, but
+  1000 is already well into the realm of overkill.
+  The minimum safe size is 64 bits. }
+
+const
+  MAX_CORR_BITS = 1000;         { Max # of correction bits I can buffer }
+
+
+{ Forward declarations }
+{METHODDEF}
+function encode_mcu_DC_first (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+                              forward;
+{METHODDEF}
+function encode_mcu_AC_first (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+                              forward;
+{METHODDEF}
+function encode_mcu_DC_refine (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+                              forward;
+{METHODDEF}
+function encode_mcu_AC_refine (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+                              forward;
+
+{METHODDEF}
+procedure finish_pass_phuff (cinfo : j_compress_ptr); forward;
+
+{METHODDEF}
+procedure finish_pass_gather_phuff (cinfo : j_compress_ptr); forward;
+
+
+{ Initialize for a Huffman-compressed scan using progressive JPEG. }
+
+{METHODDEF}
+procedure start_pass_phuff (cinfo : j_compress_ptr;
+                            gather_statistics : boolean);
+var
+  entropy : phuff_entropy_ptr;
+  is_DC_band : boolean;
+  ci, tbl : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  tbl := 0;
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+
+  entropy^.cinfo := cinfo;
+  entropy^.gather_statistics := gather_statistics;
+
+  is_DC_band := (cinfo^.Ss = 0);
+
+  { We assume jcmaster.c already validated the scan parameters. }
+
+  { Select execution routines }
+  if (cinfo^.Ah = 0) then
+  begin
+    if (is_DC_band) then
+      entropy^.pub.encode_mcu := encode_mcu_DC_first
+    else
+      entropy^.pub.encode_mcu := encode_mcu_AC_first;
+  end
+  else
+  begin
+    if (is_DC_band) then
+      entropy^.pub.encode_mcu := encode_mcu_DC_refine
+    else
+    begin
+      entropy^.pub.encode_mcu := encode_mcu_AC_refine;
+      { AC refinement needs a correction bit buffer }
+      if (entropy^.bit_buffer = NIL) then
+  entropy^.bit_buffer := JBytePtr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+              MAX_CORR_BITS * SIZEOF(byte)) );
+    end;
+  end;
+  if (gather_statistics) then
+    entropy^.pub.finish_pass := finish_pass_gather_phuff
+  else
+    entropy^.pub.finish_pass := finish_pass_phuff;
+
+  { Only DC coefficients may be interleaved, so cinfo^.comps_in_scan = 1
+    for AC coefficients. }
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    { Initialize DC predictions to 0 }
+    entropy^.last_dc_val[ci] := 0;
+    { Get table index }
+    if (is_DC_band) then
+    begin
+      if (cinfo^.Ah <> 0) then  { DC refinement needs no table }
+  continue;
+      tbl := compptr^.dc_tbl_no;
+    end
+    else
+    begin
+      tbl := compptr^.ac_tbl_no;
+      entropy^.ac_tbl_no := tbl;
+    end;
+    if (gather_statistics) then
+    begin
+      { Check for invalid table index }
+      { (make_c_derived_tbl does this in the other path) }
+      if (tbl < 0) or (tbl >= NUM_HUFF_TBLS) then
+        ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, tbl);
+      { Allocate and zero the statistics tables }
+      { Note that jpeg_gen_optimal_table expects 257 entries in each table! }
+      if (entropy^.count_ptrs[tbl] = NIL) then
+  entropy^.count_ptrs[tbl] := TLongTablePtr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+              257 * SIZEOF(long)) );
+      MEMZERO(entropy^.count_ptrs[tbl], 257 * SIZEOF(long));
+    end else
+    begin
+      { Compute derived values for Huffman table }
+      { We may do this more than once for a table, but it's not expensive }
+      jpeg_make_c_derived_tbl(cinfo, is_DC_band, tbl,
+            entropy^.derived_tbls[tbl]);
+    end;
+  end;
+
+  { Initialize AC stuff }
+  entropy^.EOBRUN := 0;
+  entropy^.BE := 0;
+
+  { Initialize bit buffer to empty }
+  entropy^.put_buffer := 0;
+  entropy^.put_bits := 0;
+
+  { Initialize restart stuff }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+  entropy^.next_restart_num := 0;
+end;
+
+
+
+
+{LOCAL}
+procedure dump_buffer (entropy : phuff_entropy_ptr);
+{ Empty the output buffer; we do not support suspension in this module. }
+var
+  dest : jpeg_destination_mgr_ptr;
+begin
+  dest := entropy^.cinfo^.dest;
+
+  if (not dest^.empty_output_buffer (entropy^.cinfo)) then
+    ERREXIT(j_common_ptr(entropy^.cinfo), JERR_CANT_SUSPEND);
+  { After a successful buffer dump, must reset buffer pointers }
+  entropy^.next_output_byte := dest^.next_output_byte;
+  entropy^.free_in_buffer := dest^.free_in_buffer;
+end;
+
+
+{ Outputting bits to the file }
+
+{ Only the right 24 bits of put_buffer are used; the valid bits are
+  left-justified in this part.  At most 16 bits can be passed to emit_bits
+  in one call, and we never retain more than 7 bits in put_buffer
+  between calls, so 24 bits are sufficient. }
+
+
+{LOCAL}
+procedure emit_bits (entropy : phuff_entropy_ptr;
+                     code : uInt;
+                     size : int); {INLINE}
+{ Emit some bits, unless we are in gather mode }
+var
+  {register} put_buffer : INT32;
+  {register} put_bits : int;
+var
+  c : int;
+begin
+  { This routine is heavily used, so it's worth coding tightly. }
+  put_buffer := INT32 (code);
+  put_bits := entropy^.put_bits;
+
+  { if size is 0, caller used an invalid Huffman table entry }
+  if (size = 0) then
+    ERREXIT(j_common_ptr(entropy^.cinfo), JERR_HUFF_MISSING_CODE);
+
+  if (entropy^.gather_statistics) then
+    exit;     { do nothing if we're only getting stats }
+
+  put_buffer := put_buffer and ((INT32(1) shl size) - 1);
+                                { mask off any extra bits in code }
+
+  Inc(put_bits, size);          { new number of bits in buffer }
+
+  put_buffer := put_buffer shl (24 - put_bits); { align incoming bits }
+
+  put_buffer := put_buffer or entropy^.put_buffer;
+                                { and merge with old buffer contents }
+
+  while (put_bits >= 8) do
+  begin
+    c := int ((put_buffer shr 16) and $FF);
+
+    {emit_byte(entropy, c);}
+    { Outputting bytes to the file.
+      NB: these must be called only when actually outputting,
+      that is, entropy^.gather_statistics = FALSE. }
+    { Emit a byte }
+    entropy^.next_output_byte^ := JOCTET(c);
+    Inc(entropy^.next_output_byte);
+    Dec(entropy^.free_in_buffer);
+    if (entropy^.free_in_buffer = 0) then
+      dump_buffer(entropy);
+
+    if (c = $FF) then
+    begin   { need to stuff a zero byte? }
+      {emit_byte(entropy, 0);}
+      entropy^.next_output_byte^ := JOCTET(0);
+      Inc(entropy^.next_output_byte);
+      Dec(entropy^.free_in_buffer);
+      if (entropy^.free_in_buffer = 0) then
+        dump_buffer(entropy);
+    end;
+    put_buffer := put_buffer shl 8;
+    Dec(put_bits, 8);
+  end;
+
+  entropy^.put_buffer := put_buffer; { update variables }
+  entropy^.put_bits := put_bits;
+end;
+
+
+{LOCAL}
+procedure flush_bits (entropy : phuff_entropy_ptr);
+begin
+  emit_bits(entropy, $7F, 7); { fill any partial byte with ones }
+  entropy^.put_buffer := 0;     { and reset bit-buffer to empty }
+  entropy^.put_bits := 0;
+end;
+
+{ Emit (or just count) a Huffman symbol. }
+
+
+{LOCAL}
+procedure emit_symbol (entropy : phuff_entropy_ptr;
+                       tbl_no : int;
+                       symbol : int); {INLINE}
+var
+  tbl : c_derived_tbl_ptr;
+begin
+  if (entropy^.gather_statistics) then
+    Inc(entropy^.count_ptrs[tbl_no]^[symbol])
+  else
+  begin
+    tbl := entropy^.derived_tbls[tbl_no];
+    emit_bits(entropy, tbl^.ehufco[symbol], tbl^.ehufsi[symbol]);
+  end;
+end;
+
+
+{ Emit bits from a correction bit buffer. }
+
+{LOCAL}
+procedure emit_buffered_bits (entropy : phuff_entropy_ptr;
+                              bufstart : JBytePtr;
+                  nbits : uInt);
+var
+  bufptr : byteptr;
+begin
+  if (entropy^.gather_statistics) then
+    exit;     { no real work }
+
+  bufptr := byteptr(bufstart);
+  while (nbits > 0) do
+  begin
+    emit_bits(entropy, uInt(bufptr^), 1);
+    Inc(bufptr);
+    Dec(nbits);
+  end;
+end;
+
+
+{ Emit any pending EOBRUN symbol. }
+
+{LOCAL}
+procedure emit_eobrun (entropy : phuff_entropy_ptr);
+var
+  {register} temp, nbits : int;
+begin
+  if (entropy^.EOBRUN > 0) then
+  begin                        { if there is any pending EOBRUN }
+    temp := entropy^.EOBRUN;
+    nbits := 0;
+    temp := temp shr 1;
+    while (temp <> 0) do
+    begin
+      Inc(nbits);
+      temp := temp shr 1;
+    end;
+
+    { safety check: shouldn't happen given limited correction-bit buffer }
+    if (nbits > 14) then
+      ERREXIT(j_common_ptr(entropy^.cinfo), JERR_HUFF_MISSING_CODE);
+
+    emit_symbol(entropy, entropy^.ac_tbl_no, nbits shl 4);
+    if (nbits <> 0) then
+      emit_bits(entropy, entropy^.EOBRUN, nbits);
+
+    entropy^.EOBRUN := 0;
+
+    { Emit any buffered correction bits }
+    emit_buffered_bits(entropy, entropy^.bit_buffer, entropy^.BE);
+    entropy^.BE := 0;
+  end;
+end;
+
+
+{ Emit a restart marker & resynchronize predictions. }
+
+{LOCAL}
+procedure emit_restart (entropy : phuff_entropy_ptr;
+                        restart_num : int);
+var
+  ci : int;
+begin
+  emit_eobrun(entropy);
+
+  if (not entropy^.gather_statistics) then
+  begin
+    flush_bits(entropy);
+    {emit_byte(entropy, $FF);}
+    { Outputting bytes to the file.
+      NB: these must be called only when actually outputting,
+      that is, entropy^.gather_statistics = FALSE. }
+
+    entropy^.next_output_byte^ := JOCTET($FF);
+    Inc(entropy^.next_output_byte);
+    Dec(entropy^.free_in_buffer);
+    if (entropy^.free_in_buffer = 0) then
+      dump_buffer(entropy);
+
+    {emit_byte(entropy, JPEG_RST0 + restart_num);}
+    entropy^.next_output_byte^ := JOCTET(JPEG_RST0 + restart_num);
+    Inc(entropy^.next_output_byte);
+    Dec(entropy^.free_in_buffer);
+    if (entropy^.free_in_buffer = 0) then
+      dump_buffer(entropy);
+  end;
+
+  if (entropy^.cinfo^.Ss = 0) then
+  begin
+    { Re-initialize DC predictions to 0 }
+    for ci := 0 to pred(entropy^.cinfo^.comps_in_scan) do
+      entropy^.last_dc_val[ci] := 0;
+  end
+  else
+  begin
+    { Re-initialize all AC-related fields to 0 }
+    entropy^.EOBRUN := 0;
+    entropy^.BE := 0;
+  end;
+end;
+
+
+{ MCU encoding for DC initial scan (either spectral selection,
+  or first pass of successive approximation). }
+
+{METHODDEF}
+function encode_mcu_DC_first (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+var
+  entropy : phuff_entropy_ptr;
+  {register} temp, temp2 : int;
+  {register} nbits : int;
+  blkn, ci : int;
+  Al : int;
+  block : JBLOCK_PTR;
+  compptr : jpeg_component_info_ptr;
+  ishift_temp : int;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Al := cinfo^.Al;
+
+  entropy^.next_output_byte := cinfo^.dest^.next_output_byte;
+  entropy^.free_in_buffer := cinfo^.dest^.free_in_buffer;
+
+  { Emit restart marker if needed }
+  if (cinfo^.restart_interval <> 0) then
+    if (entropy^.restarts_to_go = 0) then
+      emit_restart(entropy, entropy^.next_restart_num);
+
+  { Encode the MCU data blocks }
+  for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+  begin
+    block := JBLOCK_PTR(MCU_data[blkn]);
+    ci := cinfo^.MCU_membership[blkn];
+    compptr := cinfo^.cur_comp_info[ci];
+
+    { Compute the DC value after the required point transform by Al.
+      This is simply an arithmetic right shift. }
+
+    {temp2 := IRIGHT_SHIFT( int(block^[0]), Al);}
+    {IRIGHT_SHIFT_IS_UNSIGNED}
+    ishift_temp := int(block^[0]);
+    if ishift_temp < 0 then
+      temp2 := (ishift_temp shr Al) or ((not 0) shl (16-Al))
+    else
+      temp2 := ishift_temp shr Al;
+
+
+    { DC differences are figured on the point-transformed values. }
+    temp := temp2 - entropy^.last_dc_val[ci];
+    entropy^.last_dc_val[ci] := temp2;
+
+    { Encode the DC coefficient difference per section G.1.2.1 }
+    temp2 := temp;
+    if (temp < 0) then
+    begin
+      temp := -temp;    { temp is abs value of input }
+      { For a negative input, want temp2 := bitwise complement of abs(input) }
+      { This code assumes we are on a two's complement machine }
+      Dec(temp2);
+    end;
+
+    { Find the number of bits needed for the magnitude of the coefficient }
+    nbits := 0;
+    while (temp <> 0) do
+    begin
+      Inc(nbits);
+      temp := temp shr 1;
+    end;
+
+    { Check for out-of-range coefficient values.
+      Since we're encoding a difference, the range limit is twice as much. }
+
+    if (nbits > MAX_COEF_BITS+1) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_DCT_COEF);
+
+    { Count/emit the Huffman-coded symbol for the number of bits }
+    emit_symbol(entropy, compptr^.dc_tbl_no, nbits);
+
+    { Emit that number of bits of the value, if positive, }
+    { or the complement of its magnitude, if negative. }
+    if (nbits <> 0) then       { emit_bits rejects calls with size 0 }
+      emit_bits(entropy, uInt(temp2), nbits);
+  end;
+
+  cinfo^.dest^.next_output_byte := entropy^.next_output_byte;
+  cinfo^.dest^.free_in_buffer := entropy^.free_in_buffer;
+
+  { Update restart-interval state too }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+      Inc(entropy^.next_restart_num);
+      with entropy^ do
+        next_restart_num := next_restart_num and 7;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  encode_mcu_DC_first := TRUE;
+end;
+
+
+{ MCU encoding for AC initial scan (either spectral selection,
+  or first pass of successive approximation). }
+
+{METHODDEF}
+function encode_mcu_AC_first (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+var
+  entropy : phuff_entropy_ptr;
+  {register} temp, temp2 : int;
+  {register} nbits : int;
+  {register} r, k : int;
+  Se : int;
+  Al : int;
+  block : JBLOCK_PTR;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Se := cinfo^.Se;
+  Al := cinfo^.Al;
+
+  entropy^.next_output_byte := cinfo^.dest^.next_output_byte;
+  entropy^.free_in_buffer := cinfo^.dest^.free_in_buffer;
+
+  { Emit restart marker if needed }
+  if (cinfo^.restart_interval <> 0) then
+    if (entropy^.restarts_to_go = 0) then
+      emit_restart(entropy, entropy^.next_restart_num);
+
+  { Encode the MCU data block }
+  block := JBLOCK_PTR(MCU_data[0]);
+
+  { Encode the AC coefficients per section G.1.2.2, fig. G.3 }
+
+  r := 0;     { r := run length of zeros }
+
+  for k := cinfo^.Ss to Se do
+  begin
+    temp := (block^[jpeg_natural_order[k]]);
+    if (temp = 0) then
+    begin
+      Inc(r);
+      continue;
+    end;
+    { We must apply the point transform by Al.  For AC coefficients this
+      is an integer division with rounding towards 0.  To do this portably
+      in C, we shift after obtaining the absolute value; so the code is
+      interwoven with finding the abs value (temp) and output bits (temp2). }
+
+    if (temp < 0) then
+    begin
+      temp := -temp;    { temp is abs value of input }
+      temp := temp shr Al;  { apply the point transform }
+      { For a negative coef, want temp2 := bitwise complement of abs(coef) }
+      temp2 := not temp;
+    end
+    else
+    begin
+      temp := temp shr Al;  { apply the point transform }
+      temp2 := temp;
+    end;
+    { Watch out for case that nonzero coef is zero after point transform }
+    if (temp = 0) then
+    begin
+      Inc(r);
+      continue;
+    end;
+
+    { Emit any pending EOBRUN }
+    if (entropy^.EOBRUN > 0) then
+      emit_eobrun(entropy);
+    { if run length > 15, must emit special run-length-16 codes ($F0) }
+    while (r > 15) do
+    begin
+      emit_symbol(entropy, entropy^.ac_tbl_no, $F0);
+      Dec(r, 16);
+    end;
+
+    { Find the number of bits needed for the magnitude of the coefficient }
+    nbits := 0;     { there must be at least one 1 bit }
+    repeat
+      Inc(nbits);
+      temp := temp shr 1;
+    until (temp = 0);
+
+    { Check for out-of-range coefficient values }
+    if (nbits > MAX_COEF_BITS) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_DCT_COEF);
+
+    { Count/emit Huffman symbol for run length / number of bits }
+    emit_symbol(entropy, entropy^.ac_tbl_no, (r shl 4) + nbits);
+
+    { Emit that number of bits of the value, if positive, }
+    { or the complement of its magnitude, if negative. }
+    emit_bits(entropy, uInt(temp2), nbits);
+
+    r := 0;     { reset zero run length }
+  end;
+
+  if (r > 0) then
+  begin             { If there are trailing zeroes, }
+    Inc(entropy^.EOBRUN); { count an EOB }
+    if (entropy^.EOBRUN = $7FFF) then
+      emit_eobrun(entropy); { force it out to avoid overflow }
+  end;
+
+  cinfo^.dest^.next_output_byte := entropy^.next_output_byte;
+  cinfo^.dest^.free_in_buffer := entropy^.free_in_buffer;
+
+  { Update restart-interval state too }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+      Inc(entropy^.next_restart_num);
+      with entropy^ do
+        next_restart_num := next_restart_num and 7;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  encode_mcu_AC_first := TRUE;
+end;
+
+
+{ MCU encoding for DC successive approximation refinement scan.
+  Note: we assume such scans can be multi-component, although the spec
+  is not very clear on the point. }
+
+{METHODDEF}
+function encode_mcu_DC_refine (cinfo : j_compress_ptr;
+                              const MCU_data: array of JBLOCKROW) : boolean;
+var
+  entropy : phuff_entropy_ptr;
+  {register} temp : int;
+  blkn : int;
+  Al : int;
+  block : JBLOCK_PTR;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Al := cinfo^.Al;
+
+  entropy^.next_output_byte := cinfo^.dest^.next_output_byte;
+  entropy^.free_in_buffer := cinfo^.dest^.free_in_buffer;
+
+  { Emit restart marker if needed }
+  if (cinfo^.restart_interval <> 0) then
+    if (entropy^.restarts_to_go = 0) then
+      emit_restart(entropy, entropy^.next_restart_num);
+
+  { Encode the MCU data blocks }
+  for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+  begin
+    block := JBLOCK_PTR(MCU_data[blkn]);
+
+    { We simply emit the Al'th bit of the DC coefficient value. }
+    temp := block^[0];
+    emit_bits(entropy, uInt(temp shr Al), 1);
+  end;
+
+  cinfo^.dest^.next_output_byte := entropy^.next_output_byte;
+  cinfo^.dest^.free_in_buffer := entropy^.free_in_buffer;
+
+  { Update restart-interval state too }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+      Inc(entropy^.next_restart_num);
+      with entropy^ do
+        next_restart_num := next_restart_num and 7;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  encode_mcu_DC_refine := TRUE;
+end;
+
+
+{ MCU encoding for AC successive approximation refinement scan. }
+
+{METHODDEF}
+function encode_mcu_AC_refine (cinfo : j_compress_ptr;
+                               const MCU_data: array of JBLOCKROW) : boolean;
+
+var
+  entropy : phuff_entropy_ptr;
+  {register} temp : int;
+  {register} r, k : int;
+  EOB : int;
+  BR_buffer : JBytePtr;
+  BR : uInt;
+  Se : int;
+  Al : int;
+  block : JBLOCK_PTR;
+  absvalues : array[0..DCTSIZE2-1] of int;
+begin
+  entropy := phuff_entropy_ptr(cinfo^.entropy);
+  Se := cinfo^.Se;
+  Al := cinfo^.Al;
+
+  entropy^.next_output_byte := cinfo^.dest^.next_output_byte;
+  entropy^.free_in_buffer := cinfo^.dest^.free_in_buffer;
+
+  { Emit restart marker if needed }
+  if (cinfo^.restart_interval <> 0) then
+    if (entropy^.restarts_to_go = 0) then
+      emit_restart(entropy, entropy^.next_restart_num);
+
+  { Encode the MCU data block }
+  block := JBLOCK_PTR(MCU_data[0]);
+
+  { It is convenient to make a pre-pass to determine the transformed
+    coefficients' absolute values and the EOB position. }
+
+  EOB := 0;
+  for k := cinfo^.Ss to Se do
+  begin
+    temp := block^[jpeg_natural_order[k]];
+    { We must apply the point transform by Al.  For AC coefficients this
+      is an integer division with rounding towards 0.  To do this portably
+      in C, we shift after obtaining the absolute value. }
+
+    if (temp < 0) then
+      temp := -temp;    { temp is abs value of input }
+    temp := temp shr Al;    { apply the point transform }
+    absvalues[k] := temp; { save abs value for main pass }
+    if (temp = 1) then
+      EOB := k;     { EOB := index of last newly-nonzero coef }
+  end;
+
+  { Encode the AC coefficients per section G.1.2.3, fig. G.7 }
+
+  r := 0;     { r := run length of zeros }
+  BR := 0;      { BR := count of buffered bits added now }
+  BR_buffer := JBytePtr(@(entropy^.bit_buffer^[entropy^.BE]));
+                                { Append bits to buffer }
+
+  for k := cinfo^.Ss to Se do
+  begin
+    temp := absvalues[k];
+    if (temp = 0) then
+    begin
+      Inc(r);
+      continue;
+    end;
+
+    { Emit any required ZRLs, but not if they can be folded into EOB }
+    while (r > 15) and (k <= EOB) do
+    begin
+      { emit any pending EOBRUN and the BE correction bits }
+      emit_eobrun(entropy);
+      { Emit ZRL }
+      emit_symbol(entropy, entropy^.ac_tbl_no, $F0);
+      Dec(r, 16);
+      { Emit buffered correction bits that must be associated with ZRL }
+      emit_buffered_bits(entropy, BR_buffer, BR);
+      BR_buffer := entropy^.bit_buffer; { BE bits are gone now }
+      BR := 0;
+    end;
+
+    { If the coef was previously nonzero, it only needs a correction bit.
+      NOTE: a straight translation of the spec's figure G.7 would suggest
+      that we also need to test r > 15.  But if r > 15, we can only get here
+      if k > EOB, which implies that this coefficient is not 1. }
+    if (temp > 1) then
+    begin
+      { The correction bit is the next bit of the absolute value. }
+      BR_buffer^[BR] := byte (temp and 1);
+      Inc(BR);
+      continue;
+    end;
+
+    { Emit any pending EOBRUN and the BE correction bits }
+    emit_eobrun(entropy);
+
+    { Count/emit Huffman symbol for run length / number of bits }
+    emit_symbol(entropy, entropy^.ac_tbl_no, (r shl 4) + 1);
+
+    { Emit output bit for newly-nonzero coef }
+    if (block^[jpeg_natural_order[k]] < 0) then
+      temp := 0
+    else
+      temp := 1;
+    emit_bits(entropy, uInt(temp), 1);
+
+    { Emit buffered correction bits that must be associated with this code }
+    emit_buffered_bits(entropy, BR_buffer, BR);
+    BR_buffer := entropy^.bit_buffer; { BE bits are gone now }
+    BR := 0;
+    r := 0;     { reset zero run length }
+  end;
+
+  if (r > 0) or (BR > 0) then
+  begin                         { If there are trailing zeroes, }
+    Inc(entropy^.EOBRUN);       { count an EOB }
+    Inc(entropy^.BE, BR);          { concat my correction bits to older ones }
+    { We force out the EOB if we risk either:
+      1. overflow of the EOB counter;
+      2. overflow of the correction bit buffer during the next MCU. }
+
+    if (entropy^.EOBRUN = $7FFF) or
+       (entropy^.BE > (MAX_CORR_BITS-DCTSIZE2+1)) then
+      emit_eobrun(entropy);
+  end;
+
+  cinfo^.dest^.next_output_byte := entropy^.next_output_byte;
+  cinfo^.dest^.free_in_buffer := entropy^.free_in_buffer;
+
+  { Update restart-interval state too }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+    begin
+      entropy^.restarts_to_go := cinfo^.restart_interval;
+      Inc(entropy^.next_restart_num);
+      with entropy^ do
+        next_restart_num := next_restart_num and 7;
+    end;
+    Dec(entropy^.restarts_to_go);
+  end;
+
+  encode_mcu_AC_refine := TRUE;
+end;
+
+
+{ Finish up at the end of a Huffman-compressed progressive scan. }
+
+{METHODDEF}
+procedure finish_pass_phuff (cinfo : j_compress_ptr);
+var
+  entropy : phuff_entropy_ptr;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+
+  entropy^.next_output_byte := cinfo^.dest^.next_output_byte;
+  entropy^.free_in_buffer := cinfo^.dest^.free_in_buffer;
+
+  { Flush out any buffered data }
+  emit_eobrun(entropy);
+  flush_bits(entropy);
+
+  cinfo^.dest^.next_output_byte := entropy^.next_output_byte;
+  cinfo^.dest^.free_in_buffer := entropy^.free_in_buffer;
+end;
+
+
+{ Finish up a statistics-gathering pass and create the new Huffman tables. }
+
+{METHODDEF}
+procedure finish_pass_gather_phuff (cinfo : j_compress_ptr);
+var
+  entropy : phuff_entropy_ptr;
+  is_DC_band : boolean;
+  ci, tbl : int;
+  compptr : jpeg_component_info_ptr;
+  htblptr : ^JHUFF_TBL_PTR;
+  did : array[0..NUM_HUFF_TBLS-1] of boolean;
+begin
+  tbl := 0;
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+
+  { Flush out buffered data (all we care about is counting the EOB symbol) }
+  emit_eobrun(entropy);
+
+  is_DC_band := (cinfo^.Ss = 0);
+
+  { It's important not to apply jpeg_gen_optimal_table more than once
+    per table, because it clobbers the input frequency counts! }
+
+  MEMZERO(@did, SIZEOF(did));
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    if (is_DC_band) then
+    begin
+      if (cinfo^.Ah <> 0) then     { DC refinement needs no table }
+  continue;
+      tbl := compptr^.dc_tbl_no;
+    end
+    else
+    begin
+      tbl := compptr^.ac_tbl_no;
+    end;
+    if (not did[tbl]) then
+    begin
+      if (is_DC_band) then
+        htblptr := @(cinfo^.dc_huff_tbl_ptrs[tbl])
+      else
+        htblptr := @(cinfo^.ac_huff_tbl_ptrs[tbl]);
+      if (htblptr^ = NIL) then
+        htblptr^ := jpeg_alloc_huff_table(j_common_ptr(cinfo));
+      jpeg_gen_optimal_table(cinfo, htblptr^, entropy^.count_ptrs[tbl]^);
+      did[tbl] := TRUE;
+    end;
+  end;
+end;
+
+
+{ Module initialization routine for progressive Huffman entropy encoding. }
+
+{GLOBAL}
+procedure jinit_phuff_encoder (cinfo : j_compress_ptr);
+var
+  entropy : phuff_entropy_ptr;
+  i : int;
+begin
+  entropy := phuff_entropy_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(phuff_entropy_encoder)) );
+  cinfo^.entropy := jpeg_entropy_encoder_ptr(entropy);
+  entropy^.pub.start_pass := start_pass_phuff;
+
+  { Mark tables unallocated }
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    entropy^.derived_tbls[i] := NIL;
+    entropy^.count_ptrs[i] := NIL;
+  end;
+  entropy^.bit_buffer := NIL; { needed only in AC refinement scan }
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcprepct.pas b/src/lib/vampimg/JpegLib/imjcprepct.pas

new file mode 100644 (file)

index 0000000..9f21e51
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcprepct.pas
@@ -0,0 +1,406 @@
+unit imjcprepct;
+
+{ Original : jcprepct.c ;  Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This file contains the compression preprocessing controller.
+  This controller manages the color conversion, downsampling,
+  and edge expansion steps.
+
+  Most of the complexity here is associated with buffering input rows
+  as required by the downsampler.  See the comments at the head of
+  jcsample.c for the downsampler's needs. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjpeglib,
+  imjdeferr,
+  imjerror,
+  imjinclude,
+  imjutils;
+
+{GLOBAL}
+procedure jinit_c_prep_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+
+implementation
+
+
+{ At present, jcsample.c can request context rows only for smoothing.
+  In the future, we might also need context rows for CCIR601 sampling
+  or other more-complex downsampling procedures.  The code to support
+  context rows should be compiled only if needed. }
+
+{$ifdef INPUT_SMOOTHING_SUPPORTED}
+  {$define CONTEXT_ROWS_SUPPORTED}
+{$endif}
+
+
+{ For the simple (no-context-row) case, we just need to buffer one
+  row group's worth of pixels for the downsampling step.  At the bottom of
+  the image, we pad to a full row group by replicating the last pixel row.
+  The downsampler's last output row is then replicated if needed to pad
+  out to a full iMCU row.
+
+  When providing context rows, we must buffer three row groups' worth of
+  pixels.  Three row groups are physically allocated, but the row pointer
+  arrays are made five row groups high, with the extra pointers above and
+  below "wrapping around" to point to the last and first real row groups.
+  This allows the downsampler to access the proper context rows.
+  At the top and bottom of the image, we create dummy context rows by
+  copying the first or last real pixel row.  This copying could be avoided
+  by pointer hacking as is done in jdmainct.c, but it doesn't seem worth the
+  trouble on the compression side. }
+
+
+{ Private buffer controller object }
+
+type
+  my_prep_ptr = ^my_prep_controller;
+  my_prep_controller = record
+    pub : jpeg_c_prep_controller; { public fields }
+
+    { Downsampling input buffer.  This buffer holds color-converted data
+      until we have enough to do a downsample step.  }
+
+    color_buf : array[0..MAX_COMPONENTS-1] of JSAMPARRAY;
+
+    rows_to_go : JDIMENSION;  { counts rows remaining in source image }
+    next_buf_row : int;   { index of next row to store in color_buf }
+
+  {$ifdef CONTEXT_ROWS_SUPPORTED} { only needed for context case }
+    this_row_group : int;         { starting row index of group to process }
+    next_buf_stop : int;          { downsample when we reach this index }
+  {$endif}
+  end; {my_prep_controller;}
+
+
+{ Initialize for a processing pass. }
+
+{METHODDEF}
+procedure start_pass_prep (cinfo : j_compress_ptr;
+                           pass_mode : J_BUF_MODE );
+var
+  prep : my_prep_ptr;
+begin
+  prep := my_prep_ptr (cinfo^.prep);
+
+  if (pass_mode <> JBUF_PASS_THRU) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+
+  { Initialize total-height counter for detecting bottom of image }
+  prep^.rows_to_go := cinfo^.image_height;
+  { Mark the conversion buffer empty }
+  prep^.next_buf_row := 0;
+{$ifdef CONTEXT_ROWS_SUPPORTED}
+  { Preset additional state variables for context mode.
+    These aren't used in non-context mode, so we needn't test which mode. }
+  prep^.this_row_group := 0;
+  { Set next_buf_stop to stop after two row groups have been read in. }
+  prep^.next_buf_stop := 2 * cinfo^.max_v_samp_factor;
+{$endif}
+end;
+
+
+{ Expand an image vertically from height input_rows to height output_rows,
+  by duplicating the bottom row. }
+
+{LOCAL}
+procedure expand_bottom_edge (image_data : JSAMPARRAY;
+                              num_cols : JDIMENSION;
+                  input_rows : int;
+                              output_rows : int);
+var
+  {register} row : int;
+begin
+  for row := input_rows to pred(output_rows) do
+  begin
+    jcopy_sample_rows(image_data, input_rows-1, image_data, row,
+          1, num_cols);
+  end;
+end;
+
+
+{ Process some data in the simple no-context case.
+
+  Preprocessor output data is counted in "row groups".  A row group
+  is defined to be v_samp_factor sample rows of each component.
+  Downsampling will produce this much data from each max_v_samp_factor
+  input rows. }
+
+{METHODDEF}
+procedure pre_process_data (cinfo : j_compress_ptr;
+               input_buf : JSAMPARRAY;
+                           var in_row_ctr : JDIMENSION;
+               in_rows_avail : JDIMENSION;
+               output_buf : JSAMPIMAGE;
+                           var out_row_group_ctr : JDIMENSION;
+                           out_row_groups_avail : JDIMENSION);
+var
+  prep : my_prep_ptr;
+  numrows, ci : int;
+  inrows : JDIMENSION;
+  compptr : jpeg_component_info_ptr;
+var
+  local_input_buf : JSAMPARRAY;
+begin
+  prep := my_prep_ptr (cinfo^.prep);
+
+  while (in_row_ctr < in_rows_avail) and
+  (out_row_group_ctr < out_row_groups_avail) do
+  begin
+    { Do color conversion to fill the conversion buffer. }
+    inrows := in_rows_avail - in_row_ctr;
+    numrows := cinfo^.max_v_samp_factor - prep^.next_buf_row;
+    {numrows := int( MIN(JDIMENSION(numrows), inrows) );}
+    if inrows < JDIMENSION(numrows) then
+      numrows := int(inrows);
+    local_input_buf := JSAMPARRAY(@(input_buf^[in_row_ctr]));
+    cinfo^.cconvert^.color_convert (cinfo, local_input_buf,
+                                    JSAMPIMAGE(@prep^.color_buf),
+            JDIMENSION(prep^.next_buf_row),
+            numrows);
+    Inc(in_row_ctr, numrows);
+    Inc(prep^.next_buf_row, numrows);
+    Dec(prep^.rows_to_go, numrows);
+    { If at bottom of image, pad to fill the conversion buffer. }
+    if (prep^.rows_to_go = 0) and
+       (prep^.next_buf_row < cinfo^.max_v_samp_factor) then
+    begin
+      for ci := 0 to pred(cinfo^.num_components) do
+      begin
+  expand_bottom_edge(prep^.color_buf[ci], cinfo^.image_width,
+         prep^.next_buf_row, cinfo^.max_v_samp_factor);
+      end;
+      prep^.next_buf_row := cinfo^.max_v_samp_factor;
+    end;
+    { If we've filled the conversion buffer, empty it. }
+    if (prep^.next_buf_row = cinfo^.max_v_samp_factor) then
+    begin
+      cinfo^.downsample^.downsample (cinfo,
+                                     JSAMPIMAGE(@prep^.color_buf),
+                                     JDIMENSION (0),
+             output_buf,
+                                     out_row_group_ctr);
+      prep^.next_buf_row := 0;
+      Inc(out_row_group_ctr);;
+    end;
+    { If at bottom of image, pad the output to a full iMCU height.
+      Note we assume the caller is providing a one-iMCU-height output buffer! }
+    if (prep^.rows_to_go = 0) and
+       (out_row_group_ctr < out_row_groups_avail) then
+    begin
+      compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+      for ci := 0 to pred(cinfo^.num_components) do
+      begin
+  expand_bottom_edge(output_buf^[ci],
+       compptr^.width_in_blocks * DCTSIZE,
+                   int (out_row_group_ctr) * compptr^.v_samp_factor,
+       int (out_row_groups_avail) * compptr^.v_samp_factor);
+        Inc(compptr);
+      end;
+      out_row_group_ctr := out_row_groups_avail;
+      break;      { can exit outer loop without test }
+    end;
+  end;
+end;
+
+
+{$ifdef CONTEXT_ROWS_SUPPORTED}
+
+{ Process some data in the context case. }
+
+{METHODDEF}
+procedure pre_process_context (cinfo : j_compress_ptr;
+                  input_buf : JSAMPARRAY;
+                              var in_row_ctr : JDIMENSION;
+                  in_rows_avail : JDIMENSION;
+                  output_buf : JSAMPIMAGE;
+                              var out_row_group_ctr : JDIMENSION;
+                  out_row_groups_avail : JDIMENSION);
+var
+  prep : my_prep_ptr;
+  numrows, ci : int;
+  buf_height : int;
+  inrows : JDIMENSION;
+var
+  row : int;
+
+begin
+  prep := my_prep_ptr (cinfo^.prep);
+  buf_height := cinfo^.max_v_samp_factor * 3;
+
+  while (out_row_group_ctr < out_row_groups_avail) do
+  begin
+    if (in_row_ctr < in_rows_avail) then
+    begin
+      { Do color conversion to fill the conversion buffer. }
+      inrows := in_rows_avail - in_row_ctr;
+      numrows := prep^.next_buf_stop - prep^.next_buf_row;
+      {numrows := int ( MIN( JDIMENSION(numrows), inrows) );}
+      if inrows < JDIMENSION(numrows) then
+        numrows := int(inrows);
+      cinfo^.cconvert^.color_convert (cinfo,
+                                      JSAMPARRAY(@input_buf^[in_row_ctr]),
+                                      JSAMPIMAGE(@prep^.color_buf),
+              JDIMENSION (prep^.next_buf_row),
+              numrows);
+      { Pad at top of image, if first time through }
+      if (prep^.rows_to_go = cinfo^.image_height) then
+      begin
+  for ci := 0 to pred(cinfo^.num_components) do
+        begin
+    for row := 1 to cinfo^.max_v_samp_factor do
+          begin
+      jcopy_sample_rows(prep^.color_buf[ci], 0,
+            prep^.color_buf[ci], -row,
+            1, cinfo^.image_width);
+    end;
+  end;
+      end;
+      Inc(in_row_ctr, numrows);
+      Inc(prep^.next_buf_row, numrows);
+      Dec(prep^.rows_to_go, numrows);
+    end
+    else
+    begin
+      { Return for more data, unless we are at the bottom of the image. }
+      if (prep^.rows_to_go <> 0) then
+  break;
+      { When at bottom of image, pad to fill the conversion buffer. }
+      if (prep^.next_buf_row < prep^.next_buf_stop) then
+      begin
+  for ci := 0 to pred(cinfo^.num_components) do
+        begin
+    expand_bottom_edge(prep^.color_buf[ci], cinfo^.image_width,
+           prep^.next_buf_row, prep^.next_buf_stop);
+  end;
+  prep^.next_buf_row := prep^.next_buf_stop;
+      end;
+    end;
+    { If we've gotten enough data, downsample a row group. }
+    if (prep^.next_buf_row = prep^.next_buf_stop) then
+    begin
+      cinfo^.downsample^.downsample (cinfo,
+                                     JSAMPIMAGE(@prep^.color_buf),
+             JDIMENSION(prep^.this_row_group),
+             output_buf,
+                                     out_row_group_ctr);
+      Inc(out_row_group_ctr);
+      { Advance pointers with wraparound as necessary. }
+      Inc(prep^.this_row_group, cinfo^.max_v_samp_factor);
+      if (prep^.this_row_group >= buf_height) then
+  prep^.this_row_group := 0;
+      if (prep^.next_buf_row >= buf_height) then
+  prep^.next_buf_row := 0;
+      prep^.next_buf_stop := prep^.next_buf_row + cinfo^.max_v_samp_factor;
+    end;
+  end;
+end;
+
+
+{ Create the wrapped-around downsampling input buffer needed for context mode. }
+
+{LOCAL}
+procedure create_context_buffer (cinfo : j_compress_ptr);
+var
+  prep : my_prep_ptr;
+  rgroup_height : int;
+  ci, i : int;
+  compptr : jpeg_component_info_ptr;
+  true_buffer, fake_buffer : JSAMPARRAY;
+begin
+  prep := my_prep_ptr (cinfo^.prep);
+  rgroup_height := cinfo^.max_v_samp_factor;
+  { Grab enough space for fake row pointers for all the components;
+    we need five row groups' worth of pointers for each component. }
+
+  fake_buffer := JSAMPARRAY(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        (cinfo^.num_components * 5 * rgroup_height) *
+        SIZEOF(JSAMPROW)) );
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Allocate the actual buffer space (3 row groups) for this component.
+      We make the buffer wide enough to allow the downsampler to edge-expand
+      horizontally within the buffer, if it so chooses. }
+    true_buffer := cinfo^.mem^.alloc_sarray
+      (j_common_ptr(cinfo), JPOOL_IMAGE,
+       JDIMENSION (( long(compptr^.width_in_blocks) * DCTSIZE *
+          cinfo^.max_h_samp_factor) div compptr^.h_samp_factor),
+       JDIMENSION (3 * rgroup_height));
+    { Copy true buffer row pointers into the middle of the fake row array }
+    MEMCOPY(JSAMPARRAY(@ fake_buffer^[rgroup_height]), true_buffer,
+      3 * rgroup_height * SIZEOF(JSAMPROW));
+    { Fill in the above and below wraparound pointers }
+    for i := 0 to pred(rgroup_height) do
+    begin
+      fake_buffer^[i] := true_buffer^[2 * rgroup_height + i];
+      fake_buffer^[4 * rgroup_height + i] := true_buffer^[i];
+    end;
+    prep^.color_buf[ci] := JSAMPARRAY(@ fake_buffer^[rgroup_height]);
+    Inc(JSAMPROW_PTR(fake_buffer), 5 * rgroup_height); { point to space for next component }
+    Inc(compptr);
+  end;
+end;
+
+{$endif} { CONTEXT_ROWS_SUPPORTED }
+
+
+{ Initialize preprocessing controller. }
+
+{GLOBAL}
+procedure jinit_c_prep_controller (cinfo : j_compress_ptr;
+                                   need_full_buffer : boolean);
+var
+  prep : my_prep_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+
+  if (need_full_buffer) then    { safety check }
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+
+  prep := my_prep_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_prep_controller)) );
+  cinfo^.prep := jpeg_c_prep_controller_ptr(prep);
+  prep^.pub.start_pass := start_pass_prep;
+
+  { Allocate the color conversion buffer.
+    We make the buffer wide enough to allow the downsampler to edge-expand
+    horizontally within the buffer, if it so chooses. }
+
+  if (cinfo^.downsample^.need_context_rows) then
+  begin
+    { Set up to provide context rows }
+{$ifdef CONTEXT_ROWS_SUPPORTED}
+    prep^.pub.pre_process_data := pre_process_context;
+    create_context_buffer(cinfo);
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+  end
+  else
+  begin
+    { No context, just make it tall enough for one row group }
+    prep^.pub.pre_process_data := pre_process_data;
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      prep^.color_buf[ci] := cinfo^.mem^.alloc_sarray
+  (j_common_ptr(cinfo), JPOOL_IMAGE,
+   JDIMENSION (( long(compptr^.width_in_blocks) * DCTSIZE *
+      cinfo^.max_h_samp_factor) div compptr^.h_samp_factor),
+   JDIMENSION(cinfo^.max_v_samp_factor) );
+      Inc(compptr);
+    end;
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjcsample.pas b/src/lib/vampimg/JpegLib/imjcsample.pas

new file mode 100644 (file)

index 0000000..48ea3d8
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjcsample.pas
@@ -0,0 +1,631 @@
+unit imjcsample;
+
+{ This file contains downsampling routines.
+
+  Downsampling input data is counted in "row groups".  A row group
+  is defined to be max_v_samp_factor pixel rows of each component,
+  from which the downsampler produces v_samp_factor sample rows.
+  A single row group is processed in each call to the downsampler module.
+
+  The downsampler is responsible for edge-expansion of its output data
+  to fill an integral number of DCT blocks horizontally.  The source buffer
+  may be modified if it is helpful for this purpose (the source buffer is
+  allocated wide enough to correspond to the desired output width).
+  The caller (the prep controller) is responsible for vertical padding.
+
+  The downsampler may request "context rows" by setting need_context_rows
+  during startup.  In this case, the input arrays will contain at least
+  one row group's worth of pixels above and below the passed-in data;
+  the caller will create dummy rows at image top and bottom by replicating
+  the first or last real pixel row.
+
+  An excellent reference for image resampling is
+    Digital Image Warping, George Wolberg, 1990.
+    Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7.
+
+  The downsampling algorithm used here is a simple average of the source
+  pixels covered by the output pixel.  The hi-falutin sampling literature
+  refers to this as a "box filter".  In general the characteristics of a box
+  filter are not very good, but for the specific cases we normally use (1:1
+  and 2:1 ratios) the box is equivalent to a "triangle filter" which is not
+  nearly so bad.  If you intend to use other sampling ratios, you'd be well
+  advised to improve this code.
+
+  A simple input-smoothing capability is provided.  This is mainly intended
+  for cleaning up color-dithered GIF input files (if you find it inadequate,
+  we suggest using an external filtering program such as pnmconvol).  When
+  enabled, each input pixel P is replaced by a weighted sum of itself and its
+  eight neighbors.  P's weight is 1-8*SF and each neighbor's weight is SF,
+  where SF := (smoothing_factor / 1024).
+  Currently, smoothing is only supported for 2h2v sampling factors. }
+
+{ Original: jcsample.c ; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjutils,
+  imjdeferr,
+  imjerror,
+  imjpeglib;
+
+
+{ Module initialization routine for downsampling.
+  Note that we must select a routine for each component. }
+
+{GLOBAL}
+procedure jinit_downsampler (cinfo : j_compress_ptr);
+
+implementation
+
+{ Pointer to routine to downsample a single component }
+type
+  downsample1_ptr = procedure(cinfo : j_compress_ptr;
+                              compptr : jpeg_component_info_ptr;
+                  input_data : JSAMPARRAY;
+                              output_data : JSAMPARRAY);
+
+{ Private subobject }
+
+type
+  my_downsample_ptr = ^my_downsampler;
+  my_downsampler = record
+    pub : jpeg_downsampler; { public fields }
+
+    { Downsampling method pointers, one per component }
+    methods : array[0..MAX_COMPONENTS-1] of downsample1_ptr;
+  end;
+
+{ Initialize for a downsampling pass. }
+
+{METHODDEF}
+procedure start_pass_downsample (cinfo : j_compress_ptr);
+begin
+  { no work for now }
+end;
+
+
+{ Expand a component horizontally from width input_cols to width output_cols,
+  by duplicating the rightmost samples. }
+
+{LOCAL}
+procedure expand_right_edge (image_data : JSAMPARRAY;
+                             num_rows : int;
+                 input_cols : JDIMENSION;
+                             output_cols : JDIMENSION);
+var
+  {register} ptr : JSAMPLE_PTR;
+  {register} pixval : JSAMPLE;
+  {register} count : int;
+  row : int;
+  numcols : int;
+begin
+  numcols := int (output_cols - input_cols);
+
+  if (numcols > 0) then
+  begin
+    for row := 0 to pred(num_rows) do
+    begin
+      ptr := JSAMPLE_PTR(@(image_data^[row]^[input_cols-1]));
+      pixval := ptr^;   { don't need GETJSAMPLE() here }
+      for count := pred(numcols) downto 0 do
+      begin
+        Inc(ptr);
+  ptr^ := pixval;
+      end;
+    end;
+  end;
+end;
+
+
+{ Do downsampling for a whole row group (all components).
+
+  In this version we simply downsample each component independently. }
+
+{METHODDEF}
+procedure sep_downsample (cinfo : j_compress_ptr;
+              input_buf : JSAMPIMAGE;
+                          in_row_index : JDIMENSION;
+              output_buf : JSAMPIMAGE;
+                          out_row_group_index : JDIMENSION);
+var
+  downsample : my_downsample_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  in_ptr, out_ptr : JSAMPARRAY;
+begin
+  downsample := my_downsample_ptr (cinfo^.downsample);
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    in_ptr := JSAMPARRAY(@ input_buf^[ci]^[in_row_index]);
+    out_ptr := JSAMPARRAY(@ output_buf^[ci]^
+                     [out_row_group_index * JDIMENSION(compptr^.v_samp_factor)]);
+    downsample^.methods[ci] (cinfo, compptr, in_ptr, out_ptr);
+    Inc(compptr);
+  end;
+end;
+
+
+{ Downsample pixel values of a single component.
+  One row group is processed per call.
+  This version handles arbitrary integral sampling ratios, without smoothing.
+  Note that this version is not actually used for customary sampling ratios. }
+
+{METHODDEF}
+procedure int_downsample (cinfo : j_compress_ptr;
+                          compptr : jpeg_component_info_ptr;
+              input_data : JSAMPARRAY;
+                          output_data : JSAMPARRAY);
+var
+  inrow, outrow, h_expand, v_expand, numpix, numpix2, h, v : int;
+  outcol, outcol_h :  JDIMENSION; { outcol_h = outcol*h_expand }
+  output_cols : JDIMENSION;
+  inptr,
+  outptr : JSAMPLE_PTR;
+  outvalue : INT32;
+begin
+  output_cols := compptr^.width_in_blocks * DCTSIZE;
+
+  h_expand := cinfo^.max_h_samp_factor div compptr^.h_samp_factor;
+  v_expand := cinfo^.max_v_samp_factor div compptr^.v_samp_factor;
+  numpix := h_expand * v_expand;
+  numpix2 := numpix div 2;
+
+  { Expand input data enough to let all the output samples be generated
+    by the standard loop.  Special-casing padded output would be more
+    efficient. }
+
+  expand_right_edge(input_data, cinfo^.max_v_samp_factor,
+        cinfo^.image_width, output_cols * JDIMENSION(h_expand));
+
+  inrow := 0;
+  for outrow := 0 to pred(compptr^.v_samp_factor) do
+  begin
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    outcol_h := 0;
+    for outcol := 0 to pred(output_cols) do
+    begin
+      outvalue := 0;
+      for v := 0 to pred(v_expand) do
+      begin
+  inptr := @(input_data^[inrow+v]^[outcol_h]);
+  for h := 0 to pred(h_expand) do
+        begin
+    Inc(outvalue, INT32 (GETJSAMPLE(inptr^)) );
+          Inc(inptr);
+  end;
+      end;
+      outptr^ := JSAMPLE ((outvalue + numpix2) div numpix);
+      Inc(outptr);
+      Inc(outcol_h, h_expand);
+    end;
+    Inc(inrow, v_expand);
+  end;
+end;
+
+
+{ Downsample pixel values of a single component.
+  This version handles the special case of a full-size component,
+  without smoothing. }
+
+{METHODDEF}
+procedure fullsize_downsample (cinfo : j_compress_ptr;
+                               compptr : jpeg_component_info_ptr;
+                   input_data : JSAMPARRAY;
+                               output_data : JSAMPARRAY);
+begin
+  { Copy the data }
+  jcopy_sample_rows(input_data, 0, output_data, 0,
+        cinfo^.max_v_samp_factor, cinfo^.image_width);
+  { Edge-expand }
+  expand_right_edge(output_data, cinfo^.max_v_samp_factor,
+        cinfo^.image_width, compptr^.width_in_blocks * DCTSIZE);
+end;
+
+
+{ Downsample pixel values of a single component.
+  This version handles the common case of 2:1 horizontal and 1:1 vertical,
+  without smoothing.
+
+  A note about the "bias" calculations: when rounding fractional values to
+  integer, we do not want to always round 0.5 up to the next integer.
+  If we did that, we'd introduce a noticeable bias towards larger values.
+  Instead, this code is arranged so that 0.5 will be rounded up or down at
+  alternate pixel locations (a simple ordered dither pattern). }
+
+{METHODDEF}
+procedure h2v1_downsample (cinfo : j_compress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               input_data : JSAMPARRAY;
+                           output_data : JSAMPARRAY);
+var
+  outrow : int;
+  outcol : JDIMENSION;
+  output_cols : JDIMENSION;
+  {register} inptr, outptr : JSAMPLE_PTR;
+  {register} bias : int;
+begin
+  output_cols := compptr^.width_in_blocks * DCTSIZE;
+
+  { Expand input data enough to let all the output samples be generated
+    by the standard loop.  Special-casing padded output would be more
+    efficient. }
+
+  expand_right_edge(input_data, cinfo^.max_v_samp_factor,
+        cinfo^.image_width, output_cols * 2);
+
+  for outrow := 0 to pred(compptr^.v_samp_factor) do
+  begin
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    inptr := JSAMPLE_PTR(input_data^[outrow]);
+    bias := 0;         { bias := 0,1,0,1,... for successive samples }
+    for outcol := 0 to pred(output_cols) do
+    begin
+      outptr^ := JSAMPLE ((GETJSAMPLE(inptr^) +
+                           GETJSAMPLE(JSAMPROW(inptr)^[1]) + bias) shr 1);
+      Inc(outptr);
+      bias := bias xor 1;    { 0=>1, 1=>0 }
+      Inc(inptr, 2);
+    end;
+  end;
+end;
+
+
+{ Downsample pixel values of a single component.
+  This version handles the standard case of 2:1 horizontal and 2:1 vertical,
+  without smoothing. }
+
+{METHODDEF}
+procedure h2v2_downsample (cinfo : j_compress_ptr;
+                           compptr : jpeg_component_info_ptr;
+                           input_data : JSAMPARRAY;
+                           output_data : JSAMPARRAY);
+var
+  inrow, outrow : int;
+  outcol : JDIMENSION;
+  output_cols : JDIMENSION;
+  {register} inptr0, inptr1, outptr : JSAMPLE_PTR;
+  {register} bias : int;
+begin
+  output_cols := compptr^.width_in_blocks * DCTSIZE;
+
+  { Expand input data enough to let all the output samples be generated
+    by the standard loop.  Special-casing padded output would be more
+    efficient. }
+
+  expand_right_edge(input_data, cinfo^.max_v_samp_factor,
+        cinfo^.image_width, output_cols * 2);
+
+  inrow := 0;
+  for outrow := 0 to pred(compptr^.v_samp_factor) do
+  begin
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    inptr0 := JSAMPLE_PTR(input_data^[inrow]);
+    inptr1 := JSAMPLE_PTR(input_data^[inrow+1]);
+    bias := 1;      { bias := 1,2,1,2,... for successive samples }
+    for outcol := 0 to pred(output_cols) do
+    begin
+      outptr^ := JSAMPLE ((GETJSAMPLE(inptr0^) +
+                           GETJSAMPLE(JSAMPROW(inptr0)^[1]) +
+               GETJSAMPLE(inptr1^) +
+                           GETJSAMPLE(JSAMPROW(inptr1)^[1]) + bias) shr 2);
+      Inc(outptr);
+      bias := bias xor 3;       { 1=>2, 2=>1 }
+      Inc(inptr0, 2);
+      Inc(inptr1, 2);
+    end;
+    Inc(inrow, 2);
+  end;
+end;
+
+
+{$ifdef INPUT_SMOOTHING_SUPPORTED}
+
+{ Downsample pixel values of a single component.
+  This version handles the standard case of 2:1 horizontal and 2:1 vertical,
+  with smoothing.  One row of context is required. }
+
+{METHODDEF}
+procedure h2v2_smooth_downsample (cinfo : j_compress_ptr;
+                                  compptr : jpeg_component_info_ptr;
+                                  input_data : JSAMPARRAY;
+                                  output_data : JSAMPARRAY);
+var
+  inrow, outrow : int;
+  colctr : JDIMENSION;
+  output_cols : JDIMENSION;
+  {register} inptr0, inptr1, above_ptr, below_ptr, outptr : JSAMPLE_PTR;
+  membersum, neighsum, memberscale, neighscale : INT32;
+var
+  prev_input_data : JSAMPARRAY;
+  prev_inptr0, prev_inptr1, prev_above_ptr, prev_below_ptr : JSAMPLE_PTR;
+begin
+  output_cols := compptr^.width_in_blocks * DCTSIZE;
+
+  { Expand input data enough to let all the output samples be generated
+    by the standard loop.  Special-casing padded output would be more
+    efficient. }
+
+  prev_input_data := input_data;
+  Dec(JSAMPROW_PTR(prev_input_data));
+  expand_right_edge(prev_input_data, cinfo^.max_v_samp_factor + 2,
+        cinfo^.image_width, output_cols * 2);
+
+  { We don't bother to form the individual "smoothed" input pixel values;
+    we can directly compute the output which is the average of the four
+    smoothed values.  Each of the four member pixels contributes a fraction
+    (1-8*SF) to its own smoothed image and a fraction SF to each of the three
+    other smoothed pixels, therefore a total fraction (1-5*SF)/4 to the final
+    output.  The four corner-adjacent neighbor pixels contribute a fraction
+    SF to just one smoothed pixel, or SF/4 to the final output; while the
+    eight edge-adjacent neighbors contribute SF to each of two smoothed
+    pixels, or SF/2 overall.  In order to use integer arithmetic, these
+    factors are scaled by 2^16 := 65536.
+    Also recall that SF := smoothing_factor / 1024. }
+
+  memberscale := 16384 - cinfo^.smoothing_factor * 80; { scaled (1-5*SF)/4 }
+  neighscale := cinfo^.smoothing_factor * 16; { scaled SF/4 }
+
+  inrow := 0;
+  for outrow := 0 to pred(compptr^.v_samp_factor) do
+  begin
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    inptr0 := JSAMPLE_PTR(input_data^[inrow]);
+    inptr1 := JSAMPLE_PTR(input_data^[inrow+1]);
+    above_ptr := JSAMPLE_PTR(input_data^[inrow-1]);
+    below_ptr := JSAMPLE_PTR(input_data^[inrow+2]);
+
+    { Special case for first column: pretend column -1 is same as column 0 }
+    membersum := GETJSAMPLE(inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[1]) +
+    GETJSAMPLE(inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[1]);
+    neighsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(JSAMPROW(above_ptr)^[1]) +
+         GETJSAMPLE(below_ptr^) + GETJSAMPLE(JSAMPROW(below_ptr)^[1]) +
+         GETJSAMPLE(inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[2]) +
+         GETJSAMPLE(inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[2]);
+    Inc(neighsum, neighsum);
+    Inc(neighsum, GETJSAMPLE(above_ptr^) +
+                  GETJSAMPLE(JSAMPROW(above_ptr)^[2]) +
+      GETJSAMPLE(below_ptr^) +
+                  GETJSAMPLE(JSAMPROW(below_ptr)^[2]) );
+    membersum := membersum * memberscale + neighsum * neighscale;
+    outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+    Inc(outptr);
+    prev_inptr0 := inptr0;
+    prev_inptr1 := inptr1;
+    Inc(prev_inptr0);
+    Inc(prev_inptr1);
+    Inc(inptr0, 2);
+    Inc(inptr1, 2);
+    prev_above_ptr := above_ptr;
+    prev_below_ptr := below_ptr;
+    Inc(above_ptr, 2);
+    Inc(below_ptr, 2);
+    Inc(prev_above_ptr, 1);
+    Inc(prev_below_ptr, 1);
+
+    for colctr := pred(output_cols - 2) downto 0 do
+    begin
+      { sum of pixels directly mapped to this output element }
+      membersum := GETJSAMPLE(inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[1]) +
+                   GETJSAMPLE(inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[1]);
+      { sum of edge-neighbor pixels }
+      neighsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(JSAMPROW(above_ptr)^[1]) +
+                  GETJSAMPLE(below_ptr^) + GETJSAMPLE(JSAMPROW(below_ptr)^[1]) +
+                  GETJSAMPLE(prev_inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[2]) +
+                  GETJSAMPLE(prev_inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[2]);
+      { The edge-neighbors count twice as much as corner-neighbors }
+      Inc(neighsum, neighsum);
+      { Add in the corner-neighbors }
+      Inc(neighsum, GETJSAMPLE(prev_above_ptr^) +
+                    GETJSAMPLE(JSAMPROW(above_ptr)^[2]) +
+        GETJSAMPLE(prev_below_ptr^) +
+                    GETJSAMPLE(JSAMPROW(below_ptr)^[2]) );
+      { form final output scaled up by 2^16 }
+      membersum := membersum * memberscale + neighsum * neighscale;
+      { round, descale and output it }
+      outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+      Inc(outptr);
+      Inc(inptr0, 2);
+      Inc(inptr1, 2);
+      Inc(prev_inptr0, 2);
+      Inc(prev_inptr1, 2);
+      Inc(above_ptr, 2);
+      Inc(below_ptr, 2);
+      Inc(prev_above_ptr, 2);
+      Inc(prev_below_ptr, 2);
+    end;
+
+    { Special case for last column }
+    membersum := GETJSAMPLE(inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[1]) +
+     GETJSAMPLE(inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[1]);
+    neighsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(JSAMPROW(above_ptr)^[1]) +
+          GETJSAMPLE(below_ptr^) + GETJSAMPLE(JSAMPROW(below_ptr)^[1]) +
+          GETJSAMPLE(prev_inptr0^) + GETJSAMPLE(JSAMPROW(inptr0)^[1]) +
+          GETJSAMPLE(prev_inptr1^) + GETJSAMPLE(JSAMPROW(inptr1)^[1]);
+    Inc(neighsum, neighsum);
+    Inc(neighsum, GETJSAMPLE(prev_above_ptr^) +
+                  GETJSAMPLE(JSAMPROW(above_ptr)^[1]) +
+      GETJSAMPLE(prev_below_ptr^) +
+                  GETJSAMPLE(JSAMPROW(below_ptr)^[1]) );
+    membersum := membersum * memberscale + neighsum * neighscale;
+    outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+
+    Inc(inrow, 2);
+  end;
+end;
+
+
+{ Downsample pixel values of a single component.
+  This version handles the special case of a full-size component,
+  with smoothing.  One row of context is required. }
+
+{METHODDEF}
+procedure fullsize_smooth_downsample (cinfo : j_compress_ptr;
+                                      compptr : jpeg_component_info_ptr;
+                    input_data : JSAMPARRAY;
+                                      output_data : JSAMPARRAY);
+var
+  outrow : int;
+  colctr : JDIMENSION;
+  output_cols : JDIMENSION;
+  {register} inptr, above_ptr, below_ptr, outptr : JSAMPLE_PTR;
+  membersum, neighsum, memberscale, neighscale : INT32;
+  colsum, lastcolsum, nextcolsum : int;
+var
+  prev_input_data : JSAMPARRAY;
+begin
+  output_cols := compptr^.width_in_blocks * DCTSIZE;
+
+  { Expand input data enough to let all the output samples be generated
+    by the standard loop.  Special-casing padded output would be more
+    efficient. }
+
+  prev_input_data := input_data;
+  Dec(JSAMPROW_PTR(prev_input_data));
+  expand_right_edge(prev_input_data, cinfo^.max_v_samp_factor + 2,
+        cinfo^.image_width, output_cols);
+
+  { Each of the eight neighbor pixels contributes a fraction SF to the
+    smoothed pixel, while the main pixel contributes (1-8*SF).  In order
+    to use integer arithmetic, these factors are multiplied by 2^16 := 65536.
+    Also recall that SF := smoothing_factor / 1024. }
+
+  memberscale := long(65536) - cinfo^.smoothing_factor * long(512); { scaled 1-8*SF }
+  neighscale := cinfo^.smoothing_factor * 64; { scaled SF }
+
+  for outrow := 0 to pred(compptr^.v_samp_factor) do
+  begin
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    inptr := JSAMPLE_PTR(input_data^[outrow]);
+    above_ptr := JSAMPLE_PTR(input_data^[outrow-1]);
+    below_ptr := JSAMPLE_PTR(input_data^[outrow+1]);
+
+    { Special case for first column }
+    colsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(below_ptr^) +
+       GETJSAMPLE(inptr^);
+    Inc(above_ptr);
+    Inc(below_ptr);
+    membersum := GETJSAMPLE(inptr^);
+    Inc(inptr);
+    nextcolsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(below_ptr^) +
+      GETJSAMPLE(inptr^);
+    neighsum := colsum + (colsum - membersum) + nextcolsum;
+    membersum := membersum * memberscale + neighsum * neighscale;
+    outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+    Inc(outptr);
+    lastcolsum := colsum; colsum := nextcolsum;
+
+    for colctr := pred(output_cols - 2) downto 0 do
+    begin
+      membersum := GETJSAMPLE(inptr^);
+      Inc(inptr);
+      Inc(above_ptr);
+      Inc(below_ptr);
+      nextcolsum := GETJSAMPLE(above_ptr^) + GETJSAMPLE(below_ptr^) +
+        GETJSAMPLE(inptr^);
+      neighsum := lastcolsum + (colsum - membersum) + nextcolsum;
+      membersum := membersum * memberscale + neighsum * neighscale;
+      outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+      Inc(outptr);
+      lastcolsum := colsum; colsum := nextcolsum;
+    end;
+
+    { Special case for last column }
+    membersum := GETJSAMPLE(inptr^);
+    neighsum := lastcolsum + (colsum - membersum) + colsum;
+    membersum := membersum * memberscale + neighsum * neighscale;
+    outptr^ := JSAMPLE ((membersum + 32768) shr 16);
+  end;
+end;
+
+{$endif} { INPUT_SMOOTHING_SUPPORTED }
+
+
+{ Module initialization routine for downsampling.
+  Note that we must select a routine for each component. }
+
+{GLOBAL}
+procedure jinit_downsampler (cinfo : j_compress_ptr);
+var
+  downsample : my_downsample_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  smoothok : boolean;
+begin
+  smoothok := TRUE;
+
+  downsample := my_downsample_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_downsampler)) );
+  cinfo^.downsample := jpeg_downsampler_ptr (downsample);
+  downsample^.pub.start_pass := start_pass_downsample;
+  downsample^.pub.downsample := sep_downsample;
+  downsample^.pub.need_context_rows := FALSE;
+
+  if (cinfo^.CCIR601_sampling) then
+    ERREXIT(j_common_ptr(cinfo), JERR_CCIR601_NOTIMPL);
+
+  { Verify we can handle the sampling factors, and set up method pointers }
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    if (compptr^.h_samp_factor = cinfo^.max_h_samp_factor) and
+       (compptr^.v_samp_factor = cinfo^.max_v_samp_factor) then
+    begin
+{$ifdef INPUT_SMOOTHING_SUPPORTED}
+      if (cinfo^.smoothing_factor <> 0) then
+      begin
+  downsample^.methods[ci] := fullsize_smooth_downsample;
+  downsample^.pub.need_context_rows := TRUE;
+      end
+      else
+{$endif}
+  downsample^.methods[ci] := fullsize_downsample;
+    end
+    else
+      if (compptr^.h_samp_factor * 2 = cinfo^.max_h_samp_factor) and
+         (compptr^.v_samp_factor = cinfo^.max_v_samp_factor) then
+      begin
+        smoothok := FALSE;
+        downsample^.methods[ci] := h2v1_downsample;
+      end
+      else
+        if (compptr^.h_samp_factor * 2 = cinfo^.max_h_samp_factor) and
+     (compptr^.v_samp_factor * 2 = cinfo^.max_v_samp_factor) then
+        begin
+  {$ifdef INPUT_SMOOTHING_SUPPORTED}
+        if (cinfo^.smoothing_factor <> 0) then
+        begin
+    downsample^.methods[ci] := h2v2_smooth_downsample;
+    downsample^.pub.need_context_rows := TRUE;
+        end
+        else
+  {$endif}
+          downsample^.methods[ci] := h2v2_downsample;
+        end
+        else
+          if ((cinfo^.max_h_samp_factor mod compptr^.h_samp_factor) = 0) and
+       ((cinfo^.max_v_samp_factor mod compptr^.v_samp_factor) = 0) then
+          begin
+            smoothok := FALSE;
+            downsample^.methods[ci] := int_downsample;
+          end
+          else
+            ERREXIT(j_common_ptr(cinfo), JERR_FRACT_SAMPLE_NOTIMPL);
+    Inc(compptr);
+  end;
+
+{$ifdef INPUT_SMOOTHING_SUPPORTED}
+  if (cinfo^.smoothing_factor <> 0) and (not smoothok) then
+    TRACEMS(j_common_ptr(cinfo), 0, JTRC_SMOOTH_NOTIMPL);
+{$endif}
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdapimin.pas b/src/lib/vampimg/JpegLib/imjdapimin.pas

new file mode 100644 (file)

index 0000000..726d798
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdapimin.pas
@@ -0,0 +1,505 @@
+unit imjdapimin;
+
+{$N+}  { Nomssi: cinfo^.output_gamma }
+
+{ This file contains application interface code for the decompression half
+  of the JPEG library.  These are the "minimum" API routines that may be
+  needed in either the normal full-decompression case or the
+  transcoding-only case.
+
+  Most of the routines intended to be called directly by an application
+  are in this file or in jdapistd.c.  But also see jcomapi.c for routines
+  shared by compression and decompression, and jdtrans.c for the transcoding
+  case. }
+
+{ Original : jdapimin.c ;  Copyright (C) 1994-1998, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjmemmgr, imjdmarker, imjdinput, imjcomapi;
+
+{ Nomssi }
+procedure jpeg_create_decompress(cinfo : j_decompress_ptr);
+
+{ Initialization of a JPEG decompression object.
+  The error manager must already be set up (in case memory manager fails). }
+
+{GLOBAL}
+procedure jpeg_CreateDecompress (cinfo : j_decompress_ptr;
+                                 version : int;
+                                 structsize : size_t);
+
+{ Destruction of a JPEG decompression object }
+
+{GLOBAL}
+procedure jpeg_destroy_decompress (cinfo : j_decompress_ptr);
+
+
+{ Decompression startup: read start of JPEG datastream to see what's there.
+  Need only initialize JPEG object and supply a data source before calling.
+
+  This routine will read as far as the first SOS marker (ie, actual start of
+  compressed data), and will save all tables and parameters in the JPEG
+  object.  It will also initialize the decompression parameters to default
+  values, and finally return JPEG_HEADER_OK.  On return, the application may
+  adjust the decompression parameters and then call jpeg_start_decompress.
+  (Or, if the application only wanted to determine the image parameters,
+  the data need not be decompressed.  In that case, call jpeg_abort or
+  jpeg_destroy to release any temporary space.)
+  If an abbreviated (tables only) datastream is presented, the routine will
+  return JPEG_HEADER_TABLES_ONLY upon reaching EOI.  The application may then
+  re-use the JPEG object to read the abbreviated image datastream(s).
+  It is unnecessary (but OK) to call jpeg_abort in this case.
+  The JPEG_SUSPENDED return code only occurs if the data source module
+  requests suspension of the decompressor.  In this case the application
+  should load more source data and then re-call jpeg_read_header to resume
+  processing.
+  If a non-suspending data source is used and require_image is TRUE, then the
+  return code need not be inspected since only JPEG_HEADER_OK is possible.
+
+  This routine is now just a front end to jpeg_consume_input, with some
+  extra error checking. }
+
+{GLOBAL}
+function jpeg_read_header (cinfo : j_decompress_ptr;
+                           require_image : boolean) : int;
+
+{ Consume data in advance of what the decompressor requires.
+  This can be called at any time once the decompressor object has
+  been created and a data source has been set up.
+
+  This routine is essentially a state machine that handles a couple
+  of critical state-transition actions, namely initial setup and
+  transition from header scanning to ready-for-start_decompress.
+  All the actual input is done via the input controller's consume_input
+  method. }
+
+{GLOBAL}
+function jpeg_consume_input (cinfo : j_decompress_ptr) : int;
+
+{ Have we finished reading the input file? }
+
+{GLOBAL}
+function jpeg_input_complete (cinfo : j_decompress_ptr) : boolean;
+
+{ Is there more than one scan? }
+
+{GLOBAL}
+function jpeg_has_multiple_scans (cinfo : j_decompress_ptr) : boolean;
+
+
+{ Finish JPEG decompression.
+
+  This will normally just verify the file trailer and release temp storage.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_finish_decompress (cinfo : j_decompress_ptr) : boolean;
+
+implementation
+
+procedure jpeg_create_decompress(cinfo : j_decompress_ptr);
+begin
+  jpeg_CreateDecompress(cinfo, JPEG_LIB_VERSION,
+    size_t(sizeof(jpeg_decompress_struct)));
+end;
+
+{ Initialization of a JPEG decompression object.
+  The error manager must already be set up (in case memory manager fails). }
+
+{GLOBAL}
+procedure jpeg_CreateDecompress (cinfo : j_decompress_ptr;
+                                 version : int;
+                                 structsize : size_t);
+var
+  i : int;
+var
+  err : jpeg_error_mgr_ptr;
+  client_data : voidp;
+begin
+  { Guard against version mismatches between library and caller. }
+  cinfo^.mem := NIL;    { so jpeg_destroy knows mem mgr not called }
+  if (version <> JPEG_LIB_VERSION) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_BAD_LIB_VERSION, JPEG_LIB_VERSION, version);
+  if (structsize <> SIZEOF(jpeg_decompress_struct)) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_BAD_STRUCT_SIZE,
+       int(SIZEOF(jpeg_decompress_struct)), int(structsize));
+
+  { For debugging purposes, we zero the whole master structure.
+    But the application has already set the err pointer, and may have set
+    client_data, so we have to save and restore those fields.
+    Note: if application hasn't set client_data, tools like Purify may
+    complain here. }
+  begin
+    err := cinfo^.err;
+    client_data := cinfo^.client_data; { ignore Purify complaint here }
+    MEMZERO(j_common_ptr(cinfo), SIZEOF(jpeg_decompress_struct));
+    cinfo^.err := err;
+    cinfo^.client_data := client_data;
+  end;
+  cinfo^.is_decompressor := TRUE;
+
+  { Initialize a memory manager instance for this object }
+  jinit_memory_mgr(j_common_ptr(cinfo));
+
+  { Zero out pointers to permanent structures. }
+  cinfo^.progress := NIL;
+  cinfo^.src := NIL;
+
+  for i := 0 to pred(NUM_QUANT_TBLS) do
+    cinfo^.quant_tbl_ptrs[i] := NIL;
+
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    cinfo^.dc_huff_tbl_ptrs[i] := NIL;
+    cinfo^.ac_huff_tbl_ptrs[i] := NIL;
+  end;
+
+  { Initialize marker processor so application can override methods
+    for COM, APPn markers before calling jpeg_read_header.  }
+  cinfo^.marker_list := NIL;
+  jinit_marker_reader(cinfo);
+
+  { And initialize the overall input controller. }
+  jinit_input_controller(cinfo);
+
+  { OK, I'm ready }
+  cinfo^.global_state := DSTATE_START;
+end;
+
+
+{ Destruction of a JPEG decompression object }
+
+{GLOBAL}
+procedure jpeg_destroy_decompress (cinfo : j_decompress_ptr);
+begin
+  jpeg_destroy(j_common_ptr(cinfo)); { use common routine }
+end;
+
+
+{ Abort processing of a JPEG decompression operation,
+  but don't destroy the object itself. }
+
+{GLOBAL}
+procedure jpeg_abort_decompress (cinfo : j_decompress_ptr);
+begin
+  jpeg_abort(j_common_ptr(cinfo)); { use common routine }
+end;
+
+
+{ Set default decompression parameters. }
+
+{LOCAL}
+procedure default_decompress_parms (cinfo : j_decompress_ptr);
+var
+  cid0 : int;
+  cid1 : int;
+  cid2 : int;
+begin
+  { Guess the input colorspace, and set output colorspace accordingly. }
+  { (Wish JPEG committee had provided a real way to specify this...) }
+  { Note application may override our guesses. }
+  case (cinfo^.num_components) of
+  1: begin
+       cinfo^.jpeg_color_space := JCS_GRAYSCALE;
+       cinfo^.out_color_space := JCS_GRAYSCALE;
+     end;
+
+  3: begin
+       if (cinfo^.saw_JFIF_marker) then
+       begin
+         cinfo^.jpeg_color_space := JCS_YCbCr; { JFIF implies YCbCr }
+       end
+       else
+         if (cinfo^.saw_Adobe_marker) then
+         begin
+           case (cinfo^.Adobe_transform) of
+           0: cinfo^.jpeg_color_space := JCS_RGB;
+           1: cinfo^.jpeg_color_space := JCS_YCbCr;
+           else
+             begin
+         WARNMS1(j_common_ptr(cinfo), JWRN_ADOBE_XFORM, cinfo^.Adobe_transform);
+               cinfo^.jpeg_color_space := JCS_YCbCr; { assume it's YCbCr }
+             end;
+           end;
+         end
+         else
+         begin
+           { Saw no special markers, try to guess from the component IDs }
+           cid0 := cinfo^.comp_info^[0].component_id;
+           cid1 := cinfo^.comp_info^[1].component_id;
+           cid2 := cinfo^.comp_info^[2].component_id;
+
+           if (cid0 = 1) and (cid1 = 2) and (cid2 = 3) then
+       cinfo^.jpeg_color_space := JCS_YCbCr { assume JFIF w/out marker }
+           else
+             if (cid0 = 82) and (cid1 = 71) and (cid2 = 66) then
+               cinfo^.jpeg_color_space := JCS_RGB { ASCII 'R', 'G', 'B' }
+             else
+             begin
+               {$IFDEF DEBUG}
+         TRACEMS3(j_common_ptr(cinfo), 1, JTRC_UNKNOWN_IDS, cid0, cid1, cid2);
+               {$ENDIF}
+               cinfo^.jpeg_color_space := JCS_YCbCr; { assume it's YCbCr }
+             end;
+         end;
+       { Always guess RGB is proper output colorspace. }
+       cinfo^.out_color_space := JCS_RGB;
+     end;
+
+  4: begin
+       if (cinfo^.saw_Adobe_marker) then
+       begin
+         case (cinfo^.Adobe_transform) of
+         0: cinfo^.jpeg_color_space := JCS_CMYK;
+         2: cinfo^.jpeg_color_space := JCS_YCCK;
+         else
+           begin
+             WARNMS1(j_common_ptr(cinfo), JWRN_ADOBE_XFORM, cinfo^.Adobe_transform);
+             cinfo^.jpeg_color_space := JCS_YCCK; { assume it's YCCK }
+           end;
+         end;
+       end
+       else
+       begin
+         { No special markers, assume straight CMYK. }
+         cinfo^.jpeg_color_space := JCS_CMYK;
+       end;
+       cinfo^.out_color_space := JCS_CMYK;
+     end;
+
+  else
+    begin
+      cinfo^.jpeg_color_space := JCS_UNKNOWN;
+      cinfo^.out_color_space := JCS_UNKNOWN;
+    end;
+  end;
+
+  { Set defaults for other decompression parameters. }
+  cinfo^.scale_num := 1;    { 1:1 scaling }
+  cinfo^.scale_denom := 1;
+  cinfo^.output_gamma := 1.0;
+  cinfo^.buffered_image := FALSE;
+  cinfo^.raw_data_out := FALSE;
+  cinfo^.dct_method := JDCT_DEFAULT;
+  cinfo^.do_fancy_upsampling := TRUE;
+  cinfo^.do_block_smoothing := TRUE;
+  cinfo^.quantize_colors := FALSE;
+  { We set these in case application only sets quantize_colors. }
+  cinfo^.dither_mode := JDITHER_FS;
+{$ifdef QUANT_2PASS_SUPPORTED}
+  cinfo^.two_pass_quantize := TRUE;
+{$else}
+  cinfo^.two_pass_quantize := FALSE;
+{$endif}
+  cinfo^.desired_number_of_colors := 256;
+  cinfo^.colormap := NIL;
+  { Initialize for no mode change in buffered-image mode. }
+  cinfo^.enable_1pass_quant := FALSE;
+  cinfo^.enable_external_quant := FALSE;
+  cinfo^.enable_2pass_quant := FALSE;
+end;
+
+
+{ Decompression startup: read start of JPEG datastream to see what's there.
+  Need only initialize JPEG object and supply a data source before calling.
+
+  This routine will read as far as the first SOS marker (ie, actual start of
+  compressed data), and will save all tables and parameters in the JPEG
+  object.  It will also initialize the decompression parameters to default
+  values, and finally return JPEG_HEADER_OK.  On return, the application may
+  adjust the decompression parameters and then call jpeg_start_decompress.
+  (Or, if the application only wanted to determine the image parameters,
+  the data need not be decompressed.  In that case, call jpeg_abort or
+  jpeg_destroy to release any temporary space.)
+  If an abbreviated (tables only) datastream is presented, the routine will
+  return JPEG_HEADER_TABLES_ONLY upon reaching EOI.  The application may then
+  re-use the JPEG object to read the abbreviated image datastream(s).
+  It is unnecessary (but OK) to call jpeg_abort in this case.
+  The JPEG_SUSPENDED return code only occurs if the data source module
+  requests suspension of the decompressor.  In this case the application
+  should load more source data and then re-call jpeg_read_header to resume
+  processing.
+  If a non-suspending data source is used and require_image is TRUE, then the
+  return code need not be inspected since only JPEG_HEADER_OK is possible.
+
+  This routine is now just a front end to jpeg_consume_input, with some
+  extra error checking. }
+
+{GLOBAL}
+function jpeg_read_header (cinfo : j_decompress_ptr;
+                           require_image : boolean) : int;
+var
+  retcode : int;
+begin
+  if (cinfo^.global_state <> DSTATE_START) and
+     (cinfo^.global_state <> DSTATE_INHEADER) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  retcode := jpeg_consume_input(cinfo);
+
+  case (retcode) of
+  JPEG_REACHED_SOS:
+    retcode := JPEG_HEADER_OK;
+  JPEG_REACHED_EOI:
+    begin
+      if (require_image) then   { Complain if application wanted an image }
+        ERREXIT(j_common_ptr(cinfo), JERR_NO_IMAGE);
+      { Reset to start state; it would be safer to require the application to
+        call jpeg_abort, but we can't change it now for compatibility reasons.
+        A side effect is to free any temporary memory (there shouldn't be any). }
+
+      jpeg_abort(j_common_ptr(cinfo)); { sets state := DSTATE_START }
+      retcode := JPEG_HEADER_TABLES_ONLY;
+    end;
+  JPEG_SUSPENDED: ;    { no work }
+  end;
+
+  jpeg_read_header := retcode;
+end;
+
+
+{ Consume data in advance of what the decompressor requires.
+  This can be called at any time once the decompressor object has
+  been created and a data source has been set up.
+
+  This routine is essentially a state machine that handles a couple
+  of critical state-transition actions, namely initial setup and
+  transition from header scanning to ready-for-start_decompress.
+  All the actual input is done via the input controller's consume_input
+  method. }
+
+{GLOBAL}
+function jpeg_consume_input (cinfo : j_decompress_ptr) : int;
+var
+  retcode : int;
+begin
+  retcode := JPEG_SUSPENDED;
+
+  { NB: every possible DSTATE value should be listed in this switch }
+
+  if (cinfo^.global_state) = DSTATE_START then
+  begin {work around the FALLTHROUGH}
+    { Start-of-datastream actions: reset appropriate modules }
+    cinfo^.inputctl^.reset_input_controller (cinfo);
+    { Initialize application's data source module }
+    cinfo^.src^.init_source (cinfo);
+    cinfo^.global_state := DSTATE_INHEADER;
+  end;
+
+  case (cinfo^.global_state) of
+  DSTATE_START,
+  DSTATE_INHEADER:
+    begin
+      retcode := cinfo^.inputctl^.consume_input (cinfo);
+      if (retcode = JPEG_REACHED_SOS) then
+      begin { Found SOS, prepare to decompress }
+        { Set up default parameters based on header data }
+        default_decompress_parms(cinfo);
+        { Set global state: ready for start_decompress }
+        cinfo^.global_state := DSTATE_READY;
+      end;
+    end;
+  DSTATE_READY:
+    { Can't advance past first SOS until start_decompress is called }
+    retcode := JPEG_REACHED_SOS;
+
+  DSTATE_PRELOAD,
+  DSTATE_PRESCAN,
+  DSTATE_SCANNING,
+  DSTATE_RAW_OK,
+  DSTATE_BUFIMAGE,
+  DSTATE_BUFPOST,
+  DSTATE_STOPPING:
+    retcode := cinfo^.inputctl^.consume_input (cinfo);
+  else
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  end;
+  jpeg_consume_input := retcode;
+end;
+
+
+{ Have we finished reading the input file? }
+
+{GLOBAL}
+function jpeg_input_complete (cinfo : j_decompress_ptr) : boolean;
+begin
+  { Check for valid jpeg object }
+  if (cinfo^.global_state < DSTATE_START) or
+     (cinfo^.global_state > DSTATE_STOPPING) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  jpeg_input_complete := cinfo^.inputctl^.eoi_reached;
+end;
+
+
+{ Is there more than one scan? }
+
+{GLOBAL}
+function jpeg_has_multiple_scans (cinfo : j_decompress_ptr) : boolean;
+begin
+  { Only valid after jpeg_read_header completes }
+  if (cinfo^.global_state < DSTATE_READY) or
+     (cinfo^.global_state > DSTATE_STOPPING) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  jpeg_has_multiple_scans := cinfo^.inputctl^.has_multiple_scans;
+end;
+
+
+{ Finish JPEG decompression.
+
+  This will normally just verify the file trailer and release temp storage.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_finish_decompress (cinfo : j_decompress_ptr) : boolean;
+begin
+  if ((cinfo^.global_state = DSTATE_SCANNING) or
+      (cinfo^.global_state = DSTATE_RAW_OK) and (not cinfo^.buffered_image)) then
+  begin
+    { Terminate final pass of non-buffered mode }
+    if (cinfo^.output_scanline < cinfo^.output_height) then
+      ERREXIT(j_common_ptr(cinfo), JERR_TOO_LITTLE_DATA);
+    cinfo^.master^.finish_output_pass (cinfo);
+    cinfo^.global_state := DSTATE_STOPPING;
+  end
+  else
+    if (cinfo^.global_state = DSTATE_BUFIMAGE) then
+    begin
+      { Finishing after a buffered-image operation }
+      cinfo^.global_state := DSTATE_STOPPING;
+    end
+    else
+      if (cinfo^.global_state <> DSTATE_STOPPING) then
+      begin
+        { STOPPING := repeat call after a suspension, anything else is error }
+        ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+      end;
+  { Read until EOI }
+  while (not cinfo^.inputctl^.eoi_reached) do
+  begin
+    if (cinfo^.inputctl^.consume_input (cinfo) = JPEG_SUSPENDED) then
+    begin
+      jpeg_finish_decompress := FALSE;  { Suspend, come back later }
+      exit;
+    end;
+  end;
+  { Do final cleanup }
+  cinfo^.src^.term_source (cinfo);
+  { We can use jpeg_abort to release memory and reset global_state }
+  jpeg_abort(j_common_ptr(cinfo));
+  jpeg_finish_decompress := TRUE;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdapistd.pas b/src/lib/vampimg/JpegLib/imjdapistd.pas

new file mode 100644 (file)

index 0000000..04afd11
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdapistd.pas
@@ -0,0 +1,376 @@
+unit imjdapistd;
+
+{ Original : jdapistd.c ;  Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{  This file is part of the Independent JPEG Group's software.
+  For conditions of distribution and use, see the accompanying README file.
+
+  This file contains application interface code for the decompression half
+  of the JPEG library.  These are the "standard" API routines that are
+  used in the normal full-decompression case.  They are not used by a
+  transcoding-only application.  Note that if an application links in
+  jpeg_start_decompress, it will end up linking in the entire decompressor.
+  We thus must separate this file from jdapimin.c to avoid linking the
+  whole decompression library into a transcoder. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjdmaster;
+
+{ Read some scanlines of data from the JPEG decompressor.
+
+  The return value will be the number of lines actually read.
+  This may be less than the number requested in several cases,
+  including bottom of image, data source suspension, and operating
+  modes that emit multiple scanlines at a time.
+
+  Note: we warn about excess calls to jpeg_read_scanlines() since
+  this likely signals an application programmer error.  However,
+  an oversize buffer (max_lines > scanlines remaining) is not an error. }
+
+{GLOBAL}
+function jpeg_read_scanlines (cinfo : j_decompress_ptr;
+                              scanlines : JSAMPARRAY;
+                  max_lines : JDIMENSION) : JDIMENSION;
+
+
+{ Alternate entry point to read raw data.
+  Processes exactly one iMCU row per call, unless suspended. }
+
+{GLOBAL}
+function jpeg_read_raw_data (cinfo : j_decompress_ptr;
+                             data : JSAMPIMAGE;
+                 max_lines : JDIMENSION) : JDIMENSION;
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+
+{ Initialize for an output pass in buffered-image mode. }
+
+{GLOBAL}
+function jpeg_start_output (cinfo : j_decompress_ptr;
+                            scan_number : int) : boolean;
+
+{ Finish up after an output pass in buffered-image mode.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_finish_output (cinfo : j_decompress_ptr) : boolean;
+
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+
+{ Decompression initialization.
+  jpeg_read_header must be completed before calling this.
+
+  If a multipass operating mode was selected, this will do all but the
+  last pass, and thus may take a great deal of time.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_start_decompress (cinfo : j_decompress_ptr) : boolean;
+
+
+implementation
+
+{ Forward declarations }
+{LOCAL}
+function output_pass_setup (cinfo : j_decompress_ptr) : boolean; forward;
+
+{ Decompression initialization.
+  jpeg_read_header must be completed before calling this.
+
+  If a multipass operating mode was selected, this will do all but the
+  last pass, and thus may take a great deal of time.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_start_decompress (cinfo : j_decompress_ptr) : boolean;
+var
+  retcode : int;
+begin
+  if (cinfo^.global_state = DSTATE_READY) then
+  begin
+    { First call: initialize master control, select active modules }
+    jinit_master_decompress(cinfo);
+    if (cinfo^.buffered_image) then
+    begin
+      { No more work here; expecting jpeg_start_output next }
+      cinfo^.global_state := DSTATE_BUFIMAGE;
+      jpeg_start_decompress := TRUE;
+      exit;
+    end;
+    cinfo^.global_state := DSTATE_PRELOAD;
+  end;
+  if (cinfo^.global_state = DSTATE_PRELOAD) then
+  begin
+    { If file has multiple scans, absorb them all into the coef buffer }
+    if (cinfo^.inputctl^.has_multiple_scans) then
+    begin
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+      while TRUE do
+      begin
+
+  { Call progress monitor hook if present }
+  if (cinfo^.progress <> NIL) then
+    cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+  { Absorb some more input }
+  retcode := cinfo^.inputctl^.consume_input (cinfo);
+  if (retcode = JPEG_SUSPENDED) then
+        begin
+          jpeg_start_decompress := FALSE;
+          exit;
+        end;
+  if (retcode = JPEG_REACHED_EOI) then
+    break;
+  { Advance progress counter if appropriate }
+  if (cinfo^.progress <> NIL) and
+     ((retcode = JPEG_ROW_COMPLETED) or (retcode = JPEG_REACHED_SOS)) then
+        begin
+          Inc(cinfo^.progress^.pass_counter);
+    if (cinfo^.progress^.pass_counter >= cinfo^.progress^.pass_limit) then
+          begin
+      { jdmaster underestimated number of scans; ratchet up one scan }
+      Inc(cinfo^.progress^.pass_limit, long(cinfo^.total_iMCU_rows));
+    end;
+  end;
+      end;
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+    end;
+    cinfo^.output_scan_number := cinfo^.input_scan_number;
+  end
+  else
+    if (cinfo^.global_state <> DSTATE_PRESCAN) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  { Perform any dummy output passes, and set up for the final pass }
+  jpeg_start_decompress := output_pass_setup(cinfo);
+end;
+
+
+{ Set up for an output pass, and perform any dummy pass(es) needed.
+  Common subroutine for jpeg_start_decompress and jpeg_start_output.
+  Entry: global_state := DSTATE_PRESCAN only if previously suspended.
+  Exit: If done, returns TRUE and sets global_state for proper output mode.
+        If suspended, returns FALSE and sets global_state := DSTATE_PRESCAN. }
+
+{LOCAL}
+function output_pass_setup (cinfo : j_decompress_ptr) : boolean;
+var
+  last_scanline : JDIMENSION;
+begin
+  if (cinfo^.global_state <> DSTATE_PRESCAN) then
+  begin
+    { First call: do pass setup }
+    cinfo^.master^.prepare_for_output_pass (cinfo);
+    cinfo^.output_scanline := 0;
+    cinfo^.global_state := DSTATE_PRESCAN;
+  end;
+  { Loop over any required dummy passes }
+  while (cinfo^.master^.is_dummy_pass) do
+  begin
+{$ifdef QUANT_2PASS_SUPPORTED}
+    { Crank through the dummy pass }
+    while (cinfo^.output_scanline < cinfo^.output_height) do
+    begin
+      { Call progress monitor hook if present }
+      if (cinfo^.progress <> NIL) then
+      begin
+  cinfo^.progress^.pass_counter := long (cinfo^.output_scanline);
+  cinfo^.progress^.pass_limit := long (cinfo^.output_height);
+  cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+      end;
+      { Process some data }
+      last_scanline := cinfo^.output_scanline;
+      cinfo^.main^.process_data (cinfo, JSAMPARRAY(NIL),
+         cinfo^.output_scanline, {var}
+                                 JDIMENSION(0));
+      if (cinfo^.output_scanline = last_scanline) then
+      begin
+  output_pass_setup := FALSE; { No progress made, must suspend }
+        exit;
+      end;
+    end;
+    { Finish up dummy pass, and set up for another one }
+    cinfo^.master^.finish_output_pass (cinfo);
+    cinfo^.master^.prepare_for_output_pass (cinfo);
+    cinfo^.output_scanline := 0;
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif} { QUANT_2PASS_SUPPORTED }
+  end;
+  { Ready for application to drive output pass through
+    jpeg_read_scanlines or jpeg_read_raw_data. }
+  if cinfo^.raw_data_out then
+    cinfo^.global_state := DSTATE_RAW_OK
+   else
+     cinfo^.global_state := DSTATE_SCANNING;
+  output_pass_setup := TRUE;
+end;
+
+
+{ Read some scanlines of data from the JPEG decompressor.
+
+  The return value will be the number of lines actually read.
+  This may be less than the number requested in several cases,
+  including bottom of image, data source suspension, and operating
+  modes that emit multiple scanlines at a time.
+
+  Note: we warn about excess calls to jpeg_read_scanlines() since
+  this likely signals an application programmer error.  However,
+  an oversize buffer (max_lines > scanlines remaining) is not an error. }
+
+{GLOBAL}
+function jpeg_read_scanlines (cinfo : j_decompress_ptr;
+                              scanlines : JSAMPARRAY;
+                  max_lines : JDIMENSION) : JDIMENSION;
+var
+  row_ctr : JDIMENSION;
+begin
+  if (cinfo^.global_state <> DSTATE_SCANNING) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  if (cinfo^.output_scanline >= cinfo^.output_height) then
+  begin
+    WARNMS(j_common_ptr(cinfo), JWRN_TOO_MUCH_DATA);
+    jpeg_read_scanlines := 0;
+    exit;
+  end;
+
+  { Call progress monitor hook if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.pass_counter := long (cinfo^.output_scanline);
+    cinfo^.progress^.pass_limit := long (cinfo^.output_height);
+    cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+  end;
+
+  { Process some data }
+  row_ctr := 0;
+  cinfo^.main^.process_data (cinfo, scanlines, {var}row_ctr, max_lines);
+  Inc(cinfo^.output_scanline, row_ctr);
+  jpeg_read_scanlines := row_ctr;
+end;
+
+
+{ Alternate entry point to read raw data.
+  Processes exactly one iMCU row per call, unless suspended. }
+
+{GLOBAL}
+function jpeg_read_raw_data (cinfo : j_decompress_ptr;
+                             data : JSAMPIMAGE;
+                 max_lines : JDIMENSION) : JDIMENSION;
+var
+  lines_per_iMCU_row : JDIMENSION;
+begin
+  if (cinfo^.global_state <> DSTATE_RAW_OK) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  if (cinfo^.output_scanline >= cinfo^.output_height) then
+  begin
+    WARNMS(j_common_ptr(cinfo), JWRN_TOO_MUCH_DATA);
+    jpeg_read_raw_data := 0;
+    exit;
+  end;
+
+  { Call progress monitor hook if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.pass_counter := long (cinfo^.output_scanline);
+    cinfo^.progress^.pass_limit := long (cinfo^.output_height);
+    cinfo^.progress^.progress_monitor (j_common_ptr(cinfo));
+  end;
+
+  { Verify that at least one iMCU row can be returned. }
+  lines_per_iMCU_row := cinfo^.max_v_samp_factor * cinfo^.min_DCT_scaled_size;
+  if (max_lines < lines_per_iMCU_row) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BUFFER_SIZE);
+
+  { Decompress directly into user's buffer. }
+  if (cinfo^.coef^.decompress_data (cinfo, data) = 0) then
+  begin
+    jpeg_read_raw_data := 0;      { suspension forced, can do nothing more }
+    exit;
+  end;
+
+  { OK, we processed one iMCU row. }
+  Inc(cinfo^.output_scanline, lines_per_iMCU_row);
+  jpeg_read_raw_data := lines_per_iMCU_row;
+end;
+
+
+{ Additional entry points for buffered-image mode. }
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+
+{ Initialize for an output pass in buffered-image mode. }
+
+{GLOBAL}
+function jpeg_start_output (cinfo : j_decompress_ptr;
+                            scan_number : int) : boolean;
+begin
+  if (cinfo^.global_state <> DSTATE_BUFIMAGE) and
+     (cinfo^.global_state <> DSTATE_PRESCAN) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+  { Limit scan number to valid range }
+  if (scan_number <= 0) then
+    scan_number := 1;
+  if (cinfo^.inputctl^.eoi_reached) and
+     (scan_number > cinfo^.input_scan_number) then
+    scan_number := cinfo^.input_scan_number;
+  cinfo^.output_scan_number := scan_number;
+  { Perform any dummy output passes, and set up for the real pass }
+  jpeg_start_output := output_pass_setup(cinfo);
+end;
+
+
+{ Finish up after an output pass in buffered-image mode.
+
+  Returns FALSE if suspended.  The return value need be inspected only if
+  a suspending data source is used. }
+
+{GLOBAL}
+function jpeg_finish_output (cinfo : j_decompress_ptr) : boolean;
+begin
+  if ((cinfo^.global_state = DSTATE_SCANNING) or
+      (cinfo^.global_state = DSTATE_RAW_OK) and cinfo^.buffered_image) then
+  begin
+    { Terminate this pass. }
+    { We do not require the whole pass to have been completed. }
+    cinfo^.master^.finish_output_pass (cinfo);
+    cinfo^.global_state := DSTATE_BUFPOST;
+  end
+  else
+    if (cinfo^.global_state <> DSTATE_BUFPOST) then
+    begin
+      { BUFPOST := repeat call after a suspension, anything else is error }
+      ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+    end;
+  { Read markers looking for SOS or EOI }
+  while (cinfo^.input_scan_number <= cinfo^.output_scan_number) and
+  (not cinfo^.inputctl^.eoi_reached) do
+  begin
+    if (cinfo^.inputctl^.consume_input (cinfo) = JPEG_SUSPENDED) then
+    begin
+      jpeg_finish_output := FALSE;  { Suspend, come back later }
+      exit;
+    end;
+  end;
+  cinfo^.global_state := DSTATE_BUFIMAGE;
+  jpeg_finish_output := TRUE;
+end;
+
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdcoefct.pas b/src/lib/vampimg/JpegLib/imjdcoefct.pas

new file mode 100644 (file)

index 0000000..5024786
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdcoefct.pas
@@ -0,0 +1,895 @@
+unit imjdcoefct;
+
+{ This file contains the coefficient buffer controller for decompression.
+  This controller is the top level of the JPEG decompressor proper.
+  The coefficient buffer lies between entropy decoding and inverse-DCT steps.
+
+  In buffered-image mode, this controller is the interface between
+  input-oriented processing and output-oriented processing.
+  Also, the input side (only) is used when reading a file for transcoding. }
+
+{ Original: jdcoefct.c ; Copyright (C) 1994-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjpeglib;
+
+{GLOBAL}
+procedure jinit_d_coef_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+
+
+implementation
+
+
+{ Block smoothing is only applicable for progressive JPEG, so: }
+{$ifndef D_PROGRESSIVE_SUPPORTED}
+{$undef BLOCK_SMOOTHING_SUPPORTED}
+{$endif}
+
+{ Private buffer controller object }
+
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+const
+  SAVED_COEFS = 6;              { we save coef_bits[0..5] }
+type
+  Latch = array[0..SAVED_COEFS-1] of int;
+  Latch_ptr = ^Latch;
+{$endif}
+
+type
+  my_coef_ptr = ^my_coef_controller;
+  my_coef_controller = record
+    pub : jpeg_d_coef_controller; { public fields }
+
+    { These variables keep track of the current location of the input side. }
+    { cinfo^.input_iMCU_row is also used for this. }
+    MCU_ctr : JDIMENSION;               { counts MCUs processed in current row }
+    MCU_vert_offset : int;              { counts MCU rows within iMCU row }
+    MCU_rows_per_iMCU_row : int;        { number of such rows needed }
+
+    { The output side's location is represented by cinfo^.output_iMCU_row. }
+
+    { In single-pass modes, it's sufficient to buffer just one MCU.
+      We allocate a workspace of D_MAX_BLOCKS_IN_MCU coefficient blocks,
+      and let the entropy decoder write into that workspace each time.
+      (On 80x86, the workspace is FAR even though it's not really very big;
+      this is to keep the module interfaces unchanged when a large coefficient
+      buffer is necessary.)
+      In multi-pass modes, this array points to the current MCU's blocks
+      within the virtual arrays; it is used only by the input side. }
+
+    MCU_buffer : array[0..D_MAX_BLOCKS_IN_MCU-1] of JBLOCKROW;
+
+  {$ifdef D_MULTISCAN_FILES_SUPPORTED}
+    { In multi-pass modes, we need a virtual block array for each component. }
+    whole_image : jvirt_barray_tbl;
+  {$endif}
+
+  {$ifdef BLOCK_SMOOTHING_SUPPORTED}
+    { When doing block smoothing, we latch coefficient Al values here }
+    coef_bits_latch : Latch_Ptr;
+  {$endif}
+  end;
+
+{ Forward declarations }
+{METHODDEF}
+function decompress_onepass (cinfo : j_decompress_ptr;
+                             output_buf : JSAMPIMAGE) : int; forward;
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+{METHODDEF}
+function decompress_data (cinfo : j_decompress_ptr;
+                          output_buf : JSAMPIMAGE) : int; forward;
+{$endif}
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+{LOCAL}
+function smoothing_ok (cinfo : j_decompress_ptr) : boolean; forward;
+
+{METHODDEF}
+function decompress_smooth_data (cinfo : j_decompress_ptr;
+                                 output_buf : JSAMPIMAGE) : int; forward;
+{$endif}
+
+
+{LOCAL}
+procedure start_iMCU_row (cinfo : j_decompress_ptr);
+{ Reset within-iMCU-row counters for a new row (input side) }
+var
+  coef : my_coef_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+
+  { In an interleaved scan, an MCU row is the same as an iMCU row.
+    In a noninterleaved scan, an iMCU row has v_samp_factor MCU rows.
+    But at the bottom of the image, process only what's left. }
+
+  if (cinfo^.comps_in_scan > 1) then
+  begin
+    coef^.MCU_rows_per_iMCU_row := 1;
+  end
+  else
+  begin
+    if (cinfo^.input_iMCU_row < (cinfo^.total_iMCU_rows-1)) then
+      coef^.MCU_rows_per_iMCU_row := cinfo^.cur_comp_info[0]^.v_samp_factor
+    else
+      coef^.MCU_rows_per_iMCU_row := cinfo^.cur_comp_info[0]^.last_row_height;
+  end;
+
+  coef^.MCU_ctr := 0;
+  coef^.MCU_vert_offset := 0;
+end;
+
+
+{ Initialize for an input processing pass. }
+
+{METHODDEF}
+procedure start_input_pass (cinfo : j_decompress_ptr);
+begin
+  cinfo^.input_iMCU_row := 0;
+  start_iMCU_row(cinfo);
+end;
+
+
+{ Initialize for an output processing pass. }
+
+{METHODDEF}
+procedure start_output_pass (cinfo : j_decompress_ptr);
+var
+  coef : my_coef_ptr;
+begin
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+  coef := my_coef_ptr (cinfo^.coef);
+
+  { If multipass, check to see whether to use block smoothing on this pass }
+  if (coef^.pub.coef_arrays <> NIL) then
+  begin
+    if (cinfo^.do_block_smoothing) and smoothing_ok(cinfo) then
+      coef^.pub.decompress_data := decompress_smooth_data
+    else
+      coef^.pub.decompress_data := decompress_data;
+  end;
+{$endif}
+  cinfo^.output_iMCU_row := 0;
+end;
+
+
+{ Decompress and return some data in the single-pass case.
+  Always attempts to emit one fully interleaved MCU row ("iMCU" row).
+  Input and output must run in lockstep since we have only a one-MCU buffer.
+  Return value is JPEG_ROW_COMPLETED, JPEG_SCAN_COMPLETED, or JPEG_SUSPENDED.
+
+  NB: output_buf contains a plane for each component in image,
+  which we index according to the component's SOF position.}
+
+{METHODDEF}
+function decompress_onepass (cinfo : j_decompress_ptr;
+                             output_buf : JSAMPIMAGE) : int;
+var
+  coef : my_coef_ptr;
+  MCU_col_num : JDIMENSION;     { index of current MCU within row }
+  last_MCU_col : JDIMENSION;
+  last_iMCU_row : JDIMENSION;
+  blkn, ci, xindex, yindex, yoffset, useful_width : int;
+  output_ptr : JSAMPARRAY;
+  start_col, output_col : JDIMENSION;
+  compptr : jpeg_component_info_ptr;
+  inverse_DCT : inverse_DCT_method_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  last_MCU_col := cinfo^.MCUs_per_row - 1;
+  last_iMCU_row := cinfo^.total_iMCU_rows - 1;
+
+  { Loop to process as much as one whole iMCU row }
+  for yoffset := coef^.MCU_vert_offset to pred(coef^.MCU_rows_per_iMCU_row) do
+  begin
+    for MCU_col_num := coef^.MCU_ctr to last_MCU_col do
+    begin
+      { Try to fetch an MCU.  Entropy decoder expects buffer to be zeroed. }
+      jzero_far( coef^.MCU_buffer[0],
+    size_t (cinfo^.blocks_in_MCU * SIZEOF(JBLOCK)));
+      if (not cinfo^.entropy^.decode_mcu (cinfo, coef^.MCU_buffer)) then
+      begin
+  { Suspension forced; update state counters and exit }
+  coef^.MCU_vert_offset := yoffset;
+  coef^.MCU_ctr := MCU_col_num;
+  decompress_onepass := JPEG_SUSPENDED;
+        exit;
+      end;
+      { Determine where data should go in output_buf and do the IDCT thing.
+        We skip dummy blocks at the right and bottom edges (but blkn gets
+        incremented past them!).  Note the inner loop relies on having
+        allocated the MCU_buffer[] blocks sequentially. }
+
+      blkn := 0;      { index of current DCT block within MCU }
+      for ci := 0 to pred(cinfo^.comps_in_scan) do
+      begin
+  compptr := cinfo^.cur_comp_info[ci];
+  { Don't bother to IDCT an uninteresting component. }
+  if (not compptr^.component_needed) then
+        begin
+    Inc(blkn, compptr^.MCU_blocks);
+    continue;
+  end;
+  inverse_DCT := cinfo^.idct^.inverse_DCT[compptr^.component_index];
+        if (MCU_col_num < last_MCU_col) then
+          useful_width := compptr^.MCU_width
+        else
+          useful_width := compptr^.last_col_width;
+
+  output_ptr := JSAMPARRAY(@ output_buf^[compptr^.component_index]^
+                                   [yoffset * compptr^.DCT_scaled_size]);
+  start_col := LongInt(MCU_col_num) * compptr^.MCU_sample_width;
+  for yindex := 0 to pred(compptr^.MCU_height) do
+        begin
+    if (cinfo^.input_iMCU_row < last_iMCU_row) or
+             (yoffset+yindex < compptr^.last_row_height) then
+          begin
+      output_col := start_col;
+      for xindex := 0 to pred(useful_width) do
+            begin
+        inverse_DCT (cinfo, compptr,
+         JCOEFPTR(coef^.MCU_buffer[blkn+xindex]),
+         output_ptr, output_col);
+        Inc(output_col, compptr^.DCT_scaled_size);
+      end;
+    end;
+    Inc(blkn, compptr^.MCU_width);
+    Inc(JSAMPROW_PTR(output_ptr), compptr^.DCT_scaled_size);
+  end;
+      end;
+    end;
+    { Completed an MCU row, but perhaps not an iMCU row }
+    coef^.MCU_ctr := 0;
+  end;
+  { Completed the iMCU row, advance counters for next one }
+  Inc(cinfo^.output_iMCU_row);
+
+  Inc(cinfo^.input_iMCU_row);
+  if (cinfo^.input_iMCU_row < cinfo^.total_iMCU_rows) then
+  begin
+    start_iMCU_row(cinfo);
+    decompress_onepass := JPEG_ROW_COMPLETED;
+    exit;
+  end;
+  { Completed the scan }
+  cinfo^.inputctl^.finish_input_pass (cinfo);
+  decompress_onepass := JPEG_SCAN_COMPLETED;
+end;
+
+{ Dummy consume-input routine for single-pass operation. }
+
+{METHODDEF}
+function dummy_consume_data (cinfo : j_decompress_ptr) : int;
+begin
+  dummy_consume_data := JPEG_SUSPENDED; { Always indicate nothing was done }
+end;
+
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+
+{ Consume input data and store it in the full-image coefficient buffer.
+  We read as much as one fully interleaved MCU row ("iMCU" row) per call,
+  ie, v_samp_factor block rows for each component in the scan.
+  Return value is JPEG_ROW_COMPLETED, JPEG_SCAN_COMPLETED, or JPEG_SUSPENDED.}
+
+{METHODDEF}
+function consume_data (cinfo : j_decompress_ptr) : int;
+var
+  coef : my_coef_ptr;
+  MCU_col_num : JDIMENSION;     { index of current MCU within row }
+  blkn, ci, xindex, yindex, yoffset : int;
+  start_col : JDIMENSION;
+  buffer : array[0..MAX_COMPS_IN_SCAN-1] of JBLOCKARRAY;
+  buffer_ptr : JBLOCKROW;
+  compptr : jpeg_component_info_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+
+  { Align the virtual buffers for the components used in this scan. }
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    buffer[ci] := cinfo^.mem^.access_virt_barray
+      (j_common_ptr (cinfo), coef^.whole_image[compptr^.component_index],
+       LongInt(cinfo^.input_iMCU_row) * compptr^.v_samp_factor,
+       JDIMENSION (compptr^.v_samp_factor), TRUE);
+    { Note: entropy decoder expects buffer to be zeroed,
+      but this is handled automatically by the memory manager
+      because we requested a pre-zeroed array. }
+
+  end;
+
+  { Loop to process one whole iMCU row }
+  for yoffset := coef^.MCU_vert_offset to pred(coef^.MCU_rows_per_iMCU_row) do
+  begin
+    for MCU_col_num := coef^.MCU_ctr to pred(cinfo^.MCUs_per_row) do
+    begin
+      { Construct list of pointers to DCT blocks belonging to this MCU }
+      blkn := 0;    { index of current DCT block within MCU }
+      for ci := 0 to pred(cinfo^.comps_in_scan) do
+      begin
+  compptr := cinfo^.cur_comp_info[ci];
+  start_col := LongInt(MCU_col_num) * compptr^.MCU_width;
+  for yindex := 0 to pred(compptr^.MCU_height) do
+        begin
+    buffer_ptr := JBLOCKROW(@ buffer[ci]^[yindex+yoffset]^[start_col]);
+    for xindex := 0 to pred(compptr^.MCU_width) do
+          begin
+      coef^.MCU_buffer[blkn] := buffer_ptr;
+            Inc(blkn);
+            Inc(JBLOCK_PTR(buffer_ptr));
+    end;
+  end;
+      end;
+      { Try to fetch the MCU. }
+      if (not cinfo^.entropy^.decode_mcu (cinfo, coef^.MCU_buffer)) then
+      begin
+  { Suspension forced; update state counters and exit }
+  coef^.MCU_vert_offset := yoffset;
+  coef^.MCU_ctr := MCU_col_num;
+  consume_data := JPEG_SUSPENDED;
+        exit;
+      end;
+    end;
+    { Completed an MCU row, but perhaps not an iMCU row }
+    coef^.MCU_ctr := 0;
+  end;
+  { Completed the iMCU row, advance counters for next one }
+  Inc(cinfo^.input_iMCU_row);
+  if (cinfo^.input_iMCU_row < cinfo^.total_iMCU_rows) then
+  begin
+    start_iMCU_row(cinfo);
+    consume_data := JPEG_ROW_COMPLETED;
+    exit;
+  end;
+  { Completed the scan }
+  cinfo^.inputctl^.finish_input_pass (cinfo);
+  consume_data := JPEG_SCAN_COMPLETED;
+end;
+
+
+{ Decompress and return some data in the multi-pass case.
+  Always attempts to emit one fully interleaved MCU row ("iMCU" row).
+  Return value is JPEG_ROW_COMPLETED, JPEG_SCAN_COMPLETED, or JPEG_SUSPENDED.
+
+  NB: output_buf contains a plane for each component in image. }
+
+{METHODDEF}
+function decompress_data (cinfo : j_decompress_ptr;
+                          output_buf : JSAMPIMAGE) : int;
+var
+  coef : my_coef_ptr;
+  last_iMCU_row : JDIMENSION;
+  block_num : JDIMENSION;
+  ci, block_row, block_rows : int;
+  buffer : JBLOCKARRAY;
+  buffer_ptr : JBLOCKROW;
+  output_ptr : JSAMPARRAY;
+  output_col : JDIMENSION;
+  compptr : jpeg_component_info_ptr;
+  inverse_DCT : inverse_DCT_method_ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  last_iMCU_row := cinfo^.total_iMCU_rows - 1;
+
+  { Force some input to be done if we are getting ahead of the input. }
+  while (cinfo^.input_scan_number < cinfo^.output_scan_number) or
+   ((cinfo^.input_scan_number = cinfo^.output_scan_number) and
+    (LongInt(cinfo^.input_iMCU_row) <= cinfo^.output_iMCU_row)) do
+  begin
+    if (cinfo^.inputctl^.consume_input(cinfo) = JPEG_SUSPENDED) then
+    begin
+      decompress_data := JPEG_SUSPENDED;
+      exit;
+    end;
+  end;
+
+  { OK, output from the virtual arrays. }
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Don't bother to IDCT an uninteresting component. }
+    if (not compptr^.component_needed) then
+      continue;
+    { Align the virtual buffer for this component. }
+    buffer := cinfo^.mem^.access_virt_barray
+      (j_common_ptr (cinfo), coef^.whole_image[ci],
+       cinfo^.output_iMCU_row * compptr^.v_samp_factor,
+       JDIMENSION (compptr^.v_samp_factor), FALSE);
+    { Count non-dummy DCT block rows in this iMCU row. }
+    if (cinfo^.output_iMCU_row < LongInt(last_iMCU_row)) then
+      block_rows := compptr^.v_samp_factor
+    else
+    begin
+      { NB: can't use last_row_height here; it is input-side-dependent! }
+      block_rows := int(LongInt(compptr^.height_in_blocks) mod compptr^.v_samp_factor);
+      if (block_rows = 0) then
+        block_rows := compptr^.v_samp_factor;
+    end;
+    inverse_DCT := cinfo^.idct^.inverse_DCT[ci];
+    output_ptr := output_buf^[ci];
+    { Loop over all DCT blocks to be processed. }
+    for block_row := 0 to pred(block_rows) do
+    begin
+      buffer_ptr := buffer^[block_row];
+      output_col := 0;
+      for block_num := 0 to pred(compptr^.width_in_blocks) do
+      begin
+  inverse_DCT (cinfo, compptr, JCOEFPTR (buffer_ptr),
+      output_ptr, output_col);
+  Inc(JBLOCK_PTR(buffer_ptr));
+  Inc(output_col, compptr^.DCT_scaled_size);
+      end;
+      Inc(JSAMPROW_PTR(output_ptr), compptr^.DCT_scaled_size);
+    end;
+    Inc(compptr);
+  end;
+
+  Inc(cinfo^.output_iMCU_row);
+  if (cinfo^.output_iMCU_row < LongInt(cinfo^.total_iMCU_rows)) then
+  begin
+    decompress_data := JPEG_ROW_COMPLETED;
+    exit;
+  end;
+  decompress_data := JPEG_SCAN_COMPLETED;
+end;
+
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+
+
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+
+{ This code applies interblock smoothing as described by section K.8
+  of the JPEG standard: the first 5 AC coefficients are estimated from
+  the DC values of a DCT block and its 8 neighboring blocks.
+  We apply smoothing only for progressive JPEG decoding, and only if
+  the coefficients it can estimate are not yet known to full precision. }
+
+{ Natural-order array positions of the first 5 zigzag-order coefficients }
+const
+  Q01_POS = 1;
+  Q10_POS = 8;
+  Q20_POS = 16;
+  Q11_POS = 9;
+  Q02_POS = 2;
+
+{ Determine whether block smoothing is applicable and safe.
+  We also latch the current states of the coef_bits[] entries for the
+  AC coefficients; otherwise, if the input side of the decompressor
+  advances into a new scan, we might think the coefficients are known
+  more accurately than they really are. }
+
+{LOCAL}
+function smoothing_ok (cinfo : j_decompress_ptr) : boolean;
+var
+  coef : my_coef_ptr;
+  smoothing_useful : boolean;
+  ci, coefi : int;
+  compptr : jpeg_component_info_ptr;
+  qtable : JQUANT_TBL_PTR;
+  coef_bits : coef_bits_ptr;
+  coef_bits_latch : Latch_Ptr;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  smoothing_useful := FALSE;
+
+  if (not cinfo^.progressive_mode) or (cinfo^.coef_bits = NIL) then
+  begin
+    smoothing_ok := FALSE;
+    exit;
+  end;
+
+  { Allocate latch area if not already done }
+  if (coef^.coef_bits_latch = NIL) then
+    coef^.coef_bits_latch := Latch_Ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+                               cinfo^.num_components *
+                               (SAVED_COEFS * SIZEOF(int))) );
+  coef_bits_latch := (coef^.coef_bits_latch);
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { All components' quantization values must already be latched. }
+    qtable := compptr^.quant_table;
+    if (qtable = NIL) then
+    begin
+      smoothing_ok := FALSE;
+      exit;
+    end;
+    { Verify DC & first 5 AC quantizers are nonzero to avoid zero-divide. }
+    if (qtable^.quantval[0] = 0) or
+       (qtable^.quantval[Q01_POS] = 0) or
+       (qtable^.quantval[Q10_POS] = 0) or
+       (qtable^.quantval[Q20_POS] = 0) or
+       (qtable^.quantval[Q11_POS] = 0) or
+       (qtable^.quantval[Q02_POS] = 0) then
+    begin
+      smoothing_ok := FALSE;
+      exit;
+    end;
+    { DC values must be at least partly known for all components. }
+    coef_bits := @cinfo^.coef_bits^[ci];  { Nomssi }
+    if (coef_bits^[0] < 0) then
+    begin
+      smoothing_ok := FALSE;
+      exit;
+    end;
+    { Block smoothing is helpful if some AC coefficients remain inaccurate. }
+    for coefi := 1 to 5 do
+    begin
+      coef_bits_latch^[coefi] := coef_bits^[coefi];
+      if (coef_bits^[coefi] <> 0) then
+  smoothing_useful := TRUE;
+    end;
+    Inc(coef_bits_latch {SAVED_COEFS});
+    Inc(compptr);
+  end;
+
+  smoothing_ok := smoothing_useful;
+end;
+
+
+{ Variant of decompress_data for use when doing block smoothing. }
+
+{METHODDEF}
+function decompress_smooth_data (cinfo : j_decompress_ptr;
+                        output_buf : JSAMPIMAGE) : int;
+var
+  coef : my_coef_ptr;
+  last_iMCU_row : JDIMENSION;
+  block_num, last_block_column : JDIMENSION;
+  ci, block_row, block_rows, access_rows : int;
+  buffer : JBLOCKARRAY;
+  buffer_ptr, prev_block_row, next_block_row : JBLOCKROW;
+  output_ptr : JSAMPARRAY;
+  output_col : JDIMENSION;
+  compptr : jpeg_component_info_ptr;
+  inverse_DCT : inverse_DCT_method_ptr;
+  first_row, last_row : boolean;
+  workspace : JBLOCK;
+  coef_bits : Latch_Ptr; { coef_bits_ptr;  }
+  quanttbl : JQUANT_TBL_PTR;
+  Q00,Q01,Q02,Q10,Q11,Q20, num : INT32;
+  DC1,DC2,DC3,DC4,DC5,DC6,DC7,DC8,DC9 : int;
+  Al, pred : int;
+var
+  delta : JDIMENSION;
+begin
+  coef := my_coef_ptr (cinfo^.coef);
+  last_iMCU_row := cinfo^.total_iMCU_rows - 1;
+
+  { Force some input to be done if we are getting ahead of the input. }
+  while (cinfo^.input_scan_number <= cinfo^.output_scan_number) and
+        (not cinfo^.inputctl^.eoi_reached) do
+  begin
+    if (cinfo^.input_scan_number = cinfo^.output_scan_number) then
+    begin
+      { If input is working on current scan, we ordinarily want it to
+        have completed the current row.  But if input scan is DC,
+        we want it to keep one row ahead so that next block row's DC
+        values are up to date. }
+
+      if (cinfo^.Ss = 0) then
+        delta := 1
+      else
+        delta := 0;
+      if (LongInt(cinfo^.input_iMCU_row) > cinfo^.output_iMCU_row+LongInt(delta)) then
+  break;
+    end;
+    if (cinfo^.inputctl^.consume_input(cinfo) = JPEG_SUSPENDED) then
+    begin
+      decompress_smooth_data := JPEG_SUSPENDED;
+      exit;
+    end;
+  end;
+
+  { OK, output from the virtual arrays. }
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to (cinfo^.num_components-1) do
+  begin
+    { Don't bother to IDCT an uninteresting component. }
+    if (not compptr^.component_needed) then
+      continue;
+    { Count non-dummy DCT block rows in this iMCU row. }
+    if (cinfo^.output_iMCU_row < LongInt(last_iMCU_row)) then
+    begin
+      block_rows := compptr^.v_samp_factor;
+      access_rows := block_rows * 2; { this and next iMCU row }
+      last_row := FALSE;
+    end
+    else
+    begin
+      { NB: can't use last_row_height here; it is input-side-dependent! }
+      block_rows := int (compptr^.height_in_blocks) mod compptr^.v_samp_factor;
+      if (block_rows = 0) then
+        block_rows := compptr^.v_samp_factor;
+      access_rows := block_rows; { this iMCU row only }
+      last_row := TRUE;
+    end;
+    { Align the virtual buffer for this component. }
+    if (cinfo^.output_iMCU_row > 0) then
+    begin
+      Inc(access_rows, compptr^.v_samp_factor); { prior iMCU row too }
+      buffer := cinfo^.mem^.access_virt_barray
+  (j_common_ptr (cinfo), coef^.whole_image[ci],
+   (cinfo^.output_iMCU_row - 1) * compptr^.v_samp_factor,
+   JDIMENSION (access_rows), FALSE);
+      Inc(JBLOCKROW_PTR(buffer), compptr^.v_samp_factor); { point to current iMCU row }
+      first_row := FALSE;
+    end
+    else
+    begin
+      buffer := cinfo^.mem^.access_virt_barray
+  (j_common_ptr (cinfo), coef^.whole_image[ci],
+   JDIMENSION (0), JDIMENSION (access_rows), FALSE);
+      first_row := TRUE;
+    end;
+    { Fetch component-dependent info }
+    coef_bits := coef^.coef_bits_latch;
+    Inc(coef_bits,  ci);                        { ci * SAVED_COEFS}
+    quanttbl := compptr^.quant_table;
+    Q00 := quanttbl^.quantval[0];
+    Q01 := quanttbl^.quantval[Q01_POS];
+    Q10 := quanttbl^.quantval[Q10_POS];
+    Q20 := quanttbl^.quantval[Q20_POS];
+    Q11 := quanttbl^.quantval[Q11_POS];
+    Q02 := quanttbl^.quantval[Q02_POS];
+    inverse_DCT := cinfo^.idct^.inverse_DCT[ci];
+    output_ptr := output_buf^[ci];
+    { Loop over all DCT blocks to be processed. }
+    for block_row := 0 to (block_rows-1) do
+    begin
+      buffer_ptr := buffer^[block_row];
+      if (first_row) and (block_row = 0) then
+  prev_block_row := buffer_ptr
+      else
+  prev_block_row := buffer^[block_row-1];
+      if (last_row) and (block_row = block_rows-1) then
+  next_block_row := buffer_ptr
+      else
+  next_block_row := buffer^[block_row+1];
+      { We fetch the surrounding DC values using a sliding-register approach.
+        Initialize all nine here so as to do the right thing on narrow pics.}
+
+      DC3 := int(prev_block_row^[0][0]);
+      DC2 := DC3;
+      DC1 := DC2;
+      DC6 := int(buffer_ptr^[0][0]);
+      DC5 := DC6;
+      DC4 := DC5;
+      DC9 := int(next_block_row^[0][0]);
+      DC8 := DC9;
+      DC7 := DC8 ;
+      output_col := 0;
+      last_block_column := compptr^.width_in_blocks - 1;
+      for block_num := 0 to last_block_column do
+      begin
+  { Fetch current DCT block into workspace so we can modify it. }
+  jcopy_block_row(buffer_ptr, JBLOCKROW (@workspace), JDIMENSION(1));
+  { Update DC values }
+  if (block_num < last_block_column) then
+        begin
+    DC3 := int (prev_block_row^[1][0]);
+    DC6 := int (buffer_ptr^[1][0]);
+    DC9 := int (next_block_row^[1][0]);
+  end;
+  { Compute coefficient estimates per K.8.
+    An estimate is applied only if coefficient is still zero,
+    and is not known to be fully accurate. }
+
+  { AC01 }
+  Al := coef_bits^[1];
+  if (Al <> 0) and (workspace[1] = 0) then
+        begin
+    num := 36 * Q00 * (DC4 - DC6);
+    if (num >= 0) then
+          begin
+      pred := int (((Q01 shl 7) + num) div (Q01 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+    end
+          else
+          begin
+      pred := int (((Q01 shl 7) - num) div (Q01 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+      pred := -pred;
+    end;
+    workspace[1] := JCOEF (pred);
+  end;
+  { AC10 }
+  Al := coef_bits^[2];
+  if (Al <> 0) and (workspace[8] = 0) then
+        begin
+    num := 36 * Q00 * (DC2 - DC8);
+    if (num >= 0) then
+          begin
+      pred := int (((Q10 shl 7) + num) div (Q10 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+    end
+          else
+          begin
+      pred := int (((Q10 shl 7) - num) div (Q10 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+      pred := -pred;
+    end;
+    workspace[8] := JCOEF (pred);
+  end;
+  { AC20 }
+  Al := coef_bits^[3];
+  if (Al <> 0) and (workspace[16] = 0) then
+        begin
+    num := 9 * Q00 * (DC2 + DC8 - 2*DC5);
+    if (num >= 0) then
+          begin
+      pred := int (((Q20 shl 7) + num) div (Q20 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+    end
+          else
+          begin
+      pred := int (((Q20 shl 7) - num) div (Q20 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+      pred := -pred;
+    end;
+    workspace[16] := JCOEF (pred);
+  end;
+  { AC11 }
+  Al := coef_bits^[4];
+  if (Al <> 0) and (workspace[9] = 0) then
+        begin
+    num := 5 * Q00 * (DC1 - DC3 - DC7 + DC9);
+    if (num >= 0) then
+          begin
+      pred := int (((Q11 shl 7) + num) div (Q11 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+    end
+          else
+          begin
+      pred := int (((Q11 shl 7) - num) div (Q11 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+      pred := -pred;
+    end;
+    workspace[9] := JCOEF (pred);
+  end;
+  { AC02 }
+  Al := coef_bits^[5];
+  if (Al <> 0) and (workspace[2] = 0) then
+        begin
+    num := 9 * Q00 * (DC4 + DC6 - 2*DC5);
+    if (num >= 0) then
+          begin
+      pred := int (((Q02 shl 7) + num) div (Q02 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+    end
+          else
+          begin
+      pred := int (((Q02 shl 7) - num) div (Q02 shl 8));
+      if (Al > 0) and (pred >= (1 shl Al)) then
+        pred := (1 shl Al)-1;
+      pred := -pred;
+    end;
+    workspace[2] := JCOEF (pred);
+  end;
+  { OK, do the IDCT }
+  inverse_DCT (cinfo, compptr, JCOEFPTR (@workspace),
+      output_ptr, output_col);
+  { Advance for next column }
+  DC1 := DC2; DC2 := DC3;
+  DC4 := DC5; DC5 := DC6;
+  DC7 := DC8; DC8 := DC9;
+  Inc(JBLOCK_PTR(buffer_ptr));
+        Inc(JBLOCK_PTR(prev_block_row));
+        Inc(JBLOCK_PTR(next_block_row));
+  Inc(output_col, compptr^.DCT_scaled_size);
+      end;
+      Inc(JSAMPROW_PTR(output_ptr), compptr^.DCT_scaled_size);
+    end;
+    Inc(compptr);
+  end;
+
+  Inc(cinfo^.output_iMCU_row);
+  if (cinfo^.output_iMCU_row < LongInt(cinfo^.total_iMCU_rows)) then
+  begin
+    decompress_smooth_data := JPEG_ROW_COMPLETED;
+    exit;
+  end;
+  decompress_smooth_data := JPEG_SCAN_COMPLETED;
+end;
+
+{$endif} { BLOCK_SMOOTHING_SUPPORTED }
+
+
+{ Initialize coefficient buffer controller. }
+
+{GLOBAL}
+procedure jinit_d_coef_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+var
+  coef : my_coef_ptr;
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+var
+  ci, access_rows : int;
+  compptr : jpeg_component_info_ptr;
+{$endif}
+var
+  buffer : JBLOCK_PTR;
+  i : int;
+begin
+  coef := my_coef_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        SIZEOF(my_coef_controller)) );
+  cinfo^.coef := jpeg_d_coef_controller_ptr(coef);
+  coef^.pub.start_input_pass := start_input_pass;
+  coef^.pub.start_output_pass := start_output_pass;
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+  coef^.coef_bits_latch := NIL;
+{$endif}
+
+  { Create the coefficient buffer. }
+  if (need_full_buffer) then
+  begin
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+    { Allocate a full-image virtual array for each component, }
+    { padded to a multiple of samp_factor DCT blocks in each direction. }
+    { Note we ask for a pre-zeroed array. }
+
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      access_rows := compptr^.v_samp_factor;
+{$ifdef BLOCK_SMOOTHING_SUPPORTED}
+      { If block smoothing could be used, need a bigger window }
+      if (cinfo^.progressive_mode) then
+  access_rows := access_rows * 3;
+{$endif}
+      coef^.whole_image[ci] := cinfo^.mem^.request_virt_barray
+  (j_common_ptr (cinfo), JPOOL_IMAGE, TRUE,
+   JDIMENSION (jround_up( long(compptr^.width_in_blocks),
+                                long(compptr^.h_samp_factor) )),
+   JDIMENSION (jround_up( long(compptr^.height_in_blocks),
+        long(compptr^.v_samp_factor) )),
+   JDIMENSION (access_rows));
+      Inc(compptr);
+    end;
+    coef^.pub.consume_data := consume_data;
+    coef^.pub.decompress_data := decompress_data;
+    coef^.pub.coef_arrays := @(coef^.whole_image);
+                          { link to virtual arrays }
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+  end
+  else
+  begin
+    { We only need a single-MCU buffer. }
+    buffer := JBLOCK_PTR (
+      cinfo^.mem^.alloc_large (j_common_ptr (cinfo), JPOOL_IMAGE,
+          D_MAX_BLOCKS_IN_MCU * SIZEOF(JBLOCK)) );
+    for i := 0 to pred(D_MAX_BLOCKS_IN_MCU) do
+    begin
+      coef^.MCU_buffer[i] := JBLOCKROW(buffer);
+      Inc(buffer);
+    end;
+    coef^.pub.consume_data := dummy_consume_data;
+    coef^.pub.decompress_data := decompress_onepass;
+    coef^.pub.coef_arrays := NIL; { flag for no virtual arrays }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdcolor.pas b/src/lib/vampimg/JpegLib/imjdcolor.pas

new file mode 100644 (file)

index 0000000..f27fa5c
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdcolor.pas
@@ -0,0 +1,501 @@
+unit imjdcolor;
+
+{ This file contains output colorspace conversion routines. }
+
+{ Original: jdcolor.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjutils,
+  imjdeferr,
+  imjerror,
+  imjpeglib;
+
+{ Module initialization routine for output colorspace conversion. }
+
+{GLOBAL}
+procedure jinit_color_deconverter (cinfo : j_decompress_ptr);
+
+implementation
+
+{ Private subobject }
+type
+  int_Color_Table = array[0..MAXJSAMPLE+1-1] of int;
+  int_table_ptr = ^int_Color_Table;
+  INT32_Color_Table = array[0..MAXJSAMPLE+1-1] of INT32;
+  INT32_table_ptr = ^INT32_Color_Table;
+type
+  my_cconvert_ptr = ^my_color_deconverter;
+  my_color_deconverter = record
+    pub : jpeg_color_deconverter; { public fields }
+
+    { Private state for YCC^.RGB conversion }
+    Cr_r_tab : int_table_ptr; { => table for Cr to R conversion }
+    Cb_b_tab : int_table_ptr; { => table for Cb to B conversion }
+    Cr_g_tab : INT32_table_ptr; { => table for Cr to G conversion }
+    Cb_g_tab : INT32_table_ptr; { => table for Cb to G conversion }
+  end;
+
+
+
+
+{*************** YCbCr ^. RGB conversion: most common case *************}
+
+{ YCbCr is defined per CCIR 601-1, except that Cb and Cr are
+  normalized to the range 0..MAXJSAMPLE rather than -0.5 .. 0.5.
+  The conversion equations to be implemented are therefore
+  R = Y                + 1.40200 * Cr
+  G = Y - 0.34414 * Cb - 0.71414 * Cr
+  B = Y + 1.77200 * Cb
+  where Cb and Cr represent the incoming values less CENTERJSAMPLE.
+  (These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.)
+
+  To avoid floating-point arithmetic, we represent the fractional constants
+  as integers scaled up by 2^16 (about 4 digits precision); we have to divide
+  the products by 2^16, with appropriate rounding, to get the correct answer.
+  Notice that Y, being an integral input, does not contribute any fraction
+  so it need not participate in the rounding.
+
+  For even more speed, we avoid doing any multiplications in the inner loop
+  by precalculating the constants times Cb and Cr for all possible values.
+  For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table);
+  for 12-bit samples it is still acceptable.  It's not very reasonable for
+  16-bit samples, but if you want lossless storage you shouldn't be changing
+  colorspace anyway.
+  The Cr=>R and Cb=>B values can be rounded to integers in advance; the
+  values for the G calculation are left scaled up, since we must add them
+  together before rounding. }
+
+const
+  SCALEBITS = 16;      { speediest right-shift on some machines }
+  ONE_HALF  = (INT32(1) shl (SCALEBITS-1));
+
+
+{ Initialize tables for YCC->RGB colorspace conversion. }
+
+{LOCAL}
+procedure build_ycc_rgb_table (cinfo : j_decompress_ptr);
+const
+  FIX_1_40200 = INT32(Round( 1.40200  * (1 shl SCALEBITS)));
+  FIX_1_77200 = INT32(Round( 1.77200  * (1 shl SCALEBITS)));
+  FIX_0_71414 = INT32(Round( 0.71414  * (1 shl SCALEBITS)));
+  FIX_0_34414 = INT32(Round( 0.34414  * (1 shl SCALEBITS)));
+
+var
+  cconvert : my_cconvert_ptr;
+  i : int;
+  x : INT32;
+var
+  shift_temp : INT32;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+
+
+  cconvert^.Cr_r_tab := int_table_ptr(
+    cinfo^.mem^.alloc_small ( j_common_ptr(cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(int)) );
+  cconvert^.Cb_b_tab := int_table_ptr (
+    cinfo^.mem^.alloc_small ( j_common_ptr(cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(int)) );
+  cconvert^.Cr_g_tab := INT32_table_ptr (
+    cinfo^.mem^.alloc_small ( j_common_ptr(cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(INT32)) );
+  cconvert^.Cb_g_tab := INT32_table_ptr (
+    cinfo^.mem^.alloc_small ( j_common_ptr(cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(INT32)) );
+
+
+  x := -CENTERJSAMPLE;
+  for i := 0 to MAXJSAMPLE do
+  begin
+    { i is the actual input pixel value, in the range 0..MAXJSAMPLE }
+    { The Cb or Cr value we are thinking of is x := i - CENTERJSAMPLE }
+    { Cr=>R value is nearest int to 1.40200 * x }
+
+    shift_temp := FIX_1_40200  * x + ONE_HALF;
+    if shift_temp < 0 then  { SHIFT arithmetic RIGHT }
+      cconvert^.Cr_r_tab^[i] := int((shift_temp shr SCALEBITS)
+                             or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cconvert^.Cr_r_tab^[i] := int(shift_temp shr SCALEBITS);
+
+    { Cb=>B value is nearest int to 1.77200 * x }
+    shift_temp := FIX_1_77200  * x + ONE_HALF;
+    if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+      cconvert^.Cb_b_tab^[i] := int((shift_temp shr SCALEBITS)
+                                or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cconvert^.Cb_b_tab^[i] := int(shift_temp shr SCALEBITS);
+
+    { Cr=>G value is scaled-up -0.71414 * x }
+    cconvert^.Cr_g_tab^[i] := (- FIX_0_71414 ) * x;
+    { Cb=>G value is scaled-up -0.34414 * x }
+    { We also add in ONE_HALF so that need not do it in inner loop }
+    cconvert^.Cb_g_tab^[i] := (- FIX_0_34414 ) * x + ONE_HALF;
+    Inc(x);
+  end;
+end;
+
+
+{ Convert some rows of samples to the output colorspace.
+
+  Note that we change from noninterleaved, one-plane-per-component format
+  to interleaved-pixel format.  The output buffer is therefore three times
+  as wide as the input buffer.
+  A starting row offset is provided only for the input buffer.  The caller
+  can easily adjust the passed output_buf value to accommodate any row
+  offset required on that side. }
+
+{METHODDEF}
+procedure ycc_rgb_convert (cinfo : j_decompress_ptr;
+               input_buf : JSAMPIMAGE;
+                           input_row : JDIMENSION;
+                           output_buf : JSAMPARRAY;
+                           num_rows : int);
+var
+  cconvert : my_cconvert_ptr;
+  {register} y, cb, cr : int;
+  {register} outptr : JSAMPROW;
+  {register} inptr0, inptr1, inptr2 : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+  { copy these pointers into registers if possible }
+  {register} range_limit : range_limit_table_ptr;
+  {register} Crrtab : int_table_ptr;
+  {register} Cbbtab : int_table_ptr;
+  {register} Crgtab : INT32_table_ptr;
+  {register} Cbgtab : INT32_table_ptr;
+var
+  shift_temp : INT32;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+  num_cols := cinfo^.output_width;
+  range_limit := cinfo^.sample_range_limit;
+  Crrtab := cconvert^.Cr_r_tab;
+  Cbbtab := cconvert^.Cb_b_tab;
+  Crgtab := cconvert^.Cr_g_tab;
+  Cbgtab := cconvert^.Cb_g_tab;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr0 := input_buf^[0]^[input_row];
+    inptr1 := input_buf^[1]^[input_row];
+    inptr2 := input_buf^[2]^[input_row];
+    Inc(input_row);
+    outptr := output_buf^[0];
+    Inc(JSAMPROW_PTR(output_buf));
+    for col := 0 to pred(num_cols) do
+    begin
+      y  := GETJSAMPLE(inptr0^[col]);
+      cb := GETJSAMPLE(inptr1^[col]);
+      cr := GETJSAMPLE(inptr2^[col]);
+      { Range-limiting is essential due to noise introduced by DCT losses. }
+      outptr^[RGB_RED] :=   range_limit^[y + Crrtab^[cr]];
+      shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+      if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+        outptr^[RGB_GREEN] := range_limit^[y + int((shift_temp shr SCALEBITS)
+                              or ( (not INT32(0)) shl (32-SCALEBITS)))]
+      else
+        outptr^[RGB_GREEN] := range_limit^[y + int(shift_temp shr SCALEBITS)];
+
+      outptr^[RGB_BLUE] :=  range_limit^[y + Cbbtab^[cb]];
+      Inc(JSAMPLE_PTR(outptr), RGB_PIXELSIZE);
+    end;
+  end;
+end;
+
+
+{*************** Cases other than YCbCr -> RGB *************}
+
+
+{ Color conversion for no colorspace change: just copy the data,
+  converting from separate-planes to interleaved representation. }
+
+{METHODDEF}
+procedure null_convert (cinfo : j_decompress_ptr;
+                  input_buf : JSAMPIMAGE;
+                        input_row : JDIMENSION;
+                  output_buf : JSAMPARRAY;
+                        num_rows : int);
+var
+  {register} inptr,
+             outptr : JSAMPLE_PTR;
+  {register} count : JDIMENSION;
+  {register} num_components : int;
+  num_cols : JDIMENSION;
+  ci : int;
+begin
+  num_components := cinfo^.num_components;
+  num_cols := cinfo^.output_width;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    for ci := 0 to pred(num_components) do
+    begin
+      inptr := JSAMPLE_PTR(input_buf^[ci]^[input_row]);
+      outptr := JSAMPLE_PTR(@(output_buf^[0]^[ci]));
+
+      for count := pred(num_cols) downto 0 do
+      begin
+  outptr^ := inptr^;  { needn't bother with GETJSAMPLE() here }
+        Inc(inptr);
+  Inc(outptr, num_components);
+      end;
+    end;
+    Inc(input_row);
+    Inc(JSAMPROW_PTR(output_buf));
+  end;
+end;
+
+
+{ Color conversion for grayscale: just copy the data.
+  This also works for YCbCr -> grayscale conversion, in which
+  we just copy the Y (luminance) component and ignore chrominance. }
+
+{METHODDEF}
+procedure grayscale_convert (cinfo : j_decompress_ptr;
+                       input_buf : JSAMPIMAGE;
+                             input_row : JDIMENSION;
+                 output_buf : JSAMPARRAY;
+                             num_rows : int);
+begin
+  jcopy_sample_rows(input_buf^[0], int(input_row), output_buf, 0,
+        num_rows, cinfo^.output_width);
+end;
+
+{ Convert grayscale to RGB: just duplicate the graylevel three times.
+  This is provided to support applications that don't want to cope
+  with grayscale as a separate case. }
+
+{METHODDEF}
+procedure gray_rgb_convert (cinfo : j_decompress_ptr;
+                      input_buf : JSAMPIMAGE;
+                            input_row : JDIMENSION;
+                output_buf : JSAMPARRAY;
+                            num_rows : int);
+var
+  {register} inptr, outptr : JSAMPLE_PTR;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+begin
+  num_cols := cinfo^.output_width;
+  while (num_rows > 0) do
+  begin
+    inptr := JSAMPLE_PTR(input_buf^[0]^[input_row]);
+    Inc(input_row);
+    outptr := JSAMPLE_PTR(@output_buf^[0]);
+    Inc(JSAMPROW_PTR(output_buf));
+    for col := 0 to pred(num_cols) do
+    begin
+      { We can dispense with GETJSAMPLE() here }
+      JSAMPROW(outptr)^[RGB_RED] := inptr^;
+      JSAMPROW(outptr)^[RGB_GREEN] := inptr^;
+      JSAMPROW(outptr)^[RGB_BLUE] := inptr^;
+      Inc(inptr);
+      Inc(outptr, RGB_PIXELSIZE);
+    end;
+    Dec(num_rows);
+  end;
+end;
+
+
+{ Adobe-style YCCK -> CMYK conversion.
+  We convert YCbCr to R=1-C, G=1-M, and B=1-Y using the same
+  conversion as above, while passing K (black) unchanged.
+  We assume build_ycc_rgb_table has been called. }
+
+{METHODDEF}
+procedure ycck_cmyk_convert (cinfo : j_decompress_ptr;
+                 input_buf : JSAMPIMAGE;
+                             input_row : JDIMENSION;
+                             output_buf : JSAMPARRAY;
+                             num_rows : int);
+var
+  cconvert : my_cconvert_ptr;
+  {register} y, cb, cr : int;
+  {register} outptr : JSAMPROW;
+  {register} inptr0, inptr1, inptr2, inptr3 : JSAMPROW;
+  {register} col : JDIMENSION;
+  num_cols : JDIMENSION;
+  { copy these pointers into registers if possible }
+  {register} range_limit : range_limit_table_ptr;
+  {register} Crrtab : int_table_ptr;
+  {register} Cbbtab : int_table_ptr;
+  {register} Crgtab : INT32_table_ptr;
+  {register} Cbgtab : INT32_table_ptr;
+var
+  shift_temp : INT32;
+begin
+  cconvert := my_cconvert_ptr (cinfo^.cconvert);
+  num_cols := cinfo^.output_width;
+  { copy these pointers into registers if possible }
+  range_limit := cinfo^.sample_range_limit;
+  Crrtab := cconvert^.Cr_r_tab;
+  Cbbtab := cconvert^.Cb_b_tab;
+  Crgtab := cconvert^.Cr_g_tab;
+  Cbgtab := cconvert^.Cb_g_tab;
+
+  while (num_rows > 0) do
+  begin
+    Dec(num_rows);
+    inptr0 := input_buf^[0]^[input_row];
+    inptr1 := input_buf^[1]^[input_row];
+    inptr2 := input_buf^[2]^[input_row];
+    inptr3 := input_buf^[3]^[input_row];
+    Inc(input_row);
+    outptr := output_buf^[0];
+    Inc(JSAMPROW_PTR(output_buf));
+    for col := 0 to pred(num_cols) do
+    begin
+      y  := GETJSAMPLE(inptr0^[col]);
+      cb := GETJSAMPLE(inptr1^[col]);
+      cr := GETJSAMPLE(inptr2^[col]);
+      { Range-limiting is essential due to noise introduced by DCT losses. }
+      outptr^[0] := range_limit^[MAXJSAMPLE - (y + Crrtab^[cr])]; { red }
+      shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+      if shift_temp < 0 then
+        outptr^[1] := range_limit^[MAXJSAMPLE - (y + int(
+          (shift_temp shr SCALEBITS) or ((not INT32(0)) shl (32-SCALEBITS))
+                                                        ) )]
+      else
+        outptr^[1] := range_limit^[MAXJSAMPLE -             { green }
+                    (y + int(shift_temp shr SCALEBITS) )];
+      outptr^[2] := range_limit^[MAXJSAMPLE - (y + Cbbtab^[cb])]; { blue }
+      { K passes through unchanged }
+      outptr^[3] := inptr3^[col]; { don't need GETJSAMPLE here }
+      Inc(JSAMPLE_PTR(outptr), 4);
+    end;
+  end;
+end;
+
+
+{ Empty method for start_pass. }
+
+{METHODDEF}
+procedure start_pass_dcolor (cinfo : j_decompress_ptr);
+begin
+  { no work needed }
+end;
+
+
+{ Module initialization routine for output colorspace conversion. }
+
+{GLOBAL}
+procedure jinit_color_deconverter (cinfo : j_decompress_ptr);
+var
+  cconvert : my_cconvert_ptr;
+  ci : int;
+begin
+  cconvert := my_cconvert_ptr (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_color_deconverter)) );
+  cinfo^.cconvert := jpeg_color_deconverter_ptr (cconvert);
+  cconvert^.pub.start_pass := start_pass_dcolor;
+
+  { Make sure num_components agrees with jpeg_color_space }
+  case (cinfo^.jpeg_color_space) of
+  JCS_GRAYSCALE:
+    if (cinfo^.num_components <> 1) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+
+  JCS_RGB,
+  JCS_YCbCr:
+    if (cinfo^.num_components <> 3) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+
+  JCS_CMYK,
+  JCS_YCCK:
+    if (cinfo^.num_components <> 4) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+
+  else                     { JCS_UNKNOWN can be anything }
+    if (cinfo^.num_components < 1) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_J_COLORSPACE);
+  end;
+
+  { Set out_color_components and conversion method based on requested space.
+    Also clear the component_needed flags for any unused components,
+    so that earlier pipeline stages can avoid useless computation. }
+
+  case (cinfo^.out_color_space) of
+  JCS_GRAYSCALE:
+    begin
+      cinfo^.out_color_components := 1;
+      if (cinfo^.jpeg_color_space = JCS_GRAYSCALE)
+        or (cinfo^.jpeg_color_space = JCS_YCbCr) then
+      begin
+        cconvert^.pub.color_convert := grayscale_convert;
+        { For color -> grayscale conversion, only the
+          Y (0) component is needed }
+        for ci := 1 to pred(cinfo^.num_components) do
+    cinfo^.comp_info^[ci].component_needed := FALSE;
+      end
+      else
+        ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_RGB:
+    begin
+      cinfo^.out_color_components := RGB_PIXELSIZE;
+      if (cinfo^.jpeg_color_space = JCS_YCbCr) then
+      begin
+        cconvert^.pub.color_convert := ycc_rgb_convert;
+        build_ycc_rgb_table(cinfo);
+      end
+      else
+        if (cinfo^.jpeg_color_space = JCS_GRAYSCALE) then
+        begin
+          cconvert^.pub.color_convert := gray_rgb_convert;
+        end
+        else
+          if (cinfo^.jpeg_color_space = JCS_RGB) and (RGB_PIXELSIZE = 3) then
+          begin
+            cconvert^.pub.color_convert := null_convert;
+          end
+          else
+            ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  JCS_CMYK:
+    begin
+      cinfo^.out_color_components := 4;
+      if (cinfo^.jpeg_color_space = JCS_YCCK) then
+      begin
+        cconvert^.pub.color_convert := ycck_cmyk_convert;
+        build_ycc_rgb_table(cinfo);
+      end
+      else
+        if (cinfo^.jpeg_color_space = JCS_CMYK) then
+        begin
+          cconvert^.pub.color_convert := null_convert;
+        end
+        else
+          ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+
+  else
+    begin { Permit null conversion to same output space }
+      if (cinfo^.out_color_space = cinfo^.jpeg_color_space) then
+      begin
+        cinfo^.out_color_components := cinfo^.num_components;
+        cconvert^.pub.color_convert := null_convert;
+      end
+      else      { unsupported non-null conversion }
+        ERREXIT(j_common_ptr(cinfo), JERR_CONVERSION_NOTIMPL);
+    end;
+  end;
+
+  if (cinfo^.quantize_colors) then
+    cinfo^.output_components := 1 { single colormapped output component }
+  else
+    cinfo^.output_components := cinfo^.out_color_components;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdct.pas b/src/lib/vampimg/JpegLib/imjdct.pas

new file mode 100644 (file)

index 0000000..30d3356
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdct.pas
@@ -0,0 +1,109 @@
+unit imjdct;
+
+{ Orignal: jdct.h; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This include file contains common declarations for the forward and
+  inverse DCT modules.  These declarations are private to the DCT managers
+  (jcdctmgr.c, jddctmgr.c) and the individual DCT algorithms.
+  The individual DCT algorithms are kept in separate files to ease
+  machine-dependent tuning (e.g., assembly coding). }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg;
+
+
+{ A forward DCT routine is given a pointer to a work area of type DCTELEM[];
+  the DCT is to be performed in-place in that buffer.  Type DCTELEM is int
+  for 8-bit samples, INT32 for 12-bit samples.  (NOTE: Floating-point DCT
+  implementations use an array of type FAST_FLOAT, instead.)
+  The DCT inputs are expected to be signed (range +-CENTERJSAMPLE).
+  The DCT outputs are returned scaled up by a factor of 8; they therefore
+  have a range of +-8K for 8-bit data, +-128K for 12-bit data.  This
+  convention improves accuracy in integer implementations and saves some
+  work in floating-point ones.
+  Quantization of the output coefficients is done by jcdctmgr.c. }
+
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+type
+  DCTELEM = int;                { 16 or 32 bits is fine }
+{$else}
+type                            { must have 32 bits }
+  DCTELEM = INT32;
+{$endif}
+type
+  jTDctElem = 0..(MaxInt div SizeOf(DCTELEM))-1;
+  DCTELEM_FIELD = array[jTDctElem] of DCTELEM;
+  DCTELEM_FIELD_PTR = ^DCTELEM_FIELD;
+  DCTELEMPTR = ^DCTELEM;
+
+type
+  forward_DCT_method_ptr = procedure(var data : array of DCTELEM);
+  float_DCT_method_ptr = procedure(var data : array of FAST_FLOAT);
+
+
+{ An inverse DCT routine is given a pointer to the input JBLOCK and a pointer
+  to an output sample array.  The routine must dequantize the input data as
+  well as perform the IDCT; for dequantization, it uses the multiplier table
+  pointed to by compptr->dct_table.  The output data is to be placed into the
+  sample array starting at a specified column.  (Any row offset needed will
+  be applied to the array pointer before it is passed to the IDCT code.)
+  Note that the number of samples emitted by the IDCT routine is
+  DCT_scaled_size * DCT_scaled_size. }
+
+
+{ typedef inverse_DCT_method_ptr is declared in jpegint.h }
+
+
+{ Each IDCT routine has its own ideas about the best dct_table element type. }
+
+
+type
+  ISLOW_MULT_TYPE = MULTIPLIER;  { short or int, whichever is faster }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+type
+  IFAST_MULT_TYPE = MULTIPLIER;  { 16 bits is OK, use short if faster }
+const
+  IFAST_SCALE_BITS = 2;         { fractional bits in scale factors }
+{$else}
+type
+  IFAST_MULT_TYPE = INT32;      {  need 32 bits for scaled quantizers }
+const
+  IFAST_SCALE_BITS = 13;        { fractional bits in scale factors }
+{$endif}
+type
+  FLOAT_MULT_TYPE = FAST_FLOAT; { preferred floating type }
+
+const
+  RANGE_MASK = (MAXJSAMPLE * 4 + 3); { 2 bits wider than legal samples }
+
+type
+  jTMultType = 0..(MaxInt div SizeOf(ISLOW_MULT_TYPE))-1;
+  ISLOW_MULT_TYPE_FIELD = array[jTMultType] of ISLOW_MULT_TYPE;
+  ISLOW_MULT_TYPE_FIELD_PTR = ^ISLOW_MULT_TYPE_FIELD;
+  ISLOW_MULT_TYPE_PTR = ^ISLOW_MULT_TYPE;
+
+  jTFloatType = 0..(MaxInt div SizeOf(FLOAT_MULT_TYPE))-1;
+  FLOAT_MULT_TYPE_FIELD = array[jTFloatType] of FLOAT_MULT_TYPE;
+  FLOAT_MULT_TYPE_FIELD_PTR = ^FLOAT_MULT_TYPE_FIELD;
+  FLOAT_MULT_TYPE_PTR = ^FLOAT_MULT_TYPE;
+
+  jTFastType = 0..(MaxInt div SizeOf(IFAST_MULT_TYPE))-1;
+  IFAST_MULT_TYPE_FIELD = array[jTFastType] of IFAST_MULT_TYPE;
+  IFAST_MULT_TYPE_FIELD_PTR = ^IFAST_MULT_TYPE_FIELD;
+  IFAST_MULT_TYPE_PTR = ^IFAST_MULT_TYPE;
+
+type
+  jTFastFloat = 0..(MaxInt div SizeOf(FAST_FLOAT))-1;
+  FAST_FLOAT_FIELD = array[jTFastFloat] of FAST_FLOAT;
+  FAST_FLOAT_FIELD_PTR = ^FAST_FLOAT_FIELD;
+  FAST_FLOAT_PTR = ^FAST_FLOAT;
+
+implementation
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjddctmgr.pas b/src/lib/vampimg/JpegLib/imjddctmgr.pas

new file mode 100644 (file)

index 0000000..42ae295
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjddctmgr.pas
@@ -0,0 +1,330 @@
+unit imjddctmgr;
+
+{ Original : jddctmgr.c ;  Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This file contains the inverse-DCT management logic.
+  This code selects a particular IDCT implementation to be used,
+  and it performs related housekeeping chores.  No code in this file
+  is executed per IDCT step, only during output pass setup.
+
+  Note that the IDCT routines are responsible for performing coefficient
+  dequantization as well as the IDCT proper.  This module sets up the
+  dequantization multiplier table needed by the IDCT routine. }
+
+interface
+
+{$I imjconfig.inc}
+
+{$N+}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjpeglib,
+  imjdct,   { Private declarations for DCT subsystem }
+  imjidctfst,
+  {$IFDEF BASM}
+  imjidctasm,
+  {$ELSE}
+  imjidctint,
+  {$ENDIF}
+  imjidctflt,
+  imjidctred;
+
+
+
+{ Initialize IDCT manager. }
+
+{GLOBAL}
+procedure jinit_inverse_dct (cinfo : j_decompress_ptr);
+
+
+implementation
+
+{ The decompressor input side (jdinput.c) saves away the appropriate
+  quantization table for each component at the start of the first scan
+  involving that component.  (This is necessary in order to correctly
+  decode files that reuse Q-table slots.)
+  When we are ready to make an output pass, the saved Q-table is converted
+  to a multiplier table that will actually be used by the IDCT routine.
+  The multiplier table contents are IDCT-method-dependent.  To support
+  application changes in IDCT method between scans, we can remake the
+  multiplier tables if necessary.
+  In buffered-image mode, the first output pass may occur before any data
+  has been seen for some components, and thus before their Q-tables have
+  been saved away.  To handle this case, multiplier tables are preset
+  to zeroes; the result of the IDCT will be a neutral gray level. }
+
+
+{ Private subobject for this module }
+
+type
+  my_idct_ptr = ^my_idct_controller;
+  my_idct_controller = record
+    pub : jpeg_inverse_dct; { public fields }
+
+    { This array contains the IDCT method code that each multiplier table
+      is currently set up for, or -1 if it's not yet set up.
+      The actual multiplier tables are pointed to by dct_table in the
+      per-component comp_info structures. }
+
+    cur_method : array[0..MAX_COMPONENTS-1] of int;
+  end; {my_idct_controller;}
+
+
+{ Allocated multiplier tables: big enough for any supported variant }
+
+type
+  multiplier_table = record
+  case byte of
+    0:(islow_array : array[0..DCTSIZE2-1] of ISLOW_MULT_TYPE);
+  {$ifdef DCT_IFAST_SUPPORTED}
+    1:(ifast_array : array[0..DCTSIZE2-1] of IFAST_MULT_TYPE);
+  {$endif}
+  {$ifdef DCT_FLOAT_SUPPORTED}
+    2:(float_array : array[0..DCTSIZE2-1] of FLOAT_MULT_TYPE);
+  {$endif}
+  end;
+
+
+{ The current scaled-IDCT routines require ISLOW-style multiplier tables,
+  so be sure to compile that code if either ISLOW or SCALING is requested. }
+
+{$ifdef DCT_ISLOW_SUPPORTED}
+  {$define PROVIDE_ISLOW_TABLES}
+{$else}
+  {$ifdef IDCT_SCALING_SUPPORTED}
+    {$define PROVIDE_ISLOW_TABLES}
+  {$endif}
+{$endif}
+
+
+{ Prepare for an output pass.
+  Here we select the proper IDCT routine for each component and build
+  a matching multiplier table. }
+
+{METHODDEF}
+procedure start_pass (cinfo : j_decompress_ptr);
+var
+  idct : my_idct_ptr;
+  ci, i : int;
+  compptr : jpeg_component_info_ptr;
+  method : J_DCT_METHOD;
+  method_ptr : inverse_DCT_method_ptr;
+  qtbl : JQUANT_TBL_PTR;
+{$ifdef PROVIDE_ISLOW_TABLES}
+var
+  ismtbl : ISLOW_MULT_TYPE_FIELD_PTR;
+{$endif}
+{$ifdef DCT_IFAST_SUPPORTED}
+const
+  CONST_BITS = 14;
+const
+  aanscales : array[0..DCTSIZE2-1] of INT16 =
+    ({ precomputed values scaled up by 14 bits }
+     16384, 22725, 21407, 19266, 16384, 12873,  8867,  4520,
+     22725, 31521, 29692, 26722, 22725, 17855, 12299,  6270,
+     21407, 29692, 27969, 25172, 21407, 16819, 11585,  5906,
+     19266, 26722, 25172, 22654, 19266, 15137, 10426,  5315,
+     16384, 22725, 21407, 19266, 16384, 12873,  8867,  4520,
+     12873, 17855, 16819, 15137, 12873, 10114,  6967,  3552,
+     8867, 12299, 11585, 10426,  8867,  6967,  4799,  2446,
+     4520,  6270,  5906,  5315,  4520,  3552,  2446,  1247);
+var
+  ifmtbl : IFAST_MULT_TYPE_FIELD_PTR;
+  {SHIFT_TEMPS}
+
+  { Descale and correctly round an INT32 value that's scaled by N bits.
+    We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+    the fudge factor is correct for either sign of X. }
+
+  function DESCALE(x : INT32; n : int) : INT32;
+  var
+    shift_temp : INT32;
+  begin
+  {$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+    shift_temp := x + (INT32(1) shl (n-1));
+    if shift_temp < 0 then
+      Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+    else
+      Descale :=  (shift_temp shr n);
+  {$else}
+    Descale := (x + (INT32(1) shl (n-1)) shr n;
+  {$endif}
+  end;
+
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+const
+  aanscalefactor : array[0..DCTSIZE-1] of double =
+  (1.0, 1.387039845, 1.306562965, 1.175875602,
+    1.0, 0.785694958, 0.541196100, 0.275899379);
+var
+  fmtbl : FLOAT_MULT_TYPE_FIELD_PTR;
+  row, col : int;
+{$endif}
+begin
+  idct := my_idct_ptr (cinfo^.idct);
+  method := J_DCT_METHOD(0);
+  method_ptr := NIL;
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Select the proper IDCT routine for this component's scaling }
+    case (compptr^.DCT_scaled_size) of
+{$ifdef IDCT_SCALING_SUPPORTED}
+    1:begin
+        method_ptr := jpeg_idct_1x1;
+        method := JDCT_ISLOW; { jidctred uses islow-style table }
+      end;
+    2:begin
+        method_ptr := jpeg_idct_2x2;
+        method := JDCT_ISLOW; { jidctred uses islow-style table }
+      end;
+    4:begin
+        method_ptr := jpeg_idct_4x4;
+        method := JDCT_ISLOW; { jidctred uses islow-style table }
+      end;
+{$endif}
+    DCTSIZE:
+      case (cinfo^.dct_method) of
+{$ifdef DCT_ISLOW_SUPPORTED}
+      JDCT_ISLOW:
+        begin
+          method_ptr := @jpeg_idct_islow;
+          method := JDCT_ISLOW;
+  end;
+{$endif}
+{$ifdef DCT_IFAST_SUPPORTED}
+      JDCT_IFAST:
+        begin
+          method_ptr := @jpeg_idct_ifast;
+          method := JDCT_IFAST;
+        end;
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+      JDCT_FLOAT:
+        begin
+          method_ptr := @jpeg_idct_float;
+          method := JDCT_FLOAT;
+        end;
+{$endif}
+      else
+        ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+      end;
+    else
+      ERREXIT1(j_common_ptr(cinfo), JERR_BAD_DCTSIZE, compptr^.DCT_scaled_size);
+    end;
+    idct^.pub.inverse_DCT[ci] := method_ptr;
+    { Create multiplier table from quant table.
+      However, we can skip this if the component is uninteresting
+      or if we already built the table.  Also, if no quant table
+      has yet been saved for the component, we leave the
+      multiplier table all-zero; we'll be reading zeroes from the
+      coefficient controller's buffer anyway. }
+
+    if (not compptr^.component_needed) or (idct^.cur_method[ci] = int(method)) then
+      continue;
+    qtbl := compptr^.quant_table;
+    if (qtbl = NIL) then  { happens if no data yet for component }
+      continue;
+    idct^.cur_method[ci] := int(method);
+    case (method) of
+{$ifdef PROVIDE_ISLOW_TABLES}
+    JDCT_ISLOW:
+      begin
+  { For LL&M IDCT method, multipliers are equal to raw quantization
+    coefficients, but are stored as ints to ensure access efficiency. }
+
+  ismtbl := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  for i := 0 to pred(DCTSIZE2) do
+        begin
+    ismtbl^[i] := ISLOW_MULT_TYPE (qtbl^.quantval[i]);
+  end;
+      end;
+{$endif}
+{$ifdef DCT_IFAST_SUPPORTED}
+    JDCT_IFAST:
+      begin
+  { For AA&N IDCT method, multipliers are equal to quantization
+    coefficients scaled by scalefactor[row]*scalefactor[col], where
+      scalefactor[0] := 1
+      scalefactor[k] := cos(k*PI/16) * sqrt(2)    for k=1..7
+    For integer operation, the multiplier table is to be scaled by
+    IFAST_SCALE_BITS. }
+
+  ifmtbl := IFAST_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+
+  for i := 0 to pred(DCTSIZE2) do
+        begin
+    ifmtbl^[i] := IFAST_MULT_TYPE(
+      DESCALE(  INT32 (qtbl^.quantval[i]) * INT32 (aanscales[i]),
+        CONST_BITS-IFAST_SCALE_BITS) );
+  end;
+      end;
+{$endif}
+{$ifdef DCT_FLOAT_SUPPORTED}
+    JDCT_FLOAT:
+      begin
+  { For float AA&N IDCT method, multipliers are equal to quantization
+    coefficients scaled by scalefactor[row]*scalefactor[col], where
+      scalefactor[0] := 1
+      scalefactor[k] := cos(k*PI/16) * sqrt(2)    for k=1..7 }
+
+  fmtbl := FLOAT_MULT_TYPE_FIELD_PTR(compptr^.dct_table);
+
+  i := 0;
+  for row := 0 to pred(DCTSIZE) do
+        begin
+    for col := 0 to pred(DCTSIZE) do
+          begin
+      fmtbl^[i] := {FLOAT_MULT_TYPE} (
+         {double} qtbl^.quantval[i] *
+         aanscalefactor[row] * aanscalefactor[col] );
+      Inc(i);
+    end;
+  end;
+      end;
+{$endif}
+    else
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+      break;
+    end;
+    Inc(compptr);
+  end;
+end;
+
+
+{ Initialize IDCT manager. }
+
+{GLOBAL}
+procedure jinit_inverse_dct (cinfo : j_decompress_ptr);
+var
+  idct : my_idct_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  idct := my_idct_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_idct_controller)) );
+  cinfo^.idct := jpeg_inverse_dct_ptr (idct);
+  idct^.pub.start_pass := start_pass;
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Allocate and pre-zero a multiplier table for each component }
+    compptr^.dct_table :=
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(multiplier_table));
+    MEMZERO(compptr^.dct_table, SIZEOF(multiplier_table));
+    { Mark multiplier table not yet set up for any method }
+    idct^.cur_method[ci] := -1;
+    Inc(compptr);
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdeferr.pas b/src/lib/vampimg/JpegLib/imjdeferr.pas

new file mode 100644 (file)

index 0000000..61fe305
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdeferr.pas
@@ -0,0 +1,497 @@
+unit imjdeferr;
+
+{ This file defines the error and message codes for the cjpeg/djpeg
+  applications.  These strings are not needed as part of the JPEG library
+  proper.
+  Edit this file to add new codes, or to translate the message strings to
+  some other language. }
+
+{ Original cderror.h  ; Copyright (C) 1994, Thomas G. Lane.  }
+
+interface
+
+{$I imjconfig.inc}
+
+{ To define the enum list of message codes, include this file without
+  defining macro JMESSAGE.  To create a message string table, include it
+  again with a suitable JMESSAGE definition (see jerror.c for an example). }
+
+
+{ Original: jversion.h ; Copyright (C) 1991-1996, Thomas G. Lane. }
+{ This file contains software version identification. }
+
+const
+  JVERSION   = '6a  7-Feb-96';
+
+  JCOPYRIGHT = 'Copyright (C) 1996, Thomas G. Lane';
+
+  JNOTICE = 'Pascal Translation, Copyright (C) 1996, Jacques Nomssi Nzali';
+
+{ Create the message string table.
+  We do this from the master message list in jerror.h by re-reading
+  jerror.h with a suitable definition for macro JMESSAGE.
+  The message table is made an external symbol just in case any applications
+  want to refer to it directly. }
+
+type
+  J_MESSAGE_CODE  =(
+    JMSG_NOMESSAGE,
+    JERR_ARITH_NOTIMPL,
+    JERR_BAD_ALIGN_TYPE,
+    JERR_BAD_ALLOC_CHUNK,
+    JERR_BAD_BUFFER_MODE,
+    JERR_BAD_COMPONENT_ID,
+    JERR_BAD_DCT_COEF,
+    JERR_BAD_DCTSIZE,
+    JERR_BAD_HUFF_TABLE,
+    JERR_BAD_IN_COLORSPACE,
+    JERR_BAD_J_COLORSPACE,
+    JERR_BAD_LENGTH,
+    JERR_BAD_LIB_VERSION,
+    JERR_BAD_MCU_SIZE,
+    JERR_BAD_POOL_ID,
+    JERR_BAD_PRECISION,
+    JERR_BAD_PROGRESSION,
+    JERR_BAD_PROG_SCRIPT,
+    JERR_BAD_SAMPLING,
+    JERR_BAD_SCAN_SCRIPT,
+    JERR_BAD_STATE,
+    JERR_BAD_STRUCT_SIZE,
+    JERR_BAD_VIRTUAL_ACCESS,
+    JERR_BUFFER_SIZE,
+    JERR_CANT_SUSPEND,
+    JERR_CCIR601_NOTIMPL,
+    JERR_COMPONENT_COUNT,
+    JERR_CONVERSION_NOTIMPL,
+    JERR_DAC_INDEX,
+    JERR_DAC_VALUE,
+    JERR_DHT_COUNTS,
+    JERR_DHT_INDEX,
+    JERR_DQT_INDEX,
+    JERR_EMPTY_IMAGE,
+    JERR_EMS_READ,
+    JERR_EMS_WRITE,
+    JERR_EOI_EXPECTED,
+    JERR_FILE_READ,
+    JERR_FILE_WRITE,
+    JERR_FRACT_SAMPLE_NOTIMPL,
+    JERR_HUFF_CLEN_OVERFLOW,
+    JERR_HUFF_MISSING_CODE,
+    JERR_IMAGE_TOO_BIG,
+    JERR_INPUT_EMPTY,
+    JERR_INPUT_EOF,
+    JERR_MISMATCHED_QUANT_TABLE,
+    JERR_MISSING_DATA,
+    JERR_MODE_CHANGE,
+    JERR_NOTIMPL,
+    JERR_NOT_COMPILED,
+    JERR_NO_BACKING_STORE,
+    JERR_NO_HUFF_TABLE,
+    JERR_NO_IMAGE,
+    JERR_NO_QUANT_TABLE,
+    JERR_NO_SOI,
+    JERR_OUT_OF_MEMORY,
+    JERR_QUANT_COMPONENTS,
+    JERR_QUANT_FEW_COLORS,
+    JERR_QUANT_MANY_COLORS,
+    JERR_SOF_DUPLICATE,
+    JERR_SOF_NO_SOS,
+    JERR_SOF_UNSUPPORTED,
+    JERR_SOI_DUPLICATE,
+    JERR_SOS_NO_SOF,
+    JERR_TFILE_CREATE,
+    JERR_TFILE_READ,
+    JERR_TFILE_SEEK,
+    JERR_TFILE_WRITE,
+    JERR_TOO_LITTLE_DATA,
+    JERR_UNKNOWN_MARKER,
+    JERR_VIRTUAL_BUG,
+    JERR_WIDTH_OVERFLOW,
+    JERR_XMS_READ,
+    JERR_XMS_WRITE,
+    JMSG_COPYRIGHT,
+    JMSG_VERSION,
+    JTRC_16BIT_TABLES,
+    JTRC_ADOBE,
+    JTRC_APP0,
+    JTRC_APP14,
+    JTRC_DAC,
+    JTRC_DHT,
+    JTRC_DQT,
+    JTRC_DRI,
+    JTRC_EMS_CLOSE,
+    JTRC_EMS_OPEN,
+    JTRC_EOI,
+    JTRC_HUFFBITS,
+    JTRC_JFIF,
+    JTRC_JFIF_BADTHUMBNAILSIZE,
+    JTRC_JFIF_EXTENSION,
+    JTRC_JFIF_THUMBNAIL,
+    JTRC_MISC_MARKER,
+    JTRC_PARMLESS_MARKER,
+    JTRC_QUANTVALS,
+    JTRC_QUANT_3_NCOLORS,
+    JTRC_QUANT_NCOLORS,
+    JTRC_QUANT_SELECTED,
+    JTRC_RECOVERY_ACTION,
+    JTRC_RST,
+    JTRC_SMOOTH_NOTIMPL,
+    JTRC_SOF,
+    JTRC_SOF_COMPONENT,
+    JTRC_SOI,
+    JTRC_SOS,
+    JTRC_SOS_COMPONENT,
+    JTRC_SOS_PARAMS,
+    JTRC_TFILE_CLOSE,
+    JTRC_TFILE_OPEN,
+    JTRC_THUMB_JPEG,
+    JTRC_THUMB_PALETTE,
+    JTRC_THUMB_RGB,
+    JTRC_UNKNOWN_IDS,
+    JTRC_XMS_CLOSE,
+    JTRC_XMS_OPEN,
+    JWRN_ADOBE_XFORM,
+    JWRN_BOGUS_PROGRESSION,
+    JWRN_EXTRANEOUS_DATA,
+    JWRN_HIT_MARKER,
+    JWRN_HUFF_BAD_CODE,
+    JWRN_JFIF_MAJOR,
+    JWRN_JPEG_EOF,
+    JWRN_MUST_RESYNC,
+    JWRN_NOT_SEQUENTIAL,
+    JWRN_TOO_MUCH_DATA,
+
+
+     JMSG_FIRSTADDONCODE,  { Must be first entry! }
+
+   {$ifdef BMP_SUPPORTED}
+     JERR_BMP_BADCMAP,  { Unsupported BMP colormap format }
+     JERR_BMP_BADDEPTH,  { Only 8- and 24-bit BMP files are supported }
+     JERR_BMP_BADHEADER,  { Invalid BMP file: bad header length }
+     JERR_BMP_BADPLANES,  { Invalid BMP file: biPlanes not equal to 1 }
+     JERR_BMP_COLORSPACE,  { BMP output must be grayscale or RGB }
+     JERR_BMP_COMPRESSED,  { Sorry, compressed BMPs not yet supported }
+     JERR_BMP_NOT,  { Not a BMP file - does not start with BM }
+     JTRC_BMP,  { %dx%d 24-bit BMP image }
+     JTRC_BMP_MAPPED,  { %dx%d 8-bit colormapped BMP image }
+     JTRC_BMP_OS2,  { %dx%d 24-bit OS2 BMP image }
+     JTRC_BMP_OS2_MAPPED,  { %dx%d 8-bit colormapped OS2 BMP image }
+   {$endif} { BMP_SUPPORTED }
+
+   {$ifdef GIF_SUPPORTED}
+     JERR_GIF_BUG,  { GIF output got confused }
+     JERR_GIF_CODESIZE,  { Bogus GIF codesize %d }
+     JERR_GIF_COLORSPACE,  { GIF output must be grayscale or RGB }
+     JERR_GIF_IMAGENOTFOUND,  { Too few images in GIF file }
+     JERR_GIF_NOT,  { Not a GIF file }
+     JTRC_GIF,  { %dx%dx%d GIF image }
+     JTRC_GIF_BADVERSION,
+        { Warning: unexpected GIF version number '%c%c%c' }
+     JTRC_GIF_EXTENSION,  { Ignoring GIF extension block of type 0x%02x }
+     JTRC_GIF_NONSQUARE,  { Caution: nonsquare pixels in input }
+     JWRN_GIF_BADDATA,  { Corrupt data in GIF file }
+     JWRN_GIF_CHAR,  { Bogus char 0x%02x in GIF file, ignoring }
+     JWRN_GIF_ENDCODE,  { Premature end of GIF image }
+     JWRN_GIF_NOMOREDATA,  { Ran out of GIF bits }
+   {$endif} { GIF_SUPPORTED }
+
+   {$ifdef PPM_SUPPORTED}
+     JERR_PPM_COLORSPACE,  { PPM output must be grayscale or RGB }
+     JERR_PPM_NONNUMERIC,  { Nonnumeric data in PPM file }
+     JERR_PPM_NOT,  { Not a PPM file }
+     JTRC_PGM,  { %dx%d PGM image }
+     JTRC_PGM_TEXT,  { %dx%d text PGM image }
+     JTRC_PPM,  { %dx%d PPM image }
+     JTRC_PPM_TEXT,  { %dx%d text PPM image }
+   {$endif} { PPM_SUPPORTED }
+
+   {$ifdef RLE_SUPPORTED}
+     JERR_RLE_BADERROR,  { Bogus error code from RLE library }
+     JERR_RLE_COLORSPACE,  { RLE output must be grayscale or RGB }
+     JERR_RLE_DIMENSIONS,  { Image dimensions (%dx%d) too large for RLE }
+     JERR_RLE_EMPTY,  { Empty RLE file }
+     JERR_RLE_EOF,  { Premature EOF in RLE header }
+     JERR_RLE_MEM,  { Insufficient memory for RLE header }
+     JERR_RLE_NOT,  { Not an RLE file }
+     JERR_RLE_TOOMANYCHANNELS,  { Cannot handle %d output channels for RLE }
+     JERR_RLE_UNSUPPORTED,  { Cannot handle this RLE setup }
+     JTRC_RLE,  { %dx%d full-color RLE file }
+     JTRC_RLE_FULLMAP,  { %dx%d full-color RLE file with map of length %d }
+     JTRC_RLE_GRAY,  { %dx%d grayscale RLE file }
+     JTRC_RLE_MAPGRAY,  { %dx%d grayscale RLE file with map of length %d }
+     JTRC_RLE_MAPPED,  { %dx%d colormapped RLE file with map of length %d }
+   {$endif} { RLE_SUPPORTED }
+
+   {$ifdef TARGA_SUPPORTED}
+     JERR_TGA_BADCMAP,  { Unsupported Targa colormap format }
+     JERR_TGA_BADPARMS,  { Invalid or unsupported Targa file }
+     JERR_TGA_COLORSPACE,  { Targa output must be grayscale or RGB }
+     JTRC_TGA,  { %dx%d RGB Targa image }
+     JTRC_TGA_GRAY,  { %dx%d grayscale Targa image }
+     JTRC_TGA_MAPPED,  { %dx%d colormapped Targa image }
+   {$else}
+     JERR_TGA_NOTCOMP,  { Targa support was not compiled }
+   {$endif} { TARGA_SUPPORTED }
+
+     JERR_BAD_CMAP_FILE,
+      { Color map file is invalid or of unsupported format }
+     JERR_TOO_MANY_COLORS,
+      { Output file format cannot handle %d colormap entries }
+     JERR_UNGETC_FAILED,  { ungetc failed }
+   {$ifdef TARGA_SUPPORTED}
+     JERR_UNKNOWN_FORMAT,
+      { Unrecognized input file format --- perhaps you need -targa }
+   {$else}
+     JERR_UNKNOWN_FORMAT,  { Unrecognized input file format }
+   {$endif}
+     JERR_UNSUPPORTED_FORMAT,  { Unsupported output file format }
+
+     JMSG_LASTADDONCODE
+   );
+
+
+const
+  JMSG_LASTMSGCODE : J_MESSAGE_CODE = JMSG_LASTADDONCODE;
+
+type
+  msg_table = Array[J_MESSAGE_CODE] of string[80];
+const
+  jpeg_std_message_table : msg_table = (
+
+  { JMSG_NOMESSAGE } 'Bogus message code %d', { Must be first entry! }
+
+{ For maintenance convenience, list is alphabetical by message code name }
+  { JERR_ARITH_NOTIMPL }
+   'Sorry, there are legal restrictions on arithmetic coding',
+  { JERR_BAD_ALIGN_TYPE } 'ALIGN_TYPE is wrong, please fix',
+  { JERR_BAD_ALLOC_CHUNK } 'MAX_ALLOC_CHUNK is wrong, please fix',
+  { JERR_BAD_BUFFER_MODE } 'Bogus buffer control mode',
+  { JERR_BAD_COMPONENT_ID } 'Invalid component ID %d in SOS',
+  { JERR_BAD_DCT_COEF } 'DCT coefficient out of range',
+  { JERR_BAD_DCTSIZE } 'IDCT output block size %d not supported',
+  { JERR_BAD_HUFF_TABLE } 'Bogus Huffman table definition',
+  { JERR_BAD_IN_COLORSPACE } 'Bogus input colorspace',
+  { JERR_BAD_J_COLORSPACE } 'Bogus JPEG colorspace',
+  { JERR_BAD_LENGTH } 'Bogus marker length',
+  { JERR_BAD_LIB_VERSION }
+   'Wrong JPEG library version: library is %d, caller expects %d',
+  { JERR_BAD_MCU_SIZE } 'Sampling factors too large for interleaved scan',
+  { JERR_BAD_POOL_ID } 'Invalid memory pool code %d',
+  { JERR_BAD_PRECISION } 'Unsupported JPEG data precision %d',
+  { JERR_BAD_PROGRESSION }
+   'Invalid progressive parameters Ss=%d Se=%d Ah=%d Al=%d',
+  { JERR_BAD_PROG_SCRIPT }
+   'Invalid progressive parameters at scan script entry %d',
+  { JERR_BAD_SAMPLING } 'Bogus sampling factors',
+  { JERR_BAD_SCAN_SCRIPT } 'Invalid scan script at entry %d',
+  { JERR_BAD_STATE } 'Improper call to JPEG library in state %d',
+  { JERR_BAD_STRUCT_SIZE }
+   'JPEG parameter struct mismatch: library thinks size is %d, caller expects %d',
+  { JERR_BAD_VIRTUAL_ACCESS } 'Bogus virtual array access',
+  { JERR_BUFFER_SIZE } 'Buffer passed to JPEG library is too small',
+  { JERR_CANT_SUSPEND } 'Suspension not allowed here',
+  { JERR_CCIR601_NOTIMPL } 'CCIR601 sampling not implemented yet',
+  { JERR_COMPONENT_COUNT } 'Too many color components: %d, max %d',
+  { JERR_CONVERSION_NOTIMPL } 'Unsupported color conversion request',
+  { JERR_DAC_INDEX } 'Bogus DAC index %d',
+  { JERR_DAC_VALUE } 'Bogus DAC value $%x',
+  { JERR_DHT_COUNTS } 'Bogus DHT counts',
+  { JERR_DHT_INDEX } 'Bogus DHT index %d',
+  { JERR_DQT_INDEX } 'Bogus DQT index %d',
+  { JERR_EMPTY_IMAGE } 'Empty JPEG image (DNL not supported)',
+  { JERR_EMS_READ } 'Read from EMS failed',
+  { JERR_EMS_WRITE } 'Write to EMS failed',
+  { JERR_EOI_EXPECTED } 'Didn''t expect more than one scan',
+  { JERR_FILE_READ } 'Input file read error',
+  { JERR_FILE_WRITE } 'Output file write error --- out of disk space?',
+  { JERR_FRACT_SAMPLE_NOTIMPL } 'Fractional sampling not implemented yet',
+  { JERR_HUFF_CLEN_OVERFLOW } 'Huffman code size table overflow',
+  { JERR_HUFF_MISSING_CODE } 'Missing Huffman code table entry',
+  { JERR_IMAGE_TOO_BIG } 'Maximum supported image dimension is %d pixels',
+  { JERR_INPUT_EMPTY } 'Empty input file',
+  { JERR_INPUT_EOF } 'Premature end of input file',
+  { JERR_MISMATCHED_QUANT_TABLE }
+   'Cannot transcode due to multiple use of quantization table %d',
+  { JERR_MISSING_DATA } 'Scan script does not transmit all data',
+  { JERR_MODE_CHANGE } 'Invalid color quantization mode change',
+  { JERR_NOTIMPL } 'Not implemented yet',
+  { JERR_NOT_COMPILED } 'Requested feature was omitted at compile time',
+  { JERR_NO_BACKING_STORE } 'Backing store not supported',
+  { JERR_NO_HUFF_TABLE } 'Huffman table $%02x was not defined',
+  { JERR_NO_IMAGE } 'JPEG datastream contains no image',
+  { JERR_NO_QUANT_TABLE } 'Quantization table $%02x was not defined',
+  { JERR_NO_SOI } 'Not a JPEG file: starts with $%02x $%02x',
+  { JERR_OUT_OF_MEMORY } 'Insufficient memory (case %d)',
+  { JERR_QUANT_COMPONENTS }
+   'Cannot quantize more than %d color components',
+  { JERR_QUANT_FEW_COLORS } 'Cannot quantize to fewer than %d colors',
+  { JERR_QUANT_MANY_COLORS } 'Cannot quantize to more than %d colors',
+  { JERR_SOF_DUPLICATE } 'Invalid JPEG file structure: two SOF markers',
+  { JERR_SOF_NO_SOS } 'Invalid JPEG file structure: missing SOS marker',
+  { JERR_SOF_UNSUPPORTED } 'Unsupported JPEG process: SOF type $%02x',
+  { JERR_SOI_DUPLICATE } 'Invalid JPEG file structure: two SOI markers',
+  { JERR_SOS_NO_SOF } 'Invalid JPEG file structure: SOS before SOF',
+  { JERR_TFILE_CREATE } 'Failed to create temporary file %s',
+  { JERR_TFILE_READ } 'Read failed on temporary file',
+  { JERR_TFILE_SEEK } 'Seek failed on temporary file',
+  { JERR_TFILE_WRITE }
+   'Write failed on temporary file --- out of disk space?',
+  { JERR_TOO_LITTLE_DATA } 'Application transferred too few scanlines',
+  { JERR_UNKNOWN_MARKER } 'Unsupported marker type $%02x',
+  { JERR_VIRTUAL_BUG } 'Virtual array controller messed up',
+  { JERR_WIDTH_OVERFLOW } 'Image too wide for this implementation',
+  { JERR_XMS_READ } 'Read from XMS failed',
+  { JERR_XMS_WRITE } 'Write to XMS failed',
+  { JMSG_COPYRIGHT }  JCOPYRIGHT,
+  { JMSG_VERSION } JVERSION,
+  { JTRC_16BIT_TABLES }
+   'Caution: quantization tables are too coarse for baseline JPEG',
+  { JTRC_ADOBE }
+   'Adobe APP14 marker: version %d, flags $%04x $%04x, transform %d',
+  { JTRC_APP0 } 'Unknown APP0 marker (not JFIF), length %d',
+  { JTRC_APP14 } 'Unknown APP14 marker (not Adobe), length %d',
+  { JTRC_DAC } 'Define Arithmetic Table $%02x: $%02x',
+  { JTRC_DHT } 'Define Huffman Table $%02x',
+  { JTRC_DQT } 'Define Quantization Table %d  precision %d',
+  { JTRC_DRI } 'Define Restart Interval %d',
+  { JTRC_EMS_CLOSE } 'Freed EMS handle %d',
+  { JTRC_EMS_OPEN } 'Obtained EMS handle %d',
+  { JTRC_EOI } 'End Of Image',
+  { JTRC_HUFFBITS } '        %3d %3d %3d %3d %3d %3d %3d %3d',
+  { JTRC_JFIF } 'JFIF APP0 marker, density %dx%d  %d',
+  { JTRC_JFIF_BADTHUMBNAILSIZE }
+   'Warning: thumbnail image size does not match data length %d',
+  { JTRC_JFIF_EXTENSION } 'JFIF extension marker: type 0x%02x, length %u',
+  { JTRC_JFIF_THUMBNAIL } '    with %d x %d thumbnail image',
+  { JTRC_MISC_MARKER } 'Skipping marker $%02x, length %d',
+  { JTRC_PARMLESS_MARKER } 'Unexpected marker $%02x',
+  { JTRC_QUANTVALS } '        %4d %4d %4d %4d %4d %4d %4d %4d',
+  { JTRC_QUANT_3_NCOLORS } 'Quantizing to %d = %d*%d*%d colors',
+  { JTRC_QUANT_NCOLORS } 'Quantizing to %d colors',
+  { JTRC_QUANT_SELECTED } 'Selected %d colors for quantization',
+  { JTRC_RECOVERY_ACTION } 'At marker $%02x, recovery action %d',
+  { JTRC_RST } 'RST%d',
+  { JTRC_SMOOTH_NOTIMPL }
+   'Smoothing not supported with nonstandard sampling ratios',
+  { JTRC_SOF } 'Start Of Frame $%02x: width=%d, height=%d, components=%d',
+  { JTRC_SOF_COMPONENT } '    Component %d: %dhx%dv q=%d',
+  { JTRC_SOI } 'Start of Image',
+  { JTRC_SOS } 'Start Of Scan: %d components',
+  { JTRC_SOS_COMPONENT } '    Component %d: dc=%d ac=%d',
+  { JTRC_SOS_PARAMS } '  Ss=%d, Se=%d, Ah=%d, Al=%d',
+  { JTRC_TFILE_CLOSE } 'Closed temporary file %s',
+  { JTRC_TFILE_OPEN } 'Opened temporary file %s',
+  { JTRC_THUMB_JPEG }
+   'JFIF extension marker: JPEG-compressed thumbnail image, length %u',
+  { JMESSAGE(JTRC_THUMB_PALETTE }
+   'JFIF extension marker: palette thumbnail image, length %u',
+  { JMESSAGE(JTRC_THUMB_RGB }
+   'JFIF extension marker: RGB thumbnail image, length %u',
+  { JTRC_UNKNOWN_IDS }
+   'Unrecognized component IDs %d %d %d, assuming YCbCr',
+  { JTRC_XMS_CLOSE } 'Freed XMS handle %d',
+  { JTRC_XMS_OPEN } 'Obtained XMS handle %d',
+  { JWRN_ADOBE_XFORM } 'Unknown Adobe color transform code %d',
+  { JWRN_BOGUS_PROGRESSION }
+   'Inconsistent progression sequence for component %d coefficient %d',
+  { JWRN_EXTRANEOUS_DATA }
+   'Corrupt JPEG data: %d extraneous bytes before marker $%02x',
+  { JWRN_HIT_MARKER } 'Corrupt JPEG data: premature end of data segment',
+  { JWRN_HUFF_BAD_CODE } 'Corrupt JPEG data: bad Huffman code',
+  { JWRN_JFIF_MAJOR } 'Warning: unknown JFIF revision number %d.%02d',
+  { JWRN_JPEG_EOF } 'Premature end of JPEG file',
+  { JWRN_MUST_RESYNC }
+   'Corrupt JPEG data: found marker $%02x instead of RST%d',
+  { JWRN_NOT_SEQUENTIAL } 'Invalid SOS parameters for sequential JPEG',
+  { JWRN_TOO_MUCH_DATA } 'Application transferred too many scanlines',
+
+  { JMSG_FIRSTADDONCODE }  '', { Must be first entry! }
+
+{$ifdef BMP_SUPPORTED}
+  { JERR_BMP_BADCMAP } 'Unsupported BMP colormap format',
+  { JERR_BMP_BADDEPTH } 'Only 8- and 24-bit BMP files are supported',
+  { JERR_BMP_BADHEADER } 'Invalid BMP file: bad header length',
+  { JERR_BMP_BADPLANES } 'Invalid BMP file: biPlanes not equal to 1',
+  { JERR_BMP_COLORSPACE } 'BMP output must be grayscale or RGB',
+  { JERR_BMP_COMPRESSED } 'Sorry, compressed BMPs not yet supported',
+  { JERR_BMP_NOT } 'Not a BMP file - does not start with BM',
+  { JTRC_BMP } '%dx%d 24-bit BMP image',
+  { JTRC_BMP_MAPPED } '%dx%d 8-bit colormapped BMP image',
+  { JTRC_BMP_OS2 } '%dx%d 24-bit OS2 BMP image',
+  { JTRC_BMP_OS2_MAPPED } '%dx%d 8-bit colormapped OS2 BMP image',
+{$endif} { BMP_SUPPORTED }
+
+{$ifdef GIF_SUPPORTED}
+  { JERR_GIF_BUG } 'GIF output got confused',
+  { JERR_GIF_CODESIZE } 'Bogus GIF codesize %d',
+  { JERR_GIF_COLORSPACE } 'GIF output must be grayscale or RGB',
+  { JERR_GIF_IMAGENOTFOUND } 'Too few images in GIF file',
+  { JERR_GIF_NOT } 'Not a GIF file',
+  { JTRC_GIF } '%dx%dx%d GIF image',
+  { JTRC_GIF_BADVERSION }
+     'Warning: unexpected GIF version number "%c%c%c"',
+  { JTRC_GIF_EXTENSION } 'Ignoring GIF extension block of type 0x%02x',
+  { JTRC_GIF_NONSQUARE } 'Caution: nonsquare pixels in input',
+  { JWRN_GIF_BADDATA } 'Corrupt data in GIF file',
+  { JWRN_GIF_CHAR } 'Bogus char 0x%02x in GIF file, ignoring',
+  { JWRN_GIF_ENDCODE } 'Premature end of GIF image',
+  { JWRN_GIF_NOMOREDATA } 'Ran out of GIF bits',
+{$endif} { GIF_SUPPORTED }
+
+{$ifdef PPM_SUPPORTED}
+  { JERR_PPM_COLORSPACE } 'PPM output must be grayscale or RGB',
+  { JERR_PPM_NONNUMERIC } 'Nonnumeric data in PPM file',
+  { JERR_PPM_NOT } 'Not a PPM file',
+  { JTRC_PGM } '%dx%d PGM image',
+  { JTRC_PGM_TEXT } '%dx%d text PGM image',
+  { JTRC_PPM } '%dx%d PPM image',
+  { JTRC_PPM_TEXT } '%dx%d text PPM image',
+{$endif} { PPM_SUPPORTED }
+
+{$ifdef RLE_SUPPORTED}
+  { JERR_RLE_BADERROR } 'Bogus error code from RLE library',
+  { JERR_RLE_COLORSPACE } 'RLE output must be grayscale or RGB',
+  { JERR_RLE_DIMENSIONS } 'Image dimensions (%dx%d) too large for RLE',
+  { JERR_RLE_EMPTY } 'Empty RLE file',
+  { JERR_RLE_EOF } 'Premature EOF in RLE header',
+  { JERR_RLE_MEM } 'Insufficient memory for RLE header',
+  { JERR_RLE_NOT } 'Not an RLE file',
+  { JERR_RLE_TOOMANYCHANNELS } 'Cannot handle %d output channels for RLE',
+  { JERR_RLE_UNSUPPORTED } 'Cannot handle this RLE setup',
+  { JTRC_RLE } '%dx%d full-color RLE file',
+  { JTRC_RLE_FULLMAP } '%dx%d full-color RLE file with map of length %d',
+  { JTRC_RLE_GRAY } '%dx%d grayscale RLE file',
+  { JTRC_RLE_MAPGRAY } '%dx%d grayscale RLE file with map of length %d',
+  { JTRC_RLE_MAPPED } '%dx%d colormapped RLE file with map of length %d',
+{$endif} { RLE_SUPPORTED }
+
+{$ifdef TARGA_SUPPORTED}
+  { JERR_TGA_BADCMAP } 'Unsupported Targa colormap format',
+  { JERR_TGA_BADPARMS } 'Invalid or unsupported Targa file',
+  { JERR_TGA_COLORSPACE } 'Targa output must be grayscale or RGB',
+  { JTRC_TGA } '%dx%d RGB Targa image',
+  { JTRC_TGA_GRAY } '%dx%d grayscale Targa image',
+  { JTRC_TGA_MAPPED } '%dx%d colormapped Targa image',
+{$else}
+  { JERR_TGA_NOTCOMP } 'Targa support was not compiled',
+{$endif} { TARGA_SUPPORTED }
+
+  { JERR_BAD_CMAP_FILE }
+   'Color map file is invalid or of unsupported format',
+  { JERR_TOO_MANY_COLORS }
+   'Output file format cannot handle %d colormap entries',
+  { JERR_UNGETC_FAILED } 'ungetc failed',
+{$ifdef TARGA_SUPPORTED}
+  { JERR_UNKNOWN_FORMAT }
+   'Unrecognized input file format --- perhaps you need -targa',
+{$else}
+  { JERR_UNKNOWN_FORMAT } 'Unrecognized input file format',
+{$endif}
+  { JERR_UNSUPPORTED_FORMAT } 'Unsupported output file format',
+
+
+  { JMSG_LASTADDONCODE } '');
+
+implementation
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdhuff.pas b/src/lib/vampimg/JpegLib/imjdhuff.pas

new file mode 100644 (file)

index 0000000..09f0e66
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdhuff.pas
@@ -0,0 +1,1204 @@
+unit imjdhuff;
+
+{ This file contains declarations for Huffman entropy decoding routines
+  that are shared between the sequential decoder (jdhuff.c) and the
+  progressive decoder (jdphuff.c).  No other modules need to see these. }
+
+{ This file contains Huffman entropy decoding routines.
+
+  Much of the complexity here has to do with supporting input suspension.
+  If the data source module demands suspension, we want to be able to back
+  up to the start of the current MCU.  To do this, we copy state variables
+  into local working storage, and update them back to the permanent
+  storage only upon successful completion of an MCU. }
+
+{ Original: jdhuff.h+jdhuff.c;  Copyright (C) 1991-1997, Thomas G. Lane. }
+
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjpeglib;
+
+
+{ Declarations shared with jdphuff.c }
+
+
+
+{ Derived data constructed for each Huffman table }
+
+const
+  HUFF_LOOKAHEAD  = 8;          { # of bits of lookahead }
+
+type
+  d_derived_tbl_ptr = ^d_derived_tbl;
+  d_derived_tbl = record
+    { Basic tables: (element [0] of each array is unused) }
+    maxcode : array[0..18-1] of INT32;       { largest code of length k (-1 if none) }
+    { (maxcode[17] is a sentinel to ensure jpeg_huff_decode terminates) }
+    valoffset : array[0..17-1] of INT32;     { huffval[] offset for codes of length k }
+    { valoffset[k] = huffval[] index of 1st symbol of code length k, less
+      the smallest code of length k; so given a code of length k, the
+      corresponding symbol is huffval[code + valoffset[k]] }
+
+    { Link to public Huffman table (needed only in jpeg_huff_decode) }
+    pub : JHUFF_TBL_PTR;
+
+    { Lookahead tables: indexed by the next HUFF_LOOKAHEAD bits of
+      the input data stream.  If the next Huffman code is no more
+      than HUFF_LOOKAHEAD bits long, we can obtain its length and
+      the corresponding symbol directly from these tables. }
+
+    look_nbits : array[0..(1 shl HUFF_LOOKAHEAD)-1] of int;
+                                { # bits, or 0 if too long }
+    look_sym : array[0..(1 shl HUFF_LOOKAHEAD)-1] of UINT8;
+                                { symbol, or unused }
+  end;
+
+{ Fetching the next N bits from the input stream is a time-critical operation
+  for the Huffman decoders.  We implement it with a combination of inline
+  macros and out-of-line subroutines.  Note that N (the number of bits
+  demanded at one time) never exceeds 15 for JPEG use.
+
+  We read source bytes into get_buffer and dole out bits as needed.
+  If get_buffer already contains enough bits, they are fetched in-line
+  by the macros CHECK_BIT_BUFFER and GET_BITS.  When there aren't enough
+  bits, jpeg_fill_bit_buffer is called; it will attempt to fill get_buffer
+  as full as possible (not just to the number of bits needed; this
+  prefetching reduces the overhead cost of calling jpeg_fill_bit_buffer).
+  Note that jpeg_fill_bit_buffer may return FALSE to indicate suspension.
+  On TRUE return, jpeg_fill_bit_buffer guarantees that get_buffer contains
+  at least the requested number of bits --- dummy zeroes are inserted if
+  necessary. }
+
+
+type
+  bit_buf_type = INT32 ;        { type of bit-extraction buffer }
+const
+  BIT_BUF_SIZE = 32;            { size of buffer in bits }
+
+{ If long is > 32 bits on your machine, and shifting/masking longs is
+  reasonably fast, making bit_buf_type be long and setting BIT_BUF_SIZE
+  appropriately should be a win.  Unfortunately we can't define the size
+  with something like  #define BIT_BUF_SIZE (sizeof(bit_buf_type)*8)
+  because not all machines measure sizeof in 8-bit bytes. }
+
+type
+  bitread_perm_state = record   { Bitreading state saved across MCUs }
+    get_buffer : bit_buf_type;  { current bit-extraction buffer }
+    bits_left : int;            { # of unused bits in it }
+  end;
+
+type
+  bitread_working_state = record
+    { Bitreading working state within an MCU }
+    { current data source location }
+    { We need a copy, rather than munging the original, in case of suspension }
+    next_input_byte : JOCTETptr;  { => next byte to read from source }
+    bytes_in_buffer : size_t;     { # of bytes remaining in source buffer }
+    { Bit input buffer --- note these values are kept in register variables,
+      not in this struct, inside the inner loops. }
+
+    get_buffer : bit_buf_type;  { current bit-extraction buffer }
+    bits_left : int;            { # of unused bits in it }
+    { Pointer needed by jpeg_fill_bit_buffer }
+    cinfo : j_decompress_ptr;   { back link to decompress master record }
+  end;
+
+{ Module initialization routine for Huffman entropy decoding. }
+
+{GLOBAL}
+procedure jinit_huff_decoder (cinfo : j_decompress_ptr);
+
+{GLOBAL}
+function jpeg_huff_decode(var state : bitread_working_state;
+                          get_buffer : bit_buf_type; {register}
+                          bits_left : int; {register}
+                          htbl : d_derived_tbl_ptr;
+                          min_bits : int) : int;
+
+{ Compute the derived values for a Huffman table.
+  Note this is also used by jdphuff.c. }
+
+{GLOBAL}
+procedure jpeg_make_d_derived_tbl (cinfo : j_decompress_ptr;
+                                   isDC : boolean;
+                                   tblno : int;
+                 var pdtbl : d_derived_tbl_ptr);
+
+{ Load up the bit buffer to a depth of at least nbits }
+
+function jpeg_fill_bit_buffer (var state : bitread_working_state;
+                                 get_buffer : bit_buf_type;  {register}
+                           bits_left : int; {register}
+                                 nbits : int) : boolean;
+
+implementation
+
+{$IFDEF MACRO}
+
+{ Macros to declare and load/save bitread local variables. }
+{$define BITREAD_STATE_VARS}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+
+{$define BITREAD_LOAD_STATE(cinfop,permstate)}
+  br_state.cinfo := cinfop;
+  br_state.next_input_byte := cinfop^.src^.next_input_byte;
+  br_state.bytes_in_buffer := cinfop^.src^.bytes_in_buffer;
+  get_buffer := permstate.get_buffer;
+  bits_left := permstate.bits_left;
+
+{$define BITREAD_SAVE_STATE(cinfop,permstate) }
+  cinfop^.src^.next_input_byte := br_state.next_input_byte;
+  cinfop^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+  permstate.get_buffer := get_buffer;
+  permstate.bits_left := bits_left;
+
+
+{ These macros provide the in-line portion of bit fetching.
+  Use CHECK_BIT_BUFFER to ensure there are N bits in get_buffer
+  before using GET_BITS, PEEK_BITS, or DROP_BITS.
+  The variables get_buffer and bits_left are assumed to be locals,
+  but the state struct might not be (jpeg_huff_decode needs this).
+  CHECK_BIT_BUFFER(state,n,action);
+    Ensure there are N bits in get_buffer; if suspend, take action.
+       val = GET_BITS(n);
+    Fetch next N bits.
+       val = PEEK_BITS(n);
+    Fetch next N bits without removing them from the buffer.
+  DROP_BITS(n);
+    Discard next N bits.
+  The value N should be a simple variable, not an expression, because it
+  is evaluated multiple times. }
+
+
+{$define CHECK_BIT_BUFFER(state,nbits,action)}
+  if (bits_left < (nbits)) then
+  begin
+    if (not jpeg_fill_bit_buffer(&(state),get_buffer,bits_left,nbits)) then
+    begin
+      action;
+      exit;
+    end;
+    get_buffer := state.get_buffer;
+    bits_left := state.bits_left;
+  end;
+
+
+{$define GET_BITS(nbits)}
+  Dec(bits_left, (nbits));
+  ( (int(get_buffer shr bits_left)) and ( pred(1 shl (nbits)) ) )
+
+{$define PEEK_BITS(nbits)}
+  int(get_buffer shr (bits_left -  (nbits))) and pred(1 shl (nbits))
+
+{$define DROP_BITS(nbits)}
+  Dec(bits_left, nbits);
+
+
+
+
+{ Code for extracting next Huffman-coded symbol from input bit stream.
+  Again, this is time-critical and we make the main paths be macros.
+
+  We use a lookahead table to process codes of up to HUFF_LOOKAHEAD bits
+  without looping.  Usually, more than 95% of the Huffman codes will be 8
+  or fewer bits long.  The few overlength codes are handled with a loop,
+  which need not be inline code.
+
+  Notes about the HUFF_DECODE macro:
+  1. Near the end of the data segment, we may fail to get enough bits
+     for a lookahead.  In that case, we do it the hard way.
+  2. If the lookahead table contains no entry, the next code must be
+     more than HUFF_LOOKAHEAD bits long.
+  3. jpeg_huff_decode returns -1 if forced to suspend. }
+
+
+
+
+macro HUFF_DECODE(s,br_state,htbl,return FALSE,slowlabel);
+label showlabel;
+var
+ nb, look : int; {register}
+begin
+  if (bits_left < HUFF_LOOKAHEAD) then
+  begin
+    if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+    begin
+      decode_mcu := FALSE;
+      exit;
+    end;
+    get_buffer := br_state.get_buffer;
+    bits_left := br_state.bits_left;
+    if (bits_left < HUFF_LOOKAHEAD) then
+    begin
+      nb := 1;
+      goto slowlabel;
+    end;
+  end;
+  {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+  look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                 pred(1 shl HUFF_LOOKAHEAD);
+
+  nb := htbl^.look_nbits[look];
+  if (nb <> 0) then
+  begin
+    {DROP_BITS(nb);}
+    Dec(bits_left, nb);
+
+    s := htbl^.look_sym[look];
+  end
+  else
+  begin
+    nb := HUFF_LOOKAHEAD+1;
+slowlabel:
+    s := jpeg_huff_decode(br_state,get_buffer,bits_left,htbl,nb));
+    if (s < 0) then
+    begin
+      result := FALSE;
+      exit;
+    end;
+    get_buffer := br_state.get_buffer;
+    bits_left := br_state.bits_left;
+  end;
+end;
+
+
+{$ENDIF} {MACRO}
+
+{ Expanded entropy decoder object for Huffman decoding.
+
+  The savable_state subrecord contains fields that change within an MCU,
+  but must not be updated permanently until we complete the MCU. }
+
+type
+  savable_state = record
+    last_dc_val : array[0..MAX_COMPS_IN_SCAN-1] of int; { last DC coef for each component }
+  end;
+
+
+type
+  huff_entropy_ptr = ^huff_entropy_decoder;
+  huff_entropy_decoder = record
+    pub : jpeg_entropy_decoder; { public fields }
+
+    { These fields are loaded into local variables at start of each MCU.
+      In case of suspension, we exit WITHOUT updating them. }
+
+    bitstate : bitread_perm_state;  { Bit buffer at start of MCU }
+    saved : savable_state;    { Other state at start of MCU }
+
+    { These fields are NOT loaded into local working state. }
+    restarts_to_go : uInt;              { MCUs left in this restart interval }
+
+    { Pointers to derived tables (these workspaces have image lifespan) }
+    dc_derived_tbls : array[0..NUM_HUFF_TBLS] of d_derived_tbl_ptr;
+    ac_derived_tbls : array[0..NUM_HUFF_TBLS] of d_derived_tbl_ptr;
+
+    { Precalculated info set up by start_pass for use in decode_mcu: }
+
+    { Pointers to derived tables to be used for each block within an MCU }
+    dc_cur_tbls : array[0..D_MAX_BLOCKS_IN_MCU-1] of d_derived_tbl_ptr;
+    ac_cur_tbls : array[0..D_MAX_BLOCKS_IN_MCU-1] of d_derived_tbl_ptr;
+    { Whether we care about the DC and AC coefficient values for each block }
+    dc_needed : array[0..D_MAX_BLOCKS_IN_MCU-1] of boolean;
+    ac_needed : array[0..D_MAX_BLOCKS_IN_MCU-1] of boolean;
+  end;
+
+
+
+{ Initialize for a Huffman-compressed scan. }
+
+{METHODDEF}
+procedure start_pass_huff_decoder (cinfo : j_decompress_ptr);
+var
+  entropy : huff_entropy_ptr;
+  ci, blkn, dctbl, actbl : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  { Check that the scan parameters Ss, Se, Ah/Al are OK for sequential JPEG.
+    This ought to be an error condition, but we make it a warning because
+    there are some baseline files out there with all zeroes in these bytes. }
+
+  if (cinfo^.Ss <> 0) or (cinfo^.Se <> DCTSIZE2-1) or
+     (cinfo^.Ah <> 0) or (cinfo^.Al <> 0) then
+    WARNMS(j_common_ptr(cinfo), JWRN_NOT_SEQUENTIAL);
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    dctbl := compptr^.dc_tbl_no;
+    actbl := compptr^.ac_tbl_no;
+    { Compute derived values for Huffman tables }
+    { We may do this more than once for a table, but it's not expensive }
+    jpeg_make_d_derived_tbl(cinfo, TRUE, dctbl,
+          entropy^.dc_derived_tbls[dctbl]);
+    jpeg_make_d_derived_tbl(cinfo, FALSE, actbl,
+          entropy^.ac_derived_tbls[actbl]);
+    { Initialize DC predictions to 0 }
+    entropy^.saved.last_dc_val[ci] := 0;
+  end;
+
+  { Precalculate decoding info for each block in an MCU of this scan }
+  for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+  begin
+    ci := cinfo^.MCU_membership[blkn];
+    compptr := cinfo^.cur_comp_info[ci];
+    { Precalculate which table to use for each block }
+    entropy^.dc_cur_tbls[blkn] := entropy^.dc_derived_tbls[compptr^.dc_tbl_no];
+    entropy^.ac_cur_tbls[blkn] := entropy^.ac_derived_tbls[compptr^.ac_tbl_no];
+    { Decide whether we really care about the coefficient values }
+    if (compptr^.component_needed) then
+    begin
+      entropy^.dc_needed[blkn] := TRUE;
+      { we don't need the ACs if producing a 1/8th-size image }
+      entropy^.ac_needed[blkn] := (compptr^.DCT_scaled_size > 1);
+    end
+    else
+    begin
+      entropy^.ac_needed[blkn] := FALSE;
+      entropy^.dc_needed[blkn] := FALSE;
+    end;
+  end;
+
+  { Initialize bitread state variables }
+  entropy^.bitstate.bits_left := 0;
+  entropy^.bitstate.get_buffer := 0; { unnecessary, but keeps Purify quiet }
+  entropy^.pub.insufficient_data := FALSE;
+
+  { Initialize restart counter }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+end;
+
+
+{ Compute the derived values for a Huffman table.
+  This routine also performs some validation checks on the table.
+
+  Note this is also used by jdphuff.c. }
+
+{GLOBAL}
+procedure jpeg_make_d_derived_tbl (cinfo : j_decompress_ptr;
+                                   isDC : boolean;
+                                   tblno : int;
+                             var pdtbl : d_derived_tbl_ptr);
+var
+  htbl : JHUFF_TBL_PTR;
+  dtbl : d_derived_tbl_ptr;
+  p, i, l, si, numsymbols : int;
+  lookbits, ctr : int;
+  huffsize : array[0..257-1] of byte;
+  huffcode : array[0..257-1] of uInt;
+  code : uInt;
+var
+  sym : int;
+begin
+  { Note that huffsize[] and huffcode[] are filled in code-length order,
+    paralleling the order of the symbols themselves in htbl^.huffval[]. }
+
+  { Find the input Huffman table }
+  if (tblno < 0) or (tblno >= NUM_HUFF_TBLS) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, tblno);
+  if isDC then
+    htbl := cinfo^.dc_huff_tbl_ptrs[tblno]
+  else
+    htbl := cinfo^.ac_huff_tbl_ptrs[tblno];
+  if (htbl = NIL) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_NO_HUFF_TABLE, tblno);
+
+  { Allocate a workspace if we haven't already done so. }
+  if (pdtbl = NIL) then
+    pdtbl := d_derived_tbl_ptr(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(d_derived_tbl)) );
+  dtbl := pdtbl;
+  dtbl^.pub := htbl;    { fill in back link }
+
+  { Figure C.1: make table of Huffman code length for each symbol }
+
+  p := 0;
+  for l := 1 to 16 do
+  begin
+    i := int(htbl^.bits[l]);
+    if (i < 0) or (p + i > 256) then  { protect against table overrun }
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+    while (i > 0) do
+    begin
+      huffsize[p] := byte(l);
+      Inc(p);
+      Dec(i);
+    end;
+  end;
+  huffsize[p] := 0;
+  numsymbols := p;
+
+  { Figure C.2: generate the codes themselves }
+  { We also validate that the counts represent a legal Huffman code tree. }
+
+  code := 0;
+  si := huffsize[0];
+  p := 0;
+  while (huffsize[p] <> 0) do
+  begin
+    while (( int (huffsize[p]) ) = si) do
+    begin
+      huffcode[p] := code;
+      Inc(p);
+      Inc(code);
+    end;
+    { code is now 1 more than the last code used for codelength si; but
+      it must still fit in si bits, since no code is allowed to be all ones. }
+
+    if (INT32(code) >= (INT32(1) shl si)) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+
+    code := code shl 1;
+    Inc(si);
+  end;
+
+  { Figure F.15: generate decoding tables for bit-sequential decoding }
+
+  p := 0;
+  for l := 1 to 16 do
+  begin
+    if (htbl^.bits[l] <> 0) then
+    begin
+      { valoffset[l] = huffval[] index of 1st symbol of code length l,
+        minus the minimum code of length l }
+
+      dtbl^.valoffset[l] := INT32(p) - INT32(huffcode[p]);
+      Inc(p, htbl^.bits[l]);
+      dtbl^.maxcode[l] := huffcode[p-1]; { maximum code of length l }
+    end
+    else
+    begin
+      dtbl^.maxcode[l] := -1; { -1 if no codes of this length }
+    end;
+  end;
+  dtbl^.maxcode[17] := long($FFFFF); { ensures jpeg_huff_decode terminates }
+
+  { Compute lookahead tables to speed up decoding.
+    First we set all the table entries to 0, indicating "too long";
+    then we iterate through the Huffman codes that are short enough and
+    fill in all the entries that correspond to bit sequences starting
+    with that code. }
+
+  MEMZERO(@dtbl^.look_nbits, SIZEOF(dtbl^.look_nbits));
+
+  p := 0;
+  for l := 1 to HUFF_LOOKAHEAD do
+  begin
+    for i := 1 to int (htbl^.bits[l]) do
+    begin
+      { l := current code's length, p := its index in huffcode[] & huffval[]. }
+      { Generate left-justified code followed by all possible bit sequences }
+      lookbits := huffcode[p] shl (HUFF_LOOKAHEAD-l);
+      for ctr := pred(1 shl (HUFF_LOOKAHEAD-l)) downto 0 do
+      begin
+  dtbl^.look_nbits[lookbits] := l;
+  dtbl^.look_sym[lookbits] := htbl^.huffval[p];
+  Inc(lookbits);
+      end;
+      Inc(p);
+    end;
+  end;
+
+  { Validate symbols as being reasonable.
+    For AC tables, we make no check, but accept all byte values 0..255.
+    For DC tables, we require the symbols to be in range 0..15.
+    (Tighter bounds could be applied depending on the data depth and mode,
+    but this is sufficient to ensure safe decoding.) }
+
+  if (isDC) then
+  begin
+    for i := 0 to pred(numsymbols) do
+    begin
+      sym := htbl^.huffval[i];
+      if (sym < 0) or (sym > 15) then
+  ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+    end;
+  end;
+end;
+
+
+{ Out-of-line code for bit fetching (shared with jdphuff.c).
+  See jdhuff.h for info about usage.
+  Note: current values of get_buffer and bits_left are passed as parameters,
+  but are returned in the corresponding fields of the state struct.
+
+  On most machines MIN_GET_BITS should be 25 to allow the full 32-bit width
+  of get_buffer to be used.  (On machines with wider words, an even larger
+  buffer could be used.)  However, on some machines 32-bit shifts are
+  quite slow and take time proportional to the number of places shifted.
+  (This is true with most PC compilers, for instance.)  In this case it may
+  be a win to set MIN_GET_BITS to the minimum value of 15.  This reduces the
+  average shift distance at the cost of more calls to jpeg_fill_bit_buffer. }
+
+{$ifdef SLOW_SHIFT_32}
+const
+  MIN_GET_BITS = 15;  { minimum allowable value }
+{$else}
+const
+  MIN_GET_BITS = (BIT_BUF_SIZE-7);
+{$endif}
+
+
+{GLOBAL}
+function jpeg_fill_bit_buffer (var state : bitread_working_state;
+                  {register} get_buffer : bit_buf_type;
+                              {register} bits_left : int;
+                  nbits  : int) : boolean;
+label
+  no_more_bytes;
+{ Load up the bit buffer to a depth of at least nbits }
+var
+  { Copy heavily used state fields into locals (hopefully registers) }
+  {register} next_input_byte : {const} JOCTETptr;
+  {register} bytes_in_buffer : size_t;
+var
+  {register} c : int;
+var
+  cinfo : j_decompress_ptr;
+begin
+  next_input_byte := state.next_input_byte;
+  bytes_in_buffer := state.bytes_in_buffer;
+  cinfo := state.cinfo;
+
+  { Attempt to load at least MIN_GET_BITS bits into get_buffer. }
+  { (It is assumed that no request will be for more than that many bits.) }
+  { We fail to do so only if we hit a marker or are forced to suspend. }
+
+  if (cinfo^.unread_marker = 0) then  { cannot advance past a marker }
+  begin
+    while (bits_left < MIN_GET_BITS) do
+    begin
+      { Attempt to read a byte }
+      if (bytes_in_buffer = 0) then
+      begin
+  if not cinfo^.src^.fill_input_buffer(cinfo) then
+        begin
+    jpeg_fill_bit_buffer := FALSE;
+          exit;
+        end;
+  next_input_byte := cinfo^.src^.next_input_byte;
+  bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+      end;
+      Dec(bytes_in_buffer);
+      c := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+
+
+      { If it's $FF, check and discard stuffed zero byte }
+      if (c = $FF) then
+      begin
+        { Loop here to discard any padding FF's on terminating marker,
+    so that we can save a valid unread_marker value.  NOTE: we will
+    accept multiple FF's followed by a 0 as meaning a single FF data
+    byte.  This data pattern is not valid according to the standard. }
+
+        repeat
+    if (bytes_in_buffer = 0) then
+          begin
+      if (not state.cinfo^.src^.fill_input_buffer (state.cinfo)) then
+            begin
+        jpeg_fill_bit_buffer := FALSE;
+              exit;
+            end;
+      next_input_byte := state.cinfo^.src^.next_input_byte;
+      bytes_in_buffer := state.cinfo^.src^.bytes_in_buffer;
+    end;
+    Dec(bytes_in_buffer);
+    c := GETJOCTET(next_input_byte^);
+          Inc(next_input_byte);
+        Until (c <> $FF);
+
+        if (c = 0) then
+        begin
+    { Found FF/00, which represents an FF data byte }
+    c := $FF;
+        end
+        else
+        begin
+    { Oops, it's actually a marker indicating end of compressed data.
+            Save the marker code for later use.
+      Fine point: it might appear that we should save the marker into
+      bitread working state, not straight into permanent state.  But
+      once we have hit a marker, we cannot need to suspend within the
+      current MCU, because we will read no more bytes from the data
+      source.  So it is OK to update permanent state right away. }
+
+    cinfo^.unread_marker := c;
+          { See if we need to insert some fake zero bits. }
+    goto no_more_bytes;
+  end;
+      end;
+
+      { OK, load c into get_buffer }
+      get_buffer := (get_buffer shl 8) or c;
+      Inc(bits_left, 8);
+    end { end while }
+  end
+  else
+  begin
+  no_more_bytes:
+    { We get here if we've read the marker that terminates the compressed
+      data segment.  There should be enough bits in the buffer register
+      to satisfy the request; if so, no problem. }
+
+    if (nbits > bits_left) then
+    begin
+      { Uh-oh.  Report corrupted data to user and stuff zeroes into
+        the data stream, so that we can produce some kind of image.
+        We use a nonvolatile flag to ensure that only one warning message
+        appears per data segment. }
+
+      if not cinfo^.entropy^.insufficient_data then
+      begin
+  WARNMS(j_common_ptr(cinfo), JWRN_HIT_MARKER);
+  cinfo^.entropy^.insufficient_data := TRUE;
+      end;
+      { Fill the buffer with zero bits }
+      get_buffer := get_buffer shl (MIN_GET_BITS - bits_left);
+      bits_left := MIN_GET_BITS;
+    end;
+  end;
+
+  { Unload the local registers }
+  state.next_input_byte := next_input_byte;
+  state.bytes_in_buffer := bytes_in_buffer;
+  state.get_buffer := get_buffer;
+  state.bits_left := bits_left;
+
+  jpeg_fill_bit_buffer := TRUE;
+end;
+
+
+{ Out-of-line code for Huffman code decoding.
+  See jdhuff.h for info about usage. }
+
+{GLOBAL}
+function jpeg_huff_decode (var state : bitread_working_state;
+              {register} get_buffer : bit_buf_type;
+                          {register} bits_left : int;
+              htbl : d_derived_tbl_ptr;
+                          min_bits : int) : int;
+var
+  {register} l : int;
+  {register} code : INT32;
+begin
+  l := min_bits;
+
+  { HUFF_DECODE has determined that the code is at least min_bits }
+  { bits long, so fetch that many bits in one swoop. }
+
+  {CHECK_BIT_BUFFER(state, l, return -1);}
+  if (bits_left < l) then
+  begin
+    if (not jpeg_fill_bit_buffer(state, get_buffer, bits_left, l)) then
+    begin
+      jpeg_huff_decode := -1;
+      exit;
+    end;
+    get_buffer := state.get_buffer;
+    bits_left := state.bits_left;
+  end;
+
+  {code := GET_BITS(l);}
+  Dec(bits_left, l);
+  code := (int(get_buffer shr bits_left)) and ( pred(1 shl l) );
+
+  { Collect the rest of the Huffman code one bit at a time. }
+  { This is per Figure F.16 in the JPEG spec. }
+
+  while (code > htbl^.maxcode[l]) do
+  begin
+    code := code shl 1;
+    {CHECK_BIT_BUFFER(state, 1, return -1);}
+    if (bits_left < 1) then
+    begin
+      if (not jpeg_fill_bit_buffer(state, get_buffer, bits_left, 1)) then
+      begin
+        jpeg_huff_decode := -1;
+        exit;
+      end;
+      get_buffer := state.get_buffer;
+      bits_left := state.bits_left;
+    end;
+
+    {code := code or GET_BITS(1);}
+    Dec(bits_left);
+    code := code or ( (int(get_buffer shr bits_left)) and pred(1 shl 1) );
+
+    Inc(l);
+  end;
+
+  { Unload the local registers }
+  state.get_buffer := get_buffer;
+  state.bits_left := bits_left;
+
+  { With garbage input we may reach the sentinel value l := 17. }
+
+  if (l > 16) then
+  begin
+    WARNMS(j_common_ptr(state.cinfo), JWRN_HUFF_BAD_CODE);
+    jpeg_huff_decode := 0;  { fake a zero as the safest result }
+    exit;
+  end;
+
+  jpeg_huff_decode := htbl^.pub^.huffval[ int (code + htbl^.valoffset[l]) ];
+end;
+
+
+{ Figure F.12: extend sign bit.
+  On some machines, a shift and add will be faster than a table lookup. }
+
+{$ifdef AVOID_TABLES}
+
+#define HUFF_EXTEND(x,s)  ((x) < (1<<((s)-1)) ? (x) + (((-1)<<(s)) + 1) : (x))
+
+{$else}
+
+{$define HUFF_EXTEND(x,s)
+  if (x < extend_test[s]) then
+    := x + extend_offset[s]
+  else
+   x;}
+
+const
+  extend_test : array[0..16-1] of int =   { entry n is 2**(n-1) }
+  ($0000, $0001, $0002, $0004, $0008, $0010, $0020, $0040,
+   $0080, $0100, $0200, $0400, $0800, $1000, $2000, $4000);
+
+const
+  extend_offset : array[0..16-1] of int = { entry n is (-1 << n) + 1 }
+(0, ((-1) shl 1) + 1, ((-1) shl 2) + 1, ((-1) shl 3) + 1, ((-1) shl 4) + 1,
+    ((-1) shl 5) + 1, ((-1) shl 6) + 1, ((-1) shl 7) + 1, ((-1) shl 8) + 1,
+    ((-1) shl 9) + 1, ((-1) shl 10) + 1, ((-1) shl 11) + 1,((-1) shl 12) + 1,
+   ((-1) shl 13) + 1, ((-1) shl 14) + 1, ((-1) shl 15) + 1);
+
+{$endif} { AVOID_TABLES }
+
+
+{ Check for a restart marker & resynchronize decoder.
+  Returns FALSE if must suspend. }
+
+{LOCAL}
+function process_restart (cinfo : j_decompress_ptr) : boolean;
+var
+  entropy : huff_entropy_ptr;
+  ci : int;
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  { Throw away any unused bits remaining in bit buffer; }
+  { include any full bytes in next_marker's count of discarded bytes }
+  Inc(cinfo^.marker^.discarded_bytes, entropy^.bitstate.bits_left div 8);
+  entropy^.bitstate.bits_left := 0;
+
+  { Advance past the RSTn marker }
+  if (not cinfo^.marker^.read_restart_marker (cinfo)) then
+  begin
+    process_restart := FALSE;
+    exit;
+  end;
+
+  { Re-initialize DC predictions to 0 }
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+    entropy^.saved.last_dc_val[ci] := 0;
+
+  { Reset restart counter }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+
+  { Reset out-of-data flag, unless read_restart_marker left us smack up
+    against a marker.  In that case we will end up treating the next data
+    segment as empty, and we can avoid producing bogus output pixels by
+    leaving the flag set. }
+
+  if (cinfo^.unread_marker = 0) then
+    entropy^.pub.insufficient_data := FALSE;
+
+  process_restart := TRUE;
+end;
+
+
+{ Decode and return one MCU's worth of Huffman-compressed coefficients.
+  The coefficients are reordered from zigzag order into natural array order,
+  but are not dequantized.
+
+  The i'th block of the MCU is stored into the block pointed to by
+  MCU_data[i].  WE ASSUME THIS AREA HAS BEEN ZEROED BY THE CALLER.
+  (Wholesale zeroing is usually a little faster than retail...)
+
+  Returns FALSE if data source requested suspension.  In that case no
+  changes have been made to permanent state.  (Exception: some output
+  coefficients may already have been assigned.  This is harmless for
+  this module, since we'll just re-assign them on the next call.) }
+
+{METHODDEF}
+function decode_mcu (cinfo : j_decompress_ptr;
+                     var MCU_data : array of JBLOCKROW) : boolean;
+label
+  label1, label2, label3;
+var
+  entropy : huff_entropy_ptr;
+  {register} s, k, r : int;
+  blkn, ci : int;
+  block : JBLOCK_PTR;
+  {BITREAD_STATE_VARS}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+
+  state : savable_state;
+  dctbl : d_derived_tbl_ptr;
+  actbl : d_derived_tbl_ptr;
+var
+  nb, look : int; {register}
+begin
+  entropy := huff_entropy_ptr (cinfo^.entropy);
+
+  { Process restart marker if needed; may have to suspend }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if (not process_restart(cinfo)) then
+      begin
+        decode_mcu := FALSE;
+        exit;
+      end;
+  end;
+
+  { If we've run out of data, just leave the MCU set to zeroes.
+    This way, we return uniform gray for the remainder of the segment. }
+
+  if not entropy^.pub.insufficient_data then
+  begin
+
+    { Load up working state }
+    {BITREAD_LOAD_STATE(cinfo,entropy^.bitstate);}
+    br_state.cinfo := cinfo;
+    br_state.next_input_byte := cinfo^.src^.next_input_byte;
+    br_state.bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+    get_buffer := entropy^.bitstate.get_buffer;
+    bits_left := entropy^.bitstate.bits_left;
+
+    {ASSIGN_STATE(state, entropy^.saved);}
+    state := entropy^.saved;
+
+    { Outer loop handles each block in the MCU }
+
+    for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+    begin
+      block := JBLOCK_PTR(MCU_data[blkn]);
+      dctbl := entropy^.dc_cur_tbls[blkn];
+      actbl := entropy^.ac_cur_tbls[blkn];
+
+      { Decode a single block's worth of coefficients }
+
+      { Section F.2.2.1: decode the DC coefficient difference }
+      {HUFF_DECODE(s, br_state, dctbl, return FALSE, label1);}
+      if (bits_left < HUFF_LOOKAHEAD) then
+      begin
+        if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+        begin
+          decode_mcu := False;
+          exit;
+        end;
+        get_buffer := br_state.get_buffer;
+        bits_left := br_state.bits_left;
+        if (bits_left < HUFF_LOOKAHEAD) then
+        begin
+          nb := 1;
+          goto label1;
+        end;
+      end;
+      {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+      look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                   pred(1 shl HUFF_LOOKAHEAD);
+
+      nb := dctbl^.look_nbits[look];
+      if (nb <> 0) then
+      begin
+        {DROP_BITS(nb);}
+        Dec(bits_left, nb);
+
+        s := dctbl^.look_sym[look];
+      end
+      else
+      begin
+        nb := HUFF_LOOKAHEAD+1;
+    label1:
+        s := jpeg_huff_decode(br_state,get_buffer,bits_left,dctbl,nb);
+        if (s < 0) then
+        begin
+          decode_mcu := FALSE;
+          exit;
+        end;
+        get_buffer := br_state.get_buffer;
+        bits_left := br_state.bits_left;
+      end;
+
+      if (s <> 0) then
+      begin
+        {CHECK_BIT_BUFFER(br_state, s, return FALSE);}
+        if (bits_left < s) then
+        begin
+          if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,s)) then
+          begin
+            decode_mcu := FALSE;
+            exit;
+          end;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+        end;
+
+        {r := GET_BITS(s);}
+        Dec(bits_left, s);
+        r := ( int(get_buffer shr bits_left)) and ( pred(1 shl s) );
+
+        {s := HUFF_EXTEND(r, s);}
+        if (r < extend_test[s]) then
+          s := r + extend_offset[s]
+        else
+          s := r;
+      end;
+
+      if (entropy^.dc_needed[blkn]) then
+      begin
+  { Convert DC difference to actual value, update last_dc_val }
+        ci := cinfo^.MCU_membership[blkn];
+  Inc(s, state.last_dc_val[ci]);
+        state.last_dc_val[ci] := s;
+        { Output the DC coefficient (assumes jpeg_natural_order[0] := 0) }
+        block^[0] := JCOEF (s);
+      end;
+
+      if (entropy^.ac_needed[blkn]) then
+      begin
+
+  { Section F.2.2.2: decode the AC coefficients }
+  { Since zeroes are skipped, output area must be cleared beforehand }
+  k := 1;
+        while (k < DCTSIZE2) do         { Nomssi: k is incr. in the loop }
+        begin
+          {HUFF_DECODE(s, br_state, actbl, return FALSE, label2);}
+          if (bits_left < HUFF_LOOKAHEAD) then
+          begin
+            if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+            begin
+              decode_mcu := False;
+              exit;
+            end;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+            if (bits_left < HUFF_LOOKAHEAD) then
+            begin
+              nb := 1;
+              goto label2;
+            end;
+          end;
+          {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+          look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                       pred(1 shl HUFF_LOOKAHEAD);
+
+          nb := actbl^.look_nbits[look];
+          if (nb <> 0) then
+          begin
+            {DROP_BITS(nb);}
+            Dec(bits_left, nb);
+
+            s := actbl^.look_sym[look];
+          end
+          else
+          begin
+            nb := HUFF_LOOKAHEAD+1;
+        label2:
+            s := jpeg_huff_decode(br_state,get_buffer,bits_left,actbl,nb);
+            if (s < 0) then
+            begin
+              decode_mcu := FALSE;
+              exit;
+            end;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+          end;
+
+    r := s shr 4;
+    s := s and 15;
+
+          if (s <> 0) then
+          begin
+            Inc(k, r);
+            {CHECK_BIT_BUFFER(br_state, s, return FALSE);}
+            if (bits_left < s) then
+            begin
+              if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,s)) then
+              begin
+                decode_mcu := FALSE;
+                exit;
+              end;
+              get_buffer := br_state.get_buffer;
+              bits_left := br_state.bits_left;
+            end;
+
+            {r := GET_BITS(s);}
+            Dec(bits_left, s);
+            r := (int(get_buffer shr bits_left)) and ( pred(1 shl s) );
+
+            {s := HUFF_EXTEND(r, s);}
+            if (r < extend_test[s]) then
+              s := r + extend_offset[s]
+            else
+              s := r;
+            { Output coefficient in natural (dezigzagged) order.
+              Note: the extra entries in jpeg_natural_order[] will save us
+              if k >= DCTSIZE2, which could happen if the data is corrupted. }
+
+            block^[jpeg_natural_order[k]] := JCOEF (s);
+          end
+          else
+          begin
+            if (r <> 15) then
+              break;
+            Inc(k, 15);
+          end;
+          Inc(k);
+        end;
+      end
+      else
+      begin
+
+        { Section F.2.2.2: decode the AC coefficients }
+        { In this path we just discard the values }
+        k := 1;
+        while (k < DCTSIZE2) do
+        begin
+    {HUFF_DECODE(s, br_state, actbl, return FALSE, label3);}
+          if (bits_left < HUFF_LOOKAHEAD) then
+          begin
+            if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+            begin
+              decode_mcu := False;
+              exit;
+            end;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+            if (bits_left < HUFF_LOOKAHEAD) then
+            begin
+              nb := 1;
+              goto label3;
+            end;
+          end;
+          {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+          look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                       pred(1 shl HUFF_LOOKAHEAD);
+
+          nb := actbl^.look_nbits[look];
+          if (nb <> 0) then
+          begin
+            {DROP_BITS(nb);}
+      Dec(bits_left, nb);
+
+            s := actbl^.look_sym[look];
+          end
+          else
+          begin
+            nb := HUFF_LOOKAHEAD+1;
+        label3:
+            s := jpeg_huff_decode(br_state,get_buffer,bits_left,actbl,nb);
+            if (s < 0) then
+            begin
+              decode_mcu := FALSE;
+              exit;
+            end;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+          end;
+
+    r := s shr 4;
+    s := s and 15;
+
+    if (s <> 0) then
+          begin
+      Inc(k, r);
+      {CHECK_BIT_BUFFER(br_state, s, return FALSE);}
+            if (bits_left < s) then
+            begin
+              if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,s)) then
+              begin
+                decode_mcu := FALSE;
+                exit;
+              end;
+              get_buffer := br_state.get_buffer;
+              bits_left := br_state.bits_left;
+            end;
+
+      {DROP_BITS(s);}
+            Dec(bits_left, s);
+    end
+          else
+          begin
+      if (r <> 15) then
+        break;
+      Inc(k, 15);
+    end;
+          Inc(k);
+        end;
+
+      end;
+    end;
+
+    { Completed MCU, so update state }
+    {BITREAD_SAVE_STATE(cinfo,entropy^.bitstate);}
+    cinfo^.src^.next_input_byte := br_state.next_input_byte;
+    cinfo^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+    entropy^.bitstate.get_buffer := get_buffer;
+    entropy^.bitstate.bits_left := bits_left;
+
+    {ASSIGN_STATE(entropy^.saved, state);}
+    entropy^.saved := state;
+
+  end;
+
+  { Account for restart interval (no-op if not using restarts) }
+  Dec(entropy^.restarts_to_go);
+
+  decode_mcu := TRUE;
+end;
+
+
+{ Module initialization routine for Huffman entropy decoding. }
+
+{GLOBAL}
+procedure jinit_huff_decoder (cinfo : j_decompress_ptr);
+var
+  entropy : huff_entropy_ptr;
+  i : int;
+begin
+  entropy := huff_entropy_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(huff_entropy_decoder)) );
+  cinfo^.entropy := jpeg_entropy_decoder_ptr (entropy);
+  entropy^.pub.start_pass := start_pass_huff_decoder;
+  entropy^.pub.decode_mcu := decode_mcu;
+
+  { Mark tables unallocated }
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    entropy^.dc_derived_tbls[i] := NIL;
+    entropy^.ac_derived_tbls[i] := NIL;
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdinput.pas b/src/lib/vampimg/JpegLib/imjdinput.pas

new file mode 100644 (file)

index 0000000..98347d2
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdinput.pas
@@ -0,0 +1,416 @@
+unit imjdinput;
+
+{ Original: jdinput.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
+
+{ This file is part of the Independent JPEG Group's software.
+  For conditions of distribution and use, see the accompanying README file.
+
+  This file contains input control logic for the JPEG decompressor.
+  These routines are concerned with controlling the decompressor's input
+  processing (marker reading and coefficient decoding).  The actual input
+  reading is done in jdmarker.c, jdhuff.c, and jdphuff.c. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjpeglib,
+  imjdeferr,
+  imjerror,
+  imjinclude, imjutils;
+
+{ Initialize the input controller module.
+  This is called only once, when the decompression object is created. }
+
+{GLOBAL}
+procedure jinit_input_controller (cinfo : j_decompress_ptr);
+
+implementation
+
+{ Private state }
+
+type
+  my_inputctl_ptr = ^my_input_controller;
+  my_input_controller = record
+    pub : jpeg_input_controller; { public fields }
+
+    inheaders : boolean;    { TRUE until first SOS is reached }
+  end; {my_input_controller;}
+
+
+
+{ Forward declarations }
+{METHODDEF}
+function consume_markers (cinfo : j_decompress_ptr) : int; forward;
+
+
+{ Routines to calculate various quantities related to the size of the image. }
+
+{LOCAL}
+procedure initial_setup (cinfo : j_decompress_ptr);
+{ Called once, when first SOS marker is reached }
+var
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  { Make sure image isn't bigger than I can handle }
+  if (long(cinfo^.image_height) > long (JPEG_MAX_DIMENSION)) or
+     (long(cinfo^.image_width) > long(JPEG_MAX_DIMENSION)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_IMAGE_TOO_BIG, uInt(JPEG_MAX_DIMENSION));
+
+  { For now, precision must match compiled-in value... }
+  if (cinfo^.data_precision <> BITS_IN_JSAMPLE) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_PRECISION, cinfo^.data_precision);
+
+  { Check that number of components won't exceed internal array sizes }
+  if (cinfo^.num_components > MAX_COMPONENTS) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT, cinfo^.num_components,
+       MAX_COMPONENTS);
+
+  { Compute maximum sampling factors; check factor validity }
+  cinfo^.max_h_samp_factor := 1;
+  cinfo^.max_v_samp_factor := 1;
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    if (compptr^.h_samp_factor<=0) or (compptr^.h_samp_factor>MAX_SAMP_FACTOR) or
+       (compptr^.v_samp_factor<=0) or (compptr^.v_samp_factor>MAX_SAMP_FACTOR) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_SAMPLING);
+    {cinfo^.max_h_samp_factor := MAX(cinfo^.max_h_samp_factor,
+           compptr^.h_samp_factor);
+    cinfo^.max_v_samp_factor := MAX(cinfo^.max_v_samp_factor,
+           compptr^.v_samp_factor);}
+    if cinfo^.max_h_samp_factor < compptr^.h_samp_factor then
+      cinfo^.max_h_samp_factor := compptr^.h_samp_factor;
+    if cinfo^.max_v_samp_factor < compptr^.v_samp_factor then
+      cinfo^.max_v_samp_factor := compptr^.v_samp_factor;
+    Inc(compptr);
+  end;
+
+  { We initialize DCT_scaled_size and min_DCT_scaled_size to DCTSIZE.
+    In the full decompressor, this will be overridden by jdmaster.c;
+    but in the transcoder, jdmaster.c is not used, so we must do it here. }
+
+  cinfo^.min_DCT_scaled_size := DCTSIZE;
+
+  { Compute dimensions of components }
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    compptr^.DCT_scaled_size := DCTSIZE;
+    { Size in DCT blocks }
+    compptr^.width_in_blocks := JDIMENSION(
+      jdiv_round_up( long(cinfo^.image_width) * long(compptr^.h_samp_factor),
+         long(cinfo^.max_h_samp_factor * DCTSIZE)) );
+    compptr^.height_in_blocks := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height) * long(compptr^.v_samp_factor),
+        long (cinfo^.max_v_samp_factor * DCTSIZE)) );
+    { downsampled_width and downsampled_height will also be overridden by
+      jdmaster.c if we are doing full decompression.  The transcoder library
+      doesn't use these values, but the calling application might. }
+
+    { Size in samples }
+    compptr^.downsampled_width := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_width) * long(compptr^.h_samp_factor),
+        long (cinfo^.max_h_samp_factor)) );
+    compptr^.downsampled_height := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height) * long(compptr^.v_samp_factor),
+        long (cinfo^.max_v_samp_factor)) );
+    { Mark component needed, until color conversion says otherwise }
+    compptr^.component_needed := TRUE;
+    { Mark no quantization table yet saved for component }
+    compptr^.quant_table := NIL;
+    Inc(compptr);
+  end;
+
+  { Compute number of fully interleaved MCU rows. }
+  cinfo^.total_iMCU_rows := JDIMENSION(
+    jdiv_round_up(long(cinfo^.image_height),
+      long(cinfo^.max_v_samp_factor*DCTSIZE)) );
+
+  { Decide whether file contains multiple scans }
+  if (cinfo^.comps_in_scan < cinfo^.num_components) or
+     (cinfo^.progressive_mode) then
+    cinfo^.inputctl^.has_multiple_scans := TRUE
+  else
+    cinfo^.inputctl^.has_multiple_scans := FALSE;
+end;
+
+
+{LOCAL}
+procedure per_scan_setup (cinfo : j_decompress_ptr);
+{ Do computations that are needed before processing a JPEG scan }
+{ cinfo^.comps_in_scan and cinfo^.cur_comp_info[] were set from SOS marker }
+var
+  ci, mcublks, tmp : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  if (cinfo^.comps_in_scan = 1) then
+  begin
+    { Noninterleaved (single-component) scan }
+    compptr := cinfo^.cur_comp_info[0];
+
+    { Overall image size in MCUs }
+    cinfo^.MCUs_per_row := compptr^.width_in_blocks;
+    cinfo^.MCU_rows_in_scan := compptr^.height_in_blocks;
+
+    { For noninterleaved scan, always one block per MCU }
+    compptr^.MCU_width := 1;
+    compptr^.MCU_height := 1;
+    compptr^.MCU_blocks := 1;
+    compptr^.MCU_sample_width := compptr^.DCT_scaled_size;
+    compptr^.last_col_width := 1;
+    { For noninterleaved scans, it is convenient to define last_row_height
+      as the number of block rows present in the last iMCU row. }
+
+    tmp := int (LongInt(compptr^.height_in_blocks) mod compptr^.v_samp_factor);
+    if (tmp = 0) then
+      tmp := compptr^.v_samp_factor;
+    compptr^.last_row_height := tmp;
+
+    { Prepare array describing MCU composition }
+    cinfo^.blocks_in_MCU := 1;
+    cinfo^.MCU_membership[0] := 0;
+
+  end
+  else
+  begin
+
+    { Interleaved (multi-component) scan }
+    if (cinfo^.comps_in_scan <= 0) or (cinfo^.comps_in_scan > MAX_COMPS_IN_SCAN) then
+      ERREXIT2(j_common_ptr(cinfo), JERR_COMPONENT_COUNT, cinfo^.comps_in_scan,
+         MAX_COMPS_IN_SCAN);
+
+    { Overall image size in MCUs }
+    cinfo^.MCUs_per_row := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_width),
+        long (cinfo^.max_h_samp_factor*DCTSIZE)) );
+    cinfo^.MCU_rows_in_scan := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height),
+        long (cinfo^.max_v_samp_factor*DCTSIZE)) );
+
+    cinfo^.blocks_in_MCU := 0;
+
+    for ci := 0 to pred(cinfo^.comps_in_scan) do
+    begin
+      compptr := cinfo^.cur_comp_info[ci];
+      { Sampling factors give # of blocks of component in each MCU }
+      compptr^.MCU_width := compptr^.h_samp_factor;
+      compptr^.MCU_height := compptr^.v_samp_factor;
+      compptr^.MCU_blocks := compptr^.MCU_width * compptr^.MCU_height;
+      compptr^.MCU_sample_width := compptr^.MCU_width * compptr^.DCT_scaled_size;
+      { Figure number of non-dummy blocks in last MCU column & row }
+      tmp := int (LongInt(compptr^.width_in_blocks) mod compptr^.MCU_width);
+      if (tmp = 0) then
+        tmp := compptr^.MCU_width;
+      compptr^.last_col_width := tmp;
+      tmp := int (LongInt(compptr^.height_in_blocks) mod compptr^.MCU_height);
+      if (tmp = 0) then
+        tmp := compptr^.MCU_height;
+      compptr^.last_row_height := tmp;
+      { Prepare array describing MCU composition }
+      mcublks := compptr^.MCU_blocks;
+      if (LongInt(cinfo^.blocks_in_MCU) + mcublks > D_MAX_BLOCKS_IN_MCU) then
+  ERREXIT(j_common_ptr(cinfo), JERR_BAD_MCU_SIZE);
+      while (mcublks > 0) do
+      begin
+        Dec(mcublks);
+  cinfo^.MCU_membership[cinfo^.blocks_in_MCU] := ci;
+        Inc(cinfo^.blocks_in_MCU);
+      end;
+    end;
+
+  end;
+end;
+
+
+{ Save away a copy of the Q-table referenced by each component present
+  in the current scan, unless already saved during a prior scan.
+
+  In a multiple-scan JPEG file, the encoder could assign different components
+  the same Q-table slot number, but change table definitions between scans
+  so that each component uses a different Q-table.  (The IJG encoder is not
+  currently capable of doing this, but other encoders might.)  Since we want
+  to be able to dequantize all the components at the end of the file, this
+  means that we have to save away the table actually used for each component.
+  We do this by copying the table at the start of the first scan containing
+  the component.
+  The JPEG spec prohibits the encoder from changing the contents of a Q-table
+  slot between scans of a component using that slot.  If the encoder does so
+  anyway, this decoder will simply use the Q-table values that were current
+  at the start of the first scan for the component.
+
+  The decompressor output side looks only at the saved quant tables,
+  not at the current Q-table slots. }
+
+{LOCAL}
+procedure latch_quant_tables (cinfo : j_decompress_ptr);
+var
+  ci, qtblno : int;
+  compptr : jpeg_component_info_ptr;
+  qtbl : JQUANT_TBL_PTR;
+begin
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    { No work if we already saved Q-table for this component }
+    if (compptr^.quant_table <> NIL) then
+      continue;
+    { Make sure specified quantization table is present }
+    qtblno := compptr^.quant_tbl_no;
+    if (qtblno < 0) or (qtblno >= NUM_QUANT_TBLS) or
+       (cinfo^.quant_tbl_ptrs[qtblno] = NIL) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_NO_QUANT_TABLE, qtblno);
+    { OK, save away the quantization table }
+    qtbl := JQUANT_TBL_PTR(
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(JQUANT_TBL)) );
+    MEMCOPY(qtbl, cinfo^.quant_tbl_ptrs[qtblno], SIZEOF(JQUANT_TBL));
+    compptr^.quant_table := qtbl;
+  end;
+end;
+
+
+{ Initialize the input modules to read a scan of compressed data.
+  The first call to this is done by jdmaster.c after initializing
+  the entire decompressor (during jpeg_start_decompress).
+  Subsequent calls come from consume_markers, below. }
+
+{METHODDEF}
+procedure start_input_pass (cinfo : j_decompress_ptr);
+begin
+  per_scan_setup(cinfo);
+  latch_quant_tables(cinfo);
+  cinfo^.entropy^.start_pass (cinfo);
+  cinfo^.coef^.start_input_pass (cinfo);
+  cinfo^.inputctl^.consume_input := cinfo^.coef^.consume_data;
+end;
+
+
+{ Finish up after inputting a compressed-data scan.
+  This is called by the coefficient controller after it's read all
+  the expected data of the scan. }
+
+{METHODDEF}
+procedure finish_input_pass (cinfo : j_decompress_ptr);
+begin
+  cinfo^.inputctl^.consume_input := consume_markers;
+end;
+
+
+{ Read JPEG markers before, between, or after compressed-data scans.
+  Change state as necessary when a new scan is reached.
+  Return value is JPEG_SUSPENDED, JPEG_REACHED_SOS, or JPEG_REACHED_EOI.
+
+  The consume_input method pointer points either here or to the
+  coefficient controller's consume_data routine, depending on whether
+  we are reading a compressed data segment or inter-segment markers. }
+
+{METHODDEF}
+function consume_markers (cinfo : j_decompress_ptr) : int;
+var
+  val : int;
+  inputctl : my_inputctl_ptr;
+begin
+  inputctl := my_inputctl_ptr (cinfo^.inputctl);
+
+  if (inputctl^.pub.eoi_reached) then { After hitting EOI, read no further }
+  begin
+    consume_markers := JPEG_REACHED_EOI;
+    exit;
+  end;
+
+  val := cinfo^.marker^.read_markers (cinfo);
+
+  case (val) of
+  JPEG_REACHED_SOS: { Found SOS }
+    begin
+      if (inputctl^.inheaders) then
+      begin { 1st SOS }
+        initial_setup(cinfo);
+        inputctl^.inheaders := FALSE;
+        { Note: start_input_pass must be called by jdmaster.c
+          before any more input can be consumed.  jdapimin.c is
+          responsible for enforcing this sequencing. }
+      end
+      else
+      begin     { 2nd or later SOS marker }
+        if (not inputctl^.pub.has_multiple_scans) then
+    ERREXIT(j_common_ptr(cinfo), JERR_EOI_EXPECTED); { Oops, I wasn't expecting this! }
+        start_input_pass(cinfo);
+      end;
+    end;
+  JPEG_REACHED_EOI: { Found EOI }
+    begin
+      inputctl^.pub.eoi_reached := TRUE;
+      if (inputctl^.inheaders) then
+      begin { Tables-only datastream, apparently }
+        if (cinfo^.marker^.saw_SOF) then
+    ERREXIT(j_common_ptr(cinfo), JERR_SOF_NO_SOS);
+      end
+      else
+      begin
+        { Prevent infinite loop in coef ctlr's decompress_data routine
+          if user set output_scan_number larger than number of scans. }
+
+        if (cinfo^.output_scan_number > cinfo^.input_scan_number) then
+    cinfo^.output_scan_number := cinfo^.input_scan_number;
+      end;
+    end;
+  JPEG_SUSPENDED:;
+  end;
+
+  consume_markers := val;
+end;
+
+
+{ Reset state to begin a fresh datastream. }
+
+{METHODDEF}
+procedure reset_input_controller (cinfo : j_decompress_ptr);
+var
+  inputctl : my_inputctl_ptr;
+begin
+  inputctl := my_inputctl_ptr (cinfo^.inputctl);
+
+  inputctl^.pub.consume_input := consume_markers;
+  inputctl^.pub.has_multiple_scans := FALSE; { "unknown" would be better }
+  inputctl^.pub.eoi_reached := FALSE;
+  inputctl^.inheaders := TRUE;
+  { Reset other modules }
+  cinfo^.err^.reset_error_mgr (j_common_ptr(cinfo));
+  cinfo^.marker^.reset_marker_reader (cinfo);
+  { Reset progression state -- would be cleaner if entropy decoder did this }
+  cinfo^.coef_bits := NIL;
+end;
+
+
+{ Initialize the input controller module.
+  This is called only once, when the decompression object is created. }
+
+{GLOBAL}
+procedure jinit_input_controller (cinfo : j_decompress_ptr);
+var
+  inputctl : my_inputctl_ptr;
+begin
+  { Create subobject in permanent pool }
+  inputctl := my_inputctl_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_PERMANENT,
+        SIZEOF(my_input_controller)) );
+  cinfo^.inputctl := jpeg_input_controller_ptr(inputctl);
+  { Initialize method pointers }
+  inputctl^.pub.consume_input := consume_markers;
+  inputctl^.pub.reset_input_controller := reset_input_controller;
+  inputctl^.pub.start_input_pass := start_input_pass;
+  inputctl^.pub.finish_input_pass := finish_input_pass;
+  { Initialize state: can't use reset_input_controller since we don't
+    want to try to reset other modules yet. }
+
+  inputctl^.pub.has_multiple_scans := FALSE; { "unknown" would be better }
+  inputctl^.pub.eoi_reached := FALSE;
+  inputctl^.inheaders := TRUE;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdmainct.pas b/src/lib/vampimg/JpegLib/imjdmainct.pas

new file mode 100644 (file)

index 0000000..037f099
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdmainct.pas
@@ -0,0 +1,610 @@
+unit imjdmainct;
+
+
+{ This file is part of the Independent JPEG Group's software.
+  For conditions of distribution and use, see the accompanying README file.
+
+  This file contains the main buffer controller for decompression.
+  The main buffer lies between the JPEG decompressor proper and the
+  post-processor; it holds downsampled data in the JPEG colorspace.
+
+  Note that this code is bypassed in raw-data mode, since the application
+  supplies the equivalent of the main buffer in that case. }
+
+{ Original: jdmainct.c ; Copyright (C) 1994-1996, Thomas G. Lane.  }
+
+
+{ In the current system design, the main buffer need never be a full-image
+  buffer; any full-height buffers will be found inside the coefficient or
+  postprocessing controllers.  Nonetheless, the main controller is not
+  trivial.  Its responsibility is to provide context rows for upsampling/
+  rescaling, and doing this in an efficient fashion is a bit tricky.
+
+  Postprocessor input data is counted in "row groups".  A row group
+  is defined to be (v_samp_factor * DCT_scaled_size / min_DCT_scaled_size)
+  sample rows of each component.  (We require DCT_scaled_size values to be
+  chosen such that these numbers are integers.  In practice DCT_scaled_size
+  values will likely be powers of two, so we actually have the stronger
+  condition that DCT_scaled_size / min_DCT_scaled_size is an integer.)
+  Upsampling will typically produce max_v_samp_factor pixel rows from each
+  row group (times any additional scale factor that the upsampler is
+  applying).
+
+  The coefficient controller will deliver data to us one iMCU row at a time;
+  each iMCU row contains v_samp_factor * DCT_scaled_size sample rows, or
+  exactly min_DCT_scaled_size row groups.  (This amount of data corresponds
+  to one row of MCUs when the image is fully interleaved.)  Note that the
+  number of sample rows varies across components, but the number of row
+  groups does not.  Some garbage sample rows may be included in the last iMCU
+  row at the bottom of the image.
+
+  Depending on the vertical scaling algorithm used, the upsampler may need
+  access to the sample row(s) above and below its current input row group.
+  The upsampler is required to set need_context_rows TRUE at global
+  selection
+  time if so.  When need_context_rows is FALSE, this controller can simply
+  obtain one iMCU row at a time from the coefficient controller and dole it
+  out as row groups to the postprocessor.
+
+  When need_context_rows is TRUE, this controller guarantees that the buffer
+  passed to postprocessing contains at least one row group's worth of samples
+  above and below the row group(s) being processed.  Note that the context
+  rows "above" the first passed row group appear at negative row offsets in
+  the passed buffer.  At the top and bottom of the image, the required
+  context rows are manufactured by duplicating the first or last real sample
+  row; this avoids having special cases in the upsampling inner loops.
+
+  The amount of context is fixed at one row group just because that's a
+  convenient number for this controller to work with.  The existing
+  upsamplers really only need one sample row of context.  An upsampler
+  supporting arbitrary output rescaling might wish for more than one row
+  group of context when shrinking the image; tough, we don't handle that.
+  (This is justified by the assumption that downsizing will be handled mostly
+  by adjusting the DCT_scaled_size values, so that the actual scale factor at
+  the upsample step needn't be much less than one.)
+
+  To provide the desired context, we have to retain the last two row groups
+  of one iMCU row while reading in the next iMCU row.  (The last row group
+  can't be processed until we have another row group for its below-context,
+  and so we have to save the next-to-last group too for its above-context.)
+  We could do this most simply by copying data around in our buffer, but
+  that'd be very slow.  We can avoid copying any data by creating a rather
+  strange pointer structure.  Here's how it works.  We allocate a workspace
+  consisting of M+2 row groups (where M = min_DCT_scaled_size is the number
+  of row groups per iMCU row).  We create two sets of redundant pointers to
+  the workspace.  Labeling the physical row groups 0 to M+1, the synthesized
+  pointer lists look like this:
+                    M+1                          M-1
+  master pointer --> 0         master pointer --> 0
+                     1                            1
+                    ...                          ...
+                    M-3                          M-3
+                    M-2                           M
+                    M-1                          M+1
+                     M                           M-2
+                    M+1                          M-1
+                     0                            0
+  We read alternate iMCU rows using each master pointer; thus the last two
+  row groups of the previous iMCU row remain un-overwritten in the workspace.
+  The pointer lists are set up so that the required context rows appear to
+  be adjacent to the proper places when we pass the pointer lists to the
+  upsampler.
+
+  The above pictures describe the normal state of the pointer lists.
+  At top and bottom of the image, we diddle the pointer lists to duplicate
+  the first or last sample row as necessary (this is cheaper than copying
+  sample rows around).
+
+  This scheme breaks down if M < 2, ie, min_DCT_scaled_size is 1.  In that
+  situation each iMCU row provides only one row group so the buffering logic
+  must be different (eg, we must read two iMCU rows before we can emit the
+  first row group).  For now, we simply do not support providing context
+  rows when min_DCT_scaled_size is 1.  That combination seems unlikely to
+  be worth providing --- if someone wants a 1/8th-size preview, they probably
+  want it quick and dirty, so a context-free upsampler is sufficient. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+{$ifdef QUANT_2PASS_SUPPORTED}
+  imjquant2,
+{$endif}
+  imjdeferr,
+  imjerror,
+  imjpeglib;
+
+
+{GLOBAL}
+procedure jinit_d_main_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+
+
+implementation
+
+{ Private buffer controller object }
+
+type
+  my_main_ptr = ^my_main_controller;
+  my_main_controller = record
+    pub : jpeg_d_main_controller; { public fields }
+
+    { Pointer to allocated workspace (M or M+2 row groups). }
+    buffer : array[0..MAX_COMPONENTS-1] of JSAMPARRAY;
+
+    buffer_full : boolean;  { Have we gotten an iMCU row from decoder? }
+    rowgroup_ctr : JDIMENSION ; { counts row groups output to postprocessor }
+
+    { Remaining fields are only used in the context case. }
+
+    { These are the master pointers to the funny-order pointer lists. }
+    xbuffer : array[0..2-1] of JSAMPIMAGE;  { pointers to weird pointer lists }
+
+    whichptr : int;     { indicates which pointer set is now in use }
+    context_state : int;    { process_data state machine status }
+    rowgroups_avail : JDIMENSION; { row groups available to postprocessor }
+    iMCU_row_ctr : JDIMENSION;  { counts iMCU rows to detect image top/bot }
+  end; { my_main_controller; }
+
+
+{ context_state values: }
+const
+  CTX_PREPARE_FOR_IMCU  = 0;  { need to prepare for MCU row }
+  CTX_PROCESS_IMCU      = 1;  { feeding iMCU to postprocessor }
+  CTX_POSTPONED_ROW     = 2;  { feeding postponed row group }
+
+
+{ Forward declarations }
+{METHODDEF}
+procedure process_data_simple_main(cinfo : j_decompress_ptr;
+                                   output_buf : JSAMPARRAY;
+                             var out_row_ctr : JDIMENSION;
+                                   out_rows_avail : JDIMENSION); forward;
+{METHODDEF}
+procedure process_data_context_main (cinfo : j_decompress_ptr;
+                                     output_buf : JSAMPARRAY;
+                               var out_row_ctr : JDIMENSION;
+                                     out_rows_avail : JDIMENSION); forward;
+
+{$ifdef QUANT_2PASS_SUPPORTED}
+{METHODDEF}
+procedure process_data_crank_post (cinfo : j_decompress_ptr;
+                                     output_buf : JSAMPARRAY;
+                               var out_row_ctr : JDIMENSION;
+                                     out_rows_avail : JDIMENSION); forward;
+{$endif}
+
+
+{LOCAL}
+procedure alloc_funny_pointers (cinfo : j_decompress_ptr);
+{ Allocate space for the funny pointer lists.
+  This is done only once, not once per pass. }
+var
+  main : my_main_ptr;
+  ci, rgroup : int;
+  M : int;
+  compptr : jpeg_component_info_ptr;
+  xbuf : JSAMPARRAY;
+begin
+  main := my_main_ptr (cinfo^.main);
+  M := cinfo^.min_DCT_scaled_size;
+
+  { Get top-level space for component array pointers.
+    We alloc both arrays with one call to save a few cycles. }
+
+  main^.xbuffer[0] := JSAMPIMAGE (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+                      cinfo^.num_components * 2 * SIZEOF(JSAMPARRAY)) );
+  main^.xbuffer[1] := JSAMPIMAGE(@( main^.xbuffer[0]^[cinfo^.num_components] ));
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    rgroup := (compptr^.v_samp_factor * compptr^.DCT_scaled_size) div
+      cinfo^.min_DCT_scaled_size; { height of a row group of component }
+    { Get space for pointer lists --- M+4 row groups in each list.
+      We alloc both pointer lists with one call to save a few cycles. }
+
+    xbuf := JSAMPARRAY (
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+         2 * (rgroup * (M + 4)) * SIZEOF(JSAMPROW)) );
+    Inc(JSAMPROW_PTR(xbuf), rgroup); { want one row group at negative offsets }
+    main^.xbuffer[0]^[ci] := xbuf;
+    Inc(JSAMPROW_PTR(xbuf), rgroup * (M + 4));
+    main^.xbuffer[1]^[ci] := xbuf;
+    Inc(compptr);
+  end;
+end;
+
+{LOCAL}
+procedure make_funny_pointers (cinfo : j_decompress_ptr);
+{ Create the funny pointer lists discussed in the comments above.
+  The actual workspace is already allocated (in main^.buffer),
+  and the space for the pointer lists is allocated too.
+  This routine just fills in the curiously ordered lists.
+  This will be repeated at the beginning of each pass. }
+var
+  main : my_main_ptr;
+  ci, i, rgroup : int;
+  M : int;
+  compptr : jpeg_component_info_ptr;
+  buf, xbuf0, xbuf1 : JSAMPARRAY;
+var
+  help_xbuf0 : JSAMPARRAY;       { work around negative offsets }
+begin
+  main := my_main_ptr (cinfo^.main);
+  M := cinfo^.min_DCT_scaled_size;
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    rgroup := (compptr^.v_samp_factor * compptr^.DCT_scaled_size) div
+      cinfo^.min_DCT_scaled_size; { height of a row group of component }
+    xbuf0 := main^.xbuffer[0]^[ci];
+    xbuf1 := main^.xbuffer[1]^[ci];
+    { First copy the workspace pointers as-is }
+    buf := main^.buffer[ci];
+    for i := 0 to pred(rgroup * (M + 2)) do
+    begin
+      xbuf0^[i] := buf^[i];
+      xbuf1^[i] := buf^[i];
+    end;
+    { In the second list, put the last four row groups in swapped order }
+    for i := 0 to pred(rgroup * 2) do
+    begin
+      xbuf1^[rgroup*(M-2) + i] := buf^[rgroup*M + i];
+      xbuf1^[rgroup*M + i] := buf^[rgroup*(M-2) + i];
+    end;
+    { The wraparound pointers at top and bottom will be filled later
+      (see set_wraparound_pointers, below).  Initially we want the "above"
+      pointers to duplicate the first actual data line.  This only needs
+      to happen in xbuffer[0]. }
+
+    help_xbuf0 := xbuf0;
+    Dec(JSAMPROW_PTR(help_xbuf0), rgroup);
+
+    for i := 0 to pred(rgroup) do
+    begin
+      {xbuf0^[i - rgroup] := xbuf0^[0];}
+      help_xbuf0^[i] := xbuf0^[0];
+    end;
+    Inc(compptr);
+  end;
+end;
+
+
+{LOCAL}
+procedure set_wraparound_pointers (cinfo : j_decompress_ptr);
+{ Set up the "wraparound" pointers at top and bottom of the pointer lists.
+  This changes the pointer list state from top-of-image to the normal state. }
+var
+  main : my_main_ptr;
+  ci, i, rgroup : int;
+  M : int;
+  compptr : jpeg_component_info_ptr;
+  xbuf0, xbuf1 : JSAMPARRAY;
+var
+  help_xbuf0,
+  help_xbuf1 : JSAMPARRAY;       { work around negative offsets }
+begin
+  main := my_main_ptr (cinfo^.main);
+  M := cinfo^.min_DCT_scaled_size;
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    rgroup := (compptr^.v_samp_factor * compptr^.DCT_scaled_size) div
+      cinfo^.min_DCT_scaled_size; { height of a row group of component }
+    xbuf0 := main^.xbuffer[0]^[ci];
+    xbuf1 := main^.xbuffer[1]^[ci];
+
+    help_xbuf0 := xbuf0;
+    Dec(JSAMPROW_PTR(help_xbuf0), rgroup);
+    help_xbuf1 := xbuf1;
+    Dec(JSAMPROW_PTR(help_xbuf1), rgroup);
+
+    for i := 0 to pred(rgroup) do
+    begin
+      {xbuf0^[i - rgroup] := xbuf0^[rgroup*(M+1) + i];
+      xbuf1^[i - rgroup] := xbuf1^[rgroup*(M+1) + i];}
+
+      help_xbuf0^[i] := xbuf0^[rgroup*(M+1) + i];
+      help_xbuf1^[i] := xbuf1^[rgroup*(M+1) + i];
+
+      xbuf0^[rgroup*(M+2) + i] := xbuf0^[i];
+      xbuf1^[rgroup*(M+2) + i] := xbuf1^[i];
+    end;
+    Inc(compptr);
+  end;
+end;
+
+
+{LOCAL}
+procedure set_bottom_pointers (cinfo : j_decompress_ptr);
+{ Change the pointer lists to duplicate the last sample row at the bottom
+  of the image.  whichptr indicates which xbuffer holds the final iMCU row.
+  Also sets rowgroups_avail to indicate number of nondummy row groups in row. }
+var
+  main : my_main_ptr;
+  ci, i, rgroup, iMCUheight, rows_left : int;
+  compptr : jpeg_component_info_ptr;
+  xbuf : JSAMPARRAY;
+begin
+  main := my_main_ptr (cinfo^.main);
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Count sample rows in one iMCU row and in one row group }
+    iMCUheight := compptr^.v_samp_factor * compptr^.DCT_scaled_size;
+    rgroup := iMCUheight div cinfo^.min_DCT_scaled_size;
+    { Count nondummy sample rows remaining for this component }
+    rows_left := int (compptr^.downsampled_height mod JDIMENSION (iMCUheight));
+    if (rows_left = 0) then
+      rows_left := iMCUheight;
+    { Count nondummy row groups.  Should get same answer for each component,
+      so we need only do it once. }
+    if (ci = 0) then
+    begin
+      main^.rowgroups_avail := JDIMENSION ((rows_left-1) div rgroup + 1);
+    end;
+    { Duplicate the last real sample row rgroup*2 times; this pads out the
+      last partial rowgroup and ensures at least one full rowgroup of context. }
+
+    xbuf := main^.xbuffer[main^.whichptr]^[ci];
+    for i := 0 to pred(rgroup * 2) do
+    begin
+      xbuf^[rows_left + i] := xbuf^[rows_left-1];
+    end;
+    Inc(compptr);
+  end;
+end;
+
+
+{ Initialize for a processing pass. }
+
+{METHODDEF}
+procedure start_pass_main (cinfo : j_decompress_ptr;
+                           pass_mode : J_BUF_MODE);
+var
+  main : my_main_ptr;
+begin
+  main := my_main_ptr (cinfo^.main);
+
+  case (pass_mode) of
+  JBUF_PASS_THRU:
+    begin
+      if (cinfo^.upsample^.need_context_rows) then
+      begin
+        main^.pub.process_data := process_data_context_main;
+        make_funny_pointers(cinfo); { Create the xbuffer[] lists }
+        main^.whichptr := 0;  { Read first iMCU row into xbuffer[0] }
+        main^.context_state := CTX_PREPARE_FOR_IMCU;
+        main^.iMCU_row_ctr := 0;
+      end
+      else
+      begin
+        { Simple case with no context needed }
+        main^.pub.process_data := process_data_simple_main;
+      end;
+      main^.buffer_full := FALSE; { Mark buffer empty }
+      main^.rowgroup_ctr := 0;
+    end;
+{$ifdef QUANT_2PASS_SUPPORTED}
+  JBUF_CRANK_DEST:
+    { For last pass of 2-pass quantization, just crank the postprocessor }
+    main^.pub.process_data := process_data_crank_post;
+{$endif}
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+  end;
+end;
+
+
+{ Process some data.
+  This handles the simple case where no context is required. }
+
+{METHODDEF}
+procedure process_data_simple_main (cinfo : j_decompress_ptr;
+                  output_buf : JSAMPARRAY;
+                                    var out_row_ctr : JDIMENSION;
+                  out_rows_avail : JDIMENSION);
+var
+  main : my_main_ptr;
+  rowgroups_avail : JDIMENSION;
+var
+  main_buffer_ptr : JSAMPIMAGE;
+begin
+  main := my_main_ptr (cinfo^.main);
+  main_buffer_ptr := JSAMPIMAGE(@(main^.buffer));
+
+  { Read input data if we haven't filled the main buffer yet }
+  if (not main^.buffer_full) then
+  begin
+    if (cinfo^.coef^.decompress_data (cinfo, main_buffer_ptr)=0) then
+      exit;     { suspension forced, can do nothing more }
+    main^.buffer_full := TRUE;  { OK, we have an iMCU row to work with }
+  end;
+
+  { There are always min_DCT_scaled_size row groups in an iMCU row. }
+  rowgroups_avail := JDIMENSION (cinfo^.min_DCT_scaled_size);
+  { Note: at the bottom of the image, we may pass extra garbage row groups
+    to the postprocessor.  The postprocessor has to check for bottom
+    of image anyway (at row resolution), so no point in us doing it too. }
+
+  { Feed the postprocessor }
+  cinfo^.post^.post_process_data (cinfo, main_buffer_ptr,
+                                  main^.rowgroup_ctr, rowgroups_avail,
+          output_buf, out_row_ctr, out_rows_avail);
+
+  { Has postprocessor consumed all the data yet? If so, mark buffer empty }
+  if (main^.rowgroup_ctr >= rowgroups_avail) then
+  begin
+    main^.buffer_full := FALSE;
+    main^.rowgroup_ctr := 0;
+  end;
+end;
+
+
+{ Process some data.
+  This handles the case where context rows must be provided. }
+
+{METHODDEF}
+procedure process_data_context_main (cinfo : j_decompress_ptr;
+                   output_buf : JSAMPARRAY;
+                                     var out_row_ctr : JDIMENSION;
+                   out_rows_avail : JDIMENSION);
+var
+  main : my_main_ptr;
+begin
+  main := my_main_ptr (cinfo^.main);
+
+  { Read input data if we haven't filled the main buffer yet }
+  if (not main^.buffer_full) then
+  begin
+    if (cinfo^.coef^.decompress_data (cinfo,
+        main^.xbuffer[main^.whichptr])=0) then
+      exit;     { suspension forced, can do nothing more }
+    main^.buffer_full := TRUE;  { OK, we have an iMCU row to work with }
+    Inc(main^.iMCU_row_ctr);  { count rows received }
+  end;
+
+  { Postprocessor typically will not swallow all the input data it is handed
+    in one call (due to filling the output buffer first).  Must be prepared
+    to exit and restart.  This switch lets us keep track of how far we got.
+    Note that each case falls through to the next on successful completion. }
+
+  case (main^.context_state) of
+  CTX_POSTPONED_ROW:
+    begin
+      { Call postprocessor using previously set pointers for postponed row }
+      cinfo^.post^.post_process_data (cinfo, main^.xbuffer[main^.whichptr],
+        main^.rowgroup_ctr, main^.rowgroups_avail,
+        output_buf, out_row_ctr, out_rows_avail);
+      if (main^.rowgroup_ctr < main^.rowgroups_avail) then
+        exit;     { Need to suspend }
+      main^.context_state := CTX_PREPARE_FOR_IMCU;
+      if (out_row_ctr >= out_rows_avail) then
+        exit;     { Postprocessor exactly filled output buf }
+    end;
+  end;
+  case (main^.context_state) of
+  CTX_POSTPONED_ROW,
+  CTX_PREPARE_FOR_IMCU:  {FALLTHROUGH}
+    begin
+      { Prepare to process first M-1 row groups of this iMCU row }
+      main^.rowgroup_ctr := 0;
+      main^.rowgroups_avail := JDIMENSION (cinfo^.min_DCT_scaled_size - 1);
+      { Check for bottom of image: if so, tweak pointers to "duplicate"
+        the last sample row, and adjust rowgroups_avail to ignore padding rows. }
+
+      if (main^.iMCU_row_ctr = cinfo^.total_iMCU_rows) then
+        set_bottom_pointers(cinfo);
+      main^.context_state := CTX_PROCESS_IMCU;
+
+    end;
+  end;
+  case (main^.context_state) of
+  CTX_POSTPONED_ROW,
+  CTX_PREPARE_FOR_IMCU,  {FALLTHROUGH}
+  CTX_PROCESS_IMCU:
+    begin
+      { Call postprocessor using previously set pointers }
+      cinfo^.post^.post_process_data (cinfo, main^.xbuffer[main^.whichptr],
+        main^.rowgroup_ctr, main^.rowgroups_avail,
+        output_buf, out_row_ctr, out_rows_avail);
+      if (main^.rowgroup_ctr < main^.rowgroups_avail) then
+        exit;     { Need to suspend }
+      { After the first iMCU, change wraparound pointers to normal state }
+      if (main^.iMCU_row_ctr = 1) then
+        set_wraparound_pointers(cinfo);
+      { Prepare to load new iMCU row using other xbuffer list }
+      main^.whichptr := main^.whichptr xor 1; { 0=>1 or 1=>0 }
+      main^.buffer_full := FALSE;
+      { Still need to process last row group of this iMCU row, }
+      { which is saved at index M+1 of the other xbuffer }
+      main^.rowgroup_ctr := JDIMENSION (cinfo^.min_DCT_scaled_size + 1);
+      main^.rowgroups_avail := JDIMENSION (cinfo^.min_DCT_scaled_size + 2);
+      main^.context_state := CTX_POSTPONED_ROW;
+    end;
+  end;
+end;
+
+
+{ Process some data.
+  Final pass of two-pass quantization: just call the postprocessor.
+  Source data will be the postprocessor controller's internal buffer. }
+
+{$ifdef QUANT_2PASS_SUPPORTED}
+
+{METHODDEF}
+procedure process_data_crank_post (cinfo : j_decompress_ptr;
+                 output_buf : JSAMPARRAY;
+                                   var out_row_ctr : JDIMENSION;
+                 out_rows_avail : JDIMENSION);
+var
+  in_row_group_ctr : JDIMENSION;
+begin
+  in_row_group_ctr := 0;
+  cinfo^.post^.post_process_data (cinfo, JSAMPIMAGE (NIL),
+             in_row_group_ctr,
+                                     JDIMENSION(0),
+             output_buf,
+                                     out_row_ctr,
+                                     out_rows_avail);
+end;
+
+{$endif} { QUANT_2PASS_SUPPORTED }
+
+
+{ Initialize main buffer controller. }
+
+{GLOBAL}
+procedure jinit_d_main_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+var
+  main : my_main_ptr;
+  ci, rgroup, ngroups : int;
+  compptr : jpeg_component_info_ptr;
+begin
+  main := my_main_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_main_controller)) );
+  cinfo^.main := jpeg_d_main_controller_ptr(main);
+  main^.pub.start_pass := start_pass_main;
+
+  if (need_full_buffer) then  { shouldn't happen }
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+
+  { Allocate the workspace.
+    ngroups is the number of row groups we need.}
+
+  if (cinfo^.upsample^.need_context_rows) then
+  begin
+    if (cinfo^.min_DCT_scaled_size < 2) then { unsupported, see comments above }
+      ERREXIT(j_common_ptr(cinfo), JERR_NOTIMPL);
+    alloc_funny_pointers(cinfo); { Alloc space for xbuffer[] lists }
+    ngroups := cinfo^.min_DCT_scaled_size + 2;
+  end
+  else
+  begin
+    ngroups := cinfo^.min_DCT_scaled_size;
+  end;
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    rgroup := (compptr^.v_samp_factor * compptr^.DCT_scaled_size) div
+      cinfo^.min_DCT_scaled_size; { height of a row group of component }
+    main^.buffer[ci] := cinfo^.mem^.alloc_sarray
+      (j_common_ptr(cinfo), JPOOL_IMAGE,
+       compptr^.width_in_blocks * LongWord(compptr^.DCT_scaled_size),
+       JDIMENSION (rgroup * ngroups));
+    Inc(compptr);
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdmarker.pas b/src/lib/vampimg/JpegLib/imjdmarker.pas

new file mode 100644 (file)

index 0000000..b87a3dd
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdmarker.pas
@@ -0,0 +1,2648 @@
+unit imjdmarker;
+
+{ This file contains routines to decode JPEG datastream markers.
+  Most of the complexity arises from our desire to support input
+  suspension: if not all of the data for a marker is available;
+  we must exit back to the application. On resumption; we reprocess
+  the marker. }
+
+{ Original: jdmarker.c;  Copyright (C) 1991-1998; Thomas G. Lane. }
+{ History
+   9.7.96                   Conversion to pascal started      jnn
+   22.3.98                  updated to 6b                     jnn }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjcomapi,
+  imjpeglib;
+
+const                 { JPEG marker codes }
+  M_SOF0  = $c0;
+  M_SOF1  = $c1;
+  M_SOF2  = $c2;
+  M_SOF3  = $c3;
+
+  M_SOF5  = $c5;
+  M_SOF6  = $c6;
+  M_SOF7  = $c7;
+
+  M_JPG   = $c8;
+  M_SOF9  = $c9;
+  M_SOF10 = $ca;
+  M_SOF11 = $cb;
+
+  M_SOF13 = $cd;
+  M_SOF14 = $ce;
+  M_SOF15 = $cf;
+
+  M_DHT   = $c4;
+
+  M_DAC   = $cc;
+
+  M_RST0  = $d0;
+  M_RST1  = $d1;
+  M_RST2  = $d2;
+  M_RST3  = $d3;
+  M_RST4  = $d4;
+  M_RST5  = $d5;
+  M_RST6  = $d6;
+  M_RST7  = $d7;
+
+  M_SOI   = $d8;
+  M_EOI   = $d9;
+  M_SOS   = $da;
+  M_DQT   = $db;
+  M_DNL   = $dc;
+  M_DRI   = $dd;
+  M_DHP   = $de;
+  M_EXP   = $df;
+
+  M_APP0  = $e0;
+  M_APP1  = $e1;
+  M_APP2  = $e2;
+  M_APP3  = $e3;
+  M_APP4  = $e4;
+  M_APP5  = $e5;
+  M_APP6  = $e6;
+  M_APP7  = $e7;
+  M_APP8  = $e8;
+  M_APP9  = $e9;
+  M_APP10 = $ea;
+  M_APP11 = $eb;
+  M_APP12 = $ec;
+  M_APP13 = $ed;
+  M_APP14 = $ee;
+  M_APP15 = $ef;
+
+  M_JPG0  = $f0;
+  M_JPG13 = $fd;
+  M_COM   = $fe;
+
+  M_TEM   = $01;
+
+  M_ERROR = $100;
+
+type
+  JPEG_MARKER = uint;        { JPEG marker codes }
+
+{ Private state }
+
+type
+  my_marker_ptr = ^my_marker_reader;
+  my_marker_reader = record
+    pub : jpeg_marker_reader; { public fields }
+
+    { Application-overridable marker processing methods }
+    process_COM : jpeg_marker_parser_method;
+    process_APPn : array[0..16-1] of jpeg_marker_parser_method;
+
+    { Limit on marker data length to save for each marker type }
+    length_limit_COM : uint;
+    length_limit_APPn : array[0..16-1] of uint;
+
+    { Status of COM/APPn marker saving }
+    cur_marker : jpeg_saved_marker_ptr; { NIL if not processing a marker }
+    bytes_read : uint;    { data bytes read so far in marker }
+    { Note: cur_marker is not linked into marker_list until it's all read. }
+  end;
+
+{GLOBAL}
+function jpeg_resync_to_restart(cinfo : j_decompress_ptr;
+                                desired : int) : boolean;
+{GLOBAL}
+procedure jinit_marker_reader (cinfo : j_decompress_ptr);
+
+{$ifdef SAVE_MARKERS_SUPPORTED}
+
+{GLOBAL}
+procedure jpeg_save_markers (cinfo : j_decompress_ptr;
+                             marker_code : int;
+                 length_limit : uint);
+{$ENDIF}
+
+{GLOBAL}
+procedure jpeg_set_marker_processor (cinfo : j_decompress_ptr;
+                                     marker_code : int;
+                               routine : jpeg_marker_parser_method);
+
+implementation
+
+uses
+  imjutils;
+
+{ At all times, cinfo1.src.next_input_byte and .bytes_in_buffer reflect
+  the current restart point; we update them only when we have reached a
+  suitable place to restart if a suspension occurs. }
+
+
+{ Routines to process JPEG markers.
+
+  Entry condition: JPEG marker itself has been read and its code saved
+    in cinfo^.unread_marker; input restart point is just after the marker.
+
+  Exit: if return TRUE, have read and processed any parameters, and have
+    updated the restart point to point after the parameters.
+    If return FALSE, was forced to suspend before reaching end of
+    marker parameters; restart point has not been moved.  Same routine
+    will be called again after application supplies more input data.
+
+  This approach to suspension assumes that all of a marker's parameters
+  can fit into a single input bufferload.  This should hold for "normal"
+  markers.  Some COM/APPn markers might have large parameter segments
+  that might not fit.  If we are simply dropping such a marker, we use
+  skip_input_data to get past it, and thereby put the problem on the
+  source manager's shoulders.  If we are saving the marker's contents
+  into memory, we use a slightly different convention: when forced to
+  suspend, the marker processor updates the restart point to the end of
+  what it's consumed (ie, the end of the buffer) before returning FALSE.
+  On resumption, cinfo->unread_marker still contains the marker code,
+  but the data source will point to the next chunk of marker data.
+  The marker processor must retain internal state to deal with this.
+
+  Note that we don't bother to avoid duplicate trace messages if a
+  suspension occurs within marker parameters.  Other side effects
+  require more care. }
+
+{LOCAL}
+function get_soi (cinfo : j_decompress_ptr) : boolean;
+{ Process an SOI marker }
+var
+  i : int;
+begin
+  {$IFDEF DEBUG}
+  TRACEMS(j_common_ptr(cinfo), 1, JTRC_SOI);
+  {$ENDIF}
+
+  if (cinfo^.marker^.saw_SOI) then
+    ERREXIT(j_common_ptr(cinfo), JERR_SOI_DUPLICATE);
+
+  { Reset all parameters that are defined to be reset by SOI }
+
+  for i := 0 to Pred(NUM_ARITH_TBLS) do
+  with cinfo^ do
+  begin
+    arith_dc_L[i] := 0;
+    arith_dc_U[i] := 1;
+    arith_ac_K[i] := 5;
+  end;
+  cinfo^.restart_interval := 0;
+
+  { Set initial assumptions for colorspace etc }
+
+  with cinfo^ do
+  begin
+    jpeg_color_space := JCS_UNKNOWN;
+    CCIR601_sampling := FALSE; { Assume non-CCIR sampling??? }
+
+    saw_JFIF_marker := FALSE;
+    JFIF_major_version := 1; { set default JFIF APP0 values }
+    JFIF_minor_version := 1;
+    density_unit := 0;
+    X_density := 1;
+    Y_density := 1;
+    saw_Adobe_marker := FALSE;
+    Adobe_transform := 0;
+
+    marker^.saw_SOI := TRUE;
+  end;
+  get_soi := TRUE;
+end; { get_soi }
+
+
+{LOCAL}
+function get_sof(cinfo : j_decompress_ptr;
+                 is_prog : boolean;
+                 is_arith : boolean) : boolean;
+{ Process a SOFn marker }
+var
+  length : INT32;
+  c, ci : int;
+  compptr : jpeg_component_info_ptr;
+{ Declare and initialize local copies of input pointer/count }
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+{}
+  cinfo^.progressive_mode := is_prog;
+  cinfo^.arith_code := is_arith;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sof := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+
+  { Read a byte into variable cinfo^.data_precision.
+    If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sof := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  cinfo^.data_precision := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  cinfo^.image_height should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sof := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  cinfo^.image_height := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( cinfo^.image_height, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  cinfo^.image_width should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sof := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  cinfo^.image_width := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( cinfo^.image_width, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  { Read a byte into variable cinfo^.num_components.
+    If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sof := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  cinfo^.num_components := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  Dec(length, 8);
+
+  {$IFDEF DEBUG}
+  TRACEMS4(j_common_ptr(cinfo), 1, JTRC_SOF, cinfo^.unread_marker,
+     int(cinfo^.image_width), int(cinfo^.image_height),
+     cinfo^.num_components);
+  {$ENDIF}
+
+  if (cinfo^.marker^.saw_SOF) then
+    ERREXIT(j_common_ptr(cinfo), JERR_SOF_DUPLICATE);
+
+  { We don't support files in which the image height is initially specified }
+  { as 0 and is later redefined by DNL.  As long as we have to check that,  }
+  { might as well have a general sanity check. }
+  if (cinfo^.image_height <= 0) or (cinfo^.image_width <= 0)
+      or (cinfo^.num_components <= 0) then
+    ERREXIT(j_common_ptr(cinfo), JERR_EMPTY_IMAGE);
+
+  if (length <> (cinfo^.num_components * 3)) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  if (cinfo^.comp_info = NIL) then { do only once, even if suspend }
+    cinfo^.comp_info := jpeg_component_info_list_ptr(
+     cinfo^.mem^.alloc_small(j_common_ptr(cinfo), JPOOL_IMAGE,
+                  cinfo^.num_components * SIZEOF(jpeg_component_info)));
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    compptr^.component_index := ci;
+
+    { Read a byte into variable compptr^.component_id.
+      If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    compptr^.component_id := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    { Read a byte into variable c. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    c := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    compptr^.h_samp_factor := (c shr 4) and 15;
+    compptr^.v_samp_factor := (c      ) and 15;
+
+    { Read a byte into variable compptr^.quant_tbl_no.
+      If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sof := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    compptr^.quant_tbl_no := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    {$IFDEF DEBUG}
+    TRACEMS4(j_common_ptr(cinfo), 1, JTRC_SOF_COMPONENT,
+       compptr^.component_id, compptr^.h_samp_factor,
+       compptr^.v_samp_factor, compptr^.quant_tbl_no);
+    {$ENDIF}
+
+    Inc(compptr);
+  end;
+
+  cinfo^.marker^.saw_SOF := TRUE;
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_sof := TRUE;
+end;  { get_sof }
+
+
+{LOCAL}
+function get_sos (cinfo : j_decompress_ptr) : boolean;
+{ Process a SOS marker }
+label
+  id_found;
+var
+  length : INT32;
+  i, ci, n, c, cc : int;
+  compptr : jpeg_component_info_ptr;
+{ Declare and initialize local copies of input pointer/count }
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;    { Array[] of JOCTET; }
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{}
+
+  if not cinfo^.marker^.saw_SOF then
+    ERREXIT(j_common_ptr(cinfo), JERR_SOS_NO_SOF);
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sos := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sos := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+
+  { Read a byte into variable n (Number of components).
+    If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sos := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  n := GETJOCTET(next_input_byte^);  { Number of components }
+  Inc(next_input_byte);
+
+  {$IFDEF DEBUG}
+  TRACEMS1(j_common_ptr(cinfo), 1, JTRC_SOS, n);
+  {$ENDIF}
+
+  if ((length <> (n * 2 + 6)) or (n < 1) or (n > MAX_COMPS_IN_SCAN)) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  cinfo^.comps_in_scan := n;
+
+  { Collect the component-spec parameters }
+
+  for i := 0 to Pred(n) do
+  begin
+    { Read a byte into variable cc. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sos := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    cc := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    { Read a byte into variable c. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_sos := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    c := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to Pred(cinfo^.num_components) do
+    begin
+      if (cc = compptr^.component_id) then
+  goto id_found;
+      Inc(compptr);
+    end;
+
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_COMPONENT_ID, cc);
+
+  id_found:
+
+    cinfo^.cur_comp_info[i] := compptr;
+    compptr^.dc_tbl_no := (c shr 4) and 15;
+    compptr^.ac_tbl_no := (c      ) and 15;
+
+    {$IFDEF DEBUG}
+    TRACEMS3(j_common_ptr(cinfo), 1, JTRC_SOS_COMPONENT, cc,
+       compptr^.dc_tbl_no, compptr^.ac_tbl_no);
+    {$ENDIF}
+  end;
+
+  { Collect the additional scan parameters Ss, Se, Ah/Al. }
+  { Read a byte into variable c. If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sos := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  c := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  cinfo^.Ss := c;
+
+  { Read a byte into variable c. If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sos := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  c := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  cinfo^.Se := c;
+
+  { Read a byte into variable c. If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_sos := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  c := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  cinfo^.Ah := (c shr 4) and 15;
+  cinfo^.Al := (c     ) and 15;
+
+  {$IFDEF DEBUG}
+  TRACEMS4(j_common_ptr(cinfo), 1, JTRC_SOS_PARAMS, cinfo^.Ss, cinfo^.Se,
+     cinfo^.Ah, cinfo^.Al);
+  {$ENDIF}
+
+  { Prepare to scan data & restart markers }
+  cinfo^.marker^.next_restart_num := 0;
+
+  { Count another SOS marker }
+  Inc( cinfo^.input_scan_number );
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_sos := TRUE;
+end;  { get_sos }
+
+
+{METHODDEF}
+function skip_variable (cinfo : j_decompress_ptr) : boolean;
+{ Skip over an unknown or uninteresting variable-length marker }
+var
+  length : INT32;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;    { Array[] of JOCTET; }
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      skip_variable := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := uint(GETJOCTET(next_input_byte^)) shl 8;
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      skip_variable := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET(next_input_byte^));
+  Inc( next_input_byte );
+
+  Dec(length, 2);
+
+  {$IFDEF DEBUG}
+  TRACEMS2(j_common_ptr(cinfo), 1, JTRC_MISC_MARKER,
+    cinfo^.unread_marker, int(length));
+  {$ENDIF}
+
+  { Unload the local copies --- do this only at a restart boundary }
+  { do before skip_input_data }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  if (length > 0) then
+    cinfo^.src^.skip_input_data(cinfo, long(length));
+
+  skip_variable := TRUE;
+end;  { skip_variable }
+
+
+{$IFDEF D_ARITH_CODING_SUPPORTED}
+
+{LOCAL}
+function get_dac (cinfo : j_decompress_ptr) : boolean;
+{ Process a DAC marker }
+var
+  length : INT32;
+  index, val : int;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_dac := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dac := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  Dec(length,  2);
+
+  while (length > 0) do
+  begin
+    { Read a byte into variable index. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dac := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    index := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    { Read a byte into variable val. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dac := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    val := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    Dec( length, 2);
+
+    {$IFDEF DEBUG}
+    TRACEMS2(j_common_ptr(cinfo), 1, JTRC_DAC, index, val);
+    {$ENDIF}
+
+    if (index < 0) or (index >= (2*NUM_ARITH_TBLS)) then
+      ERREXIT1(j_common_ptr(cinfo) , JERR_DAC_INDEX, index);
+
+    if (index >= NUM_ARITH_TBLS) then
+    begin { define AC table }
+      cinfo^.arith_ac_K[index-NUM_ARITH_TBLS] := UINT8(val);
+    end
+    else
+    begin { define DC table }
+      cinfo^.arith_dc_L[index] := UINT8(val and $0F);
+      cinfo^.arith_dc_U[index] := UINT8(val shr 4);
+      if (cinfo^.arith_dc_L[index] > cinfo^.arith_dc_U[index]) then
+  ERREXIT1(j_common_ptr(cinfo) , JERR_DAC_VALUE, val);
+    end;
+  end;
+
+  if (length <> 0) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_dac := TRUE;
+end;  { get_dac }
+
+{$ELSE}
+
+{LOCAL}
+function get_dac (cinfo : j_decompress_ptr) : boolean;
+begin
+  get_dac := skip_variable(cinfo);
+end;
+
+{$ENDIF}
+
+{LOCAL}
+function get_dht (cinfo : j_decompress_ptr) : boolean;
+{ Process a DHT marker }
+var
+  length : INT32;
+  bits : Array[0..17-1] of UINT8;
+  huffval : Array[0..256-1] of UINT8;
+  i, index, count : int;
+  htblptr : ^JHUFF_TBL_PTR;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_dht := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dht := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  Dec(length,  2);
+
+  while (length > 16) do
+  begin
+    { Read a byte into variable index. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dht := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    index := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    {$IFDEF DEBUG}
+    TRACEMS1(j_common_ptr(cinfo), 1, JTRC_DHT, index);
+    {$ENDIF}
+
+    bits[0] := 0;
+    count := 0;
+    for i := 1 to 16 do
+    begin
+      { Read a byte into variable bits[i]. If must suspend, return FALSE. }
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+      if (bytes_in_buffer = 0) then
+      begin
+        if (not datasrc^.fill_input_buffer(cinfo)) then
+        begin
+          get_dht := FALSE;
+          exit;
+        end;
+        { Reload the local copies }
+        next_input_byte := datasrc^.next_input_byte;
+        bytes_in_buffer := datasrc^.bytes_in_buffer;
+      end;
+      Dec( bytes_in_buffer );
+
+      bits[i] := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+
+      Inc( count, bits[i] );
+    end;
+
+    Dec( length, (1 + 16) );
+
+    {$IFDEF DEBUG}
+    TRACEMS8(j_common_ptr(cinfo), 2, JTRC_HUFFBITS,
+       bits[1], bits[2], bits[3], bits[4],
+       bits[5], bits[6], bits[7], bits[8]);
+    TRACEMS8(j_common_ptr(cinfo), 2, JTRC_HUFFBITS,
+       bits[9], bits[10], bits[11], bits[12],
+       bits[13], bits[14], bits[15], bits[16]);
+    {$ENDIF}
+
+    { Here we just do minimal validation of the counts to avoid walking
+      off the end of our table space.  jdhuff.c will check more carefully. }
+
+    if (count > 256) or (INT32(count) > length) then
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_HUFF_TABLE);
+
+    for i := 0 to Pred(count) do
+    begin
+    { Read a byte into variable huffval[i]. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+      if (bytes_in_buffer = 0) then
+      begin
+        if (not datasrc^.fill_input_buffer(cinfo)) then
+        begin
+          get_dht := FALSE;
+          exit;
+        end;
+        { Reload the local copies }
+        next_input_byte := datasrc^.next_input_byte;
+        bytes_in_buffer := datasrc^.bytes_in_buffer;
+      end;
+      Dec( bytes_in_buffer );
+
+      huffval[i] := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+    end;
+
+    Dec( length, count );
+
+    if (index and $10)<>0 then
+    begin  { AC table definition }
+      Dec( index, $10 );
+      htblptr := @cinfo^.ac_huff_tbl_ptrs[index];
+    end
+    else
+    begin { DC table definition }
+      htblptr := @cinfo^.dc_huff_tbl_ptrs[index];
+    end;
+
+    if (index < 0) or (index >= NUM_HUFF_TBLS) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_DHT_INDEX, index);
+
+    if (htblptr^ = NIL) then
+      htblptr^ := jpeg_alloc_huff_table(j_common_ptr(cinfo));
+
+    MEMCOPY(@(htblptr^)^.bits, @bits, SIZEOF((htblptr^)^.bits));
+    MEMCOPY(@(htblptr^)^.huffval, @huffval, SIZEOF((htblptr^)^.huffval));
+  end;
+
+  if (length <> 0) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_dht := TRUE;
+end;  { get_dht }
+
+
+{LOCAL}
+function get_dqt (cinfo : j_decompress_ptr) : boolean;
+{ Process a DQT marker }
+var
+  length : INT32;
+  n, i, prec : int;
+  tmp : uint;
+  quant_ptr : JQUANT_TBL_PTR;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_dqt := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dqt := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  Dec( length, 2 );
+
+  while (length > 0) do
+  begin
+    { Read a byte into variable n. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dqt := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    n := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+    prec := n shr 4;
+    n := n and $0F;
+
+    {$IFDEF DEBUG}
+    TRACEMS2(j_common_ptr(cinfo), 1, JTRC_DQT, n, prec);
+    {$ENDIF}
+
+    if (n >= NUM_QUANT_TBLS) then
+      ERREXIT1(j_common_ptr(cinfo) , JERR_DQT_INDEX, n);
+
+    if (cinfo^.quant_tbl_ptrs[n] = NIL) then
+      cinfo^.quant_tbl_ptrs[n] := jpeg_alloc_quant_table(j_common_ptr(cinfo));
+    quant_ptr := cinfo^.quant_tbl_ptrs[n];
+
+    for i := 0 to Pred(DCTSIZE2) do
+    begin
+      if (prec <> 0) then
+      begin
+      { Read two bytes interpreted as an unsigned 16-bit integer.
+        tmp should be declared unsigned int or perhaps INT32. }
+
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+        if (bytes_in_buffer = 0) then
+        begin
+          if (not datasrc^.fill_input_buffer(cinfo)) then
+          begin
+            get_dqt := FALSE;
+            exit;
+          end;
+          { Reload the local copies }
+          next_input_byte := datasrc^.next_input_byte;
+          bytes_in_buffer := datasrc^.bytes_in_buffer;
+        end;
+        Dec( bytes_in_buffer );
+
+        tmp := (uint( GETJOCTET(next_input_byte^)) shl 8);
+        Inc( next_input_byte );
+        { make a byte available.
+          Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+          but we must reload the local copies after a successful fill. }
+          if (bytes_in_buffer = 0) then
+          begin
+            if (not datasrc^.fill_input_buffer(cinfo)) then
+            begin
+              get_dqt := FALSE;
+              exit;
+            end;
+            { Reload the local copies }
+            next_input_byte := datasrc^.next_input_byte;
+            bytes_in_buffer := datasrc^.bytes_in_buffer;
+          end;
+          Dec( bytes_in_buffer );
+
+        Inc( tmp, GETJOCTET( next_input_byte^));
+        Inc( next_input_byte );
+
+      end
+      else
+      begin
+      { Read a byte into variable tmp. If must suspend, return FALSE. }
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+        if (bytes_in_buffer = 0) then
+        begin
+          if (not datasrc^.fill_input_buffer(cinfo)) then
+          begin
+            get_dqt := FALSE;
+            exit;
+          end;
+          { Reload the local copies }
+          next_input_byte := datasrc^.next_input_byte;
+          bytes_in_buffer := datasrc^.bytes_in_buffer;
+        end;
+        Dec( bytes_in_buffer );
+
+        tmp := GETJOCTET(next_input_byte^);
+        Inc(next_input_byte);
+      end;
+
+      { We convert the zigzag-order table to natural array order. }
+      quant_ptr^.quantval[jpeg_natural_order[i]] := UINT16(tmp);
+    end;
+
+    if (cinfo^.err^.trace_level >= 2) then
+    begin
+      i := 0;
+      while i < Pred(DCTSIZE2) do
+      begin
+        {$IFDEF DEBUG}
+  TRACEMS8(j_common_ptr(cinfo), 2, JTRC_QUANTVALS,
+     quant_ptr^.quantval[i],   quant_ptr^.quantval[i+1],
+     quant_ptr^.quantval[i+2], quant_ptr^.quantval[i+3],
+     quant_ptr^.quantval[i+4], quant_ptr^.quantval[i+5],
+     quant_ptr^.quantval[i+6], quant_ptr^.quantval[i+7]);
+        {$ENDIF}
+        Inc(i, 8);
+      end;
+    end;
+
+    Dec( length, DCTSIZE2+1 );
+    if (prec <> 0) then
+      Dec( length, DCTSIZE2 );
+  end;
+
+  if (length <> 0) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_dqt := TRUE;
+end;  { get_dqt }
+
+
+{LOCAL}
+function get_dri (cinfo : j_decompress_ptr) : boolean;
+{ Process a DRI marker }
+var
+  length : INT32;
+  tmp : uint;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_dri := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dri := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  if (length <> 4) then
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_LENGTH);
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  tmp should be declared unsigned int or perhaps INT32. }
+
+{ make a byte available.
+  Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+  but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_dri := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  tmp := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        get_dri := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+  Inc( tmp, GETJOCTET( next_input_byte^));
+  Inc( next_input_byte );
+
+  {$IFDEF DEBUG}
+  TRACEMS1(j_common_ptr(cinfo), 1, JTRC_DRI, tmp);
+  {$ENDIF}
+
+  cinfo^.restart_interval := tmp;
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  get_dri := TRUE;
+end;  { get_dri }
+
+
+{ Routines for processing APPn and COM markers.
+  These are either saved in memory or discarded, per application request.
+  APP0 and APP14 are specially checked to see if they are
+  JFIF and Adobe markers, respectively. }
+
+const
+  APP0_DATA_LEN = 14;   { Length of interesting data in APP0 }
+  APP14_DATA_LEN = 12;  { Length of interesting data in APP14 }
+  APPN_DATA_LEN = 14;   { Must be the largest of the above!! }
+
+
+{LOCAL}
+procedure examine_app0 (cinfo : j_decompress_ptr;
+                        var data : array of JOCTET;
+                        datalen : uint;
+                        remaining : INT32);
+
+{ Examine first few bytes from an APP0.
+  Take appropriate action if it is a JFIF marker.
+  datalen is # of bytes at data[], remaining is length of rest of marker data.
+}
+{$IFDEF DEBUG}
+var
+  totallen : INT32;
+{$ENDIF}
+begin
+  {$IFDEF DEBUG}
+  totallen := INT32(datalen) + remaining;
+  {$ENDIF}
+  if (datalen >= APP0_DATA_LEN) and
+     (GETJOCTET(data[0]) = $4A) and
+     (GETJOCTET(data[1]) = $46) and
+     (GETJOCTET(data[2]) = $49) and
+     (GETJOCTET(data[3]) = $46) and
+     (GETJOCTET(data[4]) = 0) then
+  begin
+    { Found JFIF APP0 marker: save info }
+    cinfo^.saw_JFIF_marker := TRUE;
+    cinfo^.JFIF_major_version := GETJOCTET(data[5]);
+    cinfo^.JFIF_minor_version := GETJOCTET(data[6]);
+    cinfo^.density_unit := GETJOCTET(data[7]);
+    cinfo^.X_density := (GETJOCTET(data[8]) shl 8) + GETJOCTET(data[9]);
+    cinfo^.Y_density := (GETJOCTET(data[10]) shl 8) + GETJOCTET(data[11]);
+    { Check version.
+      Major version must be 1, anything else signals an incompatible change.
+      (We used to treat this as an error, but now it's a nonfatal warning,
+      because some bozo at Hijaak couldn't read the spec.)
+      Minor version should be 0..2, but process anyway if newer. }
+
+    if (cinfo^.JFIF_major_version <> 1) then
+      WARNMS2(j_common_ptr(cinfo), JWRN_JFIF_MAJOR,
+        cinfo^.JFIF_major_version, cinfo^.JFIF_minor_version);
+    { Generate trace messages }
+    {$IFDEF DEBUG}
+    TRACEMS5(j_common_ptr(cinfo), 1, JTRC_JFIF,
+       cinfo^.JFIF_major_version, cinfo^.JFIF_minor_version,
+       cinfo^.X_density, cinfo^.Y_density, cinfo^.density_unit);
+    { Validate thumbnail dimensions and issue appropriate messages }
+    if (GETJOCTET(data[12]) or GETJOCTET(data[13])) <> 0 then
+      TRACEMS2(j_common_ptr(cinfo), 1, JTRC_JFIF_THUMBNAIL,
+         GETJOCTET(data[12]), GETJOCTET(data[13]));
+    Dec(totallen, APP0_DATA_LEN);
+    if (totallen <>
+  ( INT32(GETJOCTET(data[12])) * INT32(GETJOCTET(data[13])) * INT32(3) )) then
+      TRACEMS1(j_common_ptr(cinfo), 1, JTRC_JFIF_BADTHUMBNAILSIZE, int(totallen));
+    {$ENDIF}
+  end
+  else
+    if (datalen >= 6) and
+      (GETJOCTET(data[0]) = $4A) and
+      (GETJOCTET(data[1]) = $46) and
+      (GETJOCTET(data[2]) = $58) and
+      (GETJOCTET(data[3]) = $58) and
+      (GETJOCTET(data[4]) = 0) then
+    begin
+    { Found JFIF "JFXX" extension APP0 marker }
+    { The library doesn't actually do anything with these,
+      but we try to produce a helpful trace message. }
+      {$IFDEF DEBUG}
+      case (GETJOCTET(data[5])) of
+        $10:
+          TRACEMS1(j_common_ptr(cinfo), 1, JTRC_THUMB_JPEG, int(totallen));
+        $11:
+          TRACEMS1(j_common_ptr(cinfo), 1, JTRC_THUMB_PALETTE, int(totallen));
+        $13:
+          TRACEMS1(j_common_ptr(cinfo), 1, JTRC_THUMB_RGB, int(totallen));
+        else
+          TRACEMS2(j_common_ptr(cinfo), 1, JTRC_JFIF_EXTENSION,
+             GETJOCTET(data[5]), int(totallen));
+      end;
+      {$ENDIF}
+    end
+    else
+    begin
+      { Start of APP0 does not match "JFIF" or "JFXX", or too short }
+      {$IFDEF DEBUG}
+      TRACEMS1(j_common_ptr(cinfo), 1, JTRC_APP0, int(totallen));
+      {$ENDIF}
+    end;
+end;
+
+
+{LOCAL}
+procedure examine_app14 (cinfo : j_decompress_ptr;
+                         var data : array of JOCTET;
+                   datalen : uint;
+                         remaining : INT32);
+{ Examine first few bytes from an APP14.
+  Take appropriate action if it is an Adobe marker.
+  datalen is # of bytes at data[], remaining is length of rest of marker data.
+ }
+var
+  {$IFDEF DEBUG}
+  version, flags0, flags1,
+  {$ENDIF}
+  transform : uint;
+begin
+  if (datalen >= APP14_DATA_LEN) and
+     (GETJOCTET(data[0]) = $41) and
+     (GETJOCTET(data[1]) = $64) and
+     (GETJOCTET(data[2]) = $6F) and
+     (GETJOCTET(data[3]) = $62) and
+     (GETJOCTET(data[4]) = $65) then
+  begin
+    { Found Adobe APP14 marker }
+    {$IFDEF DEBUG}
+    version := (GETJOCTET(data[5]) shl 8) + GETJOCTET(data[6]);
+    flags0 := (GETJOCTET(data[7]) shl 8) + GETJOCTET(data[8]);
+    flags1 := (GETJOCTET(data[9]) shl 8) + GETJOCTET(data[10]);
+    {$ENDIF}
+    transform := GETJOCTET(data[11]);
+    {$IFDEF DEBUG}
+    TRACEMS4(j_common_ptr(cinfo), 1, JTRC_ADOBE, version, flags0, flags1, transform);
+    {$ENDIF}
+    cinfo^.saw_Adobe_marker := TRUE;
+    cinfo^.Adobe_transform := UINT8 (transform);
+  end
+  else
+  begin
+    { Start of APP14 does not match "Adobe", or too short }
+    {$IFDEF DEBUG}
+    TRACEMS1(j_common_ptr(cinfo), 1, JTRC_APP14, int (datalen + remaining));
+    {$ENDIF}
+  end;
+end;
+
+
+{METHODDEF}
+function get_interesting_appn (cinfo : j_decompress_ptr) : boolean;
+{ Process an APP0 or APP14 marker without saving it }
+var
+  length : INT32;
+  b : array[0..APPN_DATA_LEN-1] of JOCTET;
+  i, numtoread: uint;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+{ Read two bytes interpreted as an unsigned 16-bit integer.
+  length should be declared unsigned int or perhaps INT32. }
+
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_interesting_appn := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+  Inc( next_input_byte );
+
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      get_interesting_appn := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  Inc( length, GETJOCTET(next_input_byte^));
+  Inc( next_input_byte );
+
+  Dec(length, 2);
+
+  { get the interesting part of the marker data }
+  if (length >= APPN_DATA_LEN) then
+    numtoread := APPN_DATA_LEN
+  else
+    if (length > 0) then
+      numtoread := uint(length)
+    else
+      numtoread := 0;
+
+  if numtoread > 0 then
+  begin
+    for i := 0 to numtoread-1 do
+    begin
+    { Read a byte into b[i]. If must suspend, return FALSE. }
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+      if (bytes_in_buffer = 0) then
+      begin
+        if (not datasrc^.fill_input_buffer(cinfo)) then
+        begin
+          get_interesting_appn := FALSE;
+          exit;
+        end;
+        { Reload the local copies }
+        next_input_byte := datasrc^.next_input_byte;
+        bytes_in_buffer := datasrc^.bytes_in_buffer;
+      end;
+      Dec( bytes_in_buffer );
+
+      b[i] := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+    end;
+  end;
+
+  Dec(length, numtoread);
+
+  { process it }
+  case (cinfo^.unread_marker) of
+  M_APP0:
+    examine_app0(cinfo, b, numtoread, length);
+  M_APP14:
+    examine_app14(cinfo, b, numtoread, length);
+  else
+    { can't get here unless jpeg_save_markers chooses wrong processor }
+    ERREXIT1(j_common_ptr(cinfo), JERR_UNKNOWN_MARKER, cinfo^.unread_marker);
+  end;
+
+  { skip any remaining data -- could be lots }
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  if (length > 0) then
+    cinfo^.src^.skip_input_data(cinfo, long(length));
+
+  get_interesting_appn := TRUE;
+end;
+
+{$ifdef SAVE_MARKERS_SUPPORTED}
+
+{METHODDEF}
+function save_marker (cinfo : j_decompress_ptr) : boolean;
+{ Save an APPn or COM marker into the marker list }
+var
+  marker : my_marker_ptr;
+  cur_marker : jpeg_saved_marker_ptr;
+  bytes_read, data_length : uint;
+  data : JOCTET_FIELD_PTR;
+  length : INT32;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+var
+  limit : uint;
+var
+  prev : jpeg_saved_marker_ptr;
+begin
+  { local copies of input pointer/count }
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+  marker := my_marker_ptr(cinfo^.marker);
+  cur_marker := marker^.cur_marker;
+  length := 0;
+
+  if (cur_marker = NIL) then
+  begin
+    { begin reading a marker }
+    { Read two bytes interpreted as an unsigned 16-bit integer. }
+
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        save_marker := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    length := (uint( GETJOCTET(next_input_byte^)) shl 8);
+    Inc( next_input_byte );
+
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        save_marker := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    Inc( length, GETJOCTET(next_input_byte^));
+    Inc( next_input_byte );
+
+    Dec(length, 2);
+    if (length >= 0) then
+    begin   { watch out for bogus length word }
+      { figure out how much we want to save }
+
+      if (cinfo^.unread_marker = int(M_COM)) then
+  limit := marker^.length_limit_COM
+      else
+  limit := marker^.length_limit_APPn[cinfo^.unread_marker - int(M_APP0)];
+      if (uint(length) < limit) then
+  limit := uint(length);
+      { allocate and initialize the marker item }
+      cur_marker := jpeg_saved_marker_ptr(
+  cinfo^.mem^.alloc_large (j_common_ptr(cinfo), JPOOL_IMAGE,
+                               SIZEOF(jpeg_marker_struct) + limit) );
+      cur_marker^.next := NIL;
+      cur_marker^.marker := UINT8 (cinfo^.unread_marker);
+      cur_marker^.original_length := uint(length);
+      cur_marker^.data_length := limit;
+      { data area is just beyond the jpeg_marker_struct }
+      cur_marker^.data := JOCTET_FIELD_PTR(cur_marker);
+      Inc(jpeg_saved_marker_ptr(cur_marker^.data));
+      data := cur_marker^.data;
+
+      marker^.cur_marker := cur_marker;
+      marker^.bytes_read := 0;
+      bytes_read := 0;
+      data_length := limit;
+    end
+    else
+    begin
+      { deal with bogus length word }
+      data_length := 0;
+      bytes_read := 0;
+      data := NIL;
+    end
+  end
+  else
+  begin
+    { resume reading a marker }
+    bytes_read := marker^.bytes_read;
+    data_length := cur_marker^.data_length;
+    data := cur_marker^.data;
+    Inc(data, bytes_read);
+  end;
+
+  while (bytes_read < data_length) do
+  begin
+    { move the restart point to here }
+    datasrc^.next_input_byte := next_input_byte;
+    datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+    marker^.bytes_read := bytes_read;
+    { If there's not at least one byte in buffer, suspend }
+    if (bytes_in_buffer = 0) then
+    begin
+      if not datasrc^.fill_input_buffer (cinfo) then
+      begin
+        save_marker := FALSE;
+        exit;
+      end;
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+
+    { Copy bytes with reasonable rapidity }
+    while (bytes_read < data_length) and (bytes_in_buffer > 0) do
+    begin
+      JOCTETPTR(data)^ := next_input_byte^;
+      Inc(JOCTETPTR(data));
+      Inc(next_input_byte);
+      Dec(bytes_in_buffer);
+      Inc(bytes_read);
+    end;
+  end;
+
+  { Done reading what we want to read }
+  if (cur_marker <> NIL) then
+  begin { will be NIL if bogus length word }
+    { Add new marker to end of list }
+    if (cinfo^.marker_list = NIL) then
+    begin
+      cinfo^.marker_list := cur_marker
+    end
+    else
+    begin
+      prev := cinfo^.marker_list;
+      while (prev^.next <> NIL) do
+  prev := prev^.next;
+      prev^.next := cur_marker;
+    end;
+    { Reset pointer & calc remaining data length }
+    data := cur_marker^.data;
+    length := cur_marker^.original_length - data_length;
+  end;
+  { Reset to initial state for next marker }
+  marker^.cur_marker := NIL;
+
+  { Process the marker if interesting; else just make a generic trace msg }
+  case (cinfo^.unread_marker) of
+  M_APP0:
+    examine_app0(cinfo, data^, data_length, length);
+  M_APP14:
+    examine_app14(cinfo, data^, data_length, length);
+  else
+    {$IFDEF DEBUG}
+    TRACEMS2(j_common_ptr(cinfo), 1, JTRC_MISC_MARKER, cinfo^.unread_marker,
+       int(data_length + length));
+    {$ENDIF}
+  end;
+
+  { skip any remaining data -- could be lots }
+  { do before skip_input_data }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  if (length > 0) then
+    cinfo^.src^.skip_input_data (cinfo, long(length) );
+
+  save_marker := TRUE;
+end;
+
+{$endif} { SAVE_MARKERS_SUPPORTED }
+
+
+{ Find the next JPEG marker, save it in cinfo^.unread_marker.
+  Returns FALSE if had to suspend before reaching a marker;
+  in that case cinfo^.unread_marker is unchanged.
+
+  Note that the result might not be a valid marker code,
+  but it will never be 0 or FF. }
+
+{LOCAL}
+function next_marker (cinfo : j_decompress_ptr) : boolean;
+var
+  c : int;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+  {while TRUE do}
+  repeat
+    { Read a byte into variable c. If must suspend, return FALSE. }
+    { make a byte available.
+      Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+      but we must reload the local copies after a successful fill. }
+    if (bytes_in_buffer = 0) then
+    begin
+      if (not datasrc^.fill_input_buffer(cinfo)) then
+      begin
+        next_marker := FALSE;
+        exit;
+      end;
+      { Reload the local copies }
+      next_input_byte := datasrc^.next_input_byte;
+      bytes_in_buffer := datasrc^.bytes_in_buffer;
+    end;
+    Dec( bytes_in_buffer );
+
+    c := GETJOCTET(next_input_byte^);
+    Inc(next_input_byte);
+
+   { Skip any non-FF bytes.
+     This may look a bit inefficient, but it will not occur in a valid file.
+     We sync after each discarded byte so that a suspending data source
+     can discard the byte from its buffer. }
+
+    while (c <> $FF) do
+    begin
+      Inc(cinfo^.marker^.discarded_bytes);
+      { Unload the local copies --- do this only at a restart boundary }
+      datasrc^.next_input_byte := next_input_byte;
+      datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+      { Read a byte into variable c. If must suspend, return FALSE. }
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+      if (bytes_in_buffer = 0) then
+      begin
+        if (not datasrc^.fill_input_buffer(cinfo)) then
+        begin
+          next_marker := FALSE;
+          exit;
+        end;
+        { Reload the local copies }
+        next_input_byte := datasrc^.next_input_byte;
+        bytes_in_buffer := datasrc^.bytes_in_buffer;
+      end;
+      Dec( bytes_in_buffer );
+
+      c := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+
+    end;
+    { This loop swallows any duplicate FF bytes.  Extra FFs are legal as
+      pad bytes, so don't count them in discarded_bytes.  We assume there
+      will not be so many consecutive FF bytes as to overflow a suspending
+      data source's input buffer. }
+
+    repeat
+      { Read a byte into variable c. If must suspend, return FALSE. }
+      { make a byte available.
+        Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+        but we must reload the local copies after a successful fill. }
+      if (bytes_in_buffer = 0) then
+      begin
+        if (not datasrc^.fill_input_buffer(cinfo)) then
+        begin
+          next_marker := FALSE;
+          exit;
+        end;
+        { Reload the local copies }
+        next_input_byte := datasrc^.next_input_byte;
+        bytes_in_buffer := datasrc^.bytes_in_buffer;
+      end;
+      Dec( bytes_in_buffer );
+
+      c := GETJOCTET(next_input_byte^);
+      Inc(next_input_byte);
+    Until (c <> $FF);
+    if (c <> 0) then
+      break;      { found a valid marker, exit loop }
+    { Reach here if we found a stuffed-zero data sequence (FF/00).
+      Discard it and loop back to try again. }
+
+    Inc(cinfo^.marker^.discarded_bytes, 2);
+    { Unload the local copies --- do this only at a restart boundary }
+    datasrc^.next_input_byte := next_input_byte;
+    datasrc^.bytes_in_buffer := bytes_in_buffer;
+  Until False;
+
+  if (cinfo^.marker^.discarded_bytes <> 0) then
+  begin
+    WARNMS2(j_common_ptr(cinfo), JWRN_EXTRANEOUS_DATA,
+            cinfo^.marker^.discarded_bytes, c);
+    cinfo^.marker^.discarded_bytes := 0;
+  end;
+
+  cinfo^.unread_marker := c;
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  next_marker := TRUE;
+end;  { next_marker }
+
+
+{LOCAL}
+function first_marker (cinfo : j_decompress_ptr) : boolean;
+{ Like next_marker, but used to obtain the initial SOI marker. }
+{ For this marker, we do not allow preceding garbage or fill; otherwise,
+  we might well scan an entire input file before realizing it ain't JPEG.
+  If an application wants to process non-JFIF files, it must seek to the
+  SOI before calling the JPEG library. }
+var
+  c, c2 : int;
+var
+  datasrc : jpeg_source_mgr_ptr;
+  next_input_byte : JOCTETptr;
+  bytes_in_buffer : size_t;
+begin
+  datasrc := cinfo^.src;
+  next_input_byte := datasrc^.next_input_byte;
+  bytes_in_buffer := datasrc^.bytes_in_buffer;
+
+  { Read a byte into variable c. If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      first_marker := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  c := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  { Read a byte into variable c2. If must suspend, return FALSE. }
+  { make a byte available.
+    Note we do *not* do INPUT_SYNC before calling fill_input_buffer,
+    but we must reload the local copies after a successful fill. }
+  if (bytes_in_buffer = 0) then
+  begin
+    if (not datasrc^.fill_input_buffer(cinfo)) then
+    begin
+      first_marker := FALSE;
+      exit;
+    end;
+    { Reload the local copies }
+    next_input_byte := datasrc^.next_input_byte;
+    bytes_in_buffer := datasrc^.bytes_in_buffer;
+  end;
+  Dec( bytes_in_buffer );
+
+  c2 := GETJOCTET(next_input_byte^);
+  Inc(next_input_byte);
+
+  if (c <> $FF) or (c2 <> int(M_SOI)) then
+    ERREXIT2(j_common_ptr(cinfo), JERR_NO_SOI, c, c2);
+
+  cinfo^.unread_marker := c2;
+
+  { Unload the local copies --- do this only at a restart boundary }
+  datasrc^.next_input_byte := next_input_byte;
+  datasrc^.bytes_in_buffer := bytes_in_buffer;
+
+  first_marker := TRUE;
+end;  { first_marker }
+
+
+{ Read markers until SOS or EOI.
+
+  Returns same codes as are defined for jpeg_consume_input:
+  JPEG_SUSPENDED, JPEG_REACHED_SOS, or JPEG_REACHED_EOI.   }
+
+{METHODDEF}
+function read_markers (cinfo : j_decompress_ptr) : int;
+begin
+  { Outer loop repeats once for each marker. }
+  repeat
+    { Collect the marker proper, unless we already did. }
+    { NB: first_marker() enforces the requirement that SOI appear first. }
+    if (cinfo^.unread_marker = 0) then
+    begin
+      if not cinfo^.marker^.saw_SOI then
+      begin
+        if not first_marker(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+      end
+      else
+      begin
+        if not next_marker(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+      end;
+    end;
+    { At this point cinfo^.unread_marker contains the marker code and the
+      input point is just past the marker proper, but before any parameters.
+      A suspension will cause us to return with this state still true. }
+
+    case (cinfo^.unread_marker) of
+      M_SOI:
+        if not get_soi(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_SOF0,             { Baseline }
+      M_SOF1:             { Extended sequential, Huffman }
+        if not get_sof(cinfo, FALSE, FALSE) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+      M_SOF2:                     { Progressive, Huffman }
+        if not get_sof(cinfo, TRUE, FALSE) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_SOF9:                     { Extended sequential, arithmetic }
+        if not get_sof(cinfo, FALSE, TRUE) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_SOF10:                    { Progressive, arithmetic }
+        if not get_sof(cinfo, TRUE, TRUE) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      { Currently unsupported SOFn types }
+      M_SOF3,                     { Lossless, Huffman }
+      M_SOF5,                     { Differential sequential, Huffman }
+      M_SOF6,                     { Differential progressive, Huffman }
+      M_SOF7,                     { Differential lossless, Huffman }
+      M_JPG,                      { Reserved for JPEG extensions }
+      M_SOF11,                    { Lossless, arithmetic }
+      M_SOF13,                    { Differential sequential, arithmetic }
+      M_SOF14,                    { Differential progressive, arithmetic }
+      M_SOF15:                    { Differential lossless, arithmetic }
+        ERREXIT1(j_common_ptr(cinfo), JERR_SOF_UNSUPPORTED, cinfo^.unread_marker);
+
+      M_SOS:
+        begin
+          if not get_sos(cinfo) then
+          begin
+            read_markers := JPEG_SUSPENDED;
+            exit;
+          end;
+          cinfo^.unread_marker := 0;       { processed the marker }
+          read_markers := JPEG_REACHED_SOS;
+          exit;
+        end;
+
+      M_EOI:
+        begin
+          {$IFDEF DEBUG}
+          TRACEMS(j_common_ptr(cinfo), 1, JTRC_EOI);
+          {$ENDIF}
+          cinfo^.unread_marker := 0;       { processed the marker }
+          read_markers := JPEG_REACHED_EOI;
+          exit;
+        end;
+
+      M_DAC:
+        if not get_dac(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_DHT:
+        if not get_dht(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_DQT:
+        if not get_dqt(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_DRI:
+        if not get_dri(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_APP0,
+      M_APP1,
+      M_APP2,
+      M_APP3,
+      M_APP4,
+      M_APP5,
+      M_APP6,
+      M_APP7,
+      M_APP8,
+      M_APP9,
+      M_APP10,
+      M_APP11,
+      M_APP12,
+      M_APP13,
+      M_APP14,
+      M_APP15:
+        if not my_marker_ptr(cinfo^.marker)^.
+                process_APPn[cinfo^.unread_marker - int(M_APP0)](cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_COM:
+        if not my_marker_ptr(cinfo^.marker)^.process_COM (cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      M_RST0,   { these are all parameterless }
+      M_RST1,
+      M_RST2,
+      M_RST3,
+      M_RST4,
+      M_RST5,
+      M_RST6,
+      M_RST7,
+      M_TEM:
+        {$IFDEF DEBUG}
+        TRACEMS1(j_common_ptr(cinfo), 1, JTRC_PARMLESS_MARKER,
+          cinfo^.unread_marker)
+        {$ENDIF}
+        ;
+
+      M_DNL:    { Ignore DNL ... perhaps the wrong thing }
+        if not skip_variable(cinfo) then
+        begin
+          read_markers := JPEG_SUSPENDED;
+          exit;
+        end;
+
+      else      { must be DHP, EXP, JPGn, or RESn }
+        { For now, we treat the reserved markers as fatal errors since they are
+          likely to be used to signal incompatible JPEG Part 3 extensions.
+          Once the JPEG 3 version-number marker is well defined, this code
+          ought to change! }
+        ERREXIT1(j_common_ptr(cinfo) , JERR_UNKNOWN_MARKER,
+          cinfo^.unread_marker);
+    end; { end of case }
+    { Successfully processed marker, so reset state variable }
+    cinfo^.unread_marker := 0;
+  Until false;
+end;  { read_markers }
+
+
+{ Read a restart marker, which is expected to appear next in the datastream;
+  if the marker is not there, take appropriate recovery action.
+  Returns FALSE if suspension is required.
+
+  This is called by the entropy decoder after it has read an appropriate
+  number of MCUs.  cinfo^.unread_marker may be nonzero if the entropy decoder
+  has already read a marker from the data source.  Under normal conditions
+  cinfo^.unread_marker will be reset to 0 before returning; if not reset,
+  it holds a marker which the decoder will be unable to read past. }
+
+{METHODDEF}
+function read_restart_marker (cinfo : j_decompress_ptr) :boolean;
+begin
+  { Obtain a marker unless we already did. }
+  { Note that next_marker will complain if it skips any data. }
+  if (cinfo^.unread_marker = 0) then
+  begin
+    if not next_marker(cinfo) then
+    begin
+      read_restart_marker := FALSE;
+      exit;
+    end;
+  end;
+
+  if (cinfo^.unread_marker = (int(M_RST0) + cinfo^.marker^.next_restart_num)) then
+  begin
+    { Normal case --- swallow the marker and let entropy decoder continue }
+    {$IFDEF DEBUG}
+    TRACEMS1(j_common_ptr(cinfo), 3, JTRC_RST,
+      cinfo^.marker^.next_restart_num);
+    {$ENDIF}
+    cinfo^.unread_marker := 0;
+  end
+  else
+  begin
+    { Uh-oh, the restart markers have been messed up. }
+    { Let the data source manager determine how to resync. }
+    if not cinfo^.src^.resync_to_restart(cinfo,
+              cinfo^.marker^.next_restart_num) then
+    begin
+      read_restart_marker := FALSE;
+      exit;
+    end;
+  end;
+
+  { Update next-restart state }
+  with cinfo^.marker^ do
+    next_restart_num := (next_restart_num + 1) and 7;
+
+  read_restart_marker := TRUE;
+end; { read_restart_marker }
+
+
+{ This is the default resync_to_restart method for data source managers
+  to use if they don't have any better approach.  Some data source managers
+  may be able to back up, or may have additional knowledge about the data
+  which permits a more intelligent recovery strategy; such managers would
+  presumably supply their own resync method.
+
+  read_restart_marker calls resync_to_restart if it finds a marker other than
+  the restart marker it was expecting.  (This code is *not* used unless
+  a nonzero restart interval has been declared.)  cinfo^.unread_marker is
+  the marker code actually found (might be anything, except 0 or FF).
+  The desired restart marker number (0..7) is passed as a parameter.
+  This routine is supposed to apply whatever error recovery strategy seems
+  appropriate in order to position the input stream to the next data segment.
+  Note that cinfo^.unread_marker is treated as a marker appearing before
+  the current data-source input point; usually it should be reset to zero
+  before returning.
+  Returns FALSE if suspension is required.
+
+  This implementation is substantially constrained by wanting to treat the
+  input as a data stream; this means we can't back up.  Therefore, we have
+  only the following actions to work with:
+    1. Simply discard the marker and let the entropy decoder resume at next
+       byte of file.
+    2. Read forward until we find another marker, discarding intervening
+       data.  (In theory we could look ahead within the current bufferload,
+       without having to discard data if we don't find the desired marker.
+       This idea is not implemented here, in part because it makes behavior
+       dependent on buffer size and chance buffer-boundary positions.)
+    3. Leave the marker unread (by failing to zero cinfo^.unread_marker).
+       This will cause the entropy decoder to process an empty data segment,
+       inserting dummy zeroes, and then we will reprocess the marker.
+
+  #2 is appropriate if we think the desired marker lies ahead, while #3 is
+  appropriate if the found marker is a future restart marker (indicating
+  that we have missed the desired restart marker, probably because it got
+  corrupted).
+  We apply #2 or #3 if the found marker is a restart marker no more than
+  two counts behind or ahead of the expected one.  We also apply #2 if the
+  found marker is not a legal JPEG marker code (it's certainly bogus data).
+  If the found marker is a restart marker more than 2 counts away, we do #1
+  (too much risk that the marker is erroneous; with luck we will be able to
+  resync at some future point).
+  For any valid non-restart JPEG marker, we apply #3.  This keeps us from
+  overrunning the end of a scan.  An implementation limited to single-scan
+  files might find it better to apply #2 for markers other than EOI, since
+  any other marker would have to be bogus data in that case. }
+
+
+{GLOBAL}
+function jpeg_resync_to_restart(cinfo : j_decompress_ptr;
+                                desired : int) : boolean;
+var
+  marker : int;
+  action : int;
+begin
+  marker := cinfo^.unread_marker;
+  //action := 1;     { never used }
+  { Always put up a warning. }
+  WARNMS2(j_common_ptr(cinfo), JWRN_MUST_RESYNC, marker, desired);
+
+  { Outer loop handles repeated decision after scanning forward. }
+  repeat
+    if (marker < int(M_SOF0)) then
+      action := 2                { invalid marker }
+    else
+      if (marker < int(M_RST0)) or (marker > int(M_RST7)) then
+        action := 3                { valid non-restart marker }
+      else
+      begin
+        if (marker = (int(M_RST0) + ((desired+1) and 7))) or
+           (marker = (int(M_RST0) + ((desired+2) and 7))) then
+          action := 3              { one of the next two expected restarts }
+        else
+          if (marker = (int(M_RST0) + ((desired-1) and 7))) or
+             (marker = (int(M_RST0) + ((desired-2) and 7))) then
+            action := 2            { a prior restart, so advance }
+          else
+            action := 1;           { desired restart or too far away }
+      end;
+
+    {$IFDEF DEBUG}
+    TRACEMS2(j_common_ptr(cinfo), 4, JTRC_RECOVERY_ACTION, marker, action);
+    {$ENDIF}
+    case action of
+    1:
+      { Discard marker and let entropy decoder resume processing. }
+      begin
+        cinfo^.unread_marker := 0;
+        jpeg_resync_to_restart := TRUE;
+        exit;
+      end;
+    2:
+      { Scan to the next marker, and repeat the decision loop. }
+      begin
+        if not next_marker(cinfo) then
+        begin
+          jpeg_resync_to_restart := FALSE;
+          exit;
+        end;
+        marker := cinfo^.unread_marker;
+      end;
+    3:
+      { Return without advancing past this marker. }
+      { Entropy decoder will be forced to process an empty segment. }
+      begin
+        jpeg_resync_to_restart := TRUE;
+        exit;
+      end;
+    end; { case }
+  Until false; { end loop }
+end;  { jpeg_resync_to_restart }
+
+
+{ Reset marker processing state to begin a fresh datastream. }
+
+{METHODDEF}
+procedure reset_marker_reader (cinfo : j_decompress_ptr);
+var
+  marker : my_marker_ptr;
+begin
+  marker := my_marker_ptr (cinfo^.marker);
+  with cinfo^ do
+  begin
+    comp_info := NIL;            { until allocated by get_sof }
+    input_scan_number := 0;      { no SOS seen yet }
+    unread_marker := 0;          { no pending marker }
+  end;
+  marker^.pub.saw_SOI := FALSE;    { set internal state too }
+  marker^.pub.saw_SOF := FALSE;
+  marker^.pub.discarded_bytes := 0;
+  marker^.cur_marker := NIL;
+end; { reset_marker_reader }
+
+
+{ Initialize the marker reader module.
+  This is called only once, when the decompression object is created. }
+
+{GLOBAL}
+procedure jinit_marker_reader (cinfo : j_decompress_ptr);
+var
+  marker : my_marker_ptr;
+  i : int;
+begin
+  { Create subobject in permanent pool }
+  marker := my_marker_ptr(
+     cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_PERMANENT,
+                             SIZEOF(my_marker_reader))
+                                    );
+  cinfo^.marker := jpeg_marker_reader_ptr(marker);
+  { Initialize method pointers }
+  marker^.pub.reset_marker_reader := reset_marker_reader;
+  marker^.pub.read_markers := read_markers;
+  marker^.pub.read_restart_marker := read_restart_marker;
+  { Initialize COM/APPn processing.
+    By default, we examine and then discard APP0 and APP14,
+    but simply discard COM and all other APPn. }
+
+  marker^.process_COM := skip_variable;
+  marker^.length_limit_COM := 0;
+  for i := 0 to 16-1 do
+  begin
+    marker^.process_APPn[i] := skip_variable;
+    marker^.length_limit_APPn[i] := 0;
+  end;
+  marker^.process_APPn[0] := get_interesting_appn;
+  marker^.process_APPn[14] := get_interesting_appn;
+  { Reset marker processing state }
+  reset_marker_reader(cinfo);
+end; { jinit_marker_reader }
+
+
+{ Control saving of COM and APPn markers into marker_list. }
+
+
+{$ifdef SAVE_MARKERS_SUPPORTED}
+
+{GLOBAL}
+procedure jpeg_save_markers (cinfo : j_decompress_ptr;
+                             marker_code : int;
+                 length_limit : uint);
+var
+  marker : my_marker_ptr;
+  maxlength : long;
+  processor : jpeg_marker_parser_method;
+begin
+  marker := my_marker_ptr (cinfo^.marker);
+
+  { Length limit mustn't be larger than what we can allocate
+    (should only be a concern in a 16-bit environment). }
+
+  maxlength := cinfo^.mem^.max_alloc_chunk - SIZEOF(jpeg_marker_struct);
+  if (long(length_limit) > maxlength) then
+    length_limit := uint(maxlength);
+
+  { Choose processor routine to use.
+    APP0/APP14 have special requirements. }
+
+  if (length_limit <> 0) then
+  begin
+    processor := save_marker;
+    { If saving APP0/APP14, save at least enough for our internal use. }
+    if (marker_code = int(M_APP0)) and (length_limit < APP0_DATA_LEN) then
+      length_limit := APP0_DATA_LEN
+    else
+      if (marker_code = int(M_APP14)) and (length_limit < APP14_DATA_LEN) then
+        length_limit := APP14_DATA_LEN;
+  end
+  else
+  begin
+    processor := skip_variable;
+    { If discarding APP0/APP14, use our regular on-the-fly processor. }
+    if (marker_code = int(M_APP0)) or (marker_code = int(M_APP14)) then
+      processor := get_interesting_appn;
+  end;
+
+  if (marker_code = int(M_COM)) then
+  begin
+    marker^.process_COM := processor;
+    marker^.length_limit_COM := length_limit;
+  end
+  else
+    if (marker_code >= int(M_APP0)) and (marker_code <= int(M_APP15)) then
+    begin
+      marker^.process_APPn[marker_code - int(M_APP0)] := processor;
+      marker^.length_limit_APPn[marker_code - int(M_APP0)] := length_limit;
+    end
+    else
+      ERREXIT1(j_common_ptr(cinfo), JERR_UNKNOWN_MARKER, marker_code);
+end;
+
+{$endif} { SAVE_MARKERS_SUPPORTED }
+
+{ Install a special processing method for COM or APPn markers. }
+
+{GLOBAL}
+
+procedure jpeg_set_marker_processor (cinfo : j_decompress_ptr;
+                                     marker_code : int;
+                   routine : jpeg_marker_parser_method);
+var
+  marker : my_marker_ptr;
+begin
+  marker := my_marker_ptr (cinfo^.marker);
+  if (marker_code = int(M_COM)) then
+    marker^.process_COM := routine
+  else
+    if (marker_code >= int(M_APP0)) and (marker_code <= int(M_APP15)) then
+      marker^.process_APPn[marker_code - int(M_APP0)] := routine
+    else
+      ERREXIT1(j_common_ptr(cinfo), JERR_UNKNOWN_MARKER, marker_code);
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdmaster.pas b/src/lib/vampimg/JpegLib/imjdmaster.pas

new file mode 100644 (file)

index 0000000..4f233a0
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdmaster.pas
@@ -0,0 +1,679 @@
+unit imjdmaster;
+
+{ This file contains master control logic for the JPEG decompressor.
+  These routines are concerned with selecting the modules to be executed
+  and with determining the number of passes and the work to be done in each
+  pass. }
+
+{ Original: jdmaster.c ; Copyright (C) 1991-1998, Thomas G. Lane.  }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjutils,
+  imjerror,
+  imjdeferr,
+  imjdcolor, imjdsample, imjdpostct, imjddctmgr, imjdphuff,
+  imjdhuff, imjdcoefct, imjdmainct,
+{$ifdef QUANT_1PASS_SUPPORTED}
+  imjquant1,
+{$endif}
+{$ifdef QUANT_2PASS_SUPPORTED}
+  imjquant2,
+{$endif}
+{$ifdef UPSAMPLE_MERGING_SUPPORTED}
+  imjdmerge,
+{$endif}
+  imjpeglib;
+
+
+{ Compute output image dimensions and related values.
+  NOTE: this is exported for possible use by application.
+  Hence it mustn't do anything that can't be done twice.
+  Also note that it may be called before the master module is initialized! }
+
+{GLOBAL}
+procedure jpeg_calc_output_dimensions (cinfo : j_decompress_ptr);
+{ Do computations that are needed before master selection phase }
+
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+
+{GLOBAL}
+procedure jpeg_new_colormap (cinfo : j_decompress_ptr);
+
+{$endif}
+
+{ Initialize master decompression control and select active modules.
+  This is performed at the start of jpeg_start_decompress. }
+
+{GLOBAL}
+procedure jinit_master_decompress (cinfo : j_decompress_ptr);
+
+implementation
+
+{ Private state }
+
+type
+  my_master_ptr = ^my_decomp_master;
+  my_decomp_master = record
+    pub : jpeg_decomp_master; { public fields }
+
+    pass_number : int;    { # of passes completed }
+
+    using_merged_upsample : boolean; { TRUE if using merged upsample/cconvert }
+
+    { Saved references to initialized quantizer modules,
+      in case we need to switch modes. }
+
+    quantizer_1pass : jpeg_color_quantizer_ptr;
+    quantizer_2pass : jpeg_color_quantizer_ptr;
+  end;
+
+{ Determine whether merged upsample/color conversion should be used.
+  CRUCIAL: this must match the actual capabilities of jdmerge.c! }
+
+{LOCAL}
+function use_merged_upsample (cinfo : j_decompress_ptr) : boolean;
+var
+  compptr : jpeg_component_info_list_ptr;
+begin
+  compptr := cinfo^.comp_info;
+
+{$ifdef UPSAMPLE_MERGING_SUPPORTED}
+  { Merging is the equivalent of plain box-filter upsampling }
+  if (cinfo^.do_fancy_upsampling) or (cinfo^.CCIR601_sampling) then
+  begin
+    use_merged_upsample := FALSE;
+    exit;
+  end;
+  { jdmerge.c only supports YCC=>RGB color conversion }
+  if (cinfo^.jpeg_color_space <> JCS_YCbCr) or (cinfo^.num_components <> 3)
+  or (cinfo^.out_color_space <> JCS_RGB)
+  or (cinfo^.out_color_components <> RGB_PIXELSIZE) then
+  begin
+    use_merged_upsample := FALSE;
+    exit;
+  end;
+
+  { and it only handles 2h1v or 2h2v sampling ratios }
+  if (compptr^[0].h_samp_factor <> 2) or
+     (compptr^[1].h_samp_factor <> 1) or
+     (compptr^[2].h_samp_factor <> 1) or
+     (compptr^[0].v_samp_factor >  2) or
+     (compptr^[1].v_samp_factor <> 1) or
+     (compptr^[2].v_samp_factor <> 1) then
+  begin
+    use_merged_upsample := FALSE;
+    exit;
+  end;
+  { furthermore, it doesn't work if we've scaled the IDCTs differently }
+  if (compptr^[0].DCT_scaled_size <> cinfo^.min_DCT_scaled_size) or
+     (compptr^[1].DCT_scaled_size <> cinfo^.min_DCT_scaled_size) or
+     (compptr^[2].DCT_scaled_size <> cinfo^.min_DCT_scaled_size) then
+  begin
+    use_merged_upsample := FALSE;
+    exit;
+  end;
+  { ??? also need to test for upsample-time rescaling, when & if supported }
+  use_merged_upsample := TRUE;      { by golly, it'll work... }
+{$else}
+  use_merged_upsample := FALSE;
+{$endif}
+end;
+
+
+{ Compute output image dimensions and related values.
+  NOTE: this is exported for possible use by application.
+  Hence it mustn't do anything that can't be done twice.
+  Also note that it may be called before the master module is initialized! }
+
+{GLOBAL}
+procedure jpeg_calc_output_dimensions (cinfo : j_decompress_ptr);
+{ Do computations that are needed before master selection phase }
+{$ifdef IDCT_SCALING_SUPPORTED}
+var
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+{$endif}
+var
+  ssize : int;
+begin
+  { Prevent application from calling me at wrong times }
+  if (cinfo^.global_state <> DSTATE_READY) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+{$ifdef IDCT_SCALING_SUPPORTED}
+
+  { Compute actual output image dimensions and DCT scaling choices. }
+  if (cinfo^.scale_num * 8 <= cinfo^.scale_denom) then
+  begin
+    { Provide 1/8 scaling }
+    cinfo^.output_width := JDIMENSION (
+      jdiv_round_up( long(cinfo^.image_width), long(8)) );
+    cinfo^.output_height := JDIMENSION (
+      jdiv_round_up( long(cinfo^.image_height), long(8)) );
+    cinfo^.min_DCT_scaled_size := 1;
+  end
+  else
+    if (cinfo^.scale_num * 4 <= cinfo^.scale_denom) then
+    begin
+      { Provide 1/4 scaling }
+      cinfo^.output_width := JDIMENSION (
+        jdiv_round_up( long (cinfo^.image_width), long(4)) );
+      cinfo^.output_height := JDIMENSION (
+        jdiv_round_up( long (cinfo^.image_height), long(4)) );
+      cinfo^.min_DCT_scaled_size := 2;
+    end
+    else
+      if (cinfo^.scale_num * 2 <= cinfo^.scale_denom) then
+      begin
+        { Provide 1/2 scaling }
+        cinfo^.output_width := JDIMENSION (
+          jdiv_round_up( long(cinfo^.image_width), long(2)) );
+        cinfo^.output_height := JDIMENSION (
+          jdiv_round_up( long(cinfo^.image_height), long(2)) );
+        cinfo^.min_DCT_scaled_size := 4;
+      end
+      else
+      begin
+        { Provide 1/1 scaling }
+        cinfo^.output_width := cinfo^.image_width;
+        cinfo^.output_height := cinfo^.image_height;
+        cinfo^.min_DCT_scaled_size := DCTSIZE;
+      end;
+  { In selecting the actual DCT scaling for each component, we try to
+    scale up the chroma components via IDCT scaling rather than upsampling.
+    This saves time if the upsampler gets to use 1:1 scaling.
+    Note this code assumes that the supported DCT scalings are powers of 2. }
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    ssize := cinfo^.min_DCT_scaled_size;
+    while (ssize < DCTSIZE) and
+    ((compptr^.h_samp_factor * ssize * 2 <=
+      cinfo^.max_h_samp_factor * cinfo^.min_DCT_scaled_size) and
+     (compptr^.v_samp_factor * ssize * 2 <=
+      cinfo^.max_v_samp_factor * cinfo^.min_DCT_scaled_size)) do
+    begin
+      ssize := ssize * 2;
+    end;
+    compptr^.DCT_scaled_size := ssize;
+    Inc(compptr);
+  end;
+
+  { Recompute downsampled dimensions of components;
+    application needs to know these if using raw downsampled data. }
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Size in samples, after IDCT scaling }
+    compptr^.downsampled_width := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_width) *
+        long (compptr^.h_samp_factor * compptr^.DCT_scaled_size),
+        long (cinfo^.max_h_samp_factor * DCTSIZE)) );
+    compptr^.downsampled_height := JDIMENSION (
+      jdiv_round_up(long (cinfo^.image_height) *
+        long (compptr^.v_samp_factor * compptr^.DCT_scaled_size),
+        long (cinfo^.max_v_samp_factor * DCTSIZE)) );
+    Inc(compptr);
+  end;
+
+{$else} { !IDCT_SCALING_SUPPORTED }
+
+  { Hardwire it to "no scaling" }
+  cinfo^.output_width := cinfo^.image_width;
+  cinfo^.output_height := cinfo^.image_height;
+  { jdinput.c has already initialized DCT_scaled_size to DCTSIZE,
+    and has computed unscaled downsampled_width and downsampled_height. }
+
+{$endif} { IDCT_SCALING_SUPPORTED }
+
+  { Report number of components in selected colorspace. }
+  { Probably this should be in the color conversion module... }
+  case (cinfo^.out_color_space) of
+  JCS_GRAYSCALE:
+    cinfo^.out_color_components := 1;
+{$ifndef RGB_PIXELSIZE_IS_3}
+  JCS_RGB:
+    cinfo^.out_color_components := RGB_PIXELSIZE;
+{$else}
+  JCS_RGB,
+{$endif} { else share code with YCbCr }
+  JCS_YCbCr:
+    cinfo^.out_color_components := 3;
+  JCS_CMYK,
+  JCS_YCCK:
+    cinfo^.out_color_components := 4;
+  else      { else must be same colorspace as in file }
+    cinfo^.out_color_components := cinfo^.num_components;
+  end;
+  if (cinfo^.quantize_colors) then
+    cinfo^.output_components := 1
+  else
+    cinfo^.output_components := cinfo^.out_color_components;
+
+  { See if upsampler will want to emit more than one row at a time }
+  if (use_merged_upsample(cinfo)) then
+    cinfo^.rec_outbuf_height := cinfo^.max_v_samp_factor
+  else
+    cinfo^.rec_outbuf_height := 1;
+end;
+
+
+{ Several decompression processes need to range-limit values to the range
+  0..MAXJSAMPLE; the input value may fall somewhat outside this range
+  due to noise introduced by quantization, roundoff error, etc.  These
+  processes are inner loops and need to be as fast as possible.  On most
+  machines, particularly CPUs with pipelines or instruction prefetch,
+  a (subscript-check-less) C table lookup
+    x := sample_range_limit[x];
+  is faster than explicit tests
+    if (x < 0)  x := 0;
+    else if (x > MAXJSAMPLE)  x := MAXJSAMPLE;
+  These processes all use a common table prepared by the routine below.
+
+  For most steps we can mathematically guarantee that the initial value
+  of x is within MAXJSAMPLE+1 of the legal range, so a table running from
+  -(MAXJSAMPLE+1) to 2*MAXJSAMPLE+1 is sufficient.  But for the initial
+  limiting step (just after the IDCT), a wildly out-of-range value is
+  possible if the input data is corrupt.  To avoid any chance of indexing
+  off the end of memory and getting a bad-pointer trap, we perform the
+  post-IDCT limiting thus:
+    x := range_limit[x & MASK];
+  where MASK is 2 bits wider than legal sample data, ie 10 bits for 8-bit
+  samples.  Under normal circumstances this is more than enough range and
+  a correct output will be generated; with bogus input data the mask will
+  cause wraparound, and we will safely generate a bogus-but-in-range output.
+  For the post-IDCT step, we want to convert the data from signed to unsigned
+  representation by adding CENTERJSAMPLE at the same time that we limit it.
+  So the post-IDCT limiting table ends up looking like this:
+    CENTERJSAMPLE,CENTERJSAMPLE+1,...,MAXJSAMPLE,
+    MAXJSAMPLE (repeat 2*(MAXJSAMPLE+1)-CENTERJSAMPLE times),
+    0          (repeat 2*(MAXJSAMPLE+1)-CENTERJSAMPLE times),
+    0,1,...,CENTERJSAMPLE-1
+  Negative inputs select values from the upper half of the table after
+  masking.
+
+  We can save some space by overlapping the start of the post-IDCT table
+  with the simpler range limiting table.  The post-IDCT table begins at
+  sample_range_limit + CENTERJSAMPLE.
+
+  Note that the table is allocated in near data space on PCs; it's small
+  enough and used often enough to justify this. }
+
+{LOCAL}
+procedure prepare_range_limit_table (cinfo : j_decompress_ptr);
+{ Allocate and fill in the sample_range_limit table }
+var
+  table : range_limit_table_ptr;
+  idct_table : JSAMPROW;
+  i : int;
+begin
+  table := range_limit_table_ptr (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+    (5 * (MAXJSAMPLE+1) + CENTERJSAMPLE) * SIZEOF(JSAMPLE)) );
+
+  { First segment of "simple" table: limit[x] := 0 for x < 0 }
+  MEMZERO(table, (MAXJSAMPLE+1) * SIZEOF(JSAMPLE));
+
+  cinfo^.sample_range_limit := (table);
+  { allow negative subscripts of simple table }
+  { is noop, handled via type definition (Nomssi) }
+  { Main part of "simple" table: limit[x] := x }
+  for i := 0 to MAXJSAMPLE do
+    table^[i] := JSAMPLE (i);
+  idct_table := JSAMPROW(@ table^[CENTERJSAMPLE]);
+                        { Point to where post-IDCT table starts }
+  { End of simple table, rest of first half of post-IDCT table }
+  for i := CENTERJSAMPLE to pred(2*(MAXJSAMPLE+1)) do
+    idct_table^[i] := MAXJSAMPLE;
+  { Second half of post-IDCT table }
+  MEMZERO(@(idct_table^[2 * (MAXJSAMPLE+1)]),
+    (2 * (MAXJSAMPLE+1) - CENTERJSAMPLE) * SIZEOF(JSAMPLE));
+  MEMCOPY(@(idct_table^[(4 * (MAXJSAMPLE+1) - CENTERJSAMPLE)]),
+    @cinfo^.sample_range_limit^[0], CENTERJSAMPLE * SIZEOF(JSAMPLE));
+
+end;
+
+
+{ Master selection of decompression modules.
+  This is done once at jpeg_start_decompress time.  We determine
+  which modules will be used and give them appropriate initialization calls.
+  We also initialize the decompressor input side to begin consuming data.
+
+  Since jpeg_read_header has finished, we know what is in the SOF
+  and (first) SOS markers.  We also have all the application parameter
+  settings. }
+
+{LOCAL}
+procedure master_selection (cinfo : j_decompress_ptr);
+var
+  master : my_master_ptr;
+  use_c_buffer : boolean;
+  samplesperrow : long;
+  jd_samplesperrow : JDIMENSION;
+var
+  nscans : int;
+begin
+  master := my_master_ptr (cinfo^.master);
+
+  { Initialize dimensions and other stuff }
+  jpeg_calc_output_dimensions(cinfo);
+  prepare_range_limit_table(cinfo);
+
+  { Width of an output scanline must be representable as JDIMENSION. }
+  samplesperrow := long(cinfo^.output_width) * long (cinfo^.out_color_components);
+  jd_samplesperrow := JDIMENSION (samplesperrow);
+  if (long(jd_samplesperrow) <> samplesperrow) then
+    ERREXIT(j_common_ptr(cinfo), JERR_WIDTH_OVERFLOW);
+
+  { Initialize my private state }
+  master^.pass_number := 0;
+  master^.using_merged_upsample := use_merged_upsample(cinfo);
+
+  { Color quantizer selection }
+  master^.quantizer_1pass := NIL;
+  master^.quantizer_2pass := NIL;
+  { No mode changes if not using buffered-image mode. }
+  if (not cinfo^.quantize_colors) or (not cinfo^.buffered_image) then
+  begin
+    cinfo^.enable_1pass_quant := FALSE;
+    cinfo^.enable_external_quant := FALSE;
+    cinfo^.enable_2pass_quant := FALSE;
+  end;
+  if (cinfo^.quantize_colors) then
+  begin
+    if (cinfo^.raw_data_out) then
+      ERREXIT(j_common_ptr(cinfo), JERR_NOTIMPL);
+    { 2-pass quantizer only works in 3-component color space. }
+    if (cinfo^.out_color_components <> 3) then
+    begin
+      cinfo^.enable_1pass_quant := TRUE;
+      cinfo^.enable_external_quant := FALSE;
+      cinfo^.enable_2pass_quant := FALSE;
+      cinfo^.colormap := NIL;
+    end
+    else
+      if (cinfo^.colormap <> NIL) then
+      begin
+        cinfo^.enable_external_quant := TRUE;
+      end
+      else
+        if (cinfo^.two_pass_quantize) then
+        begin
+          cinfo^.enable_2pass_quant := TRUE;
+        end
+        else
+        begin
+          cinfo^.enable_1pass_quant := TRUE;
+        end;
+
+    if (cinfo^.enable_1pass_quant) then
+    begin
+{$ifdef QUANT_1PASS_SUPPORTED}
+      jinit_1pass_quantizer(cinfo);
+      master^.quantizer_1pass := cinfo^.cquantize;
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+    end;
+
+    { We use the 2-pass code to map to external colormaps. }
+    if (cinfo^.enable_2pass_quant) or (cinfo^.enable_external_quant) then
+    begin
+{$ifdef QUANT_2PASS_SUPPORTED}
+      jinit_2pass_quantizer(cinfo);
+      master^.quantizer_2pass := cinfo^.cquantize;
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+    end;
+    { If both quantizers are initialized, the 2-pass one is left active;
+      this is necessary for starting with quantization to an external map. }
+  end;
+
+  { Post-processing: in particular, color conversion first }
+  if (not cinfo^.raw_data_out) then
+  begin
+    if (master^.using_merged_upsample) then
+    begin
+{$ifdef UPSAMPLE_MERGING_SUPPORTED}
+      jinit_merged_upsampler(cinfo); { does color conversion too }
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+    end
+    else
+    begin
+      jinit_color_deconverter(cinfo);
+      jinit_upsampler(cinfo);
+    end;
+    jinit_d_post_controller(cinfo, cinfo^.enable_2pass_quant);
+  end;
+  { Inverse DCT }
+  jinit_inverse_dct(cinfo);
+  { Entropy decoding: either Huffman or arithmetic coding. }
+  if (cinfo^.arith_code) then
+  begin
+    ERREXIT(j_common_ptr(cinfo), JERR_ARITH_NOTIMPL);
+  end
+  else
+  begin
+    if (cinfo^.progressive_mode) then
+    begin
+{$ifdef D_PROGRESSIVE_SUPPORTED}
+      jinit_phuff_decoder(cinfo);
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif}
+    end
+    else
+      jinit_huff_decoder(cinfo);
+  end;
+
+  { Initialize principal buffer controllers. }
+  use_c_buffer := cinfo^.inputctl^.has_multiple_scans or cinfo^.buffered_image;
+  jinit_d_coef_controller(cinfo, use_c_buffer);
+
+  if (not cinfo^.raw_data_out) then
+    jinit_d_main_controller(cinfo, FALSE { never need full buffer here });
+
+  { We can now tell the memory manager to allocate virtual arrays. }
+  cinfo^.mem^.realize_virt_arrays (j_common_ptr(cinfo));
+
+  { Initialize input side of decompressor to consume first scan. }
+  cinfo^.inputctl^.start_input_pass (cinfo);
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+  { If jpeg_start_decompress will read the whole file, initialize
+    progress monitoring appropriately.  The input step is counted
+    as one pass. }
+
+  if (cinfo^.progress <> NIL) and (not cinfo^.buffered_image) and
+     (cinfo^.inputctl^.has_multiple_scans) then
+  begin
+
+    { Estimate number of scans to set pass_limit. }
+    if (cinfo^.progressive_mode) then
+    begin
+      { Arbitrarily estimate 2 interleaved DC scans + 3 AC scans/component. }
+      nscans := 2 + 3 * cinfo^.num_components;
+    end
+    else
+    begin
+      { For a nonprogressive multiscan file, estimate 1 scan per component. }
+      nscans := cinfo^.num_components;
+    end;
+    cinfo^.progress^.pass_counter := Long(0);
+    cinfo^.progress^.pass_limit := long (cinfo^.total_iMCU_rows) * nscans;
+    cinfo^.progress^.completed_passes := 0;
+    if cinfo^.enable_2pass_quant then
+      cinfo^.progress^.total_passes := 3
+    else
+      cinfo^.progress^.total_passes := 2;
+    { Count the input pass as done }
+    Inc(master^.pass_number);
+  end;
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+end;
+
+
+{ Per-pass setup.
+  This is called at the beginning of each output pass.  We determine which
+  modules will be active during this pass and give them appropriate
+  start_pass calls.  We also set is_dummy_pass to indicate whether this
+  is a "real" output pass or a dummy pass for color quantization.
+  (In the latter case, jdapistd.c will crank the pass to completion.) }
+
+{METHODDEF}
+procedure prepare_for_output_pass (cinfo : j_decompress_ptr);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr (cinfo^.master);
+
+  if (master^.pub.is_dummy_pass) then
+  begin
+{$ifdef QUANT_2PASS_SUPPORTED}
+    { Final pass of 2-pass quantization }
+    master^.pub.is_dummy_pass := FALSE;
+    cinfo^.cquantize^.start_pass (cinfo, FALSE);
+    cinfo^.post^.start_pass (cinfo, JBUF_CRANK_DEST);
+    cinfo^.main^.start_pass (cinfo, JBUF_CRANK_DEST);
+{$else}
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+{$endif} { QUANT_2PASS_SUPPORTED }
+  end
+  else
+  begin
+    if (cinfo^.quantize_colors) and (cinfo^.colormap = NIL) then
+    begin
+      { Select new quantization method }
+      if (cinfo^.two_pass_quantize) and (cinfo^.enable_2pass_quant) then
+      begin
+  cinfo^.cquantize := master^.quantizer_2pass;
+  master^.pub.is_dummy_pass := TRUE;
+      end
+      else
+        if (cinfo^.enable_1pass_quant) then
+        begin
+    cinfo^.cquantize := master^.quantizer_1pass;
+        end
+        else
+        begin
+    ERREXIT(j_common_ptr(cinfo), JERR_MODE_CHANGE);
+        end;
+    end;
+    cinfo^.idct^.start_pass (cinfo);
+    cinfo^.coef^.start_output_pass (cinfo);
+    if (not cinfo^.raw_data_out) then
+    begin
+      if (not master^.using_merged_upsample) then
+  cinfo^.cconvert^.start_pass (cinfo);
+      cinfo^.upsample^.start_pass (cinfo);
+      if (cinfo^.quantize_colors) then
+  cinfo^.cquantize^.start_pass (cinfo, master^.pub.is_dummy_pass);
+      if master^.pub.is_dummy_pass  then
+        cinfo^.post^.start_pass (cinfo, JBUF_SAVE_AND_PASS)
+      else
+        cinfo^.post^.start_pass (cinfo, JBUF_PASS_THRU);
+      cinfo^.main^.start_pass (cinfo, JBUF_PASS_THRU);
+    end;
+  end;
+
+  { Set up progress monitor's pass info if present }
+  if (cinfo^.progress <> NIL) then
+  begin
+    cinfo^.progress^.completed_passes := master^.pass_number;
+    if master^.pub.is_dummy_pass then
+      cinfo^.progress^.total_passes := master^.pass_number + 2
+    else
+      cinfo^.progress^.total_passes := master^.pass_number + 1;
+    { In buffered-image mode, we assume one more output pass if EOI not
+      yet reached, but no more passes if EOI has been reached. }
+
+    if (cinfo^.buffered_image) and (not cinfo^.inputctl^.eoi_reached) then
+    begin
+      if cinfo^.enable_2pass_quant then
+        Inc(cinfo^.progress^.total_passes, 2)
+      else
+        Inc(cinfo^.progress^.total_passes, 1);
+    end;
+  end;
+end;
+
+
+{ Finish up at end of an output pass. }
+
+{METHODDEF}
+procedure finish_output_pass (cinfo : j_decompress_ptr);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr (cinfo^.master);
+
+  if (cinfo^.quantize_colors) then
+    cinfo^.cquantize^.finish_pass (cinfo);
+  Inc(master^.pass_number);
+end;
+
+
+{$ifdef D_MULTISCAN_FILES_SUPPORTED}
+
+{ Switch to a new external colormap between output passes. }
+
+{GLOBAL}
+procedure jpeg_new_colormap (cinfo : j_decompress_ptr);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr (cinfo^.master);
+
+  { Prevent application from calling me at wrong times }
+  if (cinfo^.global_state <> DSTATE_BUFIMAGE) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_STATE, cinfo^.global_state);
+
+  if (cinfo^.quantize_colors) and (cinfo^.enable_external_quant) and
+     (cinfo^.colormap <> NIL) then
+  begin
+    { Select 2-pass quantizer for external colormap use }
+    cinfo^.cquantize := master^.quantizer_2pass;
+    { Notify quantizer of colormap change }
+    cinfo^.cquantize^.new_color_map (cinfo);
+    master^.pub.is_dummy_pass := FALSE; { just in case }
+  end
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_MODE_CHANGE);
+end;
+
+{$endif} { D_MULTISCAN_FILES_SUPPORTED }
+
+
+{ Initialize master decompression control and select active modules.
+  This is performed at the start of jpeg_start_decompress. }
+
+{GLOBAL}
+procedure jinit_master_decompress (cinfo : j_decompress_ptr);
+var
+  master : my_master_ptr;
+begin
+  master := my_master_ptr (
+      cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+          SIZEOF(my_decomp_master)) );
+  cinfo^.master := jpeg_decomp_master_ptr(master);
+  master^.pub.prepare_for_output_pass := prepare_for_output_pass;
+  master^.pub.finish_output_pass := finish_output_pass;
+
+  master^.pub.is_dummy_pass := FALSE;
+
+  master_selection(cinfo);
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdmerge.pas b/src/lib/vampimg/JpegLib/imjdmerge.pas

new file mode 100644 (file)

index 0000000..a99d195
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdmerge.pas
@@ -0,0 +1,514 @@
+unit imjdmerge;
+
+{  This file contains code for merged upsampling/color conversion.
+
+  This file combines functions from jdsample.c and jdcolor.c;
+  read those files first to understand what's going on.
+
+  When the chroma components are to be upsampled by simple replication
+  (ie, box filtering), we can save some work in color conversion by
+  calculating all the output pixels corresponding to a pair of chroma
+  samples at one time.  In the conversion equations
+  R := Y           + K1 * Cr
+  G := Y + K2 * Cb + K3 * Cr
+  B := Y + K4 * Cb
+  only the Y term varies among the group of pixels corresponding to a pair
+  of chroma samples, so the rest of the terms can be calculated just once.
+  At typical sampling ratios, this eliminates half or three-quarters of the
+  multiplications needed for color conversion.
+
+  This file currently provides implementations for the following cases:
+  YCbCr => RGB color conversion only.
+  Sampling ratios of 2h1v or 2h2v.
+  No scaling needed at upsample time.
+  Corner-aligned (non-CCIR601) sampling alignment.
+  Other special cases could be added, but in most applications these are
+  the only common cases.  (For uncommon cases we fall back on the more
+  general code in jdsample.c and jdcolor.c.) }
+
+{ Original: jdmerge.c ;  Copyright (C) 1994-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjutils;
+
+{ Module initialization routine for merged upsampling/color conversion.
+
+  NB: this is called under the conditions determined by use_merged_upsample()
+  in jdmaster.c.  That routine MUST correspond to the actual capabilities
+  of this module; no safety checks are made here. }
+
+{GLOBAL}
+procedure jinit_merged_upsampler (cinfo : j_decompress_ptr);
+
+implementation
+
+
+{ Private subobject }
+
+type  { the same definition as in JdColor }
+  int_Color_Table = array[0..MAXJSAMPLE+1-1] of int;
+  int_CConvertPtr = ^int_Color_Table;
+  INT32_Color_Table = array[0..MAXJSAMPLE+1-1] of INT32;
+  INT32_CConvertPtr = ^INT32_Color_Table;
+
+type
+  my_upsample_ptr = ^my_upsampler;
+    my_upsampler = record
+    pub : jpeg_upsampler; { public fields }
+
+    { Pointer to routine to do actual upsampling/conversion of one row group }
+    upmethod : procedure (cinfo : j_decompress_ptr;
+        input_buf : JSAMPIMAGE;
+                          in_row_group_ctr : JDIMENSION;
+        output_buf : JSAMPARRAY);
+
+    { Private state for YCC->RGB conversion }
+    Cr_r_tab : int_CConvertPtr;   { => table for Cr to R conversion }
+    Cb_b_tab : int_CConvertPtr;   { => table for Cb to B conversion }
+    Cr_g_tab : INT32_CConvertPtr; { => table for Cr to G conversion }
+    Cb_g_tab : INT32_CConvertPtr; { => table for Cb to G conversion }
+
+    { For 2:1 vertical sampling, we produce two output rows at a time.
+      We need a "spare" row buffer to hold the second output row if the
+      application provides just a one-row buffer; we also use the spare
+      to discard the dummy last row if the image height is odd. }
+
+    spare_row : JSAMPROW;
+    spare_full : boolean;   { TRUE if spare buffer is occupied }
+
+    out_row_width : JDIMENSION; { samples per output row }
+    rows_to_go : JDIMENSION;  { counts rows remaining in image }
+  end; {my_upsampler;}
+
+
+const
+  SCALEBITS = 16; { speediest right-shift on some machines }
+  ONE_HALF  = (INT32(1) shl (SCALEBITS-1));
+
+
+{ Initialize tables for YCC->RGB colorspace conversion.
+  This is taken directly from jdcolor.c; see that file for more info. }
+
+{LOCAL}
+procedure build_ycc_rgb_table (cinfo : j_decompress_ptr);
+const
+  FIX_1_40200 = INT32( Round(1.40200 * (INT32(1) shl SCALEBITS)) );
+  FIX_1_77200 = INT32( Round(1.77200 * (INT32(1) shl SCALEBITS)) );
+  FIX_0_71414 = INT32( Round(0.71414 * (INT32(1) shl SCALEBITS)) );
+  FIX_0_34414 = INT32( Round(0.34414 * (INT32(1) shl SCALEBITS)) );
+var
+  upsample : my_upsample_ptr;
+  i : int;
+  x : INT32;
+var
+  shift_temp : INT32;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  upsample^.Cr_r_tab := int_CConvertPtr (
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(int)) );
+  upsample^.Cb_b_tab := int_CConvertPtr (
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(int)) );
+  upsample^.Cr_g_tab := INT32_CConvertPtr (
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(INT32)) );
+  upsample^.Cb_g_tab := INT32_CConvertPtr (
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        (MAXJSAMPLE+1) * SIZEOF(INT32)) );
+
+  x := -CENTERJSAMPLE;
+  for i := 0 to pred(MAXJSAMPLE) do
+  begin
+    { i is the actual input pixel value, in the range 0..MAXJSAMPLE }
+    { The Cb or Cr value we are thinking of is x := i - CENTERJSAMPLE }
+    { Cr=>R value is nearest int to 1.40200 * x }
+    {upsample^.Cr_r_tab^[i] := int(
+        RIGHT_SHIFT(FIX_1_40200 * x + ONE_HALF, SCALEBITS) );}
+    shift_temp := FIX_1_40200  * x + ONE_HALF;
+    if shift_temp < 0 then  { SHIFT arithmetic RIGHT }
+      upsample^.Cr_r_tab^[i] := int((shift_temp shr SCALEBITS)
+                             or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      upsample^.Cr_r_tab^[i] := int(shift_temp shr SCALEBITS);
+
+
+    { Cb=>B value is nearest int to 1.77200 * x }
+    {upsample^.Cb_b_tab^[i] := int(
+        RIGHT_SHIFT(FIX_1_77200 * x + ONE_HALF, SCALEBITS) );}
+    shift_temp := FIX_1_77200 * x + ONE_HALF;
+    if shift_temp < 0 then  { SHIFT arithmetic RIGHT }
+      upsample^.Cb_b_tab^[i] := int((shift_temp shr SCALEBITS)
+                             or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      upsample^.Cb_b_tab^[i] := int(shift_temp shr SCALEBITS);
+
+    { Cr=>G value is scaled-up -0.71414 * x }
+    upsample^.Cr_g_tab^[i] := (- FIX_0_71414) * x;
+    { Cb=>G value is scaled-up -0.34414 * x }
+    { We also add in ONE_HALF so that need not do it in inner loop }
+    upsample^.Cb_g_tab^[i] := (- FIX_0_34414) * x + ONE_HALF;
+    Inc(x);
+  end;
+end;
+
+
+{ Initialize for an upsampling pass. }
+
+{METHODDEF}
+procedure start_pass_merged_upsample (cinfo : j_decompress_ptr);
+var
+  upsample : my_upsample_ptr;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  { Mark the spare buffer empty }
+  upsample^.spare_full := FALSE;
+  { Initialize total-height counter for detecting bottom of image }
+  upsample^.rows_to_go := cinfo^.output_height;
+end;
+
+
+{ Control routine to do upsampling (and color conversion).
+
+  The control routine just handles the row buffering considerations. }
+
+{METHODDEF}
+procedure merged_2v_upsample (cinfo : j_decompress_ptr;
+                  input_buf : JSAMPIMAGE;
+                              var in_row_group_ctr : JDIMENSION;
+                              in_row_groups_avail : JDIMENSION;
+                              output_buf : JSAMPARRAY;
+                              var out_row_ctr : JDIMENSION;
+                              out_rows_avail : JDIMENSION);
+{ 2:1 vertical sampling case: may need a spare row. }
+var
+  upsample : my_upsample_ptr;
+  work_ptrs : array[0..2-1] of JSAMPROW;
+  num_rows : JDIMENSION;    { number of rows returned to caller }
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  if (upsample^.spare_full) then
+  begin
+    { If we have a spare row saved from a previous cycle, just return it. }
+    jcopy_sample_rows(JSAMPARRAY(@upsample^.spare_row),
+                      0,
+                      JSAMPARRAY(@ output_buf^[out_row_ctr]),
+                      0, 1, upsample^.out_row_width);
+    num_rows := 1;
+    upsample^.spare_full := FALSE;
+  end
+  else
+  begin
+    { Figure number of rows to return to caller. }
+    num_rows := 2;
+    { Not more than the distance to the end of the image. }
+    if (num_rows > upsample^.rows_to_go) then
+      num_rows := upsample^.rows_to_go;
+    { And not more than what the client can accept: }
+    Dec(out_rows_avail, {var} out_row_ctr);
+    if (num_rows > out_rows_avail) then
+      num_rows := out_rows_avail;
+    { Create output pointer array for upsampler. }
+    work_ptrs[0] := output_buf^[out_row_ctr];
+    if (num_rows > 1) then
+    begin
+      work_ptrs[1] := output_buf^[out_row_ctr + 1];
+    end
+    else
+    begin
+      work_ptrs[1] := upsample^.spare_row;
+      upsample^.spare_full := TRUE;
+    end;
+    { Now do the upsampling. }
+    upsample^.upmethod (cinfo, input_buf, {var}in_row_group_ctr,
+                        JSAMPARRAY(@work_ptrs));
+  end;
+
+  { Adjust counts }
+  Inc(out_row_ctr, num_rows);
+  Dec(upsample^.rows_to_go, num_rows);
+  { When the buffer is emptied, declare this input row group consumed }
+  if (not upsample^.spare_full) then
+    Inc(in_row_group_ctr);
+end;
+
+
+{METHODDEF}
+procedure merged_1v_upsample (cinfo : j_decompress_ptr;
+                 input_buf : JSAMPIMAGE;
+                             var in_row_group_ctr : JDIMENSION;
+                 in_row_groups_avail : JDIMENSION;
+                 output_buf : JSAMPARRAY;
+                             var out_row_ctr : JDIMENSION;
+                 out_rows_avail : JDIMENSION);
+{ 1:1 vertical sampling case: much easier, never need a spare row. }
+var
+  upsample : my_upsample_ptr;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  { Just do the upsampling. }
+  upsample^.upmethod (cinfo, input_buf, in_row_group_ctr,
+       JSAMPARRAY(@ output_buf^[out_row_ctr]));
+  { Adjust counts }
+  Inc(out_row_ctr);
+  Inc(in_row_group_ctr);
+end;
+
+
+{ These are the routines invoked by the control routines to do
+  the actual upsampling/conversion.  One row group is processed per call.
+
+  Note: since we may be writing directly into application-supplied buffers,
+  we have to be honest about the output width; we can't assume the buffer
+  has been rounded up to an even width. }
+
+
+{ Upsample and color convert for the case of 2:1 horizontal and 1:1 vertical. }
+
+{METHODDEF}
+procedure h2v1_merged_upsample (cinfo : j_decompress_ptr;
+                    input_buf : JSAMPIMAGE;
+                                in_row_group_ctr : JDIMENSION;
+                    output_buf : JSAMPARRAY);
+var
+  upsample : my_upsample_ptr;
+  {register} y, cred, cgreen, cblue : int;
+  cb, cr : int;
+  {register}  outptr : JSAMPROW;
+  inptr0, inptr1, inptr2 : JSAMPLE_PTR;
+  col : JDIMENSION;
+  { copy these pointers into registers if possible }
+  {register} range_limit : range_limit_table_ptr;
+  Crrtab : int_CConvertPtr;
+  Cbbtab : int_CConvertPtr;
+  Crgtab : INT32_CConvertPtr;
+  Cbgtab : INT32_CConvertPtr;
+var
+  shift_temp : INT32;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+  range_limit := cinfo^.sample_range_limit;
+  Crrtab := upsample^.Cr_r_tab;
+  Cbbtab := upsample^.Cb_b_tab;
+  Crgtab := upsample^.Cr_g_tab;
+  Cbgtab := upsample^.Cb_g_tab;
+
+  inptr0 := JSAMPLE_PTR(input_buf^[0]^[in_row_group_ctr]);
+  inptr1 := JSAMPLE_PTR(input_buf^[1]^[in_row_group_ctr]);
+  inptr2 := JSAMPLE_PTR(input_buf^[2]^[in_row_group_ctr]);
+  outptr := output_buf^[0];
+  { Loop for each pair of output pixels }
+  for col := pred(cinfo^.output_width shr 1) downto 0 do
+  begin
+    { Do the chroma part of the calculation }
+    cb := GETJSAMPLE(inptr1^);
+    Inc(inptr1);
+    cr := GETJSAMPLE(inptr2^);
+    Inc(inptr2);
+    cred := Crrtab^[cr];
+    {cgreen := int( RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr], SCALEBITS) );}
+    shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+    if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+      cgreen := int((shift_temp shr SCALEBITS)
+                            or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cgreen := int(shift_temp shr SCALEBITS);
+
+    cblue := Cbbtab^[cb];
+    { Fetch 2 Y values and emit 2 pixels }
+    y  := GETJSAMPLE(inptr0^);
+    Inc(inptr0);
+    outptr^[RGB_RED] :=   range_limit^[y + cred];
+    outptr^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr), RGB_PIXELSIZE);
+    y  := GETJSAMPLE(inptr0^);
+    Inc(inptr0);
+    outptr^[RGB_RED] :=   range_limit^[y + cred];
+    outptr^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr), RGB_PIXELSIZE);
+  end;
+  { If image width is odd, do the last output column separately }
+  if Odd(cinfo^.output_width) then
+  begin
+    cb := GETJSAMPLE(inptr1^);
+    cr := GETJSAMPLE(inptr2^);
+    cred := Crrtab^[cr];
+    {cgreen := int ( RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr], SCALEBITS) );}
+    shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+    if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+      cgreen := int((shift_temp shr SCALEBITS)
+                            or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cgreen := int(shift_temp shr SCALEBITS);
+
+    cblue := Cbbtab^[cb];
+    y  := GETJSAMPLE(inptr0^);
+    outptr^[RGB_RED] :=   range_limit^[y + cred];
+    outptr^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr^[RGB_BLUE] :=  range_limit^[y + cblue];
+  end;
+end;
+
+
+{ Upsample and color convert for the case of 2:1 horizontal and 2:1 vertical. }
+
+{METHODDEF}
+procedure h2v2_merged_upsample (cinfo : j_decompress_ptr;
+                    input_buf : JSAMPIMAGE;
+                                in_row_group_ctr : JDIMENSION;
+                    output_buf : JSAMPARRAY);
+var
+  upsample : my_upsample_ptr;
+  {register} y, cred, cgreen, cblue : int;
+  cb, cr : int;
+  {register} outptr0, outptr1 : JSAMPROW;
+  inptr00, inptr01, inptr1, inptr2 : JSAMPLE_PTR;
+  col : JDIMENSION;
+  { copy these pointers into registers if possible }
+  {register} range_limit : range_limit_table_ptr;
+  Crrtab : int_CConvertPtr;
+  Cbbtab : int_CConvertPtr;
+  Crgtab : INT32_CConvertPtr;
+  Cbgtab : INT32_CConvertPtr;
+var
+  shift_temp : INT32;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+  range_limit := cinfo^.sample_range_limit;
+  Crrtab := upsample^.Cr_r_tab;
+  Cbbtab := upsample^.Cb_b_tab;
+  Crgtab := upsample^.Cr_g_tab;
+  Cbgtab := upsample^.Cb_g_tab;
+
+  inptr00 := JSAMPLE_PTR(input_buf^[0]^[in_row_group_ctr*2]);
+  inptr01 := JSAMPLE_PTR(input_buf^[0]^[in_row_group_ctr*2 + 1]);
+  inptr1 := JSAMPLE_PTR(input_buf^[1]^[in_row_group_ctr]);
+  inptr2 := JSAMPLE_PTR(input_buf^[2]^[in_row_group_ctr]);
+  outptr0 := output_buf^[0];
+  outptr1 := output_buf^[1];
+  { Loop for each group of output pixels }
+  for col := pred(cinfo^.output_width shr 1) downto 0 do
+  begin
+    { Do the chroma part of the calculation }
+    cb := GETJSAMPLE(inptr1^);
+    Inc(inptr1);
+    cr := GETJSAMPLE(inptr2^);
+    Inc(inptr2);
+    cred := Crrtab^[cr];
+    {cgreen := int( RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr], SCALEBITS) );}
+    shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+    if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+      cgreen := int((shift_temp shr SCALEBITS)
+                            or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cgreen := int(shift_temp shr SCALEBITS);
+
+    cblue := Cbbtab^[cb];
+    { Fetch 4 Y values and emit 4 pixels }
+    y  := GETJSAMPLE(inptr00^);
+    Inc(inptr00);
+    outptr0^[RGB_RED] :=   range_limit^[y + cred];
+    outptr0^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr0^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr0), RGB_PIXELSIZE);
+    y  := GETJSAMPLE(inptr00^);
+    Inc(inptr00);
+    outptr0^[RGB_RED] :=   range_limit^[y + cred];
+    outptr0^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr0^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr0), RGB_PIXELSIZE);
+    y  := GETJSAMPLE(inptr01^);
+    Inc(inptr01);
+    outptr1^[RGB_RED] :=   range_limit^[y + cred];
+    outptr1^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr1^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr1), RGB_PIXELSIZE);
+    y  := GETJSAMPLE(inptr01^);
+    Inc(inptr01);
+    outptr1^[RGB_RED] :=   range_limit^[y + cred];
+    outptr1^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr1^[RGB_BLUE] :=  range_limit^[y + cblue];
+    Inc(JSAMPLE_PTR(outptr1), RGB_PIXELSIZE);
+  end;
+  { If image width is odd, do the last output column separately }
+  if Odd(cinfo^.output_width) then
+  begin
+    cb := GETJSAMPLE(inptr1^);
+    cr := GETJSAMPLE(inptr2^);
+    cred := Crrtab^[cr];
+    {cgreen := int (RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr], SCALEBITS));}
+    shift_temp := Cbgtab^[cb] + Crgtab^[cr];
+    if shift_temp < 0 then   { SHIFT arithmetic RIGHT }
+      cgreen := int((shift_temp shr SCALEBITS)
+                            or ( (not INT32(0)) shl (32-SCALEBITS)))
+    else
+      cgreen := int(shift_temp shr SCALEBITS);
+
+    cblue := Cbbtab^[cb];
+    y  := GETJSAMPLE(inptr00^);
+    outptr0^[RGB_RED] :=   range_limit^[y + cred];
+    outptr0^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr0^[RGB_BLUE] :=  range_limit^[y + cblue];
+    y  := GETJSAMPLE(inptr01^);
+    outptr1^[RGB_RED] :=   range_limit^[y + cred];
+    outptr1^[RGB_GREEN] := range_limit^[y + cgreen];
+    outptr1^[RGB_BLUE] :=  range_limit^[y + cblue];
+  end;
+end;
+
+
+{ Module initialization routine for merged upsampling/color conversion.
+
+  NB: this is called under the conditions determined by use_merged_upsample()
+  in jdmaster.c.  That routine MUST correspond to the actual capabilities
+  of this module; no safety checks are made here. }
+
+
+{GLOBAL}
+procedure jinit_merged_upsampler (cinfo : j_decompress_ptr);
+var
+  upsample : my_upsample_ptr;
+begin
+  upsample := my_upsample_ptr (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_upsampler)) );
+  cinfo^.upsample := jpeg_upsampler_ptr (upsample);
+  upsample^.pub.start_pass := start_pass_merged_upsample;
+  upsample^.pub.need_context_rows := FALSE;
+
+  upsample^.out_row_width := cinfo^.output_width * JDIMENSION(cinfo^.out_color_components);
+
+  if (cinfo^.max_v_samp_factor = 2) then
+  begin
+    upsample^.pub.upsample := merged_2v_upsample;
+    upsample^.upmethod := h2v2_merged_upsample;
+    { Allocate a spare row buffer }
+    upsample^.spare_row := JSAMPROW(
+      cinfo^.mem^.alloc_large ( j_common_ptr(cinfo), JPOOL_IMAGE,
+    size_t (upsample^.out_row_width * SIZEOF(JSAMPLE))) );
+  end
+  else
+  begin
+    upsample^.pub.upsample := merged_1v_upsample;
+    upsample^.upmethod := h2v1_merged_upsample;
+    { No spare row needed }
+    upsample^.spare_row := NIL;
+  end;
+
+  build_ycc_rgb_table(cinfo);
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdphuff.pas b/src/lib/vampimg/JpegLib/imjdphuff.pas

new file mode 100644 (file)

index 0000000..1ab53d2
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdphuff.pas
@@ -0,0 +1,1061 @@
+unit imjdphuff;
+
+{ This file contains Huffman entropy decoding routines for progressive JPEG.
+
+  Much of the complexity here has to do with supporting input suspension.
+  If the data source module demands suspension, we want to be able to back
+  up to the start of the current MCU.  To do this, we copy state variables
+  into local working storage, and update them back to the permanent
+  storage only upon successful completion of an MCU. }
+
+{ Original: jdphuff.c ; Copyright (C) 1995-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjdhuff;   { Declarations shared with jdhuff.c }
+
+
+{GLOBAL}
+procedure jinit_phuff_decoder (cinfo : j_decompress_ptr);
+
+implementation
+
+{ Expanded entropy decoder object for progressive Huffman decoding.
+
+  The savable_state subrecord contains fields that change within an MCU,
+  but must not be updated permanently until we complete the MCU. }
+
+type
+  savable_state = record
+    EOBRUN : uInt;               { remaining EOBs in EOBRUN }
+    last_dc_val : array[00..MAX_COMPS_IN_SCAN-1] of int;
+                                 { last DC coef for each component }
+  end;
+
+
+type
+  phuff_entropy_ptr  = ^phuff_entropy_decoder;
+  phuff_entropy_decoder = record
+    pub : jpeg_entropy_decoder; { public fields }
+
+    { These fields are loaded into local variables at start of each MCU.
+      In case of suspension, we exit WITHOUT updating them. }
+
+    bitstate : bitread_perm_state;  { Bit buffer at start of MCU }
+    saved : savable_state;    { Other state at start of MCU }
+
+    { These fields are NOT loaded into local working state. }
+    restarts_to_go : uInt;              { MCUs left in this restart interval }
+
+    { Pointers to derived tables (these workspaces have image lifespan) }
+    derived_tbls : array[0..NUM_HUFF_TBLS-1] of d_derived_tbl_ptr;
+
+    ac_derived_tbl : d_derived_tbl_ptr; { active table during an AC scan }
+  end;
+
+
+
+{ Forward declarations }
+{METHODDEF}
+function decode_mcu_DC_first (cinfo : j_decompress_ptr;
+                              var MCU_data : array of JBLOCKROW) : boolean;
+                              forward;
+{METHODDEF}
+function decode_mcu_AC_first (cinfo : j_decompress_ptr;
+                              var MCU_data : array of JBLOCKROW) : boolean;
+                              forward;
+{METHODDEF}
+function decode_mcu_DC_refine (cinfo : j_decompress_ptr;
+                               var MCU_data : array of JBLOCKROW) : boolean;
+                               forward;
+{METHODDEF}
+function decode_mcu_AC_refine (cinfo : j_decompress_ptr;
+                               var MCU_data : array of JBLOCKROW) : boolean;
+                               forward;
+
+{ Initialize for a Huffman-compressed scan. }
+
+{METHODDEF}
+procedure start_pass_phuff_decoder (cinfo : j_decompress_ptr);
+var
+  entropy : phuff_entropy_ptr;
+  is_DC_band, bad : boolean;
+  ci, coefi, tbl : int;
+  coef_bit_ptr : coef_bits_ptr;
+  compptr : jpeg_component_info_ptr;
+var
+  cindex : int;
+  expected : int;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+
+  is_DC_band := (cinfo^.Ss = 0);
+
+  { Validate scan parameters }
+  bad := FALSE;
+  if (is_DC_band) then
+  begin
+    if (cinfo^.Se <> 0) then
+      bad := TRUE;
+  end
+  else
+  begin
+    { need not check Ss/Se < 0 since they came from unsigned bytes }
+    if (cinfo^.Ss > cinfo^.Se) or (cinfo^.Se >= DCTSIZE2) then
+      bad := TRUE;
+    { AC scans may have only one component }
+    if (cinfo^.comps_in_scan <> 1) then
+      bad := TRUE;
+  end;
+  if (cinfo^.Ah <> 0) then
+  begin
+    { Successive approximation refinement scan: must have Al = Ah-1. }
+    if (cinfo^.Al <> cinfo^.Ah-1) then
+      bad := TRUE;
+  end;
+  if (cinfo^.Al > 13) then      { need not check for < 0 }
+    bad := TRUE;
+  { Arguably the maximum Al value should be less than 13 for 8-bit precision,
+    but the spec doesn't say so, and we try to be liberal about what we
+    accept.  Note: large Al values could result in out-of-range DC
+    coefficients during early scans, leading to bizarre displays due to
+    overflows in the IDCT math.  But we won't crash. }
+
+  if (bad) then
+    ERREXIT4(j_common_ptr(cinfo), JERR_BAD_PROGRESSION,
+       cinfo^.Ss, cinfo^.Se, cinfo^.Ah, cinfo^.Al);
+  { Update progression status, and verify that scan order is legal.
+    Note that inter-scan inconsistencies are treated as warnings
+    not fatal errors ... not clear if this is right way to behave. }
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    cindex := cinfo^.cur_comp_info[ci]^.component_index;
+    coef_bit_ptr := coef_bits_ptr(@(cinfo^.coef_bits^[cindex])); {^[0] ???
+                                                                   Nomssi    }
+    if (not is_DC_band) and (coef_bit_ptr^[0] < 0) then
+      { AC without prior DC scan }
+      WARNMS2(j_common_ptr(cinfo), JWRN_BOGUS_PROGRESSION, cindex, 0);
+    for coefi := cinfo^.Ss to cinfo^.Se do
+    begin
+      if (coef_bit_ptr^[coefi] < 0) then
+        expected :=  0
+      else
+        expected := coef_bit_ptr^[coefi];
+      if (cinfo^.Ah <> expected) then
+  WARNMS2(j_common_ptr(cinfo), JWRN_BOGUS_PROGRESSION, cindex, coefi);
+      coef_bit_ptr^[coefi] := cinfo^.Al;
+    end;
+  end;
+
+  { Select MCU decoding routine }
+  if (cinfo^.Ah = 0) then
+  begin
+    if (is_DC_band) then
+      entropy^.pub.decode_mcu := decode_mcu_DC_first
+    else
+      entropy^.pub.decode_mcu := decode_mcu_AC_first;
+  end
+  else
+  begin
+    if (is_DC_band) then
+      entropy^.pub.decode_mcu := decode_mcu_DC_refine
+    else
+      entropy^.pub.decode_mcu := decode_mcu_AC_refine;
+  end;
+
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+  begin
+    compptr := cinfo^.cur_comp_info[ci];
+    { Make sure requested tables are present, and compute derived tables.
+      We may build same derived table more than once, but it's not expensive. }
+
+    if (is_DC_band) then
+    begin
+      if (cinfo^.Ah = 0) then
+      begin { DC refinement needs no table }
+  tbl := compptr^.dc_tbl_no;
+  jpeg_make_d_derived_tbl(cinfo, TRUE, tbl,
+         entropy^.derived_tbls[tbl]);
+      end;
+    end
+    else
+    begin
+      tbl := compptr^.ac_tbl_no;
+      jpeg_make_d_derived_tbl(cinfo, FALSE, tbl,
+             entropy^.derived_tbls[tbl]);
+      { remember the single active table }
+      entropy^.ac_derived_tbl := entropy^.derived_tbls[tbl];
+    end;
+    { Initialize DC predictions to 0 }
+    entropy^.saved.last_dc_val[ci] := 0;
+  end;
+
+  { Initialize bitread state variables }
+  entropy^.bitstate.bits_left := 0;
+  entropy^.bitstate.get_buffer := 0; { unnecessary, but keeps Purify quiet }
+  entropy^.pub.insufficient_data := FALSE;
+
+  { Initialize private state variables }
+  entropy^.saved.EOBRUN := 0;
+
+  { Initialize restart counter }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+end;
+
+
+{ Figure F.12: extend sign bit.
+  On some machines, a shift and add will be faster than a table lookup. }
+
+{$ifdef AVOID_TABLES}
+
+#define HUFF_EXTEND(x,s)
+  ((x) < (1shl((s)-1)) ? (x) + (((-1)shl(s)) + 1) : (x))
+
+{$else}
+
+{ #define HUFF_EXTEND(x,s)
+  if (x) < extend_test[s] then
+    (x) + extend_offset[s]
+  else
+    (x)}
+
+const
+ extend_test : Array[0..16-1] of int =   { entry n is 2**(n-1) }
+   ($0000, $0001, $0002, $0004, $0008, $0010, $0020, $0040,
+    $0080, $0100, $0200, $0400, $0800, $1000, $2000, $4000);
+
+const
+  extend_offset : array[0..16-1] of int = { entry n is (-1 shl n) + 1 }
+  ( 0, ((-1) shl 1) + 1, ((-1) shl 2) + 1, ((-1) shl 3) + 1, ((-1) shl 4) + 1,
+    ((-1) shl 5) + 1, ((-1) shl 6) + 1, ((-1) shl 7) + 1, ((-1) shl 8) + 1,
+    ((-1) shl 9) + 1, ((-1) shl 10) + 1, ((-1) shl 11) + 1, ((-1) shl 12) + 1,
+    ((-1) shl 13) + 1, ((-1) shl 14) + 1, ((-1) shl 15) + 1 );
+
+{$endif} { AVOID_TABLES }
+
+
+{ Check for a restart marker & resynchronize decoder.
+  return:=s FALSE if must suspend. }
+
+{LOCAL}
+function process_restart (cinfo : j_decompress_ptr) : boolean;
+var
+  entropy : phuff_entropy_ptr;
+  ci : int;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+
+  { Throw away any unused bits remaining in bit buffer; }
+  { include any full bytes in next_marker's count of discarded bytes }
+  Inc(cinfo^.marker^.discarded_bytes, entropy^.bitstate.bits_left div 8);
+  entropy^.bitstate.bits_left := 0;
+
+  { Advance past the RSTn marker }
+  if (not cinfo^.marker^.read_restart_marker (cinfo)) then
+  begin
+    process_restart := FALSE;
+    exit;
+  end;
+
+  { Re-initialize DC predictions to 0 }
+  for ci := 0 to pred(cinfo^.comps_in_scan) do
+    entropy^.saved.last_dc_val[ci] := 0;
+  { Re-init EOB run count, too }
+  entropy^.saved.EOBRUN := 0;
+
+  { Reset restart counter }
+  entropy^.restarts_to_go := cinfo^.restart_interval;
+
+  { Reset out-of-data flag, unless read_restart_marker left us smack up
+    against a marker.  In that case we will end up treating the next data
+    segment as empty, and we can avoid producing bogus output pixels by
+    leaving the flag set. }
+  if (cinfo^.unread_marker = 0) then
+    entropy^.pub.insufficient_data := FALSE;
+
+  process_restart := TRUE;
+end;
+
+
+{ Huffman MCU decoding.
+  Each of these routines decodes and returns one MCU's worth of
+  Huffman-compressed coefficients.
+  The coefficients are reordered from zigzag order into natural array order,
+  but are not dequantized.
+
+  The i'th block of the MCU is stored into the block pointed to by
+  MCU_data[i].  WE ASSUME THIS AREA IS INITIALLY ZEROED BY THE CALLER.
+
+  We return FALSE if data source requested suspension.  In that case no
+  changes have been made to permanent state.  (Exception: some output
+  coefficients may already have been assigned.  This is harmless for
+  spectral selection, since we'll just re-assign them on the next call.
+  Successive approximation AC refinement has to be more careful, however.) }
+
+
+{ MCU decoding for DC initial scan (either spectral selection,
+  or first pass of successive approximation). }
+
+{METHODDEF}
+function decode_mcu_DC_first (cinfo : j_decompress_ptr;
+                              var MCU_data : array of JBLOCKROW) : boolean;
+label
+  label1;
+var
+  entropy : phuff_entropy_ptr;
+  Al : int;
+  {register} s, r : int;
+  blkn, ci : int;
+  block : JBLOCK_PTR;
+  {BITREAD_STATE_VARS;}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+
+  state : savable_state;
+  tbl : d_derived_tbl_ptr;
+  compptr : jpeg_component_info_ptr;
+var
+  nb, look : int; {register}
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Al := cinfo^.Al;
+
+  { Process restart marker if needed; may have to suspend }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if (not process_restart(cinfo)) then
+      begin
+  decode_mcu_DC_first := FALSE;
+        exit;
+      end;
+  end;
+
+  { If we've run out of data, just leave the MCU set to zeroes.
+    This way, we return uniform gray for the remainder of the segment. }
+
+  if not entropy^.pub.insufficient_data then
+  begin
+
+    { Load up working state }
+    {BITREAD_LOAD_STATE(cinfo,entropy^.bitstate);}
+    br_state.cinfo := cinfo;
+    br_state.next_input_byte := cinfo^.src^.next_input_byte;
+    br_state.bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+    get_buffer := entropy^.bitstate.get_buffer;
+    bits_left := entropy^.bitstate.bits_left;
+
+    {ASSIGN_STATE(state, entropy^.saved);}
+    state := entropy^.saved;
+
+    { Outer loop handles each block in the MCU }
+
+    for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+    begin
+      block := JBLOCK_PTR(MCU_data[blkn]);
+      ci := cinfo^.MCU_membership[blkn];
+      compptr := cinfo^.cur_comp_info[ci];
+      tbl := entropy^.derived_tbls[compptr^.dc_tbl_no];
+
+      { Decode a single block's worth of coefficients }
+
+      { Section F.2.2.1: decode the DC coefficient difference }
+      {HUFF_DECODE(s, br_state, tbl, return FALSE, label1);}
+      if (bits_left < HUFF_LOOKAHEAD) then
+      begin
+        if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+        begin
+          decode_mcu_DC_first := FALSE;
+          exit;
+        end;
+        get_buffer := br_state.get_buffer;
+        bits_left := br_state.bits_left;
+        if (bits_left < HUFF_LOOKAHEAD) then
+        begin
+          nb := 1;
+          goto label1;
+        end;
+      end;
+      {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+      look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                     pred(1 shl HUFF_LOOKAHEAD);
+
+      nb := tbl^.look_nbits[look];
+      if (nb <> 0) then
+      begin
+        {DROP_BITS(nb);}
+        Dec(bits_left, nb);
+
+        s := tbl^.look_sym[look];
+      end
+      else
+      begin
+        nb := HUFF_LOOKAHEAD+1;
+    label1:
+        s := jpeg_huff_decode(br_state,get_buffer,bits_left,tbl,nb);
+        if (s < 0) then
+        begin
+          decode_mcu_DC_first := FALSE;
+          exit;
+        end;
+        get_buffer := br_state.get_buffer;
+        bits_left := br_state.bits_left;
+      end;
+
+      if (s <> 0) then
+      begin
+        {CHECK_BIT_BUFFER(br_state, s, return FALSE);}
+        if (bits_left < s) then
+        begin
+          if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,s)) then
+          begin
+            decode_mcu_DC_first := FALSE;
+            exit;
+          end;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+        end;
+
+        {r := GET_BITS(s);}
+        Dec(bits_left, s);
+        r := (int(get_buffer shr bits_left)) and ( pred(1 shl s) );
+
+        {s := HUFF_EXTEND(r, s);}
+        if (r < extend_test[s]) then
+          s := r + extend_offset[s]
+        else
+          s := r;
+      end;
+
+      { Convert DC difference to actual value, update last_dc_val }
+      Inc(s, state.last_dc_val[ci]);
+      state.last_dc_val[ci] := s;
+      { Scale and output the DC coefficient (assumes jpeg_natural_order[0]=0) }
+      block^[0] := JCOEF (s shl Al);
+    end;
+
+    { Completed MCU, so update state }
+    {BITREAD_SAVE_STATE(cinfo,entropy^.bitstate);}
+    cinfo^.src^.next_input_byte := br_state.next_input_byte;
+    cinfo^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+    entropy^.bitstate.get_buffer := get_buffer;
+    entropy^.bitstate.bits_left := bits_left;
+
+    {ASSIGN_STATE(entropy^.saved, state);}
+    entropy^.saved := state;
+  end;
+
+  { Account for restart interval (no-op if not using restarts) }
+  Dec(entropy^.restarts_to_go);
+
+  decode_mcu_DC_first := TRUE;
+end;
+
+
+{ MCU decoding for AC initial scan (either spectral selection,
+  or first pass of successive approximation). }
+
+{METHODDEF}
+function decode_mcu_AC_first (cinfo : j_decompress_ptr;
+                              var MCU_data : array of JBLOCKROW) : boolean;
+label
+  label2;
+var
+  entropy : phuff_entropy_ptr;
+  Se : int;
+  Al : int;
+  {register} s, k, r : int;
+  EOBRUN : uInt;
+  block : JBLOCK_PTR;
+  {BITREAD_STATE_VARS;}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+
+  tbl : d_derived_tbl_ptr;
+var
+  nb, look : int; {register}
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Se := cinfo^.Se;
+  Al := cinfo^.Al;
+
+  { Process restart marker if needed; may have to suspend }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if (not process_restart(cinfo)) then
+      begin
+  decode_mcu_AC_first := FALSE;
+        exit;
+      end;
+  end;
+
+  { If we've run out of data, just leave the MCU set to zeroes.
+    This way, we return uniform gray for the remainder of the segment. }
+  if not entropy^.pub.insufficient_data then
+  begin
+
+    { Load up working state.
+      We can avoid loading/saving bitread state if in an EOB run. }
+
+    EOBRUN := entropy^.saved.EOBRUN; { only part of saved state we care about }
+
+    { There is always only one block per MCU }
+
+    if (EOBRUN > 0) then       { if it's a band of zeroes... }
+      Dec(EOBRUN)              { ...process it now (we do nothing) }
+    else
+    begin
+      {BITREAD_LOAD_STATE(cinfo,entropy^.bitstate);}
+      br_state.cinfo := cinfo;
+      br_state.next_input_byte := cinfo^.src^.next_input_byte;
+      br_state.bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+      get_buffer := entropy^.bitstate.get_buffer;
+      bits_left := entropy^.bitstate.bits_left;
+
+      block := JBLOCK_PTR(MCU_data[0]);
+      tbl := entropy^.ac_derived_tbl;
+
+      k := cinfo^.Ss;
+      while (k <= Se) do
+      begin
+        {HUFF_DECODE(s, br_state, tbl, return FALSE, label2);}
+        if (bits_left < HUFF_LOOKAHEAD) then
+        begin
+          if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+          begin
+            decode_mcu_AC_first := FALSE;
+            exit;
+          end;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+          if (bits_left < HUFF_LOOKAHEAD) then
+          begin
+            nb := 1;
+            goto label2;
+          end;
+        end;
+        {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+        look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                       pred(1 shl HUFF_LOOKAHEAD);
+
+        nb := tbl^.look_nbits[look];
+        if (nb <> 0) then
+        begin
+          {DROP_BITS(nb);}
+          Dec(bits_left, nb);
+
+          s := tbl^.look_sym[look];
+        end
+        else
+        begin
+          nb := HUFF_LOOKAHEAD+1;
+      label2:
+          s := jpeg_huff_decode(br_state,get_buffer,bits_left,tbl,nb);
+          if (s < 0) then
+          begin
+            decode_mcu_AC_first := FALSE;
+            exit;
+          end;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+        end;
+
+        r := s shr 4;
+        s := s and 15;
+        if (s <> 0) then
+        begin
+          Inc(k, r);
+          {CHECK_BIT_BUFFER(br_state, s, return FALSE);}
+          if (bits_left < s) then
+          begin
+            if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,s)) then
+            begin
+              decode_mcu_AC_first := FALSE;
+              exit;
+            end;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+          end;
+
+          {r := GET_BITS(s);}
+          Dec(bits_left, s);
+          r := (int(get_buffer shr bits_left)) and ( pred(1 shl s) );
+
+          {s := HUFF_EXTEND(r, s);}
+          if (r < extend_test[s]) then
+            s := r + extend_offset[s]
+          else
+            s := r;
+
+    { Scale and output coefficient in natural (dezigzagged) order }
+          block^[jpeg_natural_order[k]] := JCOEF (s shl Al);
+        end
+        else
+        begin
+          if (r = 15) then
+          begin   { ZRL }
+            Inc(k, 15); { skip 15 zeroes in band }
+          end
+          else
+          begin   { EOBr, run length is 2^r + appended bits }
+            EOBRUN := 1 shl r;
+            if (r <> 0) then
+            begin   { EOBr, r > 0 }
+        {CHECK_BIT_BUFFER(br_state, r, return FALSE);}
+              if (bits_left < r) then
+              begin
+                if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,r)) then
+                begin
+                  decode_mcu_AC_first := FALSE;
+                  exit;
+                end;
+                get_buffer := br_state.get_buffer;
+                bits_left := br_state.bits_left;
+              end;
+
+              {r := GET_BITS(r);}
+              Dec(bits_left, r);
+              r := (int(get_buffer shr bits_left)) and ( pred(1 shl r) );
+
+              Inc(EOBRUN, r);
+            end;
+      Dec(EOBRUN);          { this band is processed at this moment }
+      break;                { force end-of-band }
+    end;
+        end;
+        Inc(k);
+      end;
+
+      {BITREAD_SAVE_STATE(cinfo,entropy^.bitstate);}
+      cinfo^.src^.next_input_byte := br_state.next_input_byte;
+      cinfo^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+      entropy^.bitstate.get_buffer := get_buffer;
+      entropy^.bitstate.bits_left := bits_left;
+    end;
+
+    { Completed MCU, so update state }
+    entropy^.saved.EOBRUN := EOBRUN; { only part of saved state we care about }
+  end;
+
+  { Account for restart interval (no-op if not using restarts) }
+  Dec(entropy^.restarts_to_go);
+
+  decode_mcu_AC_first := TRUE;
+end;
+
+
+{ MCU decoding for DC successive approximation refinement scan.
+  Note: we assume such scans can be multi-component, although the spec
+  is not very clear on the point. }
+
+{METHODDEF}
+function decode_mcu_DC_refine (cinfo : j_decompress_ptr;
+                               var MCU_data : array of JBLOCKROW) : boolean;
+
+var
+  entropy : phuff_entropy_ptr;
+  p1 : int;          { 1 in the bit position being coded }
+  blkn : int;
+  block : JBLOCK_PTR;
+  {BITREAD_STATE_VARS;}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+begin
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  p1 := 1 shl cinfo^.Al;
+
+  { Process restart marker if needed; may have to suspend }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if (not process_restart(cinfo)) then
+      begin
+  decode_mcu_DC_refine := FALSE;
+        exit;
+      end;
+  end;
+
+  { Not worth the cycles to check insufficient_data here,
+    since we will not change the data anyway if we read zeroes. }
+
+  { Load up working state }
+  {BITREAD_LOAD_STATE(cinfo,entropy^.bitstate);}
+  br_state.cinfo := cinfo;
+  br_state.next_input_byte := cinfo^.src^.next_input_byte;
+  br_state.bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+  get_buffer := entropy^.bitstate.get_buffer;
+  bits_left := entropy^.bitstate.bits_left;
+
+  { Outer loop handles each block in the MCU }
+
+  for blkn := 0 to pred(cinfo^.blocks_in_MCU) do
+  begin
+    block := JBLOCK_PTR(MCU_data[blkn]);
+
+    { Encoded data is simply the next bit of the two's-complement DC value }
+    {CHECK_BIT_BUFFER(br_state, 1, return FALSE);}
+    if (bits_left < 1) then
+    begin
+      if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,1)) then
+      begin
+        decode_mcu_DC_refine := FALSE;
+        exit;
+      end;
+      get_buffer := br_state.get_buffer;
+      bits_left := br_state.bits_left;
+    end;
+
+    {if (GET_BITS(1)) then}
+    Dec(bits_left);
+    if (int(get_buffer shr bits_left)) and ( pred(1 shl 1) ) <> 0 then
+      block^[0] := block^[0] or p1;
+    { Note: since we use OR, repeating the assignment later is safe }
+  end;
+
+  { Completed MCU, so update state }
+  {BITREAD_SAVE_STATE(cinfo,entropy^.bitstate);}
+  cinfo^.src^.next_input_byte := br_state.next_input_byte;
+  cinfo^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+  entropy^.bitstate.get_buffer := get_buffer;
+  entropy^.bitstate.bits_left := bits_left;
+
+  { Account for restart interval (no-op if not using restarts) }
+  Dec(entropy^.restarts_to_go);
+
+  decode_mcu_DC_refine := TRUE;
+end;
+
+
+{ MCU decoding for AC successive approximation refinement scan. }
+
+{METHODDEF}
+function decode_mcu_AC_refine (cinfo : j_decompress_ptr;
+                               var MCU_data : array of JBLOCKROW) : boolean;
+label
+  undoit, label3;
+var
+  entropy : phuff_entropy_ptr;
+  Se : int;
+  p1 : int;     { 1 in the bit position being coded }
+  m1 : int;     { -1 in the bit position being coded }
+  {register} s, k, r : int;
+  EOBRUN : uInt;
+  block : JBLOCK_PTR;
+  thiscoef : JCOEF_PTR;
+  {BITREAD_STATE_VARS;}
+  get_buffer : bit_buf_type ; {register}
+  bits_left : int; {register}
+  br_state : bitread_working_state;
+
+  tbl : d_derived_tbl_ptr;
+  num_newnz : int;
+  newnz_pos : array[0..DCTSIZE2-1] of int;
+var
+  pos : int;
+var
+  nb, look : int; {register}
+begin
+  num_newnz := 0;
+  block := nil;
+
+  entropy := phuff_entropy_ptr (cinfo^.entropy);
+  Se := cinfo^.Se;
+  p1 := 1 shl cinfo^.Al;  { 1 in the bit position being coded }
+  m1 := (-1) shl cinfo^.Al; { -1 in the bit position being coded }
+
+  { Process restart marker if needed; may have to suspend }
+  if (cinfo^.restart_interval <> 0) then
+  begin
+    if (entropy^.restarts_to_go = 0) then
+      if (not process_restart(cinfo)) then
+      begin
+  decode_mcu_AC_refine := FALSE;
+        exit;
+      end;
+  end;
+
+  { If we've run out of data, don't modify the MCU. }
+  if not entropy^.pub.insufficient_data then
+  begin
+
+    { Load up working state }
+    {BITREAD_LOAD_STATE(cinfo,entropy^.bitstate);}
+    br_state.cinfo := cinfo;
+    br_state.next_input_byte := cinfo^.src^.next_input_byte;
+    br_state.bytes_in_buffer := cinfo^.src^.bytes_in_buffer;
+    get_buffer := entropy^.bitstate.get_buffer;
+    bits_left := entropy^.bitstate.bits_left;
+
+    EOBRUN := entropy^.saved.EOBRUN; { only part of saved state we care about }
+
+    { There is always only one block per MCU }
+    block := JBLOCK_PTR(MCU_data[0]);
+    tbl := entropy^.ac_derived_tbl;
+
+    { If we are forced to suspend, we must undo the assignments to any newly
+      nonzero coefficients in the block, because otherwise we'd get confused
+      next time about which coefficients were already nonzero.
+      But we need not undo addition of bits to already-nonzero coefficients;
+      instead, we can test the current bit position to see if we already did it.}
+
+    num_newnz := 0;
+
+    { initialize coefficient loop counter to start of band }
+    k := cinfo^.Ss;
+
+    if (EOBRUN = 0) then
+    begin
+      while (k <= Se) do
+      begin
+        {HUFF_DECODE(s, br_state, tbl, goto undoit, label3);}
+        if (bits_left < HUFF_LOOKAHEAD) then
+        begin
+          if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left, 0)) then
+            goto undoit;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+          if (bits_left < HUFF_LOOKAHEAD) then
+          begin
+            nb := 1;
+            goto label3;
+          end;
+        end;
+        {look := PEEK_BITS(HUFF_LOOKAHEAD);}
+        look := int(get_buffer shr (bits_left -  HUFF_LOOKAHEAD)) and
+                       pred(1 shl HUFF_LOOKAHEAD);
+
+        nb := tbl^.look_nbits[look];
+        if (nb <> 0) then
+        begin
+          {DROP_BITS(nb);}
+          Dec(bits_left, nb);
+
+          s := tbl^.look_sym[look];
+        end
+        else
+        begin
+          nb := HUFF_LOOKAHEAD+1;
+      label3:
+          s := jpeg_huff_decode(br_state,get_buffer,bits_left,tbl,nb);
+          if (s < 0) then
+            goto undoit;
+          get_buffer := br_state.get_buffer;
+          bits_left := br_state.bits_left;
+        end;
+
+        r := s shr 4;
+        s := s and 15;
+        if (s <> 0) then
+        begin
+    if (s <> 1) then  { size of new coef should always be 1 }
+      WARNMS(j_common_ptr(cinfo), JWRN_HUFF_BAD_CODE);
+          {CHECK_BIT_BUFFER(br_state, 1, goto undoit);}
+          if (bits_left < 1) then
+          begin
+            if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,1)) then
+              goto undoit;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+          end;
+
+          {if (GET_BITS(1)) then}
+          Dec(bits_left);
+          if (int(get_buffer shr bits_left)) and ( pred(1 shl 1) )<>0 then
+      s := p1   { newly nonzero coef is positive }
+    else
+      s := m1;    { newly nonzero coef is negative }
+        end
+        else
+        begin
+    if (r <> 15) then
+          begin
+      EOBRUN := 1 shl r;  { EOBr, run length is 2^r + appended bits }
+      if (r <> 0) then
+            begin
+        {CHECK_BIT_BUFFER(br_state, r, goto undoit);}
+              if (bits_left < r) then
+              begin
+                if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,r)) then
+                  goto undoit;
+                get_buffer := br_state.get_buffer;
+                bits_left := br_state.bits_left;
+              end;
+
+        {r := GET_BITS(r);}
+              Dec(bits_left, r);
+              r := (int(get_buffer shr bits_left)) and ( pred(1 shl r) );
+
+        Inc(EOBRUN, r);
+      end;
+      break;    { rest of block is handled by EOB logic }
+    end;
+    { note s := 0 for processing ZRL }
+        end;
+        { Advance over already-nonzero coefs and r still-zero coefs,
+          appending correction bits to the nonzeroes.  A correction bit is 1
+          if the absolute value of the coefficient must be increased. }
+
+        repeat
+    thiscoef :=@(block^[jpeg_natural_order[k]]);
+    if (thiscoef^ <> 0) then
+          begin
+      {CHECK_BIT_BUFFER(br_state, 1, goto undoit);}
+            if (bits_left < 1) then
+            begin
+              if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,1)) then
+                goto undoit;
+              get_buffer := br_state.get_buffer;
+              bits_left := br_state.bits_left;
+            end;
+
+      {if (GET_BITS(1)) then}
+            Dec(bits_left);
+            if (int(get_buffer shr bits_left)) and ( pred(1 shl 1) )<>0 then
+            begin
+        if ((thiscoef^ and p1) = 0) then
+              begin { do nothing if already set it }
+          if (thiscoef^ >= 0) then
+      Inc(thiscoef^, p1)
+          else
+      Inc(thiscoef^, m1);
+        end;
+      end;
+    end
+          else
+          begin
+            Dec(r);
+      if (r < 0) then
+        break;    { reached target zero coefficient }
+    end;
+    Inc(k);
+        until (k > Se);
+        if (s <> 0) then
+        begin
+    pos := jpeg_natural_order[k];
+    { Output newly nonzero coefficient }
+    block^[pos] := JCOEF (s);
+    { Remember its position in case we have to suspend }
+    newnz_pos[num_newnz] := pos;
+          Inc(num_newnz);
+        end;
+        Inc(k);
+      end;
+    end;
+
+    if (EOBRUN > 0) then
+    begin
+      { Scan any remaining coefficient positions after the end-of-band
+        (the last newly nonzero coefficient, if any).  Append a correction
+        bit to each already-nonzero coefficient.  A correction bit is 1
+        if the absolute value of the coefficient must be increased. }
+
+      while (k <= Se) do
+      begin
+        thiscoef := @(block^[jpeg_natural_order[k]]);
+        if (thiscoef^ <> 0) then
+        begin
+    {CHECK_BIT_BUFFER(br_state, 1, goto undoit);}
+          if (bits_left < 1) then
+          begin
+            if (not jpeg_fill_bit_buffer(br_state,get_buffer,bits_left,1)) then
+              goto undoit;
+            get_buffer := br_state.get_buffer;
+            bits_left := br_state.bits_left;
+          end;
+
+    {if (GET_BITS(1)) then}
+          Dec(bits_left);
+          if (int(get_buffer shr bits_left)) and ( pred(1 shl 1) )<>0 then
+          begin
+      if ((thiscoef^ and p1) = 0) then
+            begin { do nothing if already changed it }
+        if (thiscoef^ >= 0) then
+          Inc(thiscoef^, p1)
+        else
+          Inc(thiscoef^, m1);
+      end;
+    end;
+        end;
+        Inc(k);
+      end;
+      { Count one block completed in EOB run }
+      Dec(EOBRUN);
+    end;
+
+    { Completed MCU, so update state }
+    {BITREAD_SAVE_STATE(cinfo,entropy^.bitstate);}
+    cinfo^.src^.next_input_byte := br_state.next_input_byte;
+    cinfo^.src^.bytes_in_buffer := br_state.bytes_in_buffer;
+    entropy^.bitstate.get_buffer := get_buffer;
+    entropy^.bitstate.bits_left := bits_left;
+
+    entropy^.saved.EOBRUN := EOBRUN; { only part of saved state we care about }
+  end;
+
+  { Account for restart interval (no-op if not using restarts) }
+  Dec(entropy^.restarts_to_go);
+
+  decode_mcu_AC_refine := TRUE;
+  exit;
+
+undoit:
+  { Re-zero any output coefficients that we made newly nonzero }
+  while (num_newnz > 0) do
+  begin
+    Dec(num_newnz);
+    block^[newnz_pos[num_newnz]] := 0;
+  end;
+
+  decode_mcu_AC_refine := FALSE;
+end;
+
+
+{ Module initialization routine for progressive Huffman entropy decoding. }
+
+{GLOBAL}
+procedure jinit_phuff_decoder (cinfo : j_decompress_ptr);
+var
+  entropy : phuff_entropy_ptr;
+  coef_bit_ptr : int_ptr;
+  ci, i : int;
+begin
+  entropy := phuff_entropy_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr (cinfo), JPOOL_IMAGE,
+        SIZEOF(phuff_entropy_decoder)) );
+  cinfo^.entropy := jpeg_entropy_decoder_ptr (entropy);
+  entropy^.pub.start_pass := start_pass_phuff_decoder;
+
+  { Mark derived tables unallocated }
+  for i := 0 to pred(NUM_HUFF_TBLS) do
+  begin
+    entropy^.derived_tbls[i] := NIL;
+  end;
+
+  { Create progression status table }
+  cinfo^.coef_bits := coef_bits_ptrrow (
+     cinfo^.mem^.alloc_small ( j_common_ptr (cinfo), JPOOL_IMAGE,
+        cinfo^.num_components*DCTSIZE2*SIZEOF(int)) );
+  coef_bit_ptr := @cinfo^.coef_bits^[0][0];
+  for ci := 0 to pred(cinfo^.num_components) do
+    for i := 0 to pred(DCTSIZE2) do
+    begin
+      coef_bit_ptr^ := -1;
+      Inc(coef_bit_ptr);
+    end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdpostct.pas b/src/lib/vampimg/JpegLib/imjdpostct.pas

new file mode 100644 (file)

index 0000000..8769550
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdpostct.pas
@@ -0,0 +1,341 @@
+unit imjdpostct;
+
+{ Original: jdpostct.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+{ This file contains the decompression postprocessing controller.
+  This controller manages the upsampling, color conversion, and color
+  quantization/reduction steps; specifically, it controls the buffering
+  between upsample/color conversion and color quantization/reduction.
+
+  If no color quantization/reduction is required, then this module has no
+  work to do, and it just hands off to the upsample/color conversion code.
+  An integrated upsample/convert/quantize process would replace this module
+  entirely. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjpeglib;
+
+{ Initialize postprocessing controller. }
+
+{GLOBAL}
+procedure jinit_d_post_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+implementation
+
+
+{ Private buffer controller object }
+
+type
+  my_post_ptr = ^my_post_controller;
+  my_post_controller = record
+    pub : jpeg_d_post_controller; { public fields }
+
+    { Color quantization source buffer: this holds output data from
+      the upsample/color conversion step to be passed to the quantizer.
+      For two-pass color quantization, we need a full-image buffer;
+      for one-pass operation, a strip buffer is sufficient. }
+
+    whole_image : jvirt_sarray_ptr;   { virtual array, or NIL if one-pass }
+    buffer : JSAMPARRAY;    { strip buffer, or current strip of virtual }
+    strip_height : JDIMENSION;  { buffer size in rows }
+    { for two-pass mode only: }
+    starting_row : JDIMENSION;  { row # of first row in current strip }
+    next_row : JDIMENSION;    { index of next row to fill/empty in strip }
+  end;
+
+{ Forward declarations }
+{METHODDEF}
+procedure post_process_1pass(cinfo : j_decompress_ptr;
+                 input_buf : JSAMPIMAGE;
+                             var in_row_group_ctr : JDIMENSION;
+                 in_row_groups_avail : JDIMENSION;
+                 output_buf : JSAMPARRAY;
+                             var out_row_ctr : JDIMENSION;
+                 out_rows_avail : JDIMENSION); forward;
+{$ifdef QUANT_2PASS_SUPPORTED}
+{METHODDEF}
+procedure post_process_prepass(cinfo : j_decompress_ptr;
+                   input_buf : JSAMPIMAGE;
+                               var in_row_group_ctr : JDIMENSION;
+                   in_row_groups_avail : JDIMENSION;
+                   output_buf : JSAMPARRAY;
+                               var out_row_ctr : JDIMENSION;
+                   out_rows_avail : JDIMENSION);  forward;
+{METHODDEF}
+procedure post_process_2pass(cinfo : j_decompress_ptr;
+                 input_buf : JSAMPIMAGE;
+                             var in_row_group_ctr : JDIMENSION;
+                 in_row_groups_avail : JDIMENSION;
+                 output_buf : JSAMPARRAY;
+                             var out_row_ctr : JDIMENSION;
+                 out_rows_avail : JDIMENSION);  forward;
+{$endif}
+
+
+{ Initialize for a processing pass. }
+
+{METHODDEF}
+procedure start_pass_dpost (cinfo : j_decompress_ptr;
+                            pass_mode : J_BUF_MODE);
+var
+  post : my_post_ptr;
+begin
+  post := my_post_ptr(cinfo^.post);
+
+  case (pass_mode) of
+  JBUF_PASS_THRU:
+    if (cinfo^.quantize_colors) then
+    begin
+      { Single-pass processing with color quantization. }
+      post^.pub.post_process_data := post_process_1pass;
+      { We could be doing buffered-image output before starting a 2-pass
+        color quantization; in that case, jinit_d_post_controller did not
+        allocate a strip buffer.  Use the virtual-array buffer as workspace. }
+      if (post^.buffer = NIL) then
+      begin
+  post^.buffer := cinfo^.mem^.access_virt_sarray
+    (j_common_ptr(cinfo), post^.whole_image,
+     JDIMENSION(0), post^.strip_height, TRUE);
+      end;
+    end
+    else
+    begin
+      { For single-pass processing without color quantization,
+        I have no work to do; just call the upsampler directly. }
+
+      post^.pub.post_process_data := cinfo^.upsample^.upsample;
+    end;
+
+{$ifdef QUANT_2PASS_SUPPORTED}
+  JBUF_SAVE_AND_PASS:
+    begin
+      { First pass of 2-pass quantization }
+      if (post^.whole_image = NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      post^.pub.post_process_data := post_process_prepass;
+    end;
+  JBUF_CRANK_DEST:
+    begin
+      { Second pass of 2-pass quantization }
+      if (post^.whole_image = NIL) then
+        ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+      post^.pub.post_process_data := post_process_2pass;
+    end;
+{$endif} { QUANT_2PASS_SUPPORTED }
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+  end;
+  post^.next_row := 0;
+  post^.starting_row := 0;
+end;
+
+
+{ Process some data in the one-pass (strip buffer) case.
+  This is used for color precision reduction as well as one-pass quantization. }
+
+{METHODDEF}
+procedure post_process_1pass (cinfo : j_decompress_ptr;
+                  input_buf : JSAMPIMAGE;
+                              var in_row_group_ctr : JDIMENSION;
+                  in_row_groups_avail : JDIMENSION;
+                  output_buf : JSAMPARRAY;
+                              var out_row_ctr : JDIMENSION;
+                  out_rows_avail : JDIMENSION);
+var
+  post : my_post_ptr;
+  num_rows, max_rows : JDIMENSION;
+begin
+  post := my_post_ptr (cinfo^.post);
+
+  { Fill the buffer, but not more than what we can dump out in one go. }
+  { Note we rely on the upsampler to detect bottom of image. }
+  max_rows := out_rows_avail - out_row_ctr;
+  if (max_rows > post^.strip_height) then
+    max_rows := post^.strip_height;
+  num_rows := 0;
+  cinfo^.upsample^.upsample (cinfo,
+                 input_buf,
+                             in_row_group_ctr,
+                             in_row_groups_avail,
+                 post^.buffer,
+                             num_rows,  { var }
+                             max_rows);
+  { Quantize and emit data. }
+
+  cinfo^.cquantize^.color_quantize (cinfo,
+    post^.buffer,
+                JSAMPARRAY(@ output_buf^[out_row_ctr]),
+                int(num_rows));
+
+  Inc(out_row_ctr, num_rows);
+end;
+
+
+{$ifdef QUANT_2PASS_SUPPORTED}
+
+{ Process some data in the first pass of 2-pass quantization. }
+
+{METHODDEF}
+procedure post_process_prepass (cinfo : j_decompress_ptr;
+                                input_buf : JSAMPIMAGE;
+                                var in_row_group_ctr : JDIMENSION;
+                    in_row_groups_avail : JDIMENSION;
+                    output_buf : JSAMPARRAY;
+                                var out_row_ctr : JDIMENSION;
+                    out_rows_avail:JDIMENSION);
+var
+  post : my_post_ptr;
+  old_next_row, num_rows : JDIMENSION;
+begin
+  post := my_post_ptr(cinfo^.post);
+
+  { Reposition virtual buffer if at start of strip. }
+  if (post^.next_row = 0) then
+  begin
+    post^.buffer := cinfo^.mem^.access_virt_sarray
+  (j_common_ptr(cinfo), post^.whole_image,
+   post^.starting_row, post^.strip_height, TRUE);
+  end;
+
+  { Upsample some data (up to a strip height's worth). }
+  old_next_row := post^.next_row;
+  cinfo^.upsample^.upsample (cinfo,
+    input_buf, in_row_group_ctr, in_row_groups_avail,
+    post^.buffer, post^.next_row, post^.strip_height);
+
+  { Allow quantizer to scan new data.  No data is emitted, }
+  { but we advance out_row_ctr so outer loop can tell when we're done. }
+  if (post^.next_row > old_next_row) then
+  begin
+    num_rows := post^.next_row - old_next_row;
+
+
+    cinfo^.cquantize^.color_quantize (cinfo,
+                      JSAMPARRAY(@ post^.buffer^[old_next_row]),
+      JSAMPARRAY(NIL),
+                        int(num_rows));
+    Inc(out_row_ctr, num_rows);
+  end;
+
+  { Advance if we filled the strip. }
+  if (post^.next_row >= post^.strip_height) then
+  begin
+    Inc(post^.starting_row, post^.strip_height);
+    post^.next_row := 0;
+  end;
+end;
+
+
+{ Process some data in the second pass of 2-pass quantization. }
+
+{METHODDEF}
+procedure post_process_2pass (cinfo : j_decompress_ptr;
+                  input_buf : JSAMPIMAGE;
+                              var in_row_group_ctr : JDIMENSION;
+                  in_row_groups_avail : JDIMENSION;
+                  output_buf : JSAMPARRAY;
+                              var out_row_ctr : JDIMENSION;
+                  out_rows_avail : JDIMENSION);
+var
+  post : my_post_ptr;
+  num_rows, max_rows : JDIMENSION;
+begin
+  post := my_post_ptr(cinfo^.post);
+
+  { Reposition virtual buffer if at start of strip. }
+  if (post^.next_row = 0) then
+  begin
+    post^.buffer := cinfo^.mem^.access_virt_sarray
+  (j_common_ptr(cinfo), post^.whole_image,
+   post^.starting_row, post^.strip_height, FALSE);
+  end;
+
+  { Determine number of rows to emit. }
+  num_rows := post^.strip_height - post^.next_row; { available in strip }
+  max_rows := out_rows_avail - out_row_ctr; { available in output area }
+  if (num_rows > max_rows) then
+    num_rows := max_rows;
+  { We have to check bottom of image here, can't depend on upsampler. }
+  max_rows := cinfo^.output_height - post^.starting_row;
+  if (num_rows > max_rows) then
+    num_rows := max_rows;
+
+  { Quantize and emit data. }
+  cinfo^.cquantize^.color_quantize (cinfo,
+                JSAMPARRAY(@ post^.buffer^[post^.next_row]),
+                JSAMPARRAY(@ output_buf^[out_row_ctr]),
+    int(num_rows));
+  Inc(out_row_ctr, num_rows);
+
+  { Advance if we filled the strip. }
+  Inc(post^.next_row, num_rows);
+  if (post^.next_row >= post^.strip_height) then
+  begin
+    Inc(post^.starting_row, post^.strip_height);
+    post^.next_row := 0;
+  end;
+end;
+
+{$endif} { QUANT_2PASS_SUPPORTED }
+
+
+{ Initialize postprocessing controller. }
+
+{GLOBAL}
+procedure jinit_d_post_controller (cinfo : j_decompress_ptr;
+                                   need_full_buffer : boolean);
+var
+  post : my_post_ptr;
+begin
+  post := my_post_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_post_controller)) );
+  cinfo^.post := jpeg_d_post_controller_ptr (post);
+  post^.pub.start_pass := start_pass_dpost;
+  post^.whole_image := NIL; { flag for no virtual arrays }
+  post^.buffer := NIL;    { flag for no strip buffer }
+
+  { Create the quantization buffer, if needed }
+  if (cinfo^.quantize_colors) then
+  begin
+    { The buffer strip height is max_v_samp_factor, which is typically
+      an efficient number of rows for upsampling to return.
+      (In the presence of output rescaling, we might want to be smarter?) }
+
+    post^.strip_height := JDIMENSION (cinfo^.max_v_samp_factor);
+    if (need_full_buffer) then
+    begin
+      { Two-pass color quantization: need full-image storage. }
+      { We round up the number of rows to a multiple of the strip height. }
+{$ifdef QUANT_2PASS_SUPPORTED}
+      post^.whole_image := cinfo^.mem^.request_virt_sarray
+  (j_common_ptr(cinfo), JPOOL_IMAGE, FALSE,
+   LongInt(cinfo^.output_width) * cinfo^.out_color_components,
+   JDIMENSION (jround_up( long(cinfo^.output_height),
+        long(post^.strip_height)) ),
+   post^.strip_height);
+{$else}
+      ERREXIT(j_common_ptr(cinfo), JERR_BAD_BUFFER_MODE);
+{$endif} { QUANT_2PASS_SUPPORTED }
+    end
+    else
+    begin
+      { One-pass color quantization: just make a strip buffer. }
+      post^.buffer := cinfo^.mem^.alloc_sarray
+  (j_common_ptr (cinfo), JPOOL_IMAGE,
+   LongInt(cinfo^.output_width) * cinfo^.out_color_components,
+   post^.strip_height);
+    end;
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjdsample.pas b/src/lib/vampimg/JpegLib/imjdsample.pas

new file mode 100644 (file)

index 0000000..ec95e34
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjdsample.pas
@@ -0,0 +1,592 @@
+unit imjdsample;
+
+{ Original: jdsample.c; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+{ This file contains upsampling routines.
+
+  Upsampling input data is counted in "row groups".  A row group
+  is defined to be (v_samp_factor * DCT_scaled_size / min_DCT_scaled_size)
+  sample rows of each component.  Upsampling will normally produce
+  max_v_samp_factor pixel rows from each row group (but this could vary
+  if the upsampler is applying a scale factor of its own).
+
+  An excellent reference for image resampling is
+    Digital Image Warping, George Wolberg, 1990.
+    Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7.}
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjutils,
+  imjpeglib,
+  imjdeferr,
+  imjerror;
+
+
+{ Pointer to routine to upsample a single component }
+type
+  upsample1_ptr = procedure (cinfo : j_decompress_ptr;
+                             compptr : jpeg_component_info_ptr;
+                             input_data : JSAMPARRAY;
+                             var output_data_ptr : JSAMPARRAY);
+
+{ Module initialization routine for upsampling. }
+
+{GLOBAL}
+procedure jinit_upsampler (cinfo : j_decompress_ptr);
+
+implementation
+
+{ Private subobject }
+
+type
+  my_upsample_ptr = ^my_upsampler;
+  my_upsampler = record
+    pub : jpeg_upsampler; { public fields }
+
+    { Color conversion buffer.  When using separate upsampling and color
+      conversion steps, this buffer holds one upsampled row group until it
+      has been color converted and output.
+      Note: we do not allocate any storage for component(s) which are full-size,
+      ie do not need rescaling.  The corresponding entry of color_buf[] is
+      simply set to point to the input data array, thereby avoiding copying.}
+
+    color_buf : array[0..MAX_COMPONENTS-1] of JSAMPARRAY;
+
+    { Per-component upsampling method pointers }
+    methods : array[0..MAX_COMPONENTS-1] of upsample1_ptr;
+
+    next_row_out : int;         { counts rows emitted from color_buf }
+    rows_to_go : JDIMENSION;    { counts rows remaining in image }
+
+    { Height of an input row group for each component. }
+    rowgroup_height : array[0..MAX_COMPONENTS-1] of int;
+
+    { These arrays save pixel expansion factors so that int_expand need not
+      recompute them each time.  They are unused for other upsampling methods.}
+    h_expand : array[0..MAX_COMPONENTS-1] of UINT8 ;
+    v_expand : array[0..MAX_COMPONENTS-1] of UINT8 ;
+  end;
+
+
+{ Initialize for an upsampling pass. }
+
+{METHODDEF}
+procedure start_pass_upsample (cinfo : j_decompress_ptr);
+var
+  upsample : my_upsample_ptr;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  { Mark the conversion buffer empty }
+  upsample^.next_row_out := cinfo^.max_v_samp_factor;
+  { Initialize total-height counter for detecting bottom of image }
+  upsample^.rows_to_go := cinfo^.output_height;
+end;
+
+
+{ Control routine to do upsampling (and color conversion).
+
+  In this version we upsample each component independently.
+  We upsample one row group into the conversion buffer, then apply
+  color conversion a row at a time. }
+
+{METHODDEF}
+procedure sep_upsample (cinfo : j_decompress_ptr;
+                  input_buf : JSAMPIMAGE;
+                        var in_row_group_ctr : JDIMENSION;
+                  in_row_groups_avail : JDIMENSION;
+                  output_buf : JSAMPARRAY;
+                        var out_row_ctr : JDIMENSION;
+                  out_rows_avail : JDIMENSION);
+var
+  upsample : my_upsample_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  num_rows : JDIMENSION;
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+
+  { Fill the conversion buffer, if it's empty }
+  if (upsample^.next_row_out >= cinfo^.max_v_samp_factor) then
+  begin
+    compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+    for ci := 0 to pred(cinfo^.num_components) do
+    begin
+      { Invoke per-component upsample method.  Notice we pass a POINTER
+        to color_buf[ci], so that fullsize_upsample can change it. }
+
+      upsample^.methods[ci] (cinfo, compptr,
+  JSAMPARRAY(@ input_buf^[ci]^
+           [LongInt(in_row_group_ctr) * upsample^.rowgroup_height[ci]]),
+  upsample^.color_buf[ci]);
+
+      Inc(compptr);
+    end;
+    upsample^.next_row_out := 0;
+  end;
+
+  { Color-convert and emit rows }
+
+  { How many we have in the buffer: }
+  num_rows := JDIMENSION (cinfo^.max_v_samp_factor - upsample^.next_row_out);
+  { Not more than the distance to the end of the image.  Need this test
+    in case the image height is not a multiple of max_v_samp_factor: }
+
+  if (num_rows > upsample^.rows_to_go) then
+    num_rows := upsample^.rows_to_go;
+  { And not more than what the client can accept: }
+  Dec(out_rows_avail, out_row_ctr);
+  if (num_rows > out_rows_avail) then
+    num_rows := out_rows_avail;
+
+  cinfo^.cconvert^.color_convert (cinfo,
+                                 JSAMPIMAGE(@(upsample^.color_buf)),
+                           JDIMENSION (upsample^.next_row_out),
+         JSAMPARRAY(@(output_buf^[out_row_ctr])),
+         int (num_rows));
+
+  { Adjust counts }
+  Inc(out_row_ctr, num_rows);
+  Dec(upsample^.rows_to_go, num_rows);
+  Inc(upsample^.next_row_out, num_rows);
+  { When the buffer is emptied, declare this input row group consumed }
+  if (upsample^.next_row_out >= cinfo^.max_v_samp_factor) then
+    Inc(in_row_group_ctr);
+end;
+
+
+{ These are the routines invoked by sep_upsample to upsample pixel values
+  of a single component.  One row group is processed per call. }
+
+
+{ For full-size components, we just make color_buf[ci] point at the
+  input buffer, and thus avoid copying any data.  Note that this is
+  safe only because sep_upsample doesn't declare the input row group
+  "consumed" until we are done color converting and emitting it. }
+
+{METHODDEF}
+procedure fullsize_upsample (cinfo : j_decompress_ptr;
+                             compptr : jpeg_component_info_ptr;
+                 input_data : JSAMPARRAY;
+                             var output_data_ptr : JSAMPARRAY);
+begin
+  output_data_ptr := input_data;
+end;
+
+
+{ This is a no-op version used for "uninteresting" components.
+  These components will not be referenced by color conversion. }
+
+{METHODDEF}
+procedure noop_upsample (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   input_data : JSAMPARRAY;
+                         var output_data_ptr : JSAMPARRAY);
+begin
+  output_data_ptr := NIL; { safety check }
+end;
+
+
+{ This version handles any integral sampling ratios.
+  This is not used for typical JPEG files, so it need not be fast.
+  Nor, for that matter, is it particularly accurate: the algorithm is
+  simple replication of the input pixel onto the corresponding output
+  pixels.  The hi-falutin sampling literature refers to this as a
+  "box filter".  A box filter tends to introduce visible artifacts,
+  so if you are actually going to use 3:1 or 4:1 sampling ratios
+  you would be well advised to improve this code. }
+
+{METHODDEF}
+procedure int_upsample (cinfo : j_decompress_ptr;
+                        compptr : jpeg_component_info_ptr;
+                  input_data : JSAMPARRAY;
+                        var output_data_ptr : JSAMPARRAY);
+var
+  upsample : my_upsample_ptr;
+  output_data : JSAMPARRAY;
+  {register} inptr, outptr : JSAMPLE_PTR;
+  {register} invalue : JSAMPLE;
+  {register} h : int;
+  {outend}
+  h_expand, v_expand : int;
+  inrow, outrow : int;
+var
+  outcount : int;  { Nomssi: avoid pointer arithmetic }
+begin
+  upsample := my_upsample_ptr (cinfo^.upsample);
+  output_data := output_data_ptr;
+
+  h_expand := upsample^.h_expand[compptr^.component_index];
+  v_expand := upsample^.v_expand[compptr^.component_index];
+
+  inrow := 0;
+  outrow := 0;
+  while (outrow < cinfo^.max_v_samp_factor) do
+  begin
+    { Generate one output row with proper horizontal expansion }
+    inptr := JSAMPLE_PTR(input_data^[inrow]);
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    outcount := cinfo^.output_width;
+    while (outcount > 0) do     { Nomssi }
+    begin
+      invalue := inptr^;  { don't need GETJSAMPLE() here }
+      Inc(inptr);
+      for h := pred(h_expand) downto 0 do
+      begin
+  outptr^ := invalue;
+        inc(outptr);       { <-- fix: this was left out in PasJpeg 1.0 }
+        Dec(outcount);        { thanks to Jannie Gerber for the report }
+      end;
+    end;
+
+    { Generate any additional output rows by duplicating the first one }
+    if (v_expand > 1) then
+    begin
+      jcopy_sample_rows(output_data, outrow, output_data, outrow+1,
+      v_expand-1, cinfo^.output_width);
+    end;
+    Inc(inrow);
+    Inc(outrow, v_expand);
+  end;
+end;
+
+
+{ Fast processing for the common case of 2:1 horizontal and 1:1 vertical.
+  It's still a box filter. }
+
+{METHODDEF}
+procedure h2v1_upsample (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   input_data : JSAMPARRAY;
+                         var output_data_ptr : JSAMPARRAY);
+var
+  output_data : JSAMPARRAY;
+  {register} inptr, outptr : JSAMPLE_PTR;
+  {register} invalue : JSAMPLE;
+  {outend : JSAMPROW;}
+  outcount : int;
+  inrow : int;
+begin
+  output_data := output_data_ptr;
+
+  for inrow := 0 to pred(cinfo^.max_v_samp_factor) do
+  begin
+    inptr := JSAMPLE_PTR(input_data^[inrow]);
+    outptr := JSAMPLE_PTR(output_data^[inrow]);
+    {outend := outptr + cinfo^.output_width;}
+    outcount := cinfo^.output_width;
+    while (outcount > 0) do
+    begin
+      invalue := inptr^;  { don't need GETJSAMPLE() here }
+      Inc(inptr);
+      outptr^ := invalue;
+      Inc(outptr);
+      outptr^ := invalue;
+      Inc(outptr);
+      Dec(outcount, 2);         { Nomssi: to avoid pointer arithmetic }
+    end;
+  end;
+end;
+
+
+{ Fast processing for the common case of 2:1 horizontal and 2:1 vertical.
+  It's still a box filter. }
+
+{METHODDEF}
+procedure h2v2_upsample (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   input_data : JSAMPARRAY;
+                         var output_data_ptr : JSAMPARRAY);
+var
+  output_data : JSAMPARRAY;
+  {register} inptr, outptr : JSAMPLE_PTR;
+  {register} invalue : JSAMPLE;
+  {outend : JSAMPROW;}
+  outcount : int;
+  inrow, outrow : int;
+begin
+  output_data := output_data_ptr;
+
+  inrow := 0;
+  outrow := 0;
+  while (outrow < cinfo^.max_v_samp_factor) do
+  begin
+    inptr := JSAMPLE_PTR(input_data^[inrow]);
+    outptr := JSAMPLE_PTR(output_data^[outrow]);
+    {outend := outptr + cinfo^.output_width;}
+    outcount := cinfo^.output_width;
+    while (outcount > 0) do
+    begin
+      invalue := inptr^;  { don't need GETJSAMPLE() here }
+      Inc(inptr);
+      outptr^ := invalue;
+      Inc(outptr);
+      outptr^ := invalue;
+      Inc(outptr);
+      Dec(outcount, 2);
+    end;
+    jcopy_sample_rows(output_data, outrow, output_data, outrow+1,
+          1, cinfo^.output_width);
+    Inc(inrow);
+    Inc(outrow, 2);
+  end;
+end;
+
+
+{ Fancy processing for the common case of 2:1 horizontal and 1:1 vertical.
+
+  The upsampling algorithm is linear interpolation between pixel centers,
+  also known as a "triangle filter".  This is a good compromise between
+  speed and visual quality.  The centers of the output pixels are 1/4 and 3/4
+  of the way between input pixel centers.
+
+  A note about the "bias" calculations: when rounding fractional values to
+  integer, we do not want to always round 0.5 up to the next integer.
+  If we did that, we'd introduce a noticeable bias towards larger values.
+  Instead, this code is arranged so that 0.5 will be rounded up or down at
+  alternate pixel locations (a simple ordered dither pattern). }
+
+{METHODDEF}
+procedure h2v1_fancy_upsample (cinfo : j_decompress_ptr;
+                               compptr : jpeg_component_info_ptr;
+                               input_data : JSAMPARRAY;
+                               var output_data_ptr : JSAMPARRAY);
+var
+  output_data : JSAMPARRAY;
+  {register} pre_inptr, inptr, outptr : JSAMPLE_PTR;
+  {register} invalue : int;
+  {register} colctr : JDIMENSION;
+  inrow : int;
+begin
+  output_data := output_data_ptr;
+
+  for inrow := 0 to pred(cinfo^.max_v_samp_factor) do
+  begin
+    inptr := JSAMPLE_PTR(input_data^[inrow]);
+    outptr := JSAMPLE_PTR(output_data^[inrow]);
+    { Special case for first column }
+    pre_inptr := inptr;
+    invalue := GETJSAMPLE(inptr^);
+    Inc(inptr);
+    outptr^ := JSAMPLE (invalue);
+    Inc(outptr);
+    outptr^ := JSAMPLE ((invalue * 3 + GETJSAMPLE(inptr^) + 2) shr 2);
+    Inc(outptr);
+
+    for colctr := pred(compptr^.downsampled_width - 2) downto 0 do
+    begin
+      { General case: 3/4 * nearer pixel + 1/4 * further pixel }
+      invalue := GETJSAMPLE(inptr^) * 3;
+      Inc(inptr);
+      outptr^ := JSAMPLE ((invalue + GETJSAMPLE(pre_inptr^) + 1) shr 2);
+      Inc(pre_inptr);
+      Inc(outptr);
+      outptr^ := JSAMPLE ((invalue + GETJSAMPLE(inptr^) + 2) shr 2);
+      Inc(outptr);
+    end;
+
+    { Special case for last column }
+    invalue := GETJSAMPLE(inptr^);
+    outptr^ := JSAMPLE ((invalue * 3 + GETJSAMPLE(pre_inptr^) + 1) shr 2);
+    Inc(outptr);
+    outptr^ := JSAMPLE (invalue);
+    {Inc(outptr);                        - value never used }
+  end;
+end;
+
+
+{ Fancy processing for the common case of 2:1 horizontal and 2:1 vertical.
+  Again a triangle filter; see comments for h2v1 case, above.
+
+  It is OK for us to reference the adjacent input rows because we demanded
+  context from the main buffer controller (see initialization code). }
+
+{METHODDEF}
+procedure h2v2_fancy_upsample (cinfo : j_decompress_ptr;
+                               compptr : jpeg_component_info_ptr;
+                   input_data : JSAMPARRAY;
+                               var output_data_ptr : JSAMPARRAY);
+var
+  output_data : JSAMPARRAY;
+  {register} inptr0, inptr1, outptr : JSAMPLE_PTR;
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+  {register} thiscolsum, lastcolsum, nextcolsum : int;
+{$else}
+  {register} thiscolsum, lastcolsum, nextcolsum : INT32;
+{$endif}
+  {register} colctr : JDIMENSION;
+  inrow, outrow, v : int;
+var
+  prev_input_data : JSAMPARRAY;  { Nomssi work around }
+begin
+  output_data := output_data_ptr;
+
+  outrow := 0;
+  inrow := 0;
+  while (outrow < cinfo^.max_v_samp_factor) do
+  begin
+    for v := 0 to pred(2) do
+    begin
+      { inptr0 points to nearest input row, inptr1 points to next nearest }
+      inptr0 := JSAMPLE_PTR(input_data^[inrow]);
+      if (v = 0) then         { next nearest is row above }
+      begin
+  {inptr1 := JSAMPLE_PTR(input_data^[inrow-1]);}
+        prev_input_data := input_data;       { work around }
+        Dec(JSAMPROW_PTR(prev_input_data));  { negative offsets }
+  inptr1 := JSAMPLE_PTR(prev_input_data^[inrow]);
+      end
+      else                    { next nearest is row below }
+  inptr1 := JSAMPLE_PTR(input_data^[inrow+1]);
+      outptr := JSAMPLE_PTR(output_data^[outrow]);
+      Inc(outrow);
+
+      { Special case for first column }
+      thiscolsum := GETJSAMPLE(inptr0^) * 3 + GETJSAMPLE(inptr1^);
+      Inc(inptr0);
+      Inc(inptr1);
+      nextcolsum := GETJSAMPLE(inptr0^) * 3 + GETJSAMPLE(inptr1^);
+      Inc(inptr0);
+      Inc(inptr1);
+
+      outptr^ := JSAMPLE ((thiscolsum * 4 + 8) shr 4);
+      Inc(outptr);
+      outptr^ := JSAMPLE ((thiscolsum * 3 + nextcolsum + 7) shr 4);
+      Inc(outptr);
+      lastcolsum := thiscolsum; thiscolsum := nextcolsum;
+
+      for colctr := pred(compptr^.downsampled_width - 2) downto 0 do
+      begin
+  { General case: 3/4 * nearer pixel + 1/4 * further pixel in each }
+  { dimension, thus 9/16, 3/16, 3/16, 1/16 overall }
+  nextcolsum := GETJSAMPLE(inptr0^) * 3 + GETJSAMPLE(inptr1^);
+        Inc(inptr0);
+        Inc(inptr1);
+  outptr^ := JSAMPLE ((thiscolsum * 3 + lastcolsum + 8) shr 4);
+        Inc(outptr);
+  outptr^ := JSAMPLE ((thiscolsum * 3 + nextcolsum + 7) shr 4);
+        Inc(outptr);
+  lastcolsum := thiscolsum;
+        thiscolsum := nextcolsum;
+      end;
+
+      { Special case for last column }
+      outptr^ := JSAMPLE ((thiscolsum * 3 + lastcolsum + 8) shr 4);
+      Inc(outptr);
+      outptr^ := JSAMPLE ((thiscolsum * 4 + 7) shr 4);
+      {Inc(outptr);                     - value never used }
+    end;
+    Inc(inrow);
+  end;
+end;
+
+
+{ Module initialization routine for upsampling. }
+
+{GLOBAL}
+procedure jinit_upsampler (cinfo : j_decompress_ptr);
+var
+  upsample : my_upsample_ptr;
+  ci : int;
+  compptr : jpeg_component_info_ptr;
+  need_buffer, do_fancy : boolean;
+  h_in_group, v_in_group, h_out_group, v_out_group : int;
+begin
+  upsample := my_upsample_ptr (
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_upsampler)) );
+  cinfo^.upsample := jpeg_upsampler_ptr (upsample);
+  upsample^.pub.start_pass := start_pass_upsample;
+  upsample^.pub.upsample := sep_upsample;
+  upsample^.pub.need_context_rows := FALSE; { until we find out differently }
+
+  if (cinfo^.CCIR601_sampling)  then        { this isn't supported }
+    ERREXIT(j_common_ptr(cinfo), JERR_CCIR601_NOTIMPL);
+
+  { jdmainct.c doesn't support context rows when min_DCT_scaled_size := 1,
+    so don't ask for it. }
+
+  do_fancy := cinfo^.do_fancy_upsampling and (cinfo^.min_DCT_scaled_size > 1);
+
+  { Verify we can handle the sampling factors, select per-component methods,
+    and create storage as needed. }
+
+  compptr := jpeg_component_info_ptr(cinfo^.comp_info);
+  for ci := 0 to pred(cinfo^.num_components) do
+  begin
+    { Compute size of an "input group" after IDCT scaling.  This many samples
+      are to be converted to max_h_samp_factor * max_v_samp_factor pixels. }
+
+    h_in_group := (compptr^.h_samp_factor * compptr^.DCT_scaled_size) div
+     cinfo^.min_DCT_scaled_size;
+    v_in_group := (compptr^.v_samp_factor * compptr^.DCT_scaled_size) div
+     cinfo^.min_DCT_scaled_size;
+    h_out_group := cinfo^.max_h_samp_factor;
+    v_out_group := cinfo^.max_v_samp_factor;
+    upsample^.rowgroup_height[ci] := v_in_group; { save for use later }
+    need_buffer := TRUE;
+    if (not compptr^.component_needed) then
+    begin
+      { Don't bother to upsample an uninteresting component. }
+      upsample^.methods[ci] := noop_upsample;
+      need_buffer := FALSE;
+    end
+    else
+      if (h_in_group = h_out_group) and (v_in_group = v_out_group) then
+      begin
+        { Fullsize components can be processed without any work. }
+        upsample^.methods[ci] := fullsize_upsample;
+        need_buffer := FALSE;
+      end
+      else
+        if (h_in_group * 2 = h_out_group) and
+           (v_in_group = v_out_group) then
+        begin
+        { Special cases for 2h1v upsampling }
+          if (do_fancy) and (compptr^.downsampled_width > 2) then
+      upsample^.methods[ci] := h2v1_fancy_upsample
+          else
+      upsample^.methods[ci] := h2v1_upsample;
+        end
+        else
+          if (h_in_group * 2 = h_out_group) and
+             (v_in_group * 2 = v_out_group) then
+          begin
+            { Special cases for 2h2v upsampling }
+            if (do_fancy) and (compptr^.downsampled_width > 2) then
+            begin
+        upsample^.methods[ci] := h2v2_fancy_upsample;
+        upsample^.pub.need_context_rows := TRUE;
+            end
+            else
+        upsample^.methods[ci] := h2v2_upsample;
+          end
+          else
+            if ((h_out_group mod h_in_group) = 0) and
+               ((v_out_group mod v_in_group) = 0) then
+            begin
+              { Generic integral-factors upsampling method }
+              upsample^.methods[ci] := int_upsample;
+              upsample^.h_expand[ci] := UINT8 (h_out_group div h_in_group);
+              upsample^.v_expand[ci] := UINT8 (v_out_group div v_in_group);
+            end
+            else
+              ERREXIT(j_common_ptr(cinfo), JERR_FRACT_SAMPLE_NOTIMPL);
+    if (need_buffer) then
+    begin
+      upsample^.color_buf[ci] := cinfo^.mem^.alloc_sarray
+  (j_common_ptr(cinfo), JPOOL_IMAGE,
+   JDIMENSION (jround_up( long (cinfo^.output_width),
+        long (cinfo^.max_h_samp_factor))),
+   JDIMENSION (cinfo^.max_v_samp_factor));
+    end;
+    Inc(compptr);
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjerror.pas b/src/lib/vampimg/JpegLib/imjerror.pas

new file mode 100644 (file)

index 0000000..11f53fd
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjerror.pas
@@ -0,0 +1,462 @@
+unit imjerror;
+
+{ This file contains simple error-reporting and trace-message routines.
+  These are suitable for Unix-like systems and others where writing to
+  stderr is the right thing to do.  Many applications will want to replace
+  some or all of these routines.
+
+  These routines are used by both the compression and decompression code. }
+
+{ Source: jerror.c;  Copyright (C) 1991-1996, Thomas G. Lane. }
+{ note: format_message still contains a hack }
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjdeferr,
+  imjpeglib;
+{
+  jversion;
+}
+
+const
+  EXIT_FAILURE  = 1;   { define halt() codes if not provided }
+
+{GLOBAL}
+function jpeg_std_error (var err : jpeg_error_mgr) : jpeg_error_mgr_ptr;
+
+
+
+procedure ERREXIT(cinfo : j_common_ptr; code : J_MESSAGE_CODE);
+
+procedure ERREXIT1(cinfo : j_common_ptr; code : J_MESSAGE_CODE; p1 : uInt);
+
+procedure ERREXIT2(cinfo : j_common_ptr; code : J_MESSAGE_CODE; p1 : int; p2 : int);
+
+procedure ERREXIT3(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int);
+
+procedure ERREXIT4(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int);
+
+procedure ERREXITS(cinfo : j_common_ptr;code : J_MESSAGE_CODE;
+                   str : AnsiString);
+{ Nonfatal errors (we can keep going, but the data is probably corrupt) }
+
+procedure WARNMS(cinfo : j_common_ptr; code : J_MESSAGE_CODE);
+
+procedure WARNMS1(cinfo : j_common_ptr;code : J_MESSAGE_CODE; p1 : int);
+
+procedure WARNMS2(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                  p1 : int; p2 : int);
+
+{ Informational/debugging messages }
+procedure TRACEMS(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE);
+
+procedure TRACEMS1(cinfo : j_common_ptr; lvl : int;
+                   code : J_MESSAGE_CODE; p1 : long);
+
+procedure TRACEMS2(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int;
+                   p2 : int);
+
+procedure TRACEMS3(cinfo : j_common_ptr;
+                   lvl : int;
+                   code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int);
+
+procedure TRACEMS4(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int);
+
+procedure TRACEMS5(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int; p5 : int);
+
+procedure TRACEMS8(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                  p1 : int; p2 : int; p3 : int; p4 : int;
+                  p5 : int; p6 : int; p7 : int; p8 : int);
+
+procedure TRACEMSS(cinfo : j_common_ptr; lvl : int;
+                   code : J_MESSAGE_CODE; str : AnsiString);
+
+implementation
+
+
+{ How to format a message string, in format_message() ? }
+
+{$IFDEF OS2}
+  {$DEFINE NO_FORMAT}
+{$ENDIF}
+{$IFDEF FPC}
+  {$DEFINE NO_FORMAT}
+{$ENDIF}
+
+uses
+{$IFNDEF NO_FORMAT}
+  {$IFDEF VER70}
+    drivers, { Turbo Vision unit with FormatStr }
+  {$ELSE}
+    sysutils,  { Delphi Unit with Format() }
+  {$ENDIF}
+{$ENDIF}
+  imjcomapi;
+
+{ Error exit handler: must not return to caller.
+
+  Applications may override this if they want to get control back after
+  an error.  Typically one would longjmp somewhere instead of exiting.
+  The setjmp buffer can be made a private field within an expanded error
+  handler object.  Note that the info needed to generate an error message
+  is stored in the error object, so you can generate the message now or
+  later, at your convenience.
+  You should make sure that the JPEG object is cleaned up (with jpeg_abort
+  or jpeg_destroy) at some point. }
+
+
+{METHODDEF}
+procedure error_exit (cinfo : j_common_ptr);
+begin
+  { Always display the message }
+  cinfo^.err^.output_message(cinfo);
+
+  { Let the memory manager delete any temp files before we die }
+  jpeg_destroy(cinfo);
+
+  halt(EXIT_FAILURE);
+end;
+
+
+{ Actual output of an error or trace message.
+  Applications may override this method to send JPEG messages somewhere
+  other than stderr. }
+
+{ Macros to simplify using the error and trace message stuff }
+{ The first parameter is either type of cinfo pointer }
+
+{ Fatal errors (print message and exit) }
+procedure ERREXIT(cinfo : j_common_ptr; code : J_MESSAGE_CODE);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.error_exit(cinfo);
+end;
+
+procedure ERREXIT1(cinfo : j_common_ptr; code : J_MESSAGE_CODE; p1 : uInt);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.error_exit (cinfo);
+end;
+
+procedure ERREXIT2(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.msg_parm.i[1] := p2;
+  cinfo^.err^.error_exit (cinfo);
+end;
+
+procedure ERREXIT3(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.msg_parm.i[1] := p2;
+  cinfo^.err^.msg_parm.i[2] := p3;
+  cinfo^.err^.error_exit (cinfo);
+end;
+
+procedure ERREXIT4(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.msg_parm.i[1] := p2;
+  cinfo^.err^.msg_parm.i[2] := p3;
+  cinfo^.err^.msg_parm.i[3] := p4;
+  cinfo^.err^.error_exit (cinfo);
+end;
+
+procedure ERREXITS(cinfo : j_common_ptr;code : J_MESSAGE_CODE;
+                   str : AnsiString);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.s := str;  { string[JMSG_STR_PARM_MAX] }
+  cinfo^.err^.error_exit (cinfo);
+end;
+
+{ Nonfatal errors (we can keep going, but the data is probably corrupt) }
+
+procedure WARNMS(cinfo : j_common_ptr; code : J_MESSAGE_CODE);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message(cinfo, -1);
+end;
+
+procedure WARNMS1(cinfo : j_common_ptr;code : J_MESSAGE_CODE; p1 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.emit_message (cinfo, -1);
+end;
+
+procedure WARNMS2(cinfo : j_common_ptr; code : J_MESSAGE_CODE;
+                  p1 : int; p2 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.msg_parm.i[1] := p2;
+  cinfo^.err^.emit_message (cinfo, -1);
+end;
+
+{ Informational/debugging messages }
+procedure TRACEMS(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message(cinfo, lvl);
+end;
+
+procedure TRACEMS1(cinfo : j_common_ptr; lvl : int;
+                   code : J_MESSAGE_CODE; p1 : long);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+procedure TRACEMS2(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int;
+                   p2 : int);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.i[0] := p1;
+  cinfo^.err^.msg_parm.i[1] := p2;
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+procedure TRACEMS3(cinfo : j_common_ptr;
+                   lvl : int;
+                   code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int);
+var
+  _mp : int8array;
+begin
+  _mp[0] := p1; _mp[1] := p2; _mp[2] := p3;
+  cinfo^.err^.msg_parm.i := _mp;
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+
+procedure TRACEMS4(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int);
+var
+  _mp : int8array;
+begin
+  _mp[0] := p1; _mp[1] := p2; _mp[2] := p3; _mp[3] := p4;
+  cinfo^.err^.msg_parm.i := _mp;
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+procedure TRACEMS5(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                   p1 : int; p2 : int; p3 : int; p4 : int; p5 : int);
+var
+  _mp : ^int8array;
+begin
+  _mp := @cinfo^.err^.msg_parm.i;
+  _mp^[0] := p1; _mp^[1] := p2; _mp^[2] := p3;
+  _mp^[3] := p4; _mp^[5] := p5;
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+procedure TRACEMS8(cinfo : j_common_ptr; lvl : int; code : J_MESSAGE_CODE;
+                  p1 : int; p2 : int; p3 : int; p4 : int;
+                  p5 : int; p6 : int; p7 : int; p8 : int);
+var
+  _mp : int8array;
+begin
+  _mp[0] := p1; _mp[1] := p2; _mp[2] := p3; _mp[3] := p4;
+  _mp[4] := p5; _mp[5] := p6; _mp[6] := p7; _mp[7] := p8;
+  cinfo^.err^.msg_parm.i := _mp;
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+procedure TRACEMSS(cinfo : j_common_ptr; lvl : int;
+                   code : J_MESSAGE_CODE; str : AnsiString);
+begin
+  cinfo^.err^.msg_code := ord(code);
+  cinfo^.err^.msg_parm.s := str; { string JMSG_STR_PARM_MAX }
+  cinfo^.err^.emit_message (cinfo, lvl);
+end;
+
+{METHODDEF}
+procedure output_message (cinfo : j_common_ptr);
+var
+  buffer : AnsiString; {[JMSG_LENGTH_MAX];}
+begin
+  { Create the message }
+  cinfo^.err^.format_message (cinfo, buffer);
+
+  { Send it to stderr, adding a newline }
+  WriteLn(output, buffer);
+end;
+
+
+
+{ Decide whether to emit a trace or warning message.
+  msg_level is one of:
+    -1: recoverable corrupt-data warning, may want to abort.
+     0: important advisory messages (always display to user).
+     1: first level of tracing detail.
+     2,3,...: successively more detailed tracing messages.
+  An application might override this method if it wanted to abort on warnings
+  or change the policy about which messages to display. }
+
+
+{METHODDEF}
+procedure emit_message (cinfo : j_common_ptr; msg_level : int);
+var
+  err : jpeg_error_mgr_ptr;
+begin
+  err := cinfo^.err;
+  if (msg_level < 0) then
+  begin
+    { It's a warning message.  Since corrupt files may generate many warnings,
+      the policy implemented here is to show only the first warning,
+      unless trace_level >= 3. }
+
+    if (err^.num_warnings = 0) or (err^.trace_level >= 3) then
+      err^.output_message(cinfo);
+    { Always count warnings in num_warnings. }
+    Inc( err^.num_warnings );
+  end
+  else
+  begin
+    { It's a trace message.  Show it if trace_level >= msg_level. }
+    if (err^.trace_level >= msg_level) then
+      err^.output_message (cinfo);
+  end;
+end;
+
+
+{ Format a message string for the most recent JPEG error or message.
+  The message is stored into buffer, which should be at least JMSG_LENGTH_MAX
+  characters.  Note that no '\n' character is added to the string.
+  Few applications should need to override this method. }
+
+
+{METHODDEF}
+procedure format_message (cinfo : j_common_ptr; var buffer : AnsiString);
+var
+  err : jpeg_error_mgr_ptr;
+  msg_code : J_MESSAGE_CODE;
+  msgtext : AnsiString;
+  isstring : boolean;
+begin
+  err := cinfo^.err;
+  msg_code := J_MESSAGE_CODE(err^.msg_code);
+  msgtext := '';
+
+  { Look up message string in proper table }
+  if (msg_code > JMSG_NOMESSAGE)
+    and (msg_code <= J_MESSAGE_CODE(err^.last_jpeg_message)) then
+  begin
+    msgtext := err^.jpeg_message_table^[msg_code];
+  end
+  else
+  if (err^.addon_message_table <> NIL) and
+     (msg_code >= err^.first_addon_message) and
+     (msg_code <= err^.last_addon_message) then
+  begin
+    msgtext := err^.addon_message_table^[J_MESSAGE_CODE
+           (ord(msg_code) - ord(err^.first_addon_message))];
+  end;
+
+  { Defend against bogus message number }
+  if (msgtext = '') then
+  begin
+    err^.msg_parm.i[0] := int(msg_code);
+    msgtext := err^.jpeg_message_table^[JMSG_NOMESSAGE];
+  end;
+
+  { Check for string parameter, as indicated by %s in the message text }
+  isstring := Pos('%s', msgtext) > 0;
+
+  { Format the message into the passed buffer }
+  if (isstring) then
+    buffer := Concat(msgtext, err^.msg_parm.s)
+  else
+  begin
+ {$IFDEF VER70}
+    FormatStr(buffer, msgtext, err^.msg_parm.i);
+ {$ELSE}
+   {$IFDEF NO_FORMAT}
+   buffer := msgtext;
+   {$ELSE}
+   buffer := Format(msgtext, [
+        err^.msg_parm.i[0], err^.msg_parm.i[1],
+        err^.msg_parm.i[2], err^.msg_parm.i[3],
+        err^.msg_parm.i[4], err^.msg_parm.i[5],
+        err^.msg_parm.i[6], err^.msg_parm.i[7] ]);
+   {$ENDIF}
+ {$ENDIF}
+  end;
+end;
+
+
+
+{ Reset error state variables at start of a new image.
+  This is called during compression startup to reset trace/error
+  processing to default state, without losing any application-specific
+  method pointers.  An application might possibly want to override
+  this method if it has additional error processing state. }
+
+
+{METHODDEF}
+procedure reset_error_mgr (cinfo : j_common_ptr);
+begin
+  cinfo^.err^.num_warnings := 0;
+  { trace_level is not reset since it is an application-supplied parameter }
+  cinfo^.err^.msg_code := 0;      { may be useful as a flag for "no error" }
+end;
+
+
+{ Fill in the standard error-handling methods in a jpeg_error_mgr object.
+  Typical call is:
+        cinfo : jpeg_compress_struct;
+        err : jpeg_error_mgr;
+
+        cinfo.err := jpeg_std_error(@err);
+  after which the application may override some of the methods. }
+
+
+{GLOBAL}
+function jpeg_std_error (var err : jpeg_error_mgr) : jpeg_error_mgr_ptr;
+begin
+  err.error_exit := error_exit;
+  err.emit_message := emit_message;
+  err.output_message := output_message;
+  err.format_message := format_message;
+  err.reset_error_mgr := reset_error_mgr;
+
+  err.trace_level := 0;         { default := no tracing }
+  err.num_warnings := 0;        { no warnings emitted yet }
+  err.msg_code := 0;            { may be useful as a flag for "no error" }
+
+  { Initialize message table pointers }
+  err.jpeg_message_table := @jpeg_std_message_table;
+  err.last_jpeg_message := pred(JMSG_LASTMSGCODE);
+
+  err.addon_message_table := NIL;
+  err.first_addon_message := JMSG_NOMESSAGE;  { for safety }
+  err.last_addon_message := JMSG_NOMESSAGE;
+
+  jpeg_std_error := @err;
+end;
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjfdctflt.pas b/src/lib/vampimg/JpegLib/imjfdctflt.pas

new file mode 100644 (file)

index 0000000..1038284
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjfdctflt.pas
@@ -0,0 +1,176 @@
+unit imjfdctflt;
+
+{$N+}
+{ This file contains a floating-point implementation of the
+  forward DCT (Discrete Cosine Transform).
+
+  This implementation should be more accurate than either of the integer
+  DCT implementations.  However, it may not give the same results on all
+  machines because of differences in roundoff behavior.  Speed will depend
+  on the hardware's floating point capacity.
+
+  A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
+  on each column.  Direct algorithms are also available, but they are
+  much more complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on Arai, Agui, and Nakajima's algorithm for
+  scaled DCT.  Their original paper (Trans. IEICE E-71(11):1095) is in
+  Japanese, but the algorithm is described in the Pennebaker & Mitchell
+  JPEG textbook (see REFERENCES section in file README).  The following code
+  is based directly on figure 4-8 in P&M.
+  While an 8-point DCT cannot be done in less than 11 multiplies, it is
+  possible to arrange the computation so that many of the multiplies are
+  simple scalings of the final outputs.  These multiplies can then be
+  folded into the multiplications or divisions by the JPEG quantization
+  table entries.  The AA&N method leaves only 5 multiplies and 29 adds
+  to be done in the DCT itself.
+  The primary disadvantage of this method is that with a fixed-point
+  implementation, accuracy is lost due to imprecise representation of the
+  scaled quantization values.  However, that problem does not arise if
+  we use floating point arithmetic. }
+
+{ Original : jfdctflt.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;   { Private declarations for DCT subsystem }
+
+
+{ Perform the forward DCT on one block of samples.}
+
+{GLOBAL}
+procedure jpeg_fdct_float (var data : array of FAST_FLOAT);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+
+{ Perform the forward DCT on one block of samples.}
+
+{GLOBAL}
+procedure jpeg_fdct_float (var data : array of FAST_FLOAT);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array [0..DCTSIZE2-1] of FAST_FLOAT;
+var
+  tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 : FAST_FLOAT;
+  tmp10, tmp11, tmp12, tmp13 : FAST_FLOAT;
+  z1, z2, z3, z4, z5, z11, z13 : FAST_FLOAT;
+  dataptr : PWorkspace;
+  ctr : int;
+begin
+  { Pass 1: process rows. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[0] + dataptr^[7];
+    tmp7 := dataptr^[0] - dataptr^[7];
+    tmp1 := dataptr^[1] + dataptr^[6];
+    tmp6 := dataptr^[1] - dataptr^[6];
+    tmp2 := dataptr^[2] + dataptr^[5];
+    tmp5 := dataptr^[2] - dataptr^[5];
+    tmp3 := dataptr^[3] + dataptr^[4];
+    tmp4 := dataptr^[3] - dataptr^[4];
+
+    { Even part }
+
+    tmp10 := tmp0 + tmp3; { phase 2 }
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[0] := tmp10 + tmp11; { phase 3 }
+    dataptr^[4] := tmp10 - tmp11;
+
+    z1 := (tmp12 + tmp13) * ({FAST_FLOAT}(0.707106781)); { c4 }
+    dataptr^[2] := tmp13 + z1;  { phase 5 }
+    dataptr^[6] := tmp13 - z1;
+
+    { Odd part }
+
+    tmp10 := tmp4 + tmp5; { phase 2 }
+    tmp11 := tmp5 + tmp6;
+    tmp12 := tmp6 + tmp7;
+
+    { The rotator is modified from fig 4-8 to avoid extra negations. }
+    z5 := (tmp10 - tmp12) * ( {FAST_FLOAT}(0.382683433)); { c6 }
+    z2 := {FAST_FLOAT}(0.541196100) * tmp10 + z5; { c2-c6 }
+    z4 := {FAST_FLOAT}(1.306562965) * tmp12 + z5; { c2+c6 }
+    z3 := tmp11 * {FAST_FLOAT} (0.707106781); { c4 }
+
+    z11 := tmp7 + z3;   { phase 5 }
+    z13 := tmp7 - z3;
+
+    dataptr^[5] := z13 + z2;  { phase 6 }
+    dataptr^[3] := z13 - z2;
+    dataptr^[1] := z11 + z4;
+    dataptr^[7] := z11 - z4;
+
+    Inc(FAST_FLOAT_PTR(dataptr), DCTSIZE);  { advance pointer to next row }
+  end;
+
+  { Pass 2: process columns. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[DCTSIZE*0] + dataptr^[DCTSIZE*7];
+    tmp7 := dataptr^[DCTSIZE*0] - dataptr^[DCTSIZE*7];
+    tmp1 := dataptr^[DCTSIZE*1] + dataptr^[DCTSIZE*6];
+    tmp6 := dataptr^[DCTSIZE*1] - dataptr^[DCTSIZE*6];
+    tmp2 := dataptr^[DCTSIZE*2] + dataptr^[DCTSIZE*5];
+    tmp5 := dataptr^[DCTSIZE*2] - dataptr^[DCTSIZE*5];
+    tmp3 := dataptr^[DCTSIZE*3] + dataptr^[DCTSIZE*4];
+    tmp4 := dataptr^[DCTSIZE*3] - dataptr^[DCTSIZE*4];
+
+    { Even part }
+
+    tmp10 := tmp0 + tmp3; { phase 2 }
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[DCTSIZE*0] := tmp10 + tmp11; { phase 3 }
+    dataptr^[DCTSIZE*4] := tmp10 - tmp11;
+
+    z1 := (tmp12 + tmp13) * {FAST_FLOAT} (0.707106781); { c4 }
+    dataptr^[DCTSIZE*2] := tmp13 + z1; { phase 5 }
+    dataptr^[DCTSIZE*6] := tmp13 - z1;
+
+    { Odd part }
+
+    tmp10 := tmp4 + tmp5; { phase 2 }
+    tmp11 := tmp5 + tmp6;
+    tmp12 := tmp6 + tmp7;
+
+    { The rotator is modified from fig 4-8 to avoid extra negations. }
+    z5 := (tmp10 - tmp12) * {FAST_FLOAT} (0.382683433); { c6 }
+    z2 := {FAST_FLOAT} (0.541196100) * tmp10 + z5; { c2-c6 }
+    z4 := {FAST_FLOAT} (1.306562965) * tmp12 + z5; { c2+c6 }
+    z3 := tmp11 * {FAST_FLOAT} (0.707106781); { c4 }
+
+    z11 := tmp7 + z3;   { phase 5 }
+    z13 := tmp7 - z3;
+
+    dataptr^[DCTSIZE*5] := z13 + z2; { phase 6 }
+    dataptr^[DCTSIZE*3] := z13 - z2;
+    dataptr^[DCTSIZE*1] := z11 + z4;
+    dataptr^[DCTSIZE*7] := z11 - z4;
+
+    Inc(FAST_FLOAT_PTR(dataptr));   { advance pointer to next column }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjfdctfst.pas b/src/lib/vampimg/JpegLib/imjfdctfst.pas

new file mode 100644 (file)

index 0000000..40b2fd1
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjfdctfst.pas
@@ -0,0 +1,237 @@
+unit imjfdctfst;
+
+{ This file contains a fast, not so accurate integer implementation of the
+  forward DCT (Discrete Cosine Transform).
+
+  A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
+  on each column.  Direct algorithms are also available, but they are
+  much more complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on Arai, Agui, and Nakajima's algorithm for
+  scaled DCT.  Their original paper (Trans. IEICE E-71(11):1095) is in
+  Japanese, but the algorithm is described in the Pennebaker & Mitchell
+  JPEG textbook (see REFERENCES section in file README).  The following code
+  is based directly on figure 4-8 in P&M.
+  While an 8-point DCT cannot be done in less than 11 multiplies, it is
+  possible to arrange the computation so that many of the multiplies are
+  simple scalings of the final outputs.  These multiplies can then be
+  folded into the multiplications or divisions by the JPEG quantization
+  table entries.  The AA&N method leaves only 5 multiplies and 29 adds
+  to be done in the DCT itself.
+  The primary disadvantage of this method is that with fixed-point math,
+  accuracy is lost due to imprecise representation of the scaled
+  quantization values.  The smaller the quantization table entry, the less
+  precise the scaled value, so this implementation does worse with high-
+  quality-setting files than with low-quality ones. }
+
+{ Original: jfdctfst.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;     { Private declarations for DCT subsystem }
+
+
+{ Perform the forward DCT on one block of samples. }
+
+{GLOBAL}
+procedure jpeg_fdct_ifast (var data : array of DCTELEM);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+
+{ Scaling decisions are generally the same as in the LL&M algorithm;
+  see jfdctint.c for more details.  However, we choose to descale
+  (right shift) multiplication products as soon as they are formed,
+  rather than carrying additional fractional bits into subsequent additions.
+  This compromises accuracy slightly, but it lets us save a few shifts.
+  More importantly, 16-bit arithmetic is then adequate (for 8-bit samples)
+  everywhere except in the multiplications proper; this saves a good deal
+  of work on 16-bit-int machines.
+
+  Again to save a few shifts, the intermediate results between pass 1 and
+  pass 2 are not upscaled, but are represented only to integral precision.
+
+  A final compromise is to represent the multiplicative constants to only
+  8 fractional bits, rather than 13.  This saves some shifting work on some
+  machines, and may also reduce the cost of multiplication (since there
+  are fewer one-bits in the constants). }
+
+const
+  CONST_BITS = 8;
+const
+  CONST_SCALE = (INT32(1) shl CONST_BITS);
+
+
+const
+  FIX_0_382683433 = INT32(Round(CONST_SCALE * 0.382683433)); {98}
+  FIX_0_541196100 = INT32(Round(CONST_SCALE * 0.541196100)); {139}
+  FIX_0_707106781 = INT32(Round(CONST_SCALE * 0.707106781)); {181}
+  FIX_1_306562965 = INT32(Round(CONST_SCALE * 1.306562965)); {334}
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{ We can gain a little more speed, with a further compromise in accuracy,
+  by omitting the addition in a descaling shift.  This yields an incorrectly
+  rounded result half the time... }
+{$ifndef USE_ACCURATE_ROUNDING}
+  shift_temp := x;
+{$else}
+  shift_temp := x + (INT32(1) shl (n-1));
+{$endif}
+
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+{$endif}
+    Descale :=  (shift_temp shr n);
+end;
+
+{ Multiply a DCTELEM variable by an INT32 constant, and immediately
+  descale to yield a DCTELEM result. }
+
+
+   function MULTIPLY(X : DCTELEM; Y: INT32): DCTELEM;
+   begin
+     Multiply := DeScale((X) * (Y), CONST_BITS);
+   end;
+
+
+{ Perform the forward DCT on one block of samples. }
+
+{GLOBAL}
+procedure jpeg_fdct_ifast (var data : array of DCTELEM);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array [0..DCTSIZE2-1] of DCTELEM;
+var
+  tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 : DCTELEM;
+  tmp10, tmp11, tmp12, tmp13 : DCTELEM;
+  z1, z2, z3, z4, z5, z11, z13 : DCTELEM;
+  dataptr :  PWorkspace;
+  ctr : int;
+  {SHIFT_TEMPS}
+begin
+  { Pass 1: process rows. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[0] + dataptr^[7];
+    tmp7 := dataptr^[0] - dataptr^[7];
+    tmp1 := dataptr^[1] + dataptr^[6];
+    tmp6 := dataptr^[1] - dataptr^[6];
+    tmp2 := dataptr^[2] + dataptr^[5];
+    tmp5 := dataptr^[2] - dataptr^[5];
+    tmp3 := dataptr^[3] + dataptr^[4];
+    tmp4 := dataptr^[3] - dataptr^[4];
+
+    { Even part }
+
+    tmp10 := tmp0 + tmp3; { phase 2 }
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[0] := tmp10 + tmp11; { phase 3 }
+    dataptr^[4] := tmp10 - tmp11;
+
+    z1 := MULTIPLY(tmp12 + tmp13, FIX_0_707106781); { c4 }
+    dataptr^[2] := tmp13 + z1;  { phase 5 }
+    dataptr^[6] := tmp13 - z1;
+
+    { Odd part }
+
+    tmp10 := tmp4 + tmp5; { phase 2 }
+    tmp11 := tmp5 + tmp6;
+    tmp12 := tmp6 + tmp7;
+
+    { The rotator is modified from fig 4-8 to avoid extra negations. }
+    z5 := MULTIPLY(tmp10 - tmp12, FIX_0_382683433); { c6 }
+    z2 := MULTIPLY(tmp10, FIX_0_541196100) + z5; { c2-c6 }
+    z4 := MULTIPLY(tmp12, FIX_1_306562965) + z5; { c2+c6 }
+    z3 := MULTIPLY(tmp11, FIX_0_707106781); { c4 }
+
+    z11 := tmp7 + z3;   { phase 5 }
+    z13 := tmp7 - z3;
+
+    dataptr^[5] := z13 + z2;  { phase 6 }
+    dataptr^[3] := z13 - z2;
+    dataptr^[1] := z11 + z4;
+    dataptr^[7] := z11 - z4;
+
+    Inc(DCTELEMPTR(dataptr), DCTSIZE);  { advance pointer to next row }
+  end;
+
+  { Pass 2: process columns. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[DCTSIZE*0] + dataptr^[DCTSIZE*7];
+    tmp7 := dataptr^[DCTSIZE*0] - dataptr^[DCTSIZE*7];
+    tmp1 := dataptr^[DCTSIZE*1] + dataptr^[DCTSIZE*6];
+    tmp6 := dataptr^[DCTSIZE*1] - dataptr^[DCTSIZE*6];
+    tmp2 := dataptr^[DCTSIZE*2] + dataptr^[DCTSIZE*5];
+    tmp5 := dataptr^[DCTSIZE*2] - dataptr^[DCTSIZE*5];
+    tmp3 := dataptr^[DCTSIZE*3] + dataptr^[DCTSIZE*4];
+    tmp4 := dataptr^[DCTSIZE*3] - dataptr^[DCTSIZE*4];
+
+    { Even part }
+
+    tmp10 := tmp0 + tmp3; { phase 2 }
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[DCTSIZE*0] := tmp10 + tmp11; { phase 3 }
+    dataptr^[DCTSIZE*4] := tmp10 - tmp11;
+
+    z1 := MULTIPLY(tmp12 + tmp13, FIX_0_707106781); { c4 }
+    dataptr^[DCTSIZE*2] := tmp13 + z1; { phase 5 }
+    dataptr^[DCTSIZE*6] := tmp13 - z1;
+
+    { Odd part }
+
+    tmp10 := tmp4 + tmp5; { phase 2 }
+    tmp11 := tmp5 + tmp6;
+    tmp12 := tmp6 + tmp7;
+
+    { The rotator is modified from fig 4-8 to avoid extra negations. }
+    z5 := MULTIPLY(tmp10 - tmp12, FIX_0_382683433); { c6 }
+    z2 := MULTIPLY(tmp10, FIX_0_541196100) + z5; { c2-c6 }
+    z4 := MULTIPLY(tmp12, FIX_1_306562965) + z5; { c2+c6 }
+    z3 := MULTIPLY(tmp11, FIX_0_707106781); { c4 }
+
+    z11 := tmp7 + z3;   { phase 5 }
+    z13 := tmp7 - z3;
+
+    dataptr^[DCTSIZE*5] := z13 + z2; { phase 6 }
+    dataptr^[DCTSIZE*3] := z13 - z2;
+    dataptr^[DCTSIZE*1] := z11 + z4;
+    dataptr^[DCTSIZE*7] := z11 - z4;
+
+    Inc(DCTELEMPTR(dataptr)); { advance pointer to next column }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjfdctint.pas b/src/lib/vampimg/JpegLib/imjfdctint.pas

new file mode 100644 (file)

index 0000000..b676fff
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjfdctint.pas
@@ -0,0 +1,297 @@
+unit imjfdctint;
+
+
+{ This file contains a slow-but-accurate integer implementation of the
+  forward DCT (Discrete Cosine Transform).
+
+  A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT
+  on each column.  Direct algorithms are also available, but they are
+  much more complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on an algorithm described in
+    C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT
+    Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics,
+    Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991.
+  The primary algorithm described there uses 11 multiplies and 29 adds.
+  We use their alternate method with 12 multiplies and 32 adds.
+  The advantage of this method is that no data path contains more than one
+  multiplication; this allows a very simple and accurate implementation in
+  scaled fixed-point arithmetic, with a minimal number of shifts. }
+
+{ Original : jfdctint.c ; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjutils,
+  imjpeglib,
+  imjdct;   { Private declarations for DCT subsystem }
+
+
+{ Perform the forward DCT on one block of samples. }
+
+{GLOBAL}
+procedure jpeg_fdct_islow (var data : array of DCTELEM);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+
+{ The poop on this scaling stuff is as follows:
+
+  Each 1-D DCT step produces outputs which are a factor of sqrt(N)
+  larger than the true DCT outputs.  The final outputs are therefore
+  a factor of N larger than desired; since N=8 this can be cured by
+  a simple right shift at the end of the algorithm.  The advantage of
+  this arrangement is that we save two multiplications per 1-D DCT,
+  because the y0 and y4 outputs need not be divided by sqrt(N).
+  In the IJG code, this factor of 8 is removed by the quantization step
+  (in jcdctmgr.c), NOT in this module.
+
+  We have to do addition and subtraction of the integer inputs, which
+  is no problem, and multiplication by fractional constants, which is
+  a problem to do in integer arithmetic.  We multiply all the constants
+  by CONST_SCALE and convert them to integer constants (thus retaining
+  CONST_BITS bits of precision in the constants).  After doing a
+  multiplication we have to divide the product by CONST_SCALE, with proper
+  rounding, to produce the correct output.  This division can be done
+  cheaply as a right shift of CONST_BITS bits.  We postpone shifting
+  as long as possible so that partial sums can be added together with
+  full fractional precision.
+
+  The outputs of the first pass are scaled up by PASS1_BITS bits so that
+  they are represented to better-than-integral precision.  These outputs
+  require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word
+  with the recommended scaling.  (For 12-bit sample data, the intermediate
+  array is INT32 anyway.)
+
+  To avoid overflow of the 32-bit intermediate results in pass 2, we must
+  have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26.  Error analysis
+  shows that the values given below are the most effective. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 2;
+{$else}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 1; { lose a little precision to avoid overflow }
+{$endif}
+
+const
+  CONST_SCALE = (INT32(1) shl CONST_BITS);
+
+const
+  FIX_0_298631336 = INT32(Round(CONST_SCALE * 0.298631336));  {2446}
+  FIX_0_390180644 = INT32(Round(CONST_SCALE * 0.390180644));  {3196}
+  FIX_0_541196100 = INT32(Round(CONST_SCALE * 0.541196100));  {4433}
+  FIX_0_765366865 = INT32(Round(CONST_SCALE * 0.765366865));  {6270}
+  FIX_0_899976223 = INT32(Round(CONST_SCALE * 0.899976223));  {7373}
+  FIX_1_175875602 = INT32(Round(CONST_SCALE * 1.175875602));  {9633}
+  FIX_1_501321110 = INT32(Round(CONST_SCALE * 1.501321110));  {12299}
+  FIX_1_847759065 = INT32(Round(CONST_SCALE * 1.847759065));  {15137}
+  FIX_1_961570560 = INT32(Round(CONST_SCALE * 1.961570560));  {16069}
+  FIX_2_053119869 = INT32(Round(CONST_SCALE * 2.053119869));  {16819}
+  FIX_2_562915447 = INT32(Round(CONST_SCALE * 2.562915447));  {20995}
+  FIX_3_072711026 = INT32(Round(CONST_SCALE * 3.072711026));  {25172}
+
+
+{ Multiply an INT32 variable by an INT32 constant to yield an INT32 result.
+  For 8-bit samples with the recommended scaling, all the variable
+  and constant values involved are no more than 16 bits wide, so a
+  16x16->32 bit multiply can be used instead of a full 32x32 multiply.
+  For 12-bit samples, a full 32-bit multiplication will be needed. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+
+   {MULTIPLY16C16(var,const)}
+   function Multiply(X, Y: int): INT32;
+   begin
+     Multiply := int(X) * INT32(Y);
+   end;
+
+{$else}
+   function Multiply(X, Y: INT32): INT32;
+   begin
+     Multiply := X * Y;
+   end;
+{$endif}
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  shift_temp := x + (INT32(1) shl (n-1));
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+    Descale :=  (shift_temp shr n);
+{$else}
+  Descale := (x + (INT32(1) shl (n-1)) shr n;
+{$endif}
+end;
+
+
+{ Perform the forward DCT on one block of samples. }
+
+{GLOBAL}
+procedure jpeg_fdct_islow (var data : array of DCTELEM);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array [0..DCTSIZE2-1] of DCTELEM;
+var
+  tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 : INT32;
+  tmp10, tmp11, tmp12, tmp13 : INT32;
+  z1, z2, z3, z4, z5 : INT32;
+  dataptr : PWorkspace;
+  ctr : int;
+  {SHIFT_TEMPS}
+begin
+
+  { Pass 1: process rows. }
+  { Note results are scaled up by sqrt(8) compared to a true DCT; }
+  { furthermore, we scale the results by 2**PASS1_BITS. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[0] + dataptr^[7];
+    tmp7 := dataptr^[0] - dataptr^[7];
+    tmp1 := dataptr^[1] + dataptr^[6];
+    tmp6 := dataptr^[1] - dataptr^[6];
+    tmp2 := dataptr^[2] + dataptr^[5];
+    tmp5 := dataptr^[2] - dataptr^[5];
+    tmp3 := dataptr^[3] + dataptr^[4];
+    tmp4 := dataptr^[3] - dataptr^[4];
+
+    { Even part per LL&M figure 1 --- note that published figure is faulty;
+      rotator "sqrt(2)*c1" should be "sqrt(2)*c6".  }
+
+    tmp10 := tmp0 + tmp3;
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[0] := DCTELEM ((tmp10 + tmp11) shl PASS1_BITS);
+    dataptr^[4] := DCTELEM ((tmp10 - tmp11) shl PASS1_BITS);
+
+    z1 := MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
+    dataptr^[2] := DCTELEM (DESCALE(z1 + MULTIPLY(tmp13, FIX_0_765366865),
+           CONST_BITS-PASS1_BITS));
+    dataptr^[6] := DCTELEM (DESCALE(z1 + MULTIPLY(tmp12, - FIX_1_847759065),
+           CONST_BITS-PASS1_BITS));
+
+    { Odd part per figure 8 --- note paper omits factor of sqrt(2).
+      cK represents cos(K*pi/16).
+      i0..i3 in the paper are tmp4..tmp7 here. }
+
+    z1 := tmp4 + tmp7;
+    z2 := tmp5 + tmp6;
+    z3 := tmp4 + tmp6;
+    z4 := tmp5 + tmp7;
+    z5 := MULTIPLY(z3 + z4, FIX_1_175875602); { sqrt(2) * c3 }
+
+    tmp4 := MULTIPLY(tmp4, FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+    tmp5 := MULTIPLY(tmp5, FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+    tmp6 := MULTIPLY(tmp6, FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    tmp7 := MULTIPLY(tmp7, FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    z1 := MULTIPLY(z1, - FIX_0_899976223); { sqrt(2) * (c7-c3) }
+    z2 := MULTIPLY(z2, - FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+    z3 := MULTIPLY(z3, - FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+    z4 := MULTIPLY(z4, - FIX_0_390180644); { sqrt(2) * (c5-c3) }
+
+    Inc(z3, z5);
+    Inc(z4, z5);
+
+    dataptr^[7] := DCTELEM(DESCALE(tmp4 + z1 + z3, CONST_BITS-PASS1_BITS));
+    dataptr^[5] := DCTELEM(DESCALE(tmp5 + z2 + z4, CONST_BITS-PASS1_BITS));
+    dataptr^[3] := DCTELEM(DESCALE(tmp6 + z2 + z3, CONST_BITS-PASS1_BITS));
+    dataptr^[1] := DCTELEM(DESCALE(tmp7 + z1 + z4, CONST_BITS-PASS1_BITS));
+
+    Inc(DCTELEMPTR(dataptr), DCTSIZE);  { advance pointer to next row }
+  end;
+
+  { Pass 2: process columns.
+    We remove the PASS1_BITS scaling, but leave the results scaled up
+    by an overall factor of 8. }
+
+  dataptr := PWorkspace(@data);
+  for ctr := DCTSIZE-1 downto 0 do
+  begin
+    tmp0 := dataptr^[DCTSIZE*0] + dataptr^[DCTSIZE*7];
+    tmp7 := dataptr^[DCTSIZE*0] - dataptr^[DCTSIZE*7];
+    tmp1 := dataptr^[DCTSIZE*1] + dataptr^[DCTSIZE*6];
+    tmp6 := dataptr^[DCTSIZE*1] - dataptr^[DCTSIZE*6];
+    tmp2 := dataptr^[DCTSIZE*2] + dataptr^[DCTSIZE*5];
+    tmp5 := dataptr^[DCTSIZE*2] - dataptr^[DCTSIZE*5];
+    tmp3 := dataptr^[DCTSIZE*3] + dataptr^[DCTSIZE*4];
+    tmp4 := dataptr^[DCTSIZE*3] - dataptr^[DCTSIZE*4];
+
+    { Even part per LL&M figure 1 --- note that published figure is faulty;
+      rotator "sqrt(2)*c1" should be "sqrt(2)*c6". }
+
+    tmp10 := tmp0 + tmp3;
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    dataptr^[DCTSIZE*0] := DCTELEM (DESCALE(tmp10 + tmp11, PASS1_BITS));
+    dataptr^[DCTSIZE*4] := DCTELEM (DESCALE(tmp10 - tmp11, PASS1_BITS));
+
+    z1 := MULTIPLY(tmp12 + tmp13, FIX_0_541196100);
+    dataptr^[DCTSIZE*2] := DCTELEM (DESCALE(z1 + MULTIPLY(tmp13, FIX_0_765366865),
+             CONST_BITS+PASS1_BITS));
+    dataptr^[DCTSIZE*6] := DCTELEM (DESCALE(z1 + MULTIPLY(tmp12, - FIX_1_847759065),
+             CONST_BITS+PASS1_BITS));
+
+    { Odd part per figure 8 --- note paper omits factor of sqrt(2).
+      cK represents cos(K*pi/16).
+      i0..i3 in the paper are tmp4..tmp7 here. }
+
+    z1 := tmp4 + tmp7;
+    z2 := tmp5 + tmp6;
+    z3 := tmp4 + tmp6;
+    z4 := tmp5 + tmp7;
+    z5 := MULTIPLY(z3 + z4, FIX_1_175875602); { sqrt(2) * c3 }
+
+    tmp4 := MULTIPLY(tmp4, FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+    tmp5 := MULTIPLY(tmp5, FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+    tmp6 := MULTIPLY(tmp6, FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    tmp7 := MULTIPLY(tmp7, FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    z1 := MULTIPLY(z1, - FIX_0_899976223); { sqrt(2) * (c7-c3) }
+    z2 := MULTIPLY(z2, - FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+    z3 := MULTIPLY(z3, - FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+    z4 := MULTIPLY(z4, - FIX_0_390180644); { sqrt(2) * (c5-c3) }
+
+    Inc(z3, z5);
+    Inc(z4, z5);
+
+    dataptr^[DCTSIZE*7] := DCTELEM (DESCALE(tmp4 + z1 + z3,
+             CONST_BITS+PASS1_BITS));
+    dataptr^[DCTSIZE*5] := DCTELEM (DESCALE(tmp5 + z2 + z4,
+             CONST_BITS+PASS1_BITS));
+    dataptr^[DCTSIZE*3] := DCTELEM (DESCALE(tmp6 + z2 + z3,
+             CONST_BITS+PASS1_BITS));
+    dataptr^[DCTSIZE*1] := DCTELEM (DESCALE(tmp7 + z1 + z4,
+             CONST_BITS+PASS1_BITS));
+
+    Inc(DCTELEMPTR(dataptr)); { advance pointer to next column }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjidctasm.pas b/src/lib/vampimg/JpegLib/imjidctasm.pas

new file mode 100644 (file)

index 0000000..a699739
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjidctasm.pas
@@ -0,0 +1,793 @@
+unit imjidctasm;
+
+{ This file contains a slow-but-accurate integer implementation of the
+  inverse DCT (Discrete Cosine Transform).  In the IJG code, this routine
+  must also perform dequantization of the input coefficients.
+
+  A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT
+  on each row (or vice versa, but it's more convenient to emit a row at
+  a time).  Direct algorithms are also available, but they are much more
+  complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on an algorithm described in
+    C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT
+    Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics,
+    Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991.
+  The primary algorithm described there uses 11 multiplies and 29 adds.
+  We use their alternate method with 12 multiplies and 32 adds.
+  The advantage of this method is that no data path contains more than one
+  multiplication; this allows a very simple and accurate implementation in
+  scaled fixed-point arithmetic, with a minimal number of shifts. }
+
+{ Original : jidctint.c ;  Copyright (C) 1991-1996, Thomas G. Lane. }
+{ ;-------------------------------------------------------------------------
+  ; JIDCTINT.ASM
+  ; 80386 protected mode assembly translation of JIDCTINT.C
+  ; **** Optimized to all hell by Jason M. Felice (jasonf@apk.net) ****
+  ; **** E-mail welcome                      ****
+  ;
+  ; ** This code does not make O/S calls -- use it for OS/2, Win95, WinNT,
+  ; ** DOS prot. mode., Linux, whatever... have fun.
+  ;
+  ; ** Note, this code is dependant on the structure member order in the .h
+  ; ** files for the following structures:
+  ; -- amazingly NOT j_decompress_struct... cool.
+  ; -- jpeg_component_info (dependant on position of dct_table element)
+  ;
+  ; Originally created with the /Fa option of MSVC 4.0 (why work when you
+  ; don't have to?)
+  ;
+  ; (this code, when compiled is 1K bytes smaller than the optimized MSVC
+  ; release build, not to mention 120-130 ms faster in my profile test with 1
+  ; small color and and 1 medium black-and-white jpeg: stats using TASM 4.0
+  ; and MSVC 4.0 to create a non-console app; jpeg_idct_islow accumulated
+  ; 5,760 hits on all trials)
+  ;
+  ; TASM -t -ml -os jidctint.asm, jidctint.obj
+  ;-------------------------------------------------------------------------
+   Converted to Delphi 2.0 BASM for PasJPEG
+   by Jacques NOMSSI NZALI  <nomssi@physik.tu-chemnitz.de>
+   October 13th 1996
+    * assumes Delphi "register" calling convention
+        first 3 parameter are in EAX,EDX,ECX
+    * register allocation revised
+}
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;         { Private declarations for DCT subsystem }
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_islow (cinfo : j_decompress_ptr;
+                          compptr : jpeg_component_info_ptr;
+              coef_block : JCOEFPTR;
+              output_buf : JSAMPARRAY;
+                          output_col : JDIMENSION);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+{ The poop on this scaling stuff is as follows:
+
+  Each 1-D IDCT step produces outputs which are a factor of sqrt(N)
+  larger than the true IDCT outputs.  The final outputs are therefore
+  a factor of N larger than desired; since N=8 this can be cured by
+  a simple right shift at the end of the algorithm.  The advantage of
+  this arrangement is that we save two multiplications per 1-D IDCT,
+  because the y0 and y4 inputs need not be divided by sqrt(N).
+
+  We have to do addition and subtraction of the integer inputs, which
+  is no problem, and multiplication by fractional constants, which is
+  a problem to do in integer arithmetic.  We multiply all the constants
+  by CONST_SCALE and convert them to integer constants (thus retaining
+  CONST_BITS bits of precision in the constants).  After doing a
+  multiplication we have to divide the product by CONST_SCALE, with proper
+  rounding, to produce the correct output.  This division can be done
+  cheaply as a right shift of CONST_BITS bits.  We postpone shifting
+  as long as possible so that partial sums can be added together with
+  full fractional precision.
+
+  The outputs of the first pass are scaled up by PASS1_BITS bits so that
+  they are represented to better-than-integral precision.  These outputs
+  require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word
+  with the recommended scaling.  (To scale up 12-bit sample data further, an
+  intermediate INT32 array would be needed.)
+
+  To avoid overflow of the 32-bit intermediate results in pass 2, we must
+  have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26.  Error analysis
+  shows that the values given below are the most effective. }
+
+const
+  CONST_BITS = 13;
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  PASS1_BITS = 2;
+{$else}
+const
+  PASS1_BITS = 1; { lose a little precision to avoid overflow }
+{$endif}
+
+const
+  CONST_SCALE = (INT32(1) shl CONST_BITS);
+
+const
+  FIX_0_298631336 = INT32(Round(CONST_SCALE * 0.298631336));  {2446}
+  FIX_0_390180644 = INT32(Round(CONST_SCALE * 0.390180644));  {3196}
+  FIX_0_541196100 = INT32(Round(CONST_SCALE * 0.541196100));  {4433}
+  FIX_0_765366865 = INT32(Round(CONST_SCALE * 0.765366865));  {6270}
+  FIX_0_899976223 = INT32(Round(CONST_SCALE * 0.899976223));  {7373}
+  FIX_1_175875602 = INT32(Round(CONST_SCALE * 1.175875602));  {9633}
+  FIX_1_501321110 = INT32(Round(CONST_SCALE * 1.501321110));  {12299}
+  FIX_1_847759065 = INT32(Round(CONST_SCALE * 1.847759065));  {15137}
+  FIX_1_961570560 = INT32(Round(CONST_SCALE * 1.961570560));  {16069}
+  FIX_2_053119869 = INT32(Round(CONST_SCALE * 2.053119869));  {16819}
+  FIX_2_562915447 = INT32(Round(CONST_SCALE * 2.562915447));  {20995}
+  FIX_3_072711026 = INT32(Round(CONST_SCALE * 3.072711026));  {25172}
+
+
+{ for DESCALE }
+const
+  ROUND_CONST = (INT32(1) shl (CONST_BITS-PASS1_BITS-1));
+const
+  ROUND_CONST_2 = (INT32(1) shl (CONST_BITS+PASS1_BITS+3-1));
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_islow (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = coef_bits_field; { buffers data between passes }
+const
+  coefDCTSIZE = DCTSIZE*SizeOf(JCOEF);
+  wrkDCTSIZE = DCTSIZE*SizeOf(int);
+var
+  tmp0, tmp1, tmp2, tmp3 : INT32;
+  tmp10, tmp11, tmp12, tmp13 : INT32;
+  z1, z2, z3, z4, z5 : INT32;
+var
+  inptr : JCOEFPTR;
+  quantptr : ISLOW_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkspace;
+  outptr : JSAMPROW;
+var
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace;
+var
+  dcval : int;
+var
+  dcval_ : JSAMPLE;
+asm
+  push  edi
+  push  esi
+  push  ebx
+
+  cld { The only direction we use, might as well set it now, as opposed }
+        { to inside 2 loops. }
+
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  {range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));}
+  mov eax, [eax].jpeg_decompress_struct.sample_range_limit {eax=cinfo}
+  add eax, (MAXJSAMPLE+1 + CENTERJSAMPLE)*(Type JSAMPLE)
+  mov range_limit, eax
+
+  { Pass 1: process columns from input, store into work array. }
+  { Note results are scaled up by sqrt(8) compared to a true IDCT; }
+  { furthermore, we scale the results by 2**PASS1_BITS. }
+
+  {inptr := coef_block;}
+  mov esi, ecx     { ecx=coef_block }
+  {quantptr := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);}
+  mov edi, [edx].jpeg_component_info.dct_table  { edx=compptr }
+
+  {wsptr := PWorkspace(@workspace);}
+  lea ecx, workspace
+
+  {for ctr := pred(DCTSIZE) downto 0 do
+  begin}
+  mov ctr, DCTSIZE
+@loop518:
+    { Due to quantization, we will usually find that many of the input
+      coefficients are zero, especially the AC terms.  We can exploit this
+      by short-circuiting the IDCT calculation for any column in which all
+      the AC terms are zero.  In that case each output is equal to the
+      DC coefficient (with scale factor as needed).
+      With typical images and quantization tables, half or more of the
+      column DCT calculations can be simplified this way. }
+
+    {if ((inptr^[DCTSIZE*1]) or (inptr^[DCTSIZE*2]) or (inptr^[DCTSIZE*3]) or
+  (inptr^[DCTSIZE*4]) or (inptr^[DCTSIZE*5]) or (inptr^[DCTSIZE*6]) or
+  (inptr^[DCTSIZE*7]) = 0) then
+    begin}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*1]
+  or  eax, DWORD PTR [esi+coefDCTSIZE*2]
+  or  eax, DWORD PTR [esi+coefDCTSIZE*3]
+  mov edx, DWORD PTR [esi+coefDCTSIZE*4]
+  or    eax, edx
+  or  eax, DWORD PTR [esi+coefDCTSIZE*5]
+  or  eax, DWORD PTR [esi+coefDCTSIZE*6]
+  or  eax, DWORD PTR [esi+coefDCTSIZE*7]
+  jne @loop520
+
+      { AC terms all zero }
+      {dcval := ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) *
+               (quantptr^[DCTSIZE*0]) shl PASS1_BITS;}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*0]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*0]
+  shl eax, PASS1_BITS
+
+  {wsptr^[DCTSIZE*0] := dcval;
+  wsptr^[DCTSIZE*1] := dcval;
+  wsptr^[DCTSIZE*2] := dcval;
+  wsptr^[DCTSIZE*3] := dcval;
+  wsptr^[DCTSIZE*4] := dcval;
+  wsptr^[DCTSIZE*5] := dcval;
+  wsptr^[DCTSIZE*6] := dcval;
+  wsptr^[DCTSIZE*7] := dcval;}
+
+  mov DWORD PTR [ecx+ wrkDCTSIZE*0], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*1], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*2], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*3], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*4], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*5], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*6], eax
+  mov DWORD PTR [ecx+ wrkDCTSIZE*7], eax
+
+      {Inc(JCOEF_PTR(inptr));   { advance pointers to next column }
+      {Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+      continue;}
+  dec ctr
+  je  @loop519
+
+  add   esi, Type JCOEF
+  add edi, Type ISLOW_MULT_TYPE
+  add ecx, Type int  { int_ptr }
+  jmp @loop518
+
+@loop520:
+
+    {end;}
+
+    { Even part: reverse the even part of the forward DCT. }
+    { The rotator is sqrt(2)*c(-6). }
+
+    {z2 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*2]) * quantptr^[DCTSIZE*2];
+    z3 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*6]) * quantptr^[DCTSIZE*6];
+
+    z1 := (z2 + z3) * INT32(FIX_0_541196100);
+    tmp2 := z1 + INT32(z3) * INT32(- FIX_1_847759065);
+    tmp3 := z1 + INT32(z2) * INT32(FIX_0_765366865);}
+
+  mov edx, DWORD PTR [esi+coefDCTSIZE*2]
+  imul  edx, DWORD PTR [edi+wrkDCTSIZE*2]  {z2}
+
+  mov eax, DWORD PTR [esi+coefDCTSIZE*6]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*6]  {z3}
+
+  lea   ebx, [eax+edx]
+  imul  ebx, FIX_0_541196100               {z1}
+
+  imul  eax, (-FIX_1_847759065)
+  add   eax, ebx
+  mov   tmp2, eax
+
+  imul  edx, FIX_0_765366865
+  add   edx, ebx
+  mov   tmp3, edx
+
+    {z2 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) * quantptr^[DCTSIZE*0];
+    z3 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*4]) * quantptr^[DCTSIZE*4];}
+
+  mov edx, DWORD PTR [esi+coefDCTSIZE*4]
+  imul  edx, DWORD PTR [edi+wrkDCTSIZE*4]      { z3 = edx }
+
+  mov eax, DWORD PTR [esi+coefDCTSIZE*0]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*0]      { z2 = eax }
+
+    {tmp0 := (z2 + z3) shl CONST_BITS;
+    tmp1 := (z2 - z3) shl CONST_BITS;}
+  lea ebx,[eax+edx]
+  sub eax, edx
+  shl ebx, CONST_BITS                          { tmp0 = ebx }
+  shl eax, CONST_BITS                          { tmp1 = eax }
+
+    {tmp10 := tmp0 + tmp3;
+    tmp13 := tmp0 - tmp3;}
+  mov edx, tmp3
+  sub ebx, edx
+  mov tmp13, ebx
+  add edx, edx
+  add ebx, edx
+  mov tmp10, ebx
+
+    {tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;}
+  mov   ebx, tmp2
+  sub   eax, ebx
+  mov   tmp12, eax
+  add   ebx, ebx
+  add   eax, ebx
+  mov tmp11, eax
+
+    { Odd part per figure 8; the matrix is unitary and hence its
+      transpose is its inverse.  i0..i3 are y7,y5,y3,y1 respectively. }
+
+    {tmp0 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*7]) * quantptr^[DCTSIZE*7];}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*7]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*7]
+  mov   edx, eax                            { edx = tmp0 }
+    {tmp0 := (tmp0) * INT32(FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+  imul  eax, FIX_0_298631336
+  mov tmp0, eax
+
+    {tmp3 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*1]) * quantptr^[DCTSIZE*1];}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*1]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*1]
+  mov tmp3, eax
+
+    {z1 := tmp0 + tmp3;}
+    {z1 := (z1) * INT32(- FIX_0_899976223); { sqrt(2) * (c7-c3) }
+  add eax, edx
+  imul eax, (-FIX_0_899976223)
+  mov  z1, eax
+
+    {tmp1 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*5]) * quantptr^[DCTSIZE*5];}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*5]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*5]
+  mov ebx, eax                            { ebx = tmp1 }
+    {tmp1 := (tmp1) * INT32(FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+  imul  eax, FIX_2_053119869
+  mov tmp1, eax
+
+    {tmp2 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*3]) * quantptr^[DCTSIZE*3];}
+  mov eax, DWORD PTR [esi+coefDCTSIZE*3]
+  imul  eax, DWORD PTR [edi+wrkDCTSIZE*3]
+  mov tmp2, eax
+
+    {z3 := tmp0 + tmp2;}
+  add edx, eax                              { edx = z3 }
+
+    {z2 := tmp1 + tmp2;}
+    {z2 := (z2) * INT32(- FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+  add eax, ebx
+  imul  eax, (-FIX_2_562915447)
+  mov z2, eax
+
+    {z4 := tmp1 + tmp3;}
+  add ebx, tmp3                             { ebx = z4 }
+
+    {z5 := INT32(z3 + z4) * INT32(FIX_1_175875602); { sqrt(2) * c3 }
+  lea   eax, [edx+ebx]
+  imul eax, FIX_1_175875602                   { eax = z5 }
+
+    {z4 := (z4) * INT32(- FIX_0_390180644); { sqrt(2) * (c5-c3) }
+    {Inc(z4, z5);}
+  imul   ebx, (-FIX_0_390180644)
+  add    ebx, eax
+  mov    z4, ebx
+
+    {z3 := (z3) * INT32(- FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+    {Inc(z3, z5);}
+  imul edx, (-FIX_1_961570560)
+  add  eax, edx                        { z3 = eax }
+
+    {Inc(tmp0, z1 + z3);}
+  mov   ebx, z1
+  add ebx, eax
+  add tmp0, ebx
+
+    {tmp2 := (tmp2) * INT32(FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    {Inc(tmp2, z2 + z3);}
+  mov   ebx, tmp2
+  imul  ebx, FIX_3_072711026
+  mov edx, z2                        { z2 = edx }
+  add   ebx, edx
+  add   eax, ebx
+  mov tmp2, eax
+
+    {Inc(tmp1, z2 + z4);}
+  mov   eax, z4                        { z4 = eax }
+  add   edx, eax
+  add   tmp1, edx
+
+    {tmp3 := (tmp3) * INT32(FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    {Inc(tmp3, z1 + z4);}
+  mov edx, tmp3
+  imul  edx, FIX_1_501321110
+
+  add edx, eax
+  add   edx, z1                        { tmp3 = edx }
+
+    { Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }
+
+    {wsptr^[DCTSIZE*0] := int (DESCALE(tmp10 + tmp3, CONST_BITS-PASS1_BITS));}
+    {wsptr^[DCTSIZE*7] := int (DESCALE(tmp10 - tmp3, CONST_BITS-PASS1_BITS));}
+  mov eax, tmp10
+  add   eax, ROUND_CONST
+  lea   ebx, [eax+edx]
+  sar ebx, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*0], ebx
+
+  sub eax, edx
+  sar eax, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*7], eax
+
+    {wsptr^[DCTSIZE*1] := int (DESCALE(tmp11 + tmp2, CONST_BITS-PASS1_BITS));}
+    {wsptr^[DCTSIZE*6] := int (DESCALE(tmp11 - tmp2, CONST_BITS-PASS1_BITS));}
+  mov eax, tmp11
+  add   eax, ROUND_CONST
+  mov   edx, tmp2
+  lea ebx, [eax+edx]
+  sar ebx, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*1], ebx
+
+  sub eax, edx
+  sar eax, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*6], eax
+
+    {wsptr^[DCTSIZE*2] := int (DESCALE(tmp12 + tmp1, CONST_BITS-PASS1_BITS));}
+    {wsptr^[DCTSIZE*5] := int (DESCALE(tmp12 - tmp1, CONST_BITS-PASS1_BITS));}
+  mov eax, tmp12
+  add   eax, ROUND_CONST
+  mov   edx, tmp1
+  lea ebx, [eax+edx]
+  sar ebx, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*2], ebx
+
+  sub eax, edx
+  sar eax, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*5], eax
+
+    {wsptr^[DCTSIZE*3] := int (DESCALE(tmp13 + tmp0, CONST_BITS-PASS1_BITS));}
+    {wsptr^[DCTSIZE*4] := int (DESCALE(tmp13 - tmp0, CONST_BITS-PASS1_BITS));}
+  mov eax, tmp13
+  add   eax, ROUND_CONST
+  mov   edx, tmp0
+  lea   ebx, [eax+edx]
+  sar ebx, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*3], ebx
+
+  sub eax, edx
+  sar eax, CONST_BITS-PASS1_BITS
+  mov DWORD PTR [ecx+wrkDCTSIZE*4], eax
+
+    {Inc(JCOEF_PTR(inptr));   { advance pointers to next column }
+    {Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+    Inc(int_ptr(wsptr));}
+  dec ctr
+  je  @loop519
+
+  add   esi, Type JCOEF
+  add edi, Type ISLOW_MULT_TYPE
+  add ecx, Type int  { int_ptr }
+  {end;}
+  jmp @loop518
+@loop519:
+  { Save to memory what we've registerized for the preceding loop. }
+
+  { Pass 2: process rows from work array, store into output array. }
+  { Note that we must descale the results by a factor of 8 == 2**3, }
+  { and also undo the PASS1_BITS scaling. }
+
+  {wsptr := @workspace;}
+  lea esi, workspace
+
+  {for ctr := 0 to pred(DCTSIZE) do
+  begin}
+  mov ctr, 0
+@loop523:
+
+    {outptr := output_buf^[ctr];}
+  mov eax, ctr
+  mov ebx, output_buf
+  mov edi, DWORD PTR [ebx+eax*4]           { 4 = SizeOf(pointer) }
+
+    {Inc(JSAMPLE_PTR(outptr), output_col);}
+  add edi, LongWord(output_col)
+
+    { Rows of zeroes can be exploited in the same way as we did with columns.
+      However, the column calculation has created many nonzero AC terms, so
+      the simplification applies less often (typically 5% to 10% of the time).
+      On machines with very fast multiplication, it's possible that the
+      test takes more time than it's worth.  In that case this section
+      may be commented out. }
+
+{$ifndef NO_ZERO_ROW_TEST}
+    {if ((wsptr^[1]) or (wsptr^[2]) or (wsptr^[3]) or (wsptr^[4]) or
+        (wsptr^[5]) or (wsptr^[6]) or (wsptr^[7]) = 0) then
+    begin}
+  mov eax, DWORD PTR [esi+4*1]
+  or  eax, DWORD PTR [esi+4*2]
+  or  eax, DWORD PTR [esi+4*3]
+        jne     @loop525            { Nomssi: early exit path may help }
+  or  eax, DWORD PTR [esi+4*4]
+  or  eax, DWORD PTR [esi+4*5]
+  or  eax, DWORD PTR [esi+4*6]
+  or  eax, DWORD PTR [esi+4*7]
+  jne @loop525
+
+      { AC terms all zero }
+      {JSAMPLE(dcval_) := range_limit^[int(DESCALE(INT32(wsptr^[0]),
+                          PASS1_BITS+3)) and RANGE_MASK];}
+  mov eax, DWORD PTR [esi+4*0]
+  add eax, (INT32(1) shl (PASS1_BITS+3-1))
+  sar eax, PASS1_BITS+3
+  and eax, RANGE_MASK
+        mov     ebx, range_limit
+  mov al, BYTE PTR [ebx+eax]
+        mov     ah, al
+
+      {outptr^[0] := dcval_;
+      outptr^[1] := dcval_;
+      outptr^[2] := dcval_;
+      outptr^[3] := dcval_;
+      outptr^[4] := dcval_;
+      outptr^[5] := dcval_;
+      outptr^[6] := dcval_;
+      outptr^[7] := dcval_;}
+
+  stosw
+  stosw
+  stosw
+  stosw
+
+      {Inc(int_ptr(wsptr), DCTSIZE);  { advance pointer to next row }
+      {continue;}
+  add esi, wrkDCTSIZE
+  inc ctr
+  cmp ctr, DCTSIZE
+  jl  @loop523
+  jmp @loop524
+    {end;}
+@loop525:
+{$endif}
+
+
+    { Even part: reverse the even part of the forward DCT. }
+    { The rotator is sqrt(2)*c(-6). }
+
+    {z2 := INT32 (wsptr^[2]);}
+  mov edx, DWORD PTR [esi+4*2]                   { z2 = edx }
+
+    {z3 := INT32 (wsptr^[6]);}
+  mov ecx, DWORD PTR [esi+4*6]                   { z3 = ecx }
+
+    {z1 := (z2 + z3) * INT32(FIX_0_541196100);}
+  lea   eax, [edx+ecx]
+  imul  eax, FIX_0_541196100
+  mov ebx, eax                                   { z1 = ebx }
+
+    {tmp2 := z1 + (z3) * INT32(- FIX_1_847759065);}
+  imul  ecx, (-FIX_1_847759065)
+  add ecx, ebx                                   { tmp2 = ecx }
+
+    {tmp3 := z1 + (z2) * INT32(FIX_0_765366865);}
+  imul  edx, FIX_0_765366865
+  add ebx, edx                                   { tmp3 = ebx }
+
+    {tmp0 := (INT32(wsptr^[0]) + INT32(wsptr^[4])) shl CONST_BITS;}
+    {tmp1 := (INT32(wsptr^[0]) - INT32(wsptr^[4])) shl CONST_BITS;}
+  mov edx, DWORD PTR [esi+4*4]
+  mov   eax, DWORD PTR [esi+4*0]
+  sub   eax, edx
+  add   edx, edx
+  add   edx, eax
+  shl edx, CONST_BITS              { tmp0 = edx }
+  shl eax, CONST_BITS              { tmp1 = eax }
+
+    {tmp10 := tmp0 + tmp3;}
+    {tmp13 := tmp0 - tmp3;}
+  sub   edx, ebx
+  mov tmp13, edx
+  add   ebx, ebx
+  add   edx, ebx
+  mov tmp10, edx
+
+    {tmp11 := tmp1 + tmp2;}
+    {tmp12 := tmp1 - tmp2;}
+  lea   ebx, [ecx+eax]
+  mov tmp11, ebx
+  sub eax, ecx
+  mov tmp12, eax
+
+    { Odd part per figure 8; the matrix is unitary and hence its
+      transpose is its inverse.  i0..i3 are y7,y5,y3,y1 respectively. }
+
+{ The following lines no longer produce code, since wsptr has been
+  optimized to esi, it is more efficient to access these values
+  directly.
+    tmp0 := INT32(wsptr^[7]);
+    tmp1 := INT32(wsptr^[5]);
+    tmp2 := INT32(wsptr^[3]);
+    tmp3 := INT32(wsptr^[1]); }
+
+    {z2 := tmp1 + tmp2;}
+    {z2 := (z2) * INT32(- FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+  mov ebx, DWORD PTR [esi+4*3]              { tmp2 }
+  mov   ecx, DWORD PTR [esi+4*5]              { tmp1 }
+  lea   eax, [ebx+ecx]
+  imul  eax, (-FIX_2_562915447)
+  mov z2, eax
+
+    {z3 := tmp0 + tmp2;}
+  mov edx, DWORD PTR [esi+4*7]              { tmp0 }
+  add   ebx, edx                              { old z3 = ebx }
+  mov eax, ebx
+    {z3 := (z3) * INT32(- FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+  imul eax, (-FIX_1_961570560)
+  mov z3, eax
+
+    {z1 := tmp0 + tmp3;}
+    {z1 := (z1) * INT32(- FIX_0_899976223); { sqrt(2) * (c7-c3) }
+  mov eax, DWORD PTR [esi+4*1]               { tmp3 }
+  add edx, eax
+  imul  edx, (-FIX_0_899976223)                { z1 = edx }
+
+    {z4 := tmp1 + tmp3;}
+  add eax, ecx                              { +tmp1 }
+  add ebx, eax                              { z3 + z4 = ebx }
+    {z4 := (z4) * INT32(- FIX_0_390180644); { sqrt(2) * (c5-c3) }
+  imul eax, (-FIX_0_390180644)                { z4 = eax }
+
+    {z5 := (z3 + z4) * INT32(FIX_1_175875602); { sqrt(2) * c3 }
+    {Inc(z3, z5);}
+  imul ebx, FIX_1_175875602
+  mov  ecx, z3
+  add  ecx, ebx                                { ecx = z3 }
+
+    {Inc(z4, z5);}
+  add ebx, eax                                 { z4 = ebx }
+
+    {tmp0 := (tmp0) * INT32(FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+    {Inc(tmp0, z1 + z3);}
+  mov   eax, DWORD PTR [esi+4*7]
+  imul  eax, FIX_0_298631336
+  add   eax, edx
+  add   eax, ecx
+  mov tmp0, eax
+
+    {tmp1 := (tmp1) * INT32(FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+    {Inc(tmp1, z2 + z4);}
+  mov  eax, DWORD PTR [esi+4*5]
+  imul eax, FIX_2_053119869
+  add  eax, z2
+  add  eax, ebx
+  mov  tmp1, eax
+
+    {tmp2 := (tmp2) * INT32(FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    {Inc(tmp2, z2 + z3);}
+  mov eax, DWORD PTR [esi+4*3]
+  imul  eax, FIX_3_072711026
+  add   eax, z2
+  add   ecx, eax                      { ecx = tmp2 }
+
+    {tmp3 := (tmp3) * INT32(FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    {Inc(tmp3, z1 + z4);}
+  mov eax, DWORD PTR [esi+4*1]
+  imul  eax, FIX_1_501321110
+  add   eax, edx
+  add   ebx, eax                   { ebx = tmp3 }
+
+    { Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }
+
+    {outptr^[0] := range_limit^[ int(DESCALE(tmp10 + tmp3,
+                      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK]; }
+    {outptr^[7] := range_limit^[ int(DESCALE(tmp10 - tmp3,
+                        CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+
+  mov edx, tmp10
+  add   edx, ROUND_CONST_2
+  lea eax, [ebx+edx]
+  sub   edx, ebx
+
+  shr eax, CONST_BITS+PASS1_BITS+3
+  and eax, RANGE_MASK
+  mov   ebx, range_limit           { once for all }
+  mov al, BYTE PTR [ebx+eax]
+  mov   [edi+0], al
+
+  shr edx, CONST_BITS+PASS1_BITS+3
+  and edx, RANGE_MASK
+  mov al, BYTE PTR [ebx+edx]
+  mov   [edi+7], al
+
+    {outptr^[1] := range_limit^[ int(DESCALE(tmp11 + tmp2,
+                        CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  mov eax, tmp11
+  add   eax, ROUND_CONST_2
+  lea edx, [eax+ecx]
+  shr edx, CONST_BITS+PASS1_BITS+3
+  and edx, RANGE_MASK
+  mov dl, BYTE PTR [ebx+edx]
+  mov   [edi+1], dl
+
+    {outptr^[6] := range_limit^[ int(DESCALE(tmp11 - tmp2,
+      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  sub eax, ecx
+  shr eax, CONST_BITS+PASS1_BITS+3
+  and eax, RANGE_MASK
+  mov al, BYTE PTR [ebx+eax]
+  mov   [edi+6], al
+
+    {outptr^[2] := range_limit^[ int(DESCALE(tmp12 + tmp1,
+      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  mov eax, tmp12
+  add   eax, ROUND_CONST_2
+  mov   ecx, tmp1
+  lea edx, [eax+ecx]
+  shr edx, CONST_BITS+PASS1_BITS+3
+  and edx, RANGE_MASK
+  mov dl, BYTE PTR [ebx+edx]
+  mov   [edi+2], dl
+
+    {outptr^[5] := range_limit^[ int(DESCALE(tmp12 - tmp1,
+      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  sub eax, ecx
+  shr eax, CONST_BITS+PASS1_BITS+3
+  and eax, RANGE_MASK
+  mov al, BYTE PTR [ebx+eax]
+  mov   [edi+5], al
+
+    {outptr^[3] := range_limit^[ int(DESCALE(tmp13 + tmp0,
+      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  mov eax, tmp13
+  add   eax, ROUND_CONST_2
+  mov   ecx, tmp0
+  lea   edx, [eax+ecx]
+  shr edx, CONST_BITS+PASS1_BITS+3
+  and edx, RANGE_MASK
+  mov dl, BYTE PTR [ebx+edx]
+  mov   [edi+3], dl
+
+    {outptr^[4] := range_limit^[ int(DESCALE(tmp13 - tmp0,
+      CONST_BITS+PASS1_BITS+3)) and RANGE_MASK];}
+  sub eax, ecx
+  shr eax, CONST_BITS+PASS1_BITS+3
+  and eax, RANGE_MASK
+  mov al, BYTE PTR [ebx+eax]
+  mov   [edi+4], al
+
+    {Inc(int_ptr(wsptr), DCTSIZE);  { advance pointer to next row }
+  add esi, wrkDCTSIZE
+  add edi, DCTSIZE
+
+  {end;}
+  inc ctr
+  cmp ctr, DCTSIZE
+  jl  @loop523
+
+@loop524:
+@loop496:
+  pop   ebx
+  pop   esi
+  pop   edi
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjidctflt.pas b/src/lib/vampimg/JpegLib/imjidctflt.pas

new file mode 100644 (file)

index 0000000..febd244
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjidctflt.pas
@@ -0,0 +1,286 @@
+unit imjidctflt;
+
+{$N+}
+{ This file contains a floating-point implementation of the
+  inverse DCT (Discrete Cosine Transform).  In the IJG code, this routine
+  must also perform dequantization of the input coefficients.
+
+  This implementation should be more accurate than either of the integer
+  IDCT implementations.  However, it may not give the same results on all
+  machines because of differences in roundoff behavior.  Speed will depend
+  on the hardware's floating point capacity.
+
+  A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT
+  on each row (or vice versa, but it's more convenient to emit a row at
+  a time).  Direct algorithms are also available, but they are much more
+  complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on Arai, Agui, and Nakajima's algorithm for
+  scaled DCT.  Their original paper (Trans. IEICE E-71(11):1095) is in
+  Japanese, but the algorithm is described in the Pennebaker & Mitchell
+  JPEG textbook (see REFERENCES section in file README).  The following code
+  is based directly on figure 4-8 in P&M.
+  While an 8-point DCT cannot be done in less than 11 multiplies, it is
+  possible to arrange the computation so that many of the multiplies are
+  simple scalings of the final outputs.  These multiplies can then be
+  folded into the multiplications or divisions by the JPEG quantization
+  table entries.  The AA&N method leaves only 5 multiplies and 29 adds
+  to be done in the DCT itself.
+  The primary disadvantage of this method is that with a fixed-point
+  implementation, accuracy is lost due to imprecise representation of the
+  scaled quantization values.  However, that problem does not arise if
+  we use floating point arithmetic. }
+
+{ Original: jidctflt.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;           { Private declarations for DCT subsystem }
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_float (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+
+{ Dequantize a coefficient by multiplying it by the multiplier-table
+  entry; produce a float result. }
+
+function DEQUANTIZE(coef : int; quantval : FAST_FLOAT) : FAST_FLOAT;
+begin
+  Dequantize := ( (coef) * quantval);
+end;
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  shift_temp := x + (INT32(1) shl (n-1));
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+    Descale :=  (shift_temp shr n);
+{$else}
+  Descale := (x + (INT32(1) shl (n-1)) shr n;
+{$endif}
+end;
+
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_float (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array[0..DCTSIZE2-1] of FAST_FLOAT;
+var
+  tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 : FAST_FLOAT;
+  tmp10, tmp11, tmp12, tmp13 : FAST_FLOAT;
+  z5, z10, z11, z12, z13 : FAST_FLOAT;
+  inptr : JCOEFPTR;
+  quantptr : FLOAT_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkSpace;
+  outptr : JSAMPROW;
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace; { buffers data between passes }
+  {SHIFT_TEMPS}
+var
+  dcval : FAST_FLOAT;
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+
+  { Pass 1: process columns from input, store into work array. }
+
+  inptr := coef_block;
+  quantptr := FLOAT_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  wsptr := @workspace;
+  for ctr := pred(DCTSIZE) downto 0 do
+  begin
+    { Due to quantization, we will usually find that many of the input
+      coefficients are zero, especially the AC terms.  We can exploit this
+      by short-circuiting the IDCT calculation for any column in which all
+      the AC terms are zero.  In that case each output is equal to the
+      DC coefficient (with scale factor as needed).
+      With typical images and quantization tables, half or more of the
+      column DCT calculations can be simplified this way. }
+
+    if (inptr^[DCTSIZE*1]=0) and (inptr^[DCTSIZE*2]=0) and
+       (inptr^[DCTSIZE*3]=0) and (inptr^[DCTSIZE*4]=0) and
+       (inptr^[DCTSIZE*5]=0) and (inptr^[DCTSIZE*6]=0) and
+       (inptr^[DCTSIZE*7]=0) then
+    begin
+      { AC terms all zero }
+      FAST_FLOAT(dcval) := DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]);
+
+      wsptr^[DCTSIZE*0] := dcval;
+      wsptr^[DCTSIZE*1] := dcval;
+      wsptr^[DCTSIZE*2] := dcval;
+      wsptr^[DCTSIZE*3] := dcval;
+      wsptr^[DCTSIZE*4] := dcval;
+      wsptr^[DCTSIZE*5] := dcval;
+      wsptr^[DCTSIZE*6] := dcval;
+      wsptr^[DCTSIZE*7] := dcval;
+
+      Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+      Inc(FLOAT_MULT_TYPE_PTR(quantptr));
+      Inc(FAST_FLOAT_PTR(wsptr));
+      continue;
+    end;
+
+    { Even part }
+
+    tmp0 := DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]);
+    tmp1 := DEQUANTIZE(inptr^[DCTSIZE*2], quantptr^[DCTSIZE*2]);
+    tmp2 := DEQUANTIZE(inptr^[DCTSIZE*4], quantptr^[DCTSIZE*4]);
+    tmp3 := DEQUANTIZE(inptr^[DCTSIZE*6], quantptr^[DCTSIZE*6]);
+
+    tmp10 := tmp0 + tmp2; { phase 3 }
+    tmp11 := tmp0 - tmp2;
+
+    tmp13 := tmp1 + tmp3; { phases 5-3 }
+    tmp12 := (tmp1 - tmp3) * ({FAST_FLOAT}(1.414213562)) - tmp13; { 2*c4 }
+
+    tmp0 := tmp10 + tmp13;  { phase 2 }
+    tmp3 := tmp10 - tmp13;
+    tmp1 := tmp11 + tmp12;
+    tmp2 := tmp11 - tmp12;
+
+    { Odd part }
+
+    tmp4 := DEQUANTIZE(inptr^[DCTSIZE*1], quantptr^[DCTSIZE*1]);
+    tmp5 := DEQUANTIZE(inptr^[DCTSIZE*3], quantptr^[DCTSIZE*3]);
+    tmp6 := DEQUANTIZE(inptr^[DCTSIZE*5], quantptr^[DCTSIZE*5]);
+    tmp7 := DEQUANTIZE(inptr^[DCTSIZE*7], quantptr^[DCTSIZE*7]);
+
+    z13 := tmp6 + tmp5;   { phase 6 }
+    z10 := tmp6 - tmp5;
+    z11 := tmp4 + tmp7;
+    z12 := tmp4 - tmp7;
+
+    tmp7 := z11 + z13;    { phase 5 }
+    tmp11 := (z11 - z13) * ({FAST_FLOAT}(1.414213562)); { 2*c4 }
+
+    z5 := (z10 + z12) * ({FAST_FLOAT}(1.847759065)); { 2*c2 }
+    tmp10 := ({FAST_FLOAT}(1.082392200)) * z12 - z5; { 2*(c2-c6) }
+    tmp12 := ({FAST_FLOAT}(-2.613125930)) * z10 + z5; { -2*(c2+c6) }
+
+    tmp6 := tmp12 - tmp7; { phase 2 }
+    tmp5 := tmp11 - tmp6;
+    tmp4 := tmp10 + tmp5;
+
+    wsptr^[DCTSIZE*0] := tmp0 + tmp7;
+    wsptr^[DCTSIZE*7] := tmp0 - tmp7;
+    wsptr^[DCTSIZE*1] := tmp1 + tmp6;
+    wsptr^[DCTSIZE*6] := tmp1 - tmp6;
+    wsptr^[DCTSIZE*2] := tmp2 + tmp5;
+    wsptr^[DCTSIZE*5] := tmp2 - tmp5;
+    wsptr^[DCTSIZE*4] := tmp3 + tmp4;
+    wsptr^[DCTSIZE*3] := tmp3 - tmp4;
+
+    Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+    Inc(FLOAT_MULT_TYPE_PTR(quantptr));
+    Inc(FAST_FLOAT_PTR(wsptr));
+  end;
+
+  { Pass 2: process rows from work array, store into output array. }
+  { Note that we must descale the results by a factor of 8 = 2**3. }
+
+  wsptr := @workspace;
+  for ctr := 0 to pred(DCTSIZE) do
+  begin
+    outptr := JSAMPROW(@(output_buf^[ctr]^[output_col]));
+    { Rows of zeroes can be exploited in the same way as we did with columns.
+      However, the column calculation has created many nonzero AC terms, so
+      the simplification applies less often (typically 5% to 10% of the time).
+      And testing floats for zero is relatively expensive, so we don't bother. }
+
+    { Even part }
+
+    tmp10 := wsptr^[0] + wsptr^[4];
+    tmp11 := wsptr^[0] - wsptr^[4];
+
+    tmp13 := wsptr^[2] + wsptr^[6];
+    tmp12 := (wsptr^[2] - wsptr^[6]) * ({FAST_FLOAT}(1.414213562)) - tmp13;
+
+    tmp0 := tmp10 + tmp13;
+    tmp3 := tmp10 - tmp13;
+    tmp1 := tmp11 + tmp12;
+    tmp2 := tmp11 - tmp12;
+
+    { Odd part }
+
+    z13 := wsptr^[5] + wsptr^[3];
+    z10 := wsptr^[5] - wsptr^[3];
+    z11 := wsptr^[1] + wsptr^[7];
+    z12 := wsptr^[1] - wsptr^[7];
+
+    tmp7 := z11 + z13;
+    tmp11 := (z11 - z13) * ({FAST_FLOAT}(1.414213562));
+
+    z5 := (z10 + z12) * ({FAST_FLOAT}(1.847759065)); { 2*c2 }
+    tmp10 := ({FAST_FLOAT}(1.082392200)) * z12 - z5; { 2*(c2-c6) }
+    tmp12 := ({FAST_FLOAT}(-2.613125930)) * z10 + z5; { -2*(c2+c6) }
+
+    tmp6 := tmp12 - tmp7;
+    tmp5 := tmp11 - tmp6;
+    tmp4 := tmp10 + tmp5;
+
+    { Final output stage: scale down by a factor of 8 and range-limit }
+
+    outptr^[0] := range_limit^[ int(DESCALE( INT32(Round((tmp0 + tmp7))), 3))
+          and RANGE_MASK];
+    outptr^[7] := range_limit^[ int(DESCALE( INT32(Round((tmp0 - tmp7))), 3))
+          and RANGE_MASK];
+    outptr^[1] := range_limit^[ int(DESCALE( INT32(Round((tmp1 + tmp6))), 3))
+          and RANGE_MASK];
+    outptr^[6] := range_limit^[ int(DESCALE( INT32(Round((tmp1 - tmp6))), 3))
+          and RANGE_MASK];
+    outptr^[2] := range_limit^[ int(DESCALE( INT32(Round((tmp2 + tmp5))), 3))
+          and RANGE_MASK];
+    outptr^[5] := range_limit^[ int(DESCALE( INT32(Round((tmp2 - tmp5))), 3))
+          and RANGE_MASK];
+    outptr^[4] := range_limit^[ int(DESCALE( INT32(Round((tmp3 + tmp4))), 3))
+          and RANGE_MASK];
+    outptr^[3] := range_limit^[ int(DESCALE( INT32(Round((tmp3 - tmp4))), 3))
+          and RANGE_MASK];
+
+    Inc(FAST_FLOAT_PTR(wsptr), DCTSIZE);  { advance pointer to next row }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjidctfst.pas b/src/lib/vampimg/JpegLib/imjidctfst.pas

new file mode 100644 (file)

index 0000000..f66c731
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjidctfst.pas
@@ -0,0 +1,410 @@
+unit imjidctfst;
+
+{ This file contains a fast, not so accurate integer implementation of the
+  inverse DCT (Discrete Cosine Transform).  In the IJG code, this routine
+  must also perform dequantization of the input coefficients.
+
+  A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT
+  on each row (or vice versa, but it's more convenient to emit a row at
+  a time).  Direct algorithms are also available, but they are much more
+  complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on Arai, Agui, and Nakajima's algorithm for
+  scaled DCT.  Their original paper (Trans. IEICE E-71(11):1095) is in
+  Japanese, but the algorithm is described in the Pennebaker & Mitchell
+  JPEG textbook (see REFERENCES section in file README).  The following code
+  is based directly on figure 4-8 in P&M.
+  While an 8-point DCT cannot be done in less than 11 multiplies, it is
+  possible to arrange the computation so that many of the multiplies are
+  simple scalings of the final outputs.  These multiplies can then be
+  folded into the multiplications or divisions by the JPEG quantization
+  table entries.  The AA&N method leaves only 5 multiplies and 29 adds
+  to be done in the DCT itself.
+  The primary disadvantage of this method is that with fixed-point math,
+  accuracy is lost due to imprecise representation of the scaled
+  quantization values.  The smaller the quantization table entry, the less
+  precise the scaled value, so this implementation does worse with high-
+  quality-setting files than with low-quality ones. }
+
+{ Original : jidctfst.c ; Copyright (C) 1994-1996, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;       { Private declarations for DCT subsystem }
+
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_ifast (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+{ Scaling decisions are generally the same as in the LL&M algorithm;
+  see jidctint.c for more details.  However, we choose to descale
+  (right shift) multiplication products as soon as they are formed,
+  rather than carrying additional fractional bits into subsequent additions.
+  This compromises accuracy slightly, but it lets us save a few shifts.
+  More importantly, 16-bit arithmetic is then adequate (for 8-bit samples)
+  everywhere except in the multiplications proper; this saves a good deal
+  of work on 16-bit-int machines.
+
+  The dequantized coefficients are not integers because the AA&N scaling
+  factors have been incorporated.  We represent them scaled up by PASS1_BITS,
+  so that the first and second IDCT rounds have the same input scaling.
+  For 8-bit JSAMPLEs, we choose IFAST_SCALE_BITS = PASS1_BITS so as to
+  avoid a descaling shift; this compromises accuracy rather drastically
+  for small quantization table entries, but it saves a lot of shifts.
+  For 12-bit JSAMPLEs, there's no hope of using 16x16 multiplies anyway,
+  so we use a much larger scaling factor to preserve accuracy.
+
+  A final compromise is to represent the multiplicative constants to only
+  8 fractional bits, rather than 13.  This saves some shifting work on some
+  machines, and may also reduce the cost of multiplication (since there
+  are fewer one-bits in the constants). }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  CONST_BITS = 8;
+  PASS1_BITS = 2;
+{$else}
+const
+  CONST_BITS = 8;
+  PASS1_BITS = 1; { lose a little precision to avoid overflow }
+{$endif}
+
+
+const
+  FIX_1_082392200 = INT32(Round((INT32(1) shl CONST_BITS)*1.082392200));  {277}
+  FIX_1_414213562 = INT32(Round((INT32(1) shl CONST_BITS)*1.414213562));  {362}
+  FIX_1_847759065 = INT32(Round((INT32(1) shl CONST_BITS)*1.847759065));  {473}
+  FIX_2_613125930 = INT32(Round((INT32(1) shl CONST_BITS)*2.613125930));  {669}
+
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{$ifdef USE_ACCURATE_ROUNDING}
+  shift_temp := x + (INT32(1) shl (n-1));
+{$else}
+{ We can gain a little more speed, with a further compromise in accuracy,
+  by omitting the addition in a descaling shift.  This yields an incorrectly
+  rounded result half the time... }
+  shift_temp := x;
+{$endif}
+
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+{$endif}
+    Descale :=  (shift_temp shr n);
+end;
+
+
+{ Multiply a DCTELEM variable by an INT32 constant, and immediately
+  descale to yield a DCTELEM result. }
+
+  {(DCTELEM( DESCALE((var) * (const), CONST_BITS))}
+  function Multiply(Avar, Aconst: Integer): DCTELEM;
+  begin
+    Multiply := DCTELEM( Avar*INT32(Aconst) div (INT32(1) shl CONST_BITS));
+  end;
+
+
+{ Dequantize a coefficient by multiplying it by the multiplier-table
+  entry; produce a DCTELEM result.  For 8-bit data a 16x16->16
+  multiplication will do.  For 12-bit data, the multiplier table is
+  declared INT32, so a 32-bit multiply will be used. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+  function DEQUANTIZE(coef,quantval : int) : int;
+  begin
+    Dequantize := ( IFAST_MULT_TYPE(coef) * quantval);
+  end;
+{$else}
+  function DEQUANTIZE(coef,quantval : INT32) : int;
+  begin
+    Dequantize := DESCALE((coef)*(quantval), IFAST_SCALE_BITS-PASS1_BITS);
+  end;
+{$endif}
+
+
+{ Like DESCALE, but applies to a DCTELEM and produces an int.
+  We assume that int right shift is unsigned if INT32 right shift is. }
+
+function IDESCALE(x : DCTELEM; n : int) : int;
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  DCTELEMBITS = 16; { DCTELEM may be 16 or 32 bits }
+{$else}
+const
+  DCTELEMBITS = 32; { DCTELEM must be 32 bits }
+{$endif}
+var
+  ishift_temp : DCTELEM;
+begin
+{$ifndef USE_ACCURATE_ROUNDING}
+  ishift_temp := x + (INT32(1) shl (n-1));
+{$else}
+{ We can gain a little more speed, with a further compromise in accuracy,
+  by omitting the addition in a descaling shift.  This yields an incorrectly
+  rounded result half the time... }
+  ishift_temp := x;
+{$endif}
+
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  if ishift_temp < 0 then
+    IDescale :=  (ishift_temp shr n)
+             or ((not DCTELEM(0)) shl (DCTELEMBITS-n))
+  else
+{$endif}
+    IDescale :=  (ishift_temp shr n);
+end;
+
+
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_ifast (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = coef_bits_field; { buffers data between passes }
+var
+  tmp0, tmp1, tmp2, tmp3, tmp4, tmp5, tmp6, tmp7 : DCTELEM;
+  tmp10, tmp11, tmp12, tmp13 : DCTELEM;
+  z5, z10, z11, z12, z13 : DCTELEM;
+  inptr : JCOEFPTR;
+  quantptr : IFAST_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkspace;
+  outptr : JSAMPROW;
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace;        { buffers data between passes }
+  {SHIFT_TEMPS}     { for DESCALE }
+  {ISHIFT_TEMPS}    { for IDESCALE }
+var
+  dcval : int;
+var
+  dcval_ : JSAMPLE;
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+  { Pass 1: process columns from input, store into work array. }
+
+  inptr := coef_block;
+  quantptr := IFAST_MULT_TYPE_FIELD_PTR(compptr^.dct_table);
+  wsptr := @workspace;
+  for ctr := pred(DCTSIZE) downto 0 do
+  begin
+    { Due to quantization, we will usually find that many of the input
+      coefficients are zero, especially the AC terms.  We can exploit this
+      by short-circuiting the IDCT calculation for any column in which all
+      the AC terms are zero.  In that case each output is equal to the
+      DC coefficient (with scale factor as needed).
+      With typical images and quantization tables, half or more of the
+      column DCT calculations can be simplified this way. }
+
+    if (inptr^[DCTSIZE*1]=0) and (inptr^[DCTSIZE*2]=0) and (inptr^[DCTSIZE*3]=0) and
+       (inptr^[DCTSIZE*4]=0) and (inptr^[DCTSIZE*5]=0) and (inptr^[DCTSIZE*6]=0) and
+       (inptr^[DCTSIZE*7]=0) then
+    begin
+      { AC terms all zero }
+      dcval := int(DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]));
+
+      wsptr^[DCTSIZE*0] := dcval;
+      wsptr^[DCTSIZE*1] := dcval;
+      wsptr^[DCTSIZE*2] := dcval;
+      wsptr^[DCTSIZE*3] := dcval;
+      wsptr^[DCTSIZE*4] := dcval;
+      wsptr^[DCTSIZE*5] := dcval;
+      wsptr^[DCTSIZE*6] := dcval;
+      wsptr^[DCTSIZE*7] := dcval;
+
+      Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+      Inc(IFAST_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+      continue;
+    end;
+
+    { Even part }
+
+    tmp0 := DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]);
+    tmp1 := DEQUANTIZE(inptr^[DCTSIZE*2], quantptr^[DCTSIZE*2]);
+    tmp2 := DEQUANTIZE(inptr^[DCTSIZE*4], quantptr^[DCTSIZE*4]);
+    tmp3 := DEQUANTIZE(inptr^[DCTSIZE*6], quantptr^[DCTSIZE*6]);
+
+    tmp10 := tmp0 + tmp2; { phase 3 }
+    tmp11 := tmp0 - tmp2;
+
+    tmp13 := tmp1 + tmp3; { phases 5-3 }
+    tmp12 := MULTIPLY(tmp1 - tmp3, FIX_1_414213562) - tmp13; { 2*c4 }
+
+    tmp0 := tmp10 + tmp13;  { phase 2 }
+    tmp3 := tmp10 - tmp13;
+    tmp1 := tmp11 + tmp12;
+    tmp2 := tmp11 - tmp12;
+
+    { Odd part }
+
+    tmp4 := DEQUANTIZE(inptr^[DCTSIZE*1], quantptr^[DCTSIZE*1]);
+    tmp5 := DEQUANTIZE(inptr^[DCTSIZE*3], quantptr^[DCTSIZE*3]);
+    tmp6 := DEQUANTIZE(inptr^[DCTSIZE*5], quantptr^[DCTSIZE*5]);
+    tmp7 := DEQUANTIZE(inptr^[DCTSIZE*7], quantptr^[DCTSIZE*7]);
+
+    z13 := tmp6 + tmp5;   { phase 6 }
+    z10 := tmp6 - tmp5;
+    z11 := tmp4 + tmp7;
+    z12 := tmp4 - tmp7;
+
+    tmp7 := z11 + z13;    { phase 5 }
+    tmp11 := MULTIPLY(z11 - z13, FIX_1_414213562); { 2*c4 }
+
+    z5 := MULTIPLY(z10 + z12, FIX_1_847759065); { 2*c2 }
+    tmp10 := MULTIPLY(z12, FIX_1_082392200) - z5; { 2*(c2-c6) }
+    tmp12 := MULTIPLY(z10, - FIX_2_613125930) + z5; { -2*(c2+c6) }
+
+    tmp6 := tmp12 - tmp7; { phase 2 }
+    tmp5 := tmp11 - tmp6;
+    tmp4 := tmp10 + tmp5;
+
+    wsptr^[DCTSIZE*0] := int (tmp0 + tmp7);
+    wsptr^[DCTSIZE*7] := int (tmp0 - tmp7);
+    wsptr^[DCTSIZE*1] := int (tmp1 + tmp6);
+    wsptr^[DCTSIZE*6] := int (tmp1 - tmp6);
+    wsptr^[DCTSIZE*2] := int (tmp2 + tmp5);
+    wsptr^[DCTSIZE*5] := int (tmp2 - tmp5);
+    wsptr^[DCTSIZE*4] := int (tmp3 + tmp4);
+    wsptr^[DCTSIZE*3] := int (tmp3 - tmp4);
+
+    Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+    Inc(IFAST_MULT_TYPE_PTR(quantptr));
+    Inc(int_ptr(wsptr));
+  end;
+
+  { Pass 2: process rows from work array, store into output array. }
+  { Note that we must descale the results by a factor of 8 == 2**3, }
+  { and also undo the PASS1_BITS scaling. }
+
+  wsptr := @workspace;
+  for ctr := 0 to pred(DCTSIZE) do
+  begin
+    outptr := JSAMPROW(@output_buf^[ctr]^[output_col]);
+    { Rows of zeroes can be exploited in the same way as we did with columns.
+      However, the column calculation has created many nonzero AC terms, so
+      the simplification applies less often (typically 5% to 10% of the time).
+      On machines with very fast multiplication, it's possible that the
+      test takes more time than it's worth.  In that case this section
+      may be commented out. }
+
+{$ifndef NO_ZERO_ROW_TEST}
+    if (wsptr^[1]=0) and (wsptr^[2]=0) and (wsptr^[3]=0) and (wsptr^[4]=0) and
+       (wsptr^[5]=0) and (wsptr^[6]=0) and (wsptr^[7]=0) then
+    begin
+      { AC terms all zero }
+      dcval_ := range_limit^[IDESCALE(wsptr^[0], PASS1_BITS+3)
+                          and RANGE_MASK];
+
+      outptr^[0] := dcval_;
+      outptr^[1] := dcval_;
+      outptr^[2] := dcval_;
+      outptr^[3] := dcval_;
+      outptr^[4] := dcval_;
+      outptr^[5] := dcval_;
+      outptr^[6] := dcval_;
+      outptr^[7] := dcval_;
+
+      Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+      continue;
+    end;
+{$endif}
+
+    { Even part }
+
+    tmp10 := (DCTELEM(wsptr^[0]) + DCTELEM(wsptr^[4]));
+    tmp11 := (DCTELEM(wsptr^[0]) - DCTELEM(wsptr^[4]));
+
+    tmp13 := (DCTELEM(wsptr^[2]) + DCTELEM(wsptr^[6]));
+    tmp12 := MULTIPLY(DCTELEM(wsptr^[2]) - DCTELEM(wsptr^[6]), FIX_1_414213562)
+      - tmp13;
+
+    tmp0 := tmp10 + tmp13;
+    tmp3 := tmp10 - tmp13;
+    tmp1 := tmp11 + tmp12;
+    tmp2 := tmp11 - tmp12;
+
+    { Odd part }
+
+    z13 := DCTELEM(wsptr^[5]) + DCTELEM(wsptr^[3]);
+    z10 := DCTELEM(wsptr^[5]) - DCTELEM(wsptr^[3]);
+    z11 := DCTELEM(wsptr^[1]) + DCTELEM(wsptr^[7]);
+    z12 := DCTELEM(wsptr^[1]) - DCTELEM(wsptr^[7]);
+
+    tmp7 := z11 + z13;    { phase 5 }
+    tmp11 := MULTIPLY(z11 - z13, FIX_1_414213562); { 2*c4 }
+
+    z5 := MULTIPLY(z10 + z12, FIX_1_847759065); { 2*c2 }
+    tmp10 := MULTIPLY(z12, FIX_1_082392200) - z5; { 2*(c2-c6) }
+    tmp12 := MULTIPLY(z10, - FIX_2_613125930) + z5; { -2*(c2+c6) }
+
+    tmp6 := tmp12 - tmp7; { phase 2 }
+    tmp5 := tmp11 - tmp6;
+    tmp4 := tmp10 + tmp5;
+
+    { Final output stage: scale down by a factor of 8 and range-limit }
+
+    outptr^[0] := range_limit^[IDESCALE(tmp0 + tmp7, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[7] := range_limit^[IDESCALE(tmp0 - tmp7, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[1] := range_limit^[IDESCALE(tmp1 + tmp6, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[6] := range_limit^[IDESCALE(tmp1 - tmp6, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[2] := range_limit^[IDESCALE(tmp2 + tmp5, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[5] := range_limit^[IDESCALE(tmp2 - tmp5, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[4] := range_limit^[IDESCALE(tmp3 + tmp4, PASS1_BITS+3)
+          and RANGE_MASK];
+    outptr^[3] := range_limit^[IDESCALE(tmp3 - tmp4, PASS1_BITS+3)
+          and RANGE_MASK];
+
+    Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjidctint.pas b/src/lib/vampimg/JpegLib/imjidctint.pas

new file mode 100644 (file)

index 0000000..e51628b
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjidctint.pas
@@ -0,0 +1,440 @@
+unit imjidctint;
+{$Q+}
+
+{ This file contains a slow-but-accurate integer implementation of the
+  inverse DCT (Discrete Cosine Transform).  In the IJG code, this routine
+  must also perform dequantization of the input coefficients.
+
+  A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT
+  on each row (or vice versa, but it's more convenient to emit a row at
+  a time).  Direct algorithms are also available, but they are much more
+  complex and seem not to be any faster when reduced to code.
+
+  This implementation is based on an algorithm described in
+    C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT
+    Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics,
+    Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991.
+  The primary algorithm described there uses 11 multiplies and 29 adds.
+  We use their alternate method with 12 multiplies and 32 adds.
+  The advantage of this method is that no data path contains more than one
+  multiplication; this allows a very simple and accurate implementation in
+  scaled fixed-point arithmetic, with a minimal number of shifts. }
+
+{ Original : jidctint.c ;  Copyright (C) 1991-1998, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;         { Private declarations for DCT subsystem }
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_islow (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+{ The poop on this scaling stuff is as follows:
+
+  Each 1-D IDCT step produces outputs which are a factor of sqrt(N)
+  larger than the true IDCT outputs.  The final outputs are therefore
+  a factor of N larger than desired; since N=8 this can be cured by
+  a simple right shift at the end of the algorithm.  The advantage of
+  this arrangement is that we save two multiplications per 1-D IDCT,
+  because the y0 and y4 inputs need not be divided by sqrt(N).
+
+  We have to do addition and subtraction of the integer inputs, which
+  is no problem, and multiplication by fractional constants, which is
+  a problem to do in integer arithmetic.  We multiply all the constants
+  by CONST_SCALE and convert them to integer constants (thus retaining
+  CONST_BITS bits of precision in the constants).  After doing a
+  multiplication we have to divide the product by CONST_SCALE, with proper
+  rounding, to produce the correct output.  This division can be done
+  cheaply as a right shift of CONST_BITS bits.  We postpone shifting
+  as long as possible so that partial sums can be added together with
+  full fractional precision.
+
+  The outputs of the first pass are scaled up by PASS1_BITS bits so that
+  they are represented to better-than-integral precision.  These outputs
+  require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word
+  with the recommended scaling.  (To scale up 12-bit sample data further, an
+  intermediate INT32 array would be needed.)
+
+  To avoid overflow of the 32-bit intermediate results in pass 2, we must
+  have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26.  Error analysis
+  shows that the values given below are the most effective. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 2;
+{$else}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 1; { lose a little precision to avoid overflow }
+{$endif}
+
+const
+  CONST_SCALE = (INT32(1) shl CONST_BITS);
+
+const
+  FIX_0_298631336 = INT32(Round(CONST_SCALE * 0.298631336));  {2446}
+  FIX_0_390180644 = INT32(Round(CONST_SCALE * 0.390180644));  {3196}
+  FIX_0_541196100 = INT32(Round(CONST_SCALE * 0.541196100));  {4433}
+  FIX_0_765366865 = INT32(Round(CONST_SCALE * 0.765366865));  {6270}
+  FIX_0_899976223 = INT32(Round(CONST_SCALE * 0.899976223));  {7373}
+  FIX_1_175875602 = INT32(Round(CONST_SCALE * 1.175875602));  {9633}
+  FIX_1_501321110 = INT32(Round(CONST_SCALE * 1.501321110));  {12299}
+  FIX_1_847759065 = INT32(Round(CONST_SCALE * 1.847759065));  {15137}
+  FIX_1_961570560 = INT32(Round(CONST_SCALE * 1.961570560));  {16069}
+  FIX_2_053119869 = INT32(Round(CONST_SCALE * 2.053119869));  {16819}
+  FIX_2_562915447 = INT32(Round(CONST_SCALE * 2.562915447));  {20995}
+  FIX_3_072711026 = INT32(Round(CONST_SCALE * 3.072711026));  {25172}
+
+
+
+{ Multiply an INT32 variable by an INT32 constant to yield an INT32 result.
+  For 8-bit samples with the recommended scaling, all the variable
+  and constant values involved are no more than 16 bits wide, so a
+  16x16->32 bit multiply can be used instead of a full 32x32 multiply.
+  For 12-bit samples, a full 32-bit multiplication will be needed. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+
+   {$IFDEF BASM16}
+     {$IFNDEF WIN32}
+   {MULTIPLY16C16(var,const)}
+   function Multiply(X, Y: Integer): integer; assembler;
+   asm
+     mov ax, X
+     imul Y
+     mov al, ah
+     mov ah, dl
+   end;
+     {$ENDIF}
+   {$ENDIF}
+
+   function Multiply(X, Y: INT32): INT32;
+   begin
+     Multiply := INT32(X) * INT32(Y);
+   end;
+
+
+{$else}
+  {#define MULTIPLY(var,const)  ((var) * (const))}
+   function Multiply(X, Y: INT32): INT32;
+   begin
+     Multiply := INT32(X) * INT32(Y);
+   end;
+{$endif}
+
+
+{ Dequantize a coefficient by multiplying it by the multiplier-table
+  entry; produce an int result.  In this module, both inputs and result
+  are 16 bits or less, so either int or short multiply will work. }
+
+function DEQUANTIZE(coef,quantval : int) : int;
+begin
+  Dequantize := ( ISLOW_MULT_TYPE(coef) * quantval);
+end;
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  shift_temp := x + (INT32(1) shl (n-1));
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+    Descale :=  (shift_temp shr n);
+{$else}
+  Descale := (x + (INT32(1) shl (n-1)) shr n;
+{$endif}
+end;
+
+{ Perform dequantization and inverse DCT on one block of coefficients. }
+
+{GLOBAL}
+procedure jpeg_idct_islow (cinfo : j_decompress_ptr;
+                           compptr : jpeg_component_info_ptr;
+               coef_block : JCOEFPTR;
+               output_buf : JSAMPARRAY;
+                           output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = coef_bits_field; { buffers data between passes }
+var
+  tmp0, tmp1, tmp2, tmp3 : INT32;
+  tmp10, tmp11, tmp12, tmp13 : INT32;
+  z1, z2, z3, z4, z5 : INT32;
+  inptr : JCOEFPTR;
+  quantptr : ISLOW_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkspace;
+  outptr : JSAMPROW;
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace;
+  {SHIFT_TEMPS}
+var
+  dcval : int;
+var
+  dcval_ : JSAMPLE;
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+
+
+  { Pass 1: process columns from input, store into work array. }
+  { Note results are scaled up by sqrt(8) compared to a true IDCT; }
+  { furthermore, we scale the results by 2**PASS1_BITS. }
+
+  inptr := coef_block;
+  quantptr := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  wsptr := PWorkspace(@workspace);
+  for ctr := pred(DCTSIZE) downto 0 do
+  begin
+    { Due to quantization, we will usually find that many of the input
+      coefficients are zero, especially the AC terms.  We can exploit this
+      by short-circuiting the IDCT calculation for any column in which all
+      the AC terms are zero.  In that case each output is equal to the
+      DC coefficient (with scale factor as needed).
+      With typical images and quantization tables, half or more of the
+      column DCT calculations can be simplified this way. }
+
+    if ((inptr^[DCTSIZE*1]=0) and (inptr^[DCTSIZE*2]=0) and
+        (inptr^[DCTSIZE*3]=0) and (inptr^[DCTSIZE*4]=0) and
+        (inptr^[DCTSIZE*5]=0) and (inptr^[DCTSIZE*6]=0) and
+  (inptr^[DCTSIZE*7]=0)) then
+    begin
+      { AC terms all zero }
+      dcval := DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]) shl PASS1_BITS;
+
+      wsptr^[DCTSIZE*0] := dcval;
+      wsptr^[DCTSIZE*1] := dcval;
+      wsptr^[DCTSIZE*2] := dcval;
+      wsptr^[DCTSIZE*3] := dcval;
+      wsptr^[DCTSIZE*4] := dcval;
+      wsptr^[DCTSIZE*5] := dcval;
+      wsptr^[DCTSIZE*6] := dcval;
+      wsptr^[DCTSIZE*7] := dcval;
+
+      Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+      Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+      continue;
+    end;
+
+    { Even part: reverse the even part of the forward DCT. }
+    { The rotator is sqrt(2)*c(-6). }
+
+    z2 := DEQUANTIZE(inptr^[DCTSIZE*2], quantptr^[DCTSIZE*2]);
+    z3 := DEQUANTIZE(inptr^[DCTSIZE*6], quantptr^[DCTSIZE*6]);
+
+    z1 := MULTIPLY(z2 + z3, FIX_0_541196100);
+    tmp2 := z1 + MULTIPLY(z3, - FIX_1_847759065);
+    tmp3 := z1 + MULTIPLY(z2, FIX_0_765366865);
+
+    z2 := DEQUANTIZE(inptr^[DCTSIZE*0], quantptr^[DCTSIZE*0]);
+    z3 := DEQUANTIZE(inptr^[DCTSIZE*4], quantptr^[DCTSIZE*4]);
+
+    tmp0 := (z2 + z3) shl CONST_BITS;
+    tmp1 := (z2 - z3) shl CONST_BITS;
+
+    tmp10 := tmp0 + tmp3;
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    { Odd part per figure 8; the matrix is unitary and hence its
+      transpose is its inverse.  i0..i3 are y7,y5,y3,y1 respectively. }
+
+    tmp0 := DEQUANTIZE(inptr^[DCTSIZE*7], quantptr^[DCTSIZE*7]);
+    tmp1 := DEQUANTIZE(inptr^[DCTSIZE*5], quantptr^[DCTSIZE*5]);
+    tmp2 := DEQUANTIZE(inptr^[DCTSIZE*3], quantptr^[DCTSIZE*3]);
+    tmp3 := DEQUANTIZE(inptr^[DCTSIZE*1], quantptr^[DCTSIZE*1]);
+
+    z1 := tmp0 + tmp3;
+    z2 := tmp1 + tmp2;
+    z3 := tmp0 + tmp2;
+    z4 := tmp1 + tmp3;
+    z5 := MULTIPLY(z3 + z4, FIX_1_175875602); { sqrt(2) * c3 }
+
+    tmp0 := MULTIPLY(tmp0, FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+    tmp1 := MULTIPLY(tmp1, FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+    tmp2 := MULTIPLY(tmp2, FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    tmp3 := MULTIPLY(tmp3, FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    z1 := MULTIPLY(z1, - FIX_0_899976223); { sqrt(2) * (c7-c3) }
+    z2 := MULTIPLY(z2, - FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+    z3 := MULTIPLY(z3, - FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+    z4 := MULTIPLY(z4, - FIX_0_390180644); { sqrt(2) * (c5-c3) }
+
+    Inc(z3, z5);
+    Inc(z4, z5);
+
+    Inc(tmp0, z1 + z3);
+    Inc(tmp1, z2 + z4);
+    Inc(tmp2, z2 + z3);
+    Inc(tmp3, z1 + z4);
+
+    { Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }
+
+    wsptr^[DCTSIZE*0] := int (DESCALE(tmp10 + tmp3, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*7] := int (DESCALE(tmp10 - tmp3, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*1] := int (DESCALE(tmp11 + tmp2, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*6] := int (DESCALE(tmp11 - tmp2, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*2] := int (DESCALE(tmp12 + tmp1, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*5] := int (DESCALE(tmp12 - tmp1, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*3] := int (DESCALE(tmp13 + tmp0, CONST_BITS-PASS1_BITS));
+    wsptr^[DCTSIZE*4] := int (DESCALE(tmp13 - tmp0, CONST_BITS-PASS1_BITS));
+
+    Inc(JCOEF_PTR(inptr));    { advance pointers to next column }
+    Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+    Inc(int_ptr(wsptr));
+  end;
+
+  { Pass 2: process rows from work array, store into output array. }
+  { Note that we must descale the results by a factor of 8 == 2**3, }
+  { and also undo the PASS1_BITS scaling. }
+
+  wsptr := @workspace;
+  for ctr := 0 to pred(DCTSIZE) do
+  begin
+    outptr := output_buf^[ctr];
+    Inc(JSAMPLE_PTR(outptr), output_col);
+    { Rows of zeroes can be exploited in the same way as we did with columns.
+      However, the column calculation has created many nonzero AC terms, so
+      the simplification applies less often (typically 5% to 10% of the time).
+      On machines with very fast multiplication, it's possible that the
+      test takes more time than it's worth.  In that case this section
+      may be commented out. }
+
+{$ifndef NO_ZERO_ROW_TEST}
+    if ((wsptr^[1]=0) and (wsptr^[2]=0) and (wsptr^[3]=0) and (wsptr^[4]=0)
+       and (wsptr^[5]=0) and (wsptr^[6]=0) and (wsptr^[7]=0)) then
+    begin
+      { AC terms all zero }
+      JSAMPLE(dcval_) := range_limit^[int(DESCALE(INT32(wsptr^[0]),
+                          PASS1_BITS+3)) and RANGE_MASK];
+
+      outptr^[0] := dcval_;
+      outptr^[1] := dcval_;
+      outptr^[2] := dcval_;
+      outptr^[3] := dcval_;
+      outptr^[4] := dcval_;
+      outptr^[5] := dcval_;
+      outptr^[6] := dcval_;
+      outptr^[7] := dcval_;
+
+      Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+      continue;
+    end;
+{$endif}
+
+    { Even part: reverse the even part of the forward DCT. }
+    { The rotator is sqrt(2)*c(-6). }
+
+    z2 := INT32 (wsptr^[2]);
+    z3 := INT32 (wsptr^[6]);
+
+    z1 := MULTIPLY(z2 + z3, FIX_0_541196100);
+    tmp2 := z1 + MULTIPLY(z3, - FIX_1_847759065);
+    tmp3 := z1 + MULTIPLY(z2, FIX_0_765366865);
+
+    tmp0 := (INT32(wsptr^[0]) + INT32(wsptr^[4])) shl CONST_BITS;
+    tmp1 := (INT32(wsptr^[0]) - INT32(wsptr^[4])) shl CONST_BITS;
+
+    tmp10 := tmp0 + tmp3;
+    tmp13 := tmp0 - tmp3;
+    tmp11 := tmp1 + tmp2;
+    tmp12 := tmp1 - tmp2;
+
+    { Odd part per figure 8; the matrix is unitary and hence its
+      transpose is its inverse.  i0..i3 are y7,y5,y3,y1 respectively. }
+
+    tmp0 := INT32(wsptr^[7]);
+    tmp1 := INT32(wsptr^[5]);
+    tmp2 := INT32(wsptr^[3]);
+    tmp3 := INT32(wsptr^[1]);
+
+    z1 := tmp0 + tmp3;
+    z2 := tmp1 + tmp2;
+    z3 := tmp0 + tmp2;
+    z4 := tmp1 + tmp3;
+    z5 := MULTIPLY(z3 + z4, FIX_1_175875602); { sqrt(2) * c3 }
+
+    tmp0 := MULTIPLY(tmp0, FIX_0_298631336); { sqrt(2) * (-c1+c3+c5-c7) }
+    tmp1 := MULTIPLY(tmp1, FIX_2_053119869); { sqrt(2) * ( c1+c3-c5+c7) }
+    tmp2 := MULTIPLY(tmp2, FIX_3_072711026); { sqrt(2) * ( c1+c3+c5-c7) }
+    tmp3 := MULTIPLY(tmp3, FIX_1_501321110); { sqrt(2) * ( c1+c3-c5-c7) }
+    z1 := MULTIPLY(z1, - FIX_0_899976223); { sqrt(2) * (c7-c3) }
+    z2 := MULTIPLY(z2, - FIX_2_562915447); { sqrt(2) * (-c1-c3) }
+    z3 := MULTIPLY(z3, - FIX_1_961570560); { sqrt(2) * (-c3-c5) }
+    z4 := MULTIPLY(z4, - FIX_0_390180644); { sqrt(2) * (c5-c3) }
+
+    Inc(z3, z5);
+    Inc(z4, z5);
+
+    Inc(tmp0, z1 + z3);
+    Inc(tmp1, z2 + z4);
+    Inc(tmp2, z2 + z3);
+    Inc(tmp3, z1 + z4);
+
+    { Final output stage: inputs are tmp10..tmp13, tmp0..tmp3 }
+
+    outptr^[0] := range_limit^[ int(DESCALE(tmp10 + tmp3,
+            CONST_BITS+PASS1_BITS+3))
+          and RANGE_MASK];
+    outptr^[7] := range_limit^[ int(DESCALE(tmp10 - tmp3,
+            CONST_BITS+PASS1_BITS+3))
+          and RANGE_MASK];
+    outptr^[1] := range_limit^[ int(DESCALE(tmp11 + tmp2,
+            CONST_BITS+PASS1_BITS+3))
+          and RANGE_MASK];
+    outptr^[6] := range_limit^[ int(DESCALE(tmp11 - tmp2,
+                                          CONST_BITS+PASS1_BITS+3))
+                            and RANGE_MASK];
+    outptr^[2] := range_limit^[ int(DESCALE(tmp12 + tmp1,
+                                          CONST_BITS+PASS1_BITS+3))
+                            and RANGE_MASK];
+    outptr^[5] := range_limit^[ int(DESCALE(tmp12 - tmp1,
+                                          CONST_BITS+PASS1_BITS+3))
+                            and RANGE_MASK];
+    outptr^[3] := range_limit^[ int(DESCALE(tmp13 + tmp0,
+                                          CONST_BITS+PASS1_BITS+3))
+                            and RANGE_MASK];
+    outptr^[4] := range_limit^[ int(DESCALE(tmp13 - tmp0,
+                                          CONST_BITS+PASS1_BITS+3))
+                            and RANGE_MASK];
+
+    Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+  end;
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjidctred.pas b/src/lib/vampimg/JpegLib/imjidctred.pas

new file mode 100644 (file)

index 0000000..27a0e43
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjidctred.pas
@@ -0,0 +1,525 @@
+unit imjidctred;
+
+
+{ This file contains inverse-DCT routines that produce reduced-size output:
+  either 4x4, 2x2, or 1x1 pixels from an 8x8 DCT block.
+
+  The implementation is based on the Loeffler, Ligtenberg and Moschytz (LL&M)
+  algorithm used in jidctint.c.  We simply replace each 8-to-8 1-D IDCT step
+  with an 8-to-4 step that produces the four averages of two adjacent outputs
+  (or an 8-to-2 step producing two averages of four outputs, for 2x2 output).
+  These steps were derived by computing the corresponding values at the end
+  of the normal LL&M code, then simplifying as much as possible.
+
+  1x1 is trivial: just take the DC coefficient divided by 8.
+
+  See jidctint.c for additional comments. }
+
+
+{ Original : jidctred.c ; Copyright (C) 1994-1998, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib,
+  imjdct;           { Private declarations for DCT subsystem }
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 1x1 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_1x1 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                   output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 2x2 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_2x2 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                         output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 4x4 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_4x4 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                   output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+
+implementation
+
+{ This module is specialized to the case DCTSIZE = 8. }
+
+{$ifndef DCTSIZE_IS_8}
+  Sorry, this code only copes with 8x8 DCTs. { deliberate syntax err }
+{$endif}
+
+
+{ Scaling is the same as in jidctint.c. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 2;
+{$else}
+const
+  CONST_BITS = 13;
+  PASS1_BITS = 1; { lose a little precision to avoid overflow }
+{$endif}
+
+const
+  FIX_0_211164243 = INT32(Round((INT32(1) shl CONST_BITS) * 0.211164243)); {1730}
+  FIX_0_509795579 = INT32(Round((INT32(1) shl CONST_BITS) * 0.509795579)); {4176}
+  FIX_0_601344887 = INT32(Round((INT32(1) shl CONST_BITS) * 0.601344887)); {4926}
+  FIX_0_720959822 = INT32(Round((INT32(1) shl CONST_BITS) * 0.720959822)); {5906}
+  FIX_0_765366865 = INT32(Round((INT32(1) shl CONST_BITS) * 0.765366865)); {6270}
+  FIX_0_850430095 = INT32(Round((INT32(1) shl CONST_BITS) * 0.850430095)); {6967}
+  FIX_0_899976223 = INT32(Round((INT32(1) shl CONST_BITS) * 0.899976223)); {7373}
+  FIX_1_061594337 = INT32(Round((INT32(1) shl CONST_BITS) * 1.061594337)); {8697}
+  FIX_1_272758580 = INT32(Round((INT32(1) shl CONST_BITS) * 1.272758580)); {10426}
+  FIX_1_451774981 = INT32(Round((INT32(1) shl CONST_BITS) * 1.451774981)); {11893}
+  FIX_1_847759065 = INT32(Round((INT32(1) shl CONST_BITS) * 1.847759065)); {15137}
+  FIX_2_172734803 = INT32(Round((INT32(1) shl CONST_BITS) * 2.172734803)); {17799}
+  FIX_2_562915447 = INT32(Round((INT32(1) shl CONST_BITS) * 2.562915447)); {20995}
+  FIX_3_624509785 = INT32(Round((INT32(1) shl CONST_BITS) * 3.624509785)); {29692}
+
+
+{ Multiply an INT32 variable by an INT32 constant to yield an INT32 result.
+  For 8-bit samples with the recommended scaling, all the variable
+  and constant values involved are no more than 16 bits wide, so a
+  16x16->32 bit multiply can be used instead of a full 32x32 multiply.
+  For 12-bit samples, a full 32-bit multiplication will be needed. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+
+   {function Multiply(X, Y: Integer): integer; assembler;
+   asm
+     mov ax, X
+     imul Y
+     mov al, ah
+     mov ah, dl
+   end;}
+
+   {MULTIPLY16C16(var,const)}
+   function Multiply(X, Y: Integer): INT32;
+   begin
+     Multiply := X*INT32(Y);
+   end;
+
+
+{$else}
+   function Multiply(X, Y: INT32): INT32;
+   begin
+     Multiply := X*Y;
+   end;
+{$endif}
+
+
+{ Dequantize a coefficient by multiplying it by the multiplier-table
+  entry; produce an int result.  In this module, both inputs and result
+  are 16 bits or less, so either int or short multiply will work. }
+
+function DEQUANTIZE(coef,quantval : int) : int;
+begin
+  Dequantize := ( ISLOW_MULT_TYPE(coef) * quantval);
+end;
+
+
+{ Descale and correctly round an INT32 value that's scaled by N bits.
+  We assume RIGHT_SHIFT rounds towards minus infinity, so adding
+  the fudge factor is correct for either sign of X. }
+
+function DESCALE(x : INT32; n : int) : INT32;
+var
+  shift_temp : INT32;
+begin
+{$ifdef RIGHT_SHIFT_IS_UNSIGNED}
+  shift_temp := x + (INT32(1) shl (n-1));
+  if shift_temp < 0 then
+    Descale :=  (shift_temp shr n) or ((not INT32(0)) shl (32-n))
+  else
+    Descale :=  (shift_temp shr n);
+{$else}
+  Descale := (x + (INT32(1) shl (n-1)) shr n;
+{$endif}
+end;
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 4x4 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_4x4 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                   output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array[0..(DCTSIZE*4)-1] of int; { buffers data between passes }
+var
+  tmp0, tmp2, tmp10, tmp12 : INT32;
+  z1, z2, z3, z4 : INT32;
+  inptr : JCOEFPTR;
+  quantptr : ISLOW_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkspace;
+  outptr : JSAMPROW;
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace; { buffers data between passes }
+  {SHIFT_TEMPS}
+var
+  dcval : int;
+var
+  dcval_ : JSAMPLE;
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+
+  { Pass 1: process columns from input, store into work array. }
+
+  inptr := coef_block;
+  quantptr := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  wsptr := @workspace;
+  for ctr := DCTSIZE downto 1 do
+  begin
+    { Don't bother to process column 4, because second pass won't use it }
+    if (ctr = DCTSIZE-4) then
+    begin
+      Inc(JCOEF_PTR(inptr));
+      Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+
+      continue;
+    end;
+    if (inptr^[DCTSIZE*1]=0) and (inptr^[DCTSIZE*2]=0) and (inptr^[DCTSIZE*3]=0) and
+       (inptr^[DCTSIZE*5]=0) and (inptr^[DCTSIZE*6]=0) and (inptr^[DCTSIZE*7]=0) then
+    begin
+      { AC terms all zero; we need not examine term 4 for 4x4 output }
+      dcval := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) *
+                      quantptr^[DCTSIZE*0]) shl PASS1_BITS;
+
+      wsptr^[DCTSIZE*0] := dcval;
+      wsptr^[DCTSIZE*1] := dcval;
+      wsptr^[DCTSIZE*2] := dcval;
+      wsptr^[DCTSIZE*3] := dcval;
+
+      Inc(JCOEF_PTR(inptr));
+      Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+
+      continue;
+    end;
+
+    { Even part }
+
+    tmp0 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) * quantptr^[DCTSIZE*0]);
+
+    tmp0 := tmp0 shl (CONST_BITS+1);
+
+    z2 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*2]) * quantptr^[DCTSIZE*2]);
+    z3 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*6]) * quantptr^[DCTSIZE*6]);
+
+    tmp2 := MULTIPLY(z2, FIX_1_847759065) + MULTIPLY(z3, - FIX_0_765366865);
+
+    tmp10 := tmp0 + tmp2;
+    tmp12 := tmp0 - tmp2;
+
+    { Odd part }
+
+    z1 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*7]) * quantptr^[DCTSIZE*7];
+    z2 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*5]) * quantptr^[DCTSIZE*5];
+    z3 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*3]) * quantptr^[DCTSIZE*3];
+    z4 := ISLOW_MULT_TYPE(inptr^[DCTSIZE*1]) * quantptr^[DCTSIZE*1];
+
+    tmp0 := MULTIPLY(z1, - FIX_0_211164243) { sqrt(2) * (c3-c1) }
+    + MULTIPLY(z2, FIX_1_451774981) { sqrt(2) * (c3+c7) }
+    + MULTIPLY(z3, - FIX_2_172734803) { sqrt(2) * (-c1-c5) }
+    + MULTIPLY(z4, FIX_1_061594337); { sqrt(2) * (c5+c7) }
+
+    tmp2 := MULTIPLY(z1, - FIX_0_509795579) { sqrt(2) * (c7-c5) }
+    + MULTIPLY(z2, - FIX_0_601344887) { sqrt(2) * (c5-c1) }
+    + MULTIPLY(z3, FIX_0_899976223) { sqrt(2) * (c3-c7) }
+    + MULTIPLY(z4, FIX_2_562915447); { sqrt(2) * (c1+c3) }
+
+    { Final output stage }
+
+    wsptr^[DCTSIZE*0] := int(DESCALE(tmp10 + tmp2, CONST_BITS-PASS1_BITS+1));
+    wsptr^[DCTSIZE*3] := int(DESCALE(tmp10 - tmp2, CONST_BITS-PASS1_BITS+1));
+    wsptr^[DCTSIZE*1] := int(DESCALE(tmp12 + tmp0, CONST_BITS-PASS1_BITS+1));
+    wsptr^[DCTSIZE*2] := int(DESCALE(tmp12 - tmp0, CONST_BITS-PASS1_BITS+1));
+
+    Inc(JCOEF_PTR(inptr));
+    Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+    Inc(int_ptr(wsptr));
+  end;
+
+  { Pass 2: process 4 rows from work array, store into output array. }
+
+  wsptr := @workspace;
+  for ctr := 0 to pred(4) do
+  begin
+    outptr := JSAMPROW(@ output_buf^[ctr]^[output_col]);
+    { It's not clear whether a zero row test is worthwhile here ... }
+
+{$ifndef NO_ZERO_ROW_TEST}
+    if (wsptr^[1]=0) and (wsptr^[2]=0) and (wsptr^[3]=0) and
+       (wsptr^[5]=0) and (wsptr^[6]=0) and (wsptr^[7]=0) then
+    begin
+      { AC terms all zero }
+      dcval_ := range_limit^[int(DESCALE(INT32(wsptr^[0]), PASS1_BITS+3))
+          and RANGE_MASK];
+
+      outptr^[0] := dcval_;
+      outptr^[1] := dcval_;
+      outptr^[2] := dcval_;
+      outptr^[3] := dcval_;
+
+      Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+      continue;
+    end;
+{$endif}
+
+    { Even part }
+
+    tmp0 := (INT32(wsptr^[0])) shl (CONST_BITS+1);
+
+    tmp2 := MULTIPLY(INT32(wsptr^[2]), FIX_1_847759065)
+    + MULTIPLY(INT32(wsptr^[6]), - FIX_0_765366865);
+
+    tmp10 := tmp0 + tmp2;
+    tmp12 := tmp0 - tmp2;
+
+    { Odd part }
+
+    z1 := INT32(wsptr^[7]);
+    z2 := INT32(wsptr^[5]);
+    z3 := INT32(wsptr^[3]);
+    z4 := INT32(wsptr^[1]);
+
+    tmp0 := MULTIPLY(z1, - FIX_0_211164243) { sqrt(2) * (c3-c1) }
+    + MULTIPLY(z2, FIX_1_451774981) { sqrt(2) * (c3+c7) }
+    + MULTIPLY(z3, - FIX_2_172734803) { sqrt(2) * (-c1-c5) }
+    + MULTIPLY(z4, FIX_1_061594337); { sqrt(2) * (c5+c7) }
+
+    tmp2 := MULTIPLY(z1, - FIX_0_509795579) { sqrt(2) * (c7-c5) }
+    + MULTIPLY(z2, - FIX_0_601344887) { sqrt(2) * (c5-c1) }
+    + MULTIPLY(z3, FIX_0_899976223) { sqrt(2) * (c3-c7) }
+    + MULTIPLY(z4, FIX_2_562915447); { sqrt(2) * (c1+c3) }
+
+    { Final output stage }
+
+    outptr^[0] := range_limit^[ int(DESCALE(tmp10 + tmp2,
+            CONST_BITS+PASS1_BITS+3+1))
+          and RANGE_MASK];
+    outptr^[3] := range_limit^[ int(DESCALE(tmp10 - tmp2,
+            CONST_BITS+PASS1_BITS+3+1))
+          and RANGE_MASK];
+    outptr^[1] := range_limit^[ int(DESCALE(tmp12 + tmp0,
+            CONST_BITS+PASS1_BITS+3+1))
+          and RANGE_MASK];
+    outptr^[2] := range_limit^[ int(DESCALE(tmp12 - tmp0,
+            CONST_BITS+PASS1_BITS+3+1))
+          and RANGE_MASK];
+
+    Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+  end;
+end;
+
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 2x2 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_2x2 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                         output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+type
+  PWorkspace = ^TWorkspace;
+  TWorkspace = array[0..(DCTSIZE*2)-1] of int; { buffers data between passes }
+var
+  tmp0, tmp10, z1 : INT32;
+  inptr : JCOEFPTR;
+  quantptr : ISLOW_MULT_TYPE_FIELD_PTR;
+  wsptr : PWorkspace;
+  outptr : JSAMPROW;
+  range_limit : JSAMPROW;
+  ctr : int;
+  workspace : TWorkspace;  { buffers data between passes }
+  {SHIFT_TEMPS}
+var
+  dcval : int;
+var
+  dcval_ : JSAMPLE;
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+  { Pass 1: process columns from input, store into work array. }
+
+  inptr := coef_block;
+  quantptr := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  wsptr := @workspace;
+  for ctr := DCTSIZE downto 1 do
+  begin
+    { Don't bother to process columns 2,4,6 }
+    if (ctr = DCTSIZE-2) or (ctr = DCTSIZE-4) or (ctr = DCTSIZE-6) then
+    begin
+      Inc(JCOEF_PTR(inptr));
+      Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+
+      continue;
+    end;
+    if (inptr^[DCTSIZE*1]=0) and (inptr^[DCTSIZE*3]=0) and
+       (inptr^[DCTSIZE*5]=0) and (inptr^[DCTSIZE*7]=0) then
+    begin
+      { AC terms all zero; we need not examine terms 2,4,6 for 2x2 output }
+      dcval := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) *
+                 quantptr^[DCTSIZE*0]) shl PASS1_BITS;
+
+      wsptr^[DCTSIZE*0] := dcval;
+      wsptr^[DCTSIZE*1] := dcval;
+
+      Inc(JCOEF_PTR(inptr));
+      Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+      Inc(int_ptr(wsptr));
+
+      continue;
+    end;
+
+    { Even part }
+
+    z1 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*0]) * quantptr^[DCTSIZE*0]);
+
+    tmp10 := z1 shl (CONST_BITS+2);
+
+    { Odd part }
+
+    z1 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*7]) * quantptr^[DCTSIZE*7]);
+    tmp0 := MULTIPLY(z1, - FIX_0_720959822); { sqrt(2) * (c7-c5+c3-c1) }
+    z1 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*5]) * quantptr^[DCTSIZE*5]);
+    Inc(tmp0, MULTIPLY(z1, FIX_0_850430095)); { sqrt(2) * (-c1+c3+c5+c7) }
+    z1 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*3]) * quantptr^[DCTSIZE*3]);
+    Inc(tmp0, MULTIPLY(z1, - FIX_1_272758580)); { sqrt(2) * (-c1+c3-c5-c7) }
+    z1 := (ISLOW_MULT_TYPE(inptr^[DCTSIZE*1]) * quantptr^[DCTSIZE*1]);
+    Inc(tmp0, MULTIPLY(z1, FIX_3_624509785)); { sqrt(2) * (c1+c3+c5+c7) }
+
+    { Final output stage }
+
+    wsptr^[DCTSIZE*0] := int (DESCALE(tmp10 + tmp0, CONST_BITS-PASS1_BITS+2));
+    wsptr^[DCTSIZE*1] := int (DESCALE(tmp10 - tmp0, CONST_BITS-PASS1_BITS+2));
+
+    Inc(JCOEF_PTR(inptr));
+    Inc(ISLOW_MULT_TYPE_PTR(quantptr));
+    Inc(int_ptr(wsptr));
+  end;
+
+  { Pass 2: process 2 rows from work array, store into output array. }
+
+  wsptr := @workspace;
+  for ctr := 0 to pred(2) do
+  begin
+    outptr := JSAMPROW(@ output_buf^[ctr]^[output_col]);
+    { It's not clear whether a zero row test is worthwhile here ... }
+
+{$ifndef NO_ZERO_ROW_TEST}
+    if (wsptr^[1]=0) and (wsptr^[3]=0) and (wsptr^[5]=0) and (wsptr^[7]= 0) then
+    begin
+      { AC terms all zero }
+      dcval_ := range_limit^[ int(DESCALE(INT32(wsptr^[0]), PASS1_BITS+3))
+          and RANGE_MASK];
+
+      outptr^[0] := dcval_;
+      outptr^[1] := dcval_;
+
+      Inc(int_ptr(wsptr), DCTSIZE); { advance pointer to next row }
+      continue;
+    end;
+{$endif}
+
+    { Even part }
+
+    tmp10 := (INT32 (wsptr^[0])) shl (CONST_BITS+2);
+
+    { Odd part }
+
+    tmp0 := MULTIPLY( INT32(wsptr^[7]), - FIX_0_720959822) { sqrt(2) * (c7-c5+c3-c1) }
+    + MULTIPLY( INT32(wsptr^[5]), FIX_0_850430095) { sqrt(2) * (-c1+c3+c5+c7) }
+    + MULTIPLY( INT32(wsptr^[3]), - FIX_1_272758580) { sqrt(2) * (-c1+c3-c5-c7) }
+    + MULTIPLY( INT32(wsptr^[1]), FIX_3_624509785); { sqrt(2) * (c1+c3+c5+c7) }
+
+    { Final output stage }
+
+    outptr^[0] := range_limit^[ int(DESCALE(tmp10 + tmp0,
+            CONST_BITS+PASS1_BITS+3+2))
+          and RANGE_MASK];
+    outptr^[1] := range_limit^[ int(DESCALE(tmp10 - tmp0,
+            CONST_BITS+PASS1_BITS+3+2))
+          and RANGE_MASK];
+
+    Inc(int_ptr(wsptr), DCTSIZE);   { advance pointer to next row }
+  end;
+end;
+
+
+{ Perform dequantization and inverse DCT on one block of coefficients,
+  producing a reduced-size 1x1 output block. }
+
+{GLOBAL}
+procedure jpeg_idct_1x1 (cinfo : j_decompress_ptr;
+                         compptr : jpeg_component_info_ptr;
+                   coef_block : JCOEFPTR;
+                   output_buf : JSAMPARRAY;
+                         output_col : JDIMENSION);
+var
+  dcval : int;
+  quantptr : ISLOW_MULT_TYPE_FIELD_PTR;
+  range_limit : JSAMPROW;
+  {SHIFT_TEMPS}
+begin
+{ Each IDCT routine is responsible for range-limiting its results and
+  converting them to unsigned form (0..MAXJSAMPLE).  The raw outputs could
+  be quite far out of range if the input data is corrupt, so a bulletproof
+  range-limiting step is required.  We use a mask-and-table-lookup method
+  to do the combined operations quickly.  See the comments with
+  prepare_range_limit_table (in jdmaster.c) for more info. }
+
+  range_limit := JSAMPROW(@(cinfo^.sample_range_limit^[CENTERJSAMPLE]));
+  { Pass 1: process columns from input, store into work array. }
+
+  { We hardly need an inverse DCT routine for this: just take the
+    average pixel value, which is one-eighth of the DC coefficient. }
+
+  quantptr := ISLOW_MULT_TYPE_FIELD_PTR (compptr^.dct_table);
+  dcval := (ISLOW_MULT_TYPE(coef_block^[0]) * quantptr^[0]);
+  dcval := int (DESCALE( INT32(dcval), 3));
+
+  output_buf^[0]^[output_col] := range_limit^[dcval and RANGE_MASK];
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjinclude.pas b/src/lib/vampimg/JpegLib/imjinclude.pas

new file mode 100644 (file)

index 0000000..dcaa684
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjinclude.pas
@@ -0,0 +1,126 @@
+unit imjinclude;
+
+{ This file exists to provide a single place to fix any problems with
+  including the wrong system include files.  (Common problems are taken
+  care of by the standard jconfig symbols, but on really weird systems
+  you may have to edit this file.)
+
+  NOTE: this file is NOT intended to be included by applications using the
+  JPEG library.  Most applications need only include jpeglib.h. }
+
+{ Original: jinclude.h Copyright (C) 1991-1994, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+{ Include auto-config file to find out which system include files we need. }
+
+uses
+{$ifdef Delphi_Stream}
+  classes,
+{$endif}
+  imjmorecfg;
+
+{ Nomssi:
+  To write a dest/source manager that handle streams rather than files,
+  you can edit the FILEptr definition and the JFREAD() and JFWRITE()
+  functions in this unit, you don't need to change the default managers
+  JDATASRC and JDATADST. }
+
+{$ifdef Delphi_Stream}
+type
+  FILEptr = ^TStream;
+{$else}
+  {$ifdef Delphi_Jpeg}
+  type
+    FILEptr = TCustomMemoryStream;
+  {$else}
+  type
+    FILEptr = ^File;
+  {$endif}
+{$endif}
+
+{ We need the NULL macro and size_t typedef.
+  On an ANSI-conforming system it is sufficient to include <stddef.h>.
+  Otherwise, we get them from <stdlib.h> or <stdio.h>; we may have to
+  pull in <sys/types.h> as well.
+  Note that the core JPEG library does not require <stdio.h>;
+  only the default error handler and data source/destination modules do.
+  But we must pull it in because of the references to FILE in jpeglib.h.
+  You can remove those references if you want to compile without <stdio.h>.}
+
+
+
+{ We need memory copying and zeroing functions, plus strncpy().
+  ANSI and System V implementations declare these in <string.h>.
+  BSD doesn't have the mem() functions, but it does have bcopy()/bzero().
+  Some systems may declare memset and memcpy in <memory.h>.
+
+  NOTE: we assume the size parameters to these functions are of type size_t.
+  Change the casts in these macros if not! }
+
+procedure MEMZERO(target : pointer; size : size_t);
+
+procedure MEMCOPY(dest, src : pointer; size : size_t);
+
+{function SIZEOF(object) : size_t;}
+
+function JFREAD(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
+
+function JFWRITE(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
+
+implementation
+
+procedure MEMZERO(target : pointer; size : size_t);
+begin
+  FillChar(target^, size, 0);
+end;
+
+procedure MEMCOPY(dest, src : pointer; size : size_t);
+begin
+  Move(src^, dest^, size);
+end;
+
+{ In ANSI C, and indeed any rational implementation, size_t is also the
+  type returned by sizeof().  However, it seems there are some irrational
+  implementations out there, in which sizeof() returns an int even though
+  size_t is defined as long or unsigned long.  To ensure consistent results
+  we always use this SIZEOF() macro in place of using sizeof() directly. }
+
+
+{#define
+  SIZEOF(object)  (size_t(sizeof(object))}
+
+
+{ The modules that use fread() and fwrite() always invoke them through
+  these macros.  On some systems you may need to twiddle the argument casts.
+  CAUTION: argument order is different from underlying functions! }
+
+
+function JFREAD(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
+var
+  count : uint;
+begin
+  {$ifdef Delphi_Stream}
+  count := fp^.Read(buf^, sizeofbuf);
+  {$else}
+     blockread(fp^, buf^, sizeofbuf, count);
+  {$endif}
+  JFREAD := size_t(count);
+end;
+
+function JFWRITE(fp : FILEptr; buf : pointer; sizeofbuf : size_t) : size_t;
+var
+  count : uint;
+begin
+  {$ifdef Delphi_Stream}
+  count := fp^.Write(buf^, sizeofbuf);
+  {$else}
+     blockwrite(fp^, buf^, sizeofbuf, count);
+  {$endif}
+  JFWRITE := size_t(count);
+end;
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjmemmgr.pas b/src/lib/vampimg/JpegLib/imjmemmgr.pas

new file mode 100644 (file)

index 0000000..ca8239d
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjmemmgr.pas
@@ -0,0 +1,1283 @@
+unit imjmemmgr;
+
+{ This file contains the JPEG system-independent memory management
+  routines.  This code is usable across a wide variety of machines; most
+  of the system dependencies have been isolated in a separate file.
+  The major functions provided here are:
+    * pool-based allocation and freeing of memory;
+    * policy decisions about how to divide available memory among the
+      virtual arrays;
+    * control logic for swapping virtual arrays between main memory and
+      backing storage.
+  The separate system-dependent file provides the actual backing-storage
+  access code, and it contains the policy decision about how much total
+  main memory to use.
+  This file is system-dependent in the sense that some of its functions
+  are unnecessary in some systems.  For example, if there is enough virtual
+  memory so that backing storage will never be used, much of the virtual
+  array control logic could be removed.  (Of course, if you have that much
+  memory then you shouldn't care about a little bit of unused code...) }
+
+{ Original : jmemmgr.c ; Copyright (C) 1991-1997, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+   imjmorecfg,
+   imjinclude,
+   imjdeferr,
+   imjerror,
+   imjpeglib,
+   imjutils,
+{$IFDEF VER70}
+{$ifndef NO_GETENV}
+   Dos,                   { DOS unit should declare getenv() }
+                               { function GetEnv(name : string) : string; }
+{$endif}
+   imjmemdos;                     { import the system-dependent declarations }
+{$ELSE}
+   imjmemnobs;
+  {$DEFINE NO_GETENV}
+{$ENDIF}
+
+{ Memory manager initialization.
+  When this is called, only the error manager pointer is valid in cinfo! }
+
+{GLOBAL}
+procedure jinit_memory_mgr (cinfo : j_common_ptr);
+
+implementation
+
+
+{ Some important notes:
+    The allocation routines provided here must never return NIL.
+    They should exit to error_exit if unsuccessful.
+
+    It's not a good idea to try to merge the sarray and barray routines,
+    even though they are textually almost the same, because samples are
+    usually stored as bytes while coefficients are shorts or ints.  Thus,
+    in machines where byte pointers have a different representation from
+    word pointers, the resulting machine code could not be the same.  }
+
+
+{ Many machines require storage alignment: longs must start on 4-byte
+  boundaries, doubles on 8-byte boundaries, etc.  On such machines, malloc()
+  always returns pointers that are multiples of the worst-case alignment
+  requirement, and we had better do so too.
+  There isn't any really portable way to determine the worst-case alignment
+  requirement.  This module assumes that the alignment requirement is
+  multiples of sizeof(ALIGN_TYPE).
+  By default, we define ALIGN_TYPE as double.  This is necessary on some
+  workstations (where doubles really do need 8-byte alignment) and will work
+  fine on nearly everything.  If your machine has lesser alignment needs,
+  you can save a few bytes by making ALIGN_TYPE smaller.
+  The only place I know of where this will NOT work is certain Macintosh
+  680x0 compilers that define double as a 10-byte IEEE extended float.
+  Doing 10-byte alignment is counterproductive because longwords won't be
+  aligned well.  Put "#define ALIGN_TYPE long" in jconfig.h if you have
+  such a compiler. }
+
+{$ifndef ALIGN_TYPE} { so can override from jconfig.h }
+type
+  ALIGN_TYPE = double;
+{$endif}
+
+
+{ We allocate objects from "pools", where each pool is gotten with a single
+  request to jpeg_get_small() or jpeg_get_large().  There is no per-object
+  overhead within a pool, except for alignment padding.  Each pool has a
+  header with a link to the next pool of the same class.
+  Small and large pool headers are identical except that the latter's
+  link pointer must be FAR on 80x86 machines.
+  Notice that the "real" header fields are union'ed with a dummy ALIGN_TYPE
+  field.  This forces the compiler to make SIZEOF(small_pool_hdr) a multiple
+  of the alignment requirement of ALIGN_TYPE. }
+
+type
+  small_pool_ptr = ^small_pool_hdr;
+  small_pool_hdr = record
+  case byte of
+    0:(hdr : record
+               next : small_pool_ptr;   { next in list of pools }
+               bytes_used : size_t;     { how many bytes already used within pool }
+               bytes_left : size_t;     { bytes still available in this pool }
+             end);
+    1:(dummy : ALIGN_TYPE);             { included in union to ensure alignment }
+  end; {small_pool_hdr;}
+
+type
+  large_pool_ptr = ^large_pool_hdr; {FAR}
+  large_pool_hdr = record
+  case byte of
+    0:(hdr : record
+               next : large_pool_ptr;   { next in list of pools }
+               bytes_used : size_t;     { how many bytes already used within pool }
+               bytes_left : size_t;     { bytes still available in this pool }
+             end);
+    1:(dummy : ALIGN_TYPE);             { included in union to ensure alignment }
+  end; {large_pool_hdr;}
+
+
+{ Here is the full definition of a memory manager object. }
+
+type
+  my_mem_ptr = ^my_memory_mgr;
+  my_memory_mgr = record
+    pub : jpeg_memory_mgr;  { public fields }
+
+    { Each pool identifier (lifetime class) names a linked list of pools. }
+    small_list : array[0..JPOOL_NUMPOOLS-1] of small_pool_ptr ;
+    large_list : array[0..JPOOL_NUMPOOLS-1] of large_pool_ptr ;
+
+    { Since we only have one lifetime class of virtual arrays, only one
+      linked list is necessary (for each datatype).  Note that the virtual
+      array control blocks being linked together are actually stored somewhere
+      in the small-pool list. }
+
+    virt_sarray_list : jvirt_sarray_ptr;
+    virt_barray_list : jvirt_barray_ptr;
+
+    { This counts total space obtained from jpeg_get_small/large }
+    total_space_allocated : long;
+
+    { alloc_sarray and alloc_barray set this value for use by virtual
+      array routines. }
+
+    last_rowsperchunk : JDIMENSION; { from most recent alloc_sarray/barray }
+  end; {my_memory_mgr;}
+
+  {$ifndef AM_MEMORY_MANAGER} { only jmemmgr.c defines these }
+
+{ The control blocks for virtual arrays.
+  Note that these blocks are allocated in the "small" pool area.
+  System-dependent info for the associated backing store (if any) is hidden
+  inside the backing_store_info struct. }
+type
+  jvirt_sarray_control = record
+    mem_buffer : JSAMPARRAY;  { => the in-memory buffer }
+    rows_in_array : JDIMENSION; { total virtual array height }
+    samplesperrow : JDIMENSION; { width of array (and of memory buffer) }
+    maxaccess : JDIMENSION; { max rows accessed by access_virt_sarray }
+    rows_in_mem : JDIMENSION; { height of memory buffer }
+    rowsperchunk : JDIMENSION;  { allocation chunk size in mem_buffer }
+    cur_start_row : JDIMENSION; { first logical row # in the buffer }
+    first_undef_row : JDIMENSION; { row # of first uninitialized row }
+    pre_zero : boolean;   { pre-zero mode requested? }
+    dirty : boolean;    { do current buffer contents need written? }
+    b_s_open : boolean;   { is backing-store data valid? }
+    next : jvirt_sarray_ptr;  { link to next virtual sarray control block }
+    b_s_info : backing_store_info;  { System-dependent control info }
+  end;
+
+  jvirt_barray_control = record
+    mem_buffer : JBLOCKARRAY; { => the in-memory buffer }
+    rows_in_array : JDIMENSION; { total virtual array height }
+    blocksperrow : JDIMENSION;  { width of array (and of memory buffer) }
+    maxaccess : JDIMENSION; { max rows accessed by access_virt_barray }
+    rows_in_mem : JDIMENSION; { height of memory buffer }
+    rowsperchunk : JDIMENSION;  { allocation chunk size in mem_buffer }
+    cur_start_row : JDIMENSION; { first logical row # in the buffer }
+    first_undef_row : JDIMENSION; { row # of first uninitialized row }
+    pre_zero : boolean;   { pre-zero mode requested? }
+    dirty : boolean;    { do current buffer contents need written? }
+    b_s_open : boolean;   { is backing-store data valid? }
+    next : jvirt_barray_ptr;  { link to next virtual barray control block }
+    b_s_info : backing_store_info;  { System-dependent control info }
+  end;
+  {$endif}  { AM_MEMORY_MANAGER}
+
+{$ifdef MEM_STATS}        { optional extra stuff for statistics }
+
+{LOCAL}
+procedure print_mem_stats (cinfo : j_common_ptr; pool_id : int);
+var
+  mem : my_mem_ptr;
+  shdr_ptr : small_pool_ptr;
+  lhdr_ptr : large_pool_ptr;
+begin
+  mem := my_mem_ptr (cinfo^.mem);
+
+  { Since this is only a debugging stub, we can cheat a little by using
+    fprintf directly rather than going through the trace message code.
+    This is helpful because message parm array can't handle longs. }
+
+  WriteLn(output, 'Freeing pool ', pool_id,', total space := ',
+     mem^.total_space_allocated);
+
+  lhdr_ptr := mem^.large_list[pool_id];
+  while (lhdr_ptr <> NIL) do
+  begin
+    WriteLn(output, '  Large chunk used ',
+      long (lhdr_ptr^.hdr.bytes_used));
+    lhdr_ptr := lhdr_ptr^.hdr.next;
+  end;
+
+  shdr_ptr := mem^.small_list[pool_id];
+
+  while (shdr_ptr <> NIL) do
+  begin
+    WriteLn(output, '  Small chunk used ',
+                    long (shdr_ptr^.hdr.bytes_used), ' free ',
+                    long (shdr_ptr^.hdr.bytes_left) );
+    shdr_ptr := shdr_ptr^.hdr.next;
+  end;
+end;
+
+{$endif} { MEM_STATS }
+
+
+{LOCAL}
+procedure out_of_memory (cinfo : j_common_ptr; which : int);
+{ Report an out-of-memory error and stop execution }
+{ If we compiled MEM_STATS support, report alloc requests before dying }
+begin
+{$ifdef MEM_STATS}
+  cinfo^.err^.trace_level := 2; { force self_destruct to report stats }
+{$endif}
+  ERREXIT1(cinfo, JERR_OUT_OF_MEMORY, which);
+end;
+
+
+{ Allocation of "small" objects.
+
+  For these, we use pooled storage.  When a new pool must be created,
+  we try to get enough space for the current request plus a "slop" factor,
+  where the slop will be the amount of leftover space in the new pool.
+  The speed vs. space tradeoff is largely determined by the slop values.
+  A different slop value is provided for each pool class (lifetime),
+  and we also distinguish the first pool of a class from later ones.
+  NOTE: the values given work fairly well on both 16- and 32-bit-int
+  machines, but may be too small if longs are 64 bits or more. }
+
+const
+  first_pool_slop : array[0..JPOOL_NUMPOOLS-1] of size_t  =
+  (1600,      { first PERMANENT pool }
+  16000);     { first IMAGE pool }
+
+const
+  extra_pool_slop : array[0..JPOOL_NUMPOOLS-1] of size_t =
+  (0,     { additional PERMANENT pools }
+  5000);      { additional IMAGE pools }
+
+const
+  MIN_SLOP = 50;    { greater than 0 to avoid futile looping }
+
+
+{METHODDEF}
+function alloc_small (cinfo : j_common_ptr;
+                      pool_id : int;
+                      sizeofobject : size_t) : pointer;
+type
+  byteptr = ^byte;
+{ Allocate a "small" object }
+var
+  mem : my_mem_ptr;
+  hdr_ptr, prev_hdr_ptr : small_pool_ptr;
+  data_ptr : byteptr;
+  odd_bytes, min_request, slop : size_t;
+begin
+  mem := my_mem_ptr (cinfo^.mem);
+
+  { Check for unsatisfiable request (do now to ensure no overflow below) }
+  if (sizeofobject > size_t(MAX_ALLOC_CHUNK-SIZEOF(small_pool_hdr))) then
+    out_of_memory(cinfo, 1);  { request exceeds malloc's ability }
+
+  { Round up the requested size to a multiple of SIZEOF(ALIGN_TYPE) }
+  odd_bytes := sizeofobject mod SIZEOF(ALIGN_TYPE);
+  if (odd_bytes > 0) then
+    Inc(sizeofobject, SIZEOF(ALIGN_TYPE) - odd_bytes);
+
+  { See if space is available in any existing pool }
+  if (pool_id < 0) or (pool_id >= JPOOL_NUMPOOLS) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_BAD_POOL_ID, pool_id); { safety check }
+  prev_hdr_ptr := NIL;
+  hdr_ptr := mem^.small_list[pool_id];
+  while (hdr_ptr <> NIL) do
+  begin
+    if (hdr_ptr^.hdr.bytes_left >= sizeofobject) then
+      break;      { found pool with enough space }
+    prev_hdr_ptr := hdr_ptr;
+    hdr_ptr := hdr_ptr^.hdr.next;
+  end;
+
+  { Time to make a new pool? }
+  if (hdr_ptr = NIL) then
+  begin
+    { min_request is what we need now, slop is what will be leftover }
+    min_request := sizeofobject + SIZEOF(small_pool_hdr);
+    if (prev_hdr_ptr = NIL) then  { first pool in class? }
+      slop := first_pool_slop[pool_id]
+    else
+      slop := extra_pool_slop[pool_id];
+    { Don't ask for more than MAX_ALLOC_CHUNK }
+    if (slop > size_t (MAX_ALLOC_CHUNK-min_request)) then
+      slop := size_t (MAX_ALLOC_CHUNK-min_request);
+    { Try to get space, if fail reduce slop and try again }
+    while TRUE do
+    begin
+      hdr_ptr := small_pool_ptr(jpeg_get_small(cinfo, min_request + slop));
+      if (hdr_ptr <> NIL) then
+  break;
+      slop := slop div 2;
+      if (slop < MIN_SLOP) then   { give up when it gets real small }
+  out_of_memory(cinfo, 2);  { jpeg_get_small failed }
+    end;
+    Inc(mem^.total_space_allocated, min_request + slop);
+    { Success, initialize the new pool header and add to end of list }
+    hdr_ptr^.hdr.next := NIL;
+    hdr_ptr^.hdr.bytes_used := 0;
+    hdr_ptr^.hdr.bytes_left := sizeofobject + slop;
+    if (prev_hdr_ptr = NIL) then       { first pool in class? }
+      mem^.small_list[pool_id] := hdr_ptr
+    else
+      prev_hdr_ptr^.hdr.next := hdr_ptr;
+  end;
+
+  { OK, allocate the object from the current pool }
+  data_ptr := byteptr (hdr_ptr);
+  Inc(small_pool_ptr(data_ptr));  { point to first data byte in pool }
+  Inc(data_ptr, hdr_ptr^.hdr.bytes_used); { point to place for object }
+  Inc(hdr_ptr^.hdr.bytes_used, sizeofobject);
+  Dec(hdr_ptr^.hdr.bytes_left, sizeofobject);
+
+  alloc_small := pointer(data_ptr);
+end;
+
+
+{ Allocation of "large" objects.
+
+  The external semantics of these are the same as "small" objects,
+  except that FAR pointers are used on 80x86.  However the pool
+  management heuristics are quite different.  We assume that each
+  request is large enough that it may as well be passed directly to
+  jpeg_get_large; the pool management just links everything together
+  so that we can free it all on demand.
+  Note: the major use of "large" objects is in JSAMPARRAY and JBLOCKARRAY
+  structures.  The routines that create these structures (see below)
+  deliberately bunch rows together to ensure a large request size. }
+
+{METHODDEF}
+function alloc_large (cinfo : j_common_ptr;
+                      pool_id : int;
+                      sizeofobject : size_t) : pointer;
+{ Allocate a "large" object }
+var
+  mem : my_mem_ptr;
+  hdr_ptr : large_pool_ptr;
+  odd_bytes : size_t;
+var
+  dest_ptr : large_pool_ptr;
+begin
+  mem := my_mem_ptr (cinfo^.mem);
+
+  { Check for unsatisfiable request (do now to ensure no overflow below) }
+  if (sizeofobject > size_t (MAX_ALLOC_CHUNK-SIZEOF(large_pool_hdr))) then
+    out_of_memory(cinfo, 3);  { request exceeds malloc's ability }
+
+  { Round up the requested size to a multiple of SIZEOF(ALIGN_TYPE) }
+  odd_bytes := sizeofobject mod SIZEOF(ALIGN_TYPE);
+  if (odd_bytes > 0) then
+    Inc(sizeofobject, SIZEOF(ALIGN_TYPE) - odd_bytes);
+
+  { Always make a new pool }
+  if (pool_id < 0) or (pool_id >= JPOOL_NUMPOOLS) then
+    ERREXIT1(cinfo, JERR_BAD_POOL_ID, pool_id); { safety check }
+
+  hdr_ptr := large_pool_ptr (jpeg_get_large(cinfo, sizeofobject +
+              SIZEOF(large_pool_hdr)));
+  if (hdr_ptr = NIL) then
+    out_of_memory(cinfo, 4);  { jpeg_get_large failed }
+  Inc(mem^.total_space_allocated, sizeofobject + SIZEOF(large_pool_hdr));
+
+  { Success, initialize the new pool header and add to list }
+  hdr_ptr^.hdr.next := mem^.large_list[pool_id];
+  { We maintain space counts in each pool header for statistical purposes,
+    even though they are not needed for allocation. }
+
+  hdr_ptr^.hdr.bytes_used := sizeofobject;
+  hdr_ptr^.hdr.bytes_left := 0;
+  mem^.large_list[pool_id] := hdr_ptr;
+
+  {alloc_large := pointerFAR (hdr_ptr + 1); - point to first data byte in pool }
+  dest_ptr := hdr_ptr;
+  Inc(large_pool_ptr(dest_ptr));
+  alloc_large := dest_ptr;
+end;
+
+
+{ Creation of 2-D sample arrays.
+  The pointers are in near heap, the samples themselves in FAR heap.
+
+  To minimize allocation overhead and to allow I/O of large contiguous
+  blocks, we allocate the sample rows in groups of as many rows as possible
+  without exceeding MAX_ALLOC_CHUNK total bytes per allocation request.
+  NB: the virtual array control routines, later in this file, know about
+  this chunking of rows.  The rowsperchunk value is left in the mem manager
+  object so that it can be saved away if this sarray is the workspace for
+  a virtual array. }
+
+{METHODDEF}
+function alloc_sarray (cinfo : j_common_ptr;
+                       pool_id : int;
+                 samplesperrow : JDIMENSION;
+                       numrows : JDIMENSION) : JSAMPARRAY;
+{ Allocate a 2-D sample array }
+var
+  mem : my_mem_ptr;
+  the_result : JSAMPARRAY;
+  workspace : JSAMPROW;
+  rowsperchunk, currow, i : JDIMENSION;
+  ltemp : long;
+begin
+  mem := my_mem_ptr(cinfo^.mem);
+
+  { Calculate max # of rows allowed in one allocation chunk }
+  ltemp := (MAX_ALLOC_CHUNK-SIZEOF(large_pool_hdr)) div
+    (long(samplesperrow) * SIZEOF(JSAMPLE));
+  if (ltemp <= 0) then
+    ERREXIT(cinfo, JERR_WIDTH_OVERFLOW);
+  if (ltemp < long(numrows)) then
+    rowsperchunk := JDIMENSION (ltemp)
+  else
+    rowsperchunk := numrows;
+  mem^.last_rowsperchunk := rowsperchunk;
+
+  { Get space for row pointers (small object) }
+  the_result := JSAMPARRAY (alloc_small(cinfo, pool_id,
+            size_t (numrows * SIZEOF(JSAMPROW))));
+
+  { Get the rows themselves (large objects) }
+  currow := 0;
+  while (currow < numrows) do
+  begin
+    {rowsperchunk := MIN(rowsperchunk, numrows - currow);}
+    if rowsperchunk > numrows - currow then
+      rowsperchunk := numrows - currow;
+
+    workspace := JSAMPROW (alloc_large(cinfo, pool_id,
+  size_t (size_t(rowsperchunk) * size_t(samplesperrow)
+      * SIZEOF(JSAMPLE))) );
+    for i := pred(rowsperchunk) downto 0 do
+    begin
+      the_result^[currow] := workspace;
+      Inc(currow);
+      Inc(JSAMPLE_PTR(workspace), samplesperrow);
+    end;
+  end;
+
+  alloc_sarray := the_result;
+end;
+
+
+{ Creation of 2-D coefficient-block arrays.
+  This is essentially the same as the code for sample arrays, above. }
+
+{METHODDEF}
+function alloc_barray (cinfo : j_common_ptr;
+                       pool_id : int;
+                 blocksperrow : JDIMENSION;
+                       numrows : JDIMENSION) : JBLOCKARRAY;
+{ Allocate a 2-D coefficient-block array }
+var
+  mem : my_mem_ptr;
+  the_result : JBLOCKARRAY;
+  workspace : JBLOCKROW;
+  rowsperchunk, currow, i : JDIMENSION;
+  ltemp : long;
+begin
+  mem := my_mem_ptr(cinfo^.mem);
+
+  { Calculate max # of rows allowed in one allocation chunk }
+  ltemp := (MAX_ALLOC_CHUNK-SIZEOF(large_pool_hdr)) div
+    (long(blocksperrow) * SIZEOF(JBLOCK));
+
+  if (ltemp <= 0) then
+    ERREXIT(cinfo, JERR_WIDTH_OVERFLOW);
+  if (ltemp < long(numrows)) then
+    rowsperchunk := JDIMENSION (ltemp)
+  else
+    rowsperchunk := numrows;
+  mem^.last_rowsperchunk := rowsperchunk;
+
+  { Get space for row pointers (small object) }
+  the_result := JBLOCKARRAY (alloc_small(cinfo, pool_id,
+             size_t (numrows * SIZEOF(JBLOCKROW))) );
+
+  { Get the rows themselves (large objects) }
+  currow := 0;
+  while (currow < numrows) do
+  begin
+    {rowsperchunk := MIN(rowsperchunk, numrows - currow);}
+    if rowsperchunk > numrows - currow then
+      rowsperchunk := numrows - currow;
+
+    workspace := JBLOCKROW (alloc_large(cinfo, pool_id,
+  size_t (size_t(rowsperchunk) * size_t(blocksperrow)
+      * SIZEOF(JBLOCK))) );
+    for i := rowsperchunk downto 1 do
+    begin
+      the_result^[currow] := workspace;
+      Inc(currow);
+      Inc(JBLOCK_PTR(workspace), blocksperrow);
+    end;
+  end;
+
+  alloc_barray := the_result;
+end;
+
+
+{ About virtual array management:
+
+  The above "normal" array routines are only used to allocate strip buffers
+  (as wide as the image, but just a few rows high).  Full-image-sized buffers
+  are handled as "virtual" arrays.  The array is still accessed a strip at a
+  time, but the memory manager must save the whole array for repeated
+  accesses.  The intended implementation is that there is a strip buffer in
+  memory (as high as is possible given the desired memory limit), plus a
+  backing file that holds the rest of the array.
+
+  The request_virt_array routines are told the total size of the image and
+  the maximum number of rows that will be accessed at once.  The in-memory
+  buffer must be at least as large as the maxaccess value.
+
+  The request routines create control blocks but not the in-memory buffers.
+  That is postponed until realize_virt_arrays is called.  At that time the
+  total amount of space needed is known (approximately, anyway), so free
+  memory can be divided up fairly.
+
+  The access_virt_array routines are responsible for making a specific strip
+  area accessible (after reading or writing the backing file, if necessary).
+  Note that the access routines are told whether the caller intends to modify
+  the accessed strip; during a read-only pass this saves having to rewrite
+  data to disk.  The access routines are also responsible for pre-zeroing
+  any newly accessed rows, if pre-zeroing was requested.
+
+  In current usage, the access requests are usually for nonoverlapping
+  strips; that is, successive access start_row numbers differ by exactly
+  num_rows := maxaccess.  This means we can get good performance with simple
+  buffer dump/reload logic, by making the in-memory buffer be a multiple
+  of the access height; then there will never be accesses across bufferload
+  boundaries.  The code will still work with overlapping access requests,
+  but it doesn't handle bufferload overlaps very efficiently. }
+
+
+{METHODDEF}
+function request_virt_sarray (cinfo : j_common_ptr;
+                              pool_id : int;
+                              pre_zero : boolean;
+                  samplesperrow : JDIMENSION;
+                              numrows : JDIMENSION;
+                  maxaccess : JDIMENSION) : jvirt_sarray_ptr;
+{ Request a virtual 2-D sample array }
+var
+  mem : my_mem_ptr;
+  the_result : jvirt_sarray_ptr;
+begin
+  mem := my_mem_ptr (cinfo^.mem);
+
+  { Only IMAGE-lifetime virtual arrays are currently supported }
+  if (pool_id <> JPOOL_IMAGE) then
+    ERREXIT1(cinfo, JERR_BAD_POOL_ID, pool_id); { safety check }
+
+  { get control block }
+  the_result := jvirt_sarray_ptr (alloc_small(cinfo, pool_id,
+          SIZEOF(jvirt_sarray_control)) );
+
+  the_result^.mem_buffer := NIL;  { marks array not yet realized }
+  the_result^.rows_in_array := numrows;
+  the_result^.samplesperrow := samplesperrow;
+  the_result^.maxaccess := maxaccess;
+  the_result^.pre_zero := pre_zero;
+  the_result^.b_s_open := FALSE;  { no associated backing-store object }
+  the_result^.next := mem^.virt_sarray_list; { add to list of virtual arrays }
+  mem^.virt_sarray_list := the_result;
+
+  request_virt_sarray := the_result;
+end;
+
+
+{METHODDEF}
+function request_virt_barray (cinfo : j_common_ptr;
+                              pool_id : int;
+                              pre_zero : boolean;
+                  blocksperrow : JDIMENSION;
+                              numrows : JDIMENSION;
+                  maxaccess : JDIMENSION) : jvirt_barray_ptr;
+{ Request a virtual 2-D coefficient-block array }
+var
+  mem : my_mem_ptr;
+  the_result : jvirt_barray_ptr;
+begin
+  mem := my_mem_ptr(cinfo^.mem);
+
+  { Only IMAGE-lifetime virtual arrays are currently supported }
+  if (pool_id <> JPOOL_IMAGE) then
+    ERREXIT1(cinfo, JERR_BAD_POOL_ID, pool_id); { safety check }
+
+  { get control block }
+  the_result := jvirt_barray_ptr(alloc_small(cinfo, pool_id,
+          SIZEOF(jvirt_barray_control)) );
+
+  the_result^.mem_buffer := NIL;  { marks array not yet realized }
+  the_result^.rows_in_array := numrows;
+  the_result^.blocksperrow := blocksperrow;
+  the_result^.maxaccess := maxaccess;
+  the_result^.pre_zero := pre_zero;
+  the_result^.b_s_open := FALSE;  { no associated backing-store object }
+  the_result^.next := mem^.virt_barray_list; { add to list of virtual arrays }
+  mem^.virt_barray_list := the_result;
+
+  request_virt_barray := the_result;
+end;
+
+
+{METHODDEF}
+procedure realize_virt_arrays (cinfo : j_common_ptr);
+{ Allocate the in-memory buffers for any unrealized virtual arrays }
+var
+  mem : my_mem_ptr;
+  space_per_minheight, maximum_space, avail_mem : long;
+  minheights, max_minheights : long;
+  sptr : jvirt_sarray_ptr;
+  bptr : jvirt_barray_ptr;
+begin
+  mem := my_mem_ptr (cinfo^.mem);
+  { Compute the minimum space needed (maxaccess rows in each buffer)
+    and the maximum space needed (full image height in each buffer).
+    These may be of use to the system-dependent jpeg_mem_available routine. }
+
+  space_per_minheight := 0;
+  maximum_space := 0;
+  sptr := mem^.virt_sarray_list;
+  while (sptr <> NIL) do
+  begin
+    if (sptr^.mem_buffer = NIL) then
+    begin { if not realized yet }
+      Inc(space_per_minheight, long(sptr^.maxaccess) *
+           long(sptr^.samplesperrow) * SIZEOF(JSAMPLE));
+      Inc(maximum_space, long(sptr^.rows_in_array) *
+           long(sptr^.samplesperrow) * SIZEOF(JSAMPLE));
+    end;
+    sptr := sptr^.next;
+  end;
+  bptr := mem^.virt_barray_list;
+  while (bptr <> NIL) do
+  begin
+    if (bptr^.mem_buffer = NIL) then
+    begin { if not realized yet }
+      Inc(space_per_minheight, long(bptr^.maxaccess) *
+           long(bptr^.blocksperrow) * SIZEOF(JBLOCK));
+      Inc(maximum_space, long(bptr^.rows_in_array) *
+           long(bptr^.blocksperrow) * SIZEOF(JBLOCK));
+    end;
+    bptr := bptr^.next;
+  end;
+
+  if (space_per_minheight <= 0) then
+    exit;     { no unrealized arrays, no work }
+
+  { Determine amount of memory to actually use; this is system-dependent. }
+  avail_mem := jpeg_mem_available(cinfo, space_per_minheight, maximum_space,
+         mem^.total_space_allocated);
+
+  { If the maximum space needed is available, make all the buffers full
+    height; otherwise parcel it out with the same number of minheights
+    in each buffer. }
+
+  if (avail_mem >= maximum_space) then
+    max_minheights := long(1000000000)
+  else
+  begin
+    max_minheights := avail_mem div space_per_minheight;
+    { If there doesn't seem to be enough space, try to get the minimum
+      anyway.  This allows a "stub" implementation of jpeg_mem_available(). }
+    if (max_minheights <= 0) then
+      max_minheights := 1;
+  end;
+
+  { Allocate the in-memory buffers and initialize backing store as needed. }
+
+  sptr := mem^.virt_sarray_list;
+  while (sptr <> NIL) do
+  begin
+    if (sptr^.mem_buffer = NIL) then
+    begin { if not realized yet }
+      minheights := (long(sptr^.rows_in_array) - long(1)) div LongInt(sptr^.maxaccess) + long(1);
+      if (minheights <= max_minheights) then
+      begin
+  { This buffer fits in memory }
+  sptr^.rows_in_mem := sptr^.rows_in_array;
+      end
+      else
+      begin
+  { It doesn't fit in memory, create backing store. }
+  sptr^.rows_in_mem := JDIMENSION(max_minheights) * sptr^.maxaccess;
+  jpeg_open_backing_store(cinfo,
+                                @sptr^.b_s_info,
+        long(sptr^.rows_in_array) *
+        long(sptr^.samplesperrow) *
+        long(SIZEOF(JSAMPLE)));
+  sptr^.b_s_open := TRUE;
+      end;
+      sptr^.mem_buffer := alloc_sarray(cinfo, JPOOL_IMAGE,
+              sptr^.samplesperrow, sptr^.rows_in_mem);
+      sptr^.rowsperchunk := mem^.last_rowsperchunk;
+      sptr^.cur_start_row := 0;
+      sptr^.first_undef_row := 0;
+      sptr^.dirty := FALSE;
+    end;
+    sptr := sptr^.next;
+  end;
+
+  bptr := mem^.virt_barray_list;
+  while (bptr <> NIL) do
+  begin
+    if (bptr^.mem_buffer = NIL) then
+    begin { if not realized yet }
+      minheights := (long(bptr^.rows_in_array) - long(1)) div LongInt(bptr^.maxaccess) + long(1);
+      if (minheights <= max_minheights) then
+      begin
+  { This buffer fits in memory }
+  bptr^.rows_in_mem := bptr^.rows_in_array;
+      end
+      else
+      begin
+  { It doesn't fit in memory, create backing store. }
+  bptr^.rows_in_mem := JDIMENSION (max_minheights) * bptr^.maxaccess;
+  jpeg_open_backing_store(cinfo,
+                                @bptr^.b_s_info,
+        long(bptr^.rows_in_array) *
+        long(bptr^.blocksperrow) *
+        long(SIZEOF(JBLOCK)));
+  bptr^.b_s_open := TRUE;
+      end;
+      bptr^.mem_buffer := alloc_barray(cinfo, JPOOL_IMAGE,
+              bptr^.blocksperrow, bptr^.rows_in_mem);
+      bptr^.rowsperchunk := mem^.last_rowsperchunk;
+      bptr^.cur_start_row := 0;
+      bptr^.first_undef_row := 0;
+      bptr^.dirty := FALSE;
+    end;
+    bptr := bptr^.next;
+  end;
+end;
+
+
+{LOCAL}
+procedure do_sarray_io (cinfo : j_common_ptr;
+                        ptr : jvirt_sarray_ptr;
+                        writing : boolean);
+{ Do backing store read or write of a virtual sample array }
+var
+  bytesperrow, file_offset, byte_count, rows, thisrow, i : long;
+begin
+
+  bytesperrow := long(ptr^.samplesperrow * SIZEOF(JSAMPLE));
+  file_offset := LongInt(ptr^.cur_start_row) * bytesperrow;
+  { Loop to read or write each allocation chunk in mem_buffer }
+  i := 0;
+  while i < long(ptr^.rows_in_mem) do
+  begin
+
+    { One chunk, but check for short chunk at end of buffer }
+    {rows := MIN(long(ptr^.rowsperchunk), long(ptr^.rows_in_mem - i));}
+    rows := long(ptr^.rowsperchunk);
+    if rows > long(ptr^.rows_in_mem) - i then
+      rows := long(ptr^.rows_in_mem) - i;
+    { Transfer no more than is currently defined }
+    thisrow := long (ptr^.cur_start_row) + i;
+    {rows := MIN(rows, long(ptr^.first_undef_row) - thisrow);}
+    if (rows > long(ptr^.first_undef_row) - thisrow) then
+      rows := long(ptr^.first_undef_row) - thisrow;
+    { Transfer no more than fits in file }
+    {rows := MIN(rows, long(ptr^.rows_in_array) - thisrow);}
+    if (rows > long(ptr^.rows_in_array) - thisrow) then
+      rows := long(ptr^.rows_in_array) - thisrow;
+
+    if (rows <= 0) then        { this chunk might be past end of file! }
+      break;
+    byte_count := rows * bytesperrow;
+    if (writing) then
+      ptr^.b_s_info.write_backing_store (cinfo,
+                                        @ptr^.b_s_info,
+          pointer {FAR} (ptr^.mem_buffer^[i]),
+          file_offset, byte_count)
+    else
+      ptr^.b_s_info.read_backing_store (cinfo,
+                                        @ptr^.b_s_info,
+          pointer {FAR} (ptr^.mem_buffer^[i]),
+          file_offset, byte_count);
+    Inc(file_offset, byte_count);
+    Inc(i, ptr^.rowsperchunk);
+  end;
+end;
+
+
+{LOCAL}
+procedure do_barray_io (cinfo : j_common_ptr;
+                       ptr : jvirt_barray_ptr;
+                       writing : boolean);
+{ Do backing store read or write of a virtual coefficient-block array }
+var
+  bytesperrow, file_offset, byte_count, rows, thisrow, i : long;
+begin
+  bytesperrow := long (ptr^.blocksperrow) * SIZEOF(JBLOCK);
+  file_offset := LongInt(ptr^.cur_start_row) * bytesperrow;
+  { Loop to read or write each allocation chunk in mem_buffer }
+  i := 0;
+  while (i < long(ptr^.rows_in_mem)) do
+  begin
+    { One chunk, but check for short chunk at end of buffer }
+    {rows := MIN(long(ptr^.rowsperchunk), long(ptr^.rows_in_mem - i));}
+    rows := long(ptr^.rowsperchunk);
+    if rows > long(ptr^.rows_in_mem) - i then
+      rows := long(ptr^.rows_in_mem) - i;
+    { Transfer no more than is currently defined }
+    thisrow := long (ptr^.cur_start_row) + i;
+    {rows := MIN(rows, long(ptr^.first_undef_row - thisrow));}
+    if rows > long(ptr^.first_undef_row) - thisrow then
+      rows := long(ptr^.first_undef_row) - thisrow;
+    { Transfer no more than fits in file }
+    {rows := MIN(rows, long (ptr^.rows_in_array - thisrow));}
+    if (rows > long (ptr^.rows_in_array) - thisrow) then
+      rows := long (ptr^.rows_in_array) - thisrow;
+
+    if (rows <= 0) then   { this chunk might be past end of file! }
+      break;
+    byte_count := rows * bytesperrow;
+    if (writing) then
+      ptr^.b_s_info.write_backing_store (cinfo,
+                                         @ptr^.b_s_info,
+                                   {FAR} pointer(ptr^.mem_buffer^[i]),
+            file_offset, byte_count)
+    else
+      ptr^.b_s_info.read_backing_store (cinfo,
+                                        @ptr^.b_s_info,
+          {FAR} pointer(ptr^.mem_buffer^[i]),
+          file_offset, byte_count);
+    Inc(file_offset, byte_count);
+    Inc(i, ptr^.rowsperchunk);
+  end;
+end;
+
+
+{METHODDEF}
+function access_virt_sarray (cinfo : j_common_ptr;
+                             ptr : jvirt_sarray_ptr;
+                 start_row : JDIMENSION;
+                             num_rows : JDIMENSION;
+                 writable : boolean ) : JSAMPARRAY;
+{ Access the part of a virtual sample array starting at start_row }
+{ and extending for num_rows rows.  writable is true if  }
+{ caller intends to modify the accessed area. }
+var
+  end_row : JDIMENSION;
+  undef_row : JDIMENSION;
+var
+  bytesperrow : size_t;
+var
+  ltemp : long;
+begin
+  end_row := start_row + num_rows;
+  { debugging check }
+  if (end_row > ptr^.rows_in_array) or (num_rows > ptr^.maxaccess) or
+     (ptr^.mem_buffer = NIL) then
+    ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+
+  { Make the desired part of the virtual array accessible }
+  if (start_row < ptr^.cur_start_row) or
+     (end_row > ptr^.cur_start_row+ptr^.rows_in_mem) then
+  begin
+    if (not ptr^.b_s_open) then
+      ERREXIT(cinfo, JERR_VIRTUAL_BUG);
+    { Flush old buffer contents if necessary }
+    if (ptr^.dirty) then
+    begin
+      do_sarray_io(cinfo, ptr, TRUE);
+      ptr^.dirty := FALSE;
+    end;
+    { Decide what part of virtual array to access.
+      Algorithm: if target address > current window, assume forward scan,
+      load starting at target address.  If target address < current window,
+      assume backward scan, load so that target area is top of window.
+      Note that when switching from forward write to forward read, will have
+      start_row := 0, so the limiting case applies and we load from 0 anyway. }
+    if (start_row > ptr^.cur_start_row) then
+    begin
+      ptr^.cur_start_row := start_row;
+    end
+    else
+    begin
+      { use long arithmetic here to avoid overflow & unsigned problems }
+
+
+      ltemp := long(end_row) - long(ptr^.rows_in_mem);
+      if (ltemp < 0) then
+  ltemp := 0;   { don't fall off front end of file }
+      ptr^.cur_start_row := JDIMENSION(ltemp);
+    end;
+    { Read in the selected part of the array.
+      During the initial write pass, we will do no actual read
+      because the selected part is all undefined. }
+
+    do_sarray_io(cinfo, ptr, FALSE);
+  end;
+  { Ensure the accessed part of the array is defined; prezero if needed.
+    To improve locality of access, we only prezero the part of the array
+    that the caller is about to access, not the entire in-memory array. }
+  if (ptr^.first_undef_row < end_row) then
+  begin
+    if (ptr^.first_undef_row < start_row) then
+    begin
+      if (writable) then  { writer skipped over a section of array }
+  ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+      undef_row := start_row; { but reader is allowed to read ahead }
+    end
+    else
+    begin
+      undef_row := ptr^.first_undef_row;
+    end;
+    if (writable) then
+      ptr^.first_undef_row := end_row;
+    if (ptr^.pre_zero) then
+    begin
+      bytesperrow := size_t(ptr^.samplesperrow) * SIZEOF(JSAMPLE);
+      Dec(undef_row, ptr^.cur_start_row); { make indexes relative to buffer }
+      Dec(end_row, ptr^.cur_start_row);
+      while (undef_row < end_row) do
+      begin
+  jzero_far({FAR} pointer(ptr^.mem_buffer^[undef_row]), bytesperrow);
+  Inc(undef_row);
+      end;
+    end
+    else
+    begin
+      if (not writable) then  { reader looking at undefined data }
+  ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+    end;
+  end;
+  { Flag the buffer dirty if caller will write in it }
+  if (writable) then
+    ptr^.dirty := TRUE;
+  { Return address of proper part of the buffer }
+  access_virt_sarray := JSAMPARRAY(@ ptr^.mem_buffer^[start_row - ptr^.cur_start_row]);
+end;
+
+
+{METHODDEF}
+function access_virt_barray (cinfo : j_common_ptr;
+                             ptr : jvirt_barray_ptr;
+                 start_row : JDIMENSION;
+                             num_rows : JDIMENSION;
+                 writable : boolean) : JBLOCKARRAY;
+{ Access the part of a virtual block array starting at start_row }
+{ and extending for num_rows rows.  writable is true if  }
+{ caller intends to modify the accessed area. }
+var
+  end_row : JDIMENSION;
+  undef_row : JDIMENSION;
+  ltemp : long;
+var
+  bytesperrow : size_t;
+begin
+  end_row := start_row + num_rows;
+
+  { debugging check }
+  if (end_row > ptr^.rows_in_array) or (num_rows > ptr^.maxaccess) or
+     (ptr^.mem_buffer = NIL) then
+    ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+
+  { Make the desired part of the virtual array accessible }
+  if (start_row < ptr^.cur_start_row) or
+     (end_row > ptr^.cur_start_row+ptr^.rows_in_mem) then
+  begin
+    if (not ptr^.b_s_open) then
+      ERREXIT(cinfo, JERR_VIRTUAL_BUG);
+    { Flush old buffer contents if necessary }
+    if (ptr^.dirty) then
+    begin
+      do_barray_io(cinfo, ptr, TRUE);
+      ptr^.dirty := FALSE;
+    end;
+    { Decide what part of virtual array to access.
+      Algorithm: if target address > current window, assume forward scan,
+      load starting at target address.  If target address < current window,
+      assume backward scan, load so that target area is top of window.
+      Note that when switching from forward write to forward read, will have
+      start_row := 0, so the limiting case applies and we load from 0 anyway. }
+
+    if (start_row > ptr^.cur_start_row) then
+    begin
+      ptr^.cur_start_row := start_row;
+    end
+    else
+    begin
+      { use long arithmetic here to avoid overflow & unsigned problems }
+
+      ltemp := long(end_row) - long(ptr^.rows_in_mem);
+      if (ltemp < 0) then
+  ltemp := 0;   { don't fall off front end of file }
+      ptr^.cur_start_row := JDIMENSION (ltemp);
+    end;
+    { Read in the selected part of the array.
+      During the initial write pass, we will do no actual read
+      because the selected part is all undefined. }
+
+    do_barray_io(cinfo, ptr, FALSE);
+  end;
+  { Ensure the accessed part of the array is defined; prezero if needed.
+    To improve locality of access, we only prezero the part of the array
+    that the caller is about to access, not the entire in-memory array. }
+
+  if (ptr^.first_undef_row < end_row) then
+  begin
+    if (ptr^.first_undef_row < start_row) then
+    begin
+      if (writable) then  { writer skipped over a section of array }
+  ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+      undef_row := start_row; { but reader is allowed to read ahead }
+    end
+    else
+    begin
+      undef_row := ptr^.first_undef_row;
+    end;
+    if (writable) then
+      ptr^.first_undef_row := end_row;
+    if (ptr^.pre_zero) then
+    begin
+      bytesperrow := size_t (ptr^.blocksperrow) * SIZEOF(JBLOCK);
+      Dec(undef_row, ptr^.cur_start_row); { make indexes relative to buffer }
+      Dec(end_row, ptr^.cur_start_row);
+      while (undef_row < end_row) do
+      begin
+  jzero_far({FAR}pointer(ptr^.mem_buffer^[undef_row]), bytesperrow);
+  Inc(undef_row);
+      end;
+    end
+    else
+    begin
+      if (not writable) then  { reader looking at undefined data }
+  ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS);
+    end;
+  end;
+  { Flag the buffer dirty if caller will write in it }
+  if (writable) then
+    ptr^.dirty := TRUE;
+  { Return address of proper part of the buffer }
+  access_virt_barray := JBLOCKARRAY(@ ptr^.mem_buffer^[start_row - ptr^.cur_start_row]);
+end;
+
+
+{ Release all objects belonging to a specified pool. }
+
+{METHODDEF}
+procedure free_pool (cinfo : j_common_ptr; pool_id : int);
+var
+  mem : my_mem_ptr;
+  shdr_ptr : small_pool_ptr;
+  lhdr_ptr : large_pool_ptr;
+  space_freed : size_t;
+var
+  sptr : jvirt_sarray_ptr;
+  bptr : jvirt_barray_ptr;
+var
+  next_lhdr_ptr : large_pool_ptr;
+  next_shdr_ptr : small_pool_ptr;
+begin
+  mem := my_mem_ptr(cinfo^.mem);
+
+  if (pool_id < 0) or (pool_id >= JPOOL_NUMPOOLS) then
+    ERREXIT1(cinfo, JERR_BAD_POOL_ID, pool_id); { safety check }
+
+{$ifdef MEM_STATS}
+  if (cinfo^.err^.trace_level > 1) then
+    print_mem_stats(cinfo, pool_id); { print pool's memory usage statistics }
+{$endif}
+
+  { If freeing IMAGE pool, close any virtual arrays first }
+  if (pool_id = JPOOL_IMAGE) then
+  begin
+    sptr := mem^.virt_sarray_list;
+    while (sptr <> NIL) do
+    begin
+      if (sptr^.b_s_open) then
+      begin { there may be no backing store }
+  sptr^.b_s_open := FALSE;  { prevent recursive close if error }
+  sptr^.b_s_info.close_backing_store (cinfo, @sptr^.b_s_info);
+      end;
+      sptr := sptr^.next;
+    end;
+    mem^.virt_sarray_list := NIL;
+    bptr := mem^.virt_barray_list;
+    while (bptr <> NIL) do
+    begin
+      if (bptr^.b_s_open) then
+      begin { there may be no backing store }
+  bptr^.b_s_open := FALSE;  { prevent recursive close if error }
+  bptr^.b_s_info.close_backing_store (cinfo, @bptr^.b_s_info);
+      end;
+      bptr := bptr^.next;
+    end;
+    mem^.virt_barray_list := NIL;
+  end;
+
+  { Release large objects }
+  lhdr_ptr := mem^.large_list[pool_id];
+  mem^.large_list[pool_id] := NIL;
+
+  while (lhdr_ptr <> NIL) do
+  begin
+    next_lhdr_ptr := lhdr_ptr^.hdr.next;
+    space_freed := lhdr_ptr^.hdr.bytes_used +
+      lhdr_ptr^.hdr.bytes_left +
+      SIZEOF(large_pool_hdr);
+    jpeg_free_large(cinfo, {FAR} pointer(lhdr_ptr), space_freed);
+    Dec(mem^.total_space_allocated, space_freed);
+    lhdr_ptr := next_lhdr_ptr;
+  end;
+
+  { Release small objects }
+  shdr_ptr := mem^.small_list[pool_id];
+  mem^.small_list[pool_id] := NIL;
+
+  while (shdr_ptr <> NIL) do
+  begin
+    next_shdr_ptr := shdr_ptr^.hdr.next;
+    space_freed := shdr_ptr^.hdr.bytes_used +
+      shdr_ptr^.hdr.bytes_left +
+      SIZEOF(small_pool_hdr);
+    jpeg_free_small(cinfo, pointer(shdr_ptr), space_freed);
+    Dec(mem^.total_space_allocated, space_freed);
+    shdr_ptr := next_shdr_ptr;
+  end;
+end;
+
+
+{ Close up shop entirely.
+  Note that this cannot be called unless cinfo^.mem is non-NIL. }
+
+{METHODDEF}
+procedure self_destruct (cinfo : j_common_ptr);
+var
+  pool : int;
+begin
+  { Close all backing store, release all memory.
+    Releasing pools in reverse order might help avoid fragmentation
+    with some (brain-damaged) malloc libraries. }
+
+  for pool := JPOOL_NUMPOOLS-1 downto JPOOL_PERMANENT do
+  begin
+    free_pool(cinfo, pool);
+  end;
+
+  { Release the memory manager control block too. }
+  jpeg_free_small(cinfo, pointer(cinfo^.mem), SIZEOF(my_memory_mgr));
+  cinfo^.mem := NIL;    { ensures I will be called only once }
+
+  jpeg_mem_term(cinfo);   { system-dependent cleanup }
+end;
+
+
+{ Memory manager initialization.
+  When this is called, only the error manager pointer is valid in cinfo! }
+
+{GLOBAL}
+procedure jinit_memory_mgr (cinfo : j_common_ptr);
+var
+  mem : my_mem_ptr;
+  max_to_use : long;
+  pool : int;
+  test_mac : size_t;
+{$ifndef NO_GETENV}
+var
+  memenv : string;
+  code : integer;
+{$endif}
+begin
+  cinfo^.mem := NIL;    { for safety if init fails }
+
+  { Check for configuration errors.
+    SIZEOF(ALIGN_TYPE) should be a power of 2; otherwise, it probably
+    doesn't reflect any real hardware alignment requirement.
+    The test is a little tricky: for X>0, X and X-1 have no one-bits
+    in common if and only if X is a power of 2, ie has only one one-bit.
+    Some compilers may give an "unreachable code" warning here; ignore it. }
+  if ((SIZEOF(ALIGN_TYPE) and (SIZEOF(ALIGN_TYPE)-1)) <> 0) then
+    ERREXIT(cinfo, JERR_BAD_ALIGN_TYPE);
+  { MAX_ALLOC_CHUNK must be representable as type size_t, and must be
+    a multiple of SIZEOF(ALIGN_TYPE).
+    Again, an "unreachable code" warning may be ignored here.
+    But a "constant too large" warning means you need to fix MAX_ALLOC_CHUNK. }
+
+  test_mac := size_t (MAX_ALLOC_CHUNK);
+  if (long (test_mac) <> MAX_ALLOC_CHUNK) or
+      ((MAX_ALLOC_CHUNK mod SIZEOF(ALIGN_TYPE)) <> 0) then
+    ERREXIT(cinfo, JERR_BAD_ALLOC_CHUNK);
+
+  max_to_use := jpeg_mem_init(cinfo); { system-dependent initialization }
+
+  { Attempt to allocate memory manager's control block }
+  mem := my_mem_ptr (jpeg_get_small(cinfo, SIZEOF(my_memory_mgr)));
+
+  if (mem = NIL) then
+  begin
+    jpeg_mem_term(cinfo); { system-dependent cleanup }
+    ERREXIT1(cinfo, JERR_OUT_OF_MEMORY, 0);
+  end;
+
+  { OK, fill in the method pointers }
+  mem^.pub.alloc_small := alloc_small;
+  mem^.pub.alloc_large := alloc_large;
+  mem^.pub.alloc_sarray := alloc_sarray;
+  mem^.pub.alloc_barray := alloc_barray;
+  mem^.pub.request_virt_sarray := request_virt_sarray;
+  mem^.pub.request_virt_barray := request_virt_barray;
+  mem^.pub.realize_virt_arrays := realize_virt_arrays;
+  mem^.pub.access_virt_sarray := access_virt_sarray;
+  mem^.pub.access_virt_barray := access_virt_barray;
+  mem^.pub.free_pool := free_pool;
+  mem^.pub.self_destruct := self_destruct;
+
+  { Make MAX_ALLOC_CHUNK accessible to other modules }
+  mem^.pub.max_alloc_chunk := MAX_ALLOC_CHUNK;
+
+  { Initialize working state }
+  mem^.pub.max_memory_to_use := max_to_use;
+
+  for pool := JPOOL_NUMPOOLS-1 downto JPOOL_PERMANENT do
+  begin
+    mem^.small_list[pool] := NIL;
+    mem^.large_list[pool] := NIL;
+  end;
+  mem^.virt_sarray_list := NIL;
+  mem^.virt_barray_list := NIL;
+
+  mem^.total_space_allocated := SIZEOF(my_memory_mgr);
+
+  { Declare ourselves open for business }
+  cinfo^.mem := @mem^.pub;
+
+  { Check for an environment variable JPEGMEM; if found, override the
+    default max_memory setting from jpeg_mem_init.  Note that the
+    surrounding application may again override this value.
+    If your system doesn't support getenv(), define NO_GETENV to disable
+    this feature. }
+
+{$ifndef NO_GETENV}
+  memenv := getenv('JPEGMEM');
+  if (memenv <> '') then
+  begin
+    Val(memenv, max_to_use, code);
+    if (Code = 0) then
+    begin
+      max_to_use := max_to_use * long(1000);
+      mem^.pub.max_memory_to_use := max_to_use * long(1000);
+    end;
+  end;
+{$endif}
+
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjmemnobs.pas b/src/lib/vampimg/JpegLib/imjmemnobs.pas

new file mode 100644 (file)

index 0000000..750fd80
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjmemnobs.pas
@@ -0,0 +1,259 @@
+unit imjmemnobs;
+{ Delphi3 -- > jmemnobs from jmemwin }
+{ This file provides an Win32-compatible implementation of the system-
+  dependent portion of the JPEG memory manager. }
+
+{ Check jmemnobs.c }
+{ Copyright (C) 1996, Jacques Nomssi Nzali }
+
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjdeferr,
+  imjerror,
+  imjpeglib;
+
+{ The macro MAX_ALLOC_CHUNK designates the maximum number of bytes that may
+  be requested in a single call to jpeg_get_large (and jpeg_get_small for that
+  matter, but that case should never come into play).  This macro is needed
+  to model the 64Kb-segment-size limit of far addressing on 80x86 machines.
+  On those machines, we expect that jconfig.h will provide a proper value.
+  On machines with 32-bit flat address spaces, any large constant may be used.
+
+  NB: jmemmgr.c expects that MAX_ALLOC_CHUNK will be representable as type
+  size_t and will be a multiple of sizeof(align_type). }
+
+const
+  MAX_ALLOC_CHUNK = long(1000000000);
+
+{GLOBAL}
+procedure jpeg_open_backing_store (cinfo : j_common_ptr;
+                                   info : backing_store_ptr;
+                                   total_bytes_needed : long);
+
+{ These routines take care of any system-dependent initialization and
+  cleanup required. }
+
+{GLOBAL}
+function jpeg_mem_init (cinfo : j_common_ptr) : long;
+
+{GLOBAL}
+procedure jpeg_mem_term (cinfo : j_common_ptr);
+
+{ These two functions are used to allocate and release small chunks of
+  memory.  (Typically the total amount requested through jpeg_get_small is
+  no more than 20K or so; this will be requested in chunks of a few K each.)
+  Behavior should be the same as for the standard library functions malloc
+  and free; in particular, jpeg_get_small must return NIL on failure.
+  On most systems, these ARE malloc and free.  jpeg_free_small is passed the
+  size of the object being freed, just in case it's needed.
+  On an 80x86 machine using small-data memory model, these manage near heap. }
+
+
+{ Near-memory allocation and freeing are controlled by the regular library
+  routines malloc() and free(). }
+
+{GLOBAL}
+function jpeg_get_small (cinfo : j_common_ptr;
+                         sizeofobject : size_t) : pointer;
+
+{GLOBAL}
+{object is a reserved word in Borland Pascal }
+procedure jpeg_free_small (cinfo : j_common_ptr;
+                           an_object : pointer;
+                           sizeofobject : size_t);
+
+{ These two functions are used to allocate and release large chunks of
+  memory (up to the total free space designated by jpeg_mem_available).
+  The interface is the same as above, except that on an 80x86 machine,
+  far pointers are used.  On most other machines these are identical to
+  the jpeg_get/free_small routines; but we keep them separate anyway,
+  in case a different allocation strategy is desirable for large chunks. }
+
+
+{ "Large" objects are allocated in far memory, if possible }
+
+
+{GLOBAL}
+function jpeg_get_large (cinfo : j_common_ptr;
+                         sizeofobject : size_t) : voidp; {far}
+
+{GLOBAL}
+procedure jpeg_free_large (cinfo : j_common_ptr;
+                          {var?} an_object : voidp; {FAR}
+                          sizeofobject : size_t);
+
+{ This routine computes the total memory space available for allocation.
+  It's impossible to do this in a portable way; our current solution is
+  to make the user tell us (with a default value set at compile time).
+  If you can actually get the available space, it's a good idea to subtract
+  a slop factor of 5% or so. }
+
+{GLOBAL}
+function jpeg_mem_available (cinfo : j_common_ptr;
+                             min_bytes_needed : long;
+                             max_bytes_needed : long;
+                             already_allocated : long) : long;
+
+
+implementation
+
+{ This structure holds whatever state is needed to access a single
+  backing-store object.  The read/write/close method pointers are called
+  by jmemmgr.c to manipulate the backing-store object; all other fields
+  are private to the system-dependent backing store routines. }
+
+
+
+{ These two functions are used to allocate and release small chunks of
+  memory.  (Typically the total amount requested through jpeg_get_small is
+  no more than 20K or so; this will be requested in chunks of a few K each.)
+  Behavior should be the same as for the standard library functions malloc
+  and free; in particular, jpeg_get_small must return NIL on failure.
+  On most systems, these ARE malloc and free.  jpeg_free_small is passed the
+  size of the object being freed, just in case it's needed.
+  On an 80x86 machine using small-data memory model, these manage near heap. }
+
+
+{ Near-memory allocation and freeing are controlled by the regular library
+  routines malloc() and free(). }
+
+{GLOBAL}
+function jpeg_get_small (cinfo : j_common_ptr;
+                         sizeofobject : size_t) : pointer;
+var
+  p : pointer;
+begin
+  GetMem(p, sizeofobject);
+  jpeg_get_small := p;
+end;
+
+{GLOBAL}
+{object is a reserved word in Object Pascal }
+procedure jpeg_free_small (cinfo : j_common_ptr;
+                           an_object : pointer;
+                           sizeofobject : size_t);
+begin
+  FreeMem(an_object, sizeofobject);
+end;
+
+{ These two functions are used to allocate and release large chunks of
+  memory (up to the total free space designated by jpeg_mem_available).
+  The interface is the same as above, except that on an 80x86 machine,
+  far pointers are used.  On most other machines these are identical to
+  the jpeg_get/free_small routines; but we keep them separate anyway,
+  in case a different allocation strategy is desirable for large chunks. }
+
+
+
+{GLOBAL}
+function jpeg_get_large (cinfo : j_common_ptr;
+                         sizeofobject : size_t) : voidp; {far}
+var
+  p : pointer;
+begin
+  GetMem(p, sizeofobject);
+  jpeg_get_large := p;
+end;
+
+{GLOBAL}
+procedure jpeg_free_large (cinfo : j_common_ptr;
+                          {var?} an_object : voidp; {FAR}
+                          sizeofobject : size_t);
+begin
+  Freemem(an_object, sizeofobject);
+end;
+
+{ This routine computes the total space still available for allocation by
+  jpeg_get_large.  If more space than this is needed, backing store will be
+  used.  NOTE: any memory already allocated must not be counted.
+
+  There is a minimum space requirement, corresponding to the minimum
+  feasible buffer sizes; jmemmgr.c will request that much space even if
+  jpeg_mem_available returns zero.  The maximum space needed, enough to hold
+  all working storage in memory, is also passed in case it is useful.
+  Finally, the total space already allocated is passed.  If no better
+  method is available, cinfo^.mem^.max_memory_to_use - already_allocated
+  is often a suitable calculation.
+
+  It is OK for jpeg_mem_available to underestimate the space available
+  (that'll just lead to more backing-store access than is really necessary).
+  However, an overestimate will lead to failure.  Hence it's wise to subtract
+  a slop factor from the true available space.  5% should be enough.
+
+  On machines with lots of virtual memory, any large constant may be returned.
+  Conversely, zero may be returned to always use the minimum amount of memory.}
+
+
+
+{ This routine computes the total memory space available for allocation.
+  It's impossible to do this in a portable way; our current solution is
+  to make the user tell us (with a default value set at compile time).
+  If you can actually get the available space, it's a good idea to subtract
+  a slop factor of 5% or so. }
+
+const
+  DEFAULT_MAX_MEM = long(300000);   { for total usage about 450K }
+
+{GLOBAL}
+function jpeg_mem_available (cinfo : j_common_ptr;
+                             min_bytes_needed : long;
+                             max_bytes_needed : long;
+                             already_allocated : long) : long;
+begin
+  {jpeg_mem_available := cinfo^.mem^.max_memory_to_use - already_allocated;}
+  jpeg_mem_available := max_bytes_needed;
+end;
+
+
+{ Initial opening of a backing-store object.  This must fill in the
+  read/write/close pointers in the object.  The read/write routines
+  may take an error exit if the specified maximum file size is exceeded.
+  (If jpeg_mem_available always returns a large value, this routine can
+  just take an error exit.) }
+
+
+
+{ Initial opening of a backing-store object. }
+
+{GLOBAL}
+procedure jpeg_open_backing_store (cinfo : j_common_ptr;
+                                   info : backing_store_ptr;
+                                   total_bytes_needed : long);
+begin
+  ERREXIT(cinfo, JERR_NO_BACKING_STORE);
+end;
+
+{ These routines take care of any system-dependent initialization and
+  cleanup required.  jpeg_mem_init will be called before anything is
+  allocated (and, therefore, nothing in cinfo is of use except the error
+  manager pointer).  It should return a suitable default value for
+  max_memory_to_use; this may subsequently be overridden by the surrounding
+  application.  (Note that max_memory_to_use is only important if
+  jpeg_mem_available chooses to consult it ... no one else will.)
+  jpeg_mem_term may assume that all requested memory has been freed and that
+  all opened backing-store objects have been closed. }
+
+
+{ These routines take care of any system-dependent initialization and
+  cleanup required. }
+
+
+{GLOBAL}
+function jpeg_mem_init (cinfo : j_common_ptr) : long;
+begin
+  jpeg_mem_init := DEFAULT_MAX_MEM;   { default for max_memory_to_use }
+end;
+
+{GLOBAL}
+procedure jpeg_mem_term (cinfo : j_common_ptr);
+begin
+
+end;
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjmorecfg.pas b/src/lib/vampimg/JpegLib/imjmorecfg.pas

new file mode 100644 (file)

index 0000000..fddf3f5
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjmorecfg.pas
@@ -0,0 +1,219 @@
+unit imjmorecfg;
+
+{ This file contains additional configuration options that customize the
+  JPEG software for special applications or support machine-dependent
+  optimizations.  Most users will not need to touch this file. }
+
+{ Source: jmorecfg.h; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+type
+  int = Integer;
+  uInt = Cardinal;
+  short = SmallInt;
+  ushort = Word;
+  long = LongInt;
+
+type
+  voidp = pointer;
+
+type
+  int_ptr = ^int;
+  size_t = int;
+
+{ Define BITS_IN_JSAMPLE as either
+    8   for 8-bit sample values (the usual setting)
+    12  for 12-bit sample values
+  Only 8 and 12 are legal data precisions for lossy JPEG according to the
+  JPEG standard, and the IJG code does not support anything else!
+  We do not support run-time selection of data precision, sorry. }
+
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}   { use 8 or 12 }
+const
+  BITS_IN_JSAMPLE = 8;
+{$else}
+const
+  BITS_IN_JSAMPLE = 12;
+{$endif}
+
+
+{ Maximum number of components (color channels) allowed in JPEG image.
+  To meet the letter of the JPEG spec, set this to 255.  However, darn
+  few applications need more than 4 channels (maybe 5 for CMYK + alpha
+  mask).  We recommend 10 as a reasonable compromise; use 4 if you are
+  really short on memory.  (Each allowed component costs a hundred or so
+  bytes of storage, whether actually used in an image or not.) }
+
+
+const
+  MAX_COMPONENTS = 10;          { maximum number of image components }
+
+
+{ Basic data types.
+  You may need to change these if you have a machine with unusual data
+  type sizes; for example, "char" not 8 bits, "short" not 16 bits,
+  or "long" not 32 bits.  We don't care whether "int" is 16 or 32 bits,
+  but it had better be at least 16. }
+
+
+{ Representation of a single sample (pixel element value).
+  We frequently allocate large arrays of these, so it's important to keep
+  them small.  But if you have memory to burn and access to char or short
+  arrays is very slow on your hardware, you might want to change these. }
+
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+{ JSAMPLE should be the smallest type that will hold the values 0..255.
+  You can use a signed char by having GETJSAMPLE mask it with $FF. }
+
+{ CHAR_IS_UNSIGNED }
+type
+  JSAMPLE = byte; { Pascal unsigned char }
+  GETJSAMPLE = int;
+
+const
+  MAXJSAMPLE = 255;
+  CENTERJSAMPLE = 128;
+
+{$endif}
+
+{$ifndef BITS_IN_JSAMPLE_IS_8}
+{ JSAMPLE should be the smallest type that will hold the values 0..4095.
+  On nearly all machines "short" will do nicely. }
+
+type
+  JSAMPLE = short;
+  GETJSAMPLE = int;
+
+const
+  MAXJSAMPLE = 4095;
+  CENTERJSAMPLE = 2048;
+
+{$endif} { BITS_IN_JSAMPLE = 12 }
+
+
+{ Representation of a DCT frequency coefficient.
+  This should be a signed value of at least 16 bits; "short" is usually OK.
+  Again, we allocate large arrays of these, but you can change to int
+  if you have memory to burn and "short" is really slow. }
+type
+  JCOEF = int;
+  JCOEF_PTR = ^JCOEF;
+
+
+{ Compressed datastreams are represented as arrays of JOCTET.
+  These must be EXACTLY 8 bits wide, at least once they are written to
+  external storage.  Note that when using the stdio data source/destination
+  managers, this is also the data type passed to fread/fwrite. }
+
+
+type
+  JOCTET = Byte;
+  jTOctet = 0..(MaxInt div SizeOf(JOCTET))-1;
+  JOCTET_FIELD = array[jTOctet] of JOCTET;
+  JOCTET_FIELD_PTR = ^JOCTET_FIELD;
+  JOCTETPTR = ^JOCTET;
+
+  GETJOCTET = JOCTET; { A work around }
+
+
+{ These typedefs are used for various table entries and so forth.
+  They must be at least as wide as specified; but making them too big
+  won't cost a huge amount of memory, so we don't provide special
+  extraction code like we did for JSAMPLE.  (In other words, these
+  typedefs live at a different point on the speed/space tradeoff curve.) }
+
+
+{ UINT8 must hold at least the values 0..255. }
+
+type
+  UINT8 = Byte;
+
+{ UINT16 must hold at least the values 0..65535. }
+
+  UINT16 = Word;
+
+{ INT16 must hold at least the values -32768..32767. }
+
+  INT16 = SmallInt;
+
+{ INT32 must hold at least signed 32-bit values. }
+
+  INT32 = LongInt;
+type
+  INT32PTR = ^INT32;
+
+{ Datatype used for image dimensions.  The JPEG standard only supports
+  images up to 64K*64K due to 16-bit fields in SOF markers.  Therefore
+  "unsigned int" is sufficient on all machines.  However, if you need to
+  handle larger images and you don't mind deviating from the spec, you
+  can change this datatype. }
+
+type
+  JDIMENSION = uInt;
+
+const
+  JPEG_MAX_DIMENSION = 65500;  { a tad under 64K to prevent overflows }
+
+
+{ Ordering of RGB data in scanlines passed to or from the application.
+  If your application wants to deal with data in the order B,G,R, just
+  change these macros.  You can also deal with formats such as R,G,B,X
+  (one extra byte per pixel) by changing RGB_PIXELSIZE.  Note that changing
+  the offsets will also change the order in which colormap data is organized.
+  RESTRICTIONS:
+  1. The sample applications cjpeg,djpeg do NOT support modified RGB formats.
+  2. These macros only affect RGB<=>YCbCr color conversion, so they are not
+     useful if you are using JPEG color spaces other than YCbCr or grayscale.
+  3. The color quantizer modules will not behave desirably if RGB_PIXELSIZE
+     is not 3 (they don't understand about dummy color components!).  So you
+     can't use color quantization if you change that value. }
+
+{$ifdef RGB_RED_IS_0}
+const
+  RGB_RED       = 0;    { Offset of Red in an RGB scanline element }
+  RGB_GREEN     = 1;    { Offset of Green }
+  RGB_BLUE      = 2;    { Offset of Blue }
+{$else}
+const
+  RGB_RED       = 2;    { Offset of Red in an RGB scanline element }
+  RGB_GREEN     = 1;    { Offset of Green }
+  RGB_BLUE      = 0;    { Offset of Blue }
+{$endif}
+
+{$ifdef RGB_PIXELSIZE_IS_3}
+const
+  RGB_PIXELSIZE = 3;    { JSAMPLEs per RGB scanline element }
+{$else}
+const
+  RGB_PIXELSIZE = ??;   { Nomssi: deliberate syntax error. Set this value }
+{$endif}
+
+{ Definitions for speed-related optimizations. }
+
+{ On some machines (notably 68000 series) "int" is 32 bits, but multiplying
+  two 16-bit shorts is faster than multiplying two ints.  Define MULTIPLIER
+  as short on such a machine.  MULTIPLIER must be at least 16 bits wide. }
+type
+  MULTIPLIER = int;     { type for fastest integer multiply }
+
+
+{ FAST_FLOAT should be either float or double, whichever is done faster
+  by your compiler.  (Note that this type is only used in the floating point
+  DCT routines, so it only matters if you've defined DCT_FLOAT_SUPPORTED.)
+  Typically, float is faster in ANSI C compilers, while double is faster in
+  pre-ANSI compilers (because they insist on converting to double anyway).
+  The code below therefore chooses float if we have ANSI-style prototypes. }
+
+type
+  FAST_FLOAT = double; {float}
+
+
+implementation
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjpeglib.pas b/src/lib/vampimg/JpegLib/imjpeglib.pas

new file mode 100644 (file)

index 0000000..dc35daa
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjpeglib.pas
@@ -0,0 +1,1300 @@
+unit imjpeglib;
+
+{ This file defines the application interface for the JPEG library.
+  Most applications using the library need only include this file,
+  and perhaps jerror.h if they want to know the exact error codes. }
+
+{ Source:jpeglib.h+jpegint.h; Copyright (C) 1991-1998, Thomas G. Lane. }
+
+
+interface
+
+{$I imjconfig.inc}
+
+{ First we include the configuration files that record how this
+  installation of the JPEG library is set up.  jconfig.h can be
+  generated automatically for many systems.  jmorecfg.h contains
+  manual configuration options that most people need not worry about. }
+
+uses
+  imjdeferr,
+  imjmorecfg;                     { seldom changed options }
+
+{ Version ID for the JPEG library.
+  Might be useful for tests like "#if JPEG_LIB_VERSION >= 60". }
+
+
+Const
+  JPEG_LIB_VERSION = 62;        { Version 6b }
+
+
+{ These marker codes are exported since applications and data source modules
+  are likely to want to use them. }
+
+const
+  JPEG_RST0     = $D0;  { RST0 marker code }
+  JPEG_EOI      = $D9;  { EOI marker code }
+  JPEG_APP0     = $E0;  { APP0 marker code }
+  JPEG_COM      = $FE;  { COM marker code }
+
+
+{ Various constants determining the sizes of things.
+  All of these are specified by the JPEG standard, so don't change them
+  if you want to be compatible. }
+
+const
+  DCTSIZE             = 8;      { The basic DCT block is 8x8 samples }
+  DCTSIZE2            = 64;     { DCTSIZE squared; # of elements in a block }
+  NUM_QUANT_TBLS      = 4;      { Quantization tables are numbered 0..3 }
+  NUM_HUFF_TBLS       = 4;      { Huffman tables are numbered 0..3 }
+  NUM_ARITH_TBLS      = 16;     { Arith-coding tables are numbered 0..15 }
+  MAX_COMPS_IN_SCAN   = 4;      { JPEG limit on # of components in one scan }
+  MAX_SAMP_FACTOR     = 4;      { JPEG limit on sampling factors }
+{ Unfortunately, some bozo at Adobe saw no reason to be bound by the standard;
+  the PostScript DCT filter can emit files with many more than 10 blocks/MCU.
+  If you happen to run across such a file, you can up D_MAX_BLOCKS_IN_MCU
+  to handle it.  We even let you do this from the jconfig.h file.  However,
+  we strongly discourage changing C_MAX_BLOCKS_IN_MCU; just because Adobe
+  sometimes emits noncompliant files doesn't mean you should too. }
+  C_MAX_BLOCKS_IN_MCU = 10;     { compressor's limit on blocks per MCU }
+  D_MAX_BLOCKS_IN_MCU = 10;     { decompressor's limit on blocks per MCU }
+
+
+{ Data structures for images (arrays of samples and of DCT coefficients).
+  On 80x86 machines, the image arrays are too big for near pointers,
+  but the pointer arrays can fit in near memory. }
+
+type
+{ for typecasting }
+  JSAMPLE_PTR = ^JSAMPLE;
+  JSAMPROW_PTR = ^JSAMPROW;
+  JBLOCKROW_PTR = ^JBLOCKROW;
+
+  jTSample = 0..(MaxInt div SIZEOF(JSAMPLE))-1;
+  JSAMPLE_ARRAY = Array[jTSample] of JSAMPLE;  {far}
+  JSAMPROW = ^JSAMPLE_ARRAY;  { ptr to one image row of pixel samples. }
+
+  jTRow = 0..(MaxInt div SIZEOF(JSAMPROW))-1;
+  JSAMPROW_ARRAY = Array[jTRow] of JSAMPROW;
+  JSAMPARRAY = ^JSAMPROW_ARRAY;  { ptr to some rows (a 2-D sample array) }
+
+  jTArray = 0..(MaxInt div SIZEOF(JSAMPARRAY))-1;
+  JSAMP_ARRAY = Array[jTArray] of JSAMPARRAY;
+  JSAMPIMAGE = ^JSAMP_ARRAY;  { a 3-D sample array: top index is color }
+
+  JBLOCK = Array[0..DCTSIZE2-1] of JCOEF;   { one block of coefficients }
+  JBLOCK_PTR = ^JBLOCK;
+
+  jTBlockRow = 0..(MaxInt div SIZEOF(JBLOCK))-1;
+  JBLOCK_ROWS = Array[jTBlockRow] of JBLOCK;
+  JBLOCKROW = ^JBLOCK_ROWS; {far} { pointer to one row of coefficient blocks }
+
+
+  jTBlockArray = 0..(MaxInt div SIZEOF(JBLOCKROW))-1;
+  JBLOCK_ARRAY = Array[jTBlockArray] of JBLOCKROW;
+  JBLOCKARRAY = ^JBLOCK_ARRAY;    { a 2-D array of coefficient blocks }
+
+  jTBlockImage = 0..(MaxInt div SIZEOF(JBLOCKARRAY))-1;
+  JBLOCK_IMAGE = Array[jTBlockImage] of JBLOCKARRAY;
+  JBLOCKIMAGE = ^JBLOCK_IMAGE;   { a 3-D array of coefficient blocks }
+
+  jTCoef = 0..(MaxInt div SIZEOF(JCOEF))-1;
+  JCOEF_ROW = Array[jTCoef] of JCOEF;
+  JCOEFPTR = ^JCOEF_ROW; {far}   { useful in a couple of places }
+
+
+type
+  jTByte = 0..(MaxInt div SIZEOF(byte))-1;
+  JByteArray = Array[jTByte] of byte;
+  JBytePtr = ^JByteArray;
+type
+  byteptr = ^byte;
+
+{ Types for JPEG compression parameters and working tables. }
+
+
+{ DCT coefficient quantization tables. }
+
+type
+  JQUANT_TBL_PTR = ^JQUANT_TBL;
+  JQUANT_TBL = record
+  { This array gives the coefficient quantizers in natural array order
+    (not the zigzag order in which they are stored in a JPEG DQT marker).
+    CAUTION: IJG versions prior to v6a kept this array in zigzag order. }
+    quantval : Array[0..DCTSIZE2-1] of UINT16;
+                               { quantization step for each coefficient }
+  { This field is used only during compression.  It's initialized FALSE when
+    the table is created, and set TRUE when it's been output to the file.
+    You could suppress output of a table by setting this to TRUE.
+    (See jpeg_suppress_tables for an example.) }
+    sent_table : boolean;      { TRUE when table has been output }
+  end;
+  JQUANT_TBL_FIELD = Array[0..(MaxInt div SizeOf(JQUANT_TBL))-1] of JQUANT_TBL;
+
+{ Huffman coding tables. }
+
+type
+  JHUFF_TBL_PTR = ^JHUFF_TBL;
+  JHUFF_TBL = record
+  { These two fields directly represent the contents of a JPEG DHT marker }
+    bits : Array[0..17-1] of UINT8; { bits[k] = # of symbols with codes of }
+                                    { length k bits; bits[0] is unused }
+    huffval : Array[0..256-1] of UINT8;
+                                    { The symbols, in order of incr code length }
+  { This field is used only during compression.  It's initialized FALSE when
+    the table is created, and set TRUE when it's been output to the file.
+    You could suppress output of a table by setting this to TRUE.
+    (See jpeg_suppress_tables for an example.) }
+    sent_table : boolean;           { TRUE when table has been output }
+  end;
+  JHUFF_TBL_FIELD = Array[0..(MaxInt div SizeOf(JHUFF_TBL))-1] of JHUFF_TBL;
+
+{ Declarations for both compression & decompression }
+
+type
+  J_BUF_MODE = (    { Operating modes for buffer controllers }
+  JBUF_PASS_THRU,   { Plain stripwise operation }
+  { Remaining modes require a full-image buffer to have been created }
+  JBUF_SAVE_SOURCE, { Run source subobject only, save output }
+  JBUF_CRANK_DEST,  { Run dest subobject only, using saved data }
+  JBUF_SAVE_AND_PASS  { Run both subobjects, save output }
+               );
+
+{ Values of global_state field (jdapi.c has some dependencies on ordering!) }
+const
+  CSTATE_START        = 100;    { after create_compress }
+  CSTATE_SCANNING     = 101;    { start_compress done, write_scanlines OK }
+  CSTATE_RAW_OK       = 102;    { start_compress done, write_raw_data OK }
+  CSTATE_WRCOEFS      = 103;    { jpeg_write_coefficients done }
+  DSTATE_START        = 200;    { after create_decompress }
+  DSTATE_INHEADER     = 201;    { reading header markers, no SOS yet }
+  DSTATE_READY        = 202;    { found SOS, ready for start_decompress }
+  DSTATE_PRELOAD      = 203;    { reading multiscan file in start_decompress}
+  DSTATE_PRESCAN      = 204;    { performing dummy pass for 2-pass quant }
+  DSTATE_SCANNING     = 205;    { start_decompress done, read_scanlines OK }
+  DSTATE_RAW_OK       = 206;    { start_decompress done, read_raw_data OK }
+  DSTATE_BUFIMAGE     = 207;    { expecting jpeg_start_output }
+  DSTATE_BUFPOST      = 208;    { looking for SOS/EOI in jpeg_finish_output }
+  DSTATE_RDCOEFS      = 209;    { reading file in jpeg_read_coefficients }
+  DSTATE_STOPPING     = 210;    { looking for EOI in jpeg_finish_decompress }
+
+
+
+{ Basic info about one component (color channel). }
+
+type
+  jpeg_component_info_ptr = ^jpeg_component_info;
+  jpeg_component_info = record
+    { These values are fixed over the whole image. }
+    { For compression, they must be supplied by parameter setup; }
+    { for decompression, they are read from the SOF marker. }
+    component_id : int;           { identifier for this component (0..255) }
+    component_index : int;        { its index in SOF or cinfo^.comp_info[] }
+    h_samp_factor : int;          { horizontal sampling factor (1..4) }
+    v_samp_factor : int;          { vertical sampling factor (1..4) }
+    quant_tbl_no : int;           { quantization table selector (0..3) }
+    { These values may vary between scans. }
+    { For compression, they must be supplied by parameter setup; }
+    { for decompression, they are read from the SOS marker. }
+    { The decompressor output side may not use these variables. }
+    dc_tbl_no : int;              { DC entropy table selector (0..3) }
+    ac_tbl_no : int;              { AC entropy table selector (0..3) }
+
+    { Remaining fields should be treated as private by applications. }
+
+    { These values are computed during compression or decompression startup: }
+    { Component's size in DCT blocks.
+      Any dummy blocks added to complete an MCU are not counted; therefore
+      these values do not depend on whether a scan is interleaved or not. }
+    width_in_blocks : JDIMENSION;
+    height_in_blocks : JDIMENSION;
+    { Size of a DCT block in samples.  Always DCTSIZE for compression.
+      For decompression this is the size of the output from one DCT block,
+      reflecting any scaling we choose to apply during the IDCT step.
+      Values of 1,2,4,8 are likely to be supported.  Note that different
+      components may receive different IDCT scalings. }
+
+    DCT_scaled_size : int;
+    { The downsampled dimensions are the component's actual, unpadded number
+      of samples at the main buffer (preprocessing/compression interface), thus
+      downsampled_width = ceil(image_width * Hi/Hmax)
+      and similarly for height.  For decompression, IDCT scaling is included, so
+      downsampled_width = ceil(image_width * Hi/Hmax * DCT_scaled_size/DCTSIZE)}
+
+    downsampled_width : JDIMENSION;        { actual width in samples }
+    downsampled_height : JDIMENSION;       { actual height in samples }
+    { This flag is used only for decompression.  In cases where some of the
+      components will be ignored (eg grayscale output from YCbCr image),
+      we can skip most computations for the unused components. }
+
+    component_needed : boolean;     { do we need the value of this component? }
+
+    { These values are computed before starting a scan of the component. }
+    { The decompressor output side may not use these variables. }
+    MCU_width : int;      { number of blocks per MCU, horizontally }
+    MCU_height : int;     { number of blocks per MCU, vertically }
+    MCU_blocks : int;     { MCU_width * MCU_height }
+    MCU_sample_width : int;       { MCU width in samples, MCU_width*DCT_scaled_size }
+    last_col_width : int;         { # of non-dummy blocks across in last MCU }
+    last_row_height : int;        { # of non-dummy blocks down in last MCU }
+
+    { Saved quantization table for component; NIL if none yet saved.
+      See jdinput.c comments about the need for this information.
+      This field is currently used only for decompression. }
+
+    quant_table : JQUANT_TBL_PTR;
+
+    { Private per-component storage for DCT or IDCT subsystem. }
+    dct_table : pointer;
+  end; { record jpeg_component_info }
+
+  jTCinfo = 0..(MaxInt div SizeOf(jpeg_component_info))-1;
+  jpeg_component_info_array = array[jTCinfo] of jpeg_component_info;
+  jpeg_component_info_list_ptr = ^jpeg_component_info_array;
+
+
+{ The script for encoding a multiple-scan file is an array of these: }
+
+type
+  jpeg_scan_info_ptr = ^jpeg_scan_info;
+  jpeg_scan_info = record
+    comps_in_scan : int;                { number of components encoded in this scan }
+    component_index : Array[0..MAX_COMPS_IN_SCAN-1] of int;
+                                        { their SOF/comp_info[] indexes }
+    Ss, Se : int;                       { progressive JPEG spectral selection parms }
+    Ah, Al : int;                       { progressive JPEG successive approx. parms }
+  end;
+
+{ The decompressor can save APPn and COM markers in a list of these: }
+
+type
+  jpeg_saved_marker_ptr = ^jpeg_marker_struct;
+  jpeg_marker_struct = record
+    next : jpeg_saved_marker_ptr;    { next in list, or NULL }
+    marker : UINT8;                  { marker code: JPEG_COM, or JPEG_APP0+n }
+    original_length : uint;          { # bytes of data in the file }
+    data_length : uint;              { # bytes of data saved at data[] }
+    data : JOCTET_FIELD_PTR;         { the data contained in the marker }
+   { the marker length word is not counted in data_length or original_length }
+  end;
+
+{ Known color spaces. }
+
+type
+  J_COLOR_SPACE = (
+  JCS_UNKNOWN,            { error/unspecified }
+  JCS_GRAYSCALE,          { monochrome }
+  JCS_RGB,                { red/green/blue }
+  JCS_YCbCr,              { Y/Cb/Cr (also known as YUV) }
+  JCS_CMYK,               { C/M/Y/K }
+  JCS_YCCK                { Y/Cb/Cr/K }
+                  );
+
+{ DCT/IDCT algorithm options. }
+
+type
+  J_DCT_METHOD = (
+  JDCT_ISLOW,   { slow but accurate integer algorithm }
+  JDCT_IFAST,   { faster, less accurate integer method }
+  JDCT_FLOAT    { floating-point: accurate, fast on fast HW }
+                 );
+
+const
+  JDCT_DEFAULT = JDCT_ISLOW;
+  JDCT_FASTEST = JDCT_IFAST;
+
+{ Dithering options for decompression. }
+
+type
+  J_DITHER_MODE = (
+    JDITHER_NONE,               { no dithering }
+    JDITHER_ORDERED,            { simple ordered dither }
+    JDITHER_FS                  { Floyd-Steinberg error diffusion dither }
+                  );
+
+
+const
+  JPOOL_PERMANENT  = 0; { lasts until master record is destroyed }
+  JPOOL_IMAGE      = 1; { lasts until done with image/datastream }
+  JPOOL_NUMPOOLS   = 2;
+
+
+{ "Object" declarations for JPEG modules that may be supplied or called
+  directly by the surrounding application.
+  As with all objects in the JPEG library, these structs only define the
+  publicly visible methods and state variables of a module.  Additional
+  private fields may exist after the public ones. }
+
+
+{ Error handler object }
+
+const
+  JMSG_LENGTH_MAX  = 200;  { recommended size of format_message buffer }
+  JMSG_STR_PARM_MAX = 80;
+
+const
+  TEMP_NAME_LENGTH = 64;   { max length of a temporary file's name }
+type
+  TEMP_STRING = string[TEMP_NAME_LENGTH];
+
+{$ifdef USE_MSDOS_MEMMGR}  { DOS-specific junk }
+type
+  XMSH = ushort;           { type of extended-memory handles }
+  EMSH = ushort;           { type of expanded-memory handles }
+
+  handle_union = record
+    case byte of
+    0:(file_handle : short);    { DOS file handle if it's a temp file }
+    1:(xms_handle : XMSH);      { handle if it's a chunk of XMS }
+    2:(ems_handle : EMSH);      { handle if it's a chunk of EMS }
+  end;
+{$endif} { USE_MSDOS_MEMMGR }
+
+type
+  jpeg_error_mgr_ptr = ^jpeg_error_mgr;
+  jpeg_memory_mgr_ptr = ^jpeg_memory_mgr;
+  jpeg_progress_mgr_ptr = ^jpeg_progress_mgr;
+
+
+{$ifdef common}
+{ Common fields between JPEG compression and decompression master structs. }
+    err : jpeg_error_mgr_ptr;            { Error handler module }
+    mem : jpeg_memory_mgr_ptr;           { Memory manager module }
+    progress : jpeg_progress_mgr_ptr;    { Progress monitor, or NIL if none }
+    client_data : voidp;                 { Available for use by application }
+    is_decompressor : boolean;     { so common code can tell which is which }
+    global_state : int;            { for checking call sequence validity }
+{$endif}
+
+  j_common_ptr = ^jpeg_common_struct;
+  j_compress_ptr = ^jpeg_compress_struct;
+  j_decompress_ptr = ^jpeg_decompress_struct;
+
+  {$ifdef AM_MEMORY_MANAGER}  { only jmemmgr.c defines these }
+
+{ This structure holds whatever state is needed to access a single
+  backing-store object.  The read/write/close method pointers are called
+  by jmemmgr.c to manipulate the backing-store object; all other fields
+  are private to the system-dependent backing store routines. }
+
+
+  backing_store_ptr = ^backing_store_info;
+  backing_store_info = record
+  { Methods for reading/writing/closing this backing-store object }
+    read_backing_store : procedure (cinfo : j_common_ptr;
+            info : backing_store_ptr;
+            buffer_address : pointer; {far}
+            file_offset : long;
+                                    byte_count : long);
+    write_backing_store : procedure (cinfo : j_common_ptr;
+             info : backing_store_ptr;
+             buffer_address : pointer;  {far}
+             file_offset : long;
+                                     byte_count : long);
+
+    close_backing_store : procedure (cinfo : j_common_ptr;
+             info : backing_store_ptr);
+
+  { Private fields for system-dependent backing-store management }
+  {$ifdef USE_MSDOS_MEMMGR}
+    { For the MS-DOS manager (jmemdos.c), we need: }
+    handle : handle_union;            { reference to backing-store storage object }
+    temp_name : TEMP_STRING;  { name if it's a file }
+  {$else}
+    { For a typical implementation with temp files, we need: }
+    temp_file : file;                 { stdio reference to temp file }
+    temp_name : TEMP_STRING;  { name of temp file }
+  {$endif}
+ end;
+
+
+{ The control blocks for virtual arrays.
+  Note that these blocks are allocated in the "small" pool area.
+  System-dependent info for the associated backing store (if any) is hidden
+  inside the backing_store_info struct. }
+
+  jvirt_sarray_ptr = ^jvirt_sarray_control;
+  jvirt_sarray_control = record
+    mem_buffer : JSAMPARRAY;    { => the in-memory buffer }
+    rows_in_array : JDIMENSION; { total virtual array height }
+    samplesperrow : JDIMENSION; { width of array (and of memory buffer) }
+    maxaccess : JDIMENSION;     { max rows accessed by access_virt_sarray }
+    rows_in_mem : JDIMENSION;   { height of memory buffer }
+    rowsperchunk : JDIMENSION;  { allocation chunk size in mem_buffer }
+    cur_start_row : JDIMENSION; { first logical row # in the buffer }
+    first_undef_row : JDIMENSION; { row # of first uninitialized row }
+    pre_zero : boolean;         { pre-zero mode requested? }
+    dirty : boolean;            { do current buffer contents need written? }
+    b_s_open : boolean;         { is backing-store data valid? }
+    next : jvirt_sarray_ptr;    { link to next virtual sarray control block }
+    b_s_info : backing_store_info; { System-dependent control info }
+  end;
+
+  jvirt_barray_ptr = ^jvirt_barray_control;
+  jvirt_barray_control = record
+    mem_buffer : JBLOCKARRAY;   { => the in-memory buffer }
+    rows_in_array : JDIMENSION; { total virtual array height }
+    blocksperrow : JDIMENSION;  { width of array (and of memory buffer) }
+    maxaccess : JDIMENSION;     { max rows accessed by access_virt_barray }
+    rows_in_mem : JDIMENSION;   { height of memory buffer }
+    rowsperchunk : JDIMENSION;  { allocation chunk size in mem_buffer }
+    cur_start_row : JDIMENSION; { first logical row # in the buffer }
+    first_undef_row : JDIMENSION; { row # of first uninitialized row }
+    pre_zero : boolean;         { pre-zero mode requested? }
+    dirty : boolean;            { do current buffer contents need written? }
+    b_s_open : boolean;         { is backing-store data valid? }
+    next : jvirt_barray_ptr;    { link to next virtual barray control block }
+    b_s_info : backing_store_info;  { System-dependent control info }
+  end;
+
+  {$endif} { AM_MEMORY_MANAGER }
+
+{ Declarations for compression modules }
+
+{ Master control module }
+  jpeg_comp_master_ptr = ^jpeg_comp_master;
+  jpeg_comp_master = record
+    prepare_for_pass : procedure(cinfo : j_compress_ptr);
+    pass_startup : procedure(cinfo : j_compress_ptr);
+    finish_pass : procedure(cinfo : j_compress_ptr);
+
+    { State variables made visible to other modules }
+    call_pass_startup : Boolean;   { True if pass_startup must be called }
+    is_last_pass : Boolean;        { True during last pass }
+  end;
+
+{ Main buffer control (downsampled-data buffer) }
+  jpeg_c_main_controller_ptr = ^jpeg_c_main_controller;
+  jpeg_c_main_controller = record
+    start_pass : procedure(cinfo : j_compress_ptr; pass_mode : J_BUF_MODE);
+    process_data : procedure(cinfo : j_compress_ptr;
+                             input_buf : JSAMPARRAY;
+                             var in_row_ctr : JDIMENSION;
+           in_rows_avail : JDIMENSION);
+  end;
+
+{ Compression preprocessing (downsampling input buffer control) }
+  jpeg_c_prep_controller_ptr = ^jpeg_c_prep_controller;
+  jpeg_c_prep_controller = record
+    start_pass : procedure(cinfo : j_compress_ptr; pass_mode : J_BUF_MODE);
+    pre_process_data : procedure(cinfo : j_compress_ptr;
+         input_buf : JSAMPARRAY;
+         var in_row_ctr : JDIMENSION;
+         in_rows_avail : JDIMENSION;
+         output_buf : JSAMPIMAGE;
+         var out_row_group_ctr : JDIMENSION;
+         out_row_groups_avail : JDIMENSION);
+  end;
+
+{ Coefficient buffer control }
+  jpeg_c_coef_controller_ptr = ^jpeg_c_coef_controller;
+  jpeg_c_coef_controller = record
+    start_pass : procedure(cinfo : j_compress_ptr; pass_mode : J_BUF_MODE);
+    compress_data : function(cinfo : j_compress_ptr;
+                             input_buf : JSAMPIMAGE) : boolean;
+  end;
+
+{ Colorspace conversion }
+  jpeg_color_converter_ptr = ^jpeg_color_converter;
+  jpeg_color_converter = record
+    start_pass : procedure(cinfo : j_compress_ptr);
+    color_convert : procedure(cinfo : j_compress_ptr;
+                              input_buf : JSAMPARRAY;
+                              output_buf : JSAMPIMAGE;
+            output_row : JDIMENSION;
+                              num_rows : int);
+  end;
+
+{ Downsampling }
+  jpeg_downsampler_ptr = ^jpeg_downsampler;
+  jpeg_downsampler = record
+    start_pass : procedure(cinfo : j_compress_ptr);
+    downsample : procedure(cinfo : j_compress_ptr;
+         input_buf : JSAMPIMAGE;
+                           in_row_index :  JDIMENSION;
+         output_buf : JSAMPIMAGE;
+         out_row_group_index: JDIMENSION);
+    need_context_rows : Boolean;  { TRUE if need rows above & below }
+  end;
+
+{ Forward DCT (also controls coefficient quantization) }
+  jpeg_forward_dct_ptr = ^jpeg_forward_dct;
+  jpeg_forward_dct = record
+    start_pass : procedure(cinfo : j_compress_ptr);
+    { perhaps this should be an array??? }
+    forward_DCT : procedure(cinfo : j_compress_ptr;
+          compptr : jpeg_component_info_ptr;
+          sample_data : JSAMPARRAY;
+                            coef_blocks : JBLOCKROW;
+          start_row : JDIMENSION;
+                            start_col : JDIMENSION;
+          num_blocks : JDIMENSION);
+  end;
+
+{ Entropy encoding }
+
+  jpeg_entropy_encoder_ptr = ^jpeg_entropy_encoder;
+  jpeg_entropy_encoder = record
+    start_pass : procedure(cinfo : j_compress_ptr; gather_statistics : boolean);
+    encode_mcu : function(cinfo : j_compress_ptr;
+                          const MCU_data: array of JBLOCKROW) : boolean;
+    finish_pass : procedure(cinfo : j_compress_ptr);
+  end;
+
+{ Marker writing }
+  jpeg_marker_writer_ptr = ^jpeg_marker_writer;
+  jpeg_marker_writer = record
+    write_file_header : procedure(cinfo : j_compress_ptr);
+    write_frame_header : procedure(cinfo : j_compress_ptr);
+    write_scan_header : procedure(cinfo : j_compress_ptr);
+    write_file_trailer : procedure(cinfo : j_compress_ptr);
+    write_tables_only : procedure(cinfo : j_compress_ptr);
+   { These routines are exported to allow insertion of extra markers }
+   { Probably only COM and APPn markers should be written this way }
+    write_marker_header : procedure (cinfo : j_compress_ptr;
+                                     marker : int;
+             datalen : uint);
+    write_marker_byte : procedure (cinfo : j_compress_ptr; val : int);
+  end;
+
+{ Declarations for decompression modules }
+
+{ Master control module }
+  jpeg_decomp_master_ptr = ^jpeg_decomp_master;
+  jpeg_decomp_master = record
+    prepare_for_output_pass : procedure( cinfo : j_decompress_ptr);
+    finish_output_pass : procedure(cinfo : j_decompress_ptr);
+
+    { State variables made visible to other modules }
+    is_dummy_pass : Boolean;  { True during 1st pass for 2-pass quant }
+  end;
+
+{ Input control module }
+  jpeg_input_controller_ptr = ^jpeg_input_controller;
+  jpeg_input_controller = record
+    consume_input : function (cinfo : j_decompress_ptr) : int;
+    reset_input_controller : procedure(cinfo : j_decompress_ptr);
+    start_input_pass : procedure(cinfo : j_decompress_ptr);
+    finish_input_pass : procedure(cinfo : j_decompress_ptr);
+
+    { State variables made visible to other modules }
+    has_multiple_scans : Boolean;  { True if file has multiple scans }
+    eoi_reached : Boolean;         { True when EOI has been consumed }
+  end;
+
+{ Main buffer control (downsampled-data buffer) }
+
+  jpeg_d_main_controller_ptr = ^jpeg_d_main_controller;
+  jpeg_d_main_controller = record
+    start_pass : procedure(cinfo : j_decompress_ptr; pass_mode : J_BUF_MODE);
+    process_data : procedure(cinfo : j_decompress_ptr;
+                             output_buf : JSAMPARRAY;
+                             var out_row_ctr : JDIMENSION;
+                       out_rows_avail : JDIMENSION);
+  end;
+
+{ Coefficient buffer control }
+  jvirt_barray_tbl = array[0..MAX_COMPONENTS-1] of jvirt_barray_ptr;
+  jvirt_barray_tbl_ptr = ^jvirt_barray_tbl;
+  jpeg_d_coef_controller_ptr = ^jpeg_d_coef_controller;
+  jpeg_d_coef_controller = record
+    start_input_pass : procedure(cinfo : j_decompress_ptr);
+    consume_data : function (cinfo : j_decompress_ptr) : int;
+    start_output_pass : procedure(cinfo : j_decompress_ptr);
+    decompress_data : function (cinfo : j_decompress_ptr;
+                                output_buf : JSAMPIMAGE) : int;
+  { Pointer to array of coefficient virtual arrays, or NIL if none }
+    coef_arrays : jvirt_barray_tbl_ptr;
+  end;
+
+{ Decompression postprocessing (color quantization buffer control) }
+  jpeg_d_post_controller_ptr = ^jpeg_d_post_controller;
+  jpeg_d_post_controller = record
+    start_pass : procedure(cinfo : j_decompress_ptr;
+                           pass_mode : J_BUF_MODE);
+    post_process_data : procedure(cinfo : j_decompress_ptr;
+          input_buf : JSAMPIMAGE;
+          var in_row_group_ctr : JDIMENSION;
+          in_row_groups_avail : JDIMENSION;
+          output_buf : JSAMPARRAY;
+          var out_row_ctr : JDIMENSION;
+          out_rows_avail : JDIMENSION);
+  end;
+
+
+{ Routine signature for application-supplied marker processing methods.
+  Need not pass marker code since it is stored in cinfo^.unread_marker. }
+
+  jpeg_marker_parser_method = function(cinfo : j_decompress_ptr) : boolean;
+
+{ Marker reading & parsing }
+  jpeg_marker_reader_ptr = ^jpeg_marker_reader;
+  jpeg_marker_reader = record
+    reset_marker_reader : procedure(cinfo : j_decompress_ptr);
+    { Read markers until SOS or EOI.
+      Returns same codes as are defined for jpeg_consume_input:
+      JPEG_SUSPENDED, JPEG_REACHED_SOS, or JPEG_REACHED_EOI. }
+
+    read_markers : function (cinfo : j_decompress_ptr) : int;
+    { Read a restart marker --- exported for use by entropy decoder only }
+    read_restart_marker : jpeg_marker_parser_method;
+
+    { State of marker reader --- nominally internal, but applications
+      supplying COM or APPn handlers might like to know the state. }
+
+    saw_SOI : boolean;            { found SOI? }
+    saw_SOF : boolean;            { found SOF? }
+    next_restart_num : int;       { next restart number expected (0-7) }
+    discarded_bytes : uint;       { # of bytes skipped looking for a marker }
+  end;
+
+{ Entropy decoding }
+  jpeg_entropy_decoder_ptr = ^jpeg_entropy_decoder;
+  jpeg_entropy_decoder = record
+    start_pass : procedure(cinfo : j_decompress_ptr);
+    decode_mcu : function(cinfo : j_decompress_ptr;
+                          var MCU_data : array of JBLOCKROW) : boolean;
+  { This is here to share code between baseline and progressive decoders; }
+  { other modules probably should not use it }
+    insufficient_data : BOOLEAN;  { set TRUE after emitting warning }
+  end;
+
+{ Inverse DCT (also performs dequantization) }
+  inverse_DCT_method_ptr = procedure(cinfo : j_decompress_ptr;
+                 compptr : jpeg_component_info_ptr;
+     coef_block : JCOEFPTR;
+     output_buf : JSAMPARRAY; output_col : JDIMENSION);
+
+  jpeg_inverse_dct_ptr = ^jpeg_inverse_dct;
+  jpeg_inverse_dct = record
+    start_pass : procedure(cinfo : j_decompress_ptr);
+    { It is useful to allow each component to have a separate IDCT method. }
+    inverse_DCT : Array[0..MAX_COMPONENTS-1] of inverse_DCT_method_ptr;
+  end;
+
+{ Upsampling (note that upsampler must also call color converter) }
+  jpeg_upsampler_ptr = ^jpeg_upsampler;
+  jpeg_upsampler = record
+    start_pass : procedure(cinfo : j_decompress_ptr);
+    upsample : procedure(cinfo : j_decompress_ptr;
+                   input_buf : JSAMPIMAGE;
+       var in_row_group_ctr : JDIMENSION;  { array of }
+       in_row_groups_avail : JDIMENSION;
+       output_buf : JSAMPARRAY;
+       var out_row_ctr : JDIMENSION;
+       out_rows_avail : JDIMENSION);
+
+    need_context_rows : boolean;  { TRUE if need rows above & below }
+  end;
+
+{ Colorspace conversion }
+  jpeg_color_deconverter_ptr = ^jpeg_color_deconverter;
+  jpeg_color_deconverter = record
+    start_pass : procedure(cinfo: j_decompress_ptr);
+    color_convert : procedure(cinfo : j_decompress_ptr;
+                              input_buf : JSAMPIMAGE;
+                              input_row : JDIMENSION;
+                              output_buf : JSAMPARRAY;
+                              num_rows : int);
+  end;
+
+{ Color quantization or color precision reduction }
+  jpeg_color_quantizer_ptr = ^jpeg_color_quantizer;
+  jpeg_color_quantizer = record
+    start_pass : procedure(cinfo : j_decompress_ptr; is_pre_scan : boolean);
+    color_quantize : procedure(cinfo : j_decompress_ptr;
+                               input_buf : JSAMPARRAY;
+                               output_buf : JSAMPARRAY;
+                               num_rows : int);
+
+    finish_pass : procedure(cinfo : j_decompress_ptr);
+    new_color_map : procedure(cinfo : j_decompress_ptr);
+  end;
+
+  {int8array = Array[0..8-1] of int;}
+  int8array = Array[0..8-1] of longint; { for TP FormatStr }
+
+  jpeg_error_mgr = record
+    { Error exit handler: does not return to caller }
+    error_exit : procedure  (cinfo : j_common_ptr);
+    { Conditionally emit a trace or warning message }
+    emit_message : procedure (cinfo : j_common_ptr; msg_level : int);
+    { Routine that actually outputs a trace or error message }
+    output_message : procedure (cinfo : j_common_ptr);
+    { Format a message string for the most recent JPEG error or message }
+    format_message : procedure  (cinfo : j_common_ptr; var buffer : AnsiString);
+
+    { Reset error state variables at start of a new image }
+    reset_error_mgr : procedure (cinfo : j_common_ptr);
+
+    { The message ID code and any parameters are saved here.
+      A message can have one string parameter or up to 8 int parameters. }
+
+    msg_code : int;
+
+    msg_parm : record
+      case byte of
+      0:(i : int8array);
+      1:(s : string[JMSG_STR_PARM_MAX]);
+    end;
+
+    { Standard state variables for error facility }
+
+    trace_level : int;         { max msg_level that will be displayed }
+
+    { For recoverable corrupt-data errors, we emit a warning message,
+      but keep going unless emit_message chooses to abort.  emit_message
+      should count warnings in num_warnings.  The surrounding application
+      can check for bad data by seeing if num_warnings is nonzero at the
+      end of processing. }
+
+    num_warnings : long;       { number of corrupt-data warnings }
+
+    { These fields point to the table(s) of error message strings.
+      An application can change the table pointer to switch to a different
+      message list (typically, to change the language in which errors are
+      reported).  Some applications may wish to add additional error codes
+      that will be handled by the JPEG library error mechanism; the second
+      table pointer is used for this purpose.
+
+      First table includes all errors generated by JPEG library itself.
+      Error code 0 is reserved for a "no such error string" message. }
+
+    {const char * const * jpeg_message_table; }
+    jpeg_message_table : ^msg_table; { Library errors }
+
+    last_jpeg_message : J_MESSAGE_CODE;
+      { Table contains strings 0..last_jpeg_message }
+    { Second table can be added by application (see cjpeg/djpeg for example).
+      It contains strings numbered first_addon_message..last_addon_message. }
+
+    {const char * const * addon_message_table; }
+    addon_message_table : ^msg_table; { Non-library errors }
+
+    first_addon_message : J_MESSAGE_CODE;  { code for first string in addon table }
+    last_addon_message : J_MESSAGE_CODE;   { code for last string in addon table }
+  end;
+
+
+{ Progress monitor object }
+
+  jpeg_progress_mgr = record
+    progress_monitor : procedure(cinfo : j_common_ptr);
+
+    pass_counter : long;        { work units completed in this pass }
+    pass_limit : long;          { total number of work units in this pass }
+    completed_passes : int; { passes completed so far }
+    total_passes : int;         { total number of passes expected }
+  end;
+
+
+{ Data destination object for compression }
+  jpeg_destination_mgr_ptr = ^jpeg_destination_mgr;
+  jpeg_destination_mgr = record
+    next_output_byte : JOCTETptr;  { => next byte to write in buffer }
+    free_in_buffer : size_t;    { # of byte spaces remaining in buffer }
+
+    init_destination : procedure (cinfo : j_compress_ptr);
+    empty_output_buffer : function (cinfo : j_compress_ptr) : boolean;
+    term_destination : procedure (cinfo : j_compress_ptr);
+  end;
+
+
+{ Data source object for decompression }
+
+  jpeg_source_mgr_ptr = ^jpeg_source_mgr;
+  jpeg_source_mgr = record
+    {const JOCTET * next_input_byte;}
+    next_input_byte : JOCTETptr;      { => next byte to read from buffer }
+    bytes_in_buffer : size_t;       { # of bytes remaining in buffer }
+
+    init_source : procedure  (cinfo : j_decompress_ptr);
+    fill_input_buffer : function (cinfo : j_decompress_ptr) : boolean;
+    skip_input_data : procedure (cinfo : j_decompress_ptr; num_bytes : long);
+    resync_to_restart : function (cinfo : j_decompress_ptr;
+                                  desired : int) : boolean;
+    term_source : procedure (cinfo : j_decompress_ptr);
+  end;
+
+
+{ Memory manager object.
+  Allocates "small" objects (a few K total), "large" objects (tens of K),
+  and "really big" objects (virtual arrays with backing store if needed).
+  The memory manager does not allow individual objects to be freed; rather,
+  each created object is assigned to a pool, and whole pools can be freed
+  at once.  This is faster and more convenient than remembering exactly what
+  to free, especially where malloc()/free() are not too speedy.
+  NB: alloc routines never return NIL.  They exit to error_exit if not
+  successful. }
+
+
+  jpeg_memory_mgr = record
+    { Method pointers }
+    alloc_small : function (cinfo : j_common_ptr; pool_id : int;
+          sizeofobject : size_t) : pointer;
+    alloc_large : function (cinfo : j_common_ptr; pool_id : int;
+          sizeofobject : size_t) : pointer; {far}
+    alloc_sarray : function (cinfo : j_common_ptr; pool_id : int;
+                             samplesperrow : JDIMENSION;
+                             numrows : JDIMENSION) : JSAMPARRAY;
+
+    alloc_barray : function (cinfo : j_common_ptr; pool_id : int;
+                             blocksperrow : JDIMENSION;
+                             numrows : JDIMENSION) : JBLOCKARRAY;
+
+    request_virt_sarray : function(cinfo : j_common_ptr;
+                                   pool_id : int;
+                                   pre_zero : boolean;
+                                   samplesperrow : JDIMENSION;
+                                   numrows : JDIMENSION;
+                                   maxaccess : JDIMENSION) : jvirt_sarray_ptr;
+
+    request_virt_barray : function(cinfo : j_common_ptr;
+                                   pool_id : int;
+                                   pre_zero : boolean;
+                                   blocksperrow : JDIMENSION;
+                                   numrows : JDIMENSION;
+                                   maxaccess : JDIMENSION) : jvirt_barray_ptr;
+
+    realize_virt_arrays : procedure (cinfo : j_common_ptr);
+
+    access_virt_sarray : function (cinfo : j_common_ptr;
+                                   ptr : jvirt_sarray_ptr;
+                                   start_row : JDIMENSION;
+                                   num_rows : JDIMENSION;
+           writable : boolean) : JSAMPARRAY;
+
+    access_virt_barray : function (cinfo : j_common_ptr;
+                                   ptr : jvirt_barray_ptr;
+                                   start_row : JDIMENSION;
+                                   num_rows : JDIMENSION;
+                                   writable : boolean) : JBLOCKARRAY;
+
+    free_pool : procedure  (cinfo : j_common_ptr; pool_id : int);
+    self_destruct : procedure (cinfo : j_common_ptr);
+
+    { Limit on memory allocation for this JPEG object.  (Note that this is
+      merely advisory, not a guaranteed maximum; it only affects the space
+      used for virtual-array buffers.)  May be changed by outer application
+      after creating the JPEG object. }
+    max_memory_to_use : long;
+
+    { Maximum allocation request accepted by alloc_large. }
+    max_alloc_chunk : long;
+  end;
+
+{ Routines that are to be used by both halves of the library are declared
+  to receive a pointer to this structure.  There are no actual instances of
+  jpeg_common_struct, only of jpeg_compress_struct and jpeg_decompress_struct.}
+  jpeg_common_struct = record
+  { Fields common to both master struct types }
+    err : jpeg_error_mgr_ptr;           { Error handler module }
+    mem : jpeg_memory_mgr_ptr;          { Memory manager module }
+    progress : jpeg_progress_mgr_ptr;   { Progress monitor, or NIL if none }
+    client_data : voidp;                { Available for use by application }
+    is_decompressor : boolean;     { so common code can tell which is which }
+    global_state : int;            { for checking call sequence validity }
+
+  { Additional fields follow in an actual jpeg_compress_struct or
+    jpeg_decompress_struct.  All three structs must agree on these
+    initial fields!  (This would be a lot cleaner in C++.) }
+  end;
+
+
+{ Master record for a compression instance }
+
+  jpeg_compress_struct = record
+    { Fields shared with jpeg_decompress_struct }
+    err : jpeg_error_mgr_ptr;          { Error handler module }
+    mem : jpeg_memory_mgr_ptr;         { Memory manager module }
+    progress : jpeg_progress_mgr_ptr;  { Progress monitor, or NIL if none }
+    client_data : voidp;               { Available for use by application }
+    is_decompressor : boolean;      { so common code can tell which is which }
+    global_state : int;             { for checking call sequence validity }
+
+  { Destination for compressed data }
+    dest : jpeg_destination_mgr_ptr;
+
+  { Description of source image --- these fields must be filled in by
+    outer application before starting compression.  in_color_space must
+    be correct before you can even call jpeg_set_defaults(). }
+
+
+    image_width : JDIMENSION;         { input image width }
+    image_height : JDIMENSION;        { input image height }
+    input_components : int;           { # of color components in input image }
+    in_color_space : J_COLOR_SPACE;   { colorspace of input image }
+
+    input_gamma : double;             { image gamma of input image }
+
+    { Compression parameters --- these fields must be set before calling
+      jpeg_start_compress().  We recommend calling jpeg_set_defaults() to
+      initialize everything to reasonable defaults, then changing anything
+      the application specifically wants to change.  That way you won't get
+      burnt when new parameters are added.  Also note that there are several
+      helper routines to simplify changing parameters. }
+
+    data_precision : int;             { bits of precision in image data }
+
+    num_components : int;             { # of color components in JPEG image }
+    jpeg_color_space : J_COLOR_SPACE; { colorspace of JPEG image }
+
+    comp_info : jpeg_component_info_list_ptr;
+    { comp_info^[i] describes component that appears i'th in SOF }
+
+    quant_tbl_ptrs: Array[0..NUM_QUANT_TBLS-1] of JQUANT_TBL_PTR;
+    { ptrs to coefficient quantization tables, or NIL if not defined }
+
+    dc_huff_tbl_ptrs : Array[0..NUM_HUFF_TBLS-1] of JHUFF_TBL_PTR;
+    ac_huff_tbl_ptrs : Array[0..NUM_HUFF_TBLS-1] of JHUFF_TBL_PTR;
+    { ptrs to Huffman coding tables, or NIL if not defined }
+
+    arith_dc_L : Array[0..NUM_ARITH_TBLS-1] of UINT8; { L values for DC arith-coding tables }
+    arith_dc_U : Array[0..NUM_ARITH_TBLS-1] of UINT8; { U values for DC arith-coding tables }
+    arith_ac_K : Array[0..NUM_ARITH_TBLS-1] of UINT8; { Kx values for AC arith-coding tables }
+
+    num_scans : int;     { # of entries in scan_info array }
+    scan_info : jpeg_scan_info_ptr; { script for multi-scan file, or NIL }
+    { The default value of scan_info is NIL, which causes a single-scan
+      sequential JPEG file to be emitted.  To create a multi-scan file,
+      set num_scans and scan_info to point to an array of scan definitions. }
+
+    raw_data_in : boolean;        { TRUE=caller supplies downsampled data }
+    arith_code : boolean;         { TRUE=arithmetic coding, FALSE=Huffman }
+    optimize_coding : boolean;    { TRUE=optimize entropy encoding parms }
+    CCIR601_sampling : boolean;   { TRUE=first samples are cosited }
+    smoothing_factor : int;       { 1..100, or 0 for no input smoothing }
+    dct_method : J_DCT_METHOD;    { DCT algorithm selector }
+
+    { The restart interval can be specified in absolute MCUs by setting
+      restart_interval, or in MCU rows by setting restart_in_rows
+      (in which case the correct restart_interval will be figured
+      for each scan). }
+
+    restart_interval : uint;      { MCUs per restart, or 0 for no restart }
+    restart_in_rows : int;        { if > 0, MCU rows per restart interval }
+
+    { Parameters controlling emission of special markers. }
+
+    write_JFIF_header : boolean; { should a JFIF marker be written? }
+    JFIF_major_version : UINT8;  { What to write for the JFIF version number }
+    JFIF_minor_version : UINT8;
+    { These three values are not used by the JPEG code, merely copied }
+    { into the JFIF APP0 marker.  density_unit can be 0 for unknown, }
+    { 1 for dots/inch, or 2 for dots/cm.  Note that the pixel aspect }
+    { ratio is defined by X_density/Y_density even when density_unit=0. }
+    density_unit : UINT8;         { JFIF code for pixel size units }
+    X_density : UINT16;           { Horizontal pixel density }
+    Y_density : UINT16;           { Vertical pixel density }
+    write_Adobe_marker : boolean; { should an Adobe marker be written? }
+
+    { State variable: index of next scanline to be written to
+      jpeg_write_scanlines().  Application may use this to control its
+      processing loop, e.g., "while (next_scanline < image_height)". }
+
+    next_scanline : JDIMENSION;   { 0 .. image_height-1  }
+
+    { Remaining fields are known throughout compressor, but generally
+      should not be touched by a surrounding application. }
+
+    { These fields are computed during compression startup }
+    progressive_mode : boolean;   { TRUE if scan script uses progressive mode }
+    max_h_samp_factor : int;      { largest h_samp_factor }
+    max_v_samp_factor : int;      { largest v_samp_factor }
+
+    total_iMCU_rows : JDIMENSION; { # of iMCU rows to be input to coef ctlr }
+    { The coefficient controller receives data in units of MCU rows as defined
+      for fully interleaved scans (whether the JPEG file is interleaved or not).
+      There are v_samp_factor * DCTSIZE sample rows of each component in an
+      "iMCU" (interleaved MCU) row. }
+
+    { These fields are valid during any one scan.
+      They describe the components and MCUs actually appearing in the scan. }
+
+    comps_in_scan : int;          { # of JPEG components in this scan }
+    cur_comp_info : Array[0..MAX_COMPS_IN_SCAN-1] of jpeg_component_info_ptr;
+    { cur_comp_info[i]^ describes component that appears i'th in SOS }
+
+    MCUs_per_row : JDIMENSION;    { # of MCUs across the image }
+    MCU_rows_in_scan : JDIMENSION;{ # of MCU rows in the image }
+
+    blocks_in_MCU : int;          { # of DCT blocks per MCU }
+    MCU_membership : Array[0..C_MAX_BLOCKS_IN_MCU-1] of int;
+    { MCU_membership[i] is index in cur_comp_info of component owning }
+    { i'th block in an MCU }
+
+    Ss, Se, Ah, Al : int;         { progressive JPEG parameters for scan }
+
+    { Links to compression subobjects (methods and private variables of modules) }
+    master : jpeg_comp_master_ptr;
+    main : jpeg_c_main_controller_ptr;
+    prep : jpeg_c_prep_controller_ptr;
+    coef : jpeg_c_coef_controller_ptr;
+    marker : jpeg_marker_writer_ptr;
+    cconvert : jpeg_color_converter_ptr;
+    downsample : jpeg_downsampler_ptr;
+    fdct : jpeg_forward_dct_ptr;
+    entropy : jpeg_entropy_encoder_ptr;
+    script_space : jpeg_scan_info_ptr; { workspace for jpeg_simple_progression }
+    script_space_size : int;
+  end;
+
+
+{ Master record for a decompression instance }
+
+  coef_bits_field = Array[0..DCTSIZE2-1] of int;
+  coef_bits_ptr = ^coef_bits_field;
+  coef_bits_ptrfield =  Array[0..MAX_COMPS_IN_SCAN-1] of coef_bits_field;
+  coef_bits_ptrrow = ^coef_bits_ptrfield;
+
+  range_limit_table = array[-(MAXJSAMPLE+1)..4*(MAXJSAMPLE+1)
+                            + CENTERJSAMPLE -1] of JSAMPLE;
+  range_limit_table_ptr = ^range_limit_table;
+
+  jpeg_decompress_struct = record
+  { Fields shared with jpeg_compress_struct }
+    err : jpeg_error_mgr_ptr;    { Error handler module }
+    mem : jpeg_memory_mgr_ptr;        { Memory manager module }
+    progress : jpeg_progress_mgr_ptr; { Progress monitor, or NIL if none }
+    client_data : voidp;              { Available for use by application }
+    is_decompressor : boolean;     { so common code can tell which is which }
+    global_state : int;            { for checking call sequence validity }
+
+    { Source of compressed data }
+    src : jpeg_source_mgr_ptr;
+
+    { Basic description of image --- filled in by jpeg_read_header(). }
+    { Application may inspect these values to decide how to process image. }
+
+    image_width : JDIMENSION;      { nominal image width (from SOF marker) }
+    image_height : JDIMENSION;     { nominal image height }
+    num_components : int;          { # of color components in JPEG image }
+    jpeg_color_space : J_COLOR_SPACE; { colorspace of JPEG image }
+
+    { Decompression processing parameters --- these fields must be set before
+      calling jpeg_start_decompress().  Note that jpeg_read_header()
+      initializes them to default values. }
+
+    out_color_space : J_COLOR_SPACE; { colorspace for output }
+
+    scale_num, scale_denom : uint ;  { fraction by which to scale image }
+
+    output_gamma : double;           { image gamma wanted in output }
+
+    buffered_image : boolean;        { TRUE=multiple output passes }
+    raw_data_out : boolean;          { TRUE=downsampled data wanted }
+
+    dct_method : J_DCT_METHOD;       { IDCT algorithm selector }
+    do_fancy_upsampling : boolean;   { TRUE=apply fancy upsampling }
+    do_block_smoothing : boolean;    { TRUE=apply interblock smoothing }
+
+    quantize_colors : boolean;       { TRUE=colormapped output wanted }
+    { the following are ignored if not quantize_colors: }
+    dither_mode : J_DITHER_MODE;     { type of color dithering to use }
+    two_pass_quantize : boolean;     { TRUE=use two-pass color quantization }
+    desired_number_of_colors : int;  { max # colors to use in created colormap }
+    { these are significant only in buffered-image mode: }
+    enable_1pass_quant : boolean;    { enable future use of 1-pass quantizer }
+    enable_external_quant : boolean; { enable future use of external colormap }
+    enable_2pass_quant : boolean;    { enable future use of 2-pass quantizer }
+
+    { Description of actual output image that will be returned to application.
+      These fields are computed by jpeg_start_decompress().
+      You can also use jpeg_calc_output_dimensions() to determine these values
+      in advance of calling jpeg_start_decompress(). }
+
+    output_width : JDIMENSION;       { scaled image width }
+    output_height: JDIMENSION;       { scaled image height }
+    out_color_components : int;  { # of color components in out_color_space }
+    output_components : int;     { # of color components returned }
+    { output_components is 1 (a colormap index) when quantizing colors;
+      otherwise it equals out_color_components. }
+
+    rec_outbuf_height : int;     { min recommended height of scanline buffer }
+    { If the buffer passed to jpeg_read_scanlines() is less than this many
+      rows high, space and time will be wasted due to unnecessary data
+      copying. Usually rec_outbuf_height will be 1 or 2, at most 4. }
+
+    { When quantizing colors, the output colormap is described by these
+      fields. The application can supply a colormap by setting colormap
+      non-NIL before calling jpeg_start_decompress; otherwise a colormap
+      is created during jpeg_start_decompress or jpeg_start_output. The map
+      has out_color_components rows and actual_number_of_colors columns. }
+
+    actual_number_of_colors : int;      { number of entries in use }
+    colormap : JSAMPARRAY;              { The color map as a 2-D pixel array }
+
+    { State variables: these variables indicate the progress of decompression.
+      The application may examine these but must not modify them. }
+
+    { Row index of next scanline to be read from jpeg_read_scanlines().
+      Application may use this to control its processing loop, e.g.,
+      "while (output_scanline < output_height)". }
+
+    output_scanline : JDIMENSION; { 0 .. output_height-1  }
+
+    { Current input scan number and number of iMCU rows completed in scan.
+      These indicate the progress of the decompressor input side. }
+
+    input_scan_number : int;      { Number of SOS markers seen so far }
+    input_iMCU_row : JDIMENSION;  { Number of iMCU rows completed }
+
+    { The "output scan number" is the notional scan being displayed by the
+      output side.  The decompressor will not allow output scan/row number
+      to get ahead of input scan/row, but it can fall arbitrarily far behind.}
+
+    output_scan_number : int;     { Nominal scan number being displayed }
+    output_iMCU_row : int;        { Number of iMCU rows read }
+
+    { Current progression status.  coef_bits[c][i] indicates the precision
+      with which component c's DCT coefficient i (in zigzag order) is known.
+      It is -1 when no data has yet been received, otherwise it is the point
+      transform (shift) value for the most recent scan of the coefficient
+      (thus, 0 at completion of the progression).
+      This pointer is NIL when reading a non-progressive file. }
+
+    coef_bits : coef_bits_ptrrow;
+                 { -1 or current Al value for each coef }
+
+    { Internal JPEG parameters --- the application usually need not look at
+      these fields.  Note that the decompressor output side may not use
+      any parameters that can change between scans. }
+
+    { Quantization and Huffman tables are carried forward across input
+      datastreams when processing abbreviated JPEG datastreams. }
+
+    quant_tbl_ptrs : Array[0..NUM_QUANT_TBLS-1] of JQUANT_TBL_PTR;
+    { ptrs to coefficient quantization tables, or NIL if not defined }
+
+    dc_huff_tbl_ptrs : Array[0..NUM_HUFF_TBLS-1] of JHUFF_TBL_PTR;
+    ac_huff_tbl_ptrs : Array[0..NUM_HUFF_TBLS-1] of JHUFF_TBL_PTR;
+    { ptrs to Huffman coding tables, or NIL if not defined }
+
+    { These parameters are never carried across datastreams, since they
+      are given in SOF/SOS markers or defined to be reset by SOI. }
+
+    data_precision : int;          { bits of precision in image data }
+
+    comp_info : jpeg_component_info_list_ptr;
+    { comp_info^[i] describes component that appears i'th in SOF }
+
+    progressive_mode : boolean;    { TRUE if SOFn specifies progressive mode }
+    arith_code : boolean;          { TRUE=arithmetic coding, FALSE=Huffman }
+
+    arith_dc_L : Array[0..NUM_ARITH_TBLS-1] of UINT8; { L values for DC arith-coding tables }
+    arith_dc_U : Array[0..NUM_ARITH_TBLS-1] of UINT8; { U values for DC arith-coding tables }
+    arith_ac_K : Array[0..NUM_ARITH_TBLS-1] of UINT8; { Kx values for AC arith-coding tables }
+
+    restart_interval : uint; { MCUs per restart interval, or 0 for no restart }
+
+    { These fields record data obtained from optional markers recognized by
+      the JPEG library. }
+
+    saw_JFIF_marker : boolean;  { TRUE iff a JFIF APP0 marker was found }
+    { Data copied from JFIF marker; only valid if saw_JFIF_marker is TRUE: }
+    JFIF_major_version : UINT8; { JFIF version number }
+    JFIF_minor_version : UINT8;
+    density_unit : UINT8;       { JFIF code for pixel size units }
+    X_density : UINT16;         { Horizontal pixel density }
+    Y_density : UINT16;         { Vertical pixel density }
+    saw_Adobe_marker : boolean; { TRUE iff an Adobe APP14 marker was found }
+    Adobe_transform : UINT8;    { Color transform code from Adobe marker }
+
+    CCIR601_sampling : boolean; { TRUE=first samples are cosited }
+
+    { Aside from the specific data retained from APPn markers known to the
+      library, the uninterpreted contents of any or all APPn and COM markers
+      can be saved in a list for examination by the application. }
+
+    marker_list : jpeg_saved_marker_ptr; { Head of list of saved markers }
+
+    { Remaining fields are known throughout decompressor, but generally
+      should not be touched by a surrounding application. }
+
+
+    { These fields are computed during decompression startup }
+
+    max_h_samp_factor : int;    { largest h_samp_factor }
+    max_v_samp_factor : int;    { largest v_samp_factor }
+
+    min_DCT_scaled_size : int;  { smallest DCT_scaled_size of any component }
+
+    total_iMCU_rows : JDIMENSION; { # of iMCU rows in image }
+    { The coefficient controller's input and output progress is measured in
+      units of "iMCU" (interleaved MCU) rows.  These are the same as MCU rows
+      in fully interleaved JPEG scans, but are used whether the scan is
+      interleaved or not.  We define an iMCU row as v_samp_factor DCT block
+      rows of each component.  Therefore, the IDCT output contains
+      v_samp_factor*DCT_scaled_size sample rows of a component per iMCU row.}
+
+    sample_range_limit : range_limit_table_ptr; { table for fast range-limiting }
+
+
+    { These fields are valid during any one scan.
+      They describe the components and MCUs actually appearing in the scan.
+      Note that the decompressor output side must not use these fields. }
+
+    comps_in_scan : int;           { # of JPEG components in this scan }
+    cur_comp_info : Array[0..MAX_COMPS_IN_SCAN-1] of jpeg_component_info_ptr;
+    { cur_comp_info[i]^ describes component that appears i'th in SOS }
+
+    MCUs_per_row : JDIMENSION;     { # of MCUs across the image }
+    MCU_rows_in_scan : JDIMENSION; { # of MCU rows in the image }
+
+    blocks_in_MCU : JDIMENSION;    { # of DCT blocks per MCU }
+    MCU_membership : Array[0..D_MAX_BLOCKS_IN_MCU-1] of int;
+    { MCU_membership[i] is index in cur_comp_info of component owning }
+    { i'th block in an MCU }
+
+    Ss, Se, Ah, Al : int;          { progressive JPEG parameters for scan }
+
+    { This field is shared between entropy decoder and marker parser.
+      It is either zero or the code of a JPEG marker that has been
+      read from the data source, but has not yet been processed. }
+
+    unread_marker : int;
+
+    { Links to decompression subobjects
+      (methods, private variables of modules) }
+
+    master : jpeg_decomp_master_ptr;
+    main : jpeg_d_main_controller_ptr;
+    coef : jpeg_d_coef_controller_ptr;
+    post : jpeg_d_post_controller_ptr;
+    inputctl : jpeg_input_controller_ptr;
+    marker : jpeg_marker_reader_ptr;
+    entropy : jpeg_entropy_decoder_ptr;
+    idct : jpeg_inverse_dct_ptr;
+    upsample : jpeg_upsampler_ptr;
+    cconvert : jpeg_color_deconverter_ptr;
+    cquantize : jpeg_color_quantizer_ptr;
+  end;
+
+{ Decompression startup: read start of JPEG datastream to see what's there
+   function jpeg_read_header (cinfo : j_decompress_ptr;
+                              require_image : boolean) : int;
+  Return value is one of: }
+const
+  JPEG_SUSPENDED              = 0; { Suspended due to lack of input data }
+  JPEG_HEADER_OK              = 1; { Found valid image datastream }
+  JPEG_HEADER_TABLES_ONLY     = 2; { Found valid table-specs-only datastream }
+{ If you pass require_image = TRUE (normal case), you need not check for
+  a TABLES_ONLY return code; an abbreviated file will cause an error exit.
+  JPEG_SUSPENDED is only possible if you use a data source module that can
+  give a suspension return (the stdio source module doesn't). }
+
+
+{ function jpeg_consume_input (cinfo : j_decompress_ptr) : int;
+  Return value is one of: }
+
+  JPEG_REACHED_SOS            = 1; { Reached start of new scan }
+  JPEG_REACHED_EOI            = 2; { Reached end of image }
+  JPEG_ROW_COMPLETED          = 3; { Completed one iMCU row }
+  JPEG_SCAN_COMPLETED         = 4; { Completed last iMCU row of a scan }
+
+
+
+
+implementation
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjquant1.pas b/src/lib/vampimg/JpegLib/imjquant1.pas

new file mode 100644 (file)

index 0000000..c5df360
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjquant1.pas
@@ -0,0 +1,1009 @@
+unit imjquant1;
+
+{ This file contains 1-pass color quantization (color mapping) routines.
+  These routines provide mapping to a fixed color map using equally spaced
+  color values.  Optional Floyd-Steinberg or ordered dithering is available. }
+
+{ Original: jquant1.c; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjpeglib;
+
+{GLOBAL}
+procedure jinit_1pass_quantizer (cinfo : j_decompress_ptr);
+
+implementation
+
+uses
+  imjmorecfg,
+  imjdeferr,
+  imjerror,
+  imjutils;
+
+{ The main purpose of 1-pass quantization is to provide a fast, if not very
+  high quality, colormapped output capability.  A 2-pass quantizer usually
+  gives better visual quality; however, for quantized grayscale output this
+  quantizer is perfectly adequate.  Dithering is highly recommended with this
+  quantizer, though you can turn it off if you really want to.
+
+  In 1-pass quantization the colormap must be chosen in advance of seeing the
+  image.  We use a map consisting of all combinations of Ncolors[i] color
+  values for the i'th component.  The Ncolors[] values are chosen so that
+  their product, the total number of colors, is no more than that requested.
+  (In most cases, the product will be somewhat less.)
+
+  Since the colormap is orthogonal, the representative value for each color
+  component can be determined without considering the other components;
+  then these indexes can be combined into a colormap index by a standard
+  N-dimensional-array-subscript calculation.  Most of the arithmetic involved
+  can be precalculated and stored in the lookup table colorindex[].
+  colorindex[i][j] maps pixel value j in component i to the nearest
+  representative value (grid plane) for that component; this index is
+  multiplied by the array stride for component i, so that the
+  index of the colormap entry closest to a given pixel value is just
+     sum( colorindex[component-number][pixel-component-value] )
+  Aside from being fast, this scheme allows for variable spacing between
+  representative values with no additional lookup cost.
+
+  If gamma correction has been applied in color conversion, it might be wise
+  to adjust the color grid spacing so that the representative colors are
+  equidistant in linear space.  At this writing, gamma correction is not
+  implemented by jdcolor, so nothing is done here. }
+
+
+{ Declarations for ordered dithering.
+
+  We use a standard 16x16 ordered dither array.  The basic concept of ordered
+  dithering is described in many references, for instance Dale Schumacher's
+  chapter II.2 of Graphics Gems II (James Arvo, ed. Academic Press, 1991).
+  In place of Schumacher's comparisons against a "threshold" value, we add a
+  "dither" value to the input pixel and then round the result to the nearest
+  output value.  The dither value is equivalent to (0.5 - threshold) times
+  the distance between output values.  For ordered dithering, we assume that
+  the output colors are equally spaced; if not, results will probably be
+  worse, since the dither may be too much or too little at a given point.
+
+  The normal calculation would be to form pixel value + dither, range-limit
+  this to 0..MAXJSAMPLE, and then index into the colorindex table as usual.
+  We can skip the separate range-limiting step by extending the colorindex
+  table in both directions. }
+
+
+const
+  ODITHER_SIZE  = 16;   { dimension of dither matrix }
+{ NB: if ODITHER_SIZE is not a power of 2, ODITHER_MASK uses will break }
+  ODITHER_CELLS = (ODITHER_SIZE*ODITHER_SIZE);  { # cells in matrix }
+  ODITHER_MASK = (ODITHER_SIZE-1); { mask for wrapping around counters }
+
+type
+  ODITHER_vector = Array[0..ODITHER_SIZE-1] of int;
+  ODITHER_MATRIX = Array[0..ODITHER_SIZE-1] of ODITHER_vector;
+  {ODITHER_MATRIX_PTR = ^array[0..ODITHER_SIZE-1] of int;}
+  ODITHER_MATRIX_PTR = ^ODITHER_MATRIX;
+
+const
+  base_dither_matrix : Array[0..ODITHER_SIZE-1,0..ODITHER_SIZE-1] of UINT8
+  = (
+  { Bayer's order-4 dither array.  Generated by the code given in
+    Stephen Hawley's article "Ordered Dithering" in Graphics Gems I.
+    The values in this array must range from 0 to ODITHER_CELLS-1. }
+
+  (   0,192, 48,240, 12,204, 60,252,  3,195, 51,243, 15,207, 63,255 ),
+  ( 128, 64,176,112,140, 76,188,124,131, 67,179,115,143, 79,191,127 ),
+  (  32,224, 16,208, 44,236, 28,220, 35,227, 19,211, 47,239, 31,223 ),
+  ( 160, 96,144, 80,172,108,156, 92,163, 99,147, 83,175,111,159, 95 ),
+  (   8,200, 56,248,  4,196, 52,244, 11,203, 59,251,  7,199, 55,247 ),
+  ( 136, 72,184,120,132, 68,180,116,139, 75,187,123,135, 71,183,119 ),
+  (  40,232, 24,216, 36,228, 20,212, 43,235, 27,219, 39,231, 23,215 ),
+  ( 168,104,152, 88,164,100,148, 84,171,107,155, 91,167,103,151, 87 ),
+  (   2,194, 50,242, 14,206, 62,254,  1,193, 49,241, 13,205, 61,253 ),
+  ( 130, 66,178,114,142, 78,190,126,129, 65,177,113,141, 77,189,125 ),
+  (  34,226, 18,210, 46,238, 30,222, 33,225, 17,209, 45,237, 29,221 ),
+  ( 162, 98,146, 82,174,110,158, 94,161, 97,145, 81,173,109,157, 93 ),
+  (  10,202, 58,250,  6,198, 54,246,  9,201, 57,249,  5,197, 53,245 ),
+  ( 138, 74,186,122,134, 70,182,118,137, 73,185,121,133, 69,181,117 ),
+  (  42,234, 26,218, 38,230, 22,214, 41,233, 25,217, 37,229, 21,213 ),
+  ( 170,106,154, 90,166,102,150, 86,169,105,153, 89,165,101,149, 85 )
+  );
+
+
+{ Declarations for Floyd-Steinberg dithering.
+
+  Errors are accumulated into the array fserrors[], at a resolution of
+  1/16th of a pixel count.  The error at a given pixel is propagated
+  to its not-yet-processed neighbors using the standard F-S fractions,
+    ... (here)  7/16
+    3/16  5/16  1/16
+  We work left-to-right on even rows, right-to-left on odd rows.
+
+  We can get away with a single array (holding one row's worth of errors)
+  by using it to store the current row's errors at pixel columns not yet
+  processed, but the next row's errors at columns already processed.  We
+  need only a few extra variables to hold the errors immediately around the
+  current column.  (If we are lucky, those variables are in registers, but
+  even if not, they're probably cheaper to access than array elements are.)
+
+  The fserrors[] array is indexed [component#][position].
+  We provide (#columns + 2) entries per component; the extra entry at each
+  end saves us from special-casing the first and last pixels.
+
+  Note: on a wide image, we might not have enough room in a PC's near data
+  segment to hold the error array; so it is allocated with alloc_large. }
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+type
+  FSERROR = INT16;              { 16 bits should be enough }
+  LOCFSERROR = int;             { use 'int' for calculation temps }
+{$else}
+type
+  FSERROR = INT32;              { may need more than 16 bits }
+  LOCFSERROR = INT32;           { be sure calculation temps are big enough }
+{$endif}
+
+type
+  jFSError = 0..(MaxInt div SIZEOF(FSERROR))-1;
+  FS_ERROR_FIELD = array[jFSError] of FSERROR;
+  FS_ERROR_FIELD_PTR = ^FS_ERROR_FIELD;{far}
+                                { pointer to error array (in FAR storage!) }
+  FSERRORPTR = ^FSERROR;
+
+
+{ Private subobject }
+
+const
+  MAX_Q_COMPS = 4;              { max components I can handle }
+
+type
+  my_cquantize_ptr = ^my_cquantizer;
+  my_cquantizer = record
+    pub : jpeg_color_quantizer; { public fields }
+
+    { Initially allocated colormap is saved here }
+    sv_colormap : JSAMPARRAY;   { The color map as a 2-D pixel array }
+    sv_actual : int;            { number of entries in use }
+
+    colorindex : JSAMPARRAY;    { Precomputed mapping for speed }
+    { colorindex[i][j] = index of color closest to pixel value j in component i,
+      premultiplied as described above.  Since colormap indexes must fit into
+      JSAMPLEs, the entries of this array will too. }
+
+    is_padded : boolean;        { is the colorindex padded for odither? }
+
+    Ncolors : array[0..MAX_Q_COMPS-1] of int;
+                                { # of values alloced to each component }
+
+    { Variables for ordered dithering }
+    row_index : int;            { cur row's vertical index in dither matrix }
+    odither : array[0..MAX_Q_COMPS-1] of ODITHER_MATRIX_PTR;
+                                { one dither array per component }
+    { Variables for Floyd-Steinberg dithering }
+    fserrors : array[0..MAX_Q_COMPS-1] of FS_ERROR_FIELD_PTR;
+                                { accumulated errors }
+    on_odd_row : boolean;       { flag to remember which row we are on }
+  end;
+
+
+{ Policy-making subroutines for create_colormap and create_colorindex.
+  These routines determine the colormap to be used.  The rest of the module
+  only assumes that the colormap is orthogonal.
+
+   * select_ncolors decides how to divvy up the available colors
+     among the components.
+   * output_value defines the set of representative values for a component.
+   * largest_input_value defines the mapping from input values to
+     representative values for a component.
+  Note that the latter two routines may impose different policies for
+  different components, though this is not currently done. }
+
+
+
+{LOCAL}
+function select_ncolors (cinfo : j_decompress_ptr;
+                         var Ncolors : array of int) : int;
+{ Determine allocation of desired colors to components, }
+{ and fill in Ncolors[] array to indicate choice. }
+{ Return value is total number of colors (product of Ncolors[] values). }
+var
+  nc : int;
+  max_colors : int;
+  total_colors, iroot, i, j : int;
+  changed : boolean;
+  temp : long;
+const
+  RGB_order:array[0..2] of int = (RGB_GREEN, RGB_RED, RGB_BLUE);
+begin
+  nc := cinfo^.out_color_components; { number of color components }
+  max_colors := cinfo^.desired_number_of_colors;
+
+  { We can allocate at least the nc'th root of max_colors per component. }
+  { Compute floor(nc'th root of max_colors). }
+  iroot := 1;
+  repeat
+    Inc(iroot);
+    temp := iroot;    { set temp = iroot ** nc }
+    for i := 1 to pred(nc) do
+      temp := temp * iroot;
+  until (temp > long(max_colors)); { repeat till iroot exceeds root }
+  Dec(iroot);                   { now iroot = floor(root) }
+
+  { Must have at least 2 color values per component }
+  if (iroot < 2) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_QUANT_FEW_COLORS, int(temp));
+
+  { Initialize to iroot color values for each component }
+  total_colors := 1;
+  for i := 0 to pred(nc) do
+  begin
+    Ncolors[i] := iroot;
+    total_colors := total_colors * iroot;
+  end;
+
+  { We may be able to increment the count for one or more components without
+    exceeding max_colors, though we know not all can be incremented.
+    Sometimes, the first component can be incremented more than once!
+    (Example: for 16 colors, we start at 2*2*2, go to 3*2*2, then 4*2*2.)
+    In RGB colorspace, try to increment G first, then R, then B. }
+
+  repeat
+    changed := FALSE;
+    for i := 0 to pred(nc) do
+    begin
+      if cinfo^.out_color_space = JCS_RGB then
+        j := RGB_order[i]
+      else
+        j := i;
+      { calculate new total_colors if Ncolors[j] is incremented }
+      temp := total_colors div Ncolors[j];
+      temp := temp * (Ncolors[j]+1);   { done in long arith to avoid oflo }
+      if (temp > long(max_colors)) then
+  break;                  { won't fit, done with this pass }
+      Inc(Ncolors[j]);    { OK, apply the increment }
+      total_colors := int(temp);
+      changed := TRUE;
+    end;
+  until not changed;
+
+  select_ncolors := total_colors;
+end;
+
+
+{LOCAL}
+function output_value (cinfo : j_decompress_ptr;
+                       ci : int; j : int; maxj : int) : int;
+{ Return j'th output value, where j will range from 0 to maxj }
+{ The output values must fall in 0..MAXJSAMPLE in increasing order }
+begin
+  { We always provide values 0 and MAXJSAMPLE for each component;
+    any additional values are equally spaced between these limits.
+    (Forcing the upper and lower values to the limits ensures that
+    dithering can't produce a color outside the selected gamut.) }
+
+  output_value := int (( INT32(j) * MAXJSAMPLE + maxj div 2) div maxj);
+end;
+
+
+{LOCAL}
+function largest_input_value (cinfo : j_decompress_ptr;
+                              ci : int; j : int; maxj : int) : int;
+{ Return largest input value that should map to j'th output value }
+{ Must have largest(j=0) >= 0, and largest(j=maxj) >= MAXJSAMPLE }
+begin
+  { Breakpoints are halfway between values returned by output_value }
+  largest_input_value := int (( INT32(2*j + 1) * MAXJSAMPLE +
+                                 maxj) div (2*maxj));
+end;
+
+
+{ Create the colormap. }
+
+{LOCAL}
+procedure create_colormap (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+  colormap : JSAMPARRAY;        { Created colormap }
+
+  total_colors : int;           { Number of distinct output colors }
+  i,j,k, nci, blksize, blkdist, ptr, val : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+
+  { Select number of colors for each component }
+  total_colors := select_ncolors(cinfo, cquantize^.Ncolors);
+
+  { Report selected color counts }
+  {$IFDEF DEBUG}
+  if (cinfo^.out_color_components = 3) then
+    TRACEMS4(j_common_ptr(cinfo), 1, JTRC_QUANT_3_NCOLORS,
+       total_colors, cquantize^.Ncolors[0],
+       cquantize^.Ncolors[1], cquantize^.Ncolors[2])
+  else
+    TRACEMS1(j_common_ptr(cinfo), 1, JTRC_QUANT_NCOLORS, total_colors);
+  {$ENDIF}
+
+  { Allocate and fill in the colormap. }
+  { The colors are ordered in the map in standard row-major order, }
+  { i.e. rightmost (highest-indexed) color changes most rapidly. }
+
+  colormap := cinfo^.mem^.alloc_sarray(
+     j_common_ptr(cinfo), JPOOL_IMAGE,
+     JDIMENSION(total_colors), JDIMENSION(cinfo^.out_color_components));
+
+  { blksize is number of adjacent repeated entries for a component }
+  { blkdist is distance between groups of identical entries for a component }
+  blkdist := total_colors;
+
+  for i := 0 to pred(cinfo^.out_color_components) do
+  begin
+    { fill in colormap entries for i'th color component }
+    nci := cquantize^.Ncolors[i]; { # of distinct values for this color }
+    blksize := blkdist div nci;
+    for j := 0 to pred(nci) do
+    begin
+      { Compute j'th output value (out of nci) for component }
+      val := output_value(cinfo, i, j, nci-1);
+      { Fill in all colormap entries that have this value of this component }
+      ptr := j * blksize;
+      while (ptr < total_colors) do
+      begin
+  { fill in blksize entries beginning at ptr }
+  for k := 0 to pred(blksize) do
+          colormap^[i]^[ptr+k] := JSAMPLE(val);
+
+        Inc(ptr, blkdist);
+      end;
+    end;
+    blkdist := blksize;   { blksize of this color is blkdist of next }
+  end;
+
+  { Save the colormap in private storage,
+    where it will survive color quantization mode changes. }
+
+  cquantize^.sv_colormap := colormap;
+  cquantize^.sv_actual := total_colors;
+end;
+
+{ Create the color index table. }
+
+{LOCAL}
+procedure create_colorindex (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+  indexptr,
+  help_indexptr : JSAMPROW;  { for negative offsets }
+  i,j,k, nci, blksize, val, pad : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  { For ordered dither, we pad the color index tables by MAXJSAMPLE in
+    each direction (input index values can be -MAXJSAMPLE .. 2*MAXJSAMPLE).
+    This is not necessary in the other dithering modes.  However, we
+    flag whether it was done in case user changes dithering mode. }
+
+  if (cinfo^.dither_mode = JDITHER_ORDERED) then
+  begin
+    pad := MAXJSAMPLE*2;
+    cquantize^.is_padded := TRUE;
+  end
+  else
+  begin
+    pad := 0;
+    cquantize^.is_padded := FALSE;
+  end;
+
+  cquantize^.colorindex := cinfo^.mem^.alloc_sarray
+    (j_common_ptr(cinfo), JPOOL_IMAGE,
+     JDIMENSION(MAXJSAMPLE+1 + pad),
+     JDIMENSION(cinfo^.out_color_components));
+
+  { blksize is number of adjacent repeated entries for a component }
+  blksize := cquantize^.sv_actual;
+
+  for i := 0 to pred(cinfo^.out_color_components) do
+  begin
+    { fill in colorindex entries for i'th color component }
+    nci := cquantize^.Ncolors[i]; { # of distinct values for this color }
+    blksize := blksize div nci;
+
+    { adjust colorindex pointers to provide padding at negative indexes. }
+    if (pad <> 0) then
+      Inc(JSAMPLE_PTR(cquantize^.colorindex^[i]), MAXJSAMPLE);
+
+    { in loop, val = index of current output value, }
+    { and k = largest j that maps to current val }
+    indexptr := cquantize^.colorindex^[i];
+    val := 0;
+    k := largest_input_value(cinfo, i, 0, nci-1);
+    for j := 0 to MAXJSAMPLE do
+    begin
+      while (j > k) do          { advance val if past boundary }
+      begin
+        Inc(val);
+  k := largest_input_value(cinfo, i, val, nci-1);
+      end;
+      { premultiply so that no multiplication needed in main processing }
+      indexptr^[j] := JSAMPLE (val * blksize);
+    end;
+    { Pad at both ends if necessary }
+    if (pad <> 0) then
+    begin
+      help_indexptr := indexptr;
+      { adjust the help pointer to avoid negative offsets }
+      Dec(JSAMPLE_PTR(help_indexptr), MAXJSAMPLE);
+
+      for j := 1 to MAXJSAMPLE do
+      begin
+        {indexptr^[-j] := indexptr^[0];}
+        help_indexptr^[MAXJSAMPLE-j] := indexptr^[0];
+        indexptr^[MAXJSAMPLE+j] := indexptr^[MAXJSAMPLE];
+      end;
+    end;
+  end;
+end;
+
+
+{ Create an ordered-dither array for a component having ncolors
+  distinct output values. }
+
+{LOCAL}
+function make_odither_array (cinfo : j_decompress_ptr;
+                             ncolors : int) : ODITHER_MATRIX_PTR;
+var
+  odither : ODITHER_MATRIX_PTR;
+  j, k : int;
+  num, den : INT32;
+begin
+  odither := ODITHER_MATRIX_PTR (
+        cinfo^.mem^.alloc_small(j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(ODITHER_MATRIX)));
+  { The inter-value distance for this color is MAXJSAMPLE/(ncolors-1).
+    Hence the dither value for the matrix cell with fill order f
+    (f=0..N-1) should be (N-1-2*f)/(2*N) * MAXJSAMPLE/(ncolors-1).
+    On 16-bit-int machine, be careful to avoid overflow. }
+
+  den := 2 * ODITHER_CELLS * ( INT32(ncolors - 1));
+  for j := 0 to pred(ODITHER_SIZE) do
+  begin
+    for k := 0 to pred(ODITHER_SIZE) do
+    begin
+      num := ( INT32(ODITHER_CELLS-1 - 2*( int(base_dither_matrix[j][k]))))
+      * MAXJSAMPLE;
+      { Ensure round towards zero despite C's lack of consistency
+        about rounding negative values in integer division... }
+
+      if num<0 then
+        odither^[j][k] := int (-((-num) div den))
+      else
+        odither^[j][k] := int (num div den);
+    end;
+  end;
+  make_odither_array := odither;
+end;
+
+
+{ Create the ordered-dither tables.
+  Components having the same number of representative colors may
+  share a dither table. }
+
+{LOCAL}
+procedure create_odither_tables (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+  odither : ODITHER_MATRIX_PTR;
+  i, j, nci : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+
+  for i := 0 to pred(cinfo^.out_color_components) do
+  begin
+    nci := cquantize^.Ncolors[i]; { # of distinct values for this color }
+    odither := NIL;     { search for matching prior component }
+    for j := 0 to pred(i) do
+    begin
+      if (nci = cquantize^.Ncolors[j]) then
+      begin
+  odither := cquantize^.odither[j];
+  break;
+      end;
+    end;
+    if (odither = NIL)  then { need a new table? }
+      odither := make_odither_array(cinfo, nci);
+    cquantize^.odither[i] := odither;
+  end;
+end;
+
+
+{ Map some rows of pixels to the output colormapped representation. }
+
+{METHODDEF}
+procedure color_quantize (cinfo : j_decompress_ptr;
+                          input_buf : JSAMPARRAY;
+              output_buf : JSAMPARRAY;
+                          num_rows : int);
+{ General case, no dithering }
+var
+  cquantize : my_cquantize_ptr;
+  colorindex : JSAMPARRAY;
+  pixcode, ci : int; {register}
+  ptrin, ptrout : JSAMPLE_PTR; {register}
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+  nc : int; {register}
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  colorindex := cquantize^.colorindex;
+  width := cinfo^.output_width;
+  nc := cinfo^.out_color_components;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    ptrin := JSAMPLE_PTR(input_buf^[row]);
+    ptrout := JSAMPLE_PTR(output_buf^[row]);
+    for col := pred(width) downto 0 do
+    begin
+      pixcode := 0;
+      for ci := 0 to pred(nc) do
+      begin
+  Inc(pixcode, GETJSAMPLE(colorindex^[ci]^[GETJSAMPLE(ptrin^)]) );
+        Inc(ptrin);
+      end;
+      ptrout^ := JSAMPLE (pixcode);
+      Inc(ptrout);
+    end;
+  end;
+end;
+
+
+{METHODDEF}
+procedure color_quantize3 (cinfo : j_decompress_ptr;
+                           input_buf : JSAMPARRAY;
+               output_buf : JSAMPARRAY;
+                           num_rows : int);
+{ Fast path for out_color_components=3, no dithering }
+var
+  cquantize : my_cquantize_ptr;
+  pixcode : int; {register}
+  ptrin, ptrout : JSAMPLE_PTR; {register}
+  colorindex0 : JSAMPROW;
+  colorindex1 : JSAMPROW;
+  colorindex2 : JSAMPROW;
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  colorindex0 := (cquantize^.colorindex)^[0];
+  colorindex1 := (cquantize^.colorindex)^[1];
+  colorindex2 := (cquantize^.colorindex)^[2];
+  width := cinfo^.output_width;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    ptrin := JSAMPLE_PTR(input_buf^[row]);
+    ptrout := JSAMPLE_PTR(output_buf^[row]);
+    for col := pred(width) downto 0 do
+    begin
+      pixcode  := GETJSAMPLE((colorindex0)^[GETJSAMPLE(ptrin^)]);
+      Inc(ptrin);
+      Inc( pixcode, GETJSAMPLE((colorindex1)^[GETJSAMPLE(ptrin^)]) );
+      Inc(ptrin);
+      Inc( pixcode, GETJSAMPLE((colorindex2)^[GETJSAMPLE(ptrin^)]) );
+      Inc(ptrin);
+      ptrout^ := JSAMPLE (pixcode);
+      Inc(ptrout);
+    end;
+  end;
+end;
+
+
+{METHODDEF}
+procedure quantize_ord_dither (cinfo : j_decompress_ptr;
+                               input_buf :  JSAMPARRAY;
+                   output_buf : JSAMPARRAY;
+                               num_rows : int);
+{ General case, with ordered dithering }
+var
+  cquantize : my_cquantize_ptr;
+  input_ptr,                {register}
+  output_ptr : JSAMPLE_PTR; {register}
+  colorindex_ci : JSAMPROW;
+  dither : ^ODITHER_vector;     { points to active row of dither matrix }
+  row_index, col_index : int;   { current indexes into dither matrix }
+  nc : int;
+  ci : int;
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+var
+  pad_offset : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  nc := cinfo^.out_color_components;
+  width := cinfo^.output_width;
+
+  { Nomssi: work around negative offset }
+  if my_cquantize_ptr (cinfo^.cquantize)^.is_padded then
+    pad_offset := MAXJSAMPLE
+  else
+    pad_offset := 0;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    { Initialize output values to 0 so can process components separately }
+    jzero_far( {far} pointer(output_buf^[row]),
+        size_t(width * SIZEOF(JSAMPLE)));
+    row_index := cquantize^.row_index;
+    for ci := 0 to pred(nc) do
+    begin
+      input_ptr := JSAMPLE_PTR(@ input_buf^[row]^[ci]);
+      output_ptr := JSAMPLE_PTR(output_buf^[row]);
+      colorindex_ci := cquantize^.colorindex^[ci];
+      { Nomssi }
+      Dec(JSAMPLE_PTR(colorindex_ci), pad_offset);
+
+      dither := @(cquantize^.odither[ci]^[row_index]);
+      col_index := 0;
+
+      for col := pred(width) downto 0 do
+      begin
+  { Form pixel value + dither, range-limit to 0..MAXJSAMPLE,
+    select output value, accumulate into output code for this pixel.
+    Range-limiting need not be done explicitly, as we have extended
+    the colorindex table to produce the right answers for out-of-range
+    inputs.  The maximum dither is +- MAXJSAMPLE; this sets the
+    required amount of padding. }
+
+  Inc(output_ptr^,
+            colorindex_ci^[GETJSAMPLE(input_ptr^)+ pad_offset +
+                                         dither^[col_index]]);
+        Inc(output_ptr);
+  Inc(input_ptr, nc);
+  col_index := (col_index + 1) and ODITHER_MASK;
+      end;
+    end;
+    { Advance row index for next row }
+    row_index := (row_index + 1) and ODITHER_MASK;
+    cquantize^.row_index := row_index;
+  end;
+end;
+
+{METHODDEF}
+procedure quantize3_ord_dither (cinfo : j_decompress_ptr;
+                                input_buf : JSAMPARRAY;
+                    output_buf : JSAMPARRAY;
+                                num_rows : int);
+{ Fast path for out_color_components=3, with ordered dithering }
+var
+  cquantize : my_cquantize_ptr;
+  pixcode : int; {register}
+  input_ptr : JSAMPLE_PTR; {register}
+  output_ptr : JSAMPLE_PTR; {register}
+  colorindex0 : JSAMPROW;
+  colorindex1 : JSAMPROW;
+  colorindex2 : JSAMPROW;
+  dither0 : ^ODITHER_vector;    { points to active row of dither matrix }
+  dither1 : ^ODITHER_vector;
+  dither2 : ^ODITHER_vector;
+  row_index, col_index : int;   { current indexes into dither matrix }
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+var
+  pad_offset : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  colorindex0 := (cquantize^.colorindex)^[0];
+  colorindex1 := (cquantize^.colorindex)^[1];
+  colorindex2 := (cquantize^.colorindex)^[2];
+  width := cinfo^.output_width;
+
+  { Nomssi: work around negative offset }
+  if my_cquantize_ptr (cinfo^.cquantize)^.is_padded then
+    pad_offset := MAXJSAMPLE
+  else
+    pad_offset := 0;
+
+  Dec(JSAMPLE_PTR(colorindex0), pad_offset);
+  Dec(JSAMPLE_PTR(colorindex1), pad_offset);
+  Dec(JSAMPLE_PTR(colorindex2), pad_offset);
+
+  for row := 0 to pred(num_rows) do
+  begin
+    row_index := cquantize^.row_index;
+    input_ptr := JSAMPLE_PTR(input_buf^[row]);
+    output_ptr := JSAMPLE_PTR(output_buf^[row]);
+    dither0 := @(cquantize^.odither[0]^[row_index]);
+    dither1 := @(cquantize^.odither[1]^[row_index]);
+    dither2 := @(cquantize^.odither[2]^[row_index]);
+    col_index := 0;
+
+
+    for col := pred(width) downto 0 do
+    begin
+      pixcode := GETJSAMPLE(colorindex0^[GETJSAMPLE(input_ptr^) + pad_offset
+                                         + dither0^[col_index]]);
+      Inc(input_ptr);
+      Inc(pixcode, GETJSAMPLE(colorindex1^[GETJSAMPLE(input_ptr^) + pad_offset
+                                           + dither1^[col_index]]));
+      Inc(input_ptr);
+      Inc(pixcode, GETJSAMPLE(colorindex2^[GETJSAMPLE(input_ptr^) + pad_offset
+                                           + dither2^[col_index]]));
+      Inc(input_ptr);
+      output_ptr^ := JSAMPLE (pixcode);
+      Inc(output_ptr);
+      col_index := (col_index + 1) and ODITHER_MASK;
+    end;
+    row_index := (row_index + 1) and ODITHER_MASK;
+    cquantize^.row_index := row_index;
+  end;
+end;
+
+
+{METHODDEF}
+procedure quantize_fs_dither (cinfo : j_decompress_ptr;
+                              input_buf : JSAMPARRAY;
+                  output_buf : JSAMPARRAY;
+                              num_rows : int);
+{ General case, with Floyd-Steinberg dithering }
+var
+  cquantize : my_cquantize_ptr;
+  cur : LOCFSERROR; {register}  { current error or pixel value }
+  belowerr : LOCFSERROR;        { error for pixel below cur }
+  bpreverr : LOCFSERROR;        { error for below/prev col }
+  bnexterr : LOCFSERROR;        { error for below/next col }
+  delta : LOCFSERROR;
+  prev_errorptr,
+  errorptr : FSERRORPTR; {register} { => fserrors[] at column before current }
+  input_ptr,                {register}
+  output_ptr : JSAMPLE_PTR; {register}
+  colorindex_ci : JSAMPROW;
+  colormap_ci : JSAMPROW;
+  pixcode : int;
+  nc : int;
+  dir : int;      { 1 for left-to-right, -1 for right-to-left }
+  dirnc : int;      { dir * nc }
+  ci : int;
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+  range_limit : range_limit_table_ptr;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  nc := cinfo^.out_color_components;
+  width := cinfo^.output_width;
+  range_limit := cinfo^.sample_range_limit;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    { Initialize output values to 0 so can process components separately }
+    jzero_far( (output_buf)^[row],
+               size_t(width * SIZEOF(JSAMPLE)));
+    for ci := 0 to pred(nc) do
+    begin
+      input_ptr := JSAMPLE_PTR(@ input_buf^[row]^[ci]);
+      output_ptr := JSAMPLE_PTR(output_buf^[row]);
+      errorptr := FSERRORPTR(cquantize^.fserrors[ci]); { => entry before first column }
+      if (cquantize^.on_odd_row) then
+      begin
+  { work right to left in this row }
+  Inc(input_ptr, (width-1) * JDIMENSION(nc)); { so point to rightmost pixel }
+  Inc(output_ptr, width-1);
+  dir := -1;
+  dirnc := -nc;
+  Inc(errorptr, (width+1)); { => entry after last column }
+      end
+      else
+      begin
+  { work left to right in this row }
+  dir := 1;
+  dirnc := nc;
+        {errorptr := cquantize^.fserrors[ci];}
+      end;
+
+      colorindex_ci := cquantize^.colorindex^[ci];
+
+      colormap_ci := (cquantize^.sv_colormap)^[ci];
+      { Preset error values: no error propagated to first pixel from left }
+      cur := 0;
+      { and no error propagated to row below yet }
+      belowerr := 0;
+      bpreverr := 0;
+
+      for col := pred(width) downto 0 do
+      begin
+        prev_errorptr := errorptr;
+  Inc(errorptr, dir);  { advance errorptr to current column }
+
+  { cur holds the error propagated from the previous pixel on the
+    current line.  Add the error propagated from the previous line
+    to form the complete error correction term for this pixel, and
+    round the error term (which is expressed * 16) to an integer.
+    RIGHT_SHIFT rounds towards minus infinity, so adding 8 is correct
+    for either sign of the error value.
+    Note: errorptr points to *previous* column's array entry. }
+
+        cur := (cur + errorptr^ + 8) div 16;
+
+  { Form pixel value + error, and range-limit to 0..MAXJSAMPLE.
+    The maximum error is +- MAXJSAMPLE; this sets the required size
+    of the range_limit array. }
+
+  Inc( cur, GETJSAMPLE(input_ptr^));
+  cur := GETJSAMPLE(range_limit^[cur]);
+  { Select output value, accumulate into output code for this pixel }
+  pixcode := GETJSAMPLE(colorindex_ci^[cur]);
+  Inc(output_ptr^, JSAMPLE (pixcode));
+  { Compute actual representation error at this pixel }
+  { Note: we can do this even though we don't have the final }
+  { pixel code, because the colormap is orthogonal. }
+  Dec(cur, GETJSAMPLE(colormap_ci^[pixcode]));
+  { Compute error fractions to be propagated to adjacent pixels.
+    Add these into the running sums, and simultaneously shift the
+    next-line error sums left by 1 column. }
+
+  bnexterr := cur;
+  delta := cur * 2;
+  Inc(cur, delta);        { form error * 3 }
+  prev_errorptr^ := FSERROR (bpreverr + cur);
+  Inc(cur, delta);        { form error * 5 }
+  bpreverr := belowerr + cur;
+  belowerr := bnexterr;
+  Inc(cur, delta);        { form error * 7 }
+  { At this point cur contains the 7/16 error value to be propagated
+    to the next pixel on the current line, and all the errors for the
+    next line have been shifted over. We are therefore ready to move on. }
+
+  Inc(input_ptr, dirnc);  { advance input ptr to next column }
+  Inc(output_ptr, dir);   { advance output ptr to next column }
+
+      end;
+      { Post-loop cleanup: we must unload the final error value into the
+        final fserrors[] entry.  Note we need not unload belowerr because
+        it is for the dummy column before or after the actual array. }
+
+      errorptr^ := FSERROR (bpreverr); { unload prev err into array }
+      { Nomssi : ?? }
+    end;
+    cquantize^.on_odd_row := not cquantize^.on_odd_row;
+  end;
+end;
+
+
+{ Allocate workspace for Floyd-Steinberg errors. }
+
+{LOCAL}
+procedure alloc_fs_workspace (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+  arraysize : size_t;
+  i : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  arraysize := size_t ((cinfo^.output_width + 2) * SIZEOF(FSERROR));
+  for i := 0 to pred(cinfo^.out_color_components) do
+  begin
+    cquantize^.fserrors[i] := FS_ERROR_FIELD_PTR(
+      cinfo^.mem^.alloc_large(j_common_ptr(cinfo), JPOOL_IMAGE, arraysize));
+  end;
+end;
+
+
+{ Initialize for one-pass color quantization. }
+
+{METHODDEF}
+procedure start_pass_1_quant (cinfo : j_decompress_ptr;
+                              is_pre_scan : boolean);
+var
+  cquantize : my_cquantize_ptr;
+  arraysize : size_t;
+  i : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  { Install my colormap. }
+  cinfo^.colormap := cquantize^.sv_colormap;
+  cinfo^.actual_number_of_colors := cquantize^.sv_actual;
+
+  { Initialize for desired dithering mode. }
+  case (cinfo^.dither_mode) of
+  JDITHER_NONE:
+    if (cinfo^.out_color_components = 3) then
+      cquantize^.pub.color_quantize := color_quantize3
+    else
+      cquantize^.pub.color_quantize := color_quantize;
+  JDITHER_ORDERED:
+    begin
+      if (cinfo^.out_color_components = 3) then
+        cquantize^.pub.color_quantize := quantize3_ord_dither
+      else
+        cquantize^.pub.color_quantize := quantize_ord_dither;
+      cquantize^.row_index := 0;    { initialize state for ordered dither }
+      { If user changed to ordered dither from another mode,
+        we must recreate the color index table with padding.
+        This will cost extra space, but probably isn't very likely. }
+
+      if (not cquantize^.is_padded) then
+        create_colorindex(cinfo);
+      { Create ordered-dither tables if we didn't already. }
+      if (cquantize^.odither[0] = NIL) then
+        create_odither_tables(cinfo);
+    end;
+  JDITHER_FS:
+    begin
+      cquantize^.pub.color_quantize := quantize_fs_dither;
+      cquantize^.on_odd_row := FALSE; { initialize state for F-S dither }
+      { Allocate Floyd-Steinberg workspace if didn't already. }
+      if (cquantize^.fserrors[0] = NIL) then
+        alloc_fs_workspace(cinfo);
+      { Initialize the propagated errors to zero. }
+      arraysize := size_t ((cinfo^.output_width + 2) * SIZEOF(FSERROR));
+      for i := 0 to pred(cinfo^.out_color_components) do
+        jzero_far({far} pointer( cquantize^.fserrors[i] ), arraysize);
+    end;
+  else
+    ERREXIT(j_common_ptr(cinfo), JERR_NOT_COMPILED);
+  end;
+end;
+
+
+{ Finish up at the end of the pass. }
+
+{METHODDEF}
+procedure finish_pass_1_quant (cinfo : j_decompress_ptr);
+begin
+  { no work in 1-pass case }
+end;
+
+
+{ Switch to a new external colormap between output passes.
+  Shouldn't get to this module! }
+
+{METHODDEF}
+procedure new_color_map_1_quant (cinfo : j_decompress_ptr);
+begin
+  ERREXIT(j_common_ptr(cinfo), JERR_MODE_CHANGE);
+end;
+
+
+{ Module initialization routine for 1-pass color quantization. }
+
+{GLOBAL}
+procedure jinit_1pass_quantizer (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+begin
+  cquantize := my_cquantize_ptr(
+     cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_cquantizer)));
+  cinfo^.cquantize := jpeg_color_quantizer_ptr(cquantize);
+  cquantize^.pub.start_pass := start_pass_1_quant;
+  cquantize^.pub.finish_pass := finish_pass_1_quant;
+  cquantize^.pub.new_color_map := new_color_map_1_quant;
+  cquantize^.fserrors[0] := NIL; { Flag FS workspace not allocated }
+  cquantize^.odither[0] := NIL; { Also flag odither arrays not allocated }
+
+  { Make sure my internal arrays won't overflow }
+  if (cinfo^.out_color_components > MAX_Q_COMPS) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_QUANT_COMPONENTS, MAX_Q_COMPS);
+  { Make sure colormap indexes can be represented by JSAMPLEs }
+  if (cinfo^.desired_number_of_colors > (MAXJSAMPLE+1)) then
+    ERREXIT1(j_common_ptr(cinfo), JERR_QUANT_MANY_COLORS, MAXJSAMPLE+1);
+
+  { Create the colormap and color index table. }
+  create_colormap(cinfo);
+  create_colorindex(cinfo);
+
+  { Allocate Floyd-Steinberg workspace now if requested.
+    We do this now since it is FAR storage and may affect the memory
+    manager's space calculations.  If the user changes to FS dither
+    mode in a later pass, we will allocate the space then, and will
+    possibly overrun the max_memory_to_use setting. }
+
+  if (cinfo^.dither_mode = JDITHER_FS) then
+    alloc_fs_workspace(cinfo);
+end;
+
+
+end.
diff --git a/src/lib/vampimg/JpegLib/imjquant2.pas b/src/lib/vampimg/JpegLib/imjquant2.pas

new file mode 100644 (file)

index 0000000..5d4e4dc
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjquant2.pas
@@ -0,0 +1,1551 @@
+unit imjquant2;
+
+
+{ This file contains 2-pass color quantization (color mapping) routines.
+  These routines provide selection of a custom color map for an image,
+  followed by mapping of the image to that color map, with optional
+  Floyd-Steinberg dithering.
+  It is also possible to use just the second pass to map to an arbitrary
+  externally-given color map.
+
+  Note: ordered dithering is not supported, since there isn't any fast
+  way to compute intercolor distances; it's unclear that ordered dither's
+  fundamental assumptions even hold with an irregularly spaced color map. }
+
+{ Original: jquant2.c; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjdeferr,
+  imjerror,
+  imjutils,
+  imjpeglib;
+
+{ Module initialization routine for 2-pass color quantization. }
+
+
+{GLOBAL}
+procedure jinit_2pass_quantizer (cinfo : j_decompress_ptr);
+
+implementation
+
+{ This module implements the well-known Heckbert paradigm for color
+  quantization.  Most of the ideas used here can be traced back to
+  Heckbert's seminal paper
+    Heckbert, Paul.  "Color Image Quantization for Frame Buffer Display",
+    Proc. SIGGRAPH '82, Computer Graphics v.16 #3 (July 1982), pp 297-304.
+
+  In the first pass over the image, we accumulate a histogram showing the
+  usage count of each possible color.  To keep the histogram to a reasonable
+  size, we reduce the precision of the input; typical practice is to retain
+  5 or 6 bits per color, so that 8 or 4 different input values are counted
+  in the same histogram cell.
+
+  Next, the color-selection step begins with a box representing the whole
+  color space, and repeatedly splits the "largest" remaining box until we
+  have as many boxes as desired colors.  Then the mean color in each
+  remaining box becomes one of the possible output colors.
+
+  The second pass over the image maps each input pixel to the closest output
+  color (optionally after applying a Floyd-Steinberg dithering correction).
+  This mapping is logically trivial, but making it go fast enough requires
+  considerable care.
+
+  Heckbert-style quantizers vary a good deal in their policies for choosing
+  the "largest" box and deciding where to cut it.  The particular policies
+  used here have proved out well in experimental comparisons, but better ones
+  may yet be found.
+
+  In earlier versions of the IJG code, this module quantized in YCbCr color
+  space, processing the raw upsampled data without a color conversion step.
+  This allowed the color conversion math to be done only once per colormap
+  entry, not once per pixel.  However, that optimization precluded other
+  useful optimizations (such as merging color conversion with upsampling)
+  and it also interfered with desired capabilities such as quantizing to an
+  externally-supplied colormap.  We have therefore abandoned that approach.
+  The present code works in the post-conversion color space, typically RGB.
+
+  To improve the visual quality of the results, we actually work in scaled
+  RGB space, giving G distances more weight than R, and R in turn more than
+  B.  To do everything in integer math, we must use integer scale factors.
+  The 2/3/1 scale factors used here correspond loosely to the relative
+  weights of the colors in the NTSC grayscale equation.
+  If you want to use this code to quantize a non-RGB color space, you'll
+  probably need to change these scale factors. }
+
+const
+  R_SCALE = 2;          { scale R distances by this much }
+  G_SCALE = 3;          { scale G distances by this much }
+  B_SCALE = 1;          { and B by this much }
+
+{ Relabel R/G/B as components 0/1/2, respecting the RGB ordering defined
+  in jmorecfg.h.  As the code stands, it will do the right thing for R,G,B
+  and B,G,R orders.  If you define some other weird order in jmorecfg.h,
+  you'll get compile errors until you extend this logic.  In that case
+  you'll probably want to tweak the histogram sizes too. }
+
+{$ifdef RGB_RED_IS_0}
+const
+  C0_SCALE = R_SCALE;
+  C1_SCALE = G_SCALE;
+  C2_SCALE = B_SCALE;
+{$else}
+const
+  C0_SCALE = B_SCALE;
+  C1_SCALE = G_SCALE;
+  C2_SCALE = R_SCALE;
+{$endif}
+
+
+{ First we have the histogram data structure and routines for creating it.
+
+  The number of bits of precision can be adjusted by changing these symbols.
+  We recommend keeping 6 bits for G and 5 each for R and B.
+  If you have plenty of memory and cycles, 6 bits all around gives marginally
+  better results; if you are short of memory, 5 bits all around will save
+  some space but degrade the results.
+  To maintain a fully accurate histogram, we'd need to allocate a "long"
+  (preferably unsigned long) for each cell.  In practice this is overkill;
+  we can get by with 16 bits per cell.  Few of the cell counts will overflow,
+  and clamping those that do overflow to the maximum value will give close-
+  enough results.  This reduces the recommended histogram size from 256Kb
+  to 128Kb, which is a useful savings on PC-class machines.
+  (In the second pass the histogram space is re-used for pixel mapping data;
+  in that capacity, each cell must be able to store zero to the number of
+  desired colors.  16 bits/cell is plenty for that too.)
+  Since the JPEG code is intended to run in small memory model on 80x86
+  machines, we can't just allocate the histogram in one chunk.  Instead
+  of a true 3-D array, we use a row of pointers to 2-D arrays.  Each
+  pointer corresponds to a C0 value (typically 2^5 = 32 pointers) and
+  each 2-D array has 2^6*2^5 = 2048 or 2^6*2^6 = 4096 entries.  Note that
+  on 80x86 machines, the pointer row is in near memory but the actual
+  arrays are in far memory (same arrangement as we use for image arrays). }
+
+
+const
+  MAXNUMCOLORS = (MAXJSAMPLE+1);        { maximum size of colormap }
+
+{ These will do the right thing for either R,G,B or B,G,R color order,
+  but you may not like the results for other color orders. }
+
+const
+  HIST_C0_BITS = 5;             { bits of precision in R/B histogram }
+  HIST_C1_BITS = 6;             { bits of precision in G histogram }
+  HIST_C2_BITS = 5;             { bits of precision in B/R histogram }
+
+{ Number of elements along histogram axes. }
+const
+  HIST_C0_ELEMS = (1 shl HIST_C0_BITS);
+  HIST_C1_ELEMS = (1 shl HIST_C1_BITS);
+  HIST_C2_ELEMS = (1 shl HIST_C2_BITS);
+
+{ These are the amounts to shift an input value to get a histogram index. }
+const
+  C0_SHIFT = (BITS_IN_JSAMPLE-HIST_C0_BITS);
+  C1_SHIFT = (BITS_IN_JSAMPLE-HIST_C1_BITS);
+  C2_SHIFT = (BITS_IN_JSAMPLE-HIST_C2_BITS);
+
+
+type                            { Nomssi }
+  RGBptr = ^RGBtype;
+  RGBtype = packed record
+    r,g,b : JSAMPLE;
+  end;
+type
+  histcell = UINT16;            { histogram cell; prefer an unsigned type }
+
+type
+  histptr = ^histcell {FAR};       { for pointers to histogram cells }
+
+type
+  hist1d = array[0..HIST_C2_ELEMS-1] of histcell; { typedefs for the array }
+  {hist1d_ptr = ^hist1d;}
+  hist1d_field = array[0..HIST_C1_ELEMS-1] of hist1d;
+                                  { type for the 2nd-level pointers }
+  hist2d = ^hist1d_field;
+  hist2d_field = array[0..HIST_C0_ELEMS-1] of hist2d;
+  hist3d = ^hist2d_field;   { type for top-level pointer }
+
+
+{ Declarations for Floyd-Steinberg dithering.
+
+  Errors are accumulated into the array fserrors[], at a resolution of
+  1/16th of a pixel count.  The error at a given pixel is propagated
+  to its not-yet-processed neighbors using the standard F-S fractions,
+    ... (here)  7/16
+    3/16  5/16  1/16
+  We work left-to-right on even rows, right-to-left on odd rows.
+
+  We can get away with a single array (holding one row's worth of errors)
+  by using it to store the current row's errors at pixel columns not yet
+  processed, but the next row's errors at columns already processed.  We
+  need only a few extra variables to hold the errors immediately around the
+  current column.  (If we are lucky, those variables are in registers, but
+  even if not, they're probably cheaper to access than array elements are.)
+
+  The fserrors[] array has (#columns + 2) entries; the extra entry at
+  each end saves us from special-casing the first and last pixels.
+  Each entry is three values long, one value for each color component.
+
+  Note: on a wide image, we might not have enough room in a PC's near data
+  segment to hold the error array; so it is allocated with alloc_large. }
+
+
+{$ifdef BITS_IN_JSAMPLE_IS_8}
+type
+  FSERROR = INT16;              { 16 bits should be enough }
+  LOCFSERROR = int;             { use 'int' for calculation temps }
+{$else}
+type
+  FSERROR = INT32;              { may need more than 16 bits }
+  LOCFSERROR = INT32;           { be sure calculation temps are big enough }
+{$endif}
+type                            { Nomssi }
+  RGB_FSERROR_PTR = ^RGB_FSERROR;
+  RGB_FSERROR = packed record
+    r,g,b : FSERROR;
+  end;
+  LOCRGB_FSERROR = packed record
+    r,g,b : LOCFSERROR;
+  end;
+
+type
+  FSERROR_PTR = ^FSERROR;
+  jFSError = 0..(MaxInt div SIZEOF(RGB_FSERROR))-1;
+  FS_ERROR_FIELD = array[jFSError] of RGB_FSERROR;
+  FS_ERROR_FIELD_PTR = ^FS_ERROR_FIELD;{far}
+                                { pointer to error array (in FAR storage!) }
+
+type
+  error_limit_array = array[-MAXJSAMPLE..MAXJSAMPLE] of int;
+  { table for clamping the applied error }
+  error_limit_ptr = ^error_limit_array;
+
+{ Private subobject }
+type
+  my_cquantize_ptr = ^my_cquantizer;
+  my_cquantizer = record
+    pub : jpeg_color_quantizer; { public fields }
+
+    { Space for the eventually created colormap is stashed here }
+    sv_colormap : JSAMPARRAY; { colormap allocated at init time }
+    desired : int;              { desired # of colors = size of colormap }
+
+    { Variables for accumulating image statistics }
+    histogram : hist3d;         { pointer to the histogram }
+
+    needs_zeroed : boolean;     { TRUE if next pass must zero histogram }
+
+    { Variables for Floyd-Steinberg dithering }
+    fserrors : FS_ERROR_FIELD_PTR;        { accumulated errors }
+    on_odd_row : boolean;       { flag to remember which row we are on }
+    error_limiter : error_limit_ptr; { table for clamping the applied error }
+  end;
+
+
+
+{ Prescan some rows of pixels.
+  In this module the prescan simply updates the histogram, which has been
+  initialized to zeroes by start_pass.
+  An output_buf parameter is required by the method signature, but no data
+  is actually output (in fact the buffer controller is probably passing a
+  NIL pointer). }
+
+{METHODDEF}
+procedure prescan_quantize (cinfo : j_decompress_ptr;
+                            input_buf : JSAMPARRAY;
+                            output_buf : JSAMPARRAY;
+                            num_rows : int);
+var
+  cquantize : my_cquantize_ptr;
+  {register} ptr : RGBptr;
+  {register} histp : histptr;
+  {register} histogram : hist3d;
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+begin
+  cquantize := my_cquantize_ptr(cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+  width := cinfo^.output_width;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    ptr := RGBptr(input_buf^[row]);
+    for col := pred(width) downto 0 do
+    begin
+      { get pixel value and index into the histogram }
+      histp := @(histogram^[GETJSAMPLE(ptr^.r) shr C0_SHIFT]^
+                           [GETJSAMPLE(ptr^.g) shr C1_SHIFT]
+         [GETJSAMPLE(ptr^.b) shr C2_SHIFT]);
+      { increment, check for overflow and undo increment if so. }
+      Inc(histp^);
+      if (histp^ <= 0) then
+  Dec(histp^);
+      Inc(ptr);
+    end;
+  end;
+end;
+
+{ Next we have the really interesting routines: selection of a colormap
+  given the completed histogram.
+  These routines work with a list of "boxes", each representing a rectangular
+  subset of the input color space (to histogram precision). }
+
+type
+  box = record
+  { The bounds of the box (inclusive); expressed as histogram indexes }
+    c0min, c0max : int;
+    c1min, c1max : int;
+    c2min, c2max : int;
+    { The volume (actually 2-norm) of the box }
+    volume : INT32;
+    { The number of nonzero histogram cells within this box }
+    colorcount : long;
+  end;
+
+type
+  jBoxList = 0..(MaxInt div SizeOf(box))-1;
+  box_field = array[jBoxlist] of box;
+  boxlistptr = ^box_field;
+  boxptr = ^box;
+
+{LOCAL}
+function find_biggest_color_pop (boxlist : boxlistptr; numboxes : int) : boxptr;
+{ Find the splittable box with the largest color population }
+{ Returns NIL if no splittable boxes remain }
+var
+  boxp : boxptr ; {register}
+  i : int;        {register}
+  maxc : long;    {register}
+  which : boxptr;
+begin
+  which := NIL;
+  boxp := @(boxlist^[0]);
+  maxc := 0;
+  for i := 0 to pred(numboxes) do
+  begin
+    if (boxp^.colorcount > maxc) and (boxp^.volume > 0) then
+    begin
+      which := boxp;
+      maxc := boxp^.colorcount;
+    end;
+    Inc(boxp);
+  end;
+  find_biggest_color_pop := which;
+end;
+
+
+{LOCAL}
+function find_biggest_volume (boxlist : boxlistptr; numboxes : int) : boxptr;
+{ Find the splittable box with the largest (scaled) volume }
+{ Returns NULL if no splittable boxes remain }
+var
+  {register} boxp : boxptr;
+  {register} i : int;
+  {register} maxv : INT32;
+  which : boxptr;
+begin
+  maxv := 0;
+  which := NIL;
+  boxp := @(boxlist^[0]);
+  for i := 0 to pred(numboxes) do
+  begin
+    if (boxp^.volume > maxv) then
+    begin
+      which := boxp;
+      maxv := boxp^.volume;
+    end;
+    Inc(boxp);
+  end;
+  find_biggest_volume := which;
+end;
+
+
+{LOCAL}
+procedure update_box (cinfo : j_decompress_ptr; var boxp : box);
+label
+  have_c0min, have_c0max,
+  have_c1min, have_c1max,
+  have_c2min, have_c2max;
+{ Shrink the min/max bounds of a box to enclose only nonzero elements, }
+{ and recompute its volume and population }
+var
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  histp : histptr;
+  c0,c1,c2 : int;
+  c0min,c0max,c1min,c1max,c2min,c2max : int;
+  dist0,dist1,dist2 : INT32;
+  ccount : long;
+begin
+  cquantize := my_cquantize_ptr(cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+
+  c0min := boxp.c0min;  c0max := boxp.c0max;
+  c1min := boxp.c1min;  c1max := boxp.c1max;
+  c2min := boxp.c2min;  c2max := boxp.c2max;
+
+  if (c0max > c0min) then
+    for c0 := c0min to c0max do
+      for c1 := c1min to c1max do
+      begin
+  histp := @(histogram^[c0]^[c1][c2min]);
+  for c2 := c2min to c2max do
+        begin
+    if (histp^ <> 0) then
+          begin
+            c0min := c0;
+      boxp.c0min := c0min;
+      goto have_c0min;
+    end;
+          Inc(histp);
+        end;
+      end;
+ have_c0min:
+  if (c0max > c0min) then
+    for c0 := c0max downto c0min do
+      for c1 := c1min to c1max do
+      begin
+  histp := @(histogram^[c0]^[c1][c2min]);
+  for c2 := c2min to c2max do
+        begin
+    if ( histp^ <> 0) then
+          begin
+            c0max := c0;
+      boxp.c0max := c0;
+      goto have_c0max;
+    end;
+          Inc(histp);
+        end;
+      end;
+ have_c0max:
+  if (c1max > c1min) then
+    for c1 := c1min to c1max do
+      for c0 := c0min to c0max do
+      begin
+  histp := @(histogram^[c0]^[c1][c2min]);
+  for c2 := c2min to c2max do
+        begin
+    if (histp^ <> 0) then
+          begin
+            c1min := c1;
+      boxp.c1min := c1;
+      goto have_c1min;
+    end;
+          Inc(histp);
+        end;
+      end;
+ have_c1min:
+  if (c1max > c1min) then
+    for c1 := c1max downto c1min do
+      for c0 := c0min to c0max do
+      begin
+  histp := @(histogram^[c0]^[c1][c2min]);
+  for c2 := c2min to c2max do
+        begin
+    if (histp^ <> 0) then
+          begin
+            c1max := c1;
+      boxp.c1max := c1;
+      goto have_c1max;
+    end;
+          Inc(histp);
+        end;
+      end;
+ have_c1max:
+  if (c2max > c2min) then
+    for c2 := c2min to c2max do
+      for c0 := c0min to c0max do
+      begin
+  histp := @(histogram^[c0]^[c1min][c2]);
+  for c1 := c1min to c1max do
+        begin
+    if (histp^ <> 0) then
+          begin
+      c2min := c2;
+      boxp.c2min := c2min;
+      goto have_c2min;
+    end;
+          Inc(histp, HIST_C2_ELEMS);
+        end;
+      end;
+ have_c2min:
+  if (c2max > c2min) then
+    for c2 := c2max downto c2min do
+      for c0 := c0min to c0max do
+      begin
+  histp := @(histogram^[c0]^[c1min][c2]);
+  for c1 := c1min to c1max do
+        begin
+    if (histp^ <> 0) then
+          begin
+      c2max := c2;
+      boxp.c2max := c2max;
+      goto have_c2max;
+    end;
+          Inc(histp, HIST_C2_ELEMS);
+        end;
+      end;
+ have_c2max:
+
+  { Update box volume.
+    We use 2-norm rather than real volume here; this biases the method
+    against making long narrow boxes, and it has the side benefit that
+    a box is splittable iff norm > 0.
+    Since the differences are expressed in histogram-cell units,
+    we have to shift back to JSAMPLE units to get consistent distances;
+    after which, we scale according to the selected distance scale factors.}
+
+  dist0 := ((c0max - c0min) shl C0_SHIFT) * C0_SCALE;
+  dist1 := ((c1max - c1min) shl C1_SHIFT) * C1_SCALE;
+  dist2 := ((c2max - c2min) shl C2_SHIFT) * C2_SCALE;
+  boxp.volume := dist0*dist0 + dist1*dist1 + dist2*dist2;
+
+  { Now scan remaining volume of box and compute population }
+  ccount := 0;
+  for c0 := c0min to c0max do
+    for c1 := c1min to c1max do
+    begin
+      histp := @(histogram^[c0]^[c1][c2min]);
+      for c2 := c2min to c2max do
+      begin
+  if (histp^ <> 0) then
+    Inc(ccount);
+        Inc(histp);
+      end;
+    end;
+  boxp.colorcount := ccount;
+end;
+
+
+{LOCAL}
+function median_cut (cinfo : j_decompress_ptr; boxlist : boxlistptr;
+                     numboxes : int; desired_colors : int) : int;
+{ Repeatedly select and split the largest box until we have enough boxes }
+var
+  n,lb : int;
+  c0,c1,c2,cmax : int;
+  {register} b1,b2 : boxptr;
+begin
+  while (numboxes < desired_colors) do
+  begin
+    { Select box to split.
+      Current algorithm: by population for first half, then by volume. }
+
+    if (numboxes*2 <= desired_colors) then
+      b1 := find_biggest_color_pop(boxlist, numboxes)
+    else
+      b1 := find_biggest_volume(boxlist, numboxes);
+
+    if (b1 = NIL) then          { no splittable boxes left! }
+      break;
+    b2 := @(boxlist^[numboxes]);  { where new box will go }
+    { Copy the color bounds to the new box. }
+    b2^.c0max := b1^.c0max; b2^.c1max := b1^.c1max; b2^.c2max := b1^.c2max;
+    b2^.c0min := b1^.c0min; b2^.c1min := b1^.c1min; b2^.c2min := b1^.c2min;
+    { Choose which axis to split the box on.
+      Current algorithm: longest scaled axis.
+      See notes in update_box about scaling distances. }
+
+    c0 := ((b1^.c0max - b1^.c0min) shl C0_SHIFT) * C0_SCALE;
+    c1 := ((b1^.c1max - b1^.c1min) shl C1_SHIFT) * C1_SCALE;
+    c2 := ((b1^.c2max - b1^.c2min) shl C2_SHIFT) * C2_SCALE;
+    { We want to break any ties in favor of green, then red, blue last.
+      This code does the right thing for R,G,B or B,G,R color orders only. }
+
+{$ifdef RGB_RED_IS_0}
+    cmax := c1; n := 1;
+    if (c0 > cmax) then
+    begin
+      cmax := c0;
+      n := 0;
+    end;
+    if (c2 > cmax) then
+      n := 2;
+{$else}
+    cmax := c1;
+    n := 1;
+    if (c2 > cmax) then
+    begin
+      cmax := c2;
+      n := 2;
+    end;
+    if (c0 > cmax) then
+      n := 0;
+{$endif}
+    { Choose split point along selected axis, and update box bounds.
+      Current algorithm: split at halfway point.
+      (Since the box has been shrunk to minimum volume,
+      any split will produce two nonempty subboxes.)
+      Note that lb value is max for lower box, so must be < old max. }
+
+    case n of
+    0:begin
+        lb := (b1^.c0max + b1^.c0min) div 2;
+        b1^.c0max := lb;
+        b2^.c0min := lb+1;
+      end;
+    1:begin
+        lb := (b1^.c1max + b1^.c1min) div 2;
+        b1^.c1max := lb;
+        b2^.c1min := lb+1;
+      end;
+    2:begin
+        lb := (b1^.c2max + b1^.c2min) div 2;
+        b1^.c2max := lb;
+        b2^.c2min := lb+1;
+      end;
+    end;
+    { Update stats for boxes }
+    update_box(cinfo, b1^);
+    update_box(cinfo, b2^);
+    Inc(numboxes);
+  end;
+  median_cut := numboxes;
+end;
+
+
+{LOCAL}
+procedure compute_color (cinfo : j_decompress_ptr;
+                         const boxp : box; icolor : int);
+{ Compute representative color for a box, put it in colormap[icolor] }
+var
+  { Current algorithm: mean weighted by pixels (not colors) }
+  { Note it is important to get the rounding correct! }
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  histp : histptr;
+  c0,c1,c2 : int;
+  c0min,c0max,c1min,c1max,c2min,c2max : int;
+  count : long;
+  total : long;
+  c0total : long;
+  c1total : long;
+  c2total : long;
+begin
+  cquantize := my_cquantize_ptr(cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+  total := 0;
+  c0total := 0;
+  c1total := 0;
+  c2total := 0;
+
+  c0min := boxp.c0min;  c0max := boxp.c0max;
+  c1min := boxp.c1min;  c1max := boxp.c1max;
+  c2min := boxp.c2min;  c2max := boxp.c2max;
+
+  for c0 := c0min to c0max do
+    for c1 := c1min to c1max do
+    begin
+      histp := @(histogram^[c0]^[c1][c2min]);
+      for c2 := c2min to c2max do
+      begin
+  count := histp^;
+        Inc(histp);
+  if (count <> 0) then
+        begin
+    Inc(total, count);
+    Inc(c0total, ((c0 shl C0_SHIFT) + ((1 shl C0_SHIFT) shr 1)) * count);
+    Inc(c1total, ((c1 shl C1_SHIFT) + ((1 shl C1_SHIFT) shr 1)) * count);
+    Inc(c2total, ((c2 shl C2_SHIFT) + ((1 shl C2_SHIFT) shr 1)) * count);
+  end;
+      end;
+    end;
+
+  cinfo^.colormap^[0]^[icolor] := JSAMPLE ((c0total + (total shr 1)) div total);
+  cinfo^.colormap^[1]^[icolor] := JSAMPLE ((c1total + (total shr 1)) div total);
+  cinfo^.colormap^[2]^[icolor] := JSAMPLE ((c2total + (total shr 1)) div total);
+end;
+
+
+{LOCAL}
+procedure select_colors (cinfo : j_decompress_ptr; desired_colors : int);
+{ Master routine for color selection }
+var
+  boxlist : boxlistptr;
+  numboxes : int;
+  i : int;
+begin
+  { Allocate workspace for box list }
+  boxlist := boxlistptr(cinfo^.mem^.alloc_small(
+    j_common_ptr(cinfo), JPOOL_IMAGE, desired_colors * SIZEOF(box)));
+  { Initialize one box containing whole space }
+  numboxes := 1;
+  boxlist^[0].c0min := 0;
+  boxlist^[0].c0max := MAXJSAMPLE shr C0_SHIFT;
+  boxlist^[0].c1min := 0;
+  boxlist^[0].c1max := MAXJSAMPLE shr C1_SHIFT;
+  boxlist^[0].c2min := 0;
+  boxlist^[0].c2max := MAXJSAMPLE shr C2_SHIFT;
+  { Shrink it to actually-used volume and set its statistics }
+  update_box(cinfo, boxlist^[0]);
+  { Perform median-cut to produce final box list }
+  numboxes := median_cut(cinfo, boxlist, numboxes, desired_colors);
+  { Compute the representative color for each box, fill colormap }
+  for i := 0 to pred(numboxes) do
+    compute_color(cinfo, boxlist^[i], i);
+  cinfo^.actual_number_of_colors := numboxes;
+  {$IFDEF DEBUG}
+  TRACEMS1(j_common_ptr(cinfo), 1, JTRC_QUANT_SELECTED, numboxes);
+  {$ENDIF}
+end;
+
+
+{ These routines are concerned with the time-critical task of mapping input
+  colors to the nearest color in the selected colormap.
+
+  We re-use the histogram space as an "inverse color map", essentially a
+  cache for the results of nearest-color searches.  All colors within a
+  histogram cell will be mapped to the same colormap entry, namely the one
+  closest to the cell's center.  This may not be quite the closest entry to
+  the actual input color, but it's almost as good.  A zero in the cache
+  indicates we haven't found the nearest color for that cell yet; the array
+  is cleared to zeroes before starting the mapping pass.  When we find the
+  nearest color for a cell, its colormap index plus one is recorded in the
+  cache for future use.  The pass2 scanning routines call fill_inverse_cmap
+  when they need to use an unfilled entry in the cache.
+
+  Our method of efficiently finding nearest colors is based on the "locally
+  sorted search" idea described by Heckbert and on the incremental distance
+  calculation described by Spencer W. Thomas in chapter III.1 of Graphics
+  Gems II (James Arvo, ed.  Academic Press, 1991).  Thomas points out that
+  the distances from a given colormap entry to each cell of the histogram can
+  be computed quickly using an incremental method: the differences between
+  distances to adjacent cells themselves differ by a constant.  This allows a
+  fairly fast implementation of the "brute force" approach of computing the
+  distance from every colormap entry to every histogram cell.  Unfortunately,
+  it needs a work array to hold the best-distance-so-far for each histogram
+  cell (because the inner loop has to be over cells, not colormap entries).
+  The work array elements have to be INT32s, so the work array would need
+  256Kb at our recommended precision.  This is not feasible in DOS machines.
+
+  To get around these problems, we apply Thomas' method to compute the
+  nearest colors for only the cells within a small subbox of the histogram.
+  The work array need be only as big as the subbox, so the memory usage
+  problem is solved.  Furthermore, we need not fill subboxes that are never
+  referenced in pass2; many images use only part of the color gamut, so a
+  fair amount of work is saved.  An additional advantage of this
+  approach is that we can apply Heckbert's locality criterion to quickly
+  eliminate colormap entries that are far away from the subbox; typically
+  three-fourths of the colormap entries are rejected by Heckbert's criterion,
+  and we need not compute their distances to individual cells in the subbox.
+  The speed of this approach is heavily influenced by the subbox size: too
+  small means too much overhead, too big loses because Heckbert's criterion
+  can't eliminate as many colormap entries.  Empirically the best subbox
+  size seems to be about 1/512th of the histogram (1/8th in each direction).
+
+  Thomas' article also describes a refined method which is asymptotically
+  faster than the brute-force method, but it is also far more complex and
+  cannot efficiently be applied to small subboxes.  It is therefore not
+  useful for programs intended to be portable to DOS machines.  On machines
+  with plenty of memory, filling the whole histogram in one shot with Thomas'
+  refined method might be faster than the present code --- but then again,
+  it might not be any faster, and it's certainly more complicated. }
+
+
+
+{ log2(histogram cells in update box) for each axis; this can be adjusted }
+const
+  BOX_C0_LOG = (HIST_C0_BITS-3);
+  BOX_C1_LOG = (HIST_C1_BITS-3);
+  BOX_C2_LOG = (HIST_C2_BITS-3);
+
+  BOX_C0_ELEMS = (1 shl BOX_C0_LOG); { # of hist cells in update box }
+  BOX_C1_ELEMS = (1 shl BOX_C1_LOG);
+  BOX_C2_ELEMS = (1 shl BOX_C2_LOG);
+
+  BOX_C0_SHIFT = (C0_SHIFT + BOX_C0_LOG);
+  BOX_C1_SHIFT = (C1_SHIFT + BOX_C1_LOG);
+  BOX_C2_SHIFT = (C2_SHIFT + BOX_C2_LOG);
+
+
+{ The next three routines implement inverse colormap filling.  They could
+  all be folded into one big routine, but splitting them up this way saves
+  some stack space (the mindist[] and bestdist[] arrays need not coexist)
+  and may allow some compilers to produce better code by registerizing more
+  inner-loop variables. }
+
+{LOCAL}
+function find_nearby_colors (cinfo : j_decompress_ptr;
+                             minc0 : int; minc1 : int; minc2 : int;
+                 var colorlist : array of JSAMPLE) : int;
+{ Locate the colormap entries close enough to an update box to be candidates
+  for the nearest entry to some cell(s) in the update box.  The update box
+  is specified by the center coordinates of its first cell.  The number of
+  candidate colormap entries is returned, and their colormap indexes are
+  placed in colorlist[].
+  This routine uses Heckbert's "locally sorted search" criterion to select
+  the colors that need further consideration. }
+
+var
+  numcolors : int;
+  maxc0, maxc1, maxc2 : int;
+  centerc0, centerc1, centerc2 : int;
+  i, x, ncolors : int;
+  minmaxdist, min_dist, max_dist, tdist : INT32;
+  mindist : array[0..MAXNUMCOLORS-1] of INT32;
+    { min distance to colormap entry i }
+begin
+  numcolors := cinfo^.actual_number_of_colors;
+
+  { Compute true coordinates of update box's upper corner and center.
+    Actually we compute the coordinates of the center of the upper-corner
+    histogram cell, which are the upper bounds of the volume we care about.
+    Note that since ">>" rounds down, the "center" values may be closer to
+    min than to max; hence comparisons to them must be "<=", not "<". }
+
+  maxc0 := minc0 + ((1 shl BOX_C0_SHIFT) - (1 shl C0_SHIFT));
+  centerc0 := (minc0 + maxc0) shr 1;
+  maxc1 := minc1 + ((1 shl BOX_C1_SHIFT) - (1 shl C1_SHIFT));
+  centerc1 := (minc1 + maxc1) shr 1;
+  maxc2 := minc2 + ((1 shl BOX_C2_SHIFT) - (1 shl C2_SHIFT));
+  centerc2 := (minc2 + maxc2) shr 1;
+
+  { For each color in colormap, find:
+     1. its minimum squared-distance to any point in the update box
+        (zero if color is within update box);
+     2. its maximum squared-distance to any point in the update box.
+    Both of these can be found by considering only the corners of the box.
+    We save the minimum distance for each color in mindist[];
+    only the smallest maximum distance is of interest. }
+
+  minmaxdist := long($7FFFFFFF);
+
+  for i := 0 to pred(numcolors) do
+  begin
+    { We compute the squared-c0-distance term, then add in the other two. }
+    x := GETJSAMPLE(cinfo^.colormap^[0]^[i]);
+    if (x < minc0) then
+    begin
+      tdist := (x - minc0) * C0_SCALE;
+      min_dist := tdist*tdist;
+      tdist := (x - maxc0) * C0_SCALE;
+      max_dist := tdist*tdist;
+    end
+    else
+      if (x > maxc0) then
+      begin
+        tdist := (x - maxc0) * C0_SCALE;
+        min_dist := tdist*tdist;
+        tdist := (x - minc0) * C0_SCALE;
+        max_dist := tdist*tdist;
+      end
+      else
+      begin
+        { within cell range so no contribution to min_dist }
+        min_dist := 0;
+        if (x <= centerc0) then
+        begin
+          tdist := (x - maxc0) * C0_SCALE;
+          max_dist := tdist*tdist;
+        end
+        else
+        begin
+          tdist := (x - minc0) * C0_SCALE;
+          max_dist := tdist*tdist;
+        end;
+      end;
+
+    x := GETJSAMPLE(cinfo^.colormap^[1]^[i]);
+    if (x < minc1) then
+    begin
+      tdist := (x - minc1) * C1_SCALE;
+      Inc(min_dist, tdist*tdist);
+      tdist := (x - maxc1) * C1_SCALE;
+      Inc(max_dist, tdist*tdist);
+    end
+    else
+      if (x > maxc1) then
+      begin
+        tdist := (x - maxc1) * C1_SCALE;
+        Inc(min_dist, tdist*tdist);
+        tdist := (x - minc1) * C1_SCALE;
+        Inc(max_dist, tdist*tdist);
+      end
+      else
+      begin
+        { within cell range so no contribution to min_dist }
+        if (x <= centerc1) then
+        begin
+    tdist := (x - maxc1) * C1_SCALE;
+    Inc(max_dist, tdist*tdist);
+        end
+        else
+        begin
+    tdist := (x - minc1) * C1_SCALE;
+    Inc(max_dist, tdist*tdist);
+        end
+      end;
+
+    x := GETJSAMPLE(cinfo^.colormap^[2]^[i]);
+    if (x < minc2) then
+    begin
+      tdist := (x - minc2) * C2_SCALE;
+      Inc(min_dist, tdist*tdist);
+      tdist := (x - maxc2) * C2_SCALE;
+      Inc(max_dist, tdist*tdist);
+    end
+    else
+      if (x > maxc2) then
+      begin
+        tdist := (x - maxc2) * C2_SCALE;
+        Inc(min_dist, tdist*tdist);
+        tdist := (x - minc2) * C2_SCALE;
+        Inc(max_dist, tdist*tdist);
+      end
+      else
+      begin
+        { within cell range so no contribution to min_dist }
+        if (x <= centerc2) then
+        begin
+    tdist := (x - maxc2) * C2_SCALE;
+    Inc(max_dist, tdist*tdist);
+        end
+        else
+        begin
+    tdist := (x - minc2) * C2_SCALE;
+    Inc(max_dist, tdist*tdist);
+        end;
+      end;
+
+    mindist[i] := min_dist; { save away the results }
+    if (max_dist < minmaxdist) then
+      minmaxdist := max_dist;
+  end;
+
+  { Now we know that no cell in the update box is more than minmaxdist
+    away from some colormap entry.  Therefore, only colors that are
+    within minmaxdist of some part of the box need be considered. }
+
+  ncolors := 0;
+  for i := 0 to pred(numcolors) do
+  begin
+    if (mindist[i] <= minmaxdist) then
+    begin
+      colorlist[ncolors] := JSAMPLE(i);
+      Inc(ncolors);
+    end;
+  end;
+  find_nearby_colors := ncolors;
+end;
+
+
+{LOCAL}
+procedure find_best_colors (cinfo : j_decompress_ptr;
+                            minc0 : int; minc1 : int; minc2 : int;
+                            numcolors : int;
+                            var colorlist : array of JSAMPLE;
+                            var bestcolor : array of JSAMPLE);
+{ Find the closest colormap entry for each cell in the update box,
+  given the list of candidate colors prepared by find_nearby_colors.
+  Return the indexes of the closest entries in the bestcolor[] array.
+  This routine uses Thomas' incremental distance calculation method to
+  find the distance from a colormap entry to successive cells in the box. }
+const
+  { Nominal steps between cell centers ("x" in Thomas article) }
+  STEP_C0 = ((1 shl C0_SHIFT) * C0_SCALE);
+  STEP_C1 = ((1 shl C1_SHIFT) * C1_SCALE);
+  STEP_C2 = ((1 shl C2_SHIFT) * C2_SCALE);
+var
+  ic0, ic1, ic2 : int;
+  i, icolor : int;
+  {register} bptr : INT32PTR;     { pointer into bestdist[] array }
+  cptr : JSAMPLE_PTR;              { pointer into bestcolor[] array }
+  dist0, dist1 : INT32;         { initial distance values }
+  {register} dist2 : INT32; { current distance in inner loop }
+  xx0, xx1 : INT32;             { distance increments }
+  {register} xx2 : INT32;
+  inc0, inc1, inc2 : INT32; { initial values for increments }
+  { This array holds the distance to the nearest-so-far color for each cell }
+  bestdist : array[0..BOX_C0_ELEMS * BOX_C1_ELEMS * BOX_C2_ELEMS-1] of INT32;
+begin
+  { Initialize best-distance for each cell of the update box }
+  for i := BOX_C0_ELEMS*BOX_C1_ELEMS*BOX_C2_ELEMS-1 downto 0 do
+    bestdist[i] := $7FFFFFFF;
+
+  { For each color selected by find_nearby_colors,
+    compute its distance to the center of each cell in the box.
+    If that's less than best-so-far, update best distance and color number. }
+
+
+
+  for i := 0 to pred(numcolors) do
+  begin
+    icolor := GETJSAMPLE(colorlist[i]);
+    { Compute (square of) distance from minc0/c1/c2 to this color }
+    inc0 := (minc0 - GETJSAMPLE(cinfo^.colormap^[0]^[icolor])) * C0_SCALE;
+    dist0 := inc0*inc0;
+    inc1 := (minc1 - GETJSAMPLE(cinfo^.colormap^[1]^[icolor])) * C1_SCALE;
+    Inc(dist0, inc1*inc1);
+    inc2 := (minc2 - GETJSAMPLE(cinfo^.colormap^[2]^[icolor])) * C2_SCALE;
+    Inc(dist0, inc2*inc2);
+    { Form the initial difference increments }
+    inc0 := inc0 * (2 * STEP_C0) + STEP_C0 * STEP_C0;
+    inc1 := inc1 * (2 * STEP_C1) + STEP_C1 * STEP_C1;
+    inc2 := inc2 * (2 * STEP_C2) + STEP_C2 * STEP_C2;
+    { Now loop over all cells in box, updating distance per Thomas method }
+    bptr := @bestdist[0];
+    cptr := @bestcolor[0];
+    xx0 := inc0;
+    for ic0 := BOX_C0_ELEMS-1 downto 0 do
+    begin
+      dist1 := dist0;
+      xx1 := inc1;
+      for ic1 := BOX_C1_ELEMS-1 downto 0 do
+      begin
+  dist2 := dist1;
+  xx2 := inc2;
+  for ic2 := BOX_C2_ELEMS-1 downto 0 do
+        begin
+    if (dist2 < bptr^) then
+          begin
+      bptr^ := dist2;
+      cptr^ := JSAMPLE (icolor);
+    end;
+    Inc(dist2, xx2);
+    Inc(xx2, 2 * STEP_C2 * STEP_C2);
+    Inc(bptr);
+    Inc(cptr);
+  end;
+  Inc(dist1, xx1);
+  Inc(xx1, 2 * STEP_C1 * STEP_C1);
+      end;
+      Inc(dist0, xx0);
+      Inc(xx0, 2 * STEP_C0 * STEP_C0);
+    end;
+  end;
+end;
+
+
+{LOCAL}
+procedure fill_inverse_cmap (cinfo : j_decompress_ptr;
+                             c0 : int; c1 : int; c2 : int);
+{ Fill the inverse-colormap entries in the update box that contains }
+{ histogram cell c0/c1/c2.  (Only that one cell MUST be filled, but }
+{ we can fill as many others as we wish.) }
+var
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  minc0, minc1, minc2 : int;    { lower left corner of update box }
+  ic0, ic1, ic2 : int;
+  {register} cptr : JSAMPLE_PTR;  { pointer into bestcolor[] array }
+  {register} cachep : histptr;  { pointer into main cache array }
+  { This array lists the candidate colormap indexes. }
+  colorlist : array[0..MAXNUMCOLORS-1] of JSAMPLE;
+  numcolors : int;    { number of candidate colors }
+  { This array holds the actually closest colormap index for each cell. }
+  bestcolor : array[0..BOX_C0_ELEMS * BOX_C1_ELEMS * BOX_C2_ELEMS-1] of JSAMPLE;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+
+  { Convert cell coordinates to update box ID }
+  c0 := c0 shr BOX_C0_LOG;
+  c1 := c1 shr BOX_C1_LOG;
+  c2 := c2 shr BOX_C2_LOG;
+
+  { Compute true coordinates of update box's origin corner.
+    Actually we compute the coordinates of the center of the corner
+    histogram cell, which are the lower bounds of the volume we care about.}
+
+  minc0 := (c0 shl BOX_C0_SHIFT) + ((1 shl C0_SHIFT) shr 1);
+  minc1 := (c1 shl BOX_C1_SHIFT) + ((1 shl C1_SHIFT) shr 1);
+  minc2 := (c2 shl BOX_C2_SHIFT) + ((1 shl C2_SHIFT) shr 1);
+
+  { Determine which colormap entries are close enough to be candidates
+    for the nearest entry to some cell in the update box. }
+
+  numcolors := find_nearby_colors(cinfo, minc0, minc1, minc2, colorlist);
+
+  { Determine the actually nearest colors. }
+  find_best_colors(cinfo, minc0, minc1, minc2, numcolors, colorlist,
+       bestcolor);
+
+  { Save the best color numbers (plus 1) in the main cache array }
+  c0 := c0 shl BOX_C0_LOG;    { convert ID back to base cell indexes }
+  c1 := c1 shl BOX_C1_LOG;
+  c2 := c2 shl BOX_C2_LOG;
+  cptr := @(bestcolor[0]);
+  for ic0 := 0 to pred(BOX_C0_ELEMS) do
+    for ic1 := 0 to pred(BOX_C1_ELEMS) do
+    begin
+      cachep := @(histogram^[c0+ic0]^[c1+ic1][c2]);
+      for ic2 := 0 to pred(BOX_C2_ELEMS) do
+      begin
+  cachep^ := histcell (GETJSAMPLE(cptr^) + 1);
+        Inc(cachep);
+        Inc(cptr);
+      end;
+    end;
+end;
+
+
+{ Map some rows of pixels to the output colormapped representation. }
+
+{METHODDEF}
+procedure pass2_no_dither (cinfo : j_decompress_ptr;
+               input_buf : JSAMPARRAY;
+                           output_buf : JSAMPARRAY;
+                           num_rows : int);
+{ This version performs no dithering }
+var
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  {register} inptr : RGBptr;
+             outptr : JSAMPLE_PTR;
+  {register} cachep : histptr;
+  {register} c0, c1, c2 : int;
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+  width := cinfo^.output_width;
+
+  for row := 0 to pred(num_rows) do
+  begin
+    inptr := RGBptr(input_buf^[row]);
+    outptr := JSAMPLE_PTR(output_buf^[row]);
+    for col := pred(width) downto 0 do
+    begin
+      { get pixel value and index into the cache }
+      c0 := GETJSAMPLE(inptr^.r) shr C0_SHIFT;
+      c1 := GETJSAMPLE(inptr^.g) shr C1_SHIFT;
+      c2 := GETJSAMPLE(inptr^.b) shr C2_SHIFT;
+      Inc(inptr);
+      cachep := @(histogram^[c0]^[c1][c2]);
+      { If we have not seen this color before, find nearest colormap entry }
+      { and update the cache }
+      if (cachep^ = 0) then
+  fill_inverse_cmap(cinfo, c0,c1,c2);
+      { Now emit the colormap index for this cell }
+      outptr^ := JSAMPLE (cachep^ - 1);
+      Inc(outptr);
+    end;
+  end;
+end;
+
+
+{METHODDEF}
+procedure pass2_fs_dither (cinfo : j_decompress_ptr;
+               input_buf : JSAMPARRAY;
+                           output_buf : JSAMPARRAY;
+                           num_rows : int);
+{ This version performs Floyd-Steinberg dithering }
+var
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  {register} cur : LOCRGB_FSERROR;  { current error or pixel value }
+  belowerr : LOCRGB_FSERROR; { error for pixel below cur }
+  bpreverr : LOCRGB_FSERROR; { error for below/prev col }
+  prev_errorptr,
+  {register} errorptr : RGB_FSERROR_PTR;  { => fserrors[] at column before current }
+  inptr : RGBptr;   { => current input pixel }
+  outptr : JSAMPLE_PTR;   { => current output pixel }
+  cachep : histptr;
+  dir : int;      { +1 or -1 depending on direction }
+  row : int;
+  col : JDIMENSION;
+  width : JDIMENSION;
+  range_limit : range_limit_table_ptr;
+  error_limit : error_limit_ptr;
+  colormap0 : JSAMPROW;
+  colormap1 : JSAMPROW;
+  colormap2 : JSAMPROW;
+  {register} pixcode : int;
+  {register} bnexterr, delta : LOCFSERROR;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+  width := cinfo^.output_width;
+  range_limit := cinfo^.sample_range_limit;
+  error_limit := cquantize^.error_limiter;
+  colormap0 := cinfo^.colormap^[0];
+  colormap1 := cinfo^.colormap^[1];
+  colormap2 := cinfo^.colormap^[2];
+
+  for row := 0 to pred(num_rows) do
+  begin
+    inptr := RGBptr(input_buf^[row]);
+    outptr := JSAMPLE_PTR(output_buf^[row]);
+    errorptr := RGB_FSERROR_PTR(cquantize^.fserrors); { => entry before first real column }
+    if (cquantize^.on_odd_row) then
+    begin
+      { work right to left in this row }
+      Inc(inptr, (width-1));     { so point to rightmost pixel }
+      Inc(outptr, width-1);
+      dir := -1;
+      Inc(errorptr, (width+1)); { => entry after last column }
+      cquantize^.on_odd_row := FALSE; { flip for next time }
+    end
+    else
+    begin
+      { work left to right in this row }
+      dir := 1;
+      cquantize^.on_odd_row := TRUE; { flip for next time }
+    end;
+
+    { Preset error values: no error propagated to first pixel from left }
+    cur.r := 0;
+    cur.g := 0;
+    cur.b := 0;
+    { and no error propagated to row below yet }
+    belowerr.r := 0;
+    belowerr.g := 0;
+    belowerr.b := 0;
+    bpreverr.r := 0;
+    bpreverr.g := 0;
+    bpreverr.b := 0;
+
+    for col := pred(width) downto 0 do
+    begin
+      prev_errorptr := errorptr;
+      Inc(errorptr, dir); { advance errorptr to current column }
+
+      { curN holds the error propagated from the previous pixel on the
+        current line.  Add the error propagated from the previous line
+        to form the complete error correction term for this pixel, and
+        round the error term (which is expressed * 16) to an integer.
+        RIGHT_SHIFT rounds towards minus infinity, so adding 8 is correct
+        for either sign of the error value.
+        Note: prev_errorptr points to *previous* column's array entry. }
+
+      { Nomssi Note: Borland Pascal SHR is unsigned }
+      cur.r := (cur.r + errorptr^.r + 8) div 16;
+      cur.g := (cur.g + errorptr^.g + 8) div 16;
+      cur.b := (cur.b + errorptr^.b + 8) div 16;
+      { Limit the error using transfer function set by init_error_limit.
+        See comments with init_error_limit for rationale. }
+
+      cur.r := error_limit^[cur.r];
+      cur.g := error_limit^[cur.g];
+      cur.b := error_limit^[cur.b];
+      { Form pixel value + error, and range-limit to 0..MAXJSAMPLE.
+        The maximum error is +- MAXJSAMPLE (or less with error limiting);
+        this sets the required size of the range_limit array. }
+
+      Inc(cur.r, GETJSAMPLE(inptr^.r));
+      Inc(cur.g, GETJSAMPLE(inptr^.g));
+      Inc(cur.b, GETJSAMPLE(inptr^.b));
+
+      cur.r := GETJSAMPLE(range_limit^[cur.r]);
+      cur.g := GETJSAMPLE(range_limit^[cur.g]);
+      cur.b := GETJSAMPLE(range_limit^[cur.b]);
+      { Index into the cache with adjusted pixel value }
+      cachep := @(histogram^[cur.r shr C0_SHIFT]^
+                            [cur.g shr C1_SHIFT][cur.b shr C2_SHIFT]);
+      { If we have not seen this color before, find nearest colormap }
+      { entry and update the cache }
+      if (cachep^ = 0) then
+  fill_inverse_cmap(cinfo, cur.r shr C0_SHIFT,
+                                 cur.g shr C1_SHIFT,
+                                 cur.b shr C2_SHIFT);
+      { Now emit the colormap index for this cell }
+
+      pixcode := cachep^ - 1;
+      outptr^ := JSAMPLE (pixcode);
+
+      { Compute representation error for this pixel }
+      Dec(cur.r, GETJSAMPLE(colormap0^[pixcode]));
+      Dec(cur.g, GETJSAMPLE(colormap1^[pixcode]));
+      Dec(cur.b, GETJSAMPLE(colormap2^[pixcode]));
+
+      { Compute error fractions to be propagated to adjacent pixels.
+        Add these into the running sums, and simultaneously shift the
+        next-line error sums left by 1 column. }
+
+      bnexterr := cur.r;  { Process component 0 }
+      delta := cur.r * 2;
+      Inc(cur.r, delta);    { form error * 3 }
+      prev_errorptr^.r := FSERROR (bpreverr.r + cur.r);
+      Inc(cur.r, delta);    { form error * 5 }
+      bpreverr.r := belowerr.r + cur.r;
+      belowerr.r := bnexterr;
+      Inc(cur.r, delta);    { form error * 7 }
+      bnexterr := cur.g;  { Process component 1 }
+      delta := cur.g * 2;
+      Inc(cur.g, delta);    { form error * 3 }
+      prev_errorptr^.g := FSERROR (bpreverr.g + cur.g);
+      Inc(cur.g, delta);    { form error * 5 }
+      bpreverr.g := belowerr.g + cur.g;
+      belowerr.g := bnexterr;
+      Inc(cur.g, delta);    { form error * 7 }
+      bnexterr := cur.b;  { Process component 2 }
+      delta := cur.b * 2;
+      Inc(cur.b, delta);    { form error * 3 }
+      prev_errorptr^.b := FSERROR (bpreverr.b + cur.b);
+      Inc(cur.b, delta);    { form error * 5 }
+      bpreverr.b := belowerr.b + cur.b;
+      belowerr.b := bnexterr;
+      Inc(cur.b, delta);    { form error * 7 }
+
+      { At this point curN contains the 7/16 error value to be propagated
+        to the next pixel on the current line, and all the errors for the
+        next line have been shifted over.  We are therefore ready to move on.}
+
+      Inc(inptr, dir);    { Advance pixel pointers to next column }
+      Inc(outptr, dir);
+    end;
+    { Post-loop cleanup: we must unload the final error values into the
+      final fserrors[] entry.  Note we need not unload belowerrN because
+      it is for the dummy column before or after the actual array. }
+
+    errorptr^.r := FSERROR (bpreverr.r); { unload prev errs into array }
+    errorptr^.g := FSERROR (bpreverr.g);
+    errorptr^.b := FSERROR (bpreverr.b);
+  end;
+end;
+
+
+{ Initialize the error-limiting transfer function (lookup table).
+  The raw F-S error computation can potentially compute error values of up to
+  +- MAXJSAMPLE.  But we want the maximum correction applied to a pixel to be
+  much less, otherwise obviously wrong pixels will be created.  (Typical
+  effects include weird fringes at color-area boundaries, isolated bright
+  pixels in a dark area, etc.)  The standard advice for avoiding this problem
+  is to ensure that the "corners" of the color cube are allocated as output
+  colors; then repeated errors in the same direction cannot cause cascading
+  error buildup.  However, that only prevents the error from getting
+  completely out of hand; Aaron Giles reports that error limiting improves
+  the results even with corner colors allocated.
+  A simple clamping of the error values to about +- MAXJSAMPLE/8 works pretty
+  well, but the smoother transfer function used below is even better.  Thanks
+  to Aaron Giles for this idea. }
+
+{LOCAL}
+procedure init_error_limit (cinfo : j_decompress_ptr);
+const
+  STEPSIZE = ((MAXJSAMPLE+1) div 16);
+{ Allocate and fill in the error_limiter table }
+var
+  cquantize : my_cquantize_ptr;
+  table : error_limit_ptr;
+  inp, out : int;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  table := error_limit_ptr (cinfo^.mem^.alloc_small
+    (j_common_ptr (cinfo), JPOOL_IMAGE, (MAXJSAMPLE*2+1) * SIZEOF(int)));
+  { not needed: Inc(table, MAXJSAMPLE);
+                so can index -MAXJSAMPLE .. +MAXJSAMPLE }
+  cquantize^.error_limiter := table;
+  { Map errors 1:1 up to +- MAXJSAMPLE/16 }
+  out := 0;
+  for inp := 0 to pred(STEPSIZE) do
+  begin
+    table^[inp] := out;
+    table^[-inp] := -out;
+    Inc(out);
+  end;
+  { Map errors 1:2 up to +- 3*MAXJSAMPLE/16 }
+  inp := STEPSIZE;       { Nomssi: avoid problems with Delphi2 optimizer }
+  while (inp < STEPSIZE*3) do
+  begin
+    table^[inp] := out;
+    table^[-inp] := -out;
+    Inc(inp);
+    if Odd(inp) then
+      Inc(out);
+  end;
+  { Clamp the rest to final out value (which is (MAXJSAMPLE+1)/8) }
+  inp := STEPSIZE*3;     { Nomssi: avoid problems with Delphi 2 optimizer }
+  while inp <= MAXJSAMPLE do
+  begin
+    table^[inp] := out;
+    table^[-inp] := -out;
+    Inc(inp);
+  end;
+end;
+
+{ Finish up at the end of each pass. }
+
+{METHODDEF}
+procedure finish_pass1 (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+
+  { Select the representative colors and fill in cinfo^.colormap }
+  cinfo^.colormap := cquantize^.sv_colormap;
+  select_colors(cinfo, cquantize^.desired);
+  { Force next pass to zero the color index table }
+  cquantize^.needs_zeroed := TRUE;
+end;
+
+
+{METHODDEF}
+procedure finish_pass2 (cinfo : j_decompress_ptr);
+begin
+  { no work }
+end;
+
+
+{ Initialize for each processing pass. }
+
+{METHODDEF}
+procedure start_pass_2_quant (cinfo : j_decompress_ptr;
+                              is_pre_scan : boolean);
+var
+  cquantize : my_cquantize_ptr;
+  histogram : hist3d;
+  i : int;
+var
+  arraysize : size_t;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+  histogram := cquantize^.histogram;
+  { Only F-S dithering or no dithering is supported. }
+  { If user asks for ordered dither, give him F-S. }
+  if (cinfo^.dither_mode <> JDITHER_NONE) then
+    cinfo^.dither_mode := JDITHER_FS;
+
+  if (is_pre_scan) then
+  begin
+    { Set up method pointers }
+    cquantize^.pub.color_quantize := prescan_quantize;
+    cquantize^.pub.finish_pass := finish_pass1;
+    cquantize^.needs_zeroed := TRUE; { Always zero histogram }
+  end
+  else
+  begin
+    { Set up method pointers }
+    if (cinfo^.dither_mode = JDITHER_FS) then
+      cquantize^.pub.color_quantize := pass2_fs_dither
+    else
+      cquantize^.pub.color_quantize := pass2_no_dither;
+    cquantize^.pub.finish_pass := finish_pass2;
+
+    { Make sure color count is acceptable }
+    i := cinfo^.actual_number_of_colors;
+    if (i < 1) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_QUANT_FEW_COLORS, 1);
+    if (i > MAXNUMCOLORS) then
+      ERREXIT1(j_common_ptr(cinfo), JERR_QUANT_MANY_COLORS, MAXNUMCOLORS);
+
+    if (cinfo^.dither_mode = JDITHER_FS) then
+    begin
+      arraysize := size_t ((cinfo^.output_width + 2) *
+           (3 * SIZEOF(FSERROR)));
+      { Allocate Floyd-Steinberg workspace if we didn't already. }
+      if (cquantize^.fserrors = NIL) then
+  cquantize^.fserrors := FS_ERROR_FIELD_PTR (cinfo^.mem^.alloc_large
+    (j_common_ptr(cinfo), JPOOL_IMAGE, arraysize));
+      { Initialize the propagated errors to zero. }
+      jzero_far(cquantize^.fserrors, arraysize);
+      { Make the error-limit table if we didn't already. }
+      if (cquantize^.error_limiter = NIL) then
+  init_error_limit(cinfo);
+      cquantize^.on_odd_row := FALSE;
+    end;
+
+  end;
+  { Zero the histogram or inverse color map, if necessary }
+  if (cquantize^.needs_zeroed) then
+  begin
+    for i := 0 to pred(HIST_C0_ELEMS) do
+    begin
+      jzero_far( histogram^[i],
+    HIST_C1_ELEMS*HIST_C2_ELEMS * SIZEOF(histcell));
+    end;
+    cquantize^.needs_zeroed := FALSE;
+  end;
+end;
+
+
+{ Switch to a new external colormap between output passes. }
+
+{METHODDEF}
+procedure new_color_map_2_quant (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+begin
+  cquantize := my_cquantize_ptr (cinfo^.cquantize);
+
+  { Reset the inverse color map }
+  cquantize^.needs_zeroed := TRUE;
+end;
+
+
+{ Module initialization routine for 2-pass color quantization. }
+
+
+{GLOBAL}
+procedure jinit_2pass_quantizer (cinfo : j_decompress_ptr);
+var
+  cquantize : my_cquantize_ptr;
+  i : int;
+var
+  desired : int;
+begin
+  cquantize := my_cquantize_ptr(
+    cinfo^.mem^.alloc_small (j_common_ptr(cinfo), JPOOL_IMAGE,
+        SIZEOF(my_cquantizer)));
+  cinfo^.cquantize := jpeg_color_quantizer_ptr(cquantize);
+  cquantize^.pub.start_pass := start_pass_2_quant;
+  cquantize^.pub.new_color_map := new_color_map_2_quant;
+  cquantize^.fserrors := NIL; { flag optional arrays not allocated }
+  cquantize^.error_limiter := NIL;
+
+  { Make sure jdmaster didn't give me a case I can't handle }
+  if (cinfo^.out_color_components <> 3) then
+    ERREXIT(j_common_ptr(cinfo), JERR_NOTIMPL);
+
+  { Allocate the histogram/inverse colormap storage }
+  cquantize^.histogram := hist3d (cinfo^.mem^.alloc_small
+    (j_common_ptr (cinfo), JPOOL_IMAGE, HIST_C0_ELEMS * SIZEOF(hist2d)));
+  for i := 0 to pred(HIST_C0_ELEMS) do
+  begin
+    cquantize^.histogram^[i] := hist2d (cinfo^.mem^.alloc_large
+      (j_common_ptr (cinfo), JPOOL_IMAGE,
+       HIST_C1_ELEMS*HIST_C2_ELEMS * SIZEOF(histcell)));
+  end;
+  cquantize^.needs_zeroed := TRUE; { histogram is garbage now }
+
+  { Allocate storage for the completed colormap, if required.
+    We do this now since it is FAR storage and may affect
+    the memory manager's space calculations. }
+
+  if (cinfo^.enable_2pass_quant) then
+  begin
+    { Make sure color count is acceptable }
+    desired := cinfo^.desired_number_of_colors;
+    { Lower bound on # of colors ... somewhat arbitrary as long as > 0 }
+    if (desired < 8) then
+      ERREXIT1(j_common_ptr (cinfo), JERR_QUANT_FEW_COLORS, 8);
+    { Make sure colormap indexes can be represented by JSAMPLEs }
+    if (desired > MAXNUMCOLORS) then
+      ERREXIT1(j_common_ptr (cinfo), JERR_QUANT_MANY_COLORS, MAXNUMCOLORS);
+    cquantize^.sv_colormap := cinfo^.mem^.alloc_sarray
+      (j_common_ptr (cinfo),JPOOL_IMAGE, JDIMENSION(desired), JDIMENSION(3));
+    cquantize^.desired := desired;
+  end
+  else
+    cquantize^.sv_colormap := NIL;
+
+  { Only F-S dithering or no dithering is supported. }
+  { If user asks for ordered dither, give him F-S. }
+  if (cinfo^.dither_mode <> JDITHER_NONE) then
+    cinfo^.dither_mode := JDITHER_FS;
+
+  { Allocate Floyd-Steinberg workspace if necessary.
+    This isn't really needed until pass 2, but again it is FAR storage.
+    Although we will cope with a later change in dither_mode,
+    we do not promise to honor max_memory_to_use if dither_mode changes. }
+
+  if (cinfo^.dither_mode = JDITHER_FS) then
+  begin
+    cquantize^.fserrors := FS_ERROR_FIELD_PTR (cinfo^.mem^.alloc_large
+      (j_common_ptr(cinfo), JPOOL_IMAGE,
+       size_t ((cinfo^.output_width + 2) * (3 * SIZEOF(FSERROR))) ) );
+    { Might as well create the error-limiting table too. }
+    init_error_limit(cinfo);
+  end;
+end;
+{ QUANT_2PASS_SUPPORTED }
+end.
diff --git a/src/lib/vampimg/JpegLib/imjutils.pas b/src/lib/vampimg/JpegLib/imjutils.pas

new file mode 100644 (file)

index 0000000..fc0eac7
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/imjutils.pas
@@ -0,0 +1,232 @@
+unit imjutils;
+
+{ This file contains tables and miscellaneous utility routines needed
+  for both compression and decompression.
+  Note we prefix all global names with "j" to minimize conflicts with
+  a surrounding application. }
+
+{ Source: jutils.c; Copyright (C) 1991-1996, Thomas G. Lane. }
+
+interface
+
+{$I imjconfig.inc}
+
+uses
+  imjmorecfg,
+  imjinclude,
+  imjpeglib;
+
+
+{ jpeg_zigzag_order[i] is the zigzag-order position of the i'th element
+  of a DCT block read in natural order (left to right, top to bottom). }
+
+
+{$ifdef FALSE}      { This table is not actually needed in v6a }
+
+const
+  jpeg_zigzag_order : array[0..DCTSIZE2] of int =
+  (0,  1,  5,  6, 14, 15, 27, 28,
+   2,  4,  7, 13, 16, 26, 29, 42,
+   3,  8, 12, 17, 25, 30, 41, 43,
+   9, 11, 18, 24, 31, 40, 44, 53,
+  10, 19, 23, 32, 39, 45, 52, 54,
+  20, 22, 33, 38, 46, 51, 55, 60,
+  21, 34, 37, 47, 50, 56, 59, 61,
+  35, 36, 48, 49, 57, 58, 62, 63);
+
+{$endif}
+
+
+{ jpeg_natural_order[i] is the natural-order position of the i'th element
+  of zigzag order.
+
+  When reading corrupted data, the Huffman decoders could attempt
+  to reference an entry beyond the end of this array (if the decoded
+  zero run length reaches past the end of the block).  To prevent
+  wild stores without adding an inner-loop test, we put some extra
+  "63"s after the real entries.  This will cause the extra coefficient
+  to be stored in location 63 of the block, not somewhere random.
+  The worst case would be a run-length of 15, which means we need 16
+  fake entries. }
+
+
+const
+  jpeg_natural_order : array[0..DCTSIZE2+16-1] of int =
+ (0,  1,  8, 16,  9,  2,  3, 10,
+ 17, 24, 32, 25, 18, 11,  4,  5,
+ 12, 19, 26, 33, 40, 48, 41, 34,
+ 27, 20, 13,  6,  7, 14, 21, 28,
+ 35, 42, 49, 56, 57, 50, 43, 36,
+ 29, 22, 15, 23, 30, 37, 44, 51,
+ 58, 59, 52, 45, 38, 31, 39, 46,
+ 53, 60, 61, 54, 47, 55, 62, 63,
+ 63, 63, 63, 63, 63, 63, 63, 63, { extra entries for safety in decoder }
+ 63, 63, 63, 63, 63, 63, 63, 63);
+
+
+
+{ Arithmetic utilities }
+
+{GLOBAL}
+function jdiv_round_up (a : long; b : long) : long;
+
+{GLOBAL}
+function jround_up (a : long; b : long) : long;
+
+{GLOBAL}
+procedure jcopy_sample_rows (input_array : JSAMPARRAY;
+                             source_row : int;
+                             output_array : JSAMPARRAY; dest_row : int;
+                 num_rows : int; num_cols : JDIMENSION);
+
+{GLOBAL}
+procedure jcopy_block_row (input_row : JBLOCKROW;
+                           output_row : JBLOCKROW;
+                           num_blocks : JDIMENSION);
+
+{GLOBAL}
+procedure jzero_far (target : pointer;{far} bytestozero : size_t);
+
+procedure FMEMZERO(target : pointer; size : size_t);
+
+procedure FMEMCOPY(dest,src : pointer; size : size_t);
+
+implementation
+
+{GLOBAL}
+function jdiv_round_up (a : long; b : long) : long;
+{ Compute a/b rounded up to next integer, ie, ceil(a/b) }
+{ Assumes a >= 0, b > 0 }
+begin
+  jdiv_round_up := (a + b - long(1)) div b;
+end;
+
+
+{GLOBAL}
+function jround_up (a : long; b : long) : long;
+{ Compute a rounded up to next multiple of b, ie, ceil(a/b)*b }
+{ Assumes a >= 0, b > 0 }
+begin
+  Inc(a, b - long(1));
+  jround_up := a - (a mod b);
+end;
+
+{ On normal machines we can apply MEMCOPY() and MEMZERO() to sample arrays
+  and coefficient-block arrays.  This won't work on 80x86 because the arrays
+  are FAR and we're assuming a small-pointer memory model.  However, some
+  DOS compilers provide far-pointer versions of memcpy() and memset() even
+  in the small-model libraries.  These will be used if USE_FMEM is defined.
+  Otherwise, the routines below do it the hard way.  (The performance cost
+  is not all that great, because these routines aren't very heavily used.) }
+
+
+{$ifndef NEED_FAR_POINTERS}      { normal case, same as regular macros }
+procedure FMEMZERO(target : pointer; size : size_t);
+begin
+  FillChar(target^, size, 0);
+end;
+
+procedure FMEMCOPY(dest,src : pointer; size : size_t);
+begin
+  Move(src^, dest^, size);
+end;
+
+
+{$else}                       { 80x86 case, define if we can }
+  {$ifdef USE_FMEM}
+   FMEMCOPY(dest,src,size)    _fmemcpy((void FAR *)(dest), (const void FAR *)(src), (size_t)(size))
+   FMEMZERO(target,size)      _fmemset((void FAR *)(target), 0, (size_t)(size))
+  {$endif}
+{$endif}
+
+
+{GLOBAL}
+procedure jcopy_sample_rows (input_array : JSAMPARRAY; source_row : int;
+                             output_array : JSAMPARRAY; dest_row : int;
+                 num_rows : int; num_cols : JDIMENSION);
+{ Copy some rows of samples from one place to another.
+  num_rows rows are copied from input_array[source_row++]
+  to output_array[dest_row++]; these areas may overlap for duplication.
+  The source and destination arrays must be at least as wide as num_cols. }
+var
+  inptr, outptr : JSAMPLE_PTR; {register}
+{$ifdef FMEMCOPY}
+  count : size_t; {register}
+{$else}
+  count : JDIMENSION; {register}
+{$endif}
+  row : int; {register}
+begin
+{$ifdef FMEMCOPY}
+  count := size_t(num_cols * SIZEOF(JSAMPLE));
+{$endif}
+  Inc(JSAMPROW_PTR(input_array), source_row);
+  Inc(JSAMPROW_PTR(output_array), dest_row);
+
+  for row := pred(num_rows) downto 0 do
+  begin
+    inptr := JSAMPLE_PTR(input_array^[0]);
+    Inc(JSAMPROW_PTR(input_array));
+    outptr := JSAMPLE_PTR(output_array^[0]);
+    Inc(JSAMPROW_PTR(output_array));
+{$ifdef FMEMCOPY}
+    FMEMCOPY(outptr, inptr, count);
+{$else}
+    for count := pred(num_cols) downto 0 do
+    begin
+      outptr^ := inptr^;        { needn't bother with GETJSAMPLE() here }
+      Inc(inptr);
+      Inc(outptr);
+    end;
+{$endif}
+  end;
+end;
+
+
+{GLOBAL}
+procedure jcopy_block_row (input_row : JBLOCKROW;
+                           output_row : JBLOCKROW;
+                           num_blocks : JDIMENSION);
+{ Copy a row of coefficient blocks from one place to another. }
+{$ifdef FMEMCOPY}
+begin
+  FMEMCOPY(output_row, input_row, num_blocks * (DCTSIZE2 * SIZEOF(JCOEF)));
+{$else}
+var
+  inptr, outptr : JCOEFPTR; {register}
+  count : long; {register}
+begin
+  inptr := JCOEFPTR (input_row);
+  outptr := JCOEFPTR (output_row);
+  for count := long(num_blocks) * DCTSIZE2 -1 downto 0 do
+  begin
+    outptr^ := inptr^;
+    Inc(outptr);
+    Inc(inptr);
+  end;
+{$endif}
+end;
+
+
+{GLOBAL}
+procedure jzero_far (target : pointer;{far} bytestozero : size_t);
+{ Zero out a chunk of FAR memory. }
+{ This might be sample-array data, block-array data, or alloc_large data. }
+{$ifdef FMEMZERO}
+begin
+  FMEMZERO(target, bytestozero);
+{$else}
+var
+  ptr : byteptr;
+  count : size_t; {register}
+begin
+  ptr := target;
+  for count := bytestozero-1 downto 0 do
+  begin
+    ptr^ := 0;
+    Inc(ptr);
+  end;
+{$endif}
+end;
+
+end.
diff --git a/src/lib/vampimg/JpegLib/readme.txt b/src/lib/vampimg/JpegLib/readme.txt

new file mode 100644 (file)

index 0000000..6df345b
--- /dev/null
+++ b/src/lib/vampimg/JpegLib/readme.txt
@@ -0,0 +1,381 @@
+_____________________________________________________________________________
+
+PASJPEG 1.1                                                   May 29th, 1999
+
+Based on the Independent JPEG Group's JPEG software release 6b
+
+Copyright (C) 1996,1998,1999 by NOMSSI NZALI Jacques H. C.
+[kn&n DES]         See "Legal issues" for conditions of distribution and use.
+_____________________________________________________________________________
+
+
+Information in this file
+========================
+
+  o Introduction
+  o Notes
+  o File list
+  o Translation
+  o Legal issues
+  o Archive Locations
+
+Introduction
+============
+
+PASJPEG is a port of the sixth public release of the IJG C source (release
+6b of 27-Mar-98) [3], that implements JPEG baseline, extended-sequential, and
+progressive compression processes to Turbo Pascal 7.0 for DOS (TP). The code
+has been tested under Delphi 3.0, it can be ported to other Pascal
+environments, since many compilers try to be compatible to TP.
+
+JPEG (pronounced "jay-peg") is a standardized familly of algorithms for
+compression of continous tone still images. Most JPEG processes are lossy,
+the output image is not exactly identical to the input image. However, on
+typical photographic images, very good compression levels can be obtained
+with no visible change, and remarkably high compression levels are possible
+if you can tolerate a low-quality image [1],[2]. The Independent JPEG Group
+(IJG) has created a free, portable C library for JPEG compression and
+decompression of JPEG images.
+
+The IJG documentation (system architecture, using the IJG JPEG library,
+usage and file list) is a must read. The files DEMO.PAS, TEST.PAS, CJPEG.PAS,
+DJPEG.PAS and EXAMPLE.PAS demonstrate the usage of the JPEG decompression
+and compression library. The RDJPGCOM application shows how to parse a JFIF
+file.
+
+Notes:
+======
+
+* Please report any errors/problems you may find in code and in the
+  documentation (e.g. this README.TXT file).
+
+* The sample applications (CJPEG, DJPEG) doesn't support all the options
+  of the original C code. WRJPGCOM is not ported.
+
+* Environment variable JPEGMEM syntax changed;
+
+* You can modify the jpeg.pas unit from the Delphi 3 distribution to
+  use PasJPEG.
+
+Change log
+==========
+
+1. bugs fixed:
+   * in procedure read_gif_map(), unit RDCOLMAP.PAS (used by DJPEG sample
+     application). Davie Lee Reed <smatters@iquest.net>
+   * -dct int and -dct fast now bytewise equal to the IJG output.
+   * -dct float produced large files
+
+2. Support for scripts
+
+3. BASM version of JIDCTINT.PAS for Delphi 2 and 3.
+
+4. images with integral sampling ratios were not decoded correctly.
+   Create a jpeg file with cjpeg and the option "-sample 4x1" and try to decode
+   it with any software that uses PasJpeg. Thanks to Jannie Gerber for reporting
+   this with a fix: In JDSAMPLE.PAS, procedure int_upsample(),
+
+    for h := pred(h_expand) downto 0 do
+    begin
+      outptr^ := invalue;
+ +=>  inc(outptr);   { this is the culprit that was left out!!! }
+      Dec(outcount);
+    end;
+
+File list
+=========
+
+Here is a road map to the files in the PasJPEG distribution.  The
+distribution includes the JPEG library proper, plus two application
+programs ("cjpeg" and "djpeg") which use the library to convert JPEG
+files to and from some other popular image formats.  A third application
+"jpegtran" uses the library to do lossless conversion between different
+variants of JPEG.  There is also the stand-alone applications "rdjpgcom".
+
+Documentation(see README for a guide to the documentation files):
+
+readme.txt      Introduction, Documentation
+
+Additional files
+
+demo.pas        Demo program, uses example.pas
+example.pas     Sample code for calling JPEG library.
+test.pas        Sample application code for demo.pas
+
+Configuration/installation files and programs (see install.doc for more info):
+
+jconfig.inc     Configuration declarations.
+
+*.ijg           script files
+
+Pascal source code files:
+
+jinclude.pas    Central include file used by all IJG .c files to reference
+    system include files.
+jpeglib.pas     JPEG library's internal data structures, exported data
+                and function declarations.
+jmorecfg.pas    Additional configuration declarations; need not be changed
+                for a standard installation.
+jdeferr.pas     defines the error and message text.
+jerror.pas      Declares JPEG library's error and trace message codes.
+jinclude.pas    the place to specify system depedent input/output code.
+jdct.pas        Private declarations for forward & reverse DCT subsystems.
+
+These files contain most of the functions intended to be called directly by
+an application program:
+
+jcapimin.pas    Application program interface: core routines for compression.
+jcapistd.pas    Application program interface: standard compression.
+jdapimin.pas    Application program interface: core routines for decompression.
+jdapistd.pas    Application program interface: standard decompression.
+jcomapi.pas     Application program interface routines common to compression
+                and decompression.
+jcparam.pas     Compression parameter setting helper routines.
+jctrans.pas     API and library routines for transcoding compression.
+jdtrans.pas     API and library routines for transcoding decompression.
+
+Compression side of the library:
+
+jcinit.pas      Initialization: determines which other modules to use.
+jcmaster.pas    Master control: setup and inter-pass sequencing logic.
+jcmainct.pas    Main buffer controller (preprocessor => JPEG compressor).
+jcprepct.pas    Preprocessor buffer controller.
+jccoefct.pas    Buffer controller for DCT coefficient buffer.
+jccolor.pas     Color space conversion.
+jcsample.pas    Downsampling.
+jcdctmgr.pas    DCT manager (DCT implementation selection & control).
+jfdctint.pas    Forward DCT using slow-but-accurate integer method.
+jfdctfst.pas    Forward DCT using faster, less accurate integer method.
+jfdctflt.pas    Forward DCT using floating-point arithmetic.
+jchuff.pas      Huffman entropy coding for sequential JPEG.
+jcphuff.pas     Huffman entropy coding for progressive JPEG.
+jcmarker.pas    JPEG marker writing.
+jdatadst.pas    Data destination manager for stdio output.
+
+Decompression side of the library:
+
+jdmaster.pas    Master control: determines which other modules to use.
+jdinput.pas     Input controller: controls input processing modules.
+jdmainct.pas    Main buffer controller (JPEG decompressor => postprocessor).
+jdcoefct.pas    Buffer controller for DCT coefficient buffer.
+jdpostct.pas    Postprocessor buffer controller.
+jdmarker.pas    JPEG marker reading.
+jdhuff.pas      Huffman entropy decoding for sequential JPEG.
+jdphuff.pas     Huffman entropy decoding for progressive JPEG.
+jddctmgr.pas    IDCT manager (IDCT implementation selection & control).
+jidctint.pas    Inverse DCT using slow-but-accurate integer method.
+jidctasm.pas    BASM specific version of jidctint.pas for 32bit Delphi.
+jidctfst.pas    Inverse DCT using faster, less accurate integer method.
+jidctflt.pas    Inverse DCT using floating-point arithmetic.
+jidctred.pas    Inverse DCTs with reduced-size outputs.
+jidct2d.pas     How to for a direct 2D Inverse DCT - not used
+jdsample.pas    Upsampling.
+jdcolor.pas     Color space conversion.
+jdmerge.pas     Merged upsampling/color conversion (faster, lower quality).
+jquant1.pas     One-pass color quantization using a fixed-spacing colormap.
+jquant2.pas     Two-pass color quantization using a custom-generated colormap.
+    Also handles one-pass quantization to an externally given map.
+jdatasrc.pas    Data source manager for stdio input.
+
+Support files for both compression and decompression:
+
+jerror.pas      Standard error handling routines (application replaceable).
+jmemmgr.pas     System-independent (more or less) memory management code.
+jutils.pas      Miscellaneous utility routines.
+
+jmemmgr.pas relies on a system-dependent memory management module.  The
+PASJPEG distribution includes the following implementations of the system-
+dependent module:
+
+jmemnobs.pas    "No backing store": assumes adequate virtual memory exists.
+jmemdos.pas     Custom implementation for MS-DOS (16-bit environment only):
+                can use extended and expanded memory as well as temporary
+                files.
+jmemsys.pas     A skeleton with all the declaration you need to create a
+                working system-dependent JPEG memory manager on unusual
+                systems.
+
+Exactly one of the system-dependent units should be used in jmemmgr.pas.
+
+jmemdosa.pas    BASM 80x86 assembly code support for jmemdos.pas; used only
+                in MS-DOS-specific configurations of the JPEG library.
+
+
+Applications using the library should use jmorecfg, jerror, jpeglib, and
+include jconfig.inc.
+
+CJPEG/DJPEG/JPEGTRAN
+
+Pascal source code files:
+
+cderror.pas     Additional error and trace message codes for cjpeg/djpeg.
+                Not used, Those errors have been added to jdeferr.
+cjpeg.pas       Main program for cjpeg.
+djpeg.pas       Main program for djpeg.
+jpegtran.pas    Main program for jpegtran.
+cdjpeg.pas      Utility routines used by all three programs.
+rdcolmap.pas    Code to read a colormap file for djpeg's "-map" switch.
+rdswitch.pas    Code to process some of cjpeg's more complex switches.
+                Also used by jpegtran.
+transupp.pas    Support code for jpegtran: lossless image manipulations.
+
+fcache.pas
+rdswitch.pas    Code to process some of cjpeg's more complex switches.
+                Also used by jpegtran.
+
+Image file writer modules for djpeg:
+
+wrbmp.pas       BMP file output.
+wrppm.pas PPM/PGM file output.
+wrtarga.pas     Targa file output.
+
+Image file reader modules for cjpeg:
+
+rdbmp.pas       BMP file input.
+rdppm.pas       PPM/PGM file input.
+rdtarga.pas     Targa file input. - NOT READY YET
+
+This program does not depend on the JPEG library
+
+rdjpgcom.pas  Stand-alone rdjpgcom application.
+
+
+Translation
+===========
+
+TP is unit-centric, exported type definitions and routines are declared
+in the "interface" part of the unit, "make" files are not needed.
+Macros are not supported, they were either copied as needed or translated
+to Pascal routines (procedure). The procedures will be replaced by code in
+later releases.
+Conditional defines that indicate whether to include various optional
+functions are defined in the file JCONFIG.INC. This file is included first
+in all source files.
+
+The base type definitions are in the unit JMORECFG.PAS. The error handling
+macros have been converted to procedures in JERROR.PAS. The error codes are
+in JDEFERR.PAS. jpegint.h and jpeglib.h were merged into one large unit
+JPEGLIB.PAS containing type definitions with global scope.
+
+The translation of the header file is the most sophisticated work, a good
+understanding of the syntax is required. Once the header files are done,
+the translation turns into a lot of editing work. Each C source file was
+converted to a unit by editing the syntax (separate variable definition
+and usage, define labels, group variable definitions, expanding macros, etc).
+
+The IJG source labels routines GLOBAL, METHODDEF and LOCAL. All globals
+routines are in the interface section of the units. The "far" directive is
+used for methods (METHODDEF).
+
+Some C  ->  Pascal  examples.
+
+* "{"  -> "begin"    "->"  ->  "^."        " = "  -> " := "  "<<"  -> " shl "
+  "}"  -> "end;"     "!="  ->  "<>"        " == " -> " = "   ">>"  -> " shr "
+  "/*" -> "{"      routine ->  function    "0x"   -> "$"
+  "*/" -> "}"      (void)      procedure   "NULL" -> "NIL"
+
+* structs are records, Unions are variable records, pointers are always far,
+  the operators && and || (and/or) have not the same priority in both
+  languages, so parenthesis are important. The Pascal "case" doesn't have the
+  falltrough option of the C "switch" statement, my work around is to split
+  one "switch" statement into many case statements.
+* The pointer type in C is not readily interchangeable. It is used to address
+  an array (Pascal pointer to an array) or in pointer arithmetic a pointer to
+  a single element. I've used the Inc() statement with type casting to
+  translate pointer arithmetic most of the time.
+
+  C example:
+    typedef JSAMPLE* JSAMPROW;  /* ptr to one image row of pixel samples. */
+
+  Pascal
+  type
+    JSAMPLE_PTR = ^JSAMPLE;     { ptr to a single pixel sample. }
+    jTSample = 0..(MaxInt div SIZEOF(JSAMPLE))-1;
+    JSAMPLE_ARRAY = Array[jTSample] of JSAMPLE;  {far}
+    JSAMPROW = ^JSAMPLE_ARRAY;  { ptr to one image row of pixel samples. }
+
+  The following code
+
+    JSAMPROW buffer0, buffer1;  /* ptr to a JSAMPLE buffer. */
+
+    ...
+
+    buffer1 = buffer0 + i;
+
+  can be translated to
+
+  var
+    buffer0, buffer1 : JSAMPROW;
+
+  ...
+
+    buffer1 := buffer0;
+    Inc(JSAMPLE_PTR(buffer1), i);
+
+  or
+
+    buffer1 := JSAMPROW(@ buffer0^[i]);
+
+  Declaring the variables as JSAMPLE_PTR may reduce type casting in some
+  places. I use help pointers to handle negative array offsets.
+
+While translating the type of function parameter from C to Pascal, one can
+often use "var", "const", or "array of" parameters instead of pointers.
+
+While translating for(;;)-loops with more than one induction variable to
+Pascal "for to/downto do"-loops, the extra induction variables have to be
+manually updated at the end of the loop and before "continue"-statements.
+
+
+Legal issues
+============
+
+Copyright (C) 1996,1998 by Jacques Nomssi Nzali
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the author be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+
+
+Archive Locations:
+==================
+
+[1] Thomas G. Lane, JPEG FAQ
+
+      in comp.graphics.misc and related newsgroups
+
+[2] Wallace, Gregory K.: The JPEG Still Picture Compression Standard
+
+      ftp.uu.net, graphics/jpeg/wallace.ps.Z
+
+[3] The Independent JPEG Group C library for JPEG encoding and decoding,
+    rev 6b.
+
+      ftp://ftp.uu.net/graphics/jpeg/
+
+      or SimTel in msdos/graphics/
+
+[4] JPEG implementation, written by the PVRG group at Stanford,
+      ftp havefun.stanford.edu:/pub/jpeg/JPEGv1.2.tar.Z.
+
+[5] PASJPEG.ZIP at NView ftp site
+
+      ftp://druckfix.physik.tu-chemnitz.de/pub/nv/
+      http://www.tu-chemnitz.de/~nomssi/pub/pasjpeg.zip
+
+[6] The PasJPEG home page with links
+
+      http://www.tu-chemnitz.de/~nomssi/pasjpeg.html
+_____________________________________________________________________________
diff --git a/src/lib/vampimg/ZLib/dzlib.pas b/src/lib/vampimg/ZLib/dzlib.pas

new file mode 100644 (file)

index 0000000..05e278d
--- /dev/null
+++ b/src/lib/vampimg/ZLib/dzlib.pas
@@ -0,0 +1,523 @@
+{*******************************************************}
+{                                                       }
+{       Delphi Supplemental Components                  }
+{       ZLIB Data Compression Interface Unit            }
+{                                                       }
+{       Copyright (c) 1997 Borland International        }
+{       Copyright (c) 1998 Jacques Nomssi Nzali         }
+{                                                       }
+{*******************************************************}
+
+{
+  Modified for
+  Vampyre Imaging Library
+  by Marek Mauder
+  http://imaginglib.sourceforge.net
+
+  You can choose which pascal zlib implementation will be
+  used. IMPASZLIB and FPCPASZLIB are translations of zlib
+  to pascal so they don't need any *.obj files.
+  The others are interfaces to *.obj files (Windows) or
+  *.so libraries (Linux).
+    Default implementation is IMPASZLIB because it can be compiled
+  by all supported compilers and works on all supported platforms.
+  I usually use implementation with the fastest decompression
+  when building release Win32 binaries.
+    FPCPASZLIB is useful for Lazarus applications. FPC's zlib is linked
+  to exe by default so there is no need to link additional (and almost identical)
+  IMPASZLIB.
+
+  There is a small speed comparison table of some of the
+  supported implementations (TGA image 28 311 570 bytes, compression level = 6,
+  Delphi 9, Win32, Athlon XP 1900).
+
+                 ZLib version Decompression  Compression   Comp. Size
+  IMPASZLIB     |   1.1.2   |    824 ms    |  4 280 ms  |  18 760 133 B
+  ZLIBEX        |   1.2.2   |    710 ms    |  1 590 ms* |  19 056 621 B
+  DELPHIZLIB    |   1.0.4   |    976 ms    |  9 190 ms  |  18 365 562 B
+  ZLIBPAS       |   1.2.3   |    680 ms    |  3 790  ms |  18 365 387 B
+    * obj files are compiled with compression level hardcoded to 1 (fastest)
+}
+
+unit dzlib;
+
+{$I ImagingOptions.inc}
+
+interface
+
+{$DEFINE IMPASZLIB}
+{ $DEFINE ZLIBPAS}
+{ $DEFINE FPCPASZLIB}
+{ $DEFINE ZLIBEX}
+{ $DEFINE DELPHIZLIB}
+
+{ Automatically use FPC's PasZLib when compiling with FPC.}
+
+{$IFDEF FPC}
+  {$UNDEF IMPASZLIB}
+  {$DEFINE FPCPASZLIB}
+{$ENDIF}
+
+uses
+{$IF Defined(IMPASZLIB)}
+  { Use paszlib modified by me for Delphi and FPC }
+  imzdeflate, imzinflate, impaszlib,
+{$ELSEIF Defined(FPCPASZLIB)}
+  { Use FPC's paszlib }
+  zbase, paszlib,
+{$ELSEIF Defined(ZLIBPAS)}
+  { Pascal interface to ZLib shipped with ZLib C source }
+  zlibpas,
+{$ELSEIF Defined(ZLIBEX)}
+  { Use ZlibEx unit }
+  ZLibEx,
+{$ELSEIF Defined(DELPHIZLIB)}
+  { Use ZLib unit shipped with Delphi }
+  ZLib,
+{$IFEND}
+  ImagingTypes, SysUtils, Classes;
+
+{$IF Defined(IMPASZLIB) or Defined(FPCPASZLIB) or Defined(ZLIBPAS)}
+type
+  TZStreamRec = z_stream;
+{$IFEND}
+
+const
+  Z_NO_FLUSH      = 0;
+  Z_PARTIAL_FLUSH = 1;
+  Z_SYNC_FLUSH    = 2;
+  Z_FULL_FLUSH    = 3;
+  Z_FINISH        = 4;
+
+  Z_OK            =  0;
+  Z_STREAM_END    =  1;
+  Z_NEED_DICT     =  2;
+  Z_ERRNO         = -1;
+  Z_STREAM_ERROR  = -2;
+  Z_DATA_ERROR    = -3;
+  Z_MEM_ERROR     = -4;
+  Z_BUF_ERROR     = -5;
+  Z_VERSION_ERROR = -6;
+
+  Z_NO_COMPRESSION       =  0;
+  Z_BEST_SPEED           =  1;
+  Z_BEST_COMPRESSION     =  9;
+  Z_DEFAULT_COMPRESSION  = -1;
+
+  Z_FILTERED            = 1;
+  Z_HUFFMAN_ONLY        = 2;
+  Z_RLE                 = 3;
+  Z_DEFAULT_STRATEGY    = 0;
+
+  Z_BINARY   = 0;
+  Z_ASCII    = 1;
+  Z_UNKNOWN  = 2;
+
+  Z_DEFLATED = 8;
+
+type
+  { Abstract ancestor class }
+  TCustomZlibStream = class(TStream)
+  private
+    FStrm: TStream;
+    FStrmPos: Integer;
+    FOnProgress: TNotifyEvent;
+    FZRec: TZStreamRec;
+    FBuffer: array [Word] of Byte;
+  protected
+    procedure Progress(Sender: TObject); dynamic;
+    property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
+    constructor Create(Strm: TStream);
+  end;
+
+{ TCompressionStream compresses data on the fly as data is written to it, and
+  stores the compressed data to another stream.
+
+  TCompressionStream is write-only and strictly sequential. Reading from the
+  stream will raise an exception. Using Seek to move the stream pointer
+  will raise an exception.
+
+  Output data is cached internally, written to the output stream only when
+  the internal output buffer is full.  All pending output data is flushed
+  when the stream is destroyed.
+
+  The Position property returns the number of uncompressed bytes of
+  data that have been written to the stream so far.
+
+  CompressionRate returns the on-the-fly percentage by which the original
+  data has been compressed:  (1 - (CompressedBytes / UncompressedBytes)) * 100
+  If raw data size = 100 and compressed data size = 25, the CompressionRate
+  is 75%
+
+  The OnProgress event is called each time the output buffer is filled and
+  written to the output stream.  This is useful for updating a progress
+  indicator when you are writing a large chunk of data to the compression
+  stream in a single call.}
+
+
+  TCompressionLevel = (clNone, clFastest, clDefault, clMax);
+
+  TCompressionStream = class(TCustomZlibStream)
+  private
+    function GetCompressionRate: Single;
+  public
+    constructor Create(CompressionLevel: TCompressionLevel; Dest: TStream);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+    property CompressionRate: Single read GetCompressionRate;
+    property OnProgress;
+  end;
+
+{ TDecompressionStream decompresses data on the fly as data is read from it.
+
+  Compressed data comes from a separate source stream.  TDecompressionStream
+  is read-only and unidirectional; you can seek forward in the stream, but not
+  backwards.  The special case of setting the stream position to zero is
+  allowed.  Seeking forward decompresses data until the requested position in
+  the uncompressed data has been reached.  Seeking backwards, seeking relative
+  to the end of the stream, requesting the size of the stream, and writing to
+  the stream will raise an exception.
+
+  The Position property returns the number of bytes of uncompressed data that
+  have been read from the stream so far.
+
+  The OnProgress event is called each time the internal input buffer of
+  compressed data is exhausted and the next block is read from the input stream.
+  This is useful for updating a progress indicator when you are reading a
+  large chunk of data from the decompression stream in a single call.}
+
+  TDecompressionStream = class(TCustomZlibStream)
+  public
+    constructor Create(Source: TStream);
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(Offset: Longint; Origin: Word): Longint; override;
+    property OnProgress;
+  end;
+
+
+
+{ CompressBuf compresses data, buffer to buffer, in one call.
+   In: InBuf = ptr to compressed data
+       InBytes = number of bytes in InBuf
+  Out: OutBuf = ptr to newly allocated buffer containing decompressed data
+       OutBytes = number of bytes in OutBuf   }
+procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
+  var OutBuf: Pointer; var OutBytes: Integer;
+  CompressLevel: Integer = Z_DEFAULT_COMPRESSION;
+  CompressStrategy: Integer = Z_DEFAULT_STRATEGY);
+
+{ DecompressBuf decompresses data, buffer to buffer, in one call.
+   In: InBuf = ptr to compressed data
+       InBytes = number of bytes in InBuf
+       OutEstimate = zero, or est. size of the decompressed data
+  Out: OutBuf = ptr to newly allocated buffer containing decompressed data
+       OutBytes = number of bytes in OutBuf   }
+procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
+ OutEstimate: Integer; var OutBuf: Pointer; var OutBytes: Integer);
+
+
+type
+  EZlibError = class(Exception);
+  ECompressionError = class(EZlibError);
+  EDecompressionError = class(EZlibError);
+
+implementation
+
+const
+  ZErrorMessages: array[0..9] of PAnsiChar = (
+    'need dictionary',        // Z_NEED_DICT      (2)
+    'stream end',             // Z_STREAM_END     (1)
+    '',                       // Z_OK             (0)
+    'file error',             // Z_ERRNO          (-1)
+    'stream error',           // Z_STREAM_ERROR   (-2)
+    'data error',             // Z_DATA_ERROR     (-3)
+    'insufficient memory',    // Z_MEM_ERROR      (-4)
+    'buffer error',           // Z_BUF_ERROR      (-5)
+    'incompatible version',   // Z_VERSION_ERROR  (-6)
+    '');
+
+function zlibAllocMem(AppData: Pointer; Items, Size: Cardinal): Pointer;
+begin
+  GetMem(Result, Items*Size);
+end;
+
+procedure zlibFreeMem(AppData, Block: Pointer);
+begin
+  FreeMem(Block);
+end;
+
+function CCheck(code: Integer): Integer;
+begin
+  Result := code;
+  if code < 0 then
+    raise ECompressionError.Create('zlib: ' + ZErrorMessages[2 - code]);
+end;
+
+function DCheck(code: Integer): Integer;
+begin
+  Result := code;
+  if code < 0 then
+    raise EDecompressionError.Create('zlib: ' + ZErrorMessages[2 - code]);
+end;
+
+procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
+  var OutBuf: Pointer; var OutBytes: Integer;
+  CompressLevel, CompressStrategy: Integer);
+var
+  strm: TZStreamRec;
+  P: Pointer;
+begin
+  FillChar(strm, sizeof(strm), 0);
+{$IFNDEF FPCPASZLIB}
+  strm.zalloc := @zlibAllocMem;
+  strm.zfree := @zlibFreeMem;
+{$ENDIF}
+  OutBytes := ((InBytes + (InBytes div 10) + 12) + 255) and not 255;
+  GetMem(OutBuf, OutBytes);
+  try
+    strm.next_in := InBuf;
+    strm.avail_in := InBytes;
+    strm.next_out := OutBuf;
+    strm.avail_out := OutBytes;
+
+    CCheck(deflateInit2(strm, CompressLevel, Z_DEFLATED, MAX_WBITS,
+      DEF_MEM_LEVEL, CompressStrategy));
+
+    try
+      while CCheck(deflate(strm, Z_FINISH)) <> Z_STREAM_END do
+      begin
+        P := OutBuf;
+        Inc(OutBytes, 256);
+        ReallocMem(OutBuf, OutBytes);
+        strm.next_out := Pointer(PtrUInt(OutBuf) + (PtrUInt(strm.next_out) - PtrUInt(P)));
+        strm.avail_out := 256;
+      end;
+    finally
+      CCheck(deflateEnd(strm));
+    end;
+    ReallocMem(OutBuf, strm.total_out);
+    OutBytes := strm.total_out;
+  except
+    zlibFreeMem(nil, OutBuf);
+    raise
+  end;
+end;
+
+procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
+ OutEstimate: Integer; var OutBuf: Pointer; var OutBytes: Integer);
+var
+  strm: TZStreamRec;
+  P: Pointer;
+  BufInc: Integer;
+begin
+  FillChar(strm, sizeof(strm), 0);
+{$IFNDEF FPCPASZLIB}
+  strm.zalloc := @zlibAllocMem;
+  strm.zfree := @zlibFreeMem;
+{$ENDIF}
+  BufInc := (InBytes + 255) and not 255;
+  if OutEstimate = 0 then
+    OutBytes := BufInc
+  else
+    OutBytes := OutEstimate;
+  GetMem(OutBuf, OutBytes);
+  try
+    strm.next_in := InBuf;
+    strm.avail_in := InBytes;
+    strm.next_out := OutBuf;
+    strm.avail_out := OutBytes;
+    DCheck(inflateInit_(strm, zlib_version, sizeof(strm)));
+    try
+      while DCheck(inflate(strm, Z_NO_FLUSH)) <> Z_STREAM_END do
+      begin
+        P := OutBuf;
+        Inc(OutBytes, BufInc);
+        ReallocMem(OutBuf, OutBytes);
+        strm.next_out := Pointer(PtrUInt(OutBuf) + (PtrUInt(strm.next_out) - PtrUInt(P)));
+        strm.avail_out := BufInc;
+      end;
+    finally
+      DCheck(inflateEnd(strm));
+    end;
+    ReallocMem(OutBuf, strm.total_out);
+    OutBytes := strm.total_out;
+  except
+    zlibFreeMem(nil, OutBuf);
+    raise
+  end;
+end;
+
+
+{ TCustomZlibStream }
+
+constructor TCustomZLibStream.Create(Strm: TStream);
+begin
+  inherited Create;
+  FStrm := Strm;
+  FStrmPos := Strm.Position;
+{$IFNDEF FPCPASZLIB}
+  FZRec.zalloc := @zlibAllocMem;
+  FZRec.zfree := @zlibFreeMem;
+{$ENDIF}
+end;
+
+procedure TCustomZLibStream.Progress(Sender: TObject);
+begin
+  if Assigned(FOnProgress) then FOnProgress(Sender);
+end;
+
+{ TCompressionStream }
+
+constructor TCompressionStream.Create(CompressionLevel: TCompressionLevel;
+  Dest: TStream);
+const
+  Levels: array [TCompressionLevel] of ShortInt =
+    (Z_NO_COMPRESSION, Z_BEST_SPEED, Z_DEFAULT_COMPRESSION, Z_BEST_COMPRESSION);
+begin
+  inherited Create(Dest);
+  FZRec.next_out := @FBuffer;
+  FZRec.avail_out := sizeof(FBuffer);
+  CCheck(deflateInit_(FZRec, Levels[CompressionLevel], zlib_version, sizeof(FZRec)));
+end;
+
+destructor TCompressionStream.Destroy;
+begin
+  FZRec.next_in := nil;
+  FZRec.avail_in := 0;
+  try
+    if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+    while (CCheck(deflate(FZRec, Z_FINISH)) <> Z_STREAM_END)
+      and (FZRec.avail_out = 0) do
+    begin
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
+      FZRec.next_out := @FBuffer;
+      FZRec.avail_out := sizeof(FBuffer);
+    end;
+    if FZRec.avail_out < sizeof(FBuffer) then
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer) - FZRec.avail_out);
+  finally
+    deflateEnd(FZRec);
+  end;
+  inherited Destroy;
+end;
+
+function TCompressionStream.Read(var Buffer; Count: Longint): Longint;
+begin
+  raise ECompressionError.Create('Invalid stream operation');
+end;
+
+function TCompressionStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  FZRec.next_in := @Buffer;
+  FZRec.avail_in := Count;
+  if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+  while (FZRec.avail_in > 0) do
+  begin
+    CCheck(deflate(FZRec, 0));
+    if FZRec.avail_out = 0 then
+    begin
+      FStrm.WriteBuffer(FBuffer, sizeof(FBuffer));
+      FZRec.next_out := @FBuffer;
+      FZRec.avail_out := sizeof(FBuffer);
+      FStrmPos := FStrm.Position;
+      Progress(Self);
+    end;
+  end;
+  Result := Count;
+end;
+
+function TCompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
+begin
+  if (Offset = 0) and (Origin = soFromCurrent) then
+    Result := FZRec.total_in
+  else
+    raise ECompressionError.Create('Invalid stream operation');
+end;
+
+function TCompressionStream.GetCompressionRate: Single;
+begin
+  if FZRec.total_in = 0 then
+    Result := 0
+  else
+    Result := (1.0 - (FZRec.total_out / FZRec.total_in)) * 100.0;
+end;
+
+{ TDecompressionStream }
+
+constructor TDecompressionStream.Create(Source: TStream);
+begin
+  inherited Create(Source);
+  FZRec.next_in := @FBuffer;
+  FZRec.avail_in := 0;
+  DCheck(inflateInit_(FZRec, zlib_version, sizeof(FZRec)));
+end;
+
+destructor TDecompressionStream.Destroy;
+begin
+  inflateEnd(FZRec);
+  inherited Destroy;
+end;
+
+function TDecompressionStream.Read(var Buffer; Count: Longint): Longint;
+begin
+  FZRec.next_out := @Buffer;
+  FZRec.avail_out := Count;
+  if FStrm.Position <> FStrmPos then FStrm.Position := FStrmPos;
+  while (FZRec.avail_out > 0) do
+  begin
+    if FZRec.avail_in = 0 then
+    begin
+      FZRec.avail_in := FStrm.Read(FBuffer, sizeof(FBuffer));
+      if FZRec.avail_in = 0 then
+        begin
+          Result := Count - Integer(FZRec.avail_out);
+          Exit;
+        end;
+      FZRec.next_in := @FBuffer;
+      FStrmPos := FStrm.Position;
+      Progress(Self);
+    end;
+    CCheck(inflate(FZRec, 0));
+  end;
+  Result := Count;
+end;
+
+function TDecompressionStream.Write(const Buffer; Count: Longint): Longint;
+begin
+  raise EDecompressionError.Create('Invalid stream operation');
+end;
+
+function TDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
+var
+  I: Integer;
+  Buf: array [0..4095] of Byte;
+begin
+  if (Offset = 0) and (Origin = soFromBeginning) then
+  begin
+    DCheck(inflateReset(FZRec));
+    FZRec.next_in := @FBuffer;
+    FZRec.avail_in := 0;
+    FStrm.Position := 0;
+    FStrmPos := 0;
+  end
+  else if ( (Offset >= 0) and (Origin = soFromCurrent)) or
+          ( ((Offset - Integer(FZRec.total_out)) > 0) and (Origin = soFromBeginning)) then
+  begin
+    if Origin = soFromBeginning then Dec(Offset, FZRec.total_out);
+    if Offset > 0 then
+    begin
+      for I := 1 to Offset div sizeof(Buf) do
+        ReadBuffer(Buf, sizeof(Buf));
+      ReadBuffer(Buf, Offset mod sizeof(Buf));
+    end;
+  end
+  else
+    raise EDecompressionError.Create('Invalid stream operation');
+  Result := FZRec.total_out;
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/imadler.pas b/src/lib/vampimg/ZLib/imadler.pas

new file mode 100644 (file)

index 0000000..ff769a2
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imadler.pas
@@ -0,0 +1,113 @@
+Unit imadler;
+
+{
+  adler32.c -- compute the Adler-32 checksum of a data stream
+  Copyright (C) 1995-1998 Mark Adler
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil;
+
+function adler32(adler : uLong; buf : pBytef; len : uInt) : uLong;
+
+{    Update a running Adler-32 checksum with the bytes buf[0..len-1] and
+   return the updated checksum. If buf is NIL, this function returns
+   the required initial value for the checksum.
+   An Adler-32 checksum is almost as reliable as a CRC32 but can be computed
+   much faster. Usage example:
+
+   var
+     adler : uLong;
+   begin
+     adler := adler32(0, Z_NULL, 0);
+
+     while (read_buffer(buffer, length) <> EOF) do
+       adler := adler32(adler, buffer, length);
+
+     if (adler <> original_adler) then
+       error();
+   end;
+}
+
+implementation
+
+const
+  BASE = uLong(65521); { largest prime smaller than 65536 }
+  {NMAX = 5552; original code with unsigned 32 bit integer }
+  { NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 }
+  NMAX = 3854;        { code with signed 32 bit integer }
+  { NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^31-1 }
+  { The penalty is the time loss in the extra MOD-calls. }
+
+
+{ ========================================================================= }
+
+function adler32(adler : uLong; buf : pBytef; len : uInt) : uLong;
+var
+  s1, s2 : uLong;
+  k : int;
+begin
+  s1 := adler and $ffff;
+  s2 := (adler shr 16) and $ffff;
+
+  if not Assigned(buf) then
+  begin
+    adler32 := uLong(1);
+    exit;
+  end;
+
+  while (len > 0) do
+  begin
+    if len < NMAX then
+      k := len
+    else
+      k := NMAX;
+    Dec(len, k);
+    {
+    while (k >= 16) do
+    begin
+      DO16(buf);
+      Inc(buf, 16);
+      Dec(k, 16);
+    end;
+    if (k <> 0) then
+    repeat
+      Inc(s1, buf^);
+      Inc(puf);
+      Inc(s2, s1);
+      Dec(k);
+    until (k = 0);
+    }
+    while (k > 0) do
+    begin
+      Inc(s1, buf^);
+      Inc(s2, s1);
+      Inc(buf);
+      Dec(k);
+    end;
+    s1 := s1 mod BASE;
+    s2 := s2 mod BASE;
+  end;
+  adler32 := (s2 shl 16) or s1;
+end;
+
+{
+#define DO1(buf,i)
+  begin
+    Inc(s1, buf[i]);
+    Inc(s2, s1);
+  end;
+#define DO2(buf,i)  DO1(buf,i); DO1(buf,i+1);
+#define DO4(buf,i)  DO2(buf,i); DO2(buf,i+2);
+#define DO8(buf,i)  DO4(buf,i); DO4(buf,i+4);
+#define DO16(buf)   DO8(buf,0); DO8(buf,8);
+}
+end.
diff --git a/src/lib/vampimg/ZLib/iminfblock.pas b/src/lib/vampimg/ZLib/iminfblock.pas

new file mode 100644 (file)

index 0000000..413e9b6
--- /dev/null
+++ b/src/lib/vampimg/ZLib/iminfblock.pas
@@ -0,0 +1,951 @@
+Unit iminfblock;
+
+{ infblock.h and
+  infblock.c -- interpret and process block types to last block
+  Copyright (C) 1995-1998 Mark Adler
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  {$IFDEF DEBUG}
+  SysUtils, strutils,
+  {$ENDIF}
+  imzutil, impaszlib;
+
+function inflate_blocks_new(var z : z_stream;
+                            c : check_func;  { check function }
+                            w : uInt     { window size }
+                            ) : pInflate_blocks_state;
+
+function inflate_blocks (var s : inflate_blocks_state;
+                         var z : z_stream;
+                         r : int             { initial return code }
+                         ) : int;
+
+procedure inflate_blocks_reset (var s : inflate_blocks_state;
+                                var z : z_stream;
+                                c : puLong); { check value on output }
+
+
+function inflate_blocks_free(s : pInflate_blocks_state;
+                             var z : z_stream) : int;
+
+procedure inflate_set_dictionary(var s : inflate_blocks_state;
+                                 const d : array of byte;  { dictionary }
+                                 n : uInt);         { dictionary length }
+
+function inflate_blocks_sync_point(var s : inflate_blocks_state) : int;
+
+implementation
+
+uses
+  iminfcodes, iminftrees, iminfutil;
+
+{ Tables for deflate from PKZIP's appnote.txt. }
+Const
+  border : Array [0..18] Of Word  { Order of the bit length code lengths }
+    = (16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15);
+
+{ Notes beyond the 1.93a appnote.txt:
+
+   1. Distance pointers never point before the beginning of the output
+      stream.
+   2. Distance pointers can point back across blocks, up to 32k away.
+   3. There is an implied maximum of 7 bits for the bit length table and
+      15 bits for the actual data.
+   4. If only one code exists, then it is encoded using one bit.  (Zero
+      would be more efficient, but perhaps a little confusing.)  If two
+      codes exist, they are coded using one bit each (0 and 1).
+   5. There is no way of sending zero distance codes--a dummy must be
+      sent if there are none.  (History: a pre 2.0 version of PKZIP would
+      store blocks with no distance codes, but this was discovered to be
+      too harsh a criterion.)  Valid only for 1.93a.  2.04c does allow
+      zero distance codes, which is sent as one code of zero bits in
+      length.
+   6. There are up to 286 literal/length codes.  Code 256 represents the
+      end-of-block.  Note however that the static length tree defines
+      288 codes just to fill out the Huffman codes.  Codes 286 and 287
+      cannot be used though, since there is no length base or extra bits
+      defined for them.  Similarily, there are up to 30 distance codes.
+      However, static trees define 32 codes (all 5 bits) to fill out the
+      Huffman codes, but the last two had better not show up in the data.
+   7. Unzip can check dynamic Huffman blocks for complete code sets.
+      The exception is that a single code would not be complete (see #4).
+   8. The five bits following the block type is really the number of
+      literal codes sent minus 257.
+   9. Length codes 8,16,16 are interpreted as 13 length codes of 8 bits
+      (1+6+6).  Therefore, to output three times the length, you output
+      three codes (1+1+1), whereas to output four times the same length,
+      you only need two codes (1+3).  Hmm.
+  10. In the tree reconstruction algorithm, Code = Code + Increment
+      only if BitLength(i) is not zero.  (Pretty obvious.)
+  11. Correction: 4 Bits: # of Bit Length codes - 4     (4 - 19)
+  12. Note: length code 284 can represent 227-258, but length code 285
+      really is 258.  The last length deserves its own, short code
+      since it gets used a lot in very redundant files.  The length
+      258 is special since 258 - 3 (the min match length) is 255.
+  13. The literal/length and distance code bit lengths are read as a
+      single stream of lengths.  It is possible (and advantageous) for
+      a repeat code (16, 17, or 18) to go across the boundary between
+      the two sets of lengths. }
+
+
+procedure inflate_blocks_reset (var s : inflate_blocks_state;
+                                var z : z_stream;
+                                c : puLong); { check value on output }
+begin
+  if (c <> Z_NULL) then
+    c^ := s.check;
+  if (s.mode = BTREE) or (s.mode = DTREE) then
+    ZFREE(z, s.sub.trees.blens);
+  if (s.mode = CODES) then
+    inflate_codes_free(s.sub.decode.codes, z);
+
+  s.mode := ZTYPE;
+  s.bitk := 0;
+  s.bitb := 0;
+
+  s.write := s.window;
+  s.read := s.window;
+  if Assigned(s.checkfn) then
+  begin
+    s.check := s.checkfn(uLong(0), pBytef(NIL), 0);
+    z.adler := s.check;
+  end;
+  {$IFDEF DEBUG}
+  Tracev('inflate:   blocks reset');
+  {$ENDIF}
+end;
+
+
+function inflate_blocks_new(var z : z_stream;
+                            c : check_func;  { check function }
+                            w : uInt         { window size }
+                            ) : pInflate_blocks_state;
+var
+  s : pInflate_blocks_state;
+begin
+  s := pInflate_blocks_state( ZALLOC(z,1, sizeof(inflate_blocks_state)) );
+  if (s = Z_NULL) then
+  begin
+    inflate_blocks_new := s;
+    exit;
+  end;
+  s^.hufts := huft_ptr( ZALLOC(z, sizeof(inflate_huft), MANY) );
+
+  if (s^.hufts = Z_NULL) then
+  begin
+    ZFREE(z, s);
+    inflate_blocks_new := Z_NULL;
+    exit;
+  end;
+
+  s^.window := pBytef( ZALLOC(z, 1, w) );
+  if (s^.window = Z_NULL) then
+  begin
+    ZFREE(z, s^.hufts);
+    ZFREE(z, s);
+    inflate_blocks_new := Z_NULL;
+    exit;
+  end;
+  s^.zend := s^.window;
+  Inc(s^.zend, w);
+  s^.checkfn := c;
+  s^.mode := ZTYPE;
+  {$IFDEF DEBUG}
+  Tracev('inflate:   blocks allocated');
+  {$ENDIF}
+  inflate_blocks_reset(s^, z, Z_NULL);
+  inflate_blocks_new := s;
+end;
+
+
+function inflate_blocks (var s : inflate_blocks_state;
+                         var z : z_stream;
+                         r : int) : int;           { initial return code }
+label
+  start_btree, start_dtree,
+  start_blkdone, start_dry,
+  start_codes;
+
+var
+  t : uInt;               { temporary storage }
+  b : uLong;              { bit buffer }
+  k : uInt;               { bits in bit buffer }
+  p : pBytef;             { input data pointer }
+  n : uInt;               { bytes available there }
+  q : pBytef;             { output window write pointer }
+  m : uInt;               { bytes to end of window or read pointer }
+{ fixed code blocks }
+var
+  bl, bd : uInt;
+  tl, td : pInflate_huft;
+var
+  h : pInflate_huft;
+  i, j, c : uInt;
+var
+  cs : pInflate_codes_state;
+begin
+  { copy input/output information to locals }
+  p := z.next_in;
+  n := z.avail_in;
+  b := s.bitb;
+  k := s.bitk;
+  q := s.write;
+  if ptr2int(q) < ptr2int(s.read) then
+    m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+  else
+    m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+{ decompress an inflated block }
+
+
+  { process input based on current state }
+  while True do
+  Case s.mode of
+    ZTYPE:
+      begin
+        {NEEDBITS(3);}
+        while (k < 3) do
+        begin
+          {NEEDBYTE;}
+          if (n <> 0) then
+            r :=Z_OK
+          else
+          begin
+            {UPDATE}
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_blocks := inflate_flush(s,z,r);
+            exit;
+          end;
+          Dec(n);
+          b := b or (uLong(p^) shl k);
+          Inc(p);
+          Inc(k, 8);
+        end;
+
+        t := uInt(b) and 7;
+        s.last := boolean(t and 1);
+        case (t shr 1) of
+          0:                         { stored }
+            begin
+              {$IFDEF DEBUG}
+              if s.last then
+                Tracev('inflate:     stored block (last)')
+              else
+                Tracev('inflate:     stored block');
+              {$ENDIF}
+              {DUMPBITS(3);}
+              b := b shr 3;
+              Dec(k, 3);
+
+              t := k and 7;                  { go to byte boundary }
+              {DUMPBITS(t);}
+              b := b shr t;
+              Dec(k, t);
+
+              s.mode := LENS;                { get length of stored block }
+            end;
+          1:                         { fixed }
+            begin
+              begin
+                {$IFDEF DEBUG}
+                if s.last then
+                  Tracev('inflate:     fixed codes blocks (last)')
+                else
+                  Tracev('inflate:     fixed codes blocks');
+                {$ENDIF}
+                inflate_trees_fixed(bl, bd, tl, td, z);
+                s.sub.decode.codes := inflate_codes_new(bl, bd, tl, td, z);
+                if (s.sub.decode.codes = Z_NULL) then
+                begin
+                  r := Z_MEM_ERROR;
+                  { update pointers and return }
+                  s.bitb := b;
+                  s.bitk := k;
+                  z.avail_in := n;
+                  Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+                  z.next_in := p;
+                  s.write := q;
+                  inflate_blocks := inflate_flush(s,z,r);
+                  exit;
+                end;
+              end;
+              {DUMPBITS(3);}
+              b := b shr 3;
+              Dec(k, 3);
+
+              s.mode := CODES;
+            end;
+          2:                         { dynamic }
+            begin
+              {$IFDEF DEBUG}
+              if s.last then
+                Tracev('inflate:     dynamic codes block (last)')
+              else
+                Tracev('inflate:     dynamic codes block');
+              {$ENDIF}
+              {DUMPBITS(3);}
+              b := b shr 3;
+              Dec(k, 3);
+
+              s.mode := TABLE;
+            end;
+          3:
+            begin                   { illegal }
+              {DUMPBITS(3);}
+              b := b shr 3;
+              Dec(k, 3);
+
+              s.mode := BLKBAD;
+              z.msg := 'invalid block type';
+              r := Z_DATA_ERROR;
+              { update pointers and return }
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_blocks := inflate_flush(s,z,r);
+              exit;
+            end;
+        end;
+      end;
+    LENS:
+      begin
+        {NEEDBITS(32);}
+        while (k < 32) do
+        begin
+          {NEEDBYTE;}
+          if (n <> 0) then
+            r :=Z_OK
+          else
+          begin
+            {UPDATE}
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_blocks := inflate_flush(s,z,r);
+            exit;
+          end;
+          Dec(n);
+          b := b or (uLong(p^) shl k);
+          Inc(p);
+          Inc(k, 8);
+        end;
+
+        if (((not b) shr 16) and $ffff) <> (b and $ffff) then
+        begin
+          s.mode := BLKBAD;
+          z.msg := 'invalid stored block lengths';
+          r := Z_DATA_ERROR;
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+        s.sub.left := uInt(b) and $ffff;
+        k := 0;
+        b := 0;                      { dump bits }
+        {$IFDEF DEBUG}
+        Tracev('inflate:       stored length '+IntToStr(s.sub.left));
+        {$ENDIF}
+        if s.sub.left <> 0 then
+          s.mode := STORED
+        else
+          if s.last then
+            s.mode := DRY
+          else
+            s.mode := ZTYPE;
+      end;
+    STORED:
+      begin
+        if (n = 0) then
+        begin
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+        {NEEDOUT}
+        if (m = 0) then
+        begin
+          {WRAP}
+          if (q = s.zend) and (s.read <> s.window) then
+          begin
+            q := s.window;
+            if ptr2int(q) < ptr2int(s.read) then
+              m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+            else
+              m := uInt(ptr2int(s.zend)-ptr2int(q));
+          end;
+
+          if (m = 0) then
+          begin
+            {FLUSH}
+            s.write := q;
+            r := inflate_flush(s,z,r);
+            q := s.write;
+            if ptr2int(q) < ptr2int(s.read) then
+              m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+            else
+              m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+            {WRAP}
+            if (q = s.zend) and (s.read <> s.window) then
+            begin
+              q := s.window;
+              if ptr2int(q) < ptr2int(s.read) then
+                m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+              else
+                m := uInt(ptr2int(s.zend)-ptr2int(q));
+            end;
+
+            if (m = 0) then
+            begin
+              {UPDATE}
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_blocks := inflate_flush(s,z,r);
+              exit;
+            end;
+          end;
+        end;
+        r := Z_OK;
+
+        t := s.sub.left;
+        if (t > n) then
+          t := n;
+        if (t > m) then
+          t := m;
+        zmemcpy(q, p, t);
+        Inc(p, t);  Dec(n, t);
+        Inc(q, t);  Dec(m, t);
+        Dec(s.sub.left, t);
+        if (s.sub.left = 0) then
+        begin
+          {$IFDEF DEBUG}
+          if (ptr2int(q) >= ptr2int(s.read)) then
+            Tracev('inflate:       stored end '+
+                IntToStr(z.total_out + ptr2int(q) - ptr2int(s.read)) + ' total out')
+          else
+            Tracev('inflate:       stored end '+
+                    IntToStr(z.total_out + ptr2int(s.zend) - ptr2int(s.read) +
+                    ptr2int(q) - ptr2int(s.window)) +  ' total out');
+          {$ENDIF}
+          if s.last then
+            s.mode := DRY
+          else
+            s.mode := ZTYPE;
+        end;
+      end;
+    TABLE:
+      begin
+        {NEEDBITS(14);}
+        while (k < 14) do
+        begin
+          {NEEDBYTE;}
+          if (n <> 0) then
+            r :=Z_OK
+          else
+          begin
+            {UPDATE}
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_blocks := inflate_flush(s,z,r);
+            exit;
+          end;
+          Dec(n);
+          b := b or (uLong(p^) shl k);
+          Inc(p);
+          Inc(k, 8);
+        end;
+
+        t := uInt(b) and $3fff;
+        s.sub.trees.table := t;
+  {$ifndef PKZIP_BUG_WORKAROUND}
+        if ((t and $1f) > 29) or (((t shr 5) and $1f) > 29) then
+        begin
+          s.mode := BLKBAD;
+          z.msg := 'too many length or distance symbols';
+          r := Z_DATA_ERROR;
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+  {$endif}
+        t := 258 + (t and $1f) + ((t shr 5) and $1f);
+        s.sub.trees.blens := puIntArray( ZALLOC(z, t, sizeof(uInt)) );
+        if (s.sub.trees.blens = Z_NULL) then
+        begin
+          r := Z_MEM_ERROR;
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+        {DUMPBITS(14);}
+        b := b shr 14;
+        Dec(k, 14);
+
+        s.sub.trees.index := 0;
+        {$IFDEF DEBUG}
+        Tracev('inflate:       table sizes ok');
+        {$ENDIF}
+        s.mode := BTREE;
+        { fall trough case is handled by the while }
+        { try GOTO for speed - Nomssi }
+        goto start_btree;
+      end;
+    BTREE:
+      begin
+        start_btree:
+        while (s.sub.trees.index < 4 + (s.sub.trees.table shr 10)) do
+        begin
+          {NEEDBITS(3);}
+          while (k < 3) do
+          begin
+            {NEEDBYTE;}
+            if (n <> 0) then
+              r :=Z_OK
+            else
+            begin
+              {UPDATE}
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_blocks := inflate_flush(s,z,r);
+              exit;
+            end;
+            Dec(n);
+            b := b or (uLong(p^) shl k);
+            Inc(p);
+            Inc(k, 8);
+          end;
+
+          s.sub.trees.blens^[border[s.sub.trees.index]] := uInt(b) and 7;
+          Inc(s.sub.trees.index);
+          {DUMPBITS(3);}
+          b := b shr 3;
+          Dec(k, 3);
+        end;
+        while (s.sub.trees.index < 19) do
+        begin
+          s.sub.trees.blens^[border[s.sub.trees.index]] := 0;
+          Inc(s.sub.trees.index);
+        end;
+        s.sub.trees.bb := 7;
+        t := inflate_trees_bits(s.sub.trees.blens^, s.sub.trees.bb,
+                                s.sub.trees.tb, s.hufts^, z);
+        if (t <> Z_OK) then
+        begin
+          ZFREE(z, s.sub.trees.blens);
+          r := t;
+          if (r = Z_DATA_ERROR) then
+            s.mode := BLKBAD;
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+        s.sub.trees.index := 0;
+        {$IFDEF DEBUG}
+        Tracev('inflate:       bits tree ok');
+        {$ENDIF}
+        s.mode := DTREE;
+        { fall through again }
+        goto start_dtree;
+      end;
+    DTREE:
+      begin
+        start_dtree:
+        while TRUE do
+        begin
+          t := s.sub.trees.table;
+          if not (s.sub.trees.index < 258 +
+                                     (t and $1f) + ((t shr 5) and $1f)) then
+            break;
+          t := s.sub.trees.bb;
+          {NEEDBITS(t);}
+          while (k < t) do
+          begin
+            {NEEDBYTE;}
+            if (n <> 0) then
+              r :=Z_OK
+            else
+            begin
+              {UPDATE}
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_blocks := inflate_flush(s,z,r);
+              exit;
+            end;
+            Dec(n);
+            b := b or (uLong(p^) shl k);
+            Inc(p);
+            Inc(k, 8);
+          end;
+
+          h := s.sub.trees.tb;
+          Inc(h, uInt(b) and inflate_mask[t]);
+          t := h^.Bits;
+          c := h^.Base;
+
+          if (c < 16) then
+          begin
+            {DUMPBITS(t);}
+            b := b shr t;
+            Dec(k, t);
+
+            s.sub.trees.blens^[s.sub.trees.index] := c;
+            Inc(s.sub.trees.index);
+          end
+          else { c = 16..18 }
+          begin
+            if c = 18 then
+            begin
+              i := 7;
+              j := 11;
+            end
+            else
+            begin
+              i := c - 14;
+              j := 3;
+            end;
+            {NEEDBITS(t + i);}
+            while (k < t + i) do
+            begin
+              {NEEDBYTE;}
+              if (n <> 0) then
+                r :=Z_OK
+              else
+              begin
+                {UPDATE}
+                s.bitb := b;
+                s.bitk := k;
+                z.avail_in := n;
+                Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+                z.next_in := p;
+                s.write := q;
+                inflate_blocks := inflate_flush(s,z,r);
+                exit;
+              end;
+              Dec(n);
+              b := b or (uLong(p^) shl k);
+              Inc(p);
+              Inc(k, 8);
+            end;
+
+            {DUMPBITS(t);}
+            b := b shr t;
+            Dec(k, t);
+
+            Inc(j, uInt(b) and inflate_mask[i]);
+            {DUMPBITS(i);}
+            b := b shr i;
+            Dec(k, i);
+
+            i := s.sub.trees.index;
+            t := s.sub.trees.table;
+            if (i + j > 258 + (t and $1f) + ((t shr 5) and $1f)) or
+               ((c = 16) and (i < 1)) then
+            begin
+              ZFREE(z, s.sub.trees.blens);
+              s.mode := BLKBAD;
+              z.msg := 'invalid bit length repeat';
+              r := Z_DATA_ERROR;
+              { update pointers and return }
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_blocks := inflate_flush(s,z,r);
+              exit;
+            end;
+            if c = 16 then
+              c := s.sub.trees.blens^[i - 1]
+            else
+              c := 0;
+            repeat
+              s.sub.trees.blens^[i] := c;
+              Inc(i);
+              Dec(j);
+            until (j=0);
+            s.sub.trees.index := i;
+          end;
+        end; { while }
+        s.sub.trees.tb := Z_NULL;
+        begin
+          bl := 9;         { must be <= 9 for lookahead assumptions }
+          bd := 6;         { must be <= 9 for lookahead assumptions }
+          t := s.sub.trees.table;
+          t := inflate_trees_dynamic(257 + (t and $1f),
+                  1 + ((t shr 5) and $1f),
+                  s.sub.trees.blens^, bl, bd, tl, td, s.hufts^, z);
+          ZFREE(z, s.sub.trees.blens);
+          if (t <> Z_OK) then
+          begin
+            if (t = uInt(Z_DATA_ERROR)) then
+              s.mode := BLKBAD;
+            r := t;
+            { update pointers and return }
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_blocks := inflate_flush(s,z,r);
+            exit;
+          end;
+          {$IFDEF DEBUG}
+          Tracev('inflate:       trees ok');
+          {$ENDIF}
+          { c renamed to cs }
+          cs := inflate_codes_new(bl, bd, tl, td, z);
+          if (cs = Z_NULL) then
+          begin
+            r := Z_MEM_ERROR;
+            { update pointers and return }
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_blocks := inflate_flush(s,z,r);
+            exit;
+          end;
+          s.sub.decode.codes := cs;
+        end;
+        s.mode := CODES;
+        { yet another falltrough }
+        goto start_codes;
+      end;
+    CODES:
+      begin
+        start_codes:
+        { update pointers }
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+        z.next_in := p;
+        s.write := q;
+
+        r := inflate_codes(s, z, r);
+        if (r <> Z_STREAM_END) then
+        begin
+          inflate_blocks := inflate_flush(s, z, r);
+          exit;
+        end;
+        r := Z_OK;
+        inflate_codes_free(s.sub.decode.codes, z);
+        { load local pointers }
+        p := z.next_in;
+        n := z.avail_in;
+        b := s.bitb;
+        k := s.bitk;
+        q := s.write;
+        if ptr2int(q) < ptr2int(s.read) then
+          m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+        else
+          m := uInt(ptr2int(s.zend)-ptr2int(q));
+        {$IFDEF DEBUG}
+        if (ptr2int(q) >= ptr2int(s.read)) then
+          Tracev('inflate:       codes end '+
+              IntToStr(z.total_out + ptr2int(q) - ptr2int(s.read)) + ' total out')
+        else
+          Tracev('inflate:       codes end '+
+                  IntToStr(z.total_out + ptr2int(s.zend) - ptr2int(s.read) +
+                  ptr2int(q) - ptr2int(s.window)) +  ' total out');
+        {$ENDIF}
+        if (not s.last) then
+        begin
+          s.mode := ZTYPE;
+          continue; { break for switch statement in C-code }
+        end;
+        {$ifndef patch112}
+        if (k > 7) then           { return unused byte, if any }
+        begin
+          {$IFDEF DEBUG}
+          Assert(k < 16, 'inflate_codes grabbed too many bytes');
+          {$ENDIF}
+          Dec(k, 8);
+          Inc(n);
+          Dec(p);                    { can always return one }
+        end;
+        {$endif}
+        s.mode := DRY;
+        { another falltrough }
+        goto start_dry;
+      end;
+    DRY:
+      begin
+        start_dry:
+        {FLUSH}
+        s.write := q;
+        r := inflate_flush(s,z,r);
+        q := s.write;
+
+        { not needed anymore, we are done:
+        if ptr2int(q) < ptr2int(s.read) then
+          m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+        else
+          m := uInt(ptr2int(s.zend)-ptr2int(q));
+        }
+
+        if (s.read <> s.write) then
+        begin
+          { update pointers and return }
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_blocks := inflate_flush(s,z,r);
+          exit;
+        end;
+        s.mode := BLKDONE;
+        goto start_blkdone;
+      end;
+    BLKDONE:
+      begin
+        start_blkdone:
+        r := Z_STREAM_END;
+        { update pointers and return }
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+        z.next_in := p;
+        s.write := q;
+        inflate_blocks := inflate_flush(s,z,r);
+        exit;
+      end;
+    BLKBAD:
+      begin
+        r := Z_DATA_ERROR;
+        { update pointers and return }
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+        z.next_in := p;
+        s.write := q;
+        inflate_blocks := inflate_flush(s,z,r);
+        exit;
+      end;
+    else
+    begin
+      r := Z_STREAM_ERROR;
+      { update pointers and return }
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_blocks := inflate_flush(s,z,r);
+      exit;
+    end;
+  end; { Case s.mode of }
+
+end;
+
+
+function inflate_blocks_free(s : pInflate_blocks_state;
+                             var z : z_stream) : int;
+begin
+  inflate_blocks_reset(s^, z, Z_NULL);
+  ZFREE(z, s^.window);
+  ZFREE(z, s^.hufts);
+  ZFREE(z, s);
+  {$IFDEF DEBUG}
+  Trace('inflate:   blocks freed');
+  {$ENDIF}
+  inflate_blocks_free := Z_OK;
+end;
+
+
+procedure inflate_set_dictionary(var s : inflate_blocks_state;
+                                 const d : array of byte; { dictionary }
+                                 n : uInt);         { dictionary length }
+begin
+  zmemcpy(s.window, pBytef(@d), n);
+  s.write := s.window;
+  Inc(s.write, n);
+  s.read := s.write;
+end;
+
+
+{ Returns true if inflate is currently at the end of a block generated
+  by Z_SYNC_FLUSH or Z_FULL_FLUSH.
+  IN assertion: s <> Z_NULL }
+
+function inflate_blocks_sync_point(var s : inflate_blocks_state) : int;
+begin
+  inflate_blocks_sync_point := int(s.mode = LENS);
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/iminfcodes.pas b/src/lib/vampimg/ZLib/iminfcodes.pas

new file mode 100644 (file)

index 0000000..1396e13
--- /dev/null
+++ b/src/lib/vampimg/ZLib/iminfcodes.pas
@@ -0,0 +1,576 @@
+Unit iminfcodes;
+
+{ infcodes.c -- process literals and length/distance pairs
+  Copyright (C) 1995-1998 Mark Adler
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  {$IFDEF DEBUG}
+  SysUtils, strutils,
+  {$ENDIF}
+  imzutil, impaszlib;
+
+function inflate_codes_new (bl : uInt;
+                            bd : uInt;
+                            tl : pInflate_huft;
+                            td : pInflate_huft;
+                            var z : z_stream): pInflate_codes_state;
+
+function inflate_codes(var s : inflate_blocks_state;
+                       var z : z_stream;
+                       r : int) : int;
+
+procedure inflate_codes_free(c : pInflate_codes_state;
+                             var z : z_stream);
+
+implementation
+
+uses
+  iminfutil, iminffast;
+
+
+function inflate_codes_new (bl : uInt;
+                            bd : uInt;
+                            tl : pInflate_huft;
+                            td : pInflate_huft;
+                            var z : z_stream): pInflate_codes_state;
+var
+ c : pInflate_codes_state;
+begin
+  c := pInflate_codes_state( ZALLOC(z,1,sizeof(inflate_codes_state)) );
+  if (c <> Z_NULL) then
+  begin
+    c^.mode := START;
+    c^.lbits := Byte(bl);
+    c^.dbits := Byte(bd);
+    c^.ltree := tl;
+    c^.dtree := td;
+    {$IFDEF DEBUG}
+    Tracev('inflate:       codes new');
+    {$ENDIF}
+  end;
+  inflate_codes_new := c;
+end;
+
+
+function inflate_codes(var s : inflate_blocks_state;
+                       var z : z_stream;
+                       r : int) : int;
+var
+  j : uInt;               { temporary storage }
+  t : pInflate_huft;      { temporary pointer }
+  e : uInt;               { extra bits or operation }
+  b : uLong;              { bit buffer }
+  k : uInt;               { bits in bit buffer }
+  p : pBytef;             { input data pointer }
+  n : uInt;               { bytes available there }
+  q : pBytef;             { output window write pointer }
+  m : uInt;               { bytes to end of window or read pointer }
+  f : pBytef;             { pointer to copy strings from }
+var
+  c : pInflate_codes_state;
+begin
+  c := s.sub.decode.codes;  { codes state }
+
+  { copy input/output information to locals }
+  p := z.next_in;
+  n := z.avail_in;
+  b := s.bitb;
+  k := s.bitk;
+  q := s.write;
+  if ptr2int(q) < ptr2int(s.read) then
+    m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+  else
+    m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+  { process input and output based on current state }
+  while True do
+  case (c^.mode) of
+    { waiting for "i:"=input, "o:"=output, "x:"=nothing }
+  START:         { x: set up for LEN }
+    begin
+{$ifndef SLOW}
+      if (m >= 258) and (n >= 10) then
+      begin
+        {UPDATE}
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+        z.next_in := p;
+        s.write := q;
+
+        r := inflate_fast(c^.lbits, c^.dbits, c^.ltree, c^.dtree, s, z);
+        {LOAD}
+        p := z.next_in;
+        n := z.avail_in;
+        b := s.bitb;
+        k := s.bitk;
+        q := s.write;
+        if ptr2int(q) < ptr2int(s.read) then
+          m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+        else
+          m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+        if (r <> Z_OK) then
+        begin
+          if (r = Z_STREAM_END) then
+            c^.mode := WASH
+          else
+            c^.mode := BADCODE;
+          continue;    { break for switch-statement in C }
+        end;
+      end;
+{$endif} { not SLOW }
+      c^.sub.code.need := c^.lbits;
+      c^.sub.code.tree := c^.ltree;
+      c^.mode := LEN;  { falltrough }
+    end;
+  LEN:           { i: get length/literal/eob next }
+    begin
+      j := c^.sub.code.need;
+      {NEEDBITS(j);}
+      while (k < j) do
+      begin
+        {NEEDBYTE;}
+        if (n <> 0) then
+          r :=Z_OK
+        else
+        begin
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_codes := inflate_flush(s,z,r);
+          exit;
+        end;
+        Dec(n);
+        b := b or (uLong(p^) shl k);
+        Inc(p);
+        Inc(k, 8);
+      end;
+      t := c^.sub.code.tree;
+      Inc(t, uInt(b) and inflate_mask[j]);
+      {DUMPBITS(t^.bits);}
+      b := b shr t^.bits;
+      Dec(k, t^.bits);
+
+      e := uInt(t^.exop);
+      if (e = 0) then            { literal }
+      begin
+        c^.sub.lit := t^.base;
+       {$IFDEF DEBUG}
+        if (t^.base >= $20) and (t^.base < $7f) then
+          Tracevv('inflate:         literal '+AnsiChar(t^.base))
+        else
+          Tracevv('inflate:         literal '+IntToStr(t^.base));
+        {$ENDIF}
+        c^.mode := LIT;
+        continue;  { break switch statement }
+      end;
+      if (e and 16 <> 0) then            { length }
+      begin
+        c^.sub.copy.get := e and 15;
+        c^.len := t^.base;
+        c^.mode := LENEXT;
+        continue;         { break C-switch statement }
+      end;
+      if (e and 64 = 0) then             { next table }
+      begin
+        c^.sub.code.need := e;
+        c^.sub.code.tree := @huft_ptr(t)^[t^.base];
+        continue;         { break C-switch statement }
+      end;
+      if (e and 32 <> 0) then            { end of block }
+      begin
+        {$IFDEF DEBUG}
+        Tracevv('inflate:         end of block');
+        {$ENDIF}
+        c^.mode := WASH;
+        continue;         { break C-switch statement }
+      end;
+      c^.mode := BADCODE;        { invalid code }
+      z.msg := 'invalid literal/length code';
+      r := Z_DATA_ERROR;
+      {UPDATE}
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_codes := inflate_flush(s,z,r);
+      exit;
+    end;
+  LENEXT:        { i: getting length extra (have base) }
+    begin
+      j := c^.sub.copy.get;
+      {NEEDBITS(j);}
+      while (k < j) do
+      begin
+        {NEEDBYTE;}
+        if (n <> 0) then
+          r :=Z_OK
+        else
+        begin
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_codes := inflate_flush(s,z,r);
+          exit;
+        end;
+        Dec(n);
+        b := b or (uLong(p^) shl k);
+        Inc(p);
+        Inc(k, 8);
+      end;
+      Inc(c^.len, uInt(b and inflate_mask[j]));
+      {DUMPBITS(j);}
+      b := b shr j;
+      Dec(k, j);
+
+      c^.sub.code.need := c^.dbits;
+      c^.sub.code.tree := c^.dtree;
+      {$IFDEF DEBUG}
+      Tracevv('inflate:         length '+IntToStr(c^.len));
+      {$ENDIF}
+      c^.mode := DIST;
+      { falltrough }
+    end;
+  DIST:          { i: get distance next }
+    begin
+      j := c^.sub.code.need;
+      {NEEDBITS(j);}
+      while (k < j) do
+      begin
+        {NEEDBYTE;}
+        if (n <> 0) then
+          r :=Z_OK
+        else
+        begin
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_codes := inflate_flush(s,z,r);
+          exit;
+        end;
+        Dec(n);
+        b := b or (uLong(p^) shl k);
+        Inc(p);
+        Inc(k, 8);
+      end;
+      t := @huft_ptr(c^.sub.code.tree)^[uInt(b) and inflate_mask[j]];
+      {DUMPBITS(t^.bits);}
+      b := b shr t^.bits;
+      Dec(k, t^.bits);
+
+      e := uInt(t^.exop);
+      if (e and 16 <> 0) then            { distance }
+      begin
+        c^.sub.copy.get := e and 15;
+        c^.sub.copy.dist := t^.base;
+        c^.mode := DISTEXT;
+        continue;     { break C-switch statement }
+      end;
+      if (e and 64 = 0) then     { next table }
+      begin
+        c^.sub.code.need := e;
+        c^.sub.code.tree := @huft_ptr(t)^[t^.base];
+        continue;     { break C-switch statement }
+      end;
+      c^.mode := BADCODE;        { invalid code }
+      z.msg := 'invalid distance code';
+      r := Z_DATA_ERROR;
+      {UPDATE}
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_codes := inflate_flush(s,z,r);
+      exit;
+    end;
+  DISTEXT:       { i: getting distance extra }
+    begin
+      j := c^.sub.copy.get;
+      {NEEDBITS(j);}
+      while (k < j) do
+      begin
+        {NEEDBYTE;}
+        if (n <> 0) then
+          r :=Z_OK
+        else
+        begin
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_codes := inflate_flush(s,z,r);
+          exit;
+        end;
+        Dec(n);
+        b := b or (uLong(p^) shl k);
+        Inc(p);
+        Inc(k, 8);
+      end;
+      Inc(c^.sub.copy.dist, uInt(b) and inflate_mask[j]);
+      {DUMPBITS(j);}
+      b := b shr j;
+      Dec(k, j);
+      {$IFDEF DEBUG}
+      Tracevv('inflate:         distance '+ IntToStr(c^.sub.copy.dist));
+      {$ENDIF}
+      c^.mode := COPY;
+      { falltrough }
+    end;
+  COPY:          { o: copying bytes in window, waiting for space }
+    begin
+      f := q;
+      Dec(f, c^.sub.copy.dist);
+      if (uInt(ptr2int(q) - ptr2int(s.window)) < c^.sub.copy.dist) then
+      begin
+        f := s.zend;
+        Dec(f, c^.sub.copy.dist - uInt(ptr2int(q) - ptr2int(s.window)));
+      end;
+
+      while (c^.len <> 0) do
+      begin
+        {NEEDOUT}
+        if (m = 0) then
+        begin
+          {WRAP}
+          if (q = s.zend) and (s.read <> s.window) then
+          begin
+            q := s.window;
+            if ptr2int(q) < ptr2int(s.read) then
+              m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+            else
+              m := uInt(ptr2int(s.zend)-ptr2int(q));
+          end;
+
+          if (m = 0) then
+          begin
+            {FLUSH}
+            s.write := q;
+            r := inflate_flush(s,z,r);
+            q := s.write;
+            if ptr2int(q) < ptr2int(s.read) then
+              m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+            else
+              m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+            {WRAP}
+            if (q = s.zend) and (s.read <> s.window) then
+            begin
+              q := s.window;
+              if ptr2int(q) < ptr2int(s.read) then
+                m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+              else
+                m := uInt(ptr2int(s.zend)-ptr2int(q));
+            end;
+
+            if (m = 0) then
+            begin
+              {UPDATE}
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              inflate_codes := inflate_flush(s,z,r);
+              exit;
+            end;
+          end;
+        end;
+        r := Z_OK;
+
+        {OUTBYTE( *f++)}
+        q^ := f^;
+        Inc(q);
+        Inc(f);
+        Dec(m);
+
+        if (f = s.zend) then
+          f := s.window;
+        Dec(c^.len);
+      end;
+      c^.mode := START;
+      { C-switch break; not needed }
+    end;
+  LIT:           { o: got literal, waiting for output space }
+    begin
+      {NEEDOUT}
+      if (m = 0) then
+      begin
+        {WRAP}
+        if (q = s.zend) and (s.read <> s.window) then
+        begin
+          q := s.window;
+          if ptr2int(q) < ptr2int(s.read) then
+            m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+          else
+            m := uInt(ptr2int(s.zend)-ptr2int(q));
+        end;
+
+        if (m = 0) then
+        begin
+          {FLUSH}
+          s.write := q;
+          r := inflate_flush(s,z,r);
+          q := s.write;
+          if ptr2int(q) < ptr2int(s.read) then
+            m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+          else
+            m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+          {WRAP}
+          if (q = s.zend) and (s.read <> s.window) then
+          begin
+            q := s.window;
+            if ptr2int(q) < ptr2int(s.read) then
+              m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+            else
+              m := uInt(ptr2int(s.zend)-ptr2int(q));
+          end;
+
+          if (m = 0) then
+          begin
+            {UPDATE}
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+            inflate_codes := inflate_flush(s,z,r);
+            exit;
+          end;
+        end;
+      end;
+      r := Z_OK;
+
+      {OUTBYTE(c^.sub.lit);}
+      q^ := c^.sub.lit;
+      Inc(q);
+      Dec(m);
+
+      c^.mode := START;
+      {break;}
+    end;
+  WASH:          { o: got eob, possibly more output }
+    begin
+      {$ifdef patch112}
+      if (k > 7) then           { return unused byte, if any }
+      begin
+        {$IFDEF DEBUG}
+        Assert(k < 16, 'inflate_codes grabbed too many bytes');
+        {$ENDIF}
+        Dec(k, 8);
+        Inc(n);
+        Dec(p);                    { can always return one }
+      end;
+      {$endif}
+      {FLUSH}
+      s.write := q;
+      r := inflate_flush(s,z,r);
+      q := s.write;
+      if ptr2int(q) < ptr2int(s.read) then
+        m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+      else
+        m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+      if (s.read <> s.write) then
+      begin
+        {UPDATE}
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+        z.next_in := p;
+        s.write := q;
+        inflate_codes := inflate_flush(s,z,r);
+        exit;
+      end;
+      c^.mode := ZEND;
+      { falltrough }
+    end;
+
+  ZEND:
+    begin
+      r := Z_STREAM_END;
+      {UPDATE}
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_codes := inflate_flush(s,z,r);
+      exit;
+    end;
+  BADCODE:       { x: got error }
+    begin
+      r := Z_DATA_ERROR;
+      {UPDATE}
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_codes := inflate_flush(s,z,r);
+      exit;
+    end;
+  else
+    begin
+      r := Z_STREAM_ERROR;
+      {UPDATE}
+      s.bitb := b;
+      s.bitk := k;
+      z.avail_in := n;
+      Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+      z.next_in := p;
+      s.write := q;
+      inflate_codes := inflate_flush(s,z,r);
+      exit;
+    end;
+  end;
+{NEED_DUMMY_RETURN - Delphi2+ dumb compilers complain without this }
+  inflate_codes := Z_STREAM_ERROR;
+end;
+
+
+procedure inflate_codes_free(c : pInflate_codes_state;
+                             var z : z_stream);
+begin
+  ZFREE(z, c);
+  {$IFDEF DEBUG}
+  Tracev('inflate:       codes free');
+  {$ENDIF}
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/iminffast.pas b/src/lib/vampimg/ZLib/iminffast.pas

new file mode 100644 (file)

index 0000000..936c922
--- /dev/null
+++ b/src/lib/vampimg/ZLib/iminffast.pas
@@ -0,0 +1,318 @@
+Unit iminffast;
+
+{
+  inffast.h and
+  inffast.c -- process literals and length/distance pairs fast
+  Copyright (C) 1995-1998 Mark Adler
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  {$ifdef DEBUG}
+  SysUtils, strutils,
+  {$ENDIF}
+  imzutil, impaszlib;
+
+function inflate_fast( bl : uInt;
+                       bd : uInt;
+                       tl : pInflate_huft;
+                       td : pInflate_huft;
+                      var s : inflate_blocks_state;
+                      var z : z_stream) : int;
+
+
+implementation
+
+uses
+  iminfutil;
+
+
+{ Called with number of bytes left to write in window at least 258
+  (the maximum string length) and number of input bytes available
+  at least ten.  The ten bytes are six bytes for the longest length/
+  distance pair plus four bytes for overloading the bit buffer. }
+
+function inflate_fast( bl : uInt;
+                       bd : uInt;
+                       tl : pInflate_huft;
+                       td : pInflate_huft;
+                      var s : inflate_blocks_state;
+                      var z : z_stream) : int;
+
+var
+  t : pInflate_huft;      { temporary pointer }
+  e : uInt;               { extra bits or operation }
+  b : uLong;              { bit buffer }
+  k : uInt;               { bits in bit buffer }
+  p : pBytef;             { input data pointer }
+  n : uInt;               { bytes available there }
+  q : pBytef;             { output window write pointer }
+  m : uInt;               { bytes to end of window or read pointer }
+  ml : uInt;              { mask for literal/length tree }
+  md : uInt;              { mask for distance tree }
+  c : uInt;               { bytes to copy }
+  d : uInt;               { distance back to copy from }
+  r : pBytef;             { copy source pointer }
+begin
+  { load input, output, bit values (macro LOAD) }
+  p := z.next_in;
+  n := z.avail_in;
+  b := s.bitb;
+  k := s.bitk;
+  q := s.write;
+  if ptr2int(q) < ptr2int(s.read) then
+    m := uInt(ptr2int(s.read)-ptr2int(q)-1)
+  else
+    m := uInt(ptr2int(s.zend)-ptr2int(q));
+
+  { initialize masks }
+  ml := inflate_mask[bl];
+  md := inflate_mask[bd];
+
+  { do until not enough input or output space for fast loop }
+  repeat                      { assume called with (m >= 258) and (n >= 10) }
+    { get literal/length code }
+    {GRABBITS(20);}             { max bits for literal/length code }
+    while (k < 20) do
+    begin
+      Dec(n);
+      b := b or (uLong(p^) shl k);
+      Inc(p);
+      Inc(k, 8);
+    end;
+
+    t := @(huft_ptr(tl)^[uInt(b) and ml]);
+
+    e := t^.exop;
+    if (e = 0) then
+    begin
+      {DUMPBITS(t^.bits);}
+      b := b shr t^.bits;
+      Dec(k, t^.bits);
+     {$IFDEF DEBUG}
+      if (t^.base >= $20) and (t^.base < $7f) then
+        Tracevv('inflate:         * literal '+AnsiChar(t^.base))
+      else
+        Tracevv('inflate:         * literal '+ IntToStr(t^.base));
+      {$ENDIF}
+      q^ := Byte(t^.base);
+      Inc(q);
+      Dec(m);
+      continue;
+    end;
+    repeat
+      {DUMPBITS(t^.bits);}
+      b := b shr t^.bits;
+      Dec(k, t^.bits);
+
+      if (e and 16 <> 0) then
+      begin
+        { get extra bits for length }
+        e := e and 15;
+        c := t^.base + (uInt(b) and inflate_mask[e]);
+        {DUMPBITS(e);}
+        b := b shr e;
+        Dec(k, e);
+        {$IFDEF DEBUG}
+        Tracevv('inflate:         * length ' + IntToStr(c));
+        {$ENDIF}
+        { decode distance base of block to copy }
+        {GRABBITS(15);}           { max bits for distance code }
+        while (k < 15) do
+        begin
+          Dec(n);
+          b := b or (uLong(p^) shl k);
+          Inc(p);
+          Inc(k, 8);
+        end;
+
+        t := @huft_ptr(td)^[uInt(b) and md];
+        e := t^.exop;
+        repeat
+          {DUMPBITS(t^.bits);}
+          b := b shr t^.bits;
+          Dec(k, t^.bits);
+
+          if (e and 16 <> 0) then
+          begin
+            { get extra bits to add to distance base }
+            e := e and 15;
+            {GRABBITS(e);}         { get extra bits (up to 13) }
+            while (k < e) do
+            begin
+              Dec(n);
+              b := b or (uLong(p^) shl k);
+              Inc(p);
+              Inc(k, 8);
+            end;
+
+            d := t^.base + (uInt(b) and inflate_mask[e]);
+            {DUMPBITS(e);}
+            b := b shr e;
+            Dec(k, e);
+
+            {$IFDEF DEBUG}
+            Tracevv('inflate:         * distance '+IntToStr(d));
+            {$ENDIF}
+            { do the copy }
+            Dec(m, c);
+            if (uInt(ptr2int(q) - ptr2int(s.window)) >= d) then     { offset before dest }
+            begin                                  {  just copy }
+              r := q;
+              Dec(r, d);
+              q^ := r^;  Inc(q); Inc(r); Dec(c); { minimum count is three, }
+              q^ := r^;  Inc(q); Inc(r); Dec(c); { so unroll loop a little }
+            end
+            else                        { else offset after destination }
+            begin
+              e := d - uInt(ptr2int(q) - ptr2int(s.window)); { bytes from offset to end }
+              r := s.zend;
+              Dec(r, e);                  { pointer to offset }
+              if (c > e) then             { if source crosses, }
+              begin
+                Dec(c, e);                { copy to end of window }
+                repeat
+                  q^ := r^;
+                  Inc(q);
+                  Inc(r);
+                  Dec(e);
+                until (e=0);
+                r := s.window;           { copy rest from start of window }
+              end;
+            end;
+            repeat                       { copy all or what's left }
+              q^ := r^;
+              Inc(q);
+              Inc(r);
+              Dec(c);
+            until (c = 0);
+            break;
+          end
+          else
+            if (e and 64 = 0) then
+            begin
+              Inc(t, t^.base + (uInt(b) and inflate_mask[e]));
+              e := t^.exop;
+            end
+          else
+          begin
+            z.msg := 'invalid distance code';
+            {UNGRAB}
+            c := z.avail_in-n;
+            if (k shr 3) < c then
+              c := k shr 3;
+            Inc(n, c);
+            Dec(p, c);
+            Dec(k, c shl 3);
+            {UPDATE}
+            s.bitb := b;
+            s.bitk := k;
+            z.avail_in := n;
+            Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+            z.next_in := p;
+            s.write := q;
+
+            inflate_fast := Z_DATA_ERROR;
+            exit;
+          end;
+        until FALSE;
+        break;
+      end;
+      if (e and 64 = 0) then
+      begin
+         {t += t->base;
+          e = (t += ((uInt)b & inflate_mask[e]))->exop;}
+
+        Inc(t, t^.base + (uInt(b) and inflate_mask[e]));
+        e := t^.exop;
+        if (e = 0) then
+        begin
+          {DUMPBITS(t^.bits);}
+          b := b shr t^.bits;
+          Dec(k, t^.bits);
+
+         {$IFDEF DEBUG}
+          if (t^.base >= $20) and (t^.base < $7f) then
+            Tracevv('inflate:         * literal '+AnsiChar(t^.base))
+          else
+            Tracevv('inflate:         * literal '+IntToStr(t^.base));
+          {$ENDIF}
+          q^ := Byte(t^.base);
+          Inc(q);
+          Dec(m);
+          break;
+        end;
+      end
+      else
+        if (e and 32 <> 0) then
+        begin
+          {$IFDEF DEBUG}
+          Tracevv('inflate:         * end of block');
+          {$ENDIF}
+          {UNGRAB}
+          c := z.avail_in-n;
+          if (k shr 3) < c then
+            c := k shr 3;
+          Inc(n, c);
+          Dec(p, c);
+          Dec(k, c shl 3);
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_fast := Z_STREAM_END;
+          exit;
+        end
+        else
+        begin
+          z.msg := 'invalid literal/length code';
+          {UNGRAB}
+          c := z.avail_in-n;
+          if (k shr 3) < c then
+            c := k shr 3;
+          Inc(n, c);
+          Dec(p, c);
+          Dec(k, c shl 3);
+          {UPDATE}
+          s.bitb := b;
+          s.bitk := k;
+          z.avail_in := n;
+          Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+          z.next_in := p;
+          s.write := q;
+          inflate_fast := Z_DATA_ERROR;
+          exit;
+        end;
+    until FALSE;
+  until (m < 258) or (n < 10);
+
+  { not enough input or output--restore pointers and return }
+  {UNGRAB}
+  c := z.avail_in-n;
+  if (k shr 3) < c then
+    c := k shr 3;
+  Inc(n, c);
+  Dec(p, c);
+  Dec(k, c shl 3);
+  {UPDATE}
+  s.bitb := b;
+  s.bitk := k;
+  z.avail_in := n;
+  Inc(z.total_in, ptr2int(p)-ptr2int(z.next_in));
+  z.next_in := p;
+  s.write := q;
+  inflate_fast := Z_OK;
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/iminftrees.pas b/src/lib/vampimg/ZLib/iminftrees.pas

new file mode 100644 (file)

index 0000000..af545a7
--- /dev/null
+++ b/src/lib/vampimg/ZLib/iminftrees.pas
@@ -0,0 +1,781 @@
+Unit iminftrees;
+
+{ inftrees.h -- header to use inftrees.c
+  inftrees.c -- generate Huffman trees for efficient decoding
+  Copyright (C) 1995-1998 Mark Adler
+
+  WARNING: this file should *not* be used by applications. It is
+   part of the implementation of the compression library and is
+   subject to change.
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+Interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil, impaszlib;
+
+
+{ Maximum size of dynamic tree.  The maximum found in a long but non-
+  exhaustive search was 1004 huft structures (850 for length/literals
+  and 154 for distances, the latter actually the result of an
+  exhaustive search).  The actual maximum is not known, but the
+  value below is more than safe. }
+const
+  MANY = 1440;
+
+
+{$ifdef DEBUG}
+var
+  inflate_hufts : uInt;
+{$endif}
+
+function inflate_trees_bits(
+  var c : array of uIntf;  { 19 code lengths }
+  var bb : uIntf;          { bits tree desired/actual depth }
+  var tb : pinflate_huft;  { bits tree result }
+  var hp : array of Inflate_huft;      { space for trees }
+  var z : z_stream         { for messages }
+    ) : int;
+
+function inflate_trees_dynamic(
+    nl : uInt;                    { number of literal/length codes }
+    nd : uInt;                    { number of distance codes }
+    var c : Array of uIntf;           { that many (total) code lengths }
+    var bl : uIntf;               { literal desired/actual bit depth }
+    var bd : uIntf;               { distance desired/actual bit depth }
+var tl : pInflate_huft;           { literal/length tree result }
+var td : pInflate_huft;           { distance tree result }
+var hp : array of Inflate_huft;   { space for trees }
+var z : z_stream                  { for messages }
+     ) : int;
+
+function inflate_trees_fixed (
+    var bl : uInt;                { literal desired/actual bit depth }
+    var bd : uInt;                { distance desired/actual bit depth }
+    var tl : pInflate_huft;       { literal/length tree result }
+    var td : pInflate_huft;       { distance tree result }
+    var z : z_stream              { for memory allocation }
+     ) : int;
+
+
+implementation
+
+const
+ inflate_copyright = 'inflate 1.1.2 Copyright 1995-1998 Mark Adler';
+
+{
+  If you use the zlib library in a product, an acknowledgment is welcome
+  in the documentation of your product. If for some reason you cannot
+  include such an acknowledgment, I would appreciate that you keep this
+  copyright string in the executable of your product.
+}
+
+
+const
+{ Tables for deflate from PKZIP's appnote.txt. }
+  cplens : Array [0..30] Of uInt  { Copy lengths for literal codes 257..285 }
+     = (3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31,
+        35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 0, 0);
+        { actually lengths - 2; also see note #13 above about 258 }
+
+  invalid_code = 112;
+
+  cplext : Array [0..30] Of uInt  { Extra bits for literal codes 257..285 }
+     = (0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2,
+        3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 0, invalid_code, invalid_code);
+
+  cpdist : Array [0..29] Of uInt { Copy offsets for distance codes 0..29 }
+     = (1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193,
+        257, 385, 513, 769, 1025, 1537, 2049, 3073, 4097, 6145,
+        8193, 12289, 16385, 24577);
+
+  cpdext : Array [0..29] Of uInt { Extra bits for distance codes }
+     = (0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6,
+        7, 7, 8, 8, 9, 9, 10, 10, 11, 11,
+        12, 12, 13, 13);
+
+{  Huffman code decoding is performed using a multi-level table lookup.
+   The fastest way to decode is to simply build a lookup table whose
+   size is determined by the longest code.  However, the time it takes
+   to build this table can also be a factor if the data being decoded
+   is not very long.  The most common codes are necessarily the
+   shortest codes, so those codes dominate the decoding time, and hence
+   the speed.  The idea is you can have a shorter table that decodes the
+   shorter, more probable codes, and then point to subsidiary tables for
+   the longer codes.  The time it costs to decode the longer codes is
+   then traded against the time it takes to make longer tables.
+
+   This results of this trade are in the variables lbits and dbits
+   below.  lbits is the number of bits the first level table for literal/
+   length codes can decode in one step, and dbits is the same thing for
+   the distance codes.  Subsequent tables are also less than or equal to
+   those sizes.  These values may be adjusted either when all of the
+   codes are shorter than that, in which case the longest code length in
+   bits is used, or when the shortest code is *longer* than the requested
+   table size, in which case the length of the shortest code in bits is
+   used.
+
+   There are two different values for the two tables, since they code a
+   different number of possibilities each.  The literal/length table
+   codes 286 possible values, or in a flat code, a little over eight
+   bits.  The distance table codes 30 possible values, or a little less
+   than five bits, flat.  The optimum values for speed end up being
+   about one bit more than those, so lbits is 8+1 and dbits is 5+1.
+   The optimum values may differ though from machine to machine, and
+   possibly even between compilers.  Your mileage may vary. }
+
+
+{ If BMAX needs to be larger than 16, then h and x[] should be uLong. }
+const
+  BMAX = 15;         { maximum bit length of any code }
+
+{$DEFINE USE_PTR}
+
+function huft_build(
+var b : array of uIntf;    { code lengths in bits (all assumed <= BMAX) }
+    n : uInt;              { number of codes (assumed <= N_MAX) }
+    s : uInt;              { number of simple-valued codes (0..s-1) }
+const d : array of uIntf;  { list of base values for non-simple codes }
+{ array of word }
+const e : array of uIntf;  { list of extra bits for non-simple codes }
+{ array of byte }
+  t : ppInflate_huft;     { result: starting table }
+var m : uIntf;             { maximum lookup bits, returns actual }
+var hp : array of inflate_huft;  { space for trees }
+var hn : uInt;             { hufts used in space }
+var v : array of uIntf     { working area: values in order of bit length }
+   ) : int;
+{ Given a list of code lengths and a maximum table size, make a set of
+  tables to decode that set of codes.  Return Z_OK on success, Z_BUF_ERROR
+  if the given code set is incomplete (the tables are still built in this
+  case), Z_DATA_ERROR if the input is invalid (an over-subscribed set of
+  lengths), or Z_MEM_ERROR if not enough memory. }
+Var
+  a : uInt;                     { counter for codes of length k }
+  c : Array [0..BMAX] Of uInt;  { bit length count table }
+  f : uInt;                     { i repeats in table every f entries }
+  g : int;                      { maximum code length }
+  h : int;                      { table level }
+  i : uInt;  {register}         { counter, current code }
+  j : uInt;  {register}         { counter }
+  k : Int;   {register}         { number of bits in current code }
+  l : int;      { bits per table (returned in m) }
+  mask : uInt;                  { (1 shl w) - 1, to avoid cc -O bug on HP }
+  p : ^uIntf; {register}        { pointer into c[], b[], or v[] }
+  q : pInflate_huft;            { points to current table }
+  r : inflate_huft;             { table entry for structure assignment }
+  u : Array [0..BMAX-1] Of pInflate_huft; { table stack }
+  w : int;   {register}         { bits before this table = (l*h) }
+  x : Array [0..BMAX] Of uInt;  { bit offsets, then code stack }
+  {$IFDEF USE_PTR}
+  xp : puIntf;                  { pointer into x }
+  {$ELSE}
+  xp : uInt;
+  {$ENDIF}
+  y : int;                      { number of dummy codes added }
+  z : uInt;                     { number of entries in current table }
+Begin
+  { Generate counts for each bit length }
+  FillChar(c,SizeOf(c),0) ;     { clear c[] }
+
+  for i := 0 to n-1 do
+    Inc (c[b[i]]);              { assume all entries <= BMAX }
+
+  If (c[0] = n) Then            { null input--all zero length codes }
+  Begin
+    t^ := pInflate_huft(NIL);
+    m := 0 ;
+    huft_build := Z_OK ;
+    Exit;
+  End ;
+
+  { Find minimum and maximum length, bound [m] by those }
+  l := m;
+  for j:=1 To BMAX do
+    if (c[j] <> 0) then
+      break;
+  k := j ;                      { minimum code length }
+  if (uInt(l) < j) then
+    l := j;
+  for i := BMAX downto 1 do
+    if (c[i] <> 0) then
+      break ;
+  g := i ;                      { maximum code length }
+  if (uInt(l) > i) then
+     l := i;
+  m := l;
+
+  { Adjust last length count to fill out codes, if needed }
+  y := 1 shl j ;
+  while (j < i) do
+  begin
+    Dec(y, c[j]) ;
+    if (y < 0) then
+    begin
+      huft_build := Z_DATA_ERROR;   { bad input: more codes than bits }
+      exit;
+    end ;
+    Inc(j) ;
+    y := y shl 1
+  end;
+  Dec (y, c[i]) ;
+  if (y < 0) then
+  begin
+    huft_build := Z_DATA_ERROR;     { bad input: more codes than bits }
+    exit;
+  end;
+  Inc(c[i], y);
+
+  { Generate starting offsets into the value table FOR each length }
+  {$IFDEF USE_PTR}
+  x[1] := 0;
+  j := 0;
+
+  p := @c[1];
+  xp := @x[2];
+
+  dec(i);               { note that i = g from above }
+  WHILE (i > 0) DO
+  BEGIN
+    inc(j, p^);
+    xp^ := j;
+    inc(p);
+    inc(xp);
+    dec(i);
+  END;
+  {$ELSE}
+  x[1] := 0;
+  j := 0 ;
+  for i := 1 to g do
+  begin
+    x[i] := j;
+    Inc(j, c[i]);
+  end;
+  {$ENDIF}
+
+  { Make a table of values in order of bit lengths }
+  for i := 0 to n-1 do
+  begin
+    j := b[i];
+    if (j <> 0) then
+    begin
+      v[ x[j] ] := i;
+      Inc(x[j]);
+    end;
+  end;
+  n := x[g];                     { set n to length of v }
+
+  { Generate the Huffman codes and for each, make the table entries }
+  i := 0 ;
+  x[0] := 0 ;                   { first Huffman code is zero }
+  p := Addr(v) ;                { grab values in bit order }
+  h := -1 ;                     { no tables yet--level -1 }
+  w := -l ;                     { bits decoded = (l*h) }
+
+  u[0] := pInflate_huft(NIL);   { just to keep compilers happy }
+  q := pInflate_huft(NIL);      { ditto }
+  z := 0 ;                      { ditto }
+
+  { go through the bit lengths (k already is bits in shortest code) }
+  while (k <= g) Do
+  begin
+    a := c[k] ;
+    while (a<>0) Do
+    begin
+      Dec (a) ;
+      { here i is the Huffman code of length k bits for value p^ }
+      { make tables up to required level }
+      while (k > w + l) do
+      begin
+
+        Inc (h) ;
+        Inc (w, l);              { add bits already decoded }
+                                 { previous table always l bits }
+        { compute minimum size table less than or equal to l bits }
+
+        { table size upper limit }
+        z := g - w;
+        If (z > uInt(l)) Then
+          z := l;
+
+        { try a k-w bit table }
+        j := k - w;
+        f := 1 shl j;
+        if (f > a+1) Then        { too few codes for k-w bit table }
+        begin
+          Dec(f, a+1);           { deduct codes from patterns left }
+          {$IFDEF USE_PTR}
+          xp := Addr(c[k]);
+
+          if (j < z) then
+          begin
+            Inc(j);
+            while (j < z) do
+            begin                { try smaller tables up to z bits }
+              f := f shl 1;
+              Inc (xp) ;
+              If (f <= xp^) Then
+                break;           { enough codes to use up j bits }
+              Dec(f, xp^);       { else deduct codes from patterns }
+              Inc(j);
+            end;
+          end;
+          {$ELSE}
+          xp := k;
+
+          if (j < z) then
+          begin
+            Inc (j) ;
+            While (j < z) Do
+            begin                 { try smaller tables up to z bits }
+              f := f * 2;
+              Inc (xp) ;
+              if (f <= c[xp]) then
+                Break ;           { enough codes to use up j bits }
+              Dec (f, c[xp]) ;      { else deduct codes from patterns }
+              Inc (j);
+            end;
+          end;
+          {$ENDIF}
+        end;
+
+        z := 1 shl j;            { table entries for j-bit table }
+
+        { allocate new table }
+        if (hn + z > MANY) then { (note: doesn't matter for fixed) }
+        begin
+          huft_build := Z_MEM_ERROR;     { not enough memory }
+          exit;
+        end;
+
+        q := @hp[hn];
+        u[h] := q;
+        Inc(hn, z);
+
+        { connect to last table, if there is one }
+        if (h <> 0) then
+        begin
+          x[h] := i;             { save pattern for backing up }
+          r.bits := Byte(l);     { bits to dump before this table }
+          r.exop := Byte(j);     { bits in this table }
+          j := i shr (w - l);
+          {r.base := uInt( q - u[h-1] -j);}   { offset to this table }
+          r.base := (ptr2int(q) - ptr2int(u[h-1]) ) div sizeof(q^) - j;
+          huft_Ptr(u[h-1])^[j] := r;  { connect to last table }
+        end
+        else
+          t^ := q;               { first table is returned result }
+      end;
+
+      { set up table entry in r }
+      r.bits := Byte(k - w);
+
+      { C-code: if (p >= v + n) - see ZUTIL.PAS for comments }
+
+      if ptr2int(p)>=ptr2int(@(v[n])) then  { also works under DPMI ?? }
+        r.exop := 128 + 64                  { out of values--invalid code }
+      else
+        if (p^ < s) then
+        begin
+          if (p^ < 256) then     { 256 is end-of-block code }
+            r.exop := 0
+          Else
+            r.exop := 32 + 64;   { EOB_code; }
+          r.base := p^;          { simple code is just the value }
+          Inc(p);
+        end
+        Else
+        begin
+          r.exop := Byte(e[p^-s] + 16 + 64);  { non-simple--look up in lists }
+          r.base := d[p^-s];
+          Inc (p);
+        end ;
+
+      { fill code-like entries with r }
+      f := 1 shl (k - w);
+      j := i shr w;
+      while (j < z) do
+      begin
+        huft_Ptr(q)^[j] := r;
+        Inc(j, f);
+      end;
+
+      { backwards increment the k-bit code i }
+      j := 1 shl (k-1) ;
+      while (i and j) <> 0 do
+      begin
+        i := i xor j;         { bitwise exclusive or }
+        j := j shr 1
+      end ;
+      i := i xor j;
+
+      { backup over finished tables }
+      mask := (1 shl w) - 1;   { needed on HP, cc -O bug }
+      while ((i and mask) <> x[h]) do
+      begin
+        Dec(h);                { don't need to update q }
+        Dec(w, l);
+        mask := (1 shl w) - 1;
+      end;
+
+    end;
+
+    Inc(k);
+  end;
+
+  { Return Z_BUF_ERROR if we were given an incomplete table }
+  if (y <> 0) And (g <> 1) then
+    huft_build := Z_BUF_ERROR
+  else
+    huft_build := Z_OK;
+end; { huft_build}
+
+
+function inflate_trees_bits(
+  var c : array of uIntf;  { 19 code lengths }
+  var bb : uIntf;          { bits tree desired/actual depth }
+  var tb : pinflate_huft;  { bits tree result }
+  var hp : array of Inflate_huft;      { space for trees }
+  var z : z_stream         { for messages }
+    ) : int;
+var
+  r : int;
+  hn : uInt;          { hufts used in space }
+  v : PuIntArray;     { work area for huft_build }
+begin
+  hn := 0;
+  v := PuIntArray( ZALLOC(z, 19, sizeof(uInt)) );
+  if (v = Z_NULL) then
+  begin
+    inflate_trees_bits := Z_MEM_ERROR;
+    exit;
+  end;
+
+  r := huft_build(c, 19, 19, cplens, cplext,
+                             {puIntf(Z_NULL), puIntf(Z_NULL),}
+                  @tb, bb, hp, hn, v^);
+  if (r = Z_DATA_ERROR) then
+    z.msg := 'oversubscribed dynamic bit lengths tree'
+  else
+    if (r = Z_BUF_ERROR) or (bb = 0) then
+    begin
+      z.msg := 'incomplete dynamic bit lengths tree';
+      r := Z_DATA_ERROR;
+    end;
+  ZFREE(z, v);
+  inflate_trees_bits := r;
+end;
+
+
+function inflate_trees_dynamic(
+    nl : uInt;                    { number of literal/length codes }
+    nd : uInt;                    { number of distance codes }
+    var c : Array of uIntf;           { that many (total) code lengths }
+    var bl : uIntf;          { literal desired/actual bit depth }
+    var bd : uIntf;          { distance desired/actual bit depth }
+var tl : pInflate_huft;           { literal/length tree result }
+var td : pInflate_huft;           { distance tree result }
+var hp : array of Inflate_huft;   { space for trees }
+var z : z_stream                  { for messages }
+     ) : int;
+var
+  r : int;
+  hn : uInt;          { hufts used in space }
+  v : PuIntArray;     { work area for huft_build }
+begin
+  hn := 0;
+  { allocate work area }
+  v := PuIntArray( ZALLOC(z, 288, sizeof(uInt)) );
+  if (v = Z_NULL) then
+  begin
+    inflate_trees_dynamic := Z_MEM_ERROR;
+    exit;
+  end;
+
+  { build literal/length tree }
+  r := huft_build(c, nl, 257, cplens, cplext, @tl, bl, hp, hn, v^);
+  if (r <> Z_OK) or (bl = 0) then
+  begin
+    if (r = Z_DATA_ERROR) then
+      z.msg := 'oversubscribed literal/length tree'
+    else
+      if (r <> Z_MEM_ERROR) then
+      begin
+        z.msg := 'incomplete literal/length tree';
+        r := Z_DATA_ERROR;
+      end;
+
+    ZFREE(z, v);
+    inflate_trees_dynamic := r;
+    exit;
+  end;
+
+  { build distance tree }
+  r := huft_build(puIntArray(@c[nl])^, nd, 0,
+                  cpdist, cpdext, @td, bd, hp, hn, v^);
+  if (r <> Z_OK) or ((bd = 0) and (nl > 257)) then
+  begin
+    if (r = Z_DATA_ERROR) then
+      z.msg := 'oversubscribed literal/length tree'
+    else
+      if (r = Z_BUF_ERROR) then
+      begin
+{$ifdef PKZIP_BUG_WORKAROUND}
+        r := Z_OK;
+      end;
+{$else}
+        z.msg := 'incomplete literal/length tree';
+        r := Z_DATA_ERROR;
+      end
+      else
+        if (r <> Z_MEM_ERROR) then
+        begin
+          z.msg := 'empty distance tree with lengths';
+          r := Z_DATA_ERROR;
+        end;
+    ZFREE(z, v);
+    inflate_trees_dynamic := r;
+    exit;
+{$endif}
+  end;
+
+  { done }
+  ZFREE(z, v);
+  inflate_trees_dynamic := Z_OK;
+end;
+
+{$UNDEF BUILDFIXED}
+
+{ build fixed tables only once--keep them here }
+{$IFNDEF BUILDFIXED}
+{ locals }
+var
+  fixed_built : Boolean = false;
+const
+  FIXEDH = 544;      { number of hufts used by fixed tables }
+var
+  fixed_mem : array[0..FIXEDH-1] of inflate_huft;
+  fixed_bl : uInt;
+  fixed_bd : uInt;
+  fixed_tl : pInflate_huft;
+  fixed_td : pInflate_huft;
+
+{$ELSE}
+
+{ inffixed.h -- table for decoding fixed codes }
+
+{local}
+const
+  fixed_bl = uInt(9);
+{local}
+const
+  fixed_bd = uInt(5);
+{local}
+const
+  fixed_tl : array [0..288-1] of inflate_huft = (
+    Exop,             { number of extra bits or operation }
+    bits : Byte;      { number of bits in this code or subcode }
+    {pad : uInt;}       { pad structure to a power of 2 (4 bytes for }
+                      {  16-bit, 8 bytes for 32-bit int's) }
+    base : uInt;      { literal, length base, or distance base }
+                      { or table offset }
+
+    ((96,7),256), ((0,8),80), ((0,8),16), ((84,8),115), ((82,7),31),
+    ((0,8),112), ((0,8),48), ((0,9),192), ((80,7),10), ((0,8),96),
+    ((0,8),32), ((0,9),160), ((0,8),0), ((0,8),128), ((0,8),64),
+    ((0,9),224), ((80,7),6), ((0,8),88), ((0,8),24), ((0,9),144),
+    ((83,7),59), ((0,8),120), ((0,8),56), ((0,9),208), ((81,7),17),
+    ((0,8),104), ((0,8),40), ((0,9),176), ((0,8),8), ((0,8),136),
+    ((0,8),72), ((0,9),240), ((80,7),4), ((0,8),84), ((0,8),20),
+    ((85,8),227), ((83,7),43), ((0,8),116), ((0,8),52), ((0,9),200),
+    ((81,7),13), ((0,8),100), ((0,8),36), ((0,9),168), ((0,8),4),
+    ((0,8),132), ((0,8),68), ((0,9),232), ((80,7),8), ((0,8),92),
+    ((0,8),28), ((0,9),152), ((84,7),83), ((0,8),124), ((0,8),60),
+    ((0,9),216), ((82,7),23), ((0,8),108), ((0,8),44), ((0,9),184),
+    ((0,8),12), ((0,8),140), ((0,8),76), ((0,9),248), ((80,7),3),
+    ((0,8),82), ((0,8),18), ((85,8),163), ((83,7),35), ((0,8),114),
+    ((0,8),50), ((0,9),196), ((81,7),11), ((0,8),98), ((0,8),34),
+    ((0,9),164), ((0,8),2), ((0,8),130), ((0,8),66), ((0,9),228),
+    ((80,7),7), ((0,8),90), ((0,8),26), ((0,9),148), ((84,7),67),
+    ((0,8),122), ((0,8),58), ((0,9),212), ((82,7),19), ((0,8),106),
+    ((0,8),42), ((0,9),180), ((0,8),10), ((0,8),138), ((0,8),74),
+    ((0,9),244), ((80,7),5), ((0,8),86), ((0,8),22), ((192,8),0),
+    ((83,7),51), ((0,8),118), ((0,8),54), ((0,9),204), ((81,7),15),
+    ((0,8),102), ((0,8),38), ((0,9),172), ((0,8),6), ((0,8),134),
+    ((0,8),70), ((0,9),236), ((80,7),9), ((0,8),94), ((0,8),30),
+    ((0,9),156), ((84,7),99), ((0,8),126), ((0,8),62), ((0,9),220),
+    ((82,7),27), ((0,8),110), ((0,8),46), ((0,9),188), ((0,8),14),
+    ((0,8),142), ((0,8),78), ((0,9),252), ((96,7),256), ((0,8),81),
+    ((0,8),17), ((85,8),131), ((82,7),31), ((0,8),113), ((0,8),49),
+    ((0,9),194), ((80,7),10), ((0,8),97), ((0,8),33), ((0,9),162),
+    ((0,8),1), ((0,8),129), ((0,8),65), ((0,9),226), ((80,7),6),
+    ((0,8),89), ((0,8),25), ((0,9),146), ((83,7),59), ((0,8),121),
+    ((0,8),57), ((0,9),210), ((81,7),17), ((0,8),105), ((0,8),41),
+    ((0,9),178), ((0,8),9), ((0,8),137), ((0,8),73), ((0,9),242),
+    ((80,7),4), ((0,8),85), ((0,8),21), ((80,8),258), ((83,7),43),
+    ((0,8),117), ((0,8),53), ((0,9),202), ((81,7),13), ((0,8),101),
+    ((0,8),37), ((0,9),170), ((0,8),5), ((0,8),133), ((0,8),69),
+    ((0,9),234), ((80,7),8), ((0,8),93), ((0,8),29), ((0,9),154),
+    ((84,7),83), ((0,8),125), ((0,8),61), ((0,9),218), ((82,7),23),
+    ((0,8),109), ((0,8),45), ((0,9),186), ((0,8),13), ((0,8),141),
+    ((0,8),77), ((0,9),250), ((80,7),3), ((0,8),83), ((0,8),19),
+    ((85,8),195), ((83,7),35), ((0,8),115), ((0,8),51), ((0,9),198),
+    ((81,7),11), ((0,8),99), ((0,8),35), ((0,9),166), ((0,8),3),
+    ((0,8),131), ((0,8),67), ((0,9),230), ((80,7),7), ((0,8),91),
+    ((0,8),27), ((0,9),150), ((84,7),67), ((0,8),123), ((0,8),59),
+    ((0,9),214), ((82,7),19), ((0,8),107), ((0,8),43), ((0,9),182),
+    ((0,8),11), ((0,8),139), ((0,8),75), ((0,9),246), ((80,7),5),
+    ((0,8),87), ((0,8),23), ((192,8),0), ((83,7),51), ((0,8),119),
+    ((0,8),55), ((0,9),206), ((81,7),15), ((0,8),103), ((0,8),39),
+    ((0,9),174), ((0,8),7), ((0,8),135), ((0,8),71), ((0,9),238),
+    ((80,7),9), ((0,8),95), ((0,8),31), ((0,9),158), ((84,7),99),
+    ((0,8),127), ((0,8),63), ((0,9),222), ((82,7),27), ((0,8),111),
+    ((0,8),47), ((0,9),190), ((0,8),15), ((0,8),143), ((0,8),79),
+    ((0,9),254), ((96,7),256), ((0,8),80), ((0,8),16), ((84,8),115),
+    ((82,7),31), ((0,8),112), ((0,8),48), ((0,9),193), ((80,7),10),
+    ((0,8),96), ((0,8),32), ((0,9),161), ((0,8),0), ((0,8),128),
+    ((0,8),64), ((0,9),225), ((80,7),6), ((0,8),88), ((0,8),24),
+    ((0,9),145), ((83,7),59), ((0,8),120), ((0,8),56), ((0,9),209),
+    ((81,7),17), ((0,8),104), ((0,8),40), ((0,9),177), ((0,8),8),
+    ((0,8),136), ((0,8),72), ((0,9),241), ((80,7),4), ((0,8),84),
+    ((0,8),20), ((85,8),227), ((83,7),43), ((0,8),116), ((0,8),52),
+    ((0,9),201), ((81,7),13), ((0,8),100), ((0,8),36), ((0,9),169),
+    ((0,8),4), ((0,8),132), ((0,8),68), ((0,9),233), ((80,7),8),
+    ((0,8),92), ((0,8),28), ((0,9),153), ((84,7),83), ((0,8),124),
+    ((0,8),60), ((0,9),217), ((82,7),23), ((0,8),108), ((0,8),44),
+    ((0,9),185), ((0,8),12), ((0,8),140), ((0,8),76), ((0,9),249),
+    ((80,7),3), ((0,8),82), ((0,8),18), ((85,8),163), ((83,7),35),
+    ((0,8),114), ((0,8),50), ((0,9),197), ((81,7),11), ((0,8),98),
+    ((0,8),34), ((0,9),165), ((0,8),2), ((0,8),130), ((0,8),66),
+    ((0,9),229), ((80,7),7), ((0,8),90), ((0,8),26), ((0,9),149),
+    ((84,7),67), ((0,8),122), ((0,8),58), ((0,9),213), ((82,7),19),
+    ((0,8),106), ((0,8),42), ((0,9),181), ((0,8),10), ((0,8),138),
+    ((0,8),74), ((0,9),245), ((80,7),5), ((0,8),86), ((0,8),22),
+    ((192,8),0), ((83,7),51), ((0,8),118), ((0,8),54), ((0,9),205),
+    ((81,7),15), ((0,8),102), ((0,8),38), ((0,9),173), ((0,8),6),
+    ((0,8),134), ((0,8),70), ((0,9),237), ((80,7),9), ((0,8),94),
+    ((0,8),30), ((0,9),157), ((84,7),99), ((0,8),126), ((0,8),62),
+    ((0,9),221), ((82,7),27), ((0,8),110), ((0,8),46), ((0,9),189),
+    ((0,8),14), ((0,8),142), ((0,8),78), ((0,9),253), ((96,7),256),
+    ((0,8),81), ((0,8),17), ((85,8),131), ((82,7),31), ((0,8),113),
+    ((0,8),49), ((0,9),195), ((80,7),10), ((0,8),97), ((0,8),33),
+    ((0,9),163), ((0,8),1), ((0,8),129), ((0,8),65), ((0,9),227),
+    ((80,7),6), ((0,8),89), ((0,8),25), ((0,9),147), ((83,7),59),
+    ((0,8),121), ((0,8),57), ((0,9),211), ((81,7),17), ((0,8),105),
+    ((0,8),41), ((0,9),179), ((0,8),9), ((0,8),137), ((0,8),73),
+    ((0,9),243), ((80,7),4), ((0,8),85), ((0,8),21), ((80,8),258),
+    ((83,7),43), ((0,8),117), ((0,8),53), ((0,9),203), ((81,7),13),
+    ((0,8),101), ((0,8),37), ((0,9),171), ((0,8),5), ((0,8),133),
+    ((0,8),69), ((0,9),235), ((80,7),8), ((0,8),93), ((0,8),29),
+    ((0,9),155), ((84,7),83), ((0,8),125), ((0,8),61), ((0,9),219),
+    ((82,7),23), ((0,8),109), ((0,8),45), ((0,9),187), ((0,8),13),
+    ((0,8),141), ((0,8),77), ((0,9),251), ((80,7),3), ((0,8),83),
+    ((0,8),19), ((85,8),195), ((83,7),35), ((0,8),115), ((0,8),51),
+    ((0,9),199), ((81,7),11), ((0,8),99), ((0,8),35), ((0,9),167),
+    ((0,8),3), ((0,8),131), ((0,8),67), ((0,9),231), ((80,7),7),
+    ((0,8),91), ((0,8),27), ((0,9),151), ((84,7),67), ((0,8),123),
+    ((0,8),59), ((0,9),215), ((82,7),19), ((0,8),107), ((0,8),43),
+    ((0,9),183), ((0,8),11), ((0,8),139), ((0,8),75), ((0,9),247),
+    ((80,7),5), ((0,8),87), ((0,8),23), ((192,8),0), ((83,7),51),
+    ((0,8),119), ((0,8),55), ((0,9),207), ((81,7),15), ((0,8),103),
+    ((0,8),39), ((0,9),175), ((0,8),7), ((0,8),135), ((0,8),71),
+    ((0,9),239), ((80,7),9), ((0,8),95), ((0,8),31), ((0,9),159),
+    ((84,7),99), ((0,8),127), ((0,8),63), ((0,9),223), ((82,7),27),
+    ((0,8),111), ((0,8),47), ((0,9),191), ((0,8),15), ((0,8),143),
+    ((0,8),79), ((0,9),255)
+  );
+
+{local}
+const
+  fixed_td : array[0..32-1] of inflate_huft = (
+(Exop:80;bits:5;base:1),      (Exop:87;bits:5;base:257),   (Exop:83;bits:5;base:17),
+(Exop:91;bits:5;base:4097),   (Exop:81;bits:5;base),       (Exop:89;bits:5;base:1025),
+(Exop:85;bits:5;base:65),     (Exop:93;bits:5;base:16385), (Exop:80;bits:5;base:3),
+(Exop:88;bits:5;base:513),    (Exop:84;bits:5;base:33),    (Exop:92;bits:5;base:8193),
+(Exop:82;bits:5;base:9),      (Exop:90;bits:5;base:2049),  (Exop:86;bits:5;base:129),
+(Exop:192;bits:5;base:24577), (Exop:80;bits:5;base:2),     (Exop:87;bits:5;base:385),
+(Exop:83;bits:5;base:25),     (Exop:91;bits:5;base:6145),  (Exop:81;bits:5;base:7),
+(Exop:89;bits:5;base:1537),   (Exop:85;bits:5;base:97),    (Exop:93;bits:5;base:24577),
+(Exop:80;bits:5;base:4),      (Exop:88;bits:5;base:769),   (Exop:84;bits:5;base:49),
+(Exop:92;bits:5;base:12289),  (Exop:82;bits:5;base:13),    (Exop:90;bits:5;base:3073),
+(Exop:86;bits:5;base:193),    (Exop:192;bits:5;base:24577)
+  );
+{$ENDIF}
+
+function inflate_trees_fixed(
+var bl : uInt;               { literal desired/actual bit depth }
+var bd : uInt;               { distance desired/actual bit depth }
+var tl : pInflate_huft;      { literal/length tree result }
+var td : pInflate_huft;      { distance tree result }
+var  z : z_stream            { for memory allocation }
+      ) : int;
+type
+  pFixed_table = ^fixed_table;
+  fixed_table = array[0..288-1] of uIntf;
+var
+  k : int;                   { temporary variable }
+  c : pFixed_table;          { length list for huft_build }
+  v : PuIntArray;            { work area for huft_build }
+var
+  f : uInt;                  { number of hufts used in fixed_mem }
+begin
+  { build fixed tables if not already (multiple overlapped executions ok) }
+  if not fixed_built then
+  begin
+    f := 0;
+
+    { allocate memory }
+    c := pFixed_table( ZALLOC(z, 288, sizeof(uInt)) );
+    if (c = Z_NULL) then
+    begin
+      inflate_trees_fixed := Z_MEM_ERROR;
+      exit;
+    end;
+    v := PuIntArray( ZALLOC(z, 288, sizeof(uInt)) );
+    if (v = Z_NULL) then
+    begin
+      ZFREE(z, c);
+      inflate_trees_fixed := Z_MEM_ERROR;
+      exit;
+    end;
+
+    { literal table }
+    for k := 0 to Pred(144) do
+      c^[k] := 8;
+    for k := 144 to Pred(256) do
+      c^[k] := 9;
+    for k := 256 to Pred(280) do
+      c^[k] := 7;
+    for k := 280 to Pred(288) do
+      c^[k] := 8;
+    fixed_bl := 9;
+    huft_build(c^, 288, 257, cplens, cplext, @fixed_tl, fixed_bl,
+               fixed_mem, f, v^);
+
+    { distance table }
+    for k := 0 to Pred(30) do
+      c^[k] := 5;
+    fixed_bd := 5;
+    huft_build(c^, 30, 0, cpdist, cpdext, @fixed_td, fixed_bd,
+               fixed_mem, f, v^);
+
+    { done }
+    ZFREE(z, v);
+    ZFREE(z, c);
+    fixed_built := True;
+  end;
+  bl := fixed_bl;
+  bd := fixed_bd;
+  tl := fixed_tl;
+  td := fixed_td;
+  inflate_trees_fixed := Z_OK;
+end; { inflate_trees_fixed }
+
+
+end.
diff --git a/src/lib/vampimg/ZLib/iminfutil.pas b/src/lib/vampimg/ZLib/iminfutil.pas

new file mode 100644 (file)

index 0000000..384f0d3
--- /dev/null
+++ b/src/lib/vampimg/ZLib/iminfutil.pas
@@ -0,0 +1,222 @@
+Unit iminfutil;
+
+{ types and macros common to blocks and codes
+  Copyright (C) 1995-1998 Mark Adler
+
+   WARNING: this file should *not* be used by applications. It is
+   part of the implementation of the compression library and is
+   subject to change.
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil, impaszlib;
+
+{ copy as much as possible from the sliding window to the output area }
+function inflate_flush(var s : inflate_blocks_state;
+                       var z : z_stream;
+                       r : int) : int;
+
+{ And'ing with mask[n] masks the lower n bits }
+const
+  inflate_mask : array[0..17-1] of uInt = (
+    $0000,
+    $0001, $0003, $0007, $000f, $001f, $003f, $007f, $00ff,
+    $01ff, $03ff, $07ff, $0fff, $1fff, $3fff, $7fff, $ffff);
+
+{procedure GRABBITS(j : int);}
+{procedure DUMPBITS(j : int);}
+{procedure NEEDBITS(j : int);}
+
+implementation
+
+{ macros for bit input with no checking and for returning unused bytes }
+procedure GRABBITS(j : int);
+begin
+  {while (k < j) do
+  begin
+    Dec(z^.avail_in);
+    Inc(z^.total_in);
+    b := b or (uLong(z^.next_in^) shl k);
+    Inc(z^.next_in);
+    Inc(k, 8);
+  end;}
+end;
+
+procedure DUMPBITS(j : int);
+begin
+  {b := b shr j;
+  Dec(k, j);}
+end;
+
+procedure NEEDBITS(j : int);
+begin
+ (*
+          while (k < j) do
+          begin
+            {NEEDBYTE;}
+            if (n <> 0) then
+              r :=Z_OK
+            else
+            begin
+              {UPDATE}
+              s.bitb := b;
+              s.bitk := k;
+              z.avail_in := n;
+              Inc(z.total_in, LongInt(p)-LongInt(z.next_in));
+              z.next_in := p;
+              s.write := q;
+              result := inflate_flush(s,z,r);
+              exit;
+            end;
+            Dec(n);
+            b := b or (uLong(p^) shl k);
+            Inc(p);
+            Inc(k, 8);
+          end;
+ *)
+end;
+
+procedure NEEDOUT;
+begin
+ (*
+  if (m = 0) then
+  begin
+    {WRAP}
+    if (q = s.zend) and (s.read <> s.window) then
+    begin
+      q := s.window;
+      if LongInt(q) < LongInt(s.read) then
+        m := uInt(LongInt(s.read)-LongInt(q)-1)
+      else
+        m := uInt(LongInt(s.zend)-LongInt(q));
+    end;
+
+    if (m = 0) then
+    begin
+      {FLUSH}
+      s.write := q;
+      r := inflate_flush(s,z,r);
+      q := s.write;
+      if LongInt(q) < LongInt(s.read) then
+        m := uInt(LongInt(s.read)-LongInt(q)-1)
+      else
+        m := uInt(LongInt(s.zend)-LongInt(q));
+
+      {WRAP}
+      if (q = s.zend) and (s.read <> s.window) then
+      begin
+        q := s.window;
+        if LongInt(q) < LongInt(s.read) then
+          m := uInt(LongInt(s.read)-LongInt(q)-1)
+        else
+          m := uInt(LongInt(s.zend)-LongInt(q));
+      end;
+
+      if (m = 0) then
+      begin
+        {UPDATE}
+        s.bitb := b;
+        s.bitk := k;
+        z.avail_in := n;
+        Inc(z.total_in, LongInt(p)-LongInt(z.next_in));
+        z.next_in := p;
+        s.write := q;
+        result := inflate_flush(s,z,r);
+        exit;
+      end;
+    end;
+  end;
+  r := Z_OK;
+ *)
+end;
+
+{ copy as much as possible from the sliding window to the output area }
+function inflate_flush(var s : inflate_blocks_state;
+                       var z : z_stream;
+                       r : int) : int;
+var
+  n : uInt;
+  p : pBytef;
+  q : pBytef;
+begin
+  { local copies of source and destination pointers }
+  p := z.next_out;
+  q := s.read;
+
+  { compute number of bytes to copy as far as end of window }
+  if ptr2int(q) <= ptr2int(s.write) then
+    n := uInt(ptr2int(s.write) - ptr2int(q))
+  else
+    n := uInt(ptr2int(s.zend) - ptr2int(q));
+  if (n > z.avail_out) then
+    n := z.avail_out;
+  if (n <> 0) and (r = Z_BUF_ERROR) then
+    r := Z_OK;
+
+  { update counters }
+  Dec(z.avail_out, n);
+  Inc(z.total_out, n);
+
+
+  { update check information }
+  if Assigned(s.checkfn) then
+  begin
+    s.check := s.checkfn(s.check, q, n);
+    z.adler := s.check;
+  end;
+
+  { copy as far as end of window }
+  zmemcpy(p, q, n);
+  Inc(p, n);
+  Inc(q, n);
+
+  { see if more to copy at beginning of window }
+  if (q = s.zend) then
+  begin
+    { wrap pointers }
+    q := s.window;
+    if (s.write = s.zend) then
+      s.write := s.window;
+
+    { compute bytes to copy }
+    n := uInt(ptr2int(s.write) - ptr2int(q));
+    if (n > z.avail_out) then
+      n := z.avail_out;
+    if (n <> 0) and (r = Z_BUF_ERROR) then
+      r := Z_OK;
+
+    { update counters }
+    Dec( z.avail_out, n);
+    Inc( z.total_out, n);
+
+    { update check information }
+    if Assigned(s.checkfn) then
+    begin
+      s.check := s.checkfn(s.check, q, n);
+      z.adler := s.check;
+    end;
+
+    { copy }
+    zmemcpy(p, q, n);
+    Inc(p, n);
+    Inc(q, n);
+  end;
+
+
+  { update pointers }
+  z.next_out := p;
+  s.read := q;
+
+  { done }
+  inflate_flush := r;
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/impaszlib.pas b/src/lib/vampimg/ZLib/impaszlib.pas

new file mode 100644 (file)

index 0000000..7827dec
--- /dev/null
+++ b/src/lib/vampimg/ZLib/impaszlib.pas
@@ -0,0 +1,520 @@
+Unit impaszlib;
+
+
+{ Original:
+   zlib.h -- interface of the 'zlib' general purpose compression library
+  version 1.1.0, Feb 24th, 1998
+
+  Copyright (C) 1995-1998 Jean-loup Gailly and Mark Adler
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+
+  Jean-loup Gailly        Mark Adler
+  jloup@gzip.org          madler@alumni.caltech.edu
+
+
+  The data format used by the zlib library is described by RFCs (Request for
+  Comments) 1950 to 1952 in the files ftp://ds.internic.net/rfc/rfc1950.txt
+  (zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format).
+
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil;
+
+{ zconf.h -- configuration of the zlib compression library }
+{ zutil.c -- target dependent utility functions for the compression library }
+
+{ The 'zlib' compression library provides in-memory compression and
+  decompression functions, including integrity checks of the uncompressed
+  data.  This version of the library supports only one compression method
+  (deflation) but other algorithms will be added later and will have the same
+  stream interface.
+
+     Compression can be done in a single step if the buffers are large
+  enough (for example if an input file is mmap'ed), or can be done by
+  repeated calls of the compression function.  In the latter case, the
+  application must provide more input and/or consume the output
+  (providing more output space) before each call.
+
+     The library also supports reading and writing files in gzip (.gz) format
+  with an interface similar to that of stdio.
+
+     The library does not install any signal handler. The decoder checks
+  the consistency of the compressed data, so the library should never
+  crash even in case of corrupted input. }
+
+
+
+{ Compile with -DMAXSEG_64K if the alloc function cannot allocate more
+  than 64k bytes at a time (needed on systems with 16-bit int). }
+
+{ Maximum value for memLevel in deflateInit2 }
+const
+  MAX_MEM_LEVEL = 9;
+  DEF_MEM_LEVEL = 8; { if MAX_MEM_LEVEL > 8 }
+
+{ Maximum value for windowBits in deflateInit2 and inflateInit2 }
+const
+  MAX_WBITS = 15; { 32K LZ77 window }
+
+{ default windowBits for decompression. MAX_WBITS is for compression only }
+const
+  DEF_WBITS = MAX_WBITS;
+
+{ The memory requirements for deflate are (in bytes):
+            1 shl (windowBits+2)   +  1 shl (memLevel+9)
+ that is: 128K for windowBits=15  +  128K for memLevel = 8  (default values)
+ plus a few kilobytes for small objects. For example, if you want to reduce
+ the default memory requirements from 256K to 128K, compile with
+     DMAX_WBITS=14 DMAX_MEM_LEVEL=7
+ Of course this will generally degrade compression (there's no free lunch).
+
+ The memory requirements for inflate are (in bytes) 1 shl windowBits
+ that is, 32K for windowBits=15 (default value) plus a few kilobytes
+ for small objects. }
+
+
+{ Huffman code lookup table entry--this entry is four bytes for machines
+  that have 16-bit pointers (e.g. PC's in the small or medium model). }
+
+type
+  pInflate_huft = ^inflate_huft;
+  inflate_huft = Record
+    Exop,             { number of extra bits or operation }
+    bits : Byte;      { number of bits in this code or subcode }
+    {pad : uInt;}       { pad structure to a power of 2 (4 bytes for }
+                      {  16-bit, 8 bytes for 32-bit int's) }
+    base : uInt;      { literal, length base, or distance base }
+                      { or table offset }
+  End;
+
+type
+  huft_field = Array[0..(MaxInt div SizeOf(inflate_huft))-1] of inflate_huft;
+  huft_ptr = ^huft_field;
+type
+  ppInflate_huft = ^pInflate_huft;
+
+type
+  inflate_codes_mode = ( { waiting for "i:"=input, "o:"=output, "x:"=nothing }
+        START,    { x: set up for LEN }
+        LEN,      { i: get length/literal/eob next }
+        LENEXT,   { i: getting length extra (have base) }
+        DIST,     { i: get distance next }
+        DISTEXT,  { i: getting distance extra }
+        COPY,     { o: copying bytes in window, waiting for space }
+        LIT,      { o: got literal, waiting for output space }
+        WASH,     { o: got eob, possibly still output waiting }
+        ZEND,     { x: got eob and all data flushed }
+        BADCODE); { x: got error }
+
+{ inflate codes private state }
+type
+  pInflate_codes_state = ^inflate_codes_state;
+  inflate_codes_state = record
+
+    mode : inflate_codes_mode;        { current inflate_codes mode }
+
+    { mode dependent information }
+    len : uInt;
+    sub : record                      { submode }
+      Case Byte of
+      0:(code : record                { if LEN or DIST, where in tree }
+          tree : pInflate_huft;       { pointer into tree }
+          need : uInt;                { bits needed }
+         end);
+      1:(lit : uInt);                 { if LIT, literal }
+      2:(copy: record                 { if EXT or COPY, where and how much }
+           get : uInt;                { bits to get for extra }
+           dist : uInt;               { distance back to copy from }
+         end);
+    end;
+
+    { mode independent information }
+    lbits : Byte;                     { ltree bits decoded per branch }
+    dbits : Byte;                     { dtree bits decoder per branch }
+    ltree : pInflate_huft;            { literal/length/eob tree }
+    dtree : pInflate_huft;            { distance tree }
+  end;
+
+type
+  check_func = function(check : uLong;
+                        buf : pBytef;
+                        {const buf : array of byte;}
+                  len : uInt) : uLong;
+type
+  inflate_block_mode =
+     (ZTYPE,    { get type bits (3, including end bit) }
+      LENS,     { get lengths for stored }
+      STORED,   { processing stored block }
+      TABLE,    { get table lengths }
+      BTREE,    { get bit lengths tree for a dynamic block }
+      DTREE,    { get length, distance trees for a dynamic block }
+      CODES,    { processing fixed or dynamic block }
+      DRY,      { output remaining window bytes }
+      BLKDONE,  { finished last block, done }
+      BLKBAD);  { got a data error--stuck here }
+
+type
+  pInflate_blocks_state = ^inflate_blocks_state;
+
+{ inflate blocks semi-private state }
+  inflate_blocks_state = record
+
+    mode : inflate_block_mode;     { current inflate_block mode }
+
+    { mode dependent information }
+    sub : record                  { submode }
+    case Byte of
+    0:(left : uInt);              { if STORED, bytes left to copy }
+    1:(trees : record             { if DTREE, decoding info for trees }
+        table : uInt;               { table lengths (14 bits) }
+        index : uInt;               { index into blens (or border) }
+        blens : PuIntArray;         { bit lengths of codes }
+        bb : uInt;                  { bit length tree depth }
+        tb : pInflate_huft;         { bit length decoding tree }
+      end);
+    2:(decode : record            { if CODES, current state }
+        tl : pInflate_huft;
+        td : pInflate_huft;         { trees to free }
+        codes : pInflate_codes_state;
+      end);
+    end;
+    last : boolean;               { true if this block is the last block }
+
+    { mode independent information }
+    bitk : uInt;            { bits in bit buffer }
+    bitb : uLong;           { bit buffer }
+    hufts : huft_ptr; {pInflate_huft;}  { single malloc for tree space }
+    window : pBytef;        { sliding window }
+    zend : pBytef;          { one byte after sliding window }
+    read : pBytef;          { window read pointer }
+    write : pBytef;         { window write pointer }
+    checkfn : check_func;   { check function }
+    check : uLong;          { check on output }
+  end;
+
+type
+  inflate_mode = (
+      METHOD,   { waiting for method byte }
+      FLAG,     { waiting for flag byte }
+      DICT4,    { four dictionary check bytes to go }
+      DICT3,    { three dictionary check bytes to go }
+      DICT2,    { two dictionary check bytes to go }
+      DICT1,    { one dictionary check byte to go }
+      DICT0,    { waiting for inflateSetDictionary }
+      BLOCKS,   { decompressing blocks }
+      CHECK4,   { four check bytes to go }
+      CHECK3,   { three check bytes to go }
+      CHECK2,   { two check bytes to go }
+      CHECK1,   { one check byte to go }
+      DONE,     { finished check, done }
+      BAD);     { got an error--stay here }
+
+{ inflate private state }
+type
+  pInternal_state = ^internal_state; { or point to a deflate_state record }
+  internal_state = record
+
+     mode : inflate_mode;  { current inflate mode }
+
+     { mode dependent information }
+     sub : record          { submode }
+       case byte of
+       0:(method : uInt);  { if FLAGS, method byte }
+       1:(check : record   { if CHECK, check values to compare }
+           was : uLong;        { computed check value }
+           need : uLong;       { stream check value }
+          end);
+       2:(marker : uInt);  { if BAD, inflateSync's marker bytes count }
+     end;
+
+     { mode independent information }
+     nowrap : boolean;      { flag for no wrapper }
+     wbits : uInt;          { log2(window size)  (8..15, defaults to 15) }
+     blocks : pInflate_blocks_state;    { current inflate_blocks state }
+   end;
+
+type
+  alloc_func = function(opaque : voidpf; items : uInt; size : uInt) : voidpf;
+  free_func = procedure(opaque : voidpf; address : voidpf);
+
+type
+  z_streamp = ^z_stream;
+  z_stream = record
+    next_in : pBytef;     { next input byte }
+    avail_in : uInt;      { number of bytes available at next_in }
+    total_in : uLong;     { total nb of input bytes read so far }
+
+    next_out : pBytef;    { next output byte should be put there }
+    avail_out : uInt;     { remaining free space at next_out }
+    total_out : uLong;    { total nb of bytes output so far }
+
+    msg : string[255];         { last error message, '' if no error }
+    state : pInternal_state; { not visible by applications }
+
+    zalloc : alloc_func;  { used to allocate the internal state }
+    zfree : free_func;    { used to free the internal state }
+    opaque : voidpf;      { private data object passed to zalloc and zfree }
+
+    data_type : int;      { best guess about the data type: ascii or binary }
+    adler : uLong;        { adler32 value of the uncompressed data }
+    reserved : uLong;     { reserved for future use }
+  end;
+
+
+{  The application must update next_in and avail_in when avail_in has
+   dropped to zero. It must update next_out and avail_out when avail_out
+   has dropped to zero. The application must initialize zalloc, zfree and
+   opaque before calling the init function. All other fields are set by the
+   compression library and must not be updated by the application.
+
+   The opaque value provided by the application will be passed as the first
+   parameter for calls of zalloc and zfree. This can be useful for custom
+   memory management. The compression library attaches no meaning to the
+   opaque value.
+
+   zalloc must return Z_NULL if there is not enough memory for the object.
+   On 16-bit systems, the functions zalloc and zfree must be able to allocate
+   exactly 65536 bytes, but will not be required to allocate more than this
+   if the symbol MAXSEG_64K is defined (see zconf.h). WARNING: On MSDOS,
+   pointers returned by zalloc for objects of exactly 65536 bytes *must*
+   have their offset normalized to zero. The default allocation function
+   provided by this library ensures this (see zutil.c). To reduce memory
+   requirements and avoid any allocation of 64K objects, at the expense of
+   compression ratio, compile the library with -DMAX_WBITS=14 (see zconf.h).
+
+   The fields total_in and total_out can be used for statistics or
+   progress reports. After compression, total_in holds the total size of
+   the uncompressed data and may be saved for use in the decompressor
+   (particularly if the decompressor wants to decompress everything in
+   a single step). }
+
+const  { constants }
+   Z_NO_FLUSH      = 0;
+   Z_PARTIAL_FLUSH = 1;
+   Z_SYNC_FLUSH    = 2;
+   Z_FULL_FLUSH    = 3;
+   Z_FINISH        = 4;
+{ Allowed flush values; see deflate() below for details }
+
+   Z_OK            = 0;
+   Z_STREAM_END    = 1;
+   Z_NEED_DICT     = 2;
+   Z_ERRNO         = (-1);
+   Z_STREAM_ERROR  = (-2);
+   Z_DATA_ERROR    = (-3);
+   Z_MEM_ERROR     = (-4);
+   Z_BUF_ERROR     = (-5);
+   Z_VERSION_ERROR = (-6);
+{ Return codes for the compression/decompression functions. Negative
+  values are errors, positive values are used for special but normal events.}
+
+   Z_NO_COMPRESSION         = 0;
+   Z_BEST_SPEED             = 1;
+   Z_BEST_COMPRESSION       = 9;
+   Z_DEFAULT_COMPRESSION    = (-1);
+{ compression levels }
+
+   Z_FILTERED            = 1;
+   Z_HUFFMAN_ONLY        = 2;
+   Z_DEFAULT_STRATEGY    = 0;
+{ compression strategy; see deflateInit2() below for details }
+
+   Z_BINARY   = 0;
+   Z_ASCII    = 1;
+   Z_UNKNOWN  = 2;
+{ Possible values of the data_type field }
+
+   Z_DEFLATED   = 8;
+{ The deflate compression method (the only one supported in this version) }
+
+   Z_NULL  = NIL;  { for initializing zalloc, zfree, opaque }
+
+  {$IFDEF GZIO}
+var
+  errno : int;
+  {$ENDIF}
+
+        { common constants }
+
+
+{ The three kinds of block type }
+const
+  STORED_BLOCK = 0;
+  STATIC_TREES = 1;
+  DYN_TREES = 2;
+{ The minimum and maximum match lengths }
+const
+  MIN_MATCH = 3;
+  MAX_MATCH = 258;
+
+const
+  PRESET_DICT = $20; { preset dictionary flag in zlib header }
+
+
+  {$IFDEF DEBUG}
+  procedure Assert(cond : boolean; msg : AnsiString);
+  {$ENDIF}
+
+  procedure Trace(x : AnsiString);
+  procedure Tracev(x : AnsiString);
+  procedure Tracevv(x : AnsiString);
+  procedure Tracevvv(x : AnsiString);
+  procedure Tracec(c : boolean; x : AnsiString);
+  procedure Tracecv(c : boolean; x : AnsiString);
+
+function zlibVersion : AnsiString;
+{ The application can compare zlibVersion and ZLIB_VERSION for consistency.
+  If the first character differs, the library code actually used is
+  not compatible with the zlib.h header file used by the application.
+  This check is automatically made by deflateInit and inflateInit. }
+
+function zError(err : int) : AnsiString;
+function ZALLOC (var strm : z_stream; items : uInt; size : uInt) : voidpf;
+procedure ZFREE (var strm : z_stream; ptr : voidpf);
+procedure TRY_FREE (var strm : z_stream; ptr : voidpf);
+
+const
+  ZLIB_VERSION : string[10] = '1.1.2';
+
+const
+  z_errbase = Z_NEED_DICT;
+  z_errmsg : Array[0..9] of string[21] = { indexed by 2-zlib_error }
+           ('need dictionary',     { Z_NEED_DICT       2  }
+            'stream end',          { Z_STREAM_END      1  }
+            '',                    { Z_OK              0  }
+            'file error',          { Z_ERRNO         (-1) }
+            'stream error',        { Z_STREAM_ERROR  (-2) }
+            'data error',          { Z_DATA_ERROR    (-3) }
+            'insufficient memory', { Z_MEM_ERROR     (-4) }
+            'buffer error',        { Z_BUF_ERROR     (-5) }
+            'incompatible version',{ Z_VERSION_ERROR (-6) }
+            '');
+const
+  z_verbose : int = 1;
+
+function deflateInit_(var Stream: z_stream; Level: LongInt; const Version: AnsiString;
+  Stream_size: LongInt): LongInt;
+function inflateInit_(var Stream: z_stream; const Version: AnsiString;
+  Stream_size: Longint): LongInt;
+
+{$IFDEF DEBUG}
+procedure z_error (m : string);
+{$ENDIF}
+
+implementation
+
+uses
+  imzdeflate, imzinflate;
+
+function deflateInit_(var Stream: z_stream; Level: LongInt; const Version: AnsiString;
+  Stream_size: LongInt): LongInt;
+begin
+  Result := imzdeflate.deflateInit_(@Stream, Level, Version, Stream_size);
+end;
+
+function inflateInit_(var Stream: z_stream; const Version: AnsiString;
+  Stream_size: Longint): LongInt;
+begin
+  Result := imzinflate.inflateInit_(@Stream, Version, Stream_size);
+end;
+
+function zError(err : int) : AnsiString;
+begin
+  zError := z_errmsg[Z_NEED_DICT-err];
+end;
+
+function zlibVersion : AnsiString;
+begin
+  zlibVersion := ZLIB_VERSION;
+end;
+
+procedure z_error (m : AnsiString);
+begin
+  WriteLn(output, m);
+  Write('Zlib - Halt...');
+  ReadLn;
+  Halt(1);
+end;
+
+procedure Assert(cond : boolean; msg : AnsiString);
+begin
+  if not cond then
+    z_error(msg);
+end;
+
+procedure Trace(x : AnsiString);
+begin
+  WriteLn(x);
+end;
+
+procedure Tracev(x : AnsiString);
+begin
+ if (z_verbose>0) then
+   WriteLn(x);
+end;
+
+procedure Tracevv(x : AnsiString);
+begin
+  if (z_verbose>1) then
+    WriteLn(x);
+end;
+
+procedure Tracevvv(x : AnsiString);
+begin
+  if (z_verbose>2) then
+    WriteLn(x);
+end;
+
+procedure Tracec(c : boolean; x : AnsiString);
+begin
+  if (z_verbose>0) and (c) then
+    WriteLn(x);
+end;
+
+procedure Tracecv(c : boolean; x : AnsiString);
+begin
+  if (z_verbose>1) and c then
+    WriteLn(x);
+end;
+
+function ZALLOC (var strm : z_stream; items : uInt; size : uInt) : voidpf;
+begin
+  ZALLOC := strm.zalloc(strm.opaque, items, size);
+end;
+
+procedure ZFREE (var strm : z_stream; ptr : voidpf);
+begin
+  strm.zfree(strm.opaque, ptr);
+end;
+
+procedure TRY_FREE (var strm : z_stream; ptr : voidpf);
+begin
+  {if @strm <> Z_NULL then}
+    strm.zfree(strm.opaque, ptr);
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/imtrees.pas b/src/lib/vampimg/ZLib/imtrees.pas

new file mode 100644 (file)

index 0000000..8f1f559
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imtrees.pas
@@ -0,0 +1,2249 @@
+Unit imtrees;
+
+{$T-}
+{$define ORG_DEBUG}
+{
+  trees.c -- output deflated data using Huffman coding
+  Copyright (C) 1995-1998 Jean-loup Gailly
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+{
+ *  ALGORITHM
+ *
+ *      The "deflation" process uses several Huffman trees. The more
+ *      common source values are represented by shorter bit sequences.
+ *
+ *      Each code tree is stored in a compressed form which is itself
+ * a Huffman encoding of the lengths of all the code strings (in
+ * ascending order by source values).  The actual code strings are
+ * reconstructed from the lengths in the inflate process, as described
+ * in the deflate specification.
+ *
+ *  REFERENCES
+ *
+ *      Deutsch, L.P.,"'Deflate' Compressed Data Format Specification".
+ *      Available in ftp.uu.net:/pub/archiving/zip/doc/deflate-1.1.doc
+ *
+ *      Storer, James A.
+ *          Data Compression:  Methods and Theory, pp. 49-50.
+ *          Computer Science Press, 1988.  ISBN 0-7167-8156-5.
+ *
+ *      Sedgewick, R.
+ *          Algorithms, p290.
+ *          Addison-Wesley, 1983. ISBN 0-201-06672-6.
+ }
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  {$ifdef DEBUG}
+  SysUtils, strutils,
+  {$ENDIF}
+  imzutil, impaszlib;
+
+{ ===========================================================================
+  Internal compression state. }
+
+const
+  LENGTH_CODES = 29;
+{ number of length codes, not counting the special END_BLOCK code }
+
+  LITERALS = 256;
+{ number of literal bytes 0..255 }
+
+  L_CODES = (LITERALS+1+LENGTH_CODES);
+{ number of Literal or Length codes, including the END_BLOCK code }
+
+  D_CODES = 30;
+{ number of distance codes }
+
+  BL_CODES = 19;
+{ number of codes used to transfer the bit lengths }
+
+  HEAP_SIZE = (2*L_CODES+1);
+{ maximum heap size }
+
+  MAX_BITS = 15;
+{ All codes must not exceed MAX_BITS bits }
+
+const
+  INIT_STATE =  42;
+  BUSY_STATE =  113;
+  FINISH_STATE = 666;
+{ Stream status }
+
+
+{ Data structure describing a single value and its code string. }
+type
+  ct_data_ptr = ^ct_data;
+  ct_data = record
+    fc : record
+      case byte of
+      0:(freq : ush);       { frequency count }
+      1:(code : ush);       { bit string }
+    end;
+    dl : record
+      case byte of
+      0:(dad : ush);        { father node in Huffman tree }
+      1:(len : ush);        { length of bit string }
+    end;
+  end;
+
+{ Freq = fc.freq
+ Code = fc.code
+ Dad = dl.dad
+ Len = dl.len }
+
+type
+  ltree_type = array[0..HEAP_SIZE-1] of ct_data;    { literal and length tree }
+  dtree_type = array[0..2*D_CODES+1-1] of ct_data;  { distance tree }
+  htree_type = array[0..2*BL_CODES+1-1] of ct_data;  { Huffman tree for bit lengths }
+  { generic tree type }
+  tree_type = array[0..(MaxInt div SizeOf(ct_data))-1] of ct_data;
+
+  tree_ptr = ^tree_type;
+  ltree_ptr = ^ltree_type;
+  dtree_ptr = ^dtree_type;
+  htree_ptr = ^htree_type;
+
+
+type
+  static_tree_desc_ptr = ^static_tree_desc;
+  static_tree_desc =
+         record
+    {const} static_tree : tree_ptr;     { static tree or NIL }
+    {const} extra_bits : pzIntfArray;   { extra bits for each code or NIL }
+            extra_base : int;           { base index for extra_bits }
+            elems : int;                { max number of elements in the tree }
+            max_length : int;           { max bit length for the codes }
+          end;
+
+  tree_desc_ptr = ^tree_desc;
+  tree_desc = record
+    dyn_tree : tree_ptr;    { the dynamic tree }
+    max_code : int;            { largest code with non zero frequency }
+    stat_desc : static_tree_desc_ptr; { the corresponding static tree }
+  end;
+
+type
+  Pos = ush;
+  Posf = Pos; {FAR}
+  IPos = uInt;
+
+  pPosf = ^Posf;
+
+  zPosfArray = array[0..(MaxInt div SizeOf(Posf))-1] of Posf;
+  pzPosfArray = ^zPosfArray;
+
+{ A Pos is an index in the character window. We use short instead of int to
+  save space in the various tables. IPos is used only for parameter passing.}
+
+type
+  deflate_state_ptr = ^deflate_state;
+  deflate_state = record
+    strm : z_streamp;          { pointer back to this zlib stream }
+    status : int;              { as the name implies }
+    pending_buf : pzByteArray; { output still pending }
+    pending_buf_size : ulg;    { size of pending_buf }
+    pending_out : pBytef;      { next pending byte to output to the stream }
+    pending : int;             { nb of bytes in the pending buffer }
+    noheader : int;            { suppress zlib header and adler32 }
+    data_type : Byte;          { UNKNOWN, BINARY or ASCII }
+    method : Byte;             { STORED (for zip only) or DEFLATED }
+    last_flush : int;          { value of flush param for previous deflate call }
+
+                { used by deflate.pas: }
+
+    w_size : uInt;             { LZ77 window size (32K by default) }
+    w_bits : uInt;             { log2(w_size)  (8..16) }
+    w_mask : uInt;             { w_size - 1 }
+
+    window : pzByteArray;
+    { Sliding window. Input bytes are read into the second half of the window,
+      and move to the first half later to keep a dictionary of at least wSize
+      bytes. With this organization, matches are limited to a distance of
+      wSize-MAX_MATCH bytes, but this ensures that IO is always
+      performed with a length multiple of the block size. Also, it limits
+      the window size to 64K, which is quite useful on MSDOS.
+      To do: use the user input buffer as sliding window. }
+
+    window_size : ulg;
+    { Actual size of window: 2*wSize, except when the user input buffer
+      is directly used as sliding window. }
+
+    prev : pzPosfArray;
+    { Link to older string with same hash index. To limit the size of this
+      array to 64K, this link is maintained only for the last 32K strings.
+      An index in this array is thus a window index modulo 32K. }
+
+    head : pzPosfArray;    { Heads of the hash chains or NIL. }
+
+    ins_h : uInt;          { hash index of string to be inserted }
+    hash_size : uInt;      { number of elements in hash table }
+    hash_bits : uInt;      { log2(hash_size) }
+    hash_mask : uInt;      { hash_size-1 }
+
+    hash_shift : uInt;
+    { Number of bits by which ins_h must be shifted at each input
+      step. It must be such that after MIN_MATCH steps, the oldest
+      byte no longer takes part in the hash key, that is:
+        hash_shift * MIN_MATCH >= hash_bits     }
+
+    block_start : long;
+    { Window position at the beginning of the current output block. Gets
+      negative when the window is moved backwards. }
+
+    match_length : uInt;           { length of best match }
+    prev_match : IPos;             { previous match }
+    match_available : boolean;     { set if previous match exists }
+    strstart : uInt;               { start of string to insert }
+    match_start : uInt;            { start of matching string }
+    lookahead : uInt;              { number of valid bytes ahead in window }
+
+    prev_length : uInt;
+    { Length of the best match at previous step. Matches not greater than this
+      are discarded. This is used in the lazy match evaluation. }
+
+    max_chain_length : uInt;
+    { To speed up deflation, hash chains are never searched beyond this
+      length.  A higher limit improves compression ratio but degrades the
+      speed. }
+
+    { moved to the end because Borland Pascal won't accept the following:
+    max_lazy_match : uInt;
+    max_insert_length : uInt absolute max_lazy_match;
+    }
+
+    level : int;    { compression level (1..9) }
+    strategy : int; { favor or force Huffman coding}
+
+    good_match : uInt;
+    { Use a faster search when the previous match is longer than this }
+
+    nice_match : int; { Stop searching when current match exceeds this }
+
+                { used by trees.pas: }
+    { Didn't use ct_data typedef below to supress compiler warning }
+    dyn_ltree : ltree_type;    { literal and length tree }
+    dyn_dtree : dtree_type;  { distance tree }
+    bl_tree : htree_type;   { Huffman tree for bit lengths }
+
+    l_desc : tree_desc;                { desc. for literal tree }
+    d_desc : tree_desc;                { desc. for distance tree }
+    bl_desc : tree_desc;               { desc. for bit length tree }
+
+    bl_count : array[0..MAX_BITS+1-1] of ush;
+    { number of codes at each bit length for an optimal tree }
+
+    heap : array[0..2*L_CODES+1-1] of int; { heap used to build the Huffman trees }
+    heap_len : int;                   { number of elements in the heap }
+    heap_max : int;                   { element of largest frequency }
+    { The sons of heap[n] are heap[2*n] and heap[2*n+1]. heap[0] is not used.
+      The same heap array is used to build all trees. }
+
+    depth : array[0..2*L_CODES+1-1] of uch;
+    { Depth of each subtree used as tie breaker for trees of equal frequency }
+
+
+    l_buf : puchfArray;       { buffer for literals or lengths }
+
+    lit_bufsize : uInt;
+    { Size of match buffer for literals/lengths.  There are 4 reasons for
+      limiting lit_bufsize to 64K:
+        - frequencies can be kept in 16 bit counters
+        - if compression is not successful for the first block, all input
+          data is still in the window so we can still emit a stored block even
+          when input comes from standard input.  (This can also be done for
+          all blocks if lit_bufsize is not greater than 32K.)
+        - if compression is not successful for a file smaller than 64K, we can
+          even emit a stored file instead of a stored block (saving 5 bytes).
+          This is applicable only for zip (not gzip or zlib).
+        - creating new Huffman trees less frequently may not provide fast
+          adaptation to changes in the input data statistics. (Take for
+          example a binary file with poorly compressible code followed by
+          a highly compressible string table.) Smaller buffer sizes give
+          fast adaptation but have of course the overhead of transmitting
+          trees more frequently.
+        - I can't count above 4 }
+
+
+    last_lit : uInt;      { running index in l_buf }
+
+    d_buf : pushfArray;
+    { Buffer for distances. To simplify the code, d_buf and l_buf have
+      the same number of elements. To use different lengths, an extra flag
+      array would be necessary. }
+
+    opt_len : ulg;        { bit length of current block with optimal trees }
+    static_len : ulg;     { bit length of current block with static trees }
+    compressed_len : ulg; { total bit length of compressed file }
+    matches : uInt;       { number of string matches in current block }
+    last_eob_len : int;   { bit length of EOB code for last block }
+
+{$ifdef DEBUG}
+    bits_sent : ulg;    { bit length of the compressed data }
+{$endif}
+
+    bi_buf : ush;
+    { Output buffer. bits are inserted starting at the bottom (least
+      significant bits). }
+
+    bi_valid : int;
+    { Number of valid bits in bi_buf.  All bits above the last valid bit
+      are always zero. }
+
+    case byte of
+    0:(max_lazy_match : uInt);
+    { Attempt to find a better match only when the current match is strictly
+      smaller than this value. This mechanism is used only for compression
+      levels >= 4. }
+
+    1:(max_insert_length : uInt);
+    { Insert new strings in the hash table only if the match length is not
+      greater than this length. This saves time but degrades compression.
+      max_insert_length is used only for compression levels <= 3. }
+  end;
+
+procedure _tr_init (var s : deflate_state);
+
+function _tr_tally (var s : deflate_state;
+                    dist : unsigned;
+                    lc : unsigned) : boolean;
+
+function _tr_flush_block (var s : deflate_state;
+                          buf : pcharf;
+                          stored_len : ulg;
+        eof : boolean) : ulg;
+
+procedure _tr_align(var s : deflate_state);
+
+procedure _tr_stored_block(var s : deflate_state;
+                           buf : pcharf;
+                           stored_len : ulg;
+                           eof : boolean);
+
+implementation
+
+{ #define GEN_TREES_H }
+
+{$ifndef GEN_TREES_H}
+{ header created automatically with -DGEN_TREES_H }
+
+const
+  DIST_CODE_LEN = 512; { see definition of array dist_code below }
+
+{ The static literal tree. Since the bit lengths are imposed, there is no
+  need for the L_CODES extra codes used during heap construction. However
+  The codes 286 and 287 are needed to build a canonical tree (see _tr_init
+  below). }
+var
+  static_ltree : array[0..L_CODES+2-1] of ct_data = (
+{ fc:(freq, code) dl:(dad,len) }
+(fc:(freq: 12);dl:(len: 8)), (fc:(freq:140);dl:(len: 8)), (fc:(freq: 76);dl:(len: 8)),
+(fc:(freq:204);dl:(len: 8)), (fc:(freq: 44);dl:(len: 8)), (fc:(freq:172);dl:(len: 8)),
+(fc:(freq:108);dl:(len: 8)), (fc:(freq:236);dl:(len: 8)), (fc:(freq: 28);dl:(len: 8)),
+(fc:(freq:156);dl:(len: 8)), (fc:(freq: 92);dl:(len: 8)), (fc:(freq:220);dl:(len: 8)),
+(fc:(freq: 60);dl:(len: 8)), (fc:(freq:188);dl:(len: 8)), (fc:(freq:124);dl:(len: 8)),
+(fc:(freq:252);dl:(len: 8)), (fc:(freq:  2);dl:(len: 8)), (fc:(freq:130);dl:(len: 8)),
+(fc:(freq: 66);dl:(len: 8)), (fc:(freq:194);dl:(len: 8)), (fc:(freq: 34);dl:(len: 8)),
+(fc:(freq:162);dl:(len: 8)), (fc:(freq: 98);dl:(len: 8)), (fc:(freq:226);dl:(len: 8)),
+(fc:(freq: 18);dl:(len: 8)), (fc:(freq:146);dl:(len: 8)), (fc:(freq: 82);dl:(len: 8)),
+(fc:(freq:210);dl:(len: 8)), (fc:(freq: 50);dl:(len: 8)), (fc:(freq:178);dl:(len: 8)),
+(fc:(freq:114);dl:(len: 8)), (fc:(freq:242);dl:(len: 8)), (fc:(freq: 10);dl:(len: 8)),
+(fc:(freq:138);dl:(len: 8)), (fc:(freq: 74);dl:(len: 8)), (fc:(freq:202);dl:(len: 8)),
+(fc:(freq: 42);dl:(len: 8)), (fc:(freq:170);dl:(len: 8)), (fc:(freq:106);dl:(len: 8)),
+(fc:(freq:234);dl:(len: 8)), (fc:(freq: 26);dl:(len: 8)), (fc:(freq:154);dl:(len: 8)),
+(fc:(freq: 90);dl:(len: 8)), (fc:(freq:218);dl:(len: 8)), (fc:(freq: 58);dl:(len: 8)),
+(fc:(freq:186);dl:(len: 8)), (fc:(freq:122);dl:(len: 8)), (fc:(freq:250);dl:(len: 8)),
+(fc:(freq:  6);dl:(len: 8)), (fc:(freq:134);dl:(len: 8)), (fc:(freq: 70);dl:(len: 8)),
+(fc:(freq:198);dl:(len: 8)), (fc:(freq: 38);dl:(len: 8)), (fc:(freq:166);dl:(len: 8)),
+(fc:(freq:102);dl:(len: 8)), (fc:(freq:230);dl:(len: 8)), (fc:(freq: 22);dl:(len: 8)),
+(fc:(freq:150);dl:(len: 8)), (fc:(freq: 86);dl:(len: 8)), (fc:(freq:214);dl:(len: 8)),
+(fc:(freq: 54);dl:(len: 8)), (fc:(freq:182);dl:(len: 8)), (fc:(freq:118);dl:(len: 8)),
+(fc:(freq:246);dl:(len: 8)), (fc:(freq: 14);dl:(len: 8)), (fc:(freq:142);dl:(len: 8)),
+(fc:(freq: 78);dl:(len: 8)), (fc:(freq:206);dl:(len: 8)), (fc:(freq: 46);dl:(len: 8)),
+(fc:(freq:174);dl:(len: 8)), (fc:(freq:110);dl:(len: 8)), (fc:(freq:238);dl:(len: 8)),
+(fc:(freq: 30);dl:(len: 8)), (fc:(freq:158);dl:(len: 8)), (fc:(freq: 94);dl:(len: 8)),
+(fc:(freq:222);dl:(len: 8)), (fc:(freq: 62);dl:(len: 8)), (fc:(freq:190);dl:(len: 8)),
+(fc:(freq:126);dl:(len: 8)), (fc:(freq:254);dl:(len: 8)), (fc:(freq:  1);dl:(len: 8)),
+(fc:(freq:129);dl:(len: 8)), (fc:(freq: 65);dl:(len: 8)), (fc:(freq:193);dl:(len: 8)),
+(fc:(freq: 33);dl:(len: 8)), (fc:(freq:161);dl:(len: 8)), (fc:(freq: 97);dl:(len: 8)),
+(fc:(freq:225);dl:(len: 8)), (fc:(freq: 17);dl:(len: 8)), (fc:(freq:145);dl:(len: 8)),
+(fc:(freq: 81);dl:(len: 8)), (fc:(freq:209);dl:(len: 8)), (fc:(freq: 49);dl:(len: 8)),
+(fc:(freq:177);dl:(len: 8)), (fc:(freq:113);dl:(len: 8)), (fc:(freq:241);dl:(len: 8)),
+(fc:(freq:  9);dl:(len: 8)), (fc:(freq:137);dl:(len: 8)), (fc:(freq: 73);dl:(len: 8)),
+(fc:(freq:201);dl:(len: 8)), (fc:(freq: 41);dl:(len: 8)), (fc:(freq:169);dl:(len: 8)),
+(fc:(freq:105);dl:(len: 8)), (fc:(freq:233);dl:(len: 8)), (fc:(freq: 25);dl:(len: 8)),
+(fc:(freq:153);dl:(len: 8)), (fc:(freq: 89);dl:(len: 8)), (fc:(freq:217);dl:(len: 8)),
+(fc:(freq: 57);dl:(len: 8)), (fc:(freq:185);dl:(len: 8)), (fc:(freq:121);dl:(len: 8)),
+(fc:(freq:249);dl:(len: 8)), (fc:(freq:  5);dl:(len: 8)), (fc:(freq:133);dl:(len: 8)),
+(fc:(freq: 69);dl:(len: 8)), (fc:(freq:197);dl:(len: 8)), (fc:(freq: 37);dl:(len: 8)),
+(fc:(freq:165);dl:(len: 8)), (fc:(freq:101);dl:(len: 8)), (fc:(freq:229);dl:(len: 8)),
+(fc:(freq: 21);dl:(len: 8)), (fc:(freq:149);dl:(len: 8)), (fc:(freq: 85);dl:(len: 8)),
+(fc:(freq:213);dl:(len: 8)), (fc:(freq: 53);dl:(len: 8)), (fc:(freq:181);dl:(len: 8)),
+(fc:(freq:117);dl:(len: 8)), (fc:(freq:245);dl:(len: 8)), (fc:(freq: 13);dl:(len: 8)),
+(fc:(freq:141);dl:(len: 8)), (fc:(freq: 77);dl:(len: 8)), (fc:(freq:205);dl:(len: 8)),
+(fc:(freq: 45);dl:(len: 8)), (fc:(freq:173);dl:(len: 8)), (fc:(freq:109);dl:(len: 8)),
+(fc:(freq:237);dl:(len: 8)), (fc:(freq: 29);dl:(len: 8)), (fc:(freq:157);dl:(len: 8)),
+(fc:(freq: 93);dl:(len: 8)), (fc:(freq:221);dl:(len: 8)), (fc:(freq: 61);dl:(len: 8)),
+(fc:(freq:189);dl:(len: 8)), (fc:(freq:125);dl:(len: 8)), (fc:(freq:253);dl:(len: 8)),
+(fc:(freq: 19);dl:(len: 9)), (fc:(freq:275);dl:(len: 9)), (fc:(freq:147);dl:(len: 9)),
+(fc:(freq:403);dl:(len: 9)), (fc:(freq: 83);dl:(len: 9)), (fc:(freq:339);dl:(len: 9)),
+(fc:(freq:211);dl:(len: 9)), (fc:(freq:467);dl:(len: 9)), (fc:(freq: 51);dl:(len: 9)),
+(fc:(freq:307);dl:(len: 9)), (fc:(freq:179);dl:(len: 9)), (fc:(freq:435);dl:(len: 9)),
+(fc:(freq:115);dl:(len: 9)), (fc:(freq:371);dl:(len: 9)), (fc:(freq:243);dl:(len: 9)),
+(fc:(freq:499);dl:(len: 9)), (fc:(freq: 11);dl:(len: 9)), (fc:(freq:267);dl:(len: 9)),
+(fc:(freq:139);dl:(len: 9)), (fc:(freq:395);dl:(len: 9)), (fc:(freq: 75);dl:(len: 9)),
+(fc:(freq:331);dl:(len: 9)), (fc:(freq:203);dl:(len: 9)), (fc:(freq:459);dl:(len: 9)),
+(fc:(freq: 43);dl:(len: 9)), (fc:(freq:299);dl:(len: 9)), (fc:(freq:171);dl:(len: 9)),
+(fc:(freq:427);dl:(len: 9)), (fc:(freq:107);dl:(len: 9)), (fc:(freq:363);dl:(len: 9)),
+(fc:(freq:235);dl:(len: 9)), (fc:(freq:491);dl:(len: 9)), (fc:(freq: 27);dl:(len: 9)),
+(fc:(freq:283);dl:(len: 9)), (fc:(freq:155);dl:(len: 9)), (fc:(freq:411);dl:(len: 9)),
+(fc:(freq: 91);dl:(len: 9)), (fc:(freq:347);dl:(len: 9)), (fc:(freq:219);dl:(len: 9)),
+(fc:(freq:475);dl:(len: 9)), (fc:(freq: 59);dl:(len: 9)), (fc:(freq:315);dl:(len: 9)),
+(fc:(freq:187);dl:(len: 9)), (fc:(freq:443);dl:(len: 9)), (fc:(freq:123);dl:(len: 9)),
+(fc:(freq:379);dl:(len: 9)), (fc:(freq:251);dl:(len: 9)), (fc:(freq:507);dl:(len: 9)),
+(fc:(freq:  7);dl:(len: 9)), (fc:(freq:263);dl:(len: 9)), (fc:(freq:135);dl:(len: 9)),
+(fc:(freq:391);dl:(len: 9)), (fc:(freq: 71);dl:(len: 9)), (fc:(freq:327);dl:(len: 9)),
+(fc:(freq:199);dl:(len: 9)), (fc:(freq:455);dl:(len: 9)), (fc:(freq: 39);dl:(len: 9)),
+(fc:(freq:295);dl:(len: 9)), (fc:(freq:167);dl:(len: 9)), (fc:(freq:423);dl:(len: 9)),
+(fc:(freq:103);dl:(len: 9)), (fc:(freq:359);dl:(len: 9)), (fc:(freq:231);dl:(len: 9)),
+(fc:(freq:487);dl:(len: 9)), (fc:(freq: 23);dl:(len: 9)), (fc:(freq:279);dl:(len: 9)),
+(fc:(freq:151);dl:(len: 9)), (fc:(freq:407);dl:(len: 9)), (fc:(freq: 87);dl:(len: 9)),
+(fc:(freq:343);dl:(len: 9)), (fc:(freq:215);dl:(len: 9)), (fc:(freq:471);dl:(len: 9)),
+(fc:(freq: 55);dl:(len: 9)), (fc:(freq:311);dl:(len: 9)), (fc:(freq:183);dl:(len: 9)),
+(fc:(freq:439);dl:(len: 9)), (fc:(freq:119);dl:(len: 9)), (fc:(freq:375);dl:(len: 9)),
+(fc:(freq:247);dl:(len: 9)), (fc:(freq:503);dl:(len: 9)), (fc:(freq: 15);dl:(len: 9)),
+(fc:(freq:271);dl:(len: 9)), (fc:(freq:143);dl:(len: 9)), (fc:(freq:399);dl:(len: 9)),
+(fc:(freq: 79);dl:(len: 9)), (fc:(freq:335);dl:(len: 9)), (fc:(freq:207);dl:(len: 9)),
+(fc:(freq:463);dl:(len: 9)), (fc:(freq: 47);dl:(len: 9)), (fc:(freq:303);dl:(len: 9)),
+(fc:(freq:175);dl:(len: 9)), (fc:(freq:431);dl:(len: 9)), (fc:(freq:111);dl:(len: 9)),
+(fc:(freq:367);dl:(len: 9)), (fc:(freq:239);dl:(len: 9)), (fc:(freq:495);dl:(len: 9)),
+(fc:(freq: 31);dl:(len: 9)), (fc:(freq:287);dl:(len: 9)), (fc:(freq:159);dl:(len: 9)),
+(fc:(freq:415);dl:(len: 9)), (fc:(freq: 95);dl:(len: 9)), (fc:(freq:351);dl:(len: 9)),
+(fc:(freq:223);dl:(len: 9)), (fc:(freq:479);dl:(len: 9)), (fc:(freq: 63);dl:(len: 9)),
+(fc:(freq:319);dl:(len: 9)), (fc:(freq:191);dl:(len: 9)), (fc:(freq:447);dl:(len: 9)),
+(fc:(freq:127);dl:(len: 9)), (fc:(freq:383);dl:(len: 9)), (fc:(freq:255);dl:(len: 9)),
+(fc:(freq:511);dl:(len: 9)), (fc:(freq:  0);dl:(len: 7)), (fc:(freq: 64);dl:(len: 7)),
+(fc:(freq: 32);dl:(len: 7)), (fc:(freq: 96);dl:(len: 7)), (fc:(freq: 16);dl:(len: 7)),
+(fc:(freq: 80);dl:(len: 7)), (fc:(freq: 48);dl:(len: 7)), (fc:(freq:112);dl:(len: 7)),
+(fc:(freq:  8);dl:(len: 7)), (fc:(freq: 72);dl:(len: 7)), (fc:(freq: 40);dl:(len: 7)),
+(fc:(freq:104);dl:(len: 7)), (fc:(freq: 24);dl:(len: 7)), (fc:(freq: 88);dl:(len: 7)),
+(fc:(freq: 56);dl:(len: 7)), (fc:(freq:120);dl:(len: 7)), (fc:(freq:  4);dl:(len: 7)),
+(fc:(freq: 68);dl:(len: 7)), (fc:(freq: 36);dl:(len: 7)), (fc:(freq:100);dl:(len: 7)),
+(fc:(freq: 20);dl:(len: 7)), (fc:(freq: 84);dl:(len: 7)), (fc:(freq: 52);dl:(len: 7)),
+(fc:(freq:116);dl:(len: 7)), (fc:(freq:  3);dl:(len: 8)), (fc:(freq:131);dl:(len: 8)),
+(fc:(freq: 67);dl:(len: 8)), (fc:(freq:195);dl:(len: 8)), (fc:(freq: 35);dl:(len: 8)),
+(fc:(freq:163);dl:(len: 8)), (fc:(freq: 99);dl:(len: 8)), (fc:(freq:227);dl:(len: 8))
+);
+
+
+{ The static distance tree. (Actually a trivial tree since all lens use
+  5 bits.) }
+  static_dtree : array[0..D_CODES-1] of ct_data = (
+(fc:(freq: 0); dl:(len:5)), (fc:(freq:16); dl:(len:5)), (fc:(freq: 8); dl:(len:5)),
+(fc:(freq:24); dl:(len:5)), (fc:(freq: 4); dl:(len:5)), (fc:(freq:20); dl:(len:5)),
+(fc:(freq:12); dl:(len:5)), (fc:(freq:28); dl:(len:5)), (fc:(freq: 2); dl:(len:5)),
+(fc:(freq:18); dl:(len:5)), (fc:(freq:10); dl:(len:5)), (fc:(freq:26); dl:(len:5)),
+(fc:(freq: 6); dl:(len:5)), (fc:(freq:22); dl:(len:5)), (fc:(freq:14); dl:(len:5)),
+(fc:(freq:30); dl:(len:5)), (fc:(freq: 1); dl:(len:5)), (fc:(freq:17); dl:(len:5)),
+(fc:(freq: 9); dl:(len:5)), (fc:(freq:25); dl:(len:5)), (fc:(freq: 5); dl:(len:5)),
+(fc:(freq:21); dl:(len:5)), (fc:(freq:13); dl:(len:5)), (fc:(freq:29); dl:(len:5)),
+(fc:(freq: 3); dl:(len:5)), (fc:(freq:19); dl:(len:5)), (fc:(freq:11); dl:(len:5)),
+(fc:(freq:27); dl:(len:5)), (fc:(freq: 7); dl:(len:5)), (fc:(freq:23); dl:(len:5))
+);
+
+{ Distance codes. The first 256 values correspond to the distances
+  3 .. 258, the last 256 values correspond to the top 8 bits of
+  the 15 bit distances. }
+  _dist_code : array[0..DIST_CODE_LEN-1] of uch = (
+ 0,  1,  2,  3,  4,  4,  5,  5,  6,  6,  6,  6,  7,  7,  7,  7,  8,  8,  8,  8,
+ 8,  8,  8,  8,  9,  9,  9,  9,  9,  9,  9,  9, 10, 10, 10, 10, 10, 10, 10, 10,
+10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
+11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
+12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13,
+13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
+13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
+14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
+14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
+14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15, 15, 15,
+15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
+15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
+15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,  0,  0, 16, 17,
+18, 18, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22,
+23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
+24, 24, 24, 24, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
+26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26,
+26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27,
+27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
+27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28,
+28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28,
+28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28,
+28, 28, 28, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
+29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
+29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
+29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29
+);
+
+{ length code for each normalized match length (0 == MIN_MATCH) }
+  _length_code : array[0..MAX_MATCH-MIN_MATCH+1-1] of uch = (
+ 0,  1,  2,  3,  4,  5,  6,  7,  8,  8,  9,  9, 10, 10, 11, 11, 12, 12, 12, 12,
+13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16,
+17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19,
+19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
+21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22,
+22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23,
+23, 23, 23, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
+24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
+25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
+25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 26,
+26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26,
+26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
+27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 28
+);
+
+
+{ First normalized length for each code (0 = MIN_MATCH) }
+  base_length : array[0..LENGTH_CODES-1] of int = (
+0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, 48, 56,
+64, 80, 96, 112, 128, 160, 192, 224, 0
+);
+
+
+{ First normalized distance for each code (0 = distance of 1) }
+  base_dist : array[0..D_CODES-1] of int = (
+    0,     1,     2,     3,     4,     6,     8,    12,    16,    24,
+   32,    48,    64,    96,   128,   192,   256,   384,   512,   768,
+ 1024,  1536,  2048,  3072,  4096,  6144,  8192, 12288, 16384, 24576
+);
+{$endif}
+
+{ Output a byte on the stream.
+  IN assertion: there is enough room in pending_buf.
+macro put_byte(s, c)
+begin
+  s^.pending_buf^[s^.pending] := (c);
+  Inc(s^.pending);
+end
+}
+
+const
+  MIN_LOOKAHEAD = (MAX_MATCH+MIN_MATCH+1);
+{ Minimum amount of lookahead, except at the end of the input file.
+  See deflate.c for comments about the MIN_MATCH+1. }
+
+{macro d_code(dist)
+   if (dist) < 256 then
+     := _dist_code[dist]
+   else
+     := _dist_code[256+((dist) shr 7)]);
+  Mapping from a distance to a distance code. dist is the distance - 1 and
+  must not have side effects. _dist_code[256] and _dist_code[257] are never
+  used. }
+
+{$ifndef ORG_DEBUG}
+{ Inline versions of _tr_tally for speed: }
+
+#if defined(GEN_TREES_H) || !defined(STDC)
+  extern uch _length_code[];
+  extern uch _dist_code[];
+#else
+  extern const uch _length_code[];
+  extern const uch _dist_code[];
+#endif
+
+macro _tr_tally_lit(s, c, flush)
+var
+  cc : uch;
+begin
+    cc := (c);
+    s^.d_buf[s^.last_lit] := 0;
+    s^.l_buf[s^.last_lit] := cc;
+    Inc(s^.last_lit);
+    Inc(s^.dyn_ltree[cc].fc.Freq);
+    flush := (s^.last_lit = s^.lit_bufsize-1);
+end;
+
+macro _tr_tally_dist(s, distance, length, flush) \
+var
+  len : uch;
+  dist : ush;
+begin
+    len := (length);
+    dist := (distance);
+    s^.d_buf[s^.last_lit] := dist;
+    s^.l_buf[s^.last_lit] = len;
+    Inc(s^.last_lit);
+    Dec(dist);
+    Inc(s^.dyn_ltree[_length_code[len]+LITERALS+1].fc.Freq);
+    Inc(s^.dyn_dtree[d_code(dist)].Freq);
+    flush := (s^.last_lit = s^.lit_bufsize-1);
+end;
+
+{$endif}
+
+{ ===========================================================================
+  Constants }
+
+const
+  MAX_BL_BITS = 7;
+{ Bit length codes must not exceed MAX_BL_BITS bits }
+
+const
+  END_BLOCK = 256;
+{ end of block literal code }
+
+const
+  REP_3_6 = 16;
+{ repeat previous bit length 3-6 times (2 bits of repeat count) }
+
+const
+  REPZ_3_10 = 17;
+{ repeat a zero length 3-10 times  (3 bits of repeat count) }
+
+const
+  REPZ_11_138 = 18;
+{ repeat a zero length 11-138 times  (7 bits of repeat count) }
+
+{local}
+const
+  extra_lbits : array[0..LENGTH_CODES-1] of int
+    { extra bits for each length code }
+   = (0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0);
+
+{local}
+const
+  extra_dbits : array[0..D_CODES-1] of int
+    { extra bits for each distance code }
+   = (0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13);
+
+{local}
+const
+  extra_blbits : array[0..BL_CODES-1] of int { extra bits for each bit length code }
+   = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7);
+
+{local}
+const
+  bl_order : array[0..BL_CODES-1] of uch
+   = (16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15);
+{ The lengths of the bit length codes are sent in order of decreasing
+  probability, to avoid transmitting the lengths for unused bit length codes.
+ }
+
+const
+  Buf_size = (8 * 2*sizeof(uch));
+{ Number of bits used within bi_buf. (bi_buf might be implemented on
+  more than 16 bits on some systems.) }
+
+{ ===========================================================================
+  Local data. These are initialized only once. }
+
+
+{$ifdef GEN_TREES_H)}
+{ non ANSI compilers may not accept trees.h }
+
+const
+  DIST_CODE_LEN = 512; { see definition of array dist_code below }
+
+{local}
+var
+  static_ltree : array[0..L_CODES+2-1] of ct_data;
+{ The static literal tree. Since the bit lengths are imposed, there is no
+  need for the L_CODES extra codes used during heap construction. However
+  The codes 286 and 287 are needed to build a canonical tree (see _tr_init
+  below). }
+
+{local}
+  static_dtree : array[0..D_CODES-1] of ct_data;
+{ The static distance tree. (Actually a trivial tree since all codes use
+  5 bits.) }
+
+  _dist_code : array[0..DIST_CODE_LEN-1] of uch;
+{ Distance codes. The first 256 values correspond to the distances
+  3 .. 258, the last 256 values correspond to the top 8 bits of
+  the 15 bit distances. }
+
+  _length_code : array[0..MAX_MATCH-MIN_MATCH+1-1] of uch;
+{ length code for each normalized match length (0 == MIN_MATCH) }
+
+{local}
+  base_length : array[0..LENGTH_CODES-1] of int;
+{ First normalized length for each code (0 = MIN_MATCH) }
+
+{local}
+  base_dist : array[0..D_CODES-1] of int;
+{ First normalized distance for each code (0 = distance of 1) }
+
+{$endif} { GEN_TREES_H }
+
+{local}
+const
+  static_l_desc :  static_tree_desc  =
+      (static_tree: {tree_ptr}(@(static_ltree));  { pointer to array of ct_data }
+       extra_bits: {pzIntfArray}(@(extra_lbits)); { pointer to array of int }
+       extra_base: LITERALS+1;
+       elems: L_CODES;
+       max_length: MAX_BITS);
+
+{local}
+const
+  static_d_desc : static_tree_desc  =
+      (static_tree: {tree_ptr}(@(static_dtree));
+       extra_bits: {pzIntfArray}(@(extra_dbits));
+       extra_base : 0;
+       elems: D_CODES;
+       max_length: MAX_BITS);
+
+{local}
+const
+  static_bl_desc : static_tree_desc =
+      (static_tree: {tree_ptr}(NIL);
+       extra_bits: {pzIntfArray}@(extra_blbits);
+       extra_base : 0;
+       elems: BL_CODES;
+       max_length: MAX_BL_BITS);
+
+(* ===========================================================================
+  Local (static) routines in this file. }
+
+procedure tr_static_init;
+procedure init_block(var deflate_state);
+procedure pqdownheap(var s : deflate_state;
+                     var tree : ct_data;
+                     k : int);
+procedure gen_bitlen(var s : deflate_state;
+                     var desc : tree_desc);
+procedure gen_codes(var tree : ct_data;
+                    max_code : int;
+                    bl_count : pushf);
+procedure build_tree(var s : deflate_state;
+                     var desc : tree_desc);
+procedure scan_tree(var s : deflate_state;
+                    var tree : ct_data;
+                    max_code : int);
+procedure send_tree(var s : deflate_state;
+                    var tree : ct_data;
+                    max_code : int);
+function build_bl_tree(var deflate_state) : int;
+procedure send_all_trees(var deflate_state;
+                         lcodes : int;
+                         dcodes : int;
+                         blcodes : int);
+procedure compress_block(var s : deflate_state;
+                         var ltree : ct_data;
+                         var dtree : ct_data);
+procedure set_data_type(var s : deflate_state);
+function bi_reverse(value : unsigned;
+                    length : int) : unsigned;
+procedure bi_windup(var deflate_state);
+procedure bi_flush(var deflate_state);
+procedure copy_block(var deflate_state;
+                     buf : pcharf;
+                     len : unsigned;
+                     header : int);
+*)
+
+{$ifdef GEN_TREES_H}
+{local}
+procedure gen_trees_header;
+{$endif}
+
+(*
+{ ===========================================================================
+  Output a short LSB first on the stream.
+  IN assertion: there is enough room in pendingBuf. }
+
+macro put_short(s, w)
+begin
+    {put_byte(s, (uch)((w) & 0xff));}
+    s.pending_buf^[s.pending] := uch((w) and $ff);
+    Inc(s.pending);
+
+    {put_byte(s, (uch)((ush)(w) >> 8));}
+    s.pending_buf^[s.pending] := uch(ush(w) shr 8);;
+    Inc(s.pending);
+end
+*)
+
+{ ===========================================================================
+  Send a value on a given number of bits.
+  IN assertion: length <= 16 and value fits in length bits. }
+
+{$ifdef ORG_DEBUG}
+
+{local}
+procedure send_bits(var s : deflate_state;
+                    value : int;   { value to send }
+                    length : int); { number of bits }
+begin
+  {$ifdef DEBUG}
+  Tracevv(' l '+IntToStr(length)+ ' v '+IntToStr(value));
+  Assert((length > 0) and (length <= 15), 'invalid length');
+  Inc(s.bits_sent, ulg(length));
+  {$ENDIF}
+
+  { If not enough room in bi_buf, use (valid) bits from bi_buf and
+    (16 - bi_valid) bits from value, leaving (width - (16-bi_valid))
+    unused bits in value. }
+  {$IFOPT Q+} {$Q-} {$DEFINE NoOverflowCheck} {$ENDIF}
+  {$IFOPT R+} {$R-} {$DEFINE NoRangeCheck} {$ENDIF}
+  if (s.bi_valid > int(Buf_size) - length) then
+  begin
+    s.bi_buf := s.bi_buf or int(value shl s.bi_valid);
+    {put_short(s, s.bi_buf);}
+    s.pending_buf^[s.pending] := uch(s.bi_buf and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(s.bi_buf) shr 8);;
+    Inc(s.pending);
+
+    s.bi_buf := ush(value) shr (Buf_size - s.bi_valid);
+    Inc(s.bi_valid, length - Buf_size);
+  end
+  else
+  begin
+    s.bi_buf := s.bi_buf or int(value shl s.bi_valid);
+    Inc(s.bi_valid, length);
+  end;
+  {$IFDEF NoOverflowCheck} {$Q+} {$UNDEF NoOverflowCheck} {$ENDIF}
+  {$IFDEF NoRangeCheck} {$Q+} {$UNDEF NoRangeCheck} {$ENDIF}
+end;
+
+{$else} { !DEBUG }
+
+
+macro send_code(s, c, tree)
+begin
+  send_bits(s, tree[c].Code, tree[c].Len);
+  { Send a code of the given tree. c and tree must not have side effects }
+end
+
+macro send_bits(s, value, length) \
+begin int len := length;\
+  if (s^.bi_valid > (int)Buf_size - len) begin\
+    int val := value;\
+    s^.bi_buf |= (val << s^.bi_valid);\
+    {put_short(s, s.bi_buf);}
+    s.pending_buf^[s.pending] := uch(s.bi_buf and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(s.bi_buf) shr 8);;
+    Inc(s.pending);
+
+    s^.bi_buf := (ush)val >> (Buf_size - s^.bi_valid);\
+    s^.bi_valid += len - Buf_size;\
+  end else begin\
+    s^.bi_buf |= (value) << s^.bi_valid;\
+    s^.bi_valid += len;\
+  end\
+end;
+{$endif} { DEBUG }
+
+{ ===========================================================================
+  Reverse the first len bits of a code, using straightforward code (a faster
+  method would use a table)
+  IN assertion: 1 <= len <= 15 }
+
+{local}
+function bi_reverse(code : unsigned;         { the value to invert }
+                    len : int) : unsigned;   { its bit length }
+
+var
+  res : unsigned; {register}
+begin
+  res := 0;
+  repeat
+    res := res or (code and 1);
+    code := code shr 1;
+    res := res shl 1;
+    Dec(len);
+  until (len <= 0);
+  bi_reverse := res shr 1;
+end;
+
+{ ===========================================================================
+  Generate the codes for a given tree and bit counts (which need not be
+  optimal).
+  IN assertion: the array bl_count contains the bit length statistics for
+  the given tree and the field len is set for all tree elements.
+  OUT assertion: the field code is set for all tree elements of non
+      zero code length. }
+
+{local}
+procedure gen_codes(tree : tree_ptr;  { the tree to decorate }
+                    max_code : int;   { largest code with non zero frequency }
+                    var bl_count : array of ushf);  { number of codes at each bit length }
+
+var
+  next_code : array[0..MAX_BITS+1-1] of ush; { next code value for each bit length }
+  code : ush;              { running code value }
+  bits : int;                  { bit index }
+  n : int;                     { code index }
+var
+  len : int;
+begin
+  code := 0;
+
+  { The distribution counts are first used to generate the code values
+    without bit reversal. }
+
+  for bits := 1 to MAX_BITS do
+  begin
+    code := ((code + bl_count[bits-1]) shl 1);
+    next_code[bits] := code;
+  end;
+  { Check that the bit counts in bl_count are consistent. The last code
+    must be all ones. }
+
+  {$IFDEF DEBUG}
+  Assert (code + bl_count[MAX_BITS]-1 = (1 shl MAX_BITS)-1,
+          'inconsistent bit counts');
+  Tracev(#13'gen_codes: max_code '+IntToStr(max_code));
+  {$ENDIF}
+
+  for n := 0 to max_code do
+  begin
+    len := tree^[n].dl.Len;
+    if (len = 0) then
+      continue;
+    { Now reverse the bits }
+    tree^[n].fc.Code := bi_reverse(next_code[len], len);
+    Inc(next_code[len]);
+    {$ifdef DEBUG}
+    if (n>31) and (n<128) then
+      Tracecv(tree <> tree_ptr(@static_ltree),
+       (^M'n #'+IntToStr(n)+' '+AnsiChar(n)+' l '+IntToStr(len)+' c '+
+         IntToStr(tree^[n].fc.Code)+' ('+IntToStr(next_code[len]-1)+')'))
+    else
+      Tracecv(tree <> tree_ptr(@static_ltree),
+      (^M'n #'+IntToStr(n)+'   l '+IntToStr(len)+' c '+
+         IntToStr(tree^[n].fc.Code)+' ('+IntToStr(next_code[len]-1)+')'));
+    {$ENDIF}
+  end;
+end;
+
+{ ===========================================================================
+  Genererate the file trees.h describing the static trees. }
+{$ifdef GEN_TREES_H}
+
+macro SEPARATOR(i, last, width)
+  if (i) = (last) then
+    ( ^M');'^M^M
+  else    \
+    if (i) mod (width) = (width)-1 then
+       ','^M
+     else
+       ', '
+
+procedure gen_trees_header;
+var
+  header : system.text;
+  i : int;
+begin
+  system.assign(header, 'trees.inc');
+  {$I-}
+  ReWrite(header);
+  {$I+}
+  Assert (IOresult <> 0, 'Can''t open trees.h');
+  WriteLn(header,
+    '{ header created automatically with -DGEN_TREES_H }'^M);
+
+  WriteLn(header, 'local const ct_data static_ltree[L_CODES+2] := (');
+  for i := 0 to L_CODES+2-1 do
+  begin
+    WriteLn(header, '((%3u),(%3u))%s', static_ltree[i].Code,
+    static_ltree[i].Len, SEPARATOR(i, L_CODES+1, 5));
+  end;
+
+  WriteLn(header, 'local const ct_data static_dtree[D_CODES] := (');
+  for i := 0 to D_CODES-1 do
+  begin
+    WriteLn(header, '((%2u),(%2u))%s', static_dtree[i].Code,
+    static_dtree[i].Len, SEPARATOR(i, D_CODES-1, 5));
+  end;
+
+  WriteLn(header, 'const uch _dist_code[DIST_CODE_LEN] := (');
+  for i := 0 to DIST_CODE_LEN-1 do
+  begin
+    WriteLn(header, '%2u%s', _dist_code[i],
+    SEPARATOR(i, DIST_CODE_LEN-1, 20));
+  end;
+
+  WriteLn(header, 'const uch _length_code[MAX_MATCH-MIN_MATCH+1]= (');
+  for i := 0 to MAX_MATCH-MIN_MATCH+1-1 do
+  begin
+    WriteLn(header, '%2u%s', _length_code[i],
+    SEPARATOR(i, MAX_MATCH-MIN_MATCH, 20));
+  end;
+
+  WriteLn(header, 'local const int base_length[LENGTH_CODES] := (');
+  for i := 0 to LENGTH_CODES-1 do
+  begin
+    WriteLn(header, '%1u%s', base_length[i],
+    SEPARATOR(i, LENGTH_CODES-1, 20));
+  end;
+
+  WriteLn(header, 'local const int base_dist[D_CODES] := (');
+  for i := 0 to D_CODES-1 do
+  begin
+    WriteLn(header, '%5u%s', base_dist[i],
+    SEPARATOR(i, D_CODES-1, 10));
+  end;
+
+  close(header);
+end;
+{$endif} { GEN_TREES_H }
+
+
+{ ===========================================================================
+  Initialize the various 'constant' tables. }
+
+{local}
+procedure tr_static_init;
+
+{$ifdef GEN_TREES_H}
+const
+  static_init_done : boolean = FALSE;
+var
+  n : int;        { iterates over tree elements }
+  bits : int;     { bit counter }
+  length : int;   { length value }
+  code : int;     { code value }
+  dist : int;     { distance index }
+  bl_count : array[0..MAX_BITS+1-1] of ush;
+    { number of codes at each bit length for an optimal tree }
+begin
+    if (static_init_done) then
+      exit;
+
+    { Initialize the mapping length (0..255) -> length code (0..28) }
+    length := 0;
+    for code := 0 to LENGTH_CODES-1-1 do
+    begin
+      base_length[code] := length;
+      for n := 0 to (1 shl extra_lbits[code])-1 do
+      begin
+        _length_code[length] := uch(code);
+        Inc(length);
+      end;
+    end;
+    Assert (length = 256, 'tr_static_init: length <> 256');
+    { Note that the length 255 (match length 258) can be represented
+      in two different ways: code 284 + 5 bits or code 285, so we
+      overwrite length_code[255] to use the best encoding: }
+
+    _length_code[length-1] := uch(code);
+
+    { Initialize the mapping dist (0..32K) -> dist code (0..29) }
+    dist := 0;
+    for code := 0 to 16-1 do
+    begin
+      base_dist[code] := dist;
+      for n := 0 to (1 shl extra_dbits[code])-1 do
+      begin
+        _dist_code[dist] := uch(code);
+        Inc(dist);
+      end;
+    end;
+    Assert (dist = 256, 'tr_static_init: dist <> 256');
+    dist := dist shr 7; { from now on, all distances are divided by 128 }
+    for code := 16 to D_CODES-1 do
+    begin
+      base_dist[code] := dist shl 7;
+      for n := 0 to (1 shl (extra_dbits[code]-7))-1 do
+      begin
+        _dist_code[256 + dist] := uch(code);
+        Inc(dist);
+      end;
+    end;
+    Assert (dist = 256, 'tr_static_init: 256+dist <> 512');
+
+    { Construct the codes of the static literal tree }
+    for bits := 0 to MAX_BITS do
+      bl_count[bits] := 0;
+    n := 0;
+    while (n <= 143) do
+    begin
+      static_ltree[n].dl.Len := 8;
+      Inc(n);
+      Inc(bl_count[8]);
+    end;
+    while (n <= 255) do
+    begin
+      static_ltree[n].dl.Len := 9;
+      Inc(n);
+      Inc(bl_count[9]);
+    end;
+    while (n <= 279) do
+    begin
+      static_ltree[n].dl.Len := 7;
+      Inc(n);
+      Inc(bl_count[7]);
+    end;
+    while (n <= 287) do
+    begin
+      static_ltree[n].dl.Len := 8;
+      Inc(n);
+      Inc(bl_count[8]);
+    end;
+
+    { Codes 286 and 287 do not exist, but we must include them in the
+      tree construction to get a canonical Huffman tree (longest code
+      all ones)  }
+
+    gen_codes(tree_ptr(@static_ltree), L_CODES+1, bl_count);
+
+    { The static distance tree is trivial: }
+    for n := 0 to D_CODES-1 do
+    begin
+      static_dtree[n].dl.Len := 5;
+      static_dtree[n].fc.Code := bi_reverse(unsigned(n), 5);
+    end;
+    static_init_done := TRUE;
+
+    gen_trees_header;  { save to include file }
+{$else}
+begin
+{$endif} { GEN_TREES_H) }
+end;
+
+{ ===========================================================================
+  Initialize a new block. }
+{local}
+
+procedure init_block(var s : deflate_state);
+var
+  n : int; { iterates over tree elements }
+begin
+  { Initialize the trees. }
+  for n := 0 to L_CODES-1 do
+    s.dyn_ltree[n].fc.Freq := 0;
+  for n := 0 to D_CODES-1 do
+    s.dyn_dtree[n].fc.Freq := 0;
+  for n := 0 to BL_CODES-1 do
+    s.bl_tree[n].fc.Freq := 0;
+
+  s.dyn_ltree[END_BLOCK].fc.Freq := 1;
+  s.static_len := Long(0);
+  s.opt_len := Long(0);
+  s.matches := 0;
+  s.last_lit := 0;
+end;
+
+const
+  SMALLEST = 1;
+{ Index within the heap array of least frequent node in the Huffman tree }
+
+{ ===========================================================================
+  Initialize the tree data structures for a new zlib stream. }
+procedure _tr_init(var s : deflate_state);
+begin
+  tr_static_init;
+
+  s.compressed_len := Long(0);
+
+  s.l_desc.dyn_tree := tree_ptr(@s.dyn_ltree);
+  s.l_desc.stat_desc := @static_l_desc;
+
+  s.d_desc.dyn_tree := tree_ptr(@s.dyn_dtree);
+  s.d_desc.stat_desc := @static_d_desc;
+
+  s.bl_desc.dyn_tree := tree_ptr(@s.bl_tree);
+  s.bl_desc.stat_desc := @static_bl_desc;
+
+  s.bi_buf := 0;
+  s.bi_valid := 0;
+  s.last_eob_len := 8; { enough lookahead for inflate }
+{$ifdef DEBUG}
+  s.bits_sent := Long(0);
+{$endif}
+
+  { Initialize the first block of the first file: }
+  init_block(s);
+end;
+
+{ ===========================================================================
+  Remove the smallest element from the heap and recreate the heap with
+  one less element. Updates heap and heap_len.
+
+macro pqremove(s, tree, top)
+begin
+    top := s.heap[SMALLEST];
+    s.heap[SMALLEST] := s.heap[s.heap_len];
+    Dec(s.heap_len);
+    pqdownheap(s, tree, SMALLEST);
+end
+}
+
+{ ===========================================================================
+  Compares to subtrees, using the tree depth as tie breaker when
+  the subtrees have equal frequency. This minimizes the worst case length.
+
+macro smaller(tree, n, m, depth)
+   ( (tree[n].Freq < tree[m].Freq) or
+     ((tree[n].Freq = tree[m].Freq) and (depth[n] <= depth[m])) )
+}
+
+{ ===========================================================================
+  Restore the heap property by moving down the tree starting at node k,
+  exchanging a node with the smallest of its two sons if necessary, stopping
+  when the heap property is re-established (each father smaller than its
+  two sons). }
+{local}
+
+procedure pqdownheap(var s : deflate_state;
+                     var tree : tree_type;   { the tree to restore }
+                     k : int);          { node to move down }
+var
+  v : int;
+  j : int;
+begin
+  v := s.heap[k];
+  j := k shl 1;  { left son of k }
+  while (j <= s.heap_len) do
+  begin
+    { Set j to the smallest of the two sons: }
+    if (j < s.heap_len) and
+       {smaller(tree, s.heap[j+1], s.heap[j], s.depth)}
+      ( (tree[s.heap[j+1]].fc.Freq < tree[s.heap[j]].fc.Freq) or
+        ((tree[s.heap[j+1]].fc.Freq = tree[s.heap[j]].fc.Freq) and
+         (s.depth[s.heap[j+1]] <= s.depth[s.heap[j]])) ) then
+    begin
+      Inc(j);
+    end;
+    { Exit if v is smaller than both sons }
+    if {(smaller(tree, v, s.heap[j], s.depth))}
+     ( (tree[v].fc.Freq < tree[s.heap[j]].fc.Freq) or
+       ((tree[v].fc.Freq = tree[s.heap[j]].fc.Freq) and
+        (s.depth[v] <= s.depth[s.heap[j]])) ) then
+      break;
+    { Exchange v with the smallest son }
+    s.heap[k] := s.heap[j];
+    k := j;
+
+    { And continue down the tree, setting j to the left son of k }
+    j := j shl 1;
+  end;
+  s.heap[k] := v;
+end;
+
+{ ===========================================================================
+  Compute the optimal bit lengths for a tree and update the total bit length
+  for the current block.
+  IN assertion: the fields freq and dad are set, heap[heap_max] and
+     above are the tree nodes sorted by increasing frequency.
+  OUT assertions: the field len is set to the optimal bit length, the
+      array bl_count contains the frequencies for each bit length.
+      The length opt_len is updated; static_len is also updated if stree is
+      not null. }
+
+{local}
+procedure gen_bitlen(var s : deflate_state;
+                     var desc : tree_desc);   { the tree descriptor }
+var
+  tree : tree_ptr;
+  max_code : int;
+  stree : tree_ptr; {const}
+  extra : pzIntfArray; {const}
+  base : int;
+  max_length : int;
+  h : int;              { heap index }
+  n, m : int;           { iterate over the tree elements }
+  bits : int;           { bit length }
+  xbits : int;          { extra bits }
+  f : ush;              { frequency }
+  overflow : int;   { number of elements with bit length too large }
+begin
+  tree := desc.dyn_tree;
+  max_code := desc.max_code;
+  stree := desc.stat_desc^.static_tree;
+  extra := desc.stat_desc^.extra_bits;
+  base := desc.stat_desc^.extra_base;
+  max_length := desc.stat_desc^.max_length;
+  overflow := 0;
+
+  for bits := 0 to MAX_BITS do
+    s.bl_count[bits] := 0;
+
+  { In a first pass, compute the optimal bit lengths (which may
+    overflow in the case of the bit length tree). }
+
+  tree^[s.heap[s.heap_max]].dl.Len := 0; { root of the heap }
+
+  for h := s.heap_max+1 to HEAP_SIZE-1 do
+  begin
+    n := s.heap[h];
+    bits := tree^[tree^[n].dl.Dad].dl.Len + 1;
+    if (bits > max_length) then
+    begin
+      bits := max_length;
+      Inc(overflow);
+    end;
+    tree^[n].dl.Len := ush(bits);
+    { We overwrite tree[n].dl.Dad which is no longer needed }
+
+    if (n > max_code) then
+      continue; { not a leaf node }
+
+    Inc(s.bl_count[bits]);
+    xbits := 0;
+    if (n >= base) then
+      xbits := extra^[n-base];
+    f := tree^[n].fc.Freq;
+    Inc(s.opt_len, ulg(f) * (bits + xbits));
+    if (stree <> NIL) then
+      Inc(s.static_len, ulg(f) * (stree^[n].dl.Len + xbits));
+  end;
+  if (overflow = 0) then
+    exit;
+  {$ifdef DEBUG}
+  Tracev(^M'bit length overflow');
+  {$endif}
+  { This happens for example on obj2 and pic of the Calgary corpus }
+
+  { Find the first bit length which could increase: }
+  repeat
+    bits := max_length-1;
+    while (s.bl_count[bits] = 0) do
+      Dec(bits);
+    Dec(s.bl_count[bits]);      { move one leaf down the tree }
+    Inc(s.bl_count[bits+1], 2); { move one overflow item as its brother }
+    Dec(s.bl_count[max_length]);
+    { The brother of the overflow item also moves one step up,
+      but this does not affect bl_count[max_length] }
+
+    Dec(overflow, 2);
+  until (overflow <= 0);
+
+  { Now recompute all bit lengths, scanning in increasing frequency.
+    h is still equal to HEAP_SIZE. (It is simpler to reconstruct all
+    lengths instead of fixing only the wrong ones. This idea is taken
+    from 'ar' written by Haruhiko Okumura.) }
+  h := HEAP_SIZE;  { Delphi3: compiler warning w/o this }
+  for bits := max_length downto 1 do
+  begin
+    n := s.bl_count[bits];
+    while (n <> 0) do
+    begin
+      Dec(h);
+      m := s.heap[h];
+      if (m > max_code) then
+        continue;
+      if (tree^[m].dl.Len <> unsigned(bits)) then
+      begin
+        {$ifdef DEBUG}
+        Trace('code '+IntToStr(m)+' bits '+IntToStr(tree^[m].dl.Len)
+              +'.'+IntToStr(bits));
+        {$ENDIF}
+        Inc(s.opt_len, (long(bits) - long(tree^[m].dl.Len))
+                        * long(tree^[m].fc.Freq) );
+        tree^[m].dl.Len := ush(bits);
+      end;
+      Dec(n);
+    end;
+  end;
+end;
+
+{ ===========================================================================
+  Construct one Huffman tree and assigns the code bit strings and lengths.
+  Update the total bit length for the current block.
+  IN assertion: the field freq is set for all tree elements.
+  OUT assertions: the fields len and code are set to the optimal bit length
+      and corresponding code. The length opt_len is updated; static_len is
+      also updated if stree is not null. The field max_code is set. }
+
+{local}
+procedure build_tree(var s : deflate_state;
+                     var desc : tree_desc); { the tree descriptor }
+
+var
+  tree : tree_ptr;
+  stree : tree_ptr; {const}
+  elems : int;
+  n, m : int;          { iterate over heap elements }
+  max_code : int;      { largest code with non zero frequency }
+  node : int;          { new node being created }
+begin
+  tree := desc.dyn_tree;
+  stree := desc.stat_desc^.static_tree;
+  elems := desc.stat_desc^.elems;
+  max_code := -1;
+
+  { Construct the initial heap, with least frequent element in
+    heap[SMALLEST]. The sons of heap[n] are heap[2*n] and heap[2*n+1].
+    heap[0] is not used. }
+  s.heap_len := 0;
+  s.heap_max := HEAP_SIZE;
+
+  for n := 0 to elems-1 do
+  begin
+    if (tree^[n].fc.Freq <> 0) then
+    begin
+      max_code := n;
+      Inc(s.heap_len);
+      s.heap[s.heap_len] := n;
+      s.depth[n] := 0;
+    end
+    else
+    begin
+      tree^[n].dl.Len := 0;
+    end;
+  end;
+
+  { The pkzip format requires that at least one distance code exists,
+    and that at least one bit should be sent even if there is only one
+    possible code. So to avoid special checks later on we force at least
+    two codes of non zero frequency. }
+
+  while (s.heap_len < 2) do
+  begin
+    Inc(s.heap_len);
+    if (max_code < 2) then
+    begin
+      Inc(max_code);
+      s.heap[s.heap_len] := max_code;
+      node := max_code;
+    end
+    else
+    begin
+      s.heap[s.heap_len] := 0;
+      node := 0;
+    end;
+    tree^[node].fc.Freq := 1;
+    s.depth[node] := 0;
+    Dec(s.opt_len);
+    if (stree <> NIL) then
+      Dec(s.static_len, stree^[node].dl.Len);
+    { node is 0 or 1 so it does not have extra bits }
+  end;
+  desc.max_code := max_code;
+
+  { The elements heap[heap_len/2+1 .. heap_len] are leaves of the tree,
+    establish sub-heaps of increasing lengths: }
+
+  for n := s.heap_len div 2 downto 1 do
+    pqdownheap(s, tree^, n);
+
+  { Construct the Huffman tree by repeatedly combining the least two
+    frequent nodes. }
+
+  node := elems;              { next internal node of the tree }
+  repeat
+    {pqremove(s, tree, n);}  { n := node of least frequency }
+    n := s.heap[SMALLEST];
+    s.heap[SMALLEST] := s.heap[s.heap_len];
+    Dec(s.heap_len);
+    pqdownheap(s, tree^, SMALLEST);
+
+    m := s.heap[SMALLEST]; { m := node of next least frequency }
+
+    Dec(s.heap_max);
+    s.heap[s.heap_max] := n; { keep the nodes sorted by frequency }
+    Dec(s.heap_max);
+    s.heap[s.heap_max] := m;
+
+    { Create a new node father of n and m }
+    tree^[node].fc.Freq := tree^[n].fc.Freq + tree^[m].fc.Freq;
+    { maximum }
+    if (s.depth[n] >= s.depth[m]) then
+      s.depth[node] := uch (s.depth[n] + 1)
+    else
+      s.depth[node] := uch (s.depth[m] + 1);
+
+    tree^[m].dl.Dad := ush(node);
+    tree^[n].dl.Dad := ush(node);
+{$ifdef DUMP_BL_TREE}
+    if (tree = tree_ptr(@s.bl_tree)) then
+    begin
+      WriteLn(#13'node ',node,'(',tree^[node].fc.Freq,') sons ',n,
+              '(',tree^[n].fc.Freq,') ', m, '(',tree^[m].fc.Freq,')');
+    end;
+{$endif}
+    { and insert the new node in the heap }
+    s.heap[SMALLEST] := node;
+    Inc(node);
+    pqdownheap(s, tree^, SMALLEST);
+
+  until (s.heap_len < 2);
+
+  Dec(s.heap_max);
+  s.heap[s.heap_max] := s.heap[SMALLEST];
+
+  { At this point, the fields freq and dad are set. We can now
+    generate the bit lengths. }
+
+  gen_bitlen(s, desc);
+
+  { The field len is now set, we can generate the bit codes }
+  gen_codes (tree, max_code, s.bl_count);
+end;
+
+{ ===========================================================================
+  Scan a literal or distance tree to determine the frequencies of the codes
+  in the bit length tree. }
+
+{local}
+procedure scan_tree(var s : deflate_state;
+                    var tree : array of ct_data;    { the tree to be scanned }
+                    max_code : int);    { and its largest code of non zero frequency }
+var
+  n : int;                 { iterates over all tree elements }
+  prevlen : int;           { last emitted length }
+  curlen : int;            { length of current code }
+  nextlen : int;           { length of next code }
+  count : int;             { repeat count of the current code }
+  max_count : int;         { max repeat count }
+  min_count : int;         { min repeat count }
+begin
+  prevlen := -1;
+  nextlen := tree[0].dl.Len;
+  count := 0;
+  max_count := 7;
+  min_count := 4;
+
+  if (nextlen = 0) then
+  begin
+    max_count := 138;
+    min_count := 3;
+  end;
+  tree[max_code+1].dl.Len := ush($ffff); { guard }
+
+  for n := 0 to max_code do
+  begin
+    curlen := nextlen;
+    nextlen := tree[n+1].dl.Len;
+    Inc(count);
+    if (count < max_count) and (curlen = nextlen) then
+      continue
+    else
+      if (count < min_count) then
+        Inc(s.bl_tree[curlen].fc.Freq, count)
+      else
+        if (curlen <> 0) then
+        begin
+          if (curlen <> prevlen) then
+            Inc(s.bl_tree[curlen].fc.Freq);
+          Inc(s.bl_tree[REP_3_6].fc.Freq);
+        end
+        else
+          if (count <= 10) then
+            Inc(s.bl_tree[REPZ_3_10].fc.Freq)
+          else
+            Inc(s.bl_tree[REPZ_11_138].fc.Freq);
+
+    count := 0;
+    prevlen := curlen;
+    if (nextlen = 0) then
+    begin
+      max_count := 138;
+      min_count := 3;
+    end
+    else
+      if (curlen = nextlen) then
+      begin
+        max_count := 6;
+        min_count := 3;
+      end
+      else
+      begin
+        max_count := 7;
+        min_count := 4;
+      end;
+  end;
+end;
+
+{ ===========================================================================
+  Send a literal or distance tree in compressed form, using the codes in
+  bl_tree. }
+
+{local}
+procedure send_tree(var s : deflate_state;
+                    var tree : array of ct_data;    { the tree to be scanned }
+                    max_code : int);    { and its largest code of non zero frequency }
+
+var
+  n : int;                { iterates over all tree elements }
+  prevlen : int;          { last emitted length }
+  curlen : int;           { length of current code }
+  nextlen : int;          { length of next code }
+  count : int;            { repeat count of the current code }
+  max_count : int;        { max repeat count }
+  min_count : int;        { min repeat count }
+begin
+  prevlen := -1;
+  nextlen := tree[0].dl.Len;
+  count := 0;
+  max_count := 7;
+  min_count := 4;
+
+  { tree[max_code+1].dl.Len := -1; }  { guard already set }
+  if (nextlen = 0) then
+  begin
+    max_count := 138;
+    min_count := 3;
+  end;
+
+  for n := 0 to max_code do
+  begin
+    curlen := nextlen;
+    nextlen := tree[n+1].dl.Len;
+    Inc(count);
+    if (count < max_count) and (curlen = nextlen) then
+      continue
+    else
+      if (count < min_count) then
+      begin
+        repeat
+          {$ifdef DEBUG}
+          Tracevvv(#13'cd '+IntToStr(curlen));
+          {$ENDIF}
+          send_bits(s, s.bl_tree[curlen].fc.Code, s.bl_tree[curlen].dl.Len);
+          Dec(count);
+        until (count = 0);
+      end
+      else
+        if (curlen <> 0) then
+        begin
+          if (curlen <> prevlen) then
+          begin
+            {$ifdef DEBUG}
+            Tracevvv(#13'cd '+IntToStr(curlen));
+            {$ENDIF}
+            send_bits(s, s.bl_tree[curlen].fc.Code, s.bl_tree[curlen].dl.Len);
+            Dec(count);
+          end;
+          {$IFDEF DEBUG}
+          Assert((count >= 3) and (count <= 6), ' 3_6?');
+          {$ENDIF}
+          {$ifdef DEBUG}
+          Tracevvv(#13'cd '+IntToStr(REP_3_6));
+          {$ENDIF}
+          send_bits(s, s.bl_tree[REP_3_6].fc.Code, s.bl_tree[REP_3_6].dl.Len);
+          send_bits(s, count-3, 2);
+        end
+        else
+          if (count <= 10) then
+          begin
+            {$ifdef DEBUG}
+            Tracevvv(#13'cd '+IntToStr(REPZ_3_10));
+            {$ENDIF}
+            send_bits(s, s.bl_tree[REPZ_3_10].fc.Code, s.bl_tree[REPZ_3_10].dl.Len);
+            send_bits(s, count-3, 3);
+          end
+          else
+          begin
+            {$ifdef DEBUG}
+            Tracevvv(#13'cd '+IntToStr(REPZ_11_138));
+            {$ENDIF}
+            send_bits(s, s.bl_tree[REPZ_11_138].fc.Code, s.bl_tree[REPZ_11_138].dl.Len);
+            send_bits(s, count-11, 7);
+          end;
+    count := 0;
+    prevlen := curlen;
+    if (nextlen = 0) then
+    begin
+      max_count := 138;
+      min_count := 3;
+    end
+    else
+      if (curlen = nextlen) then
+      begin
+        max_count := 6;
+        min_count := 3;
+      end
+      else
+      begin
+        max_count := 7;
+        min_count := 4;
+      end;
+  end;
+end;
+
+{ ===========================================================================
+  Construct the Huffman tree for the bit lengths and return the index in
+  bl_order of the last bit length code to send. }
+
+{local}
+function build_bl_tree(var s : deflate_state) : int;
+var
+  max_blindex : int;  { index of last bit length code of non zero freq }
+begin
+  { Determine the bit length frequencies for literal and distance trees }
+  scan_tree(s, s.dyn_ltree, s.l_desc.max_code);
+  scan_tree(s, s.dyn_dtree, s.d_desc.max_code);
+
+  { Build the bit length tree: }
+  build_tree(s, s.bl_desc);
+  { opt_len now includes the length of the tree representations, except
+    the lengths of the bit lengths codes and the 5+5+4 bits for the counts. }
+
+  { Determine the number of bit length codes to send. The pkzip format
+    requires that at least 4 bit length codes be sent. (appnote.txt says
+    3 but the actual value used is 4.) }
+
+  for max_blindex := BL_CODES-1 downto 3 do
+  begin
+    if (s.bl_tree[bl_order[max_blindex]].dl.Len <> 0) then
+      break;
+  end;
+  { Update opt_len to include the bit length tree and counts }
+  Inc(s.opt_len, 3*(max_blindex+1) + 5+5+4);
+  {$ifdef DEBUG}
+  Tracev(^M'dyn trees: dyn %ld, stat %ld {s.opt_len, s.static_len}');
+  {$ENDIF}
+
+  build_bl_tree := max_blindex;
+end;
+
+{ ===========================================================================
+  Send the header for a block using dynamic Huffman trees: the counts, the
+  lengths of the bit length codes, the literal tree and the distance tree.
+  IN assertion: lcodes >= 257, dcodes >= 1, blcodes >= 4. }
+
+{local}
+procedure send_all_trees(var s : deflate_state;
+                         lcodes : int;
+                         dcodes : int;
+                         blcodes : int); { number of codes for each tree }
+var
+  rank : int;                    { index in bl_order }
+begin
+  {$IFDEF DEBUG}
+  Assert ((lcodes >= 257) and (dcodes >= 1) and (blcodes >= 4),
+          'not enough codes');
+  Assert ((lcodes <= L_CODES) and (dcodes <= D_CODES)
+          and (blcodes <= BL_CODES), 'too many codes');
+  Tracev(^M'bl counts: ');
+  {$ENDIF}
+  send_bits(s, lcodes-257, 5); { not +255 as stated in appnote.txt }
+  send_bits(s, dcodes-1,   5);
+  send_bits(s, blcodes-4,  4); { not -3 as stated in appnote.txt }
+  for rank := 0 to blcodes-1 do
+  begin
+    {$ifdef DEBUG}
+    Tracev(^M'bl code '+IntToStr(bl_order[rank]));
+    {$ENDIF}
+    send_bits(s, s.bl_tree[bl_order[rank]].dl.Len, 3);
+  end;
+  {$ifdef DEBUG}
+  Tracev(^M'bl tree: sent '+IntToStr(s.bits_sent));
+  {$ENDIF}
+
+  send_tree(s, s.dyn_ltree, lcodes-1); { literal tree }
+  {$ifdef DEBUG}
+  Tracev(^M'lit tree: sent '+IntToStr(s.bits_sent));
+  {$ENDIF}
+
+  send_tree(s, s.dyn_dtree, dcodes-1); { distance tree }
+  {$ifdef DEBUG}
+  Tracev(^M'dist tree: sent '+IntToStr(s.bits_sent));
+  {$ENDIF}
+end;
+
+{ ===========================================================================
+  Flush the bit buffer and align the output on a byte boundary }
+
+{local}
+procedure bi_windup(var s : deflate_state);
+begin
+  if (s.bi_valid > 8) then
+  begin
+    {put_short(s, s.bi_buf);}
+    s.pending_buf^[s.pending] := uch(s.bi_buf and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(s.bi_buf) shr 8);;
+    Inc(s.pending);
+  end
+  else
+    if (s.bi_valid > 0) then
+    begin
+      {put_byte(s, (Byte)s^.bi_buf);}
+      s.pending_buf^[s.pending] := Byte(s.bi_buf);
+      Inc(s.pending);
+    end;
+  s.bi_buf := 0;
+  s.bi_valid := 0;
+{$ifdef DEBUG}
+  s.bits_sent := (s.bits_sent+7) and (not 7);
+{$endif}
+end;
+
+{ ===========================================================================
+  Copy a stored block, storing first the length and its
+  one's complement if requested. }
+
+{local}
+procedure copy_block(var s : deflate_state;
+                     buf : pcharf;      { the input data }
+                     len : unsigned;    { its length }
+                     header : boolean); { true if block header must be written }
+begin
+  bi_windup(s);        { align on byte boundary }
+  s.last_eob_len := 8; { enough lookahead for inflate }
+
+  if (header) then
+  begin
+    {put_short(s, (ush)len);}
+    s.pending_buf^[s.pending] := uch(ush(len) and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(len) shr 8);;
+    Inc(s.pending);
+    {put_short(s, (ush)~len);}
+    s.pending_buf^[s.pending] := uch(ush(not len) and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(not len) shr 8);;
+    Inc(s.pending);
+
+{$ifdef DEBUG}
+    Inc(s.bits_sent, 2*16);
+{$endif}
+  end;
+{$ifdef DEBUG}
+  Inc(s.bits_sent, ulg(len shl 3));
+{$endif}
+  while (len <> 0) do
+  begin
+    Dec(len);
+    {put_byte(s, *buf++);}
+    s.pending_buf^[s.pending] := buf^;
+    Inc(buf);
+    Inc(s.pending);
+  end;
+end;
+
+
+{ ===========================================================================
+  Send a stored block }
+
+procedure _tr_stored_block(var s : deflate_state;
+                           buf : pcharf;     { input block }
+                           stored_len : ulg; { length of input block }
+                           eof : boolean);   { true if this is the last block for a file }
+
+begin
+  send_bits(s, (STORED_BLOCK shl 1)+ord(eof), 3);  { send block type }
+  s.compressed_len := (s.compressed_len + 3 + 7) and ulg(not Long(7));
+  Inc(s.compressed_len, (stored_len + 4) shl 3);
+
+  copy_block(s, buf, unsigned(stored_len), TRUE); { with header }
+end;
+
+{ ===========================================================================
+  Flush the bit buffer, keeping at most 7 bits in it. }
+
+{local}
+procedure bi_flush(var s : deflate_state);
+begin
+  if (s.bi_valid = 16) then
+  begin
+    {put_short(s, s.bi_buf);}
+    s.pending_buf^[s.pending] := uch(s.bi_buf and $ff);
+    Inc(s.pending);
+    s.pending_buf^[s.pending] := uch(ush(s.bi_buf) shr 8);;
+    Inc(s.pending);
+
+    s.bi_buf := 0;
+    s.bi_valid := 0;
+  end
+  else
+   if (s.bi_valid >= 8) then
+   begin
+     {put_byte(s, (Byte)s^.bi_buf);}
+     s.pending_buf^[s.pending] := Byte(s.bi_buf);
+     Inc(s.pending);
+
+     s.bi_buf := s.bi_buf shr 8;
+     Dec(s.bi_valid, 8);
+   end;
+end;
+
+
+{ ===========================================================================
+  Send one empty static block to give enough lookahead for inflate.
+  This takes 10 bits, of which 7 may remain in the bit buffer.
+  The current inflate code requires 9 bits of lookahead. If the
+  last two codes for the previous block (real code plus EOB) were coded
+  on 5 bits or less, inflate may have only 5+3 bits of lookahead to decode
+  the last real code. In this case we send two empty static blocks instead
+  of one. (There are no problems if the previous block is stored or fixed.)
+  To simplify the code, we assume the worst case of last real code encoded
+  on one bit only. }
+
+procedure _tr_align(var s : deflate_state);
+begin
+  send_bits(s, STATIC_TREES shl 1, 3);
+  {$ifdef DEBUG}
+  Tracevvv(#13'cd '+IntToStr(END_BLOCK));
+  {$ENDIF}
+  send_bits(s, static_ltree[END_BLOCK].fc.Code, static_ltree[END_BLOCK].dl.Len);
+  Inc(s.compressed_len, Long(10)); { 3 for block type, 7 for EOB }
+  bi_flush(s);
+  { Of the 10 bits for the empty block, we have already sent
+    (10 - bi_valid) bits. The lookahead for the last real code (before
+    the EOB of the previous block) was thus at least one plus the length
+    of the EOB plus what we have just sent of the empty static block. }
+  if (1 + s.last_eob_len + 10 - s.bi_valid < 9) then
+  begin
+    send_bits(s, STATIC_TREES shl 1, 3);
+    {$ifdef DEBUG}
+    Tracevvv(#13'cd '+IntToStr(END_BLOCK));
+    {$ENDIF}
+    send_bits(s, static_ltree[END_BLOCK].fc.Code, static_ltree[END_BLOCK].dl.Len);
+    Inc(s.compressed_len, Long(10));
+    bi_flush(s);
+  end;
+  s.last_eob_len := 7;
+end;
+
+{ ===========================================================================
+  Set the data type to ASCII or BINARY, using a crude approximation:
+  binary if more than 20% of the bytes are <= 6 or >= 128, ascii otherwise.
+  IN assertion: the fields freq of dyn_ltree are set and the total of all
+  frequencies does not exceed 64K (to fit in an int on 16 bit machines). }
+
+{local}
+procedure set_data_type(var s : deflate_state);
+var
+  n : int;
+  ascii_freq : unsigned;
+  bin_freq : unsigned;
+begin
+  n := 0;
+  ascii_freq := 0;
+  bin_freq := 0;
+
+  while (n < 7) do
+  begin
+    Inc(bin_freq, s.dyn_ltree[n].fc.Freq);
+    Inc(n);
+  end;
+  while (n < 128) do
+  begin
+    Inc(ascii_freq, s.dyn_ltree[n].fc.Freq);
+    Inc(n);
+  end;
+  while (n < LITERALS) do
+  begin
+    Inc(bin_freq, s.dyn_ltree[n].fc.Freq);
+    Inc(n);
+  end;
+  if (bin_freq > (ascii_freq shr 2)) then
+    s.data_type := Byte(Z_BINARY)
+  else
+    s.data_type := Byte(Z_ASCII);
+end;
+
+{ ===========================================================================
+  Send the block data compressed using the given Huffman trees }
+
+{local}
+procedure compress_block(var s : deflate_state;
+                         var ltree : array of ct_data;   { literal tree }
+                         var dtree : array of ct_data);  { distance tree }
+var
+  dist : unsigned;      { distance of matched string }
+  lc : int;             { match length or unmatched char (if dist == 0) }
+  lx : unsigned;        { running index in l_buf }
+  code : unsigned;      { the code to send }
+  extra : int;          { number of extra bits to send }
+begin
+  lx := 0;
+  if (s.last_lit <> 0) then
+  repeat
+    dist := s.d_buf^[lx];
+    lc := s.l_buf^[lx];
+    Inc(lx);
+    if (dist = 0) then
+    begin
+      { send a literal byte }
+      {$ifdef DEBUG}
+      Tracevvv(#13'cd '+IntToStr(lc));
+      Tracecv((lc > 31) and (lc < 128), ' '+AnsiChar(lc)+' ');
+      {$ENDIF}
+      send_bits(s, ltree[lc].fc.Code, ltree[lc].dl.Len);
+    end
+    else
+    begin
+      { Here, lc is the match length - MIN_MATCH }
+      code := _length_code[lc];
+      { send the length code }
+      {$ifdef DEBUG}
+      Tracevvv(#13'cd '+IntToStr(code+LITERALS+1));
+      {$ENDIF}
+      send_bits(s, ltree[code+LITERALS+1].fc.Code, ltree[code+LITERALS+1].dl.Len);
+      extra := extra_lbits[code];
+      if (extra <> 0) then
+      begin
+        Dec(lc, base_length[code]);
+        send_bits(s, lc, extra);       { send the extra length bits }
+      end;
+      Dec(dist); { dist is now the match distance - 1 }
+      {code := d_code(dist);}
+      if (dist < 256) then
+        code := _dist_code[dist]
+      else
+        code := _dist_code[256+(dist shr 7)];
+
+      {$IFDEF DEBUG}
+      Assert (code < D_CODES, 'bad d_code');
+      {$ENDIF}
+
+      { send the distance code }
+      {$ifdef DEBUG}
+      Tracevvv(#13'cd '+IntToStr(code));
+      {$ENDIF}
+      send_bits(s, dtree[code].fc.Code, dtree[code].dl.Len);
+      extra := extra_dbits[code];
+      if (extra <> 0) then
+      begin
+        Dec(dist, base_dist[code]);
+        send_bits(s, dist, extra);   { send the extra distance bits }
+      end;
+    end; { literal or match pair ? }
+
+    { Check that the overlay between pending_buf and d_buf+l_buf is ok: }
+    {$IFDEF DEBUG}
+    Assert(s.pending < s.lit_bufsize + 2*lx, 'pendingBuf overflow');
+    {$ENDIF}
+  until (lx >= s.last_lit);
+
+  {$ifdef DEBUG}
+  Tracevvv(#13'cd '+IntToStr(END_BLOCK));
+  {$ENDIF}
+  send_bits(s, ltree[END_BLOCK].fc.Code, ltree[END_BLOCK].dl.Len);
+  s.last_eob_len := ltree[END_BLOCK].dl.Len;
+end;
+
+
+{ ===========================================================================
+  Determine the best encoding for the current block: dynamic trees, static
+  trees or store, and output the encoded block to the zip file. This function
+  returns the total compressed length for the file so far. }
+
+function _tr_flush_block (var s : deflate_state;
+         buf : pcharf;         { input block, or NULL if too old }
+         stored_len : ulg;     { length of input block }
+         eof : boolean) : ulg; { true if this is the last block for a file }
+var
+  opt_lenb, static_lenb : ulg; { opt_len and static_len in bytes }
+  max_blindex : int;  { index of last bit length code of non zero freq }
+begin
+  max_blindex := 0;
+
+  { Build the Huffman trees unless a stored block is forced }
+  if (s.level > 0) then
+  begin
+    { Check if the file is ascii or binary }
+    if (s.data_type = Z_UNKNOWN) then
+      set_data_type(s);
+
+    { Construct the literal and distance trees }
+    build_tree(s, s.l_desc);
+    {$ifdef DEBUG}
+    Tracev(^M'lit data: dyn %ld, stat %ld {s.opt_len, s.static_len}');
+    {$ENDIF}
+
+    build_tree(s, s.d_desc);
+    {$ifdef DEBUG}
+    Tracev(^M'dist data: dyn %ld, stat %ld {s.opt_len, s.static_len}');
+    {$ENDIF}
+    { At this point, opt_len and static_len are the total bit lengths of
+      the compressed block data, excluding the tree representations. }
+
+    { Build the bit length tree for the above two trees, and get the index
+      in bl_order of the last bit length code to send. }
+    max_blindex := build_bl_tree(s);
+
+    { Determine the best encoding. Compute first the block length in bytes}
+    opt_lenb := (s.opt_len+3+7) shr 3;
+    static_lenb := (s.static_len+3+7) shr 3;
+
+    {$ifdef DEBUG}
+    Tracev(^M'opt %lu(%lu) stat %lu(%lu) stored %lu lit %u '+
+      '{opt_lenb, s.opt_len, static_lenb, s.static_len, stored_len,'+
+      's.last_lit}');
+    {$ENDIF}
+
+    if (static_lenb <= opt_lenb) then
+      opt_lenb := static_lenb;
+
+  end
+  else
+  begin
+    {$IFDEF DEBUG}
+    Assert(buf <> pcharf(NIL), 'lost buf');
+    {$ENDIF}
+    static_lenb := stored_len + 5;
+    opt_lenb := static_lenb;        { force a stored block }
+  end;
+
+  { If compression failed and this is the first and last block,
+    and if the .zip file can be seeked (to rewrite the local header),
+    the whole file is transformed into a stored file:  }
+
+{$ifdef STORED_FILE_OK}
+{$ifdef FORCE_STORED_FILE}
+  if eof and (s.compressed_len = Long(0)) then
+  begin { force stored file }
+{$else}
+  if (stored_len <= opt_lenb) and eof and (s.compressed_len=Long(0))
+     and seekable()) do
+  begin
+{$endif}
+    { Since LIT_BUFSIZE <= 2*WSIZE, the input data must be there: }
+    if (buf = pcharf(0)) then
+      error ('block vanished');
+
+    copy_block(buf, unsigned(stored_len), 0); { without header }
+    s.compressed_len := stored_len shl 3;
+    s.method := STORED;
+  end
+  else
+{$endif} { STORED_FILE_OK }
+
+{$ifdef FORCE_STORED}
+  if (buf <> pcharf(0)) then
+  begin { force stored block }
+{$else}
+  if (stored_len+4 <= opt_lenb) and (buf <> pcharf(0)) then
+  begin
+                     { 4: two words for the lengths }
+{$endif}
+    { The test buf <> NULL is only necessary if LIT_BUFSIZE > WSIZE.
+      Otherwise we can't have processed more than WSIZE input bytes since
+      the last block flush, because compression would have been
+      successful. If LIT_BUFSIZE <= WSIZE, it is never too late to
+      transform a block into a stored block. }
+
+    _tr_stored_block(s, buf, stored_len, eof);
+
+{$ifdef FORCE_STATIC}
+  end
+  else
+    if (static_lenb >= 0) then
+    begin { force static trees }
+{$else}
+  end
+  else
+    if (static_lenb = opt_lenb) then
+    begin
+{$endif}
+      send_bits(s, (STATIC_TREES shl 1)+ord(eof), 3);
+      compress_block(s, static_ltree, static_dtree);
+      Inc(s.compressed_len, 3 + s.static_len);
+    end
+    else
+    begin
+      send_bits(s, (DYN_TREES shl 1)+ord(eof), 3);
+      send_all_trees(s, s.l_desc.max_code+1, s.d_desc.max_code+1,
+                     max_blindex+1);
+      compress_block(s, s.dyn_ltree, s.dyn_dtree);
+      Inc(s.compressed_len, 3 + s.opt_len);
+    end;
+  {$ifdef DEBUG}
+  Assert (s.compressed_len = s.bits_sent, 'bad compressed size');
+  {$ENDIF}
+  init_block(s);
+
+  if (eof) then
+  begin
+    bi_windup(s);
+    Inc(s.compressed_len, 7);  { align on byte boundary }
+  end;
+  {$ifdef DEBUG}
+  Tracev(#13'comprlen %lu(%lu) {s.compressed_len shr 3,'+
+         's.compressed_len-7*ord(eof)}');
+  {$ENDIF}
+
+  _tr_flush_block := s.compressed_len shr 3;
+end;
+
+
+{ ===========================================================================
+  Save the match info and tally the frequency counts. Return true if
+  the current block must be flushed. }
+
+function _tr_tally (var s : deflate_state;
+   dist : unsigned;          { distance of matched string }
+   lc : unsigned) : boolean; { match length-MIN_MATCH or unmatched char (if dist=0) }
+var
+  {$IFDEF DEBUG}
+  MAX_DIST : ush;
+  {$ENDIF}
+  code : ush;
+{$ifdef TRUNCATE_BLOCK}
+var
+  out_length : ulg;
+  in_length : ulg;
+  dcode : int;
+{$endif}
+begin
+  s.d_buf^[s.last_lit] := ush(dist);
+  s.l_buf^[s.last_lit] := uch(lc);
+  Inc(s.last_lit);
+  if (dist = 0) then
+  begin
+    { lc is the unmatched char }
+    Inc(s.dyn_ltree[lc].fc.Freq);
+  end
+  else
+  begin
+    Inc(s.matches);
+    { Here, lc is the match length - MIN_MATCH }
+    Dec(dist);             { dist := match distance - 1 }
+
+    {macro d_code(dist)}
+    if (dist) < 256 then
+      code := _dist_code[dist]
+    else
+      code := _dist_code[256+(dist shr 7)];
+    {$IFDEF DEBUG}
+{macro  MAX_DIST(s) <=> ((s)^.w_size-MIN_LOOKAHEAD)
+   In order to simplify the code, particularly on 16 bit machines, match
+   distances are limited to MAX_DIST instead of WSIZE. }
+    MAX_DIST := ush(s.w_size-MIN_LOOKAHEAD);
+    Assert((dist < ush(MAX_DIST)) and
+           (ush(lc) <= ush(MAX_MATCH-MIN_MATCH)) and
+           (ush(code) < ush(D_CODES)),  '_tr_tally: bad match');
+    {$ENDIF}
+    Inc(s.dyn_ltree[_length_code[lc]+LITERALS+1].fc.Freq);
+    {s.dyn_dtree[d_code(dist)].Freq++;}
+    Inc(s.dyn_dtree[code].fc.Freq);
+  end;
+
+{$ifdef TRUNCATE_BLOCK}
+  { Try to guess if it is profitable to stop the current block here }
+  if (s.last_lit and $1fff = 0) and (s.level > 2) then
+  begin
+    { Compute an upper bound for the compressed length }
+    out_length := ulg(s.last_lit)*Long(8);
+    in_length := ulg(long(s.strstart) - s.block_start);
+    for dcode := 0 to D_CODES-1 do
+    begin
+      Inc(out_length, ulg(s.dyn_dtree[dcode].fc.Freq *
+            (Long(5)+extra_dbits[dcode])) );
+    end;
+    out_length := out_length shr 3;
+    {$ifdef DEBUG}
+    Tracev(^M'last_lit %u, in %ld, out ~%ld(%ld%%) ');
+          { s.last_lit, in_length, out_length,
+           Long(100) - out_length*Long(100) div in_length)); }
+    {$ENDIF}
+    if (s.matches < s.last_lit div 2) and (out_length < in_length div 2) then
+    begin
+      _tr_tally := TRUE;
+      exit;
+    end;
+  end;
+{$endif}
+  _tr_tally := (s.last_lit = s.lit_bufsize-1);
+  { We avoid equality with lit_bufsize because of wraparound at 64K
+    on 16 bit machines and because stored blocks are restricted to
+    64K-1 bytes. }
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/imzconf.inc b/src/lib/vampimg/ZLib/imzconf.inc

new file mode 100644 (file)

index 0000000..ffb585d
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imzconf.inc
@@ -0,0 +1,23 @@
+{ -------------------------------------------------------------------- }
+
+{$DEFINE MAX_MATCH_IS_258}
+
+{ Compile with -DMAXSEG_64K if the alloc function cannot allocate more
+  than 64k bytes at a time (needed on systems with 16-bit int). }
+
+{$UNDEF MAXSEG_64K}
+{$DEFINE UNALIGNED_OK}    { requires SizeOf(ush) = 2 ! }
+{$UNDEF DYNAMIC_CRC_TABLE}
+{$UNDEF FASTEST}
+{$DEFINE Use32}
+{$DEFINE patch112}        { apply patch from the zlib home page }
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+{$UNDEF DEBUG} // for Delphi 2007 in DEBUG mode
+
+{$RANGECHECKS OFF}
+{$OVERFLOWCHECKS OFF}
+{ -------------------------------------------------------------------- }
diff --git a/src/lib/vampimg/ZLib/imzdeflate.pas b/src/lib/vampimg/ZLib/imzdeflate.pas

new file mode 100644 (file)

index 0000000..e0d8218
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imzdeflate.pas
@@ -0,0 +1,2129 @@
+Unit imzdeflate;
+
+{ Orginal: deflate.h -- internal compression state
+           deflate.c -- compress data using the deflation algorithm
+  Copyright (C) 1995-1996 Jean-loup Gailly.
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+
+{  ALGORITHM
+
+       The "deflation" process depends on being able to identify portions
+       of the input text which are identical to earlier input (within a
+       sliding window trailing behind the input currently being processed).
+
+       The most straightforward technique turns out to be the fastest for
+       most input files: try all possible matches and select the longest.
+       The key feature of this algorithm is that insertions into the string
+       dictionary are very simple and thus fast, and deletions are avoided
+       completely. Insertions are performed at each input character, whereas
+       string matches are performed only when the previous match ends. So it
+       is preferable to spend more time in matches to allow very fast string
+       insertions and avoid deletions. The matching algorithm for small
+       strings is inspired from that of Rabin & Karp. A brute force approach
+       is used to find longer strings when a small match has been found.
+       A similar algorithm is used in comic (by Jan-Mark Wams) and freeze
+       (by Leonid Broukhis).
+          A previous version of this file used a more sophisticated algorithm
+       (by Fiala and Greene) which is guaranteed to run in linear amortized
+       time, but has a larger average cost, uses more memory and is patented.
+       However the F&G algorithm may be faster for some highly redundant
+       files if the parameter max_chain_length (described below) is too large.
+
+   ACKNOWLEDGEMENTS
+
+       The idea of lazy evaluation of matches is due to Jan-Mark Wams, and
+       I found it in 'freeze' written by Leonid Broukhis.
+       Thanks to many people for bug reports and testing.
+
+   REFERENCES
+
+       Deutsch, L.P.,"'Deflate' Compressed Data Format Specification".
+       Available in ftp.uu.net:/pub/archiving/zip/doc/deflate-1.1.doc
+
+       A description of the Rabin and Karp algorithm is given in the book
+          "Algorithms" by R. Sedgewick, Addison-Wesley, p252.
+
+       Fiala,E.R., and Greene,D.H.
+          Data Compression with Finite Windows, Comm.ACM, 32,4 (1989) 490-595}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil, impaszlib;
+
+
+function deflateInit_(strm : z_streamp;
+                      level : int;
+                      const version : AnsiString;
+                      stream_size : int) : int;
+
+
+function deflateInit (var strm : z_stream; level : int) : int;
+
+{  Initializes the internal stream state for compression. The fields
+   zalloc, zfree and opaque must be initialized before by the caller.
+   If zalloc and zfree are set to Z_NULL, deflateInit updates them to
+   use default allocation functions.
+
+     The compression level must be Z_DEFAULT_COMPRESSION, or between 0 and 9:
+   1 gives best speed, 9 gives best compression, 0 gives no compression at
+   all (the input data is simply copied a block at a time).
+   Z_DEFAULT_COMPRESSION requests a default compromise between speed and
+   compression (currently equivalent to level 6).
+
+     deflateInit returns Z_OK if success, Z_MEM_ERROR if there was not
+   enough memory, Z_STREAM_ERROR if level is not a valid compression level,
+   Z_VERSION_ERROR if the zlib library version (zlib_version) is incompatible
+   with the version assumed by the caller (ZLIB_VERSION).
+   msg is set to null if there is no error message.  deflateInit does not
+   perform any compression: this will be done by deflate(). }
+
+
+{EXPORT}
+function deflate (var strm : z_stream; flush : int) : int;
+
+{ Performs one or both of the following actions:
+
+  - Compress more input starting at next_in and update next_in and avail_in
+    accordingly. If not all input can be processed (because there is not
+    enough room in the output buffer), next_in and avail_in are updated and
+    processing will resume at this point for the next call of deflate().
+
+  - Provide more output starting at next_out and update next_out and avail_out
+    accordingly. This action is forced if the parameter flush is non zero.
+    Forcing flush frequently degrades the compression ratio, so this parameter
+    should be set only when necessary (in interactive applications).
+    Some output may be provided even if flush is not set.
+
+  Before the call of deflate(), the application should ensure that at least
+  one of the actions is possible, by providing more input and/or consuming
+  more output, and updating avail_in or avail_out accordingly; avail_out
+  should never be zero before the call. The application can consume the
+  compressed output when it wants, for example when the output buffer is full
+  (avail_out == 0), or after each call of deflate(). If deflate returns Z_OK
+  and with zero avail_out, it must be called again after making room in the
+  output buffer because there might be more output pending.
+
+    If the parameter flush is set to Z_PARTIAL_FLUSH, the current compression
+  block is terminated and flushed to the output buffer so that the
+  decompressor can get all input data available so far. For method 9, a future
+  variant on method 8, the current block will be flushed but not terminated.
+  Z_SYNC_FLUSH has the same effect as partial flush except that the compressed
+  output is byte aligned (the compressor can clear its internal bit buffer)
+  and the current block is always terminated; this can be useful if the
+  compressor has to be restarted from scratch after an interruption (in which
+  case the internal state of the compressor may be lost).
+    If flush is set to Z_FULL_FLUSH, the compression block is terminated, a
+  special marker is output and the compression dictionary is discarded; this
+  is useful to allow the decompressor to synchronize if one compressed block
+  has been damaged (see inflateSync below).  Flushing degrades compression and
+  so should be used only when necessary.  Using Z_FULL_FLUSH too often can
+  seriously degrade the compression. If deflate returns with avail_out == 0,
+  this function must be called again with the same value of the flush
+  parameter and more output space (updated avail_out), until the flush is
+  complete (deflate returns with non-zero avail_out).
+
+    If the parameter flush is set to Z_FINISH, all pending input is processed,
+  all pending output is flushed and deflate returns with Z_STREAM_END if there
+  was enough output space; if deflate returns with Z_OK, this function must be
+  called again with Z_FINISH and more output space (updated avail_out) but no
+  more input data, until it returns with Z_STREAM_END or an error. After
+  deflate has returned Z_STREAM_END, the only possible operations on the
+  stream are deflateReset or deflateEnd.
+
+    Z_FINISH can be used immediately after deflateInit if all the compression
+  is to be done in a single step. In this case, avail_out must be at least
+  0.1% larger than avail_in plus 12 bytes.  If deflate does not return
+  Z_STREAM_END, then it must be called again as described above.
+
+    deflate() may update data_type if it can make a good guess about
+  the input data type (Z_ASCII or Z_BINARY). In doubt, the data is considered
+  binary. This field is only for information purposes and does not affect
+  the compression algorithm in any manner.
+
+    deflate() returns Z_OK if some progress has been made (more input
+  processed or more output produced), Z_STREAM_END if all input has been
+  consumed and all output has been produced (only when flush is set to
+  Z_FINISH), Z_STREAM_ERROR if the stream state was inconsistent (for example
+  if next_in or next_out was NULL), Z_BUF_ERROR if no progress is possible. }
+
+
+function deflateEnd (var strm : z_stream) : int;
+
+{     All dynamically allocated data structures for this stream are freed.
+   This function discards any unprocessed input and does not flush any
+   pending output.
+
+     deflateEnd returns Z_OK if success, Z_STREAM_ERROR if the
+   stream state was inconsistent, Z_DATA_ERROR if the stream was freed
+   prematurely (some input or output was discarded). In the error case,
+   msg may be set but then points to a static string (which must not be
+   deallocated). }
+
+
+
+
+                        { Advanced functions }
+
+{ The following functions are needed only in some special applications. }
+
+
+{EXPORT}
+function deflateInit2 (var strm : z_stream;
+                       level : int;
+                       method : int;
+                       windowBits : int;
+                       memLevel : int;
+                       strategy : int) : int;
+
+{  This is another version of deflateInit with more compression options. The
+   fields next_in, zalloc, zfree and opaque must be initialized before by
+   the caller.
+
+     The method parameter is the compression method. It must be Z_DEFLATED in
+   this version of the library. (Method 9 will allow a 64K history buffer and
+   partial block flushes.)
+
+     The windowBits parameter is the base two logarithm of the window size
+   (the size of the history buffer).  It should be in the range 8..15 for this
+   version of the library (the value 16 will be allowed for method 9). Larger
+   values of this parameter result in better compression at the expense of
+   memory usage. The default value is 15 if deflateInit is used instead.
+
+     The memLevel parameter specifies how much memory should be allocated
+   for the internal compression state. memLevel=1 uses minimum memory but
+   is slow and reduces compression ratio; memLevel=9 uses maximum memory
+   for optimal speed. The default value is 8. See zconf.h for total memory
+   usage as a function of windowBits and memLevel.
+
+     The strategy parameter is used to tune the compression algorithm. Use the
+   value Z_DEFAULT_STRATEGY for normal data, Z_FILTERED for data produced by a
+   filter (or predictor), or Z_HUFFMAN_ONLY to force Huffman encoding only (no
+   string match).  Filtered data consists mostly of small values with a
+   somewhat random distribution. In this case, the compression algorithm is
+   tuned to compress them better. The effect of Z_FILTERED is to force more
+   Huffman coding and less string matching; it is somewhat intermediate
+   between Z_DEFAULT and Z_HUFFMAN_ONLY. The strategy parameter only affects
+   the compression ratio but not the correctness of the compressed output even
+   if it is not set appropriately.
+
+     If next_in is not null, the library will use this buffer to hold also
+   some history information; the buffer must either hold the entire input
+   data, or have at least 1<<(windowBits+1) bytes and be writable. If next_in
+   is null, the library will allocate its own history buffer (and leave next_in
+   null). next_out need not be provided here but must be provided by the
+   application for the next call of deflate().
+
+     If the history buffer is provided by the application, next_in must
+   must never be changed by the application since the compressor maintains
+   information inside this buffer from call to call; the application
+   must provide more input only by increasing avail_in. next_in is always
+   reset by the library in this case.
+
+      deflateInit2 returns Z_OK if success, Z_MEM_ERROR if there was
+   not enough memory, Z_STREAM_ERROR if a parameter is invalid (such as
+   an invalid method). msg is set to null if there is no error message.
+   deflateInit2 does not perform any compression: this will be done by
+   deflate(). }
+
+
+{EXPORT}
+function deflateSetDictionary (var strm : z_stream;
+                               dictionary : pBytef; {const bytes}
+             dictLength : uint) : int;
+
+{    Initializes the compression dictionary (history buffer) from the given
+   byte sequence without producing any compressed output. This function must
+   be called immediately after deflateInit or deflateInit2, before any call
+   of deflate. The compressor and decompressor must use exactly the same
+   dictionary (see inflateSetDictionary).
+     The dictionary should consist of strings (byte sequences) that are likely
+   to be encountered later in the data to be compressed, with the most commonly
+   used strings preferably put towards the end of the dictionary. Using a
+   dictionary is most useful when the data to be compressed is short and
+   can be predicted with good accuracy; the data can then be compressed better
+   than with the default empty dictionary. In this version of the library,
+   only the last 32K bytes of the dictionary are used.
+     Upon return of this function, strm->adler is set to the Adler32 value
+   of the dictionary; the decompressor may later use this value to determine
+   which dictionary has been used by the compressor. (The Adler32 value
+   applies to the whole dictionary even if only a subset of the dictionary is
+   actually used by the compressor.)
+
+     deflateSetDictionary returns Z_OK if success, or Z_STREAM_ERROR if a
+   parameter is invalid (such as NULL dictionary) or the stream state
+   is inconsistent (for example if deflate has already been called for this
+   stream). deflateSetDictionary does not perform any compression: this will
+   be done by deflate(). }
+
+{EXPORT}
+function deflateCopy (dest : z_streamp;
+                      source : z_streamp) : int;
+
+{  Sets the destination stream as a complete copy of the source stream.  If
+   the source stream is using an application-supplied history buffer, a new
+   buffer is allocated for the destination stream.  The compressed output
+   buffer is always application-supplied. It's the responsibility of the
+   application to provide the correct values of next_out and avail_out for the
+   next call of deflate.
+
+     This function can be useful when several compression strategies will be
+   tried, for example when there are several ways of pre-processing the input
+   data with a filter. The streams that will be discarded should then be freed
+   by calling deflateEnd.  Note that deflateCopy duplicates the internal
+   compression state which can be quite large, so this strategy is slow and
+   can consume lots of memory.
+
+     deflateCopy returns Z_OK if success, Z_MEM_ERROR if there was not
+   enough memory, Z_STREAM_ERROR if the source stream state was inconsistent
+   (such as zalloc being NULL). msg is left unchanged in both source and
+   destination. }
+
+{EXPORT}
+function deflateReset (var strm : z_stream) : int;
+
+{   This function is equivalent to deflateEnd followed by deflateInit,
+   but does not free and reallocate all the internal compression state.
+   The stream will keep the same compression level and any other attributes
+   that may have been set by deflateInit2.
+
+      deflateReset returns Z_OK if success, or Z_STREAM_ERROR if the source
+   stream state was inconsistent (such as zalloc or state being NIL). }
+
+
+{EXPORT}
+function deflateParams (var strm : z_stream; level : int; strategy : int) : int;
+
+{    Dynamically update the compression level and compression strategy.
+   This can be used to switch between compression and straight copy of
+   the input data, or to switch to a different kind of input data requiring
+   a different strategy. If the compression level is changed, the input
+   available so far is compressed with the old level (and may be flushed);
+   the new level will take effect only at the next call of deflate().
+
+     Before the call of deflateParams, the stream state must be set as for
+   a call of deflate(), since the currently available input may have to
+   be compressed and flushed. In particular, strm->avail_out must be non-zero.
+
+     deflateParams returns Z_OK if success, Z_STREAM_ERROR if the source
+   stream state was inconsistent or if a parameter was invalid, Z_BUF_ERROR
+   if strm->avail_out was zero. }
+
+
+const
+   deflate_copyright : string = ' deflate 1.1.2 Copyright 1995-1998 Jean-loup Gailly ';
+
+{ If you use the zlib library in a product, an acknowledgment is welcome
+  in the documentation of your product. If for some reason you cannot
+  include such an acknowledgment, I would appreciate that you keep this
+  copyright string in the executable of your product. }
+
+implementation
+
+uses
+  imtrees, imadler;
+
+{  ===========================================================================
+   Function prototypes. }
+
+type
+   block_state = (
+    need_more,      { block not completed, need more input or more output }
+    block_done,     { block flush performed }
+    finish_started, { finish started, need only more output at next deflate }
+    finish_done);   { finish done, accept no more input or output }
+
+{ Compression function. Returns the block state after the call. }
+type
+  compress_func = function(var s : deflate_state; flush : int) : block_state;
+
+{local}
+procedure fill_window(var s : deflate_state); forward;
+{local}
+function deflate_stored(var s : deflate_state; flush : int) : block_state;   forward;
+{local}
+function deflate_fast(var s : deflate_state; flush : int) : block_state;   forward;
+{local}
+function deflate_slow(var s : deflate_state; flush : int) : block_state;   forward;
+{local}
+procedure lm_init(var s : deflate_state); forward;
+
+{local}
+procedure putShortMSB(var s : deflate_state; b : uInt); forward;
+{local}
+procedure  flush_pending (var strm : z_stream); forward;
+{local}
+function read_buf(strm : z_streamp;
+                  buf : pBytef;
+                  size : unsigned) : int; forward;
+{$ifdef ASMV}
+procedure match_init; { asm code initialization }
+function longest_match(var deflate_state; cur_match : IPos) : uInt; forward;
+{$else}
+{local}
+function longest_match(var s : deflate_state; cur_match : IPos) : uInt;
+  forward;
+{$endif}
+
+{$ifdef DEBUG}
+{local}
+procedure check_match(var s : deflate_state;
+                      start, match : IPos;
+                      length : int); forward;
+{$endif}
+
+{  ==========================================================================
+  local data }
+
+const
+  ZNIL = 0;
+{ Tail of hash chains }
+
+const
+  TOO_FAR = 4096;
+{ Matches of length 3 are discarded if their distance exceeds TOO_FAR }
+
+const
+  MIN_LOOKAHEAD = (MAX_MATCH+MIN_MATCH+1);
+{ Minimum amount of lookahead, except at the end of the input file.
+  See deflate.c for comments about the MIN_MATCH+1. }
+
+{macro MAX_DIST(var s : deflate_state) : uInt;
+begin
+  MAX_DIST := (s.w_size - MIN_LOOKAHEAD);
+end;
+  In order to simplify the code, particularly on 16 bit machines, match
+  distances are limited to MAX_DIST instead of WSIZE. }
+
+
+{ Values for max_lazy_match, good_match and max_chain_length, depending on
+  the desired pack level (0..9). The values given below have been tuned to
+  exclude worst case performance for pathological files. Better values may be
+  found for specific files. }
+
+type
+  config = record
+   good_length : ush; { reduce lazy search above this match length }
+   max_lazy : ush;    { do not perform lazy search above this match length }
+   nice_length : ush; { quit search above this match length }
+   max_chain : ush;
+   func : compress_func;
+  end;
+
+{local}
+const
+  configuration_table : array[0..10-1] of config = (
+{      good lazy nice chain }
+{0} (good_length:0;  max_lazy:0;   nice_length:0;   max_chain:0;    func:deflate_stored),  { store only }
+{1} (good_length:4;  max_lazy:4;   nice_length:8;   max_chain:4;    func:deflate_fast), { maximum speed, no lazy matches }
+{2} (good_length:4;  max_lazy:5;   nice_length:16;  max_chain:8;    func:deflate_fast),
+{3} (good_length:4;  max_lazy:6;   nice_length:32;  max_chain:32;   func:deflate_fast),
+
+{4} (good_length:4;  max_lazy:4;   nice_length:16;  max_chain:16;   func:deflate_slow),  { lazy matches }
+{5} (good_length:8;  max_lazy:16;  nice_length:32;  max_chain:32;   func:deflate_slow),
+{6} (good_length:8;  max_lazy:16;  nice_length:128; max_chain:128;  func:deflate_slow),
+{7} (good_length:8;  max_lazy:32;  nice_length:128; max_chain:256;  func:deflate_slow),
+{8} (good_length:32; max_lazy:128; nice_length:258; max_chain:1024; func:deflate_slow),
+{9} (good_length:32; max_lazy:258; nice_length:258; max_chain:4096; func:deflate_slow)); { maximum compression }
+
+{ Note: the deflate() code requires max_lazy >= MIN_MATCH and max_chain >= 4
+  For deflate_fast() (levels <= 3) good is ignored and lazy has a different
+  meaning. }
+
+const
+  EQUAL = 0;
+{ result of memcmp for equal strings }
+
+{ ==========================================================================
+  Update a hash value with the given input byte
+  IN  assertion: all calls to to UPDATE_HASH are made with consecutive
+     input characters, so that a running hash key can be computed from the
+     previous key instead of complete recalculation each time.
+
+macro UPDATE_HASH(s,h,c)
+   h := (( (h) shl s^.hash_shift) xor (c)) and s^.hash_mask;
+}
+
+{ ===========================================================================
+  Insert string str in the dictionary and set match_head to the previous head
+  of the hash chain (the most recent string with same hash key). Return
+  the previous length of the hash chain.
+  If this file is compiled with -DFASTEST, the compression level is forced
+  to 1, and no hash chains are maintained.
+  IN  assertion: all calls to to INSERT_STRING are made with consecutive
+     input characters and the first MIN_MATCH bytes of str are valid
+     (except for the last MIN_MATCH-1 bytes of the input file). }
+
+procedure INSERT_STRING(var s : deflate_state;
+                        str : uInt;
+                        var match_head : IPos);
+begin
+{$ifdef FASTEST}
+   {UPDATE_HASH(s, s.ins_h, s.window[(str) + (MIN_MATCH-1)])}
+    s.ins_h := ((s.ins_h shl s.hash_shift) xor
+                 (s.window^[(str) + (MIN_MATCH-1)])) and s.hash_mask;
+    match_head := s.head[s.ins_h]
+    s.head[s.ins_h] := Pos(str);
+{$else}
+   {UPDATE_HASH(s, s.ins_h, s.window[(str) + (MIN_MATCH-1)])}
+    s.ins_h := ((s.ins_h shl s.hash_shift) xor
+                 (s.window^[(str) + (MIN_MATCH-1)])) and s.hash_mask;
+
+    match_head := s.head^[s.ins_h];
+    s.prev^[(str) and s.w_mask] := match_head;
+    s.head^[s.ins_h] := Pos(str);
+{$endif}
+end;
+
+{  =========================================================================
+  Initialize the hash table (avoiding 64K overflow for 16 bit systems).
+  prev[] will be initialized on the fly.
+
+macro CLEAR_HASH(s)
+    s^.head[s^.hash_size-1] := ZNIL;
+    zmemzero(pBytef(s^.head), unsigned(s^.hash_size-1)*sizeof(s^.head^[0]));
+}
+
+{  ======================================================================== }
+
+function deflateInit2_(var strm : z_stream;
+                       level : int;
+                       method : int;
+                       windowBits : int;
+                       memLevel : int;
+                       strategy : int;
+                       const version : AnsiString;
+                       stream_size : int) : int;
+var
+  s : deflate_state_ptr;
+  noheader : int;
+
+  overlay : pushfArray;
+  { We overlay pending_buf and d_buf+l_buf. This works since the average
+    output size for (length,distance) codes is <= 24 bits. }
+begin
+  noheader := 0;
+  if (version  =  '') or (version[1] <> ZLIB_VERSION[1]) or
+     (stream_size <> sizeof(z_stream)) then
+  begin
+    deflateInit2_ := Z_VERSION_ERROR;
+    exit;
+  end;
+  {
+  if (strm = Z_NULL) then
+  begin
+    deflateInit2_ := Z_STREAM_ERROR;
+    exit;
+  end;
+  }
+  { SetLength(strm.msg, 255); }
+  strm.msg := '';
+  if not Assigned(strm.zalloc) then
+  begin
+    {$IFDEF FPC}  strm.zalloc := @zcalloc;  {$ELSE}
+    strm.zalloc := zcalloc;
+    {$ENDIF}
+    strm.opaque := voidpf(0);
+  end;
+  if not Assigned(strm.zfree) then
+    {$IFDEF FPC}  strm.zfree := @zcfree;  {$ELSE}
+    strm.zfree := zcfree;
+    {$ENDIF}
+
+  if (level  =  Z_DEFAULT_COMPRESSION) then
+    level := 6;
+{$ifdef FASTEST}
+    level := 1;
+{$endif}
+
+  if (windowBits < 0) then { undocumented feature: suppress zlib header }
+  begin
+    noheader := 1;
+    windowBits := -windowBits;
+  end;
+  if (memLevel < 1) or (memLevel > MAX_MEM_LEVEL) or (method <> Z_DEFLATED)
+    or (windowBits < 8) or (windowBits > 15) or (level < 0)
+    or (level > 9) or (strategy < 0) or (strategy > Z_HUFFMAN_ONLY) then
+  begin
+    deflateInit2_ := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  s := deflate_state_ptr (ZALLOC(strm, 1, sizeof(deflate_state)));
+  if (s = Z_NULL) then
+  begin
+    deflateInit2_ := Z_MEM_ERROR;
+    exit;
+  end;
+  strm.state := pInternal_state(s);
+  s^.strm := @strm;
+
+  s^.noheader := noheader;
+  s^.w_bits := windowBits;
+  s^.w_size := 1 shl s^.w_bits;
+  s^.w_mask := s^.w_size - 1;
+
+  s^.hash_bits := memLevel + 7;
+  s^.hash_size := 1 shl s^.hash_bits;
+  s^.hash_mask := s^.hash_size - 1;
+  s^.hash_shift :=  ((s^.hash_bits+MIN_MATCH-1) div MIN_MATCH);
+
+  s^.window := pzByteArray (ZALLOC(strm, s^.w_size, 2*sizeof(Byte)));
+  s^.prev   := pzPosfArray (ZALLOC(strm, s^.w_size, sizeof(Pos)));
+  s^.head   := pzPosfArray (ZALLOC(strm, s^.hash_size, sizeof(Pos)));
+
+  s^.lit_bufsize := 1 shl (memLevel + 6); { 16K elements by default }
+
+  overlay := pushfArray (ZALLOC(strm, s^.lit_bufsize, sizeof(ush)+2));
+  s^.pending_buf := pzByteArray (overlay);
+  s^.pending_buf_size := ulg(s^.lit_bufsize) * (sizeof(ush)+Long(2));
+
+  if (s^.window = Z_NULL) or (s^.prev = Z_NULL) or (s^.head = Z_NULL)
+   or (s^.pending_buf = Z_NULL) then
+  begin
+    {ERR_MSG(Z_MEM_ERROR);}
+    strm.msg := z_errmsg[z_errbase-Z_MEM_ERROR];
+    deflateEnd (strm);
+    deflateInit2_ := Z_MEM_ERROR;
+    exit;
+  end;
+  s^.d_buf := pushfArray( @overlay^[s^.lit_bufsize div sizeof(ush)] );
+  s^.l_buf := puchfArray( @s^.pending_buf^[(1+sizeof(ush))*s^.lit_bufsize] );
+
+  s^.level := level;
+  s^.strategy := strategy;
+  s^.method := Byte(method);
+
+  deflateInit2_ := deflateReset(strm);
+end;
+
+{  ========================================================================= }
+
+function deflateInit2(var strm : z_stream;
+                      level : int;
+                      method : int;
+                      windowBits : int;
+                      memLevel : int;
+                      strategy : int) : int;
+{ a macro }
+begin
+  deflateInit2 := deflateInit2_(strm, level, method, windowBits,
+                   memLevel, strategy, ZLIB_VERSION, sizeof(z_stream));
+end;
+
+{  ========================================================================= }
+
+function deflateInit_(strm : z_streamp;
+                      level : int;
+                      const version : AnsiString;
+                      stream_size : int) : int;
+begin
+  if (strm = Z_NULL) then
+    deflateInit_ := Z_STREAM_ERROR
+  else
+    deflateInit_ := deflateInit2_(strm^, level, Z_DEFLATED, MAX_WBITS,
+                   DEF_MEM_LEVEL, Z_DEFAULT_STRATEGY, version, stream_size);
+  { To do: ignore strm^.next_in if we use it as window }
+end;
+
+{  ========================================================================= }
+
+function deflateInit(var strm : z_stream; level : int) : int;
+{ deflateInit is a macro to allow checking the zlib version
+  and the compiler's view of z_stream: }
+begin
+  deflateInit := deflateInit2_(strm, level, Z_DEFLATED, MAX_WBITS,
+         DEF_MEM_LEVEL, Z_DEFAULT_STRATEGY, ZLIB_VERSION, sizeof(z_stream));
+end;
+
+{  ======================================================================== }
+function deflateSetDictionary (var strm : z_stream;
+                               dictionary : pBytef;
+                               dictLength : uInt) : int;
+var
+  s : deflate_state_ptr;
+  length : uInt;
+  n : uInt;
+  hash_head : IPos;
+var
+  MAX_DIST : uInt;  {macro}
+begin
+  length := dictLength;
+  hash_head := 0;
+
+  if {(@strm  =  Z_NULL) or}
+     (strm.state  =  Z_NULL) or (dictionary  =  Z_NULL)
+    or (deflate_state_ptr(strm.state)^.status <> INIT_STATE) then
+  begin
+    deflateSetDictionary := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  s := deflate_state_ptr(strm.state);
+  strm.adler := adler32(strm.adler, dictionary, dictLength);
+
+  if (length < MIN_MATCH) then
+  begin
+    deflateSetDictionary := Z_OK;
+    exit;
+  end;
+  MAX_DIST := (s^.w_size - MIN_LOOKAHEAD);
+  if (length > MAX_DIST) then
+  begin
+    length := MAX_DIST;
+{$ifndef USE_DICT_HEAD}
+    Inc(dictionary, dictLength - length);  { use the tail of the dictionary }
+{$endif}
+  end;
+
+  zmemcpy( pBytef(s^.window), dictionary, length);
+  s^.strstart := length;
+  s^.block_start := long(length);
+
+  { Insert all strings in the hash table (except for the last two bytes).
+    s^.lookahead stays null, so s^.ins_h will be recomputed at the next
+    call of fill_window. }
+
+  s^.ins_h := s^.window^[0];
+  {UPDATE_HASH(s, s^.ins_h, s^.window[1]);}
+  s^.ins_h := ((s^.ins_h shl s^.hash_shift) xor (s^.window^[1]))
+              and s^.hash_mask;
+
+  for n := 0 to length - MIN_MATCH do
+  begin
+    INSERT_STRING(s^, n, hash_head);
+  end;
+  {if (hash_head <> 0) then
+    hash_head := 0;  - to make compiler happy }
+  deflateSetDictionary := Z_OK;
+end;
+
+{  ======================================================================== }
+function deflateReset (var strm : z_stream) : int;
+var
+  s : deflate_state_ptr;
+begin
+  if {(@strm = Z_NULL) or}
+   (strm.state = Z_NULL)
+   or (not Assigned(strm.zalloc)) or (not Assigned(strm.zfree)) then
+  begin
+    deflateReset := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  strm.total_out := 0;
+  strm.total_in := 0;
+  strm.msg := '';      { use zfree if we ever allocate msg dynamically }
+  strm.data_type := Z_UNKNOWN;
+
+  s := deflate_state_ptr(strm.state);
+  s^.pending := 0;
+  s^.pending_out := pBytef(s^.pending_buf);
+
+  if (s^.noheader < 0) then
+  begin
+    s^.noheader := 0; { was set to -1 by deflate(..., Z_FINISH); }
+  end;
+  if s^.noheader <> 0 then
+    s^.status := BUSY_STATE
+  else
+    s^.status := INIT_STATE;
+  strm.adler := 1;
+  s^.last_flush := Z_NO_FLUSH;
+
+  _tr_init(s^);
+  lm_init(s^);
+
+  deflateReset := Z_OK;
+end;
+
+{  ======================================================================== }
+function deflateParams(var strm : z_stream;
+                       level : int;
+                       strategy : int) : int;
+var
+  s : deflate_state_ptr;
+  func : compress_func;
+  err : int;
+begin
+  err := Z_OK;
+  if {(@strm  =  Z_NULL) or} (strm.state  =  Z_NULL) then
+  begin
+    deflateParams := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  s := deflate_state_ptr(strm.state);
+
+  if (level = Z_DEFAULT_COMPRESSION) then
+  begin
+    level := 6;
+  end;
+  if (level < 0) or (level > 9) or (strategy < 0)
+  or (strategy > Z_HUFFMAN_ONLY) then
+  begin
+    deflateParams := Z_STREAM_ERROR;
+    exit;
+  end;
+  func := configuration_table[s^.level].func;
+
+  if (@func <> @configuration_table[level].func)
+    and (strm.total_in <> 0) then
+  begin
+      { Flush the last buffer: }
+      err := deflate(strm, Z_PARTIAL_FLUSH);
+  end;
+  if (s^.level <> level) then
+  begin
+    s^.level := level;
+    s^.max_lazy_match   := configuration_table[level].max_lazy;
+    s^.good_match       := configuration_table[level].good_length;
+    s^.nice_match       := configuration_table[level].nice_length;
+    s^.max_chain_length := configuration_table[level].max_chain;
+  end;
+  s^.strategy := strategy;
+  deflateParams := err;
+end;
+
+{ =========================================================================
+  Put a short in the pending buffer. The 16-bit value is put in MSB order.
+  IN assertion: the stream state is correct and there is enough room in
+  pending_buf. }
+
+{local}
+procedure putShortMSB (var s : deflate_state; b : uInt);
+begin
+  s.pending_buf^[s.pending] := Byte(b shr 8);
+  Inc(s.pending);
+  s.pending_buf^[s.pending] := Byte(b and $ff);
+  Inc(s.pending);
+end;
+
+{ =========================================================================
+  Flush as much pending output as possible. All deflate() output goes
+  through this function so some applications may wish to modify it
+  to avoid allocating a large strm^.next_out buffer and copying into it.
+  (See also read_buf()). }
+
+{local}
+procedure flush_pending(var strm : z_stream);
+var
+  len : unsigned;
+  s : deflate_state_ptr;
+begin
+  s := deflate_state_ptr(strm.state);
+  len := s^.pending;
+
+  if (len > strm.avail_out) then
+    len := strm.avail_out;
+  if (len = 0) then
+    exit;
+
+  zmemcpy(strm.next_out, s^.pending_out, len);
+  Inc(strm.next_out, len);
+  Inc(s^.pending_out, len);
+  Inc(strm.total_out, len);
+  Dec(strm.avail_out, len);
+  Dec(s^.pending, len);
+  if (s^.pending = 0) then
+  begin
+    s^.pending_out := pBytef(s^.pending_buf);
+  end;
+end;
+
+{ ========================================================================= }
+function deflate (var strm : z_stream; flush : int) : int;
+var
+  old_flush : int; { value of flush param for previous deflate call }
+  s : deflate_state_ptr;
+var
+  header : uInt;
+  level_flags : uInt;
+var
+  bstate : block_state;
+begin
+  if {(@strm = Z_NULL) or} (strm.state = Z_NULL)
+    or (flush > Z_FINISH) or (flush < 0) then
+  begin
+    deflate := Z_STREAM_ERROR;
+    exit;
+  end;
+  s := deflate_state_ptr(strm.state);
+
+  if (strm.next_out = Z_NULL) or
+     ((strm.next_in = Z_NULL) and (strm.avail_in <> 0)) or
+     ((s^.status = FINISH_STATE) and (flush <> Z_FINISH)) then
+  begin
+    {ERR_RETURN(strm^, Z_STREAM_ERROR);}
+    strm.msg := z_errmsg[z_errbase - Z_STREAM_ERROR];
+    deflate := Z_STREAM_ERROR;
+    exit;
+  end;
+  if (strm.avail_out = 0) then
+  begin
+    {ERR_RETURN(strm^, Z_BUF_ERROR);}
+    strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
+    deflate := Z_BUF_ERROR;
+    exit;
+  end;
+
+  s^.strm := @strm; { just in case }
+  old_flush := s^.last_flush;
+  s^.last_flush := flush;
+
+  { Write the zlib header }
+  if (s^.status = INIT_STATE) then
+  begin
+
+    header := (Z_DEFLATED + ((s^.w_bits-8) shl 4)) shl 8;
+    level_flags := (s^.level-1) shr 1;
+
+    if (level_flags > 3) then
+      level_flags := 3;
+    header := header or (level_flags shl 6);
+    if (s^.strstart <> 0) then
+      header := header or PRESET_DICT;
+    Inc(header, 31 - (header mod 31));
+
+    s^.status := BUSY_STATE;
+    putShortMSB(s^, header);
+
+    { Save the adler32 of the preset dictionary: }
+    if (s^.strstart <> 0) then
+    begin
+      putShortMSB(s^, uInt(strm.adler shr 16));
+      putShortMSB(s^, uInt(strm.adler and $ffff));
+    end;
+    strm.adler := long(1);
+  end;
+
+  { Flush as much pending output as possible }
+  if (s^.pending <> 0) then
+  begin
+    flush_pending(strm);
+    if (strm.avail_out = 0) then
+    begin
+      { Since avail_out is 0, deflate will be called again with
+  more output space, but possibly with both pending and
+  avail_in equal to zero. There won't be anything to do,
+  but this is not an error situation so make sure we
+  return OK instead of BUF_ERROR at next call of deflate: }
+
+      s^.last_flush := -1;
+      deflate := Z_OK;
+      exit;
+    end;
+
+  { Make sure there is something to do and avoid duplicate consecutive
+    flushes. For repeated and useless calls with Z_FINISH, we keep
+    returning Z_STREAM_END instead of Z_BUFF_ERROR. }
+
+  end
+  else
+    if (strm.avail_in = 0) and (flush <= old_flush)
+      and (flush <> Z_FINISH) then
+    begin
+      {ERR_RETURN(strm^, Z_BUF_ERROR);}
+      strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
+      deflate := Z_BUF_ERROR;
+      exit;
+    end;
+
+  { User must not provide more input after the first FINISH: }
+  if (s^.status = FINISH_STATE) and (strm.avail_in <> 0) then
+  begin
+    {ERR_RETURN(strm^, Z_BUF_ERROR);}
+    strm.msg := z_errmsg[z_errbase - Z_BUF_ERROR];
+    deflate := Z_BUF_ERROR;
+    exit;
+  end;
+
+  { Start a new block or continue the current one. }
+  if (strm.avail_in <> 0) or (s^.lookahead <> 0)
+    or ((flush <> Z_NO_FLUSH) and (s^.status <> FINISH_STATE)) then
+  begin
+    bstate := configuration_table[s^.level].func(s^, flush);
+
+    if (bstate = finish_started) or (bstate = finish_done) then
+      s^.status := FINISH_STATE;
+
+    if (bstate = need_more) or (bstate = finish_started) then
+    begin
+      if (strm.avail_out = 0) then
+        s^.last_flush := -1; { avoid BUF_ERROR next call, see above }
+
+      deflate := Z_OK;
+      exit;
+      { If flush != Z_NO_FLUSH && avail_out == 0, the next call
+  of deflate should use the same flush parameter to make sure
+  that the flush is complete. So we don't have to output an
+  empty block here, this will be done at next call. This also
+  ensures that for a very small output buffer, we emit at most
+   one empty block. }
+    end;
+    if (bstate = block_done) then
+    begin
+      if (flush = Z_PARTIAL_FLUSH) then
+        _tr_align(s^)
+      else
+      begin  { FULL_FLUSH or SYNC_FLUSH }
+        _tr_stored_block(s^, pcharf(NIL), Long(0), FALSE);
+        { For a full flush, this empty block will be recognized
+          as a special marker by inflate_sync(). }
+
+        if (flush = Z_FULL_FLUSH) then
+        begin
+          {macro CLEAR_HASH(s);}             { forget history }
+          s^.head^[s^.hash_size-1] := ZNIL;
+          zmemzero(pBytef(s^.head), unsigned(s^.hash_size-1)*sizeof(s^.head^[0]));
+        end;
+      end;
+
+      flush_pending(strm);
+      if (strm.avail_out = 0) then
+      begin
+        s^.last_flush := -1; { avoid BUF_ERROR at next call, see above }
+  deflate := Z_OK;
+        exit;
+      end;
+
+    end;
+  end;
+  {$IFDEF DEBUG}
+  Assert(strm.avail_out > 0, 'bug2');
+  {$ENDIF}
+  if (flush <> Z_FINISH) then
+  begin
+    deflate := Z_OK;
+    exit;
+  end;
+
+  if (s^.noheader <> 0) then
+  begin
+    deflate := Z_STREAM_END;
+    exit;
+  end;
+
+  { Write the zlib trailer (adler32) }
+  putShortMSB(s^, uInt(strm.adler shr 16));
+  putShortMSB(s^, uInt(strm.adler and $ffff));
+  flush_pending(strm);
+  { If avail_out is zero, the application will call deflate again
+    to flush the rest. }
+
+  s^.noheader := -1; { write the trailer only once! }
+  if s^.pending <> 0 then
+    deflate := Z_OK
+  else
+    deflate := Z_STREAM_END;
+end;
+
+{ ========================================================================= }
+function deflateEnd (var strm : z_stream) : int;
+var
+  status : int;
+  s : deflate_state_ptr;
+begin
+  if {(@strm = Z_NULL) or} (strm.state = Z_NULL) then
+  begin
+    deflateEnd := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  s := deflate_state_ptr(strm.state);
+  status := s^.status;
+  if (status <> INIT_STATE) and (status <> BUSY_STATE) and
+     (status <> FINISH_STATE) then
+  begin
+    deflateEnd := Z_STREAM_ERROR;
+    exit;
+  end;
+
+  { Deallocate in reverse order of allocations: }
+  TRY_FREE(strm, s^.pending_buf);
+  TRY_FREE(strm, s^.head);
+  TRY_FREE(strm, s^.prev);
+  TRY_FREE(strm, s^.window);
+
+  ZFREE(strm, s);
+  strm.state := Z_NULL;
+
+  if status = BUSY_STATE then
+    deflateEnd := Z_DATA_ERROR
+  else
+    deflateEnd := Z_OK;
+end;
+
+{ =========================================================================
+  Copy the source state to the destination state.
+  To simplify the source, this is not supported for 16-bit MSDOS (which
+  doesn't have enough memory anyway to duplicate compression states). }
+
+
+{ ========================================================================= }
+function deflateCopy (dest, source : z_streamp) : int;
+{$ifndef MAXSEG_64K}
+var
+  ds : deflate_state_ptr;
+  ss : deflate_state_ptr;
+  overlay : pushfArray;
+{$endif}
+begin
+{$ifdef MAXSEG_64K}
+  deflateCopy := Z_STREAM_ERROR;
+  exit;
+{$else}
+
+  if (source = Z_NULL) or (dest = Z_NULL) or (source^.state = Z_NULL) then
+  begin
+    deflateCopy := Z_STREAM_ERROR;
+    exit;
+  end;
+  ss := deflate_state_ptr(source^.state);
+  dest^ := source^;
+
+  ds := deflate_state_ptr( ZALLOC(dest^, 1, sizeof(deflate_state)) );
+  if (ds = Z_NULL) then
+  begin
+    deflateCopy := Z_MEM_ERROR;
+    exit;
+  end;
+  dest^.state := pInternal_state(ds);
+  ds^ := ss^;
+  ds^.strm := dest;
+
+  ds^.window := pzByteArray ( ZALLOC(dest^, ds^.w_size, 2*sizeof(Byte)) );
+  ds^.prev   := pzPosfArray ( ZALLOC(dest^, ds^.w_size, sizeof(Pos)) );
+  ds^.head   := pzPosfArray ( ZALLOC(dest^, ds^.hash_size, sizeof(Pos)) );
+  overlay := pushfArray ( ZALLOC(dest^, ds^.lit_bufsize, sizeof(ush)+2) );
+  ds^.pending_buf := pzByteArray ( overlay );
+
+  if (ds^.window = Z_NULL) or (ds^.prev = Z_NULL) or (ds^.head = Z_NULL)
+     or (ds^.pending_buf = Z_NULL) then
+  begin
+    deflateEnd (dest^);
+    deflateCopy := Z_MEM_ERROR;
+    exit;
+  end;
+  { following zmemcpy do not work for 16-bit MSDOS }
+  zmemcpy(pBytef(ds^.window), pBytef(ss^.window), ds^.w_size * 2 * sizeof(Byte));
+  zmemcpy(pBytef(ds^.prev), pBytef(ss^.prev), ds^.w_size * sizeof(Pos));
+  zmemcpy(pBytef(ds^.head), pBytef(ss^.head), ds^.hash_size * sizeof(Pos));
+  zmemcpy(pBytef(ds^.pending_buf), pBytef(ss^.pending_buf), uInt(ds^.pending_buf_size));
+
+  ds^.pending_out := @ds^.pending_buf^[ptr2int(ss^.pending_out) - ptr2int(ss^.pending_buf)];
+  ds^.d_buf := pushfArray (@overlay^[ds^.lit_bufsize div sizeof(ush)] );
+  ds^.l_buf := puchfArray (@ds^.pending_buf^[(1+sizeof(ush))*ds^.lit_bufsize]);
+
+  ds^.l_desc.dyn_tree := tree_ptr(@ds^.dyn_ltree);
+  ds^.d_desc.dyn_tree := tree_ptr(@ds^.dyn_dtree);
+  ds^.bl_desc.dyn_tree := tree_ptr(@ds^.bl_tree);
+
+  deflateCopy := Z_OK;
+{$endif}
+end;
+
+
+{ ===========================================================================
+  Read a new buffer from the current input stream, update the adler32
+  and total number of bytes read.  All deflate() input goes through
+  this function so some applications may wish to modify it to avoid
+  allocating a large strm^.next_in buffer and copying from it.
+  (See also flush_pending()). }
+
+{local}
+function read_buf(strm : z_streamp; buf : pBytef; size : unsigned) : int;
+var
+  len : unsigned;
+begin
+  len := strm^.avail_in;
+
+  if (len > size) then
+    len := size;
+  if (len = 0) then
+  begin
+    read_buf := 0;
+    exit;
+  end;
+
+  Dec(strm^.avail_in, len);
+
+  if deflate_state_ptr(strm^.state)^.noheader = 0 then
+  begin
+    strm^.adler := adler32(strm^.adler, strm^.next_in, len);
+  end;
+  zmemcpy(buf, strm^.next_in, len);
+  Inc(strm^.next_in, len);
+  Inc(strm^.total_in, len);
+
+  read_buf := int(len);
+end;
+
+{ ===========================================================================
+  Initialize the "longest match" routines for a new zlib stream }
+
+{local}
+procedure lm_init (var s : deflate_state);
+begin
+  s.window_size := ulg( uLong(2)*s.w_size);
+
+  {macro CLEAR_HASH(s);}
+  s.head^[s.hash_size-1] := ZNIL;
+  zmemzero(pBytef(s.head), unsigned(s.hash_size-1)*sizeof(s.head^[0]));
+
+  { Set the default configuration parameters: }
+
+  s.max_lazy_match   := configuration_table[s.level].max_lazy;
+  s.good_match       := configuration_table[s.level].good_length;
+  s.nice_match       := configuration_table[s.level].nice_length;
+  s.max_chain_length := configuration_table[s.level].max_chain;
+
+  s.strstart := 0;
+  s.block_start := long(0);
+  s.lookahead := 0;
+  s.prev_length := MIN_MATCH-1;
+  s.match_length := MIN_MATCH-1;
+  s.match_available := FALSE;
+  s.ins_h := 0;
+{$ifdef ASMV}
+  match_init; { initialize the asm code }
+{$endif}
+end;
+
+{ ===========================================================================
+  Set match_start to the longest match starting at the given string and
+  return its length. Matches shorter or equal to prev_length are discarded,
+  in which case the result is equal to prev_length and match_start is
+  garbage.
+  IN assertions: cur_match is the head of the hash chain for the current
+    string (strstart) and its distance is <= MAX_DIST, and prev_length >= 1
+  OUT assertion: the match length is not greater than s^.lookahead. }
+
+
+{$ifndef ASMV}
+{ For 80x86 and 680x0, an optimized version will be provided in match.asm or
+  match.S. The code will be functionally equivalent. }
+
+{$ifndef FASTEST}
+
+{local}
+function longest_match(var s : deflate_state;
+                       cur_match : IPos  { current match }
+                       ) : uInt;
+label
+  nextstep;
+var
+  chain_length : unsigned;    { max hash chain length }
+  {register} scan : pBytef;   { current string }
+  {register} match : pBytef;  { matched string }
+  {register} len : int;       { length of current match }
+  best_len : int;             { best match length so far }
+  nice_match : int;           { stop if match long enough }
+  limit : IPos;
+
+  prev : pzPosfArray;
+  wmask : uInt;
+{$ifdef UNALIGNED_OK}
+  {register} strend : pBytef;
+  {register} scan_start : ush;
+  {register} scan_end : ush;
+{$else}
+  {register} strend : pBytef;
+  {register} scan_end1 : Byte;
+  {register} scan_end : Byte;
+{$endif}
+var
+  MAX_DIST : uInt;
+begin
+  chain_length := s.max_chain_length; { max hash chain length }
+  scan := @(s.window^[s.strstart]);
+  best_len := s.prev_length;              { best match length so far }
+  nice_match := s.nice_match;             { stop if match long enough }
+
+
+  MAX_DIST := s.w_size - MIN_LOOKAHEAD;
+{In order to simplify the code, particularly on 16 bit machines, match
+distances are limited to MAX_DIST instead of WSIZE. }
+
+  if s.strstart > IPos(MAX_DIST) then
+    limit := s.strstart - IPos(MAX_DIST)
+  else
+    limit := ZNIL;
+  { Stop when cur_match becomes <= limit. To simplify the code,
+    we prevent matches with the string of window index 0. }
+
+  prev := s.prev;
+  wmask := s.w_mask;
+
+{$ifdef UNALIGNED_OK}
+  { Compare two bytes at a time. Note: this is not always beneficial.
+    Try with and without -DUNALIGNED_OK to check. }
+
+  strend := pBytef(@(s.window^[s.strstart + MAX_MATCH - 1]));
+  scan_start := pushf(scan)^;
+  scan_end   := pushfArray(scan)^[best_len-1];   { fix }
+{$else}
+  strend := pBytef(@(s.window^[s.strstart + MAX_MATCH]));
+  {$IFOPT R+} {$R-} {$DEFINE NoRangeCheck} {$ENDIF}
+  scan_end1  := pzByteArray(scan)^[best_len-1];
+  {$IFDEF NoRangeCheck} {$R+} {$UNDEF NoRangeCheck} {$ENDIF}
+  scan_end   := pzByteArray(scan)^[best_len];
+{$endif}
+
+    { The code is optimized for HASH_BITS >= 8 and MAX_MATCH-2 multiple of 16.
+      It is easy to get rid of this optimization if necessary. }
+    {$IFDEF DEBUG}
+    Assert((s.hash_bits >= 8) and (MAX_MATCH = 258), 'Code too clever');
+    {$ENDIF}
+    { Do not waste too much time if we already have a good match: }
+    if (s.prev_length >= s.good_match) then
+    begin
+      chain_length := chain_length shr 2;
+    end;
+
+    { Do not look for matches beyond the end of the input. This is necessary
+      to make deflate deterministic. }
+
+    if (uInt(nice_match) > s.lookahead) then
+      nice_match := s.lookahead;
+    {$IFDEF DEBUG}
+    Assert(ulg(s.strstart) <= s.window_size-MIN_LOOKAHEAD, 'need lookahead');
+    {$ENDIF}
+    repeat
+        {$IFDEF DEBUG}
+        Assert(cur_match < s.strstart, 'no future');
+        {$ENDIF}
+        match := @(s.window^[cur_match]);
+
+        { Skip to next match if the match length cannot increase
+          or if the match length is less than 2: }
+
+{$undef DO_UNALIGNED_OK}
+{$ifdef UNALIGNED_OK}
+  {$ifdef MAX_MATCH_IS_258}
+    {$define DO_UNALIGNED_OK}
+  {$endif}
+{$endif}
+
+{$ifdef DO_UNALIGNED_OK}
+        { This code assumes sizeof(unsigned short) = 2. Do not use
+          UNALIGNED_OK if your compiler uses a different size. }
+  {$IFOPT R+} {$R-} {$DEFINE NoRangeCheck} {$ENDIF}
+        if (pushfArray(match)^[best_len-1] <> scan_end) or
+           (pushf(match)^ <> scan_start) then
+          goto nextstep; {continue;}
+  {$IFDEF NoRangeCheck} {$R+} {$UNDEF NoRangeCheck} {$ENDIF}
+
+        { It is not necessary to compare scan[2] and match[2] since they are
+          always equal when the other bytes match, given that the hash keys
+          are equal and that HASH_BITS >= 8. Compare 2 bytes at a time at
+          strstart+3, +5, ... up to strstart+257. We check for insufficient
+          lookahead only every 4th comparison; the 128th check will be made
+          at strstart+257. If MAX_MATCH-2 is not a multiple of 8, it is
+          necessary to put more guard bytes at the end of the window, or
+          to check more often for insufficient lookahead. }
+        {$IFDEF DEBUG}
+        Assert(pzByteArray(scan)^[2] = pzByteArray(match)^[2], 'scan[2]?');
+        {$ENDIF}
+        Inc(scan);
+        Inc(match);
+
+        repeat
+          Inc(scan,2); Inc(match,2); if (pushf(scan)^<>pushf(match)^) then break;
+          Inc(scan,2); Inc(match,2); if (pushf(scan)^<>pushf(match)^) then break;
+          Inc(scan,2); Inc(match,2); if (pushf(scan)^<>pushf(match)^) then break;
+          Inc(scan,2); Inc(match,2); if (pushf(scan)^<>pushf(match)^) then break;
+        until (ptr2int(scan) >= ptr2int(strend));
+        { The funny "do while" generates better code on most compilers }
+
+        { Here, scan <= window+strstart+257 }
+        {$IFDEF DEBUG}
+        {$ifopt R+} {$define RangeCheck} {$endif} {$R-}
+        Assert(ptr2int(scan) <=
+               ptr2int(@(s.window^[unsigned(s.window_size-1)])),
+               'wild scan');
+        {$ifdef RangeCheck} {$R+} {$undef RangeCheck} {$endif}
+        {$ENDIF}
+        if (scan^ = match^) then
+          Inc(scan);
+
+        len := (MAX_MATCH - 1) - int(ptr2int(strend)) + int(ptr2int(scan));
+        scan := strend;
+        Dec(scan, (MAX_MATCH-1));
+
+{$else} { UNALIGNED_OK }
+
+  {$IFOPT R+} {$R-} {$DEFINE NoRangeCheck} {$ENDIF}
+        if (pzByteArray(match)^[best_len]   <> scan_end) or
+           (pzByteArray(match)^[best_len-1] <> scan_end1) or
+           (match^ <> scan^) then
+          goto nextstep; {continue;}
+  {$IFDEF NoRangeCheck} {$R+} {$UNDEF NoRangeCheck} {$ENDIF}
+        Inc(match);
+        if (match^ <> pzByteArray(scan)^[1]) then
+          goto nextstep; {continue;}
+
+        { The check at best_len-1 can be removed because it will be made
+          again later. (This heuristic is not always a win.)
+          It is not necessary to compare scan[2] and match[2] since they
+          are always equal when the other bytes match, given that
+          the hash keys are equal and that HASH_BITS >= 8. }
+
+        Inc(scan, 2);
+        Inc(match);
+        {$IFDEF DEBUG}
+        Assert( scan^ = match^, 'match[2]?');
+        {$ENDIF}
+        { We check for insufficient lookahead only every 8th comparison;
+          the 256th check will be made at strstart+258. }
+
+        repeat
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+          Inc(scan); Inc(match); if (scan^ <> match^) then break;
+        until (ptr2int(scan) >= ptr2int(strend));
+
+        {$IFDEF DEBUG}
+        Assert(ptr2int(scan) <=
+               ptr2int(@(s.window^[unsigned(s.window_size-1)])),
+               'wild scan');
+        {$ENDIF}
+
+        len := MAX_MATCH - int(ptr2int(strend) - ptr2int(scan));
+        scan := strend;
+        Dec(scan, MAX_MATCH);
+
+{$endif} { UNALIGNED_OK }
+
+        if (len > best_len) then
+        begin
+            s.match_start := cur_match;
+            best_len := len;
+            if (len >= nice_match) then
+              break;
+  {$IFOPT R+} {$R-} {$DEFINE NoRangeCheck} {$ENDIF}
+{$ifdef UNALIGNED_OK}
+            scan_end   := pzByteArray(scan)^[best_len-1];
+{$else}
+            scan_end1  := pzByteArray(scan)^[best_len-1];
+            scan_end   := pzByteArray(scan)^[best_len];
+{$endif}
+  {$IFDEF NoRangeCheck} {$R+} {$UNDEF NoRangeCheck} {$ENDIF}
+        end;
+    nextstep:
+      cur_match := prev^[cur_match and wmask];
+      Dec(chain_length);
+    until (cur_match <= limit) or (chain_length = 0);
+
+    if (uInt(best_len) <= s.lookahead) then
+      longest_match := uInt(best_len)
+    else
+      longest_match := s.lookahead;
+end;
+{$endif} { ASMV }
+
+{$else} { FASTEST }
+{ ---------------------------------------------------------------------------
+  Optimized version for level = 1 only }
+
+{local}
+function longest_match(var s : deflate_state;
+                       cur_match : IPos  { current match }
+                       ) : uInt;
+var
+  {register} scan : pBytef;   { current string }
+  {register} match : pBytef;  { matched string }
+  {register} len : int;       { length of current match }
+  {register} strend : pBytef;
+begin
+  scan := @s.window^[s.strstart];
+  strend := @s.window^[s.strstart + MAX_MATCH];
+
+
+    { The code is optimized for HASH_BITS >= 8 and MAX_MATCH-2 multiple of 16.
+      It is easy to get rid of this optimization if necessary. }
+    {$IFDEF DEBUG}
+    Assert((s.hash_bits >= 8) and (MAX_MATCH = 258), 'Code too clever');
+
+    Assert(ulg(s.strstart) <= s.window_size-MIN_LOOKAHEAD, 'need lookahead');
+
+    Assert(cur_match < s.strstart, 'no future');
+    {$ENDIF}
+    match := s.window + cur_match;
+
+    { Return failure if the match length is less than 2: }
+
+    if (match[0] <> scan[0]) or (match[1] <> scan[1]) then
+    begin
+      longest_match := MIN_MATCH-1;
+      exit;
+    end;
+
+    { The check at best_len-1 can be removed because it will be made
+      again later. (This heuristic is not always a win.)
+      It is not necessary to compare scan[2] and match[2] since they
+      are always equal when the other bytes match, given that
+      the hash keys are equal and that HASH_BITS >= 8. }
+
+    scan += 2, match += 2;
+    Assert(scan^ = match^, 'match[2]?');
+
+    { We check for insufficient lookahead only every 8th comparison;
+      the 256th check will be made at strstart+258. }
+
+    repeat
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+      Inc(scan); Inc(match); if scan^<>match^ then break;
+    until (ptr2int(scan) >= ptr2int(strend));
+
+    Assert(scan <= s.window+unsigned(s.window_size-1), 'wild scan');
+
+    len := MAX_MATCH - int(strend - scan);
+
+    if (len < MIN_MATCH) then
+    begin
+      return := MIN_MATCH - 1;
+      exit;
+    end;
+
+    s.match_start := cur_match;
+    if len <= s.lookahead then
+      longest_match := len
+    else
+      longest_match := s.lookahead;
+end;
+{$endif} { FASTEST }
+
+{$ifdef DEBUG}
+{ ===========================================================================
+  Check that the match at match_start is indeed a match. }
+
+{local}
+procedure check_match(var s : deflate_state;
+                      start, match : IPos;
+                      length : int);
+begin
+  exit;
+  { check that the match is indeed a match }
+  if (zmemcmp(pBytef(@s.window^[match]),
+              pBytef(@s.window^[start]), length) <> EQUAL) then
+  begin
+    WriteLn(' start ',start,', match ',match ,' length ', length);
+    repeat
+      Write(AnsiChar(s.window^[match]), AnsiChar(s.window^[start]));
+      Inc(match);
+      Inc(start);
+      Dec(length);
+    Until (length = 0);
+    z_error('invalid match');
+  end;
+  if (z_verbose > 1) then
+  begin
+    Write('\\[',start-match,',',length,']');
+    repeat
+       Write(AnsiChar(s.window^[start]));
+       Inc(start);
+       Dec(length);
+    Until (length = 0);
+  end;
+end;
+{$endif}
+
+{ ===========================================================================
+  Fill the window when the lookahead becomes insufficient.
+  Updates strstart and lookahead.
+
+  IN assertion: lookahead < MIN_LOOKAHEAD
+  OUT assertions: strstart <= window_size-MIN_LOOKAHEAD
+     At least one byte has been read, or avail_in = 0; reads are
+     performed for at least two bytes (required for the zip translate_eol
+     option -- not supported here). }
+
+{local}
+procedure fill_window(var s : deflate_state);
+var
+  {register} n, m : unsigned;
+  {register} p : pPosf;
+  more : unsigned;    { Amount of free space at the end of the window. }
+  wsize : uInt;
+begin
+   wsize := s.w_size;
+   repeat
+     more := unsigned(s.window_size -ulg(s.lookahead) -ulg(s.strstart));
+
+     { Deal with !@#$% 64K limit: }
+     if (more = 0) and (s.strstart = 0) and (s.lookahead = 0) then
+       more := wsize
+     else
+     if (more = unsigned(-1)) then
+     begin
+       { Very unlikely, but possible on 16 bit machine if strstart = 0
+         and lookahead = 1 (input done one byte at time) }
+       Dec(more);
+
+       { If the window is almost full and there is insufficient lookahead,
+         move the upper half to the lower one to make room in the upper half.}
+     end
+     else
+       if (s.strstart >= wsize+ {MAX_DIST}(wsize-MIN_LOOKAHEAD)) then
+       begin
+         zmemcpy( pBytef(s.window), pBytef(@(s.window^[wsize])),
+                 unsigned(wsize));
+         Dec(s.match_start, wsize);
+         Dec(s.strstart, wsize); { we now have strstart >= MAX_DIST }
+         Dec(s.block_start, long(wsize));
+
+         { Slide the hash table (could be avoided with 32 bit values
+           at the expense of memory usage). We slide even when level = 0
+           to keep the hash table consistent if we switch back to level > 0
+           later. (Using level 0 permanently is not an optimal usage of
+           zlib, so we don't care about this pathological case.) }
+
+         n := s.hash_size;
+         p := @s.head^[n];
+         repeat
+           Dec(p);
+           m := p^;
+           if (m >= wsize) then
+             p^ := Pos(m-wsize)
+           else
+             p^ := Pos(ZNIL);
+           Dec(n);
+         Until (n=0);
+
+         n := wsize;
+{$ifndef FASTEST}
+         p := @s.prev^[n];
+         repeat
+           Dec(p);
+           m := p^;
+           if (m >= wsize) then
+             p^ := Pos(m-wsize)
+           else
+             p^:= Pos(ZNIL);
+             { If n is not on any hash chain, prev^[n] is garbage but
+               its value will never be used. }
+           Dec(n);
+         Until (n=0);
+{$endif}
+         Inc(more, wsize);
+     end;
+     if (s.strm^.avail_in = 0) then
+       exit;
+
+     {* If there was no sliding:
+      *    strstart <= WSIZE+MAX_DIST-1 && lookahead <= MIN_LOOKAHEAD - 1 &&
+      *    more == window_size - lookahead - strstart
+      * => more >= window_size - (MIN_LOOKAHEAD-1 + WSIZE + MAX_DIST-1)
+      * => more >= window_size - 2*WSIZE + 2
+      * In the BIG_MEM or MMAP case (not yet supported),
+      *   window_size == input_size + MIN_LOOKAHEAD  &&
+      *   strstart + s->lookahead <= input_size => more >= MIN_LOOKAHEAD.
+      * Otherwise, window_size == 2*WSIZE so more >= 2.
+      * If there was sliding, more >= WSIZE. So in all cases, more >= 2. }
+
+     {$IFDEF DEBUG}
+     Assert(more >= 2, 'more < 2');
+     {$ENDIF}
+
+     n := read_buf(s.strm, pBytef(@(s.window^[s.strstart + s.lookahead])),
+                  more);
+     Inc(s.lookahead, n);
+
+     { Initialize the hash value now that we have some input: }
+     if (s.lookahead >= MIN_MATCH) then
+     begin
+       s.ins_h := s.window^[s.strstart];
+       {UPDATE_HASH(s, s.ins_h, s.window[s.strstart+1]);}
+       s.ins_h := ((s.ins_h shl s.hash_shift) xor s.window^[s.strstart+1])
+                     and s.hash_mask;
+{$ifdef MIN_MATCH <> 3}
+       Call UPDATE_HASH() MIN_MATCH-3 more times
+{$endif}
+     end;
+     { If the whole input has less than MIN_MATCH bytes, ins_h is garbage,
+       but this is not important since only literal bytes will be emitted. }
+
+   until (s.lookahead >= MIN_LOOKAHEAD) or (s.strm^.avail_in = 0);
+end;
+
+{ ===========================================================================
+  Flush the current block, with given end-of-file flag.
+  IN assertion: strstart is set to the end of the current match. }
+
+procedure FLUSH_BLOCK_ONLY(var s : deflate_state; eof : boolean); {macro}
+begin
+  if (s.block_start >= Long(0)) then
+    _tr_flush_block(s, pcharf(@s.window^[unsigned(s.block_start)]),
+                    ulg(long(s.strstart) - s.block_start), eof)
+  else
+    _tr_flush_block(s, pcharf(Z_NULL),
+                    ulg(long(s.strstart) - s.block_start), eof);
+
+  s.block_start := s.strstart;
+  flush_pending(s.strm^);
+  {$IFDEF DEBUG}
+  Tracev('[FLUSH]');
+  {$ENDIF}
+end;
+
+{ Same but force premature exit if necessary.
+macro FLUSH_BLOCK(var s : deflate_state; eof : boolean) : boolean;
+var
+  result : block_state;
+begin
+ FLUSH_BLOCK_ONLY(s, eof);
+ if (s.strm^.avail_out = 0) then
+ begin
+   if eof then
+     result := finish_started
+   else
+     result := need_more;
+   exit;
+ end;
+end;
+}
+
+{ ===========================================================================
+  Copy without compression as much as possible from the input stream, return
+  the current block state.
+  This function does not insert new strings in the dictionary since
+  uncompressible data is probably not useful. This function is used
+  only for the level=0 compression option.
+  NOTE: this function should be optimized to avoid extra copying from
+  window to pending_buf. }
+
+
+{local}
+function deflate_stored(var s : deflate_state; flush : int) : block_state;
+{ Stored blocks are limited to 0xffff bytes, pending_buf is limited
+  to pending_buf_size, and each stored block has a 5 byte header: }
+var
+  max_block_size : ulg;
+  max_start : ulg;
+begin
+  max_block_size := $ffff;
+  if (max_block_size > s.pending_buf_size - 5) then
+    max_block_size := s.pending_buf_size - 5;
+
+  { Copy as much as possible from input to output: }
+  while TRUE do
+  begin
+    { Fill the window as much as possible: }
+    if (s.lookahead <= 1) then
+    begin
+      {$IFDEF DEBUG}
+      Assert( (s.strstart < s.w_size + {MAX_DIST}s.w_size-MIN_LOOKAHEAD) or
+              (s.block_start >= long(s.w_size)), 'slide too late');
+      {$ENDIF}
+      fill_window(s);
+      if (s.lookahead = 0) and (flush = Z_NO_FLUSH) then
+      begin
+        deflate_stored := need_more;
+        exit;
+      end;
+
+      if (s.lookahead = 0) then
+        break; { flush the current block }
+    end;
+    {$IFDEF DEBUG}
+    Assert(s.block_start >= long(0), 'block gone');
+    {$ENDIF}
+    Inc(s.strstart, s.lookahead);
+    s.lookahead := 0;
+
+    { Emit a stored block if pending_buf will be full: }
+    max_start := s.block_start + max_block_size;
+    if (s.strstart = 0) or (ulg(s.strstart) >= max_start) then
+    begin
+      { strstart = 0 is possible when wraparound on 16-bit machine }
+      s.lookahead := s.strstart - uInt(max_start);
+      s.strstart := uInt(max_start);
+      {FLUSH_BLOCK(s, FALSE);}
+      FLUSH_BLOCK_ONLY(s, FALSE);
+      if (s.strm^.avail_out = 0) then
+      begin
+        deflate_stored := need_more;
+        exit;
+      end;
+    end;
+
+    { Flush if we may have to slide, otherwise block_start may become
+      negative and the data will be gone: }
+
+    if (s.strstart - uInt(s.block_start) >= {MAX_DIST}
+        s.w_size-MIN_LOOKAHEAD) then
+    begin
+      {FLUSH_BLOCK(s, FALSE);}
+      FLUSH_BLOCK_ONLY(s, FALSE);
+      if (s.strm^.avail_out = 0) then
+      begin
+        deflate_stored := need_more;
+        exit;
+      end;
+    end;
+  end;
+
+  {FLUSH_BLOCK(s, flush = Z_FINISH);}
+  FLUSH_BLOCK_ONLY(s, flush = Z_FINISH);
+  if (s.strm^.avail_out = 0) then
+  begin
+    if flush = Z_FINISH then
+      deflate_stored := finish_started
+    else
+      deflate_stored := need_more;
+    exit;
+  end;
+
+  if flush = Z_FINISH then
+    deflate_stored := finish_done
+  else
+    deflate_stored := block_done;
+end;
+
+{ ===========================================================================
+  Compress as much as possible from the input stream, return the current
+  block state.
+  This function does not perform lazy evaluation of matches and inserts
+  new strings in the dictionary only for unmatched strings or for short
+  matches. It is used only for the fast compression options. }
+
+{local}
+function deflate_fast(var s : deflate_state; flush : int) : block_state;
+var
+  hash_head : IPos;     { head of the hash chain }
+  bflush : boolean;     { set if current block must be flushed }
+begin
+  hash_head := ZNIL;
+  while TRUE do
+  begin
+  { Make sure that we always have enough lookahead, except
+    at the end of the input file. We need MAX_MATCH bytes
+    for the next match, plus MIN_MATCH bytes to insert the
+    string following the next match. }
+
+    if (s.lookahead < MIN_LOOKAHEAD) then
+    begin
+      fill_window(s);
+      if (s.lookahead < MIN_LOOKAHEAD) and (flush = Z_NO_FLUSH) then
+      begin
+        deflate_fast := need_more;
+        exit;
+      end;
+
+      if (s.lookahead = 0) then
+        break; { flush the current block }
+    end;
+
+
+    { Insert the string window[strstart .. strstart+2] in the
+      dictionary, and set hash_head to the head of the hash chain: }
+
+    if (s.lookahead >= MIN_MATCH) then
+    begin
+      INSERT_STRING(s, s.strstart, hash_head);
+    end;
+
+    { Find the longest match, discarding those <= prev_length.
+      At this point we have always match_length < MIN_MATCH }
+    if (hash_head <> ZNIL) and
+       (s.strstart - hash_head <= (s.w_size-MIN_LOOKAHEAD){MAX_DIST}) then
+    begin
+      { To simplify the code, we prevent matches with the string
+        of window index 0 (in particular we have to avoid a match
+        of the string with itself at the start of the input file). }
+      if (s.strategy <> Z_HUFFMAN_ONLY) then
+      begin
+        s.match_length := longest_match (s, hash_head);
+      end;
+      { longest_match() sets match_start }
+    end;
+    if (s.match_length >= MIN_MATCH) then
+    begin
+      {$IFDEF DEBUG}
+      check_match(s, s.strstart, s.match_start, s.match_length);
+      {$ENDIF}
+
+      {_tr_tally_dist(s, s.strstart - s.match_start,
+                        s.match_length - MIN_MATCH, bflush);}
+      bflush := _tr_tally(s, s.strstart - s.match_start,
+                        s.match_length - MIN_MATCH);
+
+      Dec(s.lookahead, s.match_length);
+
+      { Insert new strings in the hash table only if the match length
+        is not too large. This saves time but degrades compression. }
+
+{$ifndef FASTEST}
+      if (s.match_length <= s.max_insert_length)
+       and (s.lookahead >= MIN_MATCH) then
+      begin
+        Dec(s.match_length); { string at strstart already in hash table }
+        repeat
+          Inc(s.strstart);
+          INSERT_STRING(s, s.strstart, hash_head);
+          { strstart never exceeds WSIZE-MAX_MATCH, so there are
+            always MIN_MATCH bytes ahead. }
+          Dec(s.match_length);
+        until (s.match_length = 0);
+        Inc(s.strstart);
+      end
+      else
+{$endif}
+
+      begin
+        Inc(s.strstart, s.match_length);
+        s.match_length := 0;
+        s.ins_h := s.window^[s.strstart];
+        {UPDATE_HASH(s, s.ins_h, s.window[s.strstart+1]);}
+        s.ins_h := (( s.ins_h shl s.hash_shift) xor
+                     s.window^[s.strstart+1]) and s.hash_mask;
+if MIN_MATCH <> 3 then   { the linker removes this }
+begin
+          {Call UPDATE_HASH() MIN_MATCH-3 more times}
+end;
+
+        { If lookahead < MIN_MATCH, ins_h is garbage, but it does not
+          matter since it will be recomputed at next deflate call. }
+
+      end;
+    end
+    else
+    begin
+      { No match, output a literal byte }
+      {$IFDEF DEBUG}
+      Tracevv(AnsiChar(s.window^[s.strstart]));
+      {$ENDIF}
+      {_tr_tally_lit (s, 0, s.window^[s.strstart], bflush);}
+      bflush := _tr_tally (s, 0, s.window^[s.strstart]);
+
+      Dec(s.lookahead);
+      Inc(s.strstart);
+    end;
+    if bflush then
+    begin  {FLUSH_BLOCK(s, FALSE);}
+      FLUSH_BLOCK_ONLY(s, FALSE);
+      if (s.strm^.avail_out = 0) then
+      begin
+        deflate_fast := need_more;
+        exit;
+      end;
+    end;
+  end;
+  {FLUSH_BLOCK(s, flush = Z_FINISH);}
+  FLUSH_BLOCK_ONLY(s, flush = Z_FINISH);
+  if (s.strm^.avail_out = 0) then
+  begin
+    if flush = Z_FINISH then
+      deflate_fast := finish_started
+    else
+      deflate_fast := need_more;
+    exit;
+  end;
+
+  if flush = Z_FINISH then
+    deflate_fast := finish_done
+  else
+    deflate_fast := block_done;
+end;
+
+{ ===========================================================================
+  Same as above, but achieves better compression. We use a lazy
+  evaluation for matches: a match is finally adopted only if there is
+  no better match at the next window position. }
+
+{local}
+function deflate_slow(var s : deflate_state; flush : int) : block_state;
+var
+  hash_head : IPos;       { head of hash chain }
+  bflush : boolean;       { set if current block must be flushed }
+var
+  max_insert : uInt;
+begin
+  hash_head := ZNIL;
+
+  { Process the input block. }
+  while TRUE do
+  begin
+    { Make sure that we always have enough lookahead, except
+      at the end of the input file. We need MAX_MATCH bytes
+      for the next match, plus MIN_MATCH bytes to insert the
+      string following the next match. }
+
+    if (s.lookahead < MIN_LOOKAHEAD) then
+    begin
+      fill_window(s);
+      if (s.lookahead < MIN_LOOKAHEAD) and (flush = Z_NO_FLUSH) then
+      begin
+        deflate_slow := need_more;
+        exit;
+      end;
+
+      if (s.lookahead = 0) then
+        break; { flush the current block }
+    end;
+
+    { Insert the string window[strstart .. strstart+2] in the
+      dictionary, and set hash_head to the head of the hash chain: }
+
+    if (s.lookahead >= MIN_MATCH) then
+    begin
+      INSERT_STRING(s, s.strstart, hash_head);
+    end;
+
+    { Find the longest match, discarding those <= prev_length. }
+
+    s.prev_length := s.match_length;
+    s.prev_match := s.match_start;
+    s.match_length := MIN_MATCH-1;
+
+    if (hash_head <> ZNIL) and (s.prev_length < s.max_lazy_match) and
+       (s.strstart - hash_head <= {MAX_DIST}(s.w_size-MIN_LOOKAHEAD)) then
+    begin
+        { To simplify the code, we prevent matches with the string
+          of window index 0 (in particular we have to avoid a match
+          of the string with itself at the start of the input file). }
+
+        if (s.strategy <> Z_HUFFMAN_ONLY) then
+        begin
+          s.match_length := longest_match (s, hash_head);
+        end;
+        { longest_match() sets match_start }
+
+        if (s.match_length <= 5) and ((s.strategy = Z_FILTERED) or
+             ((s.match_length = MIN_MATCH) and
+              (s.strstart - s.match_start > TOO_FAR))) then
+        begin
+            { If prev_match is also MIN_MATCH, match_start is garbage
+              but we will ignore the current match anyway. }
+
+            s.match_length := MIN_MATCH-1;
+        end;
+    end;
+    { If there was a match at the previous step and the current
+      match is not better, output the previous match: }
+
+    if (s.prev_length >= MIN_MATCH)
+      and (s.match_length <= s.prev_length) then
+    begin
+      max_insert := s.strstart + s.lookahead - MIN_MATCH;
+      { Do not insert strings in hash table beyond this. }
+      {$ifdef DEBUG}
+      check_match(s, s.strstart-1, s.prev_match, s.prev_length);
+      {$endif}
+
+      {_tr_tally_dist(s, s->strstart -1 - s->prev_match,
+                  s->prev_length - MIN_MATCH, bflush);}
+      bflush := _tr_tally(s, s.strstart -1 - s.prev_match,
+                           s.prev_length - MIN_MATCH);
+
+      { Insert in hash table all strings up to the end of the match.
+        strstart-1 and strstart are already inserted. If there is not
+        enough lookahead, the last two strings are not inserted in
+        the hash table. }
+
+      Dec(s.lookahead, s.prev_length-1);
+      Dec(s.prev_length, 2);
+      repeat
+        Inc(s.strstart);
+        if (s.strstart <= max_insert) then
+        begin
+          INSERT_STRING(s, s.strstart, hash_head);
+        end;
+        Dec(s.prev_length);
+      until (s.prev_length = 0);
+      s.match_available := FALSE;
+      s.match_length := MIN_MATCH-1;
+      Inc(s.strstart);
+
+      if (bflush) then  {FLUSH_BLOCK(s, FALSE);}
+      begin
+        FLUSH_BLOCK_ONLY(s, FALSE);
+        if (s.strm^.avail_out = 0) then
+        begin
+          deflate_slow := need_more;
+          exit;
+        end;
+      end;
+    end
+    else
+      if (s.match_available) then
+      begin
+        { If there was no match at the previous position, output a
+          single literal. If there was a match but the current match
+          is longer, truncate the previous match to a single literal. }
+        {$IFDEF DEBUG}
+        Tracevv(AnsiChar(s.window^[s.strstart-1]));
+        {$ENDIF}
+        bflush := _tr_tally (s, 0, s.window^[s.strstart-1]);
+
+        if bflush then
+        begin
+          FLUSH_BLOCK_ONLY(s, FALSE);
+        end;
+        Inc(s.strstart);
+        Dec(s.lookahead);
+        if (s.strm^.avail_out = 0) then
+        begin
+          deflate_slow := need_more;
+          exit;
+        end;
+      end
+      else
+      begin
+        { There is no previous match to compare with, wait for
+          the next step to decide. }
+
+        s.match_available := TRUE;
+        Inc(s.strstart);
+        Dec(s.lookahead);
+      end;
+  end;
+
+  {$IFDEF DEBUG}
+  Assert (flush <> Z_NO_FLUSH, 'no flush?');
+  {$ENDIF}
+  if (s.match_available) then
+  begin
+    {$IFDEF DEBUG}
+    Tracevv(AnsiChar(s.window^[s.strstart-1]));
+    bflush :=
+    {$ENDIF}
+      _tr_tally (s, 0, s.window^[s.strstart-1]);
+    s.match_available := FALSE;
+  end;
+  {FLUSH_BLOCK(s, flush = Z_FINISH);}
+  FLUSH_BLOCK_ONLY(s, flush = Z_FINISH);
+  if (s.strm^.avail_out = 0) then
+  begin
+    if flush = Z_FINISH then
+      deflate_slow := finish_started
+    else
+      deflate_slow := need_more;
+    exit;
+  end;
+  if flush = Z_FINISH then
+    deflate_slow := finish_done
+  else
+    deflate_slow := block_done;
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/imzinflate.pas b/src/lib/vampimg/ZLib/imzinflate.pas

new file mode 100644 (file)

index 0000000..6376510
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imzinflate.pas
@@ -0,0 +1,750 @@
+Unit  imzinflate;
+
+{  inflate.c -- zlib interface to inflate modules
+   Copyright (C) 1995-1998 Mark Adler
+
+  Pascal tranlastion
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+uses
+  imzutil, impaszlib, iminfblock, iminfutil;
+
+function inflateInit(var z : z_stream) : int;
+
+{    Initializes the internal stream state for decompression. The fields
+   zalloc, zfree and opaque must be initialized before by the caller.  If
+   zalloc and zfree are set to Z_NULL, inflateInit updates them to use default
+   allocation functions.
+
+     inflateInit returns Z_OK if success, Z_MEM_ERROR if there was not
+   enough memory, Z_VERSION_ERROR if the zlib library version is incompatible
+   with the version assumed by the caller.  msg is set to null if there is no
+   error message. inflateInit does not perform any decompression: this will be
+   done by inflate(). }
+
+
+
+function inflateInit_(z : z_streamp;
+                      const version : AnsiString;
+                      stream_size : int) : int;
+
+
+function inflateInit2_(var z: z_stream;
+                       w : int;
+                       const version : AnsiString;
+                       stream_size : int) : int;
+
+function inflateInit2(var z: z_stream;
+                       windowBits : int) : int;
+
+{
+     This is another version of inflateInit with an extra parameter. The
+   fields next_in, avail_in, zalloc, zfree and opaque must be initialized
+   before by the caller.
+
+     The windowBits parameter is the base two logarithm of the maximum window
+   size (the size of the history buffer).  It should be in the range 8..15 for
+   this version of the library. The default value is 15 if inflateInit is used
+   instead. If a compressed stream with a larger window size is given as
+   input, inflate() will return with the error code Z_DATA_ERROR instead of
+   trying to allocate a larger window.
+
+      inflateInit2 returns Z_OK if success, Z_MEM_ERROR if there was not enough
+   memory, Z_STREAM_ERROR if a parameter is invalid (such as a negative
+   memLevel). msg is set to null if there is no error message.  inflateInit2
+   does not perform any decompression apart from reading the zlib header if
+   present: this will be done by inflate(). (So next_in and avail_in may be
+   modified, but next_out and avail_out are unchanged.)
+}
+
+
+
+function inflateEnd(var z : z_stream) : int;
+
+{
+   All dynamically allocated data structures for this stream are freed.
+   This function discards any unprocessed input and does not flush any
+   pending output.
+
+     inflateEnd returns Z_OK if success, Z_STREAM_ERROR if the stream state
+   was inconsistent. In the error case, msg may be set but then points to a
+   static string (which must not be deallocated).
+}
+
+function inflateReset(var z : z_stream) : int;
+
+{
+   This function is equivalent to inflateEnd followed by inflateInit,
+   but does not free and reallocate all the internal decompression state.
+   The stream will keep attributes that may have been set by inflateInit2.
+
+      inflateReset returns Z_OK if success, or Z_STREAM_ERROR if the source
+   stream state was inconsistent (such as zalloc or state being NULL).
+}
+
+
+function inflate(var z : z_stream;
+                 f : int) : int;
+{
+  inflate decompresses as much data as possible, and stops when the input
+  buffer becomes empty or the output buffer becomes full. It may introduce
+  some output latency (reading input without producing any output)
+  except when forced to flush.
+
+  The detailed semantics are as follows. inflate performs one or both of the
+  following actions:
+
+  - Decompress more input starting at next_in and update next_in and avail_in
+    accordingly. If not all input can be processed (because there is not
+    enough room in the output buffer), next_in is updated and processing
+    will resume at this point for the next call of inflate().
+
+  - Provide more output starting at next_out and update next_out and avail_out
+    accordingly.  inflate() provides as much output as possible, until there
+    is no more input data or no more space in the output buffer (see below
+    about the flush parameter).
+
+  Before the call of inflate(), the application should ensure that at least
+  one of the actions is possible, by providing more input and/or consuming
+  more output, and updating the next_* and avail_* values accordingly.
+  The application can consume the uncompressed output when it wants, for
+  example when the output buffer is full (avail_out == 0), or after each
+  call of inflate(). If inflate returns Z_OK and with zero avail_out, it
+  must be called again after making room in the output buffer because there
+  might be more output pending.
+
+    If the parameter flush is set to Z_SYNC_FLUSH, inflate flushes as much
+  output as possible to the output buffer. The flushing behavior of inflate is
+  not specified for values of the flush parameter other than Z_SYNC_FLUSH
+  and Z_FINISH, but the current implementation actually flushes as much output
+  as possible anyway.
+
+    inflate() should normally be called until it returns Z_STREAM_END or an
+  error. However if all decompression is to be performed in a single step
+  (a single call of inflate), the parameter flush should be set to
+  Z_FINISH. In this case all pending input is processed and all pending
+  output is flushed; avail_out must be large enough to hold all the
+  uncompressed data. (The size of the uncompressed data may have been saved
+  by the compressor for this purpose.) The next operation on this stream must
+  be inflateEnd to deallocate the decompression state. The use of Z_FINISH
+  is never required, but can be used to inform inflate that a faster routine
+  may be used for the single inflate() call.
+
+     If a preset dictionary is needed at this point (see inflateSetDictionary
+  below), inflate sets strm-adler to the adler32 checksum of the
+  dictionary chosen by the compressor and returns Z_NEED_DICT; otherwise
+  it sets strm->adler to the adler32 checksum of all output produced
+  so far (that is, total_out bytes) and returns Z_OK, Z_STREAM_END or
+  an error code as described below. At the end of the stream, inflate()
+  checks that its computed adler32 checksum is equal to that saved by the
+  compressor and returns Z_STREAM_END only if the checksum is correct.
+
+    inflate() returns Z_OK if some progress has been made (more input processed
+  or more output produced), Z_STREAM_END if the end of the compressed data has
+  been reached and all uncompressed output has been produced, Z_NEED_DICT if a
+  preset dictionary is needed at this point, Z_DATA_ERROR if the input data was
+  corrupted (input stream not conforming to the zlib format or incorrect
+  adler32 checksum), Z_STREAM_ERROR if the stream structure was inconsistent
+  (for example if next_in or next_out was NULL), Z_MEM_ERROR if there was not
+  enough memory, Z_BUF_ERROR if no progress is possible or if there was not
+  enough room in the output buffer when Z_FINISH is used. In the Z_DATA_ERROR
+  case, the application may then call inflateSync to look for a good
+  compression block.
+}
+
+
+function inflateSetDictionary(var z : z_stream;
+                              dictionary : pBytef; {const array of byte}
+                              dictLength : uInt) : int;
+
+{
+     Initializes the decompression dictionary from the given uncompressed byte
+   sequence. This function must be called immediately after a call of inflate
+   if this call returned Z_NEED_DICT. The dictionary chosen by the compressor
+   can be determined from the Adler32 value returned by this call of
+   inflate. The compressor and decompressor must use exactly the same
+   dictionary (see deflateSetDictionary).
+
+     inflateSetDictionary returns Z_OK if success, Z_STREAM_ERROR if a
+   parameter is invalid (such as NULL dictionary) or the stream state is
+   inconsistent, Z_DATA_ERROR if the given dictionary doesn't match the
+   expected one (incorrect Adler32 value). inflateSetDictionary does not
+   perform any decompression: this will be done by subsequent calls of
+   inflate().
+}
+
+function inflateSync(var z : z_stream) : int;
+
+{
+  Skips invalid compressed data until a full flush point (see above the
+  description of deflate with Z_FULL_FLUSH) can be found, or until all
+  available input is skipped. No output is provided.
+
+    inflateSync returns Z_OK if a full flush point has been found, Z_BUF_ERROR
+  if no more input was provided, Z_DATA_ERROR if no flush point has been found,
+  or Z_STREAM_ERROR if the stream structure was inconsistent. In the success
+  case, the application may save the current current value of total_in which
+  indicates where valid compressed data was found. In the error case, the
+  application may repeatedly call inflateSync, providing more input each time,
+  until success or end of the input data.
+}
+
+
+function inflateSyncPoint(var z : z_stream) : int;
+
+
+implementation
+
+uses
+  imadler;
+
+function inflateReset(var z : z_stream) : int;
+begin
+  if (z.state = Z_NULL) then
+  begin
+    inflateReset :=  Z_STREAM_ERROR;
+    exit;
+  end;
+  z.total_out := 0;
+  z.total_in := 0;
+  z.msg := '';
+  if z.state^.nowrap then
+    z.state^.mode := BLOCKS
+  else
+    z.state^.mode := METHOD;
+  inflate_blocks_reset(z.state^.blocks^, z, Z_NULL);
+  {$IFDEF DEBUG}
+  Tracev('inflate: reset');
+  {$ENDIF}
+  inflateReset :=  Z_OK;
+end;
+
+
+function inflateEnd(var z : z_stream) : int;
+begin
+  if (z.state = Z_NULL) or not Assigned(z.zfree) then
+  begin
+    inflateEnd :=  Z_STREAM_ERROR;
+    exit;
+  end;
+  if (z.state^.blocks <> Z_NULL) then
+    inflate_blocks_free(z.state^.blocks, z);
+  ZFREE(z, z.state);
+  z.state := Z_NULL;
+  {$IFDEF DEBUG}
+  Tracev('inflate: end');
+  {$ENDIF}
+  inflateEnd :=  Z_OK;
+end;
+
+
+function inflateInit2_(var z: z_stream;
+                       w : int;
+                       const version : AnsiString;
+                       stream_size : int) : int;
+begin
+  if (version = '') or (version[1] <> ZLIB_VERSION[1]) or
+      (stream_size <> sizeof(z_stream)) then
+  begin
+    inflateInit2_ := Z_VERSION_ERROR;
+    exit;
+  end;
+  { initialize state }
+  { SetLength(strm.msg, 255); }
+  z.msg := '';
+  if not Assigned(z.zalloc) then
+  begin
+    {$IFDEF FPC}  z.zalloc := @zcalloc;  {$ELSE}
+    z.zalloc := zcalloc;
+    {$endif}
+    z.opaque := voidpf(0);
+  end;
+  if not Assigned(z.zfree) then
+    {$IFDEF FPC}  z.zfree := @zcfree;  {$ELSE}
+    z.zfree := zcfree;
+    {$ENDIF}
+
+  z.state := pInternal_state( ZALLOC(z,1,sizeof(internal_state)) );
+  if (z.state = Z_NULL) then
+  begin
+    inflateInit2_ := Z_MEM_ERROR;
+    exit;
+  end;
+
+  z.state^.blocks := Z_NULL;
+
+  { handle undocumented nowrap option (no zlib header or check) }
+  z.state^.nowrap := FALSE;
+  if (w < 0) then
+  begin
+    w := - w;
+    z.state^.nowrap := TRUE;
+  end;
+
+  { set window size }
+  if (w < 8) or (w > 15) then
+  begin
+    inflateEnd(z);
+    inflateInit2_ := Z_STREAM_ERROR;
+    exit;
+  end;
+  z.state^.wbits := uInt(w);
+
+  { create inflate_blocks state }
+  if z.state^.nowrap then
+    z.state^.blocks := inflate_blocks_new(z, NIL, uInt(1) shl w)
+  else
+  {$IFDEF FPC}
+    z.state^.blocks := inflate_blocks_new(z, @adler32, uInt(1) shl w);
+  {$ELSE}
+    z.state^.blocks := inflate_blocks_new(z, adler32, uInt(1) shl w);
+  {$ENDIF}
+  if (z.state^.blocks = Z_NULL) then
+  begin
+    inflateEnd(z);
+    inflateInit2_ := Z_MEM_ERROR;
+    exit;
+  end;
+  {$IFDEF DEBUG}
+  Tracev('inflate: allocated');
+  {$ENDIF}
+  { reset state }
+  inflateReset(z);
+  inflateInit2_ :=  Z_OK;
+end;
+
+function inflateInit2(var z: z_stream; windowBits : int) : int;
+begin
+  inflateInit2 := inflateInit2_(z, windowBits, ZLIB_VERSION, sizeof(z_stream));
+end;
+
+
+function inflateInit(var z : z_stream) : int;
+{ inflateInit is a macro to allow checking the zlib version
+  and the compiler's view of z_stream:  }
+begin
+  inflateInit := inflateInit2_(z, DEF_WBITS, ZLIB_VERSION, sizeof(z_stream));
+end;
+
+function inflateInit_(z : z_streamp;
+                      const version : AnsiString;
+                      stream_size : int) : int;
+begin
+  { initialize state }
+  if (z = Z_NULL) then
+    inflateInit_ := Z_STREAM_ERROR
+  else
+    inflateInit_ := inflateInit2_(z^, DEF_WBITS, version, stream_size);
+end;
+
+function inflate(var z : z_stream;
+                 f : int) : int;
+var
+  r : int;
+  b : uInt;
+begin
+  if (z.state = Z_NULL) or (z.next_in = Z_NULL) then
+  begin
+    inflate := Z_STREAM_ERROR;
+    exit;
+  end;
+  if f = Z_FINISH then
+    f := Z_BUF_ERROR
+  else
+    f := Z_OK;
+  r := Z_BUF_ERROR;
+  while True do
+  case (z.state^.mode) of
+    BLOCKS:
+      begin
+        r := inflate_blocks(z.state^.blocks^, z, r);
+        if (r = Z_DATA_ERROR) then
+        begin
+          z.state^.mode := BAD;
+          z.state^.sub.marker := 0;       { can try inflateSync }
+          continue;            { break C-switch }
+        end;
+        if (r = Z_OK) then
+          r := f;
+        if (r <> Z_STREAM_END) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+        inflate_blocks_reset(z.state^.blocks^, z, @z.state^.sub.check.was);
+        if (z.state^.nowrap) then
+        begin
+          z.state^.mode := DONE;
+          continue;            { break C-switch }
+        end;
+        z.state^.mode := CHECK4;  { falltrough }
+      end;
+    CHECK4:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+
+        {z.state^.sub.check.need := uLong(NEXTBYTE(z)) shl 24;}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        z.state^.sub.check.need := uLong(z.next_in^) shl 24;
+        Inc(z.next_in);
+
+        z.state^.mode := CHECK3;   { falltrough }
+      end;
+    CHECK3:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+        {Inc( z.state^.sub.check.need, uLong(NEXTBYTE(z)) shl 16);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) shl 16);
+        Inc(z.next_in);
+
+        z.state^.mode := CHECK2;   { falltrough }
+      end;
+    CHECK2:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+
+        {Inc( z.state^.sub.check.need, uLong(NEXTBYTE(z)) shl 8);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) shl 8);
+        Inc(z.next_in);
+
+        z.state^.mode := CHECK1;   { falltrough }
+      end;
+    CHECK1:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+        {Inc( z.state^.sub.check.need, uLong(NEXTBYTE(z)) );}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) );
+        Inc(z.next_in);
+
+
+        if (z.state^.sub.check.was <> z.state^.sub.check.need) then
+        begin
+          z.state^.mode := BAD;
+          z.msg := 'incorrect data check';
+          z.state^.sub.marker := 5;       { can't try inflateSync }
+          continue;           { break C-switch }
+        end;
+        {$IFDEF DEBUG}
+        Tracev('inflate: zlib check ok');
+        {$ENDIF}
+        z.state^.mode := DONE; { falltrough }
+      end;
+    DONE:
+      begin
+        inflate := Z_STREAM_END;
+        exit;
+      end;
+    METHOD:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f; {}
+
+        {z.state^.sub.method := NEXTBYTE(z);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        z.state^.sub.method := z.next_in^;
+        Inc(z.next_in);
+
+        if ((z.state^.sub.method and $0f) <> Z_DEFLATED) then
+        begin
+          z.state^.mode := BAD;
+          z.msg := 'unknown compression method';
+          z.state^.sub.marker := 5;       { can't try inflateSync }
+          continue;  { break C-switch }
+        end;
+        if ((z.state^.sub.method shr 4) + 8 > z.state^.wbits) then
+        begin
+          z.state^.mode := BAD;
+          z.msg := 'invalid window size';
+          z.state^.sub.marker := 5;       { can't try inflateSync }
+          continue; { break C-switch }
+        end;
+        z.state^.mode := FLAG;
+        { fall trough }
+      end;
+    FLAG:
+      begin
+        {NEEDBYTE}
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f; {}
+        {b := NEXTBYTE(z);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        b := z.next_in^;
+        Inc(z.next_in);
+
+        if (((z.state^.sub.method shl 8) + b) mod 31) <> 0 then {% mod ?}
+        begin
+          z.state^.mode := BAD;
+          z.msg := 'incorrect header check';
+          z.state^.sub.marker := 5;       { can't try inflateSync }
+          continue;      { break C-switch }
+        end;
+        {$IFDEF DEBUG}
+        Tracev('inflate: zlib header ok');
+        {$ENDIF}
+        if ((b and PRESET_DICT) = 0) then
+        begin
+          z.state^.mode := BLOCKS;
+    continue;      { break C-switch }
+        end;
+        z.state^.mode := DICT4;
+        { falltrough }
+      end;
+    DICT4:
+      begin
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+
+        {z.state^.sub.check.need := uLong(NEXTBYTE(z)) shl 24;}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        z.state^.sub.check.need :=  uLong(z.next_in^) shl 24;
+        Inc(z.next_in);
+
+        z.state^.mode := DICT3;        { falltrough }
+      end;
+    DICT3:
+      begin
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+        {Inc(z.state^.sub.check.need, uLong(NEXTBYTE(z)) shl 16);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) shl 16);
+        Inc(z.next_in);
+
+        z.state^.mode := DICT2;        { falltrough }
+      end;
+    DICT2:
+      begin
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        r := f;
+
+        {Inc(z.state^.sub.check.need, uLong(NEXTBYTE(z)) shl 8);}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) shl 8);
+        Inc(z.next_in);
+
+        z.state^.mode := DICT1;        { falltrough }
+      end;
+    DICT1:
+      begin
+        if (z.avail_in = 0) then
+        begin
+          inflate := r;
+          exit;
+        end;
+        { r := f;    ---  wird niemals benutzt }
+        {Inc(z.state^.sub.check.need, uLong(NEXTBYTE(z)) );}
+        Dec(z.avail_in);
+        Inc(z.total_in);
+        Inc(z.state^.sub.check.need, uLong(z.next_in^) );
+        Inc(z.next_in);
+
+        z.adler := z.state^.sub.check.need;
+        z.state^.mode := DICT0;
+        inflate := Z_NEED_DICT;
+        exit;
+      end;
+    DICT0:
+      begin
+        z.state^.mode := BAD;
+        z.msg := 'need dictionary';
+        z.state^.sub.marker := 0;         { can try inflateSync }
+        inflate := Z_STREAM_ERROR;
+        exit;
+      end;
+    BAD:
+      begin
+        inflate := Z_DATA_ERROR;
+        exit;
+      end;
+    else
+      begin
+        inflate := Z_STREAM_ERROR;
+        exit;
+      end;
+  end;
+{$ifdef NEED_DUMMY_result}
+  result := Z_STREAM_ERROR;  { Some dumb compilers complain without this }
+{$endif}
+end;
+
+function inflateSetDictionary(var z : z_stream;
+                              dictionary : pBytef; {const array of byte}
+                              dictLength : uInt) : int;
+var
+  length : uInt;
+begin
+  length := dictLength;
+
+  if (z.state = Z_NULL) or (z.state^.mode <> DICT0) then
+  begin
+    inflateSetDictionary := Z_STREAM_ERROR;
+    exit;
+  end;
+  if (adler32(Long(1), dictionary, dictLength) <> z.adler) then
+  begin
+    inflateSetDictionary := Z_DATA_ERROR;
+    exit;
+  end;
+  z.adler := Long(1);
+
+  if (length >= (uInt(1) shl z.state^.wbits)) then
+  begin
+    length := (1 shl z.state^.wbits)-1;
+    Inc( dictionary, dictLength - length);
+  end;
+  inflate_set_dictionary(z.state^.blocks^, dictionary^, length);
+  z.state^.mode := BLOCKS;
+  inflateSetDictionary := Z_OK;
+end;
+
+
+function inflateSync(var z : z_stream) : int;
+const
+  mark : packed array[0..3] of byte = (0, 0, $ff, $ff);
+var
+  n : uInt;       { number of bytes to look at }
+  p : pBytef;     { pointer to bytes }
+  m : uInt;       { number of marker bytes found in a row }
+  r, w : uLong;   { temporaries to save total_in and total_out }
+begin
+  { set up }
+  if (z.state = Z_NULL) then
+  begin
+    inflateSync := Z_STREAM_ERROR;
+    exit;
+  end;
+  if (z.state^.mode <> BAD) then
+  begin
+    z.state^.mode := BAD;
+    z.state^.sub.marker := 0;
+  end;
+  n := z.avail_in;
+  if (n = 0) then
+  begin
+    inflateSync := Z_BUF_ERROR;
+    exit;
+  end;
+  p := z.next_in;
+  m := z.state^.sub.marker;
+
+  { search }
+  while (n <> 0) and (m < 4) do
+  begin
+    if (p^ = mark[m]) then
+      Inc(m)
+    else
+      if (p^ <> 0) then
+        m := 0
+      else
+        m := 4 - m;
+    Inc(p);
+    Dec(n);
+  end;
+
+  { restore }
+  Inc(z.total_in, ptr2int(p) - ptr2int(z.next_in));
+  z.next_in := p;
+  z.avail_in := n;
+  z.state^.sub.marker := m;
+
+
+  { return no joy or set up to restart on a new block }
+  if (m <> 4) then
+  begin
+    inflateSync := Z_DATA_ERROR;
+    exit;
+  end;
+  r := z.total_in;
+  w := z.total_out;
+  inflateReset(z);
+  z.total_in := r;
+  z.total_out := w;
+  z.state^.mode := BLOCKS;
+  inflateSync := Z_OK;
+end;
+
+
+{
+  returns true if inflate is currently at the end of a block generated
+  by Z_SYNC_FLUSH or Z_FULL_FLUSH. This function is used by one PPP
+  implementation to provide an additional safety check. PPP uses Z_SYNC_FLUSH
+  but removes the length bytes of the resulting empty stored block. When
+  decompressing, PPP checks that at the end of input packet, inflate is
+  waiting for these length bytes.
+}
+
+function inflateSyncPoint(var z : z_stream) : int;
+begin
+  if (z.state = Z_NULL) or (z.state^.blocks = Z_NULL) then
+  begin
+    inflateSyncPoint := Z_STREAM_ERROR;
+    exit;
+  end;
+  inflateSyncPoint := inflate_blocks_sync_point(z.state^.blocks^);
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/imzutil.pas b/src/lib/vampimg/ZLib/imzutil.pas

new file mode 100644 (file)

index 0000000..701b5a2
--- /dev/null
+++ b/src/lib/vampimg/ZLib/imzutil.pas
@@ -0,0 +1,190 @@
+Unit imzutil;
+
+{
+  Copyright (C) 1998 by Jacques Nomssi Nzali
+  For conditions of distribution and use, see copyright notice in readme.txt
+}
+
+interface
+
+{$I imzconf.inc}
+
+{ Type declarations }
+
+type
+  {Byte   = usigned char;  8 bits}
+  Bytef  = byte;
+  charf  = byte;
+
+  int    = longint;
+  intf   = int;
+  uInt   = cardinal;     { 16 bits or more }
+  uIntf  = uInt;
+
+  Long   = longint;
+  uLong  = Cardinal;
+  uLongf = uLong;
+
+  voidp  = pointer;
+  voidpf = voidp;
+  pBytef = ^Bytef;
+  pIntf  = ^intf;
+  puIntf = ^uIntf;
+  puLong = ^uLongf;
+
+  ptr2int = uInt;
+{ a pointer to integer casting is used to do pointer arithmetic.
+  ptr2int must be an integer type and sizeof(ptr2int) must be less
+  than sizeof(pointer) - Nomssi }
+
+type
+  zByteArray = array[0..(MaxInt div SizeOf(Bytef))-1] of Bytef;
+  pzByteArray = ^zByteArray;
+type
+  zIntfArray = array[0..(MaxInt div SizeOf(Intf))-1] of Intf;
+  pzIntfArray = ^zIntfArray;
+type
+  zuIntArray = array[0..(MaxInt div SizeOf(uInt))-1] of uInt;
+  PuIntArray = ^zuIntArray;
+
+{ Type declarations - only for deflate }
+
+type
+  uch  = Byte;
+  uchf = uch; { FAR }
+  ush  = Word;
+  ushf = ush;
+  ulg  = LongInt;
+
+  unsigned = uInt;
+
+  pcharf = ^charf;
+  puchf = ^uchf;
+  pushf = ^ushf;
+
+type
+  zuchfArray = zByteArray;
+  puchfArray = ^zuchfArray;
+type
+  zushfArray = array[0..(MaxInt div SizeOf(ushf))-1] of ushf;
+  pushfArray = ^zushfArray;
+
+procedure zmemcpy(destp : pBytef; sourcep : pBytef; len : uInt);
+function zmemcmp(s1p, s2p : pBytef; len : uInt) : int;
+procedure zmemzero(destp : pBytef; len : uInt);
+procedure zcfree(opaque : voidpf; ptr : voidpf);
+function zcalloc (opaque : voidpf; items : uInt; size : uInt) : voidpf;
+
+implementation
+
+procedure zmemcpy(destp : pBytef; sourcep : pBytef; len : uInt);
+begin
+  Move(sourcep^, destp^, len);
+end;
+
+function zmemcmp(s1p, s2p : pBytef; len : uInt) : int;
+var
+  j : uInt;
+  source,
+  dest : pBytef;
+begin
+  source := s1p;
+  dest := s2p;
+  for j := 0 to pred(len) do
+  begin
+    if (source^ <> dest^) then
+    begin
+      zmemcmp := 2*Ord(source^ > dest^)-1;
+      exit;
+    end;
+    Inc(source);
+    Inc(dest);
+  end;
+  zmemcmp := 0;
+end;
+
+procedure zmemzero(destp : pBytef; len : uInt);
+begin
+  FillChar(destp^, len, 0);
+end;
+
+procedure zcfree(opaque : voidpf; ptr : voidpf);
+{$ifdef Delphi16}
+var
+  Handle : THandle;
+{$endif}
+{$IFDEF FPC}
+var
+  memsize : uint;
+{$ENDIF}
+begin
+  (*
+  {$IFDEF DPMI}
+  {h :=} GlobalFreePtr(ptr);
+  {$ELSE}
+    {$IFDEF CALL_DOS}
+    dosFree(ptr);
+    {$ELSE}
+      {$ifdef HugeMem}
+      FreeMemHuge(ptr);
+      {$else}
+        {$ifdef Delphi16}
+        Handle := GlobalHandle(LH(ptr).H); { HiWord(LongInt(ptr)) }
+        GlobalUnLock(Handle);
+        GlobalFree(Handle);
+        {$else}
+          {$IFDEF FPC}
+          Dec(puIntf(ptr));
+          memsize := puIntf(ptr)^;
+          FreeMem(ptr, memsize+SizeOf(uInt));
+          {$ELSE}
+          FreeMem(ptr);  { Delphi 2,3,4 }
+          {$ENDIF}
+        {$endif}
+      {$endif}
+    {$ENDIF}
+  {$ENDIF}
+  *)
+  FreeMem(ptr);
+end;
+
+function zcalloc (opaque : voidpf; items : uInt; size : uInt) : voidpf;
+var
+  p : voidpf;
+  memsize : uLong;
+{$ifdef Delphi16}
+  handle : THandle;
+{$endif}
+begin
+  memsize := uLong(items) * size;
+  (*
+  { $IFDEF DPMI}
+  p := GlobalAllocPtr(gmem_moveable, memsize);
+  { $ELSE}
+    { $IFDEF CALLDOS}
+    p := dosAlloc(memsize);
+    { $ELSE}
+      {$ifdef HugeMem}
+      GetMemHuge(p, memsize);
+      { $else}
+        { $ifdef Delphi16}
+        Handle := GlobalAlloc(HeapAllocFlags, memsize);
+        p := GlobalLock(Handle);
+        { $else}
+          { $IFDEF FPC}
+          GetMem(p, memsize+SizeOf(uInt));
+          puIntf(p)^:= memsize;
+          Inc(puIntf(p));
+          { $ELSE}
+          GetMem(p, memsize);  { Delphi: p := AllocMem(memsize); }
+          { $ENDIF}
+        { $endif}
+      { $endif}
+    { $ENDIF}
+  { $ENDIF}
+  *)
+  GetMem(p, memsize);
+  zcalloc := p;
+end;
+
+end.
diff --git a/src/lib/vampimg/ZLib/readme.txt b/src/lib/vampimg/ZLib/readme.txt

new file mode 100644 (file)

index 0000000..ffd4f89
--- /dev/null
+++ b/src/lib/vampimg/ZLib/readme.txt
@@ -0,0 +1,129 @@
+_____________________________________________________________________________
+
+PASZLIB 1.0                                                   May 11th, 1998
+
+Based on the zlib 1.1.2, a general purpose data compression library.
+
+Copyright (C) 1998,1999,2000 by NOMSSI NZALI Jacques H. C.
+[kn&n DES]         See "Legal issues" for conditions of distribution and use.
+_____________________________________________________________________________
+
+
+Introduction
+============
+
+The 'zlib' compression library provides in-memory compression and
+decompression functions, including integrity checks of the uncompressed
+data.  This version of the library supports only one compression method
+(deflation) but other algorithms will be added later and will have the same
+stream interface.
+
+Compression can be done in a single step if the buffers are large
+enough (for example if an input file is mmap'ed), or can be done by
+repeated calls of the compression function.  In the latter case, the
+application must provide more input and/or consume the output
+(providing more output space) before each call.
+
+The default memory requirements for deflate are 256K plus a few kilobytes
+for small objects. The default memory requirements for inflate are 32K
+plus a few kilobytes for small objects.
+
+Change Log
+==========
+
+March 24th 2000 - minizip code by Gilles Vollant ported to Pascal.
+                  z_stream.msg defined as string[255] to avoid problems
+                  with Delphi 2+ dynamic string handling.
+                  changes to silence Delphi 5 compiler warning. If you
+                  have Delphi 5, defines Delphi5 in zconf.inc
+
+May 7th 1999    - Some changes for FPC
+                  deflateCopy() has new parameters
+                  trees.pas - record constant definition
+June 17th 1998  - Applied official 1.1.2 patch.
+            Memcheck turned off by default.
+                  zutil.pas patch for Delphi 1 memory allocation corrected.
+                  dzlib.txt file added.
+                  compress2() is now exported
+
+June 25th 1998 -  fixed a conversion bug: in inftrees.pas, ZFREE(z, v) was
+                  missing in line 574;
+
+File list
+=========
+
+Here is a road map to the files in the Paszlib distribution.
+
+readme.txt      Introduction, Documentation
+dzlib.txt       Changes to Delphi sources for Paszlib stream classes
+
+include file
+
+zconf.inc       Configuration declarations.
+
+Pascal source code files:
+
+adler.pas      compute the Adler-32 checksum of a data stream
+crc.pas        compute the CRC-32 of a data stream
+gzio.pas       IO on .gz files
+infblock.pas   interpret and process block types to last block
+infcodes.pas   process literals and length/distance pairs
+inffast.pas    process literals and length/distance pairs fast
+inftrees.pas   generate Huffman trees for efficient decoding
+infutil.pas    types and macros common to blocks and codes
+strutils.pas   string utilities
+trees.pas      output deflated data using Huffman coding
+zcompres.pas   compress a memory buffer
+zdeflate.pas   compress data using the deflation algorithm
+zinflate.pas   zlib interface to inflate modules
+zlib.pas       zlib data structures. read the comments there!
+zuncompr.pas   decompress a memory buffer
+zutil.pas
+
+minizip/ziputils.pas data structure and IO on .zip file
+minizip/unzip.pas
+minizip/zip.pas
+
+Test applications
+
+example.pas    usage example of the zlib compression library
+minigzip.pas   simulate gzip using the zlib compression library
+minizip/miniunz.pas  simulates unzip using the zlib compression library
+minizip/minizip.pas  simulates zip using the zlib compression library
+
+Legal issues
+============
+
+Copyright (C) 1998,1999,2000 by Jacques Nomssi Nzali
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the author be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+
+
+Archive Locations:
+==================
+
+Check the Paszlib home page with links
+
+      http://www.tu-chemnitz.de/~nomssi/paszlib.html
+
+The data format used by the zlib library is described by RFCs (Request for
+Comments) 1950 to 1952 in the files ftp://ds.internic.net/rfc/rfc1950.txt
+(zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format).
+These documents are also available in other formats from
+ftp://ftp.uu.net/graphics/png/documents/zlib/zdoc-index.html.
+____________________________________________________________________________
+Jacques Nomssi Nzali <mailto:nomssi@physik.tu-chemnitz.de> March 24th, 2000
diff --git a/src/shared/WADEDITOR.pas b/src/shared/WADEDITOR.pas

index b533664d29bb1c60e3ccf11da9131f8a97a123ea..3c6c1a3082fc80c9290ace750a56bc3921b963a0 100644 (file)
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
@@ -1,12 +1,10 @@
  unit WADEDITOR;
  
  unit WADEDITOR;
  
-{$MODE Delphi}
-
  {
  -----------------------------------
  {
  -----------------------------------
-WADEDITOR.PAS ВЕРСИЯ ОТ 26.08.08
+WADEDITOR.PAS ÂÅÐÑÈß ÎÒ 26.08.08
  
  
-Поддержка вадов версии 1
+Ïîääåðæêà âàäîâ âåðñèè 1
  -----------------------------------
  }
  
  -----------------------------------
  }
  
diff --git a/src/shared/WADSTRUCT.pas b/src/shared/WADSTRUCT.pas

index 9e2fd06ca524b20f75a1c95c5d6ec1e58f2ea85f..d7d7b06e484aafb55a1884e9a33797b806819899 100644 (file)
--- a/src/shared/WADSTRUCT.pas
+++ b/src/shared/WADSTRUCT.pas
@@ -1,15 +1,13 @@
  unit WADSTRUCT;
  
  unit WADSTRUCT;
  
-{$MODE Delphi}
-
  {
  -----------------------------------
  {
  -----------------------------------
-WADSTRUCT.PAS ВЕРСИЯ ОТ 24.09.06
+WADSTRUCT.PAS ÂÅÐÑÈß ÎÒ 24.09.06
  
  
-Поддержка вадов версии 1
+Ïîääåðæêà âàäîâ âåðñèè 1
  -----------------------------------
  
  -----------------------------------
  
-Структура DFWAD-файла версии 1:
+Ñòðóêòóðà DFWAD-ôàéëà âåðñèè 1:
   ------------------------------------------
   SIGNATURE  | Byte[5]             | 'DFWAD'
   VERSION    | Byte                | $01
   ------------------------------------------
   SIGNATURE  | Byte[5]             | 'DFWAD'
   VERSION    | Byte                | $01
diff --git a/src/shared/mapstructio.inc b/src/shared/mapstructio.inc

new file mode 100644 (file)

index 0000000..ae432b9
--- /dev/null
+++ b/src/shared/mapstructio.inc
@@ -0,0 +1,685 @@
+procedure getBytesAt (var dest; const buf; ofs, len: Integer);
+begin
+  Move((PChar(@buf)+ofs)^, dest, len);
+end;
+
+procedure getWordAt (var dest; const buf; ofs: Integer);
+type PWord = ^Word; PByte = ^Byte;
+var
+  p: PByte;
+  d: PWord;
+begin
+  p := PByte(@buf); Inc(p, ofs);
+  d := PWord(@dest);
+  d^ := p^;
+  Inc(p);
+  d^ := (d^) or ((p^) shl 8);
+end;
+
+procedure getIntAt (var dest; const buf; ofs: Integer);
+type PInt = ^LongWord; PByte = ^Byte;
+var
+  p: PByte;
+  d: PInt;
+begin
+  p := PByte(@buf); Inc(p, ofs);
+  d := PInt(@dest);
+  d^ := p^;
+  Inc(p);
+  d^ := (d^) or ((p^) shl 8);
+  Inc(p);
+  d^ := (d^) or ((p^) shl 16);
+  Inc(p);
+  d^ := (d^) or ((p^) shl 24);
+end;
+
+procedure putBytesAt (var buf; ofs: Integer; const src; len: Integer);
+begin
+  Move(src, (PChar(@buf)+ofs)^, len);
+end;
+
+procedure putWordAt (var buf; ofs: Integer; const src);
+type PWord = ^Word; PByte = ^Byte;
+var
+  p: PByte;
+  d: PWord;
+begin
+  p := PByte(PChar(@buf)+ofs);
+  d := PWord(@src);
+  p^ := (d^) and $ff;
+  Inc(p);
+  p^ := ((d^) shr 8) and $ff;
+end;
+
+procedure putIntAt (var buf; ofs: Integer; const src);
+type PInt = ^LongWord; PByte = ^Byte;
+var
+  p: PByte;
+  d: PInt;
+begin
+  p := PByte(PChar(@buf)+ofs);
+  d := PInt(@src);
+  p^ := (d^) and $ff;
+  Inc(p);
+  p^ := ((d^) shr 8) and $ff;
+  Inc(p);
+  p^ := ((d^) shr 16) and $ff;
+  Inc(p);
+  p^ := ((d^) shr 24) and $ff;
+end;
+
+procedure mb_Read_TriggerData (var tr: TTriggerData; ttype: Integer; const buf; bufsize: Integer);
+  procedure xreadExit ();
+  begin
+    getBytesAt(tr.MapName, buf, 0, 16);
+  end;
+
+  procedure xreadTeleport ();
+  begin
+    getIntAt(tr.TargetPoint.x, buf, 0);
+    getIntAt(tr.TargetPoint.y, buf, 4);
+    getBytesAt(tr.d2d_teleport, buf, 8, 1);
+    getBytesAt(tr.silent_teleport, buf, 9, 1);
+    getBytesAt(tr.TlpDir, buf, 10, 1);
+  end;
+
+  procedure xreadOpendoor ();
+  begin
+    getIntAt(tr.PanelID, buf, 0);
+    getBytesAt(tr.NoSound, buf, 4, 1);
+    getBytesAt(tr.d2d_doors, buf, 5, 1);
+  end;
+
+  procedure xreadPress ();
+  begin
+    getIntAt(tr.tX, buf, 0);
+    getIntAt(tr.tY, buf, 4);
+    getWordAt(tr.tWidth, buf, 8);
+    getWordAt(tr.tHeight, buf, 10);
+    getWordAt(tr.Wait, buf, 12);
+    getWordAt(tr.Count, buf, 14);
+    getIntAt(tr.MonsterID, buf, 16);
+    getBytesAt(tr.ExtRandom, buf, 20, 1);
+  end;
+
+  procedure xreadSecret ();
+  begin
+  end;
+
+  procedure xreadTexture ();
+  begin
+    getBytesAt(tr.ActivateOnce, buf, 0, 1);
+    getBytesAt(tr.AnimOnce, buf, 1, 1);
+  end;
+
+  procedure xreadSound ();
+  begin
+    getBytesAt(tr.SoundName, buf, 0, 64);
+    getBytesAt(tr.Volume, buf, 64, 1);
+    getBytesAt(tr.Pan, buf, 65, 1);
+    getBytesAt(tr.Local, buf, 66, 1);
+    getBytesAt(tr.PlayCount, buf, 67, 1);
+    getBytesAt(tr.SoundSwitch, buf, 68, 1);
+  end;
+
+  procedure xreadSpawnmonster ();
+  begin
+    getIntAt(tr.MonPos.x, buf, 0);
+    getIntAt(tr.MonPos.y, buf, 4);
+    getBytesAt(tr.MonType, buf, 8, 1);
+    getIntAt(tr.MonHealth, buf, 12);
+    getBytesAt(tr.MonDir, buf, 16, 1);
+    getBytesAt(tr.MonActive, buf, 17, 1);
+    getIntAt(tr.MonCount, buf, 20);
+    getBytesAt(tr.MonEffect, buf, 24, 1);
+    getWordAt(tr.MonMax, buf, 26);
+    getWordAt(tr.MonDelay, buf, 28);
+    getBytesAt(tr.MonBehav, buf, 30, 1);
+  end;
+
+  procedure xreadSpawnitem ();
+  begin
+    getIntAt(tr.ItemPos.x, buf, 0);
+    getIntAt(tr.ItemPos.y, buf, 4);
+    getBytesAt(tr.ItemType, buf, 8, 1);
+    getBytesAt(tr.ItemFalls, buf, 9, 1);
+    getBytesAt(tr.ItemOnlyDM, buf, 10, 1);
+    getIntAt(tr.ItemCount, buf, 12);
+    getBytesAt(tr.ItemEffect, buf, 16, 1);
+    getWordAt(tr.ItemMax, buf, 18);
+    getWordAt(tr.ItemDelay, buf, 20);
+  end;
+
+  procedure xreadMusic ();
+  begin
+    getBytesAt(tr.MusicName, buf, 0, 64);
+    getBytesAt(tr.MusicAction, buf, 64, 1);
+  end;
+
+  procedure xreadPush ();
+  begin
+    getWordAt(tr.PushAngle, buf, 0);
+    getBytesAt(tr.PushForce, buf, 2, 1);
+    getBytesAt(tr.ResetVel, buf, 3, 1);
+  end;
+
+  procedure xreadScore ();
+  begin
+    getBytesAt(tr.ScoreAction, buf, 0, 1);
+    getBytesAt(tr.ScoreCount, buf, 1, 1);
+    getBytesAt(tr.ScoreTeam, buf, 2, 1);
+    getBytesAt(tr.ScoreCon, buf, 3, 1);
+    getBytesAt(tr.ScoreMsg, buf, 4, 1);
+  end;
+
+  procedure xreadMessage ();
+  begin
+    getBytesAt(tr.MessageKind, buf, 0, 1);
+    getBytesAt(tr.MessageSendTo, buf, 1, 1);
+    getBytesAt(tr.MessageText, buf, 2, 100);
+    getWordAt(tr.MessageTime, buf, 102);
+  end;
+
+  procedure xreadDamage ();
+  begin
+    getWordAt(tr.DamageValue, buf, 0);
+    getWordAt(tr.DamageInterval, buf, 2);
+  end;
+
+  procedure xreadHealth ();
+  begin
+    getWordAt(tr.HealValue, buf, 0);
+    getWordAt(tr.HealInterval, buf, 2);
+    getBytesAt(tr.HealMax, buf, 4, 1);
+    getBytesAt(tr.HealSilent, buf, 5, 1);
+  end;
+
+  procedure xreadShot ();
+  begin
+    getIntAt(tr.ShotPos.x, buf, 0);
+    getIntAt(tr.ShotPos.y, buf, 4);
+    getBytesAt(tr.ShotType, buf, 8, 1);
+    getBytesAt(tr.ShotTarget, buf, 9, 1);
+    getBytesAt(tr.ShotSound, buf, 10, 1);
+    getBytesAt(tr.ShotAllMap, buf, 11, 1);
+    getIntAt(tr.ShotPanelID, buf, 12);
+    getWordAt(tr.ShotIntSight, buf, 16);
+    getWordAt(tr.ShotAngle, buf, 18);
+    getWordAt(tr.ShotWait, buf, 20);
+    getWordAt(tr.ShotAccuracy, buf, 22);
+    getWordAt(tr.ShotAmmo, buf, 24);
+    getWordAt(tr.ShotIntReload, buf, 26);
+  end;
+
+  procedure xreadEffect ();
+  begin
+    getBytesAt(tr.FXCount, buf, 0, 1);
+    getBytesAt(tr.FXType, buf, 1, 1);
+    getBytesAt(tr.FXSubType, buf, 2, 1);
+    getBytesAt(tr.FXColorR, buf, 3, 1);
+    getBytesAt(tr.FXColorG, buf, 4, 1);
+    getBytesAt(tr.FXColorB, buf, 5, 1);
+    getBytesAt(tr.FXPos, buf, 6, 1);
+    getWordAt(tr.FXWait, buf, 8);
+    getBytesAt(tr.FXVelX, buf, 10, 1);
+    getBytesAt(tr.FXVelY, buf, 11, 1);
+    getBytesAt(tr.FXSpreadL, buf, 12, 1);
+    getBytesAt(tr.FXSpreadR, buf, 13, 1);
+    getBytesAt(tr.FXSpreadU, buf, 14, 1);
+    getBytesAt(tr.FXSpreadD, buf, 15, 1);
+  end;
+
+  procedure xreadScript ();
+  begin
+    getBytesAt(tr.SCRProc, buf, 0, 64);
+    getIntAt(tr.SCRArg, buf, 64);
+  end;
+
+begin
+  if (bufsize < 104) then raise Exception.Create('invalid buffer size in mb_Read_TriggerData');
+  if (ttype = TRIGGER_EXIT) then begin xreadExit(); exit; end;
+  if (ttype = TRIGGER_TELEPORT) then begin xreadTeleport(); exit; end;
+  if (ttype = TRIGGER_OPENDOOR) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_CLOSEDOOR) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_DOOR) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_DOOR5) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_CLOSETRAP) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_TRAP) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFTUP) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFTDOWN) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFT) then begin xreadOpendoor(); exit; end;
+  if (ttype = TRIGGER_PRESS) then begin xreadPress(); exit; end;
+  if (ttype = TRIGGER_ON) then begin xreadPress(); exit; end;
+  if (ttype = TRIGGER_OFF) then begin xreadPress(); exit; end;
+  if (ttype = TRIGGER_ONOFF) then begin xreadPress(); exit; end;
+  if (ttype = TRIGGER_SECRET) then begin xreadSecret(); exit; end;
+  if (ttype = TRIGGER_TEXTURE) then begin xreadTexture(); exit; end;
+  if (ttype = TRIGGER_SOUND) then begin xreadSound(); exit; end;
+  if (ttype = TRIGGER_SPAWNMONSTER) then begin xreadSpawnmonster(); exit; end;
+  if (ttype = TRIGGER_SPAWNITEM) then begin xreadSpawnitem(); exit; end;
+  if (ttype = TRIGGER_MUSIC) then begin xreadMusic(); exit; end;
+  if (ttype = TRIGGER_PUSH) then begin xreadPush(); exit; end;
+  if (ttype = TRIGGER_SCORE) then begin xreadScore(); exit; end;
+  if (ttype = TRIGGER_MESSAGE) then begin xreadMessage(); exit; end;
+  if (ttype = TRIGGER_DAMAGE) then begin xreadDamage(); exit; end;
+  if (ttype = TRIGGER_HEALTH) then begin xreadHealth(); exit; end;
+  if (ttype = TRIGGER_SHOT) then begin xreadShot(); exit; end;
+  if (ttype = TRIGGER_EFFECT) then begin xreadEffect(); exit; end;
+  if (ttype = TRIGGER_SCRIPT) then begin xreadScript(); exit; end;
+  raise Exception.Create('invalid trigger type in mb_Read_TriggerData');
+end;
+
+
+procedure mb_Read_TMapHeaderRec_1 (var tr: TMapHeaderRec_1; const buf; bufsize: Integer);
+  procedure xreadTmapheaderrec_1 ();
+  begin
+    getBytesAt(tr.MapName, buf, 0, 32);
+    getBytesAt(tr.MapAuthor, buf, 32, 32);
+    getBytesAt(tr.MapDescription, buf, 64, 256);
+    getBytesAt(tr.MusicName, buf, 320, 64);
+    getBytesAt(tr.SkyName, buf, 384, 64);
+    getWordAt(tr.Width, buf, 448);
+    getWordAt(tr.Height, buf, 450);
+  end;
+
+begin
+  if (bufsize < 452) then raise Exception.Create('invalid buffer size in readTMapHeaderRec_1');
+  xreadTmapheaderrec_1();
+end;
+
+procedure mb_Read_TTextureRec_1 (var tr: TTextureRec_1; const buf; bufsize: Integer);
+  procedure xreadTtexturerec_1 ();
+  begin
+    getBytesAt(tr.Resource, buf, 0, 64);
+    getBytesAt(tr.Anim, buf, 64, 1);
+  end;
+
+begin
+  if (bufsize < 65) then raise Exception.Create('invalid buffer size in readTTextureRec_1');
+  xreadTtexturerec_1();
+end;
+
+procedure mb_Read_TPanelRec_1 (var tr: TPanelRec_1; const buf; bufsize: Integer);
+  procedure xreadTpanelrec_1 ();
+  begin
+    getIntAt(tr.X, buf, 0);
+    getIntAt(tr.Y, buf, 4);
+    getWordAt(tr.Width, buf, 8);
+    getWordAt(tr.Height, buf, 10);
+    getWordAt(tr.TextureNum, buf, 12);
+    getWordAt(tr.PanelType, buf, 14);
+    getBytesAt(tr.Alpha, buf, 16, 1);
+    getBytesAt(tr.Flags, buf, 17, 1);
+  end;
+
+begin
+  if (bufsize < 18) then raise Exception.Create('invalid buffer size in readTPanelRec_1');
+  xreadTpanelrec_1();
+end;
+
+procedure mb_Read_TItemRec_1 (var tr: TItemRec_1; const buf; bufsize: Integer);
+  procedure xreadTitemrec_1 ();
+  begin
+    getIntAt(tr.X, buf, 0);
+    getIntAt(tr.Y, buf, 4);
+    getBytesAt(tr.ItemType, buf, 8, 1);
+    getBytesAt(tr.Options, buf, 9, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in readTItemRec_1');
+  xreadTitemrec_1();
+end;
+
+procedure mb_Read_TMonsterRec_1 (var tr: TMonsterRec_1; const buf; bufsize: Integer);
+  procedure xreadTmonsterrec_1 ();
+  begin
+    getIntAt(tr.X, buf, 0);
+    getIntAt(tr.Y, buf, 4);
+    getBytesAt(tr.MonsterType, buf, 8, 1);
+    getBytesAt(tr.Direction, buf, 9, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in readTMonsterRec_1');
+  xreadTmonsterrec_1();
+end;
+
+procedure mb_Read_TAreaRec_1 (var tr: TAreaRec_1; const buf; bufsize: Integer);
+  procedure xreadTarearec_1 ();
+  begin
+    getIntAt(tr.X, buf, 0);
+    getIntAt(tr.Y, buf, 4);
+    getBytesAt(tr.AreaType, buf, 8, 1);
+    getBytesAt(tr.Direction, buf, 9, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in readTAreaRec_1');
+  xreadTarearec_1();
+end;
+
+procedure mb_Read_TTriggerRec_1 (var tr: TTriggerRec_1; const buf; bufsize: Integer);
+  procedure xreadTtriggerrec_1 ();
+  begin
+    getIntAt(tr.X, buf, 0);
+    getIntAt(tr.Y, buf, 4);
+    getWordAt(tr.Width, buf, 8);
+    getWordAt(tr.Height, buf, 10);
+    getBytesAt(tr.Enabled, buf, 12, 1);
+    getIntAt(tr.TexturePanel, buf, 13);
+    getBytesAt(tr.TriggerType, buf, 17, 1);
+    getBytesAt(tr.ActivateType, buf, 18, 1);
+    getBytesAt(tr.Keys, buf, 19, 1);
+    getBytesAt(tr.DATA, buf, 20, 128);
+  end;
+
+begin
+  if (bufsize < 148) then raise Exception.Create('invalid buffer size in readTTriggerRec_1');
+  xreadTtriggerrec_1();
+end;
+
+procedure mb_Write_TriggerData (var buf; bufsize: Integer; ttype: Integer; var tr: TTriggerData);
+  procedure xwriteExit ();
+  begin
+    putBytesAt(buf, 0, tr.MapName, 16);
+  end;
+
+  procedure xwriteTeleport ();
+  begin
+    putIntAt(buf, 0, tr.TargetPoint.x);
+    putIntAt(buf, 4, tr.TargetPoint.y);
+    putBytesAt(buf, 8, tr.d2d_teleport, 1);
+    putBytesAt(buf, 9, tr.silent_teleport, 1);
+    putBytesAt(buf, 10, tr.TlpDir, 1);
+  end;
+
+  procedure xwriteOpendoor ();
+  begin
+    putIntAt(buf, 0, tr.PanelID);
+    putBytesAt(buf, 4, tr.NoSound, 1);
+    putBytesAt(buf, 5, tr.d2d_doors, 1);
+  end;
+
+  procedure xwritePress ();
+  begin
+    putIntAt(buf, 0, tr.tX);
+    putIntAt(buf, 4, tr.tY);
+    putWordAt(buf, 8, tr.tWidth);
+    putWordAt(buf, 10, tr.tHeight);
+    putWordAt(buf, 12, tr.Wait);
+    putWordAt(buf, 14, tr.Count);
+    putIntAt(buf, 16, tr.MonsterID);
+    putBytesAt(buf, 20, tr.ExtRandom, 1);
+  end;
+
+  procedure xwriteSecret ();
+  begin
+  end;
+
+  procedure xwriteTexture ();
+  begin
+    putBytesAt(buf, 0, tr.ActivateOnce, 1);
+    putBytesAt(buf, 1, tr.AnimOnce, 1);
+  end;
+
+  procedure xwriteSound ();
+  begin
+    putBytesAt(buf, 0, tr.SoundName, 64);
+    putBytesAt(buf, 64, tr.Volume, 1);
+    putBytesAt(buf, 65, tr.Pan, 1);
+    putBytesAt(buf, 66, tr.Local, 1);
+    putBytesAt(buf, 67, tr.PlayCount, 1);
+    putBytesAt(buf, 68, tr.SoundSwitch, 1);
+  end;
+
+  procedure xwriteSpawnmonster ();
+  begin
+    putIntAt(buf, 0, tr.MonPos.x);
+    putIntAt(buf, 4, tr.MonPos.y);
+    putBytesAt(buf, 8, tr.MonType, 1);
+    putIntAt(buf, 12, tr.MonHealth);
+    putBytesAt(buf, 16, tr.MonDir, 1);
+    putBytesAt(buf, 17, tr.MonActive, 1);
+    putIntAt(buf, 20, tr.MonCount);
+    putBytesAt(buf, 24, tr.MonEffect, 1);
+    putWordAt(buf, 26, tr.MonMax);
+    putWordAt(buf, 28, tr.MonDelay);
+    putBytesAt(buf, 30, tr.MonBehav, 1);
+  end;
+
+  procedure xwriteSpawnitem ();
+  begin
+    putIntAt(buf, 0, tr.ItemPos.x);
+    putIntAt(buf, 4, tr.ItemPos.y);
+    putBytesAt(buf, 8, tr.ItemType, 1);
+    putBytesAt(buf, 9, tr.ItemFalls, 1);
+    putBytesAt(buf, 10, tr.ItemOnlyDM, 1);
+    putIntAt(buf, 12, tr.ItemCount);
+    putBytesAt(buf, 16, tr.ItemEffect, 1);
+    putWordAt(buf, 18, tr.ItemMax);
+    putWordAt(buf, 20, tr.ItemDelay);
+  end;
+
+  procedure xwriteMusic ();
+  begin
+    putBytesAt(buf, 0, tr.MusicName, 64);
+    putBytesAt(buf, 64, tr.MusicAction, 1);
+  end;
+
+  procedure xwritePush ();
+  begin
+    putWordAt(buf, 0, tr.PushAngle);
+    putBytesAt(buf, 2, tr.PushForce, 1);
+    putBytesAt(buf, 3, tr.ResetVel, 1);
+  end;
+
+  procedure xwriteScore ();
+  begin
+    putBytesAt(buf, 0, tr.ScoreAction, 1);
+    putBytesAt(buf, 1, tr.ScoreCount, 1);
+    putBytesAt(buf, 2, tr.ScoreTeam, 1);
+    putBytesAt(buf, 3, tr.ScoreCon, 1);
+    putBytesAt(buf, 4, tr.ScoreMsg, 1);
+  end;
+
+  procedure xwriteMessage ();
+  begin
+    putBytesAt(buf, 0, tr.MessageKind, 1);
+    putBytesAt(buf, 1, tr.MessageSendTo, 1);
+    putBytesAt(buf, 2, tr.MessageText, 100);
+    putWordAt(buf, 102, tr.MessageTime);
+  end;
+
+  procedure xwriteDamage ();
+  begin
+    putWordAt(buf, 0, tr.DamageValue);
+    putWordAt(buf, 2, tr.DamageInterval);
+  end;
+
+  procedure xwriteHealth ();
+  begin
+    putWordAt(buf, 0, tr.HealValue);
+    putWordAt(buf, 2, tr.HealInterval);
+    putBytesAt(buf, 4, tr.HealMax, 1);
+    putBytesAt(buf, 5, tr.HealSilent, 1);
+  end;
+
+  procedure xwriteShot ();
+  begin
+    putIntAt(buf, 0, tr.ShotPos.x);
+    putIntAt(buf, 4, tr.ShotPos.y);
+    putBytesAt(buf, 8, tr.ShotType, 1);
+    putBytesAt(buf, 9, tr.ShotTarget, 1);
+    putBytesAt(buf, 10, tr.ShotSound, 1);
+    putBytesAt(buf, 11, tr.ShotAllMap, 1);
+    putIntAt(buf, 12, tr.ShotPanelID);
+    putWordAt(buf, 16, tr.ShotIntSight);
+    putWordAt(buf, 18, tr.ShotAngle);
+    putWordAt(buf, 20, tr.ShotWait);
+    putWordAt(buf, 22, tr.ShotAccuracy);
+    putWordAt(buf, 24, tr.ShotAmmo);
+    putWordAt(buf, 26, tr.ShotIntReload);
+  end;
+
+  procedure xwriteEffect ();
+  begin
+    putBytesAt(buf, 0, tr.FXCount, 1);
+    putBytesAt(buf, 1, tr.FXType, 1);
+    putBytesAt(buf, 2, tr.FXSubType, 1);
+    putBytesAt(buf, 3, tr.FXColorR, 1);
+    putBytesAt(buf, 4, tr.FXColorG, 1);
+    putBytesAt(buf, 5, tr.FXColorB, 1);
+    putBytesAt(buf, 6, tr.FXPos, 1);
+    putWordAt(buf, 8, tr.FXWait);
+    putBytesAt(buf, 10, tr.FXVelX, 1);
+    putBytesAt(buf, 11, tr.FXVelY, 1);
+    putBytesAt(buf, 12, tr.FXSpreadL, 1);
+    putBytesAt(buf, 13, tr.FXSpreadR, 1);
+    putBytesAt(buf, 14, tr.FXSpreadU, 1);
+    putBytesAt(buf, 15, tr.FXSpreadD, 1);
+  end;
+
+begin
+  if (bufsize < 104) then raise Exception.Create('invalid buffer size in mb_Write_TriggerData');
+  if (ttype = TRIGGER_EXIT) then begin xwriteExit(); exit; end;
+  if (ttype = TRIGGER_TELEPORT) then begin xwriteTeleport(); exit; end;
+  if (ttype = TRIGGER_OPENDOOR) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_CLOSEDOOR) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_DOOR) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_DOOR5) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_CLOSETRAP) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_TRAP) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFTUP) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFTDOWN) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_LIFT) then begin xwriteOpendoor(); exit; end;
+  if (ttype = TRIGGER_PRESS) then begin xwritePress(); exit; end;
+  if (ttype = TRIGGER_ON) then begin xwritePress(); exit; end;
+  if (ttype = TRIGGER_OFF) then begin xwritePress(); exit; end;
+  if (ttype = TRIGGER_ONOFF) then begin xwritePress(); exit; end;
+  if (ttype = TRIGGER_SECRET) then begin xwriteSecret(); exit; end;
+  if (ttype = TRIGGER_TEXTURE) then begin xwriteTexture(); exit; end;
+  if (ttype = TRIGGER_SOUND) then begin xwriteSound(); exit; end;
+  if (ttype = TRIGGER_SPAWNMONSTER) then begin xwriteSpawnmonster(); exit; end;
+  if (ttype = TRIGGER_SPAWNITEM) then begin xwriteSpawnitem(); exit; end;
+  if (ttype = TRIGGER_MUSIC) then begin xwriteMusic(); exit; end;
+  if (ttype = TRIGGER_PUSH) then begin xwritePush(); exit; end;
+  if (ttype = TRIGGER_SCORE) then begin xwriteScore(); exit; end;
+  if (ttype = TRIGGER_MESSAGE) then begin xwriteMessage(); exit; end;
+  if (ttype = TRIGGER_DAMAGE) then begin xwriteDamage(); exit; end;
+  if (ttype = TRIGGER_HEALTH) then begin xwriteHealth(); exit; end;
+  if (ttype = TRIGGER_SHOT) then begin xwriteShot(); exit; end;
+  if (ttype = TRIGGER_EFFECT) then begin xwriteEffect(); exit; end;
+  raise Exception.Create('invalid trigger type in mb_Write_TriggerData');
+end;
+
+
+procedure mb_Write_TMapHeaderRec_1 (var buf; bufsize: Integer; var tr: TMapHeaderRec_1);
+  procedure xwriteTmapheaderrec_1 ();
+  begin
+    putBytesAt(buf, 0, tr.MapName, 32);
+    putBytesAt(buf, 32, tr.MapAuthor, 32);
+    putBytesAt(buf, 64, tr.MapDescription, 256);
+    putBytesAt(buf, 320, tr.MusicName, 64);
+    putBytesAt(buf, 384, tr.SkyName, 64);
+    putWordAt(buf, 448, tr.Width);
+    putWordAt(buf, 450, tr.Height);
+  end;
+
+begin
+  if (bufsize < 452) then raise Exception.Create('invalid buffer size in writeTMapHeaderRec_1');
+  xwriteTmapheaderrec_1();
+end;
+
+procedure mb_Write_TTextureRec_1 (var buf; bufsize: Integer; var tr: TTextureRec_1);
+  procedure xwriteTtexturerec_1 ();
+  begin
+    putBytesAt(buf, 0, tr.Resource, 64);
+    putBytesAt(buf, 64, tr.Anim, 1);
+  end;
+
+begin
+  if (bufsize < 65) then raise Exception.Create('invalid buffer size in writeTTextureRec_1');
+  xwriteTtexturerec_1();
+end;
+
+procedure mb_Write_TPanelRec_1 (var buf; bufsize: Integer; var tr: TPanelRec_1);
+  procedure xwriteTpanelrec_1 ();
+  begin
+    putIntAt(buf, 0, tr.X);
+    putIntAt(buf, 4, tr.Y);
+    putWordAt(buf, 8, tr.Width);
+    putWordAt(buf, 10, tr.Height);
+    putWordAt(buf, 12, tr.TextureNum);
+    putWordAt(buf, 14, tr.PanelType);
+    putBytesAt(buf, 16, tr.Alpha, 1);
+    putBytesAt(buf, 17, tr.Flags, 1);
+  end;
+
+begin
+  if (bufsize < 18) then raise Exception.Create('invalid buffer size in writeTPanelRec_1');
+  xwriteTpanelrec_1();
+end;
+
+procedure mb_Write_TItemRec_1 (var buf; bufsize: Integer; var tr: TItemRec_1);
+  procedure xwriteTitemrec_1 ();
+  begin
+    putIntAt(buf, 0, tr.X);
+    putIntAt(buf, 4, tr.Y);
+    putBytesAt(buf, 8, tr.ItemType, 1);
+    putBytesAt(buf, 9, tr.Options, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in writeTItemRec_1');
+  xwriteTitemrec_1();
+end;
+
+procedure mb_Write_TMonsterRec_1 (var buf; bufsize: Integer; var tr: TMonsterRec_1);
+  procedure xwriteTmonsterrec_1 ();
+  begin
+    putIntAt(buf, 0, tr.X);
+    putIntAt(buf, 4, tr.Y);
+    putBytesAt(buf, 8, tr.MonsterType, 1);
+    putBytesAt(buf, 9, tr.Direction, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in writeTMonsterRec_1');
+  xwriteTmonsterrec_1();
+end;
+
+procedure mb_Write_TAreaRec_1 (var buf; bufsize: Integer; var tr: TAreaRec_1);
+  procedure xwriteTarearec_1 ();
+  begin
+    putIntAt(buf, 0, tr.X);
+    putIntAt(buf, 4, tr.Y);
+    putBytesAt(buf, 8, tr.AreaType, 1);
+    putBytesAt(buf, 9, tr.Direction, 1);
+  end;
+
+begin
+  if (bufsize < 10) then raise Exception.Create('invalid buffer size in writeTAreaRec_1');
+  xwriteTarearec_1();
+end;
+
+procedure mb_Write_TTriggerRec_1 (var buf; bufsize: Integer; var tr: TTriggerRec_1);
+  procedure xwriteTtriggerrec_1 ();
+  begin
+    putIntAt(buf, 0, tr.X);
+    putIntAt(buf, 4, tr.Y);
+    putWordAt(buf, 8, tr.Width);
+    putWordAt(buf, 10, tr.Height);
+    putBytesAt(buf, 12, tr.Enabled, 1);
+    putIntAt(buf, 13, tr.TexturePanel);
+    putBytesAt(buf, 17, tr.TriggerType, 1);
+    putBytesAt(buf, 18, tr.ActivateType, 1);
+    putBytesAt(buf, 19, tr.Keys, 1);
+    putBytesAt(buf, 20, tr.DATA, 128);
+  end;
+
+begin
+  if (bufsize < 148) then raise Exception.Create('invalid buffer size in writeTTriggerRec_1');
+  xwriteTtriggerrec_1();
+end;
+
diff --git a/src/shared/mapstructsizes.inc b/src/shared/mapstructsizes.inc

new file mode 100644 (file)

index 0000000..e793c06
--- /dev/null
+++ b/src/shared/mapstructsizes.inc
@@ -0,0 +1,25 @@
+const
+  SizeOf_TMapHeaderRec_1 = 452;
+  SizeOf_TTextureRec_1 = 65;
+  SizeOf_TPanelRec_1 = 18;
+  SizeOf_TItemRec_1 = 10;
+  SizeOf_TMonsterRec_1 = 10;
+  SizeOf_TAreaRec_1 = 10;
+  SizeOf_TTriggerRec_1 = 148;
+
+procedure mb_Read_TriggerData (var tr: TTriggerData; ttype: Integer; const buf; bufsize: Integer);
+procedure mb_Write_TriggerData (var buf; bufsize: Integer; ttype: Integer; var tr: TTriggerData);
+procedure mb_Read_TMapHeaderRec_1 (var tr: TMapHeaderRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TMapHeaderRec_1 (var buf; bufsize: Integer; var tr: TMapHeaderRec_1);
+procedure mb_Read_TTextureRec_1 (var tr: TTextureRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TTextureRec_1 (var buf; bufsize: Integer; var tr: TTextureRec_1);
+procedure mb_Read_TPanelRec_1 (var tr: TPanelRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TPanelRec_1 (var buf; bufsize: Integer; var tr: TPanelRec_1);
+procedure mb_Read_TItemRec_1 (var tr: TItemRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TItemRec_1 (var buf; bufsize: Integer; var tr: TItemRec_1);
+procedure mb_Read_TMonsterRec_1 (var tr: TMonsterRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TMonsterRec_1 (var buf; bufsize: Integer; var tr: TMonsterRec_1);
+procedure mb_Read_TAreaRec_1 (var tr: TAreaRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TAreaRec_1 (var buf; bufsize: Integer; var tr: TAreaRec_1);
+procedure mb_Read_TTriggerRec_1 (var tr: TTriggerRec_1; const buf; bufsize: Integer);
+procedure mb_Write_TTriggerRec_1 (var buf; bufsize: Integer; var tr: TTriggerRec_1);
diff --git a/src/shared/utils.pas b/src/shared/utils.pas

new file mode 100644 (file)

index 0000000..253e838
--- /dev/null
+++ b/src/shared/utils.pas
@@ -0,0 +1,527 @@
+(* Copyright (C)  DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$MODE DELPHI}
+unit utils;
+
+interface
+
+uses
+  SysUtils, Classes;
+
+
+// does filename have one of ".wad", ".pk3", ".zip" extensions?
+function hasWadExtension (fn: AnsiString): Boolean;
+
+// does filepath have ".XXX:\" in it?
+function isWadPath (fn: AnsiString): Boolean;
+
+// adds ".wad" extension if filename doesn't have one of ".wad", ".pk3", ".zip"
+function addWadExtension (fn: AnsiString): AnsiString;
+
+// convert number to strig with nice commas
+function Int64ToStrComma (i: Int64): AnsiString;
+
+function UpCase1251 (ch: Char): Char;
+function LoCase1251 (ch: Char): Char;
+
+// `true` if strings are equal; ignoring case for cp1251
+function StrEquCI1251 (const s0, s1: AnsiString): Boolean;
+
+function utf8Valid (const s: AnsiString): Boolean;
+
+function utf8to1251 (s: AnsiString): AnsiString;
+
+// `pathname` will be modified if path is valid
+// `lastIsDir` should be `true` if we are searching for directory
+// nobody cares about shitdoze, so i'll use the same code path for it
+function findFileCI (var pathname: AnsiString; lastIsDir: Boolean=false): Boolean;
+
+// they throws
+function openDiskFileRO (pathname: AnsiString): TStream;
+function createDiskFile (pathname: AnsiString): TStream;
+
+// little endian
+procedure writeInt (st: TStream; v: Byte); overload;
+procedure writeInt (st: TStream; v: ShortInt); overload;
+procedure writeInt (st: TStream; v: Word); overload;
+procedure writeInt (st: TStream; v: SmallInt); overload;
+procedure writeInt (st: TStream; v: LongWord); overload;
+procedure writeInt (st: TStream; v: LongInt); overload;
+procedure writeInt (st: TStream; v: Int64); overload;
+procedure writeInt (st: TStream; v: UInt64); overload;
+
+function readByte (st: TStream): Byte;
+function readShortInt (st: TStream): ShortInt;
+function readWord (st: TStream): Word;
+function readSmallInt (st: TStream): SmallInt;
+function readLongWord (st: TStream): LongWord;
+function readLongInt (st: TStream): LongInt;
+function readInt64 (st: TStream): Int64;
+function readUInt64 (st: TStream): UInt64;
+
+// big endian
+procedure writeIntBE (st: TStream; v: Byte); overload;
+procedure writeIntBE (st: TStream; v: ShortInt); overload;
+procedure writeIntBE (st: TStream; v: Word); overload;
+procedure writeIntBE (st: TStream; v: SmallInt); overload;
+procedure writeIntBE (st: TStream; v: LongWord); overload;
+procedure writeIntBE (st: TStream; v: LongInt); overload;
+procedure writeIntBE (st: TStream; v: Int64); overload;
+procedure writeIntBE (st: TStream; v: UInt64); overload;
+
+function readByteBE (st: TStream): Byte;
+function readShortIntBE (st: TStream): ShortInt;
+function readWordBE (st: TStream): Word;
+function readSmallIntBE (st: TStream): SmallInt;
+function readLongWordBE (st: TStream): LongWord;
+function readLongIntBE (st: TStream): LongInt;
+function readInt64BE (st: TStream): Int64;
+function readUInt64BE (st: TStream): UInt64;
+
+
+implementation
+
+
+function hasWadExtension (fn: AnsiString): Boolean;
+begin
+  fn := ExtractFileExt(fn);
+  result := StrEquCI1251(fn, '.wad') or StrEquCI1251(fn, '.pk3') or StrEquCI1251(fn, '.zip');
+end;
+
+
+function addWadExtension (fn: AnsiString): AnsiString;
+begin
+  result := fn;
+  if not hasWadExtension(result) then result := result+'.wad';
+end;
+
+
+function isWadPath (fn: AnsiString): Boolean;
+var
+  p: Integer;
+  s: AnsiString;
+begin
+  result := false;
+  while true do
+  begin
+    p := Pos(':', fn);
+    if (p = 0) or (length(fn)-p < 1) then break;
+    if (p-4 > 1) and (fn[p-4] = '.') and ((fn[p+1] = '\') or (fn[p+1] = '/')) then
+    begin
+      s := Copy(fn, p-4, 4);
+      if StrEquCI1251(s, '.wad') or StrEquCI1251(s, '.pk3') or StrEquCI1251(s, '.zip') then
+      begin
+        result := true;
+        exit;
+      end;
+    end;
+    Delete(fn, 1, p);
+  end;
+end;
+
+
+function Int64ToStrComma (i: Int64): AnsiString;
+var
+  f: Integer;
+begin
+  Str(i, result);
+  f := Length(result)+1;
+  while f > 4 do
+  begin
+    Dec(f, 3); Insert(',', result, f);
+  end;
+end;
+
+
+function UpCase1251 (ch: Char): Char;
+begin
+  if ch < #128 then
+  begin
+    if (ch >= 'a') and (ch <= 'z') then Dec(ch, 32);
+  end
+  else
+  begin
+    if (ch >= #224) and (ch <= #255) then
+    begin
+      Dec(ch, 32);
+    end
+    else
+    begin
+      case ch of
+        #184, #186, #191: Dec(ch, 16);
+        #162, #179: Dec(ch);
+      end;
+    end;
+  end;
+  result := ch;
+end;
+
+
+function LoCase1251 (ch: Char): Char;
+begin
+  if ch < #128 then
+  begin
+    if (ch >= 'A') and (ch <= 'Z') then Inc(ch, 32);
+  end
+  else
+  begin
+    if (ch >= #192) and (ch <= #223) then
+    begin
+      Inc(ch, 32);
+    end
+    else
+    begin
+      case ch of
+        #168, #170, #175: Inc(ch, 16);
+        #161, #178: Inc(ch);
+      end;
+    end;
+  end;
+  result := ch;
+end;
+
+
+function StrEquCI1251 (const s0, s1: AnsiString): Boolean;
+var
+  i: Integer;
+begin
+  result := false;
+  if length(s0) <> length(s1) then exit;
+  for i := 1 to length(s0) do if UpCase1251(s0[i]) <> UpCase1251(s1[i]) then exit;
+  result := true;
+end;
+
+
+// ////////////////////////////////////////////////////////////////////////// //
+// utils
+// `ch`: utf8 start
+// -1: invalid utf8
+function utf8CodeLen (ch: Word): Integer;
+begin
+  if ch < $80 then begin result := 1; exit; end;
+  if (ch and $FE) = $FC then begin result := 6; exit; end;
+  if (ch and $FC) = $F8 then begin result := 5; exit; end;
+  if (ch and $F8) = $F0 then begin result := 4; exit; end;
+  if (ch and $F0) = $E0 then begin result := 3; exit; end;
+  if (ch and $E0) = $C0 then begin result := 2; exit; end;
+  result := -1; // invalid
+end;
+
+
+function utf8Valid (const s: AnsiString): Boolean;
+var
+  pos, len: Integer;
+begin
+  result := false;
+  pos := 1;
+  while pos <= length(s) do
+  begin
+    len := utf8CodeLen(Byte(s[pos]));
+    if len < 1 then exit; // invalid sequence start
+    if pos+len-1 > length(s) then exit; // out of chars in string
+    Dec(len);
+    Inc(pos);
+    // check other sequence bytes
+    while len > 0 do
+    begin
+      if (Byte(s[pos]) and $C0) <> $80 then exit;
+      Dec(len);
+      Inc(pos);
+    end;
+  end;
+  result := true;
+end;
+
+
+// ////////////////////////////////////////////////////////////////////////// //
+const
+  uni2wint: array [128..255] of Word = (
+    $0402,$0403,$201A,$0453,$201E,$2026,$2020,$2021,$20AC,$2030,$0409,$2039,$040A,$040C,$040B,$040F,
+    $0452,$2018,$2019,$201C,$201D,$2022,$2013,$2014,$003F,$2122,$0459,$203A,$045A,$045C,$045B,$045F,
+    $00A0,$040E,$045E,$0408,$00A4,$0490,$00A6,$00A7,$0401,$00A9,$0404,$00AB,$00AC,$00AD,$00AE,$0407,
+    $00B0,$00B1,$0406,$0456,$0491,$00B5,$00B6,$00B7,$0451,$2116,$0454,$00BB,$0458,$0405,$0455,$0457,
+    $0410,$0411,$0412,$0413,$0414,$0415,$0416,$0417,$0418,$0419,$041A,$041B,$041C,$041D,$041E,$041F,
+    $0420,$0421,$0422,$0423,$0424,$0425,$0426,$0427,$0428,$0429,$042A,$042B,$042C,$042D,$042E,$042F,
+    $0430,$0431,$0432,$0433,$0434,$0435,$0436,$0437,$0438,$0439,$043A,$043B,$043C,$043D,$043E,$043F,
+    $0440,$0441,$0442,$0443,$0444,$0445,$0446,$0447,$0448,$0449,$044A,$044B,$044C,$044D,$044E,$044F
+  );
+
+
+function decodeUtf8Char (s: AnsiString; var pos: Integer): char;
+var
+  b, c: Integer;
+begin
+  (* The following encodings are valid, except for the 5 and 6 byte
+   * combinations:
+   *  0xxxxxxx
+   *  110xxxxx 10xxxxxx
+   *  1110xxxx 10xxxxxx 10xxxxxx
+   *  11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
+   *  111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
+   *  1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
+   *)
+  result := '?';
+  if pos > length(s) then exit;
+
+  b := Byte(s[pos]);
+  Inc(pos);
+  if b < $80 then begin result := char(b); exit; end;
+
+  // mask out unused bits
+       if (b and $FE) = $FC then b := b and $01
+  else if (b and $FC) = $F8 then b := b and $03
+  else if (b and $F8) = $F0 then b := b and $07
+  else if (b and $F0) = $E0 then b := b and $0F
+  else if (b and $E0) = $C0 then b := b and $1F
+  else exit; // invalid utf8
+
+  // now continue
+  while pos <= length(s) do
+  begin
+    c := Byte(s[pos]);
+    if (c and $C0) <> $80 then break; // no more
+    b := b shl 6;
+    b := b or (c and $3F);
+    Inc(pos);
+  end;
+
+  // done, try 1251
+  for c := 128 to 255 do if uni2wint[c] = b then begin result := char(c and $FF); exit; end;
+  // alas
+end;
+
+
+function utf8to1251 (s: AnsiString): AnsiString;
+var
+  pos: Integer;
+begin
+  if not utf8Valid(s) then begin result := s; exit; end;
+  pos := 1;
+  while pos <= length(s) do
+  begin
+    if Byte(s[pos]) >= $80 then break;
+    Inc(pos);
+  end;
+  if pos > length(s) then begin result := s; exit; end; // nothing to do here
+  result := '';
+  pos := 1;
+  while pos <= length(s) do result := result+decodeUtf8Char(s, pos);
+end;
+
+
+// ////////////////////////////////////////////////////////////////////////// //
+// `pathname` will be modified if path is valid
+// `lastIsDir` should be `true` if we are searching for directory
+// nobody cares about shitdoze, so i'll use the same code path for it
+function findFileCI (var pathname: AnsiString; lastIsDir: Boolean=false): Boolean;
+var
+  sr: TSearchRec;
+  npt: AnsiString;
+  newname: AnsiString = '';
+  curname: AnsiString;
+  wantdir: Boolean;
+  attr: LongInt;
+  foundher: Boolean;
+begin
+  npt := pathname;
+  result := (length(npt) > 0);
+  if (length(npt) > 0) and ((npt[1] = '/') or (npt[1] = '\')) then newname := '/';
+  while length(npt) > 0 do
+  begin
+    // remove trailing slashes
+    while (length(npt) > 0) and ((npt[1] = '/') or (npt[1] = '\')) do Delete(npt, 1, 1);
+    if length(npt) = 0 then break;
+    // extract name
+    curname := '';
+    while (length(npt) > 0) and (npt[1] <> '/') and (npt[1] <> '\') do
+    begin
+      curname := curname+npt[1];
+      Delete(npt, 1, 1);
+    end;
+    // remove trailing slashes again
+    while (length(npt) > 0) and ((npt[1] = '/') or (npt[1] = '\')) do Delete(npt, 1, 1);
+    wantdir := lastIsDir or (length(npt) > 0); // do we want directory here?
+    //writeln(Format('npt=[%s]; newname=[%s]; curname=[%s]; wantdir=%d', [npt, newname, curname, Integer(wantdir)]));
+    // try the easiest case first
+    attr := FileGetAttr(newname+curname);
+    if attr <> -1 then
+    begin
+      if wantdir = ((attr and faDirectory) <> 0) then
+      begin
+        // i found her!
+        newname := newname+curname;
+        if wantdir then newname := newname+'/';
+        continue;
+      end;
+    end;
+    //writeln(Format('npt=[%s]; newname=[%s]; curname=[%s]; wantdir=%d', [npt, newname, curname, Integer(wantdir)]));
+    // alas, either not found, or invalid attributes
+    foundher := false;
+    try
+      if FindFirst(newname+'*', faAnyFile, sr) = 0 then
+      repeat
+        if (wantdir = ((sr.attr and faDirectory) <> 0)) and StrEquCI1251(sr.name, curname) then
+        begin
+          // i found her!
+          newname := newname+sr.name;
+          if wantdir then newname := newname+'/';
+          foundher := true;
+          break;
+        end;
+      until FindNext(sr) <> 0;
+    finally
+      FindClose(sr);
+    end;
+    if not foundher then begin newname := ''; result := false; break; end;
+  end;
+  if result then pathname := newname;
+end;
+
+
+function openDiskFileRO (pathname: AnsiString): TStream;
+begin
+  if not findFileCI(pathname) then raise Exception.Create('can''t open file "'+pathname+'"');
+  result := TFileStream.Create(pathname, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
+end;
+
+function createDiskFile (pathname: AnsiString): TStream;
+var
+  path: AnsiString;
+begin
+  path := ExtractFilePath(pathname);
+  if length(path) > 0 then
+  begin
+    if not findFileCI(path, true) then raise Exception.Create('can''t create file "'+pathname+'"');
+  end;
+  result := TFileStream.Create(path+ExtractFileName(pathname), fmCreate);
+end;
+
+
+procedure writeIntegerLE (st: TStream; vp: Pointer; size: Integer);
+{$IFDEF ENDIAN_LITTLE}
+begin
+  st.writeBuffer(vp^, size);
+end;
+{$ELSE}
+var
+  p: PByte;
+begin
+  p := PByte(vp)+size-1;
+  while size > 0 do
+  begin
+    st.writeBuffer(p^, 1);
+    Dec(size);
+    Dec(p);
+  end;
+end;
+{$ENDIF}
+
+procedure writeIntegerBE (st: TStream; vp: Pointer; size: Integer);
+{$IFDEF ENDIAN_LITTLE}
+var
+  p: PByte;
+begin
+  p := PByte(vp)+size-1;
+  while size > 0 do
+  begin
+    st.writeBuffer(p^, 1);
+    Dec(size);
+    Dec(p);
+  end;
+end;
+{$ELSE}
+begin
+  st.writeBuffer(vp^, size);
+end;
+{$ENDIF}
+
+procedure writeInt (st: TStream; v: Byte); overload; begin writeIntegerLE(st, @v, 1); end;
+procedure writeInt (st: TStream; v: ShortInt); overload; begin writeIntegerLE(st, @v, 1); end;
+procedure writeInt (st: TStream; v: Word); overload; begin writeIntegerLE(st, @v, 2); end;
+procedure writeInt (st: TStream; v: SmallInt); overload; begin writeIntegerLE(st, @v, 2); end;
+procedure writeInt (st: TStream; v: LongWord); overload; begin writeIntegerLE(st, @v, 4); end;
+procedure writeInt (st: TStream; v: LongInt); overload; begin writeIntegerLE(st, @v, 4); end;
+procedure writeInt (st: TStream; v: Int64); overload; begin writeIntegerLE(st, @v, 8); end;
+procedure writeInt (st: TStream; v: UInt64); overload; begin writeIntegerLE(st, @v, 8); end;
+
+procedure writeIntBE (st: TStream; v: Byte); overload; begin writeIntegerBE(st, @v, 1); end;
+procedure writeIntBE (st: TStream; v: ShortInt); overload; begin writeIntegerBE(st, @v, 1); end;
+procedure writeIntBE (st: TStream; v: Word); overload; begin writeIntegerBE(st, @v, 2); end;
+procedure writeIntBE (st: TStream; v: SmallInt); overload; begin writeIntegerBE(st, @v, 2); end;
+procedure writeIntBE (st: TStream; v: LongWord); overload; begin writeIntegerBE(st, @v, 4); end;
+procedure writeIntBE (st: TStream; v: LongInt); overload; begin writeIntegerBE(st, @v, 4); end;
+procedure writeIntBE (st: TStream; v: Int64); overload; begin writeIntegerBE(st, @v, 8); end;
+procedure writeIntBE (st: TStream; v: UInt64); overload; begin writeIntegerBE(st, @v, 8); end;
+
+
+procedure readIntegerLE (st: TStream; vp: Pointer; size: Integer);
+{$IFDEF ENDIAN_LITTLE}
+begin
+  st.readBuffer(vp^, size);
+end;
+{$ELSE}
+var
+  p: PByte;
+begin
+  p := PByte(vp)+size-1;
+  while size > 0 do
+  begin
+    st.readBuffer(p^, 1);
+    Dec(size);
+    Dec(p);
+  end;
+end;
+{$ENDIF}
+
+procedure readIntegerBE (st: TStream; vp: Pointer; size: Integer);
+{$IFDEF ENDIAN_LITTLE}
+var
+  p: PByte;
+begin
+  p := PByte(vp)+size-1;
+  while size > 0 do
+  begin
+    st.readBuffer(p^, 1);
+    Dec(size);
+    Dec(p);
+  end;
+end;
+{$ELSE}
+begin
+  st.readBuffer(vp^, size);
+end;
+{$ENDIF}
+
+function readByte (st: TStream): Byte; begin readIntegerLE(st, @result, 1); end;
+function readShortInt (st: TStream): ShortInt; begin readIntegerLE(st, @result, 1); end;
+function readWord (st: TStream): Word; begin readIntegerLE(st, @result, 2); end;
+function readSmallInt (st: TStream): SmallInt; begin readIntegerLE(st, @result, 2); end;
+function readLongWord (st: TStream): LongWord; begin readIntegerLE(st, @result, 4); end;
+function readLongInt (st: TStream): LongInt; begin readIntegerLE(st, @result, 4); end;
+function readInt64 (st: TStream): Int64; begin readIntegerLE(st, @result, 8); end;
+function readUInt64 (st: TStream): UInt64; begin readIntegerLE(st, @result, 8); end;
+
+function readByteBE (st: TStream): Byte; begin readIntegerBE(st, @result, 1); end;
+function readShortIntBE (st: TStream): ShortInt; begin readIntegerBE(st, @result, 1); end;
+function readWordBE (st: TStream): Word; begin readIntegerBE(st, @result, 2); end;
+function readSmallIntBE (st: TStream): SmallInt; begin readIntegerBE(st, @result, 2); end;
+function readLongWordBE (st: TStream): LongWord; begin readIntegerBE(st, @result, 4); end;
+function readLongIntBE (st: TStream): LongInt; begin readIntegerBE(st, @result, 4); end;
+function readInt64BE (st: TStream): Int64; begin readIntegerBE(st, @result, 8); end;
+function readUInt64BE (st: TStream): UInt64; begin readIntegerBE(st, @result, 8); end;
+
+
+end.
author	FGSFDSFGS <derp.primus@gmail.com>
	Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)
committer	FGSFDSFGS <derp.primus@gmail.com>
	Wed, 21 Dec 2016 01:06:32 +0000 (04:06 +0300)
src/editor/Editor.lpi		patch \| blob \| history
src/editor/Editor.lpr		patch \| blob \| history
src/editor/f_addresource_sound.pas		patch \| blob \| history
src/editor/f_addresource_texture.pas		patch \| blob \| history
src/editor/f_main.lfm		patch \| blob \| history
src/editor/f_main.pas		patch \| blob \| history
src/editor/f_mapoptions.lfm		patch \| blob \| history
src/editor/f_options.lfm		patch \| blob \| history
src/editor/g_language.pas		patch \| blob \| history
src/editor/g_map.pas		patch \| blob \| history
src/editor/g_textures.pas		patch \| blob \| history
src/engine/e_graphics.pas		patch \| blob \| history
src/engine/e_textures.pas		patch \| blob \| history
src/lib/dgl/GL.pas	[deleted file]	patch \| blob \| history
src/lib/dgl/dglOpenGL.pas	[deleted file]	patch \| blob \| history
src/lib/dgl/glExt.pas	[deleted file]	patch \| blob \| history
src/lib/vampimg/Imaging.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingBitmap.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingCanvases.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingClasses.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingColors.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingComponents.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingDds.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingExtras.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingFormats.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingGif.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingIO.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingJpeg.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingNetworkGraphics.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingOptions.inc	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingPcx.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingPortableMaps.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingPsd.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingRadiance.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingTarga.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingTypes.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingUtility.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ImagingXpm.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcapimin.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcapistd.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjccoefct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjccolor.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcdctmgr.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjchuff.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcinit.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcmainct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcmarker.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcmaster.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcomapi.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjconfig.inc	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcparam.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcphuff.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcprepct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjcsample.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdapimin.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdapistd.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdcoefct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdcolor.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjddctmgr.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdeferr.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdhuff.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdinput.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdmainct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdmarker.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdmaster.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdmerge.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdphuff.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdpostct.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjdsample.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjerror.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjfdctflt.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjfdctfst.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjfdctint.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjidctasm.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjidctflt.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjidctfst.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjidctint.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjidctred.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjinclude.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjmemmgr.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjmemnobs.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjmorecfg.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjpeglib.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjquant1.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjquant2.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/imjutils.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/JpegLib/readme.txt	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/dzlib.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imadler.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/iminfblock.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/iminfcodes.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/iminffast.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/iminftrees.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/iminfutil.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/impaszlib.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imtrees.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imzconf.inc	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imzdeflate.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imzinflate.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/imzutil.pas	[new file with mode: 0644]	patch \| blob
src/lib/vampimg/ZLib/readme.txt	[new file with mode: 0644]	patch \| blob
src/shared/WADEDITOR.pas		patch \| blob \| history
src/shared/WADSTRUCT.pas		patch \| blob \| history
src/shared/mapstructio.inc	[new file with mode: 0644]	patch \| blob
src/shared/mapstructsizes.inc	[new file with mode: 0644]	patch \| blob
src/shared/utils.pas	[new file with mode: 0644]	patch \| blob