123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143 |
- level2dict begin
- /currentshared /.currentglobal load def
- /scheck /.gcheck load def
- /shareddict currentdict /globaldict .knownget not { 20 dict } if def
- end
- systemdict begin
- /SharedFontDirectory .FontDirectory .gcheck
- { .currentglobal false .setglobal
- /LocalFontDirectory .FontDirectory dup maxlength dict copy
- .forcedef
- .setglobal .FontDirectory
- }
- { /LocalFontDirectory .FontDirectory
- .forcedef
- 50 dict
- }
- ifelse def
- end
- level2dict begin
- /.setglobal
- { dup .setglobal
- //systemdict /FontDirectory .currentglobal
- { //SharedFontDirectory }
- { /LocalFontDirectory .systemvar }
- ifelse .forceput pop
- } .bind odef
-
- /setshared { /.setglobal .systemvar exec } odef
- .currentglobal setshared
- /selectfont
- { 1 index findfont
- 1 index dup type /arraytype eq { makefont } { scalefont } ifelse
- setfont pop pop
- } odef
- /undefinefont
- { .FontDirectory 1 index .undef
- .currentglobal
- {
- //systemdict /LocalFontDirectory .knownget
- { 1 index .undef }
- if
- }
- {
-
- //systemdict /SharedFontDirectory .knownget
- { 1 index .knownget
- { .FontDirectory 2 index 3 -1 roll put }
- if
- }
- if
- }
- ifelse pop
- } odef
- /restore
- { dup //restore
- /LocalFontDirectory .systemvar
- FAKEFONTS
- { mark
-
-
-
- 1 index dup
- {
- length 1 gt
- {
- pop
- }
- {
- //SharedFontDirectory 1 index .knownget
- {
- length 1 eq { pop } { 1 index } ifelse
- }
- {
- 1 index
- }
- ifelse
- }
- ifelse
- } forall
- pop counttomark 2 idiv { .undef } repeat pop
- }
- if
- //SharedFontDirectory exch .dictcopynew pop
- .currentglobal .setglobal
- pop
- } bind odef
- /undef /.undef load def
- end
|