demo_reverse Program

Uses

  • program~~demo_reverse~~UsesGraph program~demo_reverse demo_reverse module~forcolormap forcolormap program~demo_reverse->module~forcolormap module~forcolormap_cm_matplotlib forcolormap_cm_matplotlib module~forcolormap->module~forcolormap_cm_matplotlib module~forcolormap_cm_miscellaneous forcolormap_cm_miscellaneous module~forcolormap->module~forcolormap_cm_miscellaneous module~forcolormap_cm_scientific forcolormap_cm_scientific module~forcolormap->module~forcolormap_cm_scientific module~forcolormap_info forcolormap_info module~forcolormap->module~forcolormap_info module~forcolormap_parameters forcolormap_parameters module~forcolormap->module~forcolormap_parameters module~forcolormap_utils forcolormap_utils module~forcolormap->module~forcolormap_utils module~forcolormap_cm_matplotlib->module~forcolormap_parameters module~forcolormap_cm_miscellaneous->module~forcolormap_parameters module~forcolormap_cm_scientific->module~forcolormap_parameters module~forcolormap_info->module~forcolormap_cm_matplotlib module~forcolormap_info->module~forcolormap_cm_miscellaneous module~forcolormap_info->module~forcolormap_cm_scientific module~forcolormap_info->module~forcolormap_parameters iso_fortran_env iso_fortran_env module~forcolormap_parameters->iso_fortran_env module~forcolormap_utils->module~forcolormap_parameters

This example demonstrates the use of the 'reverse' optional argument to reverse the order of a colormap. The name of your colormap must conform to the max length defined in forcolormap_parameters.f90 You can also download your colormap from a .txt file by using the load() method instead of the set() method.


Calls

program~~demo_reverse~~CallsGraph program~demo_reverse demo_reverse proc~create Colormap%create program~demo_reverse->proc~create proc~get_levels Colormap%get_levels program~demo_reverse->proc~get_levels proc~get_name~2 Colormaps_info%get_name program~demo_reverse->proc~get_name~2 proc~get_ncolormaps Colormaps_info%get_ncolormaps program~demo_reverse->proc~get_ncolormaps proc~load Colormap%load program~demo_reverse->proc~load proc~set Colormap%set program~demo_reverse->proc~set proc~write_ppm_colorbar Colormap%write_ppm_colorbar program~demo_reverse->proc~write_ppm_colorbar proc~assign_map Colormap%assign_map proc~create->proc~assign_map proc~check Colormap%check proc~create->proc~check proc~reverse Colormap%reverse proc~create->proc~reverse proc~load->proc~check proc~load->proc~reverse proc~set->proc~assign_map proc~set->proc~check proc~cubehelix_colormap cubehelix_colormap proc~set->proc~cubehelix_colormap proc~fire_colormap fire_colormap proc~set->proc~fire_colormap proc~inv_rainbow_colormap inv_rainbow_colormap proc~set->proc~inv_rainbow_colormap proc~rainbow_colormap rainbow_colormap proc~set->proc~rainbow_colormap proc~set->proc~reverse proc~zebra_colormap zebra_colormap proc~set->proc~zebra_colormap export_pnm export_pnm proc~write_ppm_colorbar->export_pnm get_format get_format proc~write_ppm_colorbar->get_format local local proc~write_ppm_colorbar->local proc~compute_rgb Colormap%compute_RGB proc~write_ppm_colorbar->proc~compute_rgb set_format set_format proc~write_ppm_colorbar->set_format set_pnm set_pnm proc~write_ppm_colorbar->set_pnm proc~find_index Colormaps_info%find_index proc~check->proc~find_index proc~get_levels~2 Colormaps_info%get_levels proc~check->proc~get_levels~2 proc~get_rgb Colormap%get_RGB proc~compute_rgb->proc~get_rgb proc~cubehelix_colormap->local

Variables

