blob: 11f51a048cc0b43499a7998107409f895352070a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
beginchar(oct"004",.3em#,4cap#/7,.5dth#); "Kentima";
path p[];
picture KENTHMA, YPORROH;
save ww,hh,dd;
ww = w/3; hh = h/4; dd = d;
y0 = y1 = hh;
y2 = y3 = -.125dd;
x0 = .25ww; x1 = x3 = 1.5ww; x2 = 2.75ww;
z5 = z2 reflectedabout (z1,z3);
z6 = z0 reflectedabout (z1,z3);
p1 = z0--z1--z2--z3--cycle;
p2 = z1--z6--z3--z5--cycle;
fill p1;
KENTHMA = currentpicture;
clearit;
fill p2;
YPORROH= currentpicture;
clearit;
addto currentpicture also KENTHMA;
endchar;
|