Ребят, как нарисовать орнамент?

[Guest]

Задали сделать орнамент, заполнить пространство равносторонним треугольником...сторона которого задается.

Так вот, не объяснили ничего,а в нете покапалась- ничего нет(

помогите пожалуйста!!

 

[Dock1100]

примерно так:

var x,y,l,d,i,j,nx,ny:integer;
begin
l:=  //длина стороны треугольника
d:=l*sin(3.14/3);
for i:=0 to nx do //nx-количество в ширину
for j:=0 to ny do //ny-количество в высоту
begin
x:=i*l;
y:=j*d;
paintbox1.canvas.moveto(x,y);
paintbox1.canvas.lineto(x+round(l/2),y-d);
paintbox1.canvas.lineto(x+l,y);
paintbox1.canvas.lineto(x,y);
end;
end;