38 lines
700 B
Fortran
38 lines
700 B
Fortran
|
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')
|
||
|
|
|
||
|
|
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
|
||
|
|
|