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

  • Автор темы Guest
  • Дата начала
G

Guest

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

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

помогите пожалуйста!!
;)
 
09.11.2009
665
1
#2
примерно так:
Код:
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;