From 38d534c32095f0888d21b089c8880118951791c9 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sat, 26 May 2018 00:15:37 +0100 Subject: [PATCH] VERSA: Fix XGP line height calculation. The default line height was 0, so empty lines came out as zero height. Use the height of the current font instead. If the last line of a page ended with the ^L, linfin was never called, so its height was computed as 0 and it overlapped the previous line. Ensure linfin always gets run in this case. --- src/dcp/versa.211 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/dcp/versa.211 b/src/dcp/versa.211 index 257a8604..ce3ff2bf 100644 --- a/src/dcp/versa.211 +++ b/src/dcp/versa.211 @@ -4512,8 +4512,10 @@ dopag1: call doline jrst dopag1 doline: setzm outena ;disable output - setzm chrrct ;should really be current height?? - setzm movdwn ;nothing forced us down yet + setzm chrrct + setzm movdwn + call normal ;initial line height based on + jfcl ; current font, in case line is empty setzm count ;count of saved characters move x,lftmar ;underline from left margin by default movem x,stubit @@ -4544,7 +4546,7 @@ cl.top: ^@,,[aos (p) ? return] ;ignore ^H,,backsp ^I,,tab ^J,,linefd - ^L,,[setom eopp ? return] + ^L,,[setom eopp ? jrst linfin] ^M,,cretrn 177,,xgpesc 0,,0