Magazyn Amiga 12/MA_Cover_12.iso/libs/bgui/examples/source/area.c

C/C++ Source or Header | 1999-02-19 | 3.7 KB | 186 lines

/*
 * @(#) $Header: /cvsroot/bgui/examples/Attic/Area.c,v 1.1.2.1 1998/02/28 17:44:49 mlemos Exp $
 *
 * Area.c
 *
 * (C) Copyright 1998 Manuel Lemos.
 * (C) Copyright 1994-1995 Jan van den Baard.
 * (C) Copyright 1994-1995 Jaba Development.
 * All Rights Reserved.
 *
 * Description: Very simple test program for the area class.
 *
 * $Log: Area.c,v $
 * Revision 1.1.2.1  1998/02/28 17:44:49  mlemos
 * Ian sources
 *
 *
 */

/* Execute me to compile with DICE v3.0
dcc Area.c -proto -mi -ms -lbgui
quit
*/

#include "DemoCode.h"
#include <intuition/icclass.h>

#define ID_REDRAW_AREA        1    /* When this ID is encountered we (re-)render the area. */
#define ID_QUIT            2

/*
**    Simply took from the old BGUIDemo. Renders a simple
**    integer mandel in the area.
**/
ULONG RenderMandel( struct Window *win, struct IBox *ibox, Object *area, Object *wd )
{
    LONG    zr, zi, ar, ai, dr, di, sr, si, st, x, y, i;
    LONG    xsize, ysize, depth;
    ULONG rc;

    depth = win->WScreen->BitMap.Depth;
    xsize = ibox->Width;
    ysize = ibox->Height;

    sr = 0x400000 / xsize;
    si = 0x300000 / ysize;
    st = 0x140000 * -2;
    zi = 0x180000;

    for (y = ysize - 1; y >= 0; y--)
    {
        zi -= si;
        zr = st;
        for (x = 0; x < xsize; x++)
        {
            i = 0;
            ar = zr;
            ai = zi;
            do {
                dr = ar >> 10;
                di = ai >> 10;
                ai = dr * 2 * di + zi;
                dr *= dr;
                di *= di;
                ar = dr - di + zr;
                i++;
            } while (( i <= 25 ) && (( dr + di ) <= 0x400000));
            SetAPen(win->RPort, i % (1 << depth));
            WritePixel(win->RPort, x + ibox->Left, y + ibox->Top);
            /*
            **    To keep things simple I sortof duplicated
            **    the event handler here. It simply returns
            **    to the main event handler (below) when
            **    necessary.
            **/
            while ((rc = HandleEvent( wd )) != WMHI_NOMORE)
            {
                if (rc == ID_REDRAW_AREA || rc == ID_QUIT || rc == WMHI_CLOSEWINDOW)
                    return rc;
            }

            zr += sr;
        }
    }
    return( 0L );
}

/*
**    Here we go...
**/
void StartDemo(void)
{
    struct Window    *w;
    Object        *Win, *Area, *But;
    ULONG         signal, rc;
    struct IBox    *area_box;
    BOOL         running = TRUE;

    /*
    **    Make a window.
    **/
    Win = WindowObject,
        WINDOW_Title,                "AreaClass demo.",
        WINDOW_AutoAspect,        TRUE,
        WINDOW_SmartRefresh,        TRUE,
        WINDOW_AutoKeyLabel,        TRUE,
        WINDOW_MasterGroup,
            VGroupObject, HOffset(4), VOffset(4), Spacing(4),
                GROUP_BackFill,         SHINE_RASTER,
                StartMember,
                    /*
                    **    Create AreaClass object.
                    **
                    **    Note the usage of the ICA_TARGET attribute. This is
                    **    required otherwise the object will never notify you
                    **    of size changes!!
                    **/
                    Area = AreaObject,
                        FRM_Type,            FRTYPE_BUTTON,
                        FRM_EdgesOnly,        TRUE,
                       AREA_MinWidth,        40,
                        AREA_MinHeight,    10,
                        GA_ID,                ID_REDRAW_AREA,
                        ICA_TARGET,            ICTARGET_IDCMP,
                    EndObject,
                EndMember,
                StartMember,
                    But = FuzzButton("_Quit", ID_QUIT), FixMinHeight,
                EndMember,
            EndObject,
        EndObject;

    /*
    **    OK?
    **/
    if (Win)
    {
        /*
        **    Open the window.
        **/
        if (w = WindowOpen(Win))
        {
            /*
            **    Get window signal.
            **/
            GetAttr(WINDOW_SigMask, Win, &signal);
            /*
            **    Poll messages...
            **/
            do
            {
                Wait(signal);
                while ((rc = HandleEvent(Win)) != WMHI_NOMORE)
                {

                    handleMsg:
                    switch ( rc )
                    {
                    case ID_REDRAW_AREA:
                        /*
                        **    Were signalled to redraw the
                        **    area. Obtain the area bounds.
                        **/
                        GetAttr(AREA_AreaBox, Area, (ULONG *)&area_box);
                        /*
                        **    Render inside the area.
                        **    When this routine returns we
                        **    evaluate the return code.
                        **/
                        if (rc = RenderMandel(w, area_box, Area, Win))
                            goto handleMsg;

                        break;

                    case    WMHI_CLOSEWINDOW:
                    case    ID_QUIT:
                        running = FALSE;
                        break;
                    }
                }
            } while (running);
        }
        DisposeObject(Win);
    }
}