🚀 go-pugleaf

In article <mick.724008993@picus> mick@dcs.bbk.ac.uk (Mick Farmer) writes:
> I've found the easiest way to do this is to use kshow.

Not good enough, because words like "summer" come out as:

	*****
     **********
    ***      ***   ****    ***   ****   ***   ***    ***   ***    ******
    ***             ***    ***    *****************************  ***  ***
     ********       ***    ***    ***   ***   ****   ***    ***  ********
	*******     ***    ***    ***   ***   ****   ***    ***  ***
	     ***    ***    ***    ***   ***   ****   ***    ***  ***
    ***      ***    ***    ***    ***   ***   ****   ***    ***  ***   **
     **********      ***   ***    ***   ***   ****   ***    ***   *** ***
	*****         *********  ****  ***** ****** *****  *****   *****

I have a "CWSHOW" routine I was using with mp23. Maybe I can dig it up
and post it. If the character is less then 90% of the spacing, it prints
it, otherwise it scales it to fit in 90% of the intercharacter space.
The result is like the fixed-width "Roman" or "Prestige" fonts in dot
matrix printers.

Let's see...

	/c2s { %% code -- string
	  1 string exch 1 index % string code string
	    0 put % Can't recall order of args ?value string index put?
	} def
	/cwshow { %% spacing text --
	  { % spacing code
	    gsave % We're scaling and showing so SAVE
	      c2s
	      dup stringwidth pop % spacing char width
		dup 3 index 0.9 div gt { % spacing char width
		  2 index 0.9 div % spacing char width maxwidth
		    exch div 1 scale
	        } if
	      show
	    grestore
	    dup 0 rmoveto % move by spacing...
	  } forall pop
	} def

Something like that...
-- 
%Peter da Silva/77487-5012 USA/+1 713 274 5180/Have you hugged your wolf today?
/L{lineto}def/C{curveto}def/F{0 562 moveto 180 576 324 648 396 736 C 432 736 L
482 670 518 634 612 612 C}def/G{setgray}def .75 G F 612 792 L 0 792 L fill 1 G
324 720 24 0 360 arc fill 0 G 3 setlinewidth F stroke showpage % "Peerless"