About Micro 3D engine for ATMEL and STM32 imported OBJ procedure TForm1.Button2Click(Sender: TObject); Var i, j : Integer; Src : Textfile; Txt : String;     Icx,Icy,Icz,Icx0, Icy0,Icz0 : Real; Scx, Scy, e : Integer;     Cnt : Word; begin Cnt:=0; For i:=0 to 319 do  For j:=0 to 239 do    Form1.PaintBox1.Canvas.Pixels[i,j]:=clBtnFace; SetAngles(TrackBar2.Position,180,0); AssignFile(Src,'TY2.obj'); Reset(Src); While Not(Eof(Src)) do   Begin     Readln(Src, Txt);     If Copy(Txt,1,1)='v' then       Begin        Txt:=Txt+' ';        i:=Pos(' ', Txt); Delete(Txt,1,i);        i:=Pos(' ', Txt); Val(Copy(Txt,1,i-1), Icx, e); Delete(Txt,1,i);        i:=Pos(' ', Txt); Val(Copy(Txt,1,i-1), Icy, e); Delete(Txt,1,i);        i:=Pos(' ', Txt); Val(Copy(Txt,1,i-1), Icz, e); Delete(Txt,1,i);        Rotate(Icx, Icy, Icz, Icx0,Icy0,Icz0);        Stat:=Projection(Icx0,Icy0+90,Icz0, ScX, ScY);        If Stat>0 then          Begin            PlotMark(Stat, Scx, Scy);            Inc(Cnt);          End;       End;   End; CloseFile(Src); Str(Cnt, Txt); Txt:='Read '+Txt+' vertices.'; Memo1.Lines.Add(Txt); end;