/ Carousel / CAROUSEL.cdr / mactosh / unix / unix_mac.hqx / PicMacros.tex

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 64 65 66 5c 69 66 75 | 6e 64 65 66 69 6e 65 64 |\def\ifu|ndefined|
|00000010| 23 31 7b 5c 65 78 70 61 | 6e 64 61 66 74 65 72 5c |#1{\expa|ndafter\|
|00000020| 69 66 78 5c 63 73 6e 61 | 6d 65 23 31 5c 65 6e 64 |ifx\csna|me#1\end|
|00000030| 63 73 6e 61 6d 65 5c 72 | 65 6c 61 78 7d 0a 0a 5c |csname\r|elax}..\|
|00000040| 69 66 75 6e 64 65 66 69 | 6e 65 64 7b 6e 65 77 63 |ifundefi|ned{newc|
|00000050| 6f 6d 6d 61 6e 64 7d 0a | 09 09 09 25 20 64 65 66 |ommand}.|...% def|
|00000060| 69 6e 65 20 44 72 61 77 | 50 69 63 74 75 72 65 20 |ine Draw|Picture |
|00000070| 66 6f 72 20 54 65 58 0a | 5c 6c 6f 6e 67 5c 67 64 |for TeX.|\long\gd|
|00000080| 65 66 5c 44 72 61 77 50 | 69 63 74 75 72 65 23 31 |ef\DrawP|icture#1|
|00000090| 23 32 23 33 0a 20 7b 5c | 63 65 6e 74 65 72 6c 69 |#2#3. {\|centerli|
|000000a0| 6e 65 0a 09 7b 5c 76 62 | 6f 78 20 74 6f 20 23 31 |ne..{\vb|ox to #1|
|000000b0| 70 74 0a 09 09 7b 5c 68 | 62 6f 78 20 74 6f 20 23 |pt...{\h|box to #|
|000000c0| 32 70 74 0a 09 09 7b 5c | 73 70 65 63 69 61 6c 7b |2pt...{\|special{|
|000000d0| 69 6d 70 72 65 73 73 20 | 23 33 7d 7d 0a 09 09 7d |impress |#3}}...}|
|000000e0| 0a 09 7d 0a 20 7d 0a 0a | 5c 65 6c 73 65 0a 09 09 |..}. }..|\else...|
|000000f0| 09 25 20 64 65 66 69 6e | 65 20 44 72 61 77 50 69 |.% defin|e DrawPi|
|00000100| 63 74 75 72 65 20 66 6f | 72 20 4c 61 54 65 58 0a |cture fo|r LaTeX.|
|00000110| 0a 25 20 6f 75 74 70 75 | 74 20 73 6f 6d 65 20 69 |.% outpu|t some i|
|00000120| 6d 70 72 65 73 73 20 64 | 61 74 61 20 61 74 20 63 |mpress d|ata at c|
|00000130| 75 72 72 65 6e 74 20 6c | 6f 63 61 74 69 6f 6e 20 |urrent l|ocation |
|00000140| 6f 6e 20 70 61 67 65 0a | 5c 6e 65 77 63 6f 6d 6d |on page.|\newcomm|
|00000150| 61 6e 64 7b 5c 49 6d 70 | 72 65 73 73 7d 5b 31 5d |and{\Imp|ress}[1]|
|00000160| 0a 7b 0a 20 20 5c 6d 61 | 6b 65 62 6f 78 28 30 2c |.{.  \ma|kebox(0,|
|00000170| 30 29 7b 5c 73 70 65 63 | 69 61 6c 7b 69 6d 70 72 |0){\spec|ial{impr|
|00000180| 65 73 73 20 23 31 7d 7d | 0a 7d 0a 0a 25 20 70 75 |ess #1}}|.}..% pu|
|00000190| 74 20 61 20 70 69 63 74 | 75 72 65 20 6f 6e 20 70 |t a pict|ure on p|
|000001a0| 61 67 65 20 28 75 73 65 | 20 66 6f 72 20 6d 75 6c |age (use| for mul|
|000001b0| 74 69 70 6c 65 20 70 69 | 63 74 75 72 65 73 20 61 |tiple pi|ctures a|
|000001c0| 63 72 6f 73 73 20 70 61 | 67 65 29 0a 5c 6e 65 77 |cross pa|ge).\new|
|000001d0| 63 6f 6d 6d 61 6e 64 7b | 5c 50 75 74 50 69 63 74 |command{|\PutPict|
|000001e0| 75 72 65 7d 5b 33 5d 0a | 7b 0a 20 20 5c 62 65 67 |ure}[3].|{.  \beg|
|000001f0| 69 6e 7b 70 69 63 74 75 | 72 65 7d 28 23 31 2c 23 |in{pictu|re}(#1,#|
|00000200| 32 29 0a 20 20 20 20 5c | 70 75 74 28 30 2c 23 32 |2).    \|put(0,#2|
|00000210| 29 7b 5c 49 6d 70 72 65 | 73 73 7b 23 33 7d 7d 0a |){\Impre|ss{#3}}.|
|00000220| 20 20 5c 65 6e 64 7b 70 | 69 63 74 75 72 65 7d 0a |  \end{p|icture}.|
|00000230| 7d 0a 0a 25 20 70 75 74 | 20 61 20 63 65 6e 74 65 |}..% put| a cente|
|00000240| 72 65 64 20 70 69 63 74 | 75 72 65 20 6f 6e 20 70 |red pict|ure on p|
|00000250| 61 67 65 20 28 75 73 65 | 20 66 6f 72 20 73 69 6e |age (use| for sin|
|00000260| 67 6c 65 20 70 69 63 74 | 75 72 65 20 61 63 72 6f |gle pict|ure acro|
|00000270| 73 73 20 70 61 67 65 29 | 0a 5c 6e 65 77 63 6f 6d |ss page)|.\newcom|
|00000280| 6d 61 6e 64 7b 5c 44 72 | 61 77 50 69 63 74 75 72 |mand{\Dr|awPictur|
|00000290| 65 7d 5b 33 5d 0a 7b 0a | 20 20 5c 62 65 67 69 6e |e}[3].{.|  \begin|
|000002a0| 7b 63 65 6e 74 65 72 7d | 0a 20 20 20 20 5c 50 75 |{center}|.    \Pu|
|000002b0| 74 50 69 63 74 75 72 65 | 7b 23 31 7d 7b 23 32 7d |tPicture|{#1}{#2}|
|000002c0| 7b 23 33 7d 0a 20 20 5c | 65 6e 64 7b 63 65 6e 74 |{#3}.  \|end{cent|
|000002d0| 65 72 7d 0a 7d 0a 0a 5c | 66 69 0a                |er}.}..\|fi.     |
+--------+-------------------------+-------------------------+--------+--------+