「●二点四角座標取得」の編集履歴(バックアップ)一覧はこちら
「●二点四角座標取得」(2009/05/31 (日) 17:26:57) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
*情報
作者名:五十六
引用元:なし
*概要
座標(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()
----
*情報
作者名:五十六
引用元:なし
*概要
座標(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()
----