module Wumpus.Basic.SafeFonts
(
timesRoman
, timesItalic
, timesBold
, timesBoldItalic
, helvetica
, helveticaOblique
, helveticaBold
, helveticaBoldOblique
, courier
, courierOblique
, courierBold
, courierBoldOblique
, symbol
) where
import Wumpus.Core
timesRoman :: Int -> FontAttr
timesRoman = FontAttr "Times-Roman" "Times New Roman" SVG_REGULAR
timesItalic :: Int -> FontAttr
timesItalic = FontAttr "Times-Italic" "Times New Roman" SVG_ITALIC
timesBold :: Int -> FontAttr
timesBold = FontAttr "Times-Bold" "Times New Roman" SVG_BOLD
timesBoldItalic :: Int -> FontAttr
timesBoldItalic =
FontAttr "Times-BoldItalic" "Times New Roman" SVG_BOLD_ITALIC
helvetica :: Int -> FontAttr
helvetica = FontAttr "Helvetica" "Helvetica" SVG_REGULAR
helveticaOblique :: Int -> FontAttr
helveticaOblique = FontAttr "Helvetica-Oblique" "Helvetica" SVG_OBLIQUE
helveticaBold :: Int -> FontAttr
helveticaBold = FontAttr "Helvetica-Bold" "Helvetica" SVG_BOLD
helveticaBoldOblique :: Int -> FontAttr
helveticaBoldOblique =
FontAttr "Helvetica-Bold-Oblique" "Helvetica" SVG_BOLD_OBLIQUE
courier :: Int -> FontAttr
courier = FontAttr "Courier" "Courier New" SVG_REGULAR
courierOblique :: Int -> FontAttr
courierOblique = FontAttr "Courier-Oblique" "Courier New" SVG_OBLIQUE
courierBold :: Int -> FontAttr
courierBold = FontAttr "Courier-Bold" "Courier New" SVG_BOLD
courierBoldOblique :: Int -> FontAttr
courierBoldOblique =
FontAttr "Courier-Bold-Oblique" "Courier New" SVG_BOLD_OBLIQUE
symbol :: Int -> FontAttr
symbol = FontAttr "Symbol" "Symbol" SVG_REGULAR