diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-07-29 10:32:56 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-07-29 10:32:56 +0000 |
commit | 0f3506cd4a1cae68bac7f7d48cc4937ff83115e4 (patch) | |
tree | d41b5a8782686d9580881ecd0b9c14065f56d010 | |
parent | 5a3131310d9b9d7dfce387c19749e0970dd37ab3 (diff) |
eptexdir: H. Kitagawa ipmroves \pdfsavepos in e-(u)pTeX
git-svn-id: svn://tug.org/texlive/trunk@41762 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/pdfutils.ch | 18 |
2 files changed, 17 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index 20c37df1198..d7807ae1aeb 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,7 @@ +2016-07-29 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * pdfutils.ch: Improve \pdfsavepos as pointed out by N. Abe. + 2016-03-04 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * etex.ch1: Adapt to changes in ptexdir/ptex-base.ch. diff --git a/Build/source/texk/web2c/eptexdir/pdfutils.ch b/Build/source/texk/web2c/eptexdir/pdfutils.ch index b5380c84dcc..d8005318868 100644 --- a/Build/source/texk/web2c/eptexdir/pdfutils.ch +++ b/Build/source/texk/web2c/eptexdir/pdfutils.ch @@ -945,7 +945,7 @@ begin pdf_last_x_pos := pdf_last_x_pos + 4736286; case dvi_dir of dir_tate,dir_dtou: - pdf_last_y_pos := cur_page_width - pdf_last_y_pos - 4736286; + pdf_last_y_pos := cur_page_height - pdf_last_y_pos - 4736286; dir_yoko: pdf_last_y_pos := cur_page_height - pdf_last_y_pos - 4736286; endcases; @@ -955,16 +955,24 @@ end @ @<Calculate DVI page dimensions and margins@>= if pdf_page_height <> 0 then cur_page_height := pdf_page_height + else if (type(p)=dir_node) then begin + if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then + cur_page_height := width(p) + 2*v_offset + 2*4736286 + else + cur_page_height := height(p) + depth(p) + 2*v_offset + 2*4736286; + end else cur_page_height := height(p) + depth(p) + 2*v_offset + 2*4736286; if pdf_page_width <> 0 then cur_page_width := pdf_page_width + else if (type(p)=dir_node) then begin + if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then + cur_page_width := height(p) + depth(p) + 2*h_offset + 2*4736286 + else + cur_page_width := width(p) + 2*h_offset + 2*4736286; + end else cur_page_width := width(p) + 2*h_offset + 2*4736286; - if (type(p)=dir_node) then - if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then begin - t:=cur_page_height; cur_page_height:=cur_page_width; - cur_page_width:=t; end; @ Of course \epTeX\ can produce a \.{DVI} file only, not a PDF file. |