mirrors/Pixel-Composer
1
0
Fork 0
mirror of https://github.com/Ttanasart-pt/Pixel-Composer.git synced 2025-02-13 05:35:23 +01:00
Code Issues Projects Releases Packages Wiki Activity

gmedit migration

Browse source
This commit is contained in:
Tanasart 2023-08-08 11:42:01 +02:00
parent 98e6f416b4
commit fa00d1e2b2
14 changed files with 5756 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

246
#backups/scripts/globals/globals.gml.backup0 Normal file
View file

@ -0,0 +1,246 @@
// 2023-08-07 09:56:48
#region save
globalvar LOADING, APPENDING, CLONING, SAFE_MODE;
globalvar CONNECTION_CONFLICT, ALWAYS_FULL;
LOADING = false;
CLONING = false;
APPENDING = false;
SAFE_MODE = false;
CONNECTION_CONFLICT = ds_queue_create();
randomize();
ALWAYS_FULL = false;
#endregion
#region project
function Project() constructor {
active = true; /// @is {bool}
path = ""; /// @is {string}
version = SAVE_VERSION; /// @is {number}
seed = irandom_range(100000, 999999); /// @is {number}
modified = false; /// @is {bool}
readonly = false; /// @is {bool}
nodes = ds_list_create();
nodeMap = ds_map_create();
nodeNameMap = ds_map_create();
animator = new AnimationManager();
globalNode = new Node_Global();
previewGrid = {
show : false,
snap : false,
width : 16,
height : 16,
opacity : 0.5,
color : COLORS.panel_preview_grid,
}
graphGrid = {
show : true,
snap : true,
size : 32,
opacity : 0.05,
color : c_white,
}
addons = {};
onion_skin = {
enabled: false,
range: [ -1, 1 ],
step: 1,
color: [ c_red, c_blue ],
alpha: 0.5,
on_top: true,
};
attributes = {
surface_dimension: [ 32, 32 ],
palette: [ c_black, c_white ]
}
attributeEditor = [
[ "Default Surface", "surface_dimension", new vectorBox(2, function(ind, val) { attributes.surface_dimension[ind] = val; }) ],
[ "Palette", "palette", new buttonPalette(function(pal) { attributes.palette = pal; }) ],
]
static cleanup = function() {
if(!ds_map_empty(nodeMap))
array_map(ds_map_keys_to_array(nodeMap), function(_key, _ind) { nodeMap[? _key].active = false; });
ds_list_destroy(nodes);
ds_map_destroy(nodeMap);
ds_map_destroy(nodeNameMap);
}
}
globalvar PROJECTS; /// @is {Project[]}
globalvar PROJECT; /// @is {Project}
gml_pragma("global", "__init()");
function __init() {
PROJECT = new Project();
PROJECTS = [ PROJECT ];
}
#endregion
#region main
globalvar OS, DEBUG, THEME, COLOR_KEYS;
OS = os_type;
//OS = os_macosx;
DEBUG = false;
THEME = new Theme();
COLOR_KEYS = [];
globalvar VERSION, SAVE_VERSION, VERSION_STRING, BUILD_NUMBER;
VERSION = 11484;
SAVE_VERSION = 11482;
VERSION_STRING = "1.15rc4";
BUILD_NUMBER = 11484;
globalvar APPEND_MAP;
APPEND_MAP = ds_map_create();
globalvar HOTKEYS, HOTKEY_CONTEXT;
HOTKEYS = ds_map_create();
HOTKEY_CONTEXT = ds_list_create();
HOTKEY_CONTEXT[| 0] = "";
globalvar CURSOR, TOOLTIP, DRAGGING, DIALOG_DEPTH_HOVER;
globalvar UPDATE, RENDER_QUEUE;
#endregion
#region inputs
globalvar FOCUS, FOCUS_STR, HOVER, HOVERING_ELEMENT, _HOVERING_ELEMENT;
globalvar DOUBLE_CLICK, DOUBLE_CLICK_POS;
globalvar DIALOG_CLICK;
DOUBLE_CLICK_POS = [ 0, 0 ];
DOUBLE_CLICK = false;
FOCUS = noone;
FOCUS_STR = "";
HOVER = noone;
HOVERING_ELEMENT = noone;
_HOVERING_ELEMENT = noone;
DIALOG_CLICK = true;
globalvar ADD_NODE_PAGE;
ADD_NODE_PAGE = 0;
#endregion
#region macro
#macro WIN_W window_get_width()
#macro WIN_H window_get_height()
#macro WIN_SW window_get_width()
#macro WIN_SH window_get_height()
#macro UI_SCALE PREF_MAP[? "display_scaling"]
#macro mouse_mx device_mouse_x_to_gui(0)
#macro mouse_my device_mouse_y_to_gui(0)
#macro mouse_raw_x (device_mouse_raw_x(0) + window_get_x())
#macro mouse_raw_y (device_mouse_raw_y(0) + window_get_y())
#macro mouse_ui [device_mouse_x_to_gui(0), device_mouse_y_to_gui(0)]
#macro sFOCUS FOCUS == self.id
#macro sHOVER HOVER == self.id
#macro DELTA_TIME delta_time / 1_000_000
#macro CONF_TESTING false
globalvar TESTING, TEST_ERROR;
TESTING = CONF_TESTING;
TEST_ERROR = false;
#macro DEMO false
#macro ItchDemo:DEMO true
#macro SteamDemo:DEMO true
#macro MacAlpha:DEMO true
#macro ALPHA false
#macro MacAlpha:ALPHA true
#region color
#macro c_ui_blue_dkblack $251919
#macro c_ui_blue_mdblack $2c1e1e
#macro c_ui_blue_black $362727
#macro c_ui_blue_dkgrey $4e3b3b
#macro c_ui_blue_grey $816d6d
#macro c_ui_blue_ltgrey $8f7e7e
#macro c_ui_blue_white $e8d6d6
#macro c_ui_cyan $e9ff88
#macro c_ui_yellow $78e4ff
#macro c_ui_orange $6691ff
#macro c_ui_orange_light $92c2ff
#macro c_ui_red $4b00eb
#macro c_ui_pink $b700eb
#macro c_ui_purple $d40092
#macro c_ui_lime_dark $38995e
#macro c_ui_lime $5dde8f
#macro c_ui_lime_light $b2ffd0
#macro c_ui_white $ffffff
#endregion
#macro printlog if(log) show_debug_message
#macro RETURN_ON_REST if(!PROJECT.animator.is_playing || !PROJECT.animator.frame_progress) return;
#macro PANEL_PAD THEME_VALUE.panel_padding
function print(str) {
//show_debug_message(string(str));
noti_status(string(str));
}
function printIf(cond, log) {
if(!cond) return;
show_debug_message(log);
}
#endregion
#region presets
function INIT_FOLDERS() {
if(!directory_exists(DIRECTORY + "Palettes"))
directory_create(DIRECTORY + "Palettes");
if(!directory_exists(DIRECTORY + "Gradients"))
directory_create(DIRECTORY + "Gradients");
}
#endregion
#region default
globalvar DEF_SURFACE, USE_DEF;
DEF_SURFACE = noone;
USE_DEF = -10;
function DEF_SURFACE_RESET() {
if(is_surface(DEF_SURFACE)) return;
DEF_SURFACE = surface_create_valid(32, 32);
surface_set_target(DEF_SURFACE);
draw_clear(c_white);
surface_reset_target();
}
DEF_SURFACE_RESET();
#endregion
#region PATCH
#macro PATCH_STATIC static _doUpdate = function() { doUpdate() };
#endregion
#region debug
global.FLAG = {};
#endregion

246
#backups/scripts/globals/globals.gml.backup1 Normal file
View file

@ -0,0 +1,246 @@
// 2023-08-07 09:55:37
#region save
globalvar LOADING, APPENDING, CLONING, SAFE_MODE;
globalvar CONNECTION_CONFLICT, ALWAYS_FULL;
LOADING = false;
CLONING = false;
APPENDING = false;
SAFE_MODE = false;
CONNECTION_CONFLICT = ds_queue_create();
randomize();
ALWAYS_FULL = false;
#endregion
#region project
function Project() constructor {
active = true; /// @is {bool}
path = ""; /// @is {string}
version = SAVE_VERSION; /// @is {number}
seed = irandom_range(100000, 999999); /// @is {number}
modified = false; /// @is {bool}
readonly = false; /// @is {bool}
nodes = ds_list_create();
nodeMap = ds_map_create();
nodeNameMap = ds_map_create();
animator = new AnimationManager();
globalNode = new Node_Global();
previewGrid = {
show : false,
snap : false,
width : 16,
height : 16,
opacity : 0.5,
color : COLORS.panel_preview_grid,
}
graphGrid = {
show : true,
snap : true,
size : 32,
opacity : 0.05,
color : c_white,
}
addons = {};
onion_skin = {
enabled: false,
range: [ -1, 1 ],
step: 1,
color: [ c_red, c_blue ],
alpha: 0.5,
on_top: true,
};
attributes = {
surface_dimension: [ 32, 32 ],
palette: [ c_black, c_white ]
}
attributeEditor = [
[ "Default Surface", "surface_dimension", new vectorBox(2, function(ind, val) { attributes.surface_dimension[ind] = val; }) ],
[ "Palette", "palette", new buttonPalette(function(pal) { attributes.palette = pal; }) ],
]
static cleanup = function() {
if(!ds_map_empty(nodeMap))
array_map(ds_map_keys_to_array(nodeMap), function(_key, _ind) { nodeMap[? _key].active = false; });
ds_list_destroy(nodes);
ds_map_destroy(nodeMap);
ds_map_destroy(nodeNameMap);
}
}
globalvar PROJECTS; /// @is {Project[]}
globalvar PROJECT; /// @is {Project}
gml_pragma("global", "__init()");
function __init() {
PROJECT = new Project();
PROJECTS = [ PROJECT ];
}
#endregion
#region main
globalvar OS, DEBUG, THEME, COLOR_KEYS;
OS = os_type;
//OS = os_macosx;
DEBUG = false;
THEME = new Theme();
COLOR_KEYS = [];
globalvar VERSION, SAVE_VERSION, VERSION_STRING, BUILD_NUMBER;
VERSION = 11484;
SAVE_VERSION = 11482;
VERSION_STRING = "1.15rc4";
BUILD_NUMBER = 11484;
globalvar APPEND_MAP;
APPEND_MAP = ds_map_create();
globalvar HOTKEYS, HOTKEY_CONTEXT;
HOTKEYS = ds_map_create();
HOTKEY_CONTEXT = ds_list_create();
HOTKEY_CONTEXT[| 0] = "";
globalvar CURSOR, TOOLTIP, DRAGGING, DIALOG_DEPTH_HOVER;
globalvar UPDATE, RENDER_QUEUE;
#endregion
#region inputs
globalvar FOCUS, FOCUS_STR, HOVER, HOVERING_ELEMENT, _HOVERING_ELEMENT;
globalvar DOUBLE_CLICK, DOUBLE_CLICK_POS;
globalvar DIALOG_CLICK;
DOUBLE_CLICK_POS = [ 0, 0 ];
DOUBLE_CLICK = false;
FOCUS = noone;
FOCUS_STR = "";
HOVER = noone;
HOVERING_ELEMENT = noone;
_HOVERING_ELEMENT = noone;
DIALOG_CLICK = true;
globalvar ADD_NODE_PAGE;
ADD_NODE_PAGE = 0;
#endregion
#region macro
#macro WIN_W window_get_width()
#macro WIN_H window_get_height()
#macro WIN_SW window_get_width()
#macro WIN_SH window_get_height()
#macro UI_SCALE PREF_MAP[? "display_scaling"]
#macro mouse_mx device_mouse_x_to_gui(0)
#macro mouse_my device_mouse_y_to_gui(0)
#macro mouse_raw_x (device_mouse_raw_x(0) + window_get_x())
#macro mouse_raw_y (device_mouse_raw_y(0) + window_get_y())
#macro mouse_ui [device_mouse_x_to_gui(0), device_mouse_y_to_gui(0)]
#macro sFOCUS FOCUS == self.id
#macro sHOVER HOVER == self.id
#macro DELTA_TIME delta_time / 1_000_000
#macro CONF_TESTING false
globalvar TESTING, TEST_ERROR;
TESTING = CONF_TESTING;
TEST_ERROR = false;
#macro DEMO false
#macro ItchDemo:DEMO true
#macro SteamDemo:DEMO true
#macro MacAlpha:DEMO true
#macro ALPHA false
#macro MacAlpha:ALPHA true
#region color
#macro c_ui_blue_dkblack $251919
#macro c_ui_blue_mdblack $2c1e1e
#macro c_ui_blue_black $362727
#macro c_ui_blue_dkgrey $4e3b3b
#macro c_ui_blue_grey $816d6d
#macro c_ui_blue_ltgrey $8f7e7e
#macro c_ui_blue_white $e8d6d6
#macro c_ui_cyan $e9ff88
#macro c_ui_yellow $78e4ff
#macro c_ui_orange $6691ff
#macro c_ui_orange_light $92c2ff
#macro c_ui_red $4b00eb
#macro c_ui_pink $b700eb
#macro c_ui_purple $d40092
#macro c_ui_lime_dark $38995e
#macro c_ui_lime $5dde8f
#macro c_ui_lime_light $b2ffd0
#macro c_ui_white $ffffff
#endregion
#macro printlog if(log) show_debug_message
#macro RETURN_ON_REST if(!PROJECT.animator.is_playing || !PROJECT.animator.frame_progress) return;
#macro PANEL_PAD THEME_VALUE.panel_padding
function print(str) {
//show_debug_message(string(str));
noti_status(string(str));
}
function printIf(cond, log) {
if(!cond) return;
show_debug_message(log);
}
#endregion
#region presets
function INIT_FOLDERS() {
if(!directory_exists(DIRECTORY + "Palettes"))
directory_create(DIRECTORY + "Palettes");
if(!directory_exists(DIRECTORY + "Gradients"))
directory_create(DIRECTORY + "Gradients");
}
#endregion
#region default
globalvar DEF_SURFACE, USE_DEF;
DEF_SURFACE = noone;
USE_DEF = -10;
function DEF_SURFACE_RESET() {
if(is_surface(DEF_SURFACE)) return;
DEF_SURFACE = surface_create_valid(32, 32);
surface_set_target(DEF_SURFACE);
draw_clear(c_white);
surface_reset_target();
}
DEF_SURFACE_RESET();
#endregion
#region PATCH
#macro PATCH_STATIC static _doUpdate = function() { doUpdate() };
#endregion
#region debug
global.FLAG = {};
#endregion

