Subversion Repositories pvinversion.ecmwf

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 michaesp 1
  %%
2
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3
  %%
4
 %%%%%   BoxedEPS.tex FOR FIGURE INSERTS OF EPSF NORM  %%%%%
5
 %%%%%   (EPSF = Encapsulated PostScript File)
6
  %%
7
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8
  %%  
9
 %%%  AUTHOR: Laurent Siebenmann
10
  %%    lcs@matups.matups.fr
11
  %%  
12
 %%%  VERSIONS: Feb 1991 -- October, 1992
13
  %%  
14
 %%%  SOMMAIRE: BoxedEPS.tex d\'efinit des macro-commandes
15
  %%    qui permettent d'int\'egrer dans un document TeX des 
16
  %%    objets graphiques d\'ecrits par fichier de norme EPSF,
17
  %%    tout en accordant a chacun le statut d'une bo\^ite TeX ayant 
18
  %%    les bonnes dimensions.  La (seule!) contribution unique 
19
  %%    de ce fichier est de faire cela d'une fa{\c}con universelle.
20
  %%    C'est a dire de fa{\c}con \`a pouvoir commod\'ement 
21
  %%    servir avec tout pilote d'imprimante de norme 
22
  %%    PostScript --- malgr\'e l'absence d'une norme 
23
  %%    pour \special. 
24
  %%  
25
 %%%  POSTINGS: anonymous ftp 
26
  %%  ---  ftp 130.84.128.100 (alias rsovax.circe.fr); 
27
  %%  login: anonymous; password: <anything>; directory 
28
  %%  [anonymous.siebenmann].  This is the master copy in 1992.
29
  %%  
30
  %%  ---  ftp 129.69.1.12 (alias rusinfo.rus.uni-stuttgart.de);
31
  %%  login: anonymous; password: <anything>; 
32
  %%  directory hints .../tex/graphics/...
33
  %%  
34
 %%%% DOCUMENTATION:
35
  %%  --- see BoxedEPS.doc
36
  %%  
37
 %%%% ACTIVATION:
38
  %%  by a driver-by-driver protocol
39
  %%  see \SetTexturesEPSFSpecial 
40
  %%  and its companions below.
41
  %%  
42
 
43
 \ifx\MYUNDEFINED\BoxedEPSF
44
   \let\temp\relax
45
 \else
46
   \message{}
47
   \message{ !!! BoxedEPS %
48
         or BoxedArt macros already defined !!!}
49
   \let\temp\endinput
50
 \fi
51
  \temp
52
 
53
 \chardef\EPSFCatAt\the\catcode`\@
54
 \catcode`\@=11
55
 
56
 \chardef\C@tColon\the\catcode`\:
57
 \chardef\C@tSemicolon\the\catcode`\;
58
 \chardef\C@tQmark\the\catcode`\?
59
 \chardef\C@tEmark\the\catcode`\!
60
 \chardef\C@tDqt\the\catcode`\"
61
 
62
 \def\PunctOther@{\catcode`\:=12
63
   \catcode`\;=12 \catcode`\?=12 \catcode`\!=12 \catcode`\"=12}
64
 \PunctOther@
65
 
66
 %%temporarily suppress Plain's logging of allocations
67
 \let\wlog@ld\wlog 
68
 \def\wlog#1{\relax} 
69
 
70
 %% New for TOOLS
71
 \newif\ifIN@
72
 \newdimen\XShift@ \newdimen\YShift@ 
73
 \newtoks\Realtoks
74
 
75
 %%% New for Boxed EPSF
76
  %
77
 \newdimen\Wd@ \newdimen\Ht@
78
 \newdimen\Wd@@ \newdimen\Ht@@
79
 %
80
 \newdimen\TT@
81
 \newdimen\LT@
82
 \newdimen\BT@
83
 \newdimen\RT@
84
 %
85
 \newdimen\XSlide@ \newdimen\YSlide@ 
86
 %
87
 \newdimen\TheScale  %% secretly scale in mils: 1pt= 1mil 
88
 \newdimen\FigScale  %% secretly scale in mils: 1pt= 1mil 
89
 %
90
 \newdimen\ForcedDim@@
91
 
92
 \newtoks\EPSFDirectorytoks@
93
 \newtoks\EPSFNametoks@
94
 \newtoks\BdBoxtoks@
95
 \newtoks\LLXtoks@  %% useful info for Oz
96
 \newtoks\LLYtoks@  
97
 
98
 
99
 \newif\ifNotIn@
100
 \newif\ifForcedDim@
101
 \newif\ifForceOn@
102
 \newif\ifForcedHeight@
103
 \newif\ifPSOrigin
104
 
105
 \newread\EPSFile@ 
106
 
107
 %%%% MESSAGES (separate macro needed for Europe)
108
  %%  
109
  \def\ms@g{\immediate\write16}
110
 
111
 %%%% WORD-PROCESSING MACROS
112
  %%
113
  %%% \IN@0#1@#2@ : Is 1st exp of #1 in 1st exp of #2 ??
114
   %% Answer in \ifIN@
