/**
 ** PIXEL.C ---- pixel read routine
 **
 ** Copyright (c) 1995 Csaba Biegl, 820 Stirrup Dr, Nashville, TN 37221
 ** [e-mail: csaba@vuse.vanderbilt.edu] See "doc/copying.cb" for details.
 **/

#include "libgrx.h"
#include "clipping.h"

GrColor GrPixel(int x,int y)
{
	GrColor retval;
	cxclip_dot_(CURC,x,y,return(GrNOCOLOR));
	mouse_block(CURC,x,y,x,y);
	retval = (*FDRV->readpixel)(
	    &CURC->gc_frame,
	    x + CURC->gc_xoffset,
	    y + CURC->gc_yoffset
	);
	mouse_unblock();
	return(retval);
}