Pixel-Composer/scripts/draw_connect_elbow/draw_connect_elbow.gml
2024-06-30 13:52:55 +07:00

115 lines
No EOL
4.6 KiB
Text

function draw_line_elbow_color(x0, y0, x1, y1, cx = noone, cy = noone, _s = 1, thick = 1, col1 = c_white, col2 = c_white, corner = 0, indexIn = 1, indexOut = 1, type = LINE_STYLE.solid) { #region
corner = min(corner, abs(x0 - x1) / 2, abs(y0 - y1) / 2);
var sample = corner / 4;
sample = clamp(sample, 1, 8);
if(cx == noone) cx = (x0 + x1) / 2;
if(cy == noone) cy = (y0 + y1) / 2;
var _x0 = min(x0, x1);
var _x1 = max(x0, x1);
var _y0 = min(y0, y1);
var _y1 = max(y0, y1);
var th = thick / 2;
var inv = x1 - 16 * indexOut * _s <= x0 + 16 * indexIn * _s;
var rat = inv? (_y1 == _y0? 0.5 : (cy - _y0) / (_y1 - _y0)) :
(_x1 == _x0? 0.5 : (cx - _x0) / (_x1 - _x0));
var cm = merge_color(col1, col2, clamp(rat, 0, 1));
var iy = sign(y1 - y0);
var iy0 = sign(cy - y0);
var iy1 = sign(y1 - cy);
if(y0 != y1 && inv) {
var xx0 = x0 + 16 * _s * indexIn;
var xx1 = x1 - 16 * _s * indexOut;
var corns = min(corner, 16 * _s);
corner = min(corner, abs(cy - y0) / 2, abs(cy - y1) / 2, abs(xx1 - xx0) / 2);
if(type == LINE_STYLE.solid) {
draw_set_color(col1); draw_line_width(x0, y0, xx0 - corns, y0, thick);
draw_set_color(col2); draw_line_width(xx1 + corns, y1, x1, y1, thick);
draw_line_width_color(xx0, y0 + corns * iy0, xx0, cy - corner * iy0, thick, col1, cm);
draw_line_width_color(xx0 - corner * sign(xx0 - xx1), cy, xx1 + corner * sign(xx0 - xx1), cy, thick, cm, cm);
draw_line_width_color(xx1, cy + corner * iy1, xx1, y1 - corns * iy1, thick, cm, col2);
if(corns) {
draw_corner(xx0 - corns, y0, xx0, y0, xx0, y0 + corns * iy0, thick, col1, sample);
draw_corner(xx1, y1 - corns * iy1, xx1, y1, xx1 + corns, y1, thick, col2, sample);
}
if(corner) {
draw_corner(xx0, cy - corner * iy0, xx0, cy, xx0 - corner, cy, thick, cm, sample);
draw_corner(xx1 + corner, cy, xx1, cy, xx1, cy + corner * iy1, thick, cm, sample);
}
} else {
draw_set_color(col1); draw_line_width(x0, y0, xx0, y0, thick);
draw_set_color(col2); draw_line_width(xx1, y1, x1, y1, thick);
draw_line_dashed_color(xx0, y0, xx0, cy, thick, col1, cm, 6 * _s);
draw_line_dashed_color(xx0, cy, xx1, cy, thick, cm, cm, 6 * _s);
draw_line_dashed_color(xx1, cy, xx1, y1, thick, cm, col2, 6 * _s);
}
} else {
if(type == LINE_STYLE.solid) {
corner = min(corner, abs(y1 - y0) / 2, abs(x0 - cx), abs(x1 - cx), abs(x1 - x0) / 2);
draw_line_width_color(x0, y0, cx - corner * sign(cx - x0), y0, thick, col1, cm);
draw_line_width_color(cx, y0 + corner * iy, cx, y1 - corner * iy, thick, cm, cm);
draw_line_width_color(cx + corner * sign(x1 - cx), y1, x1, y1, thick, cm, col2);
if(corner) {
draw_corner(cx - corner * sign(cx - x0), y0, cx, y0, cx, y0 + corner * iy, thick, cm, sample);
draw_corner(cx, y1 - corner * iy, cx, y1, cx + corner * sign(x1 - cx), y1, thick, cm, sample);
}
} else {
draw_line_dashed_color(x0, y0, cx, y0, thick, col1, cm, 6 * _s);
draw_line_dashed_color(cx, y0, cx, y1, thick, cm, cm, 6 * _s);
draw_line_dashed_color(cx, y1, x1, y1, thick, cm, col2, 6 * _s);
}
}
} #endregion
function draw_line_elbow_corner(x0, y0, x1, y1, _s = 1, thick = 1, col1 = c_white, col2 = c_white, corner = 0, indexIn = 1, indexOut = 1, type = LINE_STYLE.solid) { #region
var sample = corner / 4;
sample = clamp(sample, 1, 8);
var rat = abs(x0 - x1) / (abs(x0 - x1) + abs(y0 - y1));
var colc = merge_color(col1, col2, rat);
corner = min(corner, abs(x0 - x1), abs(y0 - y1));
var sx = sign(x1 - x0);
var sy = sign(y1 - y0);
draw_line_round_color(x0, y0, x1 - corner * sx, y0, thick, col1, colc);
draw_line_round_color(x1, y0 + corner * sy, x1, y1, thick, colc, col2);
draw_corner(x1 - corner * sx, y0, x1, y0, x1, y0 + corner * sy, thick, colc, sample);
} #endregion
function distance_to_elbow(mx, my, x0, y0, x1, y1, cx, cy, _s, indexIn = 1, indexOut = 1) { #region
var inv = x1 - 16 * _s * indexOut <= x0 + 16 * _s * indexIn;
var xx0 = x0 + 16 * _s * indexIn;
var xx1 = x1 - 16 * _s * indexOut;
if(y0 != y1 && inv) {
var dist = distance_to_line(mx, my, xx0, y0, xx0, cy);
dist = min(dist, distance_to_line(mx, my, xx0, cy, xx1, cy));
dist = min(dist, distance_to_line(mx, my, xx1, cy, xx1, y1));
return dist;
} else {
var dist = distance_to_line(mx, my, cx, y0, cx, y1);
dist = min(dist, distance_to_line(mx, my, x0, y0, cx, y0));
dist = min(dist, distance_to_line(mx, my, cx, y1, x1, y1));
return dist;
}
} #endregion
function distance_to_elbow_corner(mx, my, x0, y0, x1, y1) { #region
var dist = distance_to_line(mx, my, x0, y0, x1, y0);
dist = min(dist, distance_to_line(mx, my, x1, y0, x1, y1));
return dist;
} #endregion