можно ли вычеслять координаты просто?

[StakanpORTvejna]

uses Graph,crt;
var a,b,n,l:integer;
c:longint;
Function del(c,b:longint):longint;
begin
for c:=1 to b do
delay(3);
end;

Begin
l:=1;
n:=25;
a:=Detect;
 initGraph(a,b,' ');
SetBkColor(8);
Line(100,50,100,80);
    del(l,n);
Line (100,65,120,65);
  del(l,n);

Line(120,50,120,80);
del(l,n);

Line(125,80,140,50);
      del(l,n);
      Line(140,50,155,80);
      del(l,n);
      Line(130,69,150,69);
readln;

CloseGraph;

end.

Вообщем это только начала Happy birthday to you...+ сюда будет вставлена мелодия)но дело не в этом...можно ли как-нибудь быстро просчитать все координаты по которым будут буквы вычерчиваться..?потому что я столько врядли смогу просчитать,или на это надо столько времени убить,а его и так с трудом хватает
или может можно как-нибудь выводить буквы,чтобы они какбы рисовались?

[puporev]

Если Вы хотите чтобы каждая буква рисовалась, то только вручную, иначе только выводить готовые буквы по одной, с задержкой. А координаты нужно заранее на бумажке подсчитать. Нарисовать в масштабе экран, нанести свою надпись, и определить примерно нужные координаты, затем в процессе отладки программы внести поправки.

[StakanpORTvejna]

а как посмотреть какой из шрифтов юзаеться,потому что в папке лежит около 50 штук и кто его знает какой из них..и как заюзать отдельный?

[puporev]

Вы пытаетесь что-то делать и ничего не хотите сами искать и читать. Вот для начала хотя бы прочитайте.