1543
#backups/scripts/node_data/node_data.gml.backup0 Normal file
View file

File diff suppressed because it is too large Load diff

1543
#backups/scripts/node_data/node_data.gml.backup1 Normal file
View file

File diff suppressed because it is too large Load diff

200
#backups/scripts/pxl_server/pxl_server.gml.backup0 Normal file
View file

@ -0,0 +1,200 @@
// 2023-08-07 09:44:13
global.NODE_SUB_CATAG = [ "input", "output" ];
function pxl_document_parser(prompt) {
var params = [];
var lines = string_split(prompt, "\n");
for( var i = 0, n = array_length(lines); i < n; i++ ) {
var line = lines[i];
line = functionStringClean(line);
var eq = string_split(line, "=");
if(array_length(eq) > 1) {
for( var j = 0; j < array_length(eq) - 1; j++ )
array_push_unique(params, string_trim(eq[j]));
}
}
return params;
}
function pxl_autocomplete_server(prompt, params = []) {
var res = [];
var pr_list = ds_priority_create();
//////////////////////////////////
ds_priority_clear(pr_list);
for( var i = 0, n = array_length(params); i < n; i++ ) {
var gl = params[i];
var match = string_partial_match(string_lower(gl), string_lower(prompt));
if(match == -9999) continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 2], gl, "local", gl], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var _arr = variable_struct_get_names(PROJECT_VARIABLES);
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var gl = _arr[i];
var match = string_partial_match(string_lower(gl), string_lower(prompt));
if(match == -9999) continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 0], gl, "global", gl], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = PROJECT.globalNode.value;
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(prompt));
if(match == -9999) {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? prompt];
ds_priority_add(pr_list, [[THEME.ac_constant, 0], k, "global", k], match);
k = ds_map_find_next(F, k);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var sp = string_splice(prompt, ".");
if(array_length(sp) > 1) {
if(struct_has(PROJECT_VARIABLES, sp[0])) {
var _glo_var = PROJECT_VARIABLES[$ sp[0]];
var _arr = variable_struct_get_names(_glo_var);
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var _key = _arr[i];
var match = string_partial_match(string_lower(_key), string_lower(sp[1]));
if(match == -9999 && sp[1] != "")
continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 0], _key, sp[0], $"{sp[0]}.{_key}"], match);
}
} else if(ds_map_exists(PROJECT.nodeNameMap, sp[0])) {
if(array_length(sp) == 2) {
for( var i = 0, n = array_length(global.NODE_SUB_CATAG); i < n; i++ ) {
var gl = global.NODE_SUB_CATAG[i];
var match = string_partial_match(string_lower(gl), string_lower(sp[1]));
if(match == -9999 && sp[1] != "") continue;
ds_priority_add(pr_list, [[THEME.ac_node, i], gl, sp[0], $"{sp[0]}.{gl}"], match);
}
} else if(array_length(sp) == 3) {
var node = PROJECT.nodeNameMap[? sp[0]];
var F = noone;
var tag = "";
switch(string_lower(sp[1])) {
case "inputs" :
case "input" :
F = node.inputMap;
tag = "input";
break;
case "outputs" :
case "output" :
F = node.outputMap;
tag = "output";
break;
default : return 0;
}
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(sp[2]));
if(match == -9999 && sp[2] != "") {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? k];
ds_priority_add(pr_list, [fn.junction_drawing, k, sp[0] + "." + tag, $"{sp[0]}.{sp[1]}.{k}"], match);
k = ds_map_find_next(F, k);
}
}
}
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = PROJECT.nodeNameMap;
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(prompt));
if(match == -9999) {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? prompt];
ds_priority_add(pr_list, [[THEME.ac_constant, 1], k, "node", k], match);
k = ds_map_find_next(F, k);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = global.FUNCTIONS;
var _keys = ds_map_keys_to_array(F);
for( var i = 0, n = array_length(_keys); i < n; i++ ) {
var _key = _keys[i];
var match = string_partial_match(string_lower(_key), string_lower(prompt));
if(match == -9999)
continue;
ds_priority_add(pr_list, [[THEME.ac_function, 0], _key, "function", _key], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
ds_priority_destroy(pr_list);
return res;
}
function pxl_function_guide_server(prompt) {
if(!ds_map_exists(global.FUNCTIONS, prompt)) return "";
var fn = global.FUNCTIONS[? prompt];
var guide = prompt + "(";
for( var i = 0, n = array_length(fn[0]); i < n; i++ )
guide += (i? ", " : "") + string(fn[0][i]);
guide += ")";
return guide;
}

200
#backups/scripts/pxl_server/pxl_server.gml.backup1 Normal file
View file

@ -0,0 +1,200 @@
// 2023-08-07 09:44:07
global.NODE_SUB_CATAG = [ "input", "output" ];
function pxl_document_parser(prompt) {
var params = [];
var lines = string_split(prompt, "\n");
for( var i = 0, n = array_length(lines); i < n; i++ ) {
var line = lines[i];
line = functionStringClean(line);
var eq = string_split(line, "=");
if(array_length(eq) > 1) {
for( var j = 0; j < array_length(eq) - 1; j++ )
array_push_unique(params, string_trim(eq[j]));
}
}
return params;
}
function pxl_autocomplete_server(prompt, params = []) {
var res = [];
var pr_list = ds_priority_create();
//////////////////////////////////
ds_priority_clear(pr_list);
for( var i = 0, n = array_length(params); i < n; i++ ) {
var gl = params[i];
var match = string_partial_match(string_lower(gl), string_lower(prompt));
if(match == -9999) continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 2], gl, "local", gl], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var _arr = variable_struct_get_names(PROJECT_VARIABLES);
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var gl = _arr[i];
var match = string_partial_match(string_lower(gl), string_lower(prompt));
if(match == -9999) continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 0], gl, "global", gl], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = PROJECT.globalNode.value;
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(prompt));
if(match == -9999) {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? prompt];
ds_priority_add(pr_list, [[THEME.ac_constant, 0], k, "global", k], match);
k = ds_map_find_next(F, k);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var sp = string_splice(prompt, ".");
if(array_length(sp) > 1) {
if(struct_has(PROJECT_VARIABLES, sp[0])) {
var _glo_var = PROJECT_VARIABLES[$ sp[0]];
var _arr = variable_struct_get_names(_glo_var);
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var _key = _arr[i];
var match = string_partial_match(string_lower(_key), string_lower(sp[1]));
if(match == -9999 && sp[1] != "")
continue;
ds_priority_add(pr_list, [[THEME.ac_constant, 0], _key, sp[0], $"{sp[0]}.{_key}"], match);
}
} else if(ds_map_exists(PROJECT.nodeNameMap, sp[0])) {
if(array_length(sp) == 2) {
for( var i = 0, n = array_length(global.NODE_SUB_CATAG); i < n; i++ ) {
var gl = global.NODE_SUB_CATAG[i];
var match = string_partial_match(string_lower(gl), string_lower(sp[1]));
if(match == -9999 && sp[1] != "") continue;
ds_priority_add(pr_list, [[THEME.ac_node, i], gl, sp[0], $"{sp[0]}.{gl}"], match);
}
} else if(array_length(sp) == 3) {
var node = PROJECT.nodeNameMap[? sp[0]];
var F = noone;
var tag = "";
switch(string_lower(sp[1])) {
case "inputs" :
case "input" :
F = node.inputMap;
tag = "input";
break;
case "outputs" :
case "output" :
F = node.outputMap;
tag = "output";
break;
default : return 0;
}
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(sp[2]));
if(match == -9999 && sp[2] != "") {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? k];
ds_priority_add(pr_list, [fn.junction_drawing, k, sp[0] + "." + tag, $"{sp[0]}.{sp[1]}.{k}"], match);
k = ds_map_find_next(F, k);
}
}
}
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = PROJECT.nodeNameMap;
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(prompt));
if(match == -9999) {
k = ds_map_find_next(F, k);
continue;
}
var fn = F[? prompt];
ds_priority_add(pr_list, [[THEME.ac_constant, 1], k, "node", k], match);
k = ds_map_find_next(F, k);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
//////////////////////////////////
ds_priority_clear(pr_list);
var F = global.FUNCTIONS;
var _keys = ds_map_keys_to_array(F);
for( var i = 0, n = array_length(_keys); i < n; i++ ) {
var _key = _keys[i];
var match = string_partial_match(string_lower(_key), string_lower(prompt));
if(match == -9999)
continue;
ds_priority_add(pr_list, [[THEME.ac_function, 0], _key, "function", _key], match);
}
repeat(ds_priority_size(pr_list))
array_push(res, ds_priority_delete_max(pr_list));
ds_priority_destroy(pr_list);
return res;
}
function pxl_function_guide_server(prompt) {
if(!ds_map_exists(global.FUNCTIONS, prompt)) return "";
var fn = global.FUNCTIONS[$ prompt];
var guide = prompt + "(";
for( var i = 0, n = array_length(fn[0]); i < n; i++ )
guide += (i? ", " : "") + string(fn[0][i]);
guide += ")";
return guide;
}

841
#backups/scripts/string_eval/string_eval.gml.backup0 Normal file
View file

@ -0,0 +1,841 @@
// 2023-08-07 09:46:17
#region data
global.LOG_EXPRESSION = false;
global.EVALUATE_HEAD = noone;
global.EQUATION_PRES = ds_map_create();
global.EQUATION_PRES[? "+"] = 1;
global.EQUATION_PRES[? "-"] = 1;
global.EQUATION_PRES[? "∸"] = 9; //unary negative
global.EQUATION_PRES[? "*"] = 2;
global.EQUATION_PRES[? "/"] = 2;
global.EQUATION_PRES[? "%"] = 2;
global.EQUATION_PRES[? "$"] = 3;
global.EQUATION_PRES[? "&"] = 5;
global.EQUATION_PRES[? "|"] = 4;
global.EQUATION_PRES[? "^"] = 3;
global.EQUATION_PRES[? "<"] = 3;
global.EQUATION_PRES[? "»"] = 6;
global.EQUATION_PRES[? "«"] = 6;
global.EQUATION_PRES[? "~"] = 9;
global.EQUATION_PRES[? "="] = -99;
global.EQUATION_PRES[? "⊕"] = -99; //+=
global.EQUATION_PRES[? "⊖"] = -99; //-=
global.EQUATION_PRES[? "⊗"] = -99; //*=
global.EQUATION_PRES[? "⊘"] = -99; ///=
global.EQUATION_PRES[? "⩵"] = -1; //==
global.EQUATION_PRES[? "≠"] = -1; //!=
global.EQUATION_PRES[? "<"] = 0;
global.EQUATION_PRES[? ">"] = 0;
global.EQUATION_PRES[? "≤"] = 0;
global.EQUATION_PRES[? "≥"] = 0;
global.EQUATION_PRES[? "@"] = 5; //array accerssor symbol
global.FUNCTIONS = ds_map_create();
global.FUNCTIONS[? "sin"] = [ ["radian"], function(val) { return sin(val[0]); } ];
global.FUNCTIONS[? "cos"] = [ ["radian"], function(val) { return cos(val[0]); } ];
global.FUNCTIONS[? "tan"] = [ ["radian"], function(val) { return tan(val[0]); } ];
global.FUNCTIONS[? "abs"] = [ ["number"], function(val) { return abs(val[0]); } ];
global.FUNCTIONS[? "round"] = [ ["number"], function(val) { return round(val[0]); } ];
global.FUNCTIONS[? "ceil"] = [ ["number"], function(val) { return ceil(val[0]); } ];
global.FUNCTIONS[? "floor"] = [ ["number"], function(val) { return floor(val[0]); } ];
global.FUNCTIONS[? "lerp"] = [ ["number_0", "number_1", "amount"], function(val) { return lerp(array_safe_get(val, 0), array_safe_get(val, 1), array_safe_get(val, 2)); } ];
global.FUNCTIONS[? "wiggle"] = [ ["time", "frequency", "octave = 1", "seed = 0"], function(val) {
return wiggle(0, 1, PROJECT.animator.frameTotal / array_safe_get(val, 1),
array_safe_get(val, 0),
array_safe_get(val, 3, 0),
array_safe_get(val, 2, 1));
} ];
global.FUNCTIONS[? "random"] = [ ["min = 0", "max = 1"], function(val) {
return random_range(array_safe_get(val, 0, 0),
array_safe_get(val, 1, 1));
} ];
global.FUNCTIONS[? "irandom"] = [ ["min = 0", "max = 1"], function(val) {
return irandom_range(array_safe_get(val, 0, 0),
array_safe_get(val, 1, 1));
} ];
global.FUNCTIONS[? "range"] = [ ["length", "start = 0", "step = 1"], function(val) {
var arr = array_create(array_safe_get(val, 0, 0));
for( var i = 0, n = array_length(arr); i < n; i++ )
arr[i] = array_safe_get(val, 1, 0) + i * array_safe_get(val, 2, 1);
return arr;
} ];
globalvar PROJECT_VARIABLES;
PROJECT_VARIABLES = {};
PROJECT_VARIABLES.Project = {};
PROJECT_VARIABLES.Project.frame = () => PROJECT.animator.current_frame;
PROJECT_VARIABLES.Project.progress = () => PROJECT.animator.current_frame / (PROJECT.animator.frames_total - 1);
PROJECT_VARIABLES.Project.frameTotal = () => PROJECT.animator.frames_total;
PROJECT_VARIABLES.Project.fps = () => PROJECT.animator.framerate;
PROJECT_VARIABLES.Project.time = () => PROJECT.animator.current_frame / PROJECT.animator.framerate;
PROJECT_VARIABLES.Project.name = () => filename_name_only(PROJECT.path);
PROJECT_VARIABLES.Program = {};
PROJECT_VARIABLES.Program.time = () => current_time / 1000;
PROJECT_VARIABLES.Device = {};
PROJECT_VARIABLES.Device.timeSecond = () => current_second;
PROJECT_VARIABLES.Device.timeMinute = () => current_minute;
PROJECT_VARIABLES.Device.timeHour = () => current_hour;
PROJECT_VARIABLES.Device.timeDay = () => current_day;
PROJECT_VARIABLES.Device.timeDayInWeek = () => current_weekday;
PROJECT_VARIABLES.Device.timeMonth = () => current_month;
PROJECT_VARIABLES.Device.timeYear = () => current_year;
#endregion
function functionStringClean(fx) {
var ch = "", ind = 0, len = string_length(fx);
var _fx = "", str = false;
while(ind++ <= len) {
ch = string_char_at(fx, ind);
if(ch == " ") {
if(str)
_fx += ch;
} else
_fx += ch;
if(ch == "\"")
str = !str;
}
fx = _fx;
fx = string_replace_all(fx, "\n", "");
fx = string_replace_all(fx, "**", "$");
fx = string_replace_all(fx, "<<", "«");
fx = string_replace_all(fx, ">>", "»");
fx = string_replace_all(fx, "==", "⩵");
fx = string_replace_all(fx, "!=", "≠");
fx = string_replace_all(fx, "<>", "≠");
fx = string_replace_all(fx, ">=", "≥");
fx = string_replace_all(fx, "<=", "≤");
fx = string_replace_all(fx, "++", "⊕1");
fx = string_replace_all(fx, "--", "⊖1");
fx = string_replace_all(fx, "+=", "⊕");
fx = string_replace_all(fx, "-=", "⊖");
fx = string_replace_all(fx, "*=", "⊗");
fx = string_replace_all(fx, "/=", "⊘");
fx = string_trim(fx);
return fx;
}
#region evaluator
enum EXPRESS_TREE_ANIM {
none,
base_value,
animated
}
function __funcList() constructor {
funcTrees = [];
static addFunction = function(fn) {
array_push(funcTrees, fn);
}
static validate = function() {
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
if(!funcTrees[i].validate())
return false;
return true;
}
static isAnimated = function() {
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
if(!funcTrees[i].isAnimated())
return false;
return true;
}
static eval = function(params = {}) {
//var _params = variable_clone(params);
var val = 0;
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
val = funcTrees[i].eval(params);
return val;
}
}
function __funcIf() constructor {
condition = noone;
if_true = new __funcList();
if_false = new __funcList();
static validate = function() {
if(condition != noone && !condition.validate()) return false;
if(if_true != noone && !if_true.validate()) return false;
if(if_false != noone && !if_false.validate()) return false;
return true;
}
static isAnimated = function() {
if(condition != noone && !condition.isAnimated()) return false;
if(if_true != noone && !if_true.isAnimated()) return false;
if(if_false != noone && !if_false.isAnimated()) return false;
return true;
}
static eval = function(params = {}) {
if(condition == noone) return 0;
var res = condition.eval(params);
printIf(global.LOG_EXPRESSION, $"<<<<<< IF {res} >>>>>>");
if(res) return if_true == noone? 0 : if_true.eval(params);
else return if_false == noone? 0 : if_false.eval(params);
}
}
function __funcFor() constructor {
itr_array = false;
cond_init = noone;
cond_indx = noone;
cond_iter = noone;
cond_term = noone;
cond_arr = noone;
cond_step = 1;
action = new __funcList();
static validate = function() {
if(itr_array) {
if(cond_arr == noone || !cond_arr.validate()) return false;
} else {
if(cond_init == noone || !cond_init.validate()) return false;
if(cond_term == noone || !cond_term.validate()) return false;
}
if(action != noone && !action.validate()) return false;
return true;
}
static isAnimated = function() {
if(itr_array) {
if(cond_arr == noone || !cond_arr.isAnimated()) return false;
} else {
if(cond_init == noone || !cond_init.isAnimated()) return false;
if(cond_term == noone || !cond_term.isAnimated()) return false;
}
if(action != noone && !action.isAnimated()) return false;
return true;
}
static eval = function(params = {}) {
if(itr_array) {
var _arr = cond_arr.eval(params);
printIf(global.LOG_EXPRESSION, $"<<<<<< FOR EACH {_arr} >>>>>>");
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var val = _arr[i];
if(cond_indx != noone)
params[$ cond_indx] = i;
params[$ cond_iter] = val;
printIf(global.LOG_EXPRESSION, $"<< ITER {i}: {cond_iter} = {val} >>");
action.eval(params);
}
} else {
printIf(global.LOG_EXPRESSION, "<< FOR >>");
cond_init.eval(params);
while(cond_term.eval(params)) {
action.eval(params);
cond_iter.eval(params);
}
}
}
}
function __funcTree(symbol, l = noone, r = noone) constructor {
self.symbol = symbol;
self.l = l;
self.r = r;
dependency = [];
static _string = function(str) {
return string_char_at(str, 1) == "\"" && string_char_at(str, string_length(str)) == "\"";
}
static _string_trim = function(str) {
return string_trim(str, [ "\"" ]);
}
static getVal = function(val, params = {}, getRaw = false) {
if(is_struct(val)) return val.eval(params, getRaw);
if(is_real(val)) return val;
if(getRaw) return val;
if(is_string(val)) val = string_trim(val);
//printIf(global.LOG_EXPRESSION, $" [ get struct {params}[{val}] ]");
if(struct_has(params, val))
return struct_try_get(params, val);
val = string_trim(val);
if(_string(val))
return _string_trim(val);
return nodeGetData(val);
}
static _validate = function(val) {
if(is_real(val)) return true;
if(is_string(val)) return true;
if(is_struct(val)) return val.validate();
if(val == "value") return true;
if(PROJECT.globalNode.inputExist(val)) return true;
var strs = string_splice(val, ".");
if(array_length(strs) < 2) return false;
if(struct_has(PROJECT_VARIABLES, strs[0]))
return struct_has(PROJECT_VARIABLES[$ strs[0]], strs[1]);
if(!ds_map_exists(PROJECT.nodeNameMap, strs[0]))
return false;
array_push_unique(dependency, strs[0]);
return true;
}
static validate = function() {
dependency = [];
if(ds_map_exists(global.FUNCTIONS, symbol)) {
if(!is_array(l)) return false;
for( var i = 0, n = array_length(l); i < n; i++ )
if(!_validate(l[i])) return false;
return true;
}
switch(symbol) {
case "@": return _validate(l);
case "【": return true;
case "": return true;
}
return _validate(l) && _validate(r);
}
static _isAnimated = function(val) {
if(is_real(val)) return EXPRESS_TREE_ANIM.none;
if(is_struct(val)) return val._isAnimated();
if(val == "value") return EXPRESS_TREE_ANIM.base_value;
if(PROJECT.globalNode.inputExist(val)) {
var _inp = PROJECT.globalNode.getInput(val);
if(_inp.is_anim) return EXPRESS_TREE_ANIM.animated;
}
return EXPRESS_TREE_ANIM.none;
}
static isAnimated = function() {
var anim = EXPRESS_TREE_ANIM.none;
anim = max(anim, _isAnimated(l));
if(symbol != "@")
anim = max(anim, _isAnimated(r));
return anim;
}
static eval = function(params = {}, isLeft = false) {
if(ds_map_exists(global.FUNCTIONS, symbol)) {
if(!is_array(l)) return 0;
var _fn = global.FUNCTIONS[? symbol];
var _ev = _fn[1];
var _l = array_create(array_length(l));
for( var i = 0, n = array_length(l); i < n; i++ )
_l[i] = getVal(l[i], params);
var res = _ev(_l);
printIf(global.LOG_EXPRESSION, $"Function {symbol}{_l} = {res}");
printIf(global.LOG_EXPRESSION, "====================");
return res;
}
var getRaw = false;
switch(symbol) {
case "=":
case "【":
getRaw = true;
}
var v1 = getVal(l, params, getRaw || isLeft);
var v2 = getVal(r, params);
var res = 0;
if(symbol == "") {
res = v1;
} else if(symbol == "【") { //array builder
res = array_create(array_length(v1));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = getVal(v1[i], params);
} else if(symbol == "@") {
if(isLeft) res = [ v1, v2 ];
else res = is_real(v2)? array_safe_get(v1, v2) : 0;
} else if(symbol == "=") {
if(is_array(v1)) {
var val = params[$ v1[0]];
val = array_safe_set(val, v1[1], v2);
params[$ v1[0]] = val;
res = val;
} else {
params[$ v1] = v2;
res = v2;
}
} else if(is_array(v1) && !is_array(v2)) {
res = array_create(array_length(v1));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(array_safe_get(v1, i), v2);
} else if(!is_array(v1) && is_array(v2)) {
res = array_create(array_length(v2));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(v1, array_safe_get(v2, i));
} else if(is_array(v1) && is_array(v2)) {
res = array_create(max(array_length(v1), array_length(v2)));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(array_safe_get(v1, i), array_safe_get(v2, i));
} else
res = eval_real(v1, v2);
var _v1_var = getVal(l, params, true);
switch(symbol) {
case "⊕":
case "⊖":
case "⊗":
case "⊘":
if(is_array(_v1_var)) {
var val = params[$ _v1_var[0]];
val = array_safe_set(val, _v1_var[1], res);
params[$ _v1_var[0]] = val;
} else
params[$ _v1_var] = res;
printIf(global.LOG_EXPRESSION, $"|{_v1_var}| = {v1}|{symbol}|{v2}| = {res}");
printIf(global.LOG_EXPRESSION, $"symbol : {symbol}");
printIf(global.LOG_EXPRESSION, $"l : | {typeof(l)} |{l}|");
printIf(global.LOG_EXPRESSION, $"r : | {typeof(r)} |{r}|");
printIf(global.LOG_EXPRESSION, "====================");
break;
default:
printIf(global.LOG_EXPRESSION, $"|{v1}|{symbol}|{v2}| = {res}");
printIf(global.LOG_EXPRESSION, $"symbol : {symbol}");
printIf(global.LOG_EXPRESSION, $"l : | {typeof(l)} |{l}|");
printIf(global.LOG_EXPRESSION, $"r : | {typeof(r)} |{r}|");
printIf(global.LOG_EXPRESSION, "====================");
break;
}
return res;
}
static eval_real = function(v1, v2, _symbol = symbol) {
switch(_symbol) {
case "+":
case "⊕":
if(is_string(v1) || is_string(v2)) return string(v1) + string(v2);
if(is_real(v1) && is_real(v2)) return v1 + v2;
return 0;
case "-":
case "⊖": return (is_real(v1) && is_real(v2))? v1 - v2 : 0;
case "∸": return is_real(v1)? -v1 : 0;
case "*":
case "⊗": return (is_real(v1) && is_real(v2))? v1 * v2 : 0;
case "$": return (is_real(v1) && is_real(v2))? power(v1, v2) : 0;
case "/":
case "⊘": return (is_real(v1) && is_real(v2) && v2 != 0)? v1 / v2 : 0;
case "%": return (is_real(v1) && is_real(v2) && v2 != 0)? v1 % v2 : 0;
case "&": return (is_real(v1) && is_real(v2))? v1 & v2 : 0;
case "|": return (is_real(v1) && is_real(v2))? v1 | v2 : 0;
case "^": return (is_real(v1) && is_real(v2))? v1 ^ v2 : 0;
case "«": return (is_real(v1) && is_real(v2))? v1 << v2 : 0;
case "»": return (is_real(v1) && is_real(v2))? v1 >> v2 : 0;
case "~": return is_real(v1)? ~v1 : 0;
case "⩵": return (is_real(v1) && is_real(v2))? v1 == v2 : 0;
case "≠": return (is_real(v1) && is_real(v2))? v1 != v2 : 0;
case "≤": return (is_real(v1) && is_real(v2))? v1 <= v2 : 0;
case "≥": return (is_real(v1) && is_real(v2))? v1 >= v2 : 0;
case ">": return (is_real(v1) && is_real(v2))? v1 > v2 : 0;
case "<": return (is_real(v1) && is_real(v2))? v1 < v2 : 0;
case "sin" : return is_real(v1)? sin(v1) : 0;
case "cos" : return is_real(v1)? cos(v1) : 0;
case "tan" : return is_real(v1)? tan(v1) : 0;
case "abs" : return is_real(v1)? abs(v1) : 0;
case "round" : return is_real(v1)? round(v1) : 0;
case "ceil" : return is_real(v1)? ceil(v1) : 0;
case "floor" : return is_real(v1)? floor(v1) : 0;
}
return v1;
}
}
function functionStrip(fx) {
var el_st = 1;
var el_ed = 1;
for( var i = 1; i <= string_length(fx); i++ ) {
var cch = string_char_at(fx, i);
if(cch == "(") {
el_st = i + 1;
break;
}
}
for( var i = string_length(fx); i >= 1; i-- ) {
var cch = string_char_at(fx, i);
if(cch == ")") {
el_ed = i;
break;
}
}
return string_copy(fx, el_st, el_ed - el_st)
}
function evaluateFunctionList(fx) {
fx = string_replace_all(fx, "{", "\n{\n");
fx = string_replace_all(fx, "}", "\n}\n");
var fxs = string_split(fx, "\n", true);
var flist = new __funcList();
var call_st = ds_stack_create();
var blok_st = ds_stack_create();
ds_stack_push(call_st, flist);
for( var i = 0, n = array_length(fxs); i < n; i++ ) {
var _fx = functionStringClean(fxs[i]);
//print($"Eval line {i}: {_fx} [stack size = {ds_stack_size(call_st)}]");
if(_fx == "" || _fx == "{") continue;
if(_fx == "}") {
ds_stack_pop(call_st);
continue;
}
var _fx_sp = string_split(_fx, "(");
var _cmd = string_trim(_fx_sp[0]);
var _cond = functionStrip(_fx);
switch(_cmd) {
case "if":
var con_if = new __funcIf();
con_if.condition = evaluateFunctionTree(_cond);
ds_stack_top(call_st).addFunction(con_if);
ds_stack_push(call_st, con_if.if_true);
ds_stack_push(blok_st, con_if);
continue;
case "elseif":
var con_if = ds_stack_pop(blok_st);
var con_elif = new __funcIf();
con_elif.condition = evaluateFunctionTree(_cond);
con_if.if_false.addFunction(con_elif);
ds_stack_push(call_st, con_elif.if_true);
ds_stack_push(blok_st, con_elif);
continue;
case "else":
var con_if = ds_stack_pop(blok_st);
ds_stack_push(call_st, con_if.if_false);
continue;
case "for":
var con_for = new __funcFor();
var cond = string_splice(_cond, ":");
if(array_length(cond) == 2) {
con_for.itr_array = true;
con_for.cond_arr = evaluateFunctionTree(cond[1]);
cond[0] = string_trim(cond[0]);
var _itr = string_split(cond[0], ",");
if(array_length(_itr) == 1)
con_for.cond_iter = cond[0];
else if(array_length(_itr) == 2) {
con_for.cond_indx = string_trim(_itr[0]);
con_for.cond_iter = string_trim(_itr[1]);
}
} else if(array_length(cond) == 3) {
con_for.itr_array = false;
con_for.cond_init = evaluateFunctionTree(cond[0]);
con_for.cond_iter = evaluateFunctionTree(cond[1]);
con_for.cond_term = evaluateFunctionTree(cond[2]);
}
ds_stack_top(call_st).addFunction(con_for);
ds_stack_push(call_st, con_for.action);
continue;
}
if(ds_stack_empty(call_st)) {
print("Block stack empty, how?");
} else {
var _top = ds_stack_top(call_st);
_top.addFunction(evaluateFunctionTree(_fx));
}
}
ds_stack_destroy(call_st);
ds_stack_destroy(blok_st);
return flist;
}
function evaluateFunctionTree(fx) {
static __BRACKETS = [ "(", ")", "[", "]" ];
var pres = global.EQUATION_PRES;
var vl = ds_stack_create();
var op = ds_stack_create();
var last_push = "";
var len = string_length(fx);
var l = 1;
var ch = "";
var cch = "";
var _ch = "";
var in_str = false;
printIf(global.LOG_EXPRESSION, $"===== Evaluating function: {fx} =====");
while(l <= len) {
ch = string_char_at(fx, l);
//print($"Analyzing {ch}");
if(ds_map_exists(pres, ch)) { //symbol is operator
last_push = "op";
if(ds_stack_empty(op)) ds_stack_push(op, ch);
else {
var _top = ds_stack_top(op);
if(_top == "(" || ds_map_exists(global.FUNCTIONS, _top) || pres[? ch] > pres[? _top]) {
ds_stack_push(op, ch);
} else {
if(ch == "-" && ds_map_exists(pres, _ch)) ch = "∸"; //unary negative
while(pres[? ch] <= pres[? ds_stack_top(op)] && !ds_stack_empty(op))
ds_stack_push(vl, buildFuncTree(ds_stack_pop(op), vl));
ds_stack_push(op, ch);
}
}
l++;
} else if (ch == "(") {
if(last_push == "fn") ds_stack_push(op, [ "〚", ds_stack_size(vl) ]);
else ds_stack_push(op, ch);
last_push = "op";
l++;
} else if (ch == ")") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_pop(op);
if(_top == "(") break;
if(is_array(_top) && _top[0] == "〚") {
var arr = [];
while(ds_stack_size(vl) > _top[1])
array_insert(arr, 0, ds_stack_pop(vl));
ds_stack_push(vl, new __funcTree(ds_stack_pop(op), arr));
break;
}
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else if (ch == "[") {
if(last_push == "vl") {
ds_stack_push(op, "@");
ds_stack_push(op, ch);
} else
ds_stack_push(op, [ "{", ds_stack_size(vl) ]);
last_push = "op";
l++;
} else if (ch == "]") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_pop(op);
if(_top == "[") break;
if(is_array(_top) && _top[0] == "{") {
var arr = [];
while(ds_stack_size(vl) > _top[1])
array_insert(arr, 0, ds_stack_pop(vl));
ds_stack_push(vl, new __funcTree("【", arr));
break;
}
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else if (ch == ",") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_top(op);
if(_top == "[" || _top == "(" || (is_array(_top) && _top[0] == "{")) break;
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else {
var vsl = "";
while(l <= len) {
cch = string_char_at(fx, l);
if(ds_map_exists(pres, cch) || array_exists(__BRACKETS, cch)) break;
if(cch == ",") {
l++;
break;
}
vsl += cch;
l++;
}
if(vsl == "") continue;
if(ds_map_exists(global.FUNCTIONS, vsl)) { //function
ds_stack_push(op, vsl);
last_push = "fn";
} else {
vsl = string_trim(vsl);
switch(vsl) {
case "e" : ds_stack_push(vl, 2.71828); break;
case "pi": ds_stack_push(vl, pi); break;
default : ds_stack_push(vl, isNumber(vsl)? toNumber(vsl) : vsl); break;
}
last_push = "vl";
}
}
//print($"op: {ds_stack_size(op)}; vl: {ds_stack_size(vl)}");
_ch = ch;
}
while(!ds_stack_empty(op))
ds_stack_push(vl, buildFuncTree(ds_stack_pop(op), vl));
var tree = ds_stack_empty(vl)? noone : ds_stack_pop(vl);
ds_stack_destroy(op);
ds_stack_destroy(vl);
if(!is_struct(tree))
tree = new __funcTree("", tree);
printIf(global.LOG_EXPRESSION, tree);
printIf(global.LOG_EXPRESSION, "");
return tree;
}
function buildFuncTree(operator, vl) {
if(ds_stack_empty(vl)) return noone;
if(ds_map_exists(global.FUNCTIONS, operator)) {
if(ds_stack_empty(vl))
return noone;
var _v1 = ds_stack_pop(vl);
return new __funcTree(operator, _v1);
}
switch(operator) {
case "-": //deal with preceeding negative number -5
if(ds_stack_size(vl) >= 2) {
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree("-", _v2, _v1);
} else
return new __funcTree("-", ds_stack_pop(vl), 0);
case "@":
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree(operator, _v2, _v1);
case "+": //binary operators
case "*":
case "$":
case "/":
case "%":
case "|":
case "&":
case "^":
case "»":
case "«":
case "=":
case "⩵":
case "≠":
case "≤":
case "≥":
case "<":
case ">":
case "⊕":
case "⊖":
case "⊗":
case "⊘":
if(ds_stack_size(vl) >= 2) {
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree(operator, _v2, _v1);
}
default: return new __funcTree(operator, ds_stack_pop(vl));
}
return noone;
}
function evaluateFunction(fx, params = {}) {
if(isNumber(fx)) return toNumber(fx);
return evaluateFunctionList(fx).eval(params);
}
#endregion

841
#backups/scripts/string_eval/string_eval.gml.backup1 Normal file
View file

@ -0,0 +1,841 @@
// 2023-08-07 09:46:13
#region data
global.LOG_EXPRESSION = false;
global.EVALUATE_HEAD = noone;
global.EQUATION_PRES = ds_map_create();
global.EQUATION_PRES[? "+"] = 1;
global.EQUATION_PRES[? "-"] = 1;
global.EQUATION_PRES[? "∸"] = 9; //unary negative
global.EQUATION_PRES[? "*"] = 2;
global.EQUATION_PRES[? "/"] = 2;
global.EQUATION_PRES[? "%"] = 2;
global.EQUATION_PRES[? "$"] = 3;
global.EQUATION_PRES[? "&"] = 5;
global.EQUATION_PRES[? "|"] = 4;
global.EQUATION_PRES[? "^"] = 3;
global.EQUATION_PRES[? "<"] = 3;
global.EQUATION_PRES[? "»"] = 6;
global.EQUATION_PRES[? "«"] = 6;
global.EQUATION_PRES[? "~"] = 9;
global.EQUATION_PRES[? "="] = -99;
global.EQUATION_PRES[? "⊕"] = -99; //+=
global.EQUATION_PRES[? "⊖"] = -99; //-=
global.EQUATION_PRES[? "⊗"] = -99; //*=
global.EQUATION_PRES[? "⊘"] = -99; ///=
global.EQUATION_PRES[? "⩵"] = -1; //==
global.EQUATION_PRES[? "≠"] = -1; //!=
global.EQUATION_PRES[? "<"] = 0;
global.EQUATION_PRES[? ">"] = 0;
global.EQUATION_PRES[? "≤"] = 0;
global.EQUATION_PRES[? "≥"] = 0;
global.EQUATION_PRES[? "@"] = 5; //array accerssor symbol
global.FUNCTIONS = ds_map_create();
global.FUNCTIONS[? "sin"] = [ ["radian"], function(val) { return sin(val[0]); } ];
global.FUNCTIONS[? "cos"] = [ ["radian"], function(val) { return cos(val[0]); } ];
global.FUNCTIONS[? "tan"] = [ ["radian"], function(val) { return tan(val[0]); } ];
global.FUNCTIONS[? "abs"] = [ ["number"], function(val) { return abs(val[0]); } ];
global.FUNCTIONS[? "round"] = [ ["number"], function(val) { return round(val[0]); } ];
global.FUNCTIONS[? "ceil"] = [ ["number"], function(val) { return ceil(val[0]); } ];
global.FUNCTIONS[? "floor"] = [ ["number"], function(val) { return floor(val[0]); } ];
global.FUNCTIONS[? "lerp"] = [ ["number_0", "number_1", "amount"], function(val) { return lerp(array_safe_get(val, 0), array_safe_get(val, 1), array_safe_get(val, 2)); } ];
global.FUNCTIONS[? "wiggle"] = [ ["time", "frequency", "octave = 1", "seed = 0"], function(val) {
return wiggle(0, 1, PROJECT.animator.frameTotal, array_safe_get(val, 1),
array_safe_get(val, 0),
array_safe_get(val, 3, 0),
array_safe_get(val, 2, 1));
} ];
global.FUNCTIONS[? "random"] = [ ["min = 0", "max = 1"], function(val) {
return random_range(array_safe_get(val, 0, 0),
array_safe_get(val, 1, 1));
} ];
global.FUNCTIONS[? "irandom"] = [ ["min = 0", "max = 1"], function(val) {
return irandom_range(array_safe_get(val, 0, 0),
array_safe_get(val, 1, 1));
} ];
global.FUNCTIONS[? "range"] = [ ["length", "start = 0", "step = 1"], function(val) {
var arr = array_create(array_safe_get(val, 0, 0));
for( var i = 0, n = array_length(arr); i < n; i++ )
arr[i] = array_safe_get(val, 1, 0) + i * array_safe_get(val, 2, 1);
return arr;
} ];
globalvar PROJECT_VARIABLES;
PROJECT_VARIABLES = {};
PROJECT_VARIABLES.Project = {};
PROJECT_VARIABLES.Project.frame = () => PROJECT.animator.current_frame;
PROJECT_VARIABLES.Project.progress = () => PROJECT.animator.current_frame / (PROJECT.animator.frames_total - 1);
PROJECT_VARIABLES.Project.frameTotal = () => PROJECT.animator.frames_total;
PROJECT_VARIABLES.Project.fps = () => PROJECT.animator.framerate;
PROJECT_VARIABLES.Project.time = () => PROJECT.animator.current_frame / PROJECT.animator.framerate;
PROJECT_VARIABLES.Project.name = () => filename_name_only(PROJECT.path);
PROJECT_VARIABLES.Program = {};
PROJECT_VARIABLES.Program.time = () => current_time / 1000;
PROJECT_VARIABLES.Device = {};
PROJECT_VARIABLES.Device.timeSecond = () => current_second;
PROJECT_VARIABLES.Device.timeMinute = () => current_minute;
PROJECT_VARIABLES.Device.timeHour = () => current_hour;
PROJECT_VARIABLES.Device.timeDay = () => current_day;
PROJECT_VARIABLES.Device.timeDayInWeek = () => current_weekday;
PROJECT_VARIABLES.Device.timeMonth = () => current_month;
PROJECT_VARIABLES.Device.timeYear = () => current_year;
#endregion
function functionStringClean(fx) {
var ch = "", ind = 0, len = string_length(fx);
var _fx = "", str = false;
while(ind++ <= len) {
ch = string_char_at(fx, ind);
if(ch == " ") {
if(str)
_fx += ch;
} else
_fx += ch;
if(ch == "\"")
str = !str;
}
fx = _fx;
fx = string_replace_all(fx, "\n", "");
fx = string_replace_all(fx, "**", "$");
fx = string_replace_all(fx, "<<", "«");
fx = string_replace_all(fx, ">>", "»");
fx = string_replace_all(fx, "==", "⩵");
fx = string_replace_all(fx, "!=", "≠");
fx = string_replace_all(fx, "<>", "≠");
fx = string_replace_all(fx, ">=", "≥");
fx = string_replace_all(fx, "<=", "≤");
fx = string_replace_all(fx, "++", "⊕1");
fx = string_replace_all(fx, "--", "⊖1");
fx = string_replace_all(fx, "+=", "⊕");
fx = string_replace_all(fx, "-=", "⊖");
fx = string_replace_all(fx, "*=", "⊗");
fx = string_replace_all(fx, "/=", "⊘");
fx = string_trim(fx);
return fx;
}
#region evaluator
enum EXPRESS_TREE_ANIM {
none,
base_value,
animated
}
function __funcList() constructor {
funcTrees = [];
static addFunction = function(fn) {
array_push(funcTrees, fn);
}
static validate = function() {
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
if(!funcTrees[i].validate())
return false;
return true;
}
static isAnimated = function() {
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
if(!funcTrees[i].isAnimated())
return false;
return true;
}
static eval = function(params = {}) {
//var _params = variable_clone(params);
var val = 0;
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
val = funcTrees[i].eval(params);
return val;
}
}
function __funcIf() constructor {
condition = noone;
if_true = new __funcList();
if_false = new __funcList();
static validate = function() {
if(condition != noone && !condition.validate()) return false;
if(if_true != noone && !if_true.validate()) return false;
if(if_false != noone && !if_false.validate()) return false;
return true;
}
static isAnimated = function() {
if(condition != noone && !condition.isAnimated()) return false;
if(if_true != noone && !if_true.isAnimated()) return false;
if(if_false != noone && !if_false.isAnimated()) return false;
return true;
}
static eval = function(params = {}) {
if(condition == noone) return 0;
var res = condition.eval(params);
printIf(global.LOG_EXPRESSION, $"<<<<<< IF {res} >>>>>>");
if(res) return if_true == noone? 0 : if_true.eval(params);
else return if_false == noone? 0 : if_false.eval(params);
}
}
function __funcFor() constructor {
itr_array = false;
cond_init = noone;
cond_indx = noone;
cond_iter = noone;
cond_term = noone;
cond_arr = noone;
cond_step = 1;
action = new __funcList();
static validate = function() {
if(itr_array) {
if(cond_arr == noone || !cond_arr.validate()) return false;
} else {
if(cond_init == noone || !cond_init.validate()) return false;
if(cond_term == noone || !cond_term.validate()) return false;
}
if(action != noone && !action.validate()) return false;
return true;
}
static isAnimated = function() {
if(itr_array) {
if(cond_arr == noone || !cond_arr.isAnimated()) return false;
} else {
if(cond_init == noone || !cond_init.isAnimated()) return false;
if(cond_term == noone || !cond_term.isAnimated()) return false;
}
if(action != noone && !action.isAnimated()) return false;
return true;
}
static eval = function(params = {}) {
if(itr_array) {
var _arr = cond_arr.eval(params);
printIf(global.LOG_EXPRESSION, $"<<<<<< FOR EACH {_arr} >>>>>>");
for( var i = 0, n = array_length(_arr); i < n; i++ ) {
var val = _arr[i];
if(cond_indx != noone)
params[$ cond_indx] = i;
params[$ cond_iter] = val;
printIf(global.LOG_EXPRESSION, $"<< ITER {i}: {cond_iter} = {val} >>");
action.eval(params);
}
} else {
printIf(global.LOG_EXPRESSION, "<< FOR >>");
cond_init.eval(params);
while(cond_term.eval(params)) {
action.eval(params);
cond_iter.eval(params);
}
}
}
}
function __funcTree(symbol, l = noone, r = noone) constructor {
self.symbol = symbol;
self.l = l;
self.r = r;
dependency = [];
static _string = function(str) {
return string_char_at(str, 1) == "\"" && string_char_at(str, string_length(str)) == "\"";
}
static _string_trim = function(str) {
return string_trim(str, [ "\"" ]);
}
static getVal = function(val, params = {}, getRaw = false) {
if(is_struct(val)) return val.eval(params, getRaw);
if(is_real(val)) return val;
if(getRaw) return val;
if(is_string(val)) val = string_trim(val);
//printIf(global.LOG_EXPRESSION, $" [ get struct {params}[{val}] ]");
if(struct_has(params, val))
return struct_try_get(params, val);
val = string_trim(val);
if(_string(val))
return _string_trim(val);
return nodeGetData(val);
}
static _validate = function(val) {
if(is_real(val)) return true;
if(is_string(val)) return true;
if(is_struct(val)) return val.validate();
if(val == "value") return true;
if(PROJECT.globalNode.inputExist(val)) return true;
var strs = string_splice(val, ".");
if(array_length(strs) < 2) return false;
if(struct_has(PROJECT_VARIABLES, strs[0]))
return struct_has(PROJECT_VARIABLES[$ strs[0]], strs[1]);
if(!ds_map_exists(PROJECT.nodeNameMap, strs[0]))
return false;
array_push_unique(dependency, strs[0]);
return true;
}
static validate = function() {
dependency = [];
if(ds_map_exists(global.FUNCTIONS, symbol)) {
if(!is_array(l)) return false;
for( var i = 0, n = array_length(l); i < n; i++ )
if(!_validate(l[i])) return false;
return true;
}
switch(symbol) {
case "@": return _validate(l);
case "【": return true;
case "": return true;
}
return _validate(l) && _validate(r);
}
static _isAnimated = function(val) {
if(is_real(val)) return EXPRESS_TREE_ANIM.none;
if(is_struct(val)) return val._isAnimated();
if(val == "value") return EXPRESS_TREE_ANIM.base_value;
if(PROJECT.globalNode.inputExist(val)) {
var _inp = PROJECT.globalNode.getInput(val);
if(_inp.is_anim) return EXPRESS_TREE_ANIM.animated;
}
return EXPRESS_TREE_ANIM.none;
}
static isAnimated = function() {
var anim = EXPRESS_TREE_ANIM.none;
anim = max(anim, _isAnimated(l));
if(symbol != "@")
anim = max(anim, _isAnimated(r));
return anim;
}
static eval = function(params = {}, isLeft = false) {
if(ds_map_exists(global.FUNCTIONS, symbol)) {
if(!is_array(l)) return 0;
var _fn = global.FUNCTIONS[? symbol];
var _ev = _fn[1];
var _l = array_create(array_length(l));
for( var i = 0, n = array_length(l); i < n; i++ )
_l[i] = getVal(l[i], params);
var res = _ev(_l);
printIf(global.LOG_EXPRESSION, $"Function {symbol}{_l} = {res}");
printIf(global.LOG_EXPRESSION, "====================");
return res;
}
var getRaw = false;
switch(symbol) {
case "=":
case "【":
getRaw = true;
}
var v1 = getVal(l, params, getRaw || isLeft);
var v2 = getVal(r, params);
var res = 0;
if(symbol == "") {
res = v1;
} else if(symbol == "【") { //array builder
res = array_create(array_length(v1));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = getVal(v1[i], params);
} else if(symbol == "@") {
if(isLeft) res = [ v1, v2 ];
else res = is_real(v2)? array_safe_get(v1, v2) : 0;
} else if(symbol == "=") {
if(is_array(v1)) {
var val = params[$ v1[0]];
val = array_safe_set(val, v1[1], v2);
params[$ v1[0]] = val;
res = val;
} else {
params[$ v1] = v2;
res = v2;
}
} else if(is_array(v1) && !is_array(v2)) {
res = array_create(array_length(v1));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(array_safe_get(v1, i), v2);
} else if(!is_array(v1) && is_array(v2)) {
res = array_create(array_length(v2));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(v1, array_safe_get(v2, i));
} else if(is_array(v1) && is_array(v2)) {
res = array_create(max(array_length(v1), array_length(v2)));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(array_safe_get(v1, i), array_safe_get(v2, i));
} else
res = eval_real(v1, v2);
var _v1_var = getVal(l, params, true);
switch(symbol) {
case "⊕":
case "⊖":
case "⊗":
case "⊘":
if(is_array(_v1_var)) {
var val = params[$ _v1_var[0]];
val = array_safe_set(val, _v1_var[1], res);
params[$ _v1_var[0]] = val;
} else
params[$ _v1_var] = res;
printIf(global.LOG_EXPRESSION, $"|{_v1_var}| = {v1}|{symbol}|{v2}| = {res}");
printIf(global.LOG_EXPRESSION, $"symbol : {symbol}");
printIf(global.LOG_EXPRESSION, $"l : | {typeof(l)} |{l}|");
printIf(global.LOG_EXPRESSION, $"r : | {typeof(r)} |{r}|");
printIf(global.LOG_EXPRESSION, "====================");
break;
default:
printIf(global.LOG_EXPRESSION, $"|{v1}|{symbol}|{v2}| = {res}");
printIf(global.LOG_EXPRESSION, $"symbol : {symbol}");
printIf(global.LOG_EXPRESSION, $"l : | {typeof(l)} |{l}|");
printIf(global.LOG_EXPRESSION, $"r : | {typeof(r)} |{r}|");
printIf(global.LOG_EXPRESSION, "====================");
break;
}
return res;
}
static eval_real = function(v1, v2, _symbol = symbol) {
switch(_symbol) {
case "+":
case "⊕":
if(is_string(v1) || is_string(v2)) return string(v1) + string(v2);
if(is_real(v1) && is_real(v2)) return v1 + v2;
return 0;
case "-":
case "⊖": return (is_real(v1) && is_real(v2))? v1 - v2 : 0;
case "∸": return is_real(v1)? -v1 : 0;
case "*":
case "⊗": return (is_real(v1) && is_real(v2))? v1 * v2 : 0;
case "$": return (is_real(v1) && is_real(v2))? power(v1, v2) : 0;
case "/":
case "⊘": return (is_real(v1) && is_real(v2) && v2 != 0)? v1 / v2 : 0;
case "%": return (is_real(v1) && is_real(v2) && v2 != 0)? v1 % v2 : 0;
case "&": return (is_real(v1) && is_real(v2))? v1 & v2 : 0;
case "|": return (is_real(v1) && is_real(v2))? v1 | v2 : 0;
case "^": return (is_real(v1) && is_real(v2))? v1 ^ v2 : 0;
case "«": return (is_real(v1) && is_real(v2))? v1 << v2 : 0;
case "»": return (is_real(v1) && is_real(v2))? v1 >> v2 : 0;
case "~": return is_real(v1)? ~v1 : 0;
case "⩵": return (is_real(v1) && is_real(v2))? v1 == v2 : 0;
case "≠": return (is_real(v1) && is_real(v2))? v1 != v2 : 0;
case "≤": return (is_real(v1) && is_real(v2))? v1 <= v2 : 0;
case "≥": return (is_real(v1) && is_real(v2))? v1 >= v2 : 0;
case ">": return (is_real(v1) && is_real(v2))? v1 > v2 : 0;
case "<": return (is_real(v1) && is_real(v2))? v1 < v2 : 0;
case "sin" : return is_real(v1)? sin(v1) : 0;
case "cos" : return is_real(v1)? cos(v1) : 0;
case "tan" : return is_real(v1)? tan(v1) : 0;
case "abs" : return is_real(v1)? abs(v1) : 0;
case "round" : return is_real(v1)? round(v1) : 0;
case "ceil" : return is_real(v1)? ceil(v1) : 0;
case "floor" : return is_real(v1)? floor(v1) : 0;
}
return v1;
}
}
function functionStrip(fx) {
var el_st = 1;
var el_ed = 1;
for( var i = 1; i <= string_length(fx); i++ ) {
var cch = string_char_at(fx, i);
if(cch == "(") {
el_st = i + 1;
break;
}
}
for( var i = string_length(fx); i >= 1; i-- ) {
var cch = string_char_at(fx, i);
if(cch == ")") {
el_ed = i;
break;
}
}
return string_copy(fx, el_st, el_ed - el_st)
}
function evaluateFunctionList(fx) {
fx = string_replace_all(fx, "{", "\n{\n");
fx = string_replace_all(fx, "}", "\n}\n");
var fxs = string_split(fx, "\n", true);
var flist = new __funcList();
var call_st = ds_stack_create();
var blok_st = ds_stack_create();
ds_stack_push(call_st, flist);
for( var i = 0, n = array_length(fxs); i < n; i++ ) {
var _fx = functionStringClean(fxs[i]);
//print($"Eval line {i}: {_fx} [stack size = {ds_stack_size(call_st)}]");
if(_fx == "" || _fx == "{") continue;
if(_fx == "}") {
ds_stack_pop(call_st);
continue;
}
var _fx_sp = string_split(_fx, "(");
var _cmd = string_trim(_fx_sp[0]);
var _cond = functionStrip(_fx);
switch(_cmd) {
case "if":
var con_if = new __funcIf();
con_if.condition = evaluateFunctionTree(_cond);
ds_stack_top(call_st).addFunction(con_if);
ds_stack_push(call_st, con_if.if_true);
ds_stack_push(blok_st, con_if);
continue;
case "elseif":
var con_if = ds_stack_pop(blok_st);
var con_elif = new __funcIf();
con_elif.condition = evaluateFunctionTree(_cond);
con_if.if_false.addFunction(con_elif);
ds_stack_push(call_st, con_elif.if_true);
ds_stack_push(blok_st, con_elif);
continue;
case "else":
var con_if = ds_stack_pop(blok_st);
ds_stack_push(call_st, con_if.if_false);
continue;
case "for":
var con_for = new __funcFor();
var cond = string_splice(_cond, ":");
if(array_length(cond) == 2) {
con_for.itr_array = true;
con_for.cond_arr = evaluateFunctionTree(cond[1]);
cond[0] = string_trim(cond[0]);
var _itr = string_split(cond[0], ",");
if(array_length(_itr) == 1)
con_for.cond_iter = cond[0];
else if(array_length(_itr) == 2) {
con_for.cond_indx = string_trim(_itr[0]);
con_for.cond_iter = string_trim(_itr[1]);
}
} else if(array_length(cond) == 3) {
con_for.itr_array = false;
con_for.cond_init = evaluateFunctionTree(cond[0]);
con_for.cond_iter = evaluateFunctionTree(cond[1]);
con_for.cond_term = evaluateFunctionTree(cond[2]);
}
ds_stack_top(call_st).addFunction(con_for);
ds_stack_push(call_st, con_for.action);
continue;
}
if(ds_stack_empty(call_st)) {
print("Block stack empty, how?");
} else {
var _top = ds_stack_top(call_st);
_top.addFunction(evaluateFunctionTree(_fx));
}
}
ds_stack_destroy(call_st);
ds_stack_destroy(blok_st);
return flist;
}
function evaluateFunctionTree(fx) {
static __BRACKETS = [ "(", ")", "[", "]" ];
var pres = global.EQUATION_PRES;
var vl = ds_stack_create();
var op = ds_stack_create();
var last_push = "";
var len = string_length(fx);
var l = 1;
var ch = "";
var cch = "";
var _ch = "";
var in_str = false;
printIf(global.LOG_EXPRESSION, $"===== Evaluating function: {fx} =====");
while(l <= len) {
ch = string_char_at(fx, l);
//print($"Analyzing {ch}");
if(ds_map_exists(pres, ch)) { //symbol is operator
last_push = "op";
if(ds_stack_empty(op)) ds_stack_push(op, ch);
else {
var _top = ds_stack_top(op);
if(_top == "(" || ds_map_exists(global.FUNCTIONS, _top) || pres[? ch] > pres[? _top]) {
ds_stack_push(op, ch);
} else {
if(ch == "-" && ds_map_exists(pres, _ch)) ch = "∸"; //unary negative
while(pres[? ch] <= pres[? ds_stack_top(op)] && !ds_stack_empty(op))
ds_stack_push(vl, buildFuncTree(ds_stack_pop(op), vl));
ds_stack_push(op, ch);
}
}
l++;
} else if (ch == "(") {
if(last_push == "fn") ds_stack_push(op, [ "〚", ds_stack_size(vl) ]);
else ds_stack_push(op, ch);
last_push = "op";
l++;
} else if (ch == ")") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_pop(op);
if(_top == "(") break;
if(is_array(_top) && _top[0] == "〚") {
var arr = [];
while(ds_stack_size(vl) > _top[1])
array_insert(arr, 0, ds_stack_pop(vl));
ds_stack_push(vl, new __funcTree(ds_stack_pop(op), arr));
break;
}
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else if (ch == "[") {
if(last_push == "vl") {
ds_stack_push(op, "@");
ds_stack_push(op, ch);
} else
ds_stack_push(op, [ "{", ds_stack_size(vl) ]);
last_push = "op";
l++;
} else if (ch == "]") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_pop(op);
if(_top == "[") break;
if(is_array(_top) && _top[0] == "{") {
var arr = [];
while(ds_stack_size(vl) > _top[1])
array_insert(arr, 0, ds_stack_pop(vl));
ds_stack_push(vl, new __funcTree("【", arr));
break;
}
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else if (ch == ",") {
while(!ds_stack_empty(op)) {
var _top = ds_stack_top(op);
if(_top == "[" || _top == "(" || (is_array(_top) && _top[0] == "{")) break;
ds_stack_push(vl, buildFuncTree(_top, vl));
}
last_push = "vl";
l++;
} else {
var vsl = "";
while(l <= len) {
cch = string_char_at(fx, l);
if(ds_map_exists(pres, cch) || array_exists(__BRACKETS, cch)) break;
if(cch == ",") {
l++;
break;
}
vsl += cch;
l++;
}
if(vsl == "") continue;
if(ds_map_exists(global.FUNCTIONS, vsl)) { //function
ds_stack_push(op, vsl);
last_push = "fn";
} else {
vsl = string_trim(vsl);
switch(vsl) {
case "e" : ds_stack_push(vl, 2.71828); break;
case "pi": ds_stack_push(vl, pi); break;
default : ds_stack_push(vl, isNumber(vsl)? toNumber(vsl) : vsl); break;
}
last_push = "vl";
}
}
//print($"op: {ds_stack_size(op)}; vl: {ds_stack_size(vl)}");
_ch = ch;
}
while(!ds_stack_empty(op))
ds_stack_push(vl, buildFuncTree(ds_stack_pop(op), vl));
var tree = ds_stack_empty(vl)? noone : ds_stack_pop(vl);
ds_stack_destroy(op);
ds_stack_destroy(vl);
if(!is_struct(tree))
tree = new __funcTree("", tree);
printIf(global.LOG_EXPRESSION, tree);
printIf(global.LOG_EXPRESSION, "");
return tree;
}
function buildFuncTree(operator, vl) {
if(ds_stack_empty(vl)) return noone;
if(ds_map_exists(global.FUNCTIONS, operator)) {
if(ds_stack_empty(vl))
return noone;
var _v1 = ds_stack_pop(vl);
return new __funcTree(operator, _v1);
}
switch(operator) {
case "-": //deal with preceeding negative number -5
if(ds_stack_size(vl) >= 2) {
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree("-", _v2, _v1);
} else
return new __funcTree("-", ds_stack_pop(vl), 0);
case "@":
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree(operator, _v2, _v1);
case "+": //binary operators
case "*":
case "$":
case "/":
case "%":
case "|":
case "&":
case "^":
case "»":
case "«":
case "=":
case "⩵":
case "≠":
case "≤":
case "≥":
case "<":
case ">":
case "⊕":
case "⊖":
case "⊗":
case "⊘":
if(ds_stack_size(vl) >= 2) {
var _v1 = ds_stack_pop(vl);
var _v2 = ds_stack_pop(vl);
return new __funcTree(operator, _v2, _v1);
}
default: return new __funcTree(operator, ds_stack_pop(vl));
}
return noone;
}
function evaluateFunction(fx, params = {}) {
if(isNumber(fx)) return toNumber(fx);
return evaluateFunctionList(fx).eval(params);
}
#endregion

41
#backups/shaders/sh_blend_normal/sh_blend_normal.fsh.backup0 Normal file
View file

@ -0,0 +1,41 @@
// 2023-08-07 09:34:22
//
// Simple passthrough fragment shader
//
varying vec2 v_vTexcoord;
varying vec4 v_vColour;
uniform vec2 dimension;
uniform int tile_type;
uniform int useMask;
uniform int preserveAlpha;
uniform sampler2D mask;
uniform sampler2D fore;
uniform float opacity;
float sampleMask() {
if(useMask == 0) return 1.;
vec4 m = texture2D( mask, v_vTexcoord );
return (m.r + m.g + m.b) / 3. * m.a;
}
void main() {
vec4 _col1 = texture2D( gm_BaseTexture, v_vTexcoord );
vec2 fore_tex = v_vTexcoord;
if(tile_type == 0) {
fore_tex = v_vTexcoord;
} else if(tile_type == 1) {
fore_tex = fract(v_vTexcoord * dimension);
}
vec4 _col0 = texture2D( fore, fore_tex );
_col0.a *= opacity * sampleMask();
float al = _col0.a + _col1.a * (1. - _col0.a);
vec4 res = ((_col0 * _col0.a) + (_col1 * _col1.a * (1. - _col0.a))) / al;
res.a = al;
gl_FragColor = res;
}

35
PixelComposer.resource_order
View file

@ -1,15 +1,15 @@
{
"FolderOrderSettings": [
{"name":"_crash_handler","order":13,"path":"folders/_crash_handler.yy",},
{"name":"_crash_handler","order":19,"path":"folders/_crash_handler.yy",},
{"name":"sprites","order":3,"path":"folders/_crash_handler/sprites.yy",},
{"name":"_extensions","order":9,"path":"folders/_extensions.yy",},
{"name":"_extensions","order":16,"path":"folders/_extensions.yy",},
{"name":"BBMOD","order":8,"path":"folders/_extensions/BBMOD.yy",},
{"name":"Math","order":1,"path":"folders/_extensions/BBMOD/Math.yy",},
{"name":"MAC","order":6,"path":"folders/_extensions/MAC.yy",},
{"name":"addons","order":11,"path":"folders/addons.yy",},
{"name":"addons","order":10,"path":"folders/addons.yy",},
{"name":"custom","order":4,"path":"folders/addons/custom.yy",},
{"name":"key displayer","order":2,"path":"folders/addons/key displayer.yy",},
{"name":"animation_curve","order":10,"path":"folders/animation_curve.yy",},
{"name":"animation_curve","order":9,"path":"folders/animation_curve.yy",},
{"name":"dialog","order":4,"path":"folders/dialog.yy",},
{"name":"animation","order":6,"path":"folders/dialog/animation.yy",},
{"name":"color selector","order":4,"path":"folders/dialog/color selector.yy",},
@ -49,6 +49,7 @@
{"name":"object","order":4,"path":"folders/functions/fluid sim/Internal/Compatibility/object.yy",},
{"name":"texture","order":5,"path":"folders/functions/fluid sim/Internal/Compatibility/texture.yy",},
{"name":"view","order":6,"path":"folders/functions/fluid sim/Internal/Compatibility/view.yy",},
{"name":null,"path":"folders/shader/_crash_handler.yy","order":16,},
{"name":"geometry","order":31,"path":"folders/functions/geometry.yy",},
{"name":"importers","order":6,"path":"folders/functions/importers.yy",},
{"name":"inputs","order":7,"path":"folders/functions/inputs.yy",},
@ -69,14 +70,13 @@
{"name":"startup scripts","order":2,"path":"folders/main/startup scripts.yy",},
{"name":"nodes","order":3,"path":"folders/nodes.yy",},
{"name":"data","order":1,"path":"folders/nodes/data.yy",},
{"name":"__base__","order":11,"path":"folders/nodes/data/__base__.yy",},
{"name":"3D","order":7,"path":"folders/nodes/data/3D.yy",},
{"name":"3D","order":8,"path":"folders/nodes/data/3D.yy",},
{"name":"primitive","order":19,"path":"folders/nodes/data/3D/primitive.yy",},
{"name":"animation","order":5,"path":"folders/nodes/data/animation.yy",},
{"name":"animation","order":6,"path":"folders/nodes/data/animation.yy",},
{"name":"audio","order":19,"path":"folders/nodes/data/audio.yy",},
{"name":"compose","order":14,"path":"folders/nodes/data/compose.yy",},
{"name":"armature","order":5,"path":"folders/nodes/data/compose/armature.yy",},
{"name":"filter","order":1,"path":"folders/nodes/data/filter.yy",},
{"name":"filter","order":2,"path":"folders/nodes/data/filter.yy",},
{"name":"colors","order":4,"path":"folders/nodes/data/filter/colors.yy",},
{"name":"combine","order":1,"path":"folders/nodes/data/filter/combine.yy",},
{"name":"conversion","order":5,"path":"folders/nodes/data/filter/conversion.yy",},
@ -84,27 +84,27 @@
{"name":"fixes","order":6,"path":"folders/nodes/data/filter/fixes.yy",},
{"name":"warps","order":2,"path":"folders/nodes/data/filter/warps.yy",},
{"name":"fluidSim","order":17,"path":"folders/nodes/data/fluidSim.yy",},
{"name":"generator","order":4,"path":"folders/nodes/data/generator.yy",},
{"name":"generator","order":5,"path":"folders/nodes/data/generator.yy",},
{"name":"noise","order":14,"path":"folders/nodes/data/generator/noise.yy",},
{"name":"pattern","order":15,"path":"folders/nodes/data/generator/pattern.yy",},
{"name":"group","order":6,"path":"folders/nodes/data/group.yy",},
{"name":"group","order":7,"path":"folders/nodes/data/group.yy",},
{"name":"network","order":16,"path":"folders/nodes/data/IO/network.yy",},
{"name":"iterate","order":9,"path":"folders/nodes/data/iterate.yy",},
{"name":"iterate","order":10,"path":"folders/nodes/data/iterate.yy",},
{"name":"feedback","order":7,"path":"folders/nodes/data/iterate/feedback.yy",},
{"name":"for each","order":1,"path":"folders/nodes/data/iterate/for each.yy",},
{"name":"for filter","order":3,"path":"folders/nodes/data/iterate/for filter.yy",},
{"name":"for sort","order":5,"path":"folders/nodes/data/iterate/for sort.yy",},
{"name":"lua","order":16,"path":"folders/nodes/data/lua.yy",},
{"name":"node","order":10,"path":"folders/nodes/data/node.yy",},
{"name":"node","order":11,"path":"folders/nodes/data/node.yy",},
{"name":"pixel builder","order":20,"path":"folders/nodes/data/pixel builder.yy",},
{"name":"box","order":2,"path":"folders/nodes/data/pixel builder/box.yy",},
{"name":"draw","order":3,"path":"folders/nodes/data/pixel builder/draw.yy",},
{"name":"effect","order":4,"path":"folders/nodes/data/pixel builder/effect.yy",},
{"name":"render","order":2,"path":"folders/nodes/data/render.yy",},
{"name":"render","order":3,"path":"folders/nodes/data/render.yy",},
{"name":"rigidSim","order":15,"path":"folders/nodes/data/rigidSim.yy",},
{"name":"strandSim","order":18,"path":"folders/nodes/data/strandSim.yy",},
{"name":"transform","order":8,"path":"folders/nodes/data/transform.yy",},
{"name":"value","order":3,"path":"folders/nodes/data/value.yy",},
{"name":"transform","order":9,"path":"folders/nodes/data/transform.yy",},
{"name":"value","order":4,"path":"folders/nodes/data/value.yy",},
{"name":"atlas","order":9,"path":"folders/nodes/data/value/atlas.yy",},
{"name":"buffer","order":11,"path":"folders/nodes/data/value/buffer.yy",},
{"name":"mesh","order":7,"path":"folders/nodes/data/value/mesh.yy",},
@ -152,6 +152,7 @@
{"name":"blur","order":38,"path":"folders/shader/blur.yy",},
{"name":"channels","order":42,"path":"folders/shader/channels.yy",},
{"name":"color picker","order":56,"path":"folders/shader/color picker.yy",},
{"name":null,"path":"folders/nodes/data/IO.yy","order":1,},
{"name":"color selector","order":51,"path":"folders/shader/color selector.yy",},
{"name":"draw","order":39,"path":"folders/shader/draw.yy",},
{"name":"filter","order":30,"path":"folders/shader/filter.yy",},
@ -174,10 +175,10 @@
{"name":"surface replace","order":53,"path":"folders/shader/surface replace.yy",},
{"name":"transition","order":52,"path":"folders/shader/transition.yy",},
{"name":"warp","order":41,"path":"folders/shader/warp.yy",},
{"name":"sprites","order":12,"path":"folders/sprites.yy",},
{"name":"sprites","order":11,"path":"folders/sprites.yy",},
{"name":"gameframe","order":2,"path":"folders/sprites/gameframe.yy",},
{"name":"misc","order":3,"path":"folders/sprites/misc.yy",},
{"name":"VCT","order":14,"path":"folders/VCT.yy",},
{"name":"VCT","order":12,"path":"folders/VCT.yy",},
{"name":"biterator","order":2,"path":"folders/VCT/biterator.yy",},
{"name":"widget","order":3,"path":"folders/VCT/widget.yy",},
{"name":"widgets","order":5,"path":"folders/widgets.yy",},

21
scripts/globals/globals.gml
View file

@ -15,14 +15,14 @@
#region project
function Project() constructor {
active = true;
active = true; /// @is {bool}
path = "";
version = SAVE_VERSION;
seed = irandom_range(100000, 999999);
path = ""; /// @is {string}
version = SAVE_VERSION; /// @is {number}
seed = irandom_range(100000, 999999); /// @is {number}
modified = false;
readonly = false;
modified = false; /// @is {bool}
readonly = false; /// @is {bool}
nodes = ds_list_create();
nodeMap = ds_map_create();
@ -80,7 +80,8 @@
}
}
globalvar PROJECTS, PROJECT;
globalvar PROJECTS; /// @is {Project[]}
globalvar PROJECT; /// @is {Project}
gml_pragma("global", "__init()");
function __init() {
@ -100,10 +101,10 @@
globalvar VERSION, SAVE_VERSION, VERSION_STRING, BUILD_NUMBER;
VERSION = 11483;
VERSION = 11484;
SAVE_VERSION = 11482;
VERSION_STRING = "1.15rc3";
BUILD_NUMBER = 11483;
VERSION_STRING = "1.15rc4";
BUILD_NUMBER = 11484;
globalvar APPEND_MAP;
APPEND_MAP = ds_map_create();

5
scripts/node_data/node_data.gml
View file

@ -140,9 +140,10 @@ function Node(_x, _y, _group = PANEL_GRAPH.getCurrentContext()) : __Node_Base(_x
static createNewInput = noone;
static initTooltip = function() {
if(!struct_has(global.NODE_GUIDE, instanceof(self))) return;
var type_self/*:string*/ = instanceof(self);
if(!struct_has(global.NODE_GUIDE, type_self)) return;
var _n = global.NODE_GUIDE[$ instanceof(self)];
var _n = global.NODE_GUIDE[$ type_self];
var _ins = _n.inputs;
var _ots = _n.outputs;

17
scripts/pxl_server/pxl_server.gml
View file

@ -167,18 +167,15 @@ function pxl_autocomplete_server(prompt, params = []) {
ds_priority_clear(pr_list);
var F = global.FUNCTIONS;
var k = ds_map_find_first(F);
var a = ds_map_size(F);
repeat(a) {
var match = string_partial_match(string_lower(k), string_lower(prompt));
if(match == -9999) {
k = ds_map_find_next(F, k);
var _keys = ds_map_keys_to_array(F);
for( var i = 0, n = array_length(_keys); i < n; i++ ) {
var _key = _keys[i];
var match = string_partial_match(string_lower(_key), string_lower(prompt));
if(match == -9999)
continue;
}
var fn = F[? prompt];
ds_priority_add(pr_list, [[THEME.ac_function, 0], k, "function", k], match);
k = ds_map_find_next(F, k);
ds_priority_add(pr_list, [[THEME.ac_function, 0], _key, "function", _key], match);
}
repeat(ds_priority_size(pr_list))

32
scripts/string_eval/string_eval.gml
View file

@ -48,7 +48,7 @@
global.FUNCTIONS[? "lerp"] = [ ["number_0", "number_1", "amount"], function(val) { return lerp(array_safe_get(val, 0), array_safe_get(val, 1), array_safe_get(val, 2)); } ];
global.FUNCTIONS[? "wiggle"] = [ ["time", "frequency", "octave = 1", "seed = 0"], function(val) {
return wiggle(0, 1, array_safe_get(val, 1),
return wiggle(0, 1, PROJECT.animator.frameTotal / array_safe_get(val, 1),
array_safe_get(val, 0),
array_safe_get(val, 3, 0),
array_safe_get(val, 2, 1));
@ -68,29 +68,29 @@
arr[i] = array_safe_get(val, 1, 0) + i * array_safe_get(val, 2, 1);
return arr;
} ];
globalvar PROJECT_VARIABLES;
PROJECT_VARIABLES = {};
PROJECT_VARIABLES.Project = {};
PROJECT_VARIABLES.Project.frame = function() { return PROJECT.animator.current_frame; };
PROJECT_VARIABLES.Project.progress = function() { return PROJECT.animator.current_frame / (PROJECT.animator.frames_total - 1); };
PROJECT_VARIABLES.Project.frameTotal = function() { return PROJECT.animator.frames_total; };
PROJECT_VARIABLES.Project.fps = function() { return PROJECT.animator.framerate; };
PROJECT_VARIABLES.Project.time = function() { return PROJECT.animator.current_frame / PROJECT.animator.framerate; };
PROJECT_VARIABLES.Project.name = function() { return filename_name_only(PROJECT.path); };
PROJECT_VARIABLES.Project.frame = function() /*=>*/ {return PROJECT.animator.current_frame};
PROJECT_VARIABLES.Project.progress = function() /*=>*/ {return PROJECT.animator.current_frame / (PROJECT.animator.frames_total - 1)};
PROJECT_VARIABLES.Project.frameTotal = function() /*=>*/ {return PROJECT.animator.frames_total};
PROJECT_VARIABLES.Project.fps = function() /*=>*/ {return PROJECT.animator.framerate};
PROJECT_VARIABLES.Project.time = function() /*=>*/ {return PROJECT.animator.current_frame / PROJECT.animator.framerate};
PROJECT_VARIABLES.Project.name = function() /*=>*/ {return filename_name_only(PROJECT.path)};
PROJECT_VARIABLES.Program = {};
PROJECT_VARIABLES.Program.time = function() { return current_time / 1000; };
PROJECT_VARIABLES.Program.time = function() /*=>*/ {return current_time / 1000};
PROJECT_VARIABLES.Device = {};
PROJECT_VARIABLES.Device.timeSecond = function() { return current_second; };
PROJECT_VARIABLES.Device.timeMinute = function() { return current_minute; };
PROJECT_VARIABLES.Device.timeHour = function() { return current_hour; };
PROJECT_VARIABLES.Device.timeDay = function() { return current_day; };
PROJECT_VARIABLES.Device.timeDayInWeek = function() { return current_weekday; };
PROJECT_VARIABLES.Device.timeMonth = function() { return current_month; };
PROJECT_VARIABLES.Device.timeYear = function() { return current_year; };
PROJECT_VARIABLES.Device.timeSecond = function() /*=>*/ {return current_second};
PROJECT_VARIABLES.Device.timeMinute = function() /*=>*/ {return current_minute};
PROJECT_VARIABLES.Device.timeHour = function() /*=>*/ {return current_hour};
PROJECT_VARIABLES.Device.timeDay = function() /*=>*/ {return current_day};
PROJECT_VARIABLES.Device.timeDayInWeek = function() /*=>*/ {return current_weekday};
PROJECT_VARIABLES.Device.timeMonth = function() /*=>*/ {return current_month};
PROJECT_VARIABLES.Device.timeYear = function() /*=>*/ {return current_year};
#endregion
function functionStringClean(fx) {