Keywords: McCooey chess setup.svg en Hexagonal chess example 2013-07-24 10 39 22 own László Németh ; 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 COLORSp2 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 PAGESIZE1/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 COLORS1 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 k2 FONTCOLOR BLACK LABEL kwhat > 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 cc-zero Valid SVG Created with LibreOffice Hexagonal chess Uploaded with UploadWizard Images with LibreLogo source code |