UWSC｜見つけた指定画像の中心座標を返す自作関数

//　指定画像が画面上にあるかチェック、あればその情報を返す
戻値 = CHKIMG( [画像名,　透過色/色無視,　x1,　y1,　x2,　y2,　番号,　色幅] )
引数
　画像名： 画像ファイル名（BMP形式のみ） （画像名を省略した場合はクリップボードから）
　透過色/色無視：
　　　　 0： 指定なし （デフォルト）
　　　　 1： 左上、2:右上、3:左下、4:右下　の１ピクセルの色を透過色として処理
　　　　-1： 色を無視して形でチェックする
　x1,　y1,　x2,　y2： サーチ範囲
　番号： 複数ある場合に順番を指定 （左上から）
　　　　-1：　-1が指定された場合はヒットした数を戻値として返し、座標情報は ALL_IMG_X[], ALL_IMG_Y[] に格納
　　　　　　 （G_IMG_X、 G_IMG_Y には最後にヒットした位置が入る）
　色幅： チェックに色幅を持たせる　（色無視指定時もしくは 16bitカラー以下の場合は無効）
　　　　IMG_MSK_BGR1　　// 各色(BGR)に対し 2/256の色幅を許す
　　　　IMG_MSK_BGR2　　// 各色(BGR)に対し 4/256の色幅を許す
　　　　IMG_MSK_BGR3　　// 各色(BGR)に対し 8/256の色幅を許す
　　　　IMG_MSK_BGR4　　// 各色(BGR)に対し 16/256の色幅を許す
　　　　IMG_MSK_B1, 2, 3, 4　　// 青に対し 2/256, 4/256, 8/256, 16/256の色幅を許す
　　　　IMG_MSK_G1, 2, 3, 4　　// 緑に対し 2/256, 4/256, 8/256, 16/256の色幅を許す
　　　　IMG_MSK_R1, 2, 3, 4　　// 赤に対し 2/256, 4/256, 8/256, 16/256の色幅を許す
　　　　 ※ 演算可　例：IMG_MSK_B1 or IMG_MSK_R3（青に対し 2/256の色幅を許す + 赤に対し 8/256の色幅を許す）
戻値
　有ればTRUE、無ければFALSE
　TRUE の場合は見つかった座標を特殊変数　G_IMG_X、 G_IMG_Y に格納
　番号にて -1指定時はヒットした数を返し、座標情報は配列変数 ALL_IMG_X[], ALL_IMG_Y[] に格納（配列はゼロから）

引用：UWSCリファレンスより

うーん。CHKIMG()関数の引数が多すぎて覚えるの嫌です。というわけで、使いそうな機能だけに絞って翻訳関数作成。

“翻訳関数”とは、単に関数名の文字数を少なくしたり、引き渡すパラメータを一部固定にし簡単に呼び出せるようにするポク太郎の造語。

同じ画像でもグラフィックカードにより表示が変化なんてことも→認識に多少幅を持たせた方がよさそう。でもIMG_MSK_BGRなんて特殊暗号を覚えたくないので数値指定に。

また、画像の中心座標を得るため、前回のBMP画像の幅と高さを得る関数を使用します。
　wh=bmp(pic)
として、前回の関数に画像のパス渡し→wh[0]に幅、 wh[1]に高さが入るので、それぞれ1/2したものを画像が見つかった座標に足し算。

FUNCTION imgxyc(m,pic)//m:色幅指定、pic:ビットマップファイルのパス
            DIM xy[1]
            find=0
            wh=bmp(pic)
      SELECT m
      CASE 1
         IF CHKIMG(pic,,SX1,SY1,SX2,SY2,,IMG_MSK_BGR1)
            xy[0]=G_IMG_X+wh[0]/2
            xy[1]=G_IMG_Y+wh[1]/2
            find=1
         ENDIF
      CASE 2
         IF CHKIMG(pic,,SX1,SY1,SX2,SY2,,IMG_MSK_BGR2)
            xy[0]=G_IMG_X+wh[0]/2
            xy[1]=G_IMG_Y+wh[1]/2
            find=1
         ENDIF
      CASE 3
         IF CHKIMG(pic,,SX1,SY1,SX2,SY2,,IMG_MSK_BGR3)
            xy[0]=G_IMG_X+wh[0]/2
            xy[1]=G_IMG_Y+wh[1]/2
            find=1
         ENDIF
      CASE 4
         IF CHKIMG(pic,,SX1,SY1,SX2,SY2,,IMG_MSK_BGR4)
            xy[0]=G_IMG_X+wh[0]/2
            xy[1]=G_IMG_Y+wh[1]/2
            find=1
         ENDIF
      SELEND
         IF find=0
            xy[0]=0
            xy[1]=0
         ENDIF
            RESULT=SLICE(xy,0,LENGTH(xy)-1)
FEND

   xy=imgxyc(4,"C:\poku\ポク太郎アイコン.bmp")//4は色幅の指定です
   x=xy[0]//見つかった位置の中心x座標
   y=xy[1]//見つかった位置の中心y座標