Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/179.lha/ClipLines/doslbnc.c

C/C++ Source or Header | 1988-04-28 | 3.9 KB | 246 lines

/* doslbnc.ld  - Copyright 1988 Commodore-Amiga, Inc. */

#include <exec/types.h>
#include <exec/memory.h>
#include <graphics/gfx.h>
#include <graphics/gfxbase.h>
#include <graphics/clip.h>
#include <graphics/rastport.h>
#include <graphics/layers.h>
#include <intuition/intuition.h>

#define DEPTH    2

/*#define DEBUG*/

/* #define KPRINTF */

#ifdef KPRINTF
#define printf kprintf
#endif

extern int GfxBase;

int HEIGHT = 512;
int WIDTH = 1024-16;

#define RBG_ID 0x0001
#define BBG_ID 0x0002

int usable_width(w)
struct Window *w;
{
   return (w->Width - w->BorderLeft - w->BorderRight);
}

int usable_height(w)
struct Window *w;
{
   return(w->Height - w->BorderTop - w->BorderBottom);
}

do_gadget_down(msg)
struct IntuiMessage *msg;
{
LONG error = FALSE;

#ifdef DEBUG
    printf("do_gadget_down: entering...\n");
#endif

    /* stub */

#ifdef DEBUG
    printf("do_gadget_down: exiting...\n");
#endif

    return(error);
}

do_gadget_up(msg)
struct IntuiMessage *msg;
{
LONG error = FALSE;
struct Window *w;
struct RastPort *rp;
struct Layer *l;
struct LayerInfo *li;
struct Gadget *g;
UWORD gid;
struct PropInfo *pi;

#ifdef DEBUG
    printf("do_gadget_up: entering...\n");
#endif

    if(msg)
    {
        if(g = (struct Gadget *)msg->IAddress)
        {

            gid = g->GadgetID;
            switch(gid)
            {
                case(RBG_ID):
                {
                    /* scroll vertically */
#ifdef DEBUG
                    printf("do_gadget_up: scroll vertically...\n");
#endif

                    if(w = msg->IDCMPWindow)
                    {
                        if(rp = w->RPort)
                        {
                            if(l = rp->Layer)
                            {
                                if(li = l->LayerInfo)
                                {
                                    WORD abs_scroll;
                                    WORD delta_scroll;
                                    WORD max_scroll;
                                    WORD sb_height;

                                    pi = g->SpecialInfo;

                                    sb_height = l->SuperBitMap->Rows;

                                    abs_scroll = (((pi->VertPot + 1) * (sb_height - usable_height(w))) >> 16);

                                    delta_scroll = abs_scroll - l->Scroll_Y;

                                    ScrollLayer(li,l,0,delta_scroll);
                                }
                            }
                        }
                    }
                    break;
                }

                case(BBG_ID):
                {
                    /* scroll horizontally */
#ifdef DEBUG
                    printf("do_gadget_up: scroll horizontally...\n");
#endif
                    if(w = msg->IDCMPWindow)
                    {
                        if(rp = w->RPort)
                        {
                            if(l = rp->Layer)
                            {
                                if(li = l->LayerInfo)
                                {
                                    WORD abs_scroll;
                                    WORD delta_scroll;
                                    WORD max_scroll;
                                    WORD sb_width;

                                    pi = g->SpecialInfo;

                                    sb_width = l->SuperBitMap->BytesPerRow << 3;

                                    abs_scroll = (((pi->HorizPot + 1) * (sb_width - usable_width(w))) >> 16);

                                    delta_scroll = abs_scroll - l->Scroll_X;

                                    ScrollLayer(li,l,delta_scroll,0);
                                }
                            }
                        }
                    }
                    break;
                }

                default:
                {
                    /* unknown gid */
#ifdef DEBUG
                    printf("do_gadget_up: unknown gadget_id...ERROR = TRUE!\n");
#endif
                    error = TRUE;
                    break;
                }
            }
        }
        else
        {
            error = TRUE;
        }
    }
    else
    {
    error = TRUE;
    }

#ifdef DEBUG
    printf("do_gadget_up: exiting...\n");
#endif

    return(error);
}

dots(vp,rp)
struct ViewPort *vp;
struct RastPort *rp;
{
#ifdef DEBUG
    printf("rp=%lx\n",rp);
#endif
    lbnc(rp);
}

struct BitMap bm;    /* assume initialized to 0 */

main()
{
    int i;

    GfxBase = OpenLibrary("graphics.library",32);

    if (AvailMem(MEMF_CHIP) < 100000)    /* for eentsy machines */
    {
        HEIGHT = 256;
        WIDTH = 640;
    }

    InitBitMap(&bm,DEPTH,WIDTH,HEIGHT);

    for(i = 0; i< DEPTH ; i++)
    {
        if ( (bm.Planes[i] = (PLANEPTR)AllocRaster(WIDTH,HEIGHT)) == 0)
        {

#ifdef DEBUG
            printf("no mem for bitmap\n");
#endif
            for (i = 0; i< DEPTH; i++)
            {
                if (bm.Planes[i])
                {
                    FreeRaster(bm.Planes[i],WIDTH,HEIGHT);
                }
            }
            CloseLibrary(GfxBase);
            exit();
        }
        else
        {
            BltClear(bm.Planes[i],RASSIZE(WIDTH,HEIGHT));
        }
    }

    startgfx(200,100,50,100,DEPTH,0,dots,"Lines Window",
        GIMMEZEROZERO|SMART_REFRESH|SUPER_BITMAP,&bm);

    for(i = 0; i< DEPTH ; i++)
    {
        FreeRaster(bm.Planes[i],WIDTH,HEIGHT);
    }

    CloseLibrary(GfxBase);

}