mirrors/fltk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fl_PostScript.cxx: now outputs correctly all of the latin1 (iso-8859-1) character set

Browse Source 
giving support for many latin alphabet-using languages.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@7653 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
This commit is contained in:
Manolo Gouy 2010-06-24 08:55:04 +00:00
parent 449b99dd86
commit a40166931e
1 changed files with 36 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
src/Fl_PostScript.cxx
View File

@ -351,6 +351,23 @@ static const char * prolog_2 = // prolog relevant only if lang_level >1
"end\n" "end\n"
"IDD image GR} bind def\n" "IDD image GR} bind def\n"
// procedure to modify a font to use ISOLatin1 encoding (iso-8859-1)
// and to keep its name unchanged
"/ToLatin1 { dup findfont dup length dict "
"begin {def} forall /Encoding ISOLatin1Encoding def currentdict end definefont pop } def\n"
// modify all fonts to use ISOLatin1 encoding
"/Helvetica ToLatin1 "
"/Helvetica-Bold ToLatin1 "
"/Helvetica-Oblique ToLatin1 "
"/Helvetica-BoldOblique ToLatin1 \n"
"/Courier ToLatin1 "
"/Courier-Bold ToLatin1 "
"/Courier-Oblique ToLatin1 "
"/Courier-BoldOblique ToLatin1 \n"
"/Times ToLatin1 "
"/Times-Bold ToLatin1 "
"/Times-Italic ToLatin1 "
"/Times-BoldItalic ToLatin1 \n"
; ;
static const char * prolog_2_pixmap = // prolog relevant only if lang_level == 2 for pixmaps static const char * prolog_2_pixmap = // prolog relevant only if lang_level == 2 for pixmaps
@ -936,24 +953,26 @@ void Fl_PostScript_Graphics_Driver::draw(int angle, const char *str, int n, int
fprintf(output, "GR\n"); fprintf(output, "GR\n");
} }
// outputs in PostScript a UTF8 string replacing non-Latin1 characters by ?
// and using the same width in points as on display
void Fl_PostScript_Graphics_Driver::transformed_draw(const char* str, int n, double x, double y) { void Fl_PostScript_Graphics_Driver::transformed_draw(const char* str, int n, double x, double y) {
int len;
if (!n || !str || !*str) return; if (!n || !str || !*str) return;
const char *last = str + n;
// compute display width of string
fprintf(output,"%g (", fl_width(str, n)); fprintf(output,"%g (", fl_width(str, n));
int i=1; while (str < last) {
for (int j=0;j<n;j++){ // Extract each unicode character of string.
if (i>240){ // Until 0xFF, UTF codes coincide with iso-Latin1 (iso-8859-1)
fprintf(output, "\\\n"); unsigned utf = fl_utf8decode(str, last, &len);
i=0; str += len;
if (utf > 0xFF) {
utf = '?'; // replace non Latin-1 unicodes by ?
} }
i++; else if (utf == '(' || utf == ')' || utf == '\\') {
switch (*str) { putc('\\' , output); // these chars need be escaped
case '(': case ')': case '\\' :
putc('\\' , output);
/* fallthrough */
default:
putc(*str , output);
} }
str++; putc(utf, output); // output the latin character
} }
fprintf(output, ") %g %g show_pos_width\n", x, y); fprintf(output, ") %g %g show_pos_width\n", x, y);
} }