blob: 67152122f3ff95d037babc3dad6cdeeb889788a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
beginthaichar("OO", "D9", "oo", 0, 0, lvgap# + lvht#);
q_def(1, thick, thick);
base_def(2);
penpos3(thick, 0);
% without this adjustment, sometimes the base def is too close
% to the q_def
oo_adj := lvht - (cupht + 3thin + dia);
oo_adj := lvht - (3thin + dia);
% message decimal oo_adj;
if oo_adj > 0: oo_adj := 0 fi;
x2lft = x1l = x2rt - dia - 2thick;
x2rt = x3r = -rightgap;
y1top + oo_adj = y3 = -lvgap;
y2bot = - lvgap - lvht;
filldraw q_path(1) -- base_path_i(2) -- z3l -- z3r
-- reverse base_path_o(2) -- cycle;
penlabels(1,2,3);
endthaichar;
|