PolesH(s) = k · Π(s − z) / Π(s − p)

Click to place a pole. Shift-alt-click for a zero. Drag a pole onto a zero to annihilate the pair.
Ctrl/Cmd-drag from one singularity to another to couple them. Drag a pole through space to record a gesture; strike to replay.