%!PS-Adobe-3.0
% www.sqrt.ch

%%BoundingBox: 0 0 750 750
<< /PageSize [750 750] >> setpagedevice

1.5 setlinewidth
1 setlinejoin
1 setlinecap

/n 7 def % n-Eck n > 2 waehlen
/l 365 def % Grundlaenge
/alpha 3 def % Verdrehungswinkel

% Berechnung
% /dl { l alpha sin mul alpha sin w alpha sub sin add div } bind def % Delta l
% /nl { w sin dl mul alpha sin div } bind def % neue Laenge
% /s { nl l div } bind def % Skalierungsfaktor

/w { 360 n div } bind def % Zentriwinkel
/s { w sin alpha sin w alpha sub sin add div } bind def % Skalierungsfaktor

/polygon {
    l dup 0 moveto
        n 1 sub {
            w rotate
            dup 0 lineto
        } repeat closepath
} bind def

375 dup translate
n 2 mod 0 eq { w 2 div rotate } { w 4 div rotate } ifelse

500 { s dup scale polygon alpha rotate stroke } repeat

showpage
%%EOF