summaryrefslogtreecommitdiff
path: root/fonts/bartel-chess-fonts/other-sources/turnboard.mf
blob: b19a37f816e3ad3dc909fd677adc252d2361c2f6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
% This is turnboard.mf
%
% This file contains only the definition of one charachter
% which can be used to show, that you want to turn the board
%
mode_setup;
%
% Define the size of the character
%
qs#:=12pt#;
%
%
define_pixels(qs);
beginchar(0,1qs#,1qs#,0);
pickup pencircle scaled 1/32qs;
%
% Define some points of the character
%
% This are the points for the 3/4 circle
%
z1=(1/8qs,1/8qs);
z2=(1/8qs,7/8qs);
z3=(7/8qs,7/8qs);
z4=(7/8qs,1/8qs);
%
%  Tip of the circled arrow
%
z5=(13/16qs,1/16qs);
z6=(7/8qs,2/8qs);
z7=(1qs,1/8qs);
%
% A small chessboard inside the arrow
%
z8=(1/4qs,1/4qs);
z9=(1/4qs,1/2qs);
z10=(1/4qs,3/4qs);
z11=(1/2qs,1/4qs);
z12=(1/2qs,1/2qs);
z13=(1/2qs,3/4qs);
z14=(3/4qs,1/4qs);
z15=(3/4qs,1/2qs);
z16=(3/4qs,3/4qs);
%
% Show the 3/4 circled arrow around the board
%
draw z1{-1,1}..{1,1}z2{1,1}..{1,-1}z3{1,-1}..{-1,-1}z4;
fill z5--z6--z7--cycle;
draw z8--z10--z16--z14--cycle;
fill z8--z9--z12--z11--cycle;
fill z12--z13--z16--z15--cycle;
endchar;
%
% Thats all
%
end;