/* set clip box. All routines can only draw in this box. if x1==-1 the
box is the whole screen */
void ws_setclipping(int x1, int y1, int x2, int y2) {
if (x1 < 0) {
GrResetClipBox();
}
else {
GrSetClipBox(x1, y1, x2, y2);
}
}
static void paint_foot(char *s)
{
grt_centered.txo_fgcolor.v = LIGHTGREEN;
grt_centered.txo_font = grf_std;
GrSetClipBox(10, 440, 630, 470);
GrClearClipBox(CYAN);
GrDrawString(s, strlen(s), 320, 455, &grt_centered);
GrResetClipBox();
}
int main(void)
{
GrContext *pContext;
int sizex = 40;
int sizey = 40;
int x = 0;
int y = 40;
GrColor fcolor, bcolor;
int k;
GrEvent ev;
GrSetMode(GR_default_graphics);
GrEventInit();
GrMouseDisplayCursor();
/* Create a 1bpp bitmap */
pContext = GrCreateFrameContext(GR_frameRAM1, sizex, sizey, NULL, NULL);
/* draw something (black and white) into the bitmap */
GrSetContext(pContext);
GrClearContext(GrBlack());
GrLine(0, 0, sizex-1, sizey-1, GrWhite());
GrLine(0, sizey-1, sizex-1, 0, GrWhite());
GrSetContext(NULL);
fcolor = GrAllocColor(255, 0, 0);
bcolor = GrAllocColor(0, 0, 255);
GrTextXY(0, 0, "Type u d l r U D L R to move, 1 2 to change color, q to quit",
GrWhite(), GrNOCOLOR);
GrSetClipBox(0, 40, GrScreenX(), GrScreenY());
/* Put the bitmap into the screen */
GrBitBlt1bpp(NULL, x, y, pContext, 0, 0, sizex-1, sizey-1, fcolor, bcolor);
while (1) {
k = '\0';
GrEventWait(&ev);
if (ev.type == GREV_KEY) k = ev.p1;
if (k == 'q') break;
switch (k) {
case 'u': y--; break;
case 'd': y++; break;
case 'l': x--; break;
case 'r': x++; break;
case 'U': y -= 10; break;
case 'D': y += 10; break;
case 'L': x -= 10; break;
case 'R': x += 10; break;
case '1': fcolor = GrAllocColor(255, 0, 0);
bcolor = GrAllocColor(0, 0, 255);
break;
case '2': fcolor = GrAllocColor(0, 255, 255);
bcolor = GrAllocColor(255, 255, 0);
break;
default: continue;
}
if (x < -40) x = -40;
if (x > GrScreenX()) x = GrScreenX();
if (y < 0) y = 0;
if (y > GrScreenY()) y = GrScreenY();
GrBitBlt1bpp( NULL, x, y, pContext, 0, 0, sizex-1, sizey-1, fcolor, bcolor);
}
/* Destroy */
GrDestroyContext(pContext);
GrEventUnInit();
GrSetMode(GR_default_text);
return 0;
}
