10 typedef struct Scrib Scrib;
41 static char *cmds[] = {
44 [EBordercolor] ="bordercolor",
49 [ELinecolor] = "linecolor",
57 static void scribshow(Scrib*);
58 static void scribchar(Scrib*, Rune);
60 static void resetstroke(Scrib *w);
61 static void displaystroke(Scrib *w);
62 static void displaylast(Scrib *w);
63 static void addpoint(Scrib *w, Point p);
66 scribmouse(Control *c, Mouse *m)
72 if (m->buttons & 0x1) {
73 if ((b->lastbut & 0x1) == 0) {
78 if (ptinrect(m->xy,b->rect))
80 } else if (b->lastbut & 0x1) {
82 if (ptinrect(m->xy,b->rect)) {
83 r = recognize(b->scrib);
86 if (r) chanprint(b->event, b->format, b->name, r);
89 b->lastbut = m->buttons;
98 _putctlimage(b->image);
99 _putctlimage(b->color);
100 _putctlimage(b->bordercolor);
101 _putctlfont(b->font);
102 // scribblefree(b->scrib);
106 scribchar(Scrib *b, Rune r)
109 b->lastchar[0] = '\0';
111 strcpy(b->lastchar, "' '");
113 sprint(b->lastchar, "ctl-%c", r+'@');
115 sprint(b->lastchar, "%C", r);
125 Scribble *s = b->scrib;
131 r = insetrect(b->rect, b->border);
132 border(b->screen, b->rect, b->border, b->bordercolor->image, ZP);
137 draw(b->screen, r, i, nil, i->r.min);
141 else if (s->puncShift)
143 else if (s->curCharSet == CS_DIGITS)
145 else if (s->capsLock)
147 else if (s->tmpShift)
152 snprint(buf, sizeof buf, "%s %s", mode, b->lastchar);
154 string(b->screen, r.min, b->color->image, ZP, b->font->font, buf);
155 flushimage(display, 1);
159 scribctl(Control *c, CParse *cp)
166 cmd = _ctllookup(cp->args[0], cmds, nelem(cmds));
170 ctlerror("%q: unrecognized message '%s'", b->name, cp->str);
173 _ctlargcount(b, cp, 2);
174 b->align = _ctlalignment(cp->args[1]);
177 _ctlargcount(b, cp, 2);
179 ctlerror("%q: bad border: %c", b->name, cp->str);
180 b->border = cp->iargs[1];
183 _ctlargcount(b, cp, 2);
184 _setctlimage(b, &b->bordercolor, cp->args[1]);
189 _ctlargcount(b, cp, 2);
190 _setctlimage(b, &b->image, cp->args[1]);
193 _ctlargcount(b, cp, 2);
194 _setctlimage(b, &b->bordercolor, cp->args[1]);
197 _ctlargcount(b, cp, 5);
198 r.min.x = cp->iargs[1];
199 r.min.y = cp->iargs[2];
200 r.max.x = cp->iargs[3];
201 r.max.y = cp->iargs[4];
202 if(Dx(r)<0 || Dy(r)<0)
203 ctlerror("%q: bad rectangle: %s", b->name, cp->str);
207 _ctlargcount(b, cp, 1);
212 _ctlargcount(b, cp, 1);
216 _ctlargcount(b, cp, 2);
217 _setctlfont(b, &b->font, cp->args[1]);
220 _ctlargcount(b, cp, 1);
225 r.max = Pt(0x7fffffff, 0x7fffffff);
227 _ctlargcount(b, cp, 5);
228 r.max.x = cp->iargs[3];
229 r.max.y = cp->iargs[4];
231 r.min.x = cp->iargs[1];
232 r.min.y = cp->iargs[2];
233 if(r.min.x<=0 || r.min.y<=0 || r.max.x<=0 || r.max.y<=0 || r.max.x < r.min.x || r.max.y < r.min.y)
234 ctlerror("%q: bad sizes: %s", b->name, cp->str);
242 resetstroke(Scrib *w)
244 Scribble *s = w->scrib;
251 displaystroke(Scrib *b)
253 Scribble *s = b->scrib;
255 poly(b->screen, s->pt, s->ps.npts, Endsquare, Endsquare, 0, b->color->image, ZP);
256 flushimage(display, 1);
260 displaylast(Scrib *w)
263 Scribble *s = w->scrib;
268 poly(w->screen, s->pt + (s->ps.npts - npt), npt, Endsquare, Endsquare,
269 0, w->color->image, ZP);
270 flushimage(display, 1);
274 addpoint(Scrib *w, Point p)
279 Scribble *s = w->scrib;
281 if (s->ps.npts == s->ppasize) {
282 ppasize = s->ppasize + 100;
283 ppa = malloc ((sizeof (pen_point) + sizeof (Point)) * ppasize);
286 pt = (Point *) (ppa + ppasize);
287 memmove(ppa, s->ps.pts, s->ppasize * sizeof (pen_point));
288 memmove(pt, s->pt, s->ppasize * sizeof (Point));
292 s->ppasize = ppasize;
294 ppa = &s->ps.pts[s->ps.npts];
297 pt = &s->pt[s->ps.npts];
306 createscribble(Controlset *cs, char *name)
310 b = (Scrib*)_createctl(cs, "scribble", sizeof(Scrib), name);
311 b->image = _getctlimage("white");
312 b->color = _getctlimage("black");
313 b->bordercolor = _getctlimage("black");
314 b->align = Aupperleft;
315 b->format = ctlstrdup("%q: value 0x%x");
316 b->font = _getctlfont("font");
317 b->scrib = scribblealloc();
319 b->bordercolor = _getctlimage("black");
322 b->mouse = scribmouse;