module Render.CG.Minus.Arrow where
import qualified Graphics.Rendering.Cairo as Cairo
import Data.CG.Minus.Types
import qualified Data.CG.Minus.Arrow as CG
import qualified Data.CG.Minus.Core as CG
import Render.CG.Minus
arrow_strk :: Ca -> Cairo.Render ()
arrow_strk c = do
Cairo.setLineCap Cairo.LineCapRound
pen 0.01 c ([],0)
Cairo.stroke
arrow_ep :: R -> R -> Ca -> Ln R -> Cairo.Render ()
arrow_ep n a c ln = do
let Ln p0 p1 = ln
(p2,p3) = CG.arrow_coord ln n a
line (Ls [p0,CG.ln_midpoint (Ln p2 p3)])
arrow_strk c
polygon (Ls [p2,p1,p3])
Cairo.fill
arrows_ep :: R -> R -> Ca -> Ls R -> Cairo.Render ()
arrows_ep n a c (Ls xs) = mapM_ (arrow_ep n a c) (zipWith Ln xs (tail xs))
arrow_mp :: R -> R -> Ca -> Ln R -> Cairo.Render ()
arrow_mp n a c ln = do
let Ln p0 p1 = ln
p1' = CG.ln_midpoint (Ln p0 (CG.pt_linear_extension n ln))
(p2,p3) = CG.arrow_coord (Ln p0 p1') n a
line (Ls [p0,p1])
arrow_strk c
polygon (Ls [p2,p1',p3])
Cairo.fill
arrows_mp :: R -> R -> Ca -> Ls R -> Cairo.Render ()
arrows_mp n a c (Ls xs) = mapM_ (arrow_mp n a c) (zipWith Ln xs (tail xs))