rom/graphics/orregionregion.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function OrRegionRegion()
   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, OrRegionRegion,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Region *, R1, A0),
  21         AROS_LHA(struct Region *, R2, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 102, Graphics)
  25
  26 /*  FUNCTION
  27         OR 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         AndRegionRegion(), XOrRegionRegion()
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     struct Region R3;
  56
  57     if (!R1->RegionRectangle)
  58         return TRUE;
  59
  60     if (!R2->RegionRectangle)
  61     {
  62         if (_LinkRegionRectangleList(R1->RegionRectangle, &R2->RegionRectangle, GfxBase))
  63         {
  64             R2->RegionRectangle = &Chunk(R2->RegionRectangle)->FirstChunk->Rects[0].RR;
  65             R2->bounds = R1->bounds;
  66             return TRUE;
  67         }
  68
  69         return FALSE;
  70     }
  71
  72     InitRegion(&R3);
  73
  74     if
  75     (
  76         _DoOperationBandBand
  77         (
  78             _OrBandBand,
  79             MinX(R1),
  80             MinX(R2),
  81             MinY(R1),
  82             MinY(R2),
  83             R1->RegionRectangle,
  84             R2->RegionRectangle,
  85             &R3.RegionRectangle,
  86             &R3.bounds,
  87             GfxBase
  88         )
  89     )
  90     {
  91         ClearRegion(R2);
  92
  93         *R2 = R3;
  94
  95         _TranslateRegionRectangles(R3.RegionRectangle, -MinX(&R3), -MinY(&R3));
  96
  97         return TRUE;
  98     }
  99
 100     return FALSE;
 101
 102     AROS_LIBFUNC_EXIT
 103 }