Hi Ralph,
> > awk '/^Page size:/ {print ".nr pdf-wid (p;"$3")"; print ".nr pdf-ht
> (p;"$5")"}'
> .nr pdf-wid (p;595)
> .nr pdf-ht (p;842)
> $
Thanks, this helped.
Changed the appropriate lines into:
. sy pdfinfo @$1 | \
awk '/^Page size:/ {print ".nr pdf-wid (p;"$3")"; \
print ".nr pdf-ht (p;"$5")"}' \
> /tmp/pdfpic\n[$$]
This seems to work fine.
I've attached a patch file.
Kind regards,
Hans
--- pdfpic.tmac.origin Tue Dec 7 18:28:07 2021
+++ pdfpic.tmac Tue Dec 7 18:34:15 2021
@@ -84,10 +84,8 @@
.\" get image dimensions
. ec @
. sy pdfinfo @$1 | \
-grep "Page *size" | \
-sed -e 's/Page *size: *\\([[:digit:].]*\\) *x *\\([[:digit:].]*\\).*$/\
-.nr pdf-wid (p;\\1)\\n\
-.nr pdf-ht (p;\\2)/' \
+awk '/^Page size:/ {print ".nr pdf-wid (p;"$3")"; \
+print ".nr pdf-ht (p;"$5")"}' \
> /tmp/pdfpic\n[$$]
. so /tmp/pdfpic\n[$$]
. sy rm /tmp/pdfpic\n[$$]
