私はこのようなことをしたいと思います:
p = p2 (0,0)
shaft = arc xDir (-5/6 @@ turn)
example = ( arrowBetween' (with & arrowShaft .~ shaft) p p)
しかし、もちろん、エラーが表示されます:「ゼロでスケール!半減!」
エンドポイント間の差によってシャフトをスケーリングする をarrowBetween'呼び出すため、これが の既存の実装で機能しない理由を理解しています。arrow'ただし、これは可能なはずです。矢印がダイアグラムで開始した場所に戻るループを目にすることは、それほど珍しいことではありません。