tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

more compact PNM8 file

Browse Source
This commit is contained in:
tTh
2024-01-06 18:47:47 +01:00
parent 2d7739dd1d
commit f95dc7ed2a
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/chkpixels.f90
View File

@@ -11,7 +11,7 @@ program chkpixels
implicit none
write(0, *) "------ CHKPIXELS ------"
! call test_spit_as(3)
call test_spit_as(3)
call test_spit_rgb(128, 222)
STOP 'BECAUSE NO CPU AVAILABLE'
@@ -59,8 +59,8 @@ contains
value = value + increment
enddo
enddo
call spit_as_pgm_16 (greymap, 'a.pnm')
call spit_as_pgm_eq (greymap, 'b.pnm')
! call spit_as_pgm_16 (greymap, 'a.pnm')
! call spit_as_pgm_eq (greymap, 'b.pnm')
call spit_as_pgm_8 (greymap, 'c.pnm')
call new_spit_a (greymap, 'x.pnm')
end subroutine