少有人走的路的图形绘制。
同时学习一下 gen_rectangle1 和 gen_rectangle2 的两个算子之间的区别。
程序如下：
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)
如图所示：
所用到的算子：
产生一个图形常量
注释：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角度的一个矩形）
本文出自勇哥的网站《少有人走的路》wwww.skcircle.com，转载请注明出处！讨论可扫码加群：
