- Fixed SICS up to run with up to three TRICS detectors.
- added 150 detectors the default for FOCUS middle bank. - added documentation for el734_test
This commit is contained in:
cvs
10
HistDriv.i
10
HistDriv.i
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
#line 468 "histogram.w"
|
#line 469 "histogram.w"
|
||||||
|
|
||||||
/*---------------------------------------------------------------------------
|
/*---------------------------------------------------------------------------
|
||||||
H I S T D R I V
|
H I S T D R I V
|
||||||
@ -13,7 +13,7 @@
|
|||||||
#define MAXCHAN 4096
|
#define MAXCHAN 4096
|
||||||
|
|
||||||
|
|
||||||
#line 81 "histogram.w"
|
#line 82 "histogram.w"
|
||||||
|
|
||||||
typedef struct __HistDriver {
|
typedef struct __HistDriver {
|
||||||
/* configuration data */
|
/* configuration data */
|
||||||
@ -77,17 +77,17 @@
|
|||||||
void *pPriv;
|
void *pPriv;
|
||||||
} HistDriver;
|
} HistDriver;
|
||||||
|
|
||||||
#line 480 "histogram.w"
|
#line 481 "histogram.w"
|
||||||
|
|
||||||
|
|
||||||
#line 238 "histogram.w"
|
#line 239 "histogram.w"
|
||||||
|
|
||||||
pHistDriver CreateHistDriver(pStringDict pDict);
|
pHistDriver CreateHistDriver(pStringDict pDict);
|
||||||
void DeleteHistDriver(pHistDriver self);
|
void DeleteHistDriver(pHistDriver self);
|
||||||
int HistDriverConfig(pHistDriver self, pStringDict pOpt,
|
int HistDriverConfig(pHistDriver self, pStringDict pOpt,
|
||||||
SConnection *pCon);
|
SConnection *pCon);
|
||||||
|
|
||||||
#line 481 "histogram.w"
|
#line 482 "histogram.w"
|
||||||
|
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
21
HistMem.h
21
HistMem.h
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
#line 441 "histogram.w"
|
#line 442 "histogram.w"
|
||||||
|
|
||||||
/*--------------------------------------------------------------------------
|
/*--------------------------------------------------------------------------
|
||||||
H I S T M E M
|
H I S T M E M
|
||||||
@ -28,10 +28,11 @@
|
|||||||
eHNormal,
|
eHNormal,
|
||||||
eHTOF,
|
eHTOF,
|
||||||
eHStrobo,
|
eHStrobo,
|
||||||
eHRPT
|
eHRPT,
|
||||||
|
ePSD
|
||||||
} HistMode;
|
} HistMode;
|
||||||
|
|
||||||
#line 33 "histogram.w"
|
#line 34 "histogram.w"
|
||||||
|
|
||||||
typedef enum {
|
typedef enum {
|
||||||
eOIgnore,
|
eOIgnore,
|
||||||
@ -40,22 +41,22 @@
|
|||||||
eReflect
|
eReflect
|
||||||
} OverFlowMode;
|
} OverFlowMode;
|
||||||
|
|
||||||
#line 461 "histogram.w"
|
#line 462 "histogram.w"
|
||||||
|
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
|
|
||||||
#line 302 "histogram.w"
|
#line 303 "histogram.w"
|
||||||
|
|
||||||
pHistMem CreateHistMemory(char *drivername);
|
pHistMem CreateHistMemory(char *drivername);
|
||||||
void DeleteHistMemory(void *self);
|
void DeleteHistMemory(void *self);
|
||||||
|
|
||||||
#line 318 "histogram.w"
|
#line 319 "histogram.w"
|
||||||
|
|
||||||
int HistGetOption(pHistMem self, char *name, char *result, int iResultLen);
|
int HistGetOption(pHistMem self, char *name, char *result, int iResultLen);
|
||||||
int HistSetOption(pHistMem self, char *name, char *value);
|
int HistSetOption(pHistMem self, char *name, char *value);
|
||||||
int HistConfigure(pHistMem self, SConnection *pCon, SicsInterp *pSics);
|
int HistConfigure(pHistMem self, SConnection *pCon, SicsInterp *pSics);
|
||||||
|
|
||||||
#line 346 "histogram.w"
|
#line 347 "histogram.w"
|
||||||
|
|
||||||
float GetHistPreset(pHistMem self);
|
float GetHistPreset(pHistMem self);
|
||||||
int SetHistPreset(pHistMem self, float fVal);
|
int SetHistPreset(pHistMem self, float fVal);
|
||||||
@ -70,7 +71,7 @@
|
|||||||
int HistBlockCount(pHistMem self, SConnection *pCon);
|
int HistBlockCount(pHistMem self, SConnection *pCon);
|
||||||
|
|
||||||
|
|
||||||
#line 375 "histogram.w"
|
#line 376 "histogram.w"
|
||||||
|
|
||||||
int SetHistogram(pHistMem self, SConnection *pCon,
|
int SetHistogram(pHistMem self, SConnection *pCon,
|
||||||
int i,int iStart, int iEnd, HistInt *lData);
|
int i,int iStart, int iEnd, HistInt *lData);
|
||||||
@ -79,7 +80,7 @@
|
|||||||
HistInt *GetHistogramPointer(pHistMem self,SConnection *pCon);
|
HistInt *GetHistogramPointer(pHistMem self,SConnection *pCon);
|
||||||
int PresetHistogram(pHistMem self, SConnection *pCon, HistInt lVal);
|
int PresetHistogram(pHistMem self, SConnection *pCon, HistInt lVal);
|
||||||
|
|
||||||
#line 410 "histogram.w"
|
#line 411 "histogram.w"
|
||||||
|
|
||||||
int MakeHistMemory(SConnection *pCon, SicsInterp *pSics, void *pData,
|
int MakeHistMemory(SConnection *pCon, SicsInterp *pSics, void *pData,
|
||||||
int argc, char *argv[]);
|
int argc, char *argv[]);
|
||||||
@ -88,7 +89,7 @@
|
|||||||
int argc, char *argv[]);
|
int argc, char *argv[]);
|
||||||
|
|
||||||
|
|
||||||
#line 463 "histogram.w"
|
#line 464 "histogram.w"
|
||||||
|
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
#line 486 "histogram.w"
|
#line 487 "histogram.w"
|
||||||
|
|
||||||
/*---------------------------------------------------------------------------
|
/*---------------------------------------------------------------------------
|
||||||
H I S T M E M -- Internal
|
H I S T M E M -- Internal
|
||||||
@ -11,7 +11,7 @@
|
|||||||
#ifndef SICSHISTMEMINT
|
#ifndef SICSHISTMEMINT
|
||||||
#define SICSHISTMEMINT
|
#define SICSHISTMEMINT
|
||||||
|
|
||||||
#line 260 "histogram.w"
|
#line 261 "histogram.w"
|
||||||
|
|
||||||
typedef struct __HistMem {
|
typedef struct __HistMem {
|
||||||
pObjectDescriptor pDes;
|
pObjectDescriptor pDes;
|
||||||
@ -29,7 +29,7 @@
|
|||||||
int iUpdateIntervall;
|
int iUpdateIntervall;
|
||||||
} HistMem;
|
} HistMem;
|
||||||
|
|
||||||
#line 496 "histogram.w"
|
#line 497 "histogram.w"
|
||||||
|
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
2
danu.dat
2
danu.dat
@ -1,3 +1,3 @@
|
|||||||
7647
|
7665
|
||||||
NEVER, EVER modify or delete this file
|
NEVER, EVER modify or delete this file
|
||||||
You'll risk eternal damnation and a reincarnation as a cockroach!|n
|
You'll risk eternal damnation and a reincarnation as a cockroach!|n
|
||||||
723
doc/el734_test.tex
Normal file
723
doc/el734_test.tex
Normal file
@ -0,0 +1,723 @@
|
|||||||
|
% [...DOC.SINQ]EL734_TEST.TEX - Ident 1D02
|
||||||
|
% ===========================
|
||||||
|
%%
|
||||||
|
%%====================================================================
|
||||||
|
%%
|
||||||
|
%% +--------------------------------------------------------------+
|
||||||
|
%% | Paul Scherrer Institute |
|
||||||
|
%% | SINQ Division |
|
||||||
|
%% | |
|
||||||
|
%% | This software may be used freely by non-profit organizations.|
|
||||||
|
%% | It may be copied provided that the name of P.S.I. and of the |
|
||||||
|
%% | author is included. Neither P.S.I. nor the author assume any |
|
||||||
|
%% | responsibility for the use of this software outside of P.S.I.|
|
||||||
|
%% +--------------------------------------------------------------+
|
||||||
|
%%
|
||||||
|
%% Project . . . . . . . . . . : SINQ
|
||||||
|
%% Brief Document Title . . . . : Description of EL734 Step Motor Test Prog
|
||||||
|
%% Author . . . . . . . . . . . : D.Maden
|
||||||
|
%% Date of creation . . . . . . : 29-Jan-1996
|
||||||
|
%%
|
||||||
|
%% Updates:
|
||||||
|
%% 13-Nov-1996 DM. Vn 1D02 of program.
|
||||||
|
%%====================================================================
|
||||||
|
%%
|
||||||
|
\documentclass[openbib,a4paper,twoside,11pt]{article}
|
||||||
|
\usepackage{array}
|
||||||
|
%
|
||||||
|
\addtolength{\textheight}{35mm}
|
||||||
|
\setlength{\textwidth}{160mm}
|
||||||
|
\setlength{\oddsidemargin}{8mm}
|
||||||
|
\setlength{\evensidemargin}{-10mm}
|
||||||
|
\setlength{\topmargin}{-20mm}
|
||||||
|
%
|
||||||
|
\setcounter{tocdepth}{2}
|
||||||
|
%
|
||||||
|
\newcommand{\pdp}{\protect\makebox[3.7em][l]{PDP-11}}
|
||||||
|
\newcommand{\uvax}{\protect\makebox[4.8em][l]{microVAX}}
|
||||||
|
%
|
||||||
|
\newcounter{two} \setcounter{two}{2}
|
||||||
|
\newcommand{\uvaxii}{\protect\makebox[5.8em][l]{microVAX~\Roman{two}}}
|
||||||
|
\newcounter{three} \setcounter{three}{3}
|
||||||
|
\newcommand{\uvaxiii}{\protect\makebox[6.2em][l]{microVAX~\Roman{three}}}
|
||||||
|
%
|
||||||
|
\newcommand{\PreserveBackslash}[1]{\let\temp=\\#1\let\\=\temp}
|
||||||
|
\let\PBS=\PreserveBackslash % shorthand
|
||||||
|
%
|
||||||
|
% Define "\usc" to get a proper underscore!!
|
||||||
|
\newcommand{\usc}{\protect\makebox[0.6em]{\protect\rule{0.5em}{0.1ex}}}
|
||||||
|
%
|
||||||
|
\newcommand{\camac}{\protect\makebox[4.1em][l]{CAMAC}}
|
||||||
|
%
|
||||||
|
% Define insertplot is insert a PostScript plot.
|
||||||
|
% Usage:
|
||||||
|
% \insertplot{<file>}{<height>}{<left-margin>}
|
||||||
|
% Example:
|
||||||
|
% \insertplot{dvipsdoc.pal}{70mm}{5.0mm}
|
||||||
|
%
|
||||||
|
\def\insertplot#1#2#3{\par
|
||||||
|
\hbox{%
|
||||||
|
\hskip #3
|
||||||
|
\vbox to #2{
|
||||||
|
\vfil
|
||||||
|
\special{ps: plotfile #1}
|
||||||
|
}%
|
||||||
|
}
|
||||||
|
}
|
||||||
|
%
|
||||||
|
\title{EL734 Stepping Motor Test Program}
|
||||||
|
\author{D. Maden}
|
||||||
|
\date{12th November, 1996}
|
||||||
|
%
|
||||||
|
\begin{document}
|
||||||
|
\maketitle
|
||||||
|
\section{Introduction}
|
||||||
|
% ======================
|
||||||
|
%
|
||||||
|
This note describes the program {\bf el734{\usc}test}, which can be used to
|
||||||
|
test a stepping motor connected to an EL734 Stepping Motor Controller.
|
||||||
|
The current version of the program is {\em Ident 1D02}.
|
||||||
|
|
||||||
|
The program runs under either the Unix\footnote{So far, the program has been
|
||||||
|
tested only under the DEC version of Unix, i.e. {\em Digital Unix}.}
|
||||||
|
operating system or
|
||||||
|
the OpenVMS operating system. The program is normally invoked via a
|
||||||
|
simple command line from the console prompt and then runs to completion.
|
||||||
|
|
||||||
|
In the interests of simplicity, this note describes how to
|
||||||
|
run {\bf el734{\usc}test} on a Digital Unix workstation
|
||||||
|
when logged in as user ``lnsg''. It assumes that the shell being used
|
||||||
|
is {\em tcsh}. Once the correct environment has been defined, however,
|
||||||
|
the operation of the program is identical under both Unix and OpenVMS.
|
||||||
|
Notes specific to the OpenVMS implementation will be found in
|
||||||
|
Appendix~\ref{OpenVMS-Notes}.
|
||||||
|
%
|
||||||
|
\section{Hardware Configuration}
|
||||||
|
% ================================
|
||||||
|
%
|
||||||
|
Although other configurations are possible, it is assumed in this
|
||||||
|
description that the EL734 is connected via an asynchronous serial
|
||||||
|
line to a Macintosh (or PC) running a LabVIEW ``terminal server'' program.
|
||||||
|
This program is referred to as {\em TS} in the following. See ??? for
|
||||||
|
details of {\em TS}. A Description of how to start {\em TS} is given in
|
||||||
|
Appendix~\ref{TS-Notes}.
|
||||||
|
|
||||||
|
{\bf el734{\usc}test} accesses the EL734 via {\em TS} by
|
||||||
|
creating a TCP/IP network socket and opening a connection to it.
|
||||||
|
{\bf el734{\usc}test} is a so-called ``TCP/IP client'' and the LabVIEW
|
||||||
|
program
|
||||||
|
is a so-called ``TCP/IP server''. {\bf el734{\usc}test} buffers commands
|
||||||
|
for
|
||||||
|
the EL734 into packets which it sends to the terminal server via the socket.
|
||||||
|
The terminal server extracts the commands from each packet, executes them in
|
||||||
|
sequence and compiles the various responses from the EL734 into a response
|
||||||
|
packet which it then sends back to {\bf el734{\usc}test}. The details of
|
||||||
|
this
|
||||||
|
packet protocol are described elsewhere.
|
||||||
|
|
||||||
|
In order for {\bf el734{\usc}test} to be able to establish a connection to
|
||||||
|
the
|
||||||
|
terminal server, it is necessary to know the Internet host name
|
||||||
|
of the Macintosh or PC on which the terminal server program is running,
|
||||||
|
the Internet port number on which this program accepts
|
||||||
|
connections from its clients and the channel number of the asynchronous
|
||||||
|
serial line which is connected to the EL734.
|
||||||
|
|
||||||
|
The host name is usually indicated by a label on the Macintosh. The
|
||||||
|
following is the current list of LabVIEW host assignments:
|
||||||
|
%
|
||||||
|
\begin{center}\begin{tabular}{|c|c|c|c|} \hline
|
||||||
|
Host & Alias & Internet Address & Instrument \\
|
||||||
|
\hline
|
||||||
|
pswm18.psi.ch & lnsw02 & 129.129.90.18 & ? \\
|
||||||
|
? & lnsp22 & 129.129.90.172 & TOPSI \\
|
||||||
|
pswm60.psi.ch & lnsw15 & 129.129.90.60 & ? \\
|
||||||
|
\hline
|
||||||
|
\end{tabular}\end{center}
|
||||||
|
%
|
||||||
|
The default port number is 4000. The channel number is a small integer. A
|
||||||
|
value of zero for the channel number usually refers to
|
||||||
|
to the Macintosh's ``modem port''.
|
||||||
|
%
|
||||||
|
\section{Running {\bf el734{\usc}test}}
|
||||||
|
% =======================================
|
||||||
|
%
|
||||||
|
The startup files of the ``lnsg'' accounts are normally set up so that
|
||||||
|
{\bf el734{\usc}test} can be invoked merely by typing the command: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb# el734_test [options ...]# \\[1.0ex]
|
||||||
|
%
|
||||||
|
A list of the options recognised by the program can be
|
||||||
|
obtained by issuing the command: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb# el734_test -help# \\[1.0ex]
|
||||||
|
%
|
||||||
|
It generates the following information about the program:%
|
||||||
|
%
|
||||||
|
\begin{verbatim}
|
||||||
|
EL734 Motor Controller Test Program 1, Ident 1D02.
|
||||||
|
Started at Mon Nov 11 13:03:43 1996
|
||||||
|
My name is "el734_test"
|
||||||
|
|
||||||
|
Usage: el734_test [options ...]
|
||||||
|
|
||||||
|
Valid options are:
|
||||||
|
-help Generates this help text.
|
||||||
|
-? <option> Get detailed help on <option>.
|
||||||
|
-?res Get list of Xlib resources.
|
||||||
|
-?par Get help on EL734 parameters.
|
||||||
|
-host <host-name> Specify name of TCP/IP server.
|
||||||
|
-port <port-number> Specify its TCP/IP port number.
|
||||||
|
-chan <channel> Specify channel number of EL734.
|
||||||
|
-motor <index> Specify motor number (1 .. 12)
|
||||||
|
|
||||||
|
-id <device-id> Specify expected EL734 ID.
|
||||||
|
-tmo <secs> Specify time-out to wait for response.
|
||||||
|
-low <low-limit> Specify low limit for -ref, -step
|
||||||
|
and -rndm.
|
||||||
|
-high <high-limit> Specify high limit for -ref, -step
|
||||||
|
and -rndm.
|
||||||
|
-n <n-moves> Specify number of moves to make.
|
||||||
|
-seed <seed-value> Specify random number seed.
|
||||||
|
-verbose <wid> Specify "verbosity". Dflt = 10.
|
||||||
|
-wait <secs> Specify wait time between moves.
|
||||||
|
Parameter setting/saving options:
|
||||||
|
-limits <lo>/<hi> Set the Lo/Hi software limits.
|
||||||
|
-ur@ <pos> Set the current position to be <pos>.
|
||||||
|
-save <file> Read motor params and save to file.
|
||||||
|
-load <file> Read file and set motor params.
|
||||||
|
Positioning options:
|
||||||
|
-stop Stop the motor moving.
|
||||||
|
-position <target> Position the motor.
|
||||||
|
-random Perform <n-moves> random moves.
|
||||||
|
-saw Perform <n-moves> moves between -low
|
||||||
|
and -high
|
||||||
|
-step <step-size> Perform incremental moves from -low
|
||||||
|
to -high
|
||||||
|
-ff Fast forward to high software limit.
|
||||||
|
-fb Fast backward to low software limit.
|
||||||
|
-sf Slow forward to high software limit.
|
||||||
|
-sb Slow backward to low software limit.
|
||||||
|
-ref Perform reference seek.
|
||||||
|
-hunt Hunt for reference point.
|
||||||
|
|
||||||
|
-m is an abbreviation for -motor
|
||||||
|
-p is an abbreviation for -position
|
||||||
|
-lo is an abbreviation for -low
|
||||||
|
-hi is an abbreviation for -high
|
||||||
|
-rndm is an abbreviation for -random
|
||||||
|
-s is an abbreviation for -stop
|
||||||
|
|
||||||
|
No default is allowed for -host, -chan or -motor, i.e. values for
|
||||||
|
these parameters must be supplied either via a resource file or on
|
||||||
|
the command line. If <file> is specified as "-" or "=", standard
|
||||||
|
input or output will be used rather than a file.
|
||||||
|
|
||||||
|
When the program starts, the device identifier will be used to ensure
|
||||||
|
that an EL734 is being addressed. <device-id> defaults to "STPMC
|
||||||
|
EL734". Specifying "ignore" for <device-id> will suppress the ID
|
||||||
|
check.
|
||||||
|
|
||||||
|
The positioning options, i.e. -position, -ref, -hunt, -random, -saw,
|
||||||
|
-step, -ff, -fb, -sf and -sb are mutually exclusive. If neither a
|
||||||
|
positioning option nor a -save, -load, -stop, -ur@ nor -limits
|
||||||
|
option has been specified, "-save -" will be assumed.
|
||||||
|
|
||||||
|
Regardless of the order of options on the command line, -load will be
|
||||||
|
done before any positioning commands and -save will be done last.
|
||||||
|
|
||||||
|
A motor movement can be interrupted by hitting <Ctrl-C>.
|
||||||
|
\end{verbatim}%
|
||||||
|
%
|
||||||
|
\subsection{Options}
|
||||||
|
The various options recognised by the {\bf el734{\usc}test} program are
|
||||||
|
described in the following table. Note that the positioning options,
|
||||||
|
i.e. \verb#-position#, \verb#-ref#, \verb#-hunt#,
|
||||||
|
\verb#-random#, \verb#-saw#, \verb#-step#, \verb#-ff#, \verb#-fb#,
|
||||||
|
\verb#-sf# and \verb#-sb# as well as the \verb#-stop# option, are
|
||||||
|
mutually exclusive. If neither a positioning option nor a
|
||||||
|
\verb#-limits#, \verb#-save# nor \verb#-load# option
|
||||||
|
has been specified,
|
||||||
|
``\verb#-save -#'' will be assumed. \\[1.5ex]
|
||||||
|
%
|
||||||
|
\hspace*{3mm}\begin{tabular}{|p{40mm}@{}p{105mm}|} \hline
|
||||||
|
\verb#-? <option># & More detailed help about \verb#<option>#
|
||||||
|
will be given. \\ \hline
|
||||||
|
\verb#-?res# & Gives a list of option resource names. \\ \hline
|
||||||
|
\verb#-?par# & Gives a list of EL734 parameters. \\ \hline
|
||||||
|
\verb#-chan <channel># & \verb#<channel>#
|
||||||
|
specifies the serial port to which the EL734
|
||||||
|
is connected. There is no default. \\ \hline
|
||||||
|
\verb#-fb# & A {\em fb} (Fast-Backward) command will be sent to the motor.
|
||||||
|
The motor will move at full speed, with ramp, to
|
||||||
|
its lower software limit ({\em h} parameter). \\ \hline
|
||||||
|
\end{tabular}
|
||||||
|
\newpage
|
||||||
|
\hspace*{3mm}\begin{tabular}{|p{40mm}@{}p{105mm}|} \hline
|
||||||
|
\verb#-ff# & A {\em ff} (Fast-Forward) command will be sent to the motor.
|
||||||
|
The motor will move at full speed, with ramp, to
|
||||||
|
its upper software limit ({\em h} parameter). \\ \hline
|
||||||
|
\verb#-high <high-limit># & This option sets an upper limit for the
|
||||||
|
\verb#-random#, \verb#-saw#, and \verb#-step# options.
|
||||||
|
Its default is the
|
||||||
|
motor's upper software limit ({\em h} parameter). \verb#-high#
|
||||||
|
may be abbreviated to \verb#-hi#. \\ \hline
|
||||||
|
\verb#-host <host-name># & \verb#<host-name># specifies
|
||||||
|
the name of the host where {\em TS} is running. There is no
|
||||||
|
default. It may be specified as a name, e.g. {\em lnsw02}, or
|
||||||
|
as an Internet address, e.g. {\em 129.129.90.18}. \\ \hline
|
||||||
|
\verb#-hunt# & This will search for the motor's reference point and
|
||||||
|
then perform a \verb#-ref# operation. Refer
|
||||||
|
to Appendix~\ref{Hunting} for more information. \\ \hline
|
||||||
|
\verb#-id <device-id># & When {\bf el734{\usc}test} first starts, it sets
|
||||||
|
the EL734 into on-line mode and then sends an {\em id} command
|
||||||
|
to the controller. The response should begin with the characters
|
||||||
|
``STPMC EL734''. If, for some reason, the response to the {\em
|
||||||
|
id} command is expected to be something else, the \verb#-id#
|
||||||
|
option can be used to specify what is expected. Specifying
|
||||||
|
\verb#<device-id># as ``ignore'' will suppress the identifier
|
||||||
|
check. \\ \hline
|
||||||
|
\verb#-limits <lo>/<hi># & This option will set the motor's lower and
|
||||||
|
upper software limits ({\em h} parameters). The \verb#/# is
|
||||||
|
mandatory and no white space is permitted in the
|
||||||
|
\verb#<lo>/<hi># argument. \\ \hline
|
||||||
|
\verb#-load <file># & The file \verb#<file># is read and the motor
|
||||||
|
parameters are set accordingly. If \verb#<file># is specified
|
||||||
|
as ``\verb#-#'' or ``\verb#=#'', standard input is used as
|
||||||
|
the source of
|
||||||
|
parameter specifications. The \verb#-load# option is discussed
|
||||||
|
in more detail in Section~\ref{Load-Save}. \\ \hline
|
||||||
|
\verb#-low <low-limit># & This option sets a lower limit for the
|
||||||
|
\verb#-random#, \verb#-saw#, and \verb#-step# options.
|
||||||
|
Its default is the
|
||||||
|
motor's lower software limit ({\em h} parameter). \verb#-low#
|
||||||
|
may be abbreviated to \verb#-lo#. \\ \hline
|
||||||
|
\verb#-motor <index># & \verb#<index># is an integer between 1
|
||||||
|
and 12 specifying the motor to be used. There is no default.
|
||||||
|
\verb#-motor# may be abbreviated to \verb#-m#. \\ \hline
|
||||||
|
\verb#-n <n-moves># & This option sets the number of moves to be
|
||||||
|
performed by the \verb#-random# and \verb#-saw# options. The
|
||||||
|
default for \verb#<n-moves># is 5. \\ \hline
|
||||||
|
\verb#-port <port-number># & \verb#<port-number>#
|
||||||
|
specifies the TCP/IP port number which is being used by
|
||||||
|
{\em TS} to listen for connections.
|
||||||
|
The default is 4000. \\ \hline
|
||||||
|
\verb#-position <target># & The motor will be positioned to \verb#<target>#
|
||||||
|
and the program will wait until the final position
|
||||||
|
is reached. If \verb#<target># is outside the software limits
|
||||||
|
for the motor, a range error will be reported. If other errors
|
||||||
|
occur during the movement, they will also be reported.
|
||||||
|
\verb#-position# may be abbreviated to \verb#-p# \\ \hline
|
||||||
|
\verb#-random# & The motor will be positioned to random target positions
|
||||||
|
within the range specified by the \verb#-low# and \verb#-high#
|
||||||
|
options. The number of movements is specified by the \verb#-n#
|
||||||
|
option and the delay period between movements is specified by
|
||||||
|
the \verb#-wait# option. \verb#-random# may be abbreviated to
|
||||||
|
\verb#-rndm#. \\ \hline
|
||||||
|
\verb#-ref# & The motor will be positioned to its reference point. The
|
||||||
|
location of the reference point and the method used to reach it
|
||||||
|
are defined as part of the motor's parameter set. This option is
|
||||||
|
not available for motors with absolute encoders. \\ \hline
|
||||||
|
\end{tabular}
|
||||||
|
\newpage
|
||||||
|
\hspace*{3mm}\begin{tabular}{|p{40mm}@{}p{105mm}|} \hline
|
||||||
|
\verb#-save <file># & The motor's parameters will be read from the EL734
|
||||||
|
and saved into file \verb#<file># in a form which can be used
|
||||||
|
by the \verb#-load# option. If \verb#<file># is specified
|
||||||
|
as ``\verb#-#'', the list of parameters is written to standard
|
||||||
|
output. The \verb#-save# option is discussed in
|
||||||
|
more detail in Section~\ref{Load-Save}. \\ \hline
|
||||||
|
\verb#-saw# & The motor will be positioned alternately to the positions
|
||||||
|
specified by the \verb#-low# and \verb#-high# options. The
|
||||||
|
\verb#-n# and \verb#-wait# options have the same meaning as
|
||||||
|
for the \verb#-random# option. \\ \hline
|
||||||
|
\verb#-sb# & A {\em sb} (Slow-Backward) command will be sent to the motor.
|
||||||
|
The motor will move at its start/stop speed to
|
||||||
|
its lower software limit ({\em h} parameter). \\ \hline
|
||||||
|
\verb#-seed <seed-value># & The random number generator used to generate
|
||||||
|
random wait times and random positions is itself, by default,
|
||||||
|
initialised with a random seed derived from the time of day. A
|
||||||
|
specific random number sequence can be achieved by specifying an
|
||||||
|
integer seed value via the \verb#-seed# option. \\ \hline
|
||||||
|
\verb#-sf# & A {\em sf} (Slow-Forward) command will be sent to the motor.
|
||||||
|
The motor will move at its start/stop speed to
|
||||||
|
its upper software limit ({\em h} parameter). \\ \hline
|
||||||
|
\verb#-step <step-size># & If \verb#<step-size># is positive, the
|
||||||
|
motor will be positioned to the position specified by the
|
||||||
|
\verb#-low# option and then moved in steps of size
|
||||||
|
\verb#<step-size># until the position specified by the
|
||||||
|
\verb#-high# option is reached or would be exceeded. If
|
||||||
|
\verb#<step-size># is negative, the motor will first be
|
||||||
|
positioned to \verb#-high# and then stepped downwards. The
|
||||||
|
\verb#-n# and \verb#-wait# options have the same meaning as
|
||||||
|
for the \verb#-random# option.\\ \hline
|
||||||
|
\verb#-stop# & An {\em s} (Stop) command will be sent to the
|
||||||
|
motor. \\ \hline
|
||||||
|
\verb#-tmo <secs># & The \verb#-tmo# option specifies the time-out to be
|
||||||
|
used in waiting for a response to a command sent to the EL734.
|
||||||
|
The default is 5 seconds unless the \verb#-ref# or
|
||||||
|
\verb#-hunt# option is
|
||||||
|
specified, in which case it is 30 seconds. \verb#<secs># may
|
||||||
|
be specified as a fixed point number. Only 1 decimal place
|
||||||
|
is significant and the
|
||||||
|
maximum is 999.9. A negative value (not recommended) will
|
||||||
|
cause the server to wait
|
||||||
|
for ever and a value of zero
|
||||||
|
will cause the server not to wait at all. \\
|
||||||
|
~ & {\bf Note:} the value of the \verb#-tmo# option is {\em not}
|
||||||
|
related to the time required for the motor to complete its
|
||||||
|
motion. It relates to the time which the motor requires to
|
||||||
|
free itself from an end-stop or to perform the final seek
|
||||||
|
of its reference point.\\ \hline
|
||||||
|
\verb#-ur@ <pos># & This option (you-are-at) will set the motor's current
|
||||||
|
position to be \verb#<pos># via the {\em uu} command. \\ \hline
|
||||||
|
\verb#-verbose <wid># & Specify the {\em verbosity} (default = 10). During
|
||||||
|
any motor movement, an updating display of the current motor
|
||||||
|
position is generated in a field of width \verb#<wid>#.
|
||||||
|
If \verb#<wid># is set to zero, this updating display
|
||||||
|
is suppressed. If \verb#<wid># is too small,
|
||||||
|
odd results are obtained! \\ \hline
|
||||||
|
\verb#-wait <secs># & \verb#<secs># is an integer specifying the time
|
||||||
|
to wait between movements performed by the \verb#-random#,
|
||||||
|
\verb#-saw# and \verb#-step# commands. If \verb#<secs># is
|
||||||
|
zero, no wait is performed. If it is negative, a random wait
|
||||||
|
time between 1 and \verb#-<secs># seconds is performed. \\
|
||||||
|
\hline
|
||||||
|
\end{tabular}
|
||||||
|
\newpage
|
||||||
|
\section{Loading and Saving Motor Parameters}
|
||||||
|
% =============================================
|
||||||
|
\label{Load-Save}
|
||||||
|
The \verb#-load# and \verb#-save# options are used for loading a motor's
|
||||||
|
parameters from a file and saving a motor's parameters to a file,
|
||||||
|
respectively. An example of a file generated via the \verb#-save# option
|
||||||
|
and suitable for use by the \verb#-load# option is shown in
|
||||||
|
Appendix~\ref{Save-File}.
|
||||||
|
|
||||||
|
The best way to create a file for the \verb#-load# option is
|
||||||
|
to use the \verb#-save# option to create it and then to modify it with one's
|
||||||
|
favourite editor. For normal use, this should suffice. The following details
|
||||||
|
are intended as an aid to anyone who wishes to use {\bf el734{\usc}test}
|
||||||
|
interactively via the ``\verb#-load -#'' option.
|
||||||
|
|
||||||
|
The format of records in the load file should be of the form: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb# <cmnd> [%d] [<par1>] [<par2>] [! Comments ...]# %
|
||||||
|
\\[1.0ex]
|
||||||
|
where items in square brackets are optional depending on \verb#<cmnd>#.
|
||||||
|
\verb#<cmnd># is one of the commands accepted by the EL734. It may also
|
||||||
|
be {\em wait}, {\em exit} or {\em quit}. If \verb#%d# is present, it
|
||||||
|
will be substituted with the motor number as specified via the
|
||||||
|
\verb#-motor# option.
|
||||||
|
|
||||||
|
Specifying \verb#<cmnd># to be either {\em exit} or {\em quit} will cause
|
||||||
|
{\bf el734{\usc}test} to exit\footnote{End-of-file will also cause {\bf
|
||||||
|
el734{\usc}test} to exit. Note that, if commands are being read from the
|
||||||
|
terminal, end-of-file is indicated by $<$Ctrl-D$>$ on a Unix system, {\em
|
||||||
|
not} $<$Ctrl-Z$>$.}. The value {\em wait}
|
||||||
|
will cause {\bf
|
||||||
|
el734{\usc}test} to wait until the motor specified via the \verb#-motor#
|
||||||
|
option is idle.
|
||||||
|
|
||||||
|
{\bf el734{\usc}test} also recognises the special status reading commands
|
||||||
|
{\em msr} and {\em ss}. In these cases the program tests the various status
|
||||||
|
bits in the response from the EL734 and displays appropriate messages.
|
||||||
|
|
||||||
|
Some of the EL734 commands, in particular the {\em fm} and {\em fd}
|
||||||
|
commands, cause the motor position to be reset to zero. For this reason,
|
||||||
|
{\bf el734{\usc}test} reads the motor position just before starting a load
|
||||||
|
operation and attempts to set this position again using the {\em uu}
|
||||||
|
command when the load operation is completed. If however, {\bf
|
||||||
|
el734{\usc}test} detects any motor commands which may cause the motor to
|
||||||
|
move, this resetting of the motor position is suppressed.
|
||||||
|
|
||||||
|
Note that {\bf el734{\usc}test} is not able to handle commands to the
|
||||||
|
EL734 which generate multiple output records such as the {\em cfg},
|
||||||
|
{\em ?}, {\em ?c}, {\em ?m} or {\em ?p} commands.
|
||||||
|
%
|
||||||
|
\section{Examples}
|
||||||
|
% ==================
|
||||||
|
%
|
||||||
|
The following are a few examples of using {\bf el734{\usc}test}. For
|
||||||
|
clarity, it is assumed that the following alias has been defined: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm}%
|
||||||
|
\verb#alias do_el734 "el734_test -host lnsw15 -chan 5 -motor 4"#%
|
||||||
|
\\[1.0ex]
|
||||||
|
%
|
||||||
|
so that all the following examples will operate on Motor 4 of the EL734
|
||||||
|
connected to Channel 5 of the {\em Terminal Server} \verb#lnsw15#.
|
||||||
|
\begin{itemize}
|
||||||
|
\item[$>$] \verb#do_el734#\\
|
||||||
|
This will read the status of the motor and display it on the terminal.
|
||||||
|
\item[$>$] \verb#do_el734 -save m4_params#\\
|
||||||
|
This will read all the motor's parameters and save them in file
|
||||||
|
\verb#m4_params# in the current directory.
|
||||||
|
\item[$>$] \verb#do_el734 -p 150.4#\\
|
||||||
|
This will position the motor to 150.4 and wait until it has stopped
|
||||||
|
moving.
|
||||||
|
\item[$>$] \verb#do_el734 -n 100 -wait -20 -lo 20 -hi 80 -rndm#\\
|
||||||
|
This will perform 100 random movements of the motor in the range from 20
|
||||||
|
to 80. After each movement, the program will wait for a randomly
|
||||||
|
selected interval of up to 20 seconds.
|
||||||
|
\end{itemize}
|
||||||
|
To test several motors simultaneously, {\bf el734{\usc}test} may be started
|
||||||
|
from several terminals at the same time. In this case, one should be careful
|
||||||
|
not to drive the same motor simultaneously
|
||||||
|
from more than one copy of the program!
|
||||||
|
%
|
||||||
|
\section{Setup for {\bf el734{\usc}test}}
|
||||||
|
% =========================================
|
||||||
|
%
|
||||||
|
\subsection{Resource Database}
|
||||||
|
\label{resources}
|
||||||
|
%
|
||||||
|
In addition to specifying options for {\bf el734{\usc}test} on the command
|
||||||
|
line, it is possible to set them in a so-called ``resource database''
|
||||||
|
in a manner similar to that used by the X-window software package. In order
|
||||||
|
to do this, it is first necessary to know the name of the resources
|
||||||
|
associated with the various options. The following list of resource names
|
||||||
|
is obtained via the \verb#-?res# option:%
|
||||||
|
\begin{verbatim}
|
||||||
|
The correspondence between options and resource names is as follows:
|
||||||
|
|
||||||
|
Option Equivalent resource name
|
||||||
|
====== ========================
|
||||||
|
-? *el734HelpItem
|
||||||
|
-?res *el734HelpRes
|
||||||
|
-?par *el734HelpPar
|
||||||
|
-chan *el734Chan
|
||||||
|
-fb *el734Fb
|
||||||
|
-ff *el734Ff
|
||||||
|
-help *el734Help
|
||||||
|
-high *el734High
|
||||||
|
-host *el734Host
|
||||||
|
-hunt *el734Hunt
|
||||||
|
-id *el734Id
|
||||||
|
-limits *el734Limits
|
||||||
|
-load *el734Load
|
||||||
|
-low *el734Low
|
||||||
|
-motor *el734Motor
|
||||||
|
-n *el734N
|
||||||
|
-port *el734Port
|
||||||
|
-position *el734Position
|
||||||
|
-random *el734Random
|
||||||
|
-ref *el734Ref
|
||||||
|
-save *el734Save
|
||||||
|
-saw *el734Saw
|
||||||
|
-sb *el734Sb
|
||||||
|
-seed *el734Seed
|
||||||
|
-sf *el734Sf
|
||||||
|
-step *el734Step
|
||||||
|
-stop *el734Stop
|
||||||
|
-tmo *el734Tmo
|
||||||
|
-wait *el734Wait
|
||||||
|
\end{verbatim}%
|
||||||
|
%
|
||||||
|
When {\bf el734{\usc}test} is started, it scans several files to compile
|
||||||
|
its resource database. On Unix systems, these files, in order of decreasing
|
||||||
|
precedence, are: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb#~/SinQ_rc#\\
|
||||||
|
\hspace*{20mm} \verb#/usr/lib/X11/app-defaults/SinQ_rc#\\
|
||||||
|
\hspace*{20mm} \verb#~/.Xdefaults#\\
|
||||||
|
\hspace*{20mm} \verb#/usr/lib/X11/app-defaults/Xdefaults#\\[1.0ex]
|
||||||
|
%
|
||||||
|
Any options specified on the command line supersede specifications in any of
|
||||||
|
these files. As an example, the host on which the terminal server program
|
||||||
|
is running could be specified by including the record: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb#*el734Host: lnsw15#\\[1.0ex]
|
||||||
|
%
|
||||||
|
in one of the resource database files listed above. It would then not be
|
||||||
|
necessary to specify the \verb#-host# option on the command line.
|
||||||
|
Other defaults could be set similarly by using the appropriate resource
|
||||||
|
names as specified in the above table.
|
||||||
|
%
|
||||||
|
\subsection{Paths and Aliases}
|
||||||
|
%
|
||||||
|
The compiled and linked version of {\bf el734{\usc}test} is located
|
||||||
|
in directory \verb#~maden/motor#. There is a
|
||||||
|
symbolic link to this file from \verb#/public/bin/el734_test#.
|
||||||
|
|
||||||
|
The directory \verb#/public/bin# should be included in the default path
|
||||||
|
of the ``lnsg'' account by including a statement of the form: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb#set path = ( $path /public/bin )#\\[1.0ex]
|
||||||
|
%
|
||||||
|
in the file \verb#~lnsg/.cshrc#. Actually, on the SINQ data acquisition
|
||||||
|
computers, \verb#~lnsg/.cshrc# is set up so that it invokes
|
||||||
|
the system startup script, \verb#~/.cshrc#, and this is where
|
||||||
|
\verb#~/public/bin# is added to the default path.
|
||||||
|
|
||||||
|
It is clearly a simple matter to define an alias to facilitate usage of the
|
||||||
|
program. For example: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} %
|
||||||
|
\verb#alias xxx "el734_test -host lnsw15 -chan 5 -m 6"#
|
||||||
|
%
|
||||||
|
\newpage
|
||||||
|
\appendix
|
||||||
|
\section{Notes on the OpenVMS Version of {\bf el734{\usc}test}}
|
||||||
|
\label{OpenVMS-Notes}
|
||||||
|
On OpenVMS systems, {\bf el734{\usc}test} compiles its resource database
|
||||||
|
from the following files, in order of decreasing precedence: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb#decw$user_defaults:SinQ_rc.dat#\\
|
||||||
|
\hspace*{20mm} \verb#decw$group_defaults:SinQ_rc.dat#\\
|
||||||
|
\hspace*{20mm} \verb#decw$system_defaults:SinQ_rc.dat#\\
|
||||||
|
\hspace*{20mm} \verb#decw$user_defaults:decw$xdefaults.dat#\\
|
||||||
|
\hspace*{20mm} \verb#decw$group_defaults:decw$xdefaults.dat#\\
|
||||||
|
\hspace*{20mm} \verb#decw$system_defaults:decw$xdefaults.dat#\\[1.0ex]
|
||||||
|
%
|
||||||
|
{\bf el734{\usc}test} should be run via a so-called {\em DCL foreign
|
||||||
|
command}. Assuming that the executable image of {\bf el734{\usc}test} is in
|
||||||
|
directory \verb#psi_public:[exe_axp]#,
|
||||||
|
one would do this via the DCL command:
|
||||||
|
\\[1.0ex]
|
||||||
|
\hspace*{20mm} \verb#$ el734_test :== $psi_public:[exe_axp]el734_test#\\[1.0ex]
|
||||||
|
%
|
||||||
|
located in one's \verb#login.com# file. The program can then be run
|
||||||
|
exactly as on a Unix system.
|
||||||
|
%
|
||||||
|
\vspace*{40mm}
|
||||||
|
\section{Notes on the LabVIEW Terminal Server Program}
|
||||||
|
\label{TS-Notes}
|
||||||
|
The LabVIEW terminal server program is set up so that it automatically runs
|
||||||
|
when it is started. It is therefore sufficient to double-click on its icon
|
||||||
|
with the Macintosh \verb#finder# to get the program to run. The terminal
|
||||||
|
server program is located in directory: \\[1.0ex]
|
||||||
|
%
|
||||||
|
\hspace*{20mm} \verb#System Utilities:LabVIEW 3.1.1:Users:# \\
|
||||||
|
\hspace*{40mm} \verb#A SerPortServer:A Main Server.vi# \\[1.0ex]
|
||||||
|
%
|
||||||
|
The Macintosh is also usually configured so that there is an alias of the
|
||||||
|
terminal server program in the start-up directory. The program then starts
|
||||||
|
to run automatically whenever the Macintosh is powered up.
|
||||||
|
%
|
||||||
|
\newpage
|
||||||
|
\section{An Example of a Motor Parameter File}
|
||||||
|
\label{Save-File}
|
||||||
|
The following is an example of a file generated by the \verb#-save# option.
|
||||||
|
This file is suitable for use by the \verb#-load# option. Records beginning
|
||||||
|
with \verb#!# are ignored by \verb#-load#.
|
||||||
|
|
||||||
|
Note that the {\em ec} command is not supported prior to Version~1.0
|
||||||
|
of the EL734 controller firmware.
|
||||||
|
\begin{verbatim}
|
||||||
|
! EL734 Status at Fri Nov 8 09:56:24 1996
|
||||||
|
! ============
|
||||||
|
! Controller ID = "STPMC EL734 V1.0 FFF"
|
||||||
|
! Server lnsp22, Port 4000, Channel 5, Motor 6
|
||||||
|
!
|
||||||
|
mn %d TOPSI_6_STT ! Motor name
|
||||||
|
ec %d 0 0 ! Zero the encoder mapping
|
||||||
|
ec %d 1 6 ! Encoder mapping (type/number)
|
||||||
|
a %d 2 ! Precision
|
||||||
|
fd %d -100 1 ! Encoder gearing (numer/denom)
|
||||||
|
fm %d 200 1 ! Motor gearing (numer/denom)
|
||||||
|
d %d 0.1 ! Inertia tolerance
|
||||||
|
e %d 7 ! Start/stop ramp (kHz/sec)
|
||||||
|
f %d 1 ! Open loop/Closed loop (0/1)
|
||||||
|
g %d 300 ! Start/stop frequency (Mot-S/sec)
|
||||||
|
h %d 1.00 38.00 ! Low/High Software Limits
|
||||||
|
j %d 2000 ! Top speed (Mot-S/sec)
|
||||||
|
k %d -1 ! Reference mode
|
||||||
|
! -11 = LoLim+Index is ref. pt.
|
||||||
|
! -1 = LoLim is ref. pt.
|
||||||
|
! 0 = Abs encoder
|
||||||
|
! 1 = HiLim is ref. pt.
|
||||||
|
! 2 = Separate ref. pt.
|
||||||
|
! 11 = HiLim+Index is ref. pt.
|
||||||
|
! 12 = Separate+Index ref. pt.
|
||||||
|
l %d 0 ! Backlash/Spielausgleich (Mot-S)
|
||||||
|
m %d 3 ! Position tolerance (Enc-Steps)
|
||||||
|
q %d 99.0 ! Reference switch width
|
||||||
|
t %d 0 ! One-sided operation flag (0 = no)
|
||||||
|
v %d 0.00 ! Null point
|
||||||
|
w %d 0 ! Air-cushion dependency
|
||||||
|
z %d 0 ! Circumf. of encoder (Enc-Steps)
|
||||||
|
mem %d 0.0/38.7 ! User data register
|
||||||
|
!
|
||||||
|
! # of positionings, SP = 41
|
||||||
|
! # of positioning faults, ST = 0
|
||||||
|
! # of positioning failures, SR = 0
|
||||||
|
! # of air-cushion failures, SA = 0
|
||||||
|
!
|
||||||
|
! Current position is 20.00
|
||||||
|
! Status, MSR = Idle.
|
||||||
|
! Flags, SS = 0
|
||||||
|
! Input status is "off".
|
||||||
|
\end{verbatim}
|
||||||
|
%
|
||||||
|
\newpage
|
||||||
|
\section{The Reference Point Search Algorithm}
|
||||||
|
\label{Hunting}
|
||||||
|
The procedure used by the \verb#-hunt# option for searching for a
|
||||||
|
motor's reference point depends on the
|
||||||
|
setting of the {\em k} parameter. The following table describes the
|
||||||
|
various search algorithms\\[3.0ex]
|
||||||
|
%
|
||||||
|
\begin{tabular}%
|
||||||
|
{|c%
|
||||||
|
|>{\PBS\raggedright\hspace{0pt}}p{30mm}%
|
||||||
|
|>{\PBS\raggedright\hspace{0pt}}p{105mm}|}
|
||||||
|
\hline
|
||||||
|
{\bf K} & {\bf Type} & {\bf Algorithm} \\ \hline \hline
|
||||||
|
0 & Absolute encoder & \verb#-hunt# is not supported. \\ \hline
|
||||||
|
-1 & Low-limit switch is reference point &
|
||||||
|
The value of the {\em q} parameter (reference-point width) is read and
|
||||||
|
checked to be greater than zero.
|
||||||
|
The {\em h} and {\em v} parameters (software limits and zero-point) are
|
||||||
|
read and checked to be consistent. If the {\em v} parameter is greater
|
||||||
|
than the low software limit, a warning is displayed but this is not
|
||||||
|
considered to be a fatal error.
|
||||||
|
The {\em h} parameters are set to large values and the current position
|
||||||
|
is set to zero ({\em uu} command).
|
||||||
|
The motor is then driven to
|
||||||
|
its low-limit switch via an {\em fb} (fast-backward) command.
|
||||||
|
The program waits until the motor stops moving. If no \verb#-tmo# option
|
||||||
|
has been specified, a time-out of 30 seconds is used for this operation.
|
||||||
|
The motor status is then checked
|
||||||
|
to ensure that the low-limit switch was reached. It also
|
||||||
|
checks the {\em ss} status to ensure that the reference point (LSX)
|
||||||
|
is not active. If all checks are successful,
|
||||||
|
the current position is set to the value of the {\em v} parameter
|
||||||
|
via the {\em uu} command, the software limits are restored and a
|
||||||
|
reference seek is initiated via the {\em rf} command. The program
|
||||||
|
again waits until the motor stops moving and checks the motor status to
|
||||||
|
ensure that the reference seek was successful. The motor is finally
|
||||||
|
positioned to its lower software limit, if this is greater than {\em v}.
|
||||||
|
\\ \hline
|
||||||
|
1 & High-limit switch is reference point &
|
||||||
|
This is analogue to the K~=~-1 case. \\ \hline
|
||||||
|
2 & Separate reference point &
|
||||||
|
The {\em q}, {\em h} and {\em v} parameters are checked as in the
|
||||||
|
K~=~-1 case. A warning is issued if the zero-point is outside
|
||||||
|
the software limits but this is not treated as a fatal error.
|
||||||
|
The motor is then driven backwards in steps with a step-size equal to
|
||||||
|
95\% of the {\em q} parameter until a position is found where the
|
||||||
|
reference-point (LSX) is active or the low-limit is reached. If the
|
||||||
|
lower-limit is reached, the motor is re-positioned to its start position
|
||||||
|
and it is then stepped forward to its high-limit. Assuming the
|
||||||
|
reference-point is eventually found,
|
||||||
|
the current position is set to the value of the
|
||||||
|
{\em v} parameter via the {\em uu} command, the software limits are
|
||||||
|
restored and a reference seek is initiated via the {\em rf} command.
|
||||||
|
\\ \hline
|
||||||
|
\end{tabular}
|
||||||
|
\\[5.0ex]
|
||||||
|
\begin{tabular}%
|
||||||
|
{|c%
|
||||||
|
|>{\PBS\raggedright\hspace{0pt}}p{80mm}%
|
||||||
|
|>{\PBS\raggedright\hspace{0pt}}p{54mm}|}
|
||||||
|
\hline
|
||||||
|
{\bf K} & {\bf Type} & {\bf Algorithm} \\ \hline \hline
|
||||||
|
-11 & Low-limit switch is reference point with reference
|
||||||
|
mark on encoder & Same as K~=~-1 \\ \hline
|
||||||
|
11 & High-limit switch is reference point with reference
|
||||||
|
mark on encoder & Same as K~=~1 \\ \hline
|
||||||
|
12 & Separate reference point with reference
|
||||||
|
mark on encoder & Same as K~=~2 \\ \hline
|
||||||
|
\end{tabular}
|
||||||
|
\end{document}
|
||||||
168
hardsup/sinqhm.c
168
hardsup/sinqhm.c
@ -315,6 +315,143 @@ extern int close(int fp);
|
|||||||
}
|
}
|
||||||
return 1; /* success, finally */
|
return 1; /* success, finally */
|
||||||
}
|
}
|
||||||
|
/*------------------------------------------------------------------------*/
|
||||||
|
int SINQHMConfigurePSD(pSINQHM self, int iMode,
|
||||||
|
int xSize, int xOff, int xFac,
|
||||||
|
int ySize, int yOff, int yFac,
|
||||||
|
int iBinWidth,
|
||||||
|
float *iEdges, int iEdgeLength)
|
||||||
|
{
|
||||||
|
int status, iRet;
|
||||||
|
struct req_buff_struct Req_buff;
|
||||||
|
struct rply_buff_struct Rply_buff;
|
||||||
|
int iLength, i, iDelay;
|
||||||
|
unsigned int iExtra;
|
||||||
|
char *pBuffer = NULL, *pPtr;
|
||||||
|
struct tof_edge_arr tea;
|
||||||
|
int iTeaLength;
|
||||||
|
struct tof_bank toba;
|
||||||
|
|
||||||
|
assert(self);
|
||||||
|
|
||||||
|
/* set up detector bank information. This code supports only
|
||||||
|
one detector bank as of now. Which is appropriate for the
|
||||||
|
detector at hand.
|
||||||
|
*/
|
||||||
|
self->iBinWidth = iBinWidth;
|
||||||
|
SINQHMDefineBank(self,0,0,xSize*ySize,
|
||||||
|
iEdges,iEdgeLength);
|
||||||
|
|
||||||
|
/* figure out how long we are going to be*/
|
||||||
|
iLength = 36 + self->iBanks*sizeof(struct tof_bank);
|
||||||
|
for(i = 0; i < self->iBanks; i++)
|
||||||
|
{
|
||||||
|
iLength += 8 + self->pBank[i].iEdgeLength*sizeof(SQint32);
|
||||||
|
}
|
||||||
|
if(iLength < 64)
|
||||||
|
iLength = 64;
|
||||||
|
/* allocate send buffer */
|
||||||
|
pBuffer = (char *)malloc(iLength*sizeof(char));
|
||||||
|
if(!pBuffer)
|
||||||
|
{
|
||||||
|
return HIST_BAD_ALLOC;
|
||||||
|
}
|
||||||
|
memset(pBuffer,0,iLength);
|
||||||
|
|
||||||
|
/* do the message header */
|
||||||
|
iExtra = iLength - sizeof(Req_buff);
|
||||||
|
if(iExtra < 0)
|
||||||
|
iExtra = 0;
|
||||||
|
iDelay = self->pBank[0].iEdges[0];
|
||||||
|
Req_buff.bigend = htonl (0x12345678);
|
||||||
|
Req_buff.cmnd = htonl (SQHM_CONFIG);
|
||||||
|
Req_buff.u.cnfg.mode = htonl (iMode);
|
||||||
|
Req_buff.u.cnfg.u.psd.n_extra_bytes = htonl (iExtra);
|
||||||
|
Req_buff.u.cnfg.u.psd.n_edges = htons (1);
|
||||||
|
Req_buff.u.cnfg.u.psd.n_banks = htons (1);
|
||||||
|
Req_buff.u.cnfg.u.psd.xOffset = htons (xOff);
|
||||||
|
Req_buff.u.cnfg.u.psd.yOffset = htons (yOff);
|
||||||
|
Req_buff.u.cnfg.u.psd.xFactor = htons (xFac);
|
||||||
|
Req_buff.u.cnfg.u.psd.yFactor = htons (yFac);
|
||||||
|
Req_buff.u.cnfg.u.psd.xSize = htons (xSize);
|
||||||
|
Req_buff.u.cnfg.u.psd.ySize = htons (ySize);
|
||||||
|
Req_buff.u.cnfg.u.psd.preset_delay = htonl((int)iEdges[0]);
|
||||||
|
memcpy(pBuffer,&Req_buff,36);
|
||||||
|
pPtr = pBuffer + 36;
|
||||||
|
|
||||||
|
/* do the edge thingies */
|
||||||
|
for(i = 0; i < self->iBanks; i++)
|
||||||
|
{
|
||||||
|
tea.n_bins = htonl(self->pBank[i].iEdgeLength-1);
|
||||||
|
if(self->pBank[i].iEdgeLength == 2)
|
||||||
|
{
|
||||||
|
tea.flag = htonl(0);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
tea.flag = htonl(1);
|
||||||
|
}
|
||||||
|
tea.edges = self->pBank[i].iEdges;
|
||||||
|
memcpy(pPtr,&tea,8);
|
||||||
|
pPtr += 8;
|
||||||
|
iTeaLength = self->pBank[i].iEdgeLength*4;
|
||||||
|
memcpy(pPtr,self->pBank[i].iEdges,iTeaLength);
|
||||||
|
pPtr += iTeaLength;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* do the swiss bank structures */
|
||||||
|
for(i = 0; i < self->iBanks; i++)
|
||||||
|
{
|
||||||
|
toba.first = htons(self->pBank[i].iStart);
|
||||||
|
toba.n_cntrs = htons(self->pBank[i].iEnd);
|
||||||
|
toba.edge_indx = htons(i);
|
||||||
|
toba.bytes_per_bin = htons(self->iBinWidth);
|
||||||
|
memcpy(pPtr,&toba,sizeof(struct tof_bank));
|
||||||
|
pPtr += sizeof(struct tof_bank);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* all packed up neat and nicely, send it */
|
||||||
|
/* try, get a connection to master server */
|
||||||
|
status = OpenMasterConnection(self);
|
||||||
|
if(status < 0)
|
||||||
|
{
|
||||||
|
if(pBuffer)
|
||||||
|
free(pBuffer);
|
||||||
|
return status;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* send request */
|
||||||
|
status = send(self->iMasterSocket,pBuffer,iLength ,0);
|
||||||
|
if(pBuffer)
|
||||||
|
{
|
||||||
|
free(pBuffer);
|
||||||
|
}
|
||||||
|
if(status == -1)
|
||||||
|
{
|
||||||
|
return SEND_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* get a reply */
|
||||||
|
iRet = GetMasterReply(self,&Rply_buff,sizeof(Rply_buff));
|
||||||
|
if(iRet < 0)
|
||||||
|
{
|
||||||
|
/* try close the socket */
|
||||||
|
close(self->iMasterSocket);
|
||||||
|
self->iMasterSocket = 0;
|
||||||
|
return iRet;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
/* close the socket */
|
||||||
|
status = close(self->iMasterSocket);
|
||||||
|
self->iMasterSocket = 0;
|
||||||
|
if((status != 0) && (errno != ECONNRESET))
|
||||||
|
{
|
||||||
|
return CLOSE_ERROR;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 1; /* success, finally */
|
||||||
|
}
|
||||||
/*------------------------------------------------------------------------*/
|
/*------------------------------------------------------------------------*/
|
||||||
int SINQHMDeconfigure(pSINQHM self, int iHarsh)
|
int SINQHMDeconfigure(pSINQHM self, int iHarsh)
|
||||||
{
|
{
|
||||||
@ -1272,26 +1409,39 @@ extern int close(int fp);
|
|||||||
free(pWork->iEdges);
|
free(pWork->iEdges);
|
||||||
pWork->iEdges = NULL;
|
pWork->iEdges = NULL;
|
||||||
}
|
}
|
||||||
|
iDelay = (int)iEdges[0];
|
||||||
pWork->iStart = iStart;
|
pWork->iStart = iStart;
|
||||||
pWork->iEnd = iEnd;
|
pWork->iEnd = iEnd;
|
||||||
pWork->iEdgeLength = iEdgeLength;
|
pWork->iEdgeLength = iEdgeLength;
|
||||||
if(iEdgeLength == 2)
|
if(iEdgeLength == 2)
|
||||||
{
|
{ /*
|
||||||
|
fixed binwidth: two values required: start stop in
|
||||||
|
edge[0], edge[1]
|
||||||
|
*/
|
||||||
pWork->iFlag = 0;
|
pWork->iFlag = 0;
|
||||||
}
|
pWork->iDelay = iDelay;
|
||||||
else
|
pWork->iEdges = (unsigned int *)malloc(2*sizeof(unsigned int));
|
||||||
|
if(!pWork->iEdges)
|
||||||
{
|
{
|
||||||
|
return HIST_BAD_ALLOC;
|
||||||
|
}
|
||||||
|
pWork->iEdges[0] = htonl((unsigned int)iEdges[0]);
|
||||||
|
pWork->iEdges[1] = htonl((unsigned int)(iEdges[1] - iDelay));
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
normal case: create the bin boundaries
|
||||||
|
*/
|
||||||
pWork->iFlag = 1;
|
pWork->iFlag = 1;
|
||||||
pWork->iEdgeLength++;
|
pWork->iEdgeLength++;
|
||||||
iEdgeLength++;
|
iEdgeLength++;
|
||||||
}
|
|
||||||
pWork->iEdges = (unsigned int *)malloc(iEdgeLength *
|
pWork->iEdges = (unsigned int *)malloc(iEdgeLength *
|
||||||
sizeof(unsigned int));
|
sizeof(unsigned int));
|
||||||
if(!pWork->iEdges)
|
if(!pWork->iEdges)
|
||||||
{
|
{
|
||||||
return HIST_BAD_ALLOC;
|
return HIST_BAD_ALLOC;
|
||||||
}
|
}
|
||||||
iDelay = iEdges[0];
|
|
||||||
pWork->iDelay = iDelay;
|
pWork->iDelay = iDelay;
|
||||||
for(i = 0; i < iEdgeLength-1; i++)
|
for(i = 0; i < iEdgeLength-1; i++)
|
||||||
{
|
{
|
||||||
@ -1361,14 +1511,6 @@ extern int close(int fp);
|
|||||||
tofi.preset_delay = htonl(self->pBank[0].iDelay);
|
tofi.preset_delay = htonl(self->pBank[0].iDelay);
|
||||||
memcpy(pPtr,&tofi,12);
|
memcpy(pPtr,&tofi,12);
|
||||||
pPtr += 12;
|
pPtr += 12;
|
||||||
/*
|
|
||||||
Req_buff.u.cnfg.u.tof.n_extra_bytes = htonl(iExtra);
|
|
||||||
Req_buff.u.cnfg.u.tof.n_edges = htons((short int)self->iBanks);
|
|
||||||
Req_buff.u.cnfg.u.tof.n_banks = htons((short int)self->iBanks);
|
|
||||||
Req_buff.u.cnfg.u.tof.preset_delay = htonl(self->pBank[0].iDelay);
|
|
||||||
memcpy(pBuffer,&Req_buff,24);
|
|
||||||
pPtr = pBuffer + 24;
|
|
||||||
*/
|
|
||||||
|
|
||||||
/* do the edge thingies */
|
/* do the edge thingies */
|
||||||
for(i = 0; i < self->iBanks; i++)
|
for(i = 0; i < self->iBanks; i++)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
#line 317 "sinqhm.w"
|
#line 346 "sinqhm.w"
|
||||||
|
|
||||||
/*---------------------------------------------------------------------------
|
/*---------------------------------------------------------------------------
|
||||||
S I N Q H M
|
S I N Q H M
|
||||||
@ -17,7 +17,7 @@
|
|||||||
typedef struct __SINQHM *pSINQHM;
|
typedef struct __SINQHM *pSINQHM;
|
||||||
/*------------------------------ Error codes -----------------------------*/
|
/*------------------------------ Error codes -----------------------------*/
|
||||||
|
|
||||||
#line 295 "sinqhm.w"
|
#line 324 "sinqhm.w"
|
||||||
|
|
||||||
#define HMCOMPUTER_NOT_FOUND -2
|
#define HMCOMPUTER_NOT_FOUND -2
|
||||||
#define SOCKET_ERROR -3
|
#define SOCKET_ERROR -3
|
||||||
@ -39,26 +39,32 @@
|
|||||||
#define DAQ_INHIBIT -19
|
#define DAQ_INHIBIT -19
|
||||||
#define DAQ_NOTSTOPPED -20
|
#define DAQ_NOTSTOPPED -20
|
||||||
|
|
||||||
#line 333 "sinqhm.w"
|
#line 362 "sinqhm.w"
|
||||||
|
|
||||||
|
|
||||||
/*------------------------------ Prototypes ------------------------------*/
|
/*------------------------------ Prototypes ------------------------------*/
|
||||||
|
|
||||||
#line 113 "sinqhm.w"
|
#line 118 "sinqhm.w"
|
||||||
|
|
||||||
pSINQHM CreateSINQHM(char *pHMComputer, int iMasterPort);
|
pSINQHM CreateSINQHM(char *pHMComputer, int iMasterPort);
|
||||||
pSINQHM CopySINQHM(pSINQHM self);
|
pSINQHM CopySINQHM(pSINQHM self);
|
||||||
void DeleteSINQHM(pSINQHM self);
|
void DeleteSINQHM(pSINQHM self);
|
||||||
void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);
|
void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);
|
||||||
|
|
||||||
#line 133 "sinqhm.w"
|
|
||||||
|
#line 142 "sinqhm.w"
|
||||||
|
|
||||||
int SINQHMError2Text(int iErr, char *pBuffer, int iBufLen);
|
int SINQHMError2Text(int iErr, char *pBuffer, int iBufLen);
|
||||||
|
|
||||||
#line 146 "sinqhm.w"
|
#line 155 "sinqhm.w"
|
||||||
|
|
||||||
int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength,
|
int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength,
|
||||||
int iBinWidth, int iLowBin, int iCompress);
|
int iBinWidth, int iLowBin, int iCompress);
|
||||||
|
int SINQHMConfigurePSD(pSINQHM self, int iMode,
|
||||||
|
int xSize, int xOff, int xFac,
|
||||||
|
int ySize, int yOff, int yFac,
|
||||||
|
int iBinWidth,
|
||||||
|
float *iEdges, int iEdgeLength);
|
||||||
|
|
||||||
int SINQHMDeconfigure(pSINQHM self, int iHarsh);
|
int SINQHMDeconfigure(pSINQHM self, int iHarsh);
|
||||||
int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,
|
int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,
|
||||||
@ -68,7 +74,7 @@
|
|||||||
int SINQHMKill(pSINQHM self);
|
int SINQHMKill(pSINQHM self);
|
||||||
|
|
||||||
|
|
||||||
#line 232 "sinqhm.w"
|
#line 261 "sinqhm.w"
|
||||||
|
|
||||||
int SINQHMOpenDAQ(pSINQHM self);
|
int SINQHMOpenDAQ(pSINQHM self);
|
||||||
int SINQHMCloseDAQ(pSINQHM self);
|
int SINQHMCloseDAQ(pSINQHM self);
|
||||||
@ -85,14 +91,14 @@
|
|||||||
void *pData, int iDataLen);
|
void *pData, int iDataLen);
|
||||||
int SINQHMZero(pSINQHM self, int iNum, int iStart, int iEnd);
|
int SINQHMZero(pSINQHM self, int iNum, int iStart, int iEnd);
|
||||||
|
|
||||||
#line 336 "sinqhm.w"
|
#line 365 "sinqhm.w"
|
||||||
|
|
||||||
|
|
||||||
#line 204 "sinqhm.w"
|
#line 232 "sinqhm.w"
|
||||||
|
|
||||||
int SINQHMDefineBank(pSINQHM self, int iBankNumber, int iStart, int iEnd,
|
int SINQHMDefineBank(pSINQHM self, int iBankNumber, int iStart, int iEnd,
|
||||||
float *iEdges, int iEdgeLength);
|
float *iEdges, int iEdgeLength);
|
||||||
|
|
||||||
#line 337 "sinqhm.w"
|
#line 366 "sinqhm.w"
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
@ -30,6 +30,9 @@
|
|||||||
int iRank;
|
int iRank;
|
||||||
int iPacket;
|
int iPacket;
|
||||||
int iBanks;
|
int iBanks;
|
||||||
|
int xSize, ySize;
|
||||||
|
int xOff, xFac;
|
||||||
|
int yOff, yFac;
|
||||||
SBank pBank[MAXBANK];
|
SBank pBank[MAXBANK];
|
||||||
} SINQHM;
|
} SINQHM;
|
||||||
|
|
||||||
|
|||||||
@ -53,7 +53,7 @@ This information is kept in a bank data structure:
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap1}
|
\begin{minipage}{\linewidth} \label{scrap1}
|
||||||
$\langle$SBank {\footnotesize 2a}$\rangle\equiv$
|
$\langle$SBank {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -90,7 +90,7 @@ the lower edges of all time bins.
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap2}
|
\begin{minipage}{\linewidth} \label{scrap2}
|
||||||
$\langle$SType {\footnotesize 2b}$\rangle\equiv$
|
$\langle$SType {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -105,6 +105,9 @@ $\langle$SType {\footnotesize 2b}$\rangle\equiv$
|
|||||||
\mbox{}\verb@ int iRank;@\\
|
\mbox{}\verb@ int iRank;@\\
|
||||||
\mbox{}\verb@ int iPacket;@\\
|
\mbox{}\verb@ int iPacket;@\\
|
||||||
\mbox{}\verb@ int iBanks;@\\
|
\mbox{}\verb@ int iBanks;@\\
|
||||||
|
\mbox{}\verb@ int xSize, ySize;@\\
|
||||||
|
\mbox{}\verb@ int xOff, xFac;@\\
|
||||||
|
\mbox{}\verb@ int yOff, yFac;@\\
|
||||||
\mbox{}\verb@ SBank pBank[MAXBANK];@\\
|
\mbox{}\verb@ SBank pBank[MAXBANK];@\\
|
||||||
\mbox{}\verb@ } SINQHM;@\\
|
\mbox{}\verb@ } SINQHM;@\\
|
||||||
\mbox{}\verb@@$\diamond$
|
\mbox{}\verb@@$\diamond$
|
||||||
@ -112,7 +115,7 @@ $\langle$SType {\footnotesize 2b}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 2bc.
|
\item Macro defined by scraps ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -122,7 +125,9 @@ computer, the second the port number at which the master server is
|
|||||||
listening. iClientPort defines a port for data communication. If no such
|
listening. iClientPort defines a port for data communication. If no such
|
||||||
port is open, this value will be 0. iStatus is a status flag. iBanks is the
|
port is open, this value will be 0. iStatus is a status flag. iBanks is the
|
||||||
number of detector banks defined. pSBank is an array of bank data structures
|
number of detector banks defined. pSBank is an array of bank data structures
|
||||||
describing the detector banks. In order to
|
describing the detector banks.
|
||||||
|
xOff, xFac and yOff and yFac are the offset and factor values needed for
|
||||||
|
the PSD calculation for TRICS and AMOR. In order to
|
||||||
maintain this data structure two functions are defined:
|
maintain this data structure two functions are defined:
|
||||||
|
|
||||||
\section{Byte swapping}
|
\section{Byte swapping}
|
||||||
@ -132,7 +137,7 @@ types for your compiler and computer.
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap3}
|
\begin{minipage}{\linewidth} \label{scrap3}
|
||||||
$\langle$SType {\footnotesize 2c}$\rangle\equiv$
|
$\langle$SType {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -144,14 +149,14 @@ $\langle$SType {\footnotesize 2c}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 2bc.
|
\item Macro defined by scraps ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
\end{flushleft}
|
\end{flushleft}
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap4}
|
\begin{minipage}{\linewidth} \label{scrap4}
|
||||||
$\langle$Protos {\footnotesize 3a}$\rangle\equiv$
|
$\langle$Protos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -159,12 +164,14 @@ $\langle$Protos {\footnotesize 3a}$\rangle\equiv$
|
|||||||
\mbox{}\verb@ pSINQHM CopySINQHM(pSINQHM self);@\\
|
\mbox{}\verb@ pSINQHM CopySINQHM(pSINQHM self);@\\
|
||||||
\mbox{}\verb@ void DeleteSINQHM(pSINQHM self); @\\
|
\mbox{}\verb@ void DeleteSINQHM(pSINQHM self); @\\
|
||||||
\mbox{}\verb@ void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);@\\
|
\mbox{}\verb@ void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);@\\
|
||||||
|
\mbox{}\verb@ void SINQHMSetPSD(pSINQHM self, int xSize, int xOff, int xFac,@\\
|
||||||
|
\mbox{}\verb@ int ySize, int yOff, int yFac);@\\
|
||||||
\mbox{}\verb@@$\diamond$
|
\mbox{}\verb@@$\diamond$
|
||||||
\end{list}
|
\end{list}
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 3abc, 6a.
|
\item Macro defined by scraps ?, ?, ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -175,6 +182,8 @@ mentioned above for the description of the data structure. DeleteSINQHM
|
|||||||
frees all memory associated with a SINQHM structure given by self. The
|
frees all memory associated with a SINQHM structure given by self. The
|
||||||
pointer to self is invalid ever afterwards.
|
pointer to self is invalid ever afterwards.
|
||||||
CopySINQHM creates a copy of the SINQHM structure passed in with self.
|
CopySINQHM creates a copy of the SINQHM structure passed in with self.
|
||||||
|
SINQHMSetPar sets time of flight parameters.
|
||||||
|
SINQHMSetPSD defines PSD parameters for TRICS/AMOR type detectors.
|
||||||
|
|
||||||
\section{SINQHM error handling}
|
\section{SINQHM error handling}
|
||||||
If not denoted otherwise all public SINQHM functions return an integer 1 on
|
If not denoted otherwise all public SINQHM functions return an integer 1 on
|
||||||
@ -184,7 +193,7 @@ call to:
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap5}
|
\begin{minipage}{\linewidth} \label{scrap5}
|
||||||
$\langle$Protos {\footnotesize 3b}$\rangle\equiv$
|
$\langle$Protos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -194,7 +203,7 @@ $\langle$Protos {\footnotesize 3b}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 3abc, 6a.
|
\item Macro defined by scraps ?, ?, ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -210,12 +219,17 @@ needed:
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap6}
|
\begin{minipage}{\linewidth} \label{scrap6}
|
||||||
$\langle$Protos {\footnotesize 3c}$\rangle\equiv$
|
$\langle$Protos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
\mbox{}\verb@ int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength, @\\
|
\mbox{}\verb@ int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength, @\\
|
||||||
\mbox{}\verb@ int iBinWidth, int iLowBin, int iCompress);@\\
|
\mbox{}\verb@ int iBinWidth, int iLowBin, int iCompress);@\\
|
||||||
|
\mbox{}\verb@ int SINQHMConfigurePSD(pSINQHM self, int iMode,@\\
|
||||||
|
\mbox{}\verb@ int xSize, int xOff, int xFac,@\\
|
||||||
|
\mbox{}\verb@ int ySize, int yOff, int yFac,@\\
|
||||||
|
\mbox{}\verb@ int iBinWidth, @\\
|
||||||
|
\mbox{}\verb@ float *iEdges, int iEdgeLength);@\\
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
\mbox{}\verb@ int SINQHMDeconfigure(pSINQHM self, int iHarsh);@\\
|
\mbox{}\verb@ int SINQHMDeconfigure(pSINQHM self, int iHarsh);@\\
|
||||||
\mbox{}\verb@ int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,@\\
|
\mbox{}\verb@ int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,@\\
|
||||||
@ -229,14 +243,14 @@ $\langle$Protos {\footnotesize 3c}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 3abc, 6a.
|
\item Macro defined by scraps ?, ?, ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
\end{flushleft}
|
\end{flushleft}
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap7}
|
\begin{minipage}{\linewidth} \label{scrap7}
|
||||||
$\langle$IProtos {\footnotesize 4}$\rangle\equiv$
|
$\langle$IProtos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -245,7 +259,7 @@ $\langle$IProtos {\footnotesize 4}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 4, 6b.
|
\item Macro defined by scraps ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -262,6 +276,20 @@ may choose to strat at a different memory location. iCompress is for
|
|||||||
compression. All data will be right shifted by iCompress bits before
|
compression. All data will be right shifted by iCompress bits before
|
||||||
storage. To my knowledge this feature is currently not implemented.
|
storage. To my knowledge this feature is currently not implemented.
|
||||||
|
|
||||||
|
SINQHMConfigurePSD configures a TRICS/AMOR type detector. The parameters are:
|
||||||
|
\begin{description}
|
||||||
|
\item[self] The histogram memory data structure.
|
||||||
|
\item[iMode] The actual histogram mode with all submask bits.
|
||||||
|
\item[xSize] The x size of the detector.
|
||||||
|
\item[xOff] The offset in x for the detector position decoding.
|
||||||
|
\item[xFac] The factor used in decoding the x detector position.
|
||||||
|
\item[ySize] The y size of the detector.
|
||||||
|
\item[yOff] The offset in y for the detector position decoding.
|
||||||
|
\item[yFac] The factor used in decoding the y detector position.
|
||||||
|
\item[iBinWidth] The binwidth of the histograms.
|
||||||
|
\item[iEdges] An array holding the time binning edges.
|
||||||
|
\item[iEdgeLength] The length of iEdges.
|
||||||
|
\end{description}
|
||||||
|
|
||||||
SINQHMDeconfigure deconfigures the histogram memory. This is necessary prior
|
SINQHMDeconfigure deconfigures the histogram memory. This is necessary prior
|
||||||
to reconfiguration. The only parameter iHarsh defines how brutal the master
|
to reconfiguration. The only parameter iHarsh defines how brutal the master
|
||||||
@ -294,7 +322,7 @@ Thus the following functions are required:
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap8}
|
\begin{minipage}{\linewidth} \label{scrap8}
|
||||||
$\langle$TOFProto {\footnotesize 5a}$\rangle\equiv$
|
$\langle$TOFProto {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -311,7 +339,7 @@ $\langle$TOFProto {\footnotesize 5a}$\rangle\equiv$
|
|||||||
\end{flushleft}
|
\end{flushleft}
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap9}
|
\begin{minipage}{\linewidth} \label{scrap9}
|
||||||
$\langle$TOFintern {\footnotesize 5b}$\rangle\equiv$
|
$\langle$TOFintern {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -334,6 +362,7 @@ SINQHMTimeBin actually sends the new time binning to the histogram memory.
|
|||||||
SINQHMTimeBin is a static internal function.
|
SINQHMTimeBin is a static internal function.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
\section{Data aquisition functions}
|
\section{Data aquisition functions}
|
||||||
These functions allow to do data aquisition and retrieve or set histograms.
|
These functions allow to do data aquisition and retrieve or set histograms.
|
||||||
Data aquisition is fairly involved. In order for data aquisition to happen
|
Data aquisition is fairly involved. In order for data aquisition to happen
|
||||||
@ -348,7 +377,7 @@ cleared by default.
|
|||||||
|
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap10}
|
\begin{minipage}{\linewidth} \label{scrap10}
|
||||||
$\langle$Protos {\footnotesize 6a}$\rangle\equiv$
|
$\langle$Protos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -371,7 +400,7 @@ $\langle$Protos {\footnotesize 6a}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 3abc, 6a.
|
\item Macro defined by scraps ?, ?, ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -410,7 +439,7 @@ to any serious data aquisition.
|
|||||||
\section{Further internal routines}
|
\section{Further internal routines}
|
||||||
\begin{flushleft} \small
|
\begin{flushleft} \small
|
||||||
\begin{minipage}{\linewidth} \label{scrap11}
|
\begin{minipage}{\linewidth} \label{scrap11}
|
||||||
$\langle$IProtos {\footnotesize 6b}$\rangle\equiv$
|
$\langle$IProtos {\footnotesize ?}$\rangle\equiv$
|
||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\begin{list}{}{} \item
|
\begin{list}{}{} \item
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
@ -423,7 +452,7 @@ $\langle$IProtos {\footnotesize 6b}$\rangle\equiv$
|
|||||||
\vspace{-1ex}
|
\vspace{-1ex}
|
||||||
\footnotesize\addtolength{\baselineskip}{-1ex}
|
\footnotesize\addtolength{\baselineskip}{-1ex}
|
||||||
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
\begin{list}{}{\setlength{\itemsep}{-\parsep}\setlength{\itemindent}{-\leftmargin}}
|
||||||
\item Macro defined by scraps 4, 6b.
|
\item Macro defined by scraps ?, ?.
|
||||||
\item Macro referenced in scrap ?.
|
\item Macro referenced in scrap ?.
|
||||||
\end{list}
|
\end{list}
|
||||||
\end{minipage}\\[4ex]
|
\end{minipage}\\[4ex]
|
||||||
@ -494,8 +523,8 @@ $\langle$ErrCode {\footnotesize ?}$\rangle\equiv$
|
|||||||
\mbox{}\verb@@$\langle$ErrCode {\footnotesize ?}$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$ErrCode {\footnotesize ?}$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
\mbox{}\verb@/*------------------------------ Prototypes ------------------------------*/@\\
|
\mbox{}\verb@/*------------------------------ Prototypes ------------------------------*/@\\
|
||||||
\mbox{}\verb@@$\langle$Protos {\footnotesize 3a, \ldots\ }$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$Protos {\footnotesize ?, \ldots\ }$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@@$\langle$TOFProto {\footnotesize 5a}$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$TOFProto {\footnotesize ?}$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@#endif@\\
|
\mbox{}\verb@#endif@\\
|
||||||
\mbox{}\verb@@$\diamond$
|
\mbox{}\verb@@$\diamond$
|
||||||
\end{list}
|
\end{list}
|
||||||
@ -517,10 +546,10 @@ $\langle$ErrCode {\footnotesize ?}$\rangle\equiv$
|
|||||||
\mbox{}\verb@#ifndef SINQHMINTERNAL@\\
|
\mbox{}\verb@#ifndef SINQHMINTERNAL@\\
|
||||||
\mbox{}\verb@#define SINQHMINTERNAL@\\
|
\mbox{}\verb@#define SINQHMINTERNAL@\\
|
||||||
\mbox{}\verb@#define MAXBANK 1@\\
|
\mbox{}\verb@#define MAXBANK 1@\\
|
||||||
\mbox{}\verb@@$\langle$SBank {\footnotesize 2a}$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$SBank {\footnotesize ?}$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@@$\langle$SType {\footnotesize 2b, \ldots\ }$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$SType {\footnotesize ?, \ldots\ }$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@@$\langle$IProtos {\footnotesize 4, \ldots\ }$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$IProtos {\footnotesize ?, \ldots\ }$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@@$\langle$TOFintern {\footnotesize 5b}$\rangle$\verb@@\\
|
\mbox{}\verb@@$\langle$TOFintern {\footnotesize ?}$\rangle$\verb@@\\
|
||||||
\mbox{}\verb@#endif@\\
|
\mbox{}\verb@#endif@\\
|
||||||
\mbox{}\verb@@\\
|
\mbox{}\verb@@\\
|
||||||
\mbox{}\verb@@$\diamond$
|
\mbox{}\verb@@$\diamond$
|
||||||
|
|||||||
@ -87,6 +87,9 @@ the lower edges of all time bins.
|
|||||||
int iRank;
|
int iRank;
|
||||||
int iPacket;
|
int iPacket;
|
||||||
int iBanks;
|
int iBanks;
|
||||||
|
int xSize, ySize;
|
||||||
|
int xOff, xFac;
|
||||||
|
int yOff, yFac;
|
||||||
SBank pBank[MAXBANK];
|
SBank pBank[MAXBANK];
|
||||||
} SINQHM;
|
} SINQHM;
|
||||||
@}
|
@}
|
||||||
@ -96,7 +99,9 @@ computer, the second the port number at which the master server is
|
|||||||
listening. iClientPort defines a port for data communication. If no such
|
listening. iClientPort defines a port for data communication. If no such
|
||||||
port is open, this value will be 0. iStatus is a status flag. iBanks is the
|
port is open, this value will be 0. iStatus is a status flag. iBanks is the
|
||||||
number of detector banks defined. pSBank is an array of bank data structures
|
number of detector banks defined. pSBank is an array of bank data structures
|
||||||
describing the detector banks. In order to
|
describing the detector banks.
|
||||||
|
xOff, xFac and yOff and yFac are the offset and factor values needed for
|
||||||
|
the PSD calculation for TRICS and AMOR. In order to
|
||||||
maintain this data structure two functions are defined:
|
maintain this data structure two functions are defined:
|
||||||
|
|
||||||
\section{Byte swapping}
|
\section{Byte swapping}
|
||||||
@ -115,6 +120,8 @@ types for your compiler and computer.
|
|||||||
pSINQHM CopySINQHM(pSINQHM self);
|
pSINQHM CopySINQHM(pSINQHM self);
|
||||||
void DeleteSINQHM(pSINQHM self);
|
void DeleteSINQHM(pSINQHM self);
|
||||||
void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);
|
void SINQHMSetPar(pSINQHM self, int iRank, int iLength, int iBinWidth);
|
||||||
|
void SINQHMSetPSD(pSINQHM self, int xSize, int xOff, int xFac,
|
||||||
|
int ySize, int yOff, int yFac);
|
||||||
@}
|
@}
|
||||||
|
|
||||||
The first function creates a new SINQHM data structure and initialises the
|
The first function creates a new SINQHM data structure and initialises the
|
||||||
@ -123,6 +130,8 @@ mentioned above for the description of the data structure. DeleteSINQHM
|
|||||||
frees all memory associated with a SINQHM structure given by self. The
|
frees all memory associated with a SINQHM structure given by self. The
|
||||||
pointer to self is invalid ever afterwards.
|
pointer to self is invalid ever afterwards.
|
||||||
CopySINQHM creates a copy of the SINQHM structure passed in with self.
|
CopySINQHM creates a copy of the SINQHM structure passed in with self.
|
||||||
|
SINQHMSetPar sets time of flight parameters.
|
||||||
|
SINQHMSetPSD defines PSD parameters for TRICS/AMOR type detectors.
|
||||||
|
|
||||||
\section{SINQHM error handling}
|
\section{SINQHM error handling}
|
||||||
If not denoted otherwise all public SINQHM functions return an integer 1 on
|
If not denoted otherwise all public SINQHM functions return an integer 1 on
|
||||||
@ -146,6 +155,11 @@ needed:
|
|||||||
@d Protos @{
|
@d Protos @{
|
||||||
int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength,
|
int SINQHMConfigure(pSINQHM self, int iMode, int iRank, int iLength,
|
||||||
int iBinWidth, int iLowBin, int iCompress);
|
int iBinWidth, int iLowBin, int iCompress);
|
||||||
|
int SINQHMConfigurePSD(pSINQHM self, int iMode,
|
||||||
|
int xSize, int xOff, int xFac,
|
||||||
|
int ySize, int yOff, int yFac,
|
||||||
|
int iBinWidth,
|
||||||
|
float *iEdges, int iEdgeLength);
|
||||||
|
|
||||||
int SINQHMDeconfigure(pSINQHM self, int iHarsh);
|
int SINQHMDeconfigure(pSINQHM self, int iHarsh);
|
||||||
int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,
|
int SINQHMGetStatus(pSINQHM self,int *iMode, int *iDaq,
|
||||||
@ -171,6 +185,20 @@ may choose to strat at a different memory location. iCompress is for
|
|||||||
compression. All data will be right shifted by iCompress bits before
|
compression. All data will be right shifted by iCompress bits before
|
||||||
storage. To my knowledge this feature is currently not implemented.
|
storage. To my knowledge this feature is currently not implemented.
|
||||||
|
|
||||||
|
SINQHMConfigurePSD configures a TRICS/AMOR type detector. The parameters are:
|
||||||
|
\begin{description}
|
||||||
|
\item[self] The histogram memory data structure.
|
||||||
|
\item[iMode] The actual histogram mode with all submask bits.
|
||||||
|
\item[xSize] The x size of the detector.
|
||||||
|
\item[xOff] The offset in x for the detector position decoding.
|
||||||
|
\item[xFac] The factor used in decoding the x detector position.
|
||||||
|
\item[ySize] The y size of the detector.
|
||||||
|
\item[yOff] The offset in y for the detector position decoding.
|
||||||
|
\item[yFac] The factor used in decoding the y detector position.
|
||||||
|
\item[iBinWidth] The binwidth of the histograms.
|
||||||
|
\item[iEdges] An array holding the time binning edges.
|
||||||
|
\item[iEdgeLength] The length of iEdges.
|
||||||
|
\end{description}
|
||||||
|
|
||||||
SINQHMDeconfigure deconfigures the histogram memory. This is necessary prior
|
SINQHMDeconfigure deconfigures the histogram memory. This is necessary prior
|
||||||
to reconfiguration. The only parameter iHarsh defines how brutal the master
|
to reconfiguration. The only parameter iHarsh defines how brutal the master
|
||||||
@ -217,6 +245,7 @@ SINQHMTimeBin actually sends the new time binning to the histogram memory.
|
|||||||
SINQHMTimeBin is a static internal function.
|
SINQHMTimeBin is a static internal function.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
\section{Data aquisition functions}
|
\section{Data aquisition functions}
|
||||||
These functions allow to do data aquisition and retrieve or set histograms.
|
These functions allow to do data aquisition and retrieve or set histograms.
|
||||||
Data aquisition is fairly involved. In order for data aquisition to happen
|
Data aquisition is fairly involved. In order for data aquisition to happen
|
||||||
|
|||||||
@ -8,7 +8,7 @@
|
|||||||
|
|
||||||
#ifdef __alpha
|
#ifdef __alpha
|
||||||
#ifndef __vms
|
#ifndef __vms
|
||||||
#pragma nomember_alignment
|
#pragma pack 1
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#endif
|
||||||
/*------------------------------------------------------------------------------
|
/*------------------------------------------------------------------------------
|
||||||
@ -23,6 +23,7 @@
|
|||||||
#define MAX_CLIENTS 8 /* The maximum number of active clients */
|
#define MAX_CLIENTS 8 /* The maximum number of active clients */
|
||||||
#define MAX_TOF_CNTR 1024 /* The maximum number of individual counters ..
|
#define MAX_TOF_CNTR 1024 /* The maximum number of individual counters ..
|
||||||
** which can be handled in TOF mode */
|
** which can be handled in TOF mode */
|
||||||
|
#define MAX_PSD_CNTR 65536 /* maximum number of PSD elements */
|
||||||
#define MAX_TOF_NBINS 32768 /* The maximum number of bins in a TOF histog */
|
#define MAX_TOF_NBINS 32768 /* The maximum number of bins in a TOF histog */
|
||||||
#define MAX_TOF_EDGE 16 /* The maximum number of TOF edge arrays */
|
#define MAX_TOF_EDGE 16 /* The maximum number of TOF edge arrays */
|
||||||
#define VMIO_BASE_ADDR 0x1900 /* VME address of a (possible) VMIO10 module */
|
#define VMIO_BASE_ADDR 0x1900 /* VME address of a (possible) VMIO10 module */
|
||||||
@ -332,6 +333,20 @@
|
|||||||
struct tof_edge_arr edge_0;
|
struct tof_edge_arr edge_0;
|
||||||
struct tof_bank bank_0;
|
struct tof_bank bank_0;
|
||||||
} tof;
|
} tof;
|
||||||
|
struct {
|
||||||
|
uint n_extra_bytes;
|
||||||
|
usint n_edges;
|
||||||
|
usint n_banks;
|
||||||
|
uint preset_delay;
|
||||||
|
usint xFactor;
|
||||||
|
usint yFactor;
|
||||||
|
usint xOffset;
|
||||||
|
usint yOffset;
|
||||||
|
usint xSize;
|
||||||
|
usint ySize;
|
||||||
|
struct tof_edge_arr edge_0;
|
||||||
|
struct tof_bank bank_0;
|
||||||
|
} psd;
|
||||||
} u;
|
} u;
|
||||||
} cnfg;
|
} cnfg;
|
||||||
|
|
||||||
|
|||||||
@ -109,6 +109,7 @@
|
|||||||
"tof",
|
"tof",
|
||||||
"strobo",
|
"strobo",
|
||||||
"hrpt",
|
"hrpt",
|
||||||
|
"psd",
|
||||||
NULL
|
NULL
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|||||||
39
histmem.c
39
histmem.c
@ -537,10 +537,16 @@
|
|||||||
/*-----------------------------------------------------------------------*/
|
/*-----------------------------------------------------------------------*/
|
||||||
int HistSetOption(pHistMem self, char *name, char *value)
|
int HistSetOption(pHistMem self, char *name, char *value)
|
||||||
{
|
{
|
||||||
|
int status;
|
||||||
|
|
||||||
assert(self);
|
assert(self);
|
||||||
self->iInit = 1;
|
self->iInit = 1;
|
||||||
strtolower(name);
|
strtolower(name);
|
||||||
return StringDictUpdate(self->pOption,name, value);
|
status = StringDictUpdate(self->pOption,name, value);
|
||||||
|
if(status == 0)
|
||||||
|
{
|
||||||
|
return StringDictAddPair(self->pOption,name, value);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
/*-----------------------------------------------------------------------*/
|
/*-----------------------------------------------------------------------*/
|
||||||
int HistConfigure(pHistMem self, SConnection *pCon, SicsInterp *pSics)
|
int HistConfigure(pHistMem self, SConnection *pCon, SicsInterp *pSics)
|
||||||
@ -1161,7 +1167,7 @@
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* configure command */
|
/* interest command */
|
||||||
strtolower(argv[1]);
|
strtolower(argv[1]);
|
||||||
if(strcmp(argv[1],"interest") == 0)
|
if(strcmp(argv[1],"interest") == 0)
|
||||||
{
|
{
|
||||||
@ -1325,10 +1331,12 @@
|
|||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
|
SCWrite(pCon,
|
||||||
|
"ERROR: you are not privileged for attempted operation",eError);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
/* normal counting*/
|
||||||
else if(strcmp(argv[1],"count") == 0)
|
else if(strcmp(argv[1],"count") == 0)
|
||||||
{
|
{
|
||||||
if(SCMatchRights(pCon,self->iAccess))
|
if(SCMatchRights(pCon,self->iAccess))
|
||||||
@ -1347,7 +1355,27 @@
|
|||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
|
SCWrite(pCon,
|
||||||
|
"ERROR: you are not privileged for attempted operation",eError);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* forced count, for the case several hm need to be started */
|
||||||
|
else if(strcmp(argv[1],"countf") == 0)
|
||||||
|
{
|
||||||
|
if(SCMatchRights(pCon,self->iAccess))
|
||||||
|
{
|
||||||
|
iRet = HistDoCount(self,pCon);
|
||||||
|
if(iRet == 1)
|
||||||
|
{
|
||||||
|
SCSendOK(pCon);
|
||||||
|
}
|
||||||
|
return iRet;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,
|
||||||
|
"ERROR: you are not privileged for attempted operation",eError);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -1365,7 +1393,8 @@
|
|||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
|
SCWrite(pCon,
|
||||||
|
"ERROR: you are not privileged for attempted operation",eError);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@ -17,7 +17,8 @@ $\langle$Modes {\footnotesize ?}$\rangle\equiv$
|
|||||||
\mbox{}\verb@ eHNormal,@\\
|
\mbox{}\verb@ eHNormal,@\\
|
||||||
\mbox{}\verb@ eHTOF,@\\
|
\mbox{}\verb@ eHTOF,@\\
|
||||||
\mbox{}\verb@ eHStrobo,@\\
|
\mbox{}\verb@ eHStrobo,@\\
|
||||||
\mbox{}\verb@ eHRPT@\\
|
\mbox{}\verb@ eHRPT,@\\
|
||||||
|
\mbox{}\verb@ ePSD@\\
|
||||||
\mbox{}\verb@ } HistMode;@\\
|
\mbox{}\verb@ } HistMode;@\\
|
||||||
\mbox{}\verb@@$\diamond$
|
\mbox{}\verb@@$\diamond$
|
||||||
\end{list}
|
\end{list}
|
||||||
|
|||||||
@ -12,7 +12,8 @@ histograms. Let's discuss these different modes first.
|
|||||||
eHNormal,
|
eHNormal,
|
||||||
eHTOF,
|
eHTOF,
|
||||||
eHStrobo,
|
eHStrobo,
|
||||||
eHRPT
|
eHRPT,
|
||||||
|
ePSD
|
||||||
} HistMode;
|
} HistMode;
|
||||||
@}
|
@}
|
||||||
A histogram memory can be operated in transparent mode. It has not yet been
|
A histogram memory can be operated in transparent mode. It has not yet been
|
||||||
|
|||||||
426
nextrics.c
426
nextrics.c
@ -37,6 +37,16 @@
|
|||||||
#define DET1XS 2 /* pixel size in x of detector 1 */
|
#define DET1XS 2 /* pixel size in x of detector 1 */
|
||||||
#define DET1YS 2 /* pixel size in y of detector 1 */
|
#define DET1YS 2 /* pixel size in y of detector 1 */
|
||||||
#define DET1DESC "Non existent Detector"
|
#define DET1DESC "Non existent Detector"
|
||||||
|
#define DET2X 256 /* x -length of detector 1 */
|
||||||
|
#define DET2Y 256 /* y-length of detector 1 */
|
||||||
|
#define DET2XS 2 /* pixel size in x of detector 1 */
|
||||||
|
#define DET2YS 2 /* pixel size in y of detector 1 */
|
||||||
|
#define DET2DESC "Non existent second Detector"
|
||||||
|
#define DET3X 256 /* x -length of detector 1 */
|
||||||
|
#define DET3Y 256 /* y-length of detector 1 */
|
||||||
|
#define DET3XS 2 /* pixel size in x of detector 1 */
|
||||||
|
#define DET3YS 2 /* pixel size in y of detector 1 */
|
||||||
|
#define DET3DESC "Non existent third Detector"
|
||||||
#define DETAMAX 256 /* maximum length of pixelsize array */
|
#define DETAMAX 256 /* maximum length of pixelsize array */
|
||||||
|
|
||||||
/* histogram memory names */
|
/* histogram memory names */
|
||||||
@ -44,6 +54,12 @@
|
|||||||
#define HM2 "hm2"
|
#define HM2 "hm2"
|
||||||
#define HM3 "hm3"
|
#define HM3 "hm3"
|
||||||
|
|
||||||
|
/*
|
||||||
|
offset variable names
|
||||||
|
*/
|
||||||
|
#define HM2OFF "hm2off"
|
||||||
|
#define HM3OFF "hm3off"
|
||||||
|
|
||||||
/*------------------------ the data structure ----------------------------*/
|
/*------------------------ the data structure ----------------------------*/
|
||||||
typedef struct __NexTrics {
|
typedef struct __NexTrics {
|
||||||
pObjectDescriptor pDes;
|
pObjectDescriptor pDes;
|
||||||
@ -55,6 +71,7 @@
|
|||||||
int iFirst;
|
int iFirst;
|
||||||
int iFrameNum;
|
int iFrameNum;
|
||||||
pICallBack pCall;
|
pICallBack pCall;
|
||||||
|
float hm2Off, hm3Off;
|
||||||
} NexTrics;
|
} NexTrics;
|
||||||
|
|
||||||
/* event type */
|
/* event type */
|
||||||
@ -66,6 +83,7 @@
|
|||||||
pNexTrics pNew = NULL;
|
pNexTrics pNew = NULL;
|
||||||
int iRet;
|
int iRet;
|
||||||
CommandList *pCom = NULL;
|
CommandList *pCom = NULL;
|
||||||
|
pSicsVariable pVar = NULL;
|
||||||
|
|
||||||
/* allocate memory */
|
/* allocate memory */
|
||||||
pNew = (pNexTrics)malloc(sizeof(NexTrics));
|
pNew = (pNexTrics)malloc(sizeof(NexTrics));
|
||||||
@ -123,6 +141,25 @@
|
|||||||
pNew->iFirst = 1;
|
pNew->iFirst = 1;
|
||||||
pNew->iFrameNum = 0;
|
pNew->iFrameNum = 0;
|
||||||
|
|
||||||
|
pVar = FindVariable(pSics,HM2OFF);
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
pNew->hm2Off = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
pNew->hm2Off = -45.;
|
||||||
|
}
|
||||||
|
pVar = FindVariable(pSics,HM3OFF);
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
pNew->hm3Off = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
pNew->hm3Off = 45.;
|
||||||
|
}
|
||||||
|
|
||||||
return pNew;
|
return pNew;
|
||||||
}
|
}
|
||||||
/*-------------------------------------------------------------------------*/
|
/*-------------------------------------------------------------------------*/
|
||||||
@ -209,11 +246,11 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* create the command */
|
/* create the command */
|
||||||
iRet = AddCommand(pSics,"nexus",NexTricsAction,DeleteNexTrics,
|
iRet = AddCommand(pSics,"nxtrics",NexTricsAction,DeleteNexTrics,
|
||||||
pNew);
|
pNew);
|
||||||
if(!iRet)
|
if(!iRet)
|
||||||
{
|
{
|
||||||
SCWrite(pCon,"ERROR: duplicate command nexus not created",eError);
|
SCWrite(pCon,"ERROR: duplicate command nxtrics not created",eError);
|
||||||
}
|
}
|
||||||
return iRet;
|
return iRet;
|
||||||
}
|
}
|
||||||
@ -226,7 +263,8 @@
|
|||||||
CounterMode eMode;
|
CounterMode eMode;
|
||||||
HistInt lData[DET1X*DET1Y], i, lVal;
|
HistInt lData[DET1X*DET1Y], i, lVal;
|
||||||
int32 iVal;
|
int32 iVal;
|
||||||
float fVal;
|
float fVal, fTTheta;
|
||||||
|
pMotor pMot;
|
||||||
|
|
||||||
/* write motors */
|
/* write motors */
|
||||||
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
||||||
@ -235,10 +273,20 @@
|
|||||||
"framephi","PHI");
|
"framephi","PHI");
|
||||||
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
||||||
"frameomega","OM");
|
"frameomega","OM");
|
||||||
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
/*
|
||||||
"frame2theta","stt");
|
read two theta
|
||||||
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
*/
|
||||||
"frametilt","DG1");
|
pMot = FindMotor(pServ->pSics,"stt");
|
||||||
|
if(!pMot)
|
||||||
|
{
|
||||||
|
sprintf(pBueffel,"WARNING: cannot find motor stt");
|
||||||
|
SCWrite(pCon,pBueffel,eWarning);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* get the position */
|
||||||
|
iRet = MotorGetSoftPosition(pMot,pCon,&fTTheta);
|
||||||
|
|
||||||
|
|
||||||
/* write frame time */
|
/* write frame time */
|
||||||
SNXFormatTime(pBueffel,512);
|
SNXFormatTime(pBueffel,512);
|
||||||
@ -266,14 +314,63 @@
|
|||||||
NXDputalias(hfil,self->pDict,"framemonitor",&iVal);
|
NXDputalias(hfil,self->pDict,"framemonitor",&iVal);
|
||||||
|
|
||||||
/* write detector1 histogram */
|
/* write detector1 histogram */
|
||||||
GetHistogram(self->pHistogram1,pCon,0,0,DET1X*DET1Y,lData,DET1X*DET1Y*sizeof(HistInt));
|
strcpy(pBueffel,"detector1");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
||||||
|
"frametilt","DG1");
|
||||||
|
GetHistogram(self->pHistogram1,pCon,0,0,DET1X*DET1Y,lData,
|
||||||
|
DET1X*DET1Y*sizeof(HistInt));
|
||||||
NXDputalias(hfil,self->pDict,"framecounts",lData);
|
NXDputalias(hfil,self->pDict,"framecounts",lData);
|
||||||
|
fVal = fTTheta;
|
||||||
|
NXDputalias(hfil,self->pDict,"frame2theta",&fVal);
|
||||||
|
|
||||||
/* the NXdata links */
|
/* the NXdata links */
|
||||||
NXDaliaslink(hfil,self->pDict,"frame","detectorx");
|
NXDaliaslink(hfil,self->pDict,"frame","detectorx");
|
||||||
NXDaliaslink(hfil,self->pDict,"frame","detectory");
|
NXDaliaslink(hfil,self->pDict,"frame","detectory");
|
||||||
NXDaliaslink(hfil,self->pDict,"frame","framecounts");
|
NXDaliaslink(hfil,self->pDict,"frame","framecounts");
|
||||||
|
|
||||||
|
/*
|
||||||
|
do detector 2 histogram
|
||||||
|
*/
|
||||||
|
if(self->pHistogram2 != NULL)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector2");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
||||||
|
"frametilt","DG2");
|
||||||
|
GetHistogram(self->pHistogram2,pCon,0,0,DET2X*DET2Y,lData,
|
||||||
|
DET2X*DET2Y*sizeof(HistInt));
|
||||||
|
NXDputalias(hfil,self->pDict,"framecounts",lData);
|
||||||
|
fVal = fTTheta + self->hm2Off;
|
||||||
|
NXDputalias(hfil,self->pDict,"frame2theta",&fVal);
|
||||||
|
|
||||||
|
/* the NXdata links */
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","detectorx");
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","detectory");
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","framecounts");
|
||||||
|
}
|
||||||
|
/*
|
||||||
|
do detector 3 histogram
|
||||||
|
*/
|
||||||
|
if(self->pHistogram3 != NULL)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector3");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
SNXSPutMotor(pServ->pSics,pCon,hfil,self->pDict,
|
||||||
|
"frametilt","DG3");
|
||||||
|
GetHistogram(self->pHistogram2,pCon,0,0,DET3X*DET3Y,lData,
|
||||||
|
DET3X*DET3Y*sizeof(HistInt));
|
||||||
|
NXDputalias(hfil,self->pDict,"framecounts",lData);
|
||||||
|
fVal = fTTheta + self->hm3Off;
|
||||||
|
NXDputalias(hfil,self->pDict,"frame2theta",&fVal);
|
||||||
|
|
||||||
|
/* the NXdata links */
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","detectorx");
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","detectory");
|
||||||
|
NXDaliaslink(hfil,self->pDict,"frame","framecounts");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/* temperature */
|
/* temperature */
|
||||||
SNXSPutEVVar(hfil,self->pDict,"temperature",
|
SNXSPutEVVar(hfil,self->pDict,"temperature",
|
||||||
pCon,
|
pCon,
|
||||||
@ -421,8 +518,10 @@
|
|||||||
"monotheta","MUCA");
|
"monotheta","MUCA");
|
||||||
|
|
||||||
|
|
||||||
/* detector data */
|
/* detector data
|
||||||
/* first set detector variables in dictionary */
|
first set detector variables in dictionary
|
||||||
|
This is the first detector.
|
||||||
|
*/
|
||||||
strcpy(pBueffel,"detector1");
|
strcpy(pBueffel,"detector1");
|
||||||
NXDupdate(self->pDict,"dnumber",pBueffel);
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
sprintf(pBueffel,"%d",DET1X);
|
sprintf(pBueffel,"%d",DET1X);
|
||||||
@ -508,6 +607,202 @@
|
|||||||
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
second frame, but only if present
|
||||||
|
*/
|
||||||
|
if(self->pHistogram2 != NULL)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector2");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
sprintf(pBueffel,"%d",DET2X);
|
||||||
|
NXDupdate(self->pDict,"framedim1",pBueffel);
|
||||||
|
sprintf(pBueffel,"%d",DET2Y);
|
||||||
|
NXDupdate(self->pDict,"framedim2",pBueffel);
|
||||||
|
strcpy(pBueffel,DET2DESC);
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"ddescription",pBueffel);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector2 description",eError);
|
||||||
|
}
|
||||||
|
for(i = 0; i < DET2X; i++)
|
||||||
|
{
|
||||||
|
fPix[i] = i * DET2XS;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detectorx",fPix);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector2 x-axis description",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
for(i = 0; i < DET2Y; i++)
|
||||||
|
{
|
||||||
|
fPix[i] = i * DET2YS;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detectory",fPix);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector1 y-axis description",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det2zerox");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector x zero point not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detzerox",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor x zero point",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det2zeroy");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector2 y zero point not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detzeroy",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor y zero point",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det2dist");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector distance not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detdist",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor2 y distance",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
iRet = 1;
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detvalid",&iRet);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/*
|
||||||
|
third detector, but only if present
|
||||||
|
*/
|
||||||
|
if(self->pHistogram2 != NULL)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector3");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
sprintf(pBueffel,"%d",DET3X);
|
||||||
|
NXDupdate(self->pDict,"framedim1",pBueffel);
|
||||||
|
sprintf(pBueffel,"%d",DET3Y);
|
||||||
|
NXDupdate(self->pDict,"framedim2",pBueffel);
|
||||||
|
strcpy(pBueffel,DET3DESC);
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"ddescription",pBueffel);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector2 description",eError);
|
||||||
|
}
|
||||||
|
for(i = 0; i < DET3X; i++)
|
||||||
|
{
|
||||||
|
fPix[i] = i * DET3XS;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detectorx",fPix);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector2 x-axis description",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
for(i = 0; i < DET3Y; i++)
|
||||||
|
{
|
||||||
|
fPix[i] = i * DET3YS;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detectory",fPix);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detector1 y-axis description",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det3zerox");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector 3 x zero point not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detzerox",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor x zero point",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det3zeroy");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector 3 y zero point not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detzeroy",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor y zero point",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
pVar = NULL;
|
||||||
|
pVar = FindVariable(pServ->pSics,"det3dist");
|
||||||
|
if(pVar)
|
||||||
|
{
|
||||||
|
fVal = pVar->fVal;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: Variable detector 3 distance not found ",
|
||||||
|
eError);
|
||||||
|
fVal = -2188.99;
|
||||||
|
}
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detdist",&fVal);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write detecor 3 y distance",
|
||||||
|
eError);
|
||||||
|
}
|
||||||
|
iRet = 1;
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detvalid",&iRet);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
/* do sample information */
|
/* do sample information */
|
||||||
strcpy(pBueffel,"UNKNOWN");
|
strcpy(pBueffel,"UNKNOWN");
|
||||||
@ -622,7 +917,12 @@
|
|||||||
SCWrite(pCon,"WARNING: cannot link against monochromator group",eWarning);
|
SCWrite(pCon,"WARNING: cannot link against monochromator group",eWarning);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* links in detector group */
|
/*
|
||||||
|
links in detector group
|
||||||
|
detector 1
|
||||||
|
*/
|
||||||
|
strcpy(pBueffel,"detector1");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
iRet = NXDaliaslink(hfil,self->pDict,"det1","ddescription");
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","ddescription");
|
||||||
if(iRet != NX_OK)
|
if(iRet != NX_OK)
|
||||||
{
|
{
|
||||||
@ -660,6 +960,108 @@
|
|||||||
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
links in detector group, detector 2
|
||||||
|
*/
|
||||||
|
if(self->pHistogram2)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector2");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","ddescription");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector description",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detectorx");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector x-axis",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detectory");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector y-axis",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detzerox");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector x zero ",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detzeroy");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector y zero",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detdist");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector distance",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = 1;
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detvalid",&iRet);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
links in detector group, detector 3
|
||||||
|
*/
|
||||||
|
if(self->pHistogram3)
|
||||||
|
{
|
||||||
|
strcpy(pBueffel,"detector3");
|
||||||
|
NXDupdate(self->pDict,"dnumber",pBueffel);
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","ddescription");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector description",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detectorx");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector x-axis",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detectory");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector y-axis",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detzerox");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector x zero ",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detzeroy");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector y zero",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = NXDaliaslink(hfil,self->pDict,"det1","detdist");
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"WARNING: cannot link against detector distance",
|
||||||
|
eWarning);
|
||||||
|
}
|
||||||
|
iRet = 1;
|
||||||
|
iRet = NXDputalias(hfil,self->pDict,"detvalid",&iRet);
|
||||||
|
if(iRet != NX_OK)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: failed to write frame validity",eError);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/* links in sample group */
|
/* links in sample group */
|
||||||
iRet = NXDaliaslink(hfil,self->pDict,"samplev","samplename");
|
iRet = NXDaliaslink(hfil,self->pDict,"samplev","samplename");
|
||||||
@ -798,7 +1200,7 @@
|
|||||||
}
|
}
|
||||||
/*-------------------------------------------------------------------------
|
/*-------------------------------------------------------------------------
|
||||||
NexusGetFrame opens a TRICS NeXus file and retrieves a frame for the
|
NexusGetFrame opens a TRICS NeXus file and retrieves a frame for the
|
||||||
specified detector from it. This is a specila feature for the
|
specified detector from it. This is a special feature for the
|
||||||
status display.
|
status display.
|
||||||
---------------------------------------------------------------------------*/
|
---------------------------------------------------------------------------*/
|
||||||
static int NexusGetFrame(SConnection *pCon, pNexTrics self,
|
static int NexusGetFrame(SConnection *pCon, pNexTrics self,
|
||||||
|
|||||||
66
nxsans.c
66
nxsans.c
@ -6,6 +6,8 @@
|
|||||||
|
|
||||||
Mark Koennecke, August 1997 - November 1998
|
Mark Koennecke, August 1997 - November 1998
|
||||||
|
|
||||||
|
Updated to support the larger detector resolution and possible
|
||||||
|
TOF and stroboscopic modes, Mark Koennecke, February 2001
|
||||||
|
|
||||||
Copyright:
|
Copyright:
|
||||||
|
|
||||||
@ -198,10 +200,11 @@
|
|||||||
char pBueffel[512];
|
char pBueffel[512];
|
||||||
float fVal;
|
float fVal;
|
||||||
int iVal, iSet;
|
int iVal, iSet;
|
||||||
int32 iAxis[128];
|
int32 iAxis[256];
|
||||||
int i, iRet;
|
int i, iRet;
|
||||||
long lVal;
|
long lVal;
|
||||||
HistInt lData[65536];
|
HistInt *lData = NULL;
|
||||||
|
const float *fTime = NULL;
|
||||||
CommandList *pCom = NULL;
|
CommandList *pCom = NULL;
|
||||||
pHistMem self = NULL;
|
pHistMem self = NULL;
|
||||||
CounterMode eMode;
|
CounterMode eMode;
|
||||||
@ -211,6 +214,7 @@
|
|||||||
float fRot, fTilt, fLambda;
|
float fRot, fTilt, fLambda;
|
||||||
pDummy pDum;
|
pDummy pDum;
|
||||||
pIDrivable pDrive;
|
pIDrivable pDrive;
|
||||||
|
int iDim[MAXDIM], nDim, histSize;
|
||||||
|
|
||||||
/* start file */
|
/* start file */
|
||||||
Nfil = SNXStartSANS(pCon,pSics);
|
Nfil = SNXStartSANS(pCon,pSics);
|
||||||
@ -555,14 +559,64 @@
|
|||||||
NXDputalias(Nfil,pDict,"ddmo",&iVal);
|
NXDputalias(Nfil,pDict,"ddmo",&iVal);
|
||||||
fVal = GetHistCountTime(self,pCon);
|
fVal = GetHistCountTime(self,pCon);
|
||||||
NXDputalias(Nfil,pDict,"ddtime",&fVal);
|
NXDputalias(Nfil,pDict,"ddtime",&fVal);
|
||||||
GetHistogram(self,pCon,0,0,65536,lData,65536*sizeof(HistInt));
|
|
||||||
|
/*
|
||||||
|
Deal with actual histogram. Due to stroboscopic modes and the
|
||||||
|
new detector electronics we need to find out about the size
|
||||||
|
ourselves now. And possibly write time binning information.
|
||||||
|
*/
|
||||||
|
GetHistDim(self, iDim,&nDim);
|
||||||
|
histSize = 1;
|
||||||
|
for(i = 0; i < nDim; i++)
|
||||||
|
{
|
||||||
|
histSize *= iDim[i];
|
||||||
|
}
|
||||||
|
lData = (HistInt *)malloc(histSize*sizeof(HistInt));
|
||||||
|
if(!lData)
|
||||||
|
{
|
||||||
|
SCWrite(pCon,"ERROR: out of memory, FAILED to store data, file corrupt",
|
||||||
|
eError);
|
||||||
|
NXclose(&Nfil);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
GetHistogram(self,pCon,0,0,histSize,lData,histSize*sizeof(HistInt));
|
||||||
|
sprintf(pBueffel," %d ",iDim[0]);
|
||||||
|
NXDupdate(pDict,"dim1",pBueffel);
|
||||||
|
sprintf(pBueffel," %d ",iDim[1]);
|
||||||
|
NXDupdate(pDict,"dim2",pBueffel);
|
||||||
|
if(nDim == 2)
|
||||||
|
{
|
||||||
|
sprintf(pBueffel," -rank 2 -dim {%d,%d} ", iDim[0], iDim[1]);
|
||||||
|
NXDupdate(pDict,"countdim",pBueffel);
|
||||||
|
}
|
||||||
|
else if (nDim == 3)
|
||||||
|
{
|
||||||
|
sprintf(pBueffel," -rank 3 -dim {%d,%d,%d} ", iDim[0], iDim[1],
|
||||||
|
iDim[2]);
|
||||||
|
NXDupdate(pDict,"countdim",pBueffel);
|
||||||
|
sprintf(pBueffel," %d ",iDim[2]);
|
||||||
|
NXDupdate(pDict,"timedim",pBueffel);
|
||||||
|
}
|
||||||
NXDputalias(Nfil,pDict,"ddcounts",lData);
|
NXDputalias(Nfil,pDict,"ddcounts",lData);
|
||||||
for(i = 0; i < 256; i++)
|
free(lData);
|
||||||
|
/* write x and y axis */
|
||||||
|
for(i = 0; i < iDim[0]; i++)
|
||||||
{
|
{
|
||||||
iAxis[i] = i;
|
iAxis[i] = i;
|
||||||
}
|
}
|
||||||
NXDputalias(Nfil,pDict,"ddcx",iAxis);
|
NXDputalias(Nfil,pDict,"ddcx",iAxis);
|
||||||
|
for(i = 0; i < iDim[1]; i++)
|
||||||
|
{
|
||||||
|
iAxis[i] = i;
|
||||||
|
}
|
||||||
NXDputalias(Nfil,pDict,"ddcy",iAxis);
|
NXDputalias(Nfil,pDict,"ddcy",iAxis);
|
||||||
|
/* write time binning if appropriate */
|
||||||
|
if(nDim == 3)
|
||||||
|
{
|
||||||
|
fTime = GetHistTimeBin(self,&iVal);
|
||||||
|
NXDputalias(Nfil,pDict,"ddtb",(void *)fTime);
|
||||||
|
}
|
||||||
|
|
||||||
if(pSiem)
|
if(pSiem)
|
||||||
{
|
{
|
||||||
iRet = SPSGetADC(pSiem,1,&iVal);
|
iRet = SPSGetADC(pSiem,1,&iVal);
|
||||||
@ -579,6 +633,10 @@
|
|||||||
NXDaliaslink(Nfil,pDict,"dan","ddcy");
|
NXDaliaslink(Nfil,pDict,"dan","ddcy");
|
||||||
NXDaliaslink(Nfil,pDict,"dan","ddmo");
|
NXDaliaslink(Nfil,pDict,"dan","ddmo");
|
||||||
NXDaliaslink(Nfil,pDict,"dan","vlambda");
|
NXDaliaslink(Nfil,pDict,"dan","vlambda");
|
||||||
|
if(nDim == 3)
|
||||||
|
{
|
||||||
|
NXDaliaslink(Nfil,pDict,"dan","ddtb");
|
||||||
|
}
|
||||||
|
|
||||||
/* send quieck message for autoamtic copying*/
|
/* send quieck message for autoamtic copying*/
|
||||||
i = 131;
|
i = 131;
|
||||||
|
|||||||
16
sansdict.dic
16
sansdict.dic
@ -32,6 +32,9 @@ vlambda = /entry1,NXentry/SANS,NXinstrument/Dornier-VS,NXchopper/SDS \
|
|||||||
#-------------------- monitor 1
|
#-------------------- monitor 1
|
||||||
m1counts = /entry1,NXentry/SANS,NXinstrument/monitor1,NXmonitor/SDS \
|
m1counts = /entry1,NXentry/SANS,NXinstrument/monitor1,NXmonitor/SDS \
|
||||||
counts -type DFNT_INT32
|
counts -type DFNT_INT32
|
||||||
|
#-------------------- proton monitor
|
||||||
|
pbcounts = /entry1,NXentry/SANS,NXinstrument/integrated_beam,NXmonitor/SDS \
|
||||||
|
counts -type DFNT_INT32
|
||||||
#--------------------- collimator
|
#--------------------- collimator
|
||||||
colli = /entry1,NXentry/SANS,NXinstrument/collimator,NXcollimator/SDS \
|
colli = /entry1,NXentry/SANS,NXinstrument/collimator,NXcollimator/SDS \
|
||||||
length -attr {units,m}
|
length -attr {units,m}
|
||||||
@ -70,12 +73,19 @@ ddmo = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS monitor_counts
|
|||||||
-type DFNT_UINT32 -rank 1 -dim {1}
|
-type DFNT_UINT32 -rank 1 -dim {1}
|
||||||
ddtime = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS \
|
ddtime = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS \
|
||||||
counting_time -attr {units,seconds}
|
counting_time -attr {units,seconds}
|
||||||
|
countdim = -rank 2 -dim {256,256}
|
||||||
|
timedim = 1
|
||||||
|
dim1 = 256
|
||||||
|
dim2 = 256
|
||||||
ddcounts = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS counts \
|
ddcounts = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS counts \
|
||||||
-type DFNT_UINT32 -rank 2 -dim {128,128} -attr {signal,1}
|
-type DFNT_UINT32 -LZW $(countdim) -attr {signal,1}
|
||||||
ddcx = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS detector_x \
|
ddcx = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS detector_x \
|
||||||
-type DFNT_UINT32 -rank 1 -dim {128} -attr {axis,1}
|
-type DFNT_UINT32 -rank 1 -dim {$(dim1)} -attr {axis,1}
|
||||||
ddcy = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS detector_y \
|
ddcy = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS detector_y \
|
||||||
-type DFNT_INT32 -rank 1 -dim {128} -attr {axis,2}
|
-type DFNT_INT32 -rank 1 -dim {$(dim2)} -attr {axis,2}
|
||||||
|
ddtb = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS tof_or_gummi \
|
||||||
|
-rank 1 -dim {$(timedim)} -attr {axis,3} \
|
||||||
|
-attr {units,uSecOrStroboscopicDimension}
|
||||||
ddtemp = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS \
|
ddtemp = /entry1,NXentry/SANS,NXinstrument/detector,NXdetector/SDS \
|
||||||
temperature
|
temperature
|
||||||
#--------Sample
|
#--------Sample
|
||||||
|
|||||||
@ -11,12 +11,10 @@ hm genbin 120.000000 35.000000 512
|
|||||||
hm init
|
hm init
|
||||||
datafile focus-1001848.hdf
|
datafile focus-1001848.hdf
|
||||||
datafile setAccess 3
|
datafile setAccess 3
|
||||||
hm3 CountMode timer
|
|
||||||
hm3 preset 100.000000
|
|
||||||
hm2 CountMode timer
|
hm2 CountMode timer
|
||||||
hm2 preset 100.000000
|
hm2 preset 2.000000
|
||||||
hm1 CountMode timer
|
hm1 CountMode timer
|
||||||
hm1 preset 100.000000
|
hm1 preset 2.000000
|
||||||
dbfile UNKNOWN
|
dbfile UNKNOWN
|
||||||
dbfile setAccess 2
|
dbfile setAccess 2
|
||||||
# Motor th
|
# Motor th
|
||||||
@ -30,11 +28,23 @@ th AccessCode 2.000000
|
|||||||
#Crystallographic Settings
|
#Crystallographic Settings
|
||||||
hkl lambda 0.703790
|
hkl lambda 0.703790
|
||||||
hkl setub -0.124702 0.001618 -0.041357 -0.104448 -0.001326 0.049388 0.000751 0.084094 0.001574
|
hkl setub -0.124702 0.001618 -0.041357 -0.104448 -0.001326 0.049388 0.000751 0.084094 0.001574
|
||||||
det1dist 300.
|
det3dist 300.000000
|
||||||
|
det3dist setAccess 1
|
||||||
|
det3zeroy 128.000000
|
||||||
|
det3zeroy setAccess 1
|
||||||
|
det3zerox 128.000000
|
||||||
|
det3zerox setAccess 1
|
||||||
|
det2dist 300.000000
|
||||||
|
det2dist setAccess 1
|
||||||
|
det2zeroy 128.000000
|
||||||
|
det2zeroy setAccess 1
|
||||||
|
det2zerox 128.000000
|
||||||
|
det2zerox setAccess 1
|
||||||
|
det1dist 300.000000
|
||||||
det1dist setAccess 1
|
det1dist setAccess 1
|
||||||
det1zeroy 128.
|
det1zeroy 128.000000
|
||||||
det1zeroy setAccess 1
|
det1zeroy setAccess 1
|
||||||
det1zerox 128.
|
det1zerox 128.000000
|
||||||
det1zerox setAccess 1
|
det1zerox setAccess 1
|
||||||
mono2theta 36.77
|
mono2theta 36.77
|
||||||
mono2theta setAccess 1
|
mono2theta setAccess 1
|
||||||
@ -72,6 +82,22 @@ ph Fixed -1.000000
|
|||||||
ph sign 1.000000
|
ph sign 1.000000
|
||||||
ph InterruptMode 0.000000
|
ph InterruptMode 0.000000
|
||||||
ph AccessCode 2.000000
|
ph AccessCode 2.000000
|
||||||
|
# Motor dg3
|
||||||
|
dg3 SoftZero 0.000000
|
||||||
|
dg3 SoftLowerLim -10.000000
|
||||||
|
dg3 SoftUpperLim 40.000000
|
||||||
|
dg3 Fixed -1.000000
|
||||||
|
dg3 sign 1.000000
|
||||||
|
dg3 InterruptMode 0.000000
|
||||||
|
dg3 AccessCode 2.000000
|
||||||
|
# Motor dg2
|
||||||
|
dg2 SoftZero 0.000000
|
||||||
|
dg2 SoftLowerLim -10.000000
|
||||||
|
dg2 SoftUpperLim 40.000000
|
||||||
|
dg2 Fixed -1.000000
|
||||||
|
dg2 sign 1.000000
|
||||||
|
dg2 InterruptMode 0.000000
|
||||||
|
dg2 AccessCode 2.000000
|
||||||
# Motor dg1
|
# Motor dg1
|
||||||
dg1 SoftZero 0.000000
|
dg1 SoftZero 0.000000
|
||||||
dg1 SoftLowerLim -10.000000
|
dg1 SoftLowerLim -10.000000
|
||||||
@ -123,7 +149,9 @@ twotheta AccessCode 2.000000
|
|||||||
lastscancommand UNKNOWN
|
lastscancommand UNKNOWN
|
||||||
lastscancommand setAccess 2
|
lastscancommand setAccess 2
|
||||||
banana CountMode timer
|
banana CountMode timer
|
||||||
banana preset 100.000000
|
banana preset 2.000000
|
||||||
|
banana genbin 100.000000 13.000000 64
|
||||||
|
banana init
|
||||||
sample_mur 0.000000
|
sample_mur 0.000000
|
||||||
sample_mur setAccess 2
|
sample_mur setAccess 2
|
||||||
email UNKNOWN
|
email UNKNOWN
|
||||||
@ -135,7 +163,7 @@ phone setAccess 2
|
|||||||
adress UNKNOWN
|
adress UNKNOWN
|
||||||
adress setAccess 2
|
adress setAccess 2
|
||||||
# Counter counter
|
# Counter counter
|
||||||
counter SetPreset 1000.000000
|
counter SetPreset 100.000000
|
||||||
counter SetMode Timer
|
counter SetMode Timer
|
||||||
# Motor som
|
# Motor som
|
||||||
som SoftZero 0.000000
|
som SoftZero 0.000000
|
||||||
@ -407,5 +435,5 @@ sample DanielOxid
|
|||||||
sample setAccess 2
|
sample setAccess 2
|
||||||
title TopsiTupsiTapsi
|
title TopsiTupsiTapsi
|
||||||
title setAccess 2
|
title setAccess 2
|
||||||
starttime 2000-12-15 15:44:22
|
starttime 2001-01-29 16:18:12
|
||||||
starttime setAccess 2
|
starttime setAccess 2
|
||||||
|
|||||||
@ -62,7 +62,7 @@
|
|||||||
**
|
**
|
||||||
** If <arg0> = "focus"
|
** If <arg0> = "focus"
|
||||||
** <arg1> = name of hostM (Mittel-bank) (dflt=localhost).
|
** <arg1> = name of hostM (Mittel-bank) (dflt=localhost).
|
||||||
** <arg2> = #-counters in Mittel-bank (dflt=151).
|
** <arg2> = #-counters in Mittel-bank (dflt=150).
|
||||||
** <arg3> = name of hostO (Ober-bank) (dflt=lnse05.vme).
|
** <arg3> = name of hostO (Ober-bank) (dflt=lnse05.vme).
|
||||||
** <arg4> = #-counters in Ober-bank (dflt=117).
|
** <arg4> = #-counters in Ober-bank (dflt=117).
|
||||||
** <arg5> = name of hostU (Unter-bank) (dflt=lnse06.vme).
|
** <arg5> = name of hostU (Unter-bank) (dflt=lnse06.vme).
|
||||||
@ -926,9 +926,9 @@
|
|||||||
if (hostM[0] == NIL) hostM = "localhost";
|
if (hostM[0] == NIL) hostM = "localhost";
|
||||||
|
|
||||||
if (p_arg2 == NULL) {
|
if (p_arg2 == NULL) {
|
||||||
ndetM = 151;
|
ndetM = 150;
|
||||||
}else if (p_arg2[0] == NIL) {
|
}else if (p_arg2[0] == NIL) {
|
||||||
ndetM = 151;
|
ndetM = 150;
|
||||||
}else {
|
}else {
|
||||||
if ((sscanf (p_arg2, "%i", &ndetM) != 1) ||
|
if ((sscanf (p_arg2, "%i", &ndetM) != 1) ||
|
||||||
(ndetM <= 0) ||
|
(ndetM <= 0) ||
|
||||||
|
|||||||
@ -218,7 +218,7 @@
|
|||||||
#define LWL_PSD_PWF 0x20000000 /* PSD-mode Power Fail bit */
|
#define LWL_PSD_PWF 0x20000000 /* PSD-mode Power Fail bit */
|
||||||
#define LWL_PSD_TIME 0x000fffff /* PSD-mode time stamp extraction
|
#define LWL_PSD_TIME 0x000fffff /* PSD-mode time stamp extraction
|
||||||
mask */
|
mask */
|
||||||
#define LWL_PSD_FLASH_MASK 0x00ff /* mask for flash count
|
#define LWL_PSD_FLASH_MASK 0x00ff /* mask for flash count */
|
||||||
|
|
||||||
#define LWL_SM_NC (0x10000000) /* Strobo-Mode/No-Coinc 0 chan dgrm hdr */
|
#define LWL_SM_NC (0x10000000) /* Strobo-Mode/No-Coinc 0 chan dgrm hdr */
|
||||||
#define LWL_SM_NC_C1 (0x11000000) /* Strobo-Mode/No-Coinc 1 chan dgrm hdr */
|
#define LWL_SM_NC_C1 (0x11000000) /* Strobo-Mode/No-Coinc 1 chan dgrm hdr */
|
||||||
|
|||||||
175
sinqhmdriv.c
175
sinqhmdriv.c
@ -35,6 +35,9 @@
|
|||||||
IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
|
IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
|
||||||
NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
|
NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
|
||||||
MODIFICATIONS.
|
MODIFICATIONS.
|
||||||
|
|
||||||
|
Modified to work without counter in slave mode.
|
||||||
|
Mark Koennecke, January 2001
|
||||||
----------------------------------------------------------------------------*/
|
----------------------------------------------------------------------------*/
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
@ -86,6 +89,8 @@
|
|||||||
CommandList *pCom = NULL;
|
CommandList *pCom = NULL;
|
||||||
int iStart = 0;
|
int iStart = 0;
|
||||||
int iInit = 0, i;
|
int iInit = 0, i;
|
||||||
|
int xOff, xFac, yOff, yFac;
|
||||||
|
int iPort;
|
||||||
|
|
||||||
assert(self);
|
assert(self);
|
||||||
assert(self->pPriv);
|
assert(self->pPriv);
|
||||||
@ -120,29 +125,36 @@
|
|||||||
PrintHMError("No network name for histogram memory computer found",pCon);
|
PrintHMError("No network name for histogram memory computer found",pCon);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
iPort = (int)fVal;
|
||||||
|
|
||||||
/* the counter */
|
/* the counter */
|
||||||
status = StringDictGet(pOpt,"counter",pcCounter,254);
|
status = StringDictGet(pOpt,"counter",pcCounter,254);
|
||||||
if(!status)
|
if(!status)
|
||||||
{
|
{
|
||||||
PrintHMError("No network name for histogram memory computer found",pCon);
|
SCWrite(pCon,"WARNING: no counter control found for this HM",
|
||||||
return 0;
|
eWarning);
|
||||||
|
pInternal->pCounter = NULL;
|
||||||
}
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
pCom = FindCommand(pSics,pcCounter);
|
pCom = FindCommand(pSics,pcCounter);
|
||||||
if(!pCom)
|
if(!pCom)
|
||||||
{
|
{
|
||||||
PrintHMError("EL737 counter for histogram memory not found",pCon);
|
PrintHMError("EL737 counter for histogram memory not found",
|
||||||
|
pCon);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
pInternal->pCounter = (pCounter)pCom->pData;
|
pInternal->pCounter = (pCounter)pCom->pData;
|
||||||
if(!pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,COUNTID))
|
if(!pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
||||||
|
COUNTID))
|
||||||
{
|
{
|
||||||
PrintHMError("EL737 counter for histogram memory is invalid",pCon);
|
PrintHMError("EL737 counter for histogram memory is invalid",
|
||||||
|
pCon);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
}
|
||||||
/* ok! put in HM */
|
/* ok! put in HM */
|
||||||
pInternal->pMaster = CreateSINQHM(pHMComputer,(int)fVal);
|
pInternal->pMaster = CreateSINQHM(pHMComputer,iPort);
|
||||||
if(!pInternal->pMaster)
|
if(!pInternal->pMaster)
|
||||||
{
|
{
|
||||||
PrintHMError("No memory to allocate SINQHM",pCon);
|
PrintHMError("No memory to allocate SINQHM",pCon);
|
||||||
@ -227,6 +239,9 @@
|
|||||||
case eHRPT:
|
case eHRPT:
|
||||||
iMode = SQHM__HRPT;
|
iMode = SQHM__HRPT;
|
||||||
break;
|
break;
|
||||||
|
case ePSD:
|
||||||
|
iMode = SQHM__HM_PSD;
|
||||||
|
break;
|
||||||
default:
|
default:
|
||||||
PrintHMError("Unsupported mode requested",pCon);
|
PrintHMError("Unsupported mode requested",pCon);
|
||||||
return 0;
|
return 0;
|
||||||
@ -249,12 +264,63 @@
|
|||||||
PrintHMError("Unsupported overflowmode requested",pCon);
|
PrintHMError("Unsupported overflowmode requested",pCon);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
if(self->eHistMode != ePSD)
|
||||||
|
{
|
||||||
status = SINQHMConfigure(pInternal->pMaster,
|
status = SINQHMConfigure(pInternal->pMaster,
|
||||||
iMode,
|
iMode,
|
||||||
self->iRank,
|
self->iRank,
|
||||||
self->iLength,
|
self->iLength,
|
||||||
self->iBinWidth,
|
self->iBinWidth,
|
||||||
0,0);
|
0,0);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
status = StringDictGetAsNumber(pOpt,"xoff",&fVal);
|
||||||
|
if(!status)
|
||||||
|
{
|
||||||
|
PrintHMError(
|
||||||
|
"No xOff value for PSD mode found",pCon);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
xOff = (int)fVal;
|
||||||
|
status = StringDictGetAsNumber(pOpt,"xfac",&fVal);
|
||||||
|
if(!status)
|
||||||
|
{
|
||||||
|
PrintHMError(
|
||||||
|
"No xFac value for PSD mode found",pCon);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
xFac = (int)fVal;
|
||||||
|
status = StringDictGetAsNumber(pOpt,"yoff",&fVal);
|
||||||
|
if(!status)
|
||||||
|
{
|
||||||
|
PrintHMError(
|
||||||
|
"No yOff value for PSD mode found",pCon);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
yOff = (int)fVal;
|
||||||
|
status = StringDictGetAsNumber(pOpt,"yfac",&fVal);
|
||||||
|
if(!status)
|
||||||
|
{
|
||||||
|
PrintHMError(
|
||||||
|
"No yFac value for PSD mode found",pCon);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
yFac = (int)fVal;
|
||||||
|
/* xSize and ySize are supposed to be in dim */
|
||||||
|
status = SINQHMConfigurePSD(pInternal->pMaster,
|
||||||
|
iMode,
|
||||||
|
self->iDims[0],
|
||||||
|
xOff,
|
||||||
|
xFac,
|
||||||
|
self->iDims[1],
|
||||||
|
yOff,
|
||||||
|
yFac,
|
||||||
|
self->iBinWidth,
|
||||||
|
self->fTime,
|
||||||
|
self->iTimeChan);
|
||||||
|
}
|
||||||
|
|
||||||
if(status < 0)
|
if(status < 0)
|
||||||
{
|
{
|
||||||
SINQHMError2Text(status, pError,131);
|
SINQHMError2Text(status, pError,131);
|
||||||
@ -294,8 +360,11 @@
|
|||||||
pInternal = self->pPriv;
|
pInternal = self->pPriv;
|
||||||
|
|
||||||
/* tell the counter box our current status */
|
/* tell the counter box our current status */
|
||||||
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
SetCounterMode(pInternal->pCounter,self->eCount);
|
SetCounterMode(pInternal->pCounter,self->eCount);
|
||||||
pInternal->pCounter->pDriv->fPreset = self->fCountPreset;
|
pInternal->pCounter->pDriv->fPreset = self->fCountPreset;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/* first zero the HM */
|
/* first zero the HM */
|
||||||
@ -328,13 +397,17 @@
|
|||||||
|
|
||||||
|
|
||||||
/* start the El737 counter */
|
/* start the El737 counter */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
return pCountInt->StartCount(pInternal->pCounter,pCon);
|
return pCountInt->StartCount(pInternal->pCounter,pCon);
|
||||||
}
|
}
|
||||||
return 0;
|
}
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
static int SQPause(pHistDriver self, SConnection *pCon)
|
static int SQPause(pHistDriver self, SConnection *pCon)
|
||||||
@ -359,13 +432,17 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* pause the El737 counter */
|
/* pause the El737 counter */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
return pCountInt->Pause(pInternal->pCounter,pCon);
|
return pCountInt->Pause(pInternal->pCounter,pCon);
|
||||||
}
|
}
|
||||||
return 0;
|
}
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
static int SQContinue(pHistDriver self, SConnection *pCon)
|
static int SQContinue(pHistDriver self, SConnection *pCon)
|
||||||
@ -390,13 +467,17 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* continue the El737 counter */
|
/* continue the El737 counter */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
return pCountInt->Continue(pInternal->pCounter,pCon);
|
return pCountInt->Continue(pInternal->pCounter,pCon);
|
||||||
}
|
}
|
||||||
return 0;
|
}
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
static int SQHalt(pHistDriver self)
|
static int SQHalt(pHistDriver self)
|
||||||
@ -420,7 +501,10 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Halt counter */
|
/* Halt counter */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
@ -429,9 +513,14 @@
|
|||||||
{
|
{
|
||||||
iRet = 0;
|
iRet = 0;
|
||||||
}
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
iRet = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
return iRet;
|
return iRet;
|
||||||
}
|
}
|
||||||
return 0;
|
return 1;
|
||||||
}
|
}
|
||||||
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
||||||
static int SQStatus(pHistDriver self, SConnection *pCon)
|
static int SQStatus(pHistDriver self, SConnection *pCon)
|
||||||
@ -449,7 +538,10 @@
|
|||||||
pInternal = self->pPriv;
|
pInternal = self->pPriv;
|
||||||
|
|
||||||
/* first check at counter */
|
/* first check at counter */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
@ -460,7 +552,7 @@
|
|||||||
return status;
|
return status;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
/* now check at HM */
|
/* now check at HM */
|
||||||
iRet = SINQHMGetStatus(pInternal->pMaster,&iMode,&iDaq,
|
iRet = SINQHMGetStatus(pInternal->pMaster,&iMode,&iDaq,
|
||||||
@ -476,6 +568,15 @@
|
|||||||
{
|
{
|
||||||
return HWPause;
|
return HWPause;
|
||||||
}
|
}
|
||||||
|
else if(iDaq == 1)
|
||||||
|
{
|
||||||
|
status = HWBusy;
|
||||||
|
}
|
||||||
|
else if(iDaq == 0)
|
||||||
|
{
|
||||||
|
status = HWIdle;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
return status;
|
return status;
|
||||||
}
|
}
|
||||||
@ -498,11 +599,18 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* now counter errors */
|
/* now counter errors */
|
||||||
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
return pInternal->pCounter->pDriv->GetError(pInternal->pCounter->pDriv,
|
return pInternal->pCounter->pDriv->GetError(pInternal->pCounter->pDriv,
|
||||||
iCode,
|
iCode,
|
||||||
pError,
|
pError,
|
||||||
iErrLen);
|
iErrLen);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
/* this can't be */
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
static int SQFixIt(pHistDriver self, int iCode)
|
static int SQFixIt(pHistDriver self, int iCode)
|
||||||
@ -541,9 +649,14 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* do counter errors */
|
/* do counter errors */
|
||||||
return pInternal->pCounter->pDriv->TryAndFixIt(pInternal->pCounter->pDriv,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
return pInternal->pCounter->pDriv->TryAndFixIt(
|
||||||
|
pInternal->pCounter->pDriv,
|
||||||
iCode);
|
iCode);
|
||||||
}
|
}
|
||||||
|
return COTERM;
|
||||||
|
}
|
||||||
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
||||||
static int SQGetData(pHistDriver self, SConnection *pCon)
|
static int SQGetData(pHistDriver self, SConnection *pCon)
|
||||||
{
|
{
|
||||||
@ -575,14 +688,18 @@
|
|||||||
|
|
||||||
|
|
||||||
/* do only counter, histograms are read on demand */
|
/* do only counter, histograms are read on demand */
|
||||||
pCountInt = pInternal->pCounter->pDes->GetInterface(pInternal->pCounter,
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
|
pCountInt = pInternal->pCounter->pDes->GetInterface(
|
||||||
|
pInternal->pCounter,
|
||||||
COUNTID);
|
COUNTID);
|
||||||
if(pCountInt)
|
if(pCountInt)
|
||||||
{
|
{
|
||||||
return pCountInt->TransferData(pInternal->pCounter,
|
return pCountInt->TransferData(pInternal->pCounter,
|
||||||
pCon);
|
pCon);
|
||||||
}
|
}
|
||||||
return 0;
|
}
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
/*--------------------------------------------------------------------------*/
|
/*--------------------------------------------------------------------------*/
|
||||||
static int SQGetHistogram(pHistDriver self, SConnection *pCon,
|
static int SQGetHistogram(pHistDriver self, SConnection *pCon,
|
||||||
@ -748,8 +865,11 @@
|
|||||||
assert(self->pPriv);
|
assert(self->pPriv);
|
||||||
|
|
||||||
pInternal = self->pPriv;
|
pInternal = self->pPriv;
|
||||||
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
return GetMonitor(pInternal->pCounter,i,pCon);
|
return GetMonitor(pInternal->pCounter,i,pCon);
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
||||||
static float SQGetTime(pHistDriver self,SConnection *pCon)
|
static float SQGetTime(pHistDriver self,SConnection *pCon)
|
||||||
@ -761,8 +881,11 @@
|
|||||||
assert(self->pPriv);
|
assert(self->pPriv);
|
||||||
|
|
||||||
pInternal = self->pPriv;
|
pInternal = self->pPriv;
|
||||||
|
if(pInternal->pCounter != NULL)
|
||||||
|
{
|
||||||
return GetCountTime(pInternal->pCounter,pCon);
|
return GetCountTime(pInternal->pCounter,pCon);
|
||||||
|
}
|
||||||
|
return -999.99;
|
||||||
}
|
}
|
||||||
/*---------------------------------------------------------------------------*/
|
/*---------------------------------------------------------------------------*/
|
||||||
static int SQPreset(pHistDriver self, SConnection *pCon, HistInt iVal)
|
static int SQPreset(pHistDriver self, SConnection *pCon, HistInt iVal)
|
||||||
@ -829,6 +952,12 @@
|
|||||||
StringDictAddPair(pOption,"hmcomputer","psds02.psi.ch");
|
StringDictAddPair(pOption,"hmcomputer","psds02.psi.ch");
|
||||||
StringDictAddPair(pOption,"hmport","2400");
|
StringDictAddPair(pOption,"hmport","2400");
|
||||||
StringDictAddPair(pOption,"counter","Rudolf");
|
StringDictAddPair(pOption,"counter","Rudolf");
|
||||||
|
StringDictAddPair(pOption,"xsize","256");
|
||||||
|
StringDictAddPair(pOption,"xoff","100");
|
||||||
|
StringDictAddPair(pOption,"xfac","10");
|
||||||
|
StringDictAddPair(pOption,"ysize","256");
|
||||||
|
StringDictAddPair(pOption,"yoff","100");
|
||||||
|
StringDictAddPair(pOption,"yfac","10");
|
||||||
StringDictAddPair(pOption,"init","1");
|
StringDictAddPair(pOption,"init","1");
|
||||||
|
|
||||||
/* initialise our private data structure */
|
/* initialise our private data structure */
|
||||||
|
|||||||
75
test.tcl
75
test.tcl
@ -215,8 +215,8 @@ VarMake email Text User
|
|||||||
VarMake sample_mur Float User
|
VarMake sample_mur Float User
|
||||||
|
|
||||||
MakeDataNumber SicsDataNumber "$shome/sics/danu.dat"
|
MakeDataNumber SicsDataNumber "$shome/sics/danu.dat"
|
||||||
#InitSANS $shome/sics/sansdict.dic
|
InitSANS $shome/sics/sansdict.dic
|
||||||
InitDMC
|
#InitDMC
|
||||||
|
|
||||||
MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
||||||
MakePeakCenter xxxscan
|
MakePeakCenter xxxscan
|
||||||
@ -244,9 +244,9 @@ banana init
|
|||||||
ClientPut "HM initialized"
|
ClientPut "HM initialized"
|
||||||
source $shome/sics/tcl/scancom.tcl
|
source $shome/sics/tcl/scancom.tcl
|
||||||
#source $shome/sics/countf.tcl
|
#source $shome/sics/countf.tcl
|
||||||
source $shome/sics/tcl/count.tcl
|
#source $shome/sics/tcl/count.tcl
|
||||||
Publish count User
|
#Publish count User
|
||||||
Publish repeat user
|
#Publish repeat user
|
||||||
source $shome/sics/tcl/fit.tcl
|
source $shome/sics/tcl/fit.tcl
|
||||||
Publish fit Spy
|
Publish fit Spy
|
||||||
SerialInit
|
SerialInit
|
||||||
@ -266,6 +266,8 @@ Motor chi SIM 0. 360. .1 2. # chi circle
|
|||||||
Motor phi SIM -360. 360. .1 2. # phi circle
|
Motor phi SIM -360. 360. .1 2. # phi circle
|
||||||
Motor muca SIM 30. 36. .1 2. # phi circle
|
Motor muca SIM 30. 36. .1 2. # phi circle
|
||||||
Motor dg1 SIM -10. 40. .1 2. # phi circle
|
Motor dg1 SIM -10. 40. .1 2. # phi circle
|
||||||
|
Motor dg2 SIM -10. 40. .1 2. # phi circle
|
||||||
|
Motor dg3 SIM -10. 40. .1 2. # phi circle
|
||||||
SicsAlias phi ph
|
SicsAlias phi ph
|
||||||
SicsAlias chi ch
|
SicsAlias chi ch
|
||||||
SicsAlias twotheta stt
|
SicsAlias twotheta stt
|
||||||
@ -274,12 +276,24 @@ VarMake monodescription Text Mugger
|
|||||||
monodescription "unknownit crystal"
|
monodescription "unknownit crystal"
|
||||||
VarMake mono2theta Text Mugger
|
VarMake mono2theta Text Mugger
|
||||||
mono2theta 36.77
|
mono2theta 36.77
|
||||||
VarMake det1zerox Text Mugger
|
VarMake det1zerox Float Mugger
|
||||||
det1zerox 128.
|
det1zerox 128.
|
||||||
VarMake det1zeroy Text Mugger
|
VarMake det1zeroy Float Mugger
|
||||||
det1zeroy 128.
|
det1zeroy 128.
|
||||||
VarMake det1dist Text Mugger
|
VarMake det1dist Float Mugger
|
||||||
det1dist 300.
|
det1dist 300.
|
||||||
|
VarMake det2zerox Float Mugger
|
||||||
|
det2zerox 128.
|
||||||
|
VarMake det2zeroy Float Mugger
|
||||||
|
det2zeroy 128.
|
||||||
|
VarMake det2dist Float Mugger
|
||||||
|
det2dist 300.
|
||||||
|
VarMake det3zerox Float Mugger
|
||||||
|
det3zerox 128.
|
||||||
|
VarMake det3zeroy Float Mugger
|
||||||
|
det3zeroy 128.
|
||||||
|
VarMake det3dist Float Mugger
|
||||||
|
det3dist 300.
|
||||||
VarMake detstepwidth Float Mugger
|
VarMake detstepwidth Float Mugger
|
||||||
detstepwidth 0.1
|
detstepwidth 0.1
|
||||||
detstepwidth lock
|
detstepwidth lock
|
||||||
@ -534,53 +548,49 @@ MakeScanCommand xxxscan counter topsi.hdd recover.bin
|
|||||||
MakePeakCenter xxxscan
|
MakePeakCenter xxxscan
|
||||||
|
|
||||||
|
|
||||||
|
#MakeHM hm1 SinqHM
|
||||||
MakeHM hm1 SIM
|
MakeHM hm1 SIM
|
||||||
hm1 configure HistMode HRPT
|
hm1 configure HistMode PSD
|
||||||
hm1 configure OverFlowMode reflect
|
|
||||||
hm1 configure Rank 1
|
hm1 configure Rank 1
|
||||||
#hm1 configure Length 400
|
|
||||||
hm1 configure Length 65536
|
hm1 configure Length 65536
|
||||||
hm1 configure dim0 256
|
hm1 configure dim0 256
|
||||||
hm1 configure dim1 256
|
hm1 configure dim1 256
|
||||||
hm1 configure BinWidth 4
|
hm1 configure BinWidth 4
|
||||||
hm1 preset 100.
|
hm1 preset 100.
|
||||||
hm1 CountMode Timer
|
hm1 CountMode Timer
|
||||||
#hm1 configure HMComputer lnse02.psi.ch
|
hm1 configure xoff 100
|
||||||
|
hm1 configure xfac 10
|
||||||
|
hm1 configure yoff 100
|
||||||
|
hm1 configure yfac 10
|
||||||
|
#hm1 configure HMComputer psds03.psi.ch
|
||||||
#hm1 configure HMPort 2400
|
#hm1 configure HMPort 2400
|
||||||
#hm1 configure Counter counter
|
hm1 configure Counter counter
|
||||||
|
hm1 genbin 0 10000 2
|
||||||
|
hm1 configure init 0
|
||||||
hm1 init
|
hm1 init
|
||||||
|
|
||||||
MakeHM hm2 SIM
|
MakeHM hm2 SIM
|
||||||
hm2 configure HistMode HRPT
|
hm2 configure HistMode PSD
|
||||||
hm2 configure OverFlowMode reflect
|
|
||||||
hm2 configure Rank 1
|
hm2 configure Rank 1
|
||||||
#hm2 configure Length 400
|
|
||||||
hm2 configure Length 65536
|
hm2 configure Length 65536
|
||||||
hm2 configure dim0 256
|
hm2 configure dim0 256
|
||||||
hm2 configure dim1 256
|
hm2 configure dim1 256
|
||||||
hm2 configure BinWidth 4
|
hm2 configure BinWidth 4
|
||||||
hm2 preset 100.
|
|
||||||
hm2 CountMode Timer
|
|
||||||
#hm2 configure HMComputer lnse02.psi.ch
|
#hm2 configure HMComputer lnse02.psi.ch
|
||||||
#hm2 configure HMPort 2400
|
#hm2 configure HMPort 2400
|
||||||
#hm2 configure Counter counter
|
|
||||||
hm2 init
|
hm2 init
|
||||||
|
|
||||||
MakeHM hm3 SIM
|
#MakeHM hm3 SIM
|
||||||
hm3 configure HistMode HRPT
|
#hm3 configure HistMode PSD
|
||||||
hm3 configure OverFlowMode reflect
|
#hm3 configure Rank 1
|
||||||
hm3 configure Rank 1
|
#hm3 configure Length 65536
|
||||||
#hm3 configure Length 400
|
#hm3 configure dim0 256
|
||||||
hm3 configure Length 65536
|
#hm3 configure dim1 256
|
||||||
hm3 configure dim0 256
|
#hm3 configure BinWidth 4
|
||||||
hm3 configure dim1 256
|
|
||||||
hm3 configure BinWidth 4
|
|
||||||
hm3 preset 100.
|
|
||||||
hm3 CountMode Timer
|
|
||||||
#hm3 configure HMComputer lnse02.psi.ch
|
#hm3 configure HMComputer lnse02.psi.ch
|
||||||
#hm3 configure HMPort 2400
|
#hm3 configure HMPort 2400
|
||||||
#hm3 configure Counter counter
|
#hm3 configure Counter counter
|
||||||
hm3 init
|
#hm3 init
|
||||||
|
|
||||||
|
|
||||||
ClientPut "Installed 4-circle stuff"
|
ClientPut "Installed 4-circle stuff"
|
||||||
@ -588,7 +598,7 @@ ClientPut "Installed 4-circle stuff"
|
|||||||
|
|
||||||
#source transact.tcl
|
#source transact.tcl
|
||||||
#Publish transact Spy
|
#Publish transact Spy
|
||||||
MakeSPS sps lnsa12.psi.ch 4000 4
|
#MakeSPS sps lnsa12.psi.ch 4000 4
|
||||||
|
|
||||||
#source beamdt.tcl
|
#source beamdt.tcl
|
||||||
#------------- C804-DC motors
|
#------------- C804-DC motors
|
||||||
@ -667,6 +677,7 @@ Publish co User
|
|||||||
#source helium.tcl
|
#source helium.tcl
|
||||||
|
|
||||||
MakeTRICSNEXUS sicsdatanumber $shome/sics/tmp trics.dic
|
MakeTRICSNEXUS sicsdatanumber $shome/sics/tmp trics.dic
|
||||||
|
source $shome/sics/tcl/tricscount.tcl
|
||||||
|
|
||||||
source autofile.tcl
|
source autofile.tcl
|
||||||
autofilepath $shome/tmp/auto
|
autofilepath $shome/tmp/auto
|
||||||
|
|||||||
@ -46,7 +46,7 @@ mono0 = \
|
|||||||
/frame0000,NXentry/TRICS,NXinstrument/monochromator,NXcrystal/NXVGROUP
|
/frame0000,NXentry/TRICS,NXinstrument/monochromator,NXcrystal/NXVGROUP
|
||||||
#------------------------- CountControl
|
#------------------------- CountControl
|
||||||
framepreset = \
|
framepreset = \
|
||||||
/$(framename),NXentry/TRICS,NXinstrument/count_control,NXmonitor/SDS preset
|
/$(framename),NXentry/TRICS,NXinstrument/count_control,NXcounter/SDS preset
|
||||||
framemode = /$(framename),NXentry/TRICS,NXinstrument/count_control,NXcounter/SDS countmode \
|
framemode = /$(framename),NXentry/TRICS,NXinstrument/count_control,NXcounter/SDS countmode \
|
||||||
-type DFNT_UINT8 -rank 1 -dim {132}
|
-type DFNT_UINT8 -rank 1 -dim {132}
|
||||||
framemonitor = /$(framename),NXentry/TRICS,NXinstrument/count_control,NXcounter/SDS monitor \
|
framemonitor = /$(framename),NXentry/TRICS,NXinstrument/count_control,NXcounter/SDS monitor \
|
||||||
@ -61,7 +61,7 @@ detectorx = /frame0000,NXentry/TRICS,NXinstrument/$(dnumber),NXdetector/SDS x \
|
|||||||
-attr {axis,1} -attr {units,mm} -type DFNT_FLOAT32 \
|
-attr {axis,1} -attr {units,mm} -type DFNT_FLOAT32 \
|
||||||
-rank 1 -dim {$(framedim1)}
|
-rank 1 -dim {$(framedim1)}
|
||||||
detectory = /frame0000,NXentry/TRICS,NXinstrument/$(dnumber),NXdetector/SDS y \
|
detectory = /frame0000,NXentry/TRICS,NXinstrument/$(dnumber),NXdetector/SDS y \
|
||||||
-attr {axis,1} -attr {units,mm} -type DFNT_FLOAT32 \
|
-attr {axis,2} -attr {units,mm} -type DFNT_FLOAT32 \
|
||||||
-rank 1 -dim {$(framedim2)}
|
-rank 1 -dim {$(framedim2)}
|
||||||
det1 = \
|
det1 = \
|
||||||
/$(framename),NXentry/TRICS,NXinstrument/$(dnumber),NXdetector/NXVGROUP
|
/$(framename),NXentry/TRICS,NXinstrument/$(dnumber),NXdetector/NXVGROUP
|
||||||
|
|||||||
Reference in New Issue
Block a user