aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-14 10:49:32 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-14 10:49:32 -0400
commit00ff8e1bdad9ac6bf9216ad74cc83933fb1364ae (patch)
treeef2b97c4fba68a15046a1773fb127a7f612ae095
parente66042324a55636205fc14cbf4f2d077e437143e (diff)
downloadLR-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.
-rw-r--r--dumb_render.f908
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