rom/graphics/sortglist.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function SortGList()
   6     Lang: english
   7 */
   8 #include <graphics/gels.h>
   9 #include <graphics/rastport.h>
  10 #include "graphics_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/graphics.h>
  16
  17         AROS_LH1(void, SortGList,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct RastPort *, rp, A1),
  21
  22 /*  LOCATION */
  23         struct GfxBase *, GfxBase, 25, Graphics)
  24
  25 /*  FUNCTION
  26         Sort the current gel list by the y and x coordinates of it's
  27         elements.
  28         You have to call this routine prior to calling DoCollision()
  29         of DrawGList or make sure that the list is sorted!
  30
  31     INPUTS
  32         rp  = pointer to RastPort that has an GelsInfo linked to it
  33
  34     RESULT
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         InitGels(), DrawGList(), DoCollision(), graphics/rastport.h
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 *****************************************************************************/
  50 {
  51         AROS_LIBFUNC_INIT
  52
  53         struct VSprite * CorrectVSprite = rp -> GelsInfo -> gelHead;
  54         struct VSprite * CurVSprite = CorrectVSprite -> NextVSprite;
  55
  56         LONG Coord = JOIN_XY_COORDS( CorrectVSprite -> X, CorrectVSprite -> Y );
  57
  58         while ( NULL != CurVSprite ) {
  59                 LONG NewCoord =  JOIN_XY_COORDS( CurVSprite -> X, CurVSprite -> Y );
  60
  61                 if (0 != CurVSprite->VSBob)
  62                         CurVSprite->VSBob->Flags &= ~BDRAWN;
  63
  64                 if (Coord <= NewCoord) {
  65                         /* sorting is not necessary for this VSprite */
  66                         CorrectVSprite = CurVSprite;
  67                         CurVSprite     = CurVSprite -> NextVSprite;
  68
  69                         Coord = NewCoord;
  70                 } else {
  71                         struct VSprite * tmpVSprite = CorrectVSprite->PrevVSprite;
  72                         /*
  73                            The CurVSprite is at the wrong position. It has to appear
  74                            somewhere earlier in the list.
  75                          */
  76
  77                         /* unlink it from it's current position */
  78                         CorrectVSprite -> NextVSprite = CurVSprite -> NextVSprite;
  79                         if (NULL != CurVSprite -> NextVSprite)
  80                                 CurVSprite -> NextVSprite -> PrevVSprite = CorrectVSprite;
  81
  82                         /* insert CurVSprite at some previous place */
  83
  84                         while ( ( NULL != tmpVSprite ) &&
  85                                  ( JOIN_XY_COORDS(tmpVSprite -> X, tmpVSprite -> Y) > NewCoord ) )
  86                                 tmpVSprite = tmpVSprite -> PrevVSprite;
  87
  88                         if (NULL == tmpVSprite) {
  89                                 /* our CurVSprite becomes the fist one in the list */
  90                                 /* Due to the head VSprite this should never happen!!! */
  91                                 rp->GelsInfo->gelHead->PrevVSprite = CurVSprite;
  92                                 CurVSprite->NextVSprite = rp->GelsInfo->gelHead;
  93                                 CurVSprite->PrevVSprite = NULL;
  94                                 rp->GelsInfo->gelHead   = CurVSprite;
  95                         } else {
  96                                 /* link it into the list *after* the tmpVSprite */
  97                                 CurVSprite->PrevVSprite = tmpVSprite;
  98                                 CurVSprite->NextVSprite = tmpVSprite->NextVSprite;
  99
 100                                 if (NULL != tmpVSprite->NextVSprite)
 101                                         tmpVSprite->NextVSprite->PrevVSprite = CurVSprite;
 102
 103                                 tmpVSprite->NextVSprite = CurVSprite;
 104                         }
 105
 106                         /* set the new CurVSprite */
 107                         CurVSprite = CorrectVSprite -> NextVSprite;
 108                 }
 109         } /* while ( NULL != CurVSprite ) */
 110
 111         rp->GelsInfo->gelTail = CorrectVSprite;
 112
 113         AROS_LIBFUNC_EXIT
 114
 115 } /* SortGList */