/ IBM CD Showcase / OS2_CD_ROM.iso / smce0001 / corel25 / coreldrw / prolog.cmp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 24 52 24 44 24 43 24 | 30 00 24 3a 34 32 47 47 |.$R$D$C$|0.$:42GG|
|00000010| 47 3d 59 1c 12 0e 05 00 | a8 a9 83 5f 57 7f 05 1a |G=Y.....|..._W...|
|00000020| e0 26 00 00 30 00 00 00 | 00 00 00 00 00 00 00 00 |.&..0...|........|
|00000030| 31 7d 0d 07 8a a6 f0 5a | 49 68 44 4e 4b 75 e8 16 |1}.....Z|IhDNKu..|
|00000040| 6f 70 79 72 69 67 68 74 | 20 43 6f 72 65 6c 20 53 |opyright| Corel S|
|00000050| 79 73 74 65 6d 73 20 43 | 6f 72 70 6f 72 61 74 69 |ystems C|orporati|
|00000060| 6f 6e 20 31 39 39 30 0d | 0a 2f 41 75 74 6f 46 6c |on 1990.|./AutoFl|
|00000070| 61 74 6e 65 73 73 20 30 | 20 64 65 66 2f 77 43 6f |atness 0| def/wCo|
|00000080| 72 65 6c 44 69 63 74 20 | 33 30 30 20 64 69 63 74 |relDict |300 dict|
|00000090| 20 64 65 66 0d 0a 77 43 | 6f 72 65 6c 44 69 63 74 | def..wC|orelDict|
|000000a0| 20 62 65 67 69 6e 2f 62 | 64 7b 62 69 6e 64 20 64 | begin/b|d{bind d|
|000000b0| 65 66 7d 62 69 6e 64 20 | 64 65 66 2f 6c 64 7b 6c |ef}bind |def/ld{l|
|000000c0| 6f 61 64 20 64 65 66 7d | 62 64 0d 0a 2f 78 64 7b |oad def}|bd../xd{|
|000000d0| 65 78 63 68 20 64 65 66 | 7d 62 64 2f 5f 20 6e 75 |exch def|}bd/_ nu|
|000000e0| 6c 6c 20 64 65 66 2f 24 | 63 20 30 20 64 65 66 2f |ll def/$|c 0 def/|
|000000f0| 24 6d 20 30 20 64 65 66 | 0d 0a 2f 24 79 20 30 20 |$m 0 def|../$y 0 |
|00000100| 64 65 66 2f 24 6b 20 30 | 20 64 65 66 2f 24 74 20 |def/$k 0| def/$t |
|00000110| 31 20 64 65 66 2f 24 6e | 20 5f 20 64 65 66 2f 24 |1 def/$n| _ def/$|
|00000120| 6f 20 30 20 64 65 66 0d | 0a 2f 24 66 69 6c 20 30 |o 0 def.|./$fil 0|
|00000130| 20 64 65 66 2f 24 43 20 | 30 20 64 65 66 2f 24 4d | def/$C |0 def/$M|
|00000140| 20 30 20 64 65 66 2f 24 | 59 20 30 20 64 65 66 2f | 0 def/$|Y 0 def/|
|00000150| 24 4b 20 30 20 64 65 66 | 0d 0a 2f 24 54 20 31 20 |$K 0 def|../$T 1 |
|00000160| 64 65 66 2f 24 4e 20 5f | 20 64 65 66 2f 24 4f 20 |def/$N _| def/$O |
|00000170| 30 20 64 65 66 2f 24 50 | 46 20 66 61 6c 73 65 20 |0 def/$P|F false |
|00000180| 64 65 66 0d 0a 2f 24 70 | 61 6e 20 30 20 64 65 66 |def../$p|an 0 def|
|00000190| 2f 24 68 20 66 61 6c 73 | 65 20 64 65 66 2f 24 61 |/$h fals|e def/$a|
|000001a0| 6c 20 30 20 64 65 66 2f | 24 74 72 20 30 20 64 65 |l 0 def/|$tr 0 de|
|000001b0| 66 0d 0a 2f 24 6c 65 20 | 30 20 64 65 66 2f 24 6c |f../$le |0 def/$l|
|000001c0| 78 20 30 20 64 65 66 2f | 24 6c 79 20 30 20 64 65 |x 0 def/|$ly 0 de|
|000001d0| 66 2f 24 63 74 6d 20 6d | 61 74 72 69 78 20 63 75 |f/$ctm m|atrix cu|
|000001e0| 72 72 65 6e 74 6d 61 74 | 72 69 78 20 64 65 66 0d |rrentmat|rix def.|
|000001f0| 0a 2f 24 70 74 6d 20 6d | 61 74 72 69 78 20 64 65 |./$ptm m|atrix de|
|00000200| 66 2f 24 74 74 6d 20 6d | 61 74 72 69 78 20 64 65 |f/$ttm m|atrix de|
|00000210| 66 2f 24 73 74 6d 20 6d | 61 74 72 69 78 20 64 65 |f/$stm m|atrix de|
|00000220| 66 0d 0a 2f 24 73 6b 6d | 20 6d 61 74 72 69 78 20 |f../$skm| matrix |
|00000230| 64 65 66 2f 24 66 73 74 | 20 31 32 38 20 64 65 66 |def/$fst| 128 def|
|00000240| 2f 24 70 61 64 20 30 20 | 64 65 66 2f 24 72 6f 78 |/$pad 0 |def/$rox|
|00000250| 20 30 20 64 65 66 0d 0a | 2f 24 72 6f 79 20 30 20 | 0 def..|/$roy 0 |
|00000260| 64 65 66 20 63 75 72 72 | 65 6e 74 73 63 72 65 65 |def curr|entscree|
|00000270| 6e 2f 40 64 73 70 20 78 | 64 2f 24 64 73 70 2f 40 |n/@dsp x|d/$dsp/@|
|00000280| 64 73 70 20 64 65 66 0d | 0a 2f 24 64 73 61 20 78 |dsp def.|./$dsa x|
|00000290| 64 2f 24 64 73 66 20 78 | 64 2f 24 73 64 66 20 66 |d/$dsf x|d/$sdf f|
|000002a0| 61 6c 73 65 20 64 65 66 | 2f 24 53 44 46 20 66 61 |alse def|/$SDF fa|
|000002b0| 6c 73 65 20 64 65 66 0d | 0a 2f 24 53 63 72 61 20 |lse def.|./$Scra |
|000002c0| 30 2e 30 20 64 65 66 20 | 73 74 61 74 75 73 64 69 |0.0 def |statusdi|
|000002d0| 63 74 2f 70 61 67 65 70 | 61 72 61 6d 73 20 6b 6e |ct/pagep|arams kn|
|000002e0| 6f 77 6e 7b 73 74 61 74 | 75 73 64 69 63 74 20 62 |own{stat|usdict b|
|000002f0| 65 67 69 6e 0d 0a 70 61 | 67 65 70 61 72 61 6d 73 |egin..pa|geparams|
|00000300| 20 65 6e 64 20 31 20 6e | 65 7b 2f 24 53 63 72 61 | end 1 n|e{/$Scra|
|00000310| 20 2d 39 30 2e 30 20 64 | 65 66 7d 69 66 20 70 6f | -90.0 d|ef}if po|
|00000320| 70 20 70 6f 70 20 70 6f | 70 7d 69 66 0d 0a 2f 24 |p pop po|p}if../$|
|00000330| 73 76 20 30 20 64 65 66 | 2f 40 63 70 2f 63 6c 6f |sv 0 def|/@cp/clo|
|00000340| 73 65 70 61 74 68 20 6c | 64 2f 40 67 73 2f 67 73 |sepath l|d/@gs/gs|
|00000350| 61 76 65 20 6c 64 2f 40 | 67 72 2f 67 72 65 73 74 |ave ld/@|gr/grest|
|00000360| 6f 72 65 20 6c 64 0d 0a | 2f 40 6e 70 2f 6e 65 77 |ore ld..|/@np/new|
|00000370| 70 61 74 68 20 6c 64 2f | 40 73 76 7b 2f 24 73 76 |path ld/|@sv{/$sv|
|00000380| 20 73 61 76 65 20 64 65 | 66 7d 62 64 2f 40 72 73 | save de|f}bd/@rs|
|00000390| 7b 24 73 76 20 72 65 73 | 74 6f 72 65 7d 62 64 0d |{$sv res|tore}bd.|
|000003a0| 0a 2f 40 73 73 7b 6c 6f | 61 64 20 73 65 74 73 63 |./@ss{lo|ad setsc|
|000003b0| 72 65 65 6e 7d 62 64 20 | 41 75 74 6f 46 6c 61 74 |reen}bd |AutoFlat|
|000003c0| 6e 65 73 73 20 31 20 65 | 71 7b 2f 24 63 70 78 20 |ness 1 e|q{/$cpx |
|000003d0| 28 5b 45 72 72 6f 72 3a | 20 50 61 74 68 54 6f 6f |([Error:| PathToo|
|000003e0| 43 6f 6d 70 6c 65 78 3b | 20 4f 66 66 65 6e 64 69 |Complex;| Offendi|
|000003f0| 6e 67 43 6f 6d 6d 61 6e | 64 3a 20 41 6e 79 50 61 |ngComman|d: AnyPa|
|00000400| 69 6e 74 69 6e 67 4f 70 | 65 72 61 74 6f 72 3b 5c |intingOp|erator;\|
|00000410| 6e 29 20 64 65 66 0d 0a | 2f 40 65 72 72 31 7b 24 |n) def..|/@err1{$|
|00000420| 63 70 78 20 70 72 69 6e | 74 20 66 6c 75 73 68 20 |cpx prin|t flush |
|00000430| 6e 65 77 70 61 74 68 7d | 62 64 2f 40 69 66 6c 7b |newpath}|bd/@ifl{|
|00000440| 63 75 72 72 65 6e 74 66 | 6c 61 74 20 64 75 70 20 |currentf|lat dup |
|00000450| 31 30 20 67 74 7b 70 6f | 70 20 40 65 72 72 31 20 |10 gt{po|p @err1 |
|00000460| 65 78 69 74 7d 69 66 20 | 32 20 61 64 64 20 73 65 |exit}if |2 add se|
|00000470| 74 66 6c 61 74 7d 62 64 | 0d 0a 2f 40 66 69 6c 6c |tflat}bd|../@fill|
|00000480| 2f 66 69 6c 6c 20 6c 64 | 2f 66 69 6c 6c 7b 63 75 |/fill ld|/fill{cu|
|00000490| 72 72 65 6e 74 66 6c 61 | 74 7b 7b 40 66 69 6c 6c |rrentfla|t{{@fill|
|000004a0| 7d 73 74 6f 70 70 65 64 | 7b 40 69 66 6c 7d 7b 65 |}stopped|{@ifl}{e|
|000004b0| 78 69 74 7d 69 66 65 6c | 73 65 7d 62 69 6e 64 20 |xit}ifel|se}bind |
|000004c0| 6c 6f 6f 70 20 73 65 74 | 66 6c 61 74 7d 62 64 0d |loop set|flat}bd.|
|000004d0| 0a 2f 40 65 6f 66 69 6c | 6c 2f 65 6f 66 69 6c 6c |./@eofil|l/eofill|
|000004e0| 20 6c 64 2f 65 6f 66 69 | 6c 6c 7b 63 75 72 72 65 | ld/eofi|ll{curre|
|000004f0| 6e 74 66 6c 61 74 7b 7b | 40 65 6f 66 69 6c 6c 7d |ntflat{{|@eofill}|
|00000500| 73 74 6f 70 70 65 64 7b | 40 69 66 6c 7d 7b 65 78 |stopped{|@ifl}{ex|
|00000510| 69 74 7d 69 66 65 6c 73 | 65 7d 62 69 6e 64 20 6c |it}ifels|e}bind l|
|00000520| 6f 6f 70 20 73 65 74 66 | 6c 61 74 7d 62 64 0d 0a |oop setf|lat}bd..|
|00000530| 2f 40 63 6c 69 70 2f 63 | 6c 69 70 20 6c 64 2f 63 |/@clip/c|lip ld/c|
|00000540| 6c 69 70 7b 63 75 72 72 | 65 6e 74 66 6c 61 74 7b |lip{curr|entflat{|
|00000550| 7b 40 63 6c 69 70 7d 73 | 74 6f 70 70 65 64 7b 69 |{@clip}s|topped{i|
|00000560| 6e 69 74 63 6c 69 70 20 | 40 69 66 6c 7d 7b 65 78 |nitclip |@ifl}{ex|
|00000570| 69 74 7d 69 66 65 6c 73 | 65 7d 62 69 6e 64 20 6c |it}ifels|e}bind l|
|00000580| 6f 6f 70 20 73 65 74 66 | 6c 61 74 7d 62 64 0d 0a |oop setf|lat}bd..|
|00000590| 2f 40 65 6f 63 6c 69 70 | 2f 65 6f 63 6c 69 70 20 |/@eoclip|/eoclip |
|000005a0| 6c 64 2f 65 6f 63 6c 69 | 70 7b 63 75 72 72 65 6e |ld/eocli|p{curren|
|000005b0| 74 66 6c 61 74 7b 7b 40 | 65 6f 63 6c 69 70 7d 73 |tflat{{@|eoclip}s|
|000005c0| 74 6f 70 70 65 64 7b 69 | 6e 69 74 63 6c 69 70 20 |topped{i|nitclip |
|000005d0| 40 69 66 6c 7d 7b 65 78 | 69 74 7d 69 66 65 6c 73 |@ifl}{ex|it}ifels|
|000005e0| 65 7d 62 69 6e 64 20 6c | 6f 6f 70 20 73 65 74 66 |e}bind l|oop setf|
|000005f0| 6c 61 74 7d 62 64 0d 0a | 2f 40 73 74 72 6f 6b 65 |lat}bd..|/@stroke|
|00000600| 2f 73 74 72 6f 6b 65 20 | 6c 64 2f 73 74 72 6f 6b |/stroke |ld/strok|
|00000610| 65 7b 63 75 72 72 65 6e | 74 66 6c 61 74 7b 7b 40 |e{curren|tflat{{@|
|00000620| 73 74 72 6f 6b 65 7d 73 | 74 6f 70 70 65 64 7b 40 |stroke}s|topped{@|
|00000630| 69 66 6c 7d 7b 65 78 69 | 74 7d 69 66 65 6c 73 65 |ifl}{exi|t}ifelse|
|00000640| 7d 62 69 6e 64 20 6c 6f | 6f 70 20 73 65 74 66 6c |}bind lo|op setfl|
|00000650| 61 74 7d 62 64 0d 0a 7d | 69 66 2f 49 6e 52 61 6e |at}bd..}|if/InRan|
|00000660| 67 65 7b 33 20 2d 31 20 | 72 6f 6c 6c 20 32 20 63 |ge{3 -1 |roll 2 c|
|00000670| 6f 70 79 20 6c 65 7b 70 | 6f 70 7d 7b 65 78 63 68 |opy le{p|op}{exch|
|00000680| 20 70 6f 70 7d 69 66 65 | 6c 73 65 0d 0a 32 20 63 | pop}ife|lse..2 c|
|00000690| 6f 70 79 20 67 65 7b 70 | 6f 70 7d 7b 65 78 63 68 |opy ge{p|op}{exch|
|000006a0| 20 70 6f 70 7d 69 66 65 | 6c 73 65 7d 62 64 2f 77 | pop}ife|lse}bd/w|
|000006b0| 44 73 74 43 68 63 6b 7b | 32 20 31 20 72 6f 6c 6c |DstChck{|2 1 roll|
|000006c0| 20 64 75 70 20 33 20 2d | 31 20 72 6f 6c 6c 0d 0a | dup 3 -|1 roll..|
|000006d0| 65 71 7b 31 20 61 64 64 | 7d 69 66 7d 62 64 2f 40 |eq{1 add|}if}bd/@|
|000006e0| 64 6f 74 7b 64 75 70 20 | 6d 75 6c 20 65 78 63 68 |dot{dup |mul exch|
|000006f0| 20 64 75 70 20 6d 75 6c | 20 61 64 64 20 31 20 65 | dup mul| add 1 e|
|00000700| 78 63 68 20 73 75 62 20 | 32 20 64 69 76 7d 62 64 |xch sub |2 div}bd|
|00000710| 0d 0a 2f 40 6c 69 6e 7b | 65 78 63 68 20 70 6f 70 |../@lin{|exch pop|
|00000720| 20 61 62 73 20 31 20 65 | 78 63 68 20 73 75 62 7d | abs 1 e|xch sub}|
|00000730| 62 64 2f 40 4d 4e 7b 32 | 20 63 6f 70 79 20 6c 65 |bd/@MN{2| copy le|
|00000740| 7b 70 6f 70 7d 7b 65 78 | 63 68 20 70 6f 70 7d 69 |{pop}{ex|ch pop}i|
|00000750| 66 65 6c 73 65 7d 62 64 | 0d 0a 2f 73 65 74 63 6d |felse}bd|../setcm|
|00000760| 79 6b 63 6f 6c 6f 72 20 | 77 68 65 72 65 7b 70 6f |ykcolor |where{po|
|00000770| 70 7d 7b 2f 73 65 74 63 | 6d 79 6b 63 6f 6c 6f 72 |p}{/setc|mykcolor|
|00000780| 7b 34 20 31 20 72 6f 6c | 6c 0d 0a 33 7b 33 20 69 |{4 1 rol|l..3{3 i|
|00000790| 6e 64 65 78 20 61 64 64 | 20 31 20 40 4d 4e 20 31 |ndex add| 1 @MN 1|
|000007a0| 20 65 78 63 68 20 73 75 | 62 20 33 20 31 20 72 6f | exch su|b 3 1 ro|
|000007b0| 6c 6c 7d 72 65 70 65 61 | 74 0d 0a 73 65 74 72 67 |ll}repea|t..setrg|
|000007c0| 62 63 6f 6c 6f 72 20 70 | 6f 70 7d 62 64 7d 69 66 |bcolor p|op}bd}if|
|000007d0| 65 6c 73 65 2f 63 6f 6c | 6f 72 69 6d 61 67 65 20 |else/col|orimage |
|000007e0| 77 68 65 72 65 7b 70 6f | 70 7d 7b 2f 63 6f 6c 6f |where{po|p}{/colo|
|000007f0| 72 69 6d 61 67 65 7b 2f | 24 6e 63 6c 20 78 64 0d |rimage{/|$ncl xd.|
|00000800| 7b 7a 1e 1e 63 5a 34 a2 | ae a9 23 3e d7 15 c6 9a |{z..cZ4.|..#>....|
|00000810| 61 6e d7 fa 40 86 bc 04 | 70 00 a0 b0 3f c3 f1 8f |an..@...|p...?...|
|00000820| 43 b0 db 64 5d a9 0d 8e | 35 f8 91 7e b9 b0 8e 0f |C..d]...|5..~....|
|00000830| 27 db 1f 6a e9 3c aa 0d | 09 c0 3f de 71 13 08 e9 |'..j.<..|..?.q...|
|00000840| 62 64 7d 69 66 65 6c 73 | 65 2f 40 74 63 7b 64 75 |bd}ifels|e/@tc{du|
|00000850| 70 20 31 20 67 65 7b 70 | 6f 70 7d 7b 34 7b 64 75 |p 1 ge{p|op}{4{du|
|00000860| 70 20 36 20 2d 31 20 72 | 6f 6c 6c 0d 0a 6d 75 6c |p 6 -1 r|oll..mul|
|00000870| 20 65 78 63 68 7d 72 65 | 70 65 61 74 20 70 6f 70 | exch}re|peat pop|
|00000880| 7d 69 66 65 6c 73 65 7d | 62 64 2f 40 73 70 63 7b |}ifelse}|bd/@spc{|
|00000890| 37 20 32 20 72 6f 6c 6c | 0d 0a 43 6f 6c 6f 72 53 |7 2 roll|..ColorS|
|000008a0| 65 70 61 72 61 74 69 6f | 6e 4d 6f 64 65 20 31 20 |eparatio|nMode 1 |
|000008b0| 65 71 7b 36 20 69 6e 64 | 65 78 20 40 74 63 20 30 |eq{6 ind|ex @tc 0|
|000008c0| 20 34 20 24 69 6e 6b 20 | 73 75 62 20 69 6e 64 65 | 4 $ink |sub inde|
|000008d0| 78 0d 0a 65 78 63 68 20 | 70 6f 70 7d 7b 35 20 69 |x..exch |pop}{5 i|
|000008e0| 6e 64 65 78 20 64 75 70 | 20 5f 20 65 71 7b 70 6f |ndex dup| _ eq{po|
|000008f0| 70 20 30 20 34 20 24 69 | 6e 6b 20 73 75 62 20 69 |p 0 4 $i|nk sub i|
|00000900| 6e 64 65 78 0d 0a 65 78 | 63 68 20 70 6f 70 7d 7b |ndex..ex|ch pop}{|
|00000910| 43 75 72 72 65 6e 74 49 | 6e 6b 4e 61 6d 65 20 65 |CurrentI|nkName e|
|00000920| 71 7b 36 20 69 6e 64 65 | 78 7d 7b 30 7d 69 66 65 |q{6 inde|x}{0}ife|
|00000930| 6c 73 65 7d 69 66 65 6c | 73 65 7d 69 66 65 6c 73 |lse}ifel|se}ifels|
|00000940| 65 0d 0a 35 20 31 20 72 | 6f 6c 6c 20 38 20 2d 32 |e..5 1 r|oll 8 -2|
|00000950| 20 72 6f 6c 6c 20 36 7b | 70 6f 70 7d 72 65 70 65 | roll 6{|pop}repe|
|00000960| 61 74 20 31 20 65 78 63 | 68 20 73 75 62 20 64 75 |at 1 exc|h sub du|
|00000970| 70 20 73 65 74 67 72 61 | 79 0d 0a 31 20 65 71 20 |p setgra|y..1 eq |
|00000980| 65 78 63 68 20 31 20 65 | 71 20 61 6e 64 20 6e 6f |exch 1 e|q and no|
|00000990| 74 7d 62 64 2f 40 73 63 | 63 7b 24 69 6e 6b 20 2d |t}bd/@sc|c{$ink -|
|000009a0| 31 20 65 71 0d 0a 7b 24 | 63 20 24 6d 20 24 79 20 |1 eq..{$|c $m $y |
|000009b0| 24 6b 20 24 74 20 40 74 | 63 20 73 65 74 63 6d 79 |$k $t @t|c setcmy|
|000009c0| 6b 63 6f 6c 6f 72 20 74 | 72 75 65 7d 7b 24 6f 20 |kcolor t|rue}{$o |
|000009d0| 24 63 20 24 6d 20 24 79 | 20 24 6b 20 24 74 20 24 |$c $m $y| $k $t $|
|000009e0| 6e 20 40 73 70 63 0d 0a | 7d 69 66 65 6c 73 65 7d |n @spc..|}ifelse}|
|000009f0| 62 64 2f 40 53 43 43 7b | 24 69 6e 6b 20 2d 31 20 |bd/@SCC{|$ink -1 |
|00000a00| 65 71 7b 24 43 20 24 4d | 20 24 59 20 24 4b 20 24 |eq{$C $M| $Y $K $|
|00000a10| 54 20 40 74 63 20 73 65 | 74 63 6d 79 6b 63 6f 6c |T @tc se|tcmykcol|
|00000a20| 6f 72 20 74 72 75 65 7d | 7b 0d 0a 24 4f 20 24 43 |or true}|{..$O $C|
|00000a30| 20 24 4d 20 24 59 20 24 | 4b 20 24 54 20 24 4e 20 | $M $Y $|K $T $N |
|00000a40| 40 73 70 63 7d 69 66 65 | 6c 73 65 7d 62 64 2f 40 |@spc}ife|lse}bd/@|
|00000a50| 73 66 74 7b 0d 0a 2f 24 | 74 78 20 24 74 6c 6c 78 |sft{../$|tx $tllx|
|00000a60| 20 24 70 78 66 20 61 64 | 64 20 64 75 70 20 24 74 | $pxf ad|d dup $t|
|00000a70| 6c 6c 78 20 67 74 7b 24 | 70 77 69 64 20 24 70 73 |llx gt{$|pwid $ps|
|00000a80| 78 20 61 64 64 20 73 75 | 62 7d 69 66 20 64 65 66 |x add su|b}if def|
|00000a90| 0d 0a 2f 24 74 79 20 24 | 74 75 72 79 20 24 70 79 |../$ty $|tury $py|
|00000aa0| 66 20 73 75 62 20 64 75 | 70 20 24 74 75 72 79 20 |f sub du|p $tury |
|00000ab0| 6c 74 7b 24 70 68 65 69 | 20 24 70 73 79 20 61 64 |lt{$phei| $psy ad|
|00000ac0| 64 20 61 64 64 7d 69 66 | 20 64 65 66 7d 62 64 0d |d add}if| def}bd.|
|00000ad0| 0a 2f 40 73 74 62 7b 70 | 61 74 68 62 62 6f 78 2f |./@stb{p|athbbox/|
|00000ae0| 24 75 72 79 20 78 64 2f | 24 75 72 78 20 78 64 2f |$ury xd/|$urx xd/|
|00000af0| 24 6c 6c 79 20 78 64 2f | 24 6c 6c 78 20 78 64 7d |$lly xd/|$llx xd}|
|00000b00| 62 64 0d 0a 2f 40 65 70 | 7b 7b 63 76 78 20 65 78 |bd../@ep|{{cvx ex|
|00000b10| 65 63 7d 66 6f 72 61 6c | 6c 7d 62 64 2f 40 74 70 |ec}foral|l}bd/@tp|
|00000b20| 7b 40 73 76 2f 24 69 6e | 20 74 72 75 65 20 64 65 |{@sv/$in| true de|
|00000b30| 66 0d 0a 32 20 63 6f 70 | 79 20 64 75 70 20 24 6c |f..2 cop|y dup $l|
|00000b40| 6c 79 20 6c 65 7b 2f 24 | 69 6e 20 66 61 6c 73 65 |ly le{/$|in false|
|00000b50| 20 64 65 66 7d 69 66 20 | 24 70 68 65 69 20 73 75 | def}if |$phei su|
|00000b60| 62 20 24 75 72 79 20 67 | 65 7b 2f 24 69 6e 20 66 |b $ury g|e{/$in f|
|00000b70| 61 6c 73 65 20 64 65 66 | 7d 69 66 0d 0a 64 75 70 |alse def|}if..dup|
|00000b80| 20 24 75 72 78 20 67 65 | 7b 2f 24 69 6e 20 66 61 | $urx ge|{/$in fa|
|00000b90| 6c 73 65 20 64 65 66 7d | 69 66 20 24 70 77 69 64 |lse def}|if $pwid|
|00000ba0| 20 61 64 64 20 24 6c 6c | 78 20 6c 65 7b 2f 24 69 | add $ll|x le{/$i|
|00000bb0| 6e 20 66 61 6c 73 65 20 | 64 65 66 7d 69 66 0d 0a |n false |def}if..|
|00000bc0| 24 69 6e 7b 40 6e 70 20 | 32 20 63 6f 70 79 20 6d |$in{@np |2 copy m|
|00000bd0| 6f 76 65 74 6f 20 24 70 | 77 69 64 20 30 20 72 6c |oveto $p|wid 0 rl|
|00000be0| 69 6e 65 74 6f 20 30 20 | 24 70 68 65 69 20 6e 65 |ineto 0 |$phei ne|
|00000bf0| 67 20 72 6c 69 6e 65 74 | 6f 0d 0a 24 70 77 69 64 |g rlinet|o..$pwid|
|00000c00| 20 6e 65 67 20 30 20 72 | 6c 69 6e 65 74 6f 20 30 | neg 0 r|lineto 0|
|00000c10| 20 24 70 68 65 69 20 72 | 6c 69 6e 65 74 6f 20 63 | $phei r|lineto c|
|00000c20| 6c 69 70 20 40 6e 70 0d | 0a 24 70 6e 20 63 76 6c |lip @np.|.$pn cvl|
|00000c30| 69 74 20 6c 6f 61 64 20 | 61 6c 6f 61 64 20 70 6f |it load |aload po|
|00000c40| 70 20 37 20 2d 31 20 72 | 6f 6c 6c 20 35 20 69 6e |p 7 -1 r|oll 5 in|
|00000c50| 64 65 78 20 73 75 62 0d | 0a 37 20 2d 31 20 72 6f |dex sub.|.7 -1 ro|
|00000c60| 6c 6c 20 33 20 69 6e 64 | 65 78 20 73 75 62 20 74 |ll 3 ind|ex sub t|
|00000c70| 72 61 6e 73 6c 61 74 65 | 2f 24 63 74 6d 20 6d 61 |ranslate|/$ctm ma|
|00000c80| 74 72 69 78 20 63 75 72 | 72 65 6e 74 6d 61 74 72 |trix cur|rentmatr|
|00000c90| 69 78 20 64 65 66 0d 0a | 40 65 70 20 70 6f 70 20 |ix def..|@ep pop |
|00000ca0| 70 6f 70 20 70 6f 70 20 | 70 6f 70 7d 7b 70 6f 70 |pop pop |pop}{pop|
|00000cb0| 20 70 6f 70 7d 69 66 65 | 6c 73 65 20 40 72 73 7d | pop}ife|lse @rs}|
|00000cc0| 62 64 2f 40 74 68 7b 40 | 73 66 74 0d 0a 30 20 31 |bd/@th{@|sft..0 1|
|00000cd0| 20 24 74 6c 79 20 31 20 | 73 75 62 7b 64 75 70 20 | $tly 1 |sub{dup |
|00000ce0| 24 70 73 78 20 6d 75 6c | 20 24 74 78 20 61 64 64 |$psx mul| $tx add|
|00000cf0| 7b 64 75 70 20 24 6c 6c | 78 20 67 74 7b 24 70 77 |{dup $ll|x gt{$pw|
|00000d00| 69 64 20 73 75 62 7d 7b | 65 78 69 74 7d 69 66 65 |id sub}{|exit}ife|
|00000d10| 6c 73 65 0d 0a 7d 6c 6f | 6f 70 20 65 78 63 68 20 |lse..}lo|op exch |
|00000d20| 24 70 68 65 69 20 6d 75 | 6c 20 24 74 79 20 65 78 |$phei mu|l $ty ex|
|00000d30| 63 68 20 73 75 62 20 30 | 20 31 20 24 74 6c 78 20 |ch sub 0| 1 $tlx |
|00000d40| 31 20 73 75 62 7b 24 70 | 77 69 64 20 6d 75 6c 0d |1 sub{$p|wid mul.|
|00000d50| 0a 33 20 63 6f 70 79 20 | 33 20 2d 31 20 72 6f 6c |.3 copy |3 -1 rol|
|00000d60| 6c 20 61 64 64 20 65 78 | 63 68 20 40 74 70 20 70 |l add ex|ch @tp p|
|00000d70| 6f 70 7d 66 6f 72 20 70 | 6f 70 20 70 6f 70 7d 66 |op}for p|op pop}f|
|00000d80| 6f 72 7d 62 64 0d 0a 2f | 40 74 76 7b 40 73 66 74 |or}bd../|@tv{@sft|
|00000d90| 20 30 20 31 20 24 74 6c | 78 20 31 20 73 75 62 7b | 0 1 $tl|x 1 sub{|
|00000da0| 64 75 70 20 24 70 77 69 | 64 20 6d 75 6c 20 24 74 |dup $pwi|d mul $t|
|00000db0| 78 20 61 64 64 0d 0a 65 | 78 63 68 20 24 70 73 79 |x add..e|xch $psy|
|00000dc0| 20 6d 75 6c 20 24 74 79 | 20 65 78 63 68 20 73 75 | mul $ty| exch su|
|00000dd0| 62 7b 64 75 70 20 24 75 | 72 79 20 6c 74 7b 24 70 |b{dup $u|ry lt{$p|
|00000de0| 68 65 69 20 61 64 64 7d | 7b 65 78 69 74 7d 69 66 |hei add}|{exit}if|
|00000df0| 65 6c 73 65 7d 6c 6f 6f | 70 0d 0a 30 20 31 20 24 |else}loo|p..0 1 $|
|00000e00| 74 6c 79 20 31 20 73 75 | 62 7b 24 70 68 65 69 20 |tly 1 su|b{$phei |
|00000e10| 6d 75 6c 20 33 20 63 6f | 70 79 20 73 75 62 20 40 |mul 3 co|py sub @|
|00000e20| 74 70 20 70 6f 70 7d 66 | 6f 72 0d 0a 70 6f 70 20 |tp pop}f|or..pop |
|00000e30| 70 6f 70 7d 66 6f 72 7d | 62 64 2f 40 70 66 7b 40 |pop}for}|bd/@pf{@|
|00000e40| 67 73 20 24 63 74 6d 20 | 73 65 74 6d 61 74 72 69 |gs $ctm |setmatri|
|00000e50| 78 20 24 70 6d 20 63 6f | 6e 63 61 74 0d 0a 40 73 |x $pm co|ncat..@s|
|00000e60| 74 62 20 40 67 73 20 43 | 6f 6c 6f 72 53 65 70 61 |tb @gs C|olorSepa|
|00000e70| 72 61 74 69 6f 6e 4d 6f | 64 65 20 30 20 65 71 7b |rationMo|de 0 eq{|
|00000e80| 31 20 73 65 74 67 72 61 | 79 20 65 6f 66 69 6c 6c |1 setgra|y eofill|
|00000e90| 7d 7b 0d 0a 24 6f 20 30 | 20 30 20 30 20 30 20 30 |}{..$o 0| 0 0 0 0|
|00000ea0| 20 28 42 6c 61 63 6b 29 | 20 40 73 70 63 7b 65 6f | (Black)| @spc{eo|
|00000eb0| 66 69 6c 6c 7d 69 66 7d | 69 66 65 6c 73 65 0d 0a |fill}if}|ifelse..|
|00000ec0| 40 67 72 20 65 6f 63 6c | 69 70 20 42 62 75 72 78 |@gr eocl|ip Bburx|
|00000ed0| 20 42 62 75 72 79 20 24 | 70 6d 20 69 74 72 61 6e | Bbury $|pm itran|
|00000ee0| 73 66 6f 72 6d 2f 24 74 | 75 72 79 20 78 64 2f 24 |sform/$t|ury xd/$|
|00000ef0| 74 75 72 78 20 78 64 0d | 0a 42 62 6c 6c 78 20 42 |turx xd.|.Bbllx B|
|00000f00| 62 6c 6c 79 20 24 70 6d | 20 69 74 72 61 6e 73 66 |blly $pm| itransf|
|00000f10| 6f 72 6d 2f 24 74 6c 6c | 79 20 78 64 2f 24 74 6c |orm/$tll|y xd/$tl|
|00000f20| 6c 78 20 78 64 0d 0a 2f | 24 77 69 64 20 24 74 75 |lx xd../|$wid $tu|
|00000f30| 72 78 20 24 74 6c 6c 78 | 20 73 75 62 20 64 65 66 |rx $tllx| sub def|
|00000f40| 2f 24 68 65 69 20 24 74 | 75 72 79 20 24 74 6c 6c |/$hei $t|ury $tll|
|00000f50| 79 20 73 75 62 20 64 65 | 66 0d 0a 24 77 69 64 20 |y sub de|f..$wid |
|00000f60| 30 20 67 74 20 24 68 65 | 69 20 30 20 67 74 20 61 |0 gt $he|i 0 gt a|
|00000f70| 6e 64 7b 24 70 6e 20 63 | 76 6c 69 74 20 6c 6f 61 |nd{$pn c|vlit loa|
|00000f80| 64 20 61 6c 6f 61 64 20 | 70 6f 70 0d 0a 2f 24 70 |d aload |pop../$p|
|00000f90| 64 20 78 64 20 33 20 2d | 31 20 72 6f 6c 6c 20 73 |d xd 3 -|1 roll s|
|00000fa0| 75 62 2f 24 70 68 65 69 | 20 78 64 20 65 78 63 68 |ub/$phei| xd exch|
|00000fb0| 20 73 75 62 2f 24 70 77 | 69 64 20 78 64 0d 0a 2f | sub/$pw|id xd../|
|00000fc0| 24 74 6c 78 20 24 77 69 | 64 20 24 70 77 69 64 20 |$tlx $wi|d $pwid |
|00000fd0| 64 69 76 20 63 65 69 6c | 69 6e 67 20 31 20 61 64 |div ceil|ing 1 ad|
|00000fe0| 64 20 64 65 66 2f 24 74 | 6c 79 20 24 68 65 69 20 |d def/$t|ly $hei |
|00000ff0| 24 70 68 65 69 20 64 69 | 76 20 63 65 69 6c 69 6e |$phei di|v ceilin|
|00001000| e9 ee f6 11 d5 e3 bc cc | 6f a5 14 e9 ae 66 c5 0f |........|o....f..|
|00001010| 42 be d7 21 e3 f6 6a 42 | 3e 24 23 77 7d 24 71 ca |B..!..jB|>$#w}$q.|
|00001020| c0 23 1f bf 90 fd 6b aa | 1c 36 25 18 fe 2f fe 56 |.#....k.|.6%../.V|
|00001030| 76 0a f6 49 bf 3e 86 ff | 95 a6 09 89 47 ef 94 2e |v..I.>..|....G...|
|00001040| 65 70 61 72 61 74 69 6f | 6e 4d 6f 64 65 20 30 20 |eparatio|nMode 0 |
|00001050| 65 71 7b 0d 0a 2f 24 64 | 63 20 24 74 6f 63 20 24 |eq{../$d|c $toc $|
|00001060| 74 6f 74 20 6d 75 6c 20 | 24 66 72 63 20 24 66 72 |tot mul |$frc $fr|
|00001070| 74 20 6d 75 6c 20 64 75 | 70 2f 24 63 20 78 64 20 |t mul du|p/$c xd |
|00001080| 73 75 62 20 24 66 73 74 | 20 31 20 73 75 62 20 64 |sub $fst| 1 sub d|
|00001090| 69 76 20 64 65 66 0d 0a | 2f 24 64 6d 20 24 74 6f |iv def..|/$dm $to|
|000010a0| 6d 20 24 74 6f 74 20 6d | 75 6c 20 24 66 72 6d 20 |m $tot m|ul $frm |
|000010b0| 24 66 72 74 20 6d 75 6c | 20 64 75 70 2f 24 6d 20 |$frt mul| dup/$m |
|000010c0| 78 64 20 73 75 62 20 24 | 66 73 74 20 31 20 73 75 |xd sub $|fst 1 su|
|000010d0| 62 20 64 69 76 20 64 65 | 66 0d 0a 2f 24 64 79 20 |b div de|f../$dy |
|000010e0| 24 74 6f 79 20 24 74 6f | 74 20 6d 75 6c 20 24 66 |$toy $to|t mul $f|
|000010f0| 72 79 20 24 66 72 74 20 | 6d 75 6c 20 64 75 70 2f |ry $frt |mul dup/|
|00001100| 24 79 20 78 64 20 73 75 | 62 20 24 66 73 74 20 31 |$y xd su|b $fst 1|
|00001110| 20 73 75 62 20 64 69 76 | 20 64 65 66 0d 0a 2f 24 | sub div| def../$|
|00001120| 64 6b 20 24 74 6f 6b 20 | 24 74 6f 74 20 6d 75 6c |dk $tok |$tot mul|
|00001130| 20 24 66 72 6b 20 24 66 | 72 74 20 6d 75 6c 20 64 | $frk $f|rt mul d|
|00001140| 75 70 2f 24 6b 20 78 64 | 20 73 75 62 20 24 66 73 |up/$k xd| sub $fs|
|00001150| 74 20 31 20 73 75 62 20 | 64 69 76 20 64 65 66 0d |t 1 sub |div def.|
|00001160| 0a 74 72 75 65 7d 7b 24 | 6f 20 24 66 72 63 20 24 |.true}{$|o $frc $|
|00001170| 66 72 6d 20 24 66 72 79 | 20 24 66 72 6b 20 24 66 |frm $fry| $frk $f|
|00001180| 72 74 20 24 66 72 6e 20 | 40 73 70 63 0d 0a 64 75 |rt $frn |@spc..du|
|00001190| 70 7b 2f 24 66 72 6b 20 | 31 20 63 75 72 72 65 6e |p{/$frk |1 curren|
|000011a0| 74 67 72 61 79 20 73 75 | 62 20 64 65 66 7d 7b 2f |tgray su|b def}{/|
|000011b0| 24 66 72 6b 20 30 20 64 | 65 66 7d 69 66 65 6c 73 |$frk 0 d|ef}ifels|
|000011c0| 65 0d 0a 24 6f 20 24 74 | 6f 63 20 24 74 6f 6d 20 |e..$o $t|oc $tom |
|000011d0| 24 74 6f 79 20 24 74 6f | 6b 20 24 74 6f 74 20 24 |$toy $to|k $tot $|
|000011e0| 74 6f 6e 20 40 73 70 63 | 20 64 75 70 7b 2f 24 74 |ton @spc| dup{/$t|
|000011f0| 6f 6b 20 31 20 63 75 72 | 72 65 6e 74 67 72 61 79 |ok 1 cur|rentgray|
|00001200| 20 73 75 62 20 64 65 66 | 7d 0d 0a 7b 2f 24 74 6f | sub def|}..{/$to|
|00001210| 6b 20 30 20 64 65 66 7d | 69 66 65 6c 73 65 20 6f |k 0 def}|ifelse o|
|00001220| 72 20 64 75 70 7b 2f 24 | 63 20 30 20 64 65 66 2f |r dup{/$|c 0 def/|
|00001230| 24 6d 20 30 20 64 65 66 | 2f 24 79 20 30 20 64 65 |$m 0 def|/$y 0 de|
|00001240| 66 2f 24 6b 20 24 66 72 | 6b 20 64 65 66 0d 0a 2f |f/$k $fr|k def../|
|00001250| 24 64 63 20 30 20 64 65 | 66 2f 24 64 6d 20 30 20 |$dc 0 de|f/$dm 0 |
|00001260| 64 65 66 2f 24 64 79 20 | 30 20 64 65 66 2f 24 64 |def/$dy |0 def/$d|
|00001270| 6b 20 24 74 6f 6b 20 24 | 66 72 6b 20 73 75 62 20 |k $tok $|frk sub |
|00001280| 24 66 73 74 20 31 20 73 | 75 62 20 64 69 76 20 64 |$fst 1 s|ub div d|
|00001290| 65 66 7d 69 66 0d 0a 7d | 69 66 65 6c 73 65 7d 62 |ef}if..}|ifelse}b|
|000012a0| 64 2f 40 66 74 6c 7b 31 | 20 69 6e 64 65 78 20 34 |d/@ftl{1| index 4|
|000012b0| 20 69 6e 64 65 78 20 73 | 75 62 20 64 75 70 20 24 | index s|ub dup $|
|000012c0| 70 61 64 20 6d 75 6c 20 | 64 75 70 2f 24 70 64 77 |pad mul |dup/$pdw|
|000012d0| 20 78 64 0d 0a 32 20 6d | 75 6c 20 73 75 62 20 24 | xd..2 m|ul sub $|
|000012e0| 66 73 74 20 64 69 76 2f | 24 77 69 64 20 78 64 20 |fst div/|$wid xd |
|000012f0| 32 20 69 6e 64 65 78 20 | 73 75 62 2f 24 68 65 69 |2 index |sub/$hei|
|00001300| 20 78 64 0d 0a 70 6f 70 | 20 74 72 61 6e 73 6c 61 | xd..pop| transla|
|00001310| 74 65 20 24 63 20 24 6d | 20 24 79 20 24 6b 20 34 |te $c $m| $y $k 4|
|00001320| 20 63 6f 70 79 20 43 6f | 6c 6f 72 53 65 70 61 72 | copy Co|lorSepar|
|00001330| 61 74 69 6f 6e 4d 6f 64 | 65 20 30 20 6e 65 0d 0a |ationMod|e 0 ne..|
|00001340| 7b 31 20 65 78 63 68 20 | 73 75 62 20 73 65 74 67 |{1 exch |sub setg|
|00001350| 72 61 79 20 70 6f 70 20 | 70 6f 70 20 70 6f 70 7d |ray pop |pop pop}|
|00001360| 7b 73 65 74 63 6d 79 6b | 63 6f 6c 6f 72 7d 69 66 |{setcmyk|color}if|
|00001370| 65 6c 73 65 0d 0a 30 20 | 30 20 6d 6f 76 65 74 6f |else..0 |0 moveto|
|00001380| 20 30 20 24 68 65 69 20 | 6c 69 6e 65 74 6f 20 24 | 0 $hei |lineto $|
|00001390| 70 64 77 20 24 68 65 69 | 20 6c 69 6e 65 74 6f 20 |pdw $hei| lineto |
|000013a0| 24 70 64 77 20 30 20 6c | 69 6e 65 74 6f 20 30 20 |$pdw 0 l|ineto 0 |
|000013b0| 30 20 6c 69 6e 65 74 6f | 20 66 69 6c 6c 0d 0a 24 |0 lineto| fill..$|
|000013c0| 70 64 77 20 30 20 74 72 | 61 6e 73 6c 61 74 65 20 |pdw 0 tr|anslate |
|000013d0| 24 66 73 74 7b 34 20 63 | 6f 70 79 20 43 6f 6c 6f |$fst{4 c|opy Colo|
|000013e0| 72 53 65 70 61 72 61 74 | 69 6f 6e 4d 6f 64 65 20 |rSeparat|ionMode |
|000013f0| 30 20 6e 65 0d 0a 7b 31 | 20 65 78 63 68 20 73 75 |0 ne..{1| exch su|
|00001400| 62 20 73 65 74 67 72 61 | 79 20 70 6f 70 20 70 6f |b setgra|y pop po|
|00001410| 70 20 70 6f 70 7d 7b 73 | 65 74 63 6d 79 6b 63 6f |p pop}{s|etcmykco|
|00001420| 6c 6f 72 7d 69 66 65 6c | 73 65 0d 0a 30 20 30 20 |lor}ifel|se..0 0 |
|00001430| 6d 6f 76 65 74 6f 20 30 | 20 24 68 65 69 20 6c 69 |moveto 0| $hei li|
|00001440| 6e 65 74 6f 20 24 77 69 | 64 20 24 68 65 69 20 6c |neto $wi|d $hei l|
|00001450| 69 6e 65 74 6f 20 24 77 | 69 64 20 30 20 6c 69 6e |ineto $w|id 0 lin|
|00001460| 65 74 6f 20 30 20 30 20 | 6c 69 6e 65 74 6f 20 66 |eto 0 0 |lineto f|
|00001470| 69 6c 6c 0d 0a 24 77 69 | 64 20 30 20 74 72 61 6e |ill..$wi|d 0 tran|
|00001480| 73 6c 61 74 65 20 24 64 | 6b 20 61 64 64 20 34 20 |slate $d|k add 4 |
|00001490| 31 20 72 6f 6c 6c 20 24 | 64 79 20 61 64 64 20 34 |1 roll $|dy add 4|
|000014a0| 20 31 20 72 6f 6c 6c 0d | 0a 24 64 6d 20 61 64 64 | 1 roll.|.$dm add|
|000014b0| 20 34 20 31 20 72 6f 6c | 6c 20 24 64 63 20 61 64 | 4 1 rol|l $dc ad|
|000014c0| 64 20 34 20 31 20 72 6f | 6c 6c 7d 72 65 70 65 61 |d 4 1 ro|ll}repea|
|000014d0| 74 20 24 64 6b 20 73 75 | 62 20 34 20 31 20 72 6f |t $dk su|b 4 1 ro|
|000014e0| 6c 6c 0d 0a 24 64 79 20 | 73 75 62 20 34 20 31 20 |ll..$dy |sub 4 1 |
|000014f0| 72 6f 6c 6c 20 24 64 6d | 20 73 75 62 20 34 20 31 |roll $dm| sub 4 1|
|00001500| 20 72 6f 6c 6c 20 24 64 | 63 20 73 75 62 20 34 20 | roll $d|c sub 4 |
|00001510| 31 20 72 6f 6c 6c 0d 0a | 43 6f 6c 6f 72 53 65 70 |1 roll..|ColorSep|
|00001520| 61 72 61 74 69 6f 6e 4d | 6f 64 65 20 30 20 6e 65 |arationM|ode 0 ne|
|00001530| 7b 31 20 65 78 63 68 20 | 73 75 62 20 73 65 74 67 |{1 exch |sub setg|
|00001540| 72 61 79 20 70 6f 70 20 | 70 6f 70 20 70 6f 70 7d |ray pop |pop pop}|
|00001550| 0d 0a 7b 73 65 74 63 6d | 79 6b 63 6f 6c 6f 72 7d |..{setcm|ykcolor}|
|00001560| 69 66 65 6c 73 65 20 30 | 20 30 20 6d 6f 76 65 74 |ifelse 0| 0 movet|
|00001570| 6f 20 30 20 24 68 65 69 | 20 6c 69 6e 65 74 6f 20 |o 0 $hei| lineto |
|00001580| 24 70 64 77 20 24 68 65 | 69 20 6c 69 6e 65 74 6f |$pdw $he|i lineto|
|00001590| 20 24 70 64 77 20 30 20 | 6c 69 6e 65 74 6f 20 30 | $pdw 0 |lineto 0|
|000015a0| 20 30 20 6c 69 6e 65 74 | 6f 20 66 69 6c 6c 0d 0a | 0 linet|o fill..|
|000015b0| 7d 62 64 2f 40 66 74 72 | 7b 31 20 69 6e 64 65 78 |}bd/@ftr|{1 index|
|000015c0| 20 34 20 69 6e 64 65 78 | 20 73 75 62 20 64 75 70 | 4 index| sub dup|
|000015d0| 20 24 72 6f 78 20 6d 75 | 6c 2f 24 72 6f 77 20 78 | $rox mu|l/$row x|
|000015e0| 64 0d 0a 32 20 64 69 76 | 20 31 20 69 6e 64 65 78 |d..2 div| 1 index|
|000015f0| 20 34 20 69 6e 64 65 78 | 20 73 75 62 20 64 75 70 | 4 index| sub dup|
|00001600| 20 24 72 6f 79 20 6d 75 | 6c 2f 24 72 6f 68 20 78 | $roy mu|l/$roh x|
|00001610| 64 0d 0a 32 20 64 69 76 | 20 32 20 63 6f 70 79 20 |d..2 div| 2 copy |
|00001620| 64 75 70 20 6d 75 6c 20 | 65 78 63 68 20 64 75 70 |dup mul |exch dup|
|00001630| 20 6d 75 6c 20 61 64 64 | 20 73 71 72 74 0d 0a 24 | mul add| sqrt..$|
|00001640| 72 6f 77 20 64 75 70 20 | 6d 75 6c 20 24 72 6f 68 |row dup |mul $roh|
|00001650| 20 64 75 70 20 6d 75 6c | 20 61 64 64 20 73 71 72 | dup mul| add sqr|
|00001660| 74 20 61 64 64 20 64 75 | 70 2f 24 68 65 69 20 78 |t add du|p/$hei x|
|00001670| 64 20 24 66 73 74 20 64 | 69 76 2f 24 77 69 64 20 |d $fst d|iv/$wid |
|00001680| 78 64 0d 0a 34 20 69 6e | 64 65 78 20 61 64 64 20 |xd..4 in|dex add |
|00001690| 24 72 6f 68 20 61 64 64 | 20 65 78 63 68 20 35 20 |$roh add| exch 5 |
|000016a0| 69 6e 64 65 78 20 61 64 | 64 20 24 72 6f 77 20 61 |index ad|d $row a|
|000016b0| 64 64 0d 0a 65 78 63 68 | 20 74 72 61 6e 73 6c 61 |dd..exch| transla|
|000016c0| 74 65 20 70 6f 70 20 70 | 6f 70 20 70 6f 70 20 70 |te pop p|op pop p|
|000016d0| 6f 70 20 63 75 72 72 65 | 6e 74 66 6c 61 74 20 35 |op curre|ntflat 5|
|000016e0| 20 6d 75 6c 20 73 65 74 | 66 6c 61 74 0d 0a 24 63 | mul set|flat..$c|
|000016f0| 20 24 6d 20 24 79 20 24 | 6b 20 34 20 63 6f 70 79 | $m $y $|k 4 copy|
|00001700| 20 43 6f 6c 6f 72 53 65 | 70 61 72 61 74 69 6f 6e | ColorSe|paration|
|00001710| 4d 6f 64 65 20 30 20 6e | 65 0d 0a 7b 31 20 65 78 |Mode 0 n|e..{1 ex|
|00001720| 63 68 20 73 75 62 20 73 | 65 74 67 72 61 79 20 70 |ch sub s|etgray p|
|00001730| 6f 70 20 70 6f 70 20 70 | 6f 70 7d 7b 73 65 74 63 |op pop p|op}{setc|
|00001740| 6d 79 6b 63 6f 6c 6f 72 | 7d 69 66 65 6c 73 65 0d |mykcolor|}ifelse.|
|00001750| 0a 24 77 69 64 20 30 20 | 6d 6f 76 65 74 6f 20 30 |.$wid 0 |moveto 0|
|00001760| 20 30 20 24 68 65 69 20 | 30 20 33 36 30 20 61 72 | 0 $hei |0 360 ar|
|00001770| 63 20 66 69 6c 6c 20 31 | 2e 30 20 24 70 61 64 20 |c fill 1|.0 $pad |
|00001780| 32 20 6d 75 6c 20 73 75 | 62 20 64 75 70 20 73 63 |2 mul su|b dup sc|
|00001790| 61 6c 65 0d 0a 24 66 73 | 74 7b 34 20 63 6f 70 79 |ale..$fs|t{4 copy|
|000017a0| 20 43 6f 6c 6f 72 53 65 | 70 61 72 61 74 69 6f 6e | ColorSe|paration|
|000017b0| 4d 6f 64 65 20 30 20 6e | 65 7b 31 20 65 78 63 68 |Mode 0 n|e{1 exch|
|000017c0| 20 73 75 62 20 73 65 74 | 67 72 61 79 20 70 6f 70 | sub set|gray pop|
|000017d0| 20 70 6f 70 20 70 6f 70 | 7d 0d 0a 7b 73 65 74 63 | pop pop|}..{setc|
|000017e0| 6d 79 6b 63 6f 6c 6f 72 | 7d 69 66 65 6c 73 65 20 |mykcolor|}ifelse |
|000017f0| 24 77 69 64 20 30 20 6d | 6f 76 65 74 6f 20 30 20 |$wid 0 m|oveto 0 |
|00001800| 7d 26 38 0e 00 35 2b 15 | e8 e0 26 0f ef 70 ab 65 |}&8..5+.|..&..p.e|
|00001810| 41 c2 04 c7 fa fa 07 ba | 52 06 83 b9 f8 94 bb 6b |A.......|R......k|
|00001820| e9 14 74 ea c0 37 b2 c6 | 45 83 fd ec 39 c5 d3 c9 |..t..7..|E...9...|
|00001830| 05 90 d5 99 d4 dd 56 d7 | 1b 44 e2 37 86 12 f1 1e |......V.|.D.7....|
|00001840| 24 64 79 20 61 64 64 20 | 34 20 31 20 72 6f 6c 6c |$dy add |4 1 roll|
|00001850| 0d 0a 24 64 6d 20 61 64 | 64 20 34 20 31 20 72 6f |..$dm ad|d 4 1 ro|
|00001860| 6c 6c 20 24 64 63 20 61 | 64 64 20 34 20 31 20 72 |ll $dc a|dd 4 1 r|
|00001870| 6f 6c 6c 7d 72 65 70 65 | 61 74 20 70 6f 70 20 70 |oll}repe|at pop p|
|00001880| 6f 70 20 70 6f 70 20 70 | 6f 70 7d 62 64 0d 0a 2f |op pop p|op}bd../|
|00001890| 40 66 66 7b 40 67 73 20 | 40 64 6c 74 7b 24 63 74 |@ff{@gs |@dlt{$ct|
|000018a0| 6d 20 73 65 74 6d 61 74 | 72 69 78 20 65 6f 63 6c |m setmat|rix eocl|
|000018b0| 69 70 20 6e 65 77 70 61 | 74 68 20 42 62 6c 6c 78 |ip newpa|th Bbllx|
|000018c0| 20 42 62 6c 6c 79 20 6d | 6f 76 65 74 6f 0d 0a 42 | Bblly m|oveto..B|
|000018d0| 62 6c 6c 78 20 42 62 75 | 72 79 20 6c 69 6e 65 74 |bllx Bbu|ry linet|
|000018e0| 6f 20 42 62 75 72 78 20 | 42 62 75 72 79 20 6c 69 |o Bburx |Bbury li|
|000018f0| 6e 65 74 6f 20 42 62 75 | 72 78 20 42 62 6c 6c 79 |neto Bbu|rx Bblly|
|00001900| 20 6c 69 6e 65 74 6f 0d | 0a 24 66 61 6e 20 72 6f | lineto.|.$fan ro|
|00001910| 74 61 74 65 20 70 61 74 | 68 62 62 6f 78 20 6e 65 |tate pat|hbbox ne|
|00001920| 77 70 61 74 68 20 24 66 | 74 79 20 31 20 65 71 7b |wpath $f|ty 1 eq{|
|00001930| 40 66 74 72 7d 7b 40 66 | 74 6c 7d 69 66 65 6c 73 |@ftr}{@f|tl}ifels|
|00001940| 65 7d 69 66 0d 0a 40 67 | 72 20 40 6e 70 7d 62 64 |e}if..@g|r @np}bd|
|00001950| 2f 40 50 66 7b 40 73 76 | 20 24 63 74 6d 20 73 65 |/@Pf{@sv| $ctm se|
|00001960| 74 6d 61 74 72 69 78 20 | 37 32 20 31 30 30 30 20 |tmatrix |72 1000 |
|00001970| 64 69 76 20 64 75 70 20 | 6d 61 74 72 69 78 20 73 |div dup |matrix s|
|00001980| 63 61 6c 65 0d 0a 64 75 | 70 20 63 6f 6e 63 61 74 |cale..du|p concat|
|00001990| 20 64 75 70 20 42 62 75 | 72 78 20 65 78 63 68 20 | dup Bbu|rx exch |
|000019a0| 42 62 75 72 79 20 65 78 | 63 68 20 69 74 72 61 6e |Bbury ex|ch itran|
|000019b0| 73 66 6f 72 6d 0d 0a 63 | 65 69 6c 69 6e 67 20 63 |sform..c|eiling c|
|000019c0| 76 69 2f 42 62 75 72 79 | 20 78 64 20 63 65 69 6c |vi/Bbury| xd ceil|
|000019d0| 69 6e 67 20 63 76 69 2f | 42 62 75 72 78 20 78 64 |ing cvi/|Bburx xd|
|000019e0| 20 42 62 6c 6c 78 20 65 | 78 63 68 20 42 62 6c 6c | Bbllx e|xch Bbll|
|000019f0| 79 20 65 78 63 68 20 69 | 74 72 61 6e 73 66 6f 72 |y exch i|transfor|
|00001a00| 6d 0d 0a 66 6c 6f 6f 72 | 20 63 76 69 2f 42 62 6c |m..floor| cvi/Bbl|
|00001a10| 6c 79 20 78 64 20 66 6c | 6f 6f 72 20 63 76 69 2f |ly xd fl|oor cvi/|
|00001a20| 42 62 6c 6c 78 20 78 64 | 20 24 50 72 6d 20 61 6c |Bbllx xd| $Prm al|
|00001a30| 6f 61 64 20 70 6f 70 0d | 0a 24 50 73 6e 20 6c 6f |oad pop.|.$Psn lo|
|00001a40| 61 64 20 65 78 65 63 20 | 40 72 73 20 40 6e 70 7d |ad exec |@rs @np}|
|00001a50| 62 64 2f 40 66 74 78 7b | 7b 28 30 29 20 64 75 70 |bd/@ftx{|{(0) dup|
|00001a60| 20 33 20 2d 31 20 72 6f | 6c 6c 20 30 20 65 78 63 | 3 -1 ro|ll 0 exc|
|00001a70| 68 20 70 75 74 0d 0a 40 | 67 73 20 74 72 75 65 20 |h put..@|gs true |
|00001a80| 63 68 61 72 70 61 74 68 | 20 63 75 72 72 65 6e 74 |charpath| current|
|00001a90| 70 6f 69 6e 74 20 24 63 | 74 6d 20 73 65 74 6d 61 |point $c|tm setma|
|00001aa0| 74 72 69 78 0d 0a 40 40 | 74 78 74 20 40 67 72 20 |trix..@@|txt @gr |
|00001ab0| 40 6e 70 20 6d 6f 76 65 | 74 6f 20 24 74 72 20 30 |@np move|to $tr 0|
|00001ac0| 20 72 6d 6f 76 65 74 6f | 7d 66 6f 72 61 6c 6c 20 | rmoveto|}forall |
|00001ad0| 70 6f 70 7d 62 64 0d 0a | 2f 40 73 6d 7b 2f 24 63 |pop}bd..|/@sm{/$c|
|00001ae0| 74 6d 20 24 63 74 6d 20 | 63 75 72 72 65 6e 74 6d |tm $ctm |currentm|
|00001af0| 61 74 72 69 78 20 64 65 | 66 7d 62 64 2f 40 6c 6f |atrix de|f}bd/@lo|
|00001b00| 72 67 7b 24 6c 78 20 24 | 6c 79 20 6d 6f 76 65 74 |rg{$lx $|ly movet|
|00001b10| 6f 0d 0a 2f 24 6c 79 20 | 24 6c 79 20 24 6c 65 20 |o../$ly |$ly $le |
|00001b20| 73 75 62 20 64 65 66 7d | 62 64 2f 40 66 74 7b 6d |sub def}|bd/@ft{m|
|00001b30| 61 74 72 69 78 20 63 75 | 72 72 65 6e 74 6d 61 74 |atrix cu|rrentmat|
|00001b40| 72 69 78 20 33 20 31 20 | 72 6f 6c 6c 0d 0a 24 73 |rix 3 1 |roll..$s|
|00001b50| 64 66 7b 24 73 63 66 20 | 24 73 63 61 20 24 73 63 |df{$scf |$sca $sc|
|00001b60| 70 20 40 73 73 7d 69 66 | 20 24 66 69 6c 20 31 20 |p @ss}if| $fil 1 |
|00001b70| 65 71 7b 2f 40 40 74 78 | 74 2f 40 70 66 20 6c 64 |eq{/@@tx|t/@pf ld|
|00001b80| 20 40 66 74 78 7d 7b 24 | 66 69 6c 20 32 20 65 71 | @ftx}{$|fil 2 eq|
|00001b90| 0d 0a 7b 2f 40 40 74 78 | 74 2f 40 66 66 20 6c 64 |..{/@@tx|t/@ff ld|
|00001ba0| 20 40 66 74 78 7d 7b 24 | 66 69 6c 20 33 20 65 71 | @ftx}{$|fil 3 eq|
|00001bb0| 7b 2f 40 40 74 78 74 2f | 40 50 66 20 6c 64 20 40 |{/@@txt/|@Pf ld @|
|00001bc0| 66 74 78 7d 7b 40 73 63 | 63 0d 0a 7b 64 75 70 20 |ftx}{@sc|c..{dup |
|00001bd0| 24 74 72 20 65 78 63 68 | 20 30 20 65 78 63 68 20 |$tr exch| 0 exch |
|00001be0| 61 73 68 6f 77 7d 69 66 | 20 70 6f 70 20 70 6f 70 |ashow}if| pop pop|
|00001bf0| 7d 69 66 65 6c 73 65 7d | 69 66 65 6c 73 65 7d 69 |}ifelse}|ifelse}i|
|00001c00| 66 65 6c 73 65 0d 0a 24 | 73 64 66 7b 24 64 73 66 |felse..$|sdf{$dsf|
|00001c10| 20 24 64 73 61 20 24 64 | 73 70 20 40 73 73 7d 69 | $dsa $d|sp @ss}i|
|00001c20| 66 20 73 65 74 6d 61 74 | 72 69 78 7d 62 64 2f 40 |f setmat|rix}bd/@|
|00001c30| 73 74 7b 0d 0a 6d 61 74 | 72 69 78 20 63 75 72 72 |st{..mat|rix curr|
|00001c40| 65 6e 74 6d 61 74 72 69 | 78 20 33 20 31 20 72 6f |entmatri|x 3 1 ro|
|00001c50| 6c 6c 20 24 53 44 46 7b | 24 53 43 46 20 24 53 43 |ll $SDF{|$SCF $SC|
|00001c60| 41 20 24 53 43 50 20 40 | 73 73 7d 69 66 0d 0a 40 |A $SCP @|ss}if..@|
|00001c70| 53 43 43 7b 7b 28 30 29 | 20 64 75 70 20 33 20 2d |SCC{{(0)| dup 3 -|
|00001c80| 31 20 72 6f 6c 6c 20 30 | 20 65 78 63 68 20 70 75 |1 roll 0| exch pu|
|00001c90| 74 20 40 67 73 20 74 72 | 75 65 20 63 68 61 72 70 |t @gs tr|ue charp|
|00001ca0| 61 74 68 20 63 75 72 72 | 65 6e 74 70 6f 69 6e 74 |ath curr|entpoint|
|00001cb0| 0d 0a 24 63 74 6d 20 73 | 65 74 6d 61 74 72 69 78 |..$ctm s|etmatrix|
|00001cc0| 20 24 70 74 6d 20 63 6f | 6e 63 61 74 20 73 74 72 | $ptm co|ncat str|
|00001cd0| 6f 6b 65 20 40 67 72 20 | 6d 6f 76 65 74 6f 20 24 |oke @gr |moveto $|
|00001ce0| 74 72 20 30 20 72 6d 6f | 76 65 74 6f 7d 66 6f 72 |tr 0 rmo|veto}for|
|00001cf0| 61 6c 6c 0d 0a 70 6f 70 | 7d 7b 70 6f 70 20 70 6f |all..pop|}{pop po|
|00001d00| 70 7d 69 66 65 6c 73 65 | 20 24 53 44 46 7b 24 64 |p}ifelse| $SDF{$d|
|00001d10| 73 66 20 24 64 73 61 20 | 24 64 73 70 20 40 73 73 |sf $dsa |$dsp @ss|
|00001d20| 7d 69 66 0d 0a 73 65 74 | 6d 61 74 72 69 78 7d 62 |}if..set|matrix}b|
|00001d30| 64 2f 40 70 74 7b 64 75 | 70 20 6c 65 6e 67 74 68 |d/@pt{du|p length|
|00001d40| 20 65 78 63 68 7d 62 64 | 2f 40 74 65 7b 40 70 74 | exch}bd|/@te{@pt|
|00001d50| 0d 0a 40 6c 6f 72 67 20 | 40 66 74 20 63 6c 65 61 |..@lorg |@ft clea|
|00001d60| 72 74 6f 6d 61 72 6b 20 | 5b 7d 62 64 2f 40 74 72 |rtomark |[}bd/@tr|
|00001d70| 7b 40 70 74 20 40 6c 6f | 72 67 20 40 73 74 20 63 |{@pt @lo|rg @st c|
|00001d80| 6c 65 61 72 74 6f 6d 61 | 72 6b 20 5b 7d 62 64 0d |leartoma|rk [}bd.|
|00001d90| 0a 2f 40 74 61 7b 40 70 | 74 20 40 6c 6f 72 67 20 |./@ta{@p|t @lorg |
|00001da0| 32 20 63 6f 70 79 20 40 | 67 73 20 40 66 74 20 40 |2 copy @|gs @ft @|
|00001db0| 67 72 20 40 73 74 20 63 | 6c 65 61 72 74 6f 6d 61 |gr @st c|leartoma|
|00001dc0| 72 6b 20 5b 7d 62 64 0d | 0a 2f 40 74 40 61 7b 40 |rk [}bd.|./@t@a{@|
|00001dd0| 70 74 20 40 6c 6f 72 67 | 20 32 20 63 6f 70 79 20 |pt @lorg| 2 copy |
|00001de0| 40 67 73 20 40 73 74 20 | 40 67 72 20 40 66 74 20 |@gs @st |@gr @ft |
|00001df0| 63 6c 65 61 72 74 6f 6d | 61 72 6b 20 5b 7d 62 64 |cleartom|ark [}bd|
|00001e00| 0d 0a 2f 67 7b 31 20 65 | 78 63 68 20 73 75 62 2f |../g{1 e|xch sub/|
|00001e10| 24 6b 20 78 64 2f 24 63 | 20 30 20 64 65 66 2f 24 |$k xd/$c| 0 def/$|
|00001e20| 6d 20 30 20 64 65 66 2f | 24 79 20 30 20 64 65 66 |m 0 def/|$y 0 def|
|00001e30| 2f 24 74 20 31 20 64 65 | 66 2f 24 6e 20 5f 20 64 |/$t 1 de|f/$n _ d|
|00001e40| 65 66 2f 24 66 69 6c 20 | 30 20 64 65 66 0d 0a 7d |ef/$fil |0 def..}|
|00001e50| 62 64 2f 47 7b 31 20 65 | 78 63 68 20 73 75 62 2f |bd/G{1 e|xch sub/|
|00001e60| 24 4b 20 78 64 2f 24 43 | 20 30 20 64 65 66 2f 24 |$K xd/$C| 0 def/$|
|00001e70| 4d 20 30 20 64 65 66 2f | 24 59 20 30 20 64 65 66 |M 0 def/|$Y 0 def|
|00001e80| 2f 24 54 20 31 20 64 65 | 66 2f 24 4e 20 5f 20 64 |/$T 1 de|f/$N _ d|
|00001e90| 65 66 7d 62 64 0d 0a 2f | 6b 7b 2f 24 6b 20 78 64 |ef}bd../|k{/$k xd|
|00001ea0| 2f 24 79 20 78 64 2f 24 | 6d 20 78 64 2f 24 63 20 |/$y xd/$|m xd/$c |
|00001eb0| 78 64 2f 24 74 20 31 20 | 64 65 66 2f 24 6e 20 5f |xd/$t 1 |def/$n _|
|00001ec0| 20 64 65 66 2f 24 66 69 | 6c 20 30 20 64 65 66 7d | def/$fi|l 0 def}|
|00001ed0| 62 64 0d 0a 2f 4b 7b 2f | 24 4b 20 78 64 2f 24 59 |bd../K{/|$K xd/$Y|
|00001ee0| 20 78 64 2f 24 4d 20 78 | 64 2f 24 43 20 78 64 2f | xd/$M x|d/$C xd/|
|00001ef0| 24 54 20 31 20 64 65 66 | 2f 24 4e 20 5f 20 64 65 |$T 1 def|/$N _ de|
|00001f00| 66 7d 62 64 0d 0a 2f 78 | 7b 31 20 65 78 63 68 20 |f}bd../x|{1 exch |
|00001f10| 73 75 62 2f 24 74 20 78 | 64 2f 24 6e 20 78 64 2f |sub/$t x|d/$n xd/|
|00001f20| 24 6b 20 78 64 2f 24 79 | 20 78 64 2f 24 6d 20 78 |$k xd/$y| xd/$m x|
|00001f30| 64 2f 24 63 20 78 64 2f | 24 66 69 6c 20 30 20 64 |d/$c xd/|$fil 0 d|
|00001f40| 65 66 7d 62 64 0d 0a 2f | 58 7b 31 20 65 78 63 68 |ef}bd../|X{1 exch|
|00001f50| 20 73 75 62 2f 24 54 20 | 78 64 2f 24 4e 20 78 64 | sub/$T |xd/$N xd|
|00001f60| 2f 24 4b 20 78 64 2f 24 | 59 20 78 64 2f 24 4d 20 |/$K xd/$|Y xd/$M |
|00001f70| 78 64 2f 24 43 20 78 64 | 7d 62 64 0d 0a 2f 64 2f |xd/$C xd|}bd../d/|
|00001f80| 73 65 74 64 61 73 68 20 | 6c 64 2f 69 7b 64 75 70 |setdash |ld/i{dup|
|00001f90| 20 30 20 6e 65 7b 73 65 | 74 66 6c 61 74 7d 7b 70 | 0 ne{se|tflat}{p|
|00001fa0| 6f 70 7d 69 66 65 6c 73 | 65 7d 62 64 0d 0a 2f 6a |op}ifels|e}bd../j|
|00001fb0| 2f 73 65 74 6c 69 6e 65 | 6a 6f 69 6e 20 6c 64 2f |/setline|join ld/|
|00001fc0| 4a 2f 73 65 74 6c 69 6e | 65 63 61 70 20 6c 64 2f |J/setlin|ecap ld/|
|00001fd0| 4d 2f 73 65 74 6d 69 74 | 65 72 6c 69 6d 69 74 20 |M/setmit|erlimit |
|00001fe0| 6c 64 0d 0a 2f 77 2f 73 | 65 74 6c 69 6e 65 77 69 |ld../w/s|etlinewi|
|00001ff0| 64 74 68 20 6c 64 2f 4f | 7b 2f 24 6f 20 78 64 7d |dth ld/O|{/$o xd}|
|00002000| 0e bf 35 b4 72 1c ac 5e | 52 ea c4 ec 3d fe d7 e2 |..5.r..^|R...=...|
|00002010| fb ac 6f ba 0a 4f e4 51 | a5 66 f9 ad d3 8b 2a 8d |..o..O.Q|.f....*.|
|00002020| 49 0a 8e 1e e1 dc b5 3e | 51 3e 80 a9 0a d8 8b df |I......>|Q>......|
|00002030| 69 fe 7a a7 39 2c 39 ae | c3 d5 ed ad 5b 11 06 20 |i.z.9,9.|....[.. |
|00002040| 6c 20 63 75 72 76 65 74 | 6f 7d 62 64 0d 0a 2f 56 |l curvet|o}bd../V|
|00002050| 2f 76 20 6c 64 2f 79 7b | 32 20 63 6f 70 79 20 63 |/v ld/y{|2 copy c|
|00002060| 75 72 76 65 74 6f 7d 62 | 64 2f 59 2f 79 20 6c 64 |urveto}b|d/Y/y ld|
|00002070| 2f 6c 2f 6c 69 6e 65 74 | 6f 20 6c 64 0d 0a 2f 4c |/l/linet|o ld../L|
|00002080| 2f 6c 20 6c 64 2f 6d 2f | 6d 6f 76 65 74 6f 20 6c |/l ld/m/|moveto l|
|00002090| 64 2f 6e 2f 6e 65 77 70 | 61 74 68 20 6c 64 2f 4e |d/n/newp|ath ld/N|
|000020a0| 2f 6e 65 77 70 61 74 68 | 20 6c 64 0d 0a 2f 46 7b |/newpath| ld../F{|
|000020b0| 6d 61 74 72 69 78 20 63 | 75 72 72 65 6e 74 6d 61 |matrix c|urrentma|
|000020c0| 74 72 69 78 20 24 73 64 | 66 7b 24 73 63 66 20 24 |trix $sd|f{$scf $|
|000020d0| 73 63 61 20 24 73 63 70 | 20 40 73 73 7d 69 66 0d |sca $scp| @ss}if.|
|000020e0| 0a 24 66 69 6c 20 31 20 | 65 71 7b 40 70 66 7d 7b |.$fil 1 |eq{@pf}{|
|000020f0| 24 66 69 6c 20 32 20 65 | 71 7b 40 66 66 7d 7b 24 |$fil 2 e|q{@ff}{$|
|00002100| 66 69 6c 20 33 20 65 71 | 7b 40 50 66 7d 7b 40 73 |fil 3 eq|{@Pf}{@s|
|00002110| 63 63 7b 65 6f 66 69 6c | 6c 7d 7b 40 6e 70 7d 69 |cc{eofil|l}{@np}i|
|00002120| 66 65 6c 73 65 0d 0a 7d | 69 66 65 6c 73 65 7d 69 |felse..}|ifelse}i|
|00002130| 66 65 6c 73 65 7d 69 66 | 65 6c 73 65 20 24 73 64 |felse}if|else $sd|
|00002140| 66 7b 24 64 73 66 20 24 | 64 73 61 20 24 64 73 70 |f{$dsf $|dsa $dsp|
|00002150| 20 40 73 73 7d 69 66 0d | 0a 73 65 74 6d 61 74 72 | @ss}if.|.setmatr|
|00002160| 69 78 7d 62 64 2f 66 7b | 40 63 70 20 46 7d 62 64 |ix}bd/f{|@cp F}bd|
|00002170| 2f 53 7b 6d 61 74 72 69 | 78 20 63 75 72 72 65 6e |/S{matri|x curren|
|00002180| 74 6d 61 74 72 69 78 0d | 0a 24 63 74 6d 20 73 65 |tmatrix.|.$ctm se|
|00002190| 74 6d 61 74 72 69 78 20 | 24 53 44 46 7b 24 53 43 |tmatrix |$SDF{$SC|
|000021a0| 46 20 24 53 43 41 20 24 | 53 43 50 20 40 73 73 7d |F $SCA $|SCP @ss}|
|000021b0| 69 66 20 40 53 43 43 7b | 24 73 6b 6d 20 63 75 72 |if @SCC{|$skm cur|
|000021c0| 72 65 6e 74 6d 61 74 72 | 69 78 0d 0a 24 70 74 6d |rentmatr|ix..$ptm|
|000021d0| 20 63 6f 6e 63 61 74 20 | 73 74 72 6f 6b 65 20 73 | concat |stroke s|
|000021e0| 65 74 6d 61 74 72 69 78 | 7d 7b 40 6e 70 7d 69 66 |etmatrix|}{@np}if|
|000021f0| 65 6c 73 65 20 24 53 44 | 46 7b 24 64 73 66 20 24 |else $SD|F{$dsf $|
|00002200| 64 73 61 20 24 64 73 70 | 20 40 73 73 7d 69 66 0d |dsa $dsp| @ss}if.|
|00002210| 0a 73 65 74 6d 61 74 72 | 69 78 7d 62 64 2f 73 7b |.setmatr|ix}bd/s{|
|00002220| 40 63 70 20 53 7d 62 64 | 2f 42 7b 40 67 73 20 46 |@cp S}bd|/B{@gs F|
|00002230| 20 40 67 72 20 53 7d 62 | 64 2f 62 7b 40 63 70 20 | @gr S}b|d/b{@cp |
|00002240| 42 7d 62 64 0d 0a 2f 57 | 7b 65 6f 63 6c 69 70 7d |B}bd../W|{eoclip}|
|00002250| 62 64 2f 70 7b 2f 24 70 | 6d 20 78 64 20 37 7b 70 |bd/p{/$p|m xd 7{p|
|00002260| 6f 70 7d 72 65 70 65 61 | 74 2f 24 70 79 66 20 78 |op}repea|t/$pyf x|
|00002270| 64 2f 24 70 78 66 20 78 | 64 0d 0a 2f 24 70 6e 20 |d/$pxf x|d../$pn |
|00002280| 78 64 2f 24 66 69 6c 20 | 31 20 64 65 66 7d 62 64 |xd/$fil |1 def}bd|
|00002290| 2f 50 7b 31 31 7b 70 6f | 70 7d 72 65 70 65 61 74 |/P{11{po|p}repeat|
|000022a0| 7d 62 64 2f 7a 7b 2f 24 | 61 6c 20 78 64 0d 0a 2f |}bd/z{/$|al xd../|
|000022b0| 24 74 72 20 78 64 2f 24 | 6c 65 20 78 64 20 65 78 |$tr xd/$|le xd ex|
|000022c0| 63 68 20 66 69 6e 64 66 | 6f 6e 74 20 65 78 63 68 |ch findf|ont exch|
|000022d0| 20 73 63 61 6c 65 66 6f | 6e 74 20 73 65 74 66 6f | scalefo|nt setfo|
|000022e0| 6e 74 7d 62 64 0d 0a 2f | 5a 7b 64 75 70 20 74 79 |nt}bd../|Z{dup ty|
|000022f0| 70 65 20 30 20 74 79 70 | 65 20 65 71 7b 2f 24 62 |pe 0 typ|e eq{/$b|
|00002300| 44 69 72 20 78 64 7d 69 | 66 20 66 69 6e 64 66 6f |Dir xd}i|f findfo|
|00002310| 6e 74 0d 0a 64 75 70 20 | 6d 61 78 6c 65 6e 67 74 |nt..dup |maxlengt|
|00002320| 68 20 31 20 61 64 64 20 | 64 69 63 74 20 65 78 63 |h 1 add |dict exc|
|00002330| 68 20 64 75 70 7b 31 20 | 69 6e 64 65 78 2f 46 49 |h dup{1 |index/FI|
|00002340| 44 20 6e 65 7b 33 20 69 | 6e 64 65 78 0d 0a 33 20 |D ne{3 i|ndex..3 |
|00002350| 31 20 72 6f 6c 6c 20 70 | 75 74 7d 7b 70 6f 70 20 |1 roll p|ut}{pop |
|00002360| 70 6f 70 7d 69 66 65 6c | 73 65 7d 66 6f 72 61 6c |pop}ifel|se}foral|
|00002370| 6c 20 70 6f 70 20 64 75 | 70 20 64 75 70 2f 45 6e |l pop du|p dup/En|
|00002380| 63 6f 64 69 6e 67 20 67 | 65 74 0d 0a 32 35 36 20 |coding g|et..256 |
|00002390| 61 72 72 61 79 20 63 6f | 70 79 20 64 75 70 2f 24 |array co|py dup/$|
|000023a0| 66 65 20 78 64 2f 45 6e | 63 6f 64 69 6e 67 20 65 |fe xd/En|coding e|
|000023b0| 78 63 68 20 70 75 74 0d | 0a 64 75 70 2f 46 6f 6e |xch put.|.dup/Fon|
|000023c0| 74 6e 61 6d 65 20 33 20 | 69 6e 64 65 78 20 70 75 |tname 3 |index pu|
|000023d0| 74 20 33 20 2d 31 20 72 | 6f 6c 6c 20 64 75 70 20 |t 3 -1 r|oll dup |
|000023e0| 6c 65 6e 67 74 68 20 30 | 20 6e 65 7b 30 20 65 78 |length 0| ne{0 ex|
|000023f0| 63 68 7b 0d 0a 64 75 70 | 20 74 79 70 65 20 30 20 |ch{..dup| type 0 |
|00002400| 74 79 70 65 20 65 71 7b | 65 78 63 68 20 70 6f 70 |type eq{|exch pop|
|00002410| 7d 7b 24 66 65 20 65 78 | 63 68 20 32 20 69 6e 64 |}{$fe ex|ch 2 ind|
|00002420| 65 78 20 65 78 63 68 20 | 70 75 74 0d 0a 31 20 61 |ex exch |put..1 a|
|00002430| 64 64 7d 69 66 65 6c 73 | 65 7d 66 6f 72 61 6c 6c |dd}ifels|e}forall|
|00002440| 20 70 6f 70 7d 69 66 20 | 64 65 66 69 6e 65 66 6f | pop}if |definefo|
|00002450| 6e 74 20 70 6f 70 7d 62 | 64 0d 0a 2f 65 7b 40 73 |nt pop}b|d../e{@s|
|00002460| 6d 20 63 6f 6e 63 61 74 | 20 5b 2f 74 7b 40 74 65 |m concat| [/t{@te|
|00002470| 7d 64 65 66 7d 62 64 2f | 72 7b 40 73 6d 20 63 6f |}def}bd/|r{@sm co|
|00002480| 6e 63 61 74 20 5b 2f 74 | 7b 40 74 72 7d 64 65 66 |ncat [/t|{@tr}def|
|00002490| 7d 62 64 0d 0a 2f 6f 7b | 40 73 6d 20 63 6f 6e 63 |}bd../o{|@sm conc|
|000024a0| 61 74 20 5b 2f 74 7b 70 | 6f 70 7d 64 65 66 7d 62 |at [/t{p|op}def}b|
|000024b0| 64 2f 61 7b 40 73 6d 20 | 63 6f 6e 63 61 74 20 5b |d/a{@sm |concat [|
|000024c0| 2f 74 7b 40 74 61 7d 64 | 65 66 7d 62 64 0d 0a 2f |/t{@ta}d|ef}bd../|
|000024d0| 74 7b 40 74 65 7d 64 65 | 66 2f 54 7b 63 6c 65 61 |t{@te}de|f/T{clea|
|000024e0| 72 74 6f 6d 61 72 6b 20 | 40 6e 70 2f 24 6c 78 20 |rtomark |@np/$lx |
|000024f0| 30 20 64 65 66 2f 24 6c | 79 20 30 20 64 65 66 0d |0 def/$l|y 0 def.|
|00002500| 0a 24 63 74 6d 20 73 65 | 74 6d 61 74 72 69 78 2f |.$ctm se|tmatrix/|
|00002510| 24 74 74 6d 20 6d 61 74 | 72 69 78 20 64 65 66 7d |$ttm mat|rix def}|
|00002520| 62 64 2f 75 7b 7d 62 64 | 2f 55 7b 7d 62 64 0d 0a |bd/u{}bd|/U{}bd..|
|00002530| 2f 41 7b 70 6f 70 7d 62 | 64 2f 48 7b 2f 24 68 20 |/A{pop}b|d/H{/$h |
|00002540| 74 72 75 65 20 64 65 66 | 7d 62 64 2f 68 7b 40 63 |true def|}bd/h{@c|
|00002550| 70 20 48 7d 62 64 2f 71 | 2f 40 67 73 20 6c 64 0d |p H}bd/q|/@gs ld.|
|00002560| 0a 2f 51 2f 40 67 72 20 | 6c 64 2f 45 7b 35 20 61 |./Q/@gr |ld/E{5 a|
|00002570| 72 72 61 79 20 61 73 74 | 6f 72 65 20 65 78 63 68 |rray ast|ore exch|
|00002580| 20 63 76 6c 69 74 20 65 | 78 63 68 20 64 65 66 7d | cvlit e|xch def}|
|00002590| 62 64 0d 0a 2f 60 7b 7d | 62 64 2f 7e 7b 7d 62 64 |bd../`{}|bd/~{}bd|
|000025a0| 2f 40 7b 7d 62 64 2f 26 | 7b 7d 62 64 2f 43 6f 72 |/@{}bd/&|{}bd/Cor|
|000025b0| 65 6c 44 72 61 77 52 65 | 6e 63 6f 64 65 56 65 63 |elDrawRe|ncodeVec|
|000025c0| 74 20 5b 0d 0a 31 36 23 | 38 30 2f 67 72 61 76 65 |t [..16#|80/grave|
|000025d0| 2f 63 69 72 63 75 6d 66 | 6c 65 78 2f 74 69 6c 64 |/circumf|lex/tild|
|000025e0| 65 2f 64 6f 74 6c 65 73 | 73 69 2f 66 6c 6f 72 69 |e/dotles|si/flori|
|000025f0| 6e 2f 71 75 6f 74 65 64 | 62 6c 6c 65 66 74 2f 71 |n/quoted|blleft/q|
|00002600| 75 6f 74 65 64 62 6c 72 | 69 67 68 74 2f 67 75 69 |uotedblr|ight/gui|
|00002610| 6c 73 69 6e 67 6c 6c 65 | 66 74 0d 0a 31 36 23 38 |lsinglle|ft..16#8|
|00002620| 38 2f 67 75 69 6c 73 69 | 6e 67 6c 72 69 67 68 74 |8/guilsi|nglright|
|00002630| 2f 66 69 2f 66 6c 2f 64 | 61 67 67 65 72 2f 64 61 |/fi/fl/d|agger/da|
|00002640| 67 67 65 72 64 62 6c 2f | 65 6e 64 61 73 68 2f 70 |ggerdbl/|endash/p|
|00002650| 65 72 69 6f 64 63 65 6e | 74 65 72 65 64 2f 62 72 |eriodcen|tered/br|
|00002660| 65 76 65 0d 0a 31 36 23 | 39 30 2f 71 75 6f 74 65 |eve..16#|90/quote|
|00002670| 64 62 6c 62 61 73 65 2f | 65 6c 6c 69 70 73 69 73 |dblbase/|ellipsis|
|00002680| 2f 70 65 72 74 68 6f 75 | 73 61 6e 64 2f 74 72 61 |/perthou|sand/tra|
|00002690| 64 65 6d 61 72 6b 2f 50 | 74 2f 66 72 61 63 74 69 |demark/P|t/fracti|
|000026a0| 6f 6e 62 61 72 0d 0a 31 | 36 23 39 38 2f 64 69 76 |onbar..1|6#98/div|
|000026b0| 69 64 65 20 31 36 23 61 | 31 2f 65 78 63 6c 61 6d |ide 16#a|1/exclam|
|000026c0| 64 6f 77 6e 2f 63 65 6e | 74 2f 73 74 65 72 6c 69 |down/cen|t/sterli|
|000026d0| 6e 67 2f 63 75 72 72 65 | 6e 63 79 2f 79 65 6e 2f |ng/curre|ncy/yen/|
|000026e0| 62 61 72 2f 73 65 63 74 | 69 6f 6e 0d 0a 31 36 23 |bar/sect|ion..16#|
|000026f0| 61 38 2f 64 69 65 72 65 | 73 69 73 2f 63 6f 70 79 |a8/diere|sis/copy|
|00002700| 72 69 67 68 74 2f 6f 72 | 64 66 65 6d 69 6e 69 6e |right/or|dfeminin|
|00002710| 65 2f 67 75 69 6c 6c 65 | 6d 6f 74 6c 65 66 74 2f |e/guille|motleft/|
|00002720| 6c 6f 67 69 63 61 6c 6e | 6f 74 2f 65 6d 64 61 73 |logicaln|ot/emdas|
|00002730| 68 2f 72 65 67 69 73 74 | 65 72 65 64 2f 6f 76 65 |h/regist|ered/ove|
|00002740| 72 62 61 72 0d 0a 31 36 | 23 62 30 2f 72 69 6e 67 |rbar..16|#b0/ring|
|00002750| 2f 70 6c 75 73 6d 69 6e | 75 73 2f 74 77 6f 73 75 |/plusmin|us/twosu|
|00002760| 70 65 72 69 6f 72 2f 74 | 68 72 65 65 73 75 70 65 |perior/t|hreesupe|
|00002770| 72 69 6f 72 2f 61 63 75 | 74 65 2f 6d 75 2f 70 61 |rior/acu|te/mu/pa|
|00002780| 72 61 67 72 61 70 68 2f | 62 75 6c 6c 65 74 0d 0a |ragraph/|bullet..|
|00002790| 31 36 23 62 38 2f 63 65 | 64 69 6c 6c 61 2f 6f 6e |16#b8/ce|dilla/on|
|000027a0| 65 73 75 70 65 72 69 6f | 72 2f 6f 72 64 6d 61 73 |esuperio|r/ordmas|
|000027b0| 63 75 6c 69 6e 65 2f 67 | 75 69 6c 6c 65 6d 6f 74 |culine/g|uillemot|
|000027c0| 72 69 67 68 74 2f 6f 6e | 65 71 75 61 72 74 65 72 |right/on|equarter|
|000027d0| 2f 6f 6e 65 68 61 6c 66 | 2f 74 68 72 65 65 71 75 |/onehalf|/threequ|
|000027e0| 61 72 74 65 72 73 2f 71 | 75 65 73 74 69 6f 6e 64 |arters/q|uestiond|
|000027f0| 6f 77 6e 0d 0a 31 36 23 | 63 30 2f 41 67 72 61 76 |own..16#|c0/Agrav|
|00002800| 7d 56 84 10 b7 0a 6c 59 | 16 99 f1 94 e3 ce 74 53 |}V....lY|......tS|
|00002810| a9 e6 73 eb 49 08 9f 32 | d5 9d 17 eb 7c 3b eb ed |..s.I..2|....|;..|
|00002820| 88 ef 6c e3 ed ab 6f bb | 27 83 6d 1a d2 4c 11 fe |..l...o.|'.m..L..|
|00002830| c0 d7 68 ca 6c df 59 d4 | ce f9 08 6d 84 6b 7f ff |..h.l.Y.|...m.k..|
|00002840| 67 72 61 76 65 2f 45 61 | 63 75 74 65 2f 45 63 69 |grave/Ea|cute/Eci|
|00002850| 72 63 75 6d 66 6c 65 78 | 2f 45 64 69 65 72 65 73 |rcumflex|/Edieres|
|00002860| 69 73 2f 49 67 72 61 76 | 65 2f 49 61 63 75 74 65 |is/Igrav|e/Iacute|
|00002870| 2f 49 63 69 72 63 75 6d | 66 6c 65 78 2f 49 64 69 |/Icircum|flex/Idi|
|00002880| 65 72 65 73 69 73 0d 0a | 31 36 23 64 30 2f 45 74 |eresis..|16#d0/Et|
|00002890| 68 2f 4e 74 69 6c 64 65 | 2f 4f 67 72 61 76 65 2f |h/Ntilde|/Ograve/|
|000028a0| 4f 61 63 75 74 65 2f 4f | 63 69 72 63 75 6d 66 6c |Oacute/O|circumfl|
|000028b0| 65 78 2f 4f 74 69 6c 64 | 65 2f 4f 64 69 65 72 65 |ex/Otild|e/Odiere|
|000028c0| 73 69 73 2f 4f 45 0d 0a | 31 36 23 64 38 2f 4f 73 |sis/OE..|16#d8/Os|
|000028d0| 6c 61 73 68 2f 55 67 72 | 61 76 65 2f 55 61 63 75 |lash/Ugr|ave/Uacu|
|000028e0| 74 65 2f 55 63 69 72 63 | 75 6d 66 6c 65 78 2f 55 |te/Ucirc|umflex/U|
|000028f0| 64 69 65 72 65 73 69 73 | 2f 59 61 63 75 74 65 2f |dieresis|/Yacute/|
|00002900| 54 68 6f 72 6e 2f 67 65 | 72 6d 61 6e 64 62 6c 73 |Thorn/ge|rmandbls|
|00002910| 0d 0a 31 36 23 65 30 2f | 61 67 72 61 76 65 2f 61 |..16#e0/|agrave/a|
|00002920| 61 63 75 74 65 2f 61 63 | 69 72 63 75 6d 66 6c 65 |acute/ac|ircumfle|
|00002930| 78 2f 61 74 69 6c 64 65 | 2f 61 64 69 65 72 65 73 |x/atilde|/adieres|
|00002940| 69 73 2f 61 72 69 6e 67 | 2f 61 65 2f 63 63 65 64 |is/aring|/ae/cced|
|00002950| 69 6c 6c 61 0d 0a 31 36 | 23 65 38 2f 65 67 72 61 |illa..16|#e8/egra|
|00002960| 76 65 2f 65 61 63 75 74 | 65 2f 65 63 69 72 63 75 |ve/eacut|e/ecircu|
|00002970| 6d 66 6c 65 78 2f 65 64 | 69 65 72 65 73 69 73 2f |mflex/ed|ieresis/|
|00002980| 69 67 72 61 76 65 2f 69 | 61 63 75 74 65 2f 69 63 |igrave/i|acute/ic|
|00002990| 69 72 63 75 6d 66 6c 65 | 78 2f 69 64 69 65 72 65 |ircumfle|x/idiere|
|000029a0| 73 69 73 0d 0a 31 36 23 | 66 30 2f 65 74 68 2f 6e |sis..16#|f0/eth/n|
|000029b0| 74 69 6c 64 65 2f 6f 67 | 72 61 76 65 2f 6f 61 63 |tilde/og|rave/oac|
|000029c0| 75 74 65 2f 6f 63 69 72 | 63 75 6d 66 6c 65 78 2f |ute/ocir|cumflex/|
|000029d0| 6f 74 69 6c 64 65 2f 6f | 64 69 65 72 65 73 69 73 |otilde/o|dieresis|
|000029e0| 2f 6f 65 0d 0a 31 36 23 | 66 38 2f 6f 73 6c 61 73 |/oe..16#|f8/oslas|
|000029f0| 68 2f 75 67 72 61 76 65 | 2f 75 61 63 75 74 65 2f |h/ugrave|/uacute/|
|00002a00| 75 63 69 72 63 75 6d 66 | 6c 65 78 2f 75 64 69 65 |ucircumf|lex/udie|
|00002a10| 72 65 73 69 73 2f 79 61 | 63 75 74 65 2f 74 68 6f |resis/ya|cute/tho|
|00002a20| 72 6e 2f 79 64 69 65 72 | 65 73 69 73 0d 0a 5d 20 |rn/ydier|esis..] |
|00002a30| 64 65 66 2f 40 63 63 7b | 63 75 72 72 65 6e 74 66 |def/@cc{|currentf|
|00002a40| 69 6c 65 20 24 64 61 74 | 20 72 65 61 64 68 65 78 |ile $dat| readhex|
|00002a50| 73 74 72 69 6e 67 20 70 | 6f 70 7d 62 64 0d 0a 2f |string p|op}bd../|
|00002a60| 40 69 69 7b 63 6f 6e 63 | 61 74 20 33 20 69 6e 64 |@ii{conc|at 3 ind|
|00002a70| 65 78 20 33 20 69 6e 64 | 65 78 20 6d 20 33 20 69 |ex 3 ind|ex m 3 i|
|00002a80| 6e 64 65 78 20 31 20 69 | 6e 64 65 78 20 6c 0d 0a |ndex 1 i|ndex l..|
|00002a90| 32 20 63 6f 70 79 20 6c | 20 31 20 69 6e 64 65 78 |2 copy l| 1 index|
|00002aa0| 20 33 20 69 6e 64 65 78 | 20 6c 20 33 20 69 6e 64 | 3 index| l 3 ind|
|00002ab0| 65 78 20 33 20 69 6e 64 | 65 78 20 6c 0d 0a 63 6c |ex 3 ind|ex l..cl|
|00002ac0| 69 70 20 70 6f 70 20 70 | 6f 70 20 70 6f 70 20 70 |ip pop p|op pop p|
|00002ad0| 6f 70 7d 62 64 2f 40 45 | 7b 2f 42 62 75 72 79 20 |op}bd/@E|{/Bbury |
|00002ae0| 78 64 2f 42 62 75 72 78 | 20 78 64 0d 0a 2f 42 62 |xd/Bburx| xd../Bb|
|00002af0| 6c 6c 79 20 78 64 2f 42 | 62 6c 6c 78 20 78 64 7d |lly xd/B|bllx xd}|
|00002b00| 62 64 2f 40 63 7b 40 63 | 70 7d 62 64 2f 40 70 7b |bd/@c{@c|p}bd/@p{|
|00002b10| 2f 24 66 69 6c 20 31 20 | 64 65 66 0d 0a 2f 24 70 |/$fil 1 |def../$p|
|00002b20| 6d 20 78 64 2f 24 70 73 | 79 20 78 64 2f 24 70 73 |m xd/$ps|y xd/$ps|
|00002b30| 78 20 78 64 2f 24 70 79 | 66 20 78 64 2f 24 70 78 |x xd/$py|f xd/$px|
|00002b40| 66 20 78 64 2f 24 70 6e | 20 78 64 7d 62 64 0d 0a |f xd/$pn| xd}bd..|
|00002b50| 2f 40 50 7b 2f 24 66 69 | 6c 20 33 20 64 65 66 2f |/@P{/$fi|l 3 def/|
|00002b60| 24 50 73 6e 20 78 64 20 | 61 72 72 61 79 20 61 73 |$Psn xd |array as|
|00002b70| 74 6f 72 65 2f 24 50 72 | 6d 20 78 64 7d 62 64 0d |tore/$Pr|m xd}bd.|
|00002b80| 0a 2f 40 6b 7b 2f 24 66 | 69 6c 20 32 20 64 65 66 |./@k{/$f|il 2 def|
|00002b90| 2f 24 72 6f 79 20 78 64 | 2f 24 72 6f 78 20 78 64 |/$roy xd|/$rox xd|
|00002ba0| 2f 24 70 61 64 20 78 64 | 2f 24 66 74 79 20 78 64 |/$pad xd|/$fty xd|
|00002bb0| 2f 24 66 61 6e 20 78 64 | 0d 0a 24 66 74 79 20 31 |/$fan xd|..$fty 1|
|00002bc0| 20 65 71 7b 2f 24 66 61 | 6e 20 30 20 64 65 66 7d | eq{/$fa|n 0 def}|
|00002bd0| 69 66 2f 24 74 6f 6b 20 | 78 64 2f 24 74 6f 79 20 |if/$tok |xd/$toy |
|00002be0| 78 64 2f 24 74 6f 6d 20 | 78 64 2f 24 74 6f 63 20 |xd/$tom |xd/$toc |
|00002bf0| 78 64 0d 0a 2f 24 66 72 | 6b 20 78 64 2f 24 66 72 |xd../$fr|k xd/$fr|
|00002c00| 79 20 78 64 2f 24 66 72 | 6d 20 78 64 2f 24 66 72 |y xd/$fr|m xd/$fr|
|00002c10| 63 20 78 64 2f 24 66 72 | 6e 20 5f 20 64 65 66 2f |c xd/$fr|n _ def/|
|00002c20| 24 66 72 74 20 31 20 64 | 65 66 2f 24 74 6f 6e 20 |$frt 1 d|ef/$ton |
|00002c30| 5f 20 64 65 66 2f 24 74 | 6f 74 20 31 20 64 65 66 |_ def/$t|ot 1 def|
|00002c40| 0d 0a 7d 62 64 2f 40 78 | 7b 2f 24 66 69 6c 20 32 |..}bd/@x|{/$fil 2|
|00002c50| 20 64 65 66 2f 24 72 6f | 79 20 78 64 2f 24 72 6f | def/$ro|y xd/$ro|
|00002c60| 78 20 78 64 2f 24 70 61 | 64 20 78 64 0d 0a 2f 24 |x xd/$pa|d xd../$|
|00002c70| 66 74 79 20 78 64 2f 24 | 66 61 6e 20 78 64 20 31 |fty xd/$|fan xd 1|
|00002c80| 20 65 78 63 68 20 73 75 | 62 2f 24 74 6f 74 20 78 | exch su|b/$tot x|
|00002c90| 64 2f 24 74 6f 6e 20 78 | 64 2f 24 74 6f 6b 20 78 |d/$ton x|d/$tok x|
|00002ca0| 64 2f 24 74 6f 79 20 78 | 64 2f 24 74 6f 6d 20 78 |d/$toy x|d/$tom x|
|00002cb0| 64 2f 24 74 6f 63 20 78 | 64 0d 0a 31 20 65 78 63 |d/$toc x|d..1 exc|
|00002cc0| 68 20 73 75 62 2f 24 66 | 72 74 20 78 64 2f 24 66 |h sub/$f|rt xd/$f|
|00002cd0| 72 6e 20 78 64 2f 24 66 | 72 6b 20 78 64 2f 24 66 |rn xd/$f|rk xd/$f|
|00002ce0| 72 79 20 78 64 2f 24 66 | 72 6d 20 78 64 2f 24 66 |ry xd/$f|rm xd/$f|
|00002cf0| 72 63 20 78 64 7d 62 64 | 0d 0a 2f 40 69 7b 40 73 |rc xd}bd|../@i{@s|
|00002d00| 6d 20 40 67 73 20 40 69 | 69 20 35 20 69 6e 64 65 |m @gs @i|i 5 inde|
|00002d10| 78 20 31 20 6e 65 7b 40 | 67 73 20 31 20 67 20 46 |x 1 ne{@|gs 1 g F|
|00002d20| 20 40 67 72 7d 69 66 0d | 0a 31 20 65 71 20 35 20 | @gr}if.|.1 eq 5 |
|00002d30| 69 6e 64 65 78 20 31 20 | 65 71 20 61 6e 64 7b 40 |index 1 |eq and{@|
|00002d40| 67 73 20 24 63 74 6d 20 | 73 65 74 6d 61 74 72 69 |gs $ctm |setmatri|
|00002d50| 78 20 46 20 40 67 72 7d | 69 66 0d 0a 40 6e 70 2f |x F @gr}|if..@np/|
|00002d60| 24 75 72 79 20 78 64 2f | 24 75 72 78 20 78 64 2f |$ury xd/|$urx xd/|
|00002d70| 24 6c 6c 79 20 78 64 2f | 24 6c 6c 78 20 78 64 2f |$lly xd/|$llx xd/|
|00002d80| 24 62 74 73 20 78 64 0d | 0a 2f 24 68 65 69 20 78 |$bts xd.|./$hei x|
|00002d90| 64 2f 24 77 69 64 20 78 | 64 2f 24 64 61 74 20 24 |d/$wid x|d/$dat $|
|00002da0| 77 69 64 20 24 62 74 73 | 20 6d 75 6c 20 38 20 64 |wid $bts| mul 8 d|
|00002db0| 69 76 20 63 65 69 6c 69 | 6e 67 20 63 76 69 20 73 |iv ceili|ng cvi s|
|00002dc0| 74 72 69 6e 67 20 64 65 | 66 0d 0a 24 62 74 73 20 |tring de|f..$bts |
|00002dd0| 31 20 65 71 7b 40 53 43 | 43 2f 24 66 72 67 20 78 |1 eq{@SC|C/$frg x|
|00002de0| 64 7d 7b 31 20 47 20 40 | 53 43 43 2f 24 66 72 67 |d}{1 G @|SCC/$frg|
|00002df0| 20 78 64 7d 69 66 65 6c | 73 65 0d 0a 24 66 72 67 | xd}ifel|se..$frg|
|00002e00| 7b 24 6c 6c 78 20 24 6c | 6c 79 20 74 72 61 6e 73 |{$llx $l|ly trans|
|00002e10| 6c 61 74 65 20 24 75 72 | 78 20 24 6c 6c 78 20 73 |late $ur|x $llx s|
|00002e20| 75 62 20 24 75 72 79 20 | 24 6c 6c 79 20 73 75 62 |ub $ury |$lly sub|
|00002e30| 20 73 63 61 6c 65 0d 0a | 24 77 69 64 20 24 68 65 | scale..|$wid $he|
|00002e40| 69 20 61 62 73 20 24 62 | 74 73 20 31 20 65 71 7b |i abs $b|ts 1 eq{|
|00002e50| 66 61 6c 73 65 7d 7b 24 | 62 74 73 7d 69 66 65 6c |false}{$|bts}ifel|
|00002e60| 73 65 0d 0a 5b 20 24 77 | 69 64 20 30 20 30 20 24 |se..[ $w|id 0 0 $|
|00002e70| 68 65 69 20 6e 65 67 20 | 30 20 24 68 65 69 20 30 |hei neg |0 $hei 0|
|00002e80| 20 67 74 7b 24 68 65 69 | 7d 7b 30 7d 69 66 65 6c | gt{$hei|}{0}ifel|
|00002e90| 73 65 5d 0d 0a 2f 40 63 | 63 20 6c 6f 61 64 20 24 |se]../@c|c load $|
|00002ea0| 62 74 73 20 31 20 65 71 | 7b 69 6d 61 67 65 6d 61 |bts 1 eq|{imagema|
|00002eb0| 73 6b 7d 7b 69 6d 61 67 | 65 7d 69 66 65 6c 73 65 |sk}{imag|e}ifelse|
|00002ec0| 7d 7b 24 68 65 69 7b 40 | 63 63 20 70 6f 70 7d 72 |}{$hei{@|cc pop}r|
|00002ed0| 65 70 65 61 74 7d 69 66 | 65 6c 73 65 0d 0a 40 67 |epeat}if|else..@g|
|00002ee0| 72 20 24 63 74 6d 20 73 | 65 74 6d 61 74 72 69 78 |r $ctm s|etmatrix|
|00002ef0| 7d 64 65 66 2f 40 4d 20 | 7b 40 73 76 7d 62 64 2f |}def/@M |{@sv}bd/|
|00002f00| 40 4e 7b 2f 40 63 63 7b | 7d 64 65 66 0d 0a 31 32 |@N{/@cc{|}def..12|
|00002f10| 20 2d 31 20 72 6f 6c 6c | 20 6e 65 67 20 31 32 20 | -1 roll| neg 12 |
|00002f20| 31 20 72 6f 6c 6c 20 40 | 69 20 40 72 73 7d 62 64 |1 roll @|i @rs}bd|
|00002f30| 2f 40 49 7b 40 73 6d 20 | 40 67 73 0d 0a 40 69 69 |/@I{@sm |@gs..@ii|
|00002f40| 20 40 6e 70 2f 24 75 72 | 79 20 78 64 2f 24 75 72 | @np/$ur|y xd/$ur|
|00002f50| 78 20 78 64 2f 24 6c 6c | 79 20 78 64 2f 24 6c 6c |x xd/$ll|y xd/$ll|
|00002f60| 78 20 78 64 2f 24 6e 63 | 6c 20 78 64 0d 0a 2f 24 |x xd/$nc|l xd../$|
|00002f70| 62 74 73 20 78 64 2f 24 | 68 65 69 20 78 64 2f 24 |bts xd/$|hei xd/$|
|00002f80| 77 69 64 20 78 64 2f 24 | 64 61 74 20 24 77 69 64 |wid xd/$|dat $wid|
|00002f90| 20 24 62 74 73 20 6d 75 | 6c 20 24 6e 63 6c 20 6d | $bts mu|l $ncl m|
|00002fa0| 75 6c 20 38 20 64 69 76 | 20 63 65 69 6c 69 6e 67 |ul 8 div| ceiling|
|00002fb0| 20 63 76 69 20 73 74 72 | 69 6e 67 20 64 65 66 0d | cvi str|ing def.|
|00002fc0| 0a 24 6c 6c 78 20 24 6c | 6c 79 20 74 72 61 6e 73 |.$llx $l|ly trans|
|00002fd0| 6c 61 74 65 20 24 75 72 | 78 20 24 6c 6c 78 20 73 |late $ur|x $llx s|
|00002fe0| 75 62 20 24 75 72 79 20 | 24 6c 6c 79 20 73 75 62 |ub $ury |$lly sub|
|00002ff0| 20 73 63 61 6c 65 0d 0a | 24 77 69 64 20 24 68 65 | scale..|$wid $he|
|00003000| 08 48 c7 81 cb 36 9c 99 | dd 40 17 de 0f 34 f1 e9 |.H...6..|.@...4..|
|00003010| 81 e3 ba 81 aa 34 7e d2 | d9 6e 7a 55 5f c1 e7 9a |.....4~.|.nzU_...|
|00003020| 89 c4 0d ed 77 56 19 a7 | d0 35 d1 89 0a 9a aa 80 |....wV..|.5......|
|00003030| b7 93 d5 09 7e 17 22 9d | 13 37 6f b1 c0 e9 01 52 |....~.".|.7o....R|
|00003040| 67 65 20 40 67 72 20 24 | 63 74 6d 20 73 65 74 6d |ge @gr $|ctm setm|
|00003050| 61 74 72 69 78 7d 62 64 | 0d 0a 2f 40 74 7b 2f 24 |atrix}bd|../@t{/$|
|00003060| 6c 78 20 30 20 64 65 66 | 2f 24 6c 79 20 30 20 64 |lx 0 def|/$ly 0 d|
|00003070| 65 66 2f 24 73 74 6d 20 | 24 73 74 6d 20 63 75 72 |ef/$stm |$stm cur|
|00003080| 72 65 6e 74 6d 61 74 72 | 69 78 20 64 65 66 0d 0a |rentmatr|ix def..|
|00003090| 33 20 31 20 72 6f 6c 6c | 20 74 72 61 6e 73 6c 61 |3 1 roll| transla|
|000030a0| 74 65 20 24 74 74 6d 20 | 63 6f 6e 63 61 74 20 31 |te $ttm |concat 1|
|000030b0| 20 65 78 63 68 20 74 20 | 24 73 74 6d 20 73 65 74 | exch t |$stm set|
|000030c0| 6d 61 74 72 69 78 7d 64 | 65 66 0d 0a 2f 40 6e 7b |matrix}d|ef../@n{|
|000030d0| 2f 24 74 74 6d 20 65 78 | 63 68 20 6d 61 74 72 69 |/$ttm ex|ch matri|
|000030e0| 78 20 72 6f 74 61 74 65 | 20 64 65 66 7d 62 64 2f |x rotate| def}bd/|
|000030f0| 40 7a 7b 20 65 78 63 68 | 20 66 69 6e 64 66 6f 6e |@z{ exch| findfon|
|00003100| 74 20 65 78 63 68 20 73 | 63 61 6c 65 66 6f 6e 74 |t exch s|calefont|
|00003110| 20 73 65 74 66 6f 6e 74 | 0d 0a 7d 62 64 2f 40 73 | setfont|..}bd/@s|
|00003120| 7b 7d 62 64 2f 40 6c 7b | 7d 62 64 2f 40 42 7b 40 |{}bd/@l{|}bd/@B{@|
|00003130| 67 73 20 53 20 40 67 72 | 20 46 7d 62 64 2f 40 62 |gs S @gr| F}bd/@b|
|00003140| 7b 40 63 70 20 40 42 7d | 62 64 0d 0a 2f 40 61 7b |{@cp @B}|bd../@a{|
|00003150| 40 73 6d 20 63 6f 6e 63 | 61 74 20 5b 2f 74 7b 40 |@sm conc|at [/t{@|
|00003160| 74 40 61 7d 64 65 66 7d | 62 64 2f 40 77 7b 35 20 |t@a}def}|bd/@w{5 |
|00003170| 32 20 72 6f 6c 6c 20 64 | 75 70 2f 24 70 61 6e 20 |2 roll d|up/$pan |
|00003180| 78 64 0d 0a 6d 61 74 72 | 69 78 20 72 6f 74 61 74 |xd..matr|ix rotat|
|00003190| 65 2f 24 70 74 6d 20 78 | 64 20 6d 61 74 72 69 78 |e/$ptm x|d matrix|
|000031a0| 20 73 63 61 6c 65 20 24 | 70 74 6d 20 64 75 70 20 | scale $|ptm dup |
|000031b0| 63 6f 6e 63 61 74 6d 61 | 74 72 69 78 2f 24 70 74 |concatma|trix/$pt|
|000031c0| 6d 20 78 64 0d 0a 31 20 | 65 71 7b 24 70 74 6d 20 |m xd..1 |eq{$ptm |
|000031d0| 65 78 63 68 20 64 75 70 | 20 63 6f 6e 63 61 74 6d |exch dup| concatm|
|000031e0| 61 74 72 69 78 2f 24 70 | 74 6d 20 78 64 7d 7b 70 |atrix/$p|tm xd}{p|
|000031f0| 6f 70 7d 69 66 65 6c 73 | 65 0d 0a 31 20 77 7d 62 |op}ifels|e..1 w}b|
|00003200| 64 2f 40 67 7b 31 20 65 | 71 20 64 75 70 2f 24 73 |d/@g{1 e|q dup/$s|
|00003210| 64 66 20 78 64 7b 2f 24 | 73 63 70 20 78 64 20 6e |df xd{/$|scp xd n|
|00003220| 65 67 2f 24 73 63 61 20 | 78 64 0d 0a 2f 24 73 63 |eg/$sca |xd../$sc|
|00003230| 66 20 78 64 7d 69 66 7d | 62 64 2f 40 47 7b 31 20 |f xd}if}|bd/@G{1 |
|00003240| 65 71 20 64 75 70 2f 24 | 53 44 46 20 78 64 7b 2f |eq dup/$|SDF xd{/|
|00003250| 24 53 43 50 20 78 64 0d | 0a 6e 65 67 2f 24 53 43 |$SCP xd.|.neg/$SC|
|00003260| 41 20 78 64 2f 24 53 43 | 46 20 78 64 7d 69 66 7d |A xd/$SC|F xd}if}|
|00003270| 62 64 2f 40 44 7b 33 20 | 63 6f 70 79 20 40 73 73 |bd/@D{3 |copy @ss|
|00003280| 2f 24 64 73 70 20 78 64 | 0d 0a 2f 24 64 73 61 20 |/$dsp xd|../$dsa |
|00003290| 78 64 2f 24 64 73 66 20 | 78 64 7d 62 64 2f 40 6a |xd/$dsf |xd}bd/@j|
|000032a0| 7b 40 73 76 20 40 6e 70 | 7d 62 69 6e 64 20 64 65 |{@sv @np|}bind de|
|000032b0| 66 2f 40 4a 7b 40 72 73 | 7d 62 69 6e 64 20 64 65 |f/@J{@rs|}bind de|
|000032c0| 66 0d 0a 2f 40 73 65 70 | 7b 2f 43 6f 6c 6f 72 53 |f../@sep|{/ColorS|
|000032d0| 65 70 61 72 61 74 69 6f | 6e 4d 6f 64 65 20 77 68 |eparatio|nMode wh|
|000032e0| 65 72 65 7b 70 6f 70 7d | 7b 2f 43 6f 6c 6f 72 53 |ere{pop}|{/ColorS|
|000032f0| 65 70 61 72 61 74 69 6f | 6e 4d 6f 64 65 20 30 20 |eparatio|nMode 0 |
|00003300| 64 65 66 0d 0a 2f 43 75 | 72 72 65 6e 74 49 6e 6b |def../Cu|rrentInk|
|00003310| 4e 61 6d 65 20 28 43 6f | 6d 70 6f 73 69 74 65 29 |Name (Co|mposite)|
|00003320| 20 64 65 66 7d 69 66 65 | 6c 73 65 20 43 6f 6c 6f | def}ife|lse Colo|
|00003330| 72 53 65 70 61 72 61 74 | 69 6f 6e 4d 6f 64 65 20 |rSeparat|ionMode |
|00003340| 30 20 65 71 0d 0a 7b 2f | 43 75 72 72 65 6e 74 49 |0 eq..{/|CurrentI|
|00003350| 6e 6b 4e 61 6d 65 20 28 | 43 6f 6d 70 6f 73 69 74 |nkName (|Composit|
|00003360| 65 29 20 64 65 66 7d 69 | 66 2f 43 75 72 72 65 6e |e) def}i|f/Curren|
|00003370| 74 49 6e 6b 4e 61 6d 65 | 20 77 68 65 72 65 7b 70 |tInkName| where{p|
|00003380| 6f 70 7d 7b 0d 0a 2f 43 | 75 72 72 65 6e 74 49 6e |op}{../C|urrentIn|
|00003390| 6b 4e 61 6d 65 20 28 43 | 6f 6d 70 6f 73 69 74 65 |kName (C|omposite|
|000033a0| 29 20 64 65 66 7d 69 66 | 65 6c 73 65 20 43 75 72 |) def}if|else Cur|
|000033b0| 72 65 6e 74 49 6e 6b 4e | 61 6d 65 20 28 43 6f 6d |rentInkN|ame (Com|
|000033c0| 70 6f 73 69 74 65 29 20 | 20 20 65 71 7b 2f 24 69 |posite) |  eq{/$i|
|000033d0| 6e 6b 20 2d 31 20 64 65 | 66 7d 0d 0a 7b 43 75 72 |nk -1 de|f}..{Cur|
|000033e0| 72 65 6e 74 49 6e 6b 4e | 61 6d 65 20 28 43 79 61 |rentInkN|ame (Cya|
|000033f0| 6e 29 20 20 20 65 71 7b | 2f 24 69 6e 6b 20 30 20 |n)   eq{|/$ink 0 |
|00003400| 64 65 66 7d 20 7b 43 75 | 72 72 65 6e 74 49 6e 6b |def} {Cu|rrentInk|
|00003410| 4e 61 6d 65 20 28 4d 61 | 67 65 6e 74 61 29 20 65 |Name (Ma|genta) e|
|00003420| 71 7b 2f 24 69 6e 6b 20 | 31 20 64 65 66 7d 0d 0a |q{/$ink |1 def}..|
|00003430| 7b 43 75 72 72 65 6e 74 | 49 6e 6b 4e 61 6d 65 20 |{Current|InkName |
|00003440| 28 59 65 6c 6c 6f 77 29 | 20 65 71 7b 2f 24 69 6e |(Yellow)| eq{/$in|
|00003450| 6b 20 32 20 64 65 66 7d | 20 7b 43 75 72 72 65 6e |k 2 def}| {Curren|
|00003460| 74 49 6e 6b 4e 61 6d 65 | 20 28 42 6c 61 63 6b 29 |tInkName| (Black)|
|00003470| 20 65 71 7b 2f 24 69 6e | 6b 20 33 20 64 65 66 7d | eq{/$in|k 3 def}|
|00003480| 0d 0a 7b 2f 24 69 6e 6b | 20 34 20 64 65 66 7d 69 |..{/$ink| 4 def}i|
|00003490| 66 65 6c 73 65 7d 69 66 | 65 6c 73 65 7d 69 66 65 |felse}if|else}ife|
|000034a0| 6c 73 65 7d 69 66 65 6c | 73 65 7d 69 66 65 6c 73 |lse}ifel|se}ifels|
|000034b0| 65 7d 62 64 0d 0a 40 73 | 65 70 2f 40 77 68 69 7b |e}bd..@s|ep/@whi{|
|000034c0| 40 67 73 20 2d 37 32 30 | 30 30 20 64 75 70 20 6d |@gs -720|00 dup m|
|000034d0| 6f 76 65 74 6f 20 2d 37 | 32 30 30 30 20 37 32 30 |oveto -7|2000 720|
|000034e0| 30 30 20 6c 69 6e 65 74 | 6f 0d 0a 37 32 30 30 30 |00 linet|o..72000|
|000034f0| 20 64 75 70 20 6c 69 6e | 65 74 6f 20 37 32 30 30 | dup lin|eto 7200|
|00003500| 30 20 2d 37 32 30 30 30 | 20 6c 69 6e 65 74 6f 20 |0 -72000| lineto |
|00003510| 63 6c 6f 73 65 70 61 74 | 68 20 31 20 73 65 74 67 |closepat|h 1 setg|
|00003520| 72 61 79 20 66 69 6c 6c | 0d 0a 40 67 72 7d 62 64 |ray fill|..@gr}bd|
|00003530| 2f 40 6e 65 67 7b 20 5b | 7b 31 20 65 78 63 68 20 |/@neg{ [|{1 exch |
|00003540| 73 75 62 7d 2f 65 78 65 | 63 20 63 76 78 20 63 75 |sub}/exe|c cvx cu|
|00003550| 72 72 65 6e 74 74 72 61 | 6e 73 66 65 72 2f 65 78 |rrenttra|nsfer/ex|
|00003560| 65 63 20 63 76 78 5d 20 | 63 76 78 20 73 65 74 74 |ec cvx] |cvx sett|
|00003570| 72 61 6e 73 66 65 72 0d | 0a 40 77 68 69 7d 62 64 |ransfer.|.@whi}bd|
|00003580| 2f 40 72 65 67 7b 30 20 | 73 65 74 67 72 61 79 20 |/@reg{0 |setgray |
|00003590| 2e 33 20 73 65 74 6c 69 | 6e 65 77 69 64 74 68 20 |.3 setli|newidth |
|000035a0| 32 20 63 6f 70 79 20 35 | 2e 34 20 30 20 33 36 30 |2 copy 5|.4 0 360|
|000035b0| 20 61 72 63 20 63 6c 6f | 73 65 70 61 74 68 0d 0a | arc clo|sepath..|
|000035c0| 32 20 63 6f 70 79 20 6d | 6f 76 65 74 6f 20 39 20 |2 copy m|oveto 9 |
|000035d0| 30 20 72 6c 69 6e 65 74 | 6f 20 32 20 63 6f 70 79 |0 rlinet|o 2 copy|
|000035e0| 20 6d 6f 76 65 74 6f 20 | 2d 39 20 30 20 72 6c 69 | moveto |-9 0 rli|
|000035f0| 6e 65 74 6f 0d 0a 32 20 | 63 6f 70 79 20 6d 6f 76 |neto..2 |copy mov|
|00003600| 65 74 6f 20 30 20 39 20 | 72 6c 69 6e 65 74 6f 20 |eto 0 9 |rlineto |
|00003610| 6d 6f 76 65 74 6f 20 30 | 20 2d 39 20 72 6c 69 6e |moveto 0| -9 rlin|
|00003620| 65 74 6f 20 73 74 72 6f | 6b 65 7d 62 64 0d 0a    |eto stro|ke}bd.. |
+--------+-------------------------+-------------------------+--------+--------+