Hyperion Entertainment Message Boards

Code: Select all

;/* FontTest
gcc -o FontTest FontTest.c -Wall -Werror -lauto
quit
*/

#include <intuition/intuition.h>
#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/graphics.h>
#include <proto/diskfont.h>

#include "stdio.h"	/*  for printf()  */
#include "stdlib.h"	/*  for exit()  */
#include "string.h"	/*  for strlen()  */

struct Window *Window = NULL;
struct TextFont *TextFont = NULL;

void CloseAll(void)
{
    if (TextFont) IGraphics->CloseFont(TextFont);
    if (Window) IIntuition->CloseWindow(Window);
}

void Fail(char *failString)
{
    printf("%s\n", failString);
    CloseAll();
    exit(FALSE);
}

void OpenAll(void)
{
    static char WindowTitle[] = "Font Test";
    struct TextAttr textAttr = { "DejaVu Sans.font", 16, 0, 0 };

    if (!(TextFont = IDiskfont->OpenDiskFont(&textAttr)))
        Fail("could not open font");

    if (!(Window = IIntuition->OpenWindowTags(NULL,
                       WA_Title, WindowTitle,
                       WA_Width, 200,
                       WA_Height, 100,
                       WA_Flags, WFLG_CLOSEGADGET | WFLG_DRAGBAR | WFLG_DEPTHGADGET,
                       WA_IDCMP, IDCMP_ACTIVEWINDOW | IDCMP_INACTIVEWINDOW | IDCMP_CLOSEWINDOW)))
        Fail("could not open window");
}

void FontTest(void)
{
    char testString[] = "Write Test";
    struct RastPort *rp = Window->RPort;

    IGraphics->SetFont(rp, TextFont);
    IGraphics->SetAPen(rp, 1);
    IGraphics->Move(rp, Window->BorderLeft, Window->BorderTop + rp->TxBaseline);
    IGraphics->Text(rp, testString, strlen(testString));
}

int main(void)
{
    BOOL done;
    struct IntuiMessage *imsg;

    OpenAll();
    FontTest();

    done = FALSE;
    while (!done)
    {
        imsg = (struct IntuiMessage *) IExec->GetMsg(Window->UserPort);
        if (!imsg)
        {
            IExec->Wait(1 << Window->UserPort->mp_SigBit);
            continue;
        }

        if (imsg)
        {
            switch (imsg->Class)
            {
                case IDCMP_CLOSEWINDOW:
                    done = TRUE;
                    break;

                case IDCMP_ACTIVEWINDOW:
                case IDCMP_INACTIVEWINDOW:
                    FontTest();
                    break;
            }
            IExec->ReplyMsg((struct Message *) imsg);
        }
    }

    CloseAll();

    return 0;
}

Code: Select all

void FontTest(void)
{
    char testString[] = "Write Test";
    struct RastPort *rp = Window->RPort;
    struct TextExtent te;
    WORD x, y;

    IGraphics->SetFont(rp, TextFont);
    IGraphics->SetAPen(rp, 1);

    x = Window->BorderLeft;
    y = Window->BorderTop + rp->TxBaseline;
    
    IGraphics->TextExtent(rp, testString, strlen(testString), &te);
/*
    IDOS->Printf("MinX: %ld\n", te.te_Extent.MinX);
    IDOS->Printf("MinY: %ld\n", te.te_Extent.MinY);
    IDOS->Printf("MaxX: %ld\n", te.te_Extent.MaxX);
    IDOS->Printf("MaxY: %ld\n", te.te_Extent.MaxY);
*/
    if (te.te_Extent.MinX < 0)
    {
    	x = x - te.te_Extent.MinX;
    }

    IGraphics->Move(rp, x, y);
    IGraphics->Text(rp, testString, strlen(testString));
}