1 76193d7c 2003-09-30 devnull #include <u.h>
  2 76193d7c 2003-09-30 devnull #include <libc.h>
  3 76193d7c 2003-09-30 devnull #include <draw.h>
  4 76193d7c 2003-09-30 devnull #include <memdraw.h>
  5 76193d7c 2003-09-30 devnull 
  6 76193d7c 2003-09-30 devnull enum
  7 76193d7c 2003-09-30 devnull {
  8 76193d7c 2003-09-30 devnull 	Arrow1 = 8,
  9 76193d7c 2003-09-30 devnull 	Arrow2 = 10,
 10 76193d7c 2003-09-30 devnull 	Arrow3 = 3,
 11 76193d7c 2003-09-30 devnull };
 12 76193d7c 2003-09-30 devnull 
 13 161060a4 2003-10-11 devnull /*
 14 76193d7c 2003-09-30 devnull static
 15 76193d7c 2003-09-30 devnull int
 16 76193d7c 2003-09-30 devnull lmin(int a, int b)
 17 76193d7c 2003-09-30 devnull {
 18 76193d7c 2003-09-30 devnull 	if(a < b)
 19 76193d7c 2003-09-30 devnull 		return a;
 20 76193d7c 2003-09-30 devnull 	return b;
 21 76193d7c 2003-09-30 devnull }
 22 161060a4 2003-10-11 devnull */
 23 76193d7c 2003-09-30 devnull 
 24 76193d7c 2003-09-30 devnull static
 25 76193d7c 2003-09-30 devnull int
 26 76193d7c 2003-09-30 devnull lmax(int a, int b)
 27 76193d7c 2003-09-30 devnull {
 28 76193d7c 2003-09-30 devnull 	if(a > b)
 29 76193d7c 2003-09-30 devnull 		return a;
 30 76193d7c 2003-09-30 devnull 	return b;
 31 76193d7c 2003-09-30 devnull }
 32 76193d7c 2003-09-30 devnull 
 33 76193d7c 2003-09-30 devnull #ifdef NOTUSED
 34 76193d7c 2003-09-30 devnull /*
 35 76193d7c 2003-09-30 devnull  * Rather than line clip, we run the Bresenham loop over the full line,
 36 76193d7c 2003-09-30 devnull  * and clip on each pixel.  This is more expensive but means that
 37 76193d7c 2003-09-30 devnull  * lines look the same regardless of how the windowing has tiled them.
 38 76193d7c 2003-09-30 devnull  * For speed, we check for clipping outside the loop and make the
 39 76193d7c 2003-09-30 devnull  * test easy when possible.
 40 76193d7c 2003-09-30 devnull  */
 41 76193d7c 2003-09-30 devnull 
 42 76193d7c 2003-09-30 devnull static
 43 76193d7c 2003-09-30 devnull void
 44 76193d7c 2003-09-30 devnull horline1(Memimage *dst, Point p0, Point p1, int srcval, Rectangle clipr)
 45 76193d7c 2003-09-30 devnull {
 46 76193d7c 2003-09-30 devnull 	int x, y, dy, deltay, deltax, maxx;
 47 76193d7c 2003-09-30 devnull 	int dd, easy, e, bpp, m, m0;
 48 76193d7c 2003-09-30 devnull 	uchar *d;
 49 76193d7c 2003-09-30 devnull 
 50 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
 51 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
 52 76193d7c 2003-09-30 devnull 	dd = dst->width*sizeof(u32int);
 53 76193d7c 2003-09-30 devnull 	dy = 1;
 54 76193d7c 2003-09-30 devnull 	if(deltay < 0){
 55 76193d7c 2003-09-30 devnull 		dd = -dd;
 56 76193d7c 2003-09-30 devnull 		deltay = -deltay;
 57 76193d7c 2003-09-30 devnull 		dy = -1;
 58 76193d7c 2003-09-30 devnull 	}
 59 76193d7c 2003-09-30 devnull 	maxx = lmin(p1.x, clipr.max.x-1);
 60 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
 61 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
 62 76193d7c 2003-09-30 devnull 	m = m0 >> (p0.x&(7/dst->depth))*bpp;
 63 76193d7c 2003-09-30 devnull 	easy = ptinrect(p0, clipr) && ptinrect(p1, clipr);
 64 76193d7c 2003-09-30 devnull 	e = 2*deltay - deltax;
 65 76193d7c 2003-09-30 devnull 	y = p0.y;
 66 76193d7c 2003-09-30 devnull 	d = byteaddr(dst, p0);
 67 76193d7c 2003-09-30 devnull 	deltay *= 2;
 68 76193d7c 2003-09-30 devnull 	deltax = deltay - 2*deltax;
 69 76193d7c 2003-09-30 devnull 	for(x=p0.x; x<=maxx; x++){
 70 76193d7c 2003-09-30 devnull 		if(easy || (clipr.min.x<=x && clipr.min.y<=y && y<clipr.max.y))
 71 76193d7c 2003-09-30 devnull 			*d ^= (*d^srcval) & m;
 72 76193d7c 2003-09-30 devnull 		if(e > 0){
 73 76193d7c 2003-09-30 devnull 			y += dy;
 74 76193d7c 2003-09-30 devnull 			d += dd;
 75 76193d7c 2003-09-30 devnull 			e += deltax;
 76 76193d7c 2003-09-30 devnull 		}else
 77 76193d7c 2003-09-30 devnull 			e += deltay;
 78 76193d7c 2003-09-30 devnull 		d++;
 79 76193d7c 2003-09-30 devnull 		m >>= bpp;
 80 76193d7c 2003-09-30 devnull 		if(m == 0)
 81 76193d7c 2003-09-30 devnull 			m = m0;
 82 76193d7c 2003-09-30 devnull 	}
 83 76193d7c 2003-09-30 devnull }
 84 76193d7c 2003-09-30 devnull 
 85 76193d7c 2003-09-30 devnull static
 86 76193d7c 2003-09-30 devnull void
 87 76193d7c 2003-09-30 devnull verline1(Memimage *dst, Point p0, Point p1, int srcval, Rectangle clipr)
 88 76193d7c 2003-09-30 devnull {
 89 76193d7c 2003-09-30 devnull 	int x, y, deltay, deltax, maxy;
 90 76193d7c 2003-09-30 devnull 	int easy, e, bpp, m, m0, dd;
 91 76193d7c 2003-09-30 devnull 	uchar *d;
 92 76193d7c 2003-09-30 devnull 
 93 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
 94 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
 95 76193d7c 2003-09-30 devnull 	dd = 1;
 96 76193d7c 2003-09-30 devnull 	if(deltax < 0){
 97 76193d7c 2003-09-30 devnull 		dd = -1;
 98 76193d7c 2003-09-30 devnull 		deltax = -deltax;
 99 76193d7c 2003-09-30 devnull 	}
100 76193d7c 2003-09-30 devnull 	maxy = lmin(p1.y, clipr.max.y-1);
101 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
102 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
103 76193d7c 2003-09-30 devnull 	m = m0 >> (p0.x&(7/dst->depth))*bpp;
104 76193d7c 2003-09-30 devnull 	easy = ptinrect(p0, clipr) && ptinrect(p1, clipr);
105 76193d7c 2003-09-30 devnull 	e = 2*deltax - deltay;
106 76193d7c 2003-09-30 devnull 	x = p0.x;
107 76193d7c 2003-09-30 devnull 	d = byteaddr(dst, p0);
108 76193d7c 2003-09-30 devnull 	deltax *= 2;
109 76193d7c 2003-09-30 devnull 	deltay = deltax - 2*deltay;
110 76193d7c 2003-09-30 devnull 	for(y=p0.y; y<=maxy; y++){
111 76193d7c 2003-09-30 devnull 		if(easy || (clipr.min.y<=y && clipr.min.x<=x && x<clipr.max.x))
112 76193d7c 2003-09-30 devnull 			*d ^= (*d^srcval) & m;
113 76193d7c 2003-09-30 devnull 		if(e > 0){
114 76193d7c 2003-09-30 devnull 			x += dd;
115 76193d7c 2003-09-30 devnull 			d += dd;
116 76193d7c 2003-09-30 devnull 			e += deltay;
117 76193d7c 2003-09-30 devnull 		}else
118 76193d7c 2003-09-30 devnull 			e += deltax;
119 76193d7c 2003-09-30 devnull 		d += dst->width*sizeof(u32int);
120 76193d7c 2003-09-30 devnull 		m >>= bpp;
121 76193d7c 2003-09-30 devnull 		if(m == 0)
122 76193d7c 2003-09-30 devnull 			m = m0;
123 76193d7c 2003-09-30 devnull 	}
124 76193d7c 2003-09-30 devnull }
125 76193d7c 2003-09-30 devnull 
126 76193d7c 2003-09-30 devnull static
127 76193d7c 2003-09-30 devnull void
128 76193d7c 2003-09-30 devnull horliner(Memimage *dst, Point p0, Point p1, Memimage *src, Point dsrc, Rectangle clipr)
129 76193d7c 2003-09-30 devnull {
130 76193d7c 2003-09-30 devnull 	int x, y, sx, sy, deltay, deltax, minx, maxx;
131 76193d7c 2003-09-30 devnull 	int bpp, m, m0;
132 76193d7c 2003-09-30 devnull 	uchar *d, *s;
133 76193d7c 2003-09-30 devnull 
134 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
135 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
136 76193d7c 2003-09-30 devnull 	sx = drawreplxy(src->r.min.x, src->r.max.x, p0.x+dsrc.x);
137 76193d7c 2003-09-30 devnull 	minx = lmax(p0.x, clipr.min.x);
138 76193d7c 2003-09-30 devnull 	maxx = lmin(p1.x, clipr.max.x-1);
139 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
140 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
141 76193d7c 2003-09-30 devnull 	m = m0 >> (minx&(7/dst->depth))*bpp;
142 76193d7c 2003-09-30 devnull 	for(x=minx; x<=maxx; x++){
143 76193d7c 2003-09-30 devnull 		y = p0.y + (deltay*(x-p0.x)+deltax/2)/deltax;
144 76193d7c 2003-09-30 devnull 		if(clipr.min.y<=y && y<clipr.max.y){
145 76193d7c 2003-09-30 devnull 			d = byteaddr(dst, Pt(x, y));
146 76193d7c 2003-09-30 devnull 			sy = drawreplxy(src->r.min.y, src->r.max.y, y+dsrc.y);
147 76193d7c 2003-09-30 devnull 			s = byteaddr(src, Pt(sx, sy));
148 76193d7c 2003-09-30 devnull 			*d ^= (*d^*s) & m;
149 76193d7c 2003-09-30 devnull 		}
150 76193d7c 2003-09-30 devnull 		if(++sx >= src->r.max.x)
151 76193d7c 2003-09-30 devnull 			sx = src->r.min.x;
152 76193d7c 2003-09-30 devnull 		m >>= bpp;
153 76193d7c 2003-09-30 devnull 		if(m == 0)
154 76193d7c 2003-09-30 devnull 			m = m0;
155 76193d7c 2003-09-30 devnull 	}
156 76193d7c 2003-09-30 devnull }
157 76193d7c 2003-09-30 devnull 
158 76193d7c 2003-09-30 devnull static
159 76193d7c 2003-09-30 devnull void
160 76193d7c 2003-09-30 devnull verliner(Memimage *dst, Point p0, Point p1, Memimage *src, Point dsrc, Rectangle clipr)
161 76193d7c 2003-09-30 devnull {
162 76193d7c 2003-09-30 devnull 	int x, y, sx, sy, deltay, deltax, miny, maxy;
163 76193d7c 2003-09-30 devnull 	int bpp, m, m0;
164 76193d7c 2003-09-30 devnull 	uchar *d, *s;
165 76193d7c 2003-09-30 devnull 
166 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
167 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
168 76193d7c 2003-09-30 devnull 	sy = drawreplxy(src->r.min.y, src->r.max.y, p0.y+dsrc.y);
169 76193d7c 2003-09-30 devnull 	miny = lmax(p0.y, clipr.min.y);
170 76193d7c 2003-09-30 devnull 	maxy = lmin(p1.y, clipr.max.y-1);
171 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
172 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
173 76193d7c 2003-09-30 devnull 	for(y=miny; y<=maxy; y++){
174 76193d7c 2003-09-30 devnull 		if(deltay == 0)	/* degenerate line */
175 76193d7c 2003-09-30 devnull 			x = p0.x;
176 76193d7c 2003-09-30 devnull 		else
177 76193d7c 2003-09-30 devnull 			x = p0.x + (deltax*(y-p0.y)+deltay/2)/deltay;
178 76193d7c 2003-09-30 devnull 		if(clipr.min.x<=x && x<clipr.max.x){
179 76193d7c 2003-09-30 devnull 			m = m0 >> (x&(7/dst->depth))*bpp;
180 76193d7c 2003-09-30 devnull 			d = byteaddr(dst, Pt(x, y));
181 76193d7c 2003-09-30 devnull 			sx = drawreplxy(src->r.min.x, src->r.max.x, x+dsrc.x);
182 76193d7c 2003-09-30 devnull 			s = byteaddr(src, Pt(sx, sy));
183 76193d7c 2003-09-30 devnull 			*d ^= (*d^*s) & m;
184 76193d7c 2003-09-30 devnull 		}
185 76193d7c 2003-09-30 devnull 		if(++sy >= src->r.max.y)
186 76193d7c 2003-09-30 devnull 			sy = src->r.min.y;
187 76193d7c 2003-09-30 devnull 	}
188 76193d7c 2003-09-30 devnull }
189 76193d7c 2003-09-30 devnull 
190 76193d7c 2003-09-30 devnull static
191 76193d7c 2003-09-30 devnull void
192 76193d7c 2003-09-30 devnull horline(Memimage *dst, Point p0, Point p1, Memimage *src, Point dsrc, Rectangle clipr)
193 76193d7c 2003-09-30 devnull {
194 76193d7c 2003-09-30 devnull 	int x, y, deltay, deltax, minx, maxx;
195 76193d7c 2003-09-30 devnull 	int bpp, m, m0;
196 76193d7c 2003-09-30 devnull 	uchar *d, *s;
197 76193d7c 2003-09-30 devnull 
198 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
199 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
200 76193d7c 2003-09-30 devnull 	minx = lmax(p0.x, clipr.min.x);
201 76193d7c 2003-09-30 devnull 	maxx = lmin(p1.x, clipr.max.x-1);
202 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
203 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
204 76193d7c 2003-09-30 devnull 	m = m0 >> (minx&(7/dst->depth))*bpp;
205 76193d7c 2003-09-30 devnull 	for(x=minx; x<=maxx; x++){
206 76193d7c 2003-09-30 devnull 		y = p0.y + (deltay*(x-p0.x)+deltay/2)/deltax;
207 76193d7c 2003-09-30 devnull 		if(clipr.min.y<=y && y<clipr.max.y){
208 76193d7c 2003-09-30 devnull 			d = byteaddr(dst, Pt(x, y));
209 76193d7c 2003-09-30 devnull 			s = byteaddr(src, addpt(dsrc, Pt(x, y)));
210 76193d7c 2003-09-30 devnull 			*d ^= (*d^*s) & m;
211 76193d7c 2003-09-30 devnull 		}
212 76193d7c 2003-09-30 devnull 		m >>= bpp;
213 76193d7c 2003-09-30 devnull 		if(m == 0)
214 76193d7c 2003-09-30 devnull 			m = m0;
215 76193d7c 2003-09-30 devnull 	}
216 76193d7c 2003-09-30 devnull }
217 76193d7c 2003-09-30 devnull 
218 76193d7c 2003-09-30 devnull static
219 76193d7c 2003-09-30 devnull void
220 76193d7c 2003-09-30 devnull verline(Memimage *dst, Point p0, Point p1, Memimage *src, Point dsrc, Rectangle clipr)
221 76193d7c 2003-09-30 devnull {
222 76193d7c 2003-09-30 devnull 	int x, y, deltay, deltax, miny, maxy;
223 76193d7c 2003-09-30 devnull 	int bpp, m, m0;
224 76193d7c 2003-09-30 devnull 	uchar *d, *s;
225 76193d7c 2003-09-30 devnull 
226 76193d7c 2003-09-30 devnull 	deltax = p1.x - p0.x;
227 76193d7c 2003-09-30 devnull 	deltay = p1.y - p0.y;
228 76193d7c 2003-09-30 devnull 	miny = lmax(p0.y, clipr.min.y);
229 76193d7c 2003-09-30 devnull 	maxy = lmin(p1.y, clipr.max.y-1);
230 76193d7c 2003-09-30 devnull 	bpp = dst->depth;
231 76193d7c 2003-09-30 devnull 	m0 = 0xFF^(0xFF>>bpp);
232 76193d7c 2003-09-30 devnull 	for(y=miny; y<=maxy; y++){
233 76193d7c 2003-09-30 devnull 		if(deltay == 0)	/* degenerate line */
234 76193d7c 2003-09-30 devnull 			x = p0.x;
235 76193d7c 2003-09-30 devnull 		else
236 76193d7c 2003-09-30 devnull 			x = p0.x + deltax*(y-p0.y)/deltay;
237 76193d7c 2003-09-30 devnull 		if(clipr.min.x<=x && x<clipr.max.x){
238 76193d7c 2003-09-30 devnull 			m = m0 >> (x&(7/dst->depth))*bpp;
239 76193d7c 2003-09-30 devnull 			d = byteaddr(dst, Pt(x, y));
240 76193d7c 2003-09-30 devnull 			s = byteaddr(src, addpt(dsrc, Pt(x, y)));
241 76193d7c 2003-09-30 devnull 			*d ^= (*d^*s) & m;
242 76193d7c 2003-09-30 devnull 		}
243 76193d7c 2003-09-30 devnull 	}
244 76193d7c 2003-09-30 devnull }
245 76193d7c 2003-09-30 devnull #endif /* NOTUSED */
246 76193d7c 2003-09-30 devnull 
247 76193d7c 2003-09-30 devnull static Memimage*
248 76193d7c 2003-09-30 devnull membrush(int radius)
249 76193d7c 2003-09-30 devnull {
250 76193d7c 2003-09-30 devnull 	static Memimage *brush;
251 76193d7c 2003-09-30 devnull 	static int brushradius;
252 76193d7c 2003-09-30 devnull 
253 76193d7c 2003-09-30 devnull 	if(brush==nil || brushradius!=radius){
254 76193d7c 2003-09-30 devnull 		freememimage(brush);
255 76193d7c 2003-09-30 devnull 		brush = allocmemimage(Rect(0, 0, 2*radius+1, 2*radius+1), memopaque->chan);
256 76193d7c 2003-09-30 devnull 		if(brush != nil){
257 76193d7c 2003-09-30 devnull 			memfillcolor(brush, DTransparent);	/* zeros */
258 76193d7c 2003-09-30 devnull 			memellipse(brush, Pt(radius, radius), radius, radius, -1, memopaque, Pt(radius, radius), S);
259 76193d7c 2003-09-30 devnull 		}
260 76193d7c 2003-09-30 devnull 		brushradius = radius;
261 76193d7c 2003-09-30 devnull 	}
262 76193d7c 2003-09-30 devnull 	return brush;
263 76193d7c 2003-09-30 devnull }
264 76193d7c 2003-09-30 devnull 
265 76193d7c 2003-09-30 devnull static
266 76193d7c 2003-09-30 devnull void
267 76193d7c 2003-09-30 devnull discend(Point p, int radius, Memimage *dst, Memimage *src, Point dsrc, int op)
268 76193d7c 2003-09-30 devnull {
269 76193d7c 2003-09-30 devnull 	Memimage *disc;
270 76193d7c 2003-09-30 devnull 	Rectangle r;
271 76193d7c 2003-09-30 devnull 
272 76193d7c 2003-09-30 devnull 	disc = membrush(radius);
273 76193d7c 2003-09-30 devnull 	if(disc != nil){
274 76193d7c 2003-09-30 devnull 		r.min.x = p.x - radius;
275 76193d7c 2003-09-30 devnull 		r.min.y = p.y - radius;
276 76193d7c 2003-09-30 devnull 		r.max.x = p.x + radius+1;
277 76193d7c 2003-09-30 devnull 		r.max.y = p.y + radius+1;
278 76193d7c 2003-09-30 devnull 		memdraw(dst, r, src, addpt(r.min, dsrc), disc, Pt(0,0), op);
279 76193d7c 2003-09-30 devnull 	}
280 76193d7c 2003-09-30 devnull }
281 76193d7c 2003-09-30 devnull 
282 76193d7c 2003-09-30 devnull static
283 76193d7c 2003-09-30 devnull void
284 76193d7c 2003-09-30 devnull arrowend(Point tip, Point *pp, int end, int sin, int cos, int radius)
285 76193d7c 2003-09-30 devnull {
286 76193d7c 2003-09-30 devnull 	int x1, x2, x3;
287 76193d7c 2003-09-30 devnull 
288 76193d7c 2003-09-30 devnull 	/* before rotation */
289 76193d7c 2003-09-30 devnull 	if(end == Endarrow){
290 76193d7c 2003-09-30 devnull 		x1 = Arrow1;
291 76193d7c 2003-09-30 devnull 		x2 = Arrow2;
292 76193d7c 2003-09-30 devnull 		x3 = Arrow3;
293 76193d7c 2003-09-30 devnull 	}else{
294 76193d7c 2003-09-30 devnull 		x1 = (end>>5) & 0x1FF;	/* distance along line from end of line to tip */
295 76193d7c 2003-09-30 devnull 		x2 = (end>>14) & 0x1FF;	/* distance along line from barb to tip */
296 76193d7c 2003-09-30 devnull 		x3 = (end>>23) & 0x1FF;	/* distance perpendicular from edge of line to barb */
297 76193d7c 2003-09-30 devnull 	}
298 76193d7c 2003-09-30 devnull 
299 76193d7c 2003-09-30 devnull 	/* comments follow track of right-facing arrowhead */
300 76193d7c 2003-09-30 devnull 	pp->x = tip.x+((2*radius+1)*sin/2-x1*cos);		/* upper side of shaft */
301 76193d7c 2003-09-30 devnull 	pp->y = tip.y-((2*radius+1)*cos/2+x1*sin);
302 76193d7c 2003-09-30 devnull 	pp++;
303 76193d7c 2003-09-30 devnull 	pp->x = tip.x+((2*radius+2*x3+1)*sin/2-x2*cos);		/* upper barb */
304 76193d7c 2003-09-30 devnull 	pp->y = tip.y-((2*radius+2*x3+1)*cos/2+x2*sin);
305 76193d7c 2003-09-30 devnull 	pp++;
306 76193d7c 2003-09-30 devnull 	pp->x = tip.x;
307 76193d7c 2003-09-30 devnull 	pp->y = tip.y;
308 76193d7c 2003-09-30 devnull 	pp++;
309 76193d7c 2003-09-30 devnull 	pp->x = tip.x+(-(2*radius+2*x3+1)*sin/2-x2*cos);	/* lower barb */
310 76193d7c 2003-09-30 devnull 	pp->y = tip.y-(-(2*radius+2*x3+1)*cos/2+x2*sin);
311 76193d7c 2003-09-30 devnull 	pp++;
312 76193d7c 2003-09-30 devnull 	pp->x = tip.x+(-(2*radius+1)*sin/2-x1*cos);		/* lower side of shaft */
313 76193d7c 2003-09-30 devnull 	pp->y = tip.y+((2*radius+1)*cos/2-x1*sin);
314 76193d7c 2003-09-30 devnull }
315 76193d7c 2003-09-30 devnull 
316 76193d7c 2003-09-30 devnull void
317 76193d7c 2003-09-30 devnull _memimageline(Memimage *dst, Point p0, Point p1, int end0, int end1, int radius, Memimage *src, Point sp, Rectangle clipr, int op)
318 76193d7c 2003-09-30 devnull {
319 76193d7c 2003-09-30 devnull 	/*
320 76193d7c 2003-09-30 devnull 	 * BUG: We should really really pick off purely horizontal and purely
321 76193d7c 2003-09-30 devnull 	 * vertical lines and handle them separately with calls to memimagedraw
322 76193d7c 2003-09-30 devnull 	 * on rectangles.
323 76193d7c 2003-09-30 devnull 	 */
324 76193d7c 2003-09-30 devnull 
325 76193d7c 2003-09-30 devnull 	int hor;
326 76193d7c 2003-09-30 devnull 	int sin, cos, dx, dy, t;
327 76193d7c 2003-09-30 devnull 	Rectangle oclipr, r;
328 76193d7c 2003-09-30 devnull 	Point q, pts[10], *pp, d;
329 76193d7c 2003-09-30 devnull 
330 76193d7c 2003-09-30 devnull 	if(radius < 0)
331 76193d7c 2003-09-30 devnull 		return;
332 76193d7c 2003-09-30 devnull 	if(rectclip(&clipr, dst->r) == 0)
333 76193d7c 2003-09-30 devnull 		return;
334 76193d7c 2003-09-30 devnull 	if(rectclip(&clipr, dst->clipr) == 0)
335 76193d7c 2003-09-30 devnull 		return;
336 76193d7c 2003-09-30 devnull 	d = subpt(sp, p0);
337 76193d7c 2003-09-30 devnull 	if(rectclip(&clipr, rectsubpt(src->clipr, d)) == 0)
338 76193d7c 2003-09-30 devnull 		return;
339 76193d7c 2003-09-30 devnull 	if((src->flags&Frepl)==0 && rectclip(&clipr, rectsubpt(src->r, d))==0)
340 76193d7c 2003-09-30 devnull 		return;
341 76193d7c 2003-09-30 devnull 	/* this means that only verline() handles degenerate lines (p0==p1) */
342 76193d7c 2003-09-30 devnull 	hor = (abs(p1.x-p0.x) > abs(p1.y-p0.y));
343 76193d7c 2003-09-30 devnull 	/*
344 76193d7c 2003-09-30 devnull 	 * Clipping is a little peculiar.  We can't use Sutherland-Cohen
345 76193d7c 2003-09-30 devnull 	 * clipping because lines are wide.  But this is probably just fine:
346 76193d7c 2003-09-30 devnull 	 * we do all math with the original p0 and p1, but clip when deciding
347 76193d7c 2003-09-30 devnull 	 * what pixels to draw.  This means the layer code can call this routine,
348 76193d7c 2003-09-30 devnull 	 * using clipr to define the region being written, and get the same set
349 76193d7c 2003-09-30 devnull 	 * of pixels regardless of the dicing.
350 76193d7c 2003-09-30 devnull 	 */
351 76193d7c 2003-09-30 devnull 	if((hor && p0.x>p1.x) || (!hor && p0.y>p1.y)){
352 76193d7c 2003-09-30 devnull 		q = p0;
353 76193d7c 2003-09-30 devnull 		p0 = p1;
354 76193d7c 2003-09-30 devnull 		p1 = q;
355 76193d7c 2003-09-30 devnull 		t = end0;
356 76193d7c 2003-09-30 devnull 		end0 = end1;
357 76193d7c 2003-09-30 devnull 		end1 = t;
358 76193d7c 2003-09-30 devnull 	}
359 76193d7c 2003-09-30 devnull 
360 76193d7c 2003-09-30 devnull 	if((p0.x == p1.x || p0.y == p1.y) && (end0&0x1F) == Endsquare && (end1&0x1F) == Endsquare){
361 76193d7c 2003-09-30 devnull 		r.min = p0;
362 76193d7c 2003-09-30 devnull 		r.max = p1;
363 76193d7c 2003-09-30 devnull 		if(p0.x == p1.x){
364 76193d7c 2003-09-30 devnull 			r.min.x -= radius;
365 76193d7c 2003-09-30 devnull 			r.max.x += radius+1;
366 76193d7c 2003-09-30 devnull 		}
367 76193d7c 2003-09-30 devnull 		else{
368 76193d7c 2003-09-30 devnull 			r.min.y -= radius;
369 76193d7c 2003-09-30 devnull 			r.max.y += radius+1;
370 76193d7c 2003-09-30 devnull 		}
371 76193d7c 2003-09-30 devnull 		oclipr = dst->clipr;
372 76193d7c 2003-09-30 devnull 		dst->clipr = clipr;
373 76193d7c 2003-09-30 devnull 		memimagedraw(dst, r, src, sp, memopaque, sp, op);
374 76193d7c 2003-09-30 devnull 		dst->clipr = oclipr;
375 76193d7c 2003-09-30 devnull 		return;
376 76193d7c 2003-09-30 devnull 	}
377 76193d7c 2003-09-30 devnull 
378 76193d7c 2003-09-30 devnull /*    Hard: */
379 76193d7c 2003-09-30 devnull 	/* draw thick line using polygon fill */
380 76193d7c 2003-09-30 devnull 	icossin2(p1.x-p0.x, p1.y-p0.y, &cos, &sin);
381 76193d7c 2003-09-30 devnull 	dx = (sin*(2*radius+1))/2;
382 76193d7c 2003-09-30 devnull 	dy = (cos*(2*radius+1))/2;
383 76193d7c 2003-09-30 devnull 	pp = pts;
384 76193d7c 2003-09-30 devnull 	oclipr = dst->clipr;
385 76193d7c 2003-09-30 devnull 	dst->clipr = clipr;
386 76193d7c 2003-09-30 devnull 	q.x = ICOSSCALE*p0.x+ICOSSCALE/2-cos/2;
387 76193d7c 2003-09-30 devnull 	q.y = ICOSSCALE*p0.y+ICOSSCALE/2-sin/2;
388 76193d7c 2003-09-30 devnull 	switch(end0 & 0x1F){
389 76193d7c 2003-09-30 devnull 	case Enddisc:
390 76193d7c 2003-09-30 devnull 		discend(p0, radius, dst, src, d, op);
391 76193d7c 2003-09-30 devnull 		/* fall through */
392 76193d7c 2003-09-30 devnull 	case Endsquare:
393 76193d7c 2003-09-30 devnull 	default:
394 76193d7c 2003-09-30 devnull 		pp->x = q.x-dx;
395 76193d7c 2003-09-30 devnull 		pp->y = q.y+dy;
396 76193d7c 2003-09-30 devnull 		pp++;
397 76193d7c 2003-09-30 devnull 		pp->x = q.x+dx;
398 76193d7c 2003-09-30 devnull 		pp->y = q.y-dy;
399 76193d7c 2003-09-30 devnull 		pp++;
400 76193d7c 2003-09-30 devnull 		break;
401 76193d7c 2003-09-30 devnull 	case Endarrow:
402 76193d7c 2003-09-30 devnull 		arrowend(q, pp, end0, -sin, -cos, radius);
403 76193d7c 2003-09-30 devnull 		_memfillpolysc(dst, pts, 5, ~0, src, addpt(pts[0], mulpt(d, ICOSSCALE)), 1, 10, 1, op);
404 76193d7c 2003-09-30 devnull 		pp[1] = pp[4];
405 76193d7c 2003-09-30 devnull 		pp += 2;
406 76193d7c 2003-09-30 devnull 	}
407 76193d7c 2003-09-30 devnull 	q.x = ICOSSCALE*p1.x+ICOSSCALE/2+cos/2;
408 76193d7c 2003-09-30 devnull 	q.y = ICOSSCALE*p1.y+ICOSSCALE/2+sin/2;
409 76193d7c 2003-09-30 devnull 	switch(end1 & 0x1F){
410 76193d7c 2003-09-30 devnull 	case Enddisc:
411 76193d7c 2003-09-30 devnull 		discend(p1, radius, dst, src, d, op);
412 76193d7c 2003-09-30 devnull 		/* fall through */
413 76193d7c 2003-09-30 devnull 	case Endsquare:
414 76193d7c 2003-09-30 devnull 	default:
415 76193d7c 2003-09-30 devnull 		pp->x = q.x+dx;
416 76193d7c 2003-09-30 devnull 		pp->y = q.y-dy;
417 76193d7c 2003-09-30 devnull 		pp++;
418 76193d7c 2003-09-30 devnull 		pp->x = q.x-dx;
419 76193d7c 2003-09-30 devnull 		pp->y = q.y+dy;
420 76193d7c 2003-09-30 devnull 		pp++;
421 76193d7c 2003-09-30 devnull 		break;
422 76193d7c 2003-09-30 devnull 	case Endarrow:
423 76193d7c 2003-09-30 devnull 		arrowend(q, pp, end1, sin, cos, radius);
424 76193d7c 2003-09-30 devnull 		_memfillpolysc(dst, pp, 5, ~0, src, addpt(pts[0], mulpt(d, ICOSSCALE)), 1, 10, 1, op);
425 76193d7c 2003-09-30 devnull 		pp[1] = pp[4];
426 76193d7c 2003-09-30 devnull 		pp += 2;
427 76193d7c 2003-09-30 devnull 	}
428 76193d7c 2003-09-30 devnull 	_memfillpolysc(dst, pts, pp-pts, ~0, src, addpt(pts[0], mulpt(d, ICOSSCALE)), 0, 10, 1, op);
429 76193d7c 2003-09-30 devnull 	dst->clipr = oclipr;
430 76193d7c 2003-09-30 devnull 	return;
431 76193d7c 2003-09-30 devnull }
432 76193d7c 2003-09-30 devnull 
433 76193d7c 2003-09-30 devnull void
434 76193d7c 2003-09-30 devnull memimageline(Memimage *dst, Point p0, Point p1, int end0, int end1, int radius, Memimage *src, Point sp, int op)
435 76193d7c 2003-09-30 devnull {
436 76193d7c 2003-09-30 devnull 	_memimageline(dst, p0, p1, end0, end1, radius, src, sp, dst->clipr, op);
437 76193d7c 2003-09-30 devnull }
438 76193d7c 2003-09-30 devnull 
439 76193d7c 2003-09-30 devnull /*
440 76193d7c 2003-09-30 devnull  * Simple-minded conservative code to compute bounding box of line.
441 76193d7c 2003-09-30 devnull  * Result is probably a little larger than it needs to be.
442 76193d7c 2003-09-30 devnull  */
443 76193d7c 2003-09-30 devnull static
444 76193d7c 2003-09-30 devnull void
445 76193d7c 2003-09-30 devnull addbbox(Rectangle *r, Point p)
446 76193d7c 2003-09-30 devnull {
447 76193d7c 2003-09-30 devnull 	if(r->min.x > p.x)
448 76193d7c 2003-09-30 devnull 		r->min.x = p.x;
449 76193d7c 2003-09-30 devnull 	if(r->min.y > p.y)
450 76193d7c 2003-09-30 devnull 		r->min.y = p.y;
451 76193d7c 2003-09-30 devnull 	if(r->max.x < p.x+1)
452 76193d7c 2003-09-30 devnull 		r->max.x = p.x+1;
453 76193d7c 2003-09-30 devnull 	if(r->max.y < p.y+1)
454 76193d7c 2003-09-30 devnull 		r->max.y = p.y+1;
455 76193d7c 2003-09-30 devnull }
456 76193d7c 2003-09-30 devnull 
457 76193d7c 2003-09-30 devnull int
458 76193d7c 2003-09-30 devnull memlineendsize(int end)
459 76193d7c 2003-09-30 devnull {
460 76193d7c 2003-09-30 devnull 	int x3;
461 76193d7c 2003-09-30 devnull 
462 76193d7c 2003-09-30 devnull 	if((end&0x3F) != Endarrow)
463 76193d7c 2003-09-30 devnull 		return 0;
464 76193d7c 2003-09-30 devnull 	if(end == Endarrow)
465 76193d7c 2003-09-30 devnull 		x3 = Arrow3;
466 76193d7c 2003-09-30 devnull 	else
467 76193d7c 2003-09-30 devnull 		x3 = (end>>23) & 0x1FF;
468 76193d7c 2003-09-30 devnull 	return x3;
469 76193d7c 2003-09-30 devnull }
470 76193d7c 2003-09-30 devnull 
471 76193d7c 2003-09-30 devnull Rectangle
472 76193d7c 2003-09-30 devnull memlinebbox(Point p0, Point p1, int end0, int end1, int radius)
473 76193d7c 2003-09-30 devnull {
474 76193d7c 2003-09-30 devnull 	Rectangle r, r1;
475 76193d7c 2003-09-30 devnull 	int extra;
476 76193d7c 2003-09-30 devnull 
477 76193d7c 2003-09-30 devnull 	r.min.x = 10000000;
478 76193d7c 2003-09-30 devnull 	r.min.y = 10000000;
479 76193d7c 2003-09-30 devnull 	r.max.x = -10000000;
480 76193d7c 2003-09-30 devnull 	r.max.y = -10000000;
481 76193d7c 2003-09-30 devnull 	extra = lmax(memlineendsize(end0), memlineendsize(end1));
482 76193d7c 2003-09-30 devnull 	r1 = insetrect(canonrect(Rpt(p0, p1)), -(radius+extra));
483 76193d7c 2003-09-30 devnull 	addbbox(&r, r1.min);
484 76193d7c 2003-09-30 devnull 	addbbox(&r, r1.max);
485 76193d7c 2003-09-30 devnull 	return r;
486 76193d7c 2003-09-30 devnull }