rom/graphics/setregion.c

   1 /*
   2     Copyright © 1995-2007, 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(), CopyRegion()
  50
  51     INTERNALS
  52
  53     HISTORY
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct RegionRectangle * rrs, *rrd, *rrd_prev, *addr;
  60
  61     dest->bounds = src->bounds;
  62
  63     for
  64     (
  65         rrs = src->RegionRectangle, rrd = dest->RegionRectangle, rrd_prev = NULL;
  66         rrs && rrd;
  67         rrd_prev = rrd, rrs = rrs->Next, rrd = rrd->Next
  68     )
  69     {
  70         rrd->bounds = rrs->bounds;
  71     }
  72
  73     _DisposeRegionRectangleList(rrd, GfxBase);
  74
  75     if (rrd_prev)
  76         addr = rrd_prev;
  77     else
  78     {
  79         dest->RegionRectangle = NULL;
  80         addr = dest->RegionRectangle;
  81     }
  82
  83     if (!_LinkRegionRectangleList(rrs, &addr, GfxBase))
  84         return FALSE;
  85
  86     if (!rrd_prev)
  87         dest->RegionRectangle = addr ? &Chunk(addr)->FirstChunk->Rects[0].RR : NULL;
  88
  89     return TRUE;
  90
  91     AROS_LIBFUNC_EXIT
  92
  93 } /* SetRegion */