円グラフでパターン塗り分けを使う方法

Re: 円グラフでパターン塗り分けを使う方法

- 北見 けん の投稿
返信数: 0
TikZは使っていないので、ご質問の回答としては役に立たないのですが、
MePoTeXだとこんな風にできますという例です。

質問に便乗してMePoTeX仲間を増やそうともくろんでいるだけなので、
お返事など、お気遣いは無用です。

dviout用に書いたのですが、そのままdvipdfmxでPDFになるようです。
私のところは環境が古いので、最近の環境で同じようになるかどうかはわかりませんが。

(追記)
## アップロード後にPDFをブラウザで開いてみたら、やはりラベルの文字が出ないようです。
## アップロード前の手元のファイルをAcrobatReaderで開くとちゃんと見えるのですが。

\documentclass{article}
\usepackage[dviout]{graphicx}
\usepackage{MePoTeX}
\begin{document}
\begin{MPpic}<1in>(4,4)(-2,-2)
\sendMP{
R=1.5w;
def secpoint(expr d):=(R*dir(90-3.6*d)) enddef;
% 上から時計回りにパーセンテージで方向を指定するマクロ
}
\mptPoint{z.O}{(0,0)}

\mptCircPath{patha}[f]{z.O}{secpoint(35)}{secpoint(0)}
\mptDrawPath[filltype=amikake, amidir=120]{patha}
\mptLabel{0.5secpoint(35/2)}{よかった}

\mptCircPath{pathb}[f]{z.O}{secpoint(60)}{secpoint(35)}
\mptDrawPath[filltype=amikake, amidir=45]{pathb}
\mptLabel{0.6secpoint((60+35)/2)}{まあよかった}

\mptCircPath{pathc}[f]{z.O}{secpoint(75)}{secpoint(60)}
\mptDrawPath[filltype=amikake, amidir={-10,80}]{pathc}
\mptLabel[xshift=-1.5zw]{0.5secpoint((75+60)/2)}{まあよくなかった}

\mptCircPath{pathd}[f]{z.O}{secpoint(80)}{secpoint(75)}
\mptDrawPath[filltype=amikake, amidir={60,30}]{pathd}
\mptLabel[xshift=-2zw]{0.5secpoint((80+75)/2)}{よくなかった}

\mptCircPath{pathe}[f]{z.O}{secpoint(100)}{secpoint(80)}
\mptDrawPath[filltype=none]{pathe}
\mptLabel{0.6secpoint((100+80)/2)}{無回答}

\end{MPpic}
\end{document}