/*
   1998 Roberto Alameda <roberto@myokay.net>
  You may modify and distribute this file under the terms of the GNU
  General Public License, version 2, or any later version, at your
  convenience. See the file COPYING for details. 

 */


const char *sample_text = "\
Gallia est omnis divisa in partes tres, quarum unam incolunt \\\n\
Belgae, aliam Aquitani, tertiam qui ipsorum lingua Celtae, nostra Galli \\\n\
appellantur.  Hi omnes lingua, institutis, legibus inter se \\\n\
differunt.  Gallos ab Aquitanis Garumna flumen, a Belgis Matrona et \\\n\
Sequana dividit.  Horum omnium fortissimi sunt Belgae, propterea \\\n\
quod a cultu atque humanitate provinciae longissime absunt, \\\n\
minimeque ad eos mercatores saepe commeant atque ea quae ad \\\n\
effeminandos animos pertinent important, proximique sunt \\\n\
Germanis, qui trans Rhenum incolunt, quibuscum continenter bellum gerunt.  Qua \\\n\
de causa Helvetii quoque reliquos Gallos virtute praecedunt, quod fere \\\n\
cotidianis proeliis cum Germanis contendunt, cum aut suis finibus eos \\\n\
prohibent aut ipsi in eorum finibus bellum gerunt.  [Eorum una, \\\n\
pars, quam Gallos obtinere dictum est, initium capit a flumine Rhodano, \\\n\
continetur Garumna flumine, Oceano, finibus Belgarum, attingit etiam ab \\\n\
Sequanis et Helvetiis flumen Rhenum, vergit ad septentriones.  Belgae \\\n\
ab extremis Galliae finibus oriuntur, pertinent ad inferiorem \\\n\
partem fluminis Rheni, spectant in septentrionem et orientem solem.  Aquitania \\\n\
a Garumna flumine ad Pyrenaeos montes et eam partem \\\n\
Oceani quae est ad Hispaniam pertinet; spectat inter occasum solis \\\n\
et septentriones.] \\\n\
\
Apud Helvetios longe nobilissimus fuit et ditissimus \\\n\
Orgetorix.  Is M. Messala, [et P.] M. Pisone consulibus regni cupiditate \\\n\
inductus coniurationem nobilitatis fecit et civitati persuasit ut de \\\n\
finibus suis cum omnibus copiis exirent: perfacile esse, cum \\\n\
virtute omnibus praestarent, totius Galliae imperio potiri.  Id \\\n\
hoc facilius iis persuasit, quod undique loci natura Helvetii \\\n\
continentur: una ex parte flumine Rheno latissimo atque altissimo, qui \\\n\
agrum Helvetium a Germanis dividit; altera ex parte monte Iura altissimo, \\\n\
qui est inter Sequanos et Helvetios; tertia lacu Lemanno et flumine \\\n\
Rhodano, qui provinciam nostram ab Helvetiis dividit.  His rebus \\\n\
fiebat ut et minus late vagarentur et minus facile finitimis bellum inferre \\\n\
possent; qua ex parte homines bellandi cupidi magno dolore \\\n\
adficiebantur.  Pro multitudine autem hominum et pro \\\n\
gloria belli atque fortitudinis angustos se fines habere \\\n\
arbitrabantur, qui in longitudinem milia passuum CCXL, in latitudinem \\\n\
CLXXX patebant. \\\n\
\
His rebus adducti et auctoritate Orgetorigis permoti \\\n\
constituerunt ea quae ad proficiscendum pertinerent comparare, \\\n\
iumentorum et carrorum quam maximum numerum coemere, sementes quam \\\n\
maximas facere, ut in itinere copia frumenti suppeteret, cum proximis \\\n\
civitatibus pacem et amicitiam confirmare.  Ad eas res \\\n\
conficiendas biennium sibi satis esse duxerunt; in tertium annum \\\n\
profectionem lege confirmant.  Ad eas res conficiendas Orgetorix \\\n\
deligitur.  Is sibi legationem ad civitates suscipit.  In eo itinere \\\n\
persuadet Castico, Catamantaloedis filio, Sequano, cuius pater regnum in \\\n\
Sequanis multos annos obtinuerat et a senatu populi Romani amicus \\\n\
appellatus erat, ut regnum in civitate sua occuparet, quod pater \\\n\
ante habuerit; itemque Dumnorigi Haeduo, fratri Diviciaci, \\\n\
qui eo tempore principatum in civitate obtinebat ac maxime plebi \\\n\
acceptus erat, ut idem conaretur persuadet eique filiam suam in \\\n\
matrimonium dat. Perfacile factu esse illis probat conata \\\n\
perficere, propterea quod ipse suae civitatis imperium obtenturus esset: \\\n\
non esse dubium quin totius Galliae plurimum Helvetii possent; se \\\n\
suis copiis suoque exercitu illis regna conciliaturum confirmat.  Hac \\\n\
oratione adducti inter se fidem et ius iurandum dant et regno \\\n\
occupato per tres potentissimos ac firmissimos populos totius Galliae \\\n\
sese potiri posse sperant.\
";


