tfont.c (12806B)
1 #! /usr/bin/env sheepy
2 /* or direct path to sheepy: #! /usr/local/bin/sheepy */
3
4 /* Libsheepy documentation: https://spartatek.se/libsheepy/ */
5 #include "libsheepyObject.h"
6 #include "termbox.h"
7
8 int argc; char **argv;
9
10 /* enable/disable logging */
11 /* #undef pLog */
12 /* #define pLog(...) */
13
14 #define FONT_DIR "~/.termfont/"
15
16 typ struct {
17 u32 width;
18 u8 *pixels;
19 } symbol;
20
21 typ struct {
22 bool pixel;
23 u32 height;
24 symbol chars[127];
25 u8 *pixels;
26 } twidfont;
27
28 bool parseTwidFont(smallArrayt *fontFile, twidfont *font) {
29
30 // scan symbol sizes
31 // create pixel buffer
32 // copy font to pixel buffer
33
34 // scan symbol sizes
35 u32 totalWidth = 0;
36 u8 index = 0;
37 bool scanHeight = yes;
38 char *status = "pixel";
39 iter(fontFile, L) {
40 castS(l, L);
41 if (eqG(status, "in char")) {
42 if (font->chars[index].width == 0) {
43 font->chars[index].width = indexOfG(l, "@");
44 totalWidth += font->chars[index].width;
45 }
46 if (scanHeight) inc font->height;
47 if (endsWithG(l, "@@")) {
48 // char is finished
49 scanHeight = no;
50 status = "define char";
51 continue;
52 }
53 }
54 if (eqG(status, "define char")) {
55 defineChar:
56 index = ssGet(l)[0];
57 status = "in char";
58 }
59 if (eqG(status, "pixel")) {
60 if (ssGet(l)[0] == '#') continue; // comment at the begining
61 font->pixel = eqG(l, "pixel");
62 if (not font->pixel) goto defineChar; // already define char
63 status = "define char";
64 }
65 }
66 //logVarG(totalWidth);
67
68 // create pixel buffer
69 font->pixels = malloc(font->height * totalWidth);
70
71 // copy font to pixel buffer
72 u8 *symbolStart = font->pixels;
73 u8 *p; // pointer for copying symbol pixel data
74 status = "pixel";
75 iter(fontFile, L) {
76 castS(l, L);
77 if (eqG(status, "in char")) {
78 if (!font->chars[index].pixels) {
79 // set pointer in pixel buffer for symbol
80 font->chars[index].pixels = symbolStart;
81 p = symbolStart;
82 symbolStart += font->height * font->chars[index].width;
83 }
84 memcpy(p, ssGet(l), font->chars[index].width);
85 p += font->chars[index].width;
86 if (endsWithG(l, "@@")) {
87 // char is finished
88 scanHeight = no;
89 status = "define char";
90 continue;
91 }
92 }
93 if (eqG(status, "define char")) {
94 defineChar2:
95 index = ssGet(l)[0];
96 status = "in char";
97 }
98 if (eqG(status, "pixel")) {
99 if (ssGet(l)[0] == '#') continue; // comment at the begining
100 font->pixel = eqG(l, "pixel");
101 if (not font->pixel) goto defineChar2; // already define char
102 status = "define char";
103 }
104 }
105
106 ret yes;
107 }
108
109 void freeTwidFont(twidfont *font) {
110 if (font) freen(font->pixels);
111 }
112
113 // bit 0 is the lower line
114 // bit 1 is the upper line
115 // ▄ 0x2584 ▀ 0x2580 █ 0x2588
116 rune halfBlockRunes[] = {' ', 0x2584/*▄*/, 0x2580/*▀*/, 0x2588/*█*/};
117
118 void showStringHalfblock(twidfont *font, char *string) {
119 if (!font or !font->pixel) ret;
120 size_t len = lenG(string);
121 if (!len) ret;
122
123 u32 totalWidth = 0; // in blocks
124 range(i, len) {
125 totalWidth += font->chars[string[i]].width;
126 }
127
128 u8 *pixels = malloc(font->height * totalWidth);
129 u32 x = 0; // start of next character in pixels
130
131 range(i, len) {
132 if (!font->chars[string[i]].width) continue; // font symbol unavailable
133 // copy symbol to buffer
134 u8 *p = font->chars[string[i]].pixels;
135 range(ii, font->height) {
136 memcpy(pixels + x + ii * totalWidth, p, font->chars[string[i]].width);
137 p += font->chars[string[i]].width;
138 }
139
140 x+= font->chars[string[i]].width;
141 }
142
143 u8 *p = pixels;
144 rangeFromStep(j, 1, font->height, 2) {
145 u8 block = 0;
146 range(i, totalWidth) {
147 block = (*(p + i)== ' ' ? 0 : 2) | (*(p + i + totalWidth)== ' ' ? 0 : 1);
148 //printf(halfBlocks[block]);
149 tb_change_cell(i, j / 2, halfBlockRunes[block], TB_WHITE, TB_BLACK);
150 }
151 p += totalWidth * 2;
152 }
153 if (font->height & 1) {
154 u8 block = 0;
155 range(i, totalWidth) {
156 block = (*(p + i)== ' ' ? 0 : 2);
157 //printf(halfBlocks[block]);
158 tb_change_cell(i, font->height / 2, halfBlockRunes[block], TB_WHITE, TB_BLACK);
159 }
160 }
161
162 /* u32 *buffer = malloc( (font->height/2 + font->height&1) */
163 /* * ( totalWidth) */
164 /* * sizeof(u32)); */
165 /* free(buffer); */
166 free(pixels);
167 }
168
169 void showStringHalfblockNoFullBlock(twidfont *font, char *string) {
170 if (!font or !font->pixel) ret;
171 size_t len = lenG(string);
172 if (!len) ret;
173
174 u32 totalWidth = 0; // in blocks
175 range(i, len) {
176 totalWidth += font->chars[string[i]].width;
177 }
178
179 u8 *pixels = malloc(font->height * totalWidth);
180 u32 x = 0; // start of next character in pixels
181
182 range(i, len) {
183 if (!font->chars[string[i]].width) continue; // font symbol unavailable
184 // copy symbol to buffer
185 u8 *p = font->chars[string[i]].pixels;
186 range(ii, font->height) {
187 memcpy(pixels + x + ii * totalWidth, p, font->chars[string[i]].width);
188 p += font->chars[string[i]].width;
189 }
190
191 x+= font->chars[string[i]].width;
192 }
193
194 u32 colors[] = {0x4495cc, 0x6baddb, 0xcceafe, 0xd4eefd, 0x896215, 0xd49b33, 0xe3b248, 0xfee2a4};
195
196 u8 *p = pixels;
197 rangeFromStep(j, 1, font->height, 2) {
198 range(i, totalWidth) {
199 tb_change_cell(i, j / 2, halfBlockRunes[2], *(p + i)== ' ' ? 0 : colors[j-1], *(p + i + totalWidth)== ' ' ? 0 : colors[j]);
200 }
201 printf(RST);
202 put;
203 p += totalWidth * 2;
204 }
205 if (font->height & 1) {
206 range(i, totalWidth) {
207 tb_change_cell(i, font->height / 2, halfBlockRunes[2], *(p + i)== ' ' ? 0 : colors[font->height-1], TB_DEFAULT);
208 }
209 put;
210 }
211
212 /* u32 *buffer = malloc( (font->height/2 + font->height&1) */
213 /* * ( totalWidth) */
214 /* * sizeof(u32)); */
215 /* free(buffer); */
216 free(pixels);
217 }
218
219 // bits 3|2
220 // ---
221 // 1|0
222 // ▗ 0x2597 ▖ 0x2596 ▄ 0x2584 ▝ 0x259D ▐ 0x2590 ▞ 0x259E ▟ 0x259F ▘ 0x2598
223 // ▚ 0x259A ▌ 0x258C ▙ 0x2599 ▀ 0x2580 ▜ 0x259C ▛ 0x259B █ 0x2588
224 rune quadrantRunes[] = {' ', 0x2597/*▗*/, 0x2596/*▖*/, 0x2584/*▄*/, 0x259D/*▝*/, 0x2590/*▐*/, 0x259E/*▞*/, 0x259F/*▟*/, 0x2598/*▘*/,
225 0x259A/*▚*/, 0x258C/*▌*/, 0x2599/*▙*/, 0x2580/*▀*/, 0x259C/*▜*/, 0x259B/*▛*/, 0x2588/*█*/};
226
227 void showStringQuadrant(twidfont *font, char *string) {
228 if (!font or !font->pixel) ret;
229 size_t len = lenG(string);
230 if (!len) ret;
231
232 u32 totalWidth = 0; // in blocks
233 range(i, len) {
234 totalWidth += font->chars[string[i]].width;
235 }
236
237 u8 *pixels = malloc(font->height * totalWidth);
238 u32 x = 0; // start of next character in pixels
239
240 range(i, len) {
241 if (!font->chars[string[i]].width) continue; // font symbol unavailable
242 // copy symbol to buffer
243 u8 *p = font->chars[string[i]].pixels;
244 range(ii, font->height) {
245 memcpy(pixels + x + ii * totalWidth, p, font->chars[string[i]].width);
246 p += font->chars[string[i]].width;
247 }
248
249 x+= font->chars[string[i]].width;
250 }
251
252 u8 *p = pixels;
253 rangeFromStep(j, 1, font->height, 2) {
254 u8 block = 0;
255 rangeFromStep(i, 1, totalWidth, 2) {
256 block = (*(p + i-1) == ' ' ? 0 : 8)
257 | (*(p + i) == ' ' ? 0 : 4)
258 | (*(p + i-1 + totalWidth) == ' ' ? 0 : 2)
259 | (*(p + i + totalWidth) == ' ' ? 0 : 1);
260 //printf(quadrants[block]);
261 tb_change_cell(i / 2, j / 2, quadrantRunes[block], TB_WHITE, TB_BLACK);
262 }
263 if (totalWidth & 1) {
264 block = (*(p + totalWidth-1) == ' ' ? 0 : 8)
265 | (*(p + totalWidth-1 + totalWidth) == ' ' ? 0 : 2);
266 //printf(quadrants[block]);
267 tb_change_cell(totalWidth / 2, j / 2, quadrantRunes[block], TB_WHITE, TB_BLACK);
268 }
269 p += totalWidth * 2;
270 }
271 if (font->height & 1) {
272 u8 block = 0;
273 rangeFromStep(i, 1, totalWidth, 2) {
274 block = (*(p + i-1) == ' ' ? 0 : 8)
275 | (*(p + i) == ' ' ? 0 : 4);
276 //printf(quadrants[block]);
277 tb_change_cell(i / 2, font->height / 2, quadrantRunes[block], TB_WHITE, TB_BLACK);
278 }
279 if (totalWidth & 1) {
280 block = (*(p + totalWidth-1) == ' ' ? 0 : 8);
281 //printf(quadrants[block]);
282 tb_change_cell(totalWidth / 2, font->height / 2, quadrantRunes[block], TB_WHITE, TB_BLACK);
283 }
284 }
285
286 /* u32 *buffer = malloc( (font->height/2 + font->height&1) */
287 /* * ( totalWidth/2 + totalWidth&1) */
288 /* * sizeof(u32)); */
289 /* free(buffer); */
290 free(pixels);
291 }
292
293 void tb_change_cell_with_limit(int x, int y, int xlimit, int ylimit, uint32_t ch, uint32_t fg, uint32_t bg) {
294 if (x >= xlimit or y >= ylimit) ret;
295 tb_change_cell(x, y, ch, fg, bg);
296 }
297
298 void showStringQuadrantWithLimit(int x, int y, uint32_t fg, uint32_t bg, int wlimit, int hlimit, twidfont *font, char *string) {
299 if (!font or !font->pixel) ret;
300 size_t len = lenG(string);
301 if (!len) ret;
302
303 wlimit += x;
304 hlimit += y;
305
306 u32 totalWidth = 0; // in blocks
307 range(i, len) {
308 totalWidth += font->chars[string[i]].width;
309 }
310
311 u8 *pixels = malloc(font->height * totalWidth);
312 u32 nextChar = 0; // start of next character in pixels
313
314 range(i, len) {
315 if (!font->chars[string[i]].width) continue; // font symbol unavailable
316 // copy symbol to buffer
317 u8 *p = font->chars[string[i]].pixels;
318 range(ii, font->height) {
319 memcpy(pixels + nextChar + ii * totalWidth, p, font->chars[string[i]].width);
320 p += font->chars[string[i]].width;
321 }
322
323 nextChar += font->chars[string[i]].width;
324 }
325
326 u8 *p = pixels;
327 rangeFromStep(j, 1, font->height, 2) {
328 u8 block = 0;
329 rangeFromStep(i, 1, totalWidth, 2) {
330 block = (*(p + i-1) == ' ' ? 0 : 8)
331 | (*(p + i) == ' ' ? 0 : 4)
332 | (*(p + i-1 + totalWidth) == ' ' ? 0 : 2)
333 | (*(p + i + totalWidth) == ' ' ? 0 : 1);
334 //printf(quadrants[block]);
335 tb_change_cell_with_limit(i / 2 + x, j / 2 + y, wlimit, hlimit, quadrantRunes[block], fg, bg);
336 }
337 if (totalWidth & 1) {
338 block = (*(p + totalWidth-1) == ' ' ? 0 : 8)
339 | (*(p + totalWidth-1 + totalWidth) == ' ' ? 0 : 2);
340 //printf(quadrants[block]);
341 tb_change_cell_with_limit(totalWidth / 2 + x, j / 2 + y, wlimit, hlimit, quadrantRunes[block], fg, bg);
342 }
343 p += totalWidth * 2;
344 }
345 if (font->height & 1) {
346 u8 block = 0;
347 rangeFromStep(i, 1, totalWidth, 2) {
348 block = (*(p + i-1) == ' ' ? 0 : 8)
349 | (*(p + i) == ' ' ? 0 : 4);
350 //printf(quadrants[block]);
351 tb_change_cell_with_limit(i / 2 + x, font->height / 2 + y, wlimit, hlimit, quadrantRunes[block], fg, bg);
352 }
353 if (totalWidth & 1) {
354 block = (*(p + totalWidth-1) == ' ' ? 0 : 8);
355 //printf(quadrants[block]);
356 tb_change_cell_with_limit(totalWidth / 2 + x, font->height / 2 + y, wlimit, hlimit, quadrantRunes[block], fg, bg);
357 }
358 }
359
360 /* u32 *buffer = malloc( (font->height/2 + font->height&1) */
361 /* * ( totalWidth/2 + totalWidth&1) */
362 /* * sizeof(u32)); */
363 /* free(buffer); */
364 free(pixels);
365 }
366
367 int main(int ARGC, char** ARGV) {
368
369 argc = ARGC; argv = ARGV;
370
371 initLibsheepy(ARGV[0]);
372 setLogMode(LOG_VERBOSE);
373 //openProgLogFile();
374 //setLogSymbols(LOG_UTF8);
375 //disableLibsheepyErrorLogs;
376
377 cleanAllocateSmallArray(fontFile);
378 cleanCharP(fontname) = expandHome(FONT_DIR"PressStart2P.twidf");
379 readFileG(fontFile, fontname);
380
381 twidfont font = init0Var;
382
383 parseTwidFont(fontFile, &font);
384
385 int r = tb_init();
386 if (r) {
387 logE("tb_init() failed with error code %d\n", r);
388 XFailure;
389 }
390
391 tb_select_output_mode(TB_OUTPUT_TRUECOLOR);
392
393 void draw_all(void) {
394 tb_clear();
395 //tb_change_cell(/*x*/ 2, /*y*/ 2, '@', TB_GREEN, TB_BLACK);
396 //showStringQuadrant(&font, "Press Start");
397 //showStringHalfblock(&font, "Press Start");
398 //showStringHalfblockNoFullBlock(&font, "Press Start");
399 showStringQuadrantWithLimit(10, 10, TB_GREEN, TB_BLUE, 30, 3, &font, "Press Start");
400 tb_present();
401 }
402
403 draw_all();
404
405 struct tb_event ev;
406 while (tb_poll_event(&ev)) {
407 switch (ev.type) {
408 case TB_EVENT_KEY:
409 switch (ev.key) {
410 case TB_KEY_ESC:
411 goto done;
412 }
413 if (ev.ch == 'q') goto done;
414
415 tb_stringf(2, 30, TB_WHITE, TB_DEFAULT, "key code: %5d, char: %5d, mod: %5d", ev.key, ev.ch, ev.mod);
416 break;
417 case TB_EVENT_RESIZE:
418 draw_all();
419 break;
420 }
421 tb_present();
422 }
423 done:
424 freeTwidFont(&font);
425 tb_shutdown();
426 }
427 // vim: set expandtab ts=2 sw=2: