Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Question

[Вячеслав]

Доброго времени суток!
Столкнулся с проблемой, когда начал осваивать построение графиков в delphi. Дело в том, что захотел попробовать построить график ln(x) канвасом, но у ln'a есть ограничение x>0, и делфи строит линию, от начала координат в image до того самого значения в x>0. Как от неё избавиться и оставить только график ln'a??
Вот сам код

procedure TForm1.Button5Click(Sender: TObject);
const mash=10;
Var x0,y0:integer;
x,y:real;
begin
x0:=image2.Width div 2;
y0:=image2.Height div 2;
// рисуем ось
image2.canvas.pen.color:=clgray;
image2.canvas.pen.width:=2;
image2.Canvas.MoveTo(x0,0);
image2.Canvas.LineTo(x0,clientheight);
image2.canvas.moveto(0,y0);
image2.Canvas.lineto(clientwidth,y0);
//рисуем график
image2.Canvas.Pen.Color:=clred;
x:=0;
image2.canvas.moveto(trunc(x),trunc(y));
repeat
x:=x+0.001;
if x <= 0 then
y := 0
else
y:=-ln(x);
image2.canvas.lineto(trunc(x*mash)+x0,trunc(y*mash)+y0);
until x>=50;
end;

Собственно сама картинка

Заранее спасибо за помощь!)

Answer 1

[Mercury13]

Прямые причины этого отрезка.
1. В первом MoveTo ты спутал реальные и экранные координаты. И в первом графике, видимо, тоже, только там линия уходит влево за край.
2. У тебя нет никакой логики поведения на разрывах. В простейшем случае — в первую точку MoveTo, а не LineTo.

И прочие ошибки.
3. Не инициализирован y.
4. Ты рисуешь не на том холсте. Видимо, ты хотел забуферизировать графики — но графики не отпечатываются на картинке, а рисуются на холсте формы. Как только ты минимизируешь-восстановишь прогу, графики исчезнут. Надо рисование либо в событие OnPaint (тогда график будет перестраиваться каждый раз при перерисовке), либо отпечатать на Picture.Bitmap (график останется отпечатанным на картинке). Во втором случае не забудь image2.Invalidate (отложенно перерисовать, когда это станет возможным);
5. Шаг слишком мал. Это должен быть эквивалент одного или двух пикселей.

ПРИМЕЧАНИЕ ПО ПОВОДУ 4. В WinVista+ с включенным Aero может быть всё в порядке (Aero буферизирует окна, чтобы работал Aero Flip и прочее). Выключи Aero, и будет обычный «хардкор» Windows: ничего не запоминает, а когда потребуется, перерисовывает.

Comments

[Вячеслав]

Спасибо за помощь!)
По поводу пункта 4, в тот момент, когда пытался нарисовать графики даже не задумывался о буферизации:) т.к. графики всегда отпечатывались без мерцаний...
Решил проблему по тупому и можно сказать подгоном
вот код:

procedure TForm1.Button5Click(Sender: TObject);
const mash=25;
Var x0,y0:integer;
x,y:real;
begin
x0:=image2.Width div 2;
y0:=image2.Height div 2;
// рисуем ось
image2.canvas.pen.color:=clgray;
image2.canvas.pen.width:=2;
image2.Canvas.MoveTo(x0,0);
image2.Canvas.LineTo(x0,clientheight);
image2.canvas.moveto(0,y0);
image2.Canvas.lineto(clientwidth,y0);
//рисуем график
image2.Canvas.Pen.Color:=clred;
x:=0;
y:=0;
image2.canvas.moveto(trunc(x0)+1,trunc(y0)+100);
repeat
x:=x+0.01;
if x <= 0 then
y := 0
else
y:=-ln(x);
image2.canvas.lineto(trunc(x*mash)+x0,trunc(y*mash)+y0);
until x>=50;
end;

[Вячеслав]

Dimentre:

[Mercury13]

1, 2. Решено. С полюсом ты поступил тупо, но верно — переместил перо в «бесконечность».
3. Решилась автоматически, и сейчас y:=0 излишний.
4. Не в мерцаниях дело. Проблема будет, когда ты свернёшь окошко, а потом развернёшь. Или когда уменьшишь его, а потом вернёшь обратно — в общем, когда попросишь Windows перерисовать его. Как я уже говорил, сейчас с Aero не так просто попросить Windows полностью перерисовать окно.
5. Шаг лучше всего взять не жёсткие 0,01, а что-то типа const step = 1.0 / mash;

[Вячеслав]

Mercury13: Поменял 0.01 на константу
Сейчас попробовал свернуть, развернуть, уменьшить и увеличить окно экзешника программы, всё работает исправно, график к счастью остаётся на своём месте:)
Стоит windows 8.1
Спасибо ещё раз за помощь)

[Mercury13]

Уменьшить так, чтобы график исчез за рамками окна…

[Вячеслав]

Mercury13: Так и делал, всё в порядке)

[Mercury13]

Ты, как ни странно, прав. Только что посмотрел в исходники — действительно так: TImage.Canvas действительно отпечатывает рисунок на картинке.

[Mercury13]

P.S. Хорошее подспорье, но будь осторожен с «резиной»: не всякий сценарий так можно реализовать. Где перерисовка мало-мальски долгая, придётся налаживать всё это вручную.

[Вячеслав]

Mercury13: В таком случае можно программно запретить пользователю растягивать и сворачивать окно, только закрывать. Так как пока что не умею вручную отлаживать все процессы с прорисовкой, буду юзать такую систему)

Answer 2

[Виталий Пухов]

if x <= 0 then
y := 0
заменить на
if x <= 0 then
y := 9999