4 * Copyright 2003, 2004, 2005 Develer S.r.l. (http://www.develer.com/)
5 * Copyright 1999 Bernardo Innocenti <bernie@develer.com>
6 * This file is part of DevLib - See README.devlib for information.
9 * \brief Text graphic routines
12 * \author Bernardo Innocenti <bernie@develer.com>
13 * \author Stefano Fedrigo <aleph@develer.com>
18 *#* Revision 1.3 2006/02/10 12:31:55 bernie
19 *#* Add multiple font support in bitmaps.
21 *#* Revision 1.2 2005/11/04 18:17:45 bernie
22 *#* Fix header guards and includes for new location of gfx module.
24 *#* Revision 1.1 2005/11/04 18:11:35 bernie
25 *#* Move graphics stuff from mware/ to gfx/.
27 *#* Revision 1.13 2005/11/04 16:20:02 bernie
28 *#* Fix reference to README.devlib in header.
30 *#* Revision 1.12 2005/04/11 19:10:28 bernie
31 *#* Include top-level headers from cfg/ subdir.
33 *#* Revision 1.11 2005/01/20 18:46:31 aleph
34 *#* Fix progmem includes.
36 *#* Revision 1.10 2005/01/08 09:20:12 bernie
37 *#* Really make it work on both architectures.
39 *#* Revision 1.9 2004/12/31 16:44:29 bernie
40 *#* Sanitize for non-Harvard processors.
42 *#* Revision 1.8 2004/11/16 21:16:28 bernie
43 *#* Update to new naming scheme in mware/gfx.c.
45 *#* Revision 1.7 2004/09/20 03:28:28 bernie
48 *#* Revision 1.6 2004/09/14 20:57:15 bernie
49 *#* Use debug.h instead of kdebug.h.
51 *#* Revision 1.5 2004/09/06 21:51:26 bernie
52 *#* Extend interface to allow any algorithmic style.
54 *#* Revision 1.2 2004/06/03 11:27:09 bernie
55 *#* Add dual-license information.
57 *#* Revision 1.1 2004/05/23 15:43:16 bernie
58 *#* Import mware modules.
60 *#* Revision 1.17 2004/05/15 16:57:01 aleph
61 *#* Fixes for non-DEBUG build
63 *#* Revision 1.16 2004/04/03 20:42:49 aleph
66 *#* Revision 1.15 2004/03/24 15:03:45 bernie
67 *#* Use explicit include paths; clean Doxygen comments
69 *#* Revision 1.14 2004/03/19 16:52:28 bernie
70 *#* Move printf() like functions from text.c to text_format.c and add PROGMEM versions.
72 *#* Revision 1.13 2004/03/17 18:23:32 bernie
75 *#* Revision 1.12 2004/03/17 18:03:22 bernie
76 *#* Make diagnostic message shorter
78 *#* Revision 1.11 2004/03/13 22:52:54 aleph
79 *#* documentation fixes
87 #include <cfg/debug.h>
91 * Flags degli stili algoritmici
93 * La routine di rendering del testo e' in grado di applicare
94 * delle semplici trasformazioni al font interno per generare
95 * automaticamente degli stili predefiniti (bold, italic,
96 * underline) a partire dal set di caratteri plain.
98 static uint8_t text_styles;
100 /*! ANSI escape sequences flag: true for ESC state on */
101 static bool ansi_mode = false;
105 * Move (imaginary) cursor to column and row specified.
106 * Next text write will start a that row and col.
108 void text_moveto(struct Bitmap *bm, int row, int col)
111 ASSERT(col < bm->width / bm->font->width);
113 // ASSERT(row < bm->height / bm->font->height);
115 bm->penX = col * bm->font->width;
116 bm->penY = row * bm->font->height;
121 * Move (imaginary) cursor to coordinates specified.
123 void text_setcoord(struct Bitmap *bm, int x, int y)
131 * Render char \a c on Bitmap \a bm
133 static int text_putglyph(char c, struct Bitmap *bm)
135 const uint8_t * PROGMEM glyph; /* font is in progmem */
141 * Compute the first column of pixels of the selected glyph,
142 * using the character code to index the glyph array.
144 glyph_width = bm->font->width;
145 glyph = &bm->font->glyph[(unsigned char)c * (((glyph_width + 7) / 8) * bm->font->height) ];
147 if (text_styles & STYLEF_CONDENSED)
150 if (text_styles & STYLEF_EXPANDED)
153 /* The y coord is rounded at multiples of 8 for simplicity */
154 // bm->penY &= ~((coord_t)7);
156 /* Check if glyph to write fits in the bitmap */
157 if ((bm->penX < 0) || (bm->penX + glyph_width > bm->width)
158 || (bm->penY < 0) || (bm->penY + bm->font->height > bm->height))
160 kprintf("w=%d, h=%d\n", glyph_width, bm->font->height);
161 DB(kprintf("bad coords x=%d y=%d\n", bm->penX, bm->penY);)
165 /* Locate position where to write in the raster */
166 buf = bm->raster + bm->penY / 8 * bm->width + bm->penX;
168 // bm->penX += glyph_width;
170 /* If some styles are set */
173 uint8_t prev_dots = 0, italic_prev_dots = 0, new_dots;
176 /* Per ogni colonna di dot del glyph... */
177 for (i = 0; i < glyph_width; ++i)
179 dots = PGM_READ_CHAR(glyph);
181 /* Advance to next column in glyph.
182 * Expand: advances only once every two columns
184 if (!(text_styles & STYLEF_EXPANDED) || (i & 1))
187 /* Italic: get lower 4 dots from previous column */
188 if (text_styles & STYLEF_ITALIC)
191 dots = (dots & 0xF0) | italic_prev_dots;
192 italic_prev_dots = new_dots & 0x0F;
195 /* Bold: "or" pixels with the previous column */
196 if (text_styles & STYLEF_BOLD)
200 prev_dots = new_dots;
203 /* Underlined: turn on base pixel */
204 if (text_styles & STYLEF_UNDERLINE)
207 /* Inverted: invert pixels */
208 if (text_styles & STYLEF_INVERT)
217 /* No style: fast vanilla copy of glyph to line buffer */
218 gfx_blitRaster(bm, bm->penX, bm->penY, glyph, glyph_width, bm->font->height);
219 // while (glyph_width--)
220 // *buf++ = PGM_READ_CHAR(glyph++);
222 bm->penX += glyph_width;
229 * Render char \c c, with (currently) limited ANSI escapes
230 * emulation support and '\n' for newline.
232 int text_putchar(char c, struct Bitmap *bm)
234 /* Handle ANSI escape sequences */
239 case ANSI_ESC_CLEARSCREEN:
243 text_style(0, STYLEF_MASK);
246 kprintf("Unknown ANSI esc code: %x\n", c);)
250 else if (c == '\033') /* Enter ANSI ESC mode */
254 else if (c == '\n') /* Go one line down on a line-feed */
256 if (bm->penY + bm->font->height < bm->height)
258 bm->penY += bm->font->height;
264 text_putglyph(c, bm);
271 * Clear the screen and reset cursor position
273 void text_clear(struct Bitmap *bmp)
275 text_putchar('\x1b', bmp);
276 text_putchar('c', bmp);
280 void text_clearLine(struct Bitmap *bm, int line)
282 gfx_rectClear(bm, 0, line * bm->font->height, bm->width, (line + 1) * bm->font->height);
287 * Set/clear algorithmic font style bits.
289 * \param flags Style flags to set
290 * \param mask Mask of flags to modify
291 * \return Old style flags
294 * Turn on bold, leave other styles alone
295 * \code prt_style(STYLEF_BOLD, STYLEF_BOLD); \endcode
297 * Turn off bold and turn on italic, leave others as they are
298 * \code prt_style(STYLEF_ITALIC, STYLEF_BOLD | STYLEF_ITALIC); \endcode
300 * Query current style without chaning it
301 * \code style = prt_style(0, 0); \endcode
303 * Reset all styles (plain text)
304 * \code prt_style(0, STYLE_MASK); \endcode
306 uint8_t text_style(uint8_t flags, uint8_t mask)
308 uint8_t old = text_styles;
309 text_styles = (text_styles & ~mask) | flags;