rom/graphics/writepixel.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$         $Log
   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         Change pen number of a pixel at given coordinate.
  35         The pixel is drawn with the primary (A) pen.
  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         There is no support of anything else than bitplanes now.
  58         (No chunky pixels)
  59
  60     HISTORY
  61         29-10-95    digulla automatically created from
  62                             graphics_lib.fd and clib/graphics_protos.h
  63
  64 *****************************************************************************/
  65 {
  66     AROS_LIBFUNC_INIT
  67
  68     IPTR pix;
  69
  70     FIX_GFXCOORD(x);
  71     FIX_GFXCOORD(y);
  72
  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 }