Fontamania!/Fontamania.iso/pgstream/script.ps

Text File | 1985-11-21 | 16KB | 1,132 lines

% COPYRIGHT 1988
% Soft-Logik Publishing Corp
%  11131 F South Towne Sq.
%  St. Louis  MO  63123
%  [phone]
% No Reproduction, In Whole Or Part, Without Permission.

FontDirectory /Script known not
    { }
    {
          {currentfile (     ) readstring
               {(%%%%%) eq { exit }
        if}
               { pop }
             ifelse
         }
     loop
    }
ifelse

/BuildCharDict 20 dict def
/KazFont 14 dict def
KazFont begin
/WidthFactor 1.0 def
/FontType 3 def
/FontMatrix [.001 0 0 .001 0 0] def
/FontBBox [-75 -330 1238 800] def
/Mx 256 array def
0 1 255 {Mx exch 0 put} for
Mx 32 216 put
Mx 33 216 put
Mx 39 216 put
Mx 44 216 put
Mx 46 216 put
Mx 58 216 put
Mx 59 216 put
Mx 65 422 put
Mx 66 386 put
Mx 67 324 put
Mx 68 422 put
Mx 69 324 put
Mx 70 278 put
Mx 71 422 put
Mx 72 436 put
Mx 73 216 put
Mx 74 216 put
Mx 75 436 put
Mx 76 216 put
Mx 77 650 put
Mx 78 436 put
Mx 79 350 put
Mx 80 436 put
Mx 81 422 put
Mx 82 366 put
Mx 83 324 put
Mx 84 216 put
Mx 85 436 put
Mx 86 386 put
Mx 87 594 put
Mx 88 338 put
Mx 89 436 put
Mx 90 348 put
Mx 97 422 put
Mx 98 386 put
Mx 99 324 put
Mx 100 422 put
Mx 101 324 put
Mx 102 278 put
Mx 103 422 put
Mx 104 436 put
Mx 105 216 put
Mx 106 216 put
Mx 107 436 put
Mx 108 216 put
Mx 109 650 put
Mx 110 436 put
Mx 111 350 put
Mx 112 436 put
Mx 113 422 put
Mx 114 366 put
Mx 115 324 put
Mx 116 216 put
Mx 117 436 put
Mx 118 386 put
Mx 119 594 put
Mx 120 338 put
Mx 121 436 put
Mx 122 348 put
Mx 194 422 put
Mx 196 422 put
Mx 202 324 put
Mx 203 324 put
Mx 206 216 put
Mx 207 216 put
Mx 212 350 put
Mx 214 350 put
Mx 219 436 put
Mx 220 436 put
Mx 222 436 put
Mx 226 422 put
Mx 228 422 put
Mx 234 324 put
Mx 235 324 put
Mx 238 216 put
Mx 239 216 put
Mx 244 350 put
Mx 246 350 put
Mx 251 436 put
Mx 252 436 put
Mx 254 436 put
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
Encoding 33 /33 put
Encoding 39 /39 put
Encoding 44 /44 put
Encoding 46 /46 put
Encoding 58 /58 put
Encoding 59 /59 put
Encoding 65 /65 put
Encoding 66 /66 put
Encoding 67 /67 put
Encoding 68 /68 put
Encoding 69 /69 put
Encoding 70 /70 put
Encoding 71 /71 put
Encoding 72 /72 put
Encoding 73 /73 put
Encoding 74 /74 put
Encoding 75 /75 put
Encoding 76 /76 put
Encoding 77 /77 put
Encoding 78 /78 put
Encoding 79 /79 put
Encoding 80 /80 put
Encoding 81 /81 put
Encoding 82 /82 put
Encoding 83 /83 put
Encoding 84 /84 put
Encoding 85 /85 put
Encoding 86 /86 put
Encoding 87 /87 put
Encoding 88 /88 put
Encoding 89 /89 put
Encoding 90 /90 put
Encoding 97 /97 put
Encoding 98 /98 put
Encoding 99 /99 put
Encoding 100 /100 put
Encoding 101 /101 put
Encoding 102 /102 put
Encoding 103 /103 put
Encoding 104 /104 put
Encoding 105 /105 put
Encoding 106 /106 put
Encoding 107 /107 put
Encoding 108 /108 put
Encoding 109 /109 put
Encoding 110 /110 put
Encoding 111 /111 put
Encoding 112 /112 put
Encoding 113 /113 put
Encoding 114 /114 put
Encoding 115 /115 put
Encoding 116 /116 put
Encoding 117 /117 put
Encoding 118 /118 put
Encoding 119 /119 put
Encoding 120 /120 put
Encoding 121 /121 put
Encoding 122 /122 put
Encoding 194 /194 put
Encoding 196 /196 put
Encoding 201 /201 put
Encoding 226 /226 put
Encoding 228 /228 put
/CharacterDefs 256 dict def
CharacterDefs /.notdef {} put
CharacterDefs /33
{ n
162 47 m
196 47 196 3 162 3 c
131 3 131 47 162 47 c
162 90 m
141 579 l
141 608 184 608 184 579 c
160 91 l
s
 } put

