procedureじゃなくてfunctionでresultを返すようにする

function chkimg_xyc(image, x1=0, y1=0, x2=1920, y2=1080)
  result = chkimg(image, 0, x1, y1, x2, y2, -1)
fend