raster_image_t Derived Type

type, public :: raster_image_t


Components

Type Visibility Attributes Name Initial
integer(kind=1), public, allocatable :: image_data(:)
integer, public :: width
integer, public :: height
real(kind=wp), public :: current_r = 0.0_wp
real(kind=wp), public :: current_g = 0.0_wp
real(kind=wp), public :: current_b = 0.0_wp
real(kind=wp), public :: current_line_width = 1.0_wp
character(len=10), public :: line_style = '-'
real(kind=wp), public :: line_pattern(20)
integer, public :: pattern_size = 1
real(kind=wp), public :: pattern_length = SOLID_LINE_PATTERN_LENGTH
real(kind=wp), public :: pattern_distance = 0.0_wp
real(kind=wp), public :: marker_edge_r = 0.0_wp
real(kind=wp), public :: marker_edge_g = 0.0_wp
real(kind=wp), public :: marker_edge_b = 0.0_wp
real(kind=wp), public :: marker_edge_alpha = 1.0_wp
real(kind=wp), public :: marker_face_r = 1.0_wp
real(kind=wp), public :: marker_face_g = 0.0_wp
real(kind=wp), public :: marker_face_b = 0.0_wp
real(kind=wp), public :: marker_face_alpha = 1.0_wp

Type-Bound Procedures

procedure, public :: set_color => raster_set_color

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

    Arguments

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

procedure, public :: get_color_bytes => raster_get_color_bytes

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

    Arguments

    Type IntentOptional Attributes Name
    class(raster_image_t), intent(in) :: this
    integer(kind=1), intent(out) :: r
    integer(kind=1), intent(out) :: g
    integer(kind=1), intent(out) :: b

procedure, public :: set_line_style => raster_set_line_style

  • private subroutine raster_set_line_style(this, style)

    Set line style pattern for raster image

    Arguments

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