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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
############################################################################
#
# File: xgamma.icn
#
# Subject: Program to configure X color correction
#
# Author: Gregg M. Townsend
#
# Date: November 14, 1994
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# Xgamma sets the root window properties that provide device-independent
# color under X windows. Icon derives the default value of the "gamma"
# attribute from these properties.
#
# Ideally, color properties would be set automatically based on
# specifications provided by the manufacturer of the monitor.
# Lacking such specifications, xgamma synthesizes intensity ramps
# for an ideal monitor characterized by a given gamma value.
#
# The phosphor colors, which must also be set, are set to those of a
# Sony Trinitron monitor based on values from the X11R5 distribution.
#
# There are three ways to call xgamma:
#
# xgamma m.n set color properties using gamma value m.n
# xgamma none remove color properties
# xgamma report gamma attribute inferred by Icon
#
# A pipe to "xcmsdb" is opened, so that program must be in the current
# search path.
#
# The default gamma attribute calculated by Icon does not always exactly
# match the value set by xgamma. The reason for this is unclear.
#
############################################################################
#
# Requires: Version 9 graphics under X11R5
#
############################################################################
#
# Links: wopen
#
############################################################################
link wopen
global ofile
procedure main(args)
local gamma
if *args = 0 then {
WOpen("canvas=hidden", "size=200,100") | stop("can't open window")
write(left(WAttrib("gamma") + 0.005, 4))
return
}
if map(args[1]) == ("none" | "off" | "remove") then {
system("xcmsdb -remove")
return
}
gamma := real(args[1]) | 2.5
ofile := open("xcmsdb", "wp") | stop("can't open pipe to xcmsdb")
write(ofile, "SCREENDATA_BEGIN 0.3")
header()
matrices()
ramps(gamma)
write(ofile, )
write(ofile, "SCREENDATA_END")
end
procedure header()
every write(ofile, ![
"",
" NAME Unknown monitor",
" PART_NUMBER 3",
" MODEL Unknown",
" SCREEN_CLASS VIDEO_RGB",
" REVISION 2.0",
])
end
procedure matrices()
# Trinitron specs from X11R5 contrib/clients/xcrtca/monitors
every write(ofile, " ", \![
"COLORIMETRIC_BEGIN",
" XYZtoRGB_MATRIX_BEGIN",
" 3.061645878834450 -1.278267953801873 -0.444951165661258",
" -1.032702121385028 1.976844500877421 0.008133037520752",
" 0.057063919003669 -0.199057800043321 0.779596768525705",
" XYZtoRGB_MATRIX_END",
" RGBtoXYZ_MATRIX_BEGIN",
" 0.422396751969335 0.297093836421011 0.237981555762915",
" 0.220555266059938 0.660453956058605 0.118990777881458",
" 0.025397273061447 0.146890261130091 1.295677359153649",
" RGBtoXYZ_MATRIX_END",
"COLORIMETRIC_END",
])
end
procedure ramps(gamma)
write(ofile, " INTENSITY_PROFILE_BEGIN 0 3")
every hue("RED" | "GREEN" | "BLUE", gamma)
write(ofile, " INTENSITY_PROFILE_END")
end
procedure hue(c, gamma)
local i, x, v
static hextab
initial every put((hextab := []), !"0123456789abcdef" || !"0123456789abcdef")
write(ofile, " INTENSITY_TBL_BEGIN ", c, " 256")
every i := 0 to 255 do {
x := hextab[i + 1]
v := (i / 255.0) ^ gamma
if v < 0.0001 then # avoid "e" notation
v := 0.0
write(ofile, " 0x", x, x, " ", left(v, 8, "0"))
}
write(ofile, " INTENSITY_TBL_END")
end
|
