137 lines
3.8 KiB
C
137 lines
3.8 KiB
C
/*-------------------------------------------------------------------------
|
|
A M O R S C A N
|
|
|
|
An adaption of the general scan routine to deal with special issues at
|
|
the reflectometer AMOR at SINQ.
|
|
|
|
copyright: see copyright.h
|
|
|
|
Mark Koennecke, September 1999
|
|
--------------------------------------------------------------------------*/
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include <fortify.h>
|
|
#include <sics.h>
|
|
#include <scan.h>
|
|
#include <scan.i>
|
|
#include <HistMem.h>
|
|
#include "nxamor.h"
|
|
#include "amorscan.h"
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
static int AmorHeader(pScanData self)
|
|
{
|
|
return WriteAmorHeader(self->pFile, self->pCon);
|
|
}
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
static int AmorPoints(pScanData self, int iP)
|
|
{
|
|
/* write only at last scan point */
|
|
if ((iP + 1) >= self->iNP) {
|
|
return WriteAmorScan(self->pFile, self->pCon, self);
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
/*--------------------------------------------------------------------*/
|
|
static int AmorCollect(pScanData self, int iP)
|
|
{
|
|
pVarEntry pVar = NULL;
|
|
void *pDings;
|
|
int i, iRet, status;
|
|
float fVal;
|
|
char pStatus[512], pItem[20];
|
|
char pHead[512];
|
|
CountEntry sCount;
|
|
|
|
assert(self);
|
|
assert(self->pCon);
|
|
|
|
/* prepare output header */
|
|
sprintf(pHead, "%-5.5s", "NP");
|
|
sprintf(pStatus, "%-5d", iP);
|
|
|
|
/* loop over all scan variables */
|
|
status = 1;
|
|
for (i = 0; i < self->iScanVar; i++) {
|
|
DynarGet(self->pScanVar, i, &pDings);
|
|
pVar = (pVarEntry) pDings;
|
|
if (pVar) {
|
|
fVal = pVar->pInter->GetValue(pVar->pObject, self->pCon);
|
|
AppendScanVar(pVar, fVal);
|
|
sprintf(pItem, " %-9.9s", pVar->Name);
|
|
strcat(pHead, pItem);
|
|
sprintf(pItem, " %-9.3f", fVal);
|
|
strcat(pStatus, pItem);
|
|
}
|
|
}
|
|
|
|
/* store counter data */
|
|
/* monitors */
|
|
for (i = 1; i < 10; i++) {
|
|
sCount.Monitors[i - 1] = GetMonitor((pCounter) self->pCounterData, i,
|
|
self->pCon);
|
|
}
|
|
if (self->iChannel != 0 && self->iChannel != -10) {
|
|
sCount.Monitors[self->iChannel - 1] =
|
|
GetCounts((pCounter) self->pCounterData, self->pCon);
|
|
}
|
|
/* counter1 */
|
|
strcat(pHead, "Counter1 ");
|
|
sCount.lCount = GetCounts((pCounter) self->pCounterData, self->pCon);
|
|
sprintf(pItem, " %-14ld", sCount.lCount);
|
|
strcat(pStatus, pItem);
|
|
|
|
/*
|
|
WARNING
|
|
Assignements have to be checked when the Schlumpfes are
|
|
ready putting the counter box together.
|
|
*/
|
|
|
|
/* counter2 */
|
|
strcat(pHead, "Counter2 ");
|
|
sCount.Monitors[0] = GetMonitor((pCounter) self->pCounterData,
|
|
1, self->pCon);
|
|
sprintf(pItem, " %-14ld", sCount.Monitors[0]);
|
|
strcat(pStatus, pItem);
|
|
|
|
/* monitors */
|
|
sCount.Monitors[3] = GetMonitor((pCounter) self->pCounterData,
|
|
2, self->pCon);
|
|
sCount.Monitors[4] = GetMonitor((pCounter) self->pCounterData,
|
|
3, self->pCon);
|
|
|
|
/* get time */
|
|
sCount.fTime = GetCountTime((pCounter) self->pCounterData, self->pCon);
|
|
strcat(pHead, "Monitor1 ");
|
|
sprintf(pItem, " %-11ld", sCount.Monitors[3]);
|
|
strcat(pStatus, pItem);
|
|
strcat(pHead, "Monitor2 ");
|
|
sprintf(pItem, " %-11ld", sCount.Monitors[4]);
|
|
strcat(pStatus, pItem);
|
|
strcat(pHead, "Time ");
|
|
sprintf(pItem, " %-5.1f", sCount.fTime);
|
|
strcat(pStatus, pItem);
|
|
|
|
/* write progress */
|
|
strcat(pHead, "\n");
|
|
strcat(pStatus, "\n");
|
|
SCWrite(self->pCon, pHead, eLog);
|
|
SCWrite(self->pCon, pStatus, eLog);
|
|
|
|
/* stow away */
|
|
DynarReplace(self->pCounts, self->iCounts, &sCount, sizeof(CountEntry));
|
|
self->iCounts++;
|
|
return 1;
|
|
}
|
|
|
|
/*-----------------------------------------------------------------------*/
|
|
int ConfigureAmor(pScanData self)
|
|
{
|
|
self->WriteHeader = AmorHeader;
|
|
self->WriteScanPoints = AmorPoints;
|
|
self->CollectScanData = AmorCollect;
|
|
return 1;
|
|
}
|