Рисование "прямых" линий. Делфи

[Artsiom]

Вечер добрый.
Мой научный руководитель хочет программу для показа колебаний. Собственно мной была она написана.
Возникла проблема, когда рисуется косая линия, парабола, то рисуется она не так как например на доске мелом - ровно, а штрихами.
Уже и объяснял, что от меня это не зависит, рассказывал про матрицу и размер пикселей, и наглядно показывал на листке в клеточку, ни в какую. Подавай ему ровную линию и всё тут. Говорит, что ему делали проги где линия идеально ровна шла.... и что бы я ему не загонял и не уклонялся от работы дурдом.
Собственно возник вопрос, а может и правда как то можно нарисовать, к примеру параболу так, что бы отрисовывалась не штришками а плавной линией?
Буду рад хоть какой информации.

[s-andriano]

Как говорится, совершенству нет предела.

1. Собственно, вместо параболы рисуется ломаная. И если эта ломаная состоит из достаточно крупнвх "штрихов", это будет заметно на глаз. Штрихи следует делать поменьше. Возможно, адаптивной длины, чтобы между двумя соседними угол не превосходил некоторой заданной величины. Ну и т.д.

2. Если проблема не в том, что на линии видны штрихи, а в том, что на ней видны пискели - задача несколько усложняется. Для борьбы с таким эффектом применяется антиалиасинг. Грубо говоря, это выглядит так (в случае черной линии на белом фоне): рисуем линию хотя бы чуть шире, чем 1 пиксель. Вычисляем точно ее границы относительно границ пикселя. Если пиксель целиком внутри линии - рисуем черным. Если граница линии пересекает площадь пикселя, рисуем его оттенком серого, степень черноты при этом равна отношению площади черной части пикселя к его полной площади.

[BDA]

Сравнение парабол с антиалисингом и без:

[Artsiom]

Ух ты.
Спасибо, будем-с разбираться.

[МНС]

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

Сравнение парабол с антиалисингом и без:

Я понимаю, что это очень нагло, но не могли бы скинуть исходник этой проги?

[BDA]

МНС, на форме PaintBox (не забудьте скачать gdi+):

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  graphicsGDIPlus: TGPGraphics;
  pen: TGPPen;
  points: array [0 .. 2] of TGPPointF;
begin
  graphicsGDIPlus := TGPGraphics.Create(PaintBox1.Canvas.Handle);
  pen := TGPPen.Create(MakeColor(255, 0, 0, 0), 1);
  points[0] := MakePoint(20.0, 200);
  points[1] := MakePoint(60.0, 20);
  points[2] := MakePoint(100.0, 200);
  graphicsGDIPlus.SetSmoothingMode(0);
  graphicsGDIPlus.DrawCurve(pen, PGPPointF(@points), 3);
  graphicsGDIPlus.TranslateTransform(120, 0);
  graphicsGDIPlus.SetSmoothingMode(4);
  graphicsGDIPlus.DrawCurve(pen, PGPPointF(@points), 3);
  graphicsGDIPlus.ResetTransform;
  pen.free;
  graphicsGDIPlus.free;
end;