115
 \newif\ifIN@\def\IN@{\expandafter\INN@\expandafter}
116
  \long\def\INN@0#1@#2@{\long\def\NI@##1#1##2##3\ENDNI@
117
    {\ifx\m@rker##2\IN@false\else\IN@true\fi}%
118
     \expandafter\NI@#2@@#1\m@rker\ENDNI@}
119
  \def\m@rker{\m@@rker}
120
 
121
  %%%  \SPLIT@0#1@#2@  :  Split 1st exp of #2 at 1st exp of #1
122
   %%  \Initialtoks@ , \Terminaltoks@ will contain pieces
123
  \newtoks\Initialtoks@  \newtoks\Terminaltoks@
124
  \def\SPLIT@{\expandafter\SPLITT@\expandafter}
125
  \def\SPLITT@0#1@#2@{\def\TTILPS@##1#1##2@{%
126
     \Initialtoks@{##1}\Terminaltoks@{##2}}\expandafter\TTILPS@#2@}
127
 
128
 %%%% MACROS TO TRIM  \ForeTrim@0#1@ and \Trim@0#1@  
129
   %% result appears in \Trimtoks@
130
   %% LIMITATION: assume no multiple spaces to trim
131
 
132
  \newtoks\Trimtoks@
133
 
134
  %%% \ForeTrim@0#1@ trims initial space of first erpansion of #1
135
   %% #1 of form \the\toks0 or \mymacro
136
 \def\ForeTrim@{\expandafter\ForeTrim@@\expandafter}
137
 \def\ForePrim@0 #1@{\Trimtoks@{#1}}
138
 \def\ForeTrim@@0#1@{\IN@0\m@rker. @\m@rker.#1@%
139
     \ifIN@\ForePrim@0#1@%
140
     \else\Trimtoks@\expandafter{#1}\fi}
141
   %%\m@rker expands here to \m@@rker since spot initial,
142
   %% so no confusuion with \m@rker
143
 
144
  %%% \Trim@0#1@ trims init and terminal spaces 
145
   %% Same syntax.
146
   %% Warns if internal spaces found.
147
   %% 
148
  \def\Trim@0#1@{%
149
      \ForeTrim@0#1@%
150
      \IN@0 @\the\Trimtoks@ @%
151
        \ifIN@ 
152
             \SPLIT@0 @\the\Trimtoks@ @\Trimtoks@\Initialtoks@
153
             \IN@0\the\Terminaltoks@ @ @%
154
                 \ifIN@
155
                 \else \Trimtoks@ {FigNameWithSpace}%
156
                 \fi
157
        \fi
158
      }
159
 
160
 
161
  %%%% MATH MACROS (provisional)
162
    %% use dimen registers for reals; unit 1pt
163
    %% (numerical dimension arguments OK unless contrary noted)
164
 
165
  %%%% One needs the point token seq (pt with cat 12) USES dimen 0
166
   \newtoks\pt@ks
167
   \def \getpt@ks 0.0#1@{\pt@ks{#1}}
168
   \dimen0=0pt\relax\expandafter\getpt@ks\the\dimen0@
169
 
170
   %%% Convert dimen to "decimal multiplier"% USES dimens 0,2
171
  \newtoks\Realtoks% the output!
172
  \def\Real#1{%
173
    \dimen2=#1%
174
      \SPLIT@0\the\pt@ks @\the\dimen2@%%  lop off the points
175
       \Realtoks=\Initialtoks@%\showthe\Realtoks
176
            }
177
 
178
   %%% Multiplication 
179
      % USES dimens 0,2,4,6; preserves args; output \Product
180
   \newdimen\Product
181
   \def\Mult#1#2{%
182
     \dimen4=#1\relax
183
     \dimen6=#2%
184
     \Real{\dimen4}%
185
     \Product=\the\Realtoks\dimen6%
186
        }
187
 
188
   %%% Inverse 
189
     % USES dimens 0; preserves arg; output \Inverse
190
 \newdimen\Inverse
191
 \newdimen\hmxdim@ \hmxdim@=8192pt%halfmaxdimen
192
 \def\Invert#1{%
193
  \Inverse=\hmxdim@
194
  \dimen0=#1%
195
  \divide\Inverse \dimen0%
196
  \multiply\Inverse 8}
197
 
198
 %%% \Rescale#1#2#3  % USES dimens 0,2,4,6
199
  %%  alters dimen register #1 by ratio #2/#3 
200
  %%  where #2,#3 can be raw dimensions OR dimen registers
201
   \def\Rescale#1#2#3{% Adequate accuracy. Can improve. 
202
              \divide #1 by 100\relax
203
              \dimen2=#3\divide\dimen2 by 100 \Invert{\dimen2}% 
204
              \Mult{#1}{#2}%
205
              \Mult\Product\Inverse 
206
              #1=\Product}
207
 
208
 %%% \Scale#1 scales dimen register #1 
209
   %  by dimen register real \TheScale; USES dimens 0
210
  \def\Scale#1{\dimen0=\TheScale %
211
      \divide #1 by  1280 %% 1280*5120*10=1000*2^16 
212
      \divide \dimen0 by 5120 % 
213
      \multiply#1 by \dimen0 
214
      \divide#1 by 10   %% max size of #1 about 32000/10 pt
215
     }
216
 
217
 %%% SCRUNCHING BOXES AND SHIFTING CONTENTS
218
  %% TeX has to do this in general
219
  %% since some drivers do not let 
220
  %% one do it readily using Postscript
221
 
222
 \newbox\scrunchbox
223
 
224
 %%% \Scrunched#1 puts #1 in an hbox
225
  %%    then in effect zeros the dimensions of this box
226
 \def\Scrunched#1{{\setbox\scrunchbox\hbox{#1}%
227
   \wd\scrunchbox=0pt
228
   \ht\scrunchbox=0pt
229
   \dp\scrunchbox=0pt
230
   \box\scrunchbox}}
231
 
232
  %%% \Shifted@#1 puts #1 in \hbox 
233
   %% then locates basepoint to bottom left corner
234
   %% then translates ink only by \XShift@,\YShift@
235
   %% with Postscript convention
236
   %% For simplicity use only on scrunched boxes
237
  %\newdimen\XShift@ 
238
  %\newdimen\YShift@ 
239
 \def\Shifted@#1{%
240
   \vbox {\kern-\YShift@
241
       \hbox {\kern\XShift@\hbox{#1}\kern-\XShift@}%
242
           \kern\YShift@}}
243
 
244
  %%% \cBoxedEPSF#1 the main macro
245
   %%  component macros are explained in order below
246
 
247
 \def\cBoxedEPSF#1{{\leavevmode 
248
    %% double brace for amstex \allign, \alligned, ...
249
   \ReadNameAndScale@{#1}%
250
   \SetEPSFSpec@
251
   \ReadEPSFile@ \ReadBdB@x  
252
   %% Calculations
253
     \TrimFigDims@ 
254
     \CalculateFigScale@  
255
     \ScaleFigDims@
256
     \SetInkShift@
257
   \hbox{$\mathsurround=0pt\relax
258
         \vcenter{\hbox{%
259
             \FrameSpider{\hskip-.4pt\vrule}%
260
             \vbox to \Ht@{\offinterlineskip\parindent=\z@%
261
                \FrameSpider{\vskip-.4pt\hrule}\vfil 
262
                \hbox to \Wd@{\hfil}%
263
                \vfil
264
                \InkShift@{\EPSFSpecial{\EPSFSpec@}{\FigSc@leReal}}%
265
             \FrameSpider{\hrule\vskip-.4pt}}%
266
         \FrameSpider{\vrule\hskip-.4pt}}}%
267
     $}%
268
    \CleanRegisters@ 
269
    \ms@g{ *** Box composed for the % 
270
         EPSF file \the\EPSFNametoks@}%
271
    }}
272
 
273
 \def\tBoxedEPSF#1{\setbox4\hbox{\cBoxedEPSF{#1}}%
274
     \setbox4\hbox{\raise -\ht4 \hbox{\box4}}%
275
     \box4
276
      }
277
 
278
 \def\bBoxedEPSF#1{\setbox4\hbox{\cBoxedEPSF{#1}}%
279
     \setbox4\hbox{\raise \dp4 \hbox{\box4}}%
280
     \box4
281
      }
282
 
283
  \let\BoxedEPSF\cBoxedEPSF% default setting
284
 
285
  %% Some compatibility with BoxedArt.tex
286
   %
287
   \let\BoxedArt\BoxedEPSF
288
 
289
  %% Some compatibility with Sweet-teX
290
   %
291
  \def\gLinefigure[#1scaled#2]_#3{%
292
        \BoxedEPSF{#3 scaled #2}}
293
 
294
  %% Some compatibility with Rokicki's dvips
295
   %
296
  \let\EPSFbox\bBoxedEPSF \let\EPSFfile\bBoxedEPSF
297
 
298
  \def\EPSFxsize{\afterassignment\ForceW@\ForcedDim@@}
299
      \def\ForceW@{\ForcedDim@true\ForcedHeight@false}
300
 
301
  \def\EPSFysize{\afterassignment\ForceH@\ForcedDim@@}
302
      \def\ForceH@{\ForcedDim@true\ForcedHeight@true}
303
 
304
  \def\EmulateRokicki{%
305
       \let\epsfbox\bBoxedEPSF \let\epsffile\bBoxedEPSF
306
       \let\epsfxsize\EPSFxsize \let\epsfysize\EPSFysize} 
307
 
308
 %%% \ReadNameAndScale@#1
309
  %
310
 \def\ReadNameAndScale@#1{\IN@0 scaled@#1@% DOUBLE BARRELED
311
   \ifIN@\ReadNameAndScale@@0#1@%
312
   \else \ReadNameAndScale@@0#1 scaled\DefaultMilScale @%
313
   \fi}
314
 
315
 \def\ReadNameAndScale@@0#1scaled#2@{% HELPER MACRO
316
    \let\OldBackslash@\\%
317
    \def\\{\OtherB@ckslash}%
318
    \edef\temp@{#1}%
319
    \Trim@0\temp@ @%
320
    \EPSFNametoks@\expandafter{\the\Trimtoks@ }%
321
    \FigScale=#2 pt%
322
    \let\\\OldBackslash@
323
    }
324
 
325
 \def\SetDefaultEPSFScale#1{%
326
      \global\def\DefaultMilScale{#1}}
327
 
328
 \SetDefaultEPSFScale{1000}
329
 
330
 
331
 %%% \ReadEPSFile@
332
  %
333
 \def \SetBogusBbox@{%
334
     \global\BdBoxtoks@{ BoundingBox:0 0 100 100 }%
335
     \global\def\BdBoxLine@{ BoundingBox:0 0 100 100 }%
336
     \ms@g{ !!! Will use placeholder !!!}%
337
     }
338
 
339
 {\catcode`\%=12\gdef\P@S@{%!}} %% %! min sign of PS file
340
 
341
 \def\ReadEPSFile@{%\show\EPSFSpec@%
342
     \openin\EPSFile@\EPSFSpec@
343
     \relax  %necessary to prevent precocious expansion of \ifeof
344
  \ifeof\EPSFile@
345
     \ms@g{}%
346
     \ms@g{ !!! EPS FILE \the\EPSFDirectorytoks@
347
       \the\EPSFNametoks@\space WAS NOT FOUND !!!}%
348
     \SetBogusBbox@
349
  \else%\fi
350
   \begingroup%%
351
   \catcode`\%=12\catcode`\:=12\catcode`\!=12
352
   \catcode`\G=14\catcode`\\=14\relax% 14 is comment
353
   \global\read\EPSFile@ to \BdBoxLine@%\show\BdBoxLine@
354
   \IN@0\P@S@ @\BdBoxLine@ @%
355
   \ifIN@ %% %! accepted as %!PS so do BdBox search!!
356
     \NotIn@true
357
     \loop   
358
       \ifeof\EPSFile@\NotIn@false 
359
         \ms@g{}%
360
         \ms@g{ !!! BoundingBox NOT FOUND IN %
361
            \the\EPSFDirectorytoks@\the\EPSFNametoks@\space!!! }%
362
         \SetBogusBbox@
363
       \else\global\read\EPSFile@ to \BdBoxLine@
364
       %\show\BdBoxLine@
365
       \fi
366
       \global\BdBoxtoks@\expandafter{\BdBoxLine@}%
367
       \IN@0BoundingBox:@\the\BdBoxtoks@ @%
368
       \ifIN@\NotIn@false\fi%
369
     \ifNotIn@\repeat
370
   \else
371
         \ms@g{}%
372
         \ms@g{ !!! \the\EPSFNametoks@\space not PS!\space !!!}%
373
         \SetBogusBbox@
374
   \fi
375
  \endgroup\relax
376
  \fi
377
  \closein\EPSFile@ 
378
   }
379
 
380
 
381
  %%% \ReadBdB@x
382
   % Rmk For simplicity 0 not used in syntax 
383
   %  of \ReadBdB@x@,  \ReadBdB@x@@ 
384
  \def\ReadBdB@x{% PART 0
385
   \expandafter\ReadBdB@x@\the\BdBoxtoks@ @}
386
 
387
  \def\ReadBdB@x@#1BoundingBox:#2@{% PART 1
388
    \ForeTrim@0#2@%
389
    \IN@0atend@\the\Trimtoks@ @%
390
       \ifIN@\Trimtoks@={0 0 100 100 }%
391
         \ms@g{}%
392
         \ms@g{ !!! BoundingBox not found in %
393
         \the\EPSFDirectorytoks@\the\EPSFNametoks@\space !!!}%
394
         \ms@g{ !!! It must not be at end of EPSF !!!}%
395
         \ms@g{ !!! Will use placeholder !!!}%
396
       \fi%% cf \SetBogusBbox@
397
    \expandafter\ReadBdB@x@@\the\Trimtoks@ @%
398
   }
399
 
400
  \def\ReadBdB@x@@#1 #2 #3 #4@{% PART 2
401
      \Wd@=#3bp\advance\Wd@ by -#1bp%
402
      \Ht@=#4bp\advance\Ht@ by-#2bp%
403
       \Wd@@=\Wd@ \Ht@@=\Ht@ %% useful info for Clark
404
       \LLXtoks@={#1}\LLYtoks@={#2}%% useful info for Oz
405
      \ifPSOrigin\XShift@=-#1bp\YShift@=-#2bp\fi 
406
     }
407
 
408
  %%% \SetEPSFDirectory 
409
   %
410
   \def\G@bbl@#1{}
411
   \bgroup
412
     \global\edef\OtherB@ckslash{\expandafter\G@bbl@\string\\}
413
   \egroup
414
 
415
  \def\SetEPSFDirectory{%  Part 1
416
           \bgroup\PunctOther@\relax
417
           \let\\\OtherB@ckslash
418
           \SetEPSFDirectory@}
419
 
420
 \def\SetEPSFDirectory@#1{% Part 2
421
    \edef\temp@{#1}%
422
    \Trim@0\temp@ @%  result in \Trimtoks@
423
    \global\toks1\expandafter{\the\Trimtoks@ }\relax
424
    \egroup
425
    \EPSFDirectorytoks@=\toks1
426
    }
427
 
428
  %%% \SetEPSFSpec@
429
 \def\SetEPSFSpec@{%
430
     \bgroup
431
     \let\\=\OtherB@ckslash
432
     \global\edef\EPSFSpec@{%
433
        \the\EPSFDirectorytoks@\the\EPSFNametoks@}%
434
     \global\edef\EPSFSpec@{\EPSFSpec@}%
435
     \egroup}
436
 
437
 
438
 %%% \TrimFigDims@ 
439
  % 
440
 \def\TrimTop#1{\advance\TT@ by #1}
441
 \def\TrimLeft#1{\advance\LT@ by #1}
442
 \def\TrimBottom#1{\advance\BT@ by #1}
443
 \def\TrimRight#1{\advance\RT@ by #1}
444
 
445
 \def\TrimBoundingBox#1{%
446
   \TrimTop{#1}%
447
   \TrimLeft{#1}%
448
   \TrimBottom{#1}%
449
   \TrimRight{#1}%
450
       }
451
 
452
 \def\TrimFigDims@{%
453
    \advance\Wd@ by -\LT@ 
454
    \advance\Wd@ by -\RT@ \RT@=\z@
455
    \advance\Ht@ by -\TT@ \TT@=\z@
456
    \advance\Ht@ by -\BT@ 
457
    }
458
 
459
 
460
 %%% \CalculateFigScale@
461
  %
462
  \def\ForceWidth#1{\ForcedDim@true
463
       \ForcedDim@@#1\ForcedHeight@false}
464
 
465
  \def\ForceHeight#1{\ForcedDim@true
466
       \ForcedDim@@=#1\ForcedHeight@true}
467
 
468
  \def\ForceOn{\ForceOn@true}
469
  \def\ForceOff{\ForceOn@false\ForcedDim@false}
470
 
471
  \def\CalculateFigScale@{%
472
            %Have default \FigScale or read \FigScale
473
     \ifForcedDim@\FigScale=1000pt% %% start afresh
474
           \ifForcedHeight@
475
                \Rescale\FigScale\ForcedDim@@\Ht@
476
           \else
477
                \Rescale\FigScale\ForcedDim@@\Wd@
478
           \fi
479
     \fi
480
     \Real{\FigScale}%
481
     \edef\FigSc@leReal{\the\Realtoks}%
482
     }
483
 
484
  \def\ScaleFigDims@{\TheScale=\FigScale
485
      \ifForcedDim@
486
           \ifForcedHeight@ \Ht@=\ForcedDim@@  \Scale\Wd@
487
           \else \Wd@=\ForcedDim@@ \Scale\Ht@
488
           \fi
489
      \else \Scale\Wd@\Scale\Ht@        
490
      \fi
491
      \ifForceOn@\relax\else\global\ForcedDim@false\fi
492
      \Scale\LT@\Scale\BT@  %%%\Scale\Wd@\Scale\Ht@
493
      \Scale\XShift@\Scale\YShift@
494
      }
495
 
496
  %%% \ShowReservedBoxes
497
   %%  shows (prints) corrected scaled and positioned
498
   %%  bounding boxes; for diagnostics
499
  %%% \HideReservedBoxes makes them invisible again
500
   %%
501
 \def\HideReservedBoxes{\global\def\FrameSpider##1{\null}}
502
 \def\ShowReservedBoxes{\global\def\FrameSpider##1{##1}}
503
 \let\HideDisplacementBoxes\HideReservedBoxes  %% some synonyms
504
 \let\ShowDisplacementBoxes\ShowReservedBoxes
505
 \let\HideFigureFrames\HideReservedBoxes
506
 \let\ShowFigureFrames\ShowReservedBoxes
507
  \ShowDisplacementBoxes
508
 
509
  %%% \hSlide#1, \vSlide#1
510
   %%
511
 \def\hSlide#1{\advance\XSlide@ by #1}
512
 \def\vSlide#1{\advance\YSlide@ by #1}
513
 
514
  %%% \SetInkShift@, \InkShift@#1
515
   %%
516
  \def\SetInkShift@{%
517
            \advance\XShift@ by -\LT@
518
            \advance\XShift@ by \XSlide@
519
            \advance\YShift@ by -\BT@
520
            \advance\YShift@ by -\YSlide@
521
             }
522
   %
523
  \def\InkShift@#1{\Shifted@{\Scrunched{#1}}}
524
 
525
  %%% \CleanRegisters@
526
   %
527
  \def\CleanRegisters@{%
528
      \globaldefs=1\relax
529
        \XShift@=\z@\YShift@=\z@\XSlide@=\z@\YSlide@=\z@
530
        \TT@=\z@\LT@=\z@\BT@=\z@\RT@=\z@
531
      \globaldefs=0\relax}
532
 
533
 %%% Special syntax for several drivers. The macros 
534
  %% \SetTexturesEPSFSpecial  %% Textures 
535
  %% \SetUnixCoopEPSFSpecial %% dvi2ps early unix 
536
  %% \SetBechtolsheimDVI2PSEPSFSpecial and 
537
  %% \SetBechtolsheimDVITPSEPSFSpecial %% by S.P.Bechtolsheim
538
  %% \SetLisEPSFSpecial %% dvi2ps by Tony Lis
539
  %% \SetRokickiEPSFSpecial  %% dvips by Tom Rokicki
540
  %%  --- also for DVIReader, in DirectTeX by W. Ricken
541
  %% \SetOzTeXEPSFSpecial  %% OzTeX (>=1.42) by Andrew Trevorrow
542
  %% \SetPSprintEPSFSpecial %% PSprint by Andrew Trevorrow
543
  %%  --- also for OzTeX versions <= 1.41 !!
544
  %% \SetArborEPSFSpecial  %% ArborTeX DVILASER/PS
545
  %% \SetClarkEPSFSpecial %% dvitops by James Clark
546
  %% \SetDVIPSoneEPSFSpecial %% DVIPSONE of Y&Y 
547
  %% \SetBeebeEPSFSpecial %% DVIALW by N. Beebe
548
  %% \SetNorthlakeEPSFSpecial %% Northlake Software
549
  %% \SetStandardEPSFSpecial %% Nonexistant: Placebo below
550
  %% Many drivers supported roughly
551
  %% by (re-)defining the macro \EPSFSpecial#1#2, where
552
  %% #1 = EPS file pathname (use \\ for the letter backslash)
553
  %% #2 = scale in mils 
554
  %% Be wary of using strange characters in pathnames!
555
 
556
 %% Textures, Blue Sky Research, Barry Smith
557
 \def\SetTexturesEPSFSpecial{\PSOriginfalse%\PSOrigintrue
558
  \gdef\EPSFSpecial##1##2{\relax
559
    \edef\specialthis{##2}%
560
    \SPLIT@0.@\specialthis.@\relax
561
    \special{illustration ##1 scaled
562
                        \the\Initialtoks@}}}
563
 
564
  %% Unix : dvi2ps by:  Mark Senn, Stephan  Bechtolsheim,  
565
   % Bob  Brown, Richard, Furuta, James Schaad, Robert  Wells, 
566
   % Norm Hutchinson, Neal Holt, Scott Jones, Howard Trickey.
567
   % Introduced by B. Horn <bkph@ai.mit.edu>
568
  \def\SetUnixCoopEPSFSpecial{\PSOrigintrue % Please test!
569
   \gdef\EPSFSpecial##1##2{%
570
      \dimen4=##2pt% convert real to dimen
571
      \divide\dimen4 by 1000\relax
572
      \Real{\dimen4}%dimens 0,2 used here
573
      \edef\Aux@{\the\Realtoks}%  
574
      %%convert dimen to real
575
      \special{psfile=##1\space 
576
        hscale=\Aux@\space
577
        vscale=\Aux@}}}
578
 
579
  %% dvi2ps and dvitps by S.P. Bechtolsheim,
580
   % Introduced by B. Horn <bkph@ai.mit.edu> and Carl.M.Jones, 
581
   % testing by R. Evans <Robert@cm.cardiff.ac.uk>
582
   % Note that a prolog file psfig.pro
583
   % specific to the driver should be available.
584
  \def\SetBechtolsheimEPSFSpecial@{%% tool macro only
585
   \PSOrigintrue
586
   \special{\DriverTag@ Include0 "psfig.pro"}%
587
   \gdef\EPSFSpecial##1##2{%
588
      \dimen4=##2pt %% convert real to dimen
589
      \divide\dimen4 by 1000\relax
590
      \Real{\dimen4} %% dimens 0,2 used here
591
      \edef\Aux@{\the\Realtoks}%% convert dimen to real
592
      \special{\DriverTag@ Literal "10 10 0 0 10 10 startTexFig
593
           \the\mag\space 1000 div 3.25 neg mul 
594
           \the\mag\space 1000 div .25 neg mul translate %% correction
595
           \the\mag\space 1000 div \Aux@\space mul 
596
           \the\mag\space 1000 div \Aux@\space mul scale "}%
597
      \special{\DriverTag@ Include1 "##1"}%
598
      \special{\DriverTag@ Literal "endTexFig "}%
599
        }}
600
 
601
  %% dvi2ps and dvitps by S.P. Bechtolsheim,
602
   % Introduced by B. Horn <bkph@ai.mit.edu> and Carl.M.Jones, 
603
   % testing by R. Evans <Robert@cm.cardiff.ac.uk>
604
   % Note that a prolog file psfig.pro
605
   % specific to the driver should be available.
606
  \def\SetBechtolsheimEPSFSpecial@{%% tool macro only
607
   \PSOrigintrue
608
   \special{\DriverTag@ Include0 "psfig.pro"}%
609
   \gdef\EPSFSpecial##1##2{%
610
      \dimen4=##2pt %% convert real to dimen
611
      \divide\dimen4 by 1000\relax
612
      \Real{\dimen4} %% dimens 0,2 used here
613
      \edef\Aux@{\the\Realtoks}%% convert dimen to real
614
      \special{\DriverTag@ Literal "10 10 0 0 10 10 startTexFig
615
           \the\mag\space 1000 div 
616
           dup 3.25 neg mul 2 index .25 neg mul translate %% correction line
617
           \Aux@\space mul dup scale "}%
618
      \special{\DriverTag@ Include1 "##1"}%
619
      \special{\DriverTag@ Literal "endTexFig "}%
620
        }}
621
 
622
  \def\SetBechtolsheimDVITPSEPSFSpecial{\def\DriverTag@{dvitps: }%
623
      \SetBechtolsheimEPSFSpecial@}
624
 
625
  \def\SetBechtolsheimDVI2PSEPSFSSpecial{\def\DriverTag@{DVI2PS: }%
626
      \SetBechtolsheimEPSFSpecial@}
627
 
628
  %% dvi2ps by Tony Lis,
629
   % implantations? ; dates?; availability?
630
   % Introduced by B. Horn <bkph@ai.mit.edu>
631
  \def\SetLisEPSFSpecial{\PSOrigintrue 
632
   \gdef\EPSFSpecial##1##2{%
633
      \dimen4=##2pt% convert real to dimen
634
      \divide\dimen4 by 1000\relax
635
      \Real{\dimen4}% dimens 0,2 used here
636
      \edef\Aux@{\the\Realtoks}%  
637
      %%convert dimen to real
638
      \special{pstext="10 10 0 0 10 10 startTexFig\space
639
           \the\mag\space 1000 div \Aux@\space mul 
640
           \the\mag\space 1000 div \Aux@\space mul scale"}%
641
      \special{psfile=##1}%
642
      \special{pstext=endTexFig}%
643
        }}
644
 
645
  %% dvips by Tom Rokicki; free driver in portable C 
646
   % Introduced by W.D. Neumann <neumann@mps.ohio-state.edu>
647
  \def\SetRokickiEPSFSpecial{\PSOrigintrue 
648
   \gdef\EPSFSpecial##1##2{%
649
      \dimen4=##2pt% convert real to dimen
650
      \divide\dimen4 by 10\relax
651
      \Real{\dimen4}% dimens 0,2 used here
652
      \edef\Aux@{\the\Realtoks}%  
653
      %%convert dimen to real
654
      \special{psfile="##1"\space 
655
        hscale=\Aux@\space
656
        vscale=\Aux@}}}
657
 
658
  \def\SetInlineRokickiEPSFSpecial{\PSOrigintrue 
659
   \gdef\EPSFSpecial##1##2{%
660
      \dimen4=##2pt% convert real to dimen
661
      \divide\dimen4 by 1000\relax
662
      \Real{\dimen4}% dimens 0,2 used here
663
      \edef\Aux@{\the\Realtoks}%  
664
      %%convert dimen to real
665
      \special{ps::[begin] 10 10 0 0 10 10 startTexFig\space
666
           \the\mag\space 1000 div \Aux@\space mul 
667
           \the\mag\space 1000 div \Aux@\space mul scale}%
668
      \special{ps: plotfile ##1}%
669
      \special{ps::[end] endTexFig}%
670
        }}
671
 
672
 %%%  OzTeX (versions 1.42 and later), by Andrew Trevorrow
673
 %%%  (for earlier versions see PSprint below!!)
674
 %%  complete public domain TeX for Macintosh
675
 %%  Send 10 UNFORMATTED 800K disks 
676
 %%  with return postage to
677
 %%  Peter Abbott, Computing Service, 
678
 %%  Aston University, Aston Triangle, Birmingham B4 7ET
679
 %%  Posting: ftp   midway.uchicago.edu
680
 %%  Nota: Version 1.42 may give
681
 %%  spurious "offpage" error notices on printing.
682
 %%  Nota: Support for MacPaint files not here yet.
683
 \def\SetOzTeXEPSFSpecial{\PSOrigintrue
684
 \gdef\EPSFSpecial##1##2{%
685
 \dimen4=##2pt%% convert real to dimen
686
 \divide\dimen4 by 1000\relax
687
 \Real{\dimen4}%% dimens 0,2 used here
688
 \edef\Aux@{\the\Realtoks}%% convert dimen to real
689
 \special{epsf=\string"##1\string"\space scale=\Aux@}%
690
 }} 
691
 
692
 %% PSprint, by AndrewTrevorrow for VaX VMS
693
 %% and OzTeX versions <= 1.41  
694
  % tested 2-91 by Max Calviani <ISICA@ASTRPD.infn.it>
695
  \def\SetPSprintEPSFSpecial{\PSOriginFALSE % artifice; see below
696
   \gdef\EPSFSpecial##1##2{%note order
697
     \special{##1\space 
698
       ##2 1000 div \the\mag\space 1000 div mul
699
       ##2 1000 div \the\mag\space 1000 div mul scale
700
       \the\LLXtoks@\space neg \the\LLYtoks@\space neg translate
701
       }}}
702
 
703
 %% DVILASER/PS driver originally written by David Fuchs
704
  % marketed and supported by ArborTeXt  535 W. William St.
705
  % Suite 300, Ann Arbor, MI 48103, U.S.A
706
  % (313) 996-3566 (313) 996-3573
707
  % help@arbortext.com, Andrew Dobrowolski
708
 \def\SetArborEPSFSpecial{\PSOriginfalse % check!
709
   \gdef\EPSFSpecial##1##2{%
710
     \edef\specialthis{##2}%
711
     \SPLIT@0.@\specialthis.@\relax % suppress decimals (nec!)
712
     \special{ps: epsfile ##1\space \the\Initialtoks@}}}
713
 
714
 %% dvitops, (c) James Clark <jjc@jclark.uucp>
715
  % public domain; distributed by UK TeX Archive
716
  % computers: unix, msdos, vms, primos and vm/cms,
717
  % introduced by S. Ratz <spqr@uk.ac.southampton.ecs>
718
 \def\SetClarkEPSFSpecial{\PSOriginfalse % please test!
719
   \gdef\EPSFSpecial##1##2{%
720
     \Rescale {\Wd@@}{##2pt}{1000pt}%
721
     \Rescale {\Ht@@}{##2pt}{1000pt}%
722
     \special{dvitops: import 
723
           ##1\space\the\Wd@@\space\the\Ht@@}}}
724
 
725
 %% DVIPSONE, for PC compatibles
726
  % Y&Y, 106 Indian Hill, Carlisle MA 01741, USA
727
  % (508) 371-3286
728
  % (introduced by B. Horn <bkph@ai.mit.edu>)
729
  \let\SetDVIPSONEEPSFSpecial\SetUnixCoopEPSFSpecial
730
  \let\SetDVIPSoneEPSFSpecial\SetUnixCoopEPSFSpecial
731
 
732
 %% DVIALW by N. Beebe, public domain 
733
  % DVI Driver Distribution, Center for Scientific Computing,
734
  % Department of Mathematics, 220 South Physics Building,
735
  % University of Utah, Salt Lake City, UT 84112, USA
736
  % (introduced by B. Horn <bkph@ai.mit.edu>)
737
  % Proposed standard; see TUGboat article 1993.
738
  \def\SetBeebeEPSFSpecial{%please test!
739
   \PSOriginfalse% 
740
   \gdef\EPSFSpecial##1##2{\relax
741
    \special{language "PS",
742
      literal "##2 1000 div ##2 1000 div scale",
743
      position = "bottom left",
744
      include "##1"}}}
745
  \let\SetDVIALWEPSFSpecial\SetBeebeEPSFSpecial
746
 
747
 %% Northlake software
748
  \def\SetNorthlakeEPSFSpecial{\PSOrigintrue
749
   \gdef\EPSFSpecial##1##2{%
750
     \edef\specialthis{##2}%
751
     \SPLIT@0.@\specialthis.@\relax % suppress decimals (nec!)
752
     \special{insert ##1,magnification=\the\Initialtoks@}}}
753
 
754
 \def\SetStandardEPSFSpecial{%
755
   \gdef\EPSFSpecial##1##2{%
756
     \ms@g{}
757
     \ms@g{%
758
       !!! Sorry! There is still no standard for \string%
759
       \special\space EPSF integration !!!}%
760
     \ms@g{%
761
      --- So you will have to identify your driver using a command}%
762
     \ms@g{%
763
      --- of the form \string\Set...EPSFSpecial, in order to get}%
764
     \ms@g{%
765
      --- your graphics to print.  See BoxedEPS.doc.}%
766
     \ms@g{}
767
     \gdef\EPSFSpecial####1####2{}
768
     }}
769
 
770
  \SetStandardEPSFSpecial %% currently gives warning
771
 
772
 \let\wlog\wlog@ld %%restore logging 
773
 
774
 \catcode`\:=\C@tColon
775
 \catcode`\;=\C@tSemicolon
776
 \catcode`\?=\C@tQmark
777
 \catcode`\!=\C@tEmark
778
 \catcode`\"=\C@tDqt
779
 
780
 \catcode`\@=\EPSFCatAt
781
 
782
  \endinput
783
 
784
%%%%%%%%%%%% ASCII Character test
785
 %
786
 %       Upper case letters: ABCDEFGHIJKLMNOPQRSTUVWXYZ
787
 %       Lower case letters: abcdefghijklmnopqrstuvwxyz
788
 %                                   Digits: 0123456789
789
 % Square, curly, angle braces, parentheses: [] {} <> ()
790
 %           Backslash, slash, vertical bar: \ / |
791
 %                              Punctuation: . ? ! , : ;
792
 %          Underscore, hyphen, equals sign: _ - =
793
 %                Quotes--right left double: ' ` "
794
 %"at", "number" "dollar", "percent", "and": @ # $ % &
795
 %           "hat", "star", "plus", "tilde": ^ * + ~
796
 %
797
 %%%%%%%%%%%%%%%%%%%%%%%%
798
 %
799
 % Une seule erreur de transmission peut empoisoner un programme!
800
 %
801
 % A single transmission error can poison a whole program.
802
 %
803
 %%%%%%%%%%%%%%%%%%%%%%%%