home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
disks
/
disk414.lzh
/
Lila
/
Lila.ps
< prev
next >
Wrap
Text File
|
1990-12-15
|
3KB
|
168 lines
%!PS
% Lila Prologue
% version 9004b
% rev 18.10.90 - Amiga Encoding
% (C) 1990 by Bertrand Gros
save
/LilaDict 40 dict def
LilaDict begin
/mm { 2.83464567 mul } def
/inch { 72 mul } def
/xpage 210 mm def
/ypage 297 mm def
/x0 10 mm def
/y0 10 mm def
/x1 200 mm def
/y1 287 mm def
/#copies 1 def
/LilaFont
/Courier findfont
dup length dict dup begin exch
{
1 index /FID ne { def } { pop pop } ifelse
} forall
/Encoding 256 array def
Encoding 0 StandardEncoding 0 152 getinterval putinterval
Encoding 152
[/grave/acute/circumflex/tilde
/dieresis/ring/dotlessi/.notdef
/space/exclamdown/cent/sterling
/currency/yen/brokenbar/section
/dieresis/copyright/ordfeminine/guillemotleft
/logicalnot/emdash/registered/macron
/degree/plusminus/twosuperior/threesuperior
/quoteright/mu/paragraph/bullet
/cedilla/onesuperior/ordmasculine/guillemotright
/onequarter/onehalf/threequarters/questiondown
/Agrave/Aacute/Acircumflex/Atilde
/Adieresis/Aring/AE/Ccedilla
/Egrave/Eacute/Ecircumflex/Edieresis
/Igrave/Iacute/Icircumflex/Idieresis
/Eth/Ntilde/Ograve/Oacute
/Ocircumflex/Otilde/Odieresis/multiply
/Oslash/Ugrave/Uacute/Ucircumflex
/Udieresis/Yacute/Thorn/germandbls
/agrave/aacute/acircumflex/atilde
/adieresis/aring/ae/ccedilla
/egrave/eacute/ecircumflex/edieresis
/igrave/iacute/icircumflex/idieresis
/eth/ntilde/ograve/oacute
/ocircumflex/otilde/odieresis/divide
/oslash/ugrave/uacute/ucircumflex
/udieresis/yacute/thorn/ydieresis]
putinterval
end
definefont pop
/scalepage
{
/colwidth nchar condensed { 4 } { 6 } ifelse mul 14 add def
portrait
{
0 ypage translate 1 -1 scale
x0 y0 translate
x1 x0 sub
}
{
90 rotate 1 -1 scale
ypage y1 sub x0 translate
y1 y0 sub
} ifelse
ncol 1 sub 12 mul
ncol colwidth mul add
div dup dup scale
portrait { y1 y0 sub } { x1 x0 sub } ifelse
exch div 39 sub 12 div
cvi /nline exch def
} def
/drawheader
{
newpath 0 0 moveto
colwidth 0 rlineto
0 nline 12 mul 39 add rlineto
colwidth neg 0 rlineto
closepath
0 25 moveto colwidth 0 rlineto stroke
7 16 moveto title show
/npage npage 1 add def
npage ( ) cvs
colwidth 7 sub 16 moveto
dup stringwidth pop
(Page ) stringwidth pop
add neg 0 rmoveto
gsave (Page ) show show grestore
gsave -7 -16 rmoveto 0 25 rlineto stroke grestore
date stringwidth pop
14 add neg 0 rmoveto
gsave date show grestore
-7 -16 rmoveto 0 25 rlineto stroke
/nprint nprint 1 add def
} def
/drawpage
{
6 41 moveto
0
nline
{
currentfile buffer readline
exch dup ([-$!$-END-$!$-]) eq 3 -1 roll not or
{
pop /eof true def exit
} if
dup ([-$!$-FF-$!$-]) eq
{
pop exit
} if
gsave show grestore
0 12 rmoveto
1 add
} repeat
} def
/lila % title date ncol portrait nchar condensed lila
{
/condensed exch def /nchar exch def
/portrait exch def /ncol exch def
/date exch def /title exch def
/npage 0 def
/eof false def
/buffer nchar string def
scalepage
/LilaFont findfont
condensed { [ 20 3 div 0 0 -10 0 0 ] } { [ 10 0 0 -10 0 0 ] } ifelse
makefont setfont
0.7 setlinewidth
{
/nprint 0 def
gsave
ncol
{
drawpage
eof { 0 gt { drawheader } if exit } if
pop drawheader
colwidth 12 add 0 translate
} repeat
nprint 0 gt { showpage } if
grestore
eof { exit } if
} loop
end
restore
} def
%%EndProlog
% title date ncol portrait nchar condensed lila