2019-07-20 02:29:32 +00:00
|
|
|
: blah ' seremit task-emit ! ;
|
|
|
|
|
blah
|
|
|
|
|
|
|
|
|
|
s" game.log" open seekend fdeactivate const LOGFILE
|
|
|
|
|
: emit-log ' fputc LOGFILE withfp ;
|
|
|
|
|
: atexit LOGFILE factivate close ;
|
|
|
|
|
|
|
|
|
|
: start-repl activate blah ' emit-log task-echo !
|
|
|
|
|
s" .:: J O R T H ( jean forth) ::." type cr
|
|
|
|
|
begin receive loadstring s" ok" type cr again ;
|
|
|
|
|
task const REPL
|
|
|
|
|
REPL start-repl
|
|
|
|
|
|
|
|
|
|
intern input.jor
|
|
|
|
|
input.jor loadfile
|
|
|
|
|
|
2019-07-24 02:39:56 +00:00
|
|
|
var color
|
|
|
|
|
var spriteindex
|
|
|
|
|
|
|
|
|
|
8 spriteindex !
|
|
|
|
|
2 color !
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
: refresh
|
2019-07-26 02:32:31 +00:00
|
|
|
mousehide spriteindex @ drawfatsprite mouseshow ;
|
2019-07-24 02:39:56 +00:00
|
|
|
|
|
|
|
|
: mousepos>sprpos 3 >> swap 3 >> swap ;
|
2019-07-26 02:32:31 +00:00
|
|
|
: mousexys mousepos mousepos>sprpos spriteindex @ ;
|
2019-07-20 02:29:32 +00:00
|
|
|
: tick
|
2019-07-26 02:32:31 +00:00
|
|
|
MOUSEL mousedown if
|
|
|
|
|
mousexys getpixel color @ != if
|
|
|
|
|
color @ mousexys putpixel
|
|
|
|
|
refresh
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
MOUSER clicked if
|
|
|
|
|
mousexys getpixel color !
|
2019-07-20 02:29:32 +00:00
|
|
|
then
|
|
|
|
|
tick-debounce
|
|
|
|
|
;
|
|
|
|
|
|
2019-07-24 02:39:56 +00:00
|
|
|
: draw ;
|
|
|
|
|
|
|
|
|
|
mouseshow
|
|
|
|
|
refresh
|
