●二点四角座標取得

「●二点四角座標取得」の編集履歴(バックアップ)一覧に戻る

●二点四角座標取得 - (2009/01/04 (日) 00:26:02) のソース

*情報
作者名:五十六
引用元:なし

*概要
座標(A,B)(M,N)から作られる四角形のX,Y,W,Hを返します。

*解説
***引数
A,B:座標1
M,N:座標2

***返り値
X,Y,W,H(配列)

*サンプルプログラム
 100,10と10,100で二点四角座標取得して言う。
 
 /*
 10
 10
 90
 90
 */

*//本体
 ●二点四角座標取得(A,BとM,Nで)
   ZZ=空。
   A=INT(A)。B=INT(B)。M=INT(M)。N=INT(N)。
   もし、A>Mならば、AとMを交換。
   もし、B>Nならば、BとNを交換。
   WW=M-A。HH=N-B。
   ZZ[0]=A。ZZ[1]=B。ZZ[2]=INT(WW)。ZZ[3]=INT(HH)。
   ZZで戻る。
 
 ●交換({参照渡し}Aと{参照渡し}Bを)
   エラー監視、M=A。N=B。A=N。B=M。
   エラーならば、「0」で戻る。
   「1」で戻る。

----
#comment()

----
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。