主要分为几个部分:
首先生成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
运行结果: