【机器视觉】Halocon简单国际棋盘 (拓展三色棋盘)

主要分为几个部分:

首先生成800*800的图片(大小可以自己定)

思路:分别判断是奇数行还是偶数行然后判断是奇数列还是偶数列,然后指定颜色

全部代码:

*绘制一个棋盘格
gen_image_const (Image, 'byte',800, 800)
dev_get_window (WindowHandle)
get_image_size (Image, Width, Height)
for h:=0 to Width-40 by 40 
    for w := 0 to Height-40 by 40
     gen_rectangle1 (Rectangle, w, h, w+40, h+40)
    *先判断行号--偶数行还是奇数行
    *偶数行
    if(h/40%2==0)
        if(w/40%2==0)
            gray:=255
           else
            continue
            gray:=0
        endif
     *奇数行
      elseif (h/40%2==1)
         if(w/40%2==0)
             continue
             gray:=0
    
             else
             gray:=255
         endif
    endif
    paint_region (Rectangle, Image, Image, 255, 'fill')
     
    endfor
   
endfor

运行结果:

拓展三色棋盘



*绘制一个棋盘格
gen_image_const (Image, 'byte', 800, 800)
*在窗体上绘制
get_image_size (Image, Width, Height)
for w:=0 to Width by 40
    for h:=0 to Height by 40
        gen_rectangle1 (Rectangle, w, h, w+40, h+40)  
        if (h/40%3==0)
            *奇数列偶数 白色
            if(w/40%3==0)
                gray:=255
            elseif (w/40%3==1)
                continue
                gray:=0
            elseif (w/40%3==2)
                gray:=128
            endif
        elseif (h/40%3==1)
            *奇数列偶数黑色 奇数白色
            if(w/40%3==0)
                continue
                gray:=0
            elseif (w/40%3==1)
                gray:=128
            elseif (w/40%3==2)
                gray:=255
            endif
        else
            if(w/40%3==0)
                gray:=128
            elseif (w/40%3==1)
                gray:=255
            elseif (w/40%3==2)
                continue
                gray:=0
            endif
        endif    
        paint_region (Rectangle, Image, Image, gray, 'fill')
    endfor
endfor

运行结果:

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值