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

More bindings.

Browse Source
This commit is contained in:
Brad Nelson
2022-11-19 00:54:45 -08:00
parent 7758bd3ba7
commit d5675806fc
1 changed files with 36 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
web/platform.fs
View File

@ -621,21 +621,52 @@ JSWORD: grmode { mode }
: gr 1 grmode ; : gr 1 grmode ;
: text 0 grmode ; : text 0 grmode ;
JSWORD: fillcolor! { c } JSWORD: color! { c }
function HexDig(n) { function HexDig(n) {
return ('0' + n.toString(16)).slice(-2); return ('0' + n.toString(16)).slice(-2);
} }
context.ctx.fillStyle = '#' + HexDig((c >> 16) & 0xff) + context.ctx.fillStyle = '#' + HexDig((c >> 16) & 0xff) +
HexDig((c >> 8) & 0xff) + HexDig((c >> 8) & 0xff) +
HexDig(c & 0xff); HexDig(c & 0xff);
context.ctx.strokeStyle = '#' + HexDig((c >> 16) & 0xff) +
HexDig((c >> 8) & 0xff) +
HexDig(c & 0xff);
~ ~
JSWORD: rawbox { x y w h } JSWORD: lineWidth { w -- }
context.ctx.lineWidth = w;
~
JSWORD: box { x y w h }
context.ctx.fillRect(x, y, w, h); context.ctx.fillRect(x, y, w, h);
~ ~
$ffffff value color JSWORD: beginPath { }
: box ( x y w h -- ) color fillcolor! rawbox ; context.ctx.beginPath();
~
JSWORD: moveTo { x y }
context.ctx.moveTo(x, y);
~
JSWORD: lineTo { x y }
context.ctx.lineTo(x, y);
~
JSWORD: stroke { }
context.ctx.stroke();
~
JSWORD: fill { }
context.ctx.fill();
~
: line ( x1 y1 x2 y2 -- )
beginPath
>r >r moveTo
r> r> lineTo
stroke
;
JSWORD: window { w h } JSWORD: window { w h }
context.canvas.width = w; context.canvas.width = w;
@ -849,10 +880,9 @@ JSWORD: font { a n -- }
context.ctx.font = GetString(a, n); context.ctx.font = GetString(a, n);
~ ~
JSWORD: rawFillText { a n x y -- } JSWORD: fillText { a n x y -- }
context.ctx.fillText(GetString(a, n), x, y); context.ctx.fillText(GetString(a, n), x, y);
~ ~
: fillText ( a n x y ) color fillcolor! rawFillText ;
JSWORD: textWidth { a n -- w } JSWORD: textWidth { a n -- w }
return context.ctx.measureText(GetString(a, n)).width; return context.ctx.measureText(GetString(a, n)).width;