[3086] in Release_Engineering
tex.pro patch to get dvi2ps to work with 600dpi fonts
daemon@ATHENA.MIT.EDU (Calvin Clark)
Mon Jul 12 19:42:43 1993
Date: Mon, 12 Jul 93 19:42:36 -0400
From: Calvin Clark <ckclark@MIT.EDU>
To: rel-eng@Athena.MIT.EDU
Cc: vrt@Athena.MIT.EDU
I assume you've already changed the #define RESOLUTION in the dvi2ps
source. Here is a tex.pro patch that I've tested out and seems to work.
Simply apply the patch, and do a ``make'' to generate the new tex.ps,
and a ``make install'' will install the new tex.ps as
/usr/athena/lib/tex/ps/dvi.ps.
*** /source/third/common/tex/dvi2ps/tex.pro Mon Apr 2 05:07:15 1990
--- tex.pro Mon Jul 12 17:18:48 1993
***************
*** 27,34 ****
/TeXDict 200 dict def % define a working dictionary
TeXDict begin % start using it.
! % units are in "dots" (300/inch)
! /Resolution 300 def
/Inch {Resolution mul} def % converts inches to internal units
/Mtrx matrix def
--- 27,34 ----
/TeXDict 200 dict def % define a working dictionary
TeXDict begin % start using it.
! % units are in "dots" (600/inch)
! /Resolution 600 def
/Inch {Resolution mul} def % converts inches to internal units
/Mtrx matrix def
***************
*** 47,79 ****
% [ 1 e ]
% where the "e"s were almost exactly but not quite unlike zeros.
! % If you want to use A4 size paper, replace usletterconst with a4const.
! /a4const 340 def
! /usletterconst 310 def
/a4 {} def
/letter {} def
/note {} def
/legal {} def
/@a4
! {a4 initmatrix
! 72 Resolution div dup neg scale
! 270 -3215 translate
! Mtrx currentmatrix pop
! }def
/@letter
{ letter initmatrix
! 72 Resolution div dup neg scale % set scaling to 1.
! usletterconst -3005 translate % move origin to top (these are not
! % exactly 1" and -10" because margins
! Mtrx currentmatrix pop % aren't set exactly right)
} def
! % note mode is like letter, except it uses less VM
/@note
{ note initmatrix
! 72 Resolution div dup neg scale % set scaling to 1.
! usletterconst -3005 translate % move origin to top
Mtrx currentmatrix pop
} def
--- 47,82 ----
% [ 1 e ]
% where the "e"s were almost exactly but not quite unlike zeros.
! /a4x {.9 Inch} def % 9/10"
! /a4y {10 43 60 div add Inch neg} def % - 10 43/60"
! /usletterx {1 1 30 div add Inch} def % 1 1/30"
! /uslettery {10 1 60 div add Inch neg} def % - 10 1/60"
!
/a4 {} def
/letter {} def
/note {} def
/legal {} def
/@a4
! { a4 initmatrix
! 72 Resolution div dup neg scale
! a4x a4y translate
! Mtrx currentmatrix pop
! } def
!
/@letter
{ letter initmatrix
! 72 Resolution div dup neg scale
! usletterx uslettery translate
! Mtrx currentmatrix pop
} def
!
! % note mode is like letter, except it uses less VM
/@note
{ note initmatrix
! 72 Resolution div dup neg scale
! usletterx uslettery translate
Mtrx currentmatrix pop
} def
