← Back to branch summary

~ubuntu-branches/ubuntu/utopic/texlive-bin/utopic

« back to all changes in this revision

Viewing changes to libs/t1lib/t1lib-5.1.2/doc/t1dump/t1dump_t_1.eps

  • Committer: Package Import Robot
  • Author(s): Norbert Preining
  • Date: 2012-04-10 10:16:01 UTC
  • mfrom: (1.2.3)
  • Revision ID: package-import@ubuntu.com-20120410101601-7mt8nyn280xrgza6
Tags: 2011.20120410-1
http://bugs.debian.org/64524
http://bugs.debian.org/667392
http://bugs.debian.org/667694
http://bugs.debian.org/667912
* new upstream checkout:
  - remove decls of popen and pclose (Closes: #64524) (!yow, 5 digit bug!)
  - do not declare getopt in C++, fixes FTBFS with g++ >= 4.7 
    (Closes: #667392)
* add patches (maybe to be included upstream) that allows inclusion of
  one config file in another for (x)dvipdfmx. This will be
  used by the paper code.
* fix description of libptexenc-dev package (Closes: #667694)
* remove xdvik patch, included upstream
* remove conflict with ptex-bin, we are building a transitional package now
* build with internal t1lib, as t1lib is going to disappear in
  wheezy (Closes: #667912) (no, dropping xdvi is not an option!)
  (add a lintian override otherwise this gives a lintian error)

Show diffs side-by-side

added added

removed removed

Lines of Context:
libs/t1lib/t1lib-5.1.2/doc/t1dump/t1dump_t_1.eps
 
1
%!PS-Adobe-2.0 EPSF-1.2
 
2
%%Creator: t1lib (edited manually by RMz, 2003-01-15)
 
3
%%Title: Type1Char Character Dump
 
4
%%Pages: 1
 
5
%%PageOrder: Ascend
 
6
%%BoundingBox: 0 0 280 400
 
7
%%DocumentPaperSizes: a4
 
8
%%EndComments
 
9
%!
 
10
/T1LibDict 100 dict def 
 
11
T1LibDict begin
 
12
% Setup the size from the type1 module
 
13
/t1SetupSize {
 
14
  /size exch def
 
15
} def
 
16
 
 
17
% Prepare the page. Compute scales and fill the charspace unit square
 
18
% background
 
19
/t1PreparePage {
 
20
 
 
21
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
22
  %
 
23
  % Start of Customizable Section
 
24
  %
 
25
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
26
 
 
27
  % Setup a standard linewidth
 
28
  /t1dumpstdlinewidth 1.0 def
 
29
  % Setup a scale for drawing direction arrows
 
30
  /arrowscale 3.0 def
 
31
 
 
32
  % Should we draw the device pixel grid? (1=yes, otherwise no)
 
33
  /t1drawgrid 0 def
 
34
  % Should we draw stems? (1=yes, otherwise no)
 
35
  /t1drawstems 0 def
 
36
  % Should we draw alignment zones? (1=yes, otherwise no)
 
37
  /t1drawzones 0 def
 
38
  % Should we fill the charspace unit square? (1=yes, otherwise no)
 
39
  /t1fillunitsquare 0 def
 
40
  % Should we fill the device page? (1=yes, otherwise no)
 
41
  /t1fillpage 0 def
 
42
  % Should we show path segment On-Curve points? (1=yes, otherwise no)
 
43
  /t1showoncurvepoints 0 def
 
44
  % Should we show path segment Off Curve points? (1=yes, otherwise no)
 
45
  /t1showoffcurvepoints 0 def
 
46
  % Should we show Bezier tangets and their defining points? (1=yes, otherwise no)
 
47
  /t1showbeziertangents 0 def
 
48
 
 
49
  % Define a few colors
 
50
  /t1linecolor         { 0.0 0.0 0.0 } def
 
51
  /t1hlinecolor        { 1.0 0.0 0.0 } def
 
52
  /t1slinecolor        { 0.0 0.0 0.0 } def
 
53
  /t1movecolor         { 0.0 0.0 0.0 } def
 
54
  /t1hmovecolor        { 0.0 0.0 0.0 } def
 
55
  /t1smovecolor        { 0.0 0.0 0.0 } def
 
56
  /t1curvecolor        { 0.0 0.0 0.0 } def
 
57
  /t1hcurvecolor       { 1.0 0.0 0.0 } def
 
58
  /t1scurvecolor       { 0.0 0.0 0.0 } def
 
59
  /t1sprolongatecolor  { 1.0 1.0 1.0 } def
 
60
  /t1stemcolor         { 0.0 0.0 1.0 } def
 
61
  /t1alignedstemcolor  { 1.0 0.0 1.0 } def
 
62
  /t1bottomzonecolor   { 1.0 1.0 0.0 } def
 
63
  /t1topzonecolor      { 1.0 1.0 0.0 } def
 
64
  /t1arrowcolor        { 0.0 0.0 0.0 } def
 
65
  /t1harrowcolor       { 1.0 0.0 0.0 } def
 
66
  /t1sarrowcolor       { 0.0 0.0 1.0 } def
 
67
  /t1sbwcolor          { 0.0 0.0 0.0 } def
 
68
  /t1closepathcolor    { 0.0 0.0 0.0 } def
 
69
  /t1hclosepathcolor   { 1.0 0.0 0.0 } def
 
70
  /t1sclosepathcolor   { 0.0 0.0 1.0 } def
 
71
  /t1pagecolor         { 0.7 0.7 0.7 } def
 
72
  /t1unitsquarecolor   { 0.4 0.4 0.4 } def
 
73
  /t1gridcolor         { 0.0 0.0 0.0 } def
 
74
 
 
75
  % Line scale relative to the standard linewidth
 
76
  /t1linescale 1.2 def
 
77
  /t1hlinescale 0.4 def
 
78
  /t1slinescale 0.4 def
 
79
  /t1movescale 0.4 def
 
80
  /t1hmovescale 0.4 def
 
81
  /t1smovescale 0.4 def
 
82
  /t1curvescale 1.2 def
 
83
  /t1hcurvescale 0.4 def
 
84
  /t1scurvescale 0.4 def
 
85
  /t1curvetangentscale 0.5 def
 
86
  /t1sprolongatescale 0.0 def
 
87
  /t1stemscale 0.5 def
 
88
  /t1alignedstemscale 0.5 def
 
89
  /t1bottomzonescale 0.5 def
 
90
  /t1topzonescale 0.5 def
 
91
  /t1closepathscale 0.8 def
 
92
  /t1hclosepathscale 0.4 def
 
93
  /t1sclosepathscale 0.4 def
 
94
  /t1gridscale 0.5 def
 
95
 
 
96
  % Line dash specifications (stems and zones are not configurable!) 
 
97
  /t1linedash { [2 2] 0 } def
 
98
  /t1hlinedash { [] 0 } def
 
99
  /t1slinedash { [] 0 } def
 
100
  /t1movedash { [2 2] 0 } def
 
101
  /t1hmovedash { [2 2] 0 } def
 
102
  /t1smovedash { [2 2] 0 } def
 
103
  /t1curvedash { [2 2] 0 } def
 
104
  /t1hcurvedash { [] 0 } def
 
105
  /t1scurvedash { [] 0 } def
 
106
  /t1sprolongatedash { [1 1] 0 }def
 
107
  /t1closepathdash { [2 2] 0 } def
 
108
  /t1hclosepathdash { [] 0 } def
 
109
  /t1sclosepathdash { [] 0 } def
 
110
  /t1griddash { [3 3] 0 } def
 
111
 
 
112
  % Define a clipping rectangle ROI (in charspace coordinates)
 
113
  /t1ROIxmin 0 def
 
114
  /t1ROIxmax 300 def
 
115
  /t1ROIymin -50 def
 
116
  /t1ROIymax 650 def
 
117
 
 
118
  % Device values (in bp). These must match the Bounding Box Statement!
 
119
  /xmindev 0 neg def
 
120
  /xmaxdev 280 def
 
121
  /ymindev 0 neg def
 
122
  /ymaxdev 400 def
 
123
  /dxdev 1 def
 
124
  /dydev 1 def
 
125
 
 
126
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
127
  %
 
128
  % End of Customizable Section
 
129
  %
 
130
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
131
 
 
132
  % logical pixel values
 
133
  /xminpixel t1ROIxmin 1000.0 div size mul def
 
134
  /xmaxpixel t1ROIxmax 1000.0 div size mul def
 
135
  /yminpixel t1ROIymin 1000.0 div size mul def
 
136
  /ymaxpixel t1ROIymax 1000.0 div size mul def
 
137
  /dxpixel 1 def
 
138
  /dypixel 1 def
 
139
 
 
140
  % compute scales and set minimum scale
 
141
  /scalex xmaxdev xmindev sub xmaxpixel xminpixel sub div def
 
142
  /scaley ymaxdev ymindev sub ymaxpixel yminpixel sub div def
 
143
  scalex scaley gt { /scale scaley def } { /scale scalex def } ifelse
 
144
 
 
145
  % Fill device page
 
146
  xmindev ymindev moveto
 
147
  xmaxdev 0 rlineto
 
148
  0 ymaxdev rlineto
 
149
  xmaxdev neg 0 rlineto
 
150
  0 ymaxdev neg rlineto
 
151
  closepath
 
152
  clip
 
153
  t1fillpage 1 eq
 
154
  {
 
155
    t1pagecolor setrgbcolor
 
156
    fill
 
157
  } if
 
158
 
 
159
  % reassign device values
 
160
  /xmindev xminpixel scale mul def
 
161
  /xmaxdev xmaxpixel scale mul def
 
162
  /ymindev yminpixel scale mul def
 
163
  /ymaxdev ymaxpixel scale mul def
 
164
  /dxdev   dxpixel   scale mul def
 
165
  /dydev   dypixel   scale mul def
 
166
 
 
167
  % translate coordinate system 
 
168
  xminpixel scale mul neg yminpixel scale mul neg translate
 
169
  
 
170
  % Fill unit square of charspace coordinate system 
 
171
  t1fillunitsquare 1 eq
 
172
  {
 
173
    t1unitsquarecolor setrgbcolor
 
174
    0 0 moveto
 
175
    size scale mul 0 rlineto
 
176
    0 size scale mul rlineto
 
177
    size scale mul neg 0 rlineto
 
178
    0 size scale mul neg rlineto
 
179
    closepath fill
 
180
  } if
 
181
} def
 
182
 
 
183
/t1FinishPage {
 
184
  t1drawgrid 1 eq
 
185
  {
 
186
    t1gridcolor setrgbcolor
 
187
    t1gridscale setlinewidth
 
188
    t1griddash setdash
 
189
    % draw grid and align to the point (0,0)
 
190
    0 dxdev xmaxdev {
 
191
      /xval exch def
 
192
      xval ymindev moveto
 
193
      xval ymaxdev lineto
 
194
      stroke
 
195
    } for
 
196
    0 dxdev neg xmindev {
 
197
      /xval exch def
 
198
      xval ymindev moveto
 
199
      xval ymaxdev lineto
 
200
      stroke
 
201
    } for
 
202
    0 dydev ymaxdev {
 
203
      /yval exch def
 
204
      xmindev yval moveto
 
205
      xmaxdev yval lineto
 
206
      stroke
 
207
    } for
 
208
    0 dydev neg ymindev {
 
209
      /yval exch def
 
210
      xmindev yval moveto
 
211
      xmaxdev yval lineto
 
212
      stroke
 
213
    } for
 
214
  } if
 
215
} def
 
216
 
 
217
% Define three arrow routines available for later providing the output with directions
 
218
/t1arrowhead {
 
219
  /tmpy exch def
 
220
  /tmpx exch def
 
221
  gsave
 
222
  t1arrowcolor setrgbcolor
 
223
  currx curry translate
 
224
  tmpy tmpx atan rotate
 
225
  newpath
 
226
  0 0 moveto
 
227
  0 2 arrowscale currentlinewidth neg mul mul rlineto
 
228
  6 arrowscale currentlinewidth mul mul 2 arrowscale currentlinewidth mul mul rlineto
 
229
  6 arrowscale currentlinewidth mul mul neg 2 arrowscale currentlinewidth mul mul rlineto
 
230
  closepath
 
231
  fill
 
232
  grestore
 
233
  tmpx
 
234
  tmpy
 
235
} def
 
236
/t1harrowhead {
 
237
  /tmpy exch def
 
238
  /tmpx exch def
 
239
  gsave
 
240
  t1harrowcolor setrgbcolor
 
241
  currhx currhy translate
 
242
  tmpy tmpx atan rotate
 
243
  newpath
 
244
  0 0 moveto
 
245
  0 2 arrowscale currentlinewidth neg mul mul rlineto
 
246
  6 arrowscale currentlinewidth mul mul 2 arrowscale currentlinewidth mul mul rlineto
 
247
  6 arrowscale currentlinewidth mul mul neg 2 arrowscale currentlinewidth mul mul rlineto
 
248
  closepath
 
249
  fill
 
250
  grestore
 
251
  tmpx
 
252
  tmpy
 
253
} def
 
254
/t1sarrowhead {
 
255
  /tmpy exch def
 
256
  /tmpx exch def
 
257
  gsave
 
258
  t1sarrowcolor setrgbcolor
 
259
  currsx currsy translate
 
260
  tmpy tmpx atan rotate
 
261
  newpath
 
262
  0 0 moveto
 
263
  0 2 arrowscale currentlinewidth neg mul mul rlineto
 
264
  6 arrowscale currentlinewidth mul mul 2 arrowscale currentlinewidth mul mul rlineto
 
265
  6 arrowscale currentlinewidth mul mul neg 2 arrowscale currentlinewidth mul mul rlineto
 
266
  closepath
 
267
  fill
 
268
  grestore
 
269
  tmpx
 
270
  tmpy
 
271
} def
 
272
 
 
273
/t1rlineto {
 
274
  /y2 exch scale mul def
 
275
  /x2 exch scale mul def
 
276
  t1linecolor setrgbcolor
 
277
  t1linedash setdash
 
278
  t1linescale t1dumpstdlinewidth mul setlinewidth
 
279
  t1showoncurvepoints 1 eq
 
280
  {
 
281
    newpath currx x2 add curry y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
282
  } if
 
283
  currx curry moveto
 
284
  x2 y2 rlineto
 
285
  stroke
 
286
  /currx currx x2 add def
 
287
  /curry curry y2 add def
 
288
} def
 
289
 
 
290
/t1srlineto {
 
291
  /y2 exch scale mul def
 
292
  /x2 exch scale mul def
 
293
  t1slinecolor setrgbcolor
 
294
  t1slinedash setdash
 
295
  t1slinescale t1dumpstdlinewidth mul setlinewidth
 
296
  t1showoncurvepoints 1 eq
 
297
  {
 
298
    newpath currsx x2 add currsy y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
299
  } if
 
300
  currsx currsy moveto
 
301
  x2 y2 rlineto
 
302
  stroke
 
303
  /currsx currsx x2 add def
 
304
  /currsy currsy y2 add def
 
305
} def
 
306
 
 
307
/t1sprolongate {
 
308
  /y2 exch scale mul def
 
309
  /x2 exch scale mul def
 
310
  t1sprolongatecolor setrgbcolor
 
311
  t1sprolongatedash setdash
 
312
  t1sprolongatescale t1dumpstdlinewidth mul setlinewidth
 
313
  t1showoncurvepoints 1 eq
 
314
  {
 
315
    newpath currsx x2 add currsy y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
316
  } if
 
317
  currsx currsy moveto
 
318
  x2 y2 rlineto
 
319
  stroke
 
320
  /currsx currsx x2 add def
 
321
  /currsy currsy y2 add def
 
322
} def
 
323
 
 
324
/t1hintedrlineto {
 
325
  /y2 exch scale mul def
 
326
  /x2 exch scale mul def
 
327
  t1hlinecolor setrgbcolor
 
328
  t1hlinedash setdash
 
329
  t1hlinescale t1dumpstdlinewidth mul setlinewidth
 
330
  t1showoncurvepoints 1 eq
 
331
  {
 
332
    newpath currhx x2 add currhy y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
333
  } if
 
334
  currhx currhy moveto
 
335
  x2 y2 rlineto
 
336
  stroke
 
337
  /currhx currhx x2 add def
 
338
  /currhy currhy y2 add def
 
339
} def
 
340
 
 
341
/t1rmoveto {
 
342
  /y2 exch scale mul def
 
343
  /x2 exch scale mul def
 
344
  t1movecolor setrgbcolor
 
345
  t1movedash setdash
 
346
  t1movescale t1dumpstdlinewidth mul setlinewidth
 
347
  t1showoncurvepoints 1 eq
 
348
  {
 
349
    newpath currx x2 add curry y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
350
  } if
 
351
  currx curry moveto
 
352
  x2 y2 rlineto
 
353
  stroke
 
354
  /currx currx x2 add def
 
355
  /curry curry y2 add def
 
356
  /startx currx def
 
357
  /starty curry def
 
358
} def
 
359
 
 
360
/t1srmoveto {
 
361
  /y2 exch scale mul def
 
362
  /x2 exch scale mul def
 
363
  t1smovecolor setrgbcolor
 
364
  t1smovedash setdash
 
365
  t1smovescale t1dumpstdlinewidth mul setlinewidth
 
366
  t1showoncurvepoints 1 eq
 
367
  {
 
368
    newpath currsx x2 add currsy y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
369
  } if
 
370
  currsx currsy moveto
 
371
  x2 y2 rlineto
 
372
  stroke
 
373
  /currsx currsx x2 add def
 
374
  /currsy currsy y2 add def
 
375
  /startsx currsx def
 
376
  /startsy currsy def
 
377
} def
 
378
 
 
379
/t1hintedrmoveto {
 
380
  /y2 exch scale mul def
 
381
  /x2 exch scale mul def
 
382
  t1hmovecolor setrgbcolor
 
383
  t1hmovedash setdash
 
384
  t1hmovescale t1dumpstdlinewidth mul setlinewidth
 
385
  t1showoncurvepoints 1 eq
 
386
  {
 
387
    newpath currhx x2 add currhy y2 add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
388
  } if
 
389
  currhx currhy moveto
 
390
  x2 y2 rlineto
 
391
  stroke
 
392
  /currhx currhx x2 add def
 
393
  /currhy currhy y2 add def
 
394
  /starthx currhx def
 
395
  /starthy currhy def
 
396
} def
 
397
 
 
398
/t1rrcurveto {
 
399
  /y4 exch scale mul def
 
400
  /x4 exch scale mul def
 
401
  /y3 exch scale mul def
 
402
  /x3 exch scale mul def
 
403
  /y2 exch scale mul def
 
404
  /x2 exch scale mul def
 
405
  t1curvecolor setrgbcolor
 
406
  t1curvedash setdash
 
407
  t1curvescale t1dumpstdlinewidth mul setlinewidth
 
408
  t1showoffcurvepoints 1 eq
 
409
  {
 
410
 
 
411
    newpath currx x2  add curry y2 add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
412
    newpath currx x2 x3 add add curry y2 y3 add add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
413
  } if
 
414
  t1showoncurvepoints 1 eq
 
415
  {
 
416
    newpath currx x2 x3 x4 add add add curry y2 y3 y4 add add add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
417
  } if
 
418
  t1showbeziertangents 1 eq
 
419
  {
 
420
    [2 2] 0 setdash
 
421
    t1curvetangentscale currentlinewidth mul setlinewidth
 
422
    currx curry moveto
 
423
    currx x2 add curry y2 add lineto
 
424
    stroke
 
425
    currx x2 x3 add add curry y2 y3 add add moveto
 
426
    currx x2 x3 x4 add add add curry y2 y3 y4 add add add lineto
 
427
    stroke
 
428
  } if
 
429
  t1curvedash setdash
 
430
  t1curvescale t1dumpstdlinewidth mul setlinewidth
 
431
  currx curry moveto
 
432
  x2 y2  x2 x3 add y2 y3 add  x2 x3 x4 add add y2 y3 y4 add add  rcurveto
 
433
  stroke
 
434
  /currx currx x2 x3 x4 add add add def
 
435
  /curry curry y2 y3 y4 add add add def
 
436
} def
 
437
 
 
438
/t1srrcurveto {
 
439
  /y4 exch scale mul def
 
440
  /x4 exch scale mul def
 
441
  /y3 exch scale mul def
 
442
  /x3 exch scale mul def
 
443
  /y2 exch scale mul def
 
444
  /x2 exch scale mul def
 
445
  t1scurvecolor setrgbcolor
 
446
  t1scurvedash setdash
 
447
  t1scurvescale t1dumpstdlinewidth mul setlinewidth
 
448
  t1showoffcurvepoints 1 eq
 
449
  {
 
450
    newpath currsx x2  add currsy y2 add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
451
    newpath currsx x2 x3 add add currsy y2 y3 add add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
452
  } if
 
453
  t1showoncurvepoints 1 eq
 
454
  {
 
455
    newpath currsx x2 x3 x4 add add add currsy y2 y3 y4 add add add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
456
  } if
 
457
  t1showbeziertangents 1 eq
 
458
  {
 
459
    [2 2] 0 setdash
 
460
    t1curvetangentscale currentlinewidth mul setlinewidth
 
461
    currsx currsy moveto
 
462
    currsx x2 add currsy y2 add lineto
 
463
    stroke
 
464
    currsx x2 x3 add add currsy y2 y3 add add moveto
 
465
    currsx x2 x3 x4 add add add currsy y2 y3 y4 add add add lineto
 
466
    stroke
 
467
  } if
 
468
  t1scurvedash setdash
 
469
  t1scurvescale t1dumpstdlinewidth mul setlinewidth
 
470
  currsx currsy moveto
 
471
  x2 y2  x2 x3 add y2 y3 add  x2 x3 x4 add add y2 y3 y4 add add  rcurveto
 
472
  stroke
 
473
  /currsx currsx x2 x3 x4 add add add def
 
474
  /currsy currsy y2 y3 y4 add add add def
 
475
} def
 
476
 
 
477
/t1hintedrrcurveto {
 
478
  /y4 exch scale mul def
 
479
  /x4 exch scale mul def
 
480
  /y3 exch scale mul def
 
481
  /x3 exch scale mul def
 
482
  /y2 exch scale mul def
 
483
  /x2 exch scale mul def
 
484
  t1hcurvecolor setrgbcolor
 
485
  t1hcurvedash setdash
 
486
  t1hcurvescale t1dumpstdlinewidth mul setlinewidth
 
487
  t1showoncurvepoints 1 eq
 
488
  {
 
489
    newpath currhx x2  add currhy y2 add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
490
    newpath currhx x2 x3 add add currhy y2 y3 add add 1.0 currentlinewidth mul 0 360 arc closepath fill
 
491
  } if
 
492
  t1showoncurvepoints 1 eq
 
493
  {
 
494
    newpath currhx x2 x3 x4 add add add currhy y2 y3 y4 add add add 1.5 currentlinewidth mul 0 360 arc closepath fill
 
495
  } if
 
496
  t1showbeziertangents 1 eq
 
497
  {
 
498
    [2 2] 0 setdash
 
499
    t1curvetangentscale currentlinewidth mul setlinewidth
 
500
    currhx currhy moveto
 
501
    currhx x2 add currhy y2 add lineto
 
502
    stroke
 
503
    currhx x2 x3 add add currhy y2 y3 add add moveto
 
504
    currhx x2 x3 x4 add add add currhy y2 y3 y4 add add add lineto
 
505
    stroke
 
506
  } if
 
507
  t1hcurvedash setdash
 
508
  t1hcurvescale t1dumpstdlinewidth mul setlinewidth
 
509
  currhx currhy moveto
 
510
  x2 y2  x2 x3 add y2 y3 add  x2 x3 x4 add add y2 y3 y4 add add  rcurveto
 
511
  stroke
 
512
  /currhx currhx x2 x3 x4 add add add def
 
513
  /currhy currhy y2 y3 y4 add add add def
 
514
} def
 
515
 
 
516
/t1sbw {
 
517
  /wy exch scale mul def
 
518
  /wx exch scale mul def
 
519
  /sby exch scale mul def
 
520
  /sbx exch scale mul def
 
521
  t1sbwcolor setrgbcolor
 
522
  newpath sbx sby 3 0 360 arc closepath fill
 
523
  newpath wx  wy  3 0 360 arc closepath fill
 
524
  /currx  sbx def
 
525
  /curry  sby def
 
526
  /currhx sbx def
 
527
  /currhy sby def
 
528
  /currsx sbx def
 
529
  /currsy sby def
 
530
} def
 
531
 
 
532
/t1closepath {
 
533
  t1closepathdash setdash
 
534
  t1closepathscale t1dumpstdlinewidth mul setlinewidth
 
535
  t1closepathcolor setrgbcolor
 
536
  currx curry moveto
 
537
  startx starty lineto
 
538
  stroke
 
539
} def
 
540
 
 
541
/t1sclosepath {
 
542
  t1sclosepathdash setdash
 
543
  t1sclosepathscale t1dumpstdlinewidth mul setlinewidth
 
544
  t1sclosepathcolor setrgbcolor
 
545
  currsx currsy moveto
 
546
  startsx startsy lineto
 
547
  stroke
 
548
} def
 
549
 
 
550
/t1hintedclosepath {
 
551
  t1hclosepathdash setdash
 
552
  t1hclosepathscale t1dumpstdlinewidth mul setlinewidth
 
553
  t1hclosepathcolor setrgbcolor
 
554
  currhx currhy moveto
 
555
  starthx starthy lineto
 
556
  stroke
 
557
} def
 
558
 
 
559
/t1vstem {
 
560
  t1drawstems 1 eq
 
561
  {
 
562
    /stemwidth exch scale mul def
 
563
    /stemstart exch scale mul def
 
564
    t1stemscale t1dumpstdlinewidth mul setlinewidth
 
565
    t1stemcolor setrgbcolor
 
566
    [] 0 setdash
 
567
    stemstart ymindev moveto
 
568
    stemstart ymaxdev lineto
 
569
    stroke
 
570
    [2 2] 0 setdash
 
571
    stemwidth stemstart add ymindev moveto
 
572
    stemwidth stemstart add ymaxdev lineto
 
573
    stroke
 
574
  } if
 
575
} def
 
576
 
 
577
/t1alignedvstem {
 
578
  t1drawstems 1 eq
 
579
  {
 
580
    /stemwidth exch scale mul def
 
581
    /stemstart exch scale mul def
 
582
    t1alignedstemscale t1dumpstdlinewidth mul setlinewidth
 
583
    t1alignedstemcolor setrgbcolor
 
584
    [] 0 setdash
 
585
    stemstart ymindev moveto
 
586
    stemstart ymaxdev lineto
 
587
    stroke
 
588
    [2 2] 0 setdash
 
589
    stemwidth stemstart add ymindev moveto
 
590
    stemwidth stemstart add ymaxdev lineto
 
591
    stroke
 
592
  } if
 
593
} def
 
594
 
 
595
/t1hstem {
 
596
  t1drawstems 1 eq
 
597
  {
 
598
    /stemwidth exch scale mul def
 
599
    /stemstart exch scale mul def
 
600
    t1stemscale t1dumpstdlinewidth mul setlinewidth
 
601
    t1stemcolor setrgbcolor
 
602
    [] 0 setdash
 
603
    xmindev stemstart moveto
 
604
    xmaxdev stemstart lineto
 
605
    stroke
 
606
    [2 2] 0 setdash
 
607
    xmindev stemwidth stemstart add moveto
 
608
    xmaxdev stemwidth stemstart add lineto
 
609
    stroke
 
610
  } if
 
611
} def
 
612
 
 
613
/t1alignedhstem {
 
614
  t1drawstems 1 eq
 
615
  {
 
616
    /stemwidth exch scale mul def
 
617
    /stemstart exch scale mul def
 
618
    t1alignedstemscale t1dumpstdlinewidth mul setlinewidth
 
619
    t1alignedstemcolor setrgbcolor
 
620
    [] 0 setdash
 
621
    xmindev stemstart moveto
 
622
    xmaxdev stemstart lineto
 
623
    stroke
 
624
    [2 2] 0 setdash
 
625
    xmindev stemwidth stemstart add moveto
 
626
    xmaxdev stemwidth stemstart add lineto
 
627
    stroke
 
628
  } if
 
629
} def
 
630
 
 
631
/t1bottomzone {
 
632
  t1drawzones 1 eq
 
633
  {
 
634
    /bottom exch scale mul def
 
635
    /top    exch scale mul def
 
636
    t1bottomzonescale t1dumpstdlinewidth mul setlinewidth
 
637
    t1bottomzonecolor setrgbcolor
 
638
    [] 0 setdash
 
639
    xmindev bottom moveto
 
640
    xmaxdev bottom lineto
 
641
    stroke
 
642
    [2 2] 0 setdash
 
643
    xmindev top moveto
 
644
    xmaxdev top lineto
 
645
    stroke
 
646
  } if
 
647
} def
 
648
 
 
649
/t1topzone {
 
650
  t1drawzones 1 eq
 
651
  {
 
652
    /bottom exch scale mul def
 
653
    /top    exch scale mul def
 
654
    t1topzonescale t1dumpstdlinewidth mul setlinewidth
 
655
    t1topzonecolor setrgbcolor
 
656
    [2 2] 0 setdash
 
657
    xmindev bottom moveto
 
658
    xmaxdev bottom lineto
 
659
    stroke
 
660
    [] 0 setdash
 
661
    xmindev top moveto
 
662
    xmaxdev top lineto
 
663
    stroke
 
664
  } if
 
665
} def
 
666
 
 
667
end
 
668
 
 
669
% Next follows drawing code from charstring commands:
 
670
T1LibDict begin
 
671
 
 
672
gsave
 
673
15.000001 t1SetupSize
 
674
t1PreparePage
 
675
-0.329987 0.000000 t1bottomzone
 
676
10.244583 10.574570 t1topzone
 
677
6.464737 6.719727 t1topzone
 
678
9.989594 10.154587 t1topzone
 
679
-3.089874 -2.909882 t1bottomzone
 
680
-0.164993 0.374985 t1hstem
 
681
0.000000 1.000000 t1alignedhstem
 
682
2.414902 0.299988 t1hstem
 
683
2.000000 1.000000 t1alignedhstem
 
684
5.999756 0.464981 t1hstem
 
685
5.000000 1.000000 t1alignedhstem
 
686
8.924637 0.299988 t1hstem
 
687
9.000000 1.000000 t1alignedhstem
 
688
1.559937 1.034958 t1vstem
 
689
2.000000 1.000000 t1alignedvstem
 
690
4.604813 0.374985 t1vstem
 
691
4.000000 1.000000 t1alignedvstem
 
692
0.284988 0.000000 0.284988 0.000000 t1sbw
 
693
2.309906 5.999756 t1srmoveto
 
694
0.000000 -0.112495 t1sprolongate
 
695
2.144913 0.000000 t1srlineto
 
696
0.112495 0.000000 t1sprolongate
 
697
0.000000 0.112495 t1sprolongate
 
698
0.000000 0.464981 t1srlineto
 
699
0.000000 0.112495 t1sprolongate
 
700
-0.112495 0.000000 t1sprolongate
 
701
-2.144913 0.000000 t1srlineto
 
702
-0.000000 -0.112495 t1sprolongate
 
703
0.112495 -0.000000 t1sprolongate
 
704
0.000000 2.759888 t1srlineto
 
705
0.000000 0.112495 t1sprolongate
 
706
-0.112495 0.000000 t1sprolongate
 
707
-0.374985 0.000000 t1srlineto
 
708
-0.111132 0.000000 t1sprolongate
 
709
-0.001355 -0.111124 t1sprolongate
 
710
-0.014942 -1.225209 -0.444926 -1.502841 -1.367155 -0.055802 t1srrcurveto
 
711
-0.107908 -0.004404 t1sprolongate
 
712
0.000000 -0.107997 t1sprolongate
 
713
0.000000 -0.329987 t1srlineto
 
714
0.000000 -0.112495 t1sprolongate
 
715
0.112495 0.000000 t1sprolongate
 
716
1.274948 0.000000 t1srlineto
 
717
-0.000000 0.112495 t1sprolongate
 
718
-0.112495 -0.000000 t1sprolongate
 
719
0.000000 -4.139832 t1srlineto
 
720
0.000000 -1.938169 1.481412 -0.199244 0.566005 0.000000 t1srrcurveto
 
721
1.163073 0.000000 0.434362 1.158258 0.000000 0.979156 t1srrcurveto
 
722
0.000000 0.854965 t1srlineto
 
723
0.000000 0.112495 t1sprolongate
 
724
-0.112495 0.000000 t1sprolongate
 
725
-0.374985 0.000000 t1srlineto
 
726
-0.112495 0.000000 t1sprolongate
 
727
0.000000 -0.112495 t1sprolongate
 
728
0.000000 -0.824966 t1srlineto
 
729
0.000000 -1.086171 -0.432363 -0.481265 -0.460100 0.000000 t1srrcurveto
 
730
-0.872319 0.000000 -0.020145 1.203144 0.000000 0.304295 t1srrcurveto
 
731
0.000000 4.169830 t1srlineto
 
732
-0.112495 0.000000 t1sprolongate
 
733
t1sclosepath
 
734
-0.112495 0.112495 t1srmoveto
 
735
-0.000000 -0.112495 t1sprolongate
 
736
0.000000 -4.169830 t1srlineto
 
737
0.000000 -0.205685 -0.020145 -1.526745 1.137599 0.000000 t1srrcurveto
 
738
0.649854 0.000000 0.467600 0.658688 0.000000 1.133739 t1srrcurveto
 
739
0.000000 0.824966 t1srlineto
 
740
-0.112495 -0.000000 t1sprolongate
 
741
-0.000000 -0.112495 t1sprolongate
 
742
0.374985 0.000000 t1srlineto
 
743
0.000000 0.112495 t1sprolongate
 
744
-0.112495 0.000000 t1sprolongate
 
745
0.000000 -0.854965 t1srlineto
 
746
0.000000 -0.940766 -0.405604 -0.971656 -0.966840 0.000000 t1srrcurveto
 
747
-0.513951 0.000000 -1.308475 0.160742 0.000000 1.751680 t1srrcurveto
 
748
0.000000 4.139832 t1srlineto
 
749
-0.000000 0.112495 t1sprolongate
 
750
-0.112495 -0.000000 t1sprolongate
 
751
-1.274948 0.000000 t1srlineto
 
752
0.000000 -0.112495 t1sprolongate
 
753
0.112495 0.000000 t1sprolongate
 
754
0.000000 0.329987 t1srlineto
 
755
-0.112495 -0.000000 t1sprolongate
 
756
0.004588 -0.112402 t1sprolongate
 
757
1.572725 0.064193 0.455038 1.707028 0.015057 1.234691 t1srrcurveto
 
758
-0.112487 0.001372 t1sprolongate
 
759
-0.000000 -0.112495 t1sprolongate
 
760
0.374985 0.000000 t1srlineto
 
761
0.000000 0.112495 t1sprolongate
 
762
-0.112495 0.000000 t1sprolongate
 
763
0.000000 -2.759888 t1srlineto
 
764
-0.000000 -0.112495 t1sprolongate
 
765
0.112495 -0.000000 t1sprolongate
 
766
2.144913 0.000000 t1srlineto
 
767
0.000000 0.112495 t1sprolongate
 
768
-0.112495 0.000000 t1sprolongate
 
769
0.000000 -0.464981 t1srlineto
 
770
0.112495 -0.000000 t1sprolongate
 
771
-0.000000 0.112495 t1sprolongate
 
772
-2.144913 0.000000 t1srlineto
 
773
-0.112495 -0.000000 t1sprolongate
 
774
t1sclosepath
 
775
0.112495 -4.282326 t1srmoveto
 
776
t1FinishPage
 
777
0.284988 0.000000 0.284988 0.000000 t1sbw
 
778
2.309906 5.999756 t1rmoveto
 
779
2.144913 0.000000 t1rlineto
 
780
0.000000 0.464981 t1rlineto
 
781
-2.144913 0.000000 t1rlineto
 
782
0.000000 2.759888 t1rlineto
 
783
-0.374985 0.000000 t1rlineto
 
784
-0.014999 -1.229950 -0.449982 -1.604935 -1.469940 -0.059998 t1rrcurveto
 
785
0.000000 -0.329987 t1rlineto
 
786
1.274948 0.000000 t1rlineto
 
787
0.000000 -4.139832 t1rlineto
 
788
0.000000 -1.844925 1.394943 -0.179993 0.539978 0.000000 t1rrcurveto
 
789
1.064957 0.000000 0.419983 1.064957 0.000000 0.959961 t1rrcurveto
 
790
0.000000 0.854965 t1rlineto
 
791
-0.374985 0.000000 t1rlineto
 
792
0.000000 -0.824966 t1rlineto
 
793
0.000000 -1.109955 -0.449982 -0.569977 -0.554977 0.000000 t1rrcurveto
 
794
-1.004959 0.000000 0.000000 1.364944 0.000000 0.254990 t1rrcurveto
 
795
t1closepath
 
796
t1FinishPage
 
797
grestore
 
798
 
 
799
end