From 00ff8e1bdad9ac6bf9216ad74cc83933fb1364ae Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 14 May 2020 10:49:32 -0400 Subject: Actually fixed the dumb renderer to show 23 lines so that the action prompt fits on the 24th. --- dumb_render.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'dumb_render.f90') diff --git a/dumb_render.f90 b/dumb_render.f90 index 9142159..666a7b0 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -25,7 +25,7 @@ use render implicit none integer, parameter::width = 79 - integer, parameter::height = 24 + integer, parameter::height = 23 character, parameter::bullet_character = '-' @@ -195,7 +195,7 @@ contains integer::onscreen onscreen = self%y-self%first_line+1 - dumb_text_visible = (onscreen >= 0 .AND. onscreen < 24) + dumb_text_visible = (onscreen >= 0 .AND. onscreen < height) end function dumb_text_visible @@ -395,10 +395,10 @@ contains if(len_trim(input) == 0) then dumb_action = render_action_none else if(trim(input) == "a" .or. trim(input) == "A") then - self%first_line = max(self%first_line - 24, 0) + self%first_line = max(self%first_line - height, 0) dumb_action = render_action_layout else if(trim(input) == "z" .or. trim(input) == "Z") then - self%first_line = self%first_line + 24 + self%first_line = self%first_line + height dumb_action = render_action_layout else if(trim(input) == "b" .or. trim(input) == "B") then dumb_action = render_action_back -- cgit v1.2.3