module TextExample ( textExample ) where import qualified Waterfall textExample :: FilePath -> Double -> String -> Double -> IO Waterfall.Solid textExample :: FilePath -> Double -> FilePath -> Double -> IO Solid textExample FilePath fontpath Double fontSize FilePath content Double depth = do Font font <- FilePath -> Double -> IO Font Waterfall.fontFromPath FilePath fontpath Double fontSize Solid -> IO Solid forall a. a -> IO a forall (m :: * -> *) a. Monad m => a -> m a return (Solid -> IO Solid) -> (Shape -> Solid) -> Shape -> IO Solid forall b c a. (b -> c) -> (a -> b) -> a -> c . Double -> Shape -> Solid Waterfall.prism Double depth (Shape -> IO Solid) -> Shape -> IO Solid forall a b. (a -> b) -> a -> b $ Font -> FilePath -> Shape Waterfall.text Font font FilePath content