rom/hyperlayers/swapbitsrastportcliprect.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <aros/libcall.h>
   9 #include <proto/layers.h>
  10 #include <proto/graphics.h>
  11 #include "layers_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH2(void, SwapBitsRastPortClipRect,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct RastPort *, rp, A0),
  21         AROS_LHA(struct ClipRect *, cr, A1),
  22
  23 /*  LOCATION */
  24         struct LayersBase *, LayersBase, 21, Layers)
  25
  26 /*  FUNCTION
  27
  28     INPUTS
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42     HISTORY
  43
  44 *****************************************************************************/
  45 {
  46   AROS_LIBFUNC_INIT
  47
  48   /*
  49      First allocate a BitMap where the BitMap Data of the RastPort's
  50      bitmap will go into.
  51   */
  52   struct BitMap * NewBM;
  53
  54   NewBM = AllocBitMap(GetBitMapAttr(cr->BitMap, BMA_WIDTH) + 16,
  55                       GetBitMapAttr(cr->BitMap, BMA_HEIGHT),
  56                       GetBitMapAttr(cr->BitMap, BMA_DEPTH),
  57                       0,
  58                       rp->BitMap);
  59   /*
  60      Save the displayed bitmap area to the new BitMap
  61    */
  62
  63   BltBitMap(rp->BitMap,
  64             cr->bounds.MinX,
  65             cr->bounds.MinY,
  66             NewBM,
  67             ALIGN_OFFSET(cr->bounds.MinX),
  68             0,
  69             cr->bounds.MaxX - cr->bounds.MinX + 1,
  70             cr->bounds.MaxY - cr->bounds.MinY + 1,
  71             0x0c0,
  72             0xff,
  73             NULL
  74            );
  75
  76   /*
  77      Display the contents of the ClipRect's BitMap.
  78    */
  79
  80   BltBitMap(cr->BitMap,
  81             ALIGN_OFFSET(cr->bounds.MinX),
  82             0,
  83             rp->BitMap,
  84             cr->bounds.MinX,
  85             cr->bounds.MinY,
  86             cr->bounds.MaxX - cr->bounds.MinX + 1,
  87             cr->bounds.MaxY - cr->bounds.MinY + 1,
  88             0x0c0,
  89             0xff,
  90             NULL
  91            );
  92
  93   /*
  94      Free the 'old' BitMap of the ClipRect and hang the new BitMap into
  95      the ClipRect structure.
  96    */
  97   FreeBitMap(cr->BitMap);
  98   cr->BitMap = NewBM;
  99
 100   AROS_LIBFUNC_EXIT
 101 } /* SwapBitsRastPortClipRect */