summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/PTEX
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/dviout/PTEX')
-rw-r--r--Master/tlpkg/dviout/PTEX/naochan!.tex203
-rw-r--r--Master/tlpkg/dviout/PTEX/test_vertical.dvibin0 -> 6868 bytes
-rw-r--r--Master/tlpkg/dviout/PTEX/test_vertical.tex203
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
new file mode 100644
index 00000000000..9184028a36c
--- /dev/null
+++ b/Master/tlpkg/dviout/PTEX/test_vertical.dvi
Binary files differ
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