alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More web graphics.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-18 22:39:20 -07:00
parent 525fbf8f8c
commit 4262b9c504
1 changed files with 29 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
web/platform.fs
View File

@ -70,11 +70,9 @@ if (!globalObj.write) {
var width = window.innerWidth; var width = window.innerWidth;
var theight = Math.max(120, Math.floor(window.innerHeight / 6)); var theight = Math.max(120, Math.floor(window.innerHeight / 6));
var height = window.innerHeight - theight; var height = window.innerHeight - theight;
/* if (width === context.width && height === context.height) {
if (width != context.width && height != context.height) {
return; return;
} }
*/
context.canvas.style.width = width + 'px'; context.canvas.style.width = width + 'px';
context.canvas.style.height = height + 'px'; context.canvas.style.height = height + 'px';
context.filler.style.width = '1px'; context.filler.style.width = '1px';
@ -220,6 +218,32 @@ r|
}) })
| 8 jseval! | 8 jseval!
r|
(function(sp) {
var h = i32[sp>>2]; sp -= 4;
var w = i32[sp>>2]; sp -= 4;
if (globalObj.write) {
return sp;
}
context.canvas.width = w;
context.canvas.height = h;
return sp;
})
| 9 jseval!
r|
(function(sp) {
if (globalObj.write) {
sp += 4; i32[sp>>2] = 1;
sp += 4; i32[sp>>2] = 1;
return sp;
}
sp += 4; i32[sp>>2] = context.width;
sp += 4; i32[sp>>2] = context.height;
return sp;
})
| 10 jseval!
forth definitions web forth definitions web
: bye 0 terminate ; : bye 0 terminate ;
@ -228,5 +252,7 @@ forth definitions web
: text 0 7 call ; : text 0 7 call ;
$ffffff value color $ffffff value color
: box ( x y w h -- ) color 8 call ; : box ( x y w h -- ) color 8 call ;
: window ( w h -- ) 9 call ;
: viewport@ ( -- w h ) 10 call ;
forth definitions forth definitions