最近想用TikZ画一下化学中的一些器材，通过参考latex-glassware和tikz-labo实现了试管、烧瓶等的绘制。

现有一个疑惑，当给scope传入rotate旋转参数后，也会造成液面的统一旋转，从而无法保持液面的水平状态。

一个简单的想法是在scope内能取得传入rotate旋转角度，然后对溶液和液面椭圆进行反向旋转。

为验证想法，用45度进行了测试，反旋转可以实现液面保持水平。

但是，没有找到如何在scope内获取rotate旋转角度的方法，各位网友可否指点一二？

目前的绘制结果为：

实现的MWE为：

\documentclass[margin=3pt,
  convert,
  convert={
    outext=.png,
    command=\unexpanded{
      pdftocairo -r 600 -png \infile % 将生成的pdf文件转换为png图像
    }
  }
  ]{standalone}
\usepackage{ctex}
\usepackage{ifthen}
\newcommand{\ifnonzero}[2]{
 \ifthenelse{\equal{#1}{0}}{}{#2}
}
% \usepackage{calc}
\usepackage{tikz}
\usetikzlibrary{calc}
\usetikzlibrary{intersections}
% 烧瓶
% 根据梯形面积等分刻度
% 用定积分法计算等分线：
% 瓶底半径：1
% 瓶口半径：0.25
% 高度：2(不含颈部)
% 顺时针转90度，用两点公式写出直线方程：y=(-3/8)*x + 1
% 求积分：(-3/16)*x*x + x
% 0-2定积分得总面积为：5/4
% 根据传入的#3比例参数，确定当前面积为：#3 * 5 / 4
% 解方程：(-3/16)*x*x + x - #3 * 5 / 4 = 0
% 可得用于绘制的液面高度
\newcommand{\flask}[3][]{
  \begin{scope}[shift={(#2)},glassware,#1]
    % 方程系数
    \pgfmathsetmacro{\a}{-3/16}
    \pgfmathsetmacro{\b}{1}
    \pgfmathsetmacro{\m}{-1 * \b / (2 * \a)}
    % 液面系数为不0
    \ifnonzero{#3}{
      % 烧瓶外框路径，并构成裁剪区域
      \clip[rounded corners, name path = P1] (-0.4, 3)--++(0.15,-0.1)
        --++(0,-0.9)--++(-0.75, -2.0)to[bend right=10pt]++(2.0, 0.0)--++(-0.75, 2.0)
        --++(0.0, 0.9)--++(0.15, 0.10)
        ++(-0.4, 0.0) circle [x radius=0.4, y radius=0.065]--cycle;%  
      % 计算液面高度
      \pgfmathsetmacro{\c}{-1 * #3 * 5 / 4}
      \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
      \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
      \pgfmathsetmacro{\i}{\m - \n}
      % 绘制液面矩形并被烧瓶裁剪
      % TODO：如何获得给scope转入的rotate旋转参数
      %       从而进行反旋转以保持液面水平？
      \fill[name path=P2] (-1.0, -3.5pt) rectangle (1.0, \i);
      % 绘制液面椭圆标志
      % 求交点
      \path [name intersections={of=P1 and P2, by={E,F}}];
      % 计算中点
      \node (M) at ($(E)!0.5!(F)$){};
      % 计算半径并绘制液面椭圆标志
      \fill[draw=white, very thin] (E) let \p1 = ($(M)-(E)$),
                                           \n2 = {veclen(\x1,\y1)}
        in ++(\n2, 0) circle[x radius = \n2, y radius = 2.5pt];
    }
    % 绘制刻度线(用积分法计算出刻度位置)
    \pgfmathtruncatemacro{\lticklable}{1}
    % 计算刻度位置
    \pgfmathsetmacro{\c}{-1 * 5 / 24}
    \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
    \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
    \pgfmathsetmacro{\i}{\m - \n}
    % 多带带处理第1个坐标刻度，以便在循环中可以处理大刻度(mod 5运算)
    \draw (-0.1, \i)--(0.1, \i) node[right, xshift=-3pt](\lticklable){\tiny{}\lticklable};      
    \foreach \y[count=\x] in {6,7,...,25}% 刻度位置占有单位面积数
    {
      \pgfmathsetmacro{\c}{-1 * \y / 24}
      \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
      \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
      \pgfmathsetmacro{\i}{\m - \n}    
      \pgfmathtruncatemacro{\ltick}{mod(\x, 5)}
      \ifnum\ltick=0
        \pgfmathtruncatemacro{\lticklable}{\x / 5 + 1}
        \draw (-0.1,\i)--(0.1,\i) node[right, xshift=-3pt](\lticklable){\tiny{}\lticklable};
      \else
        \draw (-0.05,\i)--(0.05,\i);
      \fi
    }
    % 绘制烧瓶外框
    \draw[rounded corners] (-0.4, 3)--++(0.15,-0.1)
      --++(0,-0.9)--++(-0.75, -2.0)to[bend right=10pt]++(2.0, 0.0)--++(-0.75, 2.0)
      --++(0.0, 0.9)--++(0.15, 0.10)
      ++(-0.4, 0.0) circle [x radius=0.4, y radius=0.065]--cycle;%  
  \end{scope}
}
\newcommand{\iflask}[3][]{
  \begin{scope}[shift={(#2)},glassware,#1]
    % 方程系数
    \pgfmathsetmacro{\a}{-3/16}
    \pgfmathsetmacro{\b}{1}
    \pgfmathsetmacro{\m}{-1 * \b / (2 * \a)}
    % 液面系数为不0
    \ifnonzero{#3}{
      % 烧瓶外框路径，并构成裁剪区域
      \clip[rounded corners, name path = P1] (-0.4, 3)--++(0.15,-0.1)
        --++(0,-0.9)--++(-0.75, -2.0)to[bend right=10pt]++(2.0, 0.0)--++(-0.75, 2.0)
        --++(0.0, 0.9)--++(0.15, 0.10)
        ++(-0.4, 0.0) circle [x radius=0.4, y radius=0.065]--cycle;%  
      % 计算液面高度
      \pgfmathsetmacro{\c}{-1 * #3 * 5 / 4}
      \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
      \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
      \pgfmathsetmacro{\i}{\m - \n}
      % 绘制液面矩形并被烧瓶裁剪
      % 旋转
      \fill[rotate=45,name path=P2] (-3.0, -25pt) rectangle (3.0, \i);
      % 绘制液面椭圆标志
      % 反向旋转45度
      \path [name intersections={of=P1 and P2, by={E,F}}];
      % 计算中点
      \node (M) at ($(E)!0.5!(F)$){};
      % 计算半径并绘制液面椭圆标志
      % 反向旋转45度
      \fill[rotate = 45, draw=white, very thin] (E) let \p1 = ($(M)-(E)$),
                                           \n2 = {veclen(\x1,\y1)}
        in ++(\n2, 0) circle[x radius = \n2, y radius = 2.5pt];
    }
    % 绘制刻度线(用积分法计算出刻度位置)
    \pgfmathtruncatemacro{\lticklable}{1}
    % 计算刻度位置
    \pgfmathsetmacro{\c}{-1 * 5 / 24}
    \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
    \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
    \pgfmathsetmacro{\i}{\m - \n}
    % 多带带处理第1个坐标刻度，以便在循环中可以处理大刻度(mod 5运算)
    \draw (-0.1, \i)--(0.1, \i) node[right, xshift=-3pt](\lticklable){\tiny{}\lticklable};      
    \foreach \y[count=\x] in {6,7,...,25}% 刻度位置占有单位面积数
    {
      \pgfmathsetmacro{\c}{-1 * \y / 24}
      \pgfmathsetmacro{\delta}{\b * \b - 4 * \a * \c}
      \pgfmathsetmacro{\n}{sqrt(abs(\delta)) / (2 * abs(\a))}
      \pgfmathsetmacro{\i}{\m - \n}    
      \pgfmathtruncatemacro{\ltick}{mod(\x, 5)}
      \ifnum\ltick=0
        \pgfmathtruncatemacro{\lticklable}{\x / 5 + 1}
        \draw (-0.1,\i)--(0.1,\i) node[right, xshift=-3pt](\lticklable){\tiny{}\lticklable};
      \else
        \draw (-0.05,\i)--(0.05,\i);
      \fi
    }
    % 绘制烧瓶外框
    \draw[rounded corners] (-0.4, 3)--++(0.15,-0.1)
      --++(0,-0.9)--++(-0.75, -2.0)to[bend right=10pt]++(2.0, 0.0)--++(-0.75, 2.0)
      --++(0.0, 0.9)--++(0.15, 0.10)
      ++(-0.4, 0.0) circle [x radius=0.4, y radius=0.065]--cycle;%  
  \end{scope}
}
\begin{document}
\begin{tikzpicture}
  \tikzstyle{glassware} = [fill=magenta!15]
  \flask{0,0}{0.50}
  \flask[rotate=45]{4,0.5}{0.80}
  \iflask[rotate=-45]{6,0.5}{0.60}
\end{tikzpicture}
\end{document}