Как упростить жизнь программисту при отрисовке графиков в прямоугольной система координат

Хабрет, читателям!

Не долго думая решил поделиться очень простым способом облегчить себе программерскую жизнь.
Иногда математические знания заложенные в школе запутывают начинающего программиста, что открыв исходник написанный несколько недель назад с трудом вспоминаешь что к чему.
Например, нам нужно нарисовать график какой нибудь функции на элементе Image1 с помощью Canvas. Для определения координат пикселя в современных языках программирования отсчет начинается из верхнего левого угла холста. А что, если нужно отрисовать точку на плоскости используя прямоугольную систему координат (далее ПСК). Система координат имеет горизонтальную ось абсцисс, вектор луча которой направлен слева направо и вертикальную ось ординат — снизу вверх. Это очень усложняет определение привычных для нас координат точек на графике, особенно при кодинге с большим количеством взаимозависимых переменных.
Дабы не запутаться в коде я решил написать функцию…

Т.к. увеличение значения ширины холста совпадает с вектором направленности оси X, пишем функцию только для оси Y.
Пусть высота холста 76 пикселей и максимальное значение оси 76 пунктов, тогда точка 0,0 в ПСК имеет координаты 0px, 75px. Получается координаты точки в ПСК X, Y = X_px, Height-Y_px-1. Отнимаем единицу, потому что первый пиксель нулевой.

Ну и наконец функция на Delphi:

function f(Y: integer): integer;
begin
  Result := Form1.Image1.Height - Y - 1;
end;

Использование:
Допустим нам нужно нарисовать линию из точки с координатами ind1, ind2 в точку ind1, ind2+10. Исходник без функции будет выглядеть так:

Form1.Image1.Canvas.MoveTo(ind1, (Height-ind2-1));
Form1.Image1.Canvas.LineTo(ind1, (Height-ind2+9));

а с функцией:

Form1.Image1.Canvas.MoveTo(ind1, f(ind2));
Form1.Image1.Canvas.LineTo(ind1, f(ind2+10));

Я понимаю что в таком коде разобраться рас плюнуть, но вы же все знаете что переменных может быть больше и конструкции сложнее, тут и поможет эта функция не запутаться.

Автор: F1oyd

Источник ^[1]