QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-09-19 20:14:58 +00:00
Code Issues Releases Wiki Activity

Added Preset keyword.

Browse source
This commit is contained in:
William Barnes 2022-04-25 13:29:12 -04:00
parent c0f5b21395
commit ea12bf28da
4 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
codemirror/qb-lang.js
View file

@ -42,7 +42,7 @@ CodeMirror.defineMode("qbjs", function(conf, parserConf) {
'_screenexists', '_sndclose', '_sndopen', '_sndplay', '_sndloop', '_sndpause', '_sndstop', '_sndvol',
'_title', '_trim', '_width', 'abs', 'asc', 'atn', 'chr', 'circle', 'cls', 'color', 'command', 'cos', 'cvi', 'cvl', 'exp',
'fix', 'hex', 'input', 'inkey', 'instr', 'int', 'lbound', 'left', 'lcase', 'len', 'line', 'locate', 'log', 'ltrim', 'mid', 'mki', 'mkl',
'oct', 'point', 'print', 'pset', 'right', 'rtrim', 'rnd', 'screen', 'shared', 'sgn', 'sin', 'sleep', 'space', 'sqr', 'str', 'swap', 'tan',
'oct', 'point', 'preset', 'print', 'pset', 'right', 'rtrim', 'rnd', 'screen', 'shared', 'sgn', 'sin', 'sleep', 'space', 'sqr', 'str', 'swap', 'tan',
'timer', 'ubound', 'ucase', 'val',
// QBJS-specific
'alert', 'confirm', 'domadd', 'domcontainer', 'domcreate', 'domevent','domget', 'domgetimage', 'domremove', 'export',

19
qb.js
View file

@ -860,6 +860,7 @@ var QB = new function() {
this.func_Point = function(x, y) {
var screen = _images[_activeImage];
var ret = 0;
if ( y == undefined ) {
if (x == 0) {
ret = screen.lastX;
@ -873,11 +874,27 @@ var QB = new function() {
} else {
var ctx = screen.ctx;
var data = ctx.getImageData(x, y, 1, 1).data;
var ret = QB.func__RGBA(data[0],data[1],data[2],data[3]);
ret = QB.func__RGBA(data[0],data[1],data[2],data[3]);
}
return ret;
};
this.sub_PReset = function(sstep, x, y, color) {
var screen = _images[_activeImage];
if (color == undefined) {
color = _bgColor;
}
else {
color = _color(color);
}
if (sstep) {
x = screen.lastX + x;
y = screen.lastY + y;
}
screen.lastX = x;
screen.lastY = y;
};
this.sub_Print = async function(args) {
// Print called with no arguments
if (args == undefined || args == null || args.length < 1) {

1
qb2js.js
View file

@ -2533,6 +2533,7 @@ if (QB.halted()) { return; }
await sub_AddQBMethod( "FUNCTION", "Mkl$", False);
await sub_AddQBMethod( "FUNCTION", "Oct$", False);
await sub_AddQBMethod( "FUNCTION", "Point", False);
await sub_AddQBMethod( "SUB", "PReset", False);
await sub_AddQBMethod( "SUB", "Print", True);
await sub_AddQBMethod( "SUB", "PSet", False);
await sub_AddQBMethod( "FUNCTION", "Right$", False);

1
tools/qb2js.bas
View file

@ -2675,6 +2675,7 @@ Sub InitQBMethods
AddQBMethod "FUNCTION", "Mkl$", False
AddQBMethod "FUNCTION", "Oct$", False
AddQBMethod "FUNCTION", "Point", False
AddQBMethod "SUB", "PReset", False
AddQBMethod "SUB", "Print", True
AddQBMethod "SUB", "PSet", False
AddQBMethod "FUNCTION", "Right$", False