From: Hans Hagen <pragma@wxs.nl>
To: mailing list for ConTeXt users <ntg-context@ntg.nl>
Subject: Re: drops module (draft)
Date: Thu, 06 Dec 2012 20:44:12 +0100 [thread overview]
Message-ID: <50C0F58C.3020204@wxs.nl> (raw)
In-Reply-To: <alpine.LNX.2.02.1212061254240.11206@ybpnyubfg.ybpnyqbznva>
On 12/6/2012 7:05 PM, Aditya Mahajan wrote:
> I always thought that shadows were possible to do in PDF (after all TikZ
> does it using some type of PDF primitives). Since you are the PDF
> expert, I am interested in knowing why you choose to go the ImageMagic
> route.
not so efficient but it shows a bit what bitmaps can do
\starttext
\startluacode
local format = string.format
local concat = table.concat
function document.TestBitmap(nx,ny)
nx = math.round(nx/65536)
ny = math.round(ny/65536)
nx = 2 * math.round(nx/2)
ny = 2 * math.round(ny/2)
local r = { }
local dx = 255/nx
local dy = 255/ny
for i=1,ny/2 do
local n = i*dy
local c = { }
for j=1,nx/2 do
c[#c+1] = format("%02x",j*dx+n)
end
for j=nx/2,1,-1 do
c[#c+1] = format("%02x",j*dx+n)
end
c = concat(c,"",1,nx)
r[#r+1] = c
end
for i=ny/2,1,-1 do
local n = i*dy
local c = { }
for j=1,nx/2 do
c[#c+1] = format("%02x",j*dx+n)
end
for j=nx/2,1,-1 do
c[#c+1] = format("%02x",j*dx+n)
end
c = concat(c,"",1,nx)
r[#r+1] = c
end
r = concat(r,"\r",1,ny)
figures.bitmapimage {
data = r,
xresolution = nx,
yresolution = ny,
}
end
\stopluacode
\defineoverlay
[BitMess]
[{\scale
[width=\dimexpr\overlaywidth+2ex,height=\dimexpr\overlayheight+2ex]
{\ctxlua{document.TestBitmap(\number\dimexpr\overlaywidth,\number\dimexpr\overlayheight)}}}]
\framed
[width=10cm,
height=10cm,
frame=off,
background={BitMess,color},
backgroundcolor=white]
{test}
\stoptext
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
next prev parent reply other threads:[~2012-12-06 19:44 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-12-06 17:08 Peter Rolf
2012-12-06 18:05 ` Aditya Mahajan
2012-12-06 18:18 ` Wolfgang Schuster
2012-12-07 12:01 ` Peter Rolf
2012-12-07 12:57 ` Wolfgang Schuster
2012-12-06 18:35 ` Marco
2012-12-06 19:46 ` Hans Hagen
2012-12-07 12:04 ` Peter Rolf
2012-12-07 12:49 ` Marco Patzer
2012-12-07 13:27 ` Peter Rolf
2012-12-06 19:05 ` Hans Hagen
2012-12-06 19:44 ` Hans Hagen [this message]
2012-12-07 11:59 ` Peter Rolf
2012-12-07 18:02 ` Otared Kavian
2012-12-07 20:53 ` Hans Hagen
2012-12-08 13:03 ` Peter Rolf
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=50C0F58C.3020204@wxs.nl \
--to=pragma@wxs.nl \
--cc=ntg-context@ntg.nl \
/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).