Проекция буквы T на ось X(Delphi)

[netiv]

Здравствуйте
Помогите написать программу.
Задание:Составить программу проекции буквы T на ось X (Delphi)

[s-andriano]

А в чем проблема?
В ортогональной СК просто выкидываешь координаты по y и z и получаешь требуемое.

[netiv]

Сообщение от s-andriano

А в чем проблема?
В ортогональной СК просто выкидываешь координаты по y и z и получаешь требуемое.

В этом то и проблема. Примерчик можно какой нибудь?

[Valio]

Я чёт недогоняю что нужно нарисовать: то что на картинке один в один, илиже просто букву Т?

[netiv]

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

Я чёт недогоняю что нужно нарисовать: то что на картинке один в один, илиже просто букву Т?

То что на картинке, обьюмную T

[Valio]

1. Пишешь код который рисует букву Т. Аля:

Procedure BukvaT(x, y : Integer);

2. Рисуешь букву Т. Затем ещё одну, при это смещаешь x и y на 1 пиксель.

For i := 1 To 20 Do BukvaT(x - i, y - i);

PS: смещение должно идти вниз и в лево.

3. Готово. Нарисована буква Т толщиной 20 пикселей.

[s-andriano]

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

В этом то и проблема. Примерчик можно какой нибудь?

for i := 0 to NumVertices-1 do begin
  Item[i].y := 0;
  Item[i].z := 0;
end;