CharacterDefs /39
{ n
162 601 m
196 601 196 558 162 514 c
162 514 182 558 162 558 c
131 558 131 601 162 601 c
s
 } put

CharacterDefs /44
{ n
162 47 m
196 47 196 3 162 -40 c
162 -40 182 3 162 3 c
131 3 131 47 162 47 c
s
 } put

CharacterDefs /46
{ n
162 47 m
196 47 196 3 162 3 c
131 3 131 47 162 47 c
s
 } put

CharacterDefs /58
{ n
162 47 m
196 47 196 3 162 3 c
131 3 131 47 162 47 c
162 312 m
194 312 194 268 162 268 c
131 268 131 312 162 312 c
s
 } put

CharacterDefs /59
{ n
162 47 m
196 47 196 3 162 -40 c
162 -40 182 3 162 3 c
131 3 131 47 162 47 c
162 312 m
194 312 194 268 162 268 c
131 268 131 312 165 312 c
s
 } put

CharacterDefs /65
{ n
s
 } put

CharacterDefs /66
{ n
s
 } put

CharacterDefs /67
{ n
s
 } put

CharacterDefs /68
{ n
s
 } put

CharacterDefs /69
{ n
s
 } put

CharacterDefs /70
{ n
s
 } put

CharacterDefs /71
{ n
s
 } put

CharacterDefs /72
{ n
s
 } put

CharacterDefs /73
{ n
s
 } put

CharacterDefs /74
{ n
s
 } put

CharacterDefs /75
{ n
s
 } put

CharacterDefs /76
{ n
s
 } put

CharacterDefs /77
{ n
s
 } put

CharacterDefs /78
{ n
s
 } put

CharacterDefs /79
{ n
s
 } put

CharacterDefs /80
{ n
s
 } put

CharacterDefs /81
{ n
s
 } put

CharacterDefs /82
{ n
s
 } put

CharacterDefs /83
{ n
s
 } put

CharacterDefs /84
{ n
s
 } put

CharacterDefs /85
{ n
s
 } put

CharacterDefs /86
{ n
s
 } put

CharacterDefs /87
{ n
s
 } put

CharacterDefs /88
{ n
s
 } put

CharacterDefs /89
{ n
s
 } put

CharacterDefs /90
{ n
s
 } put

CharacterDefs /97
{ n
435 3 m
109 112 m
109 235 158 312 247 312 c
336 203 m
336 80 288 3 218 3 c
109 119 m
109 71 124 3 218 3 c
336 198 m
336 273 309 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
158 112 m
158 206 l
336 302 m
375 302 l
375 119 l
375 49 382 3 435 3 c
109 136 m
105 80 71 3 25 3 c
355 302 m
336 302 l
336 119 l
336 71 336 3 435 3 c
s
 } put

CharacterDefs /98
{ n
360 203 m
360 80 312 3 242 3 c
143 119 m
143 71 143 3 242 3 c
360 194 m
360 283 360 312 331 312 c
182 119 m
182 49 189 3 242 3 c
182 109 m
182 601 l
143 601 l
143 119 l
143 203 m
143 80 95 3 25 3 c
312 268 m
312 237 312 170 358 170 c
312 256 m
312 285 312 312 331 312 c
336 73 m
346 49 367 1 411 3 c
s
 } put

CharacterDefs /99
{ n
109 112 m
109 235 158 312 247 312 c
109 119 m
109 71 124 3 218 3 c
336 220 m
334 278 319 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
350 3 l
158 112 m
158 203 l
336 240 m
336 215 336 174 297 174 c
254 174 252 223 297 223 c
295 223 m
295 278 281 312 247 312 c
109 136 m
109 80 71 3 25 3 c
s
 } put

