Pixel-Composer/scripts/array_functions/array_functions.gml
2024-05-25 09:51:52 +07:00

328 lines
No EOL
7.1 KiB
Text

function array_create_from_list(list) { #region
if(list == undefined) return [];
if(!ds_exists(list, ds_type_list)) return [];
var arr = array_create(ds_list_size(list));
for( var i = 0; i < ds_list_size(list); i++ )
arr[i] = list[| i];
return arr;
} #endregion
function array_safe_set(arr, index, value, fill = 0) { #region
if(!is_array(arr)) return arr;
if(is_array(index)) return arr;
if(index < 0) return arr;
if(index >= array_length(arr)) {
var i = array_length(arr);
for(; i <= index; i++ )
arr[i] = fill;
arr[index] = value;
return arr;
}
array_set(arr, index, value);
return arr;
} #endregion
function array_safe_length(arr) { #region
INLINE
return is_array(arr)? array_length(arr) : 0;
} #endregion
function array_fill(arr, startIndex, endIndex, value = 0) { #region
INLINE
for( var i = startIndex; i < endIndex; i++ )
arr[i] = value;
} #endregion
function array_resize_fill(arr, size, fill = 0) { #region
if(size < array_length(arr)) {
array_resize(arr, size);
return arr;
}
var i = array_length(arr);
for(; i < size; i++)
arr[i] = fill;
return arr;
} #endregion
enum ARRAY_OVERFLOW {
_default,
loop,
pingpong
}
function array_safe_get_fast(arr, index, def = 0) { #region
INLINE
return is_array(arr) && index >= 0 && index < array_length(arr)? arr[index] : def;
} #endregion
function array_safe_get(arr, index, def = 0, overflow = ARRAY_OVERFLOW._default) { #region
INLINE
if(!is_array(arr)) return def;
if(is_array(index)) return def;
var len = array_length(arr);
if(len == 0) return def;
if(overflow == ARRAY_OVERFLOW.loop) {
if(index < 0)
index = len - safe_mod(abs(index), len);
index = index % len;
} else if(overflow == ARRAY_OVERFLOW.pingpong) {
if(index < 0) index = len - safe_mod(abs(index), len);
var _plen = len * 2 - 1;
index = index % _plen;
if(index >= len)
index = _plen - index;
}
if(index < 0) return def;
if(index >= len) return def;
return arr[index] == undefined? def : arr[index];
} #endregion
function array_push_create(arr, val) { #region
INLINE
if(!is_array(arr)) return [ val ];
array_push(arr, val);
return arr;
} #endregion
function array_get_decimal(arr, index, color = false) { #region
INLINE
if(!is_array(arr)) return 0;
if(frac(index) == 0) return array_safe_get_fast(arr, index);
var v0 = array_safe_get_fast(arr, floor(index));
var v1 = array_safe_get_fast(arr, floor(index) + 1);
return color?
merge_color(v0, v1, frac(index)) :
lerp(v0, v1, frac(index));
} #endregion
function array_exists(arr, val) { #region
INLINE
self.__temp_val = val;
if(!is_array(arr)) return false;
return array_any(arr, function(_val, _ind) {
return isEqual(_val, self.__temp_val);
});
} #endregion
function array_overlap(arr0, arr1) { #region
INLINE
self.__temp_arr = arr1;
if(!is_array(arr0)) return false;
if(!is_array(arr1)) return false;
return array_any(arr0, function(_val, _ind) {
return array_exists(self.__temp_arr, _val);
});
} #endregion
function array_empty(arr) { #region
INLINE
return is_array(arr) && array_length(arr) == 0;
} #endregion
function array_find(arr, val) { #region
INLINE
self.__temp_val = val;
if(!is_array(arr)) return -1;
return array_find_index(arr, function(_val, _ind) {
return isEqual(_val, self.__temp_val);
});
} #endregion
function array_find_string(arr, val) { #region
INLINE
self.__temp_val = string_lower(val);
if(!is_array(arr)) return -1;
return array_find_index(arr, function(_val, _ind) {
return string_lower(_val) == self.__temp_val;
});
} #endregion
function array_remove(arr, val) { #region
INLINE
if(!is_array(arr)) return;
if(!array_exists(arr, val)) return;
var ind = array_find(arr, val);
array_delete(arr, ind, 1);
} #endregion
function array_push_unique(arr, val) { #region
INLINE
if(!is_array(arr)) return;
if(array_exists(arr, val)) return;
array_push(arr, val);
} #endregion
function array_insert_unique(arr, ind, val) { #region
INLINE
if(!is_array(arr)) return;
if(array_exists(arr, val)) return;
array_insert(arr, ind, val);
} #endregion
function array_append(arr, arr0) { #region
INLINE
if(!is_array(arr)) return arr;
if(!is_array(arr0)) return arr;
for( var i = 0, n = array_length(arr0); i < n; i++ )
array_push(arr, arr0[i]);
return arr;
} #endregion
function array_merge() { #region
INLINE
var arr = [];
for( var i = 0; i < argument_count; i++ )
array_append(arr, argument[i]);
return arr;
} #endregion
function array_clone(arr, _depth = -1) { #region
INLINE
if(_depth == 0) return arr;
if(!is_array(arr)) return arr;
var _res = [];
for( var i = 0, n = array_length(arr); i < n; i++ )
_res[i] = array_clone(arr[i], _depth--);
return _res;
} #endregion
function array_min(arr) { #region
INLINE
if(!is_array(arr) || array_length(arr) == 0) return 0;
var mn = arr[0];
for( var i = 0, n = array_length(arr); i < n; i++ )
mn = min(mn, arr[i]);
return mn;
} #endregion
function array_max(arr) { #region
INLINE
if(!is_array(arr) || array_length(arr) == 0) return 0;
var mx = arr[0];
for( var i = 0, n = array_length(arr); i < n; i++ )
mx = max(mx, arr[i]);
return mx;
} #endregion
function array_get_dimension(arr) { #region
INLINE
return is_array(arr)? array_length(arr) : 1;
} #endregion
function array_shape(arr, first = true, isSurface = false) { #region
if(!is_array(arr)) {
if(isSurface && is_surface(arr))
return (first? "" : " x ") + string(surface_get_width_safe(arr)) + " x " + string(surface_get_height_safe(arr)) + " px";
return "";
}
var dim = string(array_length(arr));
if(array_length(arr))
dim += array_shape(arr[0], false, isSurface);
return (first? "" : " x ") + dim;
} #endregion
function array_get_depth(arr) { #region
INLINE
if(!is_array(arr)) return 0;
var d = 0;
var p = arr;
while(is_array(p) && !array_empty(p)) {
d++;
p = p[0];
}
return d;
} #endregion
function array_spread(arr, _arr = [], _minDepth = 0) { #region
INLINE
if(array_get_depth(arr) == _minDepth) {
array_push(_arr, arr);
return _arr;
}
for( var i = 0, n = array_length(arr); i < n; i++ )
array_spread(arr[i], _arr, _minDepth);
return _arr;
} #endregion
function array_verify(arr, length) { #region
INLINE
if(!is_array(arr)) return array_create(length);
if(array_length(arr) == length) return arr;
array_resize(arr, length);
return arr;
} #endregion
function array_insert_after(arr, before, values) { #region
INLINE
var _ind = array_find(arr, before) + 1;
for( var i = 0, n = array_length(values); i < n; i++ )
array_insert(arr, _ind + i, values[i]);
} #endregion
function array_insert_before(arr, before, values) { #region
INLINE
var _ind = array_find(arr, before);
for( var i = 0, n = array_length(values); i < n; i++ )
array_insert(arr, _ind + i, values[i]);
} #endregion
#macro array_equals array_equals_overwrite
#macro __array_equals array_equals
function array_equals_overwrite(arr1, arr2) { #region
if(!is_array(arr1) && is_array(arr2)) return false;
if( is_array(arr1) && !is_array(arr2)) return false;
if(!is_array(arr1) && !is_array(arr2)) return arr1 == arr2;
return __array_equals(arr1, arr2)
} #endregion