github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-19 16:40:18 +00:00
Code Issues Projects Releases Wiki Activity

Add support for inverting video and setting mouse position.

Browse Source 
Use (IL:VIDEOCOLOR T/NIL) to change inversion.
This commit is contained in:
Peter
2021-10-25 21:11:00 +02:00
committed by Nick Briggs
parent cf8ecc1dd4
commit dbba06d9e1
2 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/dspsubrs.c
View File

@@ -69,6 +69,13 @@ LispPTR DSP_VideoColor(LispPTR *args) /* args[0] : black flag */
return ATOM_T;
else
return NIL;
#elif defined(SDL)
invert = args[0] & 0xFFFF;
sdl_set_invert(invert);
if (invert)
return ATOM_T;
else
return NIL;
#else
return NIL;
#endif
@@ -114,6 +121,11 @@ void DSP_SetMousePos(LispPTR *args)
if (Mouse_Included)
set_Xmouseposition((int)(GetSmalldata(args[0])), (int)(GetSmalldata(args[1])));
#endif /* XWINDOW */
#ifdef SDL
int x = (int)(GetSmalldata(args[0]));
int y = (int)(GetSmalldata(args[1]));
sdl_setMousePosition(x, y);
#endif /* SDL */
}
/****************************************************