create Program

Uses

  • program~~create~~UsesGraph program~create create module~forcolormap forcolormap program~create->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 creating a custom colormap using methods like create_lagrange() and create_bezier().


Calls

program~~create~~CallsGraph program~create create proc~create_bezier Colormap%create_bezier program~create->proc~create_bezier proc~create_lagrange Colormap%create_lagrange program~create->proc~create_lagrange proc~write_ppm_colorbar Colormap%write_ppm_colorbar program~create->proc~write_ppm_colorbar proc~assign_map Colormap%assign_map proc~create_bezier->proc~assign_map proc~bezier bezier proc~create_bezier->proc~bezier proc~check Colormap%check proc~create_bezier->proc~check proc~reverse Colormap%reverse proc~create_bezier->proc~reverse proc~create_lagrange->proc~assign_map proc~create_lagrange->proc~check proc~lagrange lagrange proc~create_lagrange->proc~lagrange proc~create_lagrange->proc~reverse 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~factorial factorial proc~bezier->proc~factorial 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~lagrange_poly lagrange_poly proc~lagrange->proc~lagrange_poly

Variables

Type Attributes Name Initial
integer :: colors(3,3)
type(Colormap) :: custom_cmap

Source Code

program create
    use forcolormap, only: Colormap, wp
    implicit none

    type(Colormap) :: custom_cmap
    integer :: colors(3,3)

    ! Define control colors for the colormap.
    colors(1,:) = [255, 0, 0] ! Red
    colors(2,:) = [0, 255, 0] ! Green
    colors(3,:) = [0, 0, 255] ! Blue

    ! Create a custom colormap using Lagrange interpolation.
    call custom_cmap%create_lagrange('custom_lagrange',  0.0_wp, 2.0_wp, colors, 1024)
    call custom_cmap%colorbar('custom_colorbar_lagrange')
    print *, "See the custom_colorbar_lagrange.ppm colorbar"

    ! Create a custom colormap using Bezier interpolation.
    call custom_cmap%create_bezier('custom_bezier',  0.0_wp, 2.0_wp, colors, 1024)
    call custom_cmap%colorbar('custom_colorbar_bezier')
    print *, "See the custom_colorbar_bezier.ppm colorbar"

end program create