Урок18. Корректное построение программного кода. Рисование. Построение графика функции - часть 7

Var y:Integer; // ось Y

begin

if x=0 then // если точка в начале координат, то:

begin

PaintBox1.Canvas.Brush.Color:=clWhite; // цвет фона белый

PaintBox1.Canvas.FillRect(ClientRect); // заливка всей рабочей области

end;

stop:=false; // флаг старта процесса рисования

While not stop do // бесконечный цикл, пока флаг остановки не поднят:

begin

if (RadioButton1.Checked)or(CheckBox1.Checked) then // если установлен "Sin" или "Все", то:

begin

y:=Round(Sin(pi*x/100)*50)+70; // вычисление положения синусоиды

PaintBox1.Canvas.Pixels[x,y]:=clBlack; // нарисовать черную точку

end;

if (RadioButton2.Checked)or(CheckBox1.Checked) then // если установлен "Cos" или "Все", то:

begin

y:=Round(Cos(pi*x/100)*50)+70; // вычисление положения косинусоиды

PaintBox1.Canvas.Pixels[x,y]:=clBlack; // нарисовать черную точку

end;

inc(x); // увеличить значение X на едицину. Аналог X:=X+1

if x>500 then // если X вышел за пределы PaintBox1, то:

begin

x:=0; // установить X на начало координат

PaintBox1.Canvas.Brush.Color:=clWhite; // Цвет фона белый

PaintBox1.Canvas.FillRect(ClientRect); // Очистка рабочей области PaintBox1