[trraktorrist]

int x,y;
while(a>b)
{
a=a-b;
if (tan(a/2)>0)
{
x=int(z*(cos(a)+log(tan(a/2))));
y=int(z*sin(a));

//win->i1->Canvas->Pixels[x+z][y+z*int(500/(2*z))]=0xff0000;
win->i1->Canvas->Pixels[x+z*int(550/(2*z))+z][-y+z*int(500/(2*z))]=0xff0000;
} }
прости что в С++