Re: 黒地に白字

名前: 奥村晴彦
日時: 2004-02-01 13:47:23
IPアドレス: 210.236.178.*

>>25407

こんな感じでやっています。

\documentclass{jsarticle}
\usepackage[dvipdfm]{graphicx,color}
\usepackage{okumacro}
\makeatletter
\renewenvironment{screen}[1][1]%
 {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
  \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
 {\end{minipage}\egroup
  \dimen0=\linewidth \removept{\dimen0}{\hsPT}%
  \advance \dimen0 by -5pt \removept{\dimen0}{\hrPT}%
  \dimen0=5pt \removept{\dimen0}{\hlPT}%
  \dimen0=\ht\scb@x \advance \dimen0 by 10pt
  \removept{\dimen0}{\htxPT}%
  \begin{flushleft}
    \vspace{6.5pt}%
    \begin{picture}(\hsPT,\htxPT)
      \put(\hlPT,\htxPT){\color{black}\circle*{10}}
      \put(\hrPT,\htxPT){\color{black}\circle*{10}}
      \put(\hlPT,0){\color{black}\circle*{10}}
      \put(\hrPT,0){\color{black}\circle*{10}}
      \put(0,0){\color{black}\rule{\hsPT pt}{\htxPT pt}}
      \put(5,0){\dimen0=\hsPT pt\advance\dimen0 by -10pt
        \color{black}\rule[-5pt]{\dimen0}{5.2pt}}
      \put(5,\htxPT){\dimen0=\hsPT pt\advance\dimen0 by -10pt
        \color{black}\rule[-0.2pt]{\dimen0}{5.2pt}}
      \put(10,5){\color{white}\ifdim\screensc@le pt=1pt \box\scb@x
                 \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
    \end{picture}%
  \end{flushleft}}
\makeatother
\begin{document}

\begin{screen}
  hoge hoge
\end{screen}

\end{document}

この書き込みへの返事：