This is a file from the Wikimedia Commons

File:Regular polygon 7 annotated.svg

From Wikipedia
https://en.wikipedia.org/wiki/File:Regular_polygon_7_annotated.svg

Original file(SVG file, nominally 503 × 509 pixels, file size: 15 KB)

Summary

Description
English: Regular heptagon with annotation.
Date 19 July 2013, 12:23:57
Source Own work
Author László Németh
Other versions
SVG development W3C grn.svg The SVG code is valid. OpenOffice.org 2 icon small.svg This vector image was created with OpenOffice.org.

OpenOffice code

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

Licensing

László Németh, the copyright holder of this work, hereby publishes it under the following license:
Creative Commons CC-Zero This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication.
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

19 July 2013

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current 10:37, 19 July 2013 Thumbnail for version as of 10:37, 19 July 2013503 × 509 (15 KB)Nl74User created page with UploadWizard
The following pages on the English Wikipedia use this file (pages on other projects are not listed):

Global file usage

The following other wikis use this file:

Metadata