From c4274b0bb964f4e965d10cbc2b137a0bfc9c9ebf Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 19 Apr 2021 09:36:21 -0400
Subject: Fixed rendering of single-character lines

---
 render.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'render.f90')

diff --git a/render.f90 b/render.f90
index f5c1358..bc77c4d 100644
--- a/render.f90
+++ b/render.f90
@@ -410,6 +410,7 @@ contains
         allocate(breaks(1))
         
         breaks(1) = len_trim(text)
+        
         do while(r%preformatted_width(text(1:breaks(1))) > r%max_width)
             breaks(1) = breaks(1) - 1
         end do
@@ -440,7 +441,8 @@ contains
             startpos = get_start_position_and_type(text, proportional_type)
 
             endpos = wrap_line(r, text, startpos, proportional_type)
-            do while(endpos > startpos)
+            
+            do while(endpos >= startpos)
 
                 ! Save this break
                 break_count = break_count + 1
@@ -521,7 +523,7 @@ contains
                 endpos = len_trim(text)
             end if
 
-            do while(endpos > startpos)
+            do while(endpos >= startpos)
                 if(r%is_text_visible(text(startpos:endpos))) then
                     call r%draw_proportional(text(startpos:endpos), &
                                              text_type=proportional_type)
-- 
cgit v1.2.3