Keywords: McCooey chess pawn.svg en Hexagonal chess example 2013-07-24 10 39 27 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_pawn svg ; from LibreOffice 4 1 1 PICTURE chess d5 e3 k4 oe5 oe4 ok5 xd4 xf5 xi6 xl5 e8 a6 b7 c8 d9 e10 f11 g10 h9 i8 k7 l6 cc-zero Valid SVG Created with LibreOffice Hexagonal chess Uploaded with UploadWizard Images with LibreLogo source code |