blob: 5a4cdfe2f86589eeb72690d239a91ba9e318ec95 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
ffmchar("ogonek",4,x_ht#,acc_depth#);
x1=.6w; %no noise!
lft x2=-o+.5noise;
rt x4=w+.5noise;
x3=x4-.5u;
bot y1=0; %no noise!
y2=.7[y1,y4];
bot y3=noise-d;
z4=z3+whatever*randrt;
pair randir;
randir:=-randup;
draw z1..tension infinity and 1..z2{randir}
& arc(z2,randir,z3,randrt)
& z3--z4;
charanchorbots_[charcode]=z1;
labels(1,2,3,4,5);
endchar;
|