summaryrefslogtreecommitdiff
path: root/fonts/thai/rmit/thai-test.mf
blob: c855561daebba381ff12d7b5baf5048ff1404394 (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
font_size 3pt#;
vpt# := 0.6pt#;

mode_setup;
input thaibase;
screenstrokes;


w_rows := floor 1/3 screen_rows;
w_cols := floor 1/2 screen_cols;

w_rows := 1/3(600);
w_cols := 1/2(500);

message "screen rows, cols " & decimal screen_rows & "," & decimal screen_cols;
def open(expr k, i, j) =
	openwindow k from ((i-1)*w_rows,(j-1)*w_cols) to (i*w_rows, j*w_cols)
		at (-60, 140)
enddef;
def openit =
	open(1,1,1); open(2,1,2); open(3,2,1);
	open(4,2,2); open(5,3,1); open(6,3,2);
enddef;


openit;
string params[],fontname[];
params[1] := "roman_params";	fontname[1] := "r";
params[2] := "ital_params";	fontname[2] := "i";
params[3] := "bold_params";	fontname[3] := "bx";
params[4] := "roman2_params";	fontname[4] := "rz";
params[5] := "bold2_params";	fontname[5] := "by";
params[6] := "bold3_params";	fontname[6] := "bz";

string charnum;
forever:
	message "Enter character code (eg: a1) ";
	charnum := readstring;
	for k = 1 upto 6:
		if known params[k]:
			currentwindow := k;
			scantokens("input " & fontname[k]);
			newstyle;
			scantokens("input char" & charnum);
		fi;
	endfor;
endfor;