blob: 2b9b54ecb48ff7e71690544ae391032b05f2b02c (
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
|
beginchar(oct"000",.8em#,5cap#/7,.5dth#); "Xamili";
picture XAMHLH, scXAMHLH;
path p[];
save ww,hh,dd;
ww = w/8; hh = h/5; dd = d;
x3 = 2ww; y0 = 3.4hh;
y1 = 3.6hh; x0 = 1.5ww;
x2 = 1.3ww; y2 = .5hh;
x4 = 3ww;
x5 = x6 = 8ww - x1 = 7.5ww;
y3 = y5 = y4 = -.2dd;
y7 = y6 = 0;
x7 = 2.5ww;
y8 = y9 = .5hh;
y10 = y11 = -.5dd;
x8 = 4.5ww; x9 = 5.5ww;
x10 = 4.7ww; x11 = 5.7ww;
p0 = z0--z1{down}..z2{z4-z1}..{curl 0}z3--z5--z6--z7{z1-z5}..{up}z0
..cycle;
p1 = z8--z9--z11--z10--z8..cycle;
fill p0; fill p1;
XAMHLH = currentpicture;
clearit;
p2 = p1 scaled 1.4;
p3 = p0 scaled 1.4;
fill p3; fill p2;
scXAMHLH = currentpicture;
clearit;
addto currentpicture also XAMHLH;
endchar;
|