summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_pos/x017_apostrofos.mf
blob: c10705bca73076987089373f22d224e7d9f6eb93 (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
34
35
36
37
38
39
40
41
42
43
44
45
beginchar(oct"017",.8em#,cap#,dth#); "Apostrofos";
picture APOCTROFOC,scAPOCTROFOC,KLACMA, APOCTROFOYLA,Apoctrofoc;
path p[];

 save ww,hh,dd;
 ww := w/5; hh := h/5; 

 z0 = (2.9ww,-.3d);
 z1 = (4.38ww,0);
 z2 = (3.75ww,1.9hh);
 z6 = (2.4ww,2.3hh);
 z8 = (2.2ww,2.1hh);
 z3 = (.8ww,2.6hh);
 z4 = (.7ww,2.3hh);
 z5 = (3.6ww,0);
 z7 = (3.4ww,1.4hh);

 p1 = flex(z0,z1,z2);
 p2 = z2..controls z6..z3;
 p3 = z3--z4;
 p4 = z4..controls z8..z7;
 p5 = flex(z7,z5,z0);
 p6 = p1 & p2 & p3 & p4 & p5 & cycle;
 fill p6;
 APOCTROFOC = currentpicture;
 p7 = p6 rotatedaround(z8,-30) scaled .7;
 clearit;
 fill p7;
 scAPOCTROFOC = currentpicture;
 p9 = p6 rotatedaround(z8,210) scaled .3 
 reflectedabout((.5w,0),(.5w,h));
 clearit;
 fill p9;
 KLACMA = currentpicture;
 clearit;
 p8 = p6 scaled .5;
 fill p8;
 APOCTROFOYLA = currentpicture;
 clearit;
 p10 = p6 scaled .7;
 fill p8;
 Apoctrofoc = currentpicture;
 clearit;
 addto currentpicture also APOCTROFOC;
 endchar;