Помогите с кодом Delphi 7. Генератор прямоугольных сеток

[mdfocuss]

По факту : есть программа , генерирующая 2-мерную прямоугольную сетку. Вот исходники : https://docs.google.com/file/d/0BwedrJK6oYmtR0pxZ1JiNHdSaUU/edit?usp=sharing. Все отлично компилится на Delphi 7. Программа генерит и оптимизирует 2-мерную фиругу, но заполняет ее прямоугольниками. Нужно, чтобы она запоняла ее треугольниками.
Вот кусок кода, который генерит начальную сетку -https://gist.github.com/anonymous/5338048. Подскажите пожалуйста что и как менять/исправлять/дописывать, чтобы получить требуемый результат. Спасибо.