ttf_font.e

   1 class TTF_FONT
   2 creation make, load
   3 feature
   4     is_connected : BOOLEAN
   5
   6     make is
   7     do
   8     end
   9
  10     load(filename : STRING; size : INTEGER) is
  11     require
  12         filename /= Void
  13     do
  14         ptr := ext_ttf_openfont(filename.to_external, size)
  15         if ptr.is_not_null then
  16             is_connected := True
  17         else
  18              io.put_string("Failed to load font: " + filename + "%N")
  19         end
  20     end
  21
  22     free is
  23     do
  24         if ptr.is_not_null then
  25             ptr := free_ttf_font(ptr)
  26             is_connected := False
  27         end
  28     end
  29
  30     set_style(i : INTEGER) is
  31     do
  32         ttf_setfontstyle(ptr, i)
  33     end
  34
  35     to_external : POINTER is
  36     do
  37         Result := ptr
  38     end
  39
  40     ttf_setfontstyle(p : POINTER; i : INTEGER) is
  41     external "C" alias "TTF_SetFontStyle"
  42     end
  43
  44     free_ttf_font(font : POINTER) : POINTER is
  45     external "C"
  46     end
  47
  48 feature {NONE}
  49     ptr : POINTER
  50
  51     ext_ttf_openfont(p : POINTER; size : INTEGER) : POINTER is
  52     external "C"
  53     end
  54 end