From: Henning Hraban Ramm via ntg-context <ntg-context@ntg.nl>
To: Keith McKay via ntg-context <ntg-context@ntg.nl>
Cc: Henning Hraban Ramm <texml@fiee.net>
Subject: Re: setupexternalfigures and resoĺution
Date: Fri, 2 Sep 2022 11:26:23 +0200 [thread overview]
Message-ID: <a82d3bb5-9895-fd68-6b8c-ec1b8e815233@fiee.net> (raw)
In-Reply-To: <CABX+t6Ao4ZY1jQDn8_ohSDSJQJPZspCrY9V0ptjOB3eTWAkwxg@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 580 bytes --]
Am 02.09.22 um 10:39 schrieb Keith McKay via ntg-context:
> Thanks for this code Hraban. I tried this last night and it worked
> really well. I did have one stumbling block when I noticed that those
> image files with a space in their names were not found, however
> renaming without a space solved the problem. Is this a bug or a feature?
The call to gm convert was lacking quoting of the file names. Fixed in
attachment.
While the code does some downsampling, the calculation is not always
right, because it doesn’t consider scaling (or something like that).
Hraban
[-- Attachment #2: grph-downsample.lua --]
[-- Type: text/plain, Size: 2779 bytes --]
if not modules then modules = { } end modules ['grph-downsample'] = {
version = 1.101,
comment = "companion to grph-inc.mkiv",
author = "Peter Münster", -- adapted to LMTX by Hraban
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
assert(not figures.getinfo2)
figures.getinfo2 = function(name, page) -- [ [NTG-context] Pdf info with Lua/Ctx API ]
if type(name) == "string" then
name = { name = name, page = page }
end
if name.name then
local data = figures.push(name)
local info = figures.identify()
if info.status.status ~= 0 then
figures.check() -- !Counts pages here!
end
figures.pop()
return --data
info
end
end
local format = string.format
-- figures.cachepaths.path = "cache" -- should be setup-option
local function sample_down(oldname, newname, resolution)
print("DOWNSAMPLE sample_down " .. oldname .. " to " .. newname)
local request = figures.current().request
local width = request.width
local height = request.height
if resolution == "" then -- or (not width and not height) then
print(format("DOWNSAMPLE Nothing to do: %s, %s, %s dpi, %s x %s px", oldname, newname, resolution, width, height))
return
end
local TEXpt = 65536
local inch = 72.27
-- MkIV:
-- local image = img.scan{filename = oldname}
-- LMTX:
local image = figures.getinfo(oldname,1)
image = image.status.private
local xy = image.xsize / image.ysize
if (not width and not height) then
-- no size requested? use default width
width = 300 * TEXpt
end
if not width then
height = height / TEXpt
width = height * xy
end
if not height then
width = width / TEXpt
height = width / xy
end
width = math.floor(width)
height = math.floor(height)
print(format("DOWNSAMPLE image size %dx%dpx. requested %dx%d?", image.xsize, image.ysize, width, height))
local xsize = math.floor(resolution * width / inch)
local ysize = math.floor(resolution * height / inch)
print(format("DOWNSAMPLE size %d x %d to %d x %d", image.xsize, image.ysize, xsize, ysize))
if xsize < image.xsize or ysize < image.ysize then
local s = format("gm convert -resize %dx%d -resample %dx%d \"%s\" \"%s\"",
xsize, ysize, resolution, resolution, oldname, newname)
print("DOWNSAMPLE Conversion: " .. s)
os.execute(s)
else
print(format("DOWNSAMPLE Nothing to do: %s, %s, %s dpi, %d x %d px", oldname, newname, resolution, width, height))
print(format("DOWNSAMPLE 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: 496 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage : https://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___________________________________________________________________________________
prev parent reply other threads:[~2022-09-02 9:26 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-09-01 8:44 juh+ntg-context--- via ntg-context
2022-09-01 8:51 ` Henning Hraban Ramm via ntg-context
2022-09-01 8:56 ` Henning Hraban Ramm via ntg-context
2022-09-01 10:37 ` juh+ntg-context--- via ntg-context
2022-09-01 13:05 ` Henning Hraban Ramm via ntg-context
2022-09-01 11:43 ` juh+ntg-context--- via ntg-context
2022-09-01 13:04 ` Henning Hraban Ramm via ntg-context
2022-09-01 17:22 ` juh+ntg-context--- via ntg-context
2022-09-02 8:39 ` Keith McKay via ntg-context
2022-09-02 9:26 ` Henning Hraban Ramm via ntg-context [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=a82d3bb5-9895-fd68-6b8c-ec1b8e815233@fiee.net \
--to=ntg-context@ntg.nl \
--cc=texml@fiee.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).