[NTG-context] Re: Downsampling images (again)

["Peter Münster" <pm@a16n.net>]

[-- Attachment #1: Type: text/plain, Size: 549 bytes --]

On Wed, Oct 16 2024, Henning Hraban Ramm wrote:

>> I use img.scan() for that.
>
> are you sure that your code works with LMTX?

Hi Hraban,

No, sorry, I didn’t test it...


> Find attached my version.

Thanks, I have integrated your ideas in a new version here attached.


> It seems to work, but only for the first instance of an image,

Yes, you need to patch the file grph-inc.lmt:
https://lists.contextgarden.net/archives/list/ntg-context@ntg.nl/message/ES7Q57MU5UIEV2B2AWEAPR66MMXI6ZHY/

Cheers,
-- 
           Peter

[-- Attachment #2: grph-downsample.lua --]
[-- Type: application/octet-stream, Size: 2299 bytes --]

if not modules then modules = { } end modules ['grph-downsample'] = {
  version   = 1.104,
  comment   = "companion to grph-inc.mkiv",
  author    = "Peter Münster and Henning Hraban Ramm",
  copyright = "PRAGMA ADE / ConTeXt Development Team",
  license   = "see context related readme files"
}

-- todo:
-- figures.cachepaths.path = "cache" -- should be a setup-option
-- threshold should be a setup-option

local function round(x)
    return math.floor(x + 0.5)
end

local format = string.format
local report = logs.reporter("DOWNSAMPLE")

local function sample_down(oldname, newname, resolution)
    report("sample_down %s to %s (%s)", oldname, newname, resolution)
    local request = figures.current().request
    local width   = request.width
    local height  = request.height
    if resolution == "" or (not width and not height) then
        report("Nothing to do: %s, %s, %s", oldname, newname, resolution)
        return
    else
        report("Requested: %s, %s, %s dpi, %s sp x %s sp", oldname, newname,
               resolution, width or "???", height or "???")
    end
    -- requested size must be smaller than original size
    -- multiplied by this threshold:
    local threshold = 0.8
    local inch      = 72.27 * 65536   -- an inch in scaled points
    local image     = figures.getinfo(oldname, 1)
    image = image.status.private

    local xy = image.xsize / image.ysize
    if not width then
        width = height * xy
    end
    if not height then
        height = width / xy
    end
    local xsize = round(resolution * width  / inch)
    local ysize = round(resolution * height / inch)
    report("resize %d x %d to %d x %d:", image.xsize, image.ysize,
           xsize, ysize)
    if xsize < image.xsize * threshold or ysize < image.ysize * threshold then
        local s = format("gm convert -resize %dx%d %s %s",
                         xsize, ysize, oldname, newname)
        report("calling: %s", s)
        os.execute(s)
    else
        report("Nothing to do: %s, %s, %s", oldname, newname, resolution)
        report("xsize = %d, ysize = %d", xsize, ysize)
    end
end

local formats = {"png", "jpg", "gif"}

for _, s in ipairs(formats) do
    figures.converters[s] = figures.converters[s] or {}
    figures.converters[s]["lowres." .. s] = sample_down
end

[-- Attachment #3: 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
___________________________________________________________________________________