gen_image_const (Image, 'real', 512, 512)
*生成深度图1
copy_image (Image, ImageDeep1)
for i:=1 to 200 by 1
gen_region_line (RegionLines, i, i, i+5, i+40)
paint_region (RegionLines, ImageDeep1, ImageDeep1, 100.2+i*2.5, 'fill')
endfor
*生成深度图2
copy_image (Image, ImageDeep2)
for i:=1 to 200 by 1
for j:=1 to 200 by 1
set_grayval (ImageDeep2, i, j, 100.2+i*2.5)
endfor
endfor
*生成深度图3
row2:=[]
cols2:=[]
gray2:=[]
copy_image (Image, ImageDeep3)
for i:=1 to 200 by 1
for j:=1 to 200 by 1
row2:=[row2, i]
cols2:=[cols2, j]
gray2:=[gray2, 100.2+i*2.5]
endfor
endfor
set_grayval (ImageDeep3, row2, cols2, gray2)
*生成深度图4
copy_image (ImageDeep3, ImageDeep4)
get_image_pointer1 (ImageDeep4, Pointer, Type, Width, Height)
gen_image1 (ImageDeep4, 'real', Width, Height, Pointer)