module TextExample ( textExample ) where import qualified Waterfall textExample :: FilePath -> Double -> String -> Double -> Waterfall.Solid textExample :: FilePath -> Double -> FilePath -> Double -> Solid textExample FilePath fontpath Double fontSize FilePath content Double depth = let font :: Font font = FilePath -> Double -> Font Waterfall.fontFromPath FilePath fontpath Double fontSize in Double -> Shape -> Solid Waterfall.prism Double depth (Shape -> Solid) -> Shape -> Solid forall a b. (a -> b) -> a -> b $ Font -> FilePath -> Shape Waterfall.text Font font FilePath content