Графика Опции

[ИГОРЬ(МАДИ)]

Ребята. Нужна срочная помощь в написании программы по модулю GRAPH. Вот сама программа:
Разбиваем экран на шесть частей(две строки и три столбца),в каждом из которых строим вложенные кводраты, используя принцип: если оба (строка и столбец)- четные фли нечетные, вращаем по часовой стрелке, если одна-четная,а другая-нечетная, то вращаем против часовой стрелки.
координаты каждого вложенного квадрата вычисляем по формулам
X=X1+M(X2-X1);
Y=Y1+M(Y2-Y1);
где 0<=M<=1;

В принципе я понимаю что надо делать но как в паскале строить квадраты чтоб у них не были стороны только по горизонтали и вертикале. Т.е.могу ли я построить квадрат по 4 точкам а не по двум?

Кто может помочь или хотя бы подсказать буду очень презнателен :p2:

[volvo]

Здесь посмотри: FAQ: Занимательная графика Правда, придется чуть-чуть изменить ...

[ИГОРЬ(МАДИ)]

to volvo:
За ссылку конечно спасибо, но это слишком сложно для меня(я как ни как только на первом курсе)
Там нельзя чтобы без процедуры(хотя я ее понимаю,но...)
А если так как есть, то что значит :
if Graphresult <> 0 then
Halt;
???
Или вообще мне вы просто объясните ,пожалуста, как построить квадрат по четырем точкам а не по двум(там помойму используеться процедура DRAWPOLY)

[volvo]

Ну, если

if Graphresult <> 0 then
      Halt;

это сложно, то я думаю, что DrawPoly тоже будет сложновато...

А вообще да, формируется массив из 4-х точек:

Type
  PointType = record
    X, Y : integer;
  end;
var
  Square: array[1..4] of PointType;
Begin
  ...
  { заполняешь массив значениями, и вызываешь DrawPoly: }
  DrawPoly(4, Square);
end.

Пример для треугольника есть в Turbo Pascal Help... Для квадрата все аналогично.