Halcon 绘图

dev_update_off ()
Dark := 100
Background := 175
Light := 250


gen_image_const (Image, 'byte', 256, 280)
scale_image (Image, Image, 1, Background)
gen_rectangle1 (Rectangle, 81, 81, 121, 121)
overpaint_region (Image, Rectangle, Light, 'fill')
gen_rectangle1 (Rectangle, 40, 81, 80, 121)
overpaint_region (Image, Rectangle, Dark, 'fill')
gen_rectangle1 (Rectangle, 81, 40, 121, 80)
overpaint_region (Image, Rectangle, Dark, 'fill')
gen_circle (Circle, 160, 40, 2)
overpaint_region (Image, Circle, Dark, 'fill')
gen_circle (Circle, 160, 100, 4)
overpaint_region (Image, Circle, Dark, 'fill')
gen_circle (Circle, 160, 160, 6)
overpaint_region (Image, Circle, Dark, 'fill')
gen_circle (Circle, 220, 40, 6)
overpaint_region (Image, Circle, Light, 'fill')
gen_circle (Circle, 220, 100, 4)
overpaint_region (Image, Circle, Light, 'fill')
gen_circle (Circle, 220, 160, 2)
overpaint_region (Image, Circle, Light, 'fill')
gen_rectangle1 (Rectangle, 140, 220, 240, 222)
overpaint_region (Image, Rectangle, Light, 'fill')
gen_rectangle1 (Rectangle, 200, 180, 202, 240)
overpaint_region (Image, Rectangle, Light, 'fill')
gen_rectangle2 (Rectangle, 60, 200, rad(45), 40, 10)
overpaint_region (Image, Rectangle, Dark, 'fill')
gen_rectangle2 (Rectangle, 60, 200, rad(-45), 40, 10)
overpaint_region (Image, Rectangle, Dark, 'fill')
dev_display(Image)

所用到的算子：

1.gen_image_const( : Image : Type, Width, Height : )

产生一个图形常量

2.scale_image(Image : ImageScaled : Mult, Add : )

 注释：g' := g * Mult + Add

3.gen_rectangle1( : Rectangle : Row1, Column1, Row2, Column2 : )

产生一个平行坐标轴的矩形

4.overpaint_region(Image, Region : : Grayval, Type : )

绘制矩形

5.gen_circle( : Circle : Row, Column, Radius : )

产生一个圆

6.gen_rectangle2( : Rectangle : Row, Column, Phi, Length1, Length2 : ）

产生一个任意的矩形（和坐标轴倾斜Phi角度的一个矩形）