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
|
beginchar("g",.4em#,3cap#/7,.5dth#); "gamma";
picture gama;
path p[];
save ww,hh,dd;
ww = w/4; hh = h/3; dd = d/1;
b := .4ww;
z0 = (.2ww,2.2hh);
z1 = (1.3ww,2.9hh);
z4 = (3.2ww,2.8hh);
z3 = (.7ww,-.9dd);
z2 = (2ww,2hh);
z5 = z2;
p0 = z0{z1-z0}..{right}z1..z2..{dir-30}z3{dir45}..{up}z2..z4;
p1 = subpath (2,4) of p0;
fill p1..cycle;
penpos0(1.5b,angle(z1-z2)-50);
penpos1(2b,90);
penpos2(b,0);
penpos3(.1b,90);
penpos4(2b,90);
penpos5(b,180);
penstroke z0e{z1-z0}..{right}z1e..z2e..{dir-60}z3e{dir45}..{up}z5e..z4e;
pickup pencircle scaled 2b;
drawdot z4;
gama = currentpicture;
endchar;
|
