put_cell Subroutine

public subroutine put_cell(canvas, row, col, glyph, layer)

Write glyph into the canvas only when its layer is at least the layer of the glyph already occupying the cell (higher or equal layer wins).

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(inout) :: canvas(:,:)
integer, intent(in) :: row
integer, intent(in) :: col
character(len=1), intent(in) :: glyph
integer, intent(in) :: layer