過酸化水素分解実験装置

\documentclass[b5j,11pt,twoside]{tetsujsarticle}
\usepackage{tetsuchem}
\pagestyle{fancy}

\余白設定[
上余白=0truecm,
下余白=上余白,
左余白=0truecm,
左右差=0truecm,
段間隔=対称,
段組の仕切り線の太さ=.5truept,
ヘッダの縦幅=5truept,
ヘッダ下端と本文上端の縦間隔=0truept,
ヘッダと本文を仕切る線の太さ=0truept,
本文下端とフッタ下端の縦間隔=0truept,
本文とフッタを仕切る線の太さ=0truept,
傍注領域の幅=0truept,
本文端と傍注領域との間隔=0truept,
傍注同士の縦間隔=\baselineskip,
奇数ページの傍注位置=右,
偶数ページの傍注位置=左,
]

\カスタム用紙サイズ{縦=8.25cm,横=9.25cm}

\begin{document}

\begin{tikzpicture}%[scale=0.75]
\draw[line width=0.2pt] (-0.025,5.65) -- (0.275,5.65) -- (0.25,5.625) -- (0.25,1.4) arc(0:-180:0.125) -- (0,5.625) --cycle;%水準管
\draw[line width=0.2pt,draw,fill=black!20!white] (0,3.45) -- (0,1.4) arc(-180:0:0.125) -- (0.25,3.45);%水準管の水面
\draw[line width=0.2pt] (1.3125,6) -- (1.3125,5.9) -- (1.4,5.7) -- (1.4,1.4) arc(0:-180:0.125) -- (1.15,5.7) -- (1.2375,5.9) -- (1.2375,6);%ガスビュレット
\draw[line width=0.2pt,draw,fill=black!20!white] (1.15,3.45) -- (1.15,1.4) arc(-180:0:0.125) -- (1.4,3.45);%ガスビュレットの水面
\foreach \x in {1,2,...,8,10,11,...,13}
\foreach \y in {1,2,3,4}
 {
 \draw[line width=0.3pt] (1.225,1.035+\x*0.354) -- (1.325,1.035+\x*0.354);%太目盛
 }
\foreach \x in {1,2,...,12}
\foreach \y in {1,2,3,4}
 {
 \draw[line width=0.2pt] (1.25,1.035+\x*0.354+\y*0.0708) -- (1.3,1.035+\x*0.354+\y*0.0708);%細目盛
 }
