rom/intuition/pointinimage.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8 #include <intuition/classusr.h>
   9 #include <proto/alib.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <intuition/intuition.h>
  15 #include <intuition/imageclass.h>
  16 #include <proto/intuition.h>
  17
  18         AROS_LH2(BOOL, PointInImage,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(ULONG,          point, D0),
  22         AROS_LHA(struct Image *, image, A0),
  23
  24 /*  LOCATION */
  25         struct IntuitionBase *, IntuitionBase, 104, Intuition)
  26
  27 /*  FUNCTION
  28         Check whether a point is inside an image.
  29
  30     INPUTS
  31         point - This are the packed point coordinates. The X coordinate
  32             in in the upper 16 bits and the Y coordinate is in the
  33             lower 16 bits. The coordinates are signed.
  34         image - Check against this image.
  35
  36     RESULT
  37         TRUE if the point is inside the image, FALSE otherwise.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52     BOOL                result = FALSE;
  53     WORD                X = (point >> 16L);
  54     WORD                Y =  point & 0x0000FFFFL;
  55     struct impHitTest   method;
  56
  57     if (image != NULL)
  58     {
  59         if (image->Depth == CUSTOMIMAGEDEPTH)
  60         {
  61             method.MethodID    = IM_HITTEST;
  62             method.imp_Point.X = X;
  63             method.imp_Point.Y = Y;
  64
  65             result = DoMethodA((Object *)image, (Msg)&method) != 0;
  66         }
  67         else
  68         {
  69
  70             if ((X >= image->LeftEdge && X <= image->LeftEdge + image->Width) &&
  71                 (Y >= image->TopEdge  && Y <= image->TopEdge  + image->Height))
  72             {
  73                 result = TRUE;
  74             }
  75         }
  76     }
  77     else
  78     {
  79         /* NULL image returns TRUE per intuition autodoc! */
  80         result = TRUE;
  81     }
  82
  83     return (result);
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* PointInImage */