picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

head.ps (641B)

      1 %%DocumentFonts: (atend)
      2 /PicoEncoding
      3    ISOLatin1Encoding  dup length array  copy
      4 def
      5 /isoLatin1 {
      6    dup dup findfont  dup length  dict begin
      7       {1 index /FID ne {def} {pop pop} ifelse} forall
      8       /Encoding PicoEncoding def  currentdict
      9    end  definefont
     10 } def
     11 /glyphArrayShow {
     12    {
     13       dup type /stringtype eq {show} {glyphshow} ifelse
     14    } forall
     15 } def
     16 /glyphArrayWidth {
     17    0 exch
     18    {
     19       dup type /stringtype eq {
     20          stringwidth pop
     21       } {
     22          matrix currentmatrix gsave
     23          newpath nulldevice setmatrix 0 0 moveto glyphshow
     24          currentpoint grestore pop
     25       } ifelse
     26       add
     27    } forall
     28 } def