NetNews Usenet Archive 1992 #27/NN_1992_27.iso/spool/comp/sys/amiga/applicat/8718

Text File | 1992-11-17 | 1.7 KB | 53 lines

Path: sparky!uunet!snorkelwacker.mit.edu!ira.uka.de!smurf.sub.org!easix!bluemoon.GUN.de!georg
From: [e-mail] (Georg Sassen)
Newsgroups: comp.sys.amiga.applications
Subject: Re: Help needed for POST
Message-ID: <[e-mail]>
Date: Mon, 16 Nov 1992 14:34:09 GMT
References: <[e-mail]> <[e-mail]>
Reply-To: [e-mail] (Georg Sassen)
Organization: just me
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Lines: 39

In article <[e-mail]> [e-mail] (Ibrahim Tertemiz) writes:
>You can also take the fonts from GS for PC's . There is only one problem:
>you have to rename them all :(

Try this in your REXX: drawer (it uses makelink, for 1.3 systems you
would have to modify it to use rename or copy). Start it after you
have cd'ed to the directory where the ghostscript fonts and the
Fontmap file are.

---------------------------cut------------------------------------
/* link ugly ghostscript font names to real font names */

x = open('mapfile','Fontmap','R')

if x~=1 then do
    say "Where is the Fontmap file ?"
    exit 20
end

do while ~eof('mapfile')
    r = readln('mapfile')
    if left(r,1)~='/' then iterate
    r=translate(r,' ','09'x)
    parse var r '/'realname '('uglyname')'
    realname=strip(realname)
    uglyname=strip(uglyname)
    say realname uglyname
    address command 'MakeLink' realname uglyname
end

call close('mapfile')
-------------------------------cut-------------------------------


    Georg

--
Georg Sa▀en, Dⁿsseldorf, Germany. Voice [phone], Fax [phone]