% VAX-11 Librarian V04-00ཛྷ 8Mc v.w 5B.( BITIMAGE_HEX DEFAULTHEADERS IMAGE_HEX PAINT_HEX%2PARSER(PATCH-PS TEXAS_INIT_RTRAILER TRAILER_EMPTY  WORD5_INIT_R1ZETA1ZETAE<ʏ:%%% bitimage - puts an uncompressed hex bitmap on the page% % R. Watson % 05-Feb-1987%=% inputs: /param1 /ncopies /nc - number of copies (default 1)=% /param2 /scale - scale factor to multiply by (default 1.0)2% /param3 /xsize - x size in pixels (default 512)2% /param4 /ysize - y size in pixels (default 512)8% /param5 /pxlwid - number of bits in a pixel (1,2,4,8)%%% main program%/main{0 /iscale 1 scale div def % compute scale factor%G% get the image, fill black if run out of data. Note that readhexstringE% returns false if we don't fill the string, so the input data shouldB% be a multiple of sizeof(tmp) bytes long. Assume that it is more J% efficient to read more than 1 byte at a time. Note that line boundaries% do not matter.%4 xsize ysize pxlwid [iscale 0.0 0.0 iscale 0.0 0.0]; { currentfile tmp readhexstring not {pop <00>} if } image showpage, currentfile flushfile % avoid laser_log's} def%% executable initialization%/table [8 [/#copies 1 (.nc .ncopies .param1)] % number of copies2 [/scale 1.0 (.sf .scale .param2)] % scale factor) [/xsize 512 (.xsize .param3)] % x size) [/ysize 512 (.ysize .param4)] % y size. [/pxlwid 1 (.pxlwid .param5)] % pixel width] deftable { % apply defaults /ta exch def % save array ta 0 get % key ta 1 get % default value def % define default value} forall7currentdict /parser known {parser} if % if user inputs 0/identity matrix def % make an identity matrix/tmp 8 string def01 72 mul 10 72 mul moveto currentpoint translate<currentpoint transform % see where we are in device coords:identity setmatrix % turn off transformation - switch to % device coordinate system0translate % move origin to transformed currptmainwwƙʏ3%% headers - print text with headers on LaserWriter%% R. Watson 25-Sep-1986%A% 10/03/86 RW Remove "_DUA0:[]" from filename (for spoolKnsn>%!PS-Adobe-1.0G/inch {72 mul} def /setuppage {/%%Begin ModelCheck for secondary tray selectionD statusdict begin product dup  (LaserPrinter15) eq { pop 1 }' { (Hewlett-Packard LaserJet IIISi) eq / { 1 } { product (COMPAQ PAGEMARQ) eq {, {1} {product (HP LaserJet III) eq {0} {2} ifelse}i ifelse}t ifelse } ifelseZ(%%[Setuppage: selected tray #) print dup 1 string cvs print (]%%\n) print flush %%% debug@ statusdict /setp apertray known {setpapertray} {pop} ifelse end%%End Secondary tray selection initgraphicsm 0 11 inch translate -90 rotate /x 1 inch def /y 7 inch def= .5 inch .3 inch moveto 10 inch 0 rlineto 0 7.5 inch rlinetos% -10 inch 0 rlineto closepath stroke } def /h-user {7. /Helvetica findfont .4 inch scalefont setfont x y moveton (User: ) show show /y y .75 inch sub def} defs/h-job {. /Helvetica findfont .4 inch scalefont setfont x y movetov%% (LaserWriter) shoJ-%%Begin ModelCheck for Default tray selections- statusdict begin product (LaserPrinter15) eqt { 0 setpapertray }t { 1 setpapertray } ifelse end%%End Default tray selectionwwct end show /y y .75 inch sub def x y movetot (Job: ) show show /y y .75 inch sub def} defc /h-file {f. /Helvetica findfont .4 inch scalefont setfont x y moveto  (File: ) show= dup stringwidth pop 8 inch exch div % get space/lengthg9 dup 1 lt { .4 inch mul % if wh" statusdict begin product end show /y y .75 inch sub def x y moveto  (Job: ) show show /y y .75 inch sub def} def /h-file { . /Helvetica findfont .4 inch scalefont setfont x y moveto  (File: ) show= dup stringwidth pop 8 inch exch div % get space/lengthe9 dup 1 lt { .4 inch mul % if less space than lengthe@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defs /h-time {7. /Helvetica findfont .4 inch scalefont setfont x y moveto  (Date: ) show showt /y y .75 inch sub def} defc /h-error {. /Helvetica findfont .4 inch scalefont setfont x y movetoi (Error: ) show 7 dup stringwidth pop 8 inch exch div % get space/lengths3 dup 1 lt { .4 inch mul % if less space than lengthe@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} def /h-pages {8Mcww vU BACHJP TRAILER ŌU BACHJP TRAILER @_ BACHJP HEADERS `N_ BACHJP HEADERS 8:_ BACHJP HEADERS r[_ BACHJP HEADERS @'_ BACHJP HEADERS `!N_ BACHJP HEADERS 7}_ BACHJP HEADERS `> a BACHJP HEADERS a BACHJP HEADERS k a BACHJP HEADERS `60b BACHJP HEADERS%l K~<'%!PS-Adobe-1.0t/inch {72 mul} def /setuppage {0 %%Begin ModelCheck for secondary tray selection statusdict begin product dup  (LaserPrinter15) eq { pop 1 }' { (Hewlett-Packard LaserJet IIISi) eq e' { 1 } { 2 } ifelse } ifelseo setpapertray end %%End Secondary tray selection initgraphics 0 11 inch translate -90 rotate /x 1 inch def /y 7 inch def; 10 inch 7 inch moveto (**** E M P T Y F I L E ****) showl= .5 inch .5 inch moveto 10 inch 0 rlineto 0 7.5 inch rlineto% -10 inch 0 rlineto closepath strokex} def /h-user {l. /Helvetica findfont .4 inch scalefont setfont x y movetoe (User: ) show showf /y y .75 inch sub def} defu/h-job {. /Helvetica findfont .4 inch scalefont setfont x y moveto%% (LaserWriter) showu" statusdict begin product end show /y y .75 inch sub def x y movetoe (Job: ) show show /y y .75 inch sub def} deff /h-file {h. /Helvetica findfont .4 inch scalefont setfo/nt x y moveto  (File: ) show= dup stringwidth pop 8 inch exch div % get space/length 9 dup 1 lt { .4 inch mul % if less space than length @ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defe /h-time {. /Helvetica findfont .4 inch scalefont setfont x y movetol (Date: ) show showo /y y .75 inch sub def} defe /h-error {. /Helvetica findfont .4 inch scalefont set. /Helvetica findfont .4 inch scalefont setfont x y moveto/ (Pages: ) showdE cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs show /y y .75 inch sub def} defs /h-logline {) /Helvetica findfont 12 scalefont setfont x y movetoh showf /y y 12 sub def} def/wwtica findfont .4 inch scalefont setfont x y moveto( (Pages: ) showcE cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs show/ /y y .75 inch sub def} def /h-logline {) /Helvetica findnsK%! laserprep pour lps40s?%%%%Title: "Laser Prep -- The Apple PostScript Dictionary (md)"f*%%%%CreationDate: Thursday, March 19, 1987%%%{appledict version #65d%%%%EndComments '%%%%BeginProcSet: "(AppleDict md)" 65 0tOuserdict /md known {(%%[le chargement de md est deja fait]%%) == flush stop} ifd%%%%%%%%%serverdict begin 0 exitservern/md 280 dict defmd begin /LW 0 defa/ok {3 systemdict/statusdict known dup{LW 0 gt and}if  } bind def /startFig {  /SavedState save defJ /DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecapD currentlinejoin currentdash currentgray currentmiterlimit ] cvx def userdict maxlength dict begin currentpoint transformeG DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecapi setlinewidth setmatrix itransform moveto /ury exch def /urx exch def /lly exch def /llx exch def> /resolution 720 def % a modifier ds tscript resol. de tscript" /y exch 72 mul resolution div def" /x exch 72 mul resolution div def' currentpoint /cy exch def /cx exch defv+ /sx x urx llx sub div def % scaling for xm* /sy y ury lly sub div def % scaling for y! sx sy scale % scale by (sx,sy)t cx sx div llx sub cy sy div ury sub translate$ /DefFigCTM matrix currentmatrix def /initmatrix { DefFigCTM setmatrixd } def /defaultmatrix {) DefFigCTM exch copyn } def /initgraphics {1 DocumentInitState setmiterlimit setgray setdasht0 setlinejoin setlinecaxp setlinewidth setmatrix DefFigCTM setmatrix  } def /showpage { initgraphics } def} defu /endFig {  end SavedState restorel} deff /av 65 defa /T true def /F false deft /mtx matrix def /s75 75 string def /s8 8 string def7 /s1 ( ) def /pxs 1 defm /pys 1 defc9 1 0 mtx defaultmatrix dtransform exch atan/pa exch def  /nlw .24 def # /ppr [-32 -29.52 762 582.48] defr /pgs 1 def  /por true def /xb 500 array def /so true def: landscapemainww<8%%% image - puts a raster image file on the laserwriter.%.% 02/26/87 R. Watson Derived from paint_hex.ps%%% deCompress .%(% returns a bitimage string on the stack% /deCompress{" /count readbyte def % get count) count 16#80 and 0 eq { % if bit stream /count count 1 add def9 outstring 0 count getinterval % get right size string% inp exch readhexstring % get bytes$ pop % toss readhexstring status } {  % else repeated string* /byte readbyte def % get byte to repeat> 16#100 count sub 1 add /count exch def% get abs val of count 0 % preset index count { dup outstring exch byte put 1 add % advance index } repeat pop % index/ outstring 0 count getinterval % return string } ifelse} def %% getByte%!% returns /byte = next input byte-% = 0 if no more bytes on input stream%/getByte{+ inp instring readhexstring { % if got one' 0 get /byte exch def % store in byte } { % else 0 pop /byte 0 def } ifelse} def8%% decodeheader - decodes the info in the header record.% /decodeheader{+ /bytesinhead 512 def % default 512 bytes { % 512 bytes default1 getlong 10 10string cvrs cvlit % key to lit dup where& { pop load exec } % if defined func9 { pop getlong pop } ifelse % if no func (key, fix file)= /bytesinhead bytesinhead 8 sub def % debit header length, bytesinhead 8 lt { % if end of header) bytesinhead { % flush remaining bytes readbyte pop } repeat exit % exit loop } if } loop} def!/0 {getlong pop} def % 0 - nop*/1 {/xsize getlong def} def % 1 - x size*/2 {/ysize getlong def} def % 2 - y size0/3 {/pxlwid getlong def} def % 3 - pixel width0/4 {/scale getlong def} def % 4 - scale factor6/5 {/invert getlong def} def % 5 - invert if nonzero+/8 {getlong 512 sub % 8 - header lengthI bytesinhead add /bytesinhead exch def} def % apply correction factor:/9 {/compressed getlong def} def % 9 - true if compressed%% getlong %5% converts 4 hex bytes from currentfile to an integer>% longwords from the vax are transmitted low order byte first.%/getlong{# /acc 0 def % preset accumulator 0 1 3 {3 readbyte exch 8 mul bitshift acc or /acc exch def } for acc} def%% readbyte %?% reads a hex byte from currentfile and returns it on the stack+% executes "readbyteeof" if EOF encountered% /readbyte{C currentfile 1string readhexstring {}{pop readbyteeof} ifelse 0 get} def%% main program%/main{) decodeheader % apply user user header7 currentdict /parser known {parser} if % if user inputs invert 0 ne {+ {1.0 exch sub} settransfer % invert image } if( /sTime usertime def % save start timeH vmstatus 10 20 string cvrs dbg exch writestring dbg ( ) writestringH 10 20 string cvrs dbg exch writestring dbg ( ) writestringJ 10 20 string cvrs dbg exch writestring dbg ( \n) writestring flush1 /iscale 1 scale div def % compute scale factor ! compressed 1 eq { % if encoded4 xsize ysize pxlwid [iscale 0.0 0.0 iscale 0.0 0.0] { deCompress } image } {5 xsize ysize pxlwid [iscale 0.0 0.0 iscale 0.0 0.0]? { currentfile tmp readhexstring not {pop <00>} if } image } ifelse. usertime sTime sub 1000 div 10 20 string cvrs& dbg exch writestring dbg ( seconds ) writestringG vmstatus 10 20 string cvrs dbg exch writestring dbg ( ) writestringF 10 20 string cvrs dbg exch writestring dbg ( ) writestringJ 10 20 string cvrs dbg exch writestring dbg ( \n) writestring flush showpage+ currentfile flushfile % avoid laser_log's} def%% executable initialization%+/inp (%stdin) (r) file def % define files/dbg (%stdout) (w) file def 0/1string 1 string def % scratch 1 byte stri ng3/10string 10 string def % scratch 10 byte string1/identity matrix def % make an identity matrix7/outstring 128 string def % storage for output string(/instring 1 string def % input buffer./tmp 8 string def % for uncompressed images/table [8 [/#copies 1 (.nc .ncopies .param1)] % number of copies2 [/scale 1.0 (.sf .scale .param2)] % scale factor) [/xsize 512 (.xsize .param3)] % x size) [/ysize 512 (.ysize .param4)] % y size. [/pxlwid 1 (.pxlwid .param5)] % pixel width4 [/invert 0 (.invert .param6)] % invert image if 1? [/compressed 1 (.compressed .param7)] % default to compressed] deftable { % apply defaults /ta exch def % save array ta 0 get % key ta 1 get % default value def % define default value} forall01 72 mul 10 72 mul moveto currentpoint translate<currentpoint transform % see where we are in device coords:identity setmatrix % turn off transformation - switch to % device coordinate system0 translate % move origin to transformed currpt/doit {: {main} stopped { (error stack:\n) = pstack flush quit} if} def%doitmainww`Cu4ΏH%%% paint - puts a MacPaint compressed raster file on the laser printer.%%=% inputs: /nc /ncopies /params - number of copies (default 1)2% /sf /scale /param2 - scale factor (default 4.0)%6% 02/18/87 R. Watson Added parser stuff. Speedup mods.%%% deCompress .%(% returns a bitimage string on the stack%! /deCompress{& /count getByte byte def % get count /ind 0 def % preset index) count 16#80 and 0 eq { % if bit stream /count count 1 add def9 outstring 0 count getinterval % get right size string% inp exch readhexstring % get bytes$ pop % toss readhexstring status } { % else repeated string! getByte % get byte to repeat> 16#100 count sub 1 add /count exch def% get abs val of count count { outstring ind byte put& /ind ind 1 add def % advan"ce index } repeat/ outstring 0 count getinterval % return string } ifelse} def %% getByte%!% returns /byte = next input byte-% = 0 if no more bytes on input stream%/getByte{+ inp instring readhexstring { % if got one' 0 get /byte exch def % store in byte } { % else 0 pop /byte 0 def } ifelse} def%% main program%/main{( /sTime usertime def % save start timeK%%% vmstatus 10 20 string cvrs dbg exch writestring dbg ( #) writestringK%%% 10 20 string cvrs dbg exch writestring dbg ( ) writestringM%%% 10 20 string cvrs dbg exch writestring dbg ( \n) writestring%%% flush1 /iscale 1 scale div def % compute scale factor+ 512 { getByte} repeat % eat paint header@% 576 720 1 [iscale 0.0 0.0 iscale 0.0 0.0] { deCompress } imageD 576 720 true [iscale 0.0 0.0 iscale 0.0 0.0] {deCompress} imagemask1%%% usertime sTime sub 1000 div 10 20 string cvrs)%%% dbg exch writestring dbg $( seconds )%%% writestringJ%%% vmstatus 10 20 string cvrs dbg exch writestring dbg ( ) writestringI%%% 10 20 string cvrs dbg exch writestring dbg ( ) writestringM%%% 10 20 string cvrs dbg exch writestring dbg ( \n) writestring%%% flush showpage, currentfile flushfile % avoid laser_log's} def%% executable initialization%*/inp (%stdin) (r) file def % define files/dbg (%stdout) (w) file def/table [8 [/#copies 1 (.nc .ncopies .param1)]% % number of copies2 [/scale 4.0 (.sf .scale .param2)] % scale factor] deftable { % apply defaults /ta exch def % save array ta 0 get % key ta 1 get % default value def % define default value} forall7currentdict /parser known {parser} if % if user inputs0/identity matrix def % make an identity matrix6/outstring 128 string def % storage for output string'/instring 1 string def % input buffer01 72 mul 10 72 mul moveto currentpoint translate<curr&entpoint transform % see where we are in device coords:identity setmatrix % turn off transformation - switch to % device coordinate system0translate % move origin to transformed currpt/doit {: {main} stopped { (error stack:\n) = pstack flush quit} if} def%doitmainww@ʏ%% Parser takes 2 arguments as input:>% /params is an array of pairs of keyword strings and values:9% [ (param1) value1 (param2) value2 ... (paramn) valuen]?% /table is an array 'of key/default value/keyword list arrays:(% [ [/key1 default1 (.key1 .whatever1)](% [/key2 default2 (.key2 .whatever2)] % ... ]B% Parser first defines /key1 to default1, /key2 to default2, etc.B% Then, for each param keyword in /params, it searches the arraysA% in /table for a matching keyword. If found, it sets /key? to % the value from /params. /parser {5% process each keyword value pair in the params array! /pindex 0 def % preset index params length 2 idiv {(5 params pindex get length 1 add % build keyword str string /ks exch def3 ks 1 params pindex get putinterval % (.) ks 0 46 put /ok false def % preset flag table { % for each array! /ta exch def % get the array ta 2 get % get token string% ks search { % search for keyword% pop pop pop % flush search stuff ta 0 get % get key, params pindex 1 add get % get new value def % set new value& /ok true def % flag keyword found) exit % -forall } { pop % flush failed search } ifelse } forall % try next array$ ok not { % if keyword not found) ks = (is not a known parameter) = quit } if2 /pindex pindex 2 add def % advance to next pair } repeat} defww q6lG% The program below may be downloaded to a LaserWriter to correct three.% bugs in the LaserWriter's serial I/O driver:%-% - occasional failure to send a needed XON6% - erroneously reading past e*nd-of-file (control-D)7% - dropped characters during large volumes of output%%!90000000000 % the exitserver passwordversion (23.0) neE {(Patch not installed -- wrong printer type or version) = stop} if!statusdict /Patch1Installed known? {(Patch already installed -- not installed again) = stop} ifserverdict begin exitserver$statusdict /Patch1Installed true putcurrentfile eexec@ce1b9f428ac69e75cc47a554265ae625851e0154ac649ad44c1c34e4c60a0493@a80212+a3bd61248f8859cb1252a7320775a6d4ec524bcbf5771aceb8f61ea2fb@48fcb3df8da0f105be40f697239ef0976f92c1d41e915a7389200a3e896cd955@d197ff27f22a617c85bce7ed59ef1a6062d01d0fdee5b4e7d298997638497cc6@a2d56a0eacc195795949f515bbbda9cfe899e43ad257da93f3144797b00dbb81@8a41b4fa56a0295c25e693864084cbb5d63834f1d94a46816d4a2cbe005cc57c@38491a6a34cfbdef303ed8731dbbe84dc6f8e1e790f3d89360d063639c8411fd@89ad7c53d1b9732bd0942bc36257208d24792ea7c66790b6104c3a2b794a1460@c476ffdb5552f428f457b47319cccb0c9980036402eaca80c0 ,b5e0ccb5f579df@09cc6f382b536aa64da7152356c377a5b708a378e855a7ec3eccd848d5508dbf@5c7bd28c2899e9cfd7f4ff3d7ddc08006cce42b2d8c59ef64af8ec74a2f9d23f@e8d4d03ba1e2686138fffc2af9c662c994ec8065a32144ba9ac5002623b39012@521eb49cd829c3506af2895bf275367eb4d31908b14f3b1e0abfaca2f98eb9d8@8d84ac8271ef44def53d8207ce9653d598fe8046120f223bfca0b5c74a54f70b@eb5a0bc09d8e79742048b875864a3b489eb91c09b701f506e994271a6640f78a@d131f1eef3c96e546f7273fb3533799a6470be2ed3b8f2e211bf9f9f209edbd2@36c19d4b0b3f28ab16c39faa1707 -0699543c212c76081961c949ebd32ada3c93@ccdc56c2c940a2061bc11794a0159cc37255aa8c8e7e08d78f204161f1eccb7d@ad3313b737e921b7df1fe794e9a7fc2226702ee555ceb8e803a20ebeaa440a40@9e1f1a72412586e3071292b10e938e7f386b8e6516758633bab57223e071b1de@8c4b73cafababc0af7bc902e8763a2817861591d7ee98f85bc28ad0ea4d13660@d3256aa293df1959b7b57b13edee653cfdda2fafe0698898dc5e371ca4c5b72b@b92750d0eea5e74955712b06958663f424a46cf75a797590f0d2a36842fe07e3@db459215dab6e461a4c3fbb40ee2499af3fe4b13790de87e11afde6aadd12e77@d84d80 .76146d797269c9188d8fb725898aee284e62c472e0e7b585ef3fed434c@000b0bb70ad6806e840cfe872ec3f28782dd08b70d29c2da2187e2dc0f13dfc0@89f75344e3dad78a1c9b909fc72bdd92421afdc8b80850ff0d43605edfd9be56@d81cb17250ce7208354548f6ccc62366e8196d4adeb2d24fd5ce47bb6295fa72@c361197cafacbd51efd36dfa59c6f8e6cab8915a8043d609eb64726de86080d2@4118cc69e01eab0f4ef1f364c815f306d5f43420cf7c9316e5ee69c7183dd8d2*805a9dfe6abb33c46d3a212d5c6b6fd68418eef971wwlzˏ,% this is so that spooling to _ps will work.w/w\c%!PS-Adobe-1.0/inch {72 mul} def /setuppage { initgraphics 0 11 inch translate -90 rotate /x 1 inch def /y 7 inch def= .5 inch .5 inch moveto 10 inch 0 rlineto 0 7.5 inch rlineto% -10 inch 0 rlineto closepath stroke} def /h-user {. /Helvetica findfont .4 inch scalefont setfont x y moveto (User: ) show show /y y .75 inch sub def} def/h-job {. /Helvetica findfont .4 inch scalefont setfont x y moveto (LaserWriter) show0font x y moveto  (Error: ) show07 dup stringwidth pop 8 inch exch div % get space/length3 dup 1 lt { .4 inch mul % if less space than length @ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defe /h-pages {. /Helvetica findfont .4 inch scalefont setfont x y movetoo (Pages: ) showoE cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs showi /y y .75 inch sub def} def /h|Ll/msworddeja 5 deft%%BeginFont: mslinedrawW/mslinedraw 25 dict def5*/PSl {msdict begin /ptop 612 def /sw 0 def /ftsz 12 defm) /ftxz 12 def %% Ajout Bach/TELECOM ParismN /smode 0 def /STh -3.6 def /fs 0 def /offset 0 def fonttable 1 get fontset E  90 rotate 0 -612 translate 6 save statusdict begin /waittimeout 360 def end} def*/PSp {msdict begin /ptop 792 def /sw 0 def /ftsz 12 def.) /ftxz 12 def %% Ajout Bach/TELECOM Paris M /smode 0 def /STh -3.6 def /fs 0 de 2 setfont x y moveto (Pages: ) showE cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs show /y y .75 inch sub def} defwwY%!.%%% PostScript program to plot Zeta plot files%% R. Watson 31-Jan-85%<% inputs: /param1 or /#copies - number of copies (default 1)3% /param2 or /scalefact - scale factor (default 1)3% /param3 or /zFont - use Zeta font (default true)=% /param4 or /penscale - scaling to apply to pen (default 1)8% /param5 or /use3pens - use pen color if nz (default 0)%% Not supported yet:%% 1. Shaded characters% 2. Aspect characters%(% 09/13/85 add pre-processed definitions% zFont defaults to true% scalefact defaults to 1<% 05/30/86 Ignore level one "6" commands (whatever they are)2% 06/20/86 J.Knox Fix problems with circle command*% 02/15/87 R.Watson add default parametersB% 02/20/87 R.Watson add default table, remove debug print, remove % input timeout avoidance.>% 03/06/87 M. Kaczmarczik/J. T4aylor add scaling factor for pen6% 04/01/87 R. Watson Opcode 6 is alternate pen select.9% Added parameter usepens to select pen color/shading. "% Default changed to no shading.%-/lTime usertime def % save load start time%% initialization.%/init{:%%% dbg 1 string dup 0 7 put writestring flush % ring bell newpath* /aspect 256 def % preset default aspect0 0 0 moveto % preset starting location on page! /pen false def % preset pen up' /sTime usertime def % save 5 start time} def% read a zeta byte /getz {  {% inp read not {eofError} if % if EOF; dup 32 gt {exit} {pop} ifelse % exit loop if not <= space } loop( dup /zn exch def % define zeta number/ zb 0 3 -1 roll put % put char code in string} def%% check for 9 more Z's% /checkZeta {+ 9 { getz zb (Z) ne {notZerror} if } repeat} def%% main program%/main{ { gsave init waitBytes % wait for a job/ not {grestore exit} if %6 if waitBytes false checkZeta levelOne grestore } loop} def3%% waitBytes - waits until there is a "Z" on stdin.%&% return true if Z found, false if EOF /waitBytes{ {E%%% % uncomment these lines to wait forever for plots with no timeout%%% inp bytesavailable 0 ne {+ inp read not { false exit } if % if EOF# 16#5A eq {true exit} if % if Z %%% } if } loop} def&% levelOne - process level 1 commands /levelOne{ { getz %get a b7yte zb (Z) eq { % Z stroke8%%% debug usertime sTime sub 1000 div 10 20 string cvrs1%%% debug dbg exch writestring dbg ( seconds\n)%%% debug writestring flush,%%% debug lTime 1000 div 10 20 string cvrs 3%%% debug dbg exch writestring dbg ( load time\n)%%% debug writestring flush showpage exit } if {  zb (0) eq { % 0 - nop exit } if zb (1) eq { % 1 - pen up /pen false def exit } if zb (2) eq { % 2 - pen 8 down /pen true def exit } if' zb (3) eq { % 3 - character vector cVector exit } if' zb (4) eq { % 4 - center char vect ccVector exit } if% zb (5) eq { % 5 - numeric vector nVector exit } if! zb (6) eq { % 6 - pen select 1 crb % get pen' usepens 0 ne{ % if shading enabled pencolor exch get setgray } { pop } ifelse exit } if zb (7) eq { % 7 - level 2 '9 levelTwo exit } if vector exit } loop } loop %do this one forever } def% level two commands /levelTwo{ getz % get level 2 type { zb (1) eq { % 1 - pen 1 /pen false def emit pencolor 0 get setgray exit } if zb (2) eq { % 2 - pen 2 /pen false def emit pencolor 1 get setgray exit } if zb (3) eq { % 3 - pen 3 /pen false def emit pencolor 2 get setgray exit: } if zb (4) eq { % 4 - pen 4 /pen false def emit pencolor 3 get setgray exit } if# zb (7) eq { % 7 - enter level 3 levelThree exit } if zb (B) eq { % B - enter dash emit& dashes 0. setdash % enter dash mode exit } if zb (C) eq { % C - exit dash emit [] 0. setdash exit } if! zb (D) eq { % D - define dash emit % close current path$ getz getxy % get dash definition- /d1 ix def /d2 iy d;ef % save first 2 parts getz getxy0 /dashes [d1 d2 ix d2] def % define dash array& dashes 0. setdash % enter dash mode exit } if" zb (E) eq { % E - define slant getz getxy % eat slant exit } if# zb (F) eq { % F - define aspect getz getxy % eat aspect /aspect ix def exit } if zb (G) eq { % G - circle/arc doCircle exit } if" zb (H) eq { % H - terminal msg termMsg exit } if zb (I) eq { % I - shad$<e getz getxy exit } if% process rest of level 2 exit } loop} def% process line vector/vector{ getxy % get crb x y? pen {ix iy rlineto} {ix iy rmoveto emit} ifelse %do the vector} def% process character vector/cVector{ getz % get vector control getxy % decode vector 2 crb % get length) dup string /cstr exch def % build string /cind 0 def % preset index { 2 crb ) dup 0 lt {pop 0} if % DEBUG if neg=ative* dup 127 gt {pop 0} if % DEBUG if too big. zFont {sym exch get} % map zeta to zeta code3 {zta exch get} ifelse % get ascii char code+ cstr cind 3 -1 roll put % put into string+ cind 1 add /cind exch def % advance index } repeat % length times- /sn cstr length def % get string char count6 ix dup mul iy dup mul add sqrt /iz exch def % calc iz iz sn dofont % scale font( cstr stringwidth % get string lengths /sy exch def /sx exch def) iy ix atan rotate % rota>te co-ordinatesC iz sx sub sn div 0 cstr ashow % do string rel to new co-ord (dy=0) emit% iy ix atan neg rotate % rotate back /pen false def % pick up pen} def$% process centered character vector /ccVector{ getz % get vector control getxy % decode vector+ /cstr 1 string def % define 1 char string 1 crb abs. zFont {sym exch get} % map zeta to zeta code3 {zta exch get} ifelse % get ascii char code5 cstr 0 3 -1 roll put % insert character into s?tring- /sn cstr length def % get string char count6 ix dup mul iy dup mul add sqrt /iz exch def % calc iz iz sn dofont % scale font( cstr stringwidth % get string lengths /sy exch def /sx exch def$ currentpoint % save current point) iy ix atan rotate % rotate co-ordinatesA cw -6 mul 22 div ch -6 mul 22 div rmoveto % backup 1/2 char size1 cstr show % do string rel to new co-ord (dy=0) emit% iy ix atan neg rotate % rotate back" moveto % restore current point /pen @false def % pick up pen} def3% dofont -- set up font/dofont{2 /nc exch def % define number of chars in string* /zc exch def % define length of string & zFont {/ZetaFont findfont} % get font# {/Helvetica findfont} ifelse) /cw zc nc div def % get character width; cw 256. mul aspect div /ch exch def % get character height& [cw 0 0 ch 0 0] makefont % scale font setfont % set font} def% process numeric vector/nVectorA{ getz % get vector control getxy % decode vector 1 crb % get length) dup string /cstr exch def % build string /cind 0 def % preset index {8 zFont {1 crb ztf exch get} % convert to zeta font code9 {1 crb ztn exch get} ifelse % get ascii char code+ cstr cind 3 -1 roll put % put into string+ cind 1 add /cind exch def % advance index } repeat % length times- /sn cstr length def % get string char count6 ix dup mul iy dup mul add sqrt /iz exch def % calBc iz iz sn dofont % scale font( cstr stringwidth % get string lengths /sy exch def /sx exch def) iy ix atan rotate % rotate co-ordinatesC iz sx sub sn div 0 cstr ashow % do string rel to new co-ord (dy=0) emit% iy ix atan neg rotate % rotate back /pen false def % pick up pen} def % doCircle /doCircle{! getz % get circle/arc control {" zb (0) eq zb (I) eq or {% if arc! zb (0) eq % save arc direction getz % get vector control getxy % get veCctor 1 /x1 ix def /y1 iy def getz % get vector 2 getxy /x2 ix def /y2 iy def3 currentpoint /y exch def /x exch def %get cur pt2% x1 y1 rmoveto % start arc at end of 1st vector. x1 dup mul % r = sqrt((x1-x)**2+(y1-y)**2) y1 dup mul add sqrt /r exch def* y1 x1 atan /theta1 exch def %get angles y2 x2 atan /theta2 exch def% x x1 sub y y1 sub r theta1 theta2 ; 6 -1 roll { arc } { arcn } ifelse % use saved arc state: x x1 sub x2 add y y1 Dsub y2 add moveto % return to base exit } if % else we have a circle getxy % get vector3 currentpoint /y exch def /x exch def % get cur pt0 ix iy rmoveto % start circle at end of vector% ix dup mul % r = sqrt(ix**2+iy**2) iy dup mul add sqrt /r exch def! x y r 0. 360. arc % draw circle x y moveto % return to base exit } loop} def3% crb - get crb number/crb{ /sum 0 def*% repeat sum = (sum shift 5E) + zn5 dup { sum 5 bitshift getzv add /sum exch def} repeat1% check for negative - if so then or in -1's maskE 5 mul 1 sub -1 exch bitshift dup sum and 0 ne {sum or /sum exch def} {pop} ifelse sum % return sum} def;% getzv - convert NEXT zb to zeta binary number/getzv{ getz7 zn 16#41 lt {zn 16#30 sub} {zn 16#41 sub 8 add} ifelse} def#% getxy - ix,iy set to crb value/getxy{3 zn 16#41 sub 1 add dup /ny exch def %ny = zn-'A'+1) 5 dFiv cvi dup /nx exch def %nx = ny / 53 5 mul ny exch sub cvi /ny exch def %ny = ny - 5*nx% get x and y displacement$ nx crb /ix exch def %ix = crb(nx)$ ny crb /iy exch def %iy = crb(ny)} def% emit - draw the current path/emit{$ currentpoint % save where we are stroke % draw current path& moveto % position to where we are} def&% debugi - write debug integer/debugi{B 16 10 string cvrs dbg exch writestring dbg (\n) writestring flushG} def)% debugs - write debug string/debugs{/ dbg exch writestring dbg ( ) writestring flush} def% executable initialization5(%stdin) (r) file /inp exch def % define input file5(%stdout) (w) file /dbg exch def % define debug file&/zb 1 string def % zeta byte string@/pencolor [0. .35 .50 .70 0. .35 .50 .7] def % pen color shading/16#3f 16#3f 16#3f 16#2b 16#3f 16#3f 16#3f 16#3f/16#5a 16#3f 16#3f 16#2a 16#3f 16#3f 16#3f 16#3f/16#3f 16#3f 16#3 Hf 16#3f 16#3f 16#3f 16#3f 16#3f016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f /16#20 16#41 16#42 16#43 16#44 16#45 16#46 16#47/16#48 16#49 16#3f 16#2e 16#3c 16#28 16#2b 16#7c/16#26 16#4a 16#4b 16#4c 16#4d 16#4e 16#4f 16#50/16#51 16#52 16#21 16#24 16#2a 16#29 16#3b 16#3f/16#2d 16#2f 16#53 16#5 I4 16#55 16#56 16#57 16#58/16#59 16#5a 16#3f 16#2c 16#25 16#5f 16#3e 16#3f/16#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37/16#38 16#39 16#3a 16#23 16#40 16#27 16#3d 16#22/16#61 16#62 16#63 16#64 16#65 16#66 16#67 16#68/16#69 16#6a 16#6b 16#6c 16#1d 16#6e 16#6f 16#70/17#71 16#72 16#73 16#74 16#75 16#76 16#77 16#78/16#79 16#7a 16#3f 16#3f 16#1f 16#3f 16#3f 16#3f016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3 Jf 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 016#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f N16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 256 array astore /zta exch def/16 K#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37516#38 16#39 16#2d 16#2e 12 array astore /ztn exch defL/ztf [44 45 46 47 48 49 50 51 52 53 55 64] def % zeta numeric vector to font'[ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15=16 17 73 114 120 17 113 84 110 16 109 87 117 125 118 119 127 4126 91 92 93 94 95 96 97 98 99 100 101 102 16 16 88 883 115 116 89 66 67 79 103 85 105 106 121 82 122 123 62 118 19 20 21 22 23 24 25 26 108 64 75 58 54 86 72 127 28 29 30 31 32 33 34 35 71 60 56 59 80 111 55 L157 36 37 38 39 40 41 42 43 107 63 74 16 76 78 44 145 46 47 48 49 50 51 52 53 68 70 77 69 61 65 128 @129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 ?145 146 147 148 149 150 151 152 153 154 90 104 155 156 157 158 ?159 81 124 160 161 162 163 164 165 166 167 112 168 169 170 171 @172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 @188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 7204 205 206 207 208 209 210 211 212 213 ] /sym exch def/ZetaFontDMict 8 dict def/$workingdict 100 dict defZetaFontDict begin /FontType 3 def( /FontMatrix [.04545 0 0 .04545 0 0] def /FontBBox [0 0 22 22] def /Encoding 256 array defE 3 string 0 1 255 {dup 10 3 index cvrs cvn Encoding 3 1 roll put} for pop /CharArrays 214 dict dup beginD/0 [ 16#10606 16#2060C 16#20C0C 16#20C00 16#20000 16#2000C 16#2060C  16#20606 ] defD/1 [ 16#10606 16#2060C 16#2030C 16#20009 16#20003 16#20300 16#20900 7 16#20C03 16#20C09 16#2090C 16#2060C 16#20606 N] def7/2 [ 16#1060C 16#20002 16#20C02 16#2060C 16#20606 ] defD/3 [ 16#10006 16#20606 16#2060C 16#20606 16#20C06 16#20606 16#20600  16#20606 ] def@/4 [ 16#1000C 16#20C00 16#20606 16#20C0C 16#20000 16#20606 ] defI/5 [ 16#10606 16#2060C 16#20006 16#20600 16#20C06 16#2060C 16#20606 ] defI/6 [ 16#10600 16#2060C 16#20006 16#20C06 16#2060C 16#20606 16#20606 ] def7/7 [ 16#10C00 16#2000C 16#20C0C 16#20000 16#20606 ] defI/8 [ 16#1000C 16#20C0C 16#20000 16#20C00 16#10906 16#20306 16#20606 ] de Of@/9 [ 16#10600 16#20606 16#2000C 16#20606 16#20C0C 16#20606 ] defE/10 [ 16#10909 16#20903 16#20C00 16#20903 16#20303 16#20000 16#20303 A 16#20309 16#2000C 16#20309 16#20909 16#20C0C 16#20606 ] defE/11 [ 16#10006 16#20C06 16#20606 16#2060C 16#20600 16#20606 16#2000C 8 16#20C00 16#20606 16#20C0C 16#20000 16#20606 ] defA/12 [ 16#10606 16#2000C 16#20C0C 16#20000 16#20C00 16#20606 ] def&/13 [ 16#10600 16#2060C 16#20606 ] defE/14 [ 16#1060C 16#20003 16#20C03 16#2060C 16#20609 16#2000 P9 16#20600 & 16#20C09 16#20609 16#20606 ] def&/15 [ 16#1070A 16#20F0A 16#11500 ] def&/16 [ 16#10400 16#20408 16#11500 ] def/17 [ 16#11500 ] defE/18 [ 16#10000 16#20010 16#20415 16#20B15 16#20F10 16#20F00 16#10008  16#20F08 16#11500 ] defE/19 [ 16#10000 16#20015 16#20B15 16#20F12 16#20F0E 16#20B0B 16#2000B A 16#10B0B 16#20F08 16#20F03 16#20B00 16#20000 16#11500 ] defE/20 [ 16#10F03 16#20B00 16#20400 16#20003 16#20012 16#20415 16#20B15  16#20F12 16#11500 ] defJ/2Q1 [ 16#20015 16#20C15 16#20F12 16#20F03 16#20C00 16#20000 16#11500 ] defE/22 [ 16#10F15 16#20015 16#2000B 16#20A0B 16#2000B 16#20000 16#20F00  16#11500 ] defJ/23 [ 16#10F15 16#20015 16#2000B 16#20B0B 16#2000B 16#20000 16#11500 ] defE/24 [ 16#10F0F 16#20F12 16#20C15 16#20315 16#20012 16#20003 16#20300 A 16#20C00 16#20F03 16#20F09 16#20C09 16#21109 16#11500 ] defA/25 [ 16#20015 16#2000B 16#20F0B 16#20F15 16#20F00 16#11500 ] defE/26 [ 16#10400 16#20700 16#20715 16#20415 16#20A15 16# R20715 16#20700  16#20A00 16#11500 ] defJ/27 [ 16#10006 16#20003 16#20300 16#20C00 16#20F03 16#20F15 16#11500 ] defA/28 [ 16#20015 16#20008 16#20F15 16#2070E 16#20F00 16#11500 ] def//29 [ 16#10015 16#20000 16#20F00 16#11500 ] def8/30 [ 16#20015 16#2070B 16#20E15 16#20E00 16#11500 ] def//31 [ 16#20015 16#20F00 16#20F15 16#11500 ] defE/32 [ 16#10300 16#20003 16#20012 16#20315 16#20C15 16#20F12 16#20C0F 8 16#20F12 16#20F03 16#20C00 16#20300 16#11500 ] defJ/33 [ 16#20015 16#20C15 S16#20F12 16#20F0E 16#20C0B 16#2000B 16#11500 ] defE/34 [ 16#10808 16#20E02 16#20C00 16#20300 16#20003 16#20012 16#20315 A 16#20C15 16#20F12 16#20F03 16#20E02 16#20F00 16#11500 ] defE/35 [ 16#20015 16#20C15 16#20F12 16#20F0E 16#20C0B 16#2000B 16#2080B  16#20F00 16#11500 ] defE/36 [ 16#10006 16#20003 16#20300 16#20C00 16#20F03 16#20F08 16#20C0B J 16#2030B 16#2000E 16#20012 16#20315 16#20C15 16#20F12 16#11500 ] def8/37 [ 16#10700 16#20715 16#20015 16#20E15 16#11500 ] defJ/38 T[ 16#10015 16#20003 16#20300 16#20C00 16#20F03 16#20F15 16#11500 ] def//39 [ 16#10015 16#20700 16#20E15 16#11500 ] defA/40 [ 16#10015 16#20000 16#2070A 16#20E00 16#20E15 16#11500 ] def//41 [ 16#20F15 16#10015 16#20F00 16#11500 ] defJ/42 [ 16#10700 16#2070B 16#20015 16#2070B 16#20E15 16#2070B 16#11500 ] defE/43 [ 16#10015 16#20F15 16#2070A 16#2040A 16#20A0A 16#2070A 16#20000  16#20F00 16#11500 ] defE/44 [ 16#10F03 16#20B00 16#20400 16#20003 16#20012 16#20415 16#20B15 & 16#20F12 U 16#20F03 16#11500 ] defJ/45 [ 16#10800 16#20815 16#20512 16#10500 16#20B00 16#20800 16#11500 ] defE/46 [ 16#10F00 16#20000 16#20003 16#20F10 16#20F12 16#20C15 16#20315 & 16#20012 16#20010 16#11500 ] defE/47 [ 16#10012 16#20315 16#20C15 16#20F12 16#20F0E 16#20C0B 16#2030B J 16#20C0B 16#20F08 16#20F03 16#20C00 16#20300 16#20003 16#11500 ] def8/48 [ 16#10C00 16#20C15 16#20006 16#20F06 16#11500 ] defE/49 [ 16#10005 16#20003 16#20300 16#20C00 16#20F03 16#20F08 16#20C0B / 16#2000BV 16#20015 16#20F15 16#11500 ] defE/50 [ 16#10008 16#2030B 16#20C0B 16#20F08 16#20F03 16#20C00 16#20300 A 16#20003 16#20012 16#20315 16#20C15 16#20F12 16#11500 ] defA/51 [ 16#10012 16#20015 16#20F15 16#20F12 16#20700 16#11500 ] defE/52 [ 16#10C00 16#20300 16#20003 16#20008 16#2030B 16#20C0B 16#20F0E E 16#20F12 16#20C15 16#20315 16#20012 16#2000E 16#2030B 16#20C0B / 16#20F08 16#20F03 16#20C00 16#11500 ] defE/53 [ 16#10003 16#20300 16#20C00 16#20F03 16#20F12 16#20C15 16#20315 W A 16#20012 16#2000D 16#2030A 16#20C0A 16#20F0D 16#11500 ] defA/54 [ 16#10700 16#2070E 16#20707 16#20007 16#20E07 16#11500 ] def&/55 [ 16#10007 16#20E07 16#11500 ] defE/56 [ 16#20E0E 16#20707 16#2070E 16#20700 16#20707 16#2000E 16#20E00 / 16#20707 16#20007 16#20E07 16#11500 ] def/57 [ 16#20F15 16#11500 ] def8/58 [ 16#10800 16#20504 16#20511 16#20815 16#11500 ] def8/59 [ 16#10700 16#20A04 16#20A11 16#20715 16#11500 ] defE/60 [ 16#10005 16#20302 16#20C02 16#20F05 16#20F09 16#20 XC0C 16#2030C J 16#2000F 16#20313 16#20C13 16#20F0F 16#10815 16#20800 16#11500 ] def8/61 [ 16#10003 16#20F03 16#10F0A 16#2000A 16#11500 ] def/62 [ 16#11500 ] defJ/63 [ 16#10700 16#20903 16#20905 16#20705 16#20703 16#20903 16#11500 ] defA/64 [ 16#10700 16#20702 16#20902 16#20900 16#20700 16#11500 ] defE/65 [ 16#10310 16#20015 16#20315 16#20310 16#10910 16#20615 16#20915  16#20910 16#11500 ] def8/66 [ 16#10B00 16#20400 16#20415 16#20B15 16#11500 ] def8/67 [ 16#10400 16#20B00 16#2 Y0B15 16#20415 16#11500 ] defE/68 [ 16#10703 16#20705 16#20905 16#20903 16#20703 16#1070A 16#2070C / 16#2090C 16#2090A 16#2070A 16#11500 ] def8/69 [ 16#10910 16#20615 16#20915 16#20910 16#11500 ] defE/70 [ 16#10300 16#2030F 16#2030C 16#2000C 16#20F0C 16#20C0C 16#20C0F 8 16#20C00 16#20C03 16#20F03 16#20003 16#11500 ] defJ/71 [ 16#10803 16#20600 16#20A00 16#20803 16#10806 16#20815 16#11500 ] defE/72 [ 16#10F06 16#20703 16#20403 16#20006 16#20009 16#20A12 16#20615 & 16#20312 16# Z20F00 16#11500 ] def&/73 [ 16#2070F 16#20E00 16#11500 ] defE/74 [ 16#10012 16#20014 16#20214 16#20212 16#20012 16#10F15 16#20000 A 16#10D00 16#20D02 16#20F02 16#20F00 16#20D00 16#11500 ] def//75 [ 16#10F0E 16#20007 16#20F00 16#11500 ] def&/76 [ 16#20F07 16#2000E 16#11500 ] defE/77 [ 16#10F0C 16#20C0F 16#2080F 16#2050C 16#20508 16#20805 16#20C05 e 16#20F08 16#20F12 16#20C15 16#20315 16#20012 16#20003 16#20300 16#20C00 16#20F03 16#11500 ] defE/78 [ 16#1000F 16#20012 16#20315 16#20 [C15 16#20F12 16#20F0E 16#20C0B J 16#2070B 16#20706 16#10703 16#20900 16#20500 16#20703 16#11500 ] def&/79 [ 16#10015 16#20F00 16#11500 ] defE/80 [ 16#10700 16#20903 16#20905 16#20705 16#20703 16#20903 16#1090A 8 16#2090C 16#2070C 16#2070A 16#2090A 16#11500 ] def8/81 [ 16#1000F 16#20600 16#20C0F 16#2000F 16#11500 ] def//82 [ 16#20F0F 16#1000F 16#20F00 16#11500 ] defE/83 [ 16#1070D 16#2070F 16#2090F 16#2090D 16#2070D 16#1000A 16#20F0A A 16#10905 16#20705 16#20707 16#20907 16#2 \0905 16#11500 ] defE/84 [ 16#10002 16#20E02 16#10E0B 16#2000B 16#2070B 16#20712 16#20704  16#11500 ] defA/85 [ 16#10003 16#20406 16#20800 16#20815 16#20F15 16#11500 ] def&/86 [ 16#10600 16#20612 16#11500 ] defE/87 [ 16#10003 16#20200 16#20500 16#20703 16#20712 16#20915 16#20C15  16#20E12 16#11500 ] defA/88 [ 16#10F15 16#20015 16#2070B 16#20000 16#20F00 16#11500 ] def//89 [ 16#2050C 16#20A00 16#20000 16#11500 ] defE/90 [ 16#10300 16#20603 16#2060C 16#2090F 16#20C0F 16#20F0C ]16#20F09 / 16#20C06 16#20906 16#20609 16#11500 ] defE/91 [ 16#2030F 16#20306 16#20603 16#20903 16#20C06 16#20C0F 16#20C06  16#20F03 16#11500 ] defJ/92 [ 16#10400 16#2040F 16#2000F 16#20F0F 16#20C0F 16#20C00 16#11500 ] defE/93 [ 16#10700 16#20702 16#20302 16#20005 16#2000A 16#2030D 16#20B0D A 16#20E0A 16#20E05 16#20B02 16#20702 16#2070F 16#11500 ] defE/94 [ 16#10007 16#20207 16#2020B 16#2050E 16#20A0E 16#20D0B 16#20D03 A 16#20A00 16#20500 16#20203 16#20207 16#20F07 1 ^6#11500 ] defE/95 [ 16#10011 16#20311 16#20307 16#20704 16#20B07 16#20B11 16#20E11 & 16#10715 16#20700 16#11500 ] defJ/96 [ 16#10303 16#20F0C 16#1030C 16#2060C 16#20C03 16#20F03 16#11500 ] defE/97 [ 16#1030C 16#20303 16#20600 16#20903 16#2090C 16#10903 16#20C00 & 16#20F03 16#20F0C 16#11500 ] defJ/98 [ 16#1000F 16#2030D 16#20707 16#20000 16#20707 16#20F03 16#11500 ] defE/99 [ 16#10F0F 16#20C0F 16#2090C 16#2070F 16#2020F 16#2000C 16#20007 S 16#20204 16#20704 16#20907 16#2090C _16#20907 16#20C04 16#20F04 16#11500 ] defF/100 [ 16#10C0F 16#2070F 16#2040C 16#20709 16#20C09 16#20F07 16#20F02 B 16#20C00 16#20700 16#20402 16#20407 16#20709 16#11500 ] defF/101 [ 16#10309 16#20F09 16#10F0F 16#2090F 16#2060C 16#20606 16#20903  16#20F03 16#11500 ] defF/102 [ 16#10309 16#2060F 16#2090C 16#20606 16#1090C 16#20C0F 16#20F0C  16#20C00 16#11500 ] defF/103 [ 16#10700 16#20712 16#20315 16#20012 16#20315 16#20712 16#20B15 0 16#20E12 16#20B15 16#20712 16#11500 ` ] defF/104 [ 16#10906 16#20C06 16#20F09 16#20F0C 16#20C0F 16#2090F 16#2060C ' 16#20609 16#20906 16#11500 ] defK/105 [ 16#10615 16#20600 16#10312 16#20912 16#10306 16#20906 16#11500 ] defF/106 [ 16#10615 16#20600 16#10312 16#20912 16#1030C 16#2090C 16#10306  16#20906 16#11500 ] defF/107 [ 16#10303 16#20603 16#20906 16#20C03 16#20F03 16#21206 16#21209 F 16#20F0C 16#20C0C 16#20909 16#2060C 16#2030C 16#20009 16#20006 0 16#20303 16#10909 16#20906 16#11500 ] defF/108 [ 1 a6#10612 16#20600 16#10C0C 16#2090F 16#2030F 16#2000C 16#20006 0 16#20303 16#20903 16#20C06 16#11500 ] def'/109 [ 16#10015 16#21215 16#11500 ] def'/110 [ 16#10009 16#20F09 16#11500 ] def0/111 [ 16#10009 16#20C09 16#20C03 16#11500 ] defB/112 [ 16#10309 16#20900 16#20F09 16#20912 16#20309 16#11500 ] defK/113 [ 16#10303 16#2090F 16#1000C 16#20C0C 16#10006 16#20C06 16#11500 ] defK/114 [ 16#10003 16#20F03 16#10F08 16#20008 16#1000D 16#20F0D 16#11500 ] defB/115 [ 16#10001 16#20F01 16#10F05 b16#2000A 16#20F0F 16#11500 ] defB/116 [ 16#1000F 16#20F0A 16#20005 16#10001 16#20F01 16#11500 ] defK/117 [ 16#10003 16#20B03 16#20E07 16#20E0B 16#20B0F 16#2000F 16#11500 ] defK/118 [ 16#10006 16#20209 16#20509 16#20A03 16#20D03 16#20F06 16#11500 ] defF/119 [ 16#10006 16#20209 16#20509 16#20A03 16#20D03 16#20F06 16#1000A B 16#2020D 16#2050D 16#20A07 16#20D07 16#20F0A 16#11500 ] defB/120 [ 16#10008 16#20F08 16#20B0C 16#20B04 16#20F08 16#11500 ] defB/121 [ 16#10008 16#2040C 16#20404 16#200 c08 16#20F08 16#11500 ] defB/122 [ 16#10800 16#20815 16#20411 16#20C11 16#20815 16#11500 ] defB/123 [ 16#10800 16#20404 16#20C04 16#20800 16#20815 16#11500 ] def/124 [ 16#11500 ] def0/125 [ 16#1000F 16#20700 16#20E0F 16#11500 ] defF/126 [ 16#10F00 16#20C00 16#20903 16#20907 16#2060A 16#2090D 16#20912 ' 16#20C15 16#20F15 16#11500 ] defF/127 [ 16#20300 16#20603 16#20607 16#2090A 16#2060D 16#20612 16#20315  16#20015 16#11500 ] defF/128 [ 16#10309 16#20609 16#20906 16#20903 16#2060 d0 16#20000 16#20003 0 16#20306 16#20906 16#20900 16#11500 ] defF/129 [ 16#10015 16#20003 16#20300 16#20600 16#20903 16#20906 16#20609 0 16#20309 16#20006 16#20000 16#11500 ] defF/130 [ 16#10906 16#20609 16#20309 16#20006 16#20003 16#20300 16#20600  16#20903 16#11500 ] defF/131 [ 16#10915 16#20903 16#20600 16#20300 16#20003 16#20006 16#20309 0 16#20609 16#20906 16#20900 16#11500 ] defF/132 [ 16#10006 16#20906 16#20609 16#20309 16#20006 16#20003 16#20300 ' 16#2060 e0 16#20903 16#11500 ] defK/133 [ 16#10009 16#20609 16#10300 16#2030F 16#20612 16#2090F 16#11500 ] defF/134 [ 16#10303 16#20003 16#20300 16#20900 16#2090C 16#2060F 16#2030F 0 16#2000C 16#20306 16#20906 16#11500 ] defF/135 [ 16#10015 16#20000 16#20006 16#20309 16#20609 16#20906 16#20900  16#11500 ] def9/136 [ 16#1060F 16#2060C 16#10609 16#20600 16#11500 ] defK/137 [ 16#10612 16#2060F 16#1060C 16#20603 16#20300 16#20003 16#11500 ] defF/138 [ 16#10015 16#20006 16#20306 16#20609 1 f6#10000 16#20006 16#20306  16#20600 16#11500 ] def'/139 [ 16#10615 16#20600 16#11500 ] defK/140 [ 16#10000 16#20009 16#20303 16#20603 16#20909 16#20900 16#11500 ] defF/141 [ 16#10009 16#20000 16#20006 16#20309 16#20609 16#20906 16#20900  16#11500 ] defF/142 [ 16#10006 16#20309 16#20609 16#20906 16#20903 16#20600 16#20300 ' 16#20003 16#20006 16#11500 ] defF/143 [ 16#10000 16#20009 16#2030C 16#2060C 16#20909 16#20606 16#20306 ' 16#20009 16#2000C 16#11500 ] defF/1 g44 [ 16#10900 16#20909 16#2060C 16#2030C 16#20009 16#20306 16#20606 ' 16#20909 16#2090C 16#11500 ] defK/145 [ 16#10009 16#20000 16#20006 16#20309 16#20609 16#20906 16#11500 ] defK/146 [ 16#10303 16#20600 16#20903 16#20306 16#20609 16#20906 16#11500 ] def9/147 [ 16#10615 16#20600 16#10309 16#20909 16#11500 ] defF/148 [ 16#10009 16#20003 16#20300 16#20600 16#20903 16#20909 16#20900  16#11500 ] def9/149 [ 16#10009 16#20300 16#20600 16#20909 16#11500 ] defK/150 [ 16#10009 16#200 h00 16#20306 16#20606 16#20900 16#20909 16#11500 ] def9/151 [ 16#10009 16#20900 16#10000 16#20909 16#11500 ] defF/152 [ 16#1000C 16#20009 16#20306 16#20606 16#20909 16#2090C 16#20903 0 16#20600 16#20300 16#20003 16#11500 ] def9/153 [ 16#10009 16#20909 16#20000 16#20900 16#11500 ] defK/154 [ 16#1030F 16#2060F 16#2090C 16#20906 16#20C03 16#20F03 16#11500 ] def9/155 [ 16#10606 16#20615 16#10015 16#20C15 16#11500 ] def9/156 [ 16#10006 16#20309 16#20906 16#20C09 16#11500 ] defF/157 [ 16# i10012 16#20312 16#20315 16#20015 16#20012 16#10912 16#20C12 0 16#20C15 16#20915 16#20912 16#11500 ] def9/158 [ 16#10306 16#2030C 16#10309 16#20F09 16#11500 ] def9/159 [ 16#10309 16#20F09 16#10F06 16#20F0C 16#11500 ] defF/160 [ 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C ' 16#20006 16#20303 16#11500 ] def9/161 [ 16#10000 16#20C00 16#10600 16#20615 16#11500 ] def0/162 [ 16#10015 16#20000 16#20900 16#11500 ] def0/163 [ 16#10000 16#20015 16#20915 16#11500 ] defK j/164 [ 16#10F0F 16#2060F 16#2030C 16#20309 16#20606 16#20F06 16#11500 ] defK/165 [ 16#10600 16#2060C 16#2090F 16#20C0F 16#20F0C 16#20F00 16#11500 ] defK/166 [ 16#1060F 16#20603 16#20900 16#20C00 16#20F03 16#20F0F 16#11500 ] defB/167 [ 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#11500 ] def'/168 [ 16#10000 16#20C00 16#11500 ] defF/169 [ 16#10300 16#20C00 16#10312 16#20C12 16#10612 16#20600 16#10900  16#20912 16#11500 ] def'/170 [ 16#10015 16#20915 16#11500 ] def'/171 [ 16#1030C k16#2090C 16#11500 ] def'/172 [ 16#1000F 16#20C03 16#11500 ] defF/173 [ 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C K 16#20006 16#20303 16#10603 16#2060F 16#10009 16#20C09 16#11500 ] defF/174 [ 16#10003 16#2060F 16#20C03 16#10006 16#20309 16#20906 16#20C09  16#11500 ] defF/175 [ 16#1000F 16#20603 16#20C0F 16#10006 16#20309 16#20906 16#20C09  16#11500 ] defF/176 [ 16#10600 16#20612 16#10003 16#20C03 16#20C03 16#2060F 16#20003  16#11500 ] defKl/177 [ 16#10600 16#20612 16#1000F 16#20C0F 16#20603 16#2000F 16#11500 ] defK/178 [ 16#10000 16#20C00 16#10003 16#20C03 16#2060F 16#20003 16#11500 ] defF/179 [ 16#1000F 16#20603 16#20C0F 16#2000F 16#10006 16#20309 16#20906  16#20C09 16#11500 ] defF/180 [ 16#10003 16#10003 16#20010 16#20415 16#20B15 16#20F10 16#20F03 B 16#10009 16#20F09 16#11503 16#10000 16#20F00 16#11500 ] defF/181 [ 16#10003 16#10003 16#20015 16#20B15 16#20F12 16#20F0F 16#20B0C F 16#2000C 16#10B0C 16#20F09 m16#20F05 16#20B03 16#20003 16#11503 ' 16#10000 16#20F00 16#11500 ] defF/182 [ 16#10003 16#10F05 16#20B03 16#20403 16#20005 16#20012 16#20415 B 16#20B15 16#20F12 16#11503 16#10000 16#20F00 16#11500 ] defF/183 [ 16#10003 16#20015 16#20C15 16#20F12 16#20F05 16#20C03 16#20003 0 16#11503 16#10000 16#20F00 16#11500 ] defF/184 [ 16#10003 16#10F15 16#20015 16#2000C 16#20A0C 16#2000C 16#20003 9 16#20F03 16#11503 16#10000 16#20F00 16#11500 ] defF/185 [ 16#10003 16#10F15 16#2001n5 16#2000C 16#20B0C 16#2000C 16#20003 0 16#11503 16#10000 16#20F00 16#11500 ] defF/186 [ 16#10003 16#10F0F 16#20F12 16#20C15 16#20315 16#20012 16#20005 f 16#20303 16#20C03 16#20F05 16#20F0A 16#20C0A 16#2110A 16#11503 16#10000 16#20F00 16#11500 ] defF/187 [ 16#10003 16#20015 16#2000C 16#20F0C 16#20F15 16#20F03 16#11503 ' 16#10000 16#20F00 16#11500 ] defF/188 [ 16#10003 16#10403 16#20703 16#20715 16#20415 16#20A15 16#20715 B 16#20703 16#20A03 16#11503 16#10000 16#20F00 16 o#11500 ] defF/189 [ 16#10003 16#10008 16#20005 16#20303 16#20C03 16#20F05 16#20F15 0 16#11503 16#10000 16#20F00 16#11500 ] defF/190 [ 16#10003 16#20015 16#20009 16#20F15 16#2070F 16#20F03 16#11503 ' 16#10000 16#20F00 16#11500 ] defF/191 [ 16#10003 16#10015 16#20003 16#20F03 16#11503 16#10000 16#20F00  16#11500 ] defF/192 [ 16#10003 16#20015 16#2070C 16#20E15 16#20E03 16#11503 16#10000  16#20F00 16#11500 ] defF/193 [ 16#10003 16#20015 16#20F03 16#20F15 16#11503 16#1 p0000 16#20F00  16#11500 ] defF/194 [ 16#10003 16#10303 16#20005 16#20012 16#20315 16#20C15 16#20F12 ] 16#20C0F 16#20F12 16#20F05 16#20C03 16#20303 16#11503 16#10000 16#20F00 16#11500 ] defF/195 [ 16#10003 16#20015 16#20C15 16#20F12 16#20F0F 16#20C0C 16#2000C 0 16#11503 16#10000 16#20F00 16#11500 ] defF/196 [ 16#10003 16#10809 16#20E04 16#20C03 16#20303 16#20005 16#20012 f 16#20315 16#20C15 16#20F12 16#20F05 16#20E04 16#20F03 16#11503 16#10000 16#20F00 16#11500 ] defFq/197 [ 16#10003 16#20015 16#20C15 16#20F12 16#20F0F 16#20C0C 16#2000C B 16#2080C 16#20F03 16#11503 16#10000 16#20F00 16#11500 ] defF/198 [ 16#10003 16#10008 16#20005 16#20303 16#20C03 16#20F05 16#20F09 o 16#20C0C 16#2030C 16#2000F 16#20012 16#20315 16#20C15 16#20F12 16#11503 16#10000 16#20F00 16#11500 ] defF/199 [ 16#10003 16#10703 16#20715 16#20015 16#20E15 16#11503 16#10000  16#20F00 16#11500 ] defF/200 [ 16#10003 16#10015 16#20005 16#20303 16#20C03 16#20F05 16#20F15 0 r 16#11503 16#10000 16#20F00 16#11500 ] defF/201 [ 16#10003 16#10015 16#20703 16#20E15 16#11503 16#10000 16#20F00  16#11500 ] defF/202 [ 16#10003 16#10015 16#20003 16#2070B 16#20E03 16#20E15 16#11503 ' 16#10000 16#20F00 16#11500 ] defF/203 [ 16#10003 16#20F15 16#10015 16#20F03 16#11503 16#10000 16#20F00  16#11500 ] defF/204 [ 16#10003 16#10703 16#2070C 16#20015 16#2070C 16#20E15 16#2070C 0 16#11503 16#10000 16#20F00 16#11500 ] defF/205 [ 16#10003 16#10015 16#20F1s5 16#2070B 16#2040B 16#20A0B 16#2070B B 16#20003 16#20F03 16#11503 16#10000 16#20F00 16#11500 ] defF/206 [ 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#10615 16#2060F ' 16#2090F 16#20915 16#11500 ] defF/207 [ 16#10600 16#20609 16#2060C 16#2090F 16#20C0F 16#20F0C 16#20F09 B 16#20C06 16#20906 16#20609 16#10F09 16#20F00 16#11500 ] defF/208 [ 16#10000 16#20F00 16#20F15 16#20015 16#20000 16#10009 16#20F09 o 16#1090C 16#2090F 16#2060F 16#2060C 16#2090C 16#10903 16#20906 16t#20606 16#20603 16#20903 16#11500 ] defF/209 [ 16#10000 16#20C00 16#10600 16#20615 16#1030F 16#2090F 16#20C0C K 16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 ] defF/210 [ 16#10015 16#20C15 16#10615 16#20600 16#1030F 16#2090F 16#20C0C K 16#20C06 16#20903 16#20303 16#20006 16#2000C 16#2030F 16#11500 ] def9/211 [ 16#1030C 16#2090C 16#10000 16#20C15 16#11500 ] def9/212 [ 16#1030C 16#2090C 16#10015 16#20C00 16#11500 ] defF/213 [ 16#10303 16#20903 16#20C06 16#20C0C 1u6#2090F 16#2030F 16#2000C 9 16#20006 16#20303 16#1000F 16#20C03 16#11500 ] def end def /BuildChar { $workingdict begin /charcode exch def /fontdict exch def fontdict /CharArrays get fontdict /Encoding get) charcode get get % get the CharArray gsave 0 setgray newpath 44 0 % width vector 0 0 % lower left% 22 22 setcachedevice % upper right 0 0 moveto { % process CharArray" dup -16 bitshift % extract move+ 1 index -8 bitshift 1v6#ff and %extract x! 2 index 16#ff and % extract y( 2 index 1 eq {moveto} {lineto} ifelse pop pop % compressed, move } forall stroke grestore end } defend%/ZetaFont ZetaFontDict definefont pop/table [8 [/#copies 1 (.nc .ncopies .param1)] % number of copies6 [/scalefact 1.0 (.sf .scale .param2)] % scale factor- [/zFont true (.zfont .param3)] % zeta font3 [/penscale 1.0 (.penscale .param4)] % pen scaling2 [/usepens 0 (.usepens .param5)] % use pen cowlors] deftable { % apply defaults /ta exch def % save array ta 0 get % key ta 1 get % default value def % define default value} forall7currentdict /parser known {parser} if % if user inputsG72. 400. div scalefact mul dup scale % set 400 points/inch scale factor@currentlinewidth penscale mul setlinewidth % re-scale line width2/lTime usertime lTime sub def % save ztp load time%main/doit {> {main} stopped { (error stack:\n) print pstack flush quit} if} defdoitwwy /fillflag false def /pnm 1 defx /fmv true def /sfl false def /ma 0 def /invertflag false def /xflip false deff /yflip false deft /noflips true def /scaleby96 false defs /fNote true def /fBitStretch true def$ /fg (Rvd\001\001\000\000\177) def /bdf{def}bind def /xdf{exch def}bdf! /xl{neg exch neg translate}bdfi" /fp{pnsh 0 ne pnsv 0 ne and}bdf /nop{}bdf /lnop[/nop load]cvx bdf /vrb[ { fpA {gsave 1 setlinewidzth pnsh pnsv scale stroke grestore}ift newpath }bind  /eofill load dup /newpath load 2 index} dupw {clip newpath}bind {}bind dup2 2 copy ]defd) currentscreen/spf xdf/rot xdf/freq xdf  /doop{vrb exch get exec}bdf /psu{ /fNote xdf /fBitStretch xdf /scaleby96 xdf /yflip xdf /xflip xdf: /invertflag xdf xflip yflip or{/noflips false def}if /pgs xdf 2 index .72 mul exch div{ /pys xdf div .72 mul /pxs xdf ppr astore popx /por xdf sn and/so xdf}bdf /txpose{  fNote{smalls}{bigs}ifelset2 pgs get exec pxs pys scale ppr aload pop por {noflips7 {pop exch neg exch translate pop 1 -1 scale}if  xflip yflip and< { pop exch neg exch translate 180 rotate 1 -1 scale9 ppr 3 get ppr 1 get neg sub neg ppr 2 get ppro' 0 get neg sub neg translates }if xflip yflip not and4  {pop exch neg exch translate pop 180 rotate7 ppr 3 get ppr 1 get neg sub neg 0 translate }if yflip xflip not and2 {ppr 1 get neg ppr 0 get neg translate}if }t {noflips4 {translate pop pop 270 rotate 1 -1 scale}if xflip yflip and& { translate pop pop 90 rotate@ 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get. ppr 0 get neg sub neg translate}if xflip yflip not and3 {}f /offset 0 def fonttable 1 get fontset Ee5 save statusdict begin /waittimeout 360 def end} def%mslinedraw begin/FontType 3 def{3/FontMatrix [1.0 30.0 div 0 0 1.0 30.0 div 0 0] deff/FontBBox [0 -8 18 30] def/Encoding 256 array defc(0 1 255 {Encoding exch /.notdef put} for Encoding 45 [i" /sp /sh /sh /light /med /dark. /sv /srj /sdjr /dsjr /sdtr /dstr /djr /dv/ /dtr /dbr /sdbr /dsbr /str /sbl /sjb /sjt / /sjl /sh /sjc /sdjl /dsjl /dbl /dtl /djb 0 /djt /djl /dh /~djc /dsjb /sdjb /dsjt /sdjt0 /sdbl /dsbl /dstl /sdtl /sdjc /dsjc /sbr /stl$ /black /bb /bl /br /bt] putinterval"/a {moveto lineto stroke} bind def)/b {moveto lineto lineto stroke} bind defh&/c {moveto 9 7 lineto stroke} bind def"/d {moveto lineto lineto} bind def#/e {lineto closepath fill} bind def/f {7 30 7 9 0 9 b} defc/g {12 30 12 9 18 9 b} def/h {7 -8 7 5 0 5 b} defs/i {12 -8 12 5 18 5 b} def/j {0 7 18 7 a} def /k {9 22 9 -8 a} def/l {0 5 18 5 a 0 9 18 9 a} def"/m {7 22 7 -8 a 12 22 12 -8 a} def"/n {0 -8 18 -8 18 22 d 0 22 e} def/CharProcs 55 dict defCharProcs begin /.notdef {} defl/sp { 1 1 moveto } def /sv {k} def-/srj {k 0 7 c} def!/sdjr {k 0 5 9 5 a 0 9 9 9 a} defn/dsjr {m 0 7 7 7 a} defe'/sdtr {0 7 12 7 12 -8 b 7 7 7 -8 a} defd$/dstr {0 9 9 9 9 -8 b 0 5 9 5 a} def/djr {f h 12 -8 12 22 a} def /dv {m} deft/dtr {h 0 9 12 9 12 -8 b} defm/dbr {f 0 5 12 5 12 30 b} def'/sdbr {0 7 12 7 12 30 b 7 7 7 30 a} def/$/dsbr {0 5 9 5 9 30 b 0 9 9 9 a} def/str {0 7 9 7 9 -8 b} defd/sbl {9 30 9 7 18 7 b} def/sjb {j 9 30 c} def /sjt {j 9 -8 c} defc/sjl {k 18 7 c} def /sh {j} defl/sjc {j k} def#/sdjl {k 9 9 18 9 a 9 5 18 5 a} def /dsjl {m 12 7 18 7 a} def /dbl {g 7 30 7 5 18 5 b} def/dtl {i 7 -8 7 9 18 9 b} def/djb {f g 0 5 18 5 a} defa/djt {h i 0 9 18 9 a} defd/djl {g i 7 -8 7 22 a} def /dh {l} def/djc {f g h i} def/dsjb {l 9 30 9 9 a} def%/sdjb {j 7 7 7 30 a 12 7 12 30 a} defi/dsjt {l 9 -8 9 5 a} def%/sdjt {j 7 7 7 -8 a 12 7 12 -8 a} def (/sdbl {7 30 7 7 18 7 b 12 30 12 7 a} def&/dsbl {9 30 9 5 18 5 b 9 9 18 9 a} def&/dstl {9 -8 9 9 18 9 b 9 5 18 5 a} def(/sdtl {7 -8 7 7 18 7 b 12 -8 12 7 a} def/sdjc {m j} defe/dsjc {l k} def5/sbr {0 7 9 7 9 30 b} defl/stl {9 -8 9 7 18 7 b} def/light {0.90 setgray n} defi/med {0.60 setgray n} def=/dark {0.30 setgray n} def/black {n} def!/bt {0 7 18 7 18 22 d 0 22 e} def !/bb {0 -8 18 -8 18 7 d 0 7 e} defp!/bl {0 -8 9 -8 9 22 d 0 22 e} defp#/br {9 -8 18 -8 18 22 d 9 22 e} defeend %CharProcs /BuildChar- { fs 1 and 0 eq {1} {3} ifelse setlinewidthv 18 0 setcharwidthh exch begin Encoding exch get CharProcs exch getu execd end  } defeend %mslinedraw %%EndFont %%BeginProcSet: msdict 1.0 0/msdict 100 dict def!FontDirectory /LineDraw known notg) {/LineDraw mslinedraw definefont pop} if msdict begin/SLL {/LL def} def3/P {exch msu exch msu neg ptop add moveto} bind defl)/S {sw 0 32 4 -1 roll widthshow} bind deft,/C {1 string dup 0 4 -1 roll put S} bind def6/J {msu ( ) stringwidth pop sub /sw exch def} bind defB/PE {showpage ptop exch restore save exch /ptop exch def} bind def"/SFL {msu /ptop exch def} bind def%%BeginModelCheck) statusdict begine product (OmniLaser) eq{/ende-/B1 {statusdict begin 0 setpapertray end} def -/B2 {statusdict begin 1 setpapertray end} defs}{end/-/B1 {statusdict begin 1 setpapertray end} def -/B2 {statusdict begin 2 setpapertray end} def-/B3 formname (LANDSCAPE) eq {z /table [i9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesr1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizep3 [/wide true (.wide .w .param3)] % landscape mode)+ [/title false (.title .param4)] % titlen8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per pagee ] def} ifformname (HEADERS) eq {z /table [i9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0{statusdict begin 3 setpapertray end} deff} ifelse%%EndModelCheck(5/MB {statusdict begin /manualfeed true store end} def6/ME {statusdict begin /manualfeed false store end} defJ/scaleenst %% modif Bach-TELECOM Paris { ftxz ftsz eq  {ftsz scalefont}/ { [ftxz 0 0 ftsz 0 0 ] makefont} ifelsel setfont J } def %% modif Bach-TELECOM Paris%/B {fs 2 and 0 eq {Bft} {BIft} ifelsen8 %% ftsz scalefont setfont modif Bach-TELECOM Paris8 scaleenst %% modif Bach-TELECOM Paris# fs 1 or /fs exch def} bind def./E {Eft 8 %% ftsz scalefont setfont modif Bach-TELECOM Paris9 scaleenst %% modif Bach-TELECOM Paris /fs 0 def} bind def %/I {fs 1 and 0 eq {Ift} {BIft} ifelsee8 %% ftsz scalefont setfont modif Bach-TELECOM Paris8 scaleenst %% modif Bach-TELECOM Paris# fs 2 or /fs exch def} bind defn /BI {BIftp8 %% ftsz scalefont setfont modif Bach-TELECOM Paris8 scaleenst %% modif Bach-TELECOM Paris( fs 2 or 1 or /fs exch def} bind def;/LU {currentpoint /uy exch def /ux exch def 1 ssm} bind defi;/LD {currentpoint /uy exch def /ux exch def 2 ssm} bind def];/LS {currentpoint /uy exch def /ux exch def 4 ssm} bind def/L/LL {currentpoint /uy exch def /ux exch def /ldmode exch def 8 ssm} bind def'/LE {smode 1 and 0 ne {false (_) ul} ifl' smode 2 and 0 ne {true (_) ul} if+ smode 4 and 0 ne {false (\352) ul} if . smode 8 and 0 ne {ux uy ldot pop pop} if) not smode and /smode exch def} bind defs/BD {STh ssc} defp/BU {STh neg ssc} def/BN {0 ssy neg rmoveto} deft%%N%% Modif Bach/TELECOM Paris pour changer les fontes fixes - Ajout de variable >%% modif Bach-TELECOM Paris: fonction F de Word5 renommee en H/H {9%% /ftsz exch def voir F et G Bach-TELECOM Parisn/ (-) stringwidth pop 2 div neg /STh exch def] /ftcd exch def f 0 2 fo8% Redefinition des vecteurs pour ISOLATIN1 pseudo DECMCS/reencsmalldict 300 dict def/ReEncodeSmall {reencsmalldict begin  /newcodesandnames exch defn /newfontname exch def /basefontname exch defd* /basefontdict basefontname findfont def+ /newfont basefontdict maxlength dict defx basefontdicta {exch dup /FID ne {dup /Encoding eq$ {exch dup length array copy! newfont 3 1 roll put} $ {exch newfont 3 1 roll put} ifelse}nttable length 1 sub# {dup fonttable exch get ftcd eq 6 {1 add fonttable exch get fontset exit}{pop}ifelse }for E} bind deftI/F { %% Bach-TELECOM Paris: nvelle fonction F 6 dup /ftxz exch def %% ajout Bach-TELECOM Paris< /ftsz exch def %% cf ancienne fonction F de Word H } defiG/G { %% Bach-TELECOM Paris: nvelle fonction < /ftsz exch def %% cf ancienne fonction F de Word; /ftxz exch deftranslate pop pop 90 rotate ppr 3 get pprt, 1 get neg sub neg 0 translate}if yflip xflip not and4 {translate pop pop 270 rotate ppr 2 get ppr. 0 get neg sub neg 0 exch translate }if }x ifelse scaleby96rB {ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy< translate .96 dup scale neg exch neg exch translate }ifs }bdfe# /fr{3 index 3 index xl ppr aloadp5 pop 3 -1 roll 2 mul add 3 1 roll %% ajout pour corps X <> corps Yp H } def%M/msfindfont {dup FontDirectory exch known not {pop /Courier} if findfont} defq,/fontset {dup 0 get msfindfont /Eft exch def, dup 1 get msfindfont /Bft exch def, dup 2 get msfindfont /Ift exch def) 3 get msfindfont /BIft exch defu }defd/msu {20 div} defg0/ssc {dup /ssy exch def 0 exch rmoveto} bind def,/ssm {dup smode or /smode exch def} bind def!/Cf {/Eft /Courier findfont def % /Bft /Courier-Bold findfont def e( /Ift /Courier-Oblique findfont def , /BIft /Courier-BoldOblique findfont def } def /DUL {cc true charpath pathbbox [ newpath exch pop 2 index 2 index moveto cx1 4 -1 roll sub dup 0 rlineto 3 1 roll excht? sub 0 exch rlineto neg 0 rlineto closepath fill} bind defc(/ul {gsave /cc exch def currentpoint popV /cx1 exch def ux uy moveto DUL {grestore gsave ux uy 2.4 sub moveto DUL} if grestore} bind def1/PSe {restore end currentfile closefile} bind def8/ldot {gsave 2 copy currentpoint /y exch def /x exch def newpath; ldmode 0 eq {/offset 0 def 1 setlinewidth [1 7] 4 setdash}e? {ldmode 1 eq {[6 2] 6 setdash /offset STh def .2 setlinewidth}i@ {ldmode 2 eq {[] 0 setdash /offset 1.4 def .2 setlinewidth} if} ifelse} ifelseeB offset sub moveto x y offset sub lineto stroke grestore} bind def+/Ccs /Courier findfont /CharStrings get def )% /OrigName /NewName vector ReEncodeSmalls/ReEncodeSmall { %def/ exch findfont beginr# exch 2 mul addfJ 6 2 roll 3 -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll div! 3 1 roll div exch scale}bdfr /lws{show}bdf /tv{show pop pop}bdfd' /obl{{0.212557 mul}{pop 0}ifelse}bdff) /sfd{ps fg 5 -1 roll get mul 100 div 0tB ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf /fnt{findfont sfd}bdf& /bt{sa 3 1 roll 3 index and put}bdf3 /sa(\000\000\000\000\000\000\000\000\000\000)defeZ /fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf /mx1 matrix def /mx2 matrix def /mx3 matrix def /bu{ > currentpoint currentgray currentlinewidth currentlinecap3 currentlinejoin currentdash exch aload length( fg 5 sfl{1}{0}ifelse put pnsv pnsh7 2t aload pop 3a aload pop mx2 aload pop mx1 aload % pop mtx currentmatrix aload popt; mx3 aload pop ps pm restore/ps xdf mx3 astore pop}bdf  /bn{e6 /pm save def mx3 setmatrix newpath 0 0 moveto ct, dup 39 get 0 exch getinterval cvx execF mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop( 2t astore pop/pnsh xdf/pnsv xdf gwM /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecapp% setlinewidth setgray moveto}bdf& /fc{save vmstatus exch sub 50000 lt4 {(%%[|0|]%%)=print flush}if pop restore}bdf= /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf /3a [0 0 0] def /2t 2 array def /tp{3a astore pop}bdf /tt{m< mx 2 currentmatrix pop currentpoint 2 copy 2t aload pop4 qa 2 copy translate 3a aload pop exch dup 0 eq {pop}l$ {1 eq{-1 1}{1 -1}ifelse scale}> ifelse rotate pop neg exch neg exch translate moveto}bdf /te{mx2 setmatrix}bdfR /th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale/sfl true def}bdf1 /tu{1 1 mx1 itransform scale/sfl false def}bdf3/ /ts{1 1 mx1 transform scale/sfl true def}bdf  /fz{/ps xdf}bdf# /dv{dup 0 ne{div}{pop}ifelse}bdf1 /pop4{pop pop pop pop}bdf /it{sfl{mx1 itransform}if}bdf+ /gm{exch it moveto}bdf/rm{it rmoveto}bdfrK /lm{currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}bdfc& /fm{statusdict/manualfeed known}bdf. /se{statusdict exch/manualfeed exch put}bdf /mf{dup/ma exch def 0 gtb# {fm se/t1 5 st ok ma 1 gt and0C {/t2 0 st/t3 0 st statusdict/manualfeedtimeout 3600 put}ifw }if } bdfoJ /jn{/statusdict where exch pop{statusdict exch /jobname exch put}if}bdf? /pen{pn m mul/pnsh xdf pnm mul/pnsv xdf pnsh setlinewidth}bdf/! /min{2 copy gt{exch}if pop}bdf.! /max{2 copy lt{exch}if pop}bdf@A /dh{fg 6 1 put array astore exch pop exch pop exch setdash}bdfc /ih[currentdash]def* /rh{fg 6 0 put ih aload pop setdash}bdf3 /dl{gsave nlw pys div setlinewidth 0 setgray}bdf 5 /dlin{exch currentpoint currentlinewidth 2 div dup4J translate newpath moveto lineto currentpoint stroke grestore moveto}bdf /lin{fg 6 get 0 ne . {exch lineto currentpoint currentdict dup length dict begin75 { 1 index /FID ne {def} {pop pop} ifelse } forall4 /FontName exch def /Encoding foreignvec def currentdict dup end end## /FontName get exch definefont pop } bind def/Foreign { ReEncodeSmall } def//foreignvec StandardEncoding 256 array copy defi6% the following are differences from StandardEncoding.,% Sequential entries do not require indices:&0 [ 21/section 39/quotesingle 96/grave3128/Ccedilla/udieresis/eacute/acircumflex/adieresis,/agrave/aring/ccedilla/ecircumflex/edieresis./egrave/idieresis/icircumflex/igrave/Adieresis/Aring/Eacute/ae/AE/ocircumflex/./odieresis/ograve/ucircumflex/ugrave/ydieresis6/Odieresis/Udieresis/cent/sterling/yen/P/florin/aacute//iacute/oacute/uacute/ntilde/Ntilde/ordfeminined*/ordmasculine/questiondown/.notdef/.notdef;/onehalf/onequarter/exclamdown/guillemotleft/guillemotrighta7/Aacute/Acircumflex/Agrave/Atilde/Ecircumflex/Edieresist2/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute4/Ocircum 0 doop moveto}I {exch currentpoint/pnlv xdf/pnlh xdf gsave newpath/@1 xdf/@2 xdf fp4 {pnlh @2 lt {pnlv @1 gee< {pnlh pnlv moveto @2 @1 lineto pnsh 0 rlineto: 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}L {pnlh pnlv moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv9 rlineto pnsh neg 0 rlineto pnlh pnlv pnsv add lineto}v ifelsev }{ pnlv @1 gt7 {@2 @1 moveto pnsh 0 rlineto pnlh pnsh add pnlvs lineto 0 pnsv rlineto. pnsh neg 0 rlineto @2 @1 pnsv add lineto}( {pnlh pnlv moveto pnsh 0 rlinetoE 0 pnsv rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlinetod 0 pnsv neg rlinetoh }ifelse/ }ifelse closepath filld" }if @2 @1 grestore moveto }ifelse }bdf ) /gw{/pnm fg 3 get fg 4 get div def}bdfsA /lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf, /barc{/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf! /@6 xdf/@7 xdf/@8 xdf gsavedB @5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 movetoC @5 @7 sub @6 @8 sub mtx currentmatrix pop scale @1{newpath}if@9 0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}ife( mtx setmatrix @2 doop grestore}bdf /ar{dup 0 eq barc}bdf$ /ov{0 exch 360 exch true barc}bdfH /rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2 roll exch movetoA 6 -1 roll lineto lineto lineto closepath @t doop moveto}bdf13 / mup{dup pnsh 2 div le exch pnsv 2 div le or}bdfh /rr{t) /@1 xdf 2. div/@2 xdf 2. div/@3 xdfe" /@4 xdf/@5 xdf/@6 xdf/@7 xdf7 @7 @5 eq @6 @4 eq @2 mup or or{@7 @6 @5 @4 @1 rc}75 {@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelses7 @5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse F @1 0 eq{/@2 @2 pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}if currentpoint newpathr# @4 @6 add 2. div @7 movetod" @4 @7 @4 @5 @2 arcto pop4" @4 @5 @6 @5 @2 arcto pop4" @6 @5 @6 @7 @2 arcto pop4" @6 @7 @4 @7 @2 arcto pop4! closepath @1 doop movetoe }ifelse  }bdf> /pr{gsave newpath/pl{exch moveto/pl{exch lineto}def}def}bdf /pl{exch lineto}bdf /ep{  dup 0 eq{ ; {moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforallc pop grestoret }o; {doop grestore}ifelse currentpoint newpath moveto}bdf  /gr{64. div setgray}bdf /pat{, s8 copy pop 9.375 pa por not{90 ad d}ifM {1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and}n setscreen gr}bdf) /sg{freq rot/spf load setscreen gr}bdfeC /dc{transform round .5 sub exch round .5 sub exch itransform}bdf ! /sn{userdict/smooth4 known}bdfi /x8{3 bitshift}bdfe /x4{2 bitshift}bdf{ /d4{-2 bitshift}bdf /d8{-3 bitshift}bdf( /rb{15 add -4 bitshift 1 bitshift}bdfM /db{/@7 save def/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 @5 @3 4 add mul defdi dc translate scale/xdbit 1 1 idtransform abs/ydbit exch def abs def{0 0 1 ydbit add 1 10 rc clip}if @ @1 0 eq @1 4 eq or{1 setgray ydbit 0 1 ydbit add 1 2 rc}ifk @1 3 eq @1 7 eq or{1}{0}ifelse setgray/@9 @1 0 eq @1 1 eq @1 3 eq or or invertflag xor def/@13 @6 def @2 fBitStretch or{/@10 @4 x4 def/@11 @3 x4 def/@12 @10 rb def/@13 @12 @11 mul def/@15 1 1 dtransform abs/calcY 1 index def round cvi/@14 exch def f abs/calcX 1 index def round cvi scaleby96 not{1 add}if def/@16 @15 rb def/@17 @16 @14 mul def}if sn @13 60000 lt and @2 fBitStretch or and{mtx currentmatrix dup 1 get exch 2 get 0. eq exch 0. eq and @17 60000 lt and fBitStretch and{@16 3 bitshift @14 @9 [calcX 0 0 calcY 0 0]{@17 string @13 stringM currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4 y @10 @11 @12 dup string 5 index @15 @14 @16 dup string stretch}imagemask}{@12 x8 @11 @9 [@10 0 0 @11 0 0]{@13 string3 currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4}imagemas k}ifelse}{@5 3 bitshift @3 4 add @9 [@4 0 0 @3 0 2]{currentfile @6 string readhexstring pop}imagemask}ifelse @7 restore}bdf /wd 16 dict def /mfont 14 dict def0F /mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end}bdf5 /cf{{1 index/FID ne{def}{pop pop}ifelse}forall}bdf  /rf{/@1 exch def/@2 exch def  FontDirectory @2 known {cleartomark pop}; { findfont dup begin dup length @1 add dict begin cf7 {/Encoding macvec def}< { Enco ding dup length array copy/Encoding exch def; counttomark 2 idiv{Encoding 3 1 roll put}repeat  }ifelse pop8 exec currentdict end end @2 exch definefont pop }ifelse  }bdf  /bmbcO { exch begin wd begin /cr xdf save CharTable cr 6 mul 6 getinterval{}forall r /bitheight xdf/bitwidth xdf .96 div/width xdf Gkernmax add/XOffset xdf Gdescent add/YOffset xdf/rowbytes xdf2 rowbytes 255 eq {0 0 0 0 0 0 setcachedevice}_ { Gnormsize dup scale width 0 XOffset YOffset bitwidth XOffset add bitheight YOffset add % setcachedevice rowbytes 0 nenT { XOffset YOffset translate newpath 0 0 moveto bitwidth bitheight scale sn$ { /xSmt bitwidth x4 def /ySmt bitheight x4 def /rSmt xSmt rb def8 rSmt x8 ySmt truec" [xSmt 0 0 ySmt neg 0 ySmt]d { rSmt ySmt mul string CharData cr get 1 index bitwidth bitheight rowbytes rSmt so smooth4}0 }{ rowbytes 3 bitshift bitheight 4 add true6 [bitwidth 0 0 bitheight neg 0 bitheight 2 add] {CharData cr get}f }ifelse imagemask }if }ifelsep restore end end} }bdf L /bb{.96 exch div/Gnormsize mdf 2 index /Gkernmax mdf 1 index/Gdescent mdf2 3 index div 4 1 roll 2 index div 1. 5 2 roll3 exch div 4 1 roll 4 array astore/FontBBox mdfe }bdfc+ /cdf{mfont/CharData get 3 1 roll put}bdf  /bf{c mfont begin  /FontType 3 def # /FontMatrix [1 0 0 1 0 0] defo /Encoding macvec def /BuildChar/bmbc load def endw mfont definefont pop }bdf  /wi LW 1 eq { {gsave 0 0 0 0 0 0 0 0 moveto lineto lineto lineto closepath clip stringwidth grestore}bind}{/stringwidth load}ifelse defe /aps{0 get 124 eq}bdf /xc{s75 cvs dup}bdf /xp{put cvn}bdf# /scs{xc 3 67 put dup 0 95 xp}bdfa /sos{xc 3 79 xp}bdf /sbs{xc 1 66 xp}bdf /sis{xc 2 73 xp}bdf /sob{xc 2 79 xp}bdf /sss{xc 4 83 xp}bdf- /dd{exch 1 index add 3 1 roll add exch}bdf  /smc{moveto dup lws}bdf: /kwn{FontDirectory 1 index known{findfont exch pop}}bdf$ /gl{1 currentgray sub setgray}bdf% /mm{/mfont 10 dict def mfont begin # /FontMatrix [1 0 0 1 0 0] defg /FontType 3 def  /Encoding macvec def /df 4 index findfont def /FontBBox [0 0 1 1] def3 /xda xdf/mbc xdfV /BuildChar{wd begin/cr xdf/fd xdf/cs s1 dup 0 cr put def fd/mbc get exec end}def# exec end mfont definefont}bdf- /ac{dup scs kwn2 { exch findfont dup length 1 add dict begin' cf fmv{/Encoding macvec def}ifxI /StrokeWidth nlw 1000 mul pys div ps div dup 12 lt{pop 12}if def85 /PaintType 2 def currentdict /UniqueID knownq1 {/UniqueID UniqueID 16#A80000 xor def}if # currentdict end definefont }ifelse4 }bdf 4 /mb{dup sbs kwn{exch{pop}{bbc}{}mm}ifelse sfd}bdf4 /mo{dup sos kwn{exch{pop}{boc}{}mm}ifelse sfd}bdf4 /ms{dup sss kwn {exch{pop}{bsc}{}mm}ifelse sfd}bdfQ /ou{dup sos kwn{exch dup ac pop{scs findfont /df2 xdf}{aoc}{}mm}ifelse sfd}bdflQ /su{dup sss kwn{exch dup ac pop{scs findfont /df2 xdf}{asc}{}mm}ifelse sfd}bdfe3 /ao{/fmv true def ou}bdf/as{/fmv true def su}bdf/5 /vo{/fmv false def ou}bdf/vs{/fmv false def su}bdfe% /bbc{/da .03 def fd/df get setfont H gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth7 cs 0 0 smc da 0 smc da da smc 0 da moveto lws}bdf * /boc{/da 1 ps div def fd/df get setfontH gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidthL cs 0 0 smc da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf /bsc{/da 1 ps div def5 /ds .05 def/da2 da 2. div def fd/df get setfonttP gsave cs wi 1 index 0 ne{exch ds add da2 add exch}if grestore setcharwidth@ cs ds da2 add .01 add 0 smc 0 ds da2 sub translate 0 0 smcA da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdfe /aoc{fd/df get setfontg' gsave cs wi grestore setcharwidth0< gl cs 0 0 smc fd/df2 get setfont gl 0 0 moveto lws}bdf% /asc{/da .05 def fd/df get setfontlH gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth9 cs da .01 add 0 smc 0 da translate gl 0 0 smc gl fd) /df2 get setfont 0 0 moveto lws}bdflH /st{1000 mul usertime add dup 2147483647 gt{2147483647 sub}if def}bdf9 /the{usertime sub dup 0 lt exch -2147483648 gt and}bdfc /6a 6 array def /2a 2 array def /3q 3 array def0 /qs{3 -1 roll sub exch 3 -1 roll sub exch}bdf0 /qa{3 -1 roll add exch 3 -1 roll add exch}bdf- /qm{3 -1 roll 1 index mul 3 1 roll mul}bdf{ /qn{6a exch get mul}bdf+ /qA .166667 def/qB .833333 def/qC .5 def /qx{6a astore pop/ qA 0 qn qB 2 qn add qA 1 qn qB 3 qn add/ qB 2 qn qA 4 qn add qB 3 qn qA 5 qn addg3 qC 2 qn qC 4 qn add qC 3 qn qC 5 qn add}bdfc$ /qp{6 copy 12 -2 roll pop pop}bdf /qc{exch qp qx curveto}bdf /qi{e? {exch 4 copy 2a astore aload pop qa .5 qm newpath moveto}l8 {exch 2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}bdfK /qq{{qc 2a aload pop qx curveto}{exch 4 copy qs qa qx curveto}ifelse}bdfE& /pt{currentpoint newpath moveto}bdf /qf{/fillflag true def}bdfS /ec{1 and 0 ne{0 doop}if A grestore currentpoint newpath moveto/fillflag false def}bdfoR /eu{currentpoint fp{0 ep}{grestore newpath}ifelse moveto/fillflag false def}bdf- /bp{currentpoint newpath 2 copy moveto}bdfO2 /ef{gsave fillflag{gs ave eofill grestore}if}bdf' /sm{0 exch{@1 eq{1 add}if}forall}bdfa /lshow{ 4 1 roll exch/@1 exch defcA {1 index wi pop sub 1 index sm dv 0 @1 4 -1 roll widthshow}sG { 1 index wi pop sub 1 index dup sm 10 mul exch length 1 sub addl= dv dup 10. mul 0 @1 4 -1 roll 0 6 -1 roll awidthshowg }ifelse}bdfd; /setTxMode{sa 9 2 index put 3 eq{1}{0}ifelse setgray}bdfg /SwToSym{< {}mark false/Symbol/|______Symbol 0 rf 0 sa 6 get 0 ne+ {pop 1}{sa 7 get 0 e q{pop 2}if}ifelseo! sa 1 get 0 ne/|______Symbolo? sa 4 get 0 ne{vs}{sa 3 get 0 ne{vo}{fnt}ifelse}ifelse}bdf/, /mc{0 3 1 roll transform neg exch pop}bdf! /ul{dup 0 ne sa 2 get 0 ne ando { gsave 0 0. /UnderlinePosition kif{mc}{ps -10 div}ifelse. /UnderlineThickness kif{mc}{ps 15 div}ifelse, abs setlinewidth neg rmoveto sa 4 get 0 neJ { gsave currentlinewidth 2. div dup rmoveto currentpoint newpath moveto& 2 copy rlineto stroke grestore}if sa 3 get sa 4 get or 0 nee? { gsave gl 2 copy rlineto stroke grestore rlineto strokepathb nlw pys div setlinewidth} {rlineto}ifelseo stroke grestore2 }{pop}ifelse}bdf7 /sgt{2 copy known{get true}{pop pop false}ifelse}bdfi8 /kif{currentfont dup/FontMatrix get exch/FontInfo sgt {true} { currentfont/df sgtf { dup/FontInfo sgtd9 {3 1 roll/FontMatrix get mtx concatmatrix exch true}6 {pop pop pop false} ifelsem }{pop pop false}ifelse }ifelsed> {3 -1 roll s gt{exch true}{pop false}ifelse}{false}ifelse }bdf/< /blank/Times-Roman findfont/CharStrings get/space get def /macvec 256 array def; /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI}> /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US% macvec 0 32 getinterval astore pop{. macvec 32/Times-Roman findfont/Encoding getK 32 96 getinterval putinterval macvec dup 39/quotesingle put 96/grave putrE /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacutevD /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egraveK /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacutetK /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis C /dagger/degree/cent/sterling/section/bullet/paragraph/germandblsD /registered/copyright/trademark/acute/dieresis/notequal/AE/OslashJ /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation@ /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslashU /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleftn< /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oeP /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozengeL /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/flc /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute3K /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex4D /apple/Og rave/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tildeA /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron ( macvec 128 128 getinterval astore pop* {}mark true/Courier/|______Courier 0 rfO { /Metrics 21 dict begin/zero 600 def/one 600 def/two 600 def/three 600 defmH /four 600 def/five 600 def/six 600 def/seven 600 def/eight 600 def? /nine 600 def/comma 600 def/period 600 def/dollar 600 def E /numbersign 600 def/percent 600 def/plus 600 def/hyphen 600 deflC /E 600 def/parenleft 600 def/parenright 600 def/space 600 defS4 currentdict end def currentdict/UniqueID known! {/UniqueID 16#800000 def}if%0 /FontBBox FontBBox 4 array astore def}mark% true/Helvetica/|______Seattle 1 rf%' /oldsettransfer/settransfer load defg /concatprocs{0 /proc2 exch cvlit def/proc1 exch cvlit def6 /newproc proc1 length proc2 length add array defH newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cv x}def3> /settransfer{currenttransfer concatprocs oldsettransfer}def /PaintBlack{tP {1 exch sub}settransfer gsave newpath clippath 1 setgray fill grestore}def /od{u2 (Rvd\001\001\000\000\177) fg copy pop txpose< 1 0 mtx defaultmatrix dtransform exch atan/pa exch def newpath clippath mark:$ {transform{itransform moveto}}$ {transform{itransform lineto}}D { 6 -2 roll transform 6 -2 roll transform 6 -2 roll transformO {itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}sE {{closepath}}pathforall newpath counttomark array astore/gc xdfd pop ct 39 0 putrD 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}bdf /cd{}bdfd% /op{/sfl false def/pm save def}bdff /cp{not {userdict/#copies 0 put}if% ma 0 gt{{t1 the{exit}if}loop}if{/ {copypage}{showpage}ifelse pm restore}bdf  /px{0 3 1 roll tp tt}bdfY /psb{/us save def}bdf /pse{us restore}bdf /ct 40 string def /nc{ & currentpoint initclip newpath gcD {dup type dup/arraytype eq exch/packedarraytype eq or{exec}if}$ forall clip newpath moveto}bdfK /kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf /bigs [lnopl lnop lnopd lnopc lnopb lnopd lnopn lnopL lnop] def /smalls [lnopo dup lnope lnopa 2 index lnop lnopu lnop lnop ]- def.end%!PS-Adobe-2.0+%%%%revue et corrige par DAUPHIN pour LPS40 %%%Title: Logo TELECOM PARIS%%%BoundingBox: 39 613 499 808(%%%IncludeProcSet: "(AppleDict md)" 67 0%%%EndComments %%%EndProlog%%%BeginDocumentSetup<md begin %%%%%@@@@@@@ on met les definition du logo dans md/logo$tel_paris_part1 {% md begin/T T -30 -28 811 566 100 72 72 3 F F F F T T psuf0 mfod%%%EndDocumentSetupeop0 0 xl1 1 pene0 0 gm(nc 0 0 781 538 6 rc)kps64 grr-1 -1 0 0 4 rcpsbl%%%DocumentFonts:Courier %%%+Helveticaipsedbu fcn*{}mark T /Helvetica /|______Helvetica 0 rfbn 1 setTxModep0 fs1 fzbu fca2 F /|______Helvetica fnttbn( )show psbt%%%EndComments/showpage{}def/copypage{}def[1 0 0 -1 0 neg 0]concat)%%%BeginProcSet:Adobe_Illustrator_1.1 0 0n2/Adobe_Illustrator_1.1 dup 100 dict def load begin/Version 0 def/Revision 0 def %% definition operators{/bdef {bind def} bind def2/ldef {load de f} bdefn/xdef {exch def} bdef %% graphic state operators7/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdefn/_k /setcmybcolor whererO{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse defo&/g {/_b xdef /p {_b setgray} def} bdef&/G {/_B xdef /P {_B setgray} def} bdefE/k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdeffE/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef{/d /setdash ldef/_i currentflat def&/i {dup 0 eq {pop _i} if setflat} bdef/j /setlinejoin ldef/J /setlinecap ldefo/M /setmiterlimit ldef/w /setlinewidth ldef %% path construction operators /_R {.25 sub round .25 add} bdef//_r {transform _R exch _R exch itransform} bdef}/c {_r curveto} bdef /C /c ldef*/v {currentpoint 6 2 roll _r curveto} bdef /V /v ldef/y {_r 2 copy curveto} bdef% /Y /y ldef/l {_r lineto} bdef9 /L /l ldef/m {_r moveto} bdef%% error operators /_e [] def>/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d-/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966rT_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef/_fill {{fill} stoppedQ{/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdefc/_stroke {{stroke} stoppedS{/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdefo%% path painting operators/n /newpath ldef /N /n ldef/F {p _fill} bdefs/f {closepath F} bdefo/S {P _stroke} bdef./s {closepath S} bdefd/B {gsave F grestore S} bdef/b {closepath B} bdefa1%% text block construction and painting operatorsn/_s /ashow ldefeQ/_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrixlJ_stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef#/_A {_a moveto _t exch 0 exch} bdefr2/_L {0 _l neg translate _G currentmatrix pop} bdefF/_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef`/_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] defU/z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdefn/_g matrix def/_G matrix defA/_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdefd /e {_D p /t {_A _s _L} def} bdef /r {_D P /t {_A _S _L} def} bdef,/a {_D /t {dup p _A _s P _A _S _L} def} bdef/o {_D /t {pop _L} def} bdef/T {grestore} bdef%% group construction operators8 /u {} bdef /U {} bdef%% font construction operators4/Z {findfont begin currentdict dup length dict beginR{1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 neD{/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eqJ{Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop?currentdict dup end end /FontName get exch definefont pop} bdef.end5} def %%%%%%%%%%%%%end part1 %%%EndProcSet4 %%%EndProlog %%%BeginSetup5/logo$tel_paris_part2 {.Adobe_Illustrator_1.1 beginn.%%%%BeginEncoding:_Helvetic a Helveticac[4L39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/OdieresisK/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute4H/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntildeE/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex5K/udieresis/dagger/.notdef/cent/sterling/section/bullet/paragraph/germandbls4@/registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash</.notdef/.notdef/.notdef/.notdef/yen/.notd`şu0@/inch {72 mul} def /lmarg 0.75 inch def /rmarg 7.75 inch defK/tab1 2.1 inch def /wfull rmarg lmarg sub def /windent rmarg tab1 sub deflG/itty 8 def /medium1 10 def /medium2 12 def /big1 18 def /bigger 26 def /huge 34 def /border 5 defB/bold /Helvetica-Bold findfont def /plain /Helvetica findfont defB/pf8 plain itty scalefont def /pf10 plain medium1 scalefont defB/bf12 bold medium2 scalefont def /bf18 bold big1 scalefont def @/bf26 bold bigger scalefont def /bf34 bold huge scalefont defO/center { dup stringwidth pop 2 div 4.25 inch exch sub ypos moveto } bind def e</nextline { /ypos ypos fontheight 1.3 mul sub def } bind def3/downalittle {/ypos ypos 0.3 inch sub def} bind defnI/chop { /width_to_fit exch def /text exch def /print_proc exch def) /INDEX 0 def /strlen text length defdF /do_a_line { text prevchar INDEX prevchar sub getinterval print_proc, /prevchar INDEX def /accum 0 def } def1 /do_many_lines { /prevchar 0 def /accum 0 defwL { text INDEX 1 getinterval stringwidth pop accum add /accum exch def) accum width_to_fit gt {do_a_line} ife= /INDEX INDEX 1 add def INDEX strlen eq {exit} if } looptF text prevchar strlen prevchar sub getinterval print_proc } def K text stringwidth pop width_to_fit gt {do_many_lines} {text print_proc} e ifelse } def K/join2str {/str2 exch def /str1 exch def str1 length str2 length add string_E /newstring exch def str1 newstring copy pop /INDEX str1 length defq7 newstring INDEX str2 putinterval newstring } def K/get_marg { sfact mul sub } def o3/sfonts { /srnd { sfact mul round sfact div } defE /itty itty srnd def /medium1 medium1 srnd def /medium2 medium2 srndrL def /big1 big1 srnd def /bigger bigger srnd def /huge huge srnd def } def G/difpage { clippath pathbbox /ury exch def /urx exch def /lly exch def cM /llx exch def urx llx sub 612 div dup ury lly sub 792 div dup 3 1 roll ge O { exch pop} {pop} ifelse dup 1.0 dup 3 1 roll ge { exch pop } {pop} ifelse eK /sfact exch def ury lly sub 792 get_marg /upy exch def urx llx sub 612 hI get_marg 2 div /overx exch def overx upy translate sfact dup scale x* sfact 1.0 ne {sfonts} if } def % difpage% individual components of page7F/do_jobnumber { /bigjob {bf34 setfont /fontheight huge def 0.6 setgray9 jobstr nextline center show 0 setgray nextline} def 7 /smalljob {bf26 setfont /fontheight bigger def jobstre? nextline center show nextline} def (JOB ) tjobnum join2str G /jobstr exch def jfswitch (JOB) eq {bigjob} {smalljob} ifelse } def 1/do_jfname { jfswitch (FILE) eq {0.6 setgray} if n& bf26 setfont /fontheight bigger defB {xpos ypos moveto center show nextline} the_jfname wfull chop) 0 currentgray ne {0 setgray} if } def eG/do_value { { tab1 ypos moveto show nextline} value windent chop } defxP/do_sectionitem { value () ne { lmarg ypos moveto label show do_value} if } def 4/do_sectionb { bf12 setfont /fontheight medium2 def? /resety { the_filespec stringwidth pop windent div ceilingjA 4 lt {/ypos 5.0 inch def} {/ypos 5.5 inch def} ifelse } def _: the_filespec () eq {/ypos 4.5 inch def} {resety} ifelse< the_account (Compte:) the_uic (Proprietaire:)A tmodified (Derniere MAJ:) the_filespec (Fichier:) iC 1 1 4 {pop /label exch def /value exch def do_sectionitem } fore% /ypos ypos 0.5 inch sub def } def f8/do_sectionc { pf10 setfont /fontheight medium1 def ,jfswitch (FILE) eq { /tdatestart () def } if vmsvers (version VMS:)& tdatestart (Debut d'impression:) O tprintnode (Noeud d'impression:) the_printq (File d'impression:) tdatesubmittV (Heure de soumission:) the_submitq (File de soumission:) the_priority (Priorite:)+ tlongrec () eq {/recstring tlongrec def}n8 {/recstring tlongrec ( octets) join2str def} ifelse / t_filelen () eq {/filelen_str t_filelen def}l: {/filelen_str t_filelen ( blocs) join2str def} ifelseB recstring (Taille ligne max.:) filelen_str (Taille du fichier:)I 1 1 9 { pop /label exch def /value exch def do_sectionitem} for } def fN/do_border { burst (BURST) eq { clippath pathbbox /addabit{ border 3 mul add}O def /subabit {border 3 mul sub} def newpath /ury exch def /urx exch def cA /lly exch def /llx exch def border setlinewidth 2 setlinecap eM llx addabit lly addabit moveto urx subabit lly addabit lineto urx subabit xN ury subabit lineto llx addabit ury subabit lineto llx addabit lly addabit  lineto stroke } if } def/do_flagpage { do_border %oG the_note () eq {/ypos 10.0 inch def} {/ypos 10.3 inch def} ifelse %}F pf8 setfont /fontheight itty def () the_note ne ? { /the_note_string (Commentaires: ) the_note join2str defiH {lmarg ypos moveto show nextline} the_note_string wfull chop} if %& jfswitch (JOB) eq {downalittle} if = bf26 setfont /xpos lmarg def /fontheight bigger defbN nextline the_clientuser ( ) search { 3 1 roll pop pop} if center show %I downalittle do_jobnumber downalittle do_jfname do_sectionbo do_sectionc userdict /md known { save md begin 185 130 moveto 2551 1081 39.00 613.00 499.00 808.00 startFig logo$tel_paris endFig end restore  }{rL bf12 setfont lmarg 1.0 inch moveto (Digital Equipment Corporation) show %> bf18 setfont lmarg 0.7 inch moveto (Version VMS) show vmsvers show %N (PrintServer 40) dup rmarg exch stringwidth pop sub 0.7 inch moveto show % } ifelse showpage  } def do_flagpageowwpage ww 7 { /the_note_string (NOTE: ) the_note join2str def H {lmarg ypos moveto show nextline} the_note_string wfull chop} if %& jfswitch (JOB) eq {downalittle} if = bf26 setfont /xpos lmarg def /fontheight bigger defeN nextline the_clientuser ( ) search { 3 1 roll pop pop} if ef/.notdef/.notdefC/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslashcB/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdefI/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe F/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/.notdefK/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglrightgG/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousandiC/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/IcircumflexnF/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/UcircumflexE/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedillac/hungarumlaut/ogonek/caron]/_Helvetica/Helvetica Z} defI%%%EndEncoding %%%EndSetupy/logo$tel_paris_part3 {i0 g_0 Ge0 iw0 Js0 jr1 w10 M[]0 do%%%Note:384.375 -56.375 m 0379.899 -58.308 355.952 -67.724 341.875 -72.25 c+327.875 -76.75 298.25 -84.625 283.375 -88 ce(280.003 -88.765 253.125 -94 246.75 -94 c+240. 375 -94 235.25 -90.509 235.25 -82.875 cr(235.25 -78.375 241 -69.5 242.5 -66.625 c$244 -63.75 248 -58.125 249 -56.875 c(250 -55.625 251.5 -54.25 251.5 -52.125 c*251.5 -50 249.125 -50.375 245.875 -51.25 C,234.625 -53.625 161.375 -72 101.875 -68.75 c*93.886 -68.313 46.125 -70 12.625 -55.375 C23.375 -39.5 L-61.862 -49.956 96.153 -51.82 110.375 -51.75 cm*161.125 -51.5 212.125 -46 257.375 -36.25 C260.937 -53.375 L -259.437 -54.5 250.875 -65.375 248.5 -68.375 cr,246.125 -71.375 240.25 -78.75 240.25 -83.5 c/240.25 -88.625 241.663 -90.753 246.75 -90.125 ce$270 -87.25 289 -82.75 353.5 -60.25 C#420.5 -33.25 459.125 -10 466 -4.5 C469.5 -15.125 L ,466.5 -17.25 448.625 -26.25 438.875 -31.25 c1435.136 -33.167 403.486 -48.514 384.375 -56.375 cnFe0.25 w299.25 -115.75 m*299.25 -131 316.75 -139.25 332.5 -139.25 c} defd/logo$tel_paris_part4 {c(348.25 -139.25 364 -129.25 364 -116.25 c&364 -103.25 350 -92.75 332.25 -92.75 c,314.5 -92.75 299.25 -101.75 299.25 -115.75 cfe1 g 330.625 -95.5 md)345.875 -95.5 355.625 -105 355.625 -117 cf1355.625 -127.25 346.125 -136.75 332.125 -136.75 cf*317.375 -136.75 308.5 -126.5 308.25 -117 c*308 -107.503 316.375 -95.5 330.625 -95.5 cfy0 g/363.75 -138.25 m 379 -93.75 l 397 -128 l 416.75 -94 l431.062 -138.5 l422.25 -138.5 li412.75 -107.75 l 394.25 -139 l/377.25 -107.25 l 367 -138.25 l 363.75 -138.25 lf ua236.5 -96.75 m 236.5 -94 Lp 191 -94 Lc 191 -96.75 L236.5 -96.75 Lf 213.75 -95.375 mFnUdup23&6.625 -138.5 m236.625 -135.75 L 191.125 -135.75 L 191.125 -138.5 L236.625 -138.5 Lf 213.875 -137.125 mFU uu236.375 -117.5 m236.375 -114.75 L}190.875 -114.75 L 190.875 -117.5 L236.375 -117.5 Lfs213.625 -116.125 mFeU uo136.875 -96.875 mc136.875 -94.125 L 91.375 -94.125 L91.375 -96.875 L136.875 -96.875 Lxf114.125 -95.5 mF Uxup137 -138.625 m137 -135.875 L91.5 -135.875 Lp91.5 -138.625 L 137 -138.625 L} defn/logo$tel_paris_part5 { +fp114.25 -137.25 mF U us136.75 -117.625 me136.75 -114.875 L 91.25 -114.875 L91.25 -117.625 L136.75 -117.625 Lifs 114 -116.25 meFxUp 142.75 -94 m 151.5 -94 lp 151.5 -136 l 186.5 -136 l186.5 -138.5 l142.75 -138.5 l 142.75 -94 lf 39 -79 m 431.875 -79 l 431.875 -81.937 le 39 -81.937 l39 -79 lf u187.75 -97.75 m87.75 -93.875 L 39 -93.875 L 39 -97.75 L 87.75 -97.75 Lf 63.375 -95.812 mFlU u 67.875 -138.75 m67.875 -97.75 Lt 59 -97.75 L 59 -138.75 L67.875 -138.75 Lf863.437 -118.25 mF U 294.625 -126.687 m294.625 -133.062 L.289.125 -137.062 283.5 -139.875 272 -139.875 c/254.625 -139.875 240.75 -131.5 240.75 -115.75 c-240.75 -101.25 259.125 -92.75 273.75 -92.75 co,282.25 -92.75 288.125 -94.75 293.875 -98.5 c293.875 -106.125 L*288.625 -101.375 280.125 -95.5 273 -95.5 c)257.249 -95.5 248.625 -108 248.625 -117 cp#248.625 -126 259 -137 271.75 -137 cu-281.5 -137 288.375 -132.25 294.625 -126.687 cdF 294.625 -126.6)87 mFo38.062 -194.031 me430.937 -194.031 l430.937 -196.968 l38.062 -196.968 l 38.062 -194.031 la} def /logo$tel_paris_part6 {7fo1 wp/_Helvetica 33 12 0 0 z [1 0 0 1 36 -183]e(P)tTs[1 0 0 1 128.25 -182.75]ei(A)tTf[1 0 0 1 224.25 -182.75]e (R)tTo[1 0 0 1 322 -182.75]e(I)tTl[1 0 0 1 410 -183]e (S)tTa %%%Trailer_E end%%%EndDocumentpsesF T cp %%%Trailercdend  }def %%%%%%%%%%%% end part6 %%%Pages: 1 0 %%%EOFD%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%fin figure logo %%%%%%%%%%%%%%%%%%%%%/logo$tel_paris {l logo$tel_paris_part1  logo$tel_paris_part2} logo$tel_paris_part3  logo$tel_paris_part4  logo$tel_paris_part50 logo$tel_paris_part6f} defr;end %%%%%fin des definitions du logo dans md @@@@@@@@@@@@@@a9/LOGO_TELECOM %%stack : largeurX hauteurY en 1/720 pointst'{ %% il doit exister un 'currentpoint'\savemd begin6 3 1 roll %%stack: -savelevel- -largeX- -hauteurY-M 39.00 613.00 499.00 808.00 %% BoundingBox de la figure reelle (pas touche)x startFig - logo$tel_paris %% dessine la figure endFigtenderestorer} defeww currentlinecap3 currentlinejoin currentdash exch aload length ( fg 5 sfl{1}{0}ifelse put pnsv pnsh7 2t aload pop 3a aload pop mx2 aload pop mx1 aload % pop mtx currentmatrix aload pop ; mx3 aload pop ps pm restore/ps xdf mx3 astore pop}bdf  /bn{ 6 /pm save def mx3 setmatrix newpath 0 0 moveto ct, dup 39 get 0 exch w}m> GEGE TRAILER n> GEGE TRAILER J}sn> GEGE TRAILER i+cC GEGE HEADERS& ~<' GEGE TRAILER_EMPTY&Bm:N' GEGE TRAILER_EMPTYWc GEGE FLAG%x~c GEGE WORD5_INIT_R$ C3%% headers - print text with headers on LaserWritere%% R. Watson 25-Sep-1986c%aA% 10/03/86 RW Remove "_DUA0:[]" from filename (for spooled files)5%q<% inputs: /param1 or /#copies - number of copies (default 1)2% /param2 or /fsize = number containing font size4% /param3 or /wide = boolean true if landscape mode<% /param4 or /filename = string containing page header info%s%% main.% /mainu{  { dolinei } loop)} deff %% doline.%t(% prints a line of text read from %stdin%p/dolinee{d>%%% { inp bytesavailable 0 gt { exit } if } loop % until input" inp ibuf readline {} { % if eof; linecount 0 ne column 0 ne or { % if we've printed a linee( /column ncolumns def % force page out& pop % purge last chars before EOF newpage } if quit } ifelseo+ /line exch def % define input substring+ line length /nc exch def % get char counte$% check for form-feed and handle it nc 1 ge { % if >= 1 char$ line 0 get 12 eq { % if form-feed5 topmargin lineh sub ypos ne { % if not top of page newpage } if  nc 1 ne { % if more on line: line 1 nc 1 sub getinterval /line exch def %del f-f } if( nc 1 sub /nc exch def } if } { newline % blank linea } ifelse % show the line nc 1 ge { xpos ypos moveto* line { (\\) search % caractere special6 {squish 0 3 -1 roll ashow pop % sur 3 chiffres dec.- dup 0 3 getinterval cvi % No du caractered bufchar 0 3 -1 roll pute squish 0 bufchar ashow( dup length 3 sub 3 exch getinterval}" {squish 0 3 -1 roll ashow exit} ifelsee } loopt newlinet } ifh} defo%% newline - move down 1 line.%o /newline {4 /linecount linecount 1 add def % advance line count4 ypos lineh sub /ypos exch def % debit y pos on page ypos bottommargin lt 1 linecount linelimit ge or { % if bottom of pagel newpagee } ift} def'%% newpage - initialize for a new page.%h /newpage {& /linecount 0 def % reset line count4 /ypos topmargin lineh sub def % reset line on page+ /column column 1 add def % advance columns, column ncolumns lt { % if not last column1 /xpos columnwidth column mul leftmargin add def  } { /column 0 def % reset column title { % if title leftmargin 4 topmargin titlemargin add moveto % setup header$ currentfont % save current font0 /Helvetica-Bold findfont 12 scalefont setfont filename show pagewidth 1.5 inch sub 3 topmargin titlemargin add moveto % page number  (page ) show  page 10 5 string cvrs showo setfont % restore font } if showpage D%% mecanisme de restore/save: ici la pile doit contenir > line dup length dup 255 gt { pop 0 255 getinterval 255 } if N%% explication: la pile contient: line longueur si longueur <=255 N%% sinon: sous-chaine_de_255_1ers_caract_de_line 255+ exch save_line copy pop nc page 4 -1 roll2@%% explication: la pile contient : longueur nc page % restore save 4 1 roll % garbage 5. 1 add /page exch def % advance page number exch /nc exch def@D%% explication: Ici la pile doit contenir la longueur sauvee de line- /line save_line 0 4 -1 roll getinterval defs landscape@* /xpos leftmargin def % reset left side } ifelses} def %%newpager!%% landscape - set landscape mode2%i /landscape { wide {@ 8.5 inch 0 translate 90 rotate } if@} def %% inch . %@% convert to inches%7/inch { 72. mul} def%% point .% % convert to points%n/point { } def%% executable initialization. %l initgraphics8currentdict /formname known not {/formname (2UP) def} ifformname (2UP) eq {t /table [ 9 [/#copies 1 (.nc .ncopies .param1)] % number of copies 1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizet3 [/wide true (.wide .w .param3)] % landscape modet+ [/title false (.title .param4)] % titlet8 [/ncolumns 2 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per pagea ] def} ifformname (LETTER) eq { /table [r9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesf1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizeb4 [/wide false (.wide .w .param3)] % landscape mode+ [/title false (.title .param4)] % title 8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per page{ ] def} ifformname (LANDSCAPE) eq {0 /table [ 9 [/#copies 1 (.nc .ncopies .param1)] % number of copies11 [/fsizetmp 0 (.fsize .fs .param2)] % font size33 [/wide true (.wide .w .param3)] % landscape modei+ [/title false (.title .param4)] % title@8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per page  ] def} ifformname (HEADERS) eq {@ /table [19 [/#copies 1 (.nc .ncopies .param1)] % number of copiest1 [/fsizetmp 0 (.fsize .fs .param2)] % font size 4 [/wide false (.wide .w .param3)] % landscape mode* [/title true (.title .param4)] % title8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per paget ] def} ifcurrentdict /table known not { /table [x9 [/#copies 1 (.nc .ncopies .param1)] % number of copies61 [/fsizetmp 0 (.fsize .fs .param2)] % font sizem4 [/wide false (.wide .w .param3)] % landscape mode* [/title true (.title .param4)] % title8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per page  ] def} iftable { % apply defaults{ /ta exch def % save arrayl ta 0 get % key ta 1 get % default value def % define default value } forall7currentdict /parser known {parser} if % if user inputsi5currentdict /filename known not {/filename () def} if{Ofilename (_DUA0:[]) anchorsearch {pop /filename exch def} {pop} ifelse %cleanupv&/inp currentfile def % define fileswide { /leftmargin .5 inch def /topmargin 7.85 inch def  /bottommargin .3 inch def /rightmargin .25 inch def? currentdict /fsize known not {/fsize 8 point def} if % defaulta' fsizetmp 0 ne {/fsize fsizetmp def} if  /pagewidth 11 inch defr /squish -0.05 def /titlemargin 3 point defo} {  /leftmargin 1. inch def) /topmargin 10.25 inch def % top of pageo /rightmargin .25 inch def /bottommargin .5 inch def@ currentdict /fsize known not {/fsize 10 point def} if % default' fsizetmp 0 ne {/fsize fsizetmp def} if  /pagewidth 8.5 inch def /squish -0.3 defn /titlemargin .325 inch deft} ifelse&/lineh fsize point def % line height/linecount 0 def /column 0 defxF/columnwidth pagewidth leftmargin sub rightmargin sub ncolumns div def%/ibuf 255 string def % input bufferd5/bufchar 1 string def % GG: for special ascii charss/page 1 def % page number/xpos leftmargin def/ypos topmargin lineh sub def 8% Redefinition des vecteurs pour ISOLATIN1 pseudo DECMCS/reencsmalldict 300 dict def/ReEncodeSmall {reencsmalldict begin /newcodesandnames exch def  /newfontname exch def /basefontname exch def * /basefontdict basefontname findfont def+ /newfont basefontdict maxlength dict defB basefontdict {exch dup /FID ne {dup /Encoding eq$ {exch dup length array copy! newfont 3 1 roll put}0$ {exch newfont 3 1 roll put} ifelse} {pop pop} ifelse } foralle$ newfont /FontName newfontname put newcodesandnames aload pop0! newcodesandnames length 2 idiva' {newfont /Encoding get 3 1 roll put}g repeati% newfontname newfont definefont pop  end c } deff /foreignvec [n8#220 /dotlessi 8#221 /grave5 8#222 /acuteo8#223 /circumflex 8#224 /tildep8#225 /macron 8#226 /breve 8#227 /dotaccentf8#230 /dieresis 8#232 /ring8#233 /cedilla 8#235 /hungarumlaut8#236 /ogonek 8#237 /caron 8#240 /spacet8#241 /exclamdown 8#242 /cent8#243 /sterling8#244 /currency 8#245 /yen/8#246 /brokenbare8#247 /section 8#250 /dieresis8#251 /copyright 8#252 /ordfeminine8#253 /guillemotleftd8#254 /logicalnot8#255 /hyphen8#256 /registered8#257 /macron8#260 /degree8#261 /plusminusr8#262 /twosuperiord8#263 /threesuperiorf 8#264 /acutec 8#265 /mu8#266 /paragraphd8#267 /periodcentered8#270 /cedilla 8#271 /onesuperiorl8#272 /ordmasculine8#273 /guillemotright8#274 /onequarter8#275 /onehalfi8#276 /threequartersv8#277 /questiondown8#300 /Agrave8#301 /Aacute8#302 /Acircumflexi8#303 /Atilde8#304 /Adieresisn 8#305 /Aring0 8#306 /AE8#307 /Ccedilla8#310 /Egrave8#311 /Eacute8#312 /Ecircumflexb8#313 /Edieresiso8#314 /Igrave8#315 /Iacute8#316 /Icircumflexo8#317 /Idieresiss 8#320 /Eths8#321 /Ntilde8#322 /Ograve8#323 /Oacute8#324 /Ocircumflexc8#325 /Otilde8#326 /Odieresis{% 8#327 /multiply %Isolatin1d8#327 /OE %DECMCS8#330 /Oslash8#331 /Ugrave8#332 /Uacute8#333 /Ucircumflexf8#334 /Udieresise8#335 /Yacute 8#336 /Thorn 8#337 /germandbls8#340 /agrave8#341 /aacute8#342 /acircumflexn8#343 /atilde8#344 /adieresise 8#345 /aring} 8#346 /ae8#347 /ccedilla8#350 /egrave8#351 /eacute8#352 /ecircumflex8#353 /edieresisv8#354  /igrave8#355 /iacute8#356 /icircumflexe8#357 /idieresisf 8#360 /ethc8#361 /ntilde8#362 /ograve8#363 /oacute8#364 /ocircumflexu8#365 /otilde8#366 /odieresisd % 8#367 /divide %Isolatin18#367 /oe %DECMCS8#370 /oslash8#371 /ugrave8#372 /uacute8#373 /ucircumflex 8#374 /udieresis 8#375 /yacute 8#376 /thorns8#377 /ydieresis0A8#037 /.notdef % Assure caractere UNDEF (en principe inutile)w<8#032 /multiply %deplacement de /multiply I solatin1 (327):8#036 /divide %deplacement de /divide Isolatin1 (367)] defo(/Courier /xfont foreignvec ReEncodeSmall=/xfont findfont fsize scalefont setfont % select the new fontr:/save_line 255 string def save %% Essai de memory garbage landscapemainwwget setfont 0 0 moveto lws}bdfH /st{1000 mul usertime add dup 2147483647 gt{2147483647 sub}if def}bdf9 /the{usertime sub dup 0 lt exch -2147483648 gt and}bdf /6a 6 array def /2a 2 array def /3q 3 array def0 -logline {) /Helvetica findfont 12 scalefont setfonta x y movetod show  /y y 12 sub def} def/ww-1 roll 1 index mul 3 1 roll mul}bdf /qn{6a exch get mul}bdf+ /qA .166667 def/qB .833333 def/qC .5 def /qx{6a astore pop/ qA 0 qn qB 2 qn add qA 1 qn qB 3 qn add/ qB 2 qn qA 4 qn add qB 3 qn qA 5 qn add3 qC 2 qn qC 4 qn add qC 3 qn qC 5 qn add}bdf$ /qp{6 copy 12 -2 roll pop pop}bdf /qc{exch qp qx curveto}bdf /qi{? {exch 4 copy 2a astore a:N'%!PS-Adobe-1.0 /inch {72 mul} def /setuppage {/%%Begin ModelCheck for secondary tray selectionr statusdict begin product dupe (LaserPrinter15) eq { pop 1 }' { (Hewlett-Packard LaserJet IIISi) eq u8 { 1 } { product (COMPAQ PAGEMARQ) anchorsearch, {1} {product (HP LaserJet III) eq {0} {2} ifelse}g ifelse}p ifelse } ifelseZ(%%[Setuppage: selected tray #) print dup 1 string cvs print (]%%\n) print flush %%% debug@ statusdict /setpapertray known {setpapertray} {pop} ifelse end%%End Secondary tray selection initgraphics 0 11 inch translate -90 rotate /x 1 inch def /y 7 inch def. /Helvetica findfont .9 inch scalefont setfont9 .5 inch 1 inch moveto (*** E M P T Y F I L E ***) showo= .5 inch .3 inch moveto 10 inch 0 rlineto 0 7.5 inch rlineto9% -10 inch 0 rlineto closepath stroked} def /h-user { . /Helvetica findfont .4 inch scalefont setfont x y moveto  (User: ) show showe /y y .75 inch sub def} defg/h-job {. /Helvetica findfont .4 inch scalefont setfont x y movetol%% (LaserWriter) show0" statusdict begin product end show /y y .75 inch sub def x y moveto (Job: ) show show /y y .75 inch sub def} def1 /h-file {. /Helvetica findfont .4 inch scalefont setfont x y movetow (File: ) show= dup stringwidth pop 8 inch exch div % get space/lengtho9 dup 1 lt { .4 inch mul % if less space than length@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defo /h-time {. /Helvetica findfont .4 inch scalefont setfont x y movetop (Date: ) show show  /y y .75 inch sub def} defx /h-error {. /Helvetica findfont .4 inch scalefont setfont x y movetop (Error: ) show 7 dup stringwidth pop 8 inch exch div % get space/length3 dup 1 lt { .4 inch mul % if less space than lengthf@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defd /h-pages {. /Helvetica findfont .4 inch scalefont setfont x y movetoV (Pages: ) show E cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs show  /y y .75 inch sub def} def /h-logline {) /Helvetica findfont 12 scalefont setfontn x y movetoe showc /y y 12 sub def} deftwwrave putE /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacuteD /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egraveK /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacuteK /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresisC /dagger/degree/cent/sterling/section/bullet/paragraph/germandblsD /registered/copyright/trademark/acute/dieresis/notequal/AE/OslashJ /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation@ /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslashU /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft< /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oeP /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozengeL /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/flc /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/AacuteK /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/OcircumflexD /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tildeA /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron( macvec 128 128 getinterval astore pop* {}mark true/Courier/|______Courier 0 rfO { /Metrics 21 dict begin/zero 600 def/one 600 def/two 600 def/three 600 defH /four 600 def/five 600 def/six 600 def/seven 600 def/eight 600 def? /nine 600 def/comma 600 def/period 600 def/dollar 600 defE /numbersign 600 def/percent 600 def/plus 600 def/hyphen 600 defC /E 600 def/parenleft 600 def/parenright 600 def/space 600 def4 currentdict end def currentdict/UniqueID known! {/UniqueID 16#800000 def}if0 /FontBBox FontBBox 4 array astore def}mark% true/Helvetica/|______Seattle 1 rf' /oldsettransfer/settransfer load def /concatprocs{0 /proc2 exch cvlit def/proc1 exch cvlit def6 /newproc proc1 length proc2 length add array defH newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cvx}def> /settransfer{currenttransfer concatprocs oldsettransfer}def /PaintBlack{P {1 exch sub}settransfer gsave newpath clippath 1 setgray fill grestore}def /od{2 (Rvd\001\001\000\000\177) fg copy pop txpose< 1 0 mtx defaultmatrix dtransform exch atan/pa exch def newpath clippath mark$ {transform{itransform moveto}}$ {transform{itransform lineto}}D { 6 -2 roll transform 6 -2 roll transform 6 -2 roll transformO {itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}E {{closepath}}pathforall newpath counttomark array astore/gc xdf pop ct 39 0 putD 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}bdf /cd{}bdf% /op{/sfl false def/pm save def}bdf /cp{not {userdict/#copies 0 put}if% ma 0 gt{{t1 the{exit}if}loop}if/ {copypage}{showpage}ifelse pm restore}bdf /px{0 3 1 roll tp tt}bdf /psb{/us save def}bdf /pse{us restore}bdf /ct 40 string def /nc{& currentpoint initclip newpath gcD {dup type dup/arraytype eq exch/packedarraytype eq or{exec}if}$ forall clip newpath moveto}bdfK /kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf /bigs [lnop lnop lnop lnop lnop lnop lnop lnop lnop] def /smalls [lnop dup lnop lnop 2 index lnop lnop lnop lnop ] defend%!PS-Adobe-2.0+%%%%revue et corrige par DAUPHIN pour LPS40%%%Title: Logo TELECOM PARIS%%%BoundingBox: 39 613 499 808(%%%IncludeProcSet: "(AppleDict md)" 67 0%%%EndComments %%%EndProlog%%%BeginDocumentSetup<md begin %%%%%@@@@@@@ on met les definition du logo dans md/logo$tel_paris_part1 { md begin/T T -30 -28 811 566 100 72 72 3 F F F F T T psu0 mfod%%%EndDocumentSetupop0 0 xl1 1 pen0 0 gm(nc 0 0 781 538 6 rc)kp64 gr-1 -1 0 0 4 rcpsb%%%DocumentFonts:Courier %%%+Helveticapsebu fc*{}mark T /Helvetica /|______Helvetica 0 rfbn 1 setTxMode0 fs1 fzbu fc2 F /|______Helvetica fntbn( )showpsb%%%EndComments/showpage{}def/copypage{}def[1 0 0 -1 0 neg 0]concat)%%%BeginProcSet:Adobe_Illustrator_1.1 0 02/Adobe_Illustrator_1.1 dup 100 dict def load begin/Version 0 def/Revision 0 def%% definition operators/bdef {bind def} bind def/ldef {load def} bdef/xdef {exch def} bdef%% graphic state operators7/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef/_k /setcmybcolor whereO{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse def&/g {/_b xdef /p {_b setgray} def} bdef&/G {/_B xdef /P {_B setgray} def} bdefE/k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdefE/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef/d /setdash ldef/_i currentflat def&/i {dup 0 eq {pop _i} if setflat} bdef/j /setlinejoin ldef/J /setlinecap ldef/M /setmiterlimit ldef/w /setlinewidth ldef%% path construction operators /_R {.25 sub round .25 add} bdef//_r {transform _R exch _R exch itransform} bdef/c {_r curveto} bdef /C /c ldef*/v {currentpoint 6 2 roll _r curveto} bdef /V /v ldef/y {_r 2 copy curveto} bdef /Y /y ldef/l {_r lineto} bdef /L /l ldef/m {_r moveto} bdef%% error operators /_e [] def>/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d-/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966T_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef/_fill {{fill} stoppedQ{/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef/_stroke {{stroke} stoppedS{/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef%% path painting operators/n /newpath ldef /N /n ldef/F {p _fill} bdef/f {closepath F} bdef/S {P _stroke} bdef/s {closepath S} bdef/B {gsave F grestore S} bdef/b {closepath B} bdef1%% text block construction and painting operators/_s /ashow ldefQ/_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrixJ_stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef#/_A {_a moveto _t exch 0 exch} bdef2/_L {0 _l neg translate _G currentmatrix pop} bdefF/_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef`/_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] defU/z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef/_g matrix def/_G matrix defA/_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef /e {_D p /t {_A _s _L} def} bdef /r {_D P /t {_A _S _L} def} bdef,/a {_D /t {dup p _A _s P _A _S _L} def} bdef/o {_D /t {pop _L} def} bdef/T {grestore} bdef%% group construction operators /u {} bdef /U {} bdef%% font construction operators4/Z {findfont begin currentdict dup length dict beginR{1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 neD{/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eqJ{Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop?currentdict dup end end /FontName get exch definefont pop} bdefend} def %%%%%%%%%%%%%end part1 %%%EndProcSet %%%EndProlog %%%BeginSetup/logo$tel_paris_part2 {Adobe_Illustrator_1.1 beginn%%%%BeginEncoding:_Helvetica Helvetica[L39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/OdieresisK/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacuteH/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntildeE/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflexK/udieresis/dagger/.notdef/cent/sterling/section/bullet/paragraph/germandbls@/registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash</.notdef/.notdef/.notdef/.notdef/yen/.notdef/.notdef/.notdefC/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslashB/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdefI/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oeF/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/.notdefK/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglrightG/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousandC/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/IcircumflexF/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/UcircumflexE/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron]/_Helvetica/Helvetica Z} def%%%EndEncoding %%%EndSetup/logo$tel_paris_part3 {0 g0 G0 i0 J0 j1 w10 M[]0 d%%%Note:384.375 -56.375 m0379.899 -58.308 355.952 -67.724 341.875 -72.25 c+327.875 -76.75 298.25 -84.625 283.375 -88 c(280.003 -88.765 253.125 -94 246.75 -94 c+240.375 -94 235.25 -90.509 235.25 -82.875 c(235.25 -78.375 241 -69.5 242.5 -66.625 c$244 -63.75 248 -58.125 249 -56.875 c(250 -55.625 251.5 -54.25 251.5 -52.125 c*251.5 -50 249.125 -50.375 245.875 -51.25 C,234.625 -53.625 161.375 -72 101.875 -68.75 c*93.886 -68.313 46.125 -70 12.625 -55.375 C23.375 -39.5 L-61.862 -49.956 96.153 -51.82 110.375 -51.75 c*161.125 -51.5 212.125 -46 257.375 -36.25 C260.937 -53.375 L-259.437 -54.5 250.875 -65.375 248.5 -68.375 c,246.125 -71.375 240.25 -78.75 240.25 -83.5 c/240.25 -88.625 241.663 -90.753 246.75 -90.125 c$270 -87.25 289 -82.75 353.5 -60.25 C#420.5 -33.25 459.125 -10 466 -4.5 C469.5 -15.125 L,466.5 -17.25 448.625 -26.25 438.875 -31.25 c1435.136 -33.167 403.486 -48.514 384.375 -56.375 cF0.25 w299.25 -115.75 m*299.25 -131 316.75 -139.25 332.5 -139.25 c} def/logo$tel_paris_part4 {(348.25 -139.25 364 -129.25 364 -116.25 c&364 -103.25 350 -92.75 332.25 -92.75 c,314.5 -92.75 299.25 -101.75 299.25 -115.75 cf1 g330.625 -95.5 m)345.875 -95.5 355.625 -105 355.625 -117 c1355.625 -127.25 346.125 -136.75 332.125 -136.75 c*317.375 -136.75 308.5 -126.5 308.25 -117 c*308 -107.503 316.375 -95.5 330.625 -95.5 cf0 g363.75 -138.25 m 379 -93.75 l 397 -128 l 416.75 -94 l431.062 -138.5 l422.25 -138.5 l412.75 -107.75 l 394.25 -139 l377.25 -107.25 l 367 -138.25 l363.75 -138.25 lfu236.5 -96.75 m 236.5 -94 L 191 -94 L 191 -96.75 L236.5 -96.75 Lf213.75 -95.375 mFUu236.625 -138.5 m236.625 -135.75 L191.125 -135.75 L191.125 -138.5 L236.625 -138.5 Lf213.875 -137.125 mFUu236.375 -117.5 m236.375 -114.75 L190.875 -114.75 L190.875 -117.5 L236.375 -117.5 Lf213.625 -116.125 mFUu136.875 -96.875 m136.875 -94.125 L91.375 -94.125 L91.375 -96.875 L136.875 -96.875 Lf114.125 -95.5 mFUu137 -138.625 m137 -135.875 L91.5 -135.875 L91.5 -138.625 L137 -138.625 L} def/logo$tel_paris_part5 {f114.25 -137.25 mFUu136.75 -117.625 m136.75 -114.875 L91.25 -114.875 L91.25 -117.625 L136.75 -117.625 Lf 114 -116.25 mFU 142.75 -94 m 151.5 -94 l 151.5 -136 l 186.5 -136 l186.5 -138.5 l142.75 -138.5 l 142.75 -94 lf39 -79 m 431.875 -79 l431.875 -81.937 l 39 -81.937 l39 -79 lfu87.75 -97.75 m87.75 -93.875 L 39 -93.875 L 39 -97.75 L87.75 -97.75 Lf63.375 -95.812 mFUu67.875 -138.75 m67.875 -97.75 L 59 -97.75 L 59 -138. 75 L67.875 -138.75 Lf63.437 -118.25 mFU294.625 -126.687 m294.625 -133.062 L.289.125 -137.062 283.5 -139.875 272 -139.875 c/254.625 -139.875 240.75 -131.5 240.75 -115.75 c-240.75 -101.25 259.125 -92.75 273.75 -92.75 c,282.25 -92.75 288.125 -94.75 293.875 -98.5 c293.875 -106.125 L*288.625 -101.375 280.125 -95.5 273 -95.5 c)257.249 -95.5 248.625 -108 248.625 -117 c#248.625 -126 259 -137 271.75 -137 c-281.5 -137 288.375 -132.25 294.625 -126.687 cF294.625 -126.687 mF 38.062 -194.031 m430.937 -194.031 l430.937 -196.968 l38.062 -196.968 l38.062 -194.031 l} def/logo$tel_paris_part6 {f1 w/_Helvetica 33 12 0 0 z[1 0 0 1 36 -183]e(P)tT[1 0 0 1 128.25 -182.75]e(A)tT[1 0 0 1 224.25 -182.75]e(R)tT[1 0 0 1 322 -182.75]e(I)tT[1 0 0 1 410 -183]e(S)tT %%%Trailer_E end%%%EndDocumentpseF T cp %%%Trailercdend }def %%%%%%%%%%%% end part6 %%%Pages: 1 0%%%EOFD%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%f in figure logo %%%%%%%%%%%%%%%%%%%%%/logo$tel_paris { logo$tel_paris_part1 logo$tel_paris_part2 logo$tel_paris_part3 logo$tel_paris_part4 logo$tel_paris_part5 logo$tel_paris_part6} def;end %%%%%fin des definitions du logo dans md @@@@@@@@@@@@@@9/LOGO_TELECOM %%stack : largeurX hauteurY en 1/720 points'{ %% il doit exister un 'currentpoint'savemd begin6 3 1 roll %%stack: -savelevel- -largeX- -hauteurY-M 39.00 613.00 499.00 808.00 %% BoundingBox d e la figure reelle (pas touche) startFig- logo$tel_paris %% dessine la figure endFigendrestore} def%%%%utilisation :. 185 130 moveto %pour avoir un currentpointI 2551 1081 % le rapport LARGEUR/HAUTEUR = 2.36. Ici il fait 9cm/3.81cm LOGO_TELECOM%%fin d'utilisation%%%showpage % pour imprimer%save %md beginJ% 185 130 moveto %% on se positionne au coin haut gauche de la figure=% 2551 1081 %% dimensions desirees x et y en 1/720 points N% 39.00 613.00 499.00 808.00 %% BoundingBox de la figure reelle (pas touche) % startFig.% logo$tel_paris %% dessine la figure % endFig%end%restore %showpageww0.625 -95.5 m)345.875 -95.5 355.625 -105 355.625 -117 c1355.625 -127.25 346.125 -136.75 332.125 -136.75 c*317.375 -136.75 308.5 -126.5 308.25 -117 c*308 -107.503 316.375 -95.5 330.625 -95.5 cf0 g363.75 -138.25 m 379 -93.75 l 397 -128 l 416.75 -94 l431.062 -138.5 l422.25 -138.5 l412.75 -107.75 l 394.25 -139 l377.25 -107.25 l 367 -138.25 l363.75 -138.25 lfu236.5 -96.75 m 236.5 -94 L 191 -94 L 191 -96.75 L236.5 -96.75 Lf213.75 -95.375 mFUu236.625 -138.5 m236.625 -135.75 L191.125 -135.75 L191.125 -138.5 L236.625 -138.5 Lf213.875 -137.125 mFUu236.375 -117.5 m236.375 -114.75 L190.875 -114.75 L190.875 -117.5 L236.375 -117.5 Lf213.625 -116.125 mFUu136.875 -96.875 m136.875 -94.125 L91.375 -94.125 L91.375 -96.875 L136.875 -96.875 Lf114.125 -95.5 mFUu137 -138.625 m137 -135.875 L91.5 -135.875 L91.5 -138.625 L137 -138.625 L} def/logo$tel_paris_part5 {f114.25 -137.25 mFUu136.75 -117.625 m136.75 -114.875 L91.25 -114.875 L91.25 -117.625 L136.75 -117.625 Lf 114 -116.25 mFU 142.75 -94 m 151.5 -94 l 151.5 -136 l 186.5 -136 l186.5 -138.5 l142.75 -138.5 l 142.75 -94 lf39 -79 m 431.875 -79 l431.875 -81.937 l 39 -81.937 l39 -79 lfu87.75 -97.75 m87.75 -93.875 L 39 -93.875 L 39 -97.75 L87.75 -97.75 Lf63.375 -95.812 mFUu67.875 -138.75 m67.875 -97.75 L 59 -97.75 L 59 -138.75 L67.875 -138.75 Lf63.437 -118.25 mFU294.625 -126.687 m294.625 -133.062 L.289.125 -137.062 283.5 -139.875 272 -139.875 c/254.625 -139.875 240.75 -131.5 240.75 -115.75 c-240.75 -101.25 259.125 -92.75 273.75 -92.75 c,282.25 -92.75 288.125 -94.75 293.875 -98.5 c293.875 -106.125 L*288.625 -101.375 280.125 -95.5 273 -95.5 c)257.249 -95.5 248.625 -108 248.625 -117 c#248.625 -126 259 -137 271.75 -137 c-281.5 -137 288.375 -132.25 294.625 -126.687 cF294.625 -126.687 mF38.062 -194.031 m430.937 -194.031 l430.937 -196.968 l38.062 -196.968 l38.062 -194.031 l} def/logo$tel_paris_part6 {f1 w/_Helvetica 33 12 0 0 z[1 0 0 1 36 -183]e(P)tT[1 0 0 1 128.25 -182.75]e(A)tT[1 0 0 1 224.25 -182.75]e(R)tT[1 0 0 1 322 -182.75]e(I)tT[1 0 0 1 410 -183]e(S)tT %%%Trailer_E end%%%EndDocumentpseF T cp %%%Trailercdend }def %%%%%%%%%%%% end part6 %%%Pages: 1 0%%%EOFD%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%fin figure logo %%%%%%%%%%%%%%%%%%%%%/logo$tel_paris { logo$tel_paris_part1 logo$tel_paris_part2 logo$tel_paris_part3 logo$tel_paris_part4 logo$tel_paris_part5 logo$tel_paris_part6} defA%%%%%%end %%%%%fin des definitions du logo dans md @@@@@@@@@@@@@@wwU%!PS-Adobe-1.0/inch {72 mul} def /setuppage {0 %%Begin ModelCheck for secondary tray selection statusdict begin product dup  (LaserPrinter15) eq { pop 1 }' { (Hewlett-Packard LaserJet IIISi) eq ' { 1 } { 2 } ifelse } ifelse  setpapertray end %%End Secondary tray selectiono initgraphicsc 0 11 inch translate -90 rotate /x 1 inch def /y 7 inch def= .5 inch .5 inch moveto 10 inch 0 rlineto 0 7.5 inch rlinetot% -10 inch 0 rlineto closepath strokek} def /h-user { . /Helvetica findfont .4 inch scalefont setfont x y movetot (User: ) show showo /y y .75 inch sub def} defe/h-job {. /Helvetica findfont .4 inch scalefont setfont x y movetot%% (LaserWriter) showo" statusdict begin product end show /y y .75 inch sub def x y movetot (Job: ) show show /y y .75 inch sub def} defe /h-file { . /Helvetica findfont .4 inch scalefont setfont x y movetot (File: ) show= dup stringwidth pop 8 inch exch div % get space/lengtht9 dup 1 lt { .4 inch mul % if less space than lengtht@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defe /h-time { . /Helvetica findfont .4 inch scalefont setfont x y movetot (Date: ) show showo /y y .75 inch sub def} defe /h-error {. /Helvetica findfont .4 inch scalefont setfont x y movetot (Error: ) showo7 dup stringwidth pop 8 inch exch div % get space/lengtht3 dup 1 lt { .4 inch mul % if less space than lengtht@ /Helvetica findfont exch scalefont setfont } % resize the font( { pop } ifelse % else leave font alone show /y y .75 inch sub def} defe /h-pages {. /Helvetica findfont .4 inch scalefont setfont x y movetot (Pages: ) showoE cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs showo /y y .75 inch sub def} defe /h-logline {) /Helvetica findfont 12 scalefont setfontn x y movetot showo /y y 12 sub def} defewwwge {& /linecount 0 def % reset line count4 /ypos topmargin lineh sub def % reset line on page+ /column column 1 add def % advance column , column ncolumns lt { % if not last column1 /xpos columnwidth column mul leftmargin add defn } { /column 0 def % reset column title { % if title leftmargin 4 topmargin titlemargin add moveto % setup header$ currentfont % save current font0 /Helvetica-Bold findfont 12 scalefont setfont filename show pagewidth 1.5 inch sub 3 topmargin titlemargin add moveto % page number  (page ) showt page 10 5 string cvrs show  setfont % restore font } if showpage aD%% mecanisme de restore/save: ici la pile doit contenir > line dup length dup 255 gt { pop 0 255 getinterval 255 } if N%% explication: la pile contient: line longueur si longueur <=255 N%% sinon: sous-chaine_de_255_1ers_caract_de_line 255+ exch save_line copy pop nc page 4 -1 rolln@%% explication: la pile contient : longueur nc page % restore save 4 1 roll % garbage v. 1 add /page exch def % advance page number exch /nc exch defoD%% explication: Ici la pile doit contenir la longueur sauvee de line- /line save_line 0 4 -1 roll getinterval defg landscapes* /xpos leftmargin def % reset left side } ifelses} def %%newpagea!%% landscape - set landscape mode % /landscape { wide {a 8.5 inch 0 translate 90 rotate } ifa} def%% inch .h%% convert to inches%</inch { 72. mul} def%% point .%% convert to points%a/point { } def%% executable initialization.c%f initgraphics8currentdict /formname known not {/formname (2UP) def} ifformname (2UP) eq {c /table [p9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizem3 [/wide true (.wide .w .param3)] % landscape modem+ [/title false (.title .param4)] % titler8 [/ncolumns 2 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per pageT ] def} ifformname (LETTER) eq { /table [p9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizea4 [/wide false (.wide .w .param3)] % landscape mode+ [/title false (.title .param4)] % titler8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per pageD ] def} ifformname (LANDSCAPE) eq {c /table [p9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizem3 [/wide true (.wide .w .param3)] % landscape modem+ [/title false (.title .param4)] % titler8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per pageD ] def} ifformname (HEADERS) eq {c /table [p9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizea4 [/wide false (.wide .w .param3)] % landscape mode* [/title true (.title .param4)] % title8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per paget ] def} ifcurrentdict /table known not { /table [p9 [/#copies 1 (.nc .ncopies .param1)] % number of copiesa1 [/fsizetmp 0 (.fsize .fs .param2)] % font sizea4 [/wide false (.wid!e .w .param3)] % landscape mode* [/title true (.title .param4)] % title8 [/ncolumns 1 (.ncolumns .param5)] % number of columns? [/linelimit 66 (.linelimit .nlines .param6)] % lines per page% ] def} iftable { % apply defaultsf /ta exch def % save array  ta 0 get % key ta 1 get % default value def % define default valuee} forall7currentdict /parser known {parser} if % if user inputs 5currentdict /filename known not {/filename () def} ifrOfilename (_D!wide { /leftmargin .5 inch def /topmargin 7.85 inch def /bottommargin .3 inch def /rightmargin .25 inch def? currentdict /fsize known not {/fsize 8 point def} if % default' fsizetmp 0 ne {/fsize fsizetmp def} if /pagewidth 11 inch def /squish -0.05 def /titlemargin 3 point def} {  /leftmargin 1. inch def) /topmargin 10.25 inch def % top of page /rightmargin .25 inch def /bottommargin .5 inch def@ currentdict /fsize known not {/fsize 10 point def} if % default' fsize"UA0:[]) anchorsearch {pop /filename exch def} {pop} ifelse %cleanupe&/inp currentfile def % define fileswide { /leftmargin .5 inch def /topmargin 7.85 inch def/ /bottommargin .3 inch def /rightmargin .25 inch def? currentdict /fsize known not {/fsize 8 point def} if % defaultm' fsizetmp 0 ne {/fsize fsizetmp def} ifq /pagewidth 11 inch defr /squish -0.05 def /titlemargin 3 point deff} {  /leftmargin 1. inch def) /topmargin 10.25 inch def % top of page/ /rightmargin .2#5 inch def /bottommargin .5 inch def@ currentdict /fsize known not {/fsize 10 point def} if % default' fsizetmp 0 ne {/fsize fsizetmp def} ifq /pagewidth 8.5 inch def /squish -0.3 def /titlemargin .325 inch defd} ifelse&/lineh fsize point def % line height/linecount 0 def /column 0 defrF/columnwidth pagewidth leftmargin sub rightmargin sub ncolumns div def%/ibuf 255 string def % input buffer 5/bufchar 1 string def % GG: for special ascii chars/page 1 def % page number$/xpos leftmargin def/ypos topmargin lineh sub def 8% Redefinition des vecteurs pour ISOLATIN1 pseudo DECMCS/reencsmalldict 300 dict def/ReEncodeSmall {reencsmalldict begine /newcodesandnames exch def/ /newfontname exch def /basefontname exch def * /basefontdict basefontname findfont def+ /newfont basefontdict maxlength dict defd basefontdict  {exch dup /FID ne {dup /Encoding eq$ {exch dup length array copy! newfont 3 1 roll put}l$% {exch newfont 3 1 roll put} ifelse} {pop pop} ifelseo } foralla$ newfont /FontName newfontname put newcodesandnames aload popi! newcodesandnames length 2 idiv ' {newfont /Encoding get 3 1 roll put}w repeatf% newfontname newfont definefont pope end 2 } defs /foreignvec [v8#220 /dotlessi 8#221 /gravem 8#222 /acutei8#223 /circumflex 8#224 /tildeo8#225 /macron 8#226 /brevei8#227 /dotaccentg8#230 /dieresis 8#232 /&ring8#233 /cedilla/8#235 /hungarumlaut8#236 /ogonek 8#237 /caronm 8#240 /spacee8#241 /exclamdown 8#242 /cent8#243 /sterling8#244 /currency 8#245 /yene8#246 /brokenbarr8#247 /sectiony8#250 /dieresis8#251 /copyright/8#252 /ordfeminine 8#253 /guillemotlefty8#254 /logicalnot8#255 /hyphen8#256 /registered8#257 /macron8#260 /degree8#261 /plusminus/8#262 /twosuperior 8#263 /threesuperior# 8#264 /acute/ 8#265 /mu8#266 /paragraph 8#26'7 /periodcentered8#270 /cedilla/8#271 /onesuperior/8#272 /ordmasculine8#273 /guillemotright8#274 /onequarter8#275 /onehalf 8#276 /threequarters/8#277 /questiondown8#300 /Agrave8#301 /Aacute8#302 /Acircumflexe8#303 /Atilde8#304 /Adieresis# 8#305 /Aring 8#306 /AE8#307 /Ccedilla8#310 /Egrave8#311 /Eacute8#312 /Ecircumflexg8#313 /Edieresise8#314 /Igrave8#315 /Iacute8#316 /Icircumflext8#317 /Idieresis 8#320 /Ethe8#321 /Ntilde8#(322 /Ograve8#323 /Oacute8#324 /Ocircumflexe8#325 /Otilde8#326 /Odieresisn% 8#327 /multiply %Isolatin138#327 /OE %DECMCS8#330 /Oslash8#331 /Ugrave8#332 /Uacute8#333 /Ucircumflexa8#334 /Udieresis8#335 /Yacute 8#336 /Thorng8#337 /germandbls8#340 /agrave8#341 /aacute8#342 /acircumflexe8#343 /atilde8#344 /adieresis# 8#345 /aring 8#346 /ae8#347 /ccedilla8#350 /egrave8#351 /eacute8#352 /ecircumflexg8#353 /edieresise8#354 ) /igrave8#355 /iacute8#356 /icircumflext8#357 /idieresis 8#360 /ethe8#361 /ntilde8#362 /ograve8#363 /oacute8#364 /ocircumflexe8#365 /otilde8#366 /odieresisi % 8#367 /divide %Isolatin18#367 /oe %DECMCS8#370 /oslash8#371 /ugrave8#372 /uacute8#373 /ucircumflexa8#374 /udieresisn8#375 /yacute 8#376 /thornn8#377 /ydieresisaA8#037 /.notdef % Assure caractere UNDEF (en principe inutile)n<8#032 /multiply %deplacement de /multiply I*flex/Ograve/Otilde/Uacute/Ucircumflex/Ugrave</Scaron/Ydieresis/emdash/Zcaron/.notdef/otilde/scaron/zcaron3/fraction/section/currency/quotesingle/quotedblleft3E/guilsinglleft/guilsinglright/.notdef/.notdef/endash/dagger/daggerdbl#4/paragraph/quotesinglbase/quotedblbase/quotedblright5/ellipsis/.notdef/grave/acute/circumflex/tilde/macron#A/germandbls/breve/dotaccent/dieresis/cedilla/.notdef/hungarumlaut/9/ogonek/caron/emdash/Lslash/Oslash/dotlessi/lslash/oslashg//.notdef/.notdef/.notdef/.notdef/.+notdef/atilde 3/.notdef/.notdef/ring/Oslash/oslash/.notdef/.notdefg/.notdef/.notdef/.notdef ] { %foralle! dup type /nametype eq { %ifelsei, dup Ccs exch known not {pop /.notdef} if" foreignvec 2 index 2 index put pop 1 add }{ exch pop } ifelse } forall pop%BeginMakeForeign#/Courier /Courier-F Foreign%/Courier-Bold /Courier-Bold-F Foreign%+/Courier-Oblique /Courier-Oblique-F ForeignA3/Courier-BoldOblique /Courier-BoldOblique-F Foreigni/Helvetica /Helvetica-F Foreignl,)/Helvetica-Bold /Helvetica-Bold-F Foreign//Helvetica-Oblique /Helvetica-Oblique-F Foreignt7/Helvetica-BoldOblique /Helvetica-BoldOblique-F Foreign&%%FontDirectory /AvantGarde-Book known%% {0%% /AvantGarde-Book /AvantGarde-Book-F Foreign0%% /AvantGarde-Demi /AvantGarde-Demi-F Foreign>%% /AvantGarde-BookOblique /AvantGarde-BookOblique-F Foreign>%% /AvantGarde-DemiOblique /AvantGarde-DemiOblique-F Foreign%% } if*%%FontDirectory /Helvetica-Condensed known%% {5%% /Helvetic-solatin1 (327):8#036 /divide %deplacement de /divide Isolatin1 (367)] defE(/Courier /xfont foreignvec ReEncodeSmall=/xfont findfont fsize scalefont setfont % select the new fonta:/save_line 255 string def save %% Essai de memory garbage landscapemainww.a-Condensed /Helvetica-Narrow-F Foreign?%% /Helvetica-Condensed-Bold /Helvetica-Narrow-Bold-F ForeignE%% /Helvetica-Condensed-Oblique /Helvetica-Narrow-Oblique-F ForeignI%% /Helvetica-Condensed-BoldObl /Helvetica-Narrow-BoldOblique-F Foreign%% }{)%% FontDirectory /Helvetica-Narrow known%% {3%% /Helvetica-Narrow /Helvetica-Narrow-F Foreign=%% /Helvetica-Narrow-Bold /Helvetica-Narrow-Bold-F ForeignC%% /Helvetica-Narrow-Oblique /Helvetica-Narrow-Oblique-F ForeignK%%/ /Helvetica-Narrow-BoldOblique /Helvetica-Narrow-BoldOblique-F Foreign %% } if %% } ifelse$%%FontDirectory /Bookman-Light known%% {,%% /Bookman-Light /Bookman-Light-F Foreign*%% /Bookman-Demi /Bookman-Demi-F Foreign8%% /Bookman-LightItalic /Bookman-LightItalic-F Foreign6%% /Bookman-DemiItalic /Bookman-DemiItalic-F Foreign%% } if#/Times-Roman /Times-Roman-F Foreign!/Times-Bold /Times-Bold-F Foreign%/Times-Italic /Times-Italic-F Foreign-/Times-BoldItalic /Times-Bol0dItalic-F Foreign-%%FontDirectory /NewCenturySchlbk-Roman known%% {>%% /NewCenturySchlbk-Roman /NewCenturySchlbk-Roman-F Foreign<%% /NewCenturySchlbk-Bold /NewCenturySchlbk-Bold-F Foreign@%% /NewCenturySchlbk-Italic /NewCenturySchlbk-Italic-F ForeignH%% /NewCenturySchlbk-BoldItalic /NewCenturySchlbk-BoldItalic-F Foreign%% } if%%%FontDirectory /Palatino-Roman known%% {.%% /Palatino-Roman /Palatino-Roman-F Foreign,%% /Palatino-Bold /Palatino-Bold-F Foreign0%% /Palati1no-Italic /Palatino-Italic-F Foreign8%% /Palatino-BoldItalic /Palatino-BoldItalic-F Foreign%% } if0%%FontDirectory /ZapfChancery-MediumItalic known%% {D%% /ZapfChancery-MediumItalic /ZapfChancery-MediumItalic-F Foreign%% } if%EndMakeForeign /fonttableJ [0 [/Courier-F /Courier-Bold-F /Courier-Oblique-F /Courier-BoldOblique-F]Q 8 [/Helvetica-F /Helvetica-Bold-F /Helvetica-Oblique-F /Helvetica-BoldOblique-F]^ 9 [/AvantGarde-Book-F /AvantGarde-Demi-F /AvantGarde-BookOblique-F 2/AvantGarde-DemiOblique-F]n 10 [/Helvetica-Narrow-F /Helvetica-Narrow-Bold-F /Helvetica-Narrow-Oblique-F /Helvetica-Narrow-BoldOblique-F]S 17 [/Bookman-Light-F /Bookman-Demi-F /Bookman-LightItalic-F /Bookman-DemiItalic-F]F 24 [/Times-Roman-F /Times-Bold-F /Times-Italic-F /Times-BoldItalic-F]r 25 [/NewCenturySchlbk-Roman-F /NewCenturySchlbk-Bold-F /NewCenturySchlbk-Italic-F /NewCenturySchlbk-BoldItalic-F]R 26 [/Palatino-Roman-F /Palatino-Bold-F /Palatino-Italic-F /Palatino-BoldItalic-F]y 50 [/Za3pfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F]% 56 [/Symbol /Symbol /Symbol /Symbol]- 57 [/LineDraw /LineDraw /LineDraw /LineDraw]> 60 [/ZapfDingbats /ZapfDingbats /ZapfDingbats /ZapfDingbats] ] def%BeginGraphicsDefs/M {moveto} def/L {lineto} def&/LH {currentpoint exch pop lineto} def&/LV {currentpoint pop exch lineto} defR/R {3 index 1 index 1 index 5 index 5 index 1 index M L L L closepath pop pop} def'/setpat 4{setscreen 100 div setgray} def=/setgrayed {{dup mul exch dup mul add 1 exch sub} setpat} def/setbar {{pop} setpat} def:/setcross {{2 copy gt {pop} {exch pop} ifelse} setpat} def/fi {1 -1 scale} def'/II1 {save count /mscount exch def} def4/II2 {userdict begin /showpage {} def /letter {} def% /legal {} def /a4 {} def /b5 {} defN /clear { {cleartomark count msdict /mscount get eq {exit} if} loop mark} def mark} def/IT {pop restore} def2/IX {exch msu exch msu neg ptop add translat6e} def%/IS {div 3 1 roll div exch scale} defsave /msdictstate exch defwwGEGE WORD5_INIT_R%tl GEGE TEXAS_INIT_R#o[l GEGE TEXAS_INIT v!4 GEGE TRAILER  GEGE TRAILER &М GEGE TRAILER Fɡ GEGE TRAILER  GEGE TRAILER%nVvK GEGE TEXAS_INIT_R ri GEGE TRAILER {J- GEGE TRAILER _- GEGE TRAILER *i> GEGE TRAILER kl> GEGE TRAILER7el%! laserprep pour lps40?%%%%Title: "Laser Prep -- The Apple PostScript Dictionary (md)"*%%%%CreationDate: Thursday, March 19, 1987%%%{appledict version #65%%%%EndComments'%%%%BeginProcSet: "(AppleDict md)" 65 0Ouserdict /md known {(%%[le chargement de md est deja fait]%%) == flush stop} if%%%%%%%%%serverdict begin 0 exitserver/md 280 dict defmd begin /LW 0 def/ok {3 systemdict/statusdict known dup{LW 0 gt and}if } bind def /startFig { /SavedS8tate save defJ /DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecapD currentlinejoin currentdash currentgray currentmiterlimit ] cvx def userdict maxlength dict begin currentpoint transformG DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap setlinewidth setmatrix itransform moveto /ury exch def /urx exch def /lly exch def /llx exch def> /resolution 720 def % a modifier ds tscript resol. de tscript" /y exch 72 mul resolution div9 def" /x exch 72 mul resolution div def' currentpoint /cy exch def /cx exch def+ /sx x urx llx sub div def % scaling for x* /sy y ury lly sub div def % scaling for y! sx sy scale % scale by (sx,sy) cx sx div llx sub cy sy div ury sub translate$ /DefFigCTM matrix currentmatrix def /initmatrix { DefFigCTM setmatrix } def /defaultmatrix { DefFigCTM exch copy } def /initgraphics {1 DocumentInitState setmiterlimit setgray setdash0 setlinejoin setlineca:p setlinewidth setmatrix DefFigCTM setmatrix } def /showpage { initgraphics } def} def /endFig { end SavedState restore} def /av 65 def /T true def /F false def /mtx matrix def /s75 75 string def /s8 8 string def /s1 ( ) def /pxs 1 def /pys 1 def9 1 0 mtx defaultmatrix dtransform exch atan/pa exch def /nlw .24 def# /ppr [-32 -29.52 762 582.48] def /pgs 1 def /por true def /xb 500 array def /so true def; /fillflag false def /pnm 1 def /fmv true def /sfl false def /ma 0 def /invertflag false def /xflip false def /yflip false def /noflips true def /scaleby96 false def /fNote true def /fBitStretch true def$ /fg (Rvd\001\001\000\000\177) def /bdf{def}bind def /xdf{exch def}bdf! /xl{neg exch neg translate}bdf" /fp{pnsh 0 ne pnsv 0 ne and}bdf /nop{}bdf /lnop[/nop load]cvx bdf /vrb[ { fpA {gsave 1 setlinewid<th pnsh pnsv scale stroke grestore}if newpath }bind /eofill load dup /newpath load 2 index dup {clip newpath}bind {}bind dup 2 copy ]def) currentscreen/spf xdf/rot xdf/freq xdf /doop{vrb exch get exec}bdf /psu{ /fNote xdf /fBitStretch xdf /scaleby96 xdf /yflip xdf /xflip xdf: /invertflag xdf xflip yflip or{/noflips false def}if /pgs xdf 2 index .72 mul exch div= /pys xdf div .72 mul /pxs xdf ppr astore pop /por xdf sn and/so xdf}bdf /txpose{ fNote{smalls}{bigs}ifelse2 pgs get exec pxs pys scale ppr aload pop por {noflips7 {pop exch neg exch translate pop 1 -1 scale}if xflip yflip and< { pop exch neg exch translate 180 rotate 1 -1 scale9 ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr' 0 get neg sub neg translate }if xflip yflip not and4 > {pop exch neg exch translate pop 180 rotate7 ppr 3 get ppr 1 get neg sub neg 0 translate }if yflip xflip not and2 {ppr 1 get neg ppr 0 get neg translate}if } {noflips4 {translate pop pop 270 rotate 1 -1 scale}if xflip yflip and& { translate pop pop 90 rotate@ 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get. ppr 0 get neg sub neg translate}if xflip yflip not and3 {?translate pop pop 90 rotate ppr 3 get ppr, 1 get neg sub neg 0 translate}if yflip xflip not and4 {translate pop pop 270 rotate ppr 2 get ppr. 0 get neg sub neg 0 exch translate }if } ifelse scaleby96B {ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy< translate .96 dup scale neg exch neg exch translate }if }bdf# /fr{3 index 3 index xl ppr aload5 pop 3 -1 roll 2 mul add 3 1 roll@ exch 2 mul addJ 6 2 roll 3 -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll div! 3 1 roll div exch scale}bdf /lws{show}bdf /tv{show pop pop}bdf' /obl{{0.212557 mul}{pop 0}ifelse}bdf) /sfd{ps fg 5 -1 roll get mul 100 div 0B ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf /fnt{findfont sfd}bdf& /bt{sa 3 1 roll 3 index and put}bdf3 /sa(\000\000\000\000\000\000\000\000\000\000)defZ /fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 btA 7 128 bt sa exch 8 exch put}bdf /mx1 matrix def /mx2 matrix def /mx3 matrix def /bu{> currentpoint currentgray currentlinewidth currentlinecap3 currentlinejoin currentdash exch aload length( fg 5 sfl{1}{0}ifelse put pnsv pnsh7 2t aload pop 3a aload pop mx2 aload pop mx1 aload% pop mtx currentmatrix aload pop; mx3 aload pop ps pm restore/ps xdf mx3 astore pop}bdf /bn{6 /pm save def mx3 setmatrix newpath 0 0 moveto ct, dup 39 getB 0 exch getinterval cvx execF mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop( 2t astore pop/pnsh xdf/pnsv xdf gwM /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap% setlinewidth setgray moveto}bdf& /fc{save vmstatus exch sub 50000 lt4 {(%%[|0|]%%)=print flush}if pop restore}bdf= /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf /3a [0 0 0] def /2t 2 array def /tp{3a astore pop}bdf /tt{< mxC2 currentmatrix pop currentpoint 2 copy 2t aload pop4 qa 2 copy translate 3a aload pop exch dup 0 eq {pop}$ {1 eq{-1 1}{1 -1}ifelse scale}> ifelse rotate pop neg exch neg exch translate moveto}bdf /te{mx2 setmatrix}bdfR /th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale/sfl true def}bdf1 /tu{1 1 mx1 itransform scale/sfl false def}bdf/ /ts{1 1 mx1 transform scale/sfl true def}bdf /fz{/ps xdf}bdf# /dv{dup 0 ne{div}{pop}ifelse}bdf /pop4{popD pop pop pop}bdf /it{sfl{mx1 itransform}if}bdf+ /gm{exch it moveto}bdf/rm{it rmoveto}bdfK /lm{currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}bdf& /fm{statusdict/manualfeed known}bdf. /se{statusdict exch/manualfeed exch put}bdf /mf{dup/ma exch def 0 gt# {fm se/t1 5 st ok ma 1 gt andC {/t2 0 st/t3 0 st statusdict/manualfeedtimeout 3600 put}if }if } bdfJ /jn{/statusdict where exch pop{statusdict exch /jobname exch put}if}bdf? /pen{pnEm mul/pnsh xdf pnm mul/pnsv xdf pnsh setlinewidth}bdf! /min{2 copy gt{exch}if pop}bdf! /max{2 copy lt{exch}if pop}bdfA /dh{fg 6 1 put array astore exch pop exch pop exch setdash}bdf /ih[currentdash]def* /rh{fg 6 0 put ih aload pop setdash}bdf3 /dl{gsave nlw pys div setlinewidth 0 setgray}bdf5 /dlin{exch currentpoint currentlinewidth 2 div dupJ translate newpath moveto lineto currentpoint stroke grestore moveto}bdf /lin{fg 6 get 0 ne. {exch lineto currentpoint F0 doop moveto}I {exch currentpoint/pnlv xdf/pnlh xdf gsave newpath/@1 xdf/@2 xdf fp {pnlh @2 lt {pnlv @1 ge< {pnlh pnlv moveto @2 @1 lineto pnsh 0 rlineto: 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}L {pnlh pnlv moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv9 rlineto pnsh neg 0 rlineto pnlh pnlv pnsv add lineto} ifelse }{ pnlv @1 gt7 {@2 @1 moveto pnshG 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlineto. pnsh neg 0 rlineto @2 @1 pnsv add lineto}( {pnlh pnlv moveto pnsh 0 rlinetoE 0 pnsv rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlineto 0 pnsv neg rlineto }ifelse }ifelse closepath fill" }if @2 @1 grestore moveto }ifelse }bdf) /gw{/pnm fg 3 get fg 4 get div def}bdfA /lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf, /barc{/@1 xdf/@2 xdf/@3H xdf/@4 xdf/@5 xdf! /@6 xdf/@7 xdf/@8 xdf gsaveB @5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 movetoC @5 @7 sub @6 @8 sub mtx currentmatrix pop scale @1{newpath}if9 0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}if( mtx setmatrix @2 doop grestore}bdf /ar{dup 0 eq barc}bdf$ /ov{0 exch 360 exch true barc}bdfH /rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2 roll exch movetoA 6 -1 roll lineto lineto lineto closepath @t doop moveto}bdf3 /Imup{dup pnsh 2 div le exch pnsv 2 div le or}bdf /rr{) /@1 xdf 2. div/@2 xdf 2. div/@3 xdf" /@4 xdf/@5 xdf/@6 xdf/@7 xdf7 @7 @5 eq @6 @4 eq @2 mup or or{@7 @6 @5 @4 @1 rc}5 {@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse7 @5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelseF @1 0 eq{/@2 @2 pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}if currentpoint newpath# @4 @6 add 2. div @7 moveto" @4 @7 @4 @5 @2 arcto pop4" @4 @5 @J6 @5 @2 arcto pop4" @6 @5 @6 @7 @2 arcto pop4" @6 @7 @4 @7 @2 arcto pop4! closepath @1 doop moveto }ifelse }bdf> /pr{gsave newpath/pl{exch moveto/pl{exch lineto}def}def}bdf /pl{exch lineto}bdf /ep{ dup 0 eq{; {moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforall pop grestore }; {doop grestore}ifelse currentpoint newpath moveto}bdf /gr{64. div setgray}bdf /pat{, s8 copy pop 9.375 pa por not{90 adKd}ifM {1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and} setscreen gr}bdf) /sg{freq rot/spf load setscreen gr}bdfC /dc{transform round .5 sub exch round .5 sub exch itransform}bdf! /sn{userdict/smooth4 known}bdf /x8{3 bitshift}bdf /x4{2 bitshift}bdf /d4{-2 bitshift}bdf /d8{-3 bitshift}bdf( /rb{15 add -4 bitshift 1 bitshift}bdfM /db{/@7 save def/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 @5 @3 4 add mul defi dc translate scale/xdbLit 1 1 idtransform abs/ydbit exch def abs def{0 0 1 ydbit add 1 10 rc clip}if@ @1 0 eq @1 4 eq or{1 setgray ydbit 0 1 ydbit add 1 2 rc}ifk @1 3 eq @1 7 eq or{1}{0}ifelse setgray/@9 @1 0 eq @1 1 eq @1 3 eq or or invertflag xor def/@13 @6 def @2 fBitStretch or{/@10 @4 x4 def/@11 @3 x4 def/@12 @10 rb def/@13 @12 @11 mul def/@15 1 1 dtransform abs/calcY 1 index def round cvi/@14 exch deff abs/calcX 1 index def round cvi scaleby96 not{1 add}if def/@16 @15 rb def/@17 @16 @14 mul Mdef}if sn @13 60000 lt and @2 fBitStretch or and{mtx currentmatrix dup 1 get exch 2 get 0. eq exch 0. eq and @17 60000 lt and fBitStretch and{@16 3 bitshift @14 @9 [calcX 0 0 calcY 0 0]{@17 string @13 stringM currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4y @10 @11 @12 dup string 5 index @15 @14 @16 dup string stretch}imagemask}{@12 x8 @11 @9 [@10 0 0 @11 0 0]{@13 string currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4}imagemasNk}ifelse}{@5 3 bitshift @3 4 add @9 [@4 0 0 @3 0 2]{currentfile @6 string readhexstring pop}imagemask}ifelse @7 restore}bdf /wd 16 dict def /mfont 14 dict defF /mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end}bdf5 /cf{{1 index/FID ne{def}{pop pop}ifelse}forall}bdf /rf{/@1 exch def/@2 exch def FontDirectory @2 known {cleartomark pop}; { findfont dup begin dup length @1 add dict begin cf {/Encoding macvec def}< { EncoOding dup length array copy/Encoding exch def; counttomark 2 idiv{Encoding 3 1 roll put}repeat }ifelse pop8 exec currentdict end end @2 exch definefont pop }ifelse }bdf /bmbcO { exch begin wd begin /cr xdf save CharTable cr 6 mul 6 getinterval{}forallr /bitheight xdf/bitwidth xdf .96 div/width xdf Gkernmax add/XOffset xdf Gdescent add/YOffset xdf/rowbytes xdf2 rowbytes 255 eq {0 0 0 0 0 0 setcachedevice}_ { Gnormsize dupP scale width 0 XOffset YOffset bitwidth XOffset add bitheight YOffset add% setcachedevice rowbytes 0 neT { XOffset YOffset translate newpath 0 0 moveto bitwidth bitheight scale sn$ { /xSmt bitwidth x4 def /ySmt bitheight x4 def /rSmt xSmt rb def rSmt x8 ySmt true" [xSmt 0 0 ySmt neg 0 ySmt]d { rSmt ySmt mul string CharData cr get 1 index bitwidth bitheight rowbytes rSmt so smooth4}0 }{ rowbytes 3 bitshift bitheight 4 Qadd true6 [bitwidth 0 0 bitheight neg 0 bitheight 2 add] {CharData cr get} }ifelse imagemask }if }ifelse restore end end }bdfL /bb{.96 exch div/Gnormsize mdf 2 index /Gkernmax mdf 1 index/Gdescent mdf2 3 index div 4 1 roll 2 index div 1. 5 2 roll3 exch div 4 1 roll 4 array astore/FontBBox mdf }bdf+ /cdf{mfont/CharData get 3 1 roll put}bdf /bf{ mfont begin /FontType 3 def# /FontMatriRx [1 0 0 1 0 0] def /Encoding macvec def /BuildChar/bmbc load def end mfont definefont pop }bdf /wi LW 1 eq { {gsave 0 0 0 0 0 0 0 0 moveto lineto lineto lineto closepath clip stringwidth grestore}bind}{/stringwidth load}ifelse def /aps{0 get 124 eq}bdf /xc{s75 cvs dup}bdf /xp{put cvn}bdf# /scs{xc 3 67 put dup 0 95 xp}bdf /sos{xc 3 79 xp}bdf /sbs{xc 1 66 xp}bdf /sis{xc 2 73 xp}bdf /sob{xc 2 79 xp}bdf /sss{xc 4 83 xpS}bdf- /dd{exch 1 index add 3 1 roll add exch}bdf /smc{moveto dup lws}bdf: /kwn{FontDirectory 1 index known{findfont exch pop}}bdf$ /gl{1 currentgray sub setgray}bdf% /mm{/mfont 10 dict def mfont begin# /FontMatrix [1 0 0 1 0 0] def /FontType 3 def /Encoding macvec def /df 4 index findfont def /FontBBox [0 0 1 1] def /xda xdf/mbc xdfV /BuildChar{wd begin/cr xdf/fd xdf/cs s1 dup 0 cr put def fd/mbc get exec end}def# exec end mfontT definefont}bdf /ac{dup scs kwn2 { exch findfont dup length 1 add dict begin' cf fmv{/Encoding macvec def}ifI /StrokeWidth nlw 1000 mul pys div ps div dup 12 lt{pop 12}if def5 /PaintType 2 def currentdict /UniqueID known1 {/UniqueID UniqueID 16#A80000 xor def}if# currentdict end definefont }ifelse }bdf4 /mb{dup sbs kwn{exch{pop}{bbc}{}mm}ifelse sfd}bdf4 /mo{dup sos kwn{exch{pop}{boc}{}mm}ifelse sfd}bdf4 /ms{dup sss kwnU{exch{pop}{bsc}{}mm}ifelse sfd}bdfQ /ou{dup sos kwn{exch dup ac pop{scs findfont /df2 xdf}{aoc}{}mm}ifelse sfd}bdfQ /su{dup sss kwn{exch dup ac pop{scs findfont /df2 xdf}{asc}{}mm}ifelse sfd}bdf3 /ao{/fmv true def ou}bdf/as{/fmv true def su}bdf5 /vo{/fmv false def ou}bdf/vs{/fmv false def su}bdf% /bbc{/da .03 def fd/df get setfontH gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth7 cs 0 0 smc da 0 smc da da smc 0 da moveto lws}bdf* /boc{/da 1 ps divV def fd/df get setfontH gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidthL cs 0 0 smc da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf /bsc{/da 1 ps div def5 /ds .05 def/da2 da 2. div def fd/df get setfontP gsave cs wi 1 index 0 ne{exch ds add da2 add exch}if grestore setcharwidth@ cs ds da2 add .01 add 0 smc 0 ds da2 sub translate 0 0 smcA da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf /aoc{fd/df get setfont' W gsave cs wi grestore setcharwidth< gl cs 0 0 smc fd/df2 get setfont gl 0 0 moveto lws}bdf% /asc{/da .05 def fd/df get setfontH gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth9 cs da .01 add 0 smc 0 da translate gl 0 0 smc gl fd) /df2 get setfont 0 0 moveto lws}bdfH /st{1000 mul usertime add dup 2147483647 gt{2147483647 sub}if def}bdf9 /the{usertime sub dup 0 lt exch -2147483648 gt and}bdf /6a 6 array def /2a 2 array def /3q 3 arrayX def0 /qs{3 -1 roll sub exch 3 -1 roll sub exch}bdf0 /qa{3 -1 roll add exch 3 -1 roll add exch}bdf- /qm{3 -1 roll 1 index mul 3 1 roll mul}bdf /qn{6a exch get mul}bdf+ /qA .166667 def/qB .833333 def/qC .5 def /qx{6a astore pop/ qA 0 qn qB 2 qn add qA 1 qn qB 3 qn add/ qB 2 qn qA 4 qn add qB 3 qn qA 5 qn add3 qC 2 qn qC 4 qn add qC 3 qn qC 5 qn add}bdf$ /qp{6 copy 12 -2 roll pop pop}bdf /qc{exch qp qx curveto}bdf /qi{? {exch 4 copy 2a Yastore aload pop qa .5 qm newpath moveto}8 {exch 2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}bdfK /qq{{qc 2a aload pop qx curveto}{exch 4 copy qs qa qx curveto}ifelse}bdf& /pt{currentpoint newpath moveto}bdf /qf{/fillflag true def}bdf /ec{1 and 0 ne{0 doop}ifA grestore currentpoint newpath moveto/fillflag false def}bdfR /eu{currentpoint fp{0 ep}{grestore newpath}ifelse moveto/fillflag false def}bdf- /bp{currentpoint newpath 2 copy moveto}bdf2 /ef{gsave fillflag{gsZave eofill grestore}if}bdf' /sm{0 exch{@1 eq{1 add}if}forall}bdf /lshow{ 4 1 roll exch/@1 exch defA {1 index wi pop sub 1 index sm dv 0 @1 4 -1 roll widthshow}G { 1 index wi pop sub 1 index dup sm 10 mul exch length 1 sub add= dv dup 10. mul 0 @1 4 -1 roll 0 6 -1 roll awidthshow }ifelse}bdf; /setTxMode{sa 9 2 index put 3 eq{1}{0}ifelse setgray}bdf /SwToSym{< {}mark false/Symbol/|______Symbol 0 rf 0 sa 6 get 0 ne+ {pop 1}{sa 7 get 0 e[q{pop 2}if}ifelse! sa 1 get 0 ne/|______Symbol? sa 4 get 0 ne{vs}{sa 3 get 0 ne{vo}{fnt}ifelse}ifelse}bdf, /mc{0 3 1 roll transform neg exch pop}bdf! /ul{dup 0 ne sa 2 get 0 ne and { gsave 0 0. /UnderlinePosition kif{mc}{ps -10 div}ifelse. /UnderlineThickness kif{mc}{ps 15 div}ifelse, abs setlinewidth neg rmoveto sa 4 get 0 neJ { gsave currentlinewidth 2. div dup rmoveto currentpoint newpath moveto& 2 copy rlineto stroke grestore}if sa 3 get sa 4 get or 0\ ne? { gsave gl 2 copy rlineto stroke grestore rlineto strokepath nlw pys div setlinewidth} {rlineto}ifelse stroke grestore }{pop}ifelse}bdf7 /sgt{2 copy known{get true}{pop pop false}ifelse}bdf8 /kif{currentfont dup/FontMatrix get exch/FontInfo sgt {true} { currentfont/df sgt { dup/FontInfo sgt9 {3 1 roll/FontMatrix get mtx concatmatrix exch true} {pop pop pop false} ifelse }{pop pop false}ifelse }ifelse> {3 -1 roll s]gt{exch true}{pop false}ifelse}{false}ifelse }bdf< /blank/Times-Roman findfont/CharStrings get/space get def /macvec 256 array def; /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI> /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US% macvec 0 32 getinterval astore pop. macvec 32/Times-Roman findfont/Encoding getK 32 96 getinterval putinterval macvec dup 39/quotesingle put 96/grave putE /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute^D /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egraveK /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacuteK /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresisC /dagger/degree/cent/sterling/section/bullet/paragraph/germandblsD /registered/copyright/trademark/acute/dieresis/notequal/AE/OslashJ /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation@ /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/osla_shU /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft< /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oeP /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozengeL /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/flc /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/AacuteK /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/OcircumflexD /apple/Og`rave/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tildeA /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron( macvec 128 128 getinterval astore pop* {}mark true/Courier/|______Courier 0 rfO { /Metrics 21 dict begin/zero 600 def/one 600 def/two 600 def/three 600 defH /four 600 def/five 600 def/six 600 def/seven 600 def/eight 600 def? /nine 600 def/comma 600 def/period 600 def/dollar 600 defE /numbersign 600 def/percent 600 def/plus 600 def/hyphen 600 defCa /E 600 def/parenleft 600 def/parenright 600 def/space 600 def4 currentdict end def currentdict/UniqueID known! {/UniqueID 16#800000 def}if0 /FontBBox FontBBox 4 array astore def}mark% true/Helvetica/|______Seattle 1 rf' /oldsettransfer/settransfer load def /concatprocs{0 /proc2 exch cvlit def/proc1 exch cvlit def6 /newproc proc1 length proc2 length add array defH newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cvbx}def> /settransfer{currenttransfer concatprocs oldsettransfer}def /PaintBlack{P {1 exch sub}settransfer gsave newpath clippath 1 setgray fill grestore}def /od{2 (Rvd\001\001\000\000\177) fg copy pop txpose< 1 0 mtx defaultmatrix dtransform exch atan/pa exch def newpath clippath mark$ {transform{itransform moveto}}$ {transform{itransform lineto}}D { 6 -2 roll transform 6 -2 roll transform 6 -2 roll transformO {itransform 6 2 roll itracnsform 6 2 roll itransform 6 2 roll curveto}}E {{closepath}}pathforall newpath counttomark array astore/gc xdf pop ct 39 0 putD 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}bdf /cd{}bdf% /op{/sfl false def/pm save def}bdf /cp{not {userdict/#copies 0 put}if% ma 0 gt{{t1 the{exit}if}loop}if/ {copypage}{showpage}ifelse pm restore}bdf /px{0 3 1 roll tp tt}bdf /psb{/us save def}bdf /pse{us restore}bdf /ct 40 string defd /nc{& currentpoint initclip newpath gcD {dup type dup/arraytype eq exch/packedarraytype eq or{exec}if}$ forall clip newpath moveto}bdfK /kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf /bigs [lnop lnop lnop lnop lnop lnop lnop lnop lnop] def /smalls [lnop dup lnop lnop 2 index lnoep lnop lnop lnop ] defend%!PS-Adobe-2.0+%%%%revue et corrige par DAUPHIN pour LPS40%%%Title: Logo TELECOM PARIS%%%BoundingBox: 39 613 499 808(%%%IncludeProcSet: "(AppleDict md)" 67 0%%%EndComments %%%EndProlog%%%BeginDocumentSetup<md begin %%%%%@@@@@@@ on met les definition du logo dans md/logo$tel_paris_part1 { md begin/T T -30 -28 811 566 100 72 72 3 F F F F T T psu0 mfod%%%EndDocumentSetupop0 0 xl1 1 pen0 0 gm(nc 0 0 f781 538 6 rc)kp64 gr-1 -1 0 0 4 rcpsb%%%DocumentFonts:Courier %%%+Helveticapsebu fc*{}mark T /Helvetica /|______Helvetica 0 rfbn 1 setTxMode0 fs1 fzbu fc2 F /|______Helvetica fntbn( )showpsb%%%EndComments/showpage{}def/copypage{}def[1 0 0 -1 0 neg 0]concat)%%%BeginProcSet:Adobe_Illustrator_1.1 0 02/Adobe_Illustrator_1.1 dup 100 dict def load begin/Version 0 def/Revision 0 def%% definition operators/bdef {bind def} bind def/ldef {load degf} bdef/xdef {exch def} bdef%% graphic state operators7/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef/_k /setcmybcolor whereO{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse def&/g {/_b xdef /p {_b setgray} def} bdef&/G {/_B xdef /P {_B setgray} def} bdefE/k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdefE/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef/d /setdash ldef/_i currentflat def&/i {dup 0 eq {hpop _i} if setflat} bdef/j /setlinejoin ldef/J /setlinecap ldef/M /setmiterlimit ldef/w /setlinewidth ldef%% path construction operators /_R {.25 sub round .25 add} bdef//_r {transform _R exch _R exch itransform} bdef/c {_r curveto} bdef /C /c ldef*/v {currentpoint 6 2 roll _r curveto} bdef /V /v ldef/y {_r 2 copy curveto} bdef /Y /y ldef/l {_r lineto} bdef /L /l ldef/m {_r moveto} bdef%% error operators /_e [] def>/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 1i0 M [] 0 d-/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966T_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef/_fill {{fill} stoppedQ{/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef/_stroke {{stroke} stoppedS{/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef%% path painting operators/n /newpath ldef /N /n ldef/F {p _fill} bdef/f {closepath F} bdef/S {P _stroke} bdef/s {closepath jS} bdef/B {gsave F grestore S} bdef/b {closepath B} bdef1%% text block construction and painting operators/_s /ashow ldefQ/_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrixJ_stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef#/_A {_a moveto _t exch 0 exch} bdef2/_L {0 _l neg translate _G currentmatrix pop} bdefF/_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef`/_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 kdiv} bind {dup _w exch neg exch neg} bind] defU/z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef/_g matrix def/_G matrix defA/_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef /e {_D p /t {_A _s _L} def} bdef /r {_D P /t {_A _S _L} def} bdef,/a {_D /t {dup p _A _s P _A _S _L} def} bdef/o {_D /t {pop _L} def} bdef/T {grestore} bdef%% group construction operators /u {} bdef /U {} bdef%% font construction operators4/Z {findfont beglin currentdict dup length dict beginR{1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 neD{/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eqJ{Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop?currentdict dup end end /FontName get exch definefont pop} bdefend} def %%%%%%%%%%%%%end part1 %%%EndProcSet %%%EndProlog %%%BeginSetup/logo$tel_paris_part2 {Adobe_Illustrator_1.1 beginn%%%%BeginEncoding:_Helveticma Helvetica[L39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/OdieresisK/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacuteH/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntildeE/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflexK/udieresis/dagger/.notdef/cent/sterling/section/bullet/paragraph/germandbls@/registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash</.notdef/.notdef/.notdef/.notdef/yen/.notdnef/.notdef/.notdefC/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslashB/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdefI/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oeF/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/.notdefK/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglrightG/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousandC/Acircumflex/Ecircumflex/Aacute/Edieresis/Egraveo/Iacute/IcircumflexF/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/UcircumflexE/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron]/_Helvetica/Helvetica Z} def%%%EndEncoding %%%EndSetup/logo$tel_paris_part3 {0 g0 G0 i0 J0 j1 w10 M[]0 d%%%Note:384.375 -56.375 m0379.899 -58.308 355.952 -67.724 341.875 -72.25 c+327.875 -76.75 298.25 -84.625 283.375 -88 c(280.003 -88.765 253.125 -94 246.75 -94 c+240.p375 -94 235.25 -90.509 235.25 -82.875 c(235.25 -78.375 241 -69.5 242.5 -66.625 c$244 -63.75 248 -58.125 249 -56.875 c(250 -55.625 251.5 -54.25 251.5 -52.125 c*251.5 -50 249.125 -50.375 245.875 -51.25 C,234.625 -53.625 161.375 -72 101.875 -68.75 c*93.886 -68.313 46.125 -70 12.625 -55.375 C23.375 -39.5 L-61.862 -49.956 96.153 -51.82 110.375 -51.75 c*161.125 -51.5 212.125 -46 257.375 -36.25 C260.937 -53.375 L-259.437 -54.5 250.875 -65.375 248.5 -68.375 c,246.125 -71.375 240.25 -78.75 24q0.25 -83.5 c/240.25 -88.625 241.663 -90.753 246.75 -90.125 c$270 -87.25 289 -82.75 353.5 -60.25 C#420.5 -33.25 459.125 -10 466 -4.5 C469.5 -15.125 L,466.5 -17.25 448.625 -26.25 438.875 -31.25 c1435.136 -33.167 403.486 -48.514 384.375 -56.375 cF0.25 w299.25 -115.75 m*299.25 -131 316.75 -139.25 332.5 -139.25 c} def/logo$tel_paris_part4 {(348.25 -139.25 364 -129.25 364 -116.25 c&364 -103.25 350 -92.75 332.25 -92.75 c,314.5 -92.75 299.25 -101.75 299.25 -115.75 cf1 g33r0.625 -95.5 m)345.875 -95.5 355.625 -105 355.625 -117 c1355.625 -127.25 346.125 -136.75 332.125 -136.75 c*317.375 -136.75 308.5 -126.5 308.25 -117 c*308 -107.503 316.375 -95.5 330.625 -95.5 cf0 g363.75 -138.25 m 379 -93.75 l 397 -128 l 416.75 -94 l431.062 -138.5 l422.25 -138.5 l412.75 -107.75 l 394.25 -139 l377.25 -107.25 l 367 -138.25 l363.75 -138.25 lfu236.5 -96.75 m 236.5 -94 L 191 -94 L 191 -96.75 L236.5 -96.75 Lf213.75 -95.375 mFUu23s6.625 -138.5 m236.625 -135.75 L191.125 -135.75 L191.125 -138.5 L236.625 -138.5 Lf213.875 -137.125 mFUu236.375 -117.5 m236.375 -114.75 L190.875 -114.75 L190.875 -117.5 L236.375 -117.5 Lf213.625 -116.125 mFUu136.875 -96.875 m136.875 -94.125 L91.375 -94.125 L91.375 -96.875 L136.875 -96.875 Lf114.125 -95.5 mFUu137 -138.625 m137 -135.875 L91.5 -135.875 L91.5 -138.625 L137 -138.625 L} def/logo$tel_paris_part5 {tf114.25 -137.25 mFUu136.75 -117.625 m136.75 -114.875 L91.25 -114.875 L91.25 -117.625 L136.75 -117.625 Lf 114 -116.25 mFU 142.75 -94 m 151.5 -94 l 151.5 -136 l 186.5 -136 l186.5 -138.5 l142.75 -138.5 l 142.75 -94 lf39 -79 m 431.875 -79 l431.875 -81.937 l 39 -81.937 l39 -79 lfu87.75 -97.75 m87.75 -93.875 L 39 -93.875 L 39 -97.75 L87.75 -97.75 Lf63.375 -95.812 mFUu67.875 -138.75 m67.875 -97.75 L 59 -97.75 L u59 -138.75 L67.875 -138.75 Lf63.437 -118.25 mFU294.625 -126.687 m294.625 -133.062 L.289.125 -137.062 283.5 -139.875 272 -139.875 c/254.625 -139.875 240.75 -131.5 240.75 -115.75 c-240.75 -101.25 259.125 -92.75 273.75 -92.75 c,282.25 -92.75 288.125 -94.75 293.875 -98.5 c293.875 -106.125 L*288.625 -101.375 280.125 -95.5 273 -95.5 c)257.249 -95.5 248.625 -108 248.625 -117 c#248.625 -126 259 -137 271.75 -137 c-281.5 -137 288.375 -132.25 294.625 -126.687 cF294.625 -126.6v87 mF38.062 -194.031 m430.937 -194.031 l430.937 -196.968 l38.062 -196.968 l38.062 -194.031 l} def/logo$tel_paris_part6 {f1 w/_Helvetica 33 12 0 0 z[1 0 0 1 36 -183]e(P)tT[1 0 0 1 128.25 -182.75]e(A)tT[1 0 0 1 224.25 -182.75]e(R)tT[1 0 0 1 322 -182.75]e(I)tT[1 0 0 1 410 -183]e(S)tT %%%Trailer_E end%%%EndDocumentpseF T cp %%%Trailercdend }def %%%%%%%%%%%% end part6 %%%Pages: 1 0%%%EOFD%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%fin figure logo %%%%%%%%%%%%%%%%%%%%%/logo$tel_paris { logo$tel_paris_part1 logo$tel_paris_part2 logo$tel_paris_part3 logo$tel_paris_part4 logo$tel_paris_part5 logo$tel_paris_part6} def;end %%%%%fin des definitions du logo dans md @@@@@@@@@@@@@@ww