[NTG-context] Rotating and scaling images to fit a page

[NTG-context] Rotating and scaling images to fit a page

[Michael Guravage]

[-- Attachment #1.1: Type: text/plain, Size: 1400 bytes --]

Greetings,

I have many images, all with different aspect ratios, that I would like to
collect in a document. Each image should be rotated and scaled to fit its
page. My MWE uses an image's width and height to discern whether it's wide,
tall, or square. This works, but I feel I'm reinventing the wheel. Is there
a more straightforward way to implement this? Any suggestions would be much
appreciated.

-- 
With kind regards,

Michael Guravage


\showgrid
\setuplayout
  [header=0pt, footer=0pt,
   topspace=0pt, bottomspace=0pt,
   height=middle, width=middle,
   backspace=0pt]

\starttext
  \startluacode
    require "lfs"
    function GetFileExtension(url)
      return url:match("^.+(%..+)$")
    end
    cwd=lfs.currentdir()
    for file in lfs.dir(cwd) do
      suffix = GetFileExtension(file)
      if suffix == ".png" then
        image = figures.getinfo(file).used
        width = image.width or 0
        height = image.height or 0
        aspect = height/width
        if (aspect > 0.9 and aspect < 1.1 )  then
          context.externalfigure({file},{width="\\textwidth"})  -- almost
square
        elseif height < width then
          context.externalfigure({file},{width="\\textheight",
orientation=90}) -- landscape
        else
          context.externalfigure({file},{height="\\textheight"}) -- portrait
        end
        context.page()
      end
    end
  \stopluacode
\stoptext

[-- Attachment #1.2: Type: text/html, Size: 2064 bytes --]

[-- Attachment #2: square_s.png --]
[-- Type: image/png, Size: 3412 bytes --]

[-- Attachment #3: scaleme.tex --]
[-- Type: text/x-tex, Size: 954 bytes --]

\showgrid
\setuplayout
  [header=0pt, footer=0pt,
   topspace=0pt, bottomspace=0pt,
   height=middle, width=middle,
   backspace=0pt]

\starttext
  \startluacode
    require "lfs"
    function GetFileExtension(url)
      return url:match("^.+(%..+)$")
    end
    cwd=lfs.currentdir()
    for file in lfs.dir(cwd) do
      suffix = GetFileExtension(file)
      if suffix == ".png" then
        image = figures.getinfo(file).used
        width = image.width or 0
        height = image.height or 0
        aspect = height/width
        if (aspect > 0.9 and aspect < 1.1 )  then
          context.externalfigure({file},{width="\\textwidth"})  -- Almost square
        elseif height < width then
          context.externalfigure({file},{width="\\textheight", orientation=90}) -- landscape
        else
          context.externalfigure({file},{height="\\textheight"}) -- portrait
        end
        context.page()
      end
    end
  \stopluacode
\stoptext

[-- Attachment #4: landscape_s.png --]
[-- Type: image/png, Size: 3085 bytes --]

[-- Attachment #5: portrait_s.png --]
[-- Type: image/png, Size: 3139 bytes --]

[-- Attachment #6: scaleme.pdf --]
[-- Type: application/pdf, Size: 18461 bytes --]

[-- Attachment #7: Type: text/plain, Size: 511 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________

[NTG-context] Re: Rotating and scaling images to fit a page

[Fabrice L]

[-- Attachment #1.1: Type: text/plain, Size: 2459 bytes --]

Hi,

> Le 24 avr. 2025 à 04:28, Michael Guravage <guravage@literatesolutions.com> a écrit :
> 
> Greetings,
> 
> I have many images, all with different aspect ratios, that I would like to collect in a document. Each image should be rotated and scaled to fit its page. My MWE uses an image's width and height to discern whether it's wide, tall, or square. This works, but I feel I'm reinventing the wheel. Is there a more straightforward way to implement this? Any suggestions would be much appreciated.

Here is a suggestion :
\starttext
\startMPpage
	draw externalfigure "cow.pdf" xysized(10in,2in) ;
\stopMPpage
\stoptext

Just change for your pagesize the dimensions above.
Fabrice.
> 
> --
> With kind regards,
> 
> Michael Guravage
> 
> 
> \showgrid
> \setuplayout
>   [header=0pt, footer=0pt,
>    topspace=0pt, bottomspace=0pt,
>    height=middle, width=middle,
>    backspace=0pt]
> 
> \starttext
>   \startluacode
>     require "lfs"
>     function GetFileExtension(url)
>       return url:match("^.+(%..+)$")
>     end
>     cwd=lfs.currentdir()
>     for file in lfs.dir(cwd) do
>       suffix = GetFileExtension(file)
>       if suffix == ".png" then
>         image = figures.getinfo(file).used
>         width = image.width or 0
>         height = image.height or 0
>         aspect = height/width
>         if (aspect > 0.9 and aspect < 1.1 )  then
>           context.externalfigure({file},{width="\\textwidth"})  -- almost square
>         elseif height < width then
>           context.externalfigure({file},{width="\\textheight", orientation=90}) -- landscape
>         else
>           context.externalfigure({file},{height="\\textheight"}) -- portrait
>         end
>         context.page <http://context.page/>()
>       end
>     end
>   \stopluacode
> \stoptext
> 
> <square_s.png><scaleme.tex><landscape_s.png><portrait_s.png><scaleme.pdf>___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
> 
> maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
> webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
> archive  : https://github.com/contextgarden/context
> wiki     : https://wiki.contextgarden.net
> ___________________________________________________________________________________


[-- Attachment #1.2: Type: text/html, Size: 4054 bytes --]

[-- Attachment #2: Type: text/plain, Size: 511 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________