SSA01


【機能】

    直線の通過点を与えて円との交点を求める(2D)


【使用形式】

    CALL  SSA01(XS,YS,XE,YE,XC,YC,R,XYP,IR)


【引数説明】

    [INPUT]
        XS,YS,XE,YE : 直線の通過点の座標
        XC,YC       : 円の中心座標
        R           : 円の半径(R>0)


    [OUTPUT]
        XYP(2, 2)   : 交点座標テーブル
             ┼─────┼─────┼
             │(1,1)│(2,1)│ 交点1(X1, Y1)
             │(1,2)│(2,2)│ 交点2(X2, Y2)
             ┼─────┼─────┼

        IR          : リターンフラグ
                         0 ; 交点なし
                         1 ; 交点が1点存在する(接する)
                         2 ; 2交点が存在する
                        -1 ; 入力エラー


【機能説明】

  ・(XS, YS)=(XE, YE)またはR≦0の時のみ、IR=-1を出力する。


【使用ルーチン】

    SSG40, SSA011