rom/graphics/andregionregion.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function AndRegionRegion()
   6     Lang: english
   7 */
   8 #include "graphics_intern.h"
   9 #include <graphics/regions.h>
  10 #include "intregions.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/graphics.h>
  16
  17         AROS_LH2(BOOL, AndRegionRegion,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Region *, R1, A0),
  21         AROS_LHA(struct Region *, R2, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 104, Graphics)
  25
  26 /*  FUNCTION
  27         AND of one region with another region, leaving result in
  28         second region.
  29
  30     INPUTS
  31         region1 - pointer to a region structure
  32         region2 - pointer to a region structure
  33
  34     RESULT
  35         TRUE if the operation was successful, else FALSE
  36         (out of memory)
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45         XorRegionRegion(), OrRegionRegion()
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     if (!R1->RegionRectangle || !R2->RegionRectangle || !overlap(R1->bounds, R2->bounds))
  56     {
  57         ClearRegion(R2);
  58         return TRUE;
  59     }
  60     else
  61     {
  62         struct Region R3;
  63
  64         InitRegion(&R3);
  65
  66         if
  67         (
  68             _DoOperationBandBand
  69             (
  70                 _AndBandBand,
  71                 MinX(R1),
  72                 MinX(R2),
  73                 MinY(R1),
  74                 MinY(R2),
  75                 R1->RegionRectangle,
  76                 R2->RegionRectangle,
  77                 &R3.RegionRectangle,
  78                 &R3.bounds,
  79                 GfxBase
  80             )
  81         )
  82         {
  83             ClearRegion(R2);
  84
  85             *R2 = R3;
  86
  87             _TranslateRegionRectangles(R3.RegionRectangle, -MinX(&R3), -MinY(&R3));
  88
  89             return TRUE;
  90         }
  91     }
  92
  93     return FALSE;
  94
  95     AROS_LIBFUNC_EXIT
  96 }