; Created in LibreOffice 4 with this LibreLogo program (+object to path conversion  ; of FreeSerif chess figures of the final SVG by Inkscape for Wikipedia SVG rendering)  ; Usage: Put this code into an English language document in LibO Writer,  ; and click on the Start icon of the View»Toolbars»Logo toolbar.  ; requested chess font: http://mip.noekeon.org/HTMLTTChess/chess_merida_unicode.html  ; for other setup, positions, modify the arguments of the chess call in the end of the file  GLOBAL COLORS, FIX_SVG_EXPORT  COLORS = [0xe8ab6f, 0xffce9e, 0xd18b47]  FIX_SVG_EXPORT = 3pt ; 3pt for SVG export, or set zero for other usage    TO setcolor p1 p2  	IF p2 > 5 [ p2 = p1 + -p2 ] [ p2 = p1 + p2 ]  	FILLCOLOR COLORS[p2%3]  END    TO hexagon s  	p = POSITION  	H = HEADING  	PENUP LEFT 30 FORWARD s LEFT 120 PENDOWN  	PENCOLOR “INVISIBLE”  	REPEAT 6 [ FORWARD s LEFT 60 ] FILL  	PENUP POSITION p HEADING H  END    HOME CLEARSCREEN PENUP POSITION [75, PAGESIZE[1]/2]  PENJOINT “MITER” HIDETURTLE    TO label2 s  	FONTFAMILY “Nimbus Sans L”  	FONTSIZE 25  	h = HEADING  	HEADING 0  	LABEL s  	HEADING h  END    TO chess white black  PENCOLOR “BLACK” PENDOWN RIGHT 60  FILLCOLOR “INVISIBLE” PENSIZE 4  REPEAT 2 [ ; outer border  	REPEAT 6 [ FORWARD 25 RIGHT 60   		REPEAT 5 [ FORWARD 25 LEFT 60 FORWARD 25 RIGHT 60 ]  	] FILL FILLCOLOR COLORS[1] PENSIZE 0 ; only outer border  ]  PENUP FORWARD 25 LEFT 120 FORWARD 25 HEADING 0  data = {“K”: “♔♚”, “Q”: “♕♛”, “R”: “♖♜”, “B”: “♗♝”, “N”: “♘♞”, “ ”: “♙♟”, 		“o”: “•••”, “x”: “✕✕✕”, “*”: “⭑⭑⭑”}  HEADING 0 RIGHT 120  n = 0  figures = white + “ ” + black + “ ”  FOR i IN RANGE 0 12 [  	FOR j IN RANGE n 13-n [  		setcolor i j  		IF j = 6 [ LEFT 60 ]  		IF i > 0 AND j > n AND j < 12 - n [ hexagon 25 ] [  			FILLCOLOR “INVISIBLE” CIRCLE 50 ; for correct SVG clipping  			IF  i > 0 [ label2 STR i ]  		]  		p = “%s%d ” % (“abcdefghiklx”[j-1], i)  		what = figures.find(p)  		IF what > -1 [  			FONTFAMILY “Chess Merida Unicode”  			FONTSIZE 35  			H = HEADING  			HEADING 0 FORWARD FIX_SVG_EXPORT  			k = data[(“ ” + figures)[what]]  			FONTCOLOR “WHITE”  			LABEL k[2]  			FONTCOLOR “BLACK”  			LABEL k[what > COUNT WHITE]  			BACK FIX_SVG_EXPORT HEADING H  		]  		IF i = 0 AND j > 0 AND j < 13 [  			l = “ abcdefghikl ”[j]  			label2 l  		]  		PENUP LEFT 30 FORWARD 25 RIGHT 60 FORWARD 25 LEFT 30  	]  	PENUP RIGHT 30   	IF i < 6 [ BACK 19 * 25 RIGHT 60 BACK 25 LEFT 30 ] [  		BACK (18 – 3 * n) * 25  RIGHT 30  		n = n + 1  	]  ]  END    ; PICTURE “McCooey_chess_setup.svg” [ ; from LibreOffice 4.1.1  PICTURE [  chess “Kg1 Qe1 Rd1 Rh1 Ne2 Ng2 Bf1 Bf2 Bf3 c1 d2 e3 f4 g3 h2 i1” “Kg10 Qe10 Rd9 Rh9 Ne9 Ng9 Bf9 Bf10 Bf11 c8 d8 e8 f8 g8 h8 i8”  ]