GOSUB_CAL_POINT_ON_LINE;

機　能　　ある点から線分に下ろした垂線の足の座標を求める
引き数　　X,Y　　　　　　垂線を下ろす点
返す値　　X1,Y1,X2,Y2　 線分の始点・終点座標
　　　　　X,Y           垂線の足の座標