context-free-art-0.1.0.0: Art/Util.hs

{-# LANGUAGE OverloadedStrings #-}

module Art.Util where

import Data.Tuple.Extra
import qualified Data.Text as T
import TextShow
import Art.Geometry

tupLst :: (a, a) -> [a]
tupLst (a, b) = [a, b]

toPath :: [Vec] -> T.Text
toPath pts = T.intercalate " l" (T.unwords . tupLst . both showt <$> pts) <> "Z"