; Created in LibreOffice 4 with this LibreLogo program. ; Usage: Copy it in an English language document in LibO Writer, ; and click on the Start icon of the View»Toolbar»Logo toolbar.  TO superior num prevnum   s = “”   FOR i IN STR num [     s = s + “⁰¹²³⁴⁵⁶⁷⁸⁹”[INT i]   ]   IF NOT prevnum % 10 = 1 [ s = “ ” + s ] ; narrow space   OUTPUT s END  TO inferior num   s = “”   FOR i IN STR num [     s = s + “₀₁₂₃₄₅₆₇₈₉”[INT i]   ]   OUTPUT s END  CLEARSCREEN HIDETURTLE FONTSIZE 18 FONTFAMILY “DejaVu Sans” FOR vertices IN [7, 11, 13, 14, 16, 17, 19] [ ;    PICTURE “poly/regular_polygon_%d_annotated.svg” % vertices [ ; from LibO 4.1.1     PICTURE [         HOME FILLCOLOR “WHITE” PENCOLOR “SILVER”          PENDOWN PENSIZE 2 CIRCLE 400         β = 360/vertices         q = vertices // 4         CIRCLE [80 + vertices * 14, 80 + vertices * 14, β * q, β * (q + 1)]         FONTCOLOR “SILVER”         IF vertices > 18 [ f = 0.004 ] [ f = 0.005 ]         HEADING β * q + β * 0.5 PENUP         FORWARD (80 + vertices * 14) * (0.3 + (f * vertices))         HEADING 0   s1 = superior (360 % vertices, 360 // vertices)         s2 = inferior vertices         LABEL “%d%s⁄%s°” % (β, s1, s2)         HOME HEADING 0 PENDOWN         dots = []         REPEAT vertices [                 FORWARD 200                 where = POSITION                 dots = dots + [where]                 BACK 200 RIGHT β         ]         HOME PENSIZE 2 CIRCLE 10         PENCOLOR “BLACK” FONTCOLOR “BLACK”         α = ((vertices-2)/vertices)*180         PENUP FORWARD 200 PENDOWN         CIRCLE [100 + 105/vertices, 100 + 105/vertices, 180 – α/2, 180 + α/2]   s1 = superior ((vertices-2) * 180 % vertices, INT α)         PENUP BACK 20 + 70/vertices LABEL “%d%s⁄%s°” %  (α, s1, s2)         HOME PENUP PENSIZE 4 PENUP         FOR i IN dots + dots[0:1] [ POSITION i PENDOWN ] PENSIZE 2         FOR i IN dots [ PENUP POSITION i PENDOWN CIRCLE 10 ]     ] ]