bgui/blitter.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * BGUI library
   5  * blitter.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Ian J. Einman.
   9  * (C) Copyright 1993-1996 Jaba Development.
  10  * (C) Copyright 1993-1996 Jan van den Baard.
  11  * All Rights Reserved.
  12  *
  13  * $Log$
  14  * Revision 42.6  2004/06/16 20:16:48  verhaegs
  15  * Use METHODPROTO, METHOD_END and REGFUNCPROTOn where needed.
  16  *
  17  * Revision 42.5  2003/01/18 19:09:55  chodorowski
  18  * Instead of using the _AROS or __AROS preprocessor symbols, use __AROS__.
  19  *
  20  * Revision 42.4  2000/07/03 21:21:00  bergers
  21  * Replaced stch_l & stcu_d and had to make a few changes in other places because of that.
  22  *
  23  * Revision 42.3  2000/07/02 06:08:33  bergers
  24  * Compiles library alright (except that I took stch_l & stcu_d out) and seems to create the right type of object. Test1 also compiles alright but crashes somewhere...
  25  *
  26  * Revision 42.2  2000/05/15 19:27:00  stegerg
  27  * another hundreds of REG() macro replacements in func headers/protos.
  28  *
  29  * Revision 42.1  2000/05/14 23:32:46  stegerg
  30  * changed over 200 function headers which all use register
  31  * parameters (oh boy ...), because the simple REG() macro
  32  * doesn't work with AROS. And there are still hundreds
  33  * of headers left to be fixed :(
  34  *
  35  * Many of these functions would also work with stack
  36  * params, but since i have fixed every single one
  37  * I encountered up to now, I guess will have to do
  38  * the same for the rest.
  39  *
  40  * Revision 42.0  2000/05/09 22:08:29  mlemos
  41  * Bumped to revision 42.0 before handing BGUI to AROS team
  42  *
  43  * Revision 41.11  2000/05/09 19:53:58  mlemos
  44  * Merged with the branch Manuel_Lemos_fixes.
  45  *
  46  * Revision 41.10.2.3  1999/08/03 05:11:03  mlemos
  47  * Ensured that the creation of the drag and drop screen buffer bitmap is
  48  * allocated and friend of the screen's bitmap.
  49  *
  50  * Revision 41.10.2.2  1999/07/26 16:36:58  mlemos
  51  * Prevented that a drag session starts before the previous one ends
  52  * completely.
  53  *
  54  * Revision 41.10.2.1  1998/03/02 23:46:18  mlemos
  55  * Switched vector allocation functions calls to BGUI allocation functions.
  56  *
  57  * Revision 41.10  1998/02/25 21:11:40  mlemos
  58  * Bumping to 41.10
  59  *
  60  * Revision 1.1  1998/02/25 17:07:39  mlemos
  61  * Ian sources
  62  *
  63  *
  64  */
  65
  66 #include "include/classdefs.h"
  67
  68 makeproto VOID ASM EraseBMO(REG(a0) BMO *bmo)
  69 {
  70    struct Screen *s = bmo->bmo_Screen;
  71
  72    ObtainSemaphore(&bmo->bmo_Lock);
  73
  74    if (bmo->bmo_BMWindow)
  75    {
  76       /*
  77        * Signal to kill layer.
  78        */
  79       Signal((struct Task *)bmo->bmo_Process, SIGBREAKF_CTRL_E);
  80    };
  81
  82    if (bmo->bmo_Locked)
  83    {
  84       BltBitMap(bmo->bmo_ScreenBuffer, 0, 0, s->RastPort.BitMap,
  85          bmo->bmo_LX, bmo->bmo_LY, bmo->bmo_CW, bmo->bmo_CH, 0xC0, 0xFF, NULL);
  86       UnlockLayerInfo(&s->LayerInfo);
  87       bmo->bmo_Locked = FALSE;
  88    };
  89
  90    ReleaseSemaphore(&bmo->bmo_Lock);
  91 }
  92
  93 //STATIC VOID ASM SAVEDS backfill_func(REG(a0) struct Hook *hook, REG(a2) struct RastPort *rp, REG(a1) BFINFO *bf)
  94 STATIC SAVEDS ASM REGFUNC3(VOID, backfill_func,
  95         REGPARAM(A0, struct Hook *, hook),
  96         REGPARAM(A2, struct RastPort *, rp),
  97         REGPARAM(A1, BFINFO *, bf))
  98 {
  99    BMO *bmo = (BMO *)hook->h_Data;
 100
 101    int x = bf->bf_Rect.MinX;
 102    int y = bf->bf_Rect.MinY;
 103    int w = bf->bf_Rect.MaxX - x + 1;
 104    int h = bf->bf_Rect.MaxY - y + 1;
 105
 106    BltBitMap(bmo->bmo_ObjectBuffer, bf->bf_X, bf->bf_Y, rp->BitMap, x, y, w, h, 0xC0, 0xFF, NULL);
 107 }
 108 REGFUNC_END
 109
 110 static struct Hook bf_hook = { {NULL, NULL}, (HOOKFUNC)backfill_func, NULL, NULL };
 111
 112 makeproto VOID ASM LayerBMO(REG(a0) BMO *bmo)
 113 {
 114    if (!bmo->bmo_BMWindow)
 115    {
 116       EraseBMO(bmo);
 117
 118       bf_hook.h_Data = bmo;
 119       /*
 120        * Signal to open layer.
 121        */
 122       Signal((struct Task *)bmo->bmo_Process, SIGBREAKF_CTRL_F);
 123    };
 124 }
 125
 126 makeproto VOID ASM DrawBMO(REG(a0) BMO *bmo)
 127 {
 128    struct Screen     *s  = bmo->bmo_Screen;
 129    struct BitMap     *bm = bmo->bmo_ObjectBuffer;
 130    struct RastPort   *r  = &s->RastPort;
 131
 132    int x, y, w, h;
 133
 134    ObtainSemaphore(&bmo->bmo_Lock);
 135
 136    if (!bmo->bmo_BMWindow)
 137    {
 138       w = bmo->bmo_CW;
 139       h = bmo->bmo_CH;
 140
 141       if (bmo->bmo_Locked)
 142       {
 143          BltBitMap(bmo->bmo_ScreenBuffer, 0, 0, r->BitMap,
 144          bmo->bmo_LX, bmo->bmo_LY, w, h, 0xC0, 0xFF, NULL);
 145       }
 146       else
 147       {
 148          bmo->bmo_Locked = TRUE;
 149          LockLayerInfo(&s->LayerInfo);
 150       };
 151
 152       x = bmo->bmo_LX = bmo->bmo_CX;
 153       y = bmo->bmo_LY = bmo->bmo_CY;
 154
 155       BltBitMap(r->BitMap, x, y, bmo->bmo_ScreenBuffer, 0, 0, w, h, 0xC0, 0xFF, NULL);
 156       BltBitMap(bm, 0, 0, r->BitMap, x, y, w, h, 0xC0, 0xFF, NULL);
 157    };
 158
 159    ReleaseSemaphore(&bmo->bmo_Lock);
 160 }
 161
 162 static void KillDragObject(BMO *bmo)
 163 {
 164    struct bmFreeDragObject bmfo;
 165
 166    if (bmo)
 167    {
 168       BGUI_FreeBitMap(bmo->bmo_ScreenBuffer);
 169
 170       bmfo.MethodID = BASE_FREEDRAGOBJECT;
 171
 172       if ((bmfo.bmfo_ObjBitMap = bmo->bmo_ObjectBuffer))
 173          BGUI_DoGadgetMethodA(bmo->bmo_Object, bmo->bmo_Window, NULL, (Msg)&bmfo);
 174
 175       /*
 176        * Nuke the structure.
 177        */
 178       BGUI_FreePoolMem(bmo);
 179    };
 180 }
 181
 182 static void openwin(BMO *bmo)
 183 {
 184    if (bmo->bmo_BMWindow)
 185    {
 186       ChangeWindowBox(bmo->bmo_BMWindow, bmo->bmo_CX, bmo->bmo_CY, bmo->bmo_CW, bmo->bmo_CH);
 187    }
 188    else
 189    {
 190       bmo->bmo_BMWindow = OpenWindowTags(NULL,
 191                                          WA_Left,         bmo->bmo_CX,      WA_Top,       bmo->bmo_CY,
 192                                          WA_Width,        bmo->bmo_CW,      WA_Height,    bmo->bmo_CH,
 193                                          WA_CustomScreen, bmo->bmo_Screen,  WA_BackFill,  &bf_hook,
 194                                          WA_Borderless,   TRUE,             TAG_DONE);
 195    };
 196 }
 197
 198 static void killwin(BMO *bmo)
 199 {
 200    if (bmo->bmo_BMWindow)
 201    {
 202       CloseWindow(bmo->bmo_BMWindow);
 203       bmo->bmo_BMWindow = NULL;
 204    };
 205 }
 206
 207 static BMO *last_bmo=NULL;
 208
 209 __saveds void Mover(void)
 210 {
 211    BMO               *bmo;
 212    ULONG              sigs;
 213    BOOL               go;
 214    struct IBox       *db;
 215    Object            *obj = NULL, *wo, *g;
 216    struct Window     *w;
 217    struct Screen     *s = NULL;
 218    struct bmDragPoint bmd;
 219
 220 #ifdef __AROS__
 221    if (0 == sscanf(((struct Process *)FindTask(NULL))->pr_Arguments, "%p", &bmo))
 222 #else
 223    if (stch_l(((struct Process *)FindTask(NULL))->pr_Arguments, (long *)&bmo) == 0)
 224 #endif
 225    {
 226       go = FALSE;
 227    }
 228    else
 229    {
 230       go  = TRUE;
 231       obj = bmo->bmo_Object;
 232       s   = bmo->bmo_Screen;
 233
 234       bmd.MethodID    = BASE_DRAGQUERY;
 235       bmd.bmdp_GInfo  = NULL;
 236       bmd.bmdp_Source = obj;
 237    };
 238
 239    while (go)
 240    {
 241       sigs = Wait(SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D|SIGBREAKF_CTRL_E|SIGBREAKF_CTRL_F);
 242
 243       if (sigs & SIGBREAKF_CTRL_F)  /* Make layer  */
 244       {
 245          openwin(bmo);
 246       };
 247       if (sigs & SIGBREAKF_CTRL_E)  /* Kill layer  */
 248       {
 249          killwin(bmo);
 250       };
 251       if (sigs & SIGBREAKF_CTRL_D)  /* Move object */
 252       {
 253          killwin(bmo);
 254          /*
 255           * When we still have an active target
 256           * we do not change the window.
 257           */
 258          if (!bmo->bmo_ActRec)
 259          {
 260             /*
 261              * Did the window change?
 262              */
 263             if ((wo = WhichWindow(s)) != bmo->bmo_ActWin)
 264             {
 265                /*
 266                 * Unlock the previous window.
 267                 */
 268                if (bmo->bmo_ActWin) AsmDoMethod(bmo->bmo_ActWin, WM_UNLOCK);
 269
 270                /*
 271                 * Setup new window object and window pointer.
 272                 */
 273                bmo->bmo_ActWin = wo;
 274                bmo->bmo_ActPtr = NULL;
 275                if (wo)
 276                {
 277                   AsmDoMethod(wo, WM_LOCK);
 278                   Get_Attr(wo, WINDOW_Window, (IPTR *)&bmo->bmo_ActPtr);
 279                };
 280             };
 281          };
 282
 283          /*
 284           * Are we located on a BGUI window?
 285           */
 286          if ((wo = bmo->bmo_ActWin))
 287          {
 288             w = bmo->bmo_ActPtr;
 289
 290             /*
 291              * Do we have a target?
 292              */
 293             if (!bmo->bmo_ActRec)
 294             {
 295                /*
 296                 * Get the object under the mouse.
 297                 */
 298                g = (Object *)AsmDoMethod(wo, WM_WHICHOBJECT);
 299
 300                /*
 301                 * Deactive any active receiver which might
 302                 * still exist.
 303                 */
 304                if (bmo->bmo_ActRec)
 305                {
 306                   if (!bmo->bmo_BMWindow) EraseBMO(bmo);
 307                   myDoGadgetMethod(bmo->bmo_ActRec, w, NULL, BASE_DRAGINACTIVE, NULL, obj);
 308                   bmo->bmo_ActRec = NULL;
 309                };
 310
 311                /*
 312                 * Is the new object valid?
 313                 */
 314                if (g)
 315                {
 316                   /*
 317                    * Get the hitbox bounds of the
 318                    * receiver.
 319                    */
 320                   Get_Attr(g, BT_HitBox, (IPTR *)&db);
 321
 322                   /*
 323                    * Get mouse coords relative to the
 324                    * receiver hitbox.
 325                    */
 326                   bmd.bmdp_Mouse.X = s->MouseX - (w->LeftEdge + db->Left);
 327                   bmd.bmdp_Mouse.Y = s->MouseY - (w->TopEdge  + db->Top);
 328
 329                   /*
 330                    * Ask if it is willing to receive us.
 331                    */
 332                   if (BGUI_DoGadgetMethodA(g, w, NULL, (Msg)&bmd) == BQR_ACCEPT)
 333                   {
 334                      /*
 335                       * Yes. Tell it to go active.
 336                       */
 337                      if (!bmo->bmo_BMWindow) EraseBMO(bmo);
 338                      bmo->bmo_ActRec = g;
 339                      myDoGadgetMethod(g, w, NULL, BASE_DRAGACTIVE, NULL, obj);
 340                   };
 341                };
 342             };
 343          };
 344          DrawBMO(bmo);
 345       };
 346       if (sigs & SIGBREAKF_CTRL_C)  /* Kill object */
 347       {
 348          killwin(bmo);
 349          EraseBMO(bmo);
 350          go = FALSE;
 351       };
 352    };
 353
 354    /*
 355     * Tell the object to dispose of the
 356     * created object bitmap.
 357     */
 358    KillDragObject(bmo);
 359    last_bmo=NULL;
 360 }
 361
 362 /*
 363  * Setup everything to move a chunk of the screen
 364  * around on the screen.
 365  */
 366
 367 makeproto ASM BMO *CreateBMO(REG(a0) Object *obj, REG(a1) struct GadgetInfo * gi)
 368 {
 369    struct Screen     *scr = gi->gi_Screen;
 370    struct Window     *win = gi->gi_Window;
 371    struct RastPort   *rp = &scr->RastPort;
 372    BMO               *bmo;
 373    int                w, h, depth;
 374    struct IBox        bounds;
 375    char               args[10];
 376
 377    if (last_bmo==NULL
 378    && (bmo=last_bmo= BGUI_AllocPoolMem(sizeof(BMO))))
 379    {
 380       if ((bmo->bmo_ObjectBuffer = (struct BitMap *)AsmDoMethod(obj, BASE_GETDRAGOBJECT, gi, &bounds)))
 381       {
 382          depth = FGetDepth(rp);
 383
 384          bmo->bmo_CW = w = bounds.Width;
 385          bmo->bmo_CH = h = bounds.Height;
 386
 387          /*
 388           * Setup mouse position.
 389           */
 390          bmo->bmo_CX = scr->MouseX;
 391          bmo->bmo_CY = scr->MouseY;
 392
 393          bmo->bmo_IX = bmo->bmo_CX - bounds.Left - win->LeftEdge;
 394          bmo->bmo_IY = bmo->bmo_CY - bounds.Top  - win->TopEdge;
 395
 396          /*
 397           * Maximum mouse positions in which a move is still performed.
 398           */
 399          bmo->bmo_MaxX = scr->Width  - w;
 400          bmo->bmo_MaxY = scr->Height - h;
 401
 402          bmo->bmo_Screen = scr;
 403          bmo->bmo_Window = win;
 404          bmo->bmo_Object = obj;
 405
 406          if ((bmo->bmo_ScreenBuffer = BGUI_AllocBitMap(w, h, depth, 0, scr->RastPort.BitMap)))
 407          {
 408             InitSemaphore(&bmo->bmo_Lock);
 409 #ifdef __AROS__
 410             sprintf(args, "%p\n", bmo);
 411 #else
 412             sprintf(args, "%08lx\n", bmo);
 413 #endif
 414
 415             if ((bmo->bmo_Process = CreateNewProcTags(NP_Entry, Mover, NP_Priority, 5,
 416                NP_Name, "BGUI Process", NP_Arguments, args, TAG_DONE)))
 417             {
 418                return bmo;
 419             };
 420          };
 421       };
 422       KillDragObject(bmo);
 423       last_bmo=NULL;
 424    }
 425    return NULL;
 426 }
 427
 428 /*
 429  * Cleanup the mess we made.
 430  */
 431 makeproto ASM VOID DeleteBMO(REG(a0) BMO *bmo)
 432 {
 433    /*
 434     * Signal termination.
 435     */
 436    Signal((struct Task *)bmo->bmo_Process, SIGBREAKF_CTRL_C);
 437 }
 438
 439 /*
 440  * Move the chunk to a new location.
 441  */
 442
 443 makeproto ASM VOID MoveBMO(REG(a0) BMO *bmo, REG(D0) WORD x, REG(D1) WORD y)
 444 {
 445    /*
 446     * Make sure we stay inside the
 447     * screen range.
 448     */
 449    bmo->bmo_CX = range(x - bmo->bmo_IX, 0, bmo->bmo_MaxX);
 450    bmo->bmo_CY = range(y - bmo->bmo_IY, 0, bmo->bmo_MaxY);
 451
 452    /*
 453     * Signal motion.
 454     */
 455    Signal((struct Task *)bmo->bmo_Process, SIGBREAKF_CTRL_D);
 456 }