Создание узоров с помощю тригонометрии.

[Iceman]

Я тут делаю презентацию нащет того, как с помощю паскаля и тригонометрии можно сделать рисунки, узоры и т.д. Пару узоров выкладываю тут.(Позже еще выложу) Был бы рад если вы бы выложили какие нибудь интересные узоры.(или картинки) Заранее спасибо

uses crt,graph;
const sx=1; sy=1;
var gd,gm,x,y,j,i:integer;
procedure col(k,xp,yp:integer);
begin
 for i:= (90*k) to 180+(90*k) do
for j:= 1 to 10 do
putpixel(xp*10+x*40+round(cos(i*pi/180)*10*sx),yp*10+j*40+round(sin(i*pi/180)*10*sy),j+5);
end;
begin
clrscr;
write('1. ili 2. var? var=');readln(y);
gd:= Detect;
InitGraph(gd, gm, '');
 if y=1 then begin
for x:= 1 to 10 do begin
 col(3,0,2);
 col(0,1,3);
 col(1,2,2);
 col(2,3,1);
 end;end else
 for x:= 1 to 10 do begin
 col(3,0,1);
 col(0,0,3);
 col(1,2,3);
 col(2,2,1);
 end;
readkey;
closegraph;
end.

[alexBlack]

Многозаходная спираль (как семечки у подсолнуха)

procedure TForm1.PaintBox1Paint(Sender: TObject);
var x, y, d, N, i, M : integer;
    t, r, a : double;
begin
   d := 12;           // среднее раастояние между элементами
   N := 1000;         // количество элементов
   t := (1+sqrt(5)) / 2;
   M := PaintBox1.width;
   if PaintBox1.height < M
   then M := PaintBox1.height;
   for i:=1 to N do begin
      r := d * sqrt(i) / PI;      // Радиус -вектор элемента
      a := 2*PI*t*i;              // Полярный угол элемента

      x := trunc(r * sin(a)) + M div 2;
      y := trunc(r * cos(a)) + M div 2;

      PaintBox1.Canvas.Ellipse(X, Y, X + 4, Y + 4);
   end;
end;