1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*
23  * Copyright 1997 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 /*	Copyright (c) 1988 AT&T	*/
28 /*	  All Rights Reserved	*/
29 
30 /*
31  * University Copyright- Copyright (c) 1982, 1986, 1988
32  * The Regents of the University of California
33  * All Rights Reserved
34  *
35  * University Acknowledgment- Portions of this document are derived from
36  * software developed by the University of California, Berkeley, and its
37  * contributors.
38  */
39 
40 #pragma ident	"%Z%%M%	%I%	%E% SMI"
41 
42 /*LINTLIBRARY*/
43 
44 #include <sys/types.h>
45 #include "curses_inc.h"
46 
47 
48 static	void	_rgb_to_hls(float, float, float, int *, int *, int *);
49 static float	MAX(float, float, float), MIN(float, float, float);
50 
51 
52 int
init_color(short color,short r,short g,short b)53 init_color(short color, short r, short g, short b)
54 {
55 	_Color *ctp = cur_term->_color_tbl;  /* color table pointer */
56 
57 	/* check if terminal can change color and validity of the	    */
58 	/* first argument						    */
59 
60 	if (!can_change || color >= COLORS || color < 0)
61 		return (ERR);
62 
63 	/* if any of the last 3 arguments is out of 0 - 1000 range,	*/
64 	/* adjust them accordingly					*/
65 
66 	if (r > 1000)	r = 1000;
67 	if (g > 1000)	g = 1000;
68 	if (b > 1000)	b = 1000;
69 	if (r < 0)	r = 0;
70 	if (g < 0)	g = 0;
71 	if (b < 0)	b = 0;
72 
73 	/* if the call came from scr_reset, the color_table already	*/
74 	/* contains desired values, but we should still send escape seq. */
75 
76 	/* if new color is exactly the same as the old one, return */
77 
78 	if (ctp[color].r == r && ctp[color].g == g && ctp[color].b == b)
79 		return (OK);
80 
81 	/* update color table		*/
82 
83 	ctp[color].r = r;   ctp[color].g = g;    ctp[color].b = b;
84 
85 	/* all the occurrences of color on the screen must be changed   */
86 	/* to the new definition					*/
87 
88 	/* for terminals that can define individual colors (Tek model)  */
89 	/* send an escape sequence to define that color			*/
90 
91 	if (initialize_color) {
92 		if (hue_lightness_saturation) {
93 			int	h, s, l;
94 			_rgb_to_hls((float)r, (float)g, (float)b, &h, &l, &s);
95 			(void) tputs(tparm_p4(initialize_color, color, h, l, s),
96 			    1, _outch);
97 		} else
98 			(void) tputs(tparm_p4(initialize_color, color, r, g, b),
99 			    1, _outch);
100 
101 
102 	}
103 
104 	/* for terminals that can only define color pairs, go through   */
105 	/* pairs table, and re-initialize all pairs that use given color */
106 
107 	else {
108 		short i;
109 		_Color_pair *ptp = cur_term->_pairs_tbl;
110 		/* pairs table pointer */
111 		for (i = 0; i < COLOR_PAIRS; i++) {
112 			if (ptp[i].foreground == color ||
113 			    ptp[i].background == color)
114 				_init_HP_pair(i, ptp[i].foreground,
115 				    ptp[i].background);
116 		}
117 	}
118 	return (OK);
119 }
120 
121 
122 
123 
124 static void
_rgb_to_hls(float r,float g,float b,int * hh,int * ll,int * ss)125 _rgb_to_hls(float r, float g, float b, int *hh, int *ll, int *ss)
126 {
127 	float	rc, gc, bc, h, l, s;
128 	double	max, min;
129 
130 	r /= 1000;  g /= 1000;  b /= 1000;
131 
132 	max = MAX(r, g, b);
133 	min = MIN(r, g, b);
134 
135 	/* calculate lightness  */
136 
137 	l = (max + min) / 2;
138 
139 	/* calculate saturation */
140 
141 	if (max == min) {
142 		s = 0;
143 		h = 0;
144 	} else {
145 		if (l < 0.5)
146 			s = (max - min) / (max + min);
147 		else
148 			s = (max - min) / (2 - max - min);
149 
150 		/* calculate hue   */
151 
152 		rc = (max - r) / (max - min);
153 		gc = (max - g) / (max - min);
154 		bc = (max - b) / (max - min);
155 
156 		if (r == max)
157 			h = bc - gc;
158 		else if (g == max)
159 			h = 2 + rc - bc;
160 		else /* if (b == max) */
161 			h = 4 + gc - rc;
162 
163 		h = h * 60;
164 		if (h < 0.0)
165 			h = h + 360;
166 
167 		/* until here we have converted into HSL.  */
168 		/* Now, to convert into */
169 		/* Tektronix HLS, add 120 to h		*/
170 
171 		h = ((int)(h+120))%360;
172 	}
173 	*hh = (int) h;
174 	*ss = (int) (s * 100);
175 	*ll = (int) (l * 100);
176 }
177 
178 
179 static float
MAX(float a,float b,float c)180 MAX(float a, float b, float c)
181 {
182 	if (a >= b)
183 		if (a >= c)
184 			return (a);
185 		else return (c);
186 	else if (c >= b)
187 		return (c);
188 	else return (b);
189 }
190 
191 static float
MIN(float a,float b,float c)192 MIN(float a, float b, float c)
193 {
194 	if (a > b)
195 		if (b > c)
196 			return (c);
197 		else return (b);
198 	else if (a < c)
199 		return (a);
200 	else return (c);
201 }
202