blob: 12f4a4d52471a0e822a76b81855cf0bcd9a776a0 (
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
|
% This is `chess20.mf' version 1.0 as of 8/90
% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
% Parameters needed for a 20 points chess font.
% A complete chess diagram is 160 X 160 points.
mode_setup;
input skakbase;
font_size 20pt#;
M=1; % number of squares
d#:=20pt#/M; % size per square
lift=0;
figshift:=0;
u#:=d#;
fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/36*d#; border#:=1/20*d#;
%fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/25*d#; border#:=1/20*d#;
define_blacker_pixels(fine, thin, thick, border);
pickup pencircle scaled thin; hairline_pen:=savepen ; %for drawing king's cross
pickup pencircle scaled fine; fine_pen:=savepen ; % for drawing dark squares
pickup pencircle scaled border; border_pen:=savepen ; % for border ofboard
pickup pencircle scaled thin; thin_pen:=savepen ; % for drawing pieces
pickup pencircle scaled thick; thick_pen:=savepen; % for drawing inside pieces
light=0; dark=1; white=0; black=1;
input skakbrikker;
end;
|
