Октандер. 3D графика, Прикрепление оси координат к фигуре Опции

[stikers]

Подскажите пожалуста как сделать программку которая проста изображает ось
вертикальна и горизонтально например так


|
|
|
--- --------------
|
|

В ппрограммном виже на паскале
Точнея будет так сделать что бы одна полоса была горизонтальна а другая вертикальна
поскажите плиз

[BlackShadow]

Не на русском не на Pascal'е...
В тексовом режиме:

Код

Var
 i:Integer;
Begin
 For i:=1 To 10 Do
   WriteLn('|');
 For i:=1 To 10 do
   Write('-');
 WriteLn;
 For i:=1 To 10 Do
   WriteLn('|');
End.

В графике:

Код

Uses Graph;
Var
 g1,g2:Integer;
Begin
 g1:=detect;
 InitGraph(g1,g2,'C:\BP\BGI\');
 Line(0,0,0,100);
 Line(0,50,100,50)
end.

Надеюсь, что то, что должно быть около этих осей сам нарисуешь