blob: 06b63d26b2856ef293a3123d826b5dc8a296c3aa (
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
|
%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#;
wid# := pt#; hei# := pt#; dep# := pt#;
define_pixels(wid,hei,dep);
c_s = wid;
beginchar(oct"177",12wid#,12hei#,3dep#); "XPICTOC";
path p[];
x1 = x4 = w - x2 = c_s;
x2 = x3;
y1 = y2 = -h/12;
y8 = round(2h/3);
y3 = y4 = y8 - h/12;
x5 = x9 = x10 = w/2;
y5 = round(11.45h/12); y9 = round(8.55h/12); y10 = -round(h/4);
x6 = x8 = round(8.5w/12);
top y6 = h; x7 = w; x11 = round(5.5w/12);
y11 = y7 = .5[y6,y8];
pickup pencircle scaled pt;
p1 = superellipse(z11,z6,z7,z8,.77);
draw p1;
p2 = z5..z11..z9;
undraw p2;
p3 = z5--z9--z10;
p4 = z4--z2;
p5 = z1--z3;
draw p3; draw p4; draw p5;
endchar;
|
