Turbo pascal. Графика\движение фигуры

[NEymexa:c]

Сообщение от Serge_Bliznykov

Пожалуйста!
Ещё можно алгоритм(код) улучшать/оптимизировать (вынести общие части за пределы проверок нажатой клавиши, учитывать, что если позиция не изменилась, то нет смысла перевыводить многоугольник на том же самом месте и т.д.).
Но, если Вас устраивает, то можно и так оставить

Один вопрос.. как прижать к левому углу ?

[Serge_Bliznykov]

Сообщение от NEymexa:c

Один вопрос.. как прижать к левому углу ?

а покажите скриншоты-иллюстрации:
- как сейчас максимально влево-вверху
- как, по вашему мнению, должно быть в "прижатом" состоянии.

[NEymexa:c]

Сообщение от Serge_Bliznykov

а покажите скриншоты-иллюстрации:
- как сейчас максимально влево-вверху
- как, по вашему мнению, должно быть в "прижатом" состоянии.

Йой, описка... К левой стороне конечно. Извините.. не заметил

[Serge_Bliznykov]

    write('Введите длину стороны:');
    readln(str_ug);

какую длину стороны ты вводишь?

К левой стороне конечно.

в принципе, можно ЕЩЁ один костыль вставить!

[NEymexa:c]

Сообщение от Serge_Bliznykov

какую длину стороны ты вводишь?


в принципе, можно ЕЩЁ один костыль вставить!

от 100 до 150... При маленьком размере не заметно, но.. преподаватель =)

Вправо сделал по аналогии с движением вниз, а вот к левой стороне не как не получается

[Serge_Bliznykov]

procedure f_ugol(n,x,y,r:integer);{// процедура многоугольника}
var p:array[1..6] of pointtype;
    i,maxY, deltaY, minX:integer;
    a,da:real;
begin
a:=pi/2;
da:=2*pi/n;
for i:=1 to n do
 begin
  p[i].X:=x+round(r*cos(a));
  p[i].Y:=y-round(r*sin(a));
  a:=a+da
 end;
p[n+1]:=p[1];

{korrekcia sdvig vniz}
if (y+r)=GetMaxY then begin
 maxY := p[1].Y;
 for i:=2 to n do
    if p[i].Y>maxY
      then maxY := p[i].Y;
 deltaY := GetMaxY - MaxY;
 if deltaY>0 then
   for i:=1 to n+1 do
      p[i].Y := p[i].Y + deltaY;
end; 

{korrekcia sdvig vlevo}
if (x-r)=0 then begin
 minX := p[1].X;
 for i:=2 to n do
    if p[i].X<minX
      then minX := p[i].X;
 if minX>0 then
   for i:=1 to n+1 do
      p[i].X := p[i].X - minX;
end;

setcolor(15);
setfillstyle(1, 15);
fillpoly(n+1,p); 
end;

[NEymexa:c]

Сообщение от Serge_Bliznykov

procedure f_ugol(n,x,y,r:integer);{// процедура многоугольника}
var p:array[1..6] of pointtype;
    i,maxY, deltaY, minX:integer;
    a,da:real;
begin
a:=pi/2;
da:=2*pi/n;
for i:=1 to n do
 begin
  p[i].X:=x+round(r*cos(a));
  p[i].Y:=y-round(r*sin(a));
  a:=a+da
 end;
p[n+1]:=p[1];

{korrekcia sdvig vniz}
if (y+r)=GetMaxY then begin
 maxY := p[1].Y;
 for i:=2 to n do
    if p[i].Y>maxY
      then maxY := p[i].Y;
 deltaY := GetMaxY - MaxY;
 if deltaY>0 then
   for i:=1 to n+1 do
      p[i].Y := p[i].Y + deltaY;
end; 

{korrekcia sdvig vlevo}
if (x-r)=0 then begin
 minX := p[1].X;
 for i:=2 to n do
    if p[i].X<minX
      then minX := p[i].X;
 if minX>0 then
   for i:=1 to n+1 do
      p[i].X := p[i].X - minX;
end;

setcolor(15);
setfillstyle(1, 15);
fillpoly(n+1,p); 
end;

Большое спасибо за помощь!)
Понял свою ошибку )