diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-14 10:49:32 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-14 10:49:32 -0400 |
| commit | 00ff8e1bdad9ac6bf9216ad74cc83933fb1364ae (patch) | |
| tree | ef2b97c4fba68a15046a1773fb127a7f612ae095 /dumb_render.f90 | |
| parent | e66042324a55636205fc14cbf4f2d077e437143e (diff) | |
| download | LR-87-00ff8e1bdad9ac6bf9216ad74cc83933fb1364ae.tar.gz LR-87-00ff8e1bdad9ac6bf9216ad74cc83933fb1364ae.zip | |
Actually fixed the dumb renderer to show 23 lines so that the action prompt fits on the 24th.
Diffstat (limited to 'dumb_render.f90')
| -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 |