Re: 時計と計量秤

名前: 大熊一弘
日時: 2005-10-10 14:08:38
IPアドレス: 61.121.39.*

>>38496

数年前 nifty の FTEXフォーラムで話題になりました。

時計について，そのとき，私が書き込んだものを，
少し書き換えて下に記します。

これをタイプセットして
    dvipsk + Distiller
で pdf にしたものを

http://emath.s40.xrea.com/temp/tokei.pdf

に置きました。

ここで用いているスタイルファイル emathPs.sty は，
自作の，図を描画するためのパッケージです。
下のリストをタイプセットすると，図の部分は PostScript（EPS 画像）に翻訳され，
自動的に取り込まれます。

興味がおありでしたら，
http://emath.s40.xrea.com/
にお越しください。

% --- tokei.tex -----------------------------------
\documentclass{jarticle}
\usepackage{emathPs}

\def\tokei#1#2{%
  \begin{pszahyou*}[ul=10mm](-4,4)(-4,4)
% 「時」の目盛り
    \Cfor{\edef\kaku{0}}{\kaku<361}{\IAdd\kaku{30}\kaku}\do{{%
      \kyokuTyoku(2.5,\kaku)\A
      \kyokuTyoku(3,\kaku)\B
      \Drawline{\A\B}%
    }}%
% 「分」の目盛り
    \Cfor{\edef\kaku{0}}{\kaku<361}{\IAdd\kaku{6}\kaku}\do{{%
      \kyokuTyoku(2.7,\kaku)\A
      \kyokuTyoku(3,\kaku)\B
      \Drawline{\A\B}%
    }}%
% 1〜12 の文字
    \Cfor{\edef\kaku{90}\edef\mozi{12}}{\kaku<450}{\IAdd\kaku{30}\kaku\IAdd\mozi{-1}\mozi}\do{{%
      \kyokuTyoku(3.2,\kaku)\E\Put\E(0,0)[c]{\mozi}%
    }}%
% 長針
    \Mul{6}{#2}\tmp \Sub{90}\tmp\kakuL%     \kakuL=90-6*(#2)
    \kyokuTyoku(2.8,\kakuL)\E
    \setarrowsize{40}{100}{120}%
    \ArrowLine\O\E
% 短針
    \Mul{30}{#1}\kakuS \Mul{0.5}{#2}\tmp
    \Sub{90}\kakuS\kakuS \Sub\kakuS\tmp\kakuS% \kakuS=90-30*(#1)-0.5*(#2)
    \kyokuTyoku(2.1,\kakuS)\E
    \setarrowsize{30}{60}{60}%
    \ArrowLine\O\E
% 円周
    \En\O{3}
    \Kuromaru[3pt]\O
  \end{pszahyou*}
}

\begin{document}
% 0時30分
\tokei{0}{30}

% 20時48分
\tokei{20}{48}
\end{document}

この書き込みへの返事：