program test17 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 17' 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%export_pnm('pnm_files/img1_binary_negative') call image1%export_pnm('pnm_files/img1_ascii_negative', '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%negative() call image2%export_pnm('pnm_files/img2_binary_negative') call image2%export_pnm('pnm_files/img2_ascii_negative', '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%negative() call image3%export_pnm('pnm_files/img3_binary_negative') call image3%export_pnm('pnm_files/img3_ascii_negative', 'ascii') call image3%print_info() call image3%finalize() end program test17