const char *text_samples = "\
/TextSamplerDict 40 dict def\n\
TextSamplerDict begin\n\
/Inch {72 mul} def\n\
/linewidth 7 Inch def\n\
/yline 9.7 Inch def\n\
/LM 0.7 Inch def\n\
/wordbreak ( ) def\n\
/buf 8 string def\n\
\n\
/DoTitle { % fontname DoTitle\n\
  /Helvetica findfont 18 scalefont setfont\n\
  LM 10.5 Inch moveto\n\
  show \n\
  ( at ) show fontsize buf cvs show ( points, spacing = ) show\n\
  spacing buf cvs show\n\
} def\n\
\n\
/DoSamples { % fontname fontsize spacing DoSamples\n\
  /spacing exch def\n\
  /fontsize exch def\n\
  /fontname exch def\n\
\n\
  fontname findfont fontsize scalefont setfont\n\
  /newline {/yline yline fontsize spacing mul sub def LM yline moveto} def\n\
  /breakwidth wordbreak stringwidth pop def\n\
  /curwidth 0 def\n\
  /lastwordbreak 0 def\n\
  /startchar 0 def\n\
  /restoftext textstring def\n\
\n\
\n\
  LM yline moveto\n\
  { restoftext wordbreak search\n\
    {\n\
      /nextword exch def pop\n\
      /restoftext exch def\n\
      /wordwidth nextword stringwidth pop def\n\
    \n\
      curwidth wordwidth add linewidth gt\n\
      {\n\
        textstring startchar lastwordbreak startchar sub getinterval\n\
        show newline\n\
        /startchar lastwordbreak def\n\
        /curwidth wordwidth breakwidth add def\n\
      }\n\
      {\n\
        /curwidth curwidth wordwidth breakwidth add add def\n\
      } \n\
      ifelse\n\
      /lastwordbreak lastwordbreak nextword length 1 add add def\n\
    }\n\
    {pop exit}\n\
    ifelse\n\
  } loop\n\
  /lastchar textstring length def\n\
  textstring startchar lastchar startchar sub getinterval show\n\
} def\n\
end\n\
";



const char *check_type42 = "\
languagelevel 2 lt\n\
{\n\
  /Helvetica findfont 14 scalefont setfont\n\
  72 420 moveto\n\
  (Your printer or PostScript interpreter does not support PostScript Level 2) show\n\
  showpage\n\
  quit\n\
} if\n\
\n\
42 /FontType resourcestatus not\n\
{\n\
  /Helvetica findfont 14 scalefont setfont\n\
  72 420 moveto\n\
  (Your printer or PostScript interpreter does not support Type 42 fonts) show\n\
  showpage\n\
  quit\n\
} if\n\
pop pop\n\
";


const char *phrase_samples = "\
/PhraseSamplerDict 20 dict def\n\
PhraseSamplerDict begin\n\
/Inch {72 mul} def\n\
/LM 0.5 Inch def\n\
/RM 7.6 Inch def\n\
/Temp 64 string def\n\
/T /Helvetica findfont 10 scalefont def\n\
/T6 /Helvetica findfont 6 scalefont def \n\
/Header {  % text height Header\n\
  RM exch moveto T6 setfont dup stringwidth pop neg 0 rmoveto show\n\
} def\n\
/FontName { % fontname fontfile height FontName\n\
  /y exch def\n\
  /FFile exch def\n\
  /FName exch def\n\
\n\
  LM y moveto\n\
  T setfont FName Temp cvs show\n\
  LM y 8 sub moveto\n\
  T6 setfont FFile show\n\
} def\n\
/FontSample {  % fontname size height FontSample\n\
  /y exch def\n\
  /FSize exch def\n\
  /FName exch def\n\
\n\
  LM 160 add y moveto\n\
  mark\n\
  {\n\
    FName findfont FSize scalefont setfont \n\
    StringSample show\n\
  }\n\
  stopped {\n\
    LM 160 add y moveto\n\
    T6 setfont (Error: ) show\n\
    $error /errorname get Temp cvs show\n\
    ( [) show\n\
    $error /command get Temp cvs show\n\
    (] ) show               \n\
  }\n\
  if\n\
  cleartomark\n\
} def\n\
end\n\
";


const char *size_samples = "\
/SizeSamplerDict 40 dict def\n\
SizeSamplerDict begin\n\
/Strings \n\
{ [\n\
	(ABCDEFGHIJKLMNOPQRSTUVWXYZ)\n\
	(abcdefghijklmnopqrstuvwxyz)\n\
	(0123456789<=>:;?@!\"#$%&')\n\
	(\\( \\)*+,-./ [ \\\\ ]^_`{|}~)\n\
] } def\n\
\n\
\n\
/Sizes \n\
{ [\n\
  8 10 12 14 20 24 28\n\
] } def\n\
\n\
/infofont /Helvetica findfont 10 scalefont def\n\
/msg 8 string def\n\
/Inch {72 mul} def\n\
/DoTitle { % fontname DoTitle\n\
  % Write the font name on top of the page\n\
  /Helvetica findfont 18 scalefont setfont\n\
  dup stringwidth\n\
  exch 8 Inch exch sub 2 div exch\n\
  10.5 Inch exch sub\n\
  moveto show\n\
} def\n\
/DoSamples { % font DoSamples\n\
  % Make the font samples\n\
  /fontname exch def\n\
  /testfont fontname findfont def\n\
  1 setlinewidth\n\
  60 50 moveto\n\
\n\
  Sizes\n\
  {\n\
    /size exch def\n\
    testfont size scalefont setfont\n\
    currentpoint translate % start of line\n\
    5 0 rmoveto\n\
\n\
    Strings \n\
    {\n\
      currentpoint\n\
      3 -1 roll show\n\
      moveto\n\
      0 1.2 size mul rmoveto  % add 30% of the size vertically\n\
    } forall  % Strings\n\
\n\
    -5 0 rmoveto\n\
    currentpoint         % end of line\n\
    newpath 0 0 moveto lineto\n\
    currentpoint stroke  % leave end of line pos in stack\n\
  \n\
  % Print the font size in the middle of the line\n\
    dup                            % leave y in the stack (x is 0)\n\
    infofont setfont\n\
    size msg cvs dup stringwidth   % Push string 'n' and its size on the stack\n\
    4 -1 roll exch sub 2 div         % Stack is 'string width ypos'\n\
    exch 5 add neg exch moveto show  % Move to the left and print\n\
\n\
    moveto         % take end of line pos from stack\n\
    0 15 rmoveto   % Add vertical space between groups\n\
  } forall % Sizes\n\
} def\n\
end\n\
";



const char *map_samples = "\
/MapSamplerDict 40 dict def\n\
MapSamplerDict begin\n\
/T /Helvetica findfont 10 scalefont def\n\
/T6 /Times-Roman findfont 6 scalefont def\n\
/Temp 64 string def\n\
/Inch {72 mul} def\n\
/Base 16 def    % char code output base\n\
/TempEncoding [ 256 { /.notdef } repeat ] def\n\
/ISOLatin1Dict 256 dict def\n\
ISOLatin1Encoding { ISOLatin1Dict exch true put } forall\n\
/min { 2 copy gt { exch } if pop } bind def\n\
/DoChar {\n\
  /C exch def\n\
  /S (_) dup 0 C put def\n\
  /N F /Encoding get C get def\n\
  /W F setfont S stringwidth pop def\n\
  T6 setfont\n\
  0 -20 moveto N Temp cvs show\n\
  0 -12 moveto\n\
  W 0.0005 add Temp cvs 0 5 getinterval show\n\
  N /.notdef ne {\n\
    3 0 translate\n\
    0 0 moveto F24 setfont S show\n\
    /W S stringwidth pop def\n\
    0 -6 moveto 0 24 lineto\n\
    W -6 moveto W 24 lineto\n\
    -3 0 moveto W 3 add 0 lineto\n\
    0 setlinewidth stroke\n\
  } if\n\
} def                            \n\
/DoTitle { % fontname DoTitle\n\
  /Helvetica findfont 18 scalefont setfont\n\
  dup stringwidth\n\
  exch 8 Inch exch sub 2 div exch\n\
  10.7 Inch exch sub\n\
  moveto show\n\
} def\n\
/Header {  % header Header\n\
  7.6 Inch 10.7 Inch moveto T setfont dup stringwidth pop neg 0 rmoveto show\n\
} def\n\
/DoBlock {      % firstcode lastcode DoBlock\n\
  /FirstCode 2 index def\n\
  1 exch {\n\
    /I exch def\n\
    /Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def\n\
    gsave\n\
    Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate\n\
    I DoChar\n\
    grestore\n\
  } for\n\
} def                          \n\
/FontShow0 {  % fontname FontShow0\n\
  /FName exch def       % font name\n\
  /F FName findfont def\n\
  /Done 256 dict def\n\
  /NewEncoding [\n\
      ISOLatin1Encoding {\n\
        dup F /CharStrings get exch known {\n\
          dup Done exch known { pop } { dup Done exch true put } ifelse\n\
        } { pop } ifelse\n\
      } forall\n\
      F /CharStrings get {\n\
        pop dup ISOLatin1Dict exch known { pop } if\n\
      } forall\n\
  ] def\n\
  F length dict F {\n\
    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\
  } forall\n\
  dup /Encoding NewEncoding put\n\
  /* exch definefont\n\
  /F exch def\n\
  /F24 F 24 scalefont def\n\
  70 160 translate\n\
  0.80 dup scale\n\
  0 NewEncoding length 1 sub DoBlock\n\
} def                        \n\
/FontShowV {  % encoding fontname FontShowV\n\
  /FName exch def       \n\
  /NewEncoding exch def\n\
  /F FName findfont def\n\
  F length dict F {\n\
    1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse\n\
  } forall\n\
  dup /Encoding NewEncoding put\n\
  /* exch definefont\n\
  /F exch def\n\
  /F24 F 24 scalefont def\n\
  70 160 translate\n\
  0.80 dup scale\n\
  0 NewEncoding length 1 sub DoBlock\n\
} def\n\
end  \n\
";