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"
"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
@ -936,24 +953,26 @@ void Fl_PostScript_Graphics_Driver::draw(int angle, const char *str, int n, int
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) {
int len;
if (!n || !str || !*str) return;
const char *last = str + n;
// compute display width of string
fprintf(output,"%g (", fl_width(str, n));
int i=1;
for (int j=0;j<n;j++){
if (i>240){
fprintf(output, "\\\n");
i=0;
while (str < last) {
// Extract each unicode character of string.
// Until 0xFF, UTF codes coincide with iso-Latin1 (iso-8859-1)
unsigned utf = fl_utf8decode(str, last, &len);
str += len;
if (utf > 0xFF) {
utf = '?'; // replace non Latin-1 unicodes by ?
}
i++;
switch (*str) {
case '(': case ')': case '\\' :
putc('\\' , output);
/* fallthrough */
default:
putc(*str , output);
else if (utf == '(' || utf == ')' || utf == '\\') {
putc('\\' , output); // these chars need be escaped
}
str++;
putc(utf, output); // output the latin character
}
fprintf(output, ") %g %g show_pos_width\n", x, y);
}