?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Branch libreoffice-5-0-4
[LibreOffice.git] / vcl / source / filter / sgvtext.cxx
blobb1373c6fdd517e822a0473e1cfddc7ad6321b3e0
1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3 * This file is part of the LibreOffice project.
4 *
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 *
9 * This file incorporates work covered by the following license notice:
10 *
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 */
19
20 #include "sal/config.h"
21
22 #include <osl/thread.h>
23 #include <rtl/math.h>
24 #include <comphelper/string.hxx>
25 #include <tools/config.hxx>
26 #include <tools/fract.hxx>
27 #include <vcl/graphicfilter.hxx>
28 #include "sgffilt.hxx"
29 #include "sgfbram.hxx"
30 #include "sgvmain.hxx"
31 #include <boost/scoped_array.hpp>
32
33 extern SgfFontLst* pSgfFonts;
34
35 #ifndef abs
36 #define abs(x) ((x)<0 ? -(x) : (x))
37 #endif
38
39 // Limitations: only grey shadows, 2D and with fixed distance.
40 // Start of AbsBase.Pas
41
42 // vvv special characters in text buffer vvv
43 #define TextEnd 0 /* ^@ end of character sequence */
44 #define HardSpace 6 /* ^F non-breaking space,' ' */
45 #define SoftTrennK 11 /* ^K character for k-c-switch for separation, 'k' */
46 #define AbsatzEnd 13 /* ^M new paragraph=CR */
47 #define HardTrenn 16 /* ^P hard separator (not wrapped), '-' */
48 #define SoftTrennAdd 19 /* ^S extra-character, separates e.g. "schiff-fahrt" */
49 #define Escape 27 /* ^[ start of escape sequence */
50 #define SoftTrenn 31 /* ^_ soft separator, '-' only end of line */
51 #define MaxEscValLen 8
52 #define MaxEscLen (MaxEscValLen+3)
53
54 // Escape sequences: [Esc]<Ident><Value>[Esc] at least 4 characters
55 // Max length of value should be: 8 chars (7+sign). Therefore max. length
56 // of a escape sequence: 11 chars.
57 // Identifer:
58
59 #define EscFont 'F' /* fontID, e.g. 92500 for CG Times */
60 #define EscGrad 'G' /* font angle 1..255 for <<Pt-127<<Pt */
61 #define EscBreit 'B' /* width 1..255% of the font angle */
62 #define EscKaptS 'K' /* uppercase size 1..255% of the text angle */
63 #define EscLFeed 'L' /* character spacing 1..32767% of max. text angle of the line*/
64 // or 1..32767 for 1..16383<<Pt absolute (if bit 15=1)
65 #define EscSlant 'S' /* italic (angle) 1..8999 for 0.01deg..89.99deg */
66 #define EscVPos 'V' /* character vercial position 1..255 for <<Pt..127<<Pt */
67 #define EscZAbst 'Z' /* character spacing -128..127% */
68 #define EscHJust 'A' /* H-justify paragraph: left, cent, right, block, aligned, fixed (0..5)*/
69
70 #define EscFarbe 'C' /* colour 0..7 */
71 #define EscBFarb 'U' /* background colour 0..7 */
72 #define EscInts 'I' /* colour intensity 0..100% */
73 #define EscMustr 'M' /* pattern 0..? incl. transp... */
74 #define EscMFarb 'O' /* pattern colour 0..7 */
75 #define EscMBFrb 'P' /* 2nd pattern colour 0..7 */
76 #define EscMInts 'W' /* pattern intensity 0..7 */
77
78 #define EscSMstr 'E' /* shadow pattern 0..? inkl. Transp... */
79 #define EscSFarb 'R' /* shadow colour 0..7 */
80 #define EscSBFrb 'T' /* 2nd shadow colour 0..7 */
81 #define EscSInts 'Q' /* shadow intensity 0..7 */
82
83 #define EscSXDst 'X' /* shadow offset X 0..100% */
84 #define EscSYDst 'Y' /* shadow offset Y 0..100% */
85 #define EscSDist 'D' /* shadow offset X-Y 0..100% */
86
87 #define EscBold 'f' /* bold */
88 #define EscLSlnt 'l' /* L italic */
89 #define EscRSlnt 'r' /* R italic */
90 #define EscUndln 'u' /* underlined */
91 #define EscDbUnd 'p' /* double underlined */
92 #define EscKaptF 'k' /* uppercase flag */
93 #define EscStrik 'd' /* strikethrough */
94 #define EscDbStk 'e' /* double strikethrough */
95 #define EscSupSc 'h' /* superscript */
96 #define EscSubSc 't' /* subscript */
97 #define Esc2DShd 's' /* 2D-shadow */
98 #define Esc3DShd 'j' /* 3D-shadow */
99 #define Esc4DShd 'i' /* 4D-shadow */
100 #define EscEbShd 'b' /* embossed */
101
102 // AllEscIdent =[EscFont, EscGrad, EscBreit,EscKaptS,EscLFeed,EscSlant,EscVPos, EscZAbst,EscHJust,
103 // EscFarbe,EscBFarb,EscInts, EscMustr,EscMFarb,EscMBFrb,EscMInts,
104 // EscSMstr,EscSFarb,EscSBFrb,EscSInts,EscSXDst,EscSYDst,EscSDist,
105 // EscBold, EscLSlnt,EscRSlnt,EscUndln,EscDbUnd,EscKaptF,EscStrik,EscDbStk,
106 // EscSupSc,EscSubSc,Esc2DShd,Esc3DShd,Esc4DShd];
107 // Justify muss spaetestens am Anfang des Absatzes stehen
108 #define EscSet '\x1e' /* set flag */
109 #define EscReset '\x1f' /* reset flag */
110 #define EscDeflt '\x11' /* set flag to default */
111 #define EscToggl '\x1d' /* toggle flag */
112 #define EscNoFlg 0
113 #define EscNoVal -2147483647 /* -MaxLongInt */
114
115 #define NoTrenn 0xFFFF /* parameter value for 'Rest' of GetTextChar(), if separation should not occur */
116 #define DoTrenn 0xFFFE /* parameter value for 'Rest' of GetTextChar(), if separtion should occur */
117
118 #define MaxLineChars 1024
119
120 #define ChrXPosArrSize (MaxLineChars+1+1) /* 2k - start with 0 opposite to StarDraw */
121 #define CharLineSize (MaxLineChars+1+1)
122
123 #define MinChar 32
124 #define MaxChar 255
125
126 #define CharTopToBase 100 /* due to quotes more as 75% */
127 #define CharTopToBtm 120 /* line height larger as text angle */
128 // for Avanti-Bold 'ue' actually even 130%
129
130 // end of AbsBase.Pas
131
132 // Start of DefBase.Pas
133
134 #define TextBoldBit 0x0001 /* bold */
135 #define TextRSlnBit 0x0002 /* italic */
136 #define TextUndlBit 0x0004 /* underline */
137 #define TextStrkBit 0x0008 /* strikethrough */
138 #define TextSupSBit 0x0010 /* superscript */
139 #define TextSubSBit 0x0020 /* subscript */
140 #define TextKaptBit 0x0040 /* capital */
141 #define TextLSlnBit 0x0080 /* left italic */
142 #define TextDbUnBit 0x0100 /* double underline */
143 #define TextDbStBit 0x0200 /* double strikethrough */
144 #define TextSh2DBit 0x0400 /* 2D-shadow 2.0 */
145 #define TextSh3DBit 0x0800 /* 3D-shadow 2.0 */
146 #define TextSh4DBit 0x1000 /* 4D-shadow 2.0 */
147 #define TextShEbBit 0x2000 /* embossed-shadow 2.0 */
148
149 #define THJustLeft 0x00
150 #define THJustCenter 0x01
151 #define THJustRight 0x02
152 #define THJustBlock 0x03
153 #define THJustDrvOut 0x04 /* Justified formatted */
154 #define THJustLocked 0x05 /* J u s t l o c k e d */
155
156 #define MaxCharSlant 4200 /* maximum 42deg italic ! */
157
158 // end of DefBase.Pas
159
160 bool CheckTextOutl(ObjAreaType& F, ObjLineType& L)
161 {
162 return (F.FIntens!=L.LIntens) ||
163 ((F.FFarbe!=L.LFarbe) && (F.FIntens>0)) ||
164 ((F.FBFarbe!=L.LBFarbe) && (F.FIntens<100));
165 }
166
167 // Start of Misc.Pas
168
169 short hPoint2Sgf(short a)
170 {
171 long b;
172 b=long(a)*127*SgfDpmm/(144*5);
173 return short(b);
174 }
175
176 // End of Misc.Pas
177
178 // Start of AbsRead.Pas
179
180 // Function GetTopToBaseLine() Function GetBaseLineToBtm()
181 //
182 // Calculate distance from ascender of line to baseline or from baseline to
183 // descender. All in SGF-units.
184
185 sal_uInt16 GetTopToBaseLine(sal_uInt16 MaxGrad)
186 {
187 long ret;
188 ret=long(MaxGrad)*long(CharTopToBase) /long(100);
189 return sal_uInt16(ret);
190 }
191
192 // Function GetTextChar() Function GetTextCharConv()
193 //
194 // Reads a character from textbuffer, in doing so escape sequences
195 // are evaluated and accordingly the input/output parameter AktAtr is set.
196 // Index is incremented accordingly.
197 // Parameter Rest should always contain the number of characters,
198 // the number of remaining characters in that line.
199 // Otherwise the hyphenation does not work. If the constand NoTrenn
200 // is used instaed, no hyphenation is done. To the contrary then
201 // constant DoTrenn triggers hyphenation where a soft-break is present.
202 //
203 // Soft separators are converted to a minus sign.
204 // On top GetTextCharConv() converts HardSpace and AbsatzEnde
205 // in spaces, including HardTrenner in minus signs. TextEnde is
206 // always returned as Char(0).
207
208 UCHAR ConvertTextChar(UCHAR c)
209 {
210 if (c<32) {
211 switch (c) {
212 case HardSpace : c=' '; break;
213 case AbsatzEnd : c=' '; break;
214 case SoftTrenn : c='-'; break;
215 case HardTrenn : c='-'; break;
216 case SoftTrennK : c='-'; break;
217 case SoftTrennAdd: c='-';
218 }
219 }
220 return c;
221 }
222
223 long ChgValue(long Def, long Min, long Max, UCHAR FlgVal, long NumVal)
224 {
225 long r=0;
226
227 if (FlgVal==EscDeflt) {
228 r=Def; // return to default
229 } else {
230 if (NumVal!=EscNoVal) r=NumVal; // set non-breaking
231 }
232
233 if (Min!=0 || Max!=0) {
234 if (r>Max) r=Max;
235 if (r<Min) r=Min;
236 }
237 return r;
238 }
239
240 void ChgSchnittBit(sal_uInt16 Bit, sal_uInt16 Radio1, sal_uInt16 Radio2, sal_uInt16 Radio3,
241 UCHAR FlgVal, sal_uInt16 Schnitt0, sal_uInt16& Schnitt)
242 {
243 sal_uInt16 All,Rad;
244
245 Rad=Radio1 | Radio2 | Radio3;
246 All=Bit | Rad;
247
248 switch (FlgVal) {
249 case EscSet : Schnitt=(Schnitt & ~All) | Bit; break;
250 case EscReset: Schnitt=(Schnitt & ~All); break;
251 case EscDeflt: Schnitt=(Schnitt & ~All) | (Schnitt0 & All); break;
252 case EscToggl: Schnitt=(Schnitt & ~Rad) ^ Bit;
253 }
254 }
255
256 UCHAR GetNextChar(UCHAR* TBuf, sal_uInt16 Index)
257 {
258 sal_uInt16 Cnt;
259 while (TBuf[Index]==Escape) {
260 Index++;
261 Cnt=0;
262 while (TBuf[Index]!=Escape && Cnt<=MaxEscLen) {
263 Index++; Cnt++; }
264 Index++;
265 }
266 return TBuf[Index];
267 }
268
269 UCHAR ProcessOne(UCHAR* TBuf, sal_uInt16& Index,
270 ObjTextType& Atr0, ObjTextType& AktAtr,
271 bool ScanEsc)
272 {
273 UCHAR c;
274 UCHAR Ident;
275 bool Ende;
276 bool q;
277 UCHAR FlgVal;
278 long NumVal;
279 long Sgn;
280 short i;
281 bool EoVal;
282
283 do {
284 c=TBuf[Index]; Index++;
285 Ende=(c!=Escape);
286 if (!Ende) {
287 c=TBuf[Index]; Index++;
288 Ident=c; // remember identifier
289 FlgVal=EscNoFlg;
290 NumVal=EscNoVal;
291 c=TBuf[Index]; Index++; // value starts here
292 if (c==EscSet || c==EscReset || c==EscDeflt || c==EscToggl) FlgVal=c; else {
293 if (c=='-') Sgn=-1; else Sgn=1;
294 if (c=='+' || c=='-') { c=TBuf[Index]; Index++; }
295 i=MaxEscValLen;
296 NumVal=0;
297 do {
298 NumVal=10*NumVal+c-'0';
299 EoVal=(TBuf[Index]<'0' || TBuf[Index]>'9');
300 if (!EoVal) { c=TBuf[Index]; Index++; }
301 i--;
302 } while (i>0 && !EoVal);
303 NumVal=Sgn*NumVal;
304 }
305 q=!CheckTextOutl(AktAtr.F,AktAtr.L);
306
307 switch (Ident) {
308 case EscFont : AktAtr.SetFont(sal_uLong (ChgValue(Atr0.GetFont(),0,0 ,FlgVal,NumVal)));break;
309 case EscGrad : AktAtr.Grad =sal_uInt16(ChgValue(Atr0.Grad, 2,2000 ,FlgVal,NumVal)); break;
310 case EscBreit: AktAtr.Breite =sal_uInt16(ChgValue(Atr0.Breite, 1,1000 ,FlgVal,NumVal)); break;
311 case EscKaptS: AktAtr.Kapit =(sal_uInt8)(ChgValue(Atr0.Kapit, 1,255 ,FlgVal,NumVal)); break;
312 case EscLFeed: AktAtr.LnFeed =sal_uInt16(ChgValue(Atr0.LnFeed, 1,65535 ,FlgVal,NumVal)); break;
313 case EscSlant: AktAtr.Slant =sal_uInt16(ChgValue(Atr0.Slant, 1,MaxCharSlant ,FlgVal,NumVal)); break;
314 case EscVPos : AktAtr.ChrVPos=char (ChgValue(Atr0.ChrVPos,-128,127 ,FlgVal,NumVal)); break;
315 case EscZAbst: AktAtr.ZAbst =(sal_uInt8)(ChgValue(Atr0.ZAbst, 1,255 ,FlgVal,NumVal)); break;
316 case EscHJust: AktAtr.Justify=(sal_uInt8)(ChgValue(Atr0.Justify & 0x0F,0,5 ,FlgVal,NumVal)); break;
317 case EscFarbe: { AktAtr.L.LFarbe =(sal_uInt8)(ChgValue(Atr0.L.LFarbe,0,7 ,FlgVal,NumVal)); if (q) AktAtr.F.FFarbe =AktAtr.L.LFarbe; } break;
318 case EscBFarb: { AktAtr.L.LBFarbe=(sal_uInt8)(ChgValue(Atr0.L.LBFarbe,0,255,FlgVal,NumVal)); if (q) AktAtr.F.FBFarbe=AktAtr.L.LBFarbe; } break;
319 case EscInts : { AktAtr.L.LIntens=(sal_uInt8)(ChgValue(Atr0.L.LIntens,0,100,FlgVal,NumVal)); if (q) AktAtr.F.FIntens=AktAtr.L.LIntens; } break;
320
321 case EscMustr: { AktAtr.F.FMuster=sal_uInt16(ChgValue(Atr0.F.FMuster,0,65535,FlgVal,NumVal)); } break;
322 case EscMFarb: { AktAtr.F.FFarbe =(sal_uInt8)(ChgValue(Atr0.F.FFarbe,0,7 ,FlgVal,NumVal)); } break;
323 case EscMBFrb: { AktAtr.F.FBFarbe=(sal_uInt8)(ChgValue(Atr0.F.FBFarbe,0,255,FlgVal,NumVal)); } break;
324 case EscMInts: { AktAtr.F.FIntens=(sal_uInt8)(ChgValue(Atr0.F.FIntens,0,100,FlgVal,NumVal)); } break;
325
326 case EscSMstr: { AktAtr.ShdF.FMuster=sal_uInt16(ChgValue(Atr0.ShdF.FMuster,0,65535,FlgVal,NumVal)); } break;
327 case EscSFarb: { AktAtr.ShdL.LFarbe =(sal_uInt8)(ChgValue(Atr0.ShdL.LFarbe,0,7 ,FlgVal,NumVal)); AktAtr.ShdF.FFarbe =AktAtr.ShdL.LFarbe; } break;
328 case EscSBFrb: { AktAtr.ShdL.LBFarbe=(sal_uInt8)(ChgValue(Atr0.ShdL.LBFarbe,0,255,FlgVal,NumVal)); AktAtr.ShdF.FBFarbe=AktAtr.ShdL.LBFarbe; } break;
329 case EscSInts: { AktAtr.ShdL.LIntens=(sal_uInt8)(ChgValue(Atr0.ShdL.LIntens,0,100,FlgVal,NumVal)); AktAtr.ShdF.FIntens=AktAtr.ShdL.LIntens; } break;
330 case EscSDist: { AktAtr.ShdVers.x=(short)ChgValue(Atr0.ShdVers.x,0,30000,FlgVal,NumVal); AktAtr.ShdVers.y=AktAtr.ShdVers.x; } break;
331 case EscSXDst: { AktAtr.ShdVers.x=(short)ChgValue(Atr0.ShdVers.x,0,30000,FlgVal,NumVal); } break;
332 case EscSYDst: { AktAtr.ShdVers.y=(short)ChgValue(Atr0.ShdVers.y,0,30000,FlgVal,NumVal); } break;
333
334 case EscBold : ChgSchnittBit(TextBoldBit,0,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
335 case EscRSlnt: ChgSchnittBit(TextRSlnBit,TextLSlnBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
336 case EscUndln: ChgSchnittBit(TextUndlBit,TextDbUnBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
337 case EscStrik: ChgSchnittBit(TextStrkBit,TextDbStBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
338 case EscDbUnd: ChgSchnittBit(TextDbUnBit,TextUndlBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
339 case EscDbStk: ChgSchnittBit(TextDbStBit,TextStrkBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
340 case EscSupSc: ChgSchnittBit(TextSupSBit,TextSubSBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
341 case EscSubSc: ChgSchnittBit(TextSubSBit,TextSupSBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
342 case EscKaptF: ChgSchnittBit(TextKaptBit,0,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
343 case EscLSlnt: ChgSchnittBit(TextLSlnBit,TextRSlnBit,0,0 ,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
344 case Esc2DShd: ChgSchnittBit(TextSh2DBit,TextSh3DBit,TextSh4DBit,TextShEbBit,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
345 case Esc3DShd: ChgSchnittBit(TextSh3DBit,TextSh2DBit,TextSh4DBit,TextShEbBit,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
346 case Esc4DShd: ChgSchnittBit(TextSh4DBit,TextSh2DBit,TextSh3DBit,TextShEbBit,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
347 case EscEbShd: ChgSchnittBit(TextShEbBit,TextSh2DBit,TextSh3DBit,TextSh4DBit,FlgVal,Atr0.Schnitt,AktAtr.Schnitt); break;
348 } //endcase
349 if (TBuf[Index]==Escape) Index++; // read 2nd escape }
350 }
351 } while (!Ende && !ScanEsc);
352 if (!Ende) c=Escape;
353 return c;
354 } // end of ProcessOne
355
356 UCHAR GetTextChar(UCHAR* TBuf, sal_uInt16& Index,
357 ObjTextType& Atr0, ObjTextType& AktAtr,
358 sal_uInt16 Rest, bool ScanEsc)
359 {
360 UCHAR c=ProcessOne(TBuf,Index,Atr0,AktAtr,ScanEsc);
361 if (!ScanEsc) {
362 if (c==SoftTrennAdd || c==SoftTrennK || c==SoftTrenn) {
363 UCHAR nc=GetNextChar(TBuf,Index);
364 UCHAR c0=c;
365 if (Rest==0 || Rest==DoTrenn ||
366 nc==' ' || nc==AbsatzEnd || nc==TextEnd) c='-';
367 else {
368 c=ProcessOne(TBuf,Index,Atr0,AktAtr,ScanEsc); // skip separator
369 if (c0==SoftTrennAdd) {
370 if (c>=32) c=ProcessOne(TBuf,Index,Atr0,AktAtr,ScanEsc); // skip another letter
371 }
372 }
373 }
374 if ((Rest==1 || Rest==DoTrenn) && GetNextChar(TBuf,Index)==SoftTrennK) {
375 if (c=='c') c='k';
376 else if (c=='C') c='K';
377 }
378 }
379 return c;
380 }
381
382 // HardSpace and HardTrenn should be converted explicitely ! }
383 // if AktAtr.Schnitt and TextKaptBit =TextKaptBit then c:=UpCase(c);(explizit) }
384
385 // The separationmethod SoftTrennAdd assumes, the separating consonant }
386 // is 3x present in TextBuf, e.g.: "schiff-fahrt". }
387 // If not separated then, "-f" is removed. }
388
389 UCHAR GetTextCharConv(UCHAR* TBuf, sal_uInt16& Index,
390 ObjTextType& Atr0, ObjTextType& AktAtr,
391 sal_uInt16 Rest, bool ScanEsc)
392 {
393 UCHAR c;
394
395 c=GetTextChar(TBuf,Index,Atr0,AktAtr,Rest,ScanEsc);
396 if (c<32) {
397 switch (c) {
398 case HardSpace : c=' '; break;
399 case AbsatzEnd : c=' '; break;
400 case HardTrenn : c='-';
401 }
402 }
403 return c;
404 }
405
406 // Function GetLineFeed()
407 //
408 // Required line spacing in SGF-Units. ChrVPos is taken into account.
409 // ======================================================================
410 sal_uInt16 GetLineFeed(UCHAR* TBuf, sal_uInt16 Index, ObjTextType Atr0, ObjTextType AktAtr,
411 sal_uInt16 nChar, sal_uInt16& LF, sal_uInt16& MaxGrad)
412 {
413 bool AbsEnd=false;
414 sal_uLong LF100=0;
415 sal_uLong MaxLF100=0;
416 bool LFauto=false;
417 bool First=true;
418 sal_uInt16 Grad;
419 sal_uInt16 i=0;
420 sal_uInt16 r=1;
421
422 MaxGrad=0;
423 while (!AbsEnd && nChar>0) {
424 nChar--;
425 UCHAR c=GetTextChar(TBuf,Index,Atr0,AktAtr,nChar,false);
426 i++;
427 AbsEnd=(c==TextEnd || c==AbsatzEnd);
428 if (First || (!AbsEnd && c!=' ' && c!=HardTrenn)) {
429 LFauto=(AktAtr.LnFeed & 0x8000)==0;
430 LF100=AktAtr.LnFeed & 0x7FFF;
431 if (LFauto) LF100=LF100*AktAtr.Grad; else LF100*=LF100;
432 if (AktAtr.ChrVPos>0) LF100-=AktAtr.ChrVPos*100;
433 if (LF100>MaxLF100) MaxLF100=LF100;
434 Grad=AktAtr.Grad;
435 if (AktAtr.ChrVPos>0) Grad=Grad-AktAtr.ChrVPos;
436 if (Grad>MaxGrad) MaxGrad=Grad;
437 First=false;
438 }
439 if (!AbsEnd && c!=' ') r=i;
440 }
441 MaxGrad=hPoint2Sgf(MaxGrad);
442 if (MaxLF100<=4000) { // otherwise overflow could occur
443 LF=sal_uInt16(hPoint2Sgf(short(MaxLF100)) /100);
444 } else {
445 LF=sal_uInt16(hPoint2Sgf(short(MaxLF100) /100));
446 }
447
448 return r;
449 }
450
451 // End of AbsRead.Pas
452
453 // Start of iFont.Pas
454
455 #define SuperSubFact 60 /* superscript/subscript: 60% of text angle */
456 #define DefaultSpace 40 /* Default: space is 40% of text angle */
457
458 sal_uInt16 SetTextContext(OutputDevice& rOut, ObjTextType& Atr, bool Kapt, sal_uInt16 nRotation,
459 sal_uInt16 FitXMul, sal_uInt16 FitXDiv, sal_uInt16 FitYMul, sal_uInt16 FitYDiv)
460 {
461 SgfFontOne* pSgfFont; // Font from the IniFile
462 vcl::Font aFont;
463 Color aColor;
464 sal_uLong Grad;
465 sal_uLong Brei;
466 OUString FNam;
467 sal_uInt16 StdBrei=50; // average line width in % of text angle
468 bool bFit=(FitXMul!=1 || FitXDiv!=1 || FitYMul!=1 || FitYDiv!=1);
469
470 pSgfFont = pSgfFonts->GetFontDesc(Atr.GetFont());
471
472 if ( pSgfFont!=NULL )
473 {
474 FNam =pSgfFont->SVFName;
475 StdBrei=pSgfFont->SVWidth;
476 if (pSgfFont->Fixd) aFont.SetPitch(PITCH_FIXED); else aFont.SetPitch(PITCH_VARIABLE);
477 aFont.SetFamily(pSgfFont->SVFamil);
478 aFont.SetCharSet(pSgfFont->SVChSet);
479 aFont.SetName(FNam);
480 }
481 else
482 { // if not in Inifile, some fonts are hard coded here
483 aFont.SetPitch(PITCH_VARIABLE);
484 switch (Atr.GetFont()) {
485 case 92500: case 92501: case 92504: case 92505:
486 {
487 #if defined(WNT)
488 FNam = "Times New Roman"; // CG Times is Times New Roman in Windows
489 #else
490 FNam = "Times"; // otherwise just Times
491 #endif
492 StdBrei=40;
493 aFont.SetFamily(FAMILY_ROMAN);
494 } break;
495 case 94021: case 94022: case 94023: case 94024: {
496 #if defined(WNT)
497 FNam = "Arial"; // Univers is Arial in Windows
498 #else
499 FNam = "Helvetica"; // otherwise Helvetica
500 #endif
501 aFont.SetFamily(FAMILY_SWISS);
502 StdBrei=47;
503 } break;
504 case 93950: case 93951: case 93952: case 93953: {
505 #if defined(WNT)
506 FNam = "Courier New"; // The vector-Courierfont is called Courier New in Windows
507 #else
508 FNam = "Courier"; // otherwise Courier remains Courier
509 #endif
510 aFont.SetFamily(FAMILY_ROMAN);
511 aFont.SetPitch(PITCH_FIXED);
512 } break;
513 default: FNam = "Helvetica";
514 }
515 aFont.SetName(FNam);
516 //aFont.SetCharSet(CHARSET_SYSTEM);
517 }
518
519 Grad=sal_uLong(Atr.Grad);
520 if ((Atr.Schnitt & TextKaptBit) !=0 && Kapt) Grad=Grad*sal_uLong(Atr.Kapit)/100;
521 if ((Atr.Schnitt & TextSupSBit) !=0 || (Atr.Schnitt & TextSubSBit) !=0) Grad=Grad*SuperSubFact/100;
522 Brei=Grad;
523 if (Atr.Breite!=100 || bFit) {
524 if (bFit) {
525 Grad=Grad*sal_uLong(FitYMul)/sal_uLong(FitYDiv);
526 Brei=Brei*sal_uLong(FitXMul)/sal_uLong(FitXDiv);
527 }
528 Brei=Brei*sal_uLong(Atr.Breite)/100;
529 Brei=Brei*sal_uLong(StdBrei)/100;
530 aFont.SetSize(Size(hPoint2Sgf(sal_uInt16(Brei)),hPoint2Sgf(sal_uInt16(Grad))));
531 } else {
532 aFont.SetSize(Size(0,hPoint2Sgf(sal_uInt16(Grad))));
533 }
534
535 aColor=Sgv2SvFarbe(Atr.L.LFarbe,Atr.L.LBFarbe,Atr.L.LIntens); aFont.SetColor(aColor);
536 aColor=Sgv2SvFarbe(Atr.F.FFarbe,Atr.F.FBFarbe,Atr.F.FIntens); aFont.SetFillColor(aColor);
537 aFont.SetTransparent(true);
538 aFont.SetAlign(ALIGN_BASELINE);
539
540 nRotation/=10; nRotation=3600-nRotation; if (nRotation==3600) nRotation=0;
541 aFont.SetOrientation(nRotation);
542
543 if ((Atr.Schnitt & TextBoldBit) !=0) aFont.SetWeight(WEIGHT_BOLD);
544 if ((Atr.Schnitt & TextRSlnBit) !=0) aFont.SetItalic(ITALIC_NORMAL);
545 if ((Atr.Schnitt & TextUndlBit) !=0) aFont.SetUnderline(UNDERLINE_SINGLE);
546 if ((Atr.Schnitt & TextDbUnBit) !=0) aFont.SetUnderline(UNDERLINE_DOUBLE);
547 if ((Atr.Schnitt & TextStrkBit) !=0) aFont.SetStrikeout(STRIKEOUT_SINGLE);
548 if ((Atr.Schnitt & TextDbStBit) !=0) aFont.SetStrikeout(STRIKEOUT_DOUBLE);
549 if ((Atr.Schnitt & TextSh2DBit) !=0) aFont.SetShadow(true);
550 if ((Atr.Schnitt & TextSh3DBit) !=0) aFont.SetShadow(true);
551 if ((Atr.Schnitt & TextSh4DBit) !=0) aFont.SetShadow(true);
552 if ((Atr.Schnitt & TextShEbBit) !=0) aFont.SetShadow(true);
553 if (CheckTextOutl(Atr.F,Atr.L)) aFont.SetOutline(true);
554
555 if (aFont!=rOut.GetFont()) rOut.SetFont(aFont);
556
557 return 0;
558 }
559
560 // iFont.Pas
561
562 // Start of Absatz.Pas
563
564 struct ProcChrSta {
565 sal_uInt16 Index;
566 sal_uInt16 ChrXP;
567 UCHAR OutCh;
568 bool Kapt;
569 ObjTextType Attrib;
570 };
571
572 void InitProcessCharState(ProcChrSta& State, ObjTextType& AktAtr, sal_uInt16 IndexA)
573 {
574 State.Attrib=AktAtr;
575 State.OutCh=0;
576 State.Index=IndexA;
577 State.ChrXP=0;
578 State.Kapt=false;
579 }
580
581 bool UpcasePossible(UCHAR c)
582 {
583 return ((c>='a' && c<='z') || c == 0xe4 || c == 0xf6 || c == 0xfc );
584 }
585
586 UCHAR Upcase(UCHAR c)
587 {
588 if ((c>=(UCHAR)'a' && c<=(UCHAR)'z')) c=(c-(UCHAR)'a')+(UCHAR)'A';
589 else if ( c == 0xe4 ) c = 0xc4;
590 else if ( c == 0xf6 ) c = 0xd6;
591 else if ( c == 0xfc ) c = 0xdc;
592 return c;
593 }
594
595 sal_uInt16 GetCharWidth(OutputDevice& rOut, UCHAR c)
596 {
597 sal_uInt16 ChrWidth;
598
599 if (c==' ')
600 {
601 ChrWidth=(sal_uInt16)rOut.GetTextWidth( OUString('A') );
602 if (rOut.GetFont().GetPitch()!=PITCH_FIXED) {
603 ChrWidth=MulDiv(ChrWidth,DefaultSpace,100);
604 }
605 }
606 else
607 {
608 static_assert(MaxChar == 255, "with MaxChar == 255 c cannot be greater than MaxChar");
609 static_assert(sizeof(UCHAR) == 1, "assert if MaxChar type is ever changed");
610 if (c>=MinChar /*&& c<=MaxChar*/)
611 {
612 ChrWidth=(sal_uInt16)rOut.GetTextWidth(OUString(reinterpret_cast<sal_Char*>(&c), 1, RTL_TEXTENCODING_IBM_437));
613 }
614 else
615 {
616 ChrWidth=(sal_uInt16)rOut.GetTextWidth(OUString(static_cast<sal_Unicode>('A')));
617 }
618 }
619 return ChrWidth;
620 }
621
622 UCHAR ProcessChar(OutputDevice& rOut, UCHAR* TBuf, ProcChrSta& R, ObjTextType& Atr0,
623 sal_uInt16& nChars, sal_uInt16 Rest,
624 short* Line, UCHAR* cLine)
625 {
626 sal_uInt16 KernDist=0; // value for kerning
627 sal_uInt16 ChrWidth;
628 UCHAR c;
629 bool AbsEnd;
630
631 c=GetTextChar(TBuf,R.Index,Atr0,R.Attrib,Rest,false); // tries to separate, if Rest contains appropriate value
632
633 AbsEnd=(c==AbsatzEnd || c==TextEnd);
634 if (!AbsEnd) {
635 R.OutCh=ConvertTextChar(c); // from HardTrenn to '-', ...
636 R.Kapt=(R.Attrib.Schnitt & TextKaptBit) !=0 && UpcasePossible(R.OutCh);
637 if (R.Kapt) R.OutCh=Upcase(R.OutCh);
638 SetTextContext(rOut,R.Attrib,R.Kapt,0,1,1,1,1);
639
640 UCHAR c1 = (R.Kapt)?Upcase(c):c;
641 ChrWidth=GetCharWidth(rOut,c1);
642
643 if (R.Attrib.ZAbst!=100) { // special line distance ?
644 sal_uLong Temp;
645 Temp=sal_uLong(ChrWidth)*sal_uLong(R.Attrib.ZAbst)/100;
646 ChrWidth=sal_uInt16(Temp);
647 }
648 nChars++;
649 if (R.ChrXP>32000) R.ChrXP=32000;
650 Line[nChars]=R.ChrXP-KernDist;
651 cLine[nChars]=c;
652 R.ChrXP+=ChrWidth-KernDist; // position of next character
653 }
654 return c;
655 }
656
657 void FormatLine(UCHAR* TBuf, sal_uInt16& Index, ObjTextType& Atr0, ObjTextType& AktAtr,
658 sal_uInt16 UmbWdt, sal_uInt16 AdjWdt,
659 short* Line, sal_uInt16& nChars,
660 double, double,
661 UCHAR* cLine, bool TextFit)
662 {
663 ScopedVclPtrInstance< VirtualDevice > vOut;
664 UCHAR c,c0;
665 bool First; // first char ?
666 sal_uInt8 Just = 0; // paragraph format
667 bool Border; // border of box reached ?
668 bool Border0;
669 bool AbsEnd; // end of paragraph reached ?
670 ProcChrSta* R=new ProcChrSta;
671 ProcChrSta* R0=new ProcChrSta;
672 ProcChrSta* WErec=new ProcChrSta;
673 sal_uInt16 WEnChar;
674 ProcChrSta* WErec0=new ProcChrSta;
675 sal_uInt16 WEnChar0;
676 ProcChrSta* TRrec=new ProcChrSta;
677 sal_uInt16 TRnChar;
678
679 sal_uInt16 WordEndCnt; // justify and separate
680 bool WordEnd;
681 bool Trenn;
682
683 short BoxRest; // to crush and format
684 sal_uInt16 i,j,k,h;
685 sal_uInt16 re,li;
686
687 vOut->SetMapMode(MapMode(MAP_10TH_MM,Point(),Fraction(1,4),Fraction(1,4)));
688
689 nChars=0;
690 SetTextContext(*vOut.get(),AktAtr,false,0,1,1,1,1);
691 InitProcessCharState(*R,AktAtr,Index);
692 (*R0)=(*R); (*WErec)=(*R); WEnChar=0; c0=0; Border0=false;
693 Border=false; First=true;
694 WordEndCnt=0;
695
696 do { // check how many words to on that line
697 if (Border) c=ProcessChar(*vOut.get(),TBuf,*R,Atr0,nChars,DoTrenn,Line,cLine);
698 else c=ProcessChar(*vOut.get(),TBuf,*R,Atr0,nChars,NoTrenn,Line,cLine);
699 AbsEnd=(c==AbsatzEnd || c==TextEnd);
700 //if not AbsEnd then
701 {
702 if (First) {
703 Just=R->Attrib.Justify & 0x0F; // paragraph format remains, then at start
704 }
705 Border=R->ChrXP>UmbWdt;
706 WordEnd=(AbsEnd || (c==' ')) && (c0!=' ') && (c0!=0);
707 Trenn=c=='-';
708 if (WordEnd && !Border0) {
709 WordEndCnt++;
710 (*WErec)=(*R0);
711 WEnChar=nChars-1;
712 }
713 if (Trenn && !Border) {
714 WordEndCnt++;
715 (*WErec)=(*R);
716 WEnChar=nChars;
717 }
718 }
719 (*R0)=(*R); c0=c;
720 Border0=Border;
721 First=false;
722 AbsEnd=AbsEnd || (nChars>=MaxLineChars);
723 } while (!(AbsEnd || (Border && ((WordEndCnt>0) || WordEnd || Trenn))));
724
725 if (Border) { // separate and crush
726 (*WErec0)=(*WErec); WEnChar0=WEnChar;
727 AbsEnd=false; c0=0;
728 (*R)=(*WErec); nChars=WEnChar;
729 (*TRrec)=(*R); TRnChar=nChars;
730 Border0=false; Border=false;
731 do { // first check how many syllables fit
732 UCHAR ct=ProcessChar(*vOut.get(),TBuf,*TRrec,Atr0,TRnChar,DoTrenn,Line,cLine);
733 c=ProcessChar(*vOut.get(),TBuf,*R,Atr0,nChars,NoTrenn,Line,cLine);
734 AbsEnd=(ct==AbsatzEnd) || (ct==TextEnd) || (nChars>=MaxLineChars);
735
736 Border=TRrec->ChrXP>UmbWdt;
737 WordEnd=AbsEnd || ((AbsEnd || (c==' ')) && (c0!=' ') && (c0!=0));
738 Trenn=ct=='-';
739 if (WordEnd && (!Border0 || (WordEndCnt==0))) {
740 WordEndCnt++;
741 (*WErec)=(*R0);
742 if (AbsEnd) WEnChar=nChars; else WEnChar=nChars-1;
743 (*TRrec)=(*R); TRnChar=nChars; // to continue searching
744 }
745 if (Trenn && (!Border || (WordEndCnt==0))) {
746 WordEndCnt++; // remember we can separate here
747 (*WErec)=(*TRrec);
748 WEnChar=TRnChar;
749 (*TRrec)=(*R); TRnChar=nChars; // continue searching
750 }
751 (*R0)=(*R); c0=c;
752 Border0=Border;
753 Border=R->ChrXP>UmbWdt;
754 } while (!(AbsEnd || (Border && ((WordEndCnt>0) || WordEnd || Trenn))));
755
756 while (WErec0->Index<WErec->Index) { // to assure Line[] matches }
757 ProcessChar(*vOut.get(),TBuf,*WErec0,Atr0,WEnChar0,WEnChar-WEnChar0-1,Line,cLine);
758 }
759
760 (*R)=(*WErec); nChars=WEnChar;
761
762 if (UmbWdt<R->ChrXP) {
763 BoxRest=R->ChrXP-UmbWdt; // so much should be crushed
764 for (i=2;i<=nChars;i++) { // first character position remains!
765 Line[i]-=(i-1)*(BoxRest) /(nChars-1);
766 }
767 R->ChrXP=UmbWdt;
768 Line[nChars+1]=UmbWdt;
769 }
770 }
771
772 if (!AbsEnd) {
773 do { // read empty characters
774 (*WErec)=(*R);
775 c=GetTextChar(TBuf,R->Index,Atr0,R->Attrib,NoTrenn,false);
776 nChars++;
777 Line[nChars]=R->ChrXP;
778 cLine[nChars]=c;
779 } while (c==' ');
780 if (c!=' ' && c!=AbsatzEnd && c!=TextEnd) {
781 nChars--;
782 (*R)=(*WErec);
783 }
784 }
785
786 if (AbsEnd && nChars<MaxLineChars) { // align, left aligned instead of block
787 if (Just==3) Just=0;
788 nChars++; Line[nChars]=R->ChrXP; // to assure AbsatzEnde is read
789 Line[nChars+1]=R->ChrXP; // as the width of CR or #0 is very small
790 if (TBuf[R->Index-1]!=AbsatzEnd && TBuf[R->Index-1]!=TextEnd) {
791 c=GetTextChar(TBuf,R->Index,Atr0,R->Attrib,NoTrenn,false); // small correction needed, if 1st word read
792 }
793 }
794
795 BoxRest=AdjWdt-R->ChrXP;
796 if (TextFit) Just=THJustLeft;
797
798 switch (Just) {
799 case THJustLeft: break; // left
800 case THJustCenter: {
801 BoxRest=BoxRest /2; // middle
802 for (i=1;i<=nChars;i++) Line[i]=Line[i]+BoxRest;
803 } break;
804 case THJustRight: { // right
805 for (i=1;i<=nChars;i++) Line[i]=Line[i]+BoxRest;
806 } break;
807 case THJustDrvOut:
808 case THJustBlock: { // block and justified
809 re=nChars;
810 if (Just==THJustDrvOut) re--;
811 while (re>=1 && (cLine[re]==' ' || cLine[re]==TextEnd || cLine[re]==AbsatzEnd)) re--;
812 li=1;
813 while (li<=re && (cLine[li]==' ' || cLine[li]==TextEnd || cLine[li]==AbsatzEnd)) li++;
814 if (Just==THJustDrvOut) BoxRest=AdjWdt-Line[re+1];
815
816 j=0; // get number of spaces
817 for (i=li;i<=re;i++) {
818 if (cLine[i]==' ') {
819 j++;
820 }
821 }
822
823 if (j==0) { // only one word ? -> stretch !
824 for (i=li+1;i<=re;i++) { // from left to right
825 Line[i]=Line[i]+MulDiv(i-li,BoxRest,re-li+1-1);
826 }
827 } else {
828 k=0; h=0;
829 for (i=li;i<=re;i++) { // j drill spaces !
830 if (cLine[i]==' ') { // space found !
831 k++;
832 h=MulDiv(k,BoxRest,j);
833 }
834 Line[i]=Line[i]+h;
835 }
836 }
837 for (i=re+1;i<=nChars;i++) Line[i]=Line[i]+BoxRest; // adapt the rest
838 Line[nChars+1]=AdjWdt;
839 } break;
840 case THJustLocked: { // locked out
841 re=nChars-1;
842 while (re>=1 && (cLine[re]==' ' || cLine[re]==TextEnd || cLine[re]==AbsatzEnd)) re--;
843 li=1;
844 while (li<=re && (cLine[li]==' ' || cLine[li]==TextEnd || cLine[li]==AbsatzEnd)) li++;
845 BoxRest=AdjWdt-Line[re+1];
846 for (i=li+1;i<=re;i++) { // stretch from left to right
847 Line[i]=Line[i]+MulDiv(i-li,BoxRest,re-li+1-1);
848 }
849 for (i=re+1;i<=nChars;i++) Line[i]=Line[i]+BoxRest; // adapt the rest
850 Line[nChars+1]=AdjWdt;
851 } break;
852 }
853 Index=R->Index;
854 AktAtr=R->Attrib;
855 delete R;
856 delete R0;
857 delete WErec;
858 delete WErec0;
859 delete TRrec;
860 }
861
862 // End of Absatz.Pas
863
864 // Start of DrawText.Pas
865
866 void DrawChar(OutputDevice& rOut, UCHAR c, ObjTextType T, PointType Pos, sal_uInt16 RotationAngle,
867 sal_uInt16 FitXMul, sal_uInt16 FitXDiv, sal_uInt16 FitYMul, sal_uInt16 FitYDiv)
868 {
869 SetTextContext(rOut,T,UpcasePossible(c),RotationAngle,FitXMul,FitXDiv,FitYMul,FitYDiv);
870 if ((T.Schnitt & TextKaptBit)!=0 && UpcasePossible(c)) c=Upcase(c);
871 OUString s(reinterpret_cast<const sal_Char*>(&c), 1,
872 RTL_TEXTENCODING_IBM_437);
873 rOut.DrawText( Point( Pos.x, Pos.y ), s );
874 }
875
876 void TextType::Draw(OutputDevice& rOut)
877 {
878 if ((Flags & TextOutlBit)!=0) return; // source text for Outliner !!
879
880 ObjTextType T1,T2;
881 sal_uInt16 Index1;
882 sal_uInt16 Index2;
883 UCHAR c = TextEnd;
884 sal_uInt16 l; // number of characters on the line
885 sal_uInt16 i;
886 short yPos0;
887 short xPos;
888 short yPos;
889 sal_uInt16 LF;
890 sal_uInt16 MaxGrad;
891 short xSize;
892 short xSAdj;
893 short ySize;
894 double sn,cs;
895 sal_uInt16 TopToBase;
896 bool Ende = false;
897 sal_uInt16 lc;
898 bool TextFit;
899 boost::scoped_array<short> xLine;
900 boost::scoped_array<UCHAR> cLine; // Buffer for FormatLine
901 sal_uInt16 FitXMul;
902 sal_uInt16 FitXDiv;
903 sal_uInt16 FitYMul;
904 sal_uInt16 FitYDiv;
905 bool Fehler;
906 UCHAR* Buf=Buffer; // pointer to the letters
907
908 pSgfFonts->ReadList();
909 xLine.reset(new short[ChrXPosArrSize]);
910 cLine.reset(new UCHAR[CharLineSize]);
911
912 TextFit=(Flags & TextFitBits)!=0;
913 bool LineFit=((Flags & TextFitZBit)!=0); // FitSize.x=0? or flags -> stretch each line
914 if (TextFit && FitSize.x==0) LineFit=true;
915
916 if (RotationAngle==0) {
917 sn=0.0;
918 cs=1.0;
919 } else {
920 sn=sin(double(RotationAngle)*3.14159265359/18000);
921 cs=cos(double(RotationAngle)*3.14159265359/18000);
922 }
923
924 T1=T; Index1=0; yPos=0; xPos=0;
925 if (TextFit) {
926 ySize=Pos2.y-Pos1.y;
927 xSize=32000 /2; // break
928 xSAdj=Pos2.x-Pos1.x; // to align for center/block
929 //if (xSize<=0) { xSize=32000 /2; LineFit=true; }
930 FitXMul=sal::static_int_cast< sal_uInt16 >(abs(Pos2.x-Pos1.x)); FitXDiv=FitSize.x; if (FitXDiv==0) FitXDiv=1;
931 FitYMul=sal::static_int_cast< sal_uInt16 >(abs(Pos2.y-Pos1.y)); FitYDiv=FitSize.y; if (FitYDiv==0) FitYDiv=1;
932 } else {
933 xSize=Pos2.x-Pos1.x;
934 xSAdj=xSize;
935 ySize=Pos2.y-Pos1.y;
936 FitXMul=1; FitXDiv=1;
937 FitYMul=1; FitYDiv=1;
938 }
939 if (xSize<0) xSize=0;
940 if (xSAdj<0) xSAdj=0;
941
942 do {
943 T2=T1; Index2=Index1;
944 FormatLine(Buf,Index2,T,T2,xSize,xSAdj,xLine.get(),l,sn,cs,cLine.get(),LineFit);
945 Fehler=(Index2==Index1);
946 if (!Fehler) {
947 lc=GetLineFeed(Buf,Index1,T,T1,l,LF,MaxGrad);
948 if (TextFit) {
949 if (LineFit) FitXDiv=xLine[lc+1];
950 if (FitXDiv>0) {
951 for (i=1;i<=l+1;i++) {
952 const long Temp=long(xLine[i])*long(FitXMul) /long(FitXDiv);
953 xLine[i]=short(Temp);
954 }
955 LF=MulDiv(LF,FitYMul,FitYDiv);
956 MaxGrad=MulDiv(MaxGrad,FitYMul,FitYDiv);
957 } else {
958 FitXDiv=1; // 0 does not exist
959 }
960 }
961 yPos0=yPos;
962 TopToBase=GetTopToBaseLine(MaxGrad);
963 yPos=yPos+TopToBase;
964 Ende=(yPos0+short(MulDiv(MaxGrad,CharTopToBtm,100))>ySize) && !TextFit;
965 if (!Ende) {
966 T2=T1; Index2=Index1;
967 i=1;
968 while (i<=l) {
969 c=GetTextCharConv(Buf,Index2,T,T2,l-i,false);
970 long xp1,yp1; // due to overflow danger
971 PointType Pos;
972 xp1=long(Pos1.x)+xPos+long(xLine[i]);
973 yp1=long(Pos1.y)+yPos;
974 if (xp1>32000) xp1=32000; if (xp1<-12000) xp1=-12000;
975 if (yp1>32000) yp1=32000; if (yp1<-12000) yp1=-12000;
976 Pos.x=short(xp1);
977 Pos.y=short(yp1);
978
979 if (RotationAngle!=0) RotatePoint(Pos,Pos1.x,Pos1.y,sn,cs);
980 DrawChar(rOut,c,T2,Pos,RotationAngle,FitXMul,FitXDiv,FitYMul,FitYDiv);
981 i++;
982 } // while i<=l
983 yPos=yPos0+LF;
984 T1=T2; Index1=Index2; // for next line
985 } // if ObjMin.y+yPos<=Obj_Max.y
986 } // if !Fehler
987 } while (c!=TextEnd && !Ende && !Fehler);
988 }
989
990 // End of DrawText.Pas
991
992 sal_uInt32 ObjTextType::GetFont()
993 {
994 return sal_uLong(FontLo)+0x00010000*sal_uLong(FontHi);
995 }
996
997 void ObjTextType::SetFont(sal_uInt32 FontID)
998 {
999 FontLo=sal_uInt16(FontID & 0x0000FFFF);
1000 FontHi=sal_uInt16((FontID & 0xFFFF0000)>>16);
1001 }
1002
1003 // SGF.Ini lesen
1004 SgfFontOne::SgfFontOne()
1005 {
1006 Next=NULL;
1007 IFID=0;
1008 Bold=false;
1009 Ital=false;
1010 Sans=false;
1011 Serf=false;
1012 Fixd=false;
1013 SVFamil=FAMILY_DONTKNOW;
1014 SVChSet=RTL_TEXTENCODING_DONTKNOW;
1015 SVWidth=40;
1016 }
1017
1018 void SgfFontOne::ReadOne( const OString& rID, OString& Dsc )
1019 {
1020 if ( Dsc.getLength() < 4 || ( Dsc[0] != '(' ) )
1021 return;
1022 sal_Int32 i=1; // first letter of IF fontname. In front is a '('
1023 while ( i < Dsc.getLength() && ( Dsc[i] !=')' ) )
1024 i++;
1025 Dsc = Dsc.copy(i+1); // delete IF fontname incl. ()
1026
1027 if ( Dsc.getLength() < 2 || ( Dsc[Dsc.getLength() - 1] !=')' ) )
1028 return;
1029 i = Dsc.getLength()-2; // here is the ')' of the SV fontname
1030 sal_Int32 j=0;
1031 while ( i > 0 && ( Dsc[i] != '(' ) )
1032 {
1033 i--;
1034 j++;
1035 }
1036 SVFName = OStringToOUString(Dsc.copy(i+1,j), RTL_TEXTENCODING_IBM_437); // retrieve SV fontname
1037 Dsc = OStringBuffer(Dsc).remove(i,j).makeStringAndClear();
1038
1039 IFID = (sal_uInt32)rID.toInt32();
1040 sal_Int32 nTokenCount = comphelper::string::getTokenCount(Dsc, ' ');
1041 for (sal_Int32 nIdx = 0; nIdx < nTokenCount; ++nIdx)
1042 {
1043 OString s(Dsc.getToken(nIdx, ' '));
1044 if (!s.isEmpty())
1045 {
1046 s = s.toAsciiUpperCase();
1047 if (s.match("BOLD")) Bold=true;
1048 else if (s.match("ITAL")) Ital=true;
1049 else if (s.match("SERF")) Serf=true;
1050 else if (s.match("SANS")) Sans=true;
1051 else if (s.match("FIXD")) Fixd=true;
1052 else if (s.match("ROMAN")) SVFamil=FAMILY_ROMAN;
1053 else if (s.match("SWISS")) SVFamil=FAMILY_SWISS;
1054 else if (s.match("MODERN")) SVFamil=FAMILY_MODERN;
1055 else if (s.match("SCRIPT")) SVFamil=FAMILY_SCRIPT;
1056 else if (s.match("DECORA")) SVFamil=FAMILY_DECORATIVE;
1057 else if (s.match("ANSI")) SVChSet=RTL_TEXTENCODING_MS_1252;
1058 else if (s.match("IBMPC")) SVChSet=RTL_TEXTENCODING_IBM_850;
1059 else if (s.match("MAC")) SVChSet=RTL_TEXTENCODING_APPLE_ROMAN;
1060 else if (s.match("SYMBOL")) SVChSet=RTL_TEXTENCODING_SYMBOL;
1061 else if (s.match("SYSTEM")) SVChSet = osl_getThreadTextEncoding();
1062 else if (comphelper::string::isdigitAsciiString(s) ) SVWidth=sal::static_int_cast< sal_uInt16 >(s.toInt32());
1063 }
1064 }
1065 }
1066
1067 SgfFontLst::SgfFontLst()
1068 {
1069 pList=NULL;
1070 Last=NULL;
1071 LastID=0;
1072 LastLn=NULL;
1073 Tried=false;
1074 }
1075
1076 SgfFontLst::~SgfFontLst()
1077 {
1078 RausList();
1079 }
1080
1081 void SgfFontLst::RausList()
1082 {
1083 SgfFontOne* P;
1084 SgfFontOne* P1;
1085 P=pList;
1086 while (P!=NULL) {
1087 P1=P->Next;
1088 delete P;
1089 P=P1;
1090 }
1091 pList=NULL;
1092 Last=NULL;
1093 Tried=false;
1094 LastID=0;
1095 LastLn=NULL;
1096 }
1097
1098 void SgfFontLst::AssignFN(const OUString& rFName)
1099 { FNam=rFName; }
1100
1101 void SgfFontLst::ReadList()
1102 {
1103 if (!Tried)
1104 {
1105 Tried=true;
1106 LastID=0;
1107 LastLn=NULL;
1108 SgfFontOne* P,P1;
1109 Config aCfg(FNam);
1110 aCfg.SetGroup("SGV Fonts fuer StarView");
1111 sal_uInt16 Anz=aCfg.GetKeyCount();
1112 sal_uInt16 i;
1113 OString FID;
1114 OString Dsc;
1115
1116 for (i=0;i<Anz;i++)
1117 {
1118 FID = comphelper::string::remove(aCfg.GetKeyName(i), ' ');
1119 Dsc = aCfg.ReadKey( i );
1120 if (comphelper::string::isdigitAsciiString(FID))
1121 {
1122 P=new SgfFontOne; // new entry
1123 if (Last!=NULL) Last->Next=P; else pList=P; Last=P; // link it
1124 P->ReadOne(FID,Dsc); // interpret line
1125 }
1126 }
1127 }
1128 }
1129
1130 SgfFontOne* SgfFontLst::GetFontDesc(sal_uInt32 ID)
1131 {
1132 if (ID!=LastID) {
1133 SgfFontOne* P;
1134 P=pList;
1135 while (P!=NULL && P->IFID!=ID) P=P->Next;
1136 LastID=ID;
1137 LastLn=P;
1138 }
1139 return LastLn;
1140 }
1141
1142 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
FREE OFFICE SUITE