помогите загнать букву в треугольник, как сделать чтобы буква не вылезала за границы треугольников Опции

[dan]

program c7;
uses crt,graph;
var
dr,m:integer;
cv,r,cvt:integer;
d,x,y:integer;
begin
clrscr;
dr:=detect;
r:=1;
d:=10;
y:=20;
x:=20;
cv:=1;
cvt:=1;
initgraph(dr,m,'');
repeat
setcolor(cv);
line(x,y-d,x-2*d,y+d);
line(x+2*d,y+d,x,y-d);
line(x-2*d,y+d,x+2*d,y+d);
setcolor(cvt);
settextstyle(0,0,r);
outtextXY(x,y,'j');
d:=d+5;  x:=x+5;
x:=d*2+x;  y:=y+d;
r:=r+1; cv:=cv+1; cvt:=cvt+1;
until x>=369;
readkey;
closegraph;
end.
end.

Сообщение отредактировано: volvo - 6.11.2006 17:36

[volvo]

Добавляем одну строчку:

setcolor(cvt);
settextstyle(0,0,r);
SetTextJustify(CenterText, CenterText); { <--- Вот эту... }
outtextXY(x,y,'j');