Type Attributes Name Initial
type(Colormap) :: cmap
type(Colormap) :: custom_cmap
integer :: i
integer, dimension(0:7, 3) :: my_colormap = reshape([198, 29, 32, 189, 21, 56, 171, 82, 150, 102, 81, 156, 38, 53, 108, 5, 65, 40, 221, 199, 44, 237, 191, 44], shape(my_colormap), order=[2, 1])

A discrete colormap with 8 levels, by @alozada, resembling the color changes in red cabbage (containing Anthocyanins) with pH:
real(kind=wp), parameter, dimension(2) :: xmax = [599.0_wp, 599.0_wp]
real(kind=wp), parameter, dimension(2) :: xmin = [0.0_wp, 0.0_wp]

Functions

pure function zfun(x, y) result(z)

A sample test function to generate colormap images.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in) :: y

Return Value real(kind=wp)


Source Code

program demo_reverse
    use forcolormap, only: Colormap, wp, cmap_info
    implicit none

    integer :: i
    type(Colormap) :: cmap, custom_cmap
    real(wp), dimension(2), parameter :: xmin = [0.0_wp, 0.0_wp]
    real(wp), dimension(2), parameter :: xmax = [599.0_wp, 599.0_wp]

    !> A discrete colormap with 8 levels, by @alozada, resembling the color
    !> changes in red cabbage (containing Anthocyanins) with pH:
    integer, dimension(0:7, 3) :: my_colormap = reshape( [ &
        198,    29,    32,   &
        189,    21,    56,   &
        171,    82,   150,   &
        102,    81,   156,   &
         38,    53,   108,   &
          5,    65,    40,   &
        221,   199,    44,   &
        237,   191,    44 ], &
        shape(my_colormap), order = [2, 1] )
    !> The name of your colormap must conform to the max length
    !> defined in forcolormap_parameters.f90
    ! Use the create() method instead of the set() method.
    call custom_cmap%create('red_cabbage_reverse', 0.0_wp, 2.0_wp, my_colormap, reverse=.true.)
    call custom_cmap%colorbar('red_cabbage_reverse_colorbar')
    call custom_cmap%colormap('red_cabbage_reverse_test', zfun, xmin, xmax)

    ! We create PPM files (binary encoded by default) for each built-in colormap.
    ! The built-in z=f(x,y) test function is in the [0, 2] range:
    do i = 1, cmap_info%get_ncolormaps()
        call cmap%set(trim(cmap_info%get_name(i)), 0.0_wp, 2.0_wp, reverse=.true.)
        call cmap%colorbar(trim(cmap_info%get_name(i))//'_reverse_colorbar')
        call cmap%colormap(trim(cmap_info%get_name(i))//'_reverse_test', zfun, xmin, xmax)
        print '("Colormap ", A30, " has ", I0, " levels")', trim(cmap%get_name()), cmap%get_levels()
    end do

    ! Cubehelix can also accept other parameters (varargs array):
    call cmap%set("cubehelix", 0.0_wp, 2.0_wp, 1024, [0.5_wp, -1.0_wp, 1.0_wp, 1.0_wp], reverse=.true.)
    ! We change the name for the output test files:
    call cmap%colorbar('cubehelix_customized_reverse_colorbar')
    call cmap%colormap('cubehelix_customized_reverse_test', zfun, xmin, xmax)

    !> You can also download your colormap from a .txt file by
    !> using the load() method instead of the set() method.
    call custom_cmap%load("test_map_to_load.txt", 0.0_wp, 2.0_wp, reverse=.true.)
    call custom_cmap%colorbar('a_loaded_reverse_colorbar')
    call custom_cmap%colormap('a_loaded_reverse_colormap_test', zfun, xmin, xmax)
    call custom_cmap%print()

contains

   !> A sample test function to generate colormap images.
   pure function zfun(x,y) result(z)
      real(wp), intent(in) :: x, y
      real(wp) :: z
      z = 1.0_wp + sin(x*y/10000.0_wp) * cos(y/100.0_wp)
   end function

end program demo_reverse