fplot_legend.f90

! fplot_legend.f90
 
submodule(fplot_core) fplot_legend
contains
! ------------------------------------------------------------------------------
    pure module function leg_get_inside(this) result(x)
        class(legend), intent(in) :: this
        logical :: x
        x = this%m_inside
    end function
 
! ---------------------
    module subroutine leg_set_inside(this, x)
        class(legend), intent(inout) :: this
        logical, intent(in) :: x
        this%m_inside = x
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function leg_get_box(this) result(x)
        class(legend), intent(in) :: this
        logical :: x
        x = this%m_box
    end function
 
! ---------------------
    module subroutine leg_set_box(this, x)
        class(legend), intent(inout) :: this
        logical, intent(in) :: x
        this%m_box = x
    end subroutine
 
! ------------------------------------------------------------------------------
    module function leg_get_horz_pos(this) result(x)
        class(legend), intent(in) :: this
        character(len = :), allocatable :: x
        integer(int32) :: n
        n = len_trim(this%m_horzPosition)
        allocate(character(len = n) :: x)
        x = trim(this%m_horzPosition)
    end function
 
! ---------------------
    module subroutine leg_set_horz_pos(this, x)
        class(legend), intent(inout) :: this
        character(len = *), intent(in) :: x
        this%m_horzPosition = x
        if (x /= legend_left .and. x /= legend_right .and. x /= legend_center) &
            this%m_horzPosition = legend_right
    end subroutine
 
! ------------------------------------------------------------------------------
    module function leg_get_vert_pos(this) result(x)
        class(legend), intent(in) :: this
        character(len = :), allocatable :: x
        integer(int32) :: n
        n = len_trim(this%m_vertPosition)
        allocate(character(len = n) :: x)
        x = trim(this%m_vertPosition)
    end function
 
! ---------------------
    module subroutine leg_set_vert_pos(this, x)
        class(legend), intent(inout) :: this
        character(len = *), intent(in) :: x
        this%m_vertPosition = x
        if (x /= legend_top .and. x /= legend_center .and. x /= legend_bottom) &
            this%m_vertPosition = legend_top
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function leg_get_visible(this) result(x)
        class(legend), intent(in) :: this
        logical :: x
        x = this%m_show
    end function
 
! ---------------------
    module subroutine leg_set_visible(this, x)
        class(legend), intent(inout) :: this
        logical, intent(in) :: x
        this%m_show = x
    end subroutine
 
! ------------------------------------------------------------------------------
    module function leg_get_command_txt(this) result(txt)
        ! Arguments
        class(legend), intent(in) :: this
        character(len = :), allocatable :: txt
 
        ! Local Variables
        type(string_builder) :: str
 
        ! Process
        call str%initialize()
 
        ! Visible?
        if (.not.this%get_is_visible()) then
            txt = "set key off"
            return
        end if
 
        ! Inside vs Outside & Position
        if (this%get_draw_inside_axes()) then
            call str%append("set key inside")
        else
            call str%append("set key outside")
        end if
        call str%append(" ")
        call str%append(this%get_vertical_position())
        call str%append(" ")
        call str%append(this%get_horizontal_position())
 
        ! Border
        call str%append(new_line('a'))
        if (this%get_draw_border()) then
            ! call str%append("set key box opaque")
            call str%append("set key box")
        else
            call str%append("set key nobox")
        end if
 
        ! Layout
        call str%append(new_line('a'))
        call str%append("set key ")
        call str%append(this%get_layout())
 
        ! Opaque
        call str%append(new_line('a'))
        call str%append("set key ")
        if (this%get_is_opaque()) then
            call str%append("opaque")
        else
            call str%append("noopaque")
        end if
 
        ! End
        txt = char(str%to_string())
    end function
 
! ------------------------------------------------------------------------------
    pure module function leg_get_layout(this) result(rst)
        class(legend), intent(in) :: this
        character(len = :), allocatable :: rst
        rst = trim(this%m_layout)
    end function
 
! ---------------------
    module subroutine leg_set_layout(this, x)
        class(legend), intent(inout) :: this
        character(len = *), intent(in) :: x
        if (x == legend_arrange_horizontally .or. &
            x == legend_arrange_vertically) &
        then
            this%m_layout = x
        end if
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function leg_get_opaque(this) result(rst)
        class(legend), intent(in) :: this
        logical :: rst
        rst = this%m_opaque
    end function
 
! ---------------------
    module subroutine leg_set_opaque(this, x)
        class(legend), intent(inout) :: this
        logical :: x
        this%m_opaque = x
    end subroutine
 
! ------------------------------------------------------------------------------
end submodule