default straight_len = 1;
default radius = 0.2;

H straight_len ;
q radius,0 {radius - radius * cos(phi)}, {radius * sin(phi)}
l {- straight_len * cos(phi)}, {straight_len * sin(phi)}