摘要
; 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 ] ] ]
许可协议
| 本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。 |
采用本宣告发表本作品的人,已在法律允许的范围内,通过在全世界放弃其对本作品拥有的著作权法规定的所有权利(包括所有相关权利),将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品,将其用于商业目的,无需要求授权。 http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |