diff options
| -rw-r--r-- | dumb_render.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
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 |