/*
    Copyright (C) 1995-2007, The AROS Development Team. All rights reserved.
    $Id$    $Log

    Desc: Graphics function GetBPen()
*/
#include "graphics_intern.h"

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

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

        AROS_LH1(ULONG, GetBPen,

/*  SYNOPSIS */
        AROS_LHA(struct RastPort *, rp, A0),

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

/*  FUNCTION
        Return the current value of the B pen for the rastport.

    INPUTS
        rp - RastPort.

    RESULT

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO

    INTERNALS

    HISTORY
        29-10-95    digulla automatically created from
                            graphics_lib.fd and clib/graphics_protos.h

*****************************************************************************/
{
    AROS_LIBFUNC_INIT

    return (UBYTE)rp->BgPen;

    AROS_LIBFUNC_EXIT
} /* GetBPen */
