Lout 3.22.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@13 9365b830-b601-4143-9ba8-b4a8e2c3339c

1 files changed, 3 insertions, 22 deletions

diff --git a/z26.c b/z26.c
index aa95856..0f16c5b 100644
--- a/z26.c
+++ b/z26.c
@@ -1,6 +1,6 @@
 /*@z26.c:Echo Service:BeginString()@******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.21)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.22)                       */
 /*  COPYRIGHT (C) 1991, 2000 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@cs.usyd.edu.au)                                */
@@ -127,27 +127,8 @@ FULL_CHAR *EchoLength(int len)
   i = (i + 1) % 8;
   if( len == MAX_FULL_LENGTH )
     sprintf( (char *) buff[i], "%s", "INF");
-  else switch( BackEnd )
-  {
-    case POSTSCRIPT:
-    case PDF:
-
-      sprintf( (char *) buff[i], "%.3fc", (float) len/CM);
-      break;
-
-    case PLAINTEXT:
-
-      if( length_dim == COLM )
-      {
-        sprintf( (char *) buff[i], "%.2fs", (float) len/PlainCharWidth);
-      }
-      else
-      {
-        sprintf( (char *) buff[i], "%.2ff", (float) len/PlainCharHeight);
-      }
-      break;
-
-  }
+  else
+    BackEnd->PrintLength(buff[i], len, ROWM);
   return buff[i];
 } /* end EchoLength */