MODULE TestFTmini;
   
   IMPORT (*Fonts,*) Ports, Lib := LibsFreeType, Log := StdLog;
   
   PROCEDURE WriteLn (s: ARRAY OF CHAR);
   BEGIN
      Log.String("->"  + s); Log.Ln
   END WriteLn;
   
   PROCEDURE LogError (code: INTEGER);
   BEGIN
      Log.String("Error #"); Log.Int(code); Log.Ln
   END LogError;
   
   PROCEDURE Test*;
      CONST grid = 4096;
      VAR
         (*f: Fonts.Font;*)
         library: Lib.FT_Library_ptr; (* handle to library *)
         face: Lib.FT_Face_ptr; (* handle to face object *)
         error, (*height, width,*)
         fontSize,
         a, b, scale,
         asc, dsc: INTEGER;
         isScalable: BOOLEAN;
         (* filepathname: *)
   BEGIN
      WriteLn("Test");
      
      fontSize := 10 * Ports.point;
      a := fontSize MOD grid; b := fontSize DIV grid;
      scale := a DIV grid + b;
      Log.String("Scale: "); Log.Int(scale); Log.Ln;
      
      error := Lib.FT_Init_FreeType( library );
      IF error # 0 THEN LogError(error); HALT(1) END;
      (* WriteLn("FT_Init_FreeType"); *)
      
      error := Lib.FT_New_Face( library, "tahoma.ttf", 0, face ); (* %windir%\fonts\ *)
      IF error # 0 THEN LogError(error); HALT(1) END;
      (* WriteLn("FT_New_Face"); *)
      
      isScalable := Lib.FT_FACE_FLAG_SCALABLE * BITS(face.face_flags) = Lib.FT_FACE_FLAG_SCALABLE;
      asc := (face.height + face.descender) DIV 64;
      dsc := (face.ascender - face.height) DIV 64;
      
      Log.String("Family name: "); Log.String(face.family_name$); Log.Ln;
      IF isScalable  THEN
         Log.String("SCALABLE"); Log.Ln
      ELSE
         Log.String("NON-SCALABLE"); Log.Ln
      END;
      Log.String("Number of glyphs: "); Log.Int(face.num_glyphs); Log.Ln;
      Log.String("Height: "); Log.Int(face.height); Log.Ln;
      Log.String("Ascender: "); Log.Int(asc); Log.Ln;
      Log.String("Descender: "); Log.Int(dsc); Log.Ln;

      error := Lib.FT_Done_Face( face );
      IF error # 0 THEN LogError(error); HALT(1) END;
      (* WriteLn("FT_Done_Face"); *)
      
      error := Lib.FT_Done_FreeType( library );
      IF error # 0 THEN LogError(error); HALT(1) END;
      (* WriteLn("FT_Done_FreeType"); *)
      
   END Test;
   
END TestFTmini.