fltk/test/fonts.cxx

379 lines
9.1 KiB
C++

//
// Font demo program for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2010 by Bill Spitzak and others.
//
// This library is free software. Distribution and use rights are outlined in
// the file "COPYING" which should have been included with this file. If this
// file is missing or damaged, see the license at:
//
// https://www.fltk.org/COPYING.php
//
// Please see the following page on how to report bugs and issues:
//
// https://www.fltk.org/bugs.php
//
#include <FL/Fl.H>
#include <FL/Fl_Double_Window.H>
#include <FL/Fl_Tile.H>
#include <FL/Fl_Hold_Browser.H>
#include <FL/fl_draw.H>
#include <FL/Fl_Box.H>
#include <FL/Fl_Button.H>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <FL/fl_ask.H>
#include <FL/Fl_File_Chooser.H>
Fl_Double_Window *form;
Fl_Tile *tile;
Fl_Window *vector_font_editor = 0;
class FontDisplay : public Fl_Widget {
void draw() FL_OVERRIDE;
public:
int font, size;
FontDisplay(Fl_Boxtype B, int X, int Y, int W, int H, const char* L = 0) :
Fl_Widget(X,Y,W,H,L) {box(B); font = 0; size = 14;}
};
void FontDisplay::draw() {
draw_box();
fl_font((Fl_Font)font, size);
fl_color(FL_BLACK);
fl_draw(label(), x()+3, y()+3, w()-6, h()-6, align());
}
FontDisplay *textobj;
Fl_Hold_Browser *fontobj, *sizeobj;
int **sizes;
int *numsizes;
int pickedsize = 14;
void font_cb(Fl_Widget *, long) {
int fn = fontobj->value();
if (!fn) return;
fn--;
textobj->font = fn;
sizeobj->clear();
int n = numsizes[fn];
int *s = sizes[fn];
if (!n) {
// no sizes
} else if (s[0] == 0) {
// many sizes;
int j = 1;
for (int i = 1; i<64 || i<s[n-1]; i++) {
char buf[20];
if (j < n && i==s[j]) {snprintf(buf, 20,"@b%d",i); j++;}
else snprintf(buf, 20,"%d",i);
sizeobj->add(buf);
}
sizeobj->value(pickedsize);
} else {
// some sizes
int w = 0;
for (int i = 0; i < n; i++) {
if (s[i]<=pickedsize) w = i;
char buf[20];
snprintf(buf, 20,"@b%d",s[i]);
sizeobj->add(buf);
}
sizeobj->value(w+1);
}
textobj->redraw();
}
void size_cb(Fl_Widget *, long) {
int i = sizeobj->value();
if (!i) return;
const char *c = sizeobj->text(i);
while (*c < '0' || *c > '9') c++;
pickedsize = atoi(c);
textobj->size = pickedsize;
textobj->redraw();
}
char label[0x1000];
unsigned char current_char = 'A';
unsigned char vec[255][128] = {
{ 0 }
};
class LetterBox : public Fl_Group
{
public:
LetterBox(int x, int y, int w, int h, const char *l)
: Fl_Group(x, y, w, h, l) { }
void draw() FL_OVERRIDE {
draw_box();
fl_push_clip(x(), y(), w(), h());
draw_label(x(), y()-5, w(), h()-16, FL_ALIGN_CENTER);
fl_color(FL_BLUE);
fl_line_style(FL_SOLID|FL_CAP_ROUND|FL_JOIN_ROUND, 10);
bool rendering = false;
unsigned char *fd = vec[current_char];
double px, py;
for (;;) {
unsigned char cmd = *fd++;
if (cmd==0) {
if (rendering) {
fl_end_line();
rendering = false;
}
break;
} else if (cmd>63) {
if (cmd=='\100' && rendering) {
fl_end_line();
rendering = false;
}
} else {
if (!rendering) { fl_begin_line(); rendering = true; }
int vx = (cmd & '\70')>>3;
int vy = (cmd & '\07');
px = (vx*16+8+10);
py = (vy*32+16+10);
fl_vertex(px, py);
}
}
fl_line_style(FL_SOLID, 1);
draw_children();
fl_pop_clip();
}
};
void add_point_cb(Fl_Widget *w, void *d)
{
unsigned char *fd = vec[current_char];
while (*fd) fd++;
*fd = (fl_uchar)(d);
w->parent()->redraw();
}
void add_gap_cb(Fl_Widget *w, void *d)
{
unsigned char *fd = vec[current_char];
while (*fd) fd++;
*fd = '\100';
w->parent()->redraw();
}
void clear_cb(Fl_Widget *w, void *d)
{
unsigned char *fd = vec[current_char];
memset(fd, 0, 128);
w->parent()->redraw();
}
void prev_cb(Fl_Widget *w, void *d)
{
current_char--;
char b[2] = { (char)current_char, 0 };
w->parent()->child(0)->copy_label(b);
w->parent()->child(0)->redraw();
}
void next_cb(Fl_Widget *w, void *d)
{
current_char++;
char b[2] = { (char)current_char, 0 };
w->parent()->child(0)->copy_label(b);
w->parent()->child(0)->redraw();
}
void back_cb(Fl_Widget *w, void *d)
{
unsigned char *fd = vec[current_char];
if (*fd==0) return;
while (*fd) fd++;
*(--fd) = 0;
w->parent()->child(0)->redraw();
}
void save_cb(Fl_Widget *w, void *d)
{
const char *filename = fl_file_chooser("Save font as:", 0, 0);
if (!filename) return;
FILE *f = fopen(filename, "wb");
if (!f) {
fl_alert("can't open file for writing");
return;
}
fprintf(f, "\nstatic const char *font_data[128] = {\n ");
for (int i=0; i<128; i++) {
unsigned char *fd = vec[i];
if (i>=32 && i<127) fprintf(f, "/*%c*/", i); else fprintf(f, "/*%02X*/", i);
if (*fd==0) {
fprintf(f, "0");
} else {
fprintf(f, "\"");
for (;;) {
unsigned char c = *fd++;
if (c==0) break;
fprintf(f, "\\%02o", c);
}
fprintf(f, "\"");
}
if (i<127) fprintf(f, ", ");
if ((i&3)==3)fprintf(f, "\n ");
}
fprintf(f, "};\n\n");
fclose(f);
}
Fl_Window *create_editor()
{
Fl_Window *win = new Fl_Double_Window(400,400);
LetterBox *c = new LetterBox(10, 10, 128, 256, "A");
//c->labelfont(FL_COURIER);
c->align(FL_ALIGN_CENTER);
c->labelsize(200);
c->labelcolor(FL_DARK3);
c->box(FL_DOWN_BOX);
Fl_Button *b;
int i, j;
for (i=0; i<8; i++) {
for (j=0; j<8; j++) {
b = new Fl_Button(i*16+8-5+10, j*32+16-5+10, 10, 10);
b->box(FL_OVAL_BOX);
b->callback(add_point_cb, (void*)(fl_intptr_t)(i*8+j));
}
}
c->end();
b = new Fl_Button(10, 290, 70, 20, "Gap");
b->callback(add_gap_cb);
b = new Fl_Button(90, 290, 70, 20, "Clear");
b->callback(clear_cb);
b = new Fl_Button(10, 315, 70, 20, "<-");
b->callback(prev_cb);
b->shortcut(FL_Left);
b = new Fl_Button(90, 315, 70, 20, "->");
b->callback(next_cb);
b->shortcut(FL_Right);
b = new Fl_Button(10, 340, 70, 20, "Back");
b->callback(back_cb);
b = new Fl_Button(90, 340, 70, 20, "Save");
b->callback(save_cb);
b->shortcut(FL_COMMAND+'s');
return win;
}
class Ut_Main_Window : public Fl_Double_Window
{
public:
Ut_Main_Window(int w, int h, const char *l=0)
: Fl_Double_Window(w, h, l) { }
int handle(int event) FL_OVERRIDE {
if (event==FL_KEYBOARD && Fl::event_key()==FL_F+1) {
if (!vector_font_editor) vector_font_editor = create_editor();
vector_font_editor->show();
return 1;
} else {
return Fl_Double_Window::handle(event);
}
}
};
void create_the_forms() {
// create the sample string
int n = 0;
strcpy(label, "Hello, world!\n");
int i = (int)strlen(label);
ulong c;
for (c = ' '+1; c < 127; c++) {
if (!(c&0x1f)) label[i++] = '\n';
if (c == '@') label[i++] = '@';
label[i++] = (char)c;
}
label[i++] = '\n';
for (c = 0xA1; c < 0x600; c += 9) {
if (!(++n&(0x1f))) label[i++]='\n';
i += fl_utf8encode((unsigned int)c, label + i);
}
label[i] = 0;
// create the basic layout
form = new Ut_Main_Window(550,370);
tile = new Fl_Tile(0, 0, 550, 370);
Fl_Group *textgroup = new Fl_Group(0, 0, 550, 185);
textgroup->box(FL_FLAT_BOX);
textobj = new FontDisplay(FL_FRAME_BOX,10,10,530,170,label);
textobj->align(FL_ALIGN_TOP|FL_ALIGN_LEFT|FL_ALIGN_INSIDE|FL_ALIGN_CLIP);
textobj->color(9,47);
textgroup->resizable(textobj);
textgroup->end();
Fl_Group *fontgroup = new Fl_Group(0, 185, 550, 185);
fontgroup->box(FL_FLAT_BOX);
fontobj = new Fl_Hold_Browser(10, 190, 390, 170);
fontobj->box(FL_FRAME_BOX);
fontobj->color(53,3);
fontobj->callback(font_cb);
sizeobj = new Fl_Hold_Browser(410, 190, 130, 170);
sizeobj->box(FL_FRAME_BOX);
sizeobj->color(53,3);
sizeobj->callback(size_cb);
fontgroup->resizable(fontobj);
fontgroup->end();
tile->end();
form->resizable(tile);
form->end();
}
int main(int argc, char **argv) {
Fl::scheme(NULL);
Fl::args_to_utf8(argc, argv); // for MSYS2/MinGW
Fl::args(argc, argv);
Fl::get_system_colors();
create_the_forms();
// For the Unicode test, get all fonts...
//#ifdef __APPLE__
int i = 0;
//#else
// int i = fl_choice("Which fonts:","-*","iso8859","All");
//#endif
int k = Fl::set_fonts(i ? (i>1 ? "*" : 0) : "-*");
sizes = new int*[k];
numsizes = new int[k];
for (i = 0; i < k; i++) {
int t; const char *name = Fl::get_font_name((Fl_Font)i,&t);
char buffer[128];
#if 1
if (t) {
char *p = buffer;
if (t & FL_BOLD) {*p++ = '@'; *p++ = 'b';}
if (t & FL_ITALIC) {*p++ = '@'; *p++ = 'i';}
*p++ = '@'; *p++ = '.'; // Suppress subsequent formatting - some MS fonts have '@' in their name
strcpy(p,name);
name = buffer;
}
#else // this is neat, but really slow on some X servers:
sprintf(buffer, "@F%d@.%s", i, name);
name = buffer;
#endif
fontobj->add(name);
int *s; int n = Fl::get_font_sizes((Fl_Font)i, s);
numsizes[i] = n;
if (n) {
sizes[i] = new int[n];
for (int j=0; j<n; j++) sizes[i][j] = s[j];
}
}
fontobj->value(1);
font_cb(fontobj,0);
form->show(argc,argv);
return Fl::run();
}