нарисовать две перпендикулярных прямых

[brutalis]

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

[phomm]

Уравнение прямой y =k*x+b , для 2 прямых y = k1*x + b1 и y = k2*x + b2
условие перпендикулярности k1 = -1/k2 задаете нужные величины, и граничные условия, например при х=0 и при х = ширине экрана(Tform.clientwidth) Рассчитываете, получаете координаты 4 точек для рисования, рисуете методами canvas.moveto и canvas.lineto

[brutalis]

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

Уравнение прямой y =k*x+b , для 2 прямых y = k1*x + b1 и y = k2*x + b2
условие перпендикулярности k1 = -1/k2 задаете нужные величины, и граничные условия, например при х=0 и при х = ширине экрана(Tform.clientwidth) Рассчитываете, получаете координаты 4 точек для рисования, рисуете методами canvas.moveto и canvas.lineto

нарисовать то я их нарисовал. правда на глаз.при движении по окружности угол в 90 не выдерживется. если не сложно можешь написать код как построить под прямым углом. чтото не соображаю