Haskell 图双线箭头

Question

我现在正在为我的学士论文库工作，我需要你的帮助来制作新的线型。下面有单行双头箭头的代码: <-> 。我想问是否有能力从 line (line = TrailFromOffsets [unitX]) 变为 doubleline，看起来像这样:=，并且带有它的箭头看起来像这样 <=> ？如果有能力做到这一点，我将非常感谢您提供一个例子!先感谢您!

line = trailFromOffsets [unitX]
doubleHeadArrow  = (with & arrowHead  .~ spike & headColor .~ black & headSize .~ 0.4
                         & arrowTail .~ spike' & tailColor  .~ black & tailSize .~ 0.4
                         & arrowShaft .~ line) 

Answer 1

我认为你需要创建某种假箭头。取一个带有不可见轴的双头箭头，不透明度为 0。并将两条平行线放在看不见的轴上，即箭头，使用 sep 。

import Data.Colour (withOpacity)

invisibleShaftArrow = arrowBetween' (with & arrowHead  .~ spike & headColor .~ black & headSize .~ 0.4
                     & arrowTail .~ spike' & tailColor  .~ black & tailSize .~ 0.4
                     & arrowShaft .~ line & shaftColor .~ anyColor `withOpacity` 0)

编辑:更正确的是， lines 函数应该可以解决问题:

line = trailFromOffsets [unitX]
lines = mconcat $ map strokeLocTrail [line, offsetTrail 0.1 line]

example = (with & arrowHead  .~ spike & headColor .~ black & headSize .~ 0.4
                & arrowTail .~ spike' & tailColor  .~ black & tailSize .~ 0.4
                & arrowShaft .~ lines)