program test24
use forimage, only: format_pnm, ik
implicit none
type(format_pnm) :: image1, image2, image3
integer(ik), dimension(10,6) :: px1
integer(ik), dimension(60,60) :: px2
integer(ik), dimension(4,12) :: px3
print*,' '
print'(a)', 'Test 24'
px1(1,:) = [0,0,0,0,1,0]
px1(2,:) = [0,0,0,0,1,0]
px1(3,:) = [0,0,0,0,1,0]
px1(4,:) = [0,0,0,0,1,0]
px1(5,:) = [0,0,0,0,1,0]
px1(6,:) = [0,0,0,0,1,0]
px1(7,:) = [1,0,0,0,1,0]
px1(8,:) = [0,1,1,1,0,0]
px1(9,:) = [0,0,0,0,0,0]
px1(10,:) = [0,0,0,0,0,0]
call image1%set_pnm(encoding='binary', file_format='pbm', width=6, height=10, comment='test 1', pixels=px1)
call image1%crop(2,10, 3,6)
call image1%export_pnm('pnm_files/img1_binary_crop')
call image1%export_pnm('pnm_files/img1_ascii_crop', 'ascii')
call image1%print_info()
call image1%finalize()
px2 = transpose(reshape(&
[255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
251,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
251,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
251,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
251,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
251,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
237,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
237,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
237,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
237,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
0,&
237,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
242,&
0,&
0,&
0,&
0,&
0,&
119,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255,&
255]&
,shape=shape(px2)))
call image2%set_pnm(encoding='binary', file_format='pgm', width=60, height=60, max_color=255, comment='test 2', pixels=px2)
call image2%crop(2,50, 3,55)
call image2%export_pnm('pnm_files/img2_binary_crop')
call image2%export_pnm('pnm_files/img2_ascii_crop', 'ascii')
call image2%print_info()
call image2%finalize()
px3(1,:) = [14,12,11,0,0,0,0,0,0,15,0,15]
px3(2,:) = [0,0,0,0,15,7,0,0,0,0,0,0]
px3(3,:) = [0,0,0,0,0,0,0,15,7,0,0,0]
px3(4,:) = [15,0,15,0,0,0,0,0,0,0,0,0]
call image3%set_pnm(encoding='binary', file_format='ppm', width=4, height=4, max_color=15, comment='test 2', pixels=px3)
call image3%crop(1,3, 2,4)
call image3%export_pnm('pnm_files/img3_binary_crop')
call image3%export_pnm('pnm_files/img3_ascii_crop', 'ascii')
call image3%print_info()
call image3%finalize()
end program test24