rom/graphics/setregion.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: (AROS only) Graphics function SetRegion()
   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 <clib/graphics_protos.h>
  16
  17         AROS_LH2(BOOL, SetRegion,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Region *, src , A0),
  21         AROS_LHA(struct Region *, dest, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 195, Graphics)
  25
  26 /*  FUNCTION
  27         Sets the destination region to the source region.
  28         Allocates necessary RegionRectangles if necessary
  29         and deallocates any excessive RegionRectangles in
  30         the destination Region. The source Region remains
  31         untouched.
  32         If the system runs out of memory during allocation
  33         of RegionRectangles the destination Region will
  34         .
  35
  36     INPUTS
  37
  38     RESULT
  39         TRUE if everything went alright, FALSE otherwise
  40         (out of memory).
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         NewRegion() DisposeRegion() DisposeRegionRectangle()
  50         CopyRegion()
  51
  52     INTERNALS
  53
  54     HISTORY
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  60
  61     struct RegionRectangle * rrs, *rrd, *rrd_prev, *addr;
  62
  63     dest->bounds = src->bounds;
  64
  65     for
  66     (
  67         rrs = src->RegionRectangle, rrd = dest->RegionRectangle, rrd_prev = NULL;
  68         rrs && rrd;
  69         rrd_prev = rrd, rrs = rrs->Next, rrd = rrd->Next
  70     )
  71     {
  72         rrd->bounds = rrs->bounds;
  73     }
  74
  75     _DisposeRegionRectangleList(rrd, GfxBase);
  76
  77     if (rrd_prev)
  78         addr = rrd_prev;
  79     else
  80     {
  81         dest->RegionRectangle = NULL;
  82         addr = dest->RegionRectangle;
  83     }
  84
  85     if (!_LinkRegionRectangleList(rrs, &addr, GfxBase))
  86         return FALSE;
  87
  88     if (!rrd_prev)
  89         dest->RegionRectangle = addr ? &Chunk(addr)->FirstChunk->Rects[0].RR : NULL;
  90
  91     return TRUE;
  92
  93     AROS_LIBFUNC_EXIT
  94
  95 } /* SetRegion */