基础操作之——生成一张背景图像

1.生成等间距点背景图像

Width := 800
Height := 600
Step := 20
GrayBackground := 230
GrayGrid := 120
Smoothing := 3
* Generate the squared paper.
gen_image_const (Image, 'byte', Width, Height)
scale_image (Image, ImageScaled, 1, GrayBackground)
gen_grid_region (RegionGrid, Step, Step, 'points', Width, Height)
paint_region (RegionGrid, ImageScaled, ImageResult, GrayGrid, 'fill')
gauss_filter (ImageResult, ImageSquaredPaper, Smoothing)
return ()

2.生成等间距网格背景图像

Width := 800
Height := 600
Step := 20
GrayBackground := 230
GrayGrid := 120
Smoothing := 3
* Generate the squared paper.
gen_image_const (Image, 'byte', Width, Height)
scale_image (Image, ImageScaled, 1, GrayBackground)
gen_grid_region (RegionGrid, Step, Step, 'lines', Width, Height)
paint_region (RegionGrid, ImageScaled, ImageResult, GrayGrid, 'fill')
gauss_filter (ImageResult, ImageSquaredPaper, Smoothing)
return ()