summaryrefslogtreecommitdiff
path: root/Build/source/texk/owindvi/psheader.txt
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/owindvi/psheader.txt')
-rw-r--r--Build/source/texk/owindvi/psheader.txt312
1 files changed, 0 insertions, 312 deletions
diff --git a/Build/source/texk/owindvi/psheader.txt b/Build/source/texk/owindvi/psheader.txt
deleted file mode 100644
index 4f68852eb4d..00000000000
--- a/Build/source/texk/owindvi/psheader.txt
+++ /dev/null
@@ -1,312 +0,0 @@
-%% These are from tex.lpro
-/TeXDict 250 dict def % define a working dictionary ( IBM: color - 200->250 )
-TeXDict begin % start using it.
-/N {def} def
-/B {bind def} N
-/S {exch} N
-/X { S N } B
-/TR {translate} N
-end % TeXDict
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% header for the \special command
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% The structure of the PostScript produced by dvips for \special is:
-% @beginspecial
-% - any number of @hsize, @hoffset, @hscale, etc., commands
-% @setspecial
-% - the user's file of PostScript commands
-% @endspecial
-
-TeXDict begin
-/SDict 200 dict N
-SDict begin
-
-/@SpecialDefaults
- { /hs 612 N
- /vs 792 N
- /ho 0 N
- /vo 0 N
- /hsc 1 N
- /vsc 1 N
- /ang 0 N
- /CLIP 0 N
- /rwiSeen false N
- /rhiSeen false N
- /letter {} N /note {} N /a4 {} N /legal {} N
- } B
-
-%
-% The following definition sets up the units that hscale/vscale are in.
-% For certain sites this might require change, but it is
-% recommended instead that any macro packages that require
-% hscale/vscale set the units appropriately via
-%
-% \special{! /@scaleunit 1 def }
-%
-% if global, or
-%
-% \special{" /@scaleunit 1 def }
-%
-% before each instance if multiple macro packages with
-% different requirements are being used.
-%
-/@scaleunit 100 N
-% s @hscale - set scale factor
-/@hscale {@scaleunit div /hsc X} B
-/@vscale {@scaleunit div /vsc X} B
-
-% d @hsize - specify a horizontal clipping dimension
-/@hsize {/hs X /CLIP 1 N} B
-/@vsize {/vs X /CLIP 1 N} B
-
-/@clip {/CLIP 2 N} B
-
-% d @hoffset - specify a shift for the figure
-/@hoffset {/ho X} B
-/@voffset {/vo X} B
-
-% a @angle - set rotation angle
-/@angle {/ang X} B
-
-%
-% Here we handle bounding box calculations, if necessary.
-%
-/@rwi { 10 div /rwi X /rwiSeen true N } B % rwi will be real width after scaling
-/@rhi { 10 div /rhi X /rhiSeen true N } B % rhi will be real height after scaling
-/@llx { /llx X } B
-/@lly { /lly X } B
-/@urx { /urx X } B
-/@ury { /ury X } B
-
-/magscale true def
-
-end % of SDict
-
-/@MacSetUp
- { userdict /md known % if md is defined
- { userdict /md get type /dicttype eq % and if it is a dictionary
- {
- userdict begin % expand it if necessary
- md length 10 add md maxlength ge
- {/md md dup length 20 add dict copy def}if
- end
- md begin % then redefine some stuff
- /letter {} N
- /note {} N
- /legal {} N
- /od{txpose
- 1 0 mtx defaultmatrix dtransform S atan/pa X
- newpath clippath mark
- {transform{itransform moveto}}
- {transform{itransform lineto}}
- { 6 -2 roll transform
- 6 -2 roll transform
- 6 -2 roll transform
- { itransform 6 2 roll
- itransform 6 2 roll
- itransform 6 2 roll
- curveto
- }
- }
- {{closepath}}
- pathforall newpath counttomark array astore /gc xdf
- pop ct 39 0 put
- 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if
- }N
- /txpose{
- pxs pys scale ppr aload pop
- por {
- noflips {
- pop S neg S TR pop 1 -1 scale
- }if
- xflip yflip and {
- pop S neg S TR 180 rotate 1 -1 scale
- ppr 3 get ppr 1 get neg sub neg ppr 2 get
- ppr 0 get neg sub neg TR
- }if
- xflip yflip not and {
- pop S neg S TR pop 180 rotate
- ppr 3 get ppr 1 get neg sub neg 0 TR
- }if
- yflip xflip not and {
- ppr 1 get neg ppr 0 get neg TR
- }if
- }
- {
- noflips {
- TR pop pop 270 rotate 1 -1 scale
- }if
- xflip yflip and {
- TR pop pop 90 rotate 1 -1 scale
- ppr 3 get ppr 1 get neg sub neg ppr 2 get
- ppr 0 get neg sub neg TR
- }if
- xflip yflip not and {
- TR pop pop 90 rotate ppr 3 get
- ppr 1 get neg sub neg 0 TR
- }if
- yflip xflip not and {
- TR pop pop 270 rotate ppr 2 get
- ppr 0 get neg sub neg 0 S TR
- }if
- }ifelse
- scaleby96 {
- ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy
- TR .96 dup scale neg S neg S TR
- }if
- }N
- /cp {pop pop showpage pm restore}N
- end
- }if
- } if
- } N
-
-%
-% The following procedure brings us back to PostScript size. It takes
-% into account the current global dvi magnification, so graphics
-% scale with the document.
-%
-/normalscale {
- Resolution 72 div VResolution 72 div neg scale
- magscale { DVImag dup scale } if
- 0 setgray
-} N
-%
-% We need the psfig macros.
-%
-% All software, documentation, and related files in this distribution of
-% psfig/tex are Copyright (c) 1987 Trevor J. Darrell
-%
-% Permission is granted for use and non-profit distribution of psfig/tex
-% providing that this notice be clearly maintained, but the right to
-% distribute any portion of psfig/tex for profit or as part of any commercial
-% product is specifically reserved for the author.
-%
-%
-% psfigTeX PostScript Prolog
-% $Header: /usr/local/src/TeX/Dvips-5.0.2/RCS/special.lpro,v 1.1 90/03/10 20:32:57 grunwald Exp $
-%
-/psfts { S 65781.76 div N } N
-
-% x y bb-llx bb-lly bb-urx bb-ury startTexFig -
-/startTexFig {
- /psf$SavedState save N
- userdict maxlength dict begin
-
- /magscale true def
- normalscale
- currentpoint TR %set the current point as the user's origin
-
- /psf$ury psfts
- /psf$urx psfts
- /psf$lly psfts
- /psf$llx psfts
- /psf$y psfts
- /psf$x psfts
-
- /psf$sx psf$x psf$urx psf$llx sub div N % scaling for x
- /psf$sy psf$y psf$ury psf$lly sub div N % scaling for y
-
- psf$sx psf$sy scale % scale by (sx,sy)
-
- psf$llx neg psf$ury neg TR
-
- /showpage {
- } N
- /erasepage {
- } N
- /copypage {
- } N
- /p 3 def % necessary to get around a bug in Adobe Illustrator
- @MacSetUp
-} N
-
-% llx lly urx ury doclip - (args in figure coordinates)
-/doclip {
- psf$llx psf$lly psf$urx psf$ury
- currentpoint 6 2 roll
- newpath 4 copy
- 4 2 roll moveto
- 6 -1 roll S lineto
- S lineto
- S lineto
- closepath clip
- newpath
- moveto
-} N
-% - endTexFig -
-/endTexFig { end psf$SavedState restore } N
-
-% this will be invoked as the result of a \special command (for the
-% inclusion of PostScript graphics). The basic idea is to change all
-% scaling and graphics back to defaults, but to shift the origin
-% to the current position on the page.
-
-/@beginspecial % - @beginspecial - -- enter special mode
- {
- /SpecialSave save N
- SDict begin
- gsave
- normalscale
- currentpoint TR %set the current point as the user's origin
- @SpecialDefaults % setup default offsets, scales, sizes, and angle
- count /ocount X /dcount countdictstack N
- } N
-
-/@setspecial % to setup user specified offsets, scales, sizes (for clipping)
- {
- CLIP 1 eq
- { newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
- closepath clip }
- if
- ho vo TR
- hsc vsc scale
- ang rotate
- rwiSeen {
- rwi urx llx sub div
- rhiSeen { rhi ury lly sub div } { dup } ifelse
- scale llx neg lly neg TR
- } {
- rhiSeen { rhi ury lly sub div dup scale llx neg lly neg TR } if
- } ifelse
- CLIP 2 eq
- { newpath llx lly moveto urx lly lineto urx ury lineto llx ury lineto
- closepath clip }
- if
- /showpage {} N
- /erasepage {} N
- /copypage {} N
- newpath
- } N
-
-/@endspecial % - @endspecial - -- leave special mode
- { count ocount sub {pop} repeat
- countdictstack dcount sub {end} repeat
- grestore SpecialSave restore
- end
- } N
-
-% xdvik special treatment for saving definitions made in SDict (while using
-% the bang special; try to guarantee that the dictionary stack is ok!
-% xdvik should not systematically bracket code within save/restore pairs,
-% anyway: such bracketing breaks a lot of code (many packages do change
-% TeXDict from with ps: specials for instance) and we should only guarantee
-% that bracketing is done within @beginspecial and @endspecial. -- YA
-
-/@xdvisavestate
- {
- userdict /xdvi$sav save put
- } N
-
-/@defspecial
- {
- SDict begin
- } N
-
-/@fedspecial
- {
- end
- @xdvisavestate
- } B
-end % revert to previous dictionary