///@func set_resolution(design_value, is_design_vertical, is_orientation_vertical, resize_all_rooms, scale (optional), overide_other_value (optional))
///@arg design_value                  real      width or height of ideal resolution
///@arg is_design_value_vertical      boolean   When true, the design_value is condidered as height; when false, as width
///@arg is_orientation_vertical       boolean   When true, the screen orientation is considered as portrait; when false, as landscape
///@arg resize_all_rooms              boolean   When true: Rooms (except room index 0), will be resized to resulting value
///@arg scale(optional)               real      (Optional) Scale the game window to better fit the monitor. Will ommited on any non windows and non macos builds
///@arg overide_other_value(optional) real      (Optional) Overides the value other than the design_value arg for a custom aspect ratio. Will ommited like scale arg

///Written by George Kritikos (Harpwood studio) - Based on code written by Pixelpope
///@License MIT License https://opensource.org/licenses/MIT

// arguments evaluation
if argument_count < 4 or argument_count > 6 then show_error("Error set_resolution script: Incorect number of arguments. Expected number of arguments are minimum of 4 to maximum of 6.", true);

var _arg = [];

for (var i = 0; i < 6; i++;)
{
    if argument_count > i then _arg[i] = argument[i] else _arg[i] = undefined;
    trace(_arg[i]);
}


// assigning _arg[] values for readability
var _design_value               = _arg[0];
var _is_design_value_vertical   = _arg[1];
var _is_orientation_vertical    = _arg[2];
var _resize_all_rooms           = _arg[3];
var _scale                      = _arg[4] == undefined ? 1 : _arg[4]; // default scale = 1
var _overide_other_value        = _arg[5];

//detect os_type only if is GMS2 IDE approprate
_os_type = os_type == os_windows ? os_windows : os_macosx;

// The design value is either the design width or height. Every calculation in build with Test -> VM get a temporary scaling
var _desing_width   = os_type == _os_type ? _design_value * _scale : _design_value;
var _desing_height  = os_type == _os_type ? _design_value * _scale : _design_value;

var _real_width, _real_height, _aspect_ratio, _ideal_width, _ideal_height;

if _is_orientation_vertical
{
    //dirty way to get portait orientation for os_windows/os_macosx
    _real_width     = os_type == _os_type ? display_get_height()  * _scale : display_get_width();
    _real_height    = os_type == _os_type ? display_get_width() * _scale : display_get_height();
    _aspect_ratio   = _real_width >= _real_height ? _real_height / _real_width : _real_width / _real_height;

    if _is_design_value_vertical    //The design value is reffering to vertical so we calculate the horizontal
    {
        _ideal_height = _desing_height;
        if os_type == _os_type then _ideal_width = _overide_other_value == undefined ? round(_ideal_height * _aspect_ratio) : _overide_other_value * _scale;
        else _ideal_width = round(_ideal_height * _aspect_ratio);
    }
    else                            //and vice versa
    {
        _ideal_width = _desing_width;
        if os_type == _os_type then _ideal_height = _overide_other_value == undefined ? round(_ideal_width / _aspect_ratio) : _overide_other_value * _scale;
        else _ideal_height = round(_ideal_width / _aspect_ratio);
    }

}
else
{
    _real_width     = os_type == _os_type ? display_get_width()  * _scale : display_get_width();
    _real_height    = os_type == _os_type ? display_get_height() * _scale : display_get_height();
    _aspect_ratio   = _real_width >= _real_height ? _real_height / _real_width : _real_width / _real_height;


    if _is_design_value_vertical    //The design value is reffering to vertical so we calculate the horizontal
    {
        _ideal_height = _desing_height;
        if os_type == _os_type then _ideal_width = _overide_other_value == undefined ?  round(_ideal_height / _aspect_ratio) : _overide_other_value * _scale;
        else _ideal_width =  round(_ideal_height / _aspect_ratio);
    }
    else                            //and vice versa
    {
        _ideal_width = _desing_width;
        if os_type == _os_type then _ideal_height = _overide_other_value == undefined ? round(_ideal_width * _aspect_ratio) : _overide_other_value * _scale;
        else _ideal_height = round(_ideal_width * _aspect_ratio);
    }
}

//make the results more pixel perfect friendly
if _ideal_width & 1 then _ideal_width++;
if _ideal_height & 1 then _ideal_height++;

if _resize_all_rooms //apply resolution results to all rooms?
{
    for (var i = 1; i < room_last; i++) //all rooms except room with index 0, which usually is the init room
    {
        if room_exists(i)
        {
            room_set_width(i, _ideal_width);
            room_set_height(i, _ideal_height);
        }
    }
}

application_surface_enable(false);  // false as default behaviour
window_set_size(_ideal_width, _ideal_height);
surface_resize(application_surface, _real_width, _real_height);

//remove the temporary scaling if building with Test -> VM and apply results in global vars for further use
global.ideal_width = os_type == _os_type ? _ideal_width / _scale : _ideal_width;
global.ideal_height = os_type == _os_type ? _ideal_height / _scale : _ideal_height;