Попробуй рисовать фигуру не через числа а через переменную
Тогда уменьшай ее постепенно уменьшая фигуру
например:
n:=10;
line(x,y,x+2.5n,y+n);
n:=7;
n:=5;
