Add(MainForm,1,126,154)
{
 Height=400
 BorderStyle=0
 WindowsState=2
 Point(Handle)
 link(onCreate,8:doEvent1,[])
}
Add(GL_Perspective,2,350,217)
{
 Fovy=35
 zFar=100
}
Add(GL_Main,3,301,168)
{
 Color=15780518
 link(onInit,4:doInit,[])
 link(onViewPort,2:doPerspective,[(342,181)(342,223)])
 link(Handle,1:Handle,[(307,130)(114,130)(114,202)(132,202)])
}
Add(Timer,5,203,217)
{
 Interval=33
 Enable=1
 link(onTimer,7:doEvent1,[])
}
Add(GL_GTools,6,301,217)
{
 Point(doClear)
 Point(doPushMatrix)
 Point(doPopMatrix)
}
Add(Hub,7,245,217)
{
 OutCount=5
 link(onEvent1,6:doClear,[])
 link(onEvent2,6:doPushMatrix,[])
 link(onEvent3,1663676:doFlags,[(273,237)(273,272)])
 link(onEvent4,6:doPopMatrix,[(292,244)(292,237)])
 link(onEvent5,3:doFlip,[(283,251)(283,188)])
}
Add(Hub,8,168,168)
{
 OutCount=3
 link(onEvent1,3:doInit,[])
 link(onEvent2,3:doViewPort,[])
 link(onEvent3,5:doTimer,[(192,188)(192,223)])
}
Add(GL_GluTools,4,350,168)
{
 Texture=0
 link(onInit,26:doEnabled,[])
}
Add(GL_Light,26,392,168)
{
 Index=1
 Ambient=16777215
 link(onEnabled,26:doMove,[(433,174)(433,210)(387,210)(387,181)])
 link(onMove,28:doEnabled,[])
}
Add(GL_Options,28,441,175)
{
 link(onEvent,29:doEnabled,[])
}
Add(GL_Options,29,483,175)
{
 Flag=1
 link(onEvent,30:doEnabled,[])
}
Add(GL_Options,30,525,175)
{
 Flag=2
 link(onEvent,31:doEnabled,[])
}
Add(GL_Options,31,567,175)
{
 Flag=3
 link(onEvent,32:doEnabled,[])
}
Add(GL_Options,32,609,175)
{
 Flag=8
}
Add(InlineCode,1663676,301,266)
{
 WorkPoints=#7:doFlags|
 EventPoints=#7:onFlags|
 Code=#16:unit hiGL_Flags;|0:|9:interface|0:|28:uses Kol,Share,Debug,OpenGL;|0:|4:type|29:  THIGL_Flags = class(TDebug)|10:   private|9:   public|0:|29:    _event_onFlags:THI_Event;|0:|57:    procedure _work_doFlags(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|36:procedure THIGL_Flags._work_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;|45:    _hi_CreateEvent(_Data,@_event_onFlags,x);|4:end;|0:|4:end.|
}