1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
@Section
@Title { "@SetColour" and "@SetColor" }
@Tag { colour }
@Begin
@PP
The @@SetColour and @@SetColor symbols,
setcolour.sym @Index { @@SetColour symbol }
setcolor.sym @Index { @@SetColor symbol }
which have identical effect, return their right parameter in
the colour specified by their left parameter. The form of
the left parameter is implementation-dependent; in Basser Lout
it must be an object whose value is a sequence of words comprising
a PostScript command for setting colour. For example,
@ID @Code "{ 1.0 0.0 0.0 setrgbcolor } @SetColour { hello, world }"
produces the red result
@ID {
@BackEnd @Case {
PostScript @Yield {
{ 1.0 0.0 0.0 setrgbcolor } @SetColour { hello, world }
}
PDF @Yield {
{ 1.0 0.0 0.0 rg 1.0 0.0 0.0 RG } @SetColour { hello, world }
}
}
}
Of course, a colour output device is needed to see the effect; on
a monochrome device the result will be some shade of grey.
@PP
The @@SetColour command accepts the special value {@Code "nochange"}
for the left parameter. This value causes the right parameter to have
the colour it would have had without the @@SetColour command. An
empty left parameter also has this effect.
@PP
There is no default colour, so the user must ensure that the root galley
or each of its components is enclosed in a @@SetColour symbol whose
left parameter is not {@Code "nochange"}.
@PP
In addition to setting the colour used in the following object, the
@@SetColour command also sets the underline colour in that object,
like @@SetUnderlineColour from Section {@NumberOf underline_colour}.
While a case could be made for keeping these two attributes of
style independent, most people want to underline in the same colour
as the text most of the time, and this behaviour gives this without
any need to use @@SetUnderlineColour explicitly.
@PP
Lout makes no attempt to understand colour, it simply prints
the PostScript or PDF commands when appropriate. This has the advantage
of permitting access to any of PostScript's colour models (some
require initialization which can be supplied using @@PrependGraphic),
but the disadvantage of offering no way to make relative changes
(`as before only redder,' and so on).
@PP
For those who wish to obtain colour without working very hard,
the @Code setrgbcolor command used above is available in every
version of PostScript, requires no initialization, and is simple
to use. The three numbers, which range from 0.0 to 1.0, determine
the intensity of red, green, and blue respectively. Some useful
values for the left parameter are
@ID @Tab
@Fmta { @Col @Code A ! @Col @I B }
{
@Rowa A { 1.0 0.0 0.0 setrgbcolor } B { red }
@Rowa A { 0.0 1.0 0.0 setrgbcolor } B { green }
@Rowa A { 0.0 0.0 1.0 setrgbcolor } B { blue }
@Rowa A { 1.0 1.0 1.0 setrgbcolor } B { white }
@Rowa A { 0.5 0.5 0.5 setrgbcolor } B { grey }
@Rowa A { 0.0 0.0 0.0 setrgbcolor } B { black }
}
Colouring an object white is useful for producing an empty space
whose size is that of some object.
@PP
Since the introduction of textures to Lout in Version 3.27, direct
use of PostScript colour setting operations such as {@Code setrgbcolor}
is deprecated. Instead, Lout offers its own versions of the
standard PostScript colour setting operations:
@ID @OneRow @Tbl
aformat { @Cell A | @Cell B }
bformat { @Cell @Code A | @Cell @Code B }
{
@Rowa
A { If you want this }
B { You should rather write this }
f { Italic }
rb { yes }
@Rowb
A { num setgray }
B { num LoutSetGray }
@Rowb
A { num num num setrgbcolor }
B { num num num LoutSetRGBColor }
@Rowb
A { num num num sethsbcolor }
B { num num num LoutSetHSBColor }
@Rowb
A { num num num setcmykcolor }
B { num num num LoutSetCMYKColor }
rb { yes }
}
The Lout versions are equivalent to the PostScript ones but without
the unwanted effect of causing the current texture to be forgotten.
@End @Section
|
