emath BBS

新規発言一覧最新記事過去一覧検索HOME

No.8447  Re[4]:交わる図形の交わったところをかかない
発言者: 田中徹
発言日: 2009 11/19 22:27
発言元: p4b4a6c.nigtnt01.ap.so-net.ne.jp
目が覚めました!! <石原様 
描画順が重要なので同一の座標を2度記述するのも悔しいので
\touhenkigou のルーチンを拝借してみました。

# 相変わらずの粘着質と...

%-----------------------------------------------------------
\documentclass{jarticle}
\usepackage[notMy]{emathP}

\def\haba{3}
\Sub\haba{.8}\habai
\makeatletter
\def\FOO#1{%
\def\FOO@sub(##1,##2)(##3,##4){%
\edef\FOO@a{(##1,##2)}%
\edef\FOO@b{(##3,##4)}}%
\argsep{#1}{;}{FOO@tmp}\FOO@n
\Cfor{\edef\FOO@i{0}}{\FOO@i<\FOO@n}{}\do{%
\Incr\FOO@i%
\edef\FOO@arg{%
\csname FOO@tmp\romannumeral\FOO@i\endcsname}%
\expandafter\FOO@sub\FOO@arg%
\allinethickness{\haba mm}%
\Drawlines{\FOO@a\FOO@b}%
}%
\Cfor{\edef\FOO@i{0}}{\FOO@i<\FOO@n}{}\do{%
\Incr\FOO@i%
\edef\FOO@arg{%
\csname FOO@tmp\romannumeral\FOO@i\endcsname}%
\expandafter\FOO@sub\FOO@arg
\allinethickness{\habai mm}%
{\color{white}%
\Drawlines{\FOO@a\FOO@b}%
}%
}%
}%
\makeatother

\begin{document}

\begin{zahyou*}[ul=10mm](.5,5.5)(.5,5.5)
\FOO{%
(\xmin,1)(\xmax,1);(\xmin,2)(\xmax,2);(\xmin,3)(\xmax,3);(\xmin,4)(\xmax,4);(\xmin,5)(\xmax,5);%
(1,\ymin)(1,\ymax);(2,\ymin)(2,\ymax);(3,\ymin)(3,\ymax);(4,\ymin)(4,\ymax);(5,\ymin)(5,\ymax);%
(1,3)(3,5);(1,2)(4,5);(1,1)(5,5);(2,1)(5,4);(3,1)(5,3);(4,1)(1,4);(5,1)(1,5);(5,3)(3,5);(5,4)(4,5)}
\end{zahyou*}

\end{document}

▼関連発言

8438:交わる図形の交わったところをかかない [tanak] 11/18 20:52
 ├8440:--- [---] 11/19 00:11
 └8441:Re:交わる図形の交わったところをかかない [田中徹] 11/19 00:15
  └8442:Re[2]:交わる図形の交わったところをかかない [tanak] 11/19 05:35
   └8443:Re[3]:交わる図形の交わったところをかかない [石原 守] 11/19 07:48
    ├8444:Re[4]:交わる図形の交わったところをかかない [tanak] 11/19 13:35
    └8447:Re[4]:交わる図形の交わったところをかかない [田中徹] 11/19 22:27<-last

Pass 保存


CGIROOM