SSA83

【機能】

    1点と2直線に接する円の情報を得る（2D）


【使用形式】

    CALL  SSA83(X,Y,X1S,Y1S,X1E,Y1E,X2S,Y2S,X2E,
                     Y2E,XYC,IR)


【引数説明】

    ［INPUT］
        X, Y                : 点の座標
       X1S, Y1S, X1E, Y1E  : 直線の通過点の座標
       X2S, Y2S, X2E, Y2E  : 直線の通過点の座標

    ［OUTPUT］
        XYC(7, 2)  : 接円情報テーブル
           +----+----+----+-----+-----+-----+-----+
           | XC | YC | RT | XT1 | YT1 | XT2 | YT2 |  接円1
           +----+----+----+-----+-----+-----+-----+
           |    |    |    |     |     |     |     |  接円2
           +----+----+----+-----+-----+-----+-----+
           :.........: ↓ :..........: :..........:
           接円の中心    直線1との接点    ↓
                      半径              直線2との接点
        IR      : リターンフラグ
                    0〜2 ; 接円の数
                     -1 ; 入力エラー

【機能説明】

    ・1点を通り2直線に接する円の中心座標、半径、2直線との接
   点座標を出力する。
    ・(X1S, Y1S)=(X1E, Y1E)または(X2S, Y2S)=(X2E, Y2E)の場合の
   みIR=-1を出力する。

【使用ルーチン】

    SSG40, SSA011, SSA20, SS021