%\NeedsTeXFormat{LaTeX2e}
%\typeout{Option Style‘qbgraph’2005 July 29 by T. Moonlight}
%\typeout{......................main style +qbgraph++++++++++}
\typeout{                       sub style         +qbgraphh+ line or angle mark}
%
%線分にマークを打つ
\newcommand{\qbparallelmark}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qbdart{#1}{#2}{\tmpMx}{\tmpMy}}%
\newcommand{\qbparallelmarkk}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#3}{#4}{1.5}{\tmpLMx}{\tmpLMy}
   \qbdart{#1}{#2}{\tmpLMx}{\tmpLMy}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#1}{#2}{1.5}{\tmpLMx}{\tmpLMy}
   \qbdart{#1}{#2}{\tmpLMx}{\tmpLMy}}%
\newcommand{\qbparallelmarkkk}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qbdart{#1}{#2}{\tmpMx}{\tmpMy}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#3}{#4}{2}{\tmpLMx}{\tmpLMy}
   \qbdart{#1}{#2}{\tmpLMx}{\tmpLMy}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#1}{#2}{2}{\tmpLMx}{\tmpLMy}
   \qbdart{#1}{#2}{\tmpLMx}{\tmpLMy}}%
\newcommand{\qblinemark}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qblineseparatx{\tmpMx}{\tmpMy}{#3}{#4}{2}}%
\newcommand{\qblinemarkk}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#3}{#4}{1}{\tmpLMx}{\tmpLMy}
   \qblineseparatx{\tmpLMx}{\tmpLMy}{#3}{#4}{2}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#1}{#2}{1}{\tmpLMx}{\tmpLMy}
   \qblineseparatx{\tmpLMx}{\tmpLMy}{#1}{#2}{2}}%
\newcommand{\qblinemarkkk}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMx}{\tmpMy}%
   \qblineseparatx{\tmpMx}{\tmpMy}{#3}{#4}{2}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#3}{#4}{1.5}{\tmpLMx}{\tmpLMy}
   \qblineseparatx{\tmpLMx}{\tmpLMy}{#3}{#4}{2}%
   \qbmovepointminix{\tmpMx}{\tmpMy}{#1}{#2}{1.5}{\tmpLMx}{\tmpLMy}
   \qblineseparatx{\tmpLMx}{\tmpLMy}{#1}{#2}{2}}%
\newcommand{\qblinemarkb}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointb}
\newcommand{\qblinemarkB}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointB}
\newcommand{\qblinemarko}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointo}
\newcommand{\qblinemarkO}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointO}
\newcommand{\qblinemarkOo}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointOo}
\newcommand{\qblinemarkx}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointx}
\newcommand{\qblinemarkX}[4]{\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpx}{\tmpy}\qbtmppointX}
% 中点を表す線分上の二つのマーク
\newcommand{\qbmidpointlinemark}[4]{
\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMPx}{\tmpMPy}
\qblinemark{#1}{#2}{\tmpMPx}{\tmpMPy}
\qblinemark{#3}{#4}{\tmpMPx}{\tmpMPy}
}
\newcommand{\qbmidpointlinemarkb}[4]{
\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMPx}{\tmpMPy}
\qblinemarkb{#1}{#2}{\tmpMPx}{\tmpMPy}
\qblinemarkb{#3}{#4}{\tmpMPx}{\tmpMPy}
}
\newcommand{\qbmidpointlinemarko}[4]{
\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMPx}{\tmpMPy}
\qblinemarko{#1}{#2}{\tmpMPx}{\tmpMPy}
\qblinemarko{#3}{#4}{\tmpMPx}{\tmpMPy}
}
\newcommand{\qbmidpointlinemarkx}[4]{
\qbgetmidpoint{#1}{#2}{#3}{#4}{\tmpMPx}{\tmpMPy}
\qblinemarkx{#1}{#2}{\tmpMPx}{\tmpMPy}
\qblinemarkx{#3}{#4}{\tmpMPx}{\tmpMPy}
}

%角にマークを打つ
\newcommand{\qbanglmarkpoint}[6]{
\rval=#1pt\rval=#2pt\rval=#3pt\rval=#4pt\rval=#5pt\rval=#6pt
\qbdist{#1}{#2}{#3}{#4}{\tmpLP}
\qbdist{#3}{#4}{#5}{#6}{\tmpLQ} %\typeout{LP=\tmpLP,LQ=\tmpLQ}
\Sub{#1}{#3}{\tmpvpx} \Div{\tmpvpx}{\tmpLP}{\tmpvpx}% \Add{#3}{\tmpvpx}{\tmpPx}
\Sub{#2}{#4}{\tmpvpy} \Div{\tmpvpy}{\tmpLP}{\tmpvpy}% \Add{#4}{\tmpvpy}{\tmpPy}
\Sub{#5}{#3}{\tmpvqx} \Div{\tmpvqx}{\tmpLQ}{\tmpvqx}% \Add{#3}{\tmpvqx}{\tmpQx}
\Sub{#6}{#4}{\tmpvqy} \Div{\tmpvqy}{\tmpLQ}{\tmpvqy}% \Add{#4}{\tmpvqy}{\tmpQy}
\qbdist{\tmpvpx}{\tmpvpy}{\tmpvqx}{\tmpvqy}{\tmpLB}
\Add{\tmpvpx}{\tmpvqx}{\tmpvpx}
\Add{\tmpvpy}{\tmpvqy}{\tmpvpy}
\qbdist{0}{0}{\tmpvpx}{\tmpvpy}{\tmpLP}
\Div{\tmpvpx}{\tmpLP}{\tmpvpx}
\Div{\tmpvpy}{\tmpLP}{\tmpvpy}
\tmpUnitL=\unitlength
\qbdef{10}{\tmpptsize}
\ifdim \tmpLB pt>1 pt \qbdef{10}{\tmpptsize} \fi
\ifdim \tmpLB pt<0.5 pt \qbdef{13}{\tmpptsize} \fi
\ifdim \tmpLB pt<0.4 pt \qbdef{17}{\tmpptsize} \fi
\ifdim \tmpLB pt<0.3 pt \qbdef{20}{\tmpptsize} \fi
\Div{\tmpptsize}{\strip@pt\tmpUnitL}{\tmpptsize}
\Mul{\tmpvpx}{\tmpptsize}{\tmpvpx}
\Mul{\tmpvpy}{\tmpptsize}{\tmpvpy}
\Add{#3}{\tmpvpx}{\tmpx}
\Add{#4}{\tmpvpy}{\tmpy}
}
\newcommand{\qbanglmarkpointt}[7]{
\rval=#1pt\rval=#2pt\rval=#3pt\rval=#4pt\rval=#5pt\rval=#6pt
\qbdist{#1}{#2}{#3}{#4}{\tmpLP}
\qbdist{#3}{#4}{#5}{#6}{\tmpLQ} %\typeout{LP=\tmpLP,LQ=\tmpLQ}
\Sub{#1}{#3}{\tmpvpx} \Div{\tmpvpx}{\tmpLP}{\tmpvpx}% \Add{#3}{\tmpvpx}{\tmpPx}
\Sub{#2}{#4}{\tmpvpy} \Div{\tmpvpy}{\tmpLP}{\tmpvpy}% \Add{#4}{\tmpvpy}{\tmpPy}
\Sub{#5}{#3}{\tmpvqx} \Div{\tmpvqx}{\tmpLQ}{\tmpvqx}% \Add{#3}{\tmpvqx}{\tmpQx}
\Sub{#6}{#4}{\tmpvqy} \Div{\tmpvqy}{\tmpLQ}{\tmpvqy}% \Add{#4}{\tmpvqy}{\tmpQy}
\Add{\tmpvpx}{\tmpvqx}{\tmpvpx}
\Add{\tmpvpy}{\tmpvqy}{\tmpvpy}
\qbdist{0}{0}{\tmpvpx}{\tmpvpy}{\tmpLP}
\Div{\tmpvpx}{\tmpLP}{\tmpvpx}
\Div{\tmpvpy}{\tmpLP}{\tmpvpy}
\tmpUnitL=\unitlength
\qbdef{#7}{\tmpptsize}
\Div{\tmpptsize}{\strip@pt\tmpUnitL}{\tmpptsize}
\Mul{\tmpvpx}{\tmpptsize}{\tmpvpx}
\Mul{\tmpvpy}{\tmpptsize}{\tmpvpy}
\Add{#3}{\tmpvpx}{\tmpx}
\Add{#4}{\tmpvpy}{\tmpy}
}
%
\newcommand{\qbangllabel}[7]{
\qbdist{#3}{#4}{#1}{#2}{\tmpLP}
\qbdist{#3}{#4}{#5}{#6}{\tmpLQ} %\typeout{LP=\tmpLP,LQ=\tmpLQ}
\Sub{#1}{#3}{\tmpvpx} \Div{\tmpvpx}{\tmpLP}{\tmpvpx}% \Add{#3}{\tmpvpx}{\tmpPx}
\Sub{#2}{#4}{\tmpvpy} \Div{\tmpvpy}{\tmpLP}{\tmpvpy}% \Add{#4}{\tmpvpy}{\tmpPy}
\Sub{#5}{#3}{\tmpvqx} \Div{\tmpvqx}{\tmpLQ}{\tmpvqx}% \Add{#3}{\tmpvqx}{\tmpQx}
\Sub{#6}{#4}{\tmpvqy} \Div{\tmpvqy}{\tmpLQ}{\tmpvqy}% \Add{#4}{\tmpvqy}{\tmpQy}
\qbdist{\tmpvpx}{\tmpvpy}{\tmpvqx}{\tmpvqy}{\tmpLB}
%
\tmpUnitL=\unitlength
\qbdef{4}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
%
\qbmovepointminix{#3}{#4}{#5}{#6}{16}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{16}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{22}{\tmpCMx}{\tmpCMy}
\ifdim \tmpLB pt> 1 pt \qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{18}{\tmpCMx}{\tmpCMy} \fi
\ifdim \tmpLB pt< 0.5 pt \qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{27}{\tmpCMx}{\tmpCMy} \fi
\ifdim \tmpLB pt< 0.4 pt \qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{33}{\tmpCMx}{\tmpCMy} \fi
\ifdim \tmpLB pt< 0.3 pt \qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{40}{\tmpCMx}{\tmpCMy} \fi
%\Sub{\tmpCMx}{\tmpGLV}{\tmpCMx}
%\Sub{\tmpCMy}{\tmpGLV}{\tmpCMy}
\qbputtxt{\tmpCMx}{\tmpCMy}{#7}
}
\newcommand{\qbangllabelx}[7]{
\tmpUnitL=\unitlength
\qbdef{4}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
\qbmovepointminix{#3}{#4}{#5}{#6}{16}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{16}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{25}{\tmpCMx}{\tmpCMy}
%\Sub{\tmpCMx}{\tmpGLV}{\tmpCMx}
%\Sub{\tmpCMy}{\tmpGLV}{\tmpCMy}
\qbputtxt{\tmpCMx}{\tmpCMy}{#7}
%\qbput(\tmpCMx,\tmpCMy)(#7)
}
\newcommand{\qbangllabelxx}[7]{
\tmpUnitL=\unitlength
\qbdef{4}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
\qbmovepointminix{#3}{#4}{#5}{#6}{16}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{16}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{30}{\tmpCMx}{\tmpCMy}
\qbputtxt{\tmpCMx}{\tmpCMy}{#7}
%\Sub{\tmpCMx}{\tmpGLV}{\tmpCMx}
%\Sub{\tmpCMy}{\tmpGLV}{\tmpCMy}
%\qbput(\tmpCMx,\tmpCMy)(#7)
}
%
\newcommand{\qbanglmarks}[6]{
\tmpUnitL=\unitlength
\qbdef{2}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
%12->8は失敗。再考を要する
\qbmovepointminix{#3}{#4}{#5}{#6}{12}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{12}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\loop
  \qbdist{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpGLv} %\typeout{\tmpGLv \tmpGLV}
  \ifdim \tmpGLv pt>\tmpGLV pt
    \qbrotpointminx{#3}{#4}{\tmprpx}{\tmprpy}{5}{12}{\tmprqx}{\tmprqy}
    \qbline{\tmprpx}{\tmprpy}{\tmprqx}{\tmprqy}
    \qbdefp{\tmprqx}{\tmprqy}{\tmprpx}{\tmprpy}
\repeat
\qbline{\tmprpx}{\tmprpy}{\tmprgx}{\tmprgy}
}
\newcommand{\qbanglmarksp}[7]{% 角を示す円弧、サイズを#7で3,4,5,6,...と指定できる。
\tmpUnitL=\unitlength %
\qbdef{1}{\tmpGLV}
\qbdef{3}{\tmpAML}\Mul{\tmpAML}{#7}{\tmpAML}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
%12->8は失敗。再考を要する。12->10は大丈夫。
\qbmovepointminix{#3}{#4}{#5}{#6}{\tmpAML}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{\tmpAML}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\loop
  \qbdist{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpGLv} %\typeout{\tmpGLv \tmpGLV}
  \ifdim \tmpGLv pt>\tmpGLV pt
    \qbrotpointminx{#3}{#4}{\tmprpx}{\tmprpy}{5}{\tmpAML}{\tmprqx}{\tmprqy}
    \qbline{\tmprpx}{\tmprpy}{\tmprqx}{\tmprqy}
    \qbdefp{\tmprqx}{\tmprqy}{\tmprpx}{\tmprpy}
\repeat
\qbline{\tmprpx}{\tmprpy}{\tmprgx}{\tmprgy}
}
%
\newcommand{\qbanglmark}[6]{
\tmpUnitL=\unitlength
\qbdef{2}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
\qbmovepointminix{#3}{#4}{#5}{#6}{16}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{16}{\tmprpx}{\tmprpy}
\qbgetmidpoint{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpAMx}{\tmpAMy}
\qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{12}{\tmpBMx}{\tmpBMy}
\qbmovepointminix{#3}{#4}{\tmpAMx}{\tmpAMy}{20}{\tmpCMx}{\tmpCMy}
\qbline{\tmpCMx}{\tmpCMy}{\tmpBMx}{\tmpBMy}
\loop
  \qbdist{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpGLv} %\typeout{\tmpGLv \tmpGLV}
  \ifdim \tmpGLv pt>\tmpGLV pt
    \qbrotpointminx{#3}{#4}{\tmprpx}{\tmprpy}{5}{16}{\tmprqx}{\tmprqy}
    \qbline{\tmprpx}{\tmprpy}{\tmprqx}{\tmprqy}
    \qbdefp{\tmprqx}{\tmprqy}{\tmprpx}{\tmprpy}
\repeat
\qbline{\tmprpx}{\tmprpy}{\tmprgx}{\tmprgy}
}
\newcommand{\qbanglmarkk}[6]{
\tmpUnitL=\unitlength
\qbdef{2}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
\qbmovepointminix{#3}{#4}{#5}{#6}{15}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{15}{\tmprpx}{\tmprpy}
\qbmovepointminix{#3}{#4}{#5}{#6}{17}{\tmprgxx}{\tmprgyy}
\qbmovepointminix{#3}{#4}{#1}{#2}{17}{\tmprpxx}{\tmprpyy}
\loop
  \qbdist{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpGLv} %\typeout{\tmpGLv \tmpGLV}
  \ifdim \tmpGLv pt>\tmpGLV pt
    \qbrotpointminx{#3}{#4}{\tmprpx}{\tmprpy}{5}{15}{\tmprqx}{\tmprqy}
    \qbrotpointminx{#3}{#4}{\tmprpxx}{\tmprpyy}{5}{17}{\tmprqxx}{\tmprqyy}
    \qbline{\tmprpx}{\tmprpy}{\tmprqx}{\tmprqy}
    \qbline{\tmprpxx}{\tmprpyy}{\tmprqxx}{\tmprqyy}
    \qbdefp{\tmprqx}{\tmprqy}{\tmprpx}{\tmprpy}
    \qbdefp{\tmprqxx}{\tmprqyy}{\tmprpxx}{\tmprpyy}
\repeat
\qbline{\tmprpx}{\tmprpy}{\tmprgx}{\tmprgy}
\qbline{\tmprpxx}{\tmprpyy}{\tmprgxx}{\tmprgyy}
}
\newcommand{\qbanglmarkkk}[6]{
\tmpUnitL=\unitlength
\qbdef{2}{\tmpGLV}
\Div{\tmpGLV}{\strip@pt\tmpUnitL}{\tmpGLV}
\qbmovepointminix{#3}{#4}{#5}{#6}{16}{\tmprgx}{\tmprgy}
\qbmovepointminix{#3}{#4}{#1}{#2}{16}{\tmprpx}{\tmprpy}
\qbmovepointminix{#3}{#4}{#5}{#6}{18}{\tmprgxx}{\tmprgyy}
\qbmovepointminix{#3}{#4}{#1}{#2}{18}{\tmprpxx}{\tmprpyy}
\qbmovepointminix{#3}{#4}{#5}{#6}{14}{\tmprgxxx}{\tmprgyyy}
\qbmovepointminix{#3}{#4}{#1}{#2}{14}{\tmprpxxx}{\tmprpyyy}
\loop
  \qbdist{\tmprgx}{\tmprgy}{\tmprpx}{\tmprpy}{\tmpGLv} %\typeout{\tmpGLv \tmpGLV}
  \ifdim \tmpGLv pt>\tmpGLV pt
    \qbrotpointminx{#3}{#4}{\tmprpx}{\tmprpy}{5}{16}{\tmprqx}{\tmprqy}
    \qbrotpointminx{#3}{#4}{\tmprpxx}{\tmprpyy}{5}{18}{\tmprqxx}{\tmprqyy}
    \qbrotpointminx{#3}{#4}{\tmprpxxx}{\tmprpyyy}{5}{14}{\tmprqxxx}{\tmprqyyy}
    \qbline{\tmprpx}{\tmprpy}{\tmprqx}{\tmprqy}
    \qbline{\tmprpxx}{\tmprpyy}{\tmprqxx}{\tmprqyy}
    \qbline{\tmprpxxx}{\tmprpyyy}{\tmprqxxx}{\tmprqyyy}
    \qbdefp{\tmprqx}{\tmprqy}{\tmprpx}{\tmprpy}
    \qbdefp{\tmprqxx}{\tmprqyy}{\tmprpxx}{\tmprpyy}
    \qbdefp{\tmprqxxx}{\tmprqyyy}{\tmprpxxx}{\tmprpyyy}
\repeat
\qbline{\tmprpx}{\tmprpy}{\tmprgx}{\tmprgy}
\qbline{\tmprpxx}{\tmprpyy}{\tmprgxx}{\tmprgyy}
\qbline{\tmprpxxx}{\tmprpyyy}{\tmprgxxx}{\tmprgyyy}
}
\newcommand{\qbanglmarkp}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppoint}
\newcommand{\qbanglmarkb}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointb}
\newcommand{\qbanglmarkB}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointB}
\newcommand{\qbanglmarko}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointo}
\newcommand{\qbanglmarkO}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointO}
\newcommand{\qbanglmarkOo}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointOo}
\newcommand{\qbanglmarkx}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointx}
\newcommand{\qbanglmarkX}[6]{\qbanglmarkpoint{#1}{#2}{#3}{#4}{#5}{#6}\qbtmppointX}
\newcommand{\qbanglmarkt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppoint}
\newcommand{\qbanglmarkbt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointb}
\newcommand{\qbanglmarkBt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointB}
\newcommand{\qbanglmarkot}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointo}
\newcommand{\qbanglmarkOt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointO}
\newcommand{\qbanglmarkOot}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointOo}
\newcommand{\qbanglmarkxt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}\qbtmppointx}
\newcommand{\qbanglmarkXt}[7]{\qbanglmarkpointt{#1}{#2}{#3}{#4}{#5}{#6}{#7}qbtmppointX}
%
\endinput
% ここまでがマクロ。以下例文。