source: toilet/trunk/tools/caca2tlf.c @ 4135

Last change on this file since 4135 was 4135, checked in by Sam Hocevar, 11 years ago

New ASCII fonts based on a simple translation of the Monospace ones.

  • Property svn:keywords set to Id
File size: 7.3 KB
Line 
1/*
2 *  caca2tlf      Create a TOIlet font from a libcaca font
3 *  Copyright (c) 2006 Sam Hocevar <sam@hocevar.net>
4 *                All Rights Reserved
5 *
6 *  $Id: caca2tlf.c 4135 2009-12-16 00:37:44Z sam $
7 *
8 *  This program is free software. It comes without any warranty, to
9 *  the extent permitted by applicable law. You can redistribute it
10 *  and/or modify it under the terms of the Do What The Fuck You Want
11 *  To Public License, Version 2, as published by Sam Hocevar. See
12 *  http://sam.zoy.org/wtfpl/COPYING for more details.
13 */
14
15/*
16 * This is the main program entry point.
17 */
18
19#include "config.h"
20
21#if defined(HAVE_INTTYPES_H)
22#   include <inttypes.h>
23#endif
24#include <stdio.h>
25#include <string.h>
26#include <stdlib.h>
27#include <caca.h>
28
29enum mode { GRAY, HALFBLOCKS, QUARTERBLOCKS } mode;
30enum charset { ASCII, UTF8 } charset;
31
32static void list_fonts(void);
33static void add_char(unsigned long int);
34
35caca_font_t *f;
36caca_canvas_t *out, *onechar;
37uint32_t const *blocks;
38uint8_t * image;
39unsigned int w, h, gw, fgw, gh, iw, ih;
40
41int main(int argc, char *argv[])
42{
43    char *flag1, *flag2;
44    unsigned int b, i;
45
46    if(argc < 2)
47    {
48        fprintf(stderr,
49                "Usage: %s [--half|--quarter] [--ascii|--utf8] <font>\n",
50                argv[0]);
51        list_fonts();
52        return -1;
53    }
54
55    if((!strcmp(argv[1], "--half") || !strcmp(argv[1], "-h")) && argc > 2)
56    {
57        flag1 = "--half ";
58        mode = HALFBLOCKS;
59        argv++; argc--;
60    }
61    else if((!strcmp(argv[1], "--quarter") || !strcmp(argv[1], "-q")) && argc > 2)
62    {
63        flag1 = "--quarter ";
64        mode = QUARTERBLOCKS;
65        argv++; argc--;
66    }
67    else
68    {
69        flag1 = "";
70        mode = GRAY;
71    }
72
73    if((!strcmp(argv[1], "--ascii") || !strcmp(argv[1], "-a")) && argc > 2)
74    {
75        flag2 = "--ascii ";
76        charset = ASCII;
77        argv++; argc--;
78    }
79    else if((!strcmp(argv[1], "--utf8") || !strcmp(argv[1], "-u")) && argc > 2)
80    {
81        flag2 = "--utf8 ";
82        charset = UTF8;
83        argv++; argc--;
84    }
85    else
86    {
87        flag2 = "";
88        charset = ASCII;
89    }
90
91    f = caca_load_font(argv[1], 0);
92    if(!f)
93    {
94        fprintf(stderr, "Font \"%s\" not found.\n", argv[1]);
95        list_fonts();
96        return -2;
97    }
98
99    w = caca_get_font_width(f);
100    h = caca_get_font_height(f);
101    iw = w * 2 + 1;
102    ih = h + 1;
103    switch(mode)
104    {
105    case GRAY:
106        gw = w;
107        fgw = w * 2;
108        gh = h;
109        break;
110    case HALFBLOCKS:
111        gw = w;
112        fgw = w * 2;
113        gh = (h + 1) / 2;
114        break;
115    case QUARTERBLOCKS:
116        gw = (w + 1) / 2;
117        fgw = (w * 2 + 1) / 2;
118        gh = (h + 1) / 2;
119        break;
120    }
121
122    blocks = caca_get_font_blocks(f);
123    onechar = caca_create_canvas(0, 0);
124    caca_set_color_ansi(onechar, CACA_WHITE, CACA_BLACK);
125    image = malloc(4 * iw * ih);
126
127    out = caca_create_canvas(0, 0);
128    printf("tlf2a$ %u %u %u -1 4 0 0 0\n", gh, gh - 1, fgw + 2);
129
130    printf("=============================================="
131                                       "==================================\n");
132    printf("  This font was automatically generated using:\n");
133    printf("   %% caca2tlf %s%s\"%s\"\n", flag1, flag2, argv[1]);
134    printf("=============================================="
135                                       "==================================\n");
136
137    for(i = 32; i < 127; i++)
138        add_char(i);
139
140    add_char(196);
141    add_char(214);
142    add_char(220);
143    add_char(228);
144    add_char(246);
145    add_char(252);
146    add_char(223);
147
148    for(b = 0, i = 0; blocks[i + 1]; i += 2)
149    {
150        int j, n = (int)(blocks[i + 1] - blocks[i]);
151
152        for(j = 0; j < n; j++)
153        {
154            char buf[7];
155            unsigned int len;
156            unsigned long int ch = blocks[i] + j;
157
158            if(ch <= 127 || ch == 196 || ch == 214 || ch == 220
159               || ch == 228 || ch == 246 || ch == 252 || ch == 223)
160                continue;
161
162            len = caca_utf32_to_utf8(buf, ch);
163            buf[len] = '\0';
164            printf("0x%.04lX %s\n", ch, buf);
165            add_char(ch);
166        }
167    }
168
169    caca_free_canvas(out);
170    caca_free_canvas(onechar);
171    free(image);
172    caca_free_font(f);
173
174    return 0;
175}
176
177static void list_fonts(void)
178{
179    char const * const * fonts;
180    unsigned int i;
181
182    fprintf(stderr, "Available fonts:\n");
183
184    fonts = caca_get_font_list();
185    for(i = 0; fonts[i]; i++)
186        fprintf(stderr, "  \"%s\"\n", fonts[i]);
187}
188
189static void add_char(unsigned long int ch)
190{
191    static char const * chars[][16] =
192    {
193        { "#", "$", ":", ".", " " },
194        { " ", "\"", "m", "#" },
195        { " ", "`", "'", "\"", ",", "[", "/", "P",
196          ".", "\\", "]", "T", "m", "b", "d", "W" },
197        { "█", "▓", "▒", "░", " " },
198        { " ", "▀", "▄", "█" },
199        { " ", "▘", "▝", "▀", "▖", "▌", "▞", "▛",
200          "▗", "▚", "▐", "▜", "▄", "▙", "▟", "█" }
201    };
202
203    char const **str;
204    void *buf;
205    size_t len;
206    unsigned int x, y, myw, mygw;
207    int off = 0;
208    int full = caca_utf32_is_fullwidth(ch);
209
210    caca_set_canvas_size(onechar, full ? 2 : 1, 1);
211    caca_put_char(onechar, 0, 0, ch);
212    caca_render_canvas(onechar, f, image, iw, ih, 4 * iw);
213
214    myw = full ? 2 * w : w;
215    mygw = full ? fgw : gw;
216
217    caca_set_canvas_size(out, (full ? fgw : gw) + 2, gh);
218    caca_clear_canvas(out);
219
220    switch(charset)
221    {
222    case ASCII:
223        off = 0;
224        break;
225    case UTF8:
226        off = 3;
227        break;
228    }
229
230    switch(mode)
231    {
232    case GRAY:
233        str = chars[off];
234        for(y = 0; y < h; y++)
235            for(x = 0; x < myw; x++)
236        {
237            uint8_t c = image[4 * (x + y * iw) + 2];
238
239            if(c >= 0xa0)
240                caca_put_str(out, x, y, str[0]);
241            else if(c >= 0x80)
242                caca_put_str(out, x, y, str[1]);
243            else if(c >= 0x40)
244                caca_put_str(out, x, y, str[2]);
245            else if(c >= 0x20)
246                caca_put_str(out, x, y, str[3]);
247            else
248                caca_put_str(out, x, y, str[4]);
249        }
250        break;
251    case HALFBLOCKS:
252        str = chars[off + 1];
253        for(y = 0; y < gh; y++)
254            for(x = 0; x < mygw; x++)
255        {
256            uint8_t p1 = image[4 * (x + y * 2 * iw) + 2];
257            uint8_t p2 = image[4 * (x + (y * 2 + 1) * iw) + 2];
258
259            caca_put_str(out, x, y, str[(p1 > 0x80) + 2 * (p2 > 0x80)]);
260        }
261        break;
262    case QUARTERBLOCKS:
263        str = chars[off + 2];
264        for(y = 0; y < gh; y++)
265            for(x = 0; x < mygw; x++)
266        {
267            uint8_t p1 = image[4 * (x * 2 + y * 2 * iw) + 2];
268            uint8_t p2 = image[4 * (x * 2 + 1 + y * 2 * iw) + 2];
269            uint8_t p3 = image[4 * (x * 2 + (y * 2 + 1) * iw) + 2];
270            uint8_t p4 = image[4 * (x * 2 + 1 + (y * 2 + 1) * iw) + 2];
271
272            caca_put_str(out, x, y, str[(p1 > 0x80) + 2 * (p2 > 0x80) +
273                                         4 * (p3 > 0x80) + 8 * (p4 > 0x80)]);
274        }
275        break;
276    }
277
278    if(ch == ' ' || ch == 0xa0)
279    {
280        caca_draw_line(out, mygw - 1, 0, mygw - 1, gh - 1, '$');
281        caca_draw_line(out, mygw / 2, 0, mygw / 2, gh - 1, '$');
282    }
283
284    caca_draw_line(out, mygw, 0, mygw, gh - 1, '@');
285    caca_put_char(out, mygw + 1, gh - 1, '@');
286
287    buf = caca_export_memory(out, "utf8", &len);
288    fwrite(buf, len, 1, stdout);
289    free(buf);
290}
291
Note: See TracBrowser for help on using the repository browser.