crop(切り取り) する 例を示します。 fortran でかかれています。 ppm file は、その構造が簡単で、file を見れば構造を理解するこ とが出来ます。 c c ppm flame-cutter by R. Saito c parameter(n=1000) dimension i(3,n,n),ii(3,40000) equivalence (i,ii) character*60 j1,j2 c open(50,file='cut.par') read(50,*) ixs,ixe,iys,iye close(50,status='keep') c open(50,file='aa.ppm') read(50,1) j1 read(50,1) j2 write(*,*) j1 write(*,*) j2 1 format(a60) read(50,*) ix,iy c if(ixe.gt.ix) stop 'ixe.gt.ix' if(iye.gt.iy) stop 'iye.gt.iy' if(ix.gt.n) stop 'ix.gt.n' if(iy.gt.n) stop 'iy.gt.n' c read(50,*) icmax c read(50,*) (((i(j,k,l),j=1,3),k=1,ix),l=1,iy) write(*,*) j,k,l close(50,status='keep') c write(*,*) ixs,ixe,iys,iye c ixx=ixe-ixs+1 iyy=iye-iys+1 c open(60,file='bb.ppm') write(60,12) 12 format('P3') write(60,13) 13 format('# ppm cutter by R.Saito') write(60,*) ixx,iyy write(60,*) icmax c write(60,10) (((i(j,k,l),j=1,3),k=ixs,ixe),l=iys,iye) 10 format(1h ,15i4) close(60,status='keep') stop end