colo-nod.lmt /size: 1153 b    last modification: 2021-10-28 13:51
1if not modules then modules = { } end modules ['node-tra'] = {
2    version   = 1.001,
3    comment   = "companion to node-ini.mkiv",
4    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
5    copyright = "PRAGMA ADE / ConTeXt Development Team",
6    license   = "see context related readme files"
7}
8
9local nuts              = nodes.nuts
10
11local setattrs          = nuts.setattrs
12
13local privateattributes = attributes.private
14
15local a_colormodel      = privateattributes('colormodel')
16local a_color           = privateattributes('color')
17local a_transparency    = privateattributes('transparency')
18
19local colors            = { }
20nuts.colors             = colors
21
22function colors.set(n,ma,ca,ta) -- we could also do layers here
23    if ca then
24        if ca > 0 then
25            if not ma or ma == 0 then
26                ma = 1
27            end
28            if ta then
29                setattrs(n,a_colormodel,ma,a_color,ca,a_transparency,ta)
30            else
31                setattrs(n,a_colormodel,ma,a_color,ca)
32            end
33        end
34    elseif ta then
35        if ta > 0 then
36            setattr(n,a_transparency,ta)
37        end
38    end
39    return n
40end
41