rom/graphics/writepixel.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function WritePixel()
   6     Lang: english
   7 */
   8
   9 #include <graphics/rastport.h>
  10 #include <graphics/clip.h>
  11 #include <proto/graphics.h>
  12
  13 #include "graphics_intern.h"
  14 #include "gfxfuncsupport.h"
  15
  16 static LONG pix_write(APTR pr_data, OOP_Object *bm, OOP_Object *gc,
  17                       WORD x, WORD y, struct GfxBase *GfxBase);
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22
  23         AROS_LH3(LONG, WritePixel,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(struct RastPort *, rp, A1),
  27         AROS_LHA(WORD             , x, D0),
  28         AROS_LHA(WORD             , y, D1),
  29
  30 /*  LOCATION */
  31         struct GfxBase *, GfxBase, 54, Graphics)
  32
  33 /*  FUNCTION
  34         Write the primary (A) pen colour to the given coordinates of a
  35         RastPort.
  36
  37     INPUTS
  38         rp  - destination RastPort
  39         x,y - coordinate
  40
  41     RESULT
  42          0: pixel could be written
  43         -1: coordinate was outside rastport
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54         This function takes layers into account. Some pixel that is
  55         being read is not found on the display-bitmap but in some
  56         clipped rectangle (cliprect) in a layer structure.
  57
  58 *****************************************************************************/
  59 {
  60     AROS_LIBFUNC_INIT
  61
  62     IPTR pix;
  63
  64     FIX_GFXCOORD(x);
  65     FIX_GFXCOORD(y);
  66
  67     if ((rp->Flags & RPF_NO_PENS) != 0)
  68     {
  69         HIDDT_GC_Intern *_gc = GCINT(&((rp)->longreserved[1]));
  70         pix = _gc->fg;
  71     }
  72     else
  73         pix = BM_PIXEL(rp->BitMap, (UBYTE)rp->FgPen);
  74
  75     return do_pixel_func(rp, x, y, pix_write, (APTR)pix, TRUE, GfxBase);
  76
  77     AROS_LIBFUNC_EXIT
  78 } /* WritePixel */
  79
  80
  81 static LONG pix_write(APTR pr_data, OOP_Object *bm, OOP_Object *gc,
  82                       WORD x, WORD y, struct GfxBase *GfxBase)
  83 {
  84     HIDD_BM_PutPixel(bm, x, y, (IPTR)pr_data);
  85
  86     return 0;
  87 }