test/diskfont/fontinfo.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/initializers.h>
   7 #include <dos/dos.h>
   8 #include <diskfont/diskfont.h>
   9 #include <graphics/text.h>
  10 #include <graphics/gfxbase.h>
  11 #include <intuition/intuition.h>
  12 #include <proto/diskfont.h>
  13 #include <proto/exec.h>
  14 #include <proto/dos.h>
  15 #include <proto/graphics.h>
  16 #include <proto/utility.h>
  17 #include <proto/intuition.h>
  18
  19 #include <stdio.h>
  20 #include <string.h>
  21 #include <stdlib.h>
  22
  23 #define ARG_TEMPLATE "FONTNAME/A,FONTSIZE/N/A,XDPI/N,YDPI/N,BOLD/S,ITALIC/S,SHOW/S"
  24 #define ARG_NAME 0
  25 #define ARG_SIZE 1
  26 #define ARG_XDPI 2
  27 #define ARG_YDPI 3
  28 #define ARG_BOLD 4
  29 #define ARG_ITALIC 5
  30 #define ARG_SHOW 6
  31 #define NUM_ARGS 7
  32
  33 struct Library *DiskfontBase;
  34 struct UtilityBase *UtilityBase;
  35 struct GfxBase *GfxBase;
  36 struct IntuitionBase *IntuitionBase;
  37
  38 struct TextFont *font;
  39 STRPTR fontname;
  40 ULONG fontsize, xdpi, ydpi;
  41 struct RDArgs *myargs;
  42 IPTR args[NUM_ARGS];
  43 char s[256];
  44
  45 static void cleanup(char *msg)
  46 {
  47     if (msg) printf("fontinfo: %s\n", msg);
  48
  49     if (font) CloseFont(font);
  50
  51     if (UtilityBase) CloseLibrary((struct Library *)UtilityBase);
  52     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  53     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  54     if (DiskfontBase) CloseLibrary(DiskfontBase);
  55
  56     if (myargs) FreeArgs(myargs);
  57
  58     exit(msg == NULL ? RETURN_OK : RETURN_FAIL);
  59 }
  60
  61 static void getarguments(void)
  62 {
  63     myargs = ReadArgs(ARG_TEMPLATE, args, NULL);
  64     if (!myargs)
  65     {
  66         Fault(IoErr(), 0, s, 255);
  67         cleanup(s);
  68     }
  69
  70     fontname = (STRPTR)args[ARG_NAME];
  71     fontsize = *(LONG *)args[ARG_SIZE];
  72
  73     xdpi = args[ARG_XDPI] ? *(LONG *)args[ARG_XDPI] : 72;
  74     ydpi = args[ARG_YDPI] ? *(LONG *)args[ARG_YDPI] : 72;
  75
  76 }
  77
  78 static void openlibs(void)
  79 {
  80     DiskfontBase = OpenLibrary("diskfont.library", 38);
  81     if (!DiskfontBase) cleanup("Can't open diskfont.library!");
  82
  83     GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 38);
  84     if (!GfxBase) cleanup("Can't open graphics.library!");
  85
  86     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 38);
  87     if (!IntuitionBase) cleanup("Can't open intuition.library!");
  88
  89     UtilityBase = (struct UtilityBase *)OpenLibrary("utility.library", 38);
  90     if (!UtilityBase) cleanup("Can't open utility.library!");
  91 }
  92
  93 static void openfont(void)
  94 {
  95     struct TTextAttr ta;
  96     struct TagItem tags[] =
  97     {
  98         {TA_DeviceDPI, (xdpi << 16) | ydpi  },
  99         {TAG_DONE                           }
 100     };
 101
 102     ta.tta_Name = fontname;
 103     ta.tta_YSize = fontsize;
 104     ta.tta_Style = FSF_TAGGED;
 105     if (args[ARG_BOLD]) ta.tta_Style |= FSF_BOLD;
 106     if (args[ARG_ITALIC]) ta.tta_Style |= FSF_ITALIC;
 107
 108     ta.tta_Flags = FPF_DESIGNED;
 109     ta.tta_Tags = tags;
 110
 111     printf("fontname = \"%s\"  fontsize = %ld\n", fontname, (long)fontsize);
 112
 113     font = OpenDiskFont((struct TextAttr *)&ta);
 114     if (!font) cleanup("Could not open font!");
 115
 116     printf("Opened font addr = %p\n", font);
 117     printf("Opened font has xsize = %d ysize = %d  baseline = %d  flags = 0x%x  style = 0x%x\n",
 118             font->tf_XSize,
 119             font->tf_YSize,
 120             font->tf_Baseline,
 121             font->tf_Flags,
 122             font->tf_Style);
 123     printf("boldsmear = %d\n", font->tf_BoldSmear);
 124     printf("tf_CharData = %p\n", font->tf_CharData);
 125
 126     if (font->tf_Flags & FPF_DISKFONT)
 127     {
 128         struct DiskFontHeader *dfh = (struct DiskFontHeader *)(((UBYTE *)font) - (UBYTE *)OFFSET(DiskFontHeader, dfh_TF));
 129
 130         printf("DiskFontHeader:\n");
 131         printf("  succ %p\n", dfh->dfh_DF.ln_Succ);
 132         printf("  pred %p\n", dfh->dfh_DF.ln_Pred);
 133         printf("  type %x\n", dfh->dfh_DF.ln_Type);
 134         printf("  pri  %x\n", dfh->dfh_DF.ln_Pri);
 135         printf("  name %p (%s)\n", dfh->dfh_DF.ln_Name, dfh->dfh_DF.ln_Name);
 136         printf("  FileID %x\n", dfh->dfh_FileID);
 137         printf("  Revision %x\n", dfh->dfh_Revision);
 138         printf("  Segment  %p\n", BADDR(dfh->dfh_Segment));
 139         printf("  Name %p (%s)\n", dfh->dfh_Name, dfh->dfh_Name);
 140     }
 141
 142     printf("tf_Message:\n");
 143     printf("  succ %p\n", font->tf_Message.mn_Node.ln_Succ);
 144     printf("  pred %p\n", font->tf_Message.mn_Node.ln_Pred);
 145     printf("  type %x\n", font->tf_Message.mn_Node.ln_Type);
 146     printf("  pri  %x\n", font->tf_Message.mn_Node.ln_Pri);
 147     printf("  name %p (%s)\n", font->tf_Message.mn_Node.ln_Name, font->tf_Message.mn_Node.ln_Name);
 148     printf("  replyport %p\n", font->tf_Message.mn_ReplyPort);
 149     printf("  length %x\n", font->tf_Message.mn_Length);
 150
 151     printf("textfontextension:\n");
 152     if (ExtendFont(font, 0))
 153     {
 154         struct TextFontExtension *tfe = ((struct TextFontExtension *)font->tf_Extension);
 155         struct TagItem *extension = tfe->tfe_Tags;
 156         struct TagItem *tag, *tstate = extension;
 157         LONG dpivalue;
 158
 159         printf("  taglist:\n");
 160         while((tag = NextTagItem(&tstate)))
 161         {
 162             printf("    {%08x,%p}\n", (unsigned)tag->ti_Tag, (void *)tag->ti_Data);
 163         }
 164
 165         dpivalue = GetTagData(TA_DeviceDPI, 0, extension);
 166
 167         printf("  ta_devicedpi of opened font is: xdpi %ld  ydpi: %ld\n",
 168                 (long)(dpivalue >> 16), (long)(dpivalue & 0xFFFF));
 169
 170         printf("  tfe_MatchWord %x\n", tfe->tfe_MatchWord);
 171         printf("  tfe_Flags0 %x\n", tfe->tfe_Flags0);
 172         printf("  tfe_Flags1 %x\n", tfe->tfe_Flags1);
 173         printf("  tfe_OrigReplyPort %p\n", tfe->tfe_OrigReplyPort);
 174         printf("  tfe_OFontPatchS %p\n", tfe->tfe_OFontPatchS);
 175         printf("  tfe_OFontPatchK %p\n", tfe->tfe_OFontPatchK);
 176
 177     }
 178     if (font->tf_Style & FSF_COLORFONT)
 179     {
 180         struct ColorTextFont *ctf = (struct ColorTextFont *)font;
 181         WORD i;
 182
 183         printf(" ctf_Flags %x\n", ctf->ctf_Flags);
 184         printf(" ctf_Depth %x\n", ctf->ctf_Depth);
 185         printf(" ctf_FgColor %x\n", ctf->ctf_FgColor);
 186         printf(" ctf_Low %x\n", ctf->ctf_Low);
 187         printf(" ctf_High %x\n", ctf->ctf_High);
 188         printf(" ctf_PlanePick %x\n", ctf->ctf_PlanePick);
 189         printf(" ctf_PlaneOnOff %x\n", ctf->ctf_PlaneOnOff);
 190         printf(" ctf_colorFontColors %p\n", ctf->ctf_ColorFontColors);
 191
 192         for(i = 0; i <8; i++)
 193         {
 194             printf(" ctf_CharData[%d] %p\n", i, ctf->ctf_CharData[i]);
 195         }
 196     }
 197
 198     {
 199         struct TextFont *tf = (struct TextFont *)GfxBase->TextFonts.lh_Head;
 200
 201         printf("SYSFONTLIST:\n");
 202         while(tf->tf_Message.mn_Node.ln_Succ)
 203         {
 204             printf("  addr %p  name %s size %d\n", tf, tf->tf_Message.mn_Node.ln_Name, tf->tf_YSize);
 205             tf = (struct TextFont *)tf->tf_Message.mn_Node.ln_Succ;
 206         }
 207     }
 208 }
 209
 210 static void action(void)
 211 {
 212     WORD i;
 213     LONG totcharsize = 0;
 214     LONG totcharkern = 0;
 215     LONG totcharspace = 0;
 216     LONG totsomething = 0;
 217     LONG numsomething = 0;
 218     LONG numcharspace = 0;
 219
 220     printf("lowchar  = %d\n", font->tf_LoChar);
 221     printf("hichar   = %d\n", font->tf_HiChar);
 222     printf("isprop   = %s\n", (font->tf_Flags & FPF_PROPORTIONAL) ? "yes" : "no");
 223     printf("haskern  = %s\n", font->tf_CharKern ? "yes" : "no");
 224     printf("hasspace = %s\n", font->tf_CharSpace ? "yes" : "no");
 225     puts("");
 226
 227     for(i = font->tf_LoChar; i <= font->tf_HiChar + 1; i++)
 228     {
 229         printf("#%03d  kerning = %s%4d%s blackwidth = %4ld spacing = %s%4d%s\n",
 230                i,
 231                font->tf_CharKern ? "" : "[",
 232                (font->tf_CharKern ? ((WORD *)font->tf_CharKern)[i - font->tf_LoChar] : 0),
 233                font->tf_CharKern ? "" : "]",
 234                (long)((LONG *)font->tf_CharLoc)[i - font->tf_LoChar] & 0xFFFF,
 235                font->tf_CharSpace ? "" : "[",
 236                (font->tf_CharSpace ? ((WORD *)font->tf_CharSpace)[i - font->tf_LoChar] : 0),
 237                font->tf_CharSpace ? "" : "]");
 238
 239         if (font->tf_CharKern) totcharkern += ((WORD *)font->tf_CharKern)[i - font->tf_LoChar];
 240         if (font->tf_CharSpace)
 241         {
 242             ULONG old_totcharspace = totcharspace;
 243             totcharspace += ((WORD *)font->tf_CharSpace)[i - font->tf_LoChar];
 244             if (totcharspace != old_totcharspace) numcharspace++;
 245         }
 246
 247         totcharsize += ((LONG *)font->tf_CharLoc)[i - font->tf_LoChar] & 0xFFFF;
 248
 249         if ((i >= 110) && (font->tf_CharKern && font->tf_CharSpace))
 250         {
 251             ULONG old_totsomething = totsomething;
 252             totsomething += ((WORD *)font->tf_CharSpace)[i - font->tf_LoChar] +
 253                             ((WORD *)font->tf_CharKern)[i - font->tf_LoChar];
 254
 255             if (totsomething != old_totsomething)
 256             numsomething++;
 257
 258         }
 259     }
 260
 261     if (numsomething) printf("average something = %ld\n", (long)(totsomething / numsomething));
 262     if (numcharspace) printf("average charspace = %ld\n", (long)(totcharspace / numcharspace));
 263 }
 264
 265 static void showfont(void)
 266 {
 267     static char *text = "ABCDEFGHabcdefgh1234567890";
 268     static struct RastPort temprp;
 269     struct TextExtent te;
 270     struct Screen *scr;
 271     struct Window *win;
 272
 273     InitRastPort(&temprp);
 274     SetFont(&temprp, font);
 275
 276     TextExtent(&temprp, text, strlen(text), &te);
 277
 278     if ((scr = LockPubScreen(NULL)))
 279     {
 280         win = OpenWindowTags(NULL, WA_PubScreen, scr,
 281                                    WA_InnerWidth, te.te_Width + 6,
 282                                    WA_InnerHeight, te.te_Height + 6,
 283                                    WA_CloseGadget, TRUE,
 284                                    WA_DragBar, TRUE,
 285                                    WA_DepthGadget, TRUE,
 286                                    WA_Activate, TRUE,
 287                                    WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_VANILLAKEY,
 288                                    WA_Title, "FontInfo",
 289                                    TAG_DONE);
 290
 291         if (win)
 292         {
 293             SetFont(win->RPort, font);
 294             SetAPen(win->RPort, 1);
 295             Move(win->RPort, win->BorderLeft + 3 - te.te_Extent.MinX,
 296                              win->BorderTop + 3 - te.te_Extent.MinY);
 297             Text(win->RPort, text, strlen(text));
 298             WaitPort(win->UserPort);
 299             CloseWindow(win);
 300         }
 301         UnlockPubScreen(NULL, scr);
 302     }
 303 }
 304
 305 int main(void)
 306 {
 307     getarguments();
 308     openlibs();
 309     openfont();
 310     action();
 311     if (args[ARG_SHOW]) showfont();
 312     cleanup(NULL);
 313
 314     return 0;
 315 }