Add(MainForm,15340401,126,161)
{
 Width=484
 Height=242
 Position=1
 link(onCreate,5558289:doEvent1,[])
}
Add(GL_Perspective,2,350,224)
{
 Fovy=35
 zFar=100
}
Add(GL_Main,3,301,175)
{
 Color=15780518
 link(onInit,4:doInit,[])
 link(onViewPort,2:doPerspective,[(341,188)(341,230)])
 link(Handle,9391245:Handle,[])
}
Add(Timer,5,203,224)
{
 Interval=33
 Enable=1
 link(onTimer,7:doEvent1,[])
}
Add(GL_GTools,6,301,224)
{
 Point(doClear)
 Point(doPushMatrix)
 Point(doPopMatrix)
}
Add(Hub,7,245,224)
{
 OutCount=5
 link(onEvent1,6:doClear,[])
 link(onEvent2,6:doPushMatrix,[])
 link(onEvent4,6:doPopMatrix,[(292,251)(292,244)])
 link(onEvent5,3:doFlip,[(283,258)(283,195)])
}
Add(Hub,5558289,168,175)
{
 OutCount=3
 link(onEvent1,3:doInit,[])
 link(onEvent2,3:doViewPort,[])
 link(onEvent3,5:doTimer,[(192,195)(192,230)])
}
Add(GL_GluTools,4,350,175)
{
 Texture=0
 link(onInit,26:doEnabled,[])
}
Add(GL_Light,26,392,175)
{
 Index=1
 Ambient=16777215
 link(onEnabled,26:doMove,[(433,181)(433,217)(387,217)(387,188)])
 link(onMove,28:doEnabled,[])
}
Add(GL_Options,28,441,182)
{
 link(onEvent,29:doEnabled,[])
}
Add(GL_Options,29,483,182)
{
 Flag=1
 link(onEvent,30:doEnabled,[])
}
Add(GL_Options,30,525,182)
{
 Flag=2
 link(onEvent,31:doEnabled,[])
}
Add(GL_Options,31,567,182)
{
 Flag=3
 link(onEvent,32:doEnabled,[])
}
Add(GL_Options,32,609,182)
{
 Flag=8
}
Add(InlineCode,1663676,252,322)
{
 WorkPoints=#7:doFlags|
 EventPoints=#7:onFlags|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|28:uses Kol,Share,Debug,OpenGL;|0:|4:type|30:   THiAsmClass = class(TDebug)|10:   private|9:   public|22:    onFlags:THI_Event;|51:    procedure doFlags(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|30:procedure THiAsmClass.doFlags;|3:var|12:  x:integer;|6: begin|11:    x := 0;|47:   if glIsEnabled(GL_LIGHTING) then x := x + 1;|53:   if glIsEnabled(GL_COLOR_MATERIAL) then x := x + 2;|49:   if glIsEnabled(GL_DEPTH_TEST) then x := x + 4;|48:   if glIsEnabled(GL_NORMALIZE) then x := x + 8;|43:   if glIsEnabled(GL_FOG) then x := x + 16;|52:   if glIsEnabled(GL_LINE_STIPPLE) then x := x + 32;|51:   if glIsEnabled(GL_LINE_SMOOTH) then x := x + 64;|53:   if glIsEnabled(GL_POINT_SMOOTH) then x := x + 128;|46:   if glIsEnabled(GL_BLEND) then x := x + 256;|50:   if glIsEnabled(GL_CULL_FACE) then x := x + 512;|52:   if glIsEnabled(GL_TEXTURE_2D) then x := x + 1024;|54:   if glIsEnabled(GL_STENCIL_TEST) then x := x + 2048;|38:    _hi_CreateEvent(_Data,@onFlags,x);|4:end;|0:|4:end.|
 link(onFlags,5725291:doValue,[])
}
Add(Memory,5725291,301,322)
{
}
Add(IntToBits,10126796,301,371)
{
 Count=12
 ZeroBits=1
 link(Value,5725291:Value,[])
 link(onBit1,15866886:doWork1,[])
 link(onBit2,15866886:doWork2,[])
 link(onBit3,15866886:doWork3,[])
 link(onBit4,15866886:doWork4,[])
 link(onBit5,15866886:doWork5,[])
 link(onBit6,15866886:doWork6,[])
 link(onBit7,15866886:doWork7,[])
 link(onBit8,15866886:doWork8,[])
 link(onBit9,15866886:doWork9,[])
 link(onBit10,15866886:doWork10,[])
 link(onBit11,15866886:doWork11,[])
 link(onBit12,15866886:doWork12,[])
}
Add(ChanelToIndex,15866886,350,371)
{
 Count=12
 link(onIndex,4767809:doRead,[])
}
Add(Button,3555276,182,364)
{
 Left=210
 Top=10
 Caption="Flags?"
 link(onClick,2625812:doEvent1,[])
}
Add(StrList,9865695,385,315)
{
 Strings=#11:GL_LIGHTING|17:GL_COLOR_MATERIAL|13:GL_DEPTH_TEST|12:GL_NORMALIZE|6:GL_FOG|15:GL_LINE_STIPPLE|14:GL_LINE_SMOOTH|15:GL_POINT_SMOOTH|8:GL_BLEND|12:GL_CULL_FACE|13:GL_TEXTURE_2D|15:GL_STENCIL_TEST|
}
Add(ArrayRW,4767809,399,371)
{
 link(onRead,5401045:doAdd,[])
 link(Array,9865695:Array,[])
}
Add(ChildPanelEx,9391245,301,126)
{
}
BEGIN_SDK
  Add(EditMultiEx,635969,21,21)
  {
   VarCount=#6:Handle|
   link(Handle,6700197:Handle,[(27,179)(41,179)])
  }
  Add(Panel,6700197,35,105)
  {
   Top=5
   Width=200
   Height=200
   Point(Handle)
  }
END_SDK
Add(ListBox,5401045,448,371)
{
 Left=285
 Top=10
 Width=175
 Height=190
}
Add(Hub,2625812,224,364)
{
 link(onEvent1,1663676:doFlags,[(245,370)(245,328)])
 link(onEvent2,10126796:doBits,[])
}