summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_pos/x003_petasti.mf
blob: bf18ba3c696a260b8b07497fa4725af45ad82be9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
beginchar(oct"003",.8em#,cap#,dth#); "Petasti";
   path p[];
   picture PETACTH, scPETACTH;

   ww :=  w/8; hh := h/4; dd := d/1.5;
   z0 = (2.1ww,1.7hh); 
   z1 = (0.1ww,1.7hh); z3 = (2.6ww,0.0hh);
   z4 = (5.4ww,-.4dd); z6 = (7.9ww,hh);
   z7 = (5.9ww,1.7hh); z9 = (6.55ww,.8hh);
   z10 = (4.4ww,.2dd); z11 = (2.1ww,.5hh); z12 = (.9ww,1.3hh);

   p1 = z0..z1 & flex(z1,z3,z4) & flex(z4,z6,z7)
               & flex(z7,z9,z10) & flex(z10,z11,z12) 
	       & z12..z0 & cycle;
   fill p1;
   PETACTH = currentpicture;
   p2 = p1 scaled 0.7;
   clearit;
   fill p2;
   scPETACTH = currentpicture;
   clearit;
   addto currentpicture also PETACTH;
endchar;