Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

Как в цикле нарисовать 12 граней куба?   Найти похожие ветки 

← →
Новичоккк   (2005-12-22 18:47) [0]

Есть массив:
m:array [1..8,1..2] of integer;

В нем записаны координаты вершин куба.
Возможно ли написать цикл, рисующий грани куба? Или придется писать вот так?
moveto(round(Cube[1][1]), round(Cube[1][2]));
lineto(round(Cube[2][1]), round(Cube[2][2]));
moveto(round(Cube[1][1]), round(Cube[1][2]));
lineto(round(Cube[3][1]), round(Cube[3][2]));
moveto(round(Cube[1][1]), round(Cube[1][2]));
lineto(round(Cube[5][1]), round(Cube[5][2]));
moveto(round(Cube[2][1]), round(Cube[2][2]));
lineto(round(Cube[4][1]), round(Cube[4][2]));
moveto(round(Cube[2][1]), round(Cube[2][2]));
lineto(round(Cube[6][1]), round(Cube[6][2]));
moveto(round(Cube[3][1]), round(Cube[3][2]));
lineto(round(Cube[4][1]), round(Cube[4][2]));
moveto(round(Cube[3][1]), round(Cube[3][2]));
lineto(round(Cube[7][1]), round(Cube[7][2]));
moveto(round(Cube[4][1]), round(Cube[4][2]));
lineto(round(Cube[8][1]), round(Cube[8][2]));
moveto(round(Cube[5][1]), round(Cube[5][2]));
lineto(round(Cube[6][1]), round(Cube[6][2]));
moveto(round(Cube[5][1]), round(Cube[5][2]));
lineto(round(Cube[7][1]), round(Cube[7][2]));
moveto(round(Cube[6][1]), round(Cube[6][2]));
lineto(round(Cube[8][1]), round(Cube[8][2]));
moveto(round(Cube[7][1]), round(Cube[7][2]));
lineto(round(Cube[8][1]), round(Cube[8][2]));

---

← →
Johnmen ©   (2005-12-22 18:51) [1]

А у куба точно 12 граней?

---

← →
Новичоккк   (2005-12-22 18:52) [2]

Тьфу ты. Не грани, а ребра.

---

← →
Anatoly Podgoretsky ©   (2005-12-22 20:45) [3]

Зачем тут цикл, конструкция и так оптимальная.

---

← →
Igorek ©   (2005-12-22 21:43) [4]

for i:=1 to 4 do
   begin
 moveto(round(Cube[i][1]), round(Cube[i][2]));
 lineto(round(Cube[i+3 mod 4][1]), round(Cube[i+3 mod 4][2]));
 moveto(round(Cube[i][1]), round(Cube[i][2]));
 lineto(round(Cube[i+4][1]), round(Cube[i+4][2]));
 lineto(round(Cube[i+7 mod 8][1]), round(Cube[i+7 mod 8][2]));
   end

---

← →
begin...end ©   (2005-12-22 21:49) [5]

> Anatoly Podgoretsky ©   (22.12.05 20:45) [3]

"А где критерий оптимальности, автор забыл его привести" (c) Anatoly Podgoretsky

---

← →
Anatoly Podgoretsky ©   (2005-12-22 22:14) [6]

Критерий простой - автор не умеет.

---

← →
Igorek ©   (2005-12-23 11:59) [7]

Вообще интересная задача - использовать цикл на 12 итераций по два вызова функций на каждую.

---

← →
GuAV ©   (2005-12-23 14:28) [8]

Можно создать массив константу из индексов масива. Можно юзать Полигон или ПолиЛайн. А можно и не выпендриваться... :-)

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.033 c