Tigr-m2/tvision-m2/tvfont.def

DEFINITION MODULE tvfont;

FROM SYSTEM IMPORT BYTE;

(* Bundled 8x16 monospaced bitmap font for the tigr backend (no system
   dependency at run time).

   Glyph data derived from the public-domain IBM VGA 8x16 console font
   (via the Lat15-VGA16 console font).  Box-drawing code points are drawn
   as line segments by the backend, not from this font. *)

CONST
    CW = 8;      (* cell width  in pixels *)
    CH = 16;     (* cell height in pixels *)
    NG = 256;    (* number of glyphs *)

PROCEDURE Index (cp : CARDINAL) : INTEGER;   (* glyph number, or -1 *)
PROCEDURE Row (g : INTEGER; r : INTEGER) : BYTE;

END tvfont.