blob: edb3665a889f6d97aea3cb184eb3fcc35ce0ff9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
beginchar(oct"054",.8em#,cap#,0dth#); "Omalon";
picture OMALON;
path p[];
y3 = y4 = h - y1 = 9h/25;
y2 = y1; x3 = 14w/20;
x1 = 13w/20;
x2 = 16w/20; x4 = 11w/20;
z5 = .5[z1,z4];
x0 = 0; y0 = y5;
p1 = z1--z2--z3--z4--cycle;
p2 = z0--z5;
pickup pencircle scaled .8pt;
fill p1;
draw p2;
OMALON = currentpicture;
endchar;
|