2022-12-24 07:11:46 +11:00
|
|
|
program t
|
|
|
|
|
|
|
|
|
|
use fractcolmap
|
|
|
|
|
|
|
|
|
|
call fcolm_infos('from main')
|
|
|
|
|
! call fcolm_make_gray()
|
|
|
|
|
|
|
|
|
|
call fcolm_load_mapfile('volcano.map')
|
|
|
|
|
call fcolm_plot_mapfile('volcano.pnm')
|
|
|
|
|
|
|
|
|
|
call fcolm_load_mapfile('neon.map')
|
|
|
|
|
call fcolm_plot_mapfile('neon.pnm')
|
|
|
|
|
|
|
|
|
|
call fcolm_load_mapfile('chroma.map')
|
|
|
|
|
call fcolm_plot_mapfile('chroma.pnm')
|
|
|
|
|
|
2022-12-25 08:11:31 +11:00
|
|
|
call fcolm_load_mapfile('headache.map')
|
|
|
|
|
call fcolm_plot_mapfile('headache.pnm')
|
|
|
|
|
|
2022-12-24 07:11:46 +11:00
|
|
|
STOP 'BECAUSE YOU WAS OUMPFED.'
|
|
|
|
|
|
|
|
|
|
contains
|
|
|
|
|
|
|
|
|
|
!-------------------
|
|
|
|
|
|
|
|
|
|
subroutine print_boundaries()
|
|
|
|
|
integer :: foo
|
|
|
|
|
integer :: cmp(3)
|
|
|
|
|
do foo=-2, 5
|
|
|
|
|
call fcolm_get_rgb(foo, cmp)
|
|
|
|
|
print *, foo, ' --> ', cmp
|
|
|
|
|
enddo
|
|
|
|
|
do foo=252, 257
|
|
|
|
|
call fcolm_get_rgb(foo, cmp)
|
|
|
|
|
print *, foo, ' --> ', cmp
|
|
|
|
|
enddo
|
|
|
|
|
end subroutine
|
|
|
|
|
|
|
|
|
|
end program
|
|
|
|
|
|
