Как заполнить форму 6-иугольными объектами

[DeKot]

Тут как-то был вопрос- "Как сделать фон формы в виде шестиугольников?
Интересный вопрос.Давайте посмотрим что получится.Тем более, что он
напрямую связан с тригонометрией - то что почему-то не понравилось в
Мастерской...
Смотрим рисунок: Ris1.
Вставим шестиугольник в описующий квадрат и будем с помощью двух
вложенных циклов последовательно выводить на форму этот квадрат со
стороной = S.Из рис. видно, что первая координата - это точка А1 и она
смещена на -( S / 2) по оси Х и на (S / 4) по оси Y. Следующая координата вывода по оси А2 и смещение = (3 / 2 * S) - тоже без
вопросов. А вот с координатами в следующей итерации по Х (точки В1,
В2 и т.д.)посложней.Во-первых по Y В1 сместилась теперь в - (3 / 4 * S).
А вот смещение по Х = а придется вычислять. Видим треугольник, где
нам известны угол = 30 град ( сразу - в радианах это pi / 6) и катет b
= (3 / 4 * S).Далее математика : a / b = tg (pi / 6).Вот только в Delphi
функции tg нет, а есть только sin и cos. Тогда вспомним, что
a = C * sin (angle) b = C * cos (angle) тогда a / b = C * sin (angle)
/ C * cos (angle) или a / b = sin / cos.
Таким образом а = (3 / 4 * S) * (sin (pi / 6) ) / (cos(pi / 6));
Дальше остается использовать это в программе.Во вложении программа.
Можно посмотреть код.
Теперь вопрос - здесь шестиугольник расположен двумя гранями паралельно оси Y.А если повернуть на 90 градусов?
Ris2.
Как изменится код?
А если взять восьмиугольник?

[mutabor]

Вот только в Delphi функции tg нет

http://www.delphibasics.ru/navMath.php

[DeKot]

Спасибо за ссылку! Я имел ввиду стандартные матфункции. А с этим модулем, честно, не сталкивался.

[mutabor]

Я имел ввиду стандартные матфункции

Это и есть стандартные функции, модуль Math, добавь его в Uses. Просто sin и cos объявлены в SysUtils кажется, а не в Math, вот и вся разница.