- fill z1l{right}..tension t..z2l{down}..z7r{dir(180+alpha)}
- ..z7l{dir(-alpha)}..z5r{down}..tension t..z6r{left}
- ..z6l{right}..tension t..z5l{up}
+ pickup pencircle scaled 1;
+% draw
+ fill
+ flare_path (z1l, 180, 90, hair, 7/8 flare, -1) ..tension t..
+ z2l{down}..z7r{dir(180+alpha)}
+ ..z7l{dir(-alpha)}..z5r{down}..tension t..
+
+ flare_path (z6r, 180, -90, hair, flare, 1) ..tension t..
+
+ z5l{up}