При расчетах нужно просто умножать все велечины на дополнительный множетель (велечина зумированя
) вот код увиличения ромба в 2 раза:
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
const
z=2;
begin
form1.Canvas.Rectangle(0,0,clientwidth,clientheight-100);
fi:=fi+dfi;
xc:=xc1+round(50*cos(fi*pi/180));
yc:=yc1-round(50*sin(fi*pi/180));
x1:=(xc)*z;
x2:=(xc-40)*z;
x3:=xc*z;
x4:=(xc+40)*z;
y1:=(yc-40)*z;
y2:=yc*z;
y3:=(yc+40)*z;
y4:=yc*z;
form1.canvas.moveto(round(x1),round(y1));
form1.canvas.lineto(round(x2),round(y2));
form1.canvas.lineto(round(x3),round(y3));
form1.canvas.lineto(round(x4),round(y4));
form1.canvas.lineto(round(x1),round(y1));
end;
Ромб здесь увеличивается но я не смог понять где тут росчитуеться радиус. думаю толчок я дал а дальше сами додумаетесь