1 #include <u.h>
2 #include <libc.h>
3 #include <draw.h>
4 #include <thread.h>
5 #include <keyboard.h>
6 #include <mouse.h>
7 
8 enum
9 {
10 	STACK = 8192,
11 };
12 
13 int nbit, npix;
14 Image *pixel;
15 Rectangle crect[256];
16 Image *color[256];
17 char *fmt;
18 int ramp;
19 
20 Mousectl *mousectl;
21 Keyboardctl *keyboardctl;
22 
23 void keyboardthread(void*);
24 void mousethread(void*);
25 void resizethread(void*);
26 
27 ulong
28 grey(int i)
29 {
30 	if(i < 0)
31 		return grey(0);
32 	if(i > 255)
33 		return grey(255);
34 	return (i<<16)+(i<<8)+i;
35 }
36 
37 int
38 dither[16] =  {
39 	0, 8, 2, 10,
40 	12, 4, 14, 6,
41 	3, 11, 1, 9,
42 	15, 7, 13, 5
43 };
44 
45 void
46 threadmain(int argc, char *argv[])
47 {
48 	int i, j, k, l;
49 	Image *dark;
50 
51 	ramp = 0;
52 
53 	fmt = "index %3d r %3lud g %3lud b %3lud 0x%.8luX        ";
54 	ARGBEGIN{
55 	default:
56 		goto Usage;
57 	case 'x':
58 		fmt = "index %2luX r %3luX g %3luX b %3luX 0x%.8luX       ";
59 		break;
60 	case 'r':
61 		ramp = 1;
62 		break;
63 	}ARGEND
64 
65 	if(argc){
66 	Usage:
67 		fprint(2, "Usage: %s [-rx]\n", argv0);
68 		threadexitsall("usage");
69 	}
70 
71 	if(initdraw(0, nil, "colors") < 0)
72 		sysfatal("initdraw failed: %r");
73 
74 	mousectl = initmouse(nil, display->image);
75 	if(mousectl == nil)
76 		sysfatal("initmouse: %r");
77 
78 	keyboardctl = initkeyboard(nil);
79 	if(keyboardctl == nil)
80 		sysfatal("initkeyboard: %r");
81 
82 	for(i=0; i<256; i++){
83 		if(ramp){
84 			if(screen->chan == CMAP8){
85 				/* dither the fine grey */
86 				j = i-(i%17);
87 				dark = allocimage(display, Rect(0,0,1,1), screen->chan, 1, (grey(j)<<8)+0xFF);
88 				color[i] = allocimage(display, Rect(0,0,4,4), screen->chan, 1, (grey(j+17)<<8)+0xFF);
89 				for(j=0; j<16; j++){
90 					k = j%4;
91 					l = j/4;
92 					if(dither[j] > (i%17))
93 						draw(color[i], Rect(k, l, k+1, l+1), dark, nil, ZP);
94 				}
95 				freeimage(dark);
96 			}else
97 				color[i] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, (grey(i)<<8)+0xFF);
98 		}else
99 			color[i] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, (cmap2rgb(i)<<8)+0xFF);
100 		if(color[i] == nil)
101 			sysfatal("can't allocate image: %r");
102 	}
103 
104 	threadcreate(mousethread, nil, STACK);
105 	threadcreate(keyboardthread, nil, STACK);
106 	threadcreate(resizethread, nil, STACK);
107 }
108 
109 void
110 keyboardthread(void *v)
111 {
112 	Rune r;
113 
114 	USED(v);
115 
116 	while(recv(keyboardctl->c, &r) >= 0)
117 		;
118 }
119 
120 char *buttons[] =
121 {
122 	"exit",
123 	0
124 };
125 
126 Menu menu =
127 {
128 	buttons
129 };
130 
131 void
132 mousethread(void *v)
133 {
134 	Point p;
135 	Mouse m;
136 	int i, n, prev;
137 	char buf[100];
138 	ulong rgb;
139 
140 	prev = -1;
141 	while(readmouse(mousectl) >= 0){
142 		m = mousectl->m;
143 		switch(m.buttons){
144 		case 1:
145 			while(m.buttons){
146 				if(screen->depth > 8)
147 					n = 256;
148 				else
149 					n = 1<<screen->depth;
150 				for(i=0; i!=n; i++)
151 					if(i!=prev && ptinrect(m.xy, crect[i])){
152 						if(ramp)
153 							rgb = grey(i);
154 						else
155 							rgb = cmap2rgb(i);
156 						sprint(buf, fmt,
157 							i,
158 							(rgb>>16)&0xFF,
159 							(rgb>>8)&0xFF,
160 							rgb&0xFF,
161 							(rgb<<8) | 0xFF);
162 						p = addpt(screen->r.min, Pt(2,2));
163 						draw(screen, Rpt(p, addpt(p, stringsize(font, buf))), display->white, nil, p);
164 						string(screen, p, display->black, ZP, font, buf);
165 						prev=i;
166 						break;
167 					}
168 				readmouse(mousectl);
169 				m = mousectl->m;
170 			}
171 			break;
172 
173 		case 4:
174 			switch(menuhit(3, mousectl, &menu, nil)){
175 			case 0:
176 				threadexitsall(0);
177 			}
178 		}
179 	}
180 }
181 
182 void
183 eresized(int new)
184 {
185 	int x, y, i, n, nx, ny;
186 	Rectangle r, b;
187 
188 	if(new && getwindow(display, Refnone) < 0){
189 		fprint(2, "colors: can't reattach to window: %r\n");
190 		threadexitsall("resized");
191 	}
192 	if(screen->depth > 8){
193 		n = 256;
194 		nx = 16;
195 	}else{
196 		n = 1<<screen->depth;
197 		nx = 1<<(screen->depth/2);
198 	}
199 
200 	ny = n/nx;
201 	draw(screen, screen->r, display->white, nil, ZP);
202 	r = insetrect(screen->r, 5);
203 	r.min.y+=20;
204 	b.max.y=r.min.y;
205 	for(i=n-1, y=0; y!=ny; y++){
206 		b.min.y=b.max.y;
207 		b.max.y=r.min.y+(r.max.y-r.min.y)*(y+1)/ny;
208 		b.max.x=r.min.x;
209 		for(x=0; x!=nx; x++, --i){
210 			b.min.x=b.max.x;
211 			b.max.x=r.min.x+(r.max.x-r.min.x)*(x+1)/nx;
212 			crect[i]=insetrect(b, 1);
213 			draw(screen, crect[i], color[i], nil, ZP);
214 		}
215 	}
216 	flushimage(display, 1);
217 }
218 
219 void
220 resizethread(void *v)
221 {
222 	ulong x;
223 
224 	USED(v);
225 
226 	eresized(0);
227 	while(recv(mousectl->resizec, &x) >= 0)
228 		eresized(1);
229 }
230