Работа с графикой

[BDA]

Да, именно она, но я не нашел штриховки в виде точек.
Вы можете посмотреть все виды в содержании по слову setbrushstyle.

[Falcao]

ПОМОГИТЕ ещё с одним . Построить кривые по их уравнениям, заданным в полярных координатах:
спираль Ферма ρ 2 = а2φ

[BDA]

uses crt, graphABC, PointRect;
const
  count = 10;
  g = pi / 180;
  a = 150;
  x0 = 200;
  y0 = 200;
var
  f, r: real;
  p: array [1 .. 2] of point;
begin
  SetWindowSize(900, 900);
  SetPenWidth(1);
  p[1].x := 0;
  p[1].y := 0;
  f := g;
  while f < 2 * pi * count do
  begin
    r := a * sqrt(f * pi / 180);
    p[2].x := round(r * cos(f));
    p[2].y := round(-r * sin(f));
    line(p[1].x + x0, p[1].y + y0, p[2].x + x0, p[2].y + y0);
    line(-p[1].x + x0, -p[1].y + y0, -p[2].x + x0, -p[2].y + y0);
    p[1] := p[2];
    f := f + g;
  end;
end.

Не нужно кросспостить.

[Falcao]

Сообщение от BDA

uses crt, graphABC, PointRect;
const
  count = 10;
  g = pi / 180;
  a = 150;
  x0 = 200;
  y0 = 200;
var
  f, r: real;
  p: array [1 .. 4] of point;
begin
  SetWindowSize(900, 900);
  SetPenWidth(1);
  f := 0;
  p[1].x := 0;
  p[1].y := 0;
  p[2] := p[1];
  while f < 2 * pi * count do
  begin
    r := a * sqrt(f * pi / 180);
    p[3].x := round(r * cos(f));
    p[3].y := round(-r * sin(f));
    p[4].x := round(-r * cos(f));
    p[4].y := round(r * sin(f));
    line(p[1].x + x0, p[1].y + y0, p[3].x + x0, p[3].y + y0);
    line(p[2].x + x0, p[2].y + y0, p[4].x + x0, p[4].y + y0);
    p[1] := p[3];
    p[2] := p[4];
    f := f + g;
  end;
end.

Не нужно кросспостить.

спасибо вам огромное, завтра сдам, но кроме зачёта хотелось бы разузнать как оно всё работает, где это можно почитать помимо справки?

[BDA]

Пожалуйста.

Во-первых, не нужно цитировать полностью сообщение, иначе можно получить предупреждение.
Во-вторых, упростил код в предыдущем посте.
В-третьих, насчет работы:
Рисование очень простое. Берем начальный угол. Поворачиваемся на какой-то малый угол и выражаем из формулы радиус. Затем рассчитываем координаты точки через синус и косинус. При этом у нас сохранена предыдущая точка. Осталось соединить 2 точки линией. Используем смещение, чтобы рисунок был где-то посередине экрана, а не в углу. Также стоит учесть, что при каком-либо угле имеем 2 точки, симметричные относительно начала координат.