1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- Example of an drawing graphics onto a canvas.
import Graphics.UI.Gtk
import Data.List ( intersperse )
main = do
initGUI
fm <- cairoFontMapGetDefault
ffs <- pangoFontMapListFamilies fm
mapM_ (\ff -> do
putStrLn (show ff++": ")
fcs <- pangoFontFamilyListFaces ff
mapM_ (\fc -> do
sizes <- pangoFontFaceListSizes fc
let showSize Nothing = "all sizes"
showSize (Just sz) = concat (intersperse ", " (map show sz))++
" points"
putStrLn (" "++show fc++" in "++showSize sizes)
) fcs
) ffs
|
