blob: dd9db0283c27366e9177e24569891d9f452265cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
beginchar(oct"056",.8em#,cap#,0dth#); "Psifiston";
picture UHFICTON;
path p[];
z0 = (0,.5w);
z2 = (7w/16,6h/25);
z3 = (15w/16,7h/10);
z8 = (w/40,.55h);
z6 = (6w/16,2.7h/10);
z4 = (13w/16,7h/10);
z5 = (5.7w/8,3h/5);
p1 = flex(z0,z2,z3);
p2 = flex(z5,z6,z8);
p3 = z3..z4..z5;
p4 = z8--z0;
fill p1 & p3 & p2 & p4 & cycle;
UHFICTON = currentpicture;
endchar;
|