Move line width to first argument

2022-02-10 11:31:55 +00:00
parent 700ab8d930
commit ede5a4e5d0
5 changed files with 12 additions and 12 deletions
@@ -69,7 +69,7 @@ fixedSizePicClampArrow xbord ybord pic p cfig w = pictures
    windowPoint = intersectSegPolyFirst campos p winps
    arrowPic = case borderPoint of
        Nothing -> blank
-        Just bp -> thickLine [bp, fromMaybe p windowPoint] 5
+        Just bp -> thickLine 5 [bp, fromMaybe p windowPoint]
    (V2 x y) = fromMaybe p borderPoint
    campos = _cameraCenter w
    theScale = 1 / _cameraZoom w