Гиперболическая мозаика Пентагона в системе Mathematica

Я хочу реализовать это в Mathematica:

Я понимаю, что могу использовать ParametricPlot для получения линий, а затем использовать опцию Mesh для заливки цветов. Кто-нибудь может сказать мне, какова общая формула уравнений этих линий? Обобщается ли он на обычный n-угольник?