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;
|