Как известно, прямую между двумя точками можно задать так:
(y - y1) / (y2 - y1) = (x - x1) / (x2 - x1).
Значит фукнцию y[x] можно записать как-то так:
| Код |
function y(from, dest : TPoint; x : integer) : integer; |
Самое главное тут учитывать, что y[x2] не факт что будет равно y2, т.к. возможны погрешности. С другой строны здесь же round, а не trunc какой-нибудь...
Таким образом легко, идя от вершины к вершине и потом назад к первой, пройти по сторонам треугольника. Вершины могут быть заданы массивом 0..2. И двигаться будем между current и (current + 1) mod 3.
Осталось нарисовать ромб. Думаю он может быть задан своими... эээ.... я забыл как их зовут, диагонали? В общем тут даже пояснять не буду - центр ромба есть, а найти его вершины легко. Если, конечно, его диагонали не должны быть наклонены так же как и текущее ребро треугольника. Будем надеяться что такой изврат не нужен.
Добавлено через 1 минуту и 47 секунд
profispb, твой ход
