Add(MainForm,1,119,175) { Height=400 BorderStyle=0 WindowsState=2 Point(Handle) link(onCreate,8:doEvent1,[]) } Add(GL_Perspective,2,343,238) { Fovy=35 zFar=100 } Add(GL_Main,3,294,189) { Color=15780518 link(onInit,4:doInit,[]) link(onViewPort,2:doPerspective,[(335,202)(335,244)]) link(Handle,1:Handle,[(300,177)(212,177)(212,219)(125,219)]) } Add(Timer,5,196,238) { Interval=33 Enable=1 link(onTimer,7:doEvent1,[]) } Add(GL_GTools,6,294,238) { Point(doClear) Point(doPushMatrix) Point(doPopMatrix) } Add(Hub,7,238,238) { OutCount=5 link(onEvent1,6:doClear,[]) link(onEvent2,6:doPushMatrix,[]) link(onEvent3,1663676:doFlags,[(273,258)(273,300)]) link(onEvent4,6:doPopMatrix,[(285,265)(285,258)]) link(onEvent5,3:doFlip,[(276,272)(276,209)]) } Add(Hub,8,161,189) { OutCount=3 link(onEvent1,3:doInit,[]) link(onEvent2,3:doViewPort,[]) link(onEvent3,5:doTimer,[(185,209)(185,244)]) } Add(GL_GluTools,4,343,189) { Texture=0 link(onInit,26:doEnabled,[]) } Add(GL_Light,26,385,189) { Index=1 Ambient=16777215 link(onEnabled,26:doMove,[(426,195)(426,231)(380,231)(380,202)]) link(onMove,28:doEnabled,[]) } Add(GL_Options,28,434,196) { link(onEvent,29:doEnabled,[]) } Add(GL_Options,29,476,196) { Flag=1 link(onEvent,30:doEnabled,[]) } Add(GL_Options,30,518,196) { Flag=2 link(onEvent,31:doEnabled,[]) } Add(GL_Options,31,560,196) { Flag=3 link(onEvent,32:doEnabled,[]) } Add(GL_Options,32,602,196) { Flag=8 } Add(InlineCode,1663676,294,294) { 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;|38: _hi_CreateEvent(_Data,@onFlags,x);|4:end;|0:|4:end.| }