Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!unmvax!ncar!boulder!ccncsu!handel.colostate.edu!beaty
From: beaty@handel.colostate.edu (Billy Bad Ass)
Newsgroups: comp.lang.postscript
Subject: backspacing letters
Message-ID: <1281@ccncsu.ColoState.EDU>
Date: 23 Feb 89 22:16:05 GMT
Sender: news@ccncsu.ColoState.EDU
Reply-To: beaty@handel.colostate.edu.UUCP (Billy Bad Ass)
Organization: Colorado State University, Ft. Collins CO 80523
Lines: 43

fellow net-junkies,

i'm trying to modify a font so that the control-H backspaces along with
printing nothing.  this will allow me to print UNIX man pages and the
like without having to search the file for control-H's.  here is how
i'm trying using the example on pp 99-100 in the "red book".  i can get
'normal' letters to backspace, like the '/one' in the following
example;  how do i specify control-H in the place of the '/one'?  if
there is an easier way to get control-H to backspace, please let me
know at the following address

	mucho appreciado 
		steve beaty@handel.colostate.edu

----------------------------------------
%!
/Courier findfont

dup length 1 add dict /newdict exch def
{
	1 index /FID ne
	{
		newdict 3 1 roll put
	}
	{
		pop pop
	}
	ifelse
} 
forall

1 dict begin
	/one -100 def				% replace /one with ?
	newdict /Metrics currentdict put
end

/My-Courier newdict definefont pop
/My-Courier findfont 12 scalefont setfont

100 100 moveto
(ABC123DEF) show				% test overstrike
showpage
----------------------------------------