Add(InlineCode,12760057,203,245)
{
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|34:uses Kol,Share,Debug,OpenGL,Dglut;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|17:   inRadius:real;|18:   outRadius:real;|17:   Sides:integer;|17:   Rings:integer;|19:   Rings:THI_Event;|19:   Sides:THI_Event;|23:   outRadius:THI_Event;|22:   inRadius:THI_Event;|20:   onDraw:THI_Event;|49:   procedure doDraw(var _Data:TData; Index:word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doDraw;|32:rb := ReadReal(_Data,nRadius,0);|34:rt := ReadReal(_Data,outRadius,0);|34:sl := ReadInteger(_Data,Sides,,0);|33:st := ReadInteger(_Data,Rings,0);|28:glutSolidTorus(rb,rt,sl,st);|33:  _hi_CreateEvent(_Data,@onDraw);|4:end.|
}