git.cworth.org Git - spritext/blob - spritext.c

   1 /* XXX: Copyright/license blurb needed here */
   2
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6 #include <libgen.h>
   7 #include <cairo.h>
   8 #include <cairo-ft.h>
   9 #include <cgic.h>
  10
  11 #ifndef CAIRO_HAS_PNG_FUNCTIONS
  12 #error This program requires cairo with PNG support
  13 #endif
  14
  15 #include <ft2build.h>
  16 #include FT_FREETYPE_H
  17
  18 #define ARRAY_SIZE(arr) (sizeof(arr)/sizeof(arr[0]))
  19
  20 #define TRUE (1==1)
  21 #define FALSE (!TRUE)
  22
  23 static cairo_status_t
  24 stdio_write (void *closure, const unsigned char *data, unsigned int length);
  25
  26 double
  27 get_max_width (cairo_t *cr, char *characters);
  28
  29 double
  30 get_max_height (cairo_t *cr, char *characters);
  31
  32 void
  33 out_stroke (cairo_t *cr)
  34 {
  35
  36 }
  37
  38 int
  39 cgiMain ()
  40 {
  41     char outputJson = FALSE;
  42
  43     char characters[] = {
  44         '!', '"', '#', '$', '%', '&','\'', '(',
  45         ')', '*', '+', ',', '-', '.', '/', '0',
  46         '1', '2', '3', '4', '5', '6', '7', '8',
  47         '9', ':', ';', '<', '=', '>', '?', '@',
  48         'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
  49         'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
  50         'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X',
  51         'Y', 'Z', '[','\\', ']', '^', '_', '`',
  52         'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
  53         'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p',
  54         'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
  55         'y', 'z', '{', '|', '}', '~'
  56     };
  57
  58     int i;
  59
  60     /* QueryString */
  61     char fontname[20];
  62     int fontsize;
  63     char format[5];
  64     char fillcolor[20];
  65     cgiFormStringNoNewlines("fontname", fontname, 20);
  66     cgiFormInteger("fontsize", &fontsize, 50);
  67     cgiFormStringNoNewlines("format", format, 5);
  68     cgiFormStringNoNewlines("fillcolor", fillcolor, 20);
  69
  70     int fillcolor_red;
  71     int fillcolor_green;
  72     int fillcolor_blue;
  73     sscanf (fillcolor, " rgb : %d , %d , %d ", &fillcolor_red, &fillcolor_green, &fillcolor_blue);
  74
  75     if ( format[0] == 'j' && format[1] == 's' && format[2] == 'o' && format[3] == 'n' )
  76         outputJson = TRUE;
  77
  78     if (outputJson)
  79     {
  80         cgiHeaderContentType("application/json");
  81     } else {
  82         cgiHeaderContentType("image/png");
  83     }
  84
  85     int error;
  86     FT_Library  library;
  87     FT_Face     ft_face;
  88     FT_Bool     use_kerning;
  89     FT_UInt     left_index, right_index;
  90     FT_Vector   kerning;
  91
  92     error = FT_Init_FreeType( &library );
  93     if ( error )
  94         printf("error");
  95
  96     error = FT_New_Face( library,"/srv/rdworth.org/cgi-bin/Verdana.ttf",
  97                          0,
  98                          &ft_face );
  99     if ( error == FT_Err_Unknown_File_Format )
 100         printf("File opened. Font format unsupported.");
 101     else if ( error )
 102         printf("Could not be open or read or broken.");
 103
 104     use_kerning = FT_HAS_KERNING( ft_face );
 105
 106     /* Compute max-width and max-height */
 107     cairo_surface_t *surface;
 108     cairo_t *cr;
 109     cairo_font_face_t *cr_face;
 110
 111     surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32,
 112                                           1, 1);
 113
 114     cr = cairo_create (surface);
 115
 116 /*
 117   cairo_select_font_face (cr, fontname,
 118   CAIRO_FONT_SLANT_NORMAL,
 119   CAIRO_FONT_WEIGHT_NORMAL);
 120 */
 121     cr_face = cairo_ft_font_face_create_for_ft_face (ft_face, 0);
 122     cairo_set_font_face (cr, cr_face);
 123
 124     cairo_set_font_size (cr, fontsize);
 125
 126     cairo_set_line_width (cr, 1.0);
 127
 128     double max_width = get_max_width(cr, characters);
 129     double max_height = get_max_height(cr, characters);
 130
 131     cairo_font_face_destroy (cr_face);
 132
 133     cairo_destroy (cr);
 134
 135     cairo_surface_destroy(surface);
 136
 137     /* Draw */
 138     surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32,
 139                                           (max_width + 8) * 10,
 140                                           (max_height + 8) * 10);
 141
 142     cr = cairo_create (surface);
 143
 144 /*
 145   cairo_select_font_face (cr, fontname,
 146   CAIRO_FONT_SLANT_NORMAL,
 147   CAIRO_FONT_WEIGHT_NORMAL);
 148 */
 149     cr_face = cairo_ft_font_face_create_for_ft_face (ft_face, 0);
 150     cairo_set_font_face (cr, cr_face);
 151
 152     cairo_set_font_size (cr, fontsize);
 153
 154     cairo_text_extents_t extents;
 155     double x = 0.0;
 156     double y = 0.0;
 157
 158     if (outputJson)
 159         printf("{");
 160
 161     cairo_translate (cr, 0, -(max_height / 2.50));
 162
 163 //    cairo_translate (cr, 0, -5.0);
 164
 165     char string[2];
 166     string[1] = '\0';
 167     for (i = 0; i < ARRAY_SIZE(characters); i++)
 168     {
 169         if (i % 10 == 0)
 170         {
 171             x = 0.;
 172             y += max_height + 8;
 173         }
 174         string[0] = characters[i];
 175
 176         cairo_text_extents (cr, string, &extents);
 177
 178         if (outputJson)
 179         {
 180             if (i > 0)
 181                 printf (",\n");
 182             printf ("u%i:{", characters[i]);
 183             printf ("x:%.1f,y:%.1f,w:%.1f,h:%.1f",
 184                     x,
 185                     y - (max_height * 1.15),
 186                     extents.width + extents.x_bearing,
 187                     extents.height);
 188             int j;
 189             for ( j = 0; j < ARRAY_SIZE(characters); j++ )
 190             {
 191                 right_index = FT_Get_Char_Index( ft_face, characters[i] );
 192                 left_index = FT_Get_Char_Index( ft_face, characters[j] );
 193
 194                 FT_Get_Kerning( ft_face, left_index, right_index,
 195                                 FT_KERNING_UNSCALED, &kerning );
 196
 197                 if ( kerning.x )
 198                     printf(",k%d:%d", characters[j], kerning.x);
 199             }
 200
 201             printf ("}");
 202         }
 203
 204         x -= extents.x_bearing;
 205
 206         cairo_move_to (cr, x, y);
 207         cairo_set_source_rgb (cr, 0., 0., 0.); // black
 208         if ( 0 <= fillcolor_red && fillcolor_red <= 255.0
 209              && 0 <= fillcolor_green && fillcolor_green <= 255.0
 210              && 0 <= fillcolor_blue && fillcolor_blue <= 255.0 )
 211             cairo_set_source_rgb (cr, fillcolor_red / 255.0, fillcolor_green / 255.0, fillcolor_blue / 255.0);
 212         cairo_text_path (cr, string);
 213         cairo_fill (cr);
 214
 215         x += extents.x_bearing;
 216         x += max_width + 8;
 217     }
 218
 219 /*
 220   int thick_width = 4;
 221   int thin_width = 0;
 222
 223   for (c = 'A'; c <= 'I'; c++)
 224   {
 225   string[0] = c;
 226   int spacing = ((c - 'A') * letterspacing) + 1;
 227
 228
 229   cairo_save(cr);
 230
 231   cairo_move_to (cr, spacing, 0);
 232   cairo_text_path (cr, string);
 233 //      cairo_set_source_rgb (cr, 0.1, 0.2, 0.2); // gray
 234 cairo_set_source_rgb (cr, 0.8, 0.8, 0.85); // silver
 235 cairo_set_line_join (cr, CAIRO_LINE_JOIN_ROUND);
 236
 237 cairo_push_group (cr);
 238 cairo_set_line_width (cr, thick_width);
 239 cairo_stroke_preserve (cr);
 240 cairo_set_line_width (cr, thin_width);
 241 cairo_set_operator (cr, CAIRO_OPERATOR_CLEAR);
 242 cairo_stroke_preserve (cr);
 243 cairo_fill (cr);
 244 cairo_pop_group_to_source (cr);
 245
 246 cairo_paint (cr);
 247
 248 cairo_restore(cr);
 249
 250 cairo_move_to (cr, spacing, 0);
 251 cairo_text_path (cr, string);
 252 cairo_set_source_rgb (cr, 0.4, 0.45, 0.7); // blue
 253
 254 cairo_fill (cr);
 255 }
 256 */
 257
 258     cairo_scale (cr, 1, -1);
 259     cairo_push_group (cr);
 260 /*
 261
 262 cairo_pattern_t *gradient;
 263
 264 for (i = 0; i < 9; i++)
 265 {
 266 char c[2];
 267 strncpy(c, STRING + i, 1);
 268 c[1] = '\0';
 269 int spacing = (i * letterspacing) + 1;
 270 cairo_move_to (cr, spacing, -3);
 271 cairo_show_text (cr, c);
 272
 273 }
 274 cairo_pop_group_to_source (cr);
 275
 276 gradient = cairo_pattern_create_linear (0, 0, 0, -fontsize);
 277 cairo_pattern_add_color_stop_rgba (gradient, 0.0, 1, 1, 1, 0.5);
 278 cairo_pattern_add_color_stop_rgba (gradient, 0.7, 1, 1, 1, 0.0);
 279
 280 cairo_mask (cr, gradient);
 281
 282 cairo_pattern_destroy (gradient);
 283 */
 284     if (outputJson)
 285     {
 286         printf("}");
 287     } else {
 288         cairo_surface_write_to_png_stream (surface, stdio_write, cgiOut);
 289     }
 290
 291     cairo_destroy (cr);
 292
 293     cairo_surface_destroy (surface);
 294
 295     return 0;
 296 }
 297
 298 static cairo_status_t
 299 stdio_write (void *closure, const unsigned char *data, unsigned int length)
 300 {
 301     FILE *file = closure;
 302     if (fwrite (data, 1, length, file) == length)
 303         return CAIRO_STATUS_SUCCESS;
 304     else
 305         return CAIRO_STATUS_WRITE_ERROR;
 306 }
 307
 308 double
 309 get_max_width(cairo_t *cr, char *characters)
 310 {
 311     int i;
 312     double max_width = 0.;
 313     char string[2];
 314     string[1] = '\0';
 315     for (i = 0; i < ARRAY_SIZE(characters); i++) {
 316         cairo_text_extents_t extents;
 317         string[0] = characters[i];
 318         cairo_text_extents (cr, string, &extents);
 319         if ((extents.width + (extents.x_bearing * 2)) > max_width)
 320             max_width = extents.width + (extents.x_bearing * 2);
 321     }
 322     return max_width;
 323 }
 324
 325 double
 326 get_max_height(cairo_t *cr, char *characters)
 327 {
 328     int i;
 329     double max_height = 0.;
 330     char string[2];
 331     string[1] = '\0';
 332     for (i = 0; i < ARRAY_SIZE(characters); i++) {
 333         cairo_text_extents_t extents;
 334         string[0] = characters[i];
 335         cairo_text_extents (cr, string, &extents);
 336 //    if ((extents.height - extents.y_bearing) > max_height)
 337 //      max_height = extents.height - extents.y_bearing;
 338         if ((extents.height) > max_height)
 339             max_height = extents.height;
 340     }
 341     return max_height;
 342 }
 343