Make(delphi)
ver(4.02 build 179)
Add(MainForm,2953706,63,77)
{
 Width=310
 Height=139
 Position=1
 Point(Handle)
 link(onCreate,14810673:doEvent1,[])
}
Add(Edit,12990871,259,203)
{
 Left=73
 Top=25
 Width=150
}
Add(GL_Main,6352949,210,91)
{
 link(onInit,536036:doInit,[])
 link(Handle,2953706:Handle,[(216,78)(108,78)(108,121)(69,121)])
}
Add(Timer,6621690,308,91)
{
 Interval=33
 Enable=1
 link(onTimer,5497846:doEvent1,[])
}
Add(Hub,14810673,119,91)
{
 link(onEvent1,13331114:doWork,[])
 link(onEvent2,6352949:doViewPort,[])
}
Add(Button,5457375,119,161)
{
 Left=73
 Top=50
 Width=150
 Caption="Проверка IC 1"
 link(onClick,2538042:doEvent1,[])
}
Add(InlineCode,2656347,210,161)
{
 @Hint=#3:IC1|
 WorkPoints=#6:doNext|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|28:uses kol,Share,Debug,OpenGL;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|4:    |9:   public|22:   onEvent:THI_Event; |48:   procedure doNext(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|0:|57:procedure THiAsmClass.doNext(var Data:TData; index:word);|8:begin   |34:glBlendFunc(GL_SRC_ALPHA, GL_ONE);|5:end; |4:end.|
 AddHint(46,-18,31,13,@Hint)
}
Add(Hub,2538042,168,161)
{
 link(onEvent1,2656347:doNext,[])
 link(onEvent2,14000463:doWork2,[(189,174)(189,209)])
}
Add(Button,10998857,119,273)
{
 Left=73
 Top=75
 Width=150
 Caption="Проверка IC 2"
 link(onClick,7989712:doEvent1,[])
}
Add(Hub,7989712,168,273)
{
 link(onEvent1,8862504:doNext,[])
 link(onEvent2,14000463:doWork3,[(200,286)])
}
Add(InfoTip,15451360,77,245)
{
 Info=#32:Неверно заданы аргументы функции|
 Font=[MS Sans Serif,8,1,0,1]
 Width=176
 Height=67
}
Add(MultiElementEx,2351629,210,203)
{
 link(onResult,12990871:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,2286884,21,21)
  {
   WorkCount=#32:doCheckError=Проверить на ошибки|
   EventCount=#8:onResult|
   link(doCheckError,10876406:doOperation,[(53,27)(53,48)])
  }
  Add(InlineCode,10876406,84,42)
  {
   WorkPoints=#11:doOperation|
   EventPoints=#8:onResult|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|24:uses Share,Debug,OpenGL;|2:  |4:type|29:  THiAsmClass = class(TDebug)|11:    private|10:    public|23:    onResult:THI_Event;|55:    procedure doOperation(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|27:function GetError : String;|5:begin|19: Case glGetError of|54:    GL_INVALID_ENUM  : Result := 'Неверный аргумент!';|64:    GL_INVALID_VALUE : Result := 'Неверное значение аргумента!';|58:    GL_INVALID_OPERATION : Result := 'Неверная операция!';|56:    GL_STACK_OVERFLOW : Result := 'Переполнение стека!';|62:    GL_STACK_UNDERFLOW : Result := 'Потеря значимости стека!';|54:    GL_OUT_OF_MEMORY : Result := 'Не хватает памяти!';|42:    GL_NO_ERROR : Result := 'Нет ошибок.';|5: end;|4:end;|0:|34:procedure THiAsmClass.doOperation;|3:var|13:  err:string;|5:begin|17:  err:= GetError;|27: _hi_OnEvent(onResult,err);|4:end;|0:|4:end.|
   link(onResult,2286884:onResult,[(218,48)(218,27)])
  }
  Add(Icon,10742912,84,84)
  {
   @Hint=#5:#main|
   Icon=[ZIP9E09000078DA6360600442090906205060E8E064601003B2348018246400C48C40711000C98D8251300A4601696009126680D32B56EC25428C78BDC8F6CD99B31B4C43D4E11643752331EA10EE82A8232486693E2EBDD8FC3D61C24E0262D8CDC7AD8ED4F0C7663EE1F0A7BEF9E4860F317A47C128200FFCFF90C0F0FF593A043F01E2E7CF21EC0F40FAFF7F14DC1524C2B0C3E902C38E6317193A80F4AEA02B60DCE12480A116860101C99E5B]
  }
END_SDK
Add(HubEx,14000463,196,196)
{
 link(onEvent,2351629:doCheckError,[])
}
Add(InlineCode,8862504,210,273)
{
 @Hint=#3:IC2|
 WorkPoints=#6:doNext|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|28:uses kol,Share,Debug,OpenGL;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|4:    |9:   public|22:   onEvent:THI_Event; |48:   procedure doNext(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|0:|57:procedure THiAsmClass.doNext(var Data:TData; index:word);|8:begin   |24:glEnable(GL_ALPHA_TEST);|28:glAlphaFunc(GL_SRC_ALPHA,1);|5:end; |4:end.|
 AddHint(47,-19,31,13,@Hint)
}
Add(Check,13331114,147,91)
{
 link(onEvent,6352949:doInit,[])
}
Add(GL_GluTools,536036,259,91)
{
 link(onInit,6621690:doTimer,[])
}
Add(GL_GTools,771925,441,91)
{
 Point(doClear)
 Point(doPushMatrix)
 Point(doPopMatrix)
}
Add(Hub,5497846,350,91)
{
 OutCount=4
 link(onEvent1,771925:doClear,[])
 link(onEvent2,15285142:doWork,[])
 link(onEvent3,6352949:doFlip,[(371,111)(371,137)(199,137)(199,111)])
 link(onEvent4,771925:doPopMatrix,[(432,118)(432,111)])
}
Add(Check,15285142,378,98)
{
 link(onEvent,771925:doPushMatrix,[])
}
Add(InfoTip,2373958,140,56)
{
 Info=#7:error 1|
 Font=[MS Sans Serif,8,1,8388736,1]
 Height=18
}
Add(InfoTip,6611868,371,70)
{
 Info=#7:error 2|
 Font=[MS Sans Serif,8,1,8388736,1]
 Height=18
}
Add(InfoTip,1201340,105,224)
{
 Info=#7:error 3|
 Font=[MS Sans Serif,8,1,8388736,1]
 Height=18
}