blob: 4eee622d090052255ee560702c86d6bedbc1fe5e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
beginchar(oct"006",.8em#,cap#,dth#); "Elafron";
picture ELAFRON, scELAFRON;
transform t[];
z0 = (2w/5,1.7h/5); z1 = (6w/5,1.7h/5);
z2 = (.5w,0); z3 = (.5w,h);
t1 = identity reflectedabout(z0,z1) shifted (0,-.45cap)
reflectedabout(z2,z3);
addto currentpicture also PETACTH transformed t1;
ELAFRON = currentpicture;
clearit;
addto currentpicture also scPETACTH transformed t1;
scELAFRON = currentpicture;
clearit;
addto currentpicture also ELAFRON;
endchar;
|