Краткое описание

ОписаниеRegular polygon 17 annotated.svg	English: Regular heptadecagon with annotation.
Дата	19 июля 2013, 12:24:37
Источник	Собственная работа
Автор	László Németh
Другие версии	Regular 3-gon Regular 4-gon Regular 5-gon Regular 6-gon Regular 7-gon Regular 8-gon Regular 9-gon Regular 10-gon Regular 11-gon Regular 12-gon Regular 13-gon Regular 14-gon Regular 15-gon Regular 16-gon Regular 17-gon Regular 18-gon Regular 19-gon Regular 20-gon
SVG‑разработка InfoField	Исходный код этого SVG-файла корректен.   Это geometry было создано с помощью OpenOffice.org

; 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 ]     ] ] 

Лицензирование

László Németh, владелец авторских прав на это произведение, добровольно публикует его на условиях следующей лицензии:

Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication).

Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять, исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse