内分点 外分点

command /naibun <integer> <integer> <integer> <integer> <integer> <integer>:
    trigger:
        set {_mom} to (arg-5) + (arg-6)
        set {_chiX} to (arg-1*arg-6)+(arg-3*arg-5)
        set {_chiY} to (arg-2*arg-6)+(arg-4*arg-5)
        send "%{_chiX}% / %{_mom}%   ,   %{_chiY}% / %{_mom}%"

command /gaibun <integer> <integer> <integer> <integer> <integer> <integer>:
    trigger:
        set {_mom} to (arg-5) - (arg-6)
        set {_chiX} to (arg-1*arg-6*-1)+(arg-3*arg-5)
        set {_chiY} to (arg-2*arg-6*-1)+(arg-4*arg-5)
        if {_mom} < 0:
            set {_mom} to {_mom}*-1
            set {_chiX} to {_chiX}*-1
            set {_chiY} to {_chiY}*-1
        send "%{_chiX}% / %{_mom}%   ,   %{_chiY}% / %{_mom}%"