SSA20

【機能】

    点の直線への投影点を求める（2D）


【使用形式】

    CALL  SSA20(X,Y,XS,YS,XE,YE,XYP,IR)


【引数説明】

    ［INPUT］
	X, Y           : 点の座標
	XS, YS, XE, YE : 直線の通過点の座標

    ［OUTPUT］
	XYP(2)         : 投影点の座標テーブル 
　　　　　　　　　　　　　　　　　┼─┼─┼
　　　　　　　　　　　　　　　　　│Ｘ│Ｙ│
　　　　　　　　　　　　　　　　　┼─┼─┼
	IR             : リターンフラグ
                          0 ; 投影点が存在する
                          1 ; 点が直線上に存在する
                         -1 ; 入力エラー


【機能説明】

  ・(XS, YS)=(XE, YE)の時のみIR=-1を出力する。
  ・IR=1の場合はX, YをXYPにセットする。


【使用ルーチン】

    SSG40