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 <const> = privateattributes('colormodel')
16local a_color <const> = privateattributes('color')
17local a_transparency <const> = privateattributes('transparency')
18
19local colors = { }
20nuts.colors = colors
21
22function colors.set(n,ma,ca,ta)
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 |
