first run of readpicz

This commit is contained in:
tTh 2024-02-27 01:22:18 +01:00
parent 764d7343f2
commit d76861a4e4
4 changed files with 64 additions and 0 deletions

2
GrafAnim/.gitignore vendored
View File

@ -6,6 +6,7 @@ trigofest
noisepic noisepic
geowaves geowaves
soundscope soundscope
readpicz
*.scratch *.scratch
*.genplot *.genplot
@ -16,4 +17,5 @@ F/*.tga
*.pgm *.pgm
*.data *.data
*.png *.png
log.txt

View File

@ -32,6 +32,9 @@ wavmetrics.o: wavmetrics.f90 Makefile
soundscope: soundscope.f90 Makefile utils_ga.o soundscope: soundscope.f90 Makefile utils_ga.o
gfortran $(GFOPT) $< $(MYLIB) utils_ga.o -o $@ gfortran $(GFOPT) $< $(MYLIB) utils_ga.o -o $@
readpicz: readpicz.f90 Makefile utils_ga.o
gfortran $(GFOPT) $< $(MYLIB) utils_ga.o -o $@
# ---- modules locaux ---- # ---- modules locaux ----
usegenplot.o: usegenplot.f90 Makefile usegenplot.o: usegenplot.f90 Makefile

52
GrafAnim/readpicz.f90 Normal file
View File

@ -0,0 +1,52 @@
program readpicz
use pixrgb
implicit none
integer :: nbarg
integer :: param0 = 10
character(len=256) :: arg
! integer :: foo, bar
integer :: width = 640
integer :: height = 480
integer :: x, y, r, g, b
integer :: errcode
character (len=280) :: filename
type(t_pixrgb), allocatable :: pix(:,:)
filename = "out.pnm"
nbarg = IARGC()
if (nbarg .GT. 0) then
call GETARG(1, arg)
! write (0, '(A40, A5)') "argument = ", arg
read (arg, *) param0
endif
allocate(pix(width, height))
do
!----- get a pixel
read(5, *, iostat=errcode) x, y, r, g, b
! print *, x, y
if (0 .NE. errcode) then
write(0, *) "iostat", errcode
exit
endif
pix(x+1, y+1)%r = b * 200
pix(x+1, y+1)%g = b * 200
pix(x+1, y+1)%b = r * 200
enddo
call rgbpix_spit_as_pnm_16(pix, trim(filename))
contains
! ----------------------------------------------------------
! ----------------------------------------------------------
end program

7
GrafAnim/t_readpicz.sh Executable file
View File

@ -0,0 +1,7 @@
#!/bin/bash
tga_mires mircol0 mire.tga "Fortran Moderne"
tga_to_text foo.tga | ./readpicz