script, cmp, a, b, begin
  exit returning(sign(a -- b))
end

script, large, a, b, begin
  if(a > b) then(exit returning(a))
  exit returning(b)
end

script, small, a, b, begin
  if(a < b) then(exit returning(a))
  exit returning(b)
end

script, set parent preserve pos, slice, new parent, begin
  variable(px, py)
  px := slice screen x(slice)
  py := slice screen y(slice)
  set parent(slice, new parent)
  set slice screen x(slice, px)
  set slice screen y(slice, py)
end

script, loopvar, n, min, max, begin
  n += 1
  if(n > max) then(n := min)
  exit returning(n)
end

script, dist squared, sl1, sl2, begin
  variable(a, b)
  a := slice screen x(sl1) -- slice screen x(sl2)
  b := slice screen y(sl1) -- slice screen y(sl2)
  exit returning(a^2 + b^2)
end