ՆկարագրումRegular polygon 4 annotated.svg	English: Square with annotation.
Թվական	17 Հուլիս 2013, 15:06:05
Աղբյուր	Բեռնողի սեփական աշխատանք
Հեղինակ	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 genesis InfoField	Այս մասշտաբավորելի վեկտորային գրաֆիկայի նիշքի ելակետային կոդը վավեր է.  Սա վեկտոր գրաֆիկական պատկեր է ստեղծված է եղել 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.
FONTSIZE 22 FONTFAMILY “Nimbus Sans L”
FOR vertices IN [3, 4, 5, 6, 8, 9, 10, 12, 15, 18, 20] [
;    PICTURE “regular_polygon_%d_annotated.svg” % vertices [ ; from LibO 4.1.1
    PICTURE [
	HOME CLEARSCREEN HIDETURTLE
	FILLCOLOR “WHITE” PENCOLOR “SILVER” 
	PENDOWN PENSIZE 2 CIRCLE 400
	β = 360/vertices
	CIRCLE [80 + vertices * 10, 80 + vertices * 10, 0, β]
	FONTCOLOR “SILVER”
	IF vertices >= 18 [ f = 0.011 ] [ f = 0.013 ]
	HEADING β*0.57 PENUP FORWARD (80 + vertices * 10) * (0.23 + (f * vertices))
	HEADING 0 LABEL “%d°” % β
	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 [90 + 105/vertices, 90 + 105/vertices, 180 – α/2, 180 + α/2]
	PENUP BACK 20 + 70/vertices LABEL “%d°” %  α
	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 ]
    ]
]

This image of simple geometry is ineligible for copyright and therefore in the public domain, because it consists entirely of information that is common property and contains no original authorship.