Занимательная графика Опции

[BlackShadow]

В этой теме приведены исходники, отрисовывающие следующие фигуры:

1. "Архимедова спираль" (ниже в этом же сообщении)
   
   
2. 
   Исходник для Турбо Паскаля (процедуры)
   Исходник для Турбо Паскаля (ООП)
   Отрисовка только прямыми линиями
   
   
3. 
   Исходник для FPC
   
   
4. 
   
   
5. 
   
   
6. 
   
   
7. 
   Фрактальные деревья
   
   
8. "Фигуры Лиссажу"
9. Пример RGB графики в режиме 13h

Архимедова спираль

Параметрическое представление спирали: x = r cos t , y = r sin t, r = t/2

Если количество витков = n, то T пробегает от 0 до n*2*pi. r растёт от 0 до R_max (данный внешний радиус), и пропорционален T. Тогда r = T/(n*2*pi)*R_max.

Uses Graph, Crt;

Const
  r_max = 200;
  n = 7;
Var
  gr, gm: Integer;
  i, k: Integer;
  ZeroX, ZeroY: Integer;
  x, y, r, t: Double;

begin
  gr := Detect;

  InitGraph(gr, gm, '');
  k := n * 140;

  ZeroX := Round(GetMaxX/2);
  ZeroY := Round(GetMaxY/2);
  {MoveTo(ZeroX, ZeroY);}
  For i := 1 To k Do
    Begin
      T := (n * 2 * Pi) * i / k;
      r := T / (n * 2 * Pi) * r_max;
      x := r * Cos(T);
      y := r * Sin(T);
      PutPixel(ZeroX + Round(x), ZeroY - Round(y), White)
    End;
  ReadKey;
  CloseGraph;
end.

[klem4]

Еще немного рекурсии Салфетка Серпинского:

uses crt, graph;

var
  gd, gm: Integer;

procedure DrawTriangle(const bottomX, bottomY, size: Word);
var
  height: Word;
begin
  height := round(size * sqrt(3)) div 2;

  SetColor(Random(150) + 1);

  Line(bottomX, bottomY, bottomX - size div 2, bottomY - height);
  Line(bottomX, bottomY, bottomX + size div 2, bottomY - height);
  Line(bottomX - size div 2, bottomY - height, bottomX + size div 2, bottomY - height);

  delay(30);

end;

procedure Serpinsky(bottomX, bottomY, size, deep: Word);
var
  height: Word;
begin
  if deep > 0 then begin
    height := round(size * sqrt(3)) div 2;
    DrawTriangle(bottomX, bottomY, size);
    Serpinsky(bottomX - size div 2, bottomY, size div 2, deep - 1);
    Serpinsky(bottomX + size div 2, bottomY, size div 2, deep - 1);
    Serpinsky(bottomX, bottomY - height, size div 2, deep - 1);
  end;
end;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

  Randomize;

  Serpinsky(GetMaxX div 2, GetMaxY div 2 + 150, 200, 6);

  readkey;
  CloseGraph;
end.

Сообщение отредактировано: klem4 - 21.10.2007 20:31