rom/graphics/remvsprite.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function AddVSprite()
   6     Lang: english
   7 */
   8 #include <proto/graphics.h>
   9 #include <graphics/gels.h>
  10 #include "gels_internal.h"
  11 #include <graphics/rastport.h>
  12 #include "graphics_intern.h"
  13 #include <proto/exec.h>
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH1(void, RemVSprite,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct VSprite *, vs, A0),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 23, Graphics)
  26
  27 /*  FUNCTION
  28         The VSprite is unlinked from the gel list.
  29
  30     INPUTS
  31         vs = pointer to VSprite to be removed from the gel list
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         InitGels() RemIBob() graphics/gels.h
  43
  44     INTERNALS
  45         I don't know whether it is correct to take the VSprite out of the
  46         ClearPath and DrawPath, but it is implemented that way.
  47
  48     HISTORY
  49
  50 *****************************************************************************/
  51 {
  52         AROS_LIBFUNC_INIT
  53         AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  54
  55         struct VSprite * Head;
  56         struct VSprite * Current;
  57
  58         /* unlink this VSprite */
  59         vs -> NextVSprite -> PrevVSprite = vs -> PrevVSprite;
  60         vs -> PrevVSprite -> NextVSprite = vs -> NextVSprite;
  61
  62         /* look for the head of this list of gels */
  63         Head = vs;
  64         while (NULL != Head -> PrevVSprite )
  65                 Head = Head -> PrevVSprite;
  66
  67         /* take this VSprite out of the DrawPath and ClearPath */
  68         Current = Head;
  69
  70         while (Current != NULL) {
  71                 if (Current -> IntVSprite -> DrawPath == vs) {
  72                         Current -> IntVSprite -> DrawPath = vs -> IntVSprite -> DrawPath;
  73                         break;
  74                 } else
  75                         Current = Current -> NextVSprite;
  76         }
  77
  78         Current = Head;
  79         while (Current != NULL) {
  80                 if (Current -> ClearPath == vs) {
  81                         Current -> ClearPath = vs -> ClearPath;
  82                         break;
  83                 } else
  84                         Current = Current -> NextVSprite;
  85         }
  86
  87         /*
  88          * Are only the head and the tail VSprite left?
  89          */
  90         if (NULL == Head->NextVSprite->NextVSprite) {
  91                 _DeleteIntVSprite(Head,GfxBase);
  92                 _DeleteIntVSprite(Head->NextVSprite,GfxBase);
  93         }
  94
  95         AROS_LIBFUNC_EXIT
  96
  97 } /* RemVSprite */