36 lines
673 B
Fortran
36 lines
673 B
Fortran
|
! *******************************************
|
||
|
|
!
|
||
|
|
! *******************************************
|
||
|
|
|
||
|
|
program geowaves
|
||
|
|
|
||
|
|
use pixrgb
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer :: width = 640
|
||
|
|
integer :: height = 480
|
||
|
|
integer :: marge = 10
|
||
|
|
type(t_pixrgb), allocatable :: pix(:,:)
|
||
|
|
integer :: x, y, h
|
||
|
|
real :: dist
|
||
|
|
|
||
|
|
allocate(pix(width, height))
|
||
|
|
|
||
|
|
do x=marge, width-marge
|
||
|
|
|
||
|
|
! write (0, *) " Y =", y
|
||
|
|
|
||
|
|
do y=marge, height-marge, 5
|
||
|
|
|
||
|
|
print *, x, y
|
||
|
|
pix(x, y)%g = 30000
|
||
|
|
|
||
|
|
enddo
|
||
|
|
|
||
|
|
enddo
|
||
|
|
|
||
|
|
call rgbpix_spit_as_pnm_16(pix, "foo.pnm")
|
||
|
|
|
||
|
|
end program geowaves
|
||
|
|
|