module Fonttest where 

import GraphicsUtils


main :: IO ()
main = runGraphics $ do
  w <- openWindow "Fonts" (300, 150)
  f1<- createFont (7,14) 0 True False "Helvetica"
  drawInWindow w $
    withFont f1 (text (10, 10) "Helvetica (bold, 14 pt)")
  f2<- createFont (10, 18) 0 False True "Courier"
  drawInWindow w $
    withFont f2 (text (40, 50) "Courier (italic, 18 pt)")
  f3<- createFont (12,24) 0 False False "Times"
  drawInWindow w $ 
    withFont f3 (text (80, 100) "Times (24 pt)")