diff options
Diffstat (limited to 'Master/tlpkg/dviout/PTEX')
-rw-r--r-- | Master/tlpkg/dviout/PTEX/naochan!.tex | 203 | ||||
-rw-r--r-- | Master/tlpkg/dviout/PTEX/test_vertical.dvi | bin | 0 -> 6868 bytes | |||
-rw-r--r-- | Master/tlpkg/dviout/PTEX/test_vertical.tex | 203 |
3 files changed, 203 insertions, 203 deletions
diff --git a/Master/tlpkg/dviout/PTEX/naochan!.tex b/Master/tlpkg/dviout/PTEX/naochan!.tex deleted file mode 100644 index ab1c1b6c529..00000000000 --- a/Master/tlpkg/dviout/PTEX/naochan!.tex +++ /dev/null @@ -1,203 +0,0 @@ -% pTeX サンプル for Testing dviout&dviprt (ver2.38以降) (2. Sep. 1991版) -% -% このサンプルの著作権は、Naochan!(戸塚 直哉:NIFTY-Serve GDH02225)にあります。 - -\font\tentmin=tmin10 -\font\ninetmin=tmin9 -\font\tentgoth=tgoth10 -\font\ninerm=cmr9 -\font\sevenrm=cmr7 -\font\sixmin=min6 -\font\ninemin=min9 -\font\minii=tmin10 scaled \magstep2 - -\ninetmin \ninerm - -\newskip\連数skip -\連数skip=0.1zw plus 0.1zw minus 0.1zw - -\def\pTeX{p\kern-.2em\TeX} - -\def\連数字#1{\hskip\連数skip\hbox to 0pt{\yoko\hss#1\hss}\nobreak\hskip\連数skip} -\def\連三字#1{{\sevenrm\hskip\連数skip\hbox to 0pt{\yoko\hss#1\hss}\nobreak\hskip\連数skip}} - -\def\nidan{ - \loop\ifvbox0 - \vfill - \vbox to \vsize{\baselineskip0mm \lineskiplimit0mm - \vss - \hbox to \hsize{\hss% - \vbox{\tate - \hrule - \hbox to 210mm{% - \vrule\hskip 70H% - \setbox1=\vsplit0 to 452H - \vtop to 148mm{\vskip 70H\unvbox1\vskip 70H}% 20*22+12 - \hskip 36H% - \setbox1=\vsplit0 to 452H - \vtop to 148mm{\vskip 70H\unvbox1\vskip 70H}% 20*22+12 - \hss% - \ifodd\count0% - \vtop{\vskip 70H\hbox to 452H{\yoko$\oldstyle\number\count0$\ - \sixmin 京都下宿案内\hfil}}% - \else% - \vtop{\vskip 70H\hbox to 452H{\yoko\hfil\sixmin 京都下宿案内\ - $\oldstyle\number\count0$}}% - \fi% - \hskip 56H\vrule% - } - \hrule - }% - \hss}\vskip3mm - \hbox to \hsize{\hfill\rm\tengt - Naochan!\ の『改訂版・京都下宿案内』より\hfill} - \vss} - \vfill - \eject - \repeat -} - -\splittopskip=0pt -\splitmaxdepth=0pt -\tbaselineshift=2pt -\parindent=0.9zw -\baselineskip=20H plus 1H -\lineskiplimit=0H -\lineskip=0H -\leftskip=2zw - -\def\半行空け{\vskip 10H plus 0.5H} - -\def\一行空け{\vskip\baselineskip} - -\def\科白#1{\parindent=0zw\par 「#1」\parindent=0.9zw} - -\def\item#1{\leavevmode\hbox to 0pt{\kern-\leftskip #1\hss}} - -\setbox0=\vbox{\tate \hsize=324H% 12[Q]x 27[字ツメ] - -\line{\vrule width0pt height.5zh depth.5zh\hfill} -\hbox to 1zh{\yoko\hss% -\line{\tate\minii \hskip 3zh 改訂版・京都下宿案内\hfill}% -\hss} -\line{\vrule width0pt height.5zh depth.5zh\hfill} - -\line{\vrule width0pt height.5zh depth.5zh\hfill} - -東大路通沿いにも桜の花が咲く今日この頃ですが、如何お過ごしでしょうか。 -早速、{\bf 「改訂版・京都下宿案内」}をお送りします。 - -住所も電話番号も去年と同じです。 - -\半行空け -〒\連三字{606}\ 京都市左京区○△□◇▽町×-\連三字{307}\par -{\hfill Tel.(xxx)xxx-xxxx(留守電有) } -\半行空け - -京都にお越しの際は、{\bf 何らかの差し入れ品持参は必須}です。 -案内もしてさしあげますが、何らかの見返りを求めることがあります。 -(pretty ladyだったら免除しようかな) - -去年の下宿案内にも書いたのですが、 -今月(四月)の\連数字{15}日は{\bf My Birthday}で、 -今年は二十歳になるので、それに見合うだけオトナになろうと思います。 - -いちおう下宿案内ですので、うちの下宿へ来るときの手順(秘儀)を公開します。 - -とりあえず、JR京都駅までやって来た、と仮定します。 - -するとあなたは、 -\科白{ああ、京都に来たんだなあ} -\科白{そういえば、京都にゃ Naochan! がいるんだよね} -\科白{あいたいな} - -と思います。 - -そういう時には、まず電話連絡を。 - -すると、留守電が、 -\科白{はい\ \ Naochan!です\ \ ただ今留守にしております\ \ % -ピィという発信音のあとにメッセージをお願いします\ \ \ \ ピィ} - -そういう場合は、お手数ですが、あなたの名前を名乗ったあとに以下のメッセージを。 -\科白{せっかく京都に来たから逢いたかったのに$\cdots$留守かぁ、しょうがない$\cdots$} - -こうすると、留守電の主は、留守にしていたことをきっと後悔しはじめますから。 - -もし、留守電ではなくて、本人が電話にでた場合。 -\科白{はい、Naochan! です} -\科白{あの、○○です$\cdots$いま 京都に来てるんだけど、 -せっかく京都に来たから会いたいんですが$\cdots$} - -と、とりあえず言います。 -(○○のところにあなたのお名前を。) - - - -あなたが男性である場合、まず、こういう返事が返ってきます。 -\科白{あ、○○(あなたの名前)? -ごめん、今日これからデートだから$\cdots$} - -そういう時、差し入れ品が役に立ちます。 -\科白{せっかく鳩サブレ持ってきたのになぁ$\cdots$} - -きっと、「それなら$\cdots$」といって快くお会いするでしょう。 - - - -あなたが女性である場合$\cdots$ -\科白{あ$\cdots$○○さん(あなたの名前)? -ごめん、今日これからデートだから$\cdots$} - -あなたは、すかさずこう聞くのです。 -\科白{えー?誰と?} -\科白{君とだよ} - -$\cdots\cdots$あとの事は、それからふたりで考えましょう。 - - - - - -\一行空け - -下宿を見に来たい人は$\cdots$ -京都駅烏丸中央口を出ると、バスのりばがありますので、 -××のりばから市バス\連三字{206}系統(東山通 北大路バスターミナルゆき)に -乗って、★★で降りてください(所要時間約\連数字{30}分)。 -四月の運賃改訂で\連三字{200}円になりました。 -何時何分のバスに乗る、とわかっていれば、★★のバス停で待ってます。 -★★まで来て、姿が見えなかったら、 -最寄りの電話ボックスから連絡してください。\par - - - -\一行空け - -それぞれの生活をエンジョイしましょう。 - - - -\一行空け - -{\it When you wish upon a star \par -Makes no difference who you are \par -Anything your heart desires \par -Will come to you} (星に願いを)\par - - -\一行空け -\一行空け - -なお、この下宿案内は\pTeX で組版しました。 - -縦書き可能な\pTeX を開発した アスキー と、縦書き対応の dviout/dviprt を -公開してくださった Naochan! さんに心から感謝いたします。(自画自賛) - -\vfill -} - -\nidan - -\end -
\ No newline at end of file diff --git a/Master/tlpkg/dviout/PTEX/test_vertical.dvi b/Master/tlpkg/dviout/PTEX/test_vertical.dvi Binary files differnew file mode 100644 index 00000000000..9184028a36c --- /dev/null +++ b/Master/tlpkg/dviout/PTEX/test_vertical.dvi diff --git a/Master/tlpkg/dviout/PTEX/test_vertical.tex b/Master/tlpkg/dviout/PTEX/test_vertical.tex new file mode 100644 index 00000000000..614b307fbc4 --- /dev/null +++ b/Master/tlpkg/dviout/PTEX/test_vertical.tex @@ -0,0 +1,203 @@ +% pTeX 繧オ繝ウ繝励Ν for Testing dviout&dviprt (ver2.38莉・髯) (2. Sep. 1991迚) +% +% 縺薙ョ繧オ繝ウ繝励Ν縺ョ闡嶺ス懈ィゥ縺ッ縲¨aochan!(謌ク蝪 逶エ蜩:NIFTY-Serve GDH02225)縺ォ縺ゅj縺セ縺吶 + +\font\tentmin=tmin10 +\font\ninetmin=tmin9 +\font\tentgoth=tgoth10 +\font\ninerm=cmr9 +\font\sevenrm=cmr7 +\font\sixmin=min6 +\font\ninemin=min9 +\font\minii=tmin10 scaled \magstep2 + +\ninetmin \ninerm + +\newskip\騾」謨ーskip +\騾」謨ーskip=0.1zw plus 0.1zw minus 0.1zw + +\def\pTeX{p\kern-.2em\TeX} + +\def\騾」謨ー蟄#1{\hskip\騾」謨ーskip\hbox to 0pt{\yoko\hss#1\hss}\nobreak\hskip\騾」謨ーskip} +\def\騾」荳牙ュ#1{{\sevenrm\hskip\騾」謨ーskip\hbox to 0pt{\yoko\hss#1\hss}\nobreak\hskip\騾」謨ーskip}} + +\def\nidan{ + \loop\ifvbox0 + \vfill + \vbox to \vsize{\baselineskip0mm \lineskiplimit0mm + \vss + \hbox to \hsize{\hss% + \vbox{\tate + \hrule + \hbox to 210mm{% + \vrule\hskip 70H% + \setbox1=\vsplit0 to 452H + \vtop to 148mm{\vskip 70H\unvbox1\vskip 70H}% 20*22+12 + \hskip 36H% + \setbox1=\vsplit0 to 452H + \vtop to 148mm{\vskip 70H\unvbox1\vskip 70H}% 20*22+12 + \hss% + \ifodd\count0% + \vtop{\vskip 70H\hbox to 452H{\yoko$\oldstyle\number\count0$\ + \sixmin 莠ャ驛ス荳句ョソ譯亥\hfil}}% + \else% + \vtop{\vskip 70H\hbox to 452H{\yoko\hfil\sixmin 莠ャ驛ス荳句ョソ譯亥\ + $\oldstyle\number\count0$}}% + \fi% + \hskip 56H\vrule% + } + \hrule + }% + \hss}\vskip3mm + \hbox to \hsize{\hfill\rm\tengt + Naochan!\ 縺ョ縲取隼險ら沿繝サ莠ャ驛ス荳句ョソ譯亥縲上h繧浬hfill} + \vss} + \vfill + \eject + \repeat +} + +\splittopskip=0pt +\splitmaxdepth=0pt +\tbaselineshift=2pt +\parindent=0.9zw +\baselineskip=20H plus 1H +\lineskiplimit=0H +\lineskip=0H +\leftskip=2zw + +\def\蜊願。檎ゥコ縺捜\vskip 10H plus 0.5H} + +\def\荳陦檎ゥコ縺捜\vskip\baselineskip} + +\def\遘醍區#1{\parindent=0zw\par 縲#1縲構parindent=0.9zw} + +\def\item#1{\leavevmode\hbox to 0pt{\kern-\leftskip #1\hss}} + +\setbox0=\vbox{\tate \hsize=324H% 12[Q]x 27[蟄励ヤ繝。] + +\line{\vrule width0pt height.5zh depth.5zh\hfill} +\hbox to 1zh{\yoko\hss% +\line{\tate\minii \hskip 3zh 謾ケ險ら沿繝サ莠ャ驛ス荳句ョソ譯亥\hfill}% +\hss} +\line{\vrule width0pt height.5zh depth.5zh\hfill} + +\line{\vrule width0pt height.5zh depth.5zh\hfill} + +譚ア螟ァ霍ッ騾壽イソ縺縺ォ繧よ。懊ョ闃ア縺悟調縺丈サ頑律縺薙ョ鬆縺ァ縺吶′縲∝ヲゆス輔♀驕弱#縺励〒縺励g縺縺九 +譌ゥ騾溘+\bf 縲梧隼險ら沿繝サ莠ャ驛ス荳句ョソ譯亥縲閤繧偵♀騾√j縺励∪縺吶 + +菴乗園繧る崕隧ア逡ェ蜿キ繧ょ悉蟷エ縺ィ蜷後§縺ァ縺吶 + +\蜊願。檎ゥコ縺 +縲箪騾」荳牙ュ養606}\ 莠ャ驛ス蟶ょキヲ莠ャ蛹コ笳銀無笆。笳笆ス逕コテ-\騾」荳牙ュ養307}\par +{\hfill Tel.(xxx)xxx-xxxxシ育蕗螳磯崕譛会シ } +\蜊願。檎ゥコ縺 + +莠ャ驛ス縺ォ縺願カ翫@縺ョ髫帙ッ縲+\bf 菴輔i縺九ョ蟾ョ縺怜・繧悟刀謖∝盾縺ッ蠢鬆}縺ァ縺吶 +譯亥繧ゅ@縺ヲ縺輔@縺ゅ£縺セ縺吶′縲∽ス輔i縺九ョ隕玖ソ斐j繧呈アゅa繧九%縺ィ縺後≠繧翫∪縺吶 +シpretty lady縺縺」縺溘i蜈埼勁縺励h縺縺九↑シ + +蜴サ蟷エ縺ョ荳句ョソ譯亥縺ォ繧よ嶌縺縺溘ョ縺ァ縺吶′縲 +莉頑怦シ亥屁譛茨シ峨ョ\騾」謨ー蟄養15}譌・縺ッ{\bf My Birthday}縺ァ縲 +莉雁ケエ縺ッ莠悟香豁ウ縺ォ縺ェ繧九ョ縺ァ縲√◎繧後↓隕句粋縺縺縺代が繝医リ縺ォ縺ェ繧阪≧縺ィ諤昴>縺セ縺吶 + +縺縺。縺翫≧荳句ョソ譯亥縺ァ縺吶ョ縺ァ縲√≧縺。縺ョ荳句ョソ縺ク譚・繧九→縺阪ョ謇矩シ育ァ伜оシ峨r蜈ャ髢九@縺セ縺吶 + +縺ィ繧翫≠縺医★縲シェシイ莠ャ驛ス鬧縺セ縺ァ繧縺」縺ヲ譚・縺溘√→莉ョ螳壹@縺セ縺吶 + +縺吶k縺ィ縺ゅ↑縺溘ッ縲 +\遘醍區{縺ゅ≠縲∽コャ驛ス縺ォ譚・縺溘s縺縺ェ縺} +\遘醍區{縺昴≧縺縺医ー縲∽コャ驛ス縺ォ繧 Naochan! 縺後>繧九s縺繧医ュ} +\遘醍區{縺ゅ>縺溘>縺ェ} + +縺ィ諤昴>縺セ縺吶 + +縺昴≧縺縺譎ゅ↓縺ッ縲√∪縺夐崕隧ア騾」邨。繧偵 + +縺吶k縺ィ縲∫蕗螳磯崕縺後 +\遘醍區{縺ッ縺Ы \ Naochan!縺ァ縺兔 \ 縺溘□莉顔蕗螳医↓縺励※縺翫j縺セ縺兔 \ % +繝斐ぅ縺ィ縺縺逋コ菫。髻ウ縺ョ縺ゅ→縺ォ繝。繝繧サ繝シ繧ク繧偵♀鬘倥>縺励∪縺兔 \ \ \ 繝斐ぅ} + +縺昴≧縺縺蝣エ蜷医ッ縲√♀謇区焚縺ァ縺吶′縲√≠縺ェ縺溘ョ蜷榊燕繧貞錐荵励▲縺溘≠縺ィ縺ォ莉・荳九ョ繝。繝繧サ繝シ繧ク繧偵 +\遘醍區{縺帙▲縺九¥莠ャ驛ス縺ォ譚・縺溘°繧蛾「縺縺溘°縺」縺溘ョ縺ォ$\cdots$逡吝ョ医°縺√√@繧縺縺後↑縺$\cdots$} + +縺薙≧縺吶k縺ィ縲∫蕗螳磯崕縺ョ荳サ縺ッ縲∫蕗螳医↓縺励※縺縺溘%縺ィ繧偵″縺」縺ィ蠕梧t縺励ッ縺倥a縺セ縺吶°繧峨 + +繧ゅ@縲∫蕗螳磯崕縺ァ縺ッ縺ェ縺上※縲∵悽莠コ縺碁崕隧ア縺ォ縺ァ縺溷エ蜷医 +\遘醍區{縺ッ縺縲¨aochan! 縺ァ縺凩 +\遘醍區{縺ゅョ縲≫雷笳九〒縺$\cdots$縺縺セ縲莠ャ驛ス縺ォ譚・縺ヲ繧九s縺縺代←縲 +縺帙▲縺九¥莠ャ驛ス縺ォ譚・縺溘°繧我シ壹>縺溘>繧薙〒縺吶′$\cdots$} + +縺ィ縲√→繧翫≠縺医★險縺縺セ縺吶 +シ遺雷笳九ョ縺ィ縺薙m縺ォ縺ゅ↑縺溘ョ縺雁錐蜑阪r縲ゑシ + + + +縺ゅ↑縺溘′逕キ諤ァ縺ァ縺ゅk蝣エ蜷医√∪縺壹√%縺縺縺霑比コ九′霑斐▲縺ヲ縺阪∪縺吶 +\遘醍區{縺ゅ≫雷笳具シ医≠縺ェ縺溘ョ蜷榊燕シ会シ +縺斐a繧薙∽サ頑律縺薙l縺九i繝繝シ繝医□縺九i$\cdots$} + +縺昴≧縺縺譎ゅ∝キョ縺怜・繧悟刀縺悟スケ縺ォ遶九■縺セ縺吶 +\遘醍區{縺帙▲縺九¥魑ゥ繧オ繝悶Ξ謖√▲縺ヲ縺阪◆縺ョ縺ォ縺ェ縺$\cdots$} + +縺阪▲縺ィ縲√後◎繧後↑繧$\cdots$縲阪→縺縺」縺ヲ蠢ォ縺上♀莨壹>縺吶k縺ァ縺励g縺縲 + + + +縺ゅ↑縺溘′螂ウ諤ァ縺ァ縺ゅk蝣エ蜷$\cdots$ +\遘醍區{縺$\cdots$笳銀雷縺輔sシ医≠縺ェ縺溘ョ蜷榊燕シ会シ +縺斐a繧薙∽サ頑律縺薙l縺九i繝繝シ繝医□縺九i$\cdots$} + +縺ゅ↑縺溘ッ縲√☆縺九&縺壹%縺閨槭¥縺ョ縺ァ縺吶 +\遘醍區{縺医シシ溯ェー縺ィシ毳 +\遘醍區{蜷帙→縺繧} + +$\cdots\cdots$縺ゅ→縺ョ莠九ッ縲√◎繧後°繧峨オ縺溘j縺ァ閠縺医∪縺励g縺縲 + + + + + +\荳陦檎ゥコ縺 + +荳句ョソ繧定ヲ九↓譚・縺溘>莠コ縺ッ$\cdots$ +莠ャ驛ス鬧辜丈クク荳ュ螟ョ蜿」繧貞コ繧九→縲√ヰ繧ケ縺ョ繧翫ー縺後≠繧翫∪縺吶ョ縺ァ縲 +テ療励ョ繧翫ー縺九i蟶ゅヰ繧ケ\騾」荳牙ュ養206}邉サ邨アシ域擲螻ア騾 蛹怜、ァ霍ッ繝舌せ繧ソ繝シ繝溘リ繝ォ繧縺搾シ峨↓ +荵励▲縺ヲ縲≫笘縺ァ髯阪j縺ヲ縺上□縺輔>シ域園隕∵凾髢鍋エЫ騾」謨ー蟄養30}蛻シ峨 +蝗帶怦縺ョ驕玖ウ謾ケ險ゅ〒\騾」荳牙ュ養200}蜀縺ォ縺ェ繧翫∪縺励◆縲 +菴墓凾菴募縺ョ繝舌せ縺ォ荵励k縲√→繧上°縺」縺ヲ縺繧後ー縲≫笘縺ョ繝舌せ蛛懊〒蠕縺」縺ヲ縺セ縺吶 +笘笘縺セ縺ァ譚・縺ヲ縲∝ァソ縺瑚ヲ九∴縺ェ縺九▲縺溘i縲 +譛蟇繧翫ョ髮サ隧ア繝懊ャ繧ッ繧ケ縺九i騾」邨。縺励※縺上□縺輔>縲\par + + + +\荳陦檎ゥコ縺 + +縺昴l縺槭l縺ョ逕滓エサ繧偵お繝ウ繧ク繝ァ繧、縺励∪縺励g縺縲 + + + +\荳陦檎ゥコ縺 + +{\it When you wish upon a star \par +Makes no difference who you are \par +Anything your heart desires \par +Will come to you} シ域弌縺ォ鬘倥>繧抵シ噂par + + +\荳陦檎ゥコ縺 +\荳陦檎ゥコ縺 + +縺ェ縺翫√%縺ョ荳句ョソ譯亥縺ッ\pTeX 縺ァ邨迚医@縺セ縺励◆縲 + +邵ヲ譖ク縺榊庄閭ス縺ェ\pTeX 繧帝幕逋コ縺励◆ 繧「繧ケ繧ュ繝シ 縺ィ縲∫クヲ譖ク縺榊ッセ蠢懊ョ dviout/dviprt 繧 +蜈ャ髢九@縺ヲ縺上□縺輔▲縺 Naochan! 縺輔s縺ォ蠢縺九i諢溯ャ昴>縺溘@縺セ縺吶ゑシ郁ェ逕サ閾ェ雉幢シ + +\vfill +} + +\nidan + +\end +
\ No newline at end of file |