/*
    (C) 1995 AROS - The Amiga Replacement OS
    $Id: setfont.c,v 1.8 1997/03/06 15:59:24 digulla Exp $	  $Log

    Desc: Graphics function SetFont()
    Lang: english
*/
#include "graphics_intern.h"
#include <graphics/rastport.h>
#include <graphics/text.h>

/*****************************************************************************

    NAME */
#include <graphics/rastport.h>
#include <graphics/text.h>
#include <proto/graphics.h>

	AROS_LH2(void, SetFont,

/*  SYNOPSIS */
	AROS_LHA(struct RastPort *, rp, A1),
	AROS_LHA(struct TextFont *, textFont, A0),

/*  LOCATION */
	struct GfxBase *, GfxBase, 11, Graphics)

/*  FUNCTION
	Select a new font for rendering strings in a RastPort.

    INPUTS
	rp - Change this RastPort
	textFont - This is the new font

    RESULT
	None.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO

    INTERNALS

    HISTORY

*****************************************************************************/
{
    AROS_LIBFUNC_INIT
    AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)

    driver_SetFont (rp, textFont, GfxBase);

    rp->Font	   = textFont;
    rp->TxWidth    = textFont->tf_XSize;
    rp->TxHeight   = textFont->tf_YSize;
    rp->TxBaseline = textFont->tf_Baseline;

    AROS_LIBFUNC_EXIT
} /* SetFont */