Delphi, canvas

[_4Alex4_]

уже завтра надо сдать работу, а я ничего в канвасе не понимаю:

1. Начертите узор, образованный двадцатью вложенными квадратами. Стороны первого параллельны осям координат и равны 60; вершины
каждого последующего квадрата - это точки на сторонах предыдущего, делящие эти стороны в отношении, равном 0,08.
2. Даны натуральные числа x1,y1,x2,y2. Начертите штриховые линии между точками (x1,y1) и (x2,y2), как показано ниже
____________ _ _ ___________ _ _ ______________


вот нашел к первой задаче решение, но оно на паскале, как его в делфи перенести (канвас)?

PHP код:

uses graph;
var gd,gm,a,da,n,xc,yc,i:integer;
   m,ax,aax,bx,bbx,cx,ccx,dx,ddx,ay,aay,by,bby,cy,ccy,dy,ddy:real;
begin
gd:=detect;
initgraph(gd,gm,'');
a:=60;
da:=a div 2;
n:=20;
m:=0.08;
xc:=getmaxX div 2;
yc:=getmaxY div 2;
ax:=xc+a*cos(45*pi/180);
ay:=yc-a*sin(45*pi/180);
bx:=xc+a*cos(135*pi/180);
by:=yc-a*sin(135*pi/180);
cx:=xc+a*cos(225*pi/180);
cy:=yc-a*sin(225*pi/180);
dx:=xc+a*cos(314*pi/180);
dy:=yc-a*sin(315*pi/180);
for i:=1 to n+1 do
begin
 aax:=ax+(bx-ax)*m; aay:=ay+(by-ay)*m;
 bbx:=bx+(cx-bx)*m; bby:=by+(cy-by)*m;
 ccx:=cx+(dx-cx)*m; ccy:=cy+(dy-cy)*m;
 ddx:=dx+(ax-dx)*m; ddy:=dy+(ay-dy)*m;
 line(round(ax),round(ay),round(bx),round(by));
 line(round(bx),round(by),round(cx),round(cy));
 line(round(cx),round(cy),round(dx),round(dy));
 line(round(dx),round(dy),round(ax),round(ay));
 ax:=aax; ay:=aay;
 bx:=bbx; by:=bby;
 cx:=ccx; cy:=ccy;
 dx:=ddx; dy:=ddy;
end;
readln;
end. 


[xoodoo]

icq 118024746

[_4Alex4_]

добавил в аську