png_context Derived Type

type, public, extends(raster_context) :: png_context


Components

Type Visibility Attributes Name Initial
integer, public :: width
integer, public :: height
real(kind=wp), public :: x_min
real(kind=wp), public :: x_max
real(kind=wp), public :: y_min
real(kind=wp), public :: y_max
logical, public :: has_rendered_arrows = .false.
logical, public :: uses_vector_arrows = .false.
logical, public :: has_triangular_arrows = .false.
type(raster_image_t), public :: raster
type(plot_margins_t), public :: margins
type(plot_area_t), public :: plot_area

Type-Bound Procedures

procedure, public :: line => raster_draw_line

  • private subroutine raster_draw_line(this, x1, y1, x2, y2)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x1
    real(kind=wp), intent(in) :: y1
    real(kind=wp), intent(in) :: x2
    real(kind=wp), intent(in) :: y2

procedure, public :: color => raster_set_color_context

  • private subroutine raster_set_color_context(this, r, g, b)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: r
    real(kind=wp), intent(in) :: g
    real(kind=wp), intent(in) :: b

procedure, public :: text => raster_draw_text

  • private subroutine raster_draw_text(this, x, y, text)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x
    real(kind=wp), intent(in) :: y
    character(len=*), intent(in) :: text

procedure, public :: set_line_width => raster_set_line_width

  • private subroutine raster_set_line_width(this, width)

    Set line width for raster drawing with proper pixel scaling

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: width

procedure, public :: set_line_style => raster_set_line_style_context

  • private subroutine raster_set_line_style_context(this, style)

    Set line style for raster context

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    character(len=*), intent(in) :: style

procedure, public :: draw_marker => raster_draw_marker

  • private subroutine raster_draw_marker(this, x, y, style)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x
    real(kind=wp), intent(in) :: y
    character(len=*), intent(in) :: style

procedure, public :: set_marker_colors => raster_set_marker_colors

  • private subroutine raster_set_marker_colors(this, edge_r, edge_g, edge_b, face_r, face_g, face_b)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: edge_r
    real(kind=wp), intent(in) :: edge_g
    real(kind=wp), intent(in) :: edge_b
    real(kind=wp), intent(in) :: face_r
    real(kind=wp), intent(in) :: face_g
    real(kind=wp), intent(in) :: face_b

procedure, public :: set_marker_colors_with_alpha => raster_set_marker_colors_with_alpha

  • private subroutine raster_set_marker_colors_with_alpha(this, edge_r, edge_g, edge_b, edge_alpha, face_r, face_g, face_b, face_alpha)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: edge_r
    real(kind=wp), intent(in) :: edge_g
    real(kind=wp), intent(in) :: edge_b
    real(kind=wp), intent(in) :: edge_alpha
    real(kind=wp), intent(in) :: face_r
    real(kind=wp), intent(in) :: face_g
    real(kind=wp), intent(in) :: face_b
    real(kind=wp), intent(in) :: face_alpha

procedure, public :: fill_quad => raster_fill_quad

  • private subroutine raster_fill_quad(this, x_quad, y_quad)

    Fill quadrilateral with current color

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x_quad(4)
    real(kind=wp), intent(in) :: y_quad(4)

procedure, public :: draw_arrow => raster_draw_arrow

  • private subroutine raster_draw_arrow(this, x, y, dx, dy, size, style)

    Draw arrow head for streamplot arrows in raster backend

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x
    real(kind=wp), intent(in) :: y
    real(kind=wp), intent(in) :: dx
    real(kind=wp), intent(in) :: dy
    real(kind=wp), intent(in) :: size
    character(len=*), intent(in) :: style

procedure, public :: get_ascii_output => raster_get_ascii_output

New polymorphic methods to eliminate SELECT TYPE

  • private function raster_get_ascii_output(this) result(output)

    Get ASCII output (not applicable for raster backend)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this

    Return Value character(len=:), allocatable

procedure, public :: get_width_scale => raster_get_width_scale

  • private function raster_get_width_scale(this) result(scale)

    Get width scaling factor for coordinate transformation

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this

    Return Value real(kind=wp)

procedure, public :: get_height_scale => raster_get_height_scale

  • private function raster_get_height_scale(this) result(scale)

    Get height scaling factor for coordinate transformation

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this

    Return Value real(kind=wp)

procedure, public :: fill_heatmap => raster_fill_heatmap

  • private subroutine raster_fill_heatmap(this, x_grid, y_grid, z_grid, z_min, z_max)

    Fill contour plot using scanline method for pixel-by-pixel rendering

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x_grid(:)
    real(kind=wp), intent(in) :: y_grid(:)
    real(kind=wp), intent(in) :: z_grid(:,:)
    real(kind=wp), intent(in) :: z_min
    real(kind=wp), intent(in) :: z_max

procedure, public :: render_legend_specialized => raster_render_legend_specialized

  • private subroutine raster_render_legend_specialized(this, legend, legend_x, legend_y)

    Render legend using standard algorithm for PNG

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    type(legend_t), intent(in) :: legend
    real(kind=wp), intent(in) :: legend_x
    real(kind=wp), intent(in) :: legend_y

procedure, public :: calculate_legend_dimensions => raster_calculate_legend_dimensions

  • private subroutine raster_calculate_legend_dimensions(this, legend, legend_width, legend_height)

    Calculate standard legend dimensions for PNG

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this
    type(legend_t), intent(in) :: legend
    real(kind=wp), intent(out) :: legend_width
    real(kind=wp), intent(out) :: legend_height

procedure, public :: set_legend_border_width => raster_set_legend_border_width

  • private subroutine raster_set_legend_border_width(this)

    Set thin border width for PNG legend

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this

procedure, public :: calculate_legend_position_backend => raster_calculate_legend_position

  • private subroutine raster_calculate_legend_position(this, legend, x, y)

    Calculate standard legend position for PNG using plot coordinates

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this
    type(legend_t), intent(in) :: legend
    real(kind=wp), intent(out) :: x
    real(kind=wp), intent(out) :: y

procedure, public :: extract_rgb_data => raster_extract_rgb_data

  • private subroutine raster_extract_rgb_data(this, width, height, rgb_data)

    Extract RGB data from PNG backend

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this
    integer, intent(in) :: width
    integer, intent(in) :: height
    real(kind=real64), intent(out) :: rgb_data(width,height,3)

procedure, public :: prepare_3d_data => raster_prepare_3d_data

  • private subroutine raster_prepare_3d_data(this, plots)

    Prepare 3D data for PNG backend (no-op - PNG doesn't use 3D data)

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    type(plot_data_t), intent(in) :: plots(:)

procedure, public :: render_ylabel => raster_render_ylabel

  • public subroutine raster_render_ylabel(this, ylabel)

    Render rotated Y-axis label for PNG backend

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    character(len=*), intent(in) :: ylabel

procedure, public :: draw_axes_and_labels_backend => raster_draw_axes_and_labels

  • public subroutine raster_draw_axes_and_labels(this, xscale, yscale, symlog_threshold, x_min, x_max, y_min, y_max, title, xlabel, ylabel, z_min, z_max, has_3d_plots)

    Draw axes and labels for raster backends

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    character(len=*), intent(in) :: xscale
    character(len=*), intent(in) :: yscale
    real(kind=wp), intent(in) :: symlog_threshold
    real(kind=wp), intent(in) :: x_min
    real(kind=wp), intent(in) :: x_max
    real(kind=wp), intent(in) :: y_min
    real(kind=wp), intent(in) :: y_max
    character(len=:), intent(in), optional, allocatable :: title
    character(len=:), intent(in), optional, allocatable :: xlabel
    character(len=:), intent(in), optional, allocatable :: ylabel
    real(kind=wp), intent(in), optional :: z_min
    real(kind=wp), intent(in), optional :: z_max
    logical, intent(in) :: has_3d_plots

procedure, public :: save_coordinates => raster_save_coordinates

  • private subroutine raster_save_coordinates(this, x_min, x_max, y_min, y_max)

    Save current coordinate system

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(in) :: this
    real(kind=wp), intent(out) :: x_min
    real(kind=wp), intent(out) :: x_max
    real(kind=wp), intent(out) :: y_min
    real(kind=wp), intent(out) :: y_max

procedure, public :: set_coordinates => raster_set_coordinates

  • private subroutine raster_set_coordinates(this, x_min, x_max, y_min, y_max)

    Set coordinate system

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    real(kind=wp), intent(in) :: x_min
    real(kind=wp), intent(in) :: x_max
    real(kind=wp), intent(in) :: y_min
    real(kind=wp), intent(in) :: y_max

procedure, public :: render_axes => raster_render_axes

  • private subroutine raster_render_axes(this, title_text, xlabel_text, ylabel_text)

    Render axes for raster context - see issue #495 for implementation roadmap

    Arguments

    Type IntentOptional Attributes Name
    class(raster_context), intent(inout) :: this
    character(len=*), intent(in), optional :: title_text
    character(len=*), intent(in), optional :: xlabel_text
    character(len=*), intent(in), optional :: ylabel_text

procedure, public :: save => png_finalize

  • private subroutine png_finalize(this, filename)

    Arguments

    Type IntentOptional Attributes Name
    class(png_context), intent(inout) :: this
    character(len=*), intent(in) :: filename

procedure, public :: get_png_data_backend => png_get_png_data

  • private subroutine png_get_png_data(this, width, height, png_data, status)

    Get PNG data from PNG context's raster data

    Arguments

    Type IntentOptional Attributes Name
    class(png_context), intent(in) :: this
    integer, intent(in) :: width
    integer, intent(in) :: height
    integer(kind=1), intent(out), allocatable :: png_data(:)
    integer, intent(out) :: status