Реализовать программу, строящую двумерное изображение заданной фигуры. Опции

[GrukhvinEV]

Реализовать программу, строящую двумерное изображение заданной фигуры. Необходимо выполнить 2D преобразования и отобразить новое положение фигуры.

[TarasBer]

Да не, всё чётко.
Кроме того, что вместо

t:=0;
while t<=k do begin
   ...
   inc(t);
end;

Нагляднее и короче так:

for t :=0 to k do begin
  ...
end; 

Но можно и ещё попридираться.

Вот например:

const k=7; n=1;
z:array [0..k,0..n] of

Сейчас k и n несут очень мало геометрического смысла, они что-то типа "номер максимального элемента" или "количество точек минус один". Не лучше ли сразу сделать их количеством точек?

Предпочтительнее так:

const k=8; n=2;
z:array [0..k-1, 0..n-1] of

Перебор от 0 до эн минус 1 - это стандартно в программировании.

Что ещё можно найти.
А, ты вот k раз считаешь две точки, по сути у тебя все точки считаются по два раза.

Короче, можно оптимизировать.
У тебя пока так:

t:=0;
 while t<=k do begin
 x1:=round((-z[0+t,0]*xc+GetMaxX/2-z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 y1:=round((-z[0+t,0]*xc+GetMaxX/2+z[0+t,1]*yc+GetMaxY/2)/sqrt(2));
 x2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2-z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 y2:=round((-z[(1+t) mod 8,0]*xc+GetMaxX/2+z[(1+t) mod 8,1]*yc+GetMaxY/2)/sqrt(2));
 setcolor(14);
 line(-x1,y1,-x2,y2);
 inc(t);
end;

Я бы заранее посчитал k раз новые точки, и потом уже обращался к готовым точкам, не считая каждую 2 раза.

  // считаем координаты
  for t:=0 to k do begin
    scrx[t] :=round((-z[t,0]*xc+GetMaxX/2-z[t,1]*yc+GetMaxY/2)/sqrt(2)); 
    scry[t] :=round((-z[t,0]*xc+GetMaxX/2+z[t,1]*yc+GetMaxY/2)/sqrt(2));
  end;
  // рисуем ломаную
  for t := 0 to k do begin
    t1 := (t+1) mod (k+1); // никаких mod 8, если по смыслу у нас k!
    setcolor(14);
    line(-scrx[t ],scry[t ],
         -scrx[t1],scry[t1]);    
  end;

Ещё вроде есть готовая процедура для рисования ломаных.

Сообщение отредактировано: TarasBer - 16.12.2011 14:04