Pixel-Composer/scripts/pcx_ast/pcx_ast.gml
2024-04-01 16:10:01 +07:00

519 lines
No EOL
20 KiB
Text

#region data
global.EVALUATE_HEAD = noone;
global.PCX_FUNCTIONS = ds_map_create();
global.PCX_FUNCTIONS[? "sin"] = [ ["radian"], function(val) { return sin(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "cos"] = [ ["radian"], function(val) { return cos(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "tan"] = [ ["radian"], function(val) { return tan(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "dsin"] = [ ["degree"], function(val) { return dsin(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "dcos"] = [ ["degree"], function(val) { return dcos(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "dtan"] = [ ["degree"], function(val) { return dtan(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "arcsin"] = [ ["x"], function(val) { return arcsin(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "arccos"] = [ ["x"], function(val) { return arccos(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "arctan"] = [ ["x"], function(val) { return arctan(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "arctan2"] = [ ["y", "x"], function(val) { return arctan2(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1)); } ];
global.PCX_FUNCTIONS[? "darcsin"] = [ ["x"], function(val) { return darcsin(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "darccos"] = [ ["x"], function(val) { return darccos(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "darctan"] = [ ["x"], function(val) { return darctan(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "darctan2"] = [ ["y", "x"], function(val) { return darctan2(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1)); } ];
global.PCX_FUNCTIONS[? "abs"] = [ ["x"], function(val) { return abs(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "round"] = [ ["x"], function(val) { return round(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "ceil"] = [ ["x"], function(val) { return ceil(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "floor"] = [ ["x"], function(val) { return floor(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "fract"] = [ ["x"], function(val) { return frac(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "sign"] = [ ["x"], function(val) { return sign(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "min"] = [ ["x", "y"], function(val) { return min(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1)); } ];
global.PCX_FUNCTIONS[? "max"] = [ ["x", "y"], function(val) { return max(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1)); } ];
global.PCX_FUNCTIONS[? "clamp"] = [ ["x", "min = 0", "max = 1"], function(val) { return clamp(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1, 0), array_safe_get_fast(val, 2, 1)); } ];
global.PCX_FUNCTIONS[? "lerp"] = [ ["x", "y", "amount"], function(val) { return lerp(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1), array_safe_get_fast(val, 2)); } ];
global.PCX_FUNCTIONS[? "wiggle"] = [ ["time", "frequency", "octave = 1", "seed = 0"], function(val) {
return wiggle(0, 1, TOTAL_FRAMES / array_safe_get_fast(val, 1),
array_safe_get_fast(val, 0),
array_safe_get_fast(val, 3, 0),
array_safe_get_fast(val, 2, 1));
} ];
global.PCX_FUNCTIONS[? "random"] = [ ["min = 0", "max = 1"], function(val) {
return random_range(array_safe_get_fast(val, 0, 0),
array_safe_get_fast(val, 1, 1));
} ];
global.PCX_FUNCTIONS[? "irandom"] = [ ["min = 0", "max = 1"], function(val) {
return irandom_range(array_safe_get_fast(val, 0, 0),
array_safe_get_fast(val, 1, 1));
} ];
global.PCX_FUNCTIONS[? "range"] = [ ["length", "start = 0", "step = 1"], function(val) {
var arr = array_create(array_safe_get_fast(val, 0, 0));
for( var i = 0, n = array_length(arr); i < n; i++ )
arr[i] = array_safe_get_fast(val, 1, 0) + i * array_safe_get_fast(val, 2, 1);
return arr;
} ];
global.PCX_FUNCTIONS[? "length"] = [ ["value"], function(val) {
if(is_array(val)) return array_length(val);
if(is_string(val)) return string_length(val);
return 0;
} ];
global.PCX_FUNCTIONS[? "string"] = [ ["value"], function(val) { return string(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "number"] = [ ["value"], function(val) { return toNumber(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "chr"] = [ ["x"], function(val) { return chr(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "ord"] = [ ["char"], function(val) { return ord(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "draw"] = [ ["surface", "x = 0", "y = 0", "xs = 1", "ys = 1", "rot = 0", "color = white", "alpha = 1"],
function(val) {
var _surface = array_safe_get_fast(val, 0, -1);
if(!is_surface(_surface)) return false;
var _x = array_safe_get_fast(val, 1, 0);
var _y = array_safe_get_fast(val, 2, 0);
var _xs = array_safe_get_fast(val, 3, 1);
var _ys = array_safe_get_fast(val, 4, 1);
var _rot = array_safe_get_fast(val, 5, 0);
var _col = array_safe_get_fast(val, 6, c_white);
var _alp = array_safe_get_fast(val, 7, 1);
draw_surface_ext_safe(_surface, _x, _y, _xs, _ys, _rot, _col, _alp);
return true;
} ];
global.PCX_FUNCTIONS[? "surface_get_dimension"] = [ ["surface"], function(val) { var s = array_safe_get_fast(val, 0); return [ surface_get_width_safe(s), surface_get_height_safe(s) ]; } ];
global.PCX_FUNCTIONS[? "surface_get_width"] = [ ["surface"], function(val) { return surface_get_width_safe(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "surface_get_height"] = [ ["surface"], function(val) { return surface_get_height_safe(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "color_hex"] = [ ["char"], function(val) { return colorFromHex(array_safe_get_fast(val, 0)); } ];
global.PCX_FUNCTIONS[? "color_rgb"] = [ ["red", "green", "blue"], function(val) { return make_color_rgb(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1), array_safe_get_fast(val, 2)); } ];
global.PCX_FUNCTIONS[? "color_hsv"] = [ ["red", "green", "blue"], function(val) { return make_color_hsv(array_safe_get_fast(val, 0), array_safe_get_fast(val, 1), array_safe_get_fast(val, 2)); } ];
globalvar PROJECT_VARIABLES;
PROJECT_VARIABLES = {};
PROJECT_VARIABLES.Project = {};
PROJECT_VARIABLES.Project.frame = [ function() { return CURRENT_FRAME }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Project.progress = [ function() { return CURRENT_FRAME / (TOTAL_FRAMES - 1) }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Project.frameTotal = [ function() { return TOTAL_FRAMES }, EXPRESS_TREE_ANIM.none ];
PROJECT_VARIABLES.Project.fps = [ function() { return PROJECT.animator.framerate }, EXPRESS_TREE_ANIM.none ];
PROJECT_VARIABLES.Project.time = [ function() { return CURRENT_FRAME / PROJECT.animator.framerate }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Project.name = [ function() { return filename_name_only(PROJECT.path) }, EXPRESS_TREE_ANIM.none ];
PROJECT_VARIABLES.Program = {};
PROJECT_VARIABLES.Program.time = [ function() { return current_time / 1000 }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device = {};
PROJECT_VARIABLES.Device.timeSecond = [ function() { return current_second }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeMinute = [ function() { return current_minute }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeHour = [ function() { return current_hour }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeDay = [ function() { return current_day }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeDayInWeek = [ function() { return current_weekday }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeMonth = [ function() { return current_month }, EXPRESS_TREE_ANIM.animated ];
PROJECT_VARIABLES.Device.timeYear = [ function() { return current_year }, EXPRESS_TREE_ANIM.animated ];
#endregion
#region evaluator
enum EXPRESS_TREE_ANIM {
none,
base_value,
animated
}
function __funcList() constructor { #region
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 isDynamic = function() {
var anim = EXPRESS_TREE_ANIM.none;
for( var i = 0, n = array_length(funcTrees); i < n; i++ )
anim = max(anim, funcTrees[i].isDynamic());
return anim;
}
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;
}
} #endregion
function __funcIf() constructor { #region
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 isDynamic = function() {
var anim = EXPRESS_TREE_ANIM.none;
if(condition != noone) anim = max(anim, condition.isDynamic());
if(if_true != noone) anim = max(anim, if_true.isDynamic());
if(if_false != noone) anim = max(anim, if_false.isDynamic());
return anim;
}
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);
}
} #endregion
function __funcFor() constructor { #region
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 isDynamic = function() {
var anim = EXPRESS_TREE_ANIM.none;
if(itr_array) {
if(cond_arr == noone) anim = max(anim, cond_arr.isDynamic())
} else {
if(cond_init == noone) anim = max(anim, cond_init.isDynamic())
if(cond_term == noone) anim = max(anim, cond_term.isDynamic())
}
if(action != noone) anim = max(anim, action.isDynamic())
return anim;
}
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);
}
}
}
} #endregion
function __funcTree(symbol, l = noone, r = noone) constructor { #region
self.symbol = symbol;
self.l = l;
self.r = r;
dependency = [];
anim_stat = undefined;
static _string = function(str) { #region
return string_char_at(str, 1) == "\"" && string_char_at(str, string_length(str)) == "\"";
} #endregion
static _string_trim = function(str) { #region
return string_trim(str, [ "\"" ]);
} #endregion
static getVal = function(val, params = {}, getRaw = false) { #region
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);
if(struct_has(params, val))
return struct_try_get(params, val);
val = string_trim(val);
if(_string(val)) return _string_trim(val);
var _str = string_splice(val, ".");
if(array_length(_str) > 1 && _str[0] == "self" && struct_has(params, "node_values"))
return struct_try_get(params.node_values, _str[1]);
return nodeGetData(val);
} #endregion
static _validate = function(val) { #region
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;
} #endregion
static validate = function() { #region
dependency = [];
if(ds_map_exists(global.PCX_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);
} #endregion
static _isAnimated = function(val) { #region
if(is_real(val)) return EXPRESS_TREE_ANIM.none;
if(is_struct(val)) return val.isDynamic();
if(is_array(val)) {
var anim = EXPRESS_TREE_ANIM.none;
for( var i = 0, n = array_length(val); i < n; i++ )
anim = max(anim, _isAnimated(val[i]));
return anim;
}
if(val == "value") return EXPRESS_TREE_ANIM.base_value;
//var anim = nodeGetDataAnim(val);
return EXPRESS_TREE_ANIM.animated;
} #endregion
static isDynamic = function() { #region
anim_stat = EXPRESS_TREE_ANIM.none;
anim_stat = max(anim_stat, _isAnimated(l));
if(symbol != "@") anim_stat = max(anim_stat, _isAnimated(r));
return anim_stat;
} #endregion
static eval = function(params = {}, isLeft = false) { #region
//print($"{symbol}, {l} | {r}")
//print(params);
if(ds_map_exists(global.PCX_FUNCTIONS, symbol)) {
if(!is_array(l)) return 0;
var _fn = global.PCX_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);
printIf(global.LOG_EXPRESSION, $"Function {symbol}{_l}");
var res = _ev(_l);
printIf(global.LOG_EXPRESSION, $" = {res}");
printIf(global.LOG_EXPRESSION, "====================");
return res;
}
var getRaw = false;
switch(symbol) {
case "=":
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(v1); i < n; i++ )
res[i] = getVal(v1[i], params);
} else if(symbol == "@") { // array getter
if(isLeft)
res = [ v1, v2 ];
else if(is_real(v2)) {
if(is_array(v1)) {
if(v2 < 0) v2 = array_length(v1) + v2;
res = array_safe_get_fast(v1, v2);
} else if(is_string(v1)) {
if(v2 < 0) v2 = string_length(v1) + v2;
res = string_char_at(v1, v2 + 1);
}
}
//print($"Array getter {v1}, {v2} = {res}");
} else if(symbol == "=") { // value assignment
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(symbol == "≔") { // function default replacement
if(!struct_exists(params, v1))
params[$ v1] = v2;
res = params[$ v1];
} else if(is_array(v1) && !is_array(v2)) { // evaluate value
res = array_create(array_length(v1));
for( var i = 0, n = array_length(res); i < n; i++ )
res[i] = eval_real(array_safe_get_fast(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_fast(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_fast(v1, i), array_safe_get_fast(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, $"params : {params}");
printIf(global.LOG_EXPRESSION, "====================");
break;
}
return res;
} #endregion
static eval_real = function(v1, v2, _symbol = symbol) { #region
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 "∸":
case "⊖": return (is_real(v1) && is_real(v2))? v1 - v2 : 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;
}
return v1;
} #endregion
static toString = function() { #region
return $"[PCX funcTree] \{ symbol: {symbol}, l: {l}, r: {r}\}";
} #endregion
} #endregion
function evaluateFunction(fx, params = {}) { #region
if(isNumber(fx)) return toNumber(fx);
return evaluateFunctionList(fx).eval(params);
} #endregion
#endregion