\draw[line width=0.2pt,draw,fill=black!50!white] (0,0) -- (1.4,0) -- (1.4,0.2) -- (0.8,0.2) -- (0.8,5.9) arc(0:180:0.1) -- (0.6,0.2) -- (0,0.2) --cycle;%左スタンド
\draw[line width=0.2pt,draw,fill=black!50!white] (0.25,4.15) -- (1.15,4.15) -- (1.15,4.25) -- (0.25,4.25) --cycle;%左スタンド輪
\draw[line width=0.2pt,draw,fill=black!75!white] (0.575,4.1) -- (0.825,4.1) -- (0.825,4.3) -- (0.575,4.3) --cycle;%左スタンドクリップ中央
\draw[line width=0.2pt,draw,fill=black!75!white] (-0.025,4.1) -- (0.275,4.1) -- (0.275,4.3) -- (-0.025,4.3) --cycle;%左スタンドクリップ左
\draw[line width=0.2pt,draw,fill=black!75!white] (1.425,4.1) -- (1.125,4.1) -- (1.125,4.3) -- (1.425,4.3) --cycle;%左スタンドクリップ右
\draw[line width=0.2pt,draw,fill=black!75!white] (0.075,1.275) -- (0.075,1.15) -- (0.0875,1.15) arc(-180:0:0.6125) -- (1.325,1.15) -- (1.325,1.275) -- (1.225,1.275) -- (1.225,1.15) -- (1.2375,1.15) arc(0:-180:0.5375) -- (0.175,1.15) -- (0.175,1.275) --cycle;%ゴムチューブ
\fill[black!20!white] (1.6,3) -- (1.6,0.1) arc(-180:-90:0.1) -- (3.6,0) arc(-90:0:0.1) -- (3.7,3);%恒温槽の水
\draw[line width=0.2pt] (1.6,3.7) -- (1.6,0.1) arc(-180:-90:0.1) -- (3.6,0) arc(-90:0:0.1) -- (3.7,3.7);%恒温槽
\draw[line width=0.2pt,draw,fill=black!50!white] (4,0) -- (4.5,0) -- (4.5,0.2) -- (4.35,0.2) -- (4.35,5.9) arc(0:180:0.1) -- (4.15,0.2) -- (4,0.2) --cycle;%右スタンド
\draw[line width=0.2pt,draw,fill=white] (1.95,2.7) -- (2,2.65) -- (2,1.35) arc(-180:0:0.2) -- (2.4,2.65) -- (2.45,2.7) --cycle;%分解槽
\draw[line width=0.2pt,draw,fill=black!35!white] (2,1.65) -- (2,1.35) arc(-180:0:0.2) -- (2.4,1.65);%過酸化水素
\fill[black] (2.15,1.25) arc(90:270:0.02) -- (2.25,1.21) arc(-90:90:0.02) --cycle;%回転子
\draw[line width=0.2pt,draw,fill=white] (1.3125,6) -- (1.3125,6.5) -- (2.1625,6.5) -- (2.1625,2.425) -- (2.2375,2.425) -- (2.2375,6.5) arc(0:90:0.075) -- (1.3125,6.575) arc(90:180:0.075) -- (1.2375,6);%ガラス管
\draw[line width=0.2pt,draw,fill=black!50!white] (2.15,6.1) -- (2.25,6.1) -- (2.25,6.35) -- (2.15,6.35) --cycle;%右ゴムチューブ
\draw[line width=0.2pt,draw,fill=black!50!white] (1.225,6.1) -- (1.325,6.1) -- (1.325,6.35) -- (1.225,6.35) --cycle;%左ゴムチューブ
\draw[line width=0.2pt,draw,fill=black!50!white] (2,4.65) -- (2.4,4.65) -- (2.4,4.95) -- (2,4.95) --cycle;%ゴム栓上
\draw[line width=0.2pt,draw,fill=black!50!white] (2.4,4.75) -- (4.15,4.75) -- (4.15,4.85) -- (2.4,4.85) --cycle;%右スタンド輪
\draw[line width=0.2pt,draw,fill=black!75!white] (4.125,4.7) -- (4.375,4.7) -- (4.375,4.9) -- (4.125,4.9) --cycle;%右スタンドクリップ中央
\draw[line width=0.2pt,draw,fill=black!75!white] (1.975,4.7) -- (2.425,4.7) -- (2.425,4.9) -- (1.975,4.9) --cycle;%右スタンドクリップ左
\draw[line width=0.2pt,draw,fill=black!50!white] (1.8,0) -- (2.6,0) -- (2.6,0.1) -- (1.8,0.1) --cycle;
\draw[line width=0.2pt,draw,fill=black!50!white] (2.575,0.1) -- (2.575,2.025) -- (2.5,2.025) -- (2.5,0.1) --cycle;
\draw[line width=0.2pt,draw,fill=black!50!white] (1.825,0.1) -- (1.825,2.025) -- (1.9,2.025) -- (1.9,0.1) --cycle;
\draw[line width=0.2pt,draw,fill=black!50!white] (1.9,2) -- (2.5,2) -- (2.5,1.9) -- (1.9,1.9) --cycle;%分解槽支え
\draw[line width=0.2pt,draw,fill=black!75!white] (2,0.1) -- (2.4,0.1) -- (2.4,1.1) -- (2,1.1) --cycle;%マグネチックスターラー
\draw[line width=0.2pt,draw,fill=black!50!white] (2,2.5) -- (2.4,2.5) -- (2.4,2.8) -- (2,2.8) --cycle;%ゴム栓下
\draw[line width=0.2pt] (2,2.7) -- (2.4,2.7);
\draw (-0.025,4.5) -- (-0.4,4.5) node[left] {水準管};
\draw (1.175,5.8) -- (0.55,6.45) node[anchor=south east] {ガスビュレット};
\draw (2.425,2.35) -- (3,3.75) node[right] {過酸化水素分解槽};
\draw (3.1,1) -- (4.6,2) node[right] {恒温槽};
\end{tikzpicture}

\end{document}