<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%表題   GRPH1 基本グラフィックルーチンライブラリ
%
%履歴
%\Drireki{
%         94/09/28 酒井敏
%        }
%
\section{サブルーチンの説明 : ポリマーカープリミティブ}
\label{scpack.pmark}

マーカー列の図形出力(polymarker primitive)に関するサブルーチン群.
% 使用例については\ref{sc.sgpmu}節参照.

\vspace{1em}
\GLPGETSET が管理する内部変数{\tt 'LMISS'}を{\tt .TRUE.}にすると
欠損値処理をおこなう.
つまり欠損値の点にはマーカーを打たない.

\vspace{1em}
また, 内部変数{\tt 'NPMSKIP'}(\ref{sgpack.cntl.sgpget}節参照)を
変更することによって何点かに1個の割合で
マーカーを描くこともできる.

%-----------------------------------------------------------------------
\subsection{SCPMZU/SCPMZV}
%\label{scpack.pmark.scpmzu}
\begin{enumerate}
  \item 機能
  \begin{quote}
        U/V座標系でマーカー列を描く. 属性も同時に指定する.
  \end{quote}
  \item 呼び出し方法
  \begin{quote}
    {\tt CALL SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)} \\
    {\tt CALL SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)} \\
  \end{quote}
  \item パラメーターの説明
  \begin{quote}
    \begin{tabular}{llp{10cm}}
      {\tt N} &amp; {\tt (I)} &amp; 配列{\tt UPX}, {\tt UPY}, {\tt UPZ}の長さ. \\
      {\tt UPX}, {\tt UPY}, {\tt UPZ} &amp; {\tt (R)} &amp; 長さ{\tt N}の配列.
        マーカーを打つ点のU座標系における(X, Y, Z)座標の値を与える. \\
      {\tt VPX}, {\tt VPY}, {\tt VPZ} &amp; {\tt (R)} &amp; 長さ{\tt N}の配列.
        マーカーを打つ点のV座標系における(X, Y, Z)座標の値を与える. \\
      {\tt ITYPE} &amp; {\tt (I)} &amp; マーカータイプ. {\tt SCSPMT}参照. \\
      {\tt INDEX} &amp; {\tt (I)} &amp; マーカーのラインインデクス.
				{\tt SCSPMI}参照. \\
      {\tt RSIZE} &amp; {\tt (R)} &amp; マーカーのサイズ. {\tt SCSPMS}参照.
    \end{tabular}
  \end{quote}
  \item 備考
  \begin{enumerate}
    \item {\tt N}は1以上でなければならない.
    \item ここで指定した{\tt ITYPE}, {\tt INDEX}, {\tt RSIZE}は,
      {\tt SCPMU}, {\tt SCPMV} が参照する
      {\tt ITYPE}, {\tt INDEX}, {\tt RSIZE}を変更しない.
  \end{enumerate}
\end{enumerate}

%-----------------------------------------------------------------------
\subsection{SCPMU/SCPMV}
%\label{scpack.pmark.scpmu}
\begin{enumerate}
  \item 機能
  \begin{quote}
    U/V座標系でマーカー列を描く.
  \end{quote}
  \item 呼び出し方法
  \begin{quote}
    {\tt CALL SCPMU(N,UPX,UPY,UPZ)} \\
    {\tt CALL SCPMV(N,VPX,VPY,VPZ)} \\
  \end{quote}
  \item パラメーターの説明
  \begin{quote}
    \begin{tabular}{llp{10cm}}
      {\tt N} &amp; {\tt (I)} &amp; 配列{\tt UPX}, {\tt UPY}, {\tt UPZ} の長さ. \\
      {\tt UPX}, {\tt UPY}, {\tt UPZ} &amp; {\tt (R)} &amp; 長さ{\tt N}の配列.
        マーカーを打つ点のU座標系における(X, Y, Z)座標の値を与える. \\
      {\tt VPX}, {\tt VPY}, {\tt VPZ} &amp; {\tt (R)} &amp; 長さ{\tt N}の配列.
        マーカーを打つ点のV座標系における(X, Y, Z)座標の値を与える. \\
    \end{tabular}
  \end{quote}
  \item 備考
  \begin{enumerate}
    \item {\tt N}は1以上でなければならない.
    \item 描くマーカーの属性は
      {\tt SCSPMT}, {\tt SCSPMI}, {\tt SCSPMS}で設定する.
  \end{enumerate}
\end{enumerate}

%-----------------------------------------------------------------------
\subsection{SCSPMT}
%\label{scpack.pmark.scspmt}
\begin{enumerate}
  \item 機能
  \begin{quote}
    {\tt SCPMU}, {\tt SCPMV} で描くマーカータイプを設定する.
  \end{quote}
  \item 呼び出し方法
  \begin{quote}
    {\tt CALL SCSPMT(ITYPE)}
  \end{quote}
  \item パラメーターの説明
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt ITYPE} &amp; {\tt (I)} &amp; マーカータイプ(初期値は1).
        {\tt ITYPE}が1のとき'$\cdot$', 2のとき'$+$', 3のとき'$\ast$',
        4のとき'$\circ$'のように,
        DCL文字番号(\ref{sgpack.csgi}節および
        \ref{append.table.sgfont1}, \ref{append.table.sgfont2}節の
        フォントテーブル参照)に対応する文字を描く.
        たとえば{\tt ITYPE} = 152のとき, '$\alpha $'を描く.
    \end{tabular}
  \end{quote}
  \item 備考
  \begin{enumerate}
    \item {\tt ITYPE}は0以外でなければならない.
      ただし{\tt ITYPE}が0のとき, メッセージは出力されるがなにもしない.
    \item {\tt ITYPE}の妥当性はこのルーチンでチェックされず,
      {\tt SCPMU}, {\tt SCPMV} を呼んだときにチェックされる.
    \item 現在設定されているマーカータイプは
      \begin{quote}
        {\tt CALL SCQPMT(ITYPE)}
      \end{quote}
      によって参照できる.
  \end{enumerate}
\end{enumerate}

%-----------------------------------------------------------------------
\subsection{SCSPMI}
%\label{scpack.pmark.scspmi}
\begin{enumerate}
  \item 機能
  \begin{quote}
    {\tt SCPMU}, {\tt SCPMV} で描くマーカーの
    ラインインデクスを設定する.
  \end{quote}
  \item 呼び出し方法
  \begin{quote}
    {\tt CALL SCSPMI(INDEX)}
  \end{quote}
  \item パラメーターの説明
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt INDEX} &amp; {\tt (I)} &amp; マーカーを描く線のラインインデクス
        (\ref{gaiyou.outp}節参照;初期値は1).
    \end{tabular}
  \end{quote}
  \item 備考
  \begin{enumerate}
    \item {\tt INDEX}は1以上でなければならない.
      ただし{\tt INDEX}が0のとき, メッセージは出力されるがなにもしない.
    \item {\tt INDEX}の妥当性はこのルーチンでチェックされず,
      {\tt SCPMU}, {\tt SCPMV} を呼んだときにチェックされる.
    \item 現在設定されているマーカーのラインインデクスは
      \begin{quote}
        {\tt CALL SCQPMI(INDEX)}
      \end{quote}
      によって参照できる.
  \end{enumerate}
\end{enumerate}

%-----------------------------------------------------------------------
\subsection{SCSPMS}
%\label{scpack.pmark.scspms}
\begin{enumerate}
  \item 機能
  \begin{quote}
    {\tt SCPMU}, {\tt SCPMV} で描くマーカーの大きさを設定する.
  \end{quote}
  \item 呼び出し方法
  \begin{quote}
    {\tt CALL SCSPMS(RSIZE)}
  \end{quote}
  \item パラメーターの説明
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt RSIZE} &amp; {\tt (R)} &amp; マーカーの大きさをR-座標系における
        単位で指定する(初期値は0.01).
    \end{tabular}
  \end{quote}
  \item 備考
  \begin{enumerate}
    \item {\tt RSIZE}は0より大きくなければならない.
      ただし{\tt RSIZE}が0のとき, メッセージは出力されるがなにもしない.
    \item {\tt RSIZE}の妥当性はこのルーチンでチェックされず,
      {\tt SCPMU}, {\tt SCPMV} を呼んだときにチェックされる.
    \item 現在設定されているマーカーの大きさは
      \begin{quote}
        {\tt CALL SCQPMS(RSIZE)}
      \end{quote}
      によって参照できる.
  \end{enumerate}
\end{enumerate}

\newpage
</pre></body></html>