CharacterDefs /100
{ n
435 3 m
109 112 m
109 235 158 312 247 312 c
336 203 m
336 80 288 3 218 3 c
109 119 m
109 71 124 3 218 3 c
336 198 m
336 273 309 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
158 112 m
158 206 l
336 601 m
375 601 l
375 119 l
375 49 382 3 435 3 c
109 136 m
105 80 71 3 25 3 c
355 601 m
336 601 l
336 119 l
336 71 336 3 435 3 c
s
 } put

CharacterDefs /101
{ n
109 112 m
109 235 158 312 247 312 c
109 119 m
109 71 124 3 218 3 c
336 220 m
336 278 319 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
350 3 l
158 112 m
158 203 l
336 240 m
336 153 273 131 215 131 c
158 162 m
158 146 191 131 213 131 c
295 223 m
295 278 281 312 247 312 c
295 235 m
295 148 252 133 215 131 c
109 136 m
109 80 71 3 25 3 c
s
 } put

CharacterDefs /102
{ n
143 495 m
143 -286 l
182 -286 l
143 126 m
119 68 95 3 25 3 c
182 495 m
182 -286 l
143 485 m
143 534 143 601 242 601 c
182 485 m
182 555 189 601 242 601 c
302 522 m
302 555 295 601 242 601 c
112 52 m
302 531 m
302 502 285 466 278 437 c
182 141 l
297 3 m
182 3 l
143 3 m
121 3 l
s
 } put

CharacterDefs /103
{ n
109 112 m
109 235 158 312 247 312 c
336 203 m
336 80 288 3 218 3 c
109 119 m
109 71 124 3 218 3 c
336 198 m
336 273 309 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 199 3 c
158 112 m
158 203 l
336 302 m
375 302 l
375 3 l
375 -149 336 -298 220 -298 c
266 -298 336 -264 336 -28 c
336 312 l
158 -199 m
158 -223 158 -298 223 -298 c
158 -214 m
158 -115 230 -47 336 -14 c
375 -6 m
399 3 418 3 444 3 c
109 136 m
105 80 71 3 25 3 c
s
 } put

CharacterDefs /104
{ n
143 3 m
143 601 l
143 601 m
182 601 l
182 3 l
143 3 l
182 141 m
182 247 220 312 309 312 c
399 109 m
399 198 l
399 273 372 312 309 312 c
360 107 m
360 198 l
360 271 350 312 309 312 c
182 141 m
143 203 m
143 80 95 3 25 3 c
360 119 m
360 71 360 3 459 3 c
399 119 m
399 49 406 3 459 3 c
s
 } put

CharacterDefs /105
{ n
160 302 m
143 302 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 302 m
182 302 l
182 119 l
182 49 189 3 242 3 c
141 411 m
141 440 184 440 184 411 c
184 382 141 382 141 411 c
s
 } put

CharacterDefs /106
{ n
143 203 m
143 80 95 3 25 3 c
143 302 m
182 302 l
182 3 l
182 -149 143 -298 27 -298 c
73 -298 143 -264 143 -28 c
143 312 l
-35 -199 m
-35 -223 -35 -298 30 -298 c
-35 -214 m
-35 -115 37 -47 143 -14 c
182 -6 m
206 3 225 3 242 3 c
141 411 m
141 444 184 442 184 411 c
184 377 141 377 141 411 c
s
 } put

CharacterDefs /107
{ n
143 3 m
143 601 l
143 601 m
182 601 l
182 3 l
143 3 l
182 141 m
182 247 220 312 309 312 c
399 208 m
399 273 372 312 309 312 c
360 208 m
360 271 350 312 309 312 c
182 141 m
143 203 m
143 80 95 3 25 3 c
360 90 m
360 71 360 3 459 3 c
399 93 m
399 49 406 3 459 3 c
360 218 m
360 184 350 150 309 150 c
399 218 m
399 184 372 150 309 150 c
399 83 m
399 117 372 150 309 150 c
360 83 m
360 117 350 150 309 150 c
s
 } put

CharacterDefs /108
{ n
160 601 m
143 601 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 601 m
182 601 l
182 119 l
182 49 189 3 242 3 c
s
 } put

CharacterDefs /109
{ n
143 3 m
143 302 l
360 3 m
360 208 l
143 302 m
182 302 l
182 3 l
143 3 l
399 206 m
399 3 l
355 3 l
182 141 m
182 247 220 312 309 312 c
399 198 m
399 273 372 312 309 312 c
360 198 m
360 271 350 312 309 312 c
182 141 m
399 141 m
399 247 435 312 529 312 c
577 208 m
577 119 l
577 71 577 3 676 3 c
616 107 m
616 198 l
616 273 589 312 527 312 c
577 198 m
577 271 567 312 527 312 c
143 203 m
143 80 95 3 25 3 c
616 119 m
616 49 623 3 676 3 c
s
 } put

CharacterDefs /110
{ n
143 3 m
143 302 l
143 302 m
182 302 l
182 3 l
143 3 l
182 141 m
182 247 220 312 309 312 c
399 109 m
399 198 l
399 273 372 312 309 312 c
360 107 m
360 198 l
360 271 350 312 309 312 c
182 141 m
143 203 m
143 80 95 3 25 3 c
360 119 m
360 71 360 3 459 3 c
399 119 m
399 49 406 3 459 3 c
s
 } put

CharacterDefs /111
{ n
109 112 m
109 235 158 312 247 312 c
336 203 m
336 80 288 3 218 3 c
109 119 m
109 71 124 3 218 3 c
336 198 m
336 273 309 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
158 112 m
158 206 l
109 136 m
105 80 71 3 25 3 c
s
 } put

CharacterDefs /112
{ n
143 -286 m
143 302 l
143 302 m
182 302 l
182 -286 l
143 -286 l
182 141 m
182 247 220 312 309 312 c
399 109 m
399 198 l
399 273 372 312 309 312 c
360 107 m
360 198 l
360 271 350 312 309 312 c
182 141 m
143 203 m
143 80 95 3 25 3 c
360 119 m
360 71 360 3 459 3 c
399 119 m
399 49 406 3 459 3 c
s
 } put

CharacterDefs /113
{ n
435 3 m
420 3 375 -16 375 -74 c
109 112 m
109 235 158 312 247 312 c
336 203 m
336 80 288 3 218 3 c
109 119 m
109 71 124 3 218 3 c
336 198 m
336 273 309 312 247 312 c
158 196 m
158 240 184 312 247 312 c
158 119 m
158 49 165 3 218 3 c
158 112 m
158 206 l
109 136 m
105 80 71 3 25 3 c
336 302 m
375 302 l
375 -286 l
336 -286 l
331 302 l
s
 } put

CharacterDefs /114
{ n
100 329 m
100 252 177 312 235 312 c
324 109 m
324 198 l
324 273 297 312 235 312 c
285 107 m
285 198 l
285 271 276 312 235 312 c
143 203 m
143 80 143 3 25 3 c
285 119 m
285 71 285 3 384 3 c
324 119 m
324 49 331 3 384 3 c
100 319 m
100 360 143 360 143 319 c
143 191 l
s
 } put

CharacterDefs /115
{ n
25 3 m
47 3 59 25 66 32 c
206 326 l
232 387 182 387 206 326 c
206 281 331 278 331 121 c
331 80 283 3 213 3 c
119 3 102 52 105 73 c
105 107 153 107 153 73 c
153 49 131 52 129 23 c
213 3 m
256 3 283 73 283 160 c
283 278 206 278 206 326 c
350 3 m
322 3 302 32 295 42 c
s
 } put

CharacterDefs /116
{ n
162 435 m
143 435 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 435 m
182 435 l
182 119 l
182 49 189 3 242 3 c
92 350 m
143 350 l
182 350 m
242 350 l
s
 } put

CharacterDefs /117
{ n
160 302 m
143 302 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 302 m
182 302 l
182 119 l
182 49 189 3 242 3 c
360 203 m
360 80 312 3 242 3 c
379 305 m
360 302 l
360 119 l
360 71 360 3 459 3 c
360 302 m
399 302 l
399 119 l
399 49 406 3 459 3 c
s
 } put

CharacterDefs /118
{ n
411 3 m
377 3 355 49 346 78 c
370 203 m
370 80 312 3 242 3 c
133 119 m
133 71 148 3 242 3 c
370 194 m
370 283 370 312 341 312 c
182 119 m
182 49 189 3 242 3 c
182 112 m
182 254 l
182 191 133 191 133 109 c
133 136 m
129 80 95 3 25 3 c
322 268 m
322 237 322 170 367 170 c
322 256 m
322 285 322 312 341 312 c
95 244 m
119 336 182 336 182 244 c
s
 } put

CharacterDefs /119
{ n
440 3 m
341 203 m
341 80 293 3 242 3 c
133 119 m
133 71 148 3 242 3 c
182 119 m
182 49 189 3 242 3 c
182 112 m
182 254 l
182 191 133 191 133 109 c
133 136 m
129 80 95 3 25 3 c
95 244 m
119 336 182 336 182 244 c
360 302 m
341 302 l
341 119 l
341 71 341 3 440 3 c
341 302 m
379 302 l
379 119 l
379 49 387 3 461 3 c
567 201 m
567 80 510 3 440 3 c
567 194 m
567 283 567 312 538 312 c
519 268 m
519 235 519 170 565 170 c
519 256 m
519 285 519 312 538 312 c
618 3 m
575 3 553 49 541 73 c
s
 } put

CharacterDefs /120
{ n
189 189 m
189 273 179 312 138 312 c
138 312 107 312 83 288 c
189 119 m
189 71 189 3 288 6 c
227 196 m
230 273 201 312 138 312 c
227 119 m
227 49 235 3 288 3 c
358 3 l
227 112 m
227 203 l
189 109 m
189 203 l
189 80 150 3 105 3 c
73 3 73 47 105 47 c
136 47 136 3 105 3 c
25 3 l
227 112 m
227 235 266 312 312 312 c
343 312 343 268 312 268 c
281 268 281 312 312 312 c
s
 } put

CharacterDefs /121
{ n
160 302 m
143 302 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 302 m
182 302 l
182 119 l
182 49 189 3 242 3 c
360 203 m
360 80 312 3 242 3 c
379 302 m
360 302 l
360 -28 l
360 -264 290 -298 244 -298 c
360 302 m
399 302 l
399 3 l
399 -149 360 -298 244 -298 c
182 -199 m
182 -223 182 -298 244 -298 c
182 -214 m
182 -115 254 -47 360 -14 c
399 -6 m
423 1 442 3 459 3 c
s
 } put

CharacterDefs /122
{ n
83 329 m
83 259 346 240 346 290 c
150 3 m
254 360 346 319 346 290 c
126 203 m
126 80 126 3 25 3 c
150 3 m
184 71 206 30 232 23 c
268 3 322 3 370 3 c
150 3 m
184 114 249 80 268 49 c
268 47 324 -6 370 3 c
83 319 m
83 360 126 360 126 319 c
126 191 l
s
 } put

CharacterDefs /194
{ n
160 389 m
203 391 235 442 247 466 c
259 442 290 391 334 389 c
307 389 247 411 235 432 c
218 418 187 389 160 389 c
s
 } put

CharacterDefs /196
{ n
160 411 m
160 440 203 440 203 411 c
203 382 160 382 160 411 c
290 411 m
290 440 334 440 334 411 c
334 382 290 382 290 411 c
s
 } put

CharacterDefs /201
{ n
160 302 m
143 302 l
143 119 l
143 71 143 3 242 3 c
143 203 m
143 80 95 3 25 3 c
143 302 m
182 302 l
182 119 l
182 49 189 3 242 3 c
s
 } put

CharacterDefs /226
{ n
160 389 m
203 391 235 442 247 466 c
259 442 290 391 334 389 c
307 389 247 411 235 432 c
218 418 187 389 160 389 c
s
 } put

CharacterDefs /228
{ n
160 411 m
160 440 203 440 203 411 c
203 382 160 382 160 411 c
290 411 m
290 440 334 440 334 411 c
334 382 290 382 290 411 c
s
 } put

/BuildChar
{BuildCharDict begin
/char exch def
/fontdict exch def
/width fontdict /Mx get char get def
/charname fontdict /Encoding get char get def
/charproc fontdict /CharacterDefs get charname get def

width 0 -40 -300 1333 800 setcachedevice

gsave
/f {eofill} def
/s {stroke} def
/n {newpath} def
/e {closepath} def
/m {transform round exch round exch itransform moveto} def
/l {transform round exch round exch itransform lineto} def
/c {transform round exch round exch itransform 6 2 roll
transform round exch round exch itransform 6 2 roll
transform round exch round exch itransform 6 2 roll
curveto} def
/a {arc} def
/an {arcn} def
0 setlinecap 0 setlinejoin 10 setlinewidth .5 setflat charproc
grestore
end
} def
end

/Script KazFont definefont pop

%%%%%%%%%