[latex3-commits] [git/LaTeX3-latex3-graphics-def] hint: accept \includgraphics height (assume 1in original) (1873c9b)

[David Carlisle]

Repository : https://github.com/latex3/graphics-def
On branch  : hint
Link       : https://github.com/latex3/graphics-def/commit/1873c9bc7a7abd8b0a6c42878fc5f273aad8b28c

>---------------------------------------------------------------

commit 1873c9bc7a7abd8b0a6c42878fc5f273aad8b28c
Author: David Carlisle <d.p.carlisle at gmail.com>
Date:   Tue Apr 18 16:37:43 2023 +0100

    accept \includgraphics height (assume 1in original)


>---------------------------------------------------------------

1873c9bc7a7abd8b0a6c42878fc5f273aad8b28c
 hitex.def | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/hitex.def b/hitex.def
index 98613d5..2ac66d5 100644
--- a/hitex.def
+++ b/hitex.def
@@ -38,16 +38,17 @@
 
 
 \def\Gread at png#1{%
-\setbox\@tempboxa\hbox{\HINTimage #1\relax}%
+\setbox\@tempboxa\hbox{\HINTimage=#1\relax}%
       \def\Gin at llx{0}\let\Gin at lly\Gin at llx
       \Gin at defaultbp\Gin at urx{\wd\@tempboxa}% = 0...
       \Gin at defaultbp\Gin at ury{\ht\@tempboxa}% = 0...
-      \Gin at nat@height\Gin at ury
-      \Gin at nat@width\Gin at urx
+      \def\Gin at urx{72}\let\Gin at ury\Gin at urx
+      \Gin at nat@height\Gin at ury bp
+      \Gin at nat@width\Gin at urx bp
       }
 
 \def\Ginclude at png#1{%
-   \mbox{\HINTimage #1\relax}%
+   \mbox{\HINTimage=#1 width \Gin at req@width height\Gin at req@height\relax}%
 }
 
 \let\Gread at jpg\Gread at png