SSB44

【機能】

    2直線間の最短距離を求める（2D）


【使用形式】

    CALL  SSB44(PS1,PE1,PS2,PE2,XYTB,ISE,ZDI,IR)


【引数説明】

    ［INPUT］
        PS1(2), PE1(2)  : 直線1始終点座標
       PS2(2), PE2(2)  : 直線2始終点座標

    ［OUTPUT］
        XYTB(4)  : アイテム上の最短距離点座標
                      1    2    3    4     交点セットのときは
                    +----+----+----+----+    XYTB(1)=XYTB(3)
                    | X1 | Y1 | X2 | Y2 |    XYTB(2)=XYTB(4)
                    +----+----+----+----+
                      ↓   ↓  ↓ ↓
                     直線1    直線2

       ISE      : アイテム上の点位置フラグ    1    2
                    -1 ; 平行                +----+----+
                     0 ; 始終点以外          |    |    |
                     1 ; 始点                +----+----+
                     2 ; 終点               直線1 直線2 
        ZDI      : 最短距離
        IR       : リターンコード
                    0 ; 正常
                    1 ; 入力エラー

【機能説明】

    ・2直線間の最短距離を求める。
    ・2直線が指示範囲で交わっているとき、最短距離はゼロとなる。
    ・2直線が平行な場合、最短距離点座標は直線1の始終点のいず
   れかと、その点を直線2に投影した点がセットされる。