Pixel-Composer/scripts/node_sequence_anim/node_sequence_anim.gml

function Node_Sequence_Anim(_x, _y, _group = noone) : Node(_x, _y, _group) constructor {
	name = "Array to Anim";
	update_on_frame = true;
	
	inputs[| 0] = nodeValue("Surface in", self, JUNCTION_CONNECT.input, VALUE_TYPE.surface, [])
		.setArrayDepth(1);
	
	inputs[| 1] = nodeValue("Speed", self, JUNCTION_CONNECT.input, VALUE_TYPE.float, 1)
		.rejectArray();
		
	inputs[| 2] = nodeValue("Sequence", self, JUNCTION_CONNECT.input, VALUE_TYPE.integer, [])
		.setVisible(true, true)
		.setArrayDepth(1);
		
	inputs[| 3] = nodeValue("Overflow", self, JUNCTION_CONNECT.input, VALUE_TYPE.integer, 0)
		.setDisplay(VALUE_DISPLAY.enum_scroll, [ "Hold", "Loop", "Ping Pong", "Empty" ]);
	
	outputs[| 0] = nodeValue("Surface out", self, JUNCTION_CONNECT.output, VALUE_TYPE.surface, noone);
	
	sequence_surface = noone;
	sequence_renderer = new Inspector_Custom_Renderer(function(_x, _y, _w, _m, _hover, _focus) {
		var _seq = getInputData(0);
		var _ord = getInputData(2);
		var _h = ui(64);
		
		if(!is_array(_seq)) return _h;
		
		if(array_length(_ord) == 0) {
			_ord = array_create(array_length(_seq));
			for( var i = 0, n = array_length(_seq); i < n; i++ ) 
				_ord[i] = i;
		}
		
		if(_hover && point_in_rectangle(_m[0], _m[1], _x, _y, _x + _w, _y + _h) && inputs[| 2].value_from == noone) {
			draw_sprite_stretched(THEME.button_def, mouse_click(mb_left, _focus)? 2 : 1, _x, _y, _w, _h);
			if(mouse_press(mb_left, _focus)) 
				dialogPanelCall(new Panel_Array_Sequence(self));
		} else
			draw_sprite_stretched(THEME.button_def, 0, _x, _y, _w, _h);
		
		var x0 = _x + ui(4);
		var y0 = _y + ui(4);
		var x1 = _x + _w - ui(4 + 32);
		var y1 = _y + _h - ui(4);
		var sw = x1 - x0;
		var sh = y1 - y0;
		var nn = sh;
		
		draw_sprite_stretched(THEME.ui_panel_bg, 1, x0, y0, sw, sh);
		
		sequence_surface = surface_verify(sequence_surface, sw, sh - ui(8));
		surface_set_target(sequence_surface);
			DRAW_CLEAR
			for( var i = 0, n = array_length(_ord); i < n; i++ ) {
				var o = _ord[i];
				if(o == noone) continue;
				var s = array_safe_get_fast(_seq, o);
				
				if(!is_surface(s)) continue;
				
				var xx = nn * i;
				
				var _sw = surface_get_width_safe(s);
				var _sh = surface_get_height_safe(s);
				var _ss = (nn - ui(4)) / max(_sw, _sh);
				var _sx = xx + nn / 2 - _sw * _ss / 2;
				var _sy =      nn / 2 - _sh * _ss / 2;
				
				draw_surface_ext_safe(s, _sx, _sy, _ss, _ss);
				
				//draw_set_color(COLORS.panel_toolbar_outline);
				//draw_rectangle(xx, 0, xx + nn, nn, true);
			}
		surface_reset_target();
		
		draw_surface_safe(sequence_surface, x0, y0 + ui(4));
		
		draw_sprite_ui(THEME.gear, 0, x1 + ui(16), _y + _h / 2,,,, COLORS._main_icon);
		
		return _h;
	});
	
	input_display_list = [ 0,
		["Frames",		false], sequence_renderer, 2, 3, 
		["Animation",	false], 1, 
	];
	
	static update = function(frame = CURRENT_FRAME) {
		var _sur = getInputData(0);
		if(!is_array(_sur)) {
			outputs[| 0].setValue(_sur);
			return;
		}
		
		var _spd = getInputData(1);
		var _seq = getInputData(2);
		var _ovf = getInputData(3);
		
		var frm = floor(CURRENT_FRAME / _spd);
		var ind = frm;
		
		if(array_length(_seq) == 0) {
			_seq = array_create(array_length(_sur));
			for( var i = 0, n = array_length(_sur); i < n; i++ ) 
				_seq[i] = i;
		}
		
		if(_ovf == 0)
			ind = clamp(ind, 0, array_length(_seq) - 1);
		else if(_ovf == 2) {
			var _slen = array_length(_seq);
			var _slpp = _slen * 2 - 2;
			ind = abs(ind % _slpp);
			if(ind >= _slen)
				ind = _slpp - ind;
		} else if(_ovf == 3 && ind >= array_length(_seq)) {
			outputs[| 0].setValue(noone);
			return;
		}
			
		ind = array_safe_get(_seq, ind,, ARRAY_OVERFLOW.loop);
		
		if(ind == noone) {
			outputs[| 0].setValue(noone);
			return;
		}
		
		outputs[| 0].setValue(array_safe_get_fast(_sur, ind));
	}
}