linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SICS-626 tasub listref now reports the ANSTO motor names.

Browse Source
This commit is contained in:
Ferdi Franceschini
2013-07-01 12:06:09 +10:00
committed by Ferdi Franceschini
parent c70c2d5213
commit 65103ef607
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tasub.c
View File

@ -638,7 +638,9 @@ static void listReflections(ptasUB self, SConnection * pCon)
Tcl_DStringInit(&list);
snprintf(line, 255,
" NO QH QK QL A3 A4 SGU SGL EI EF\n");
" NO QH QK QL %s %s %s %s EI EF\n",
self->motname[A3], self->motname[A4], self->motname[SGU],
self->motname[SGL]);
Tcl_DStringAppend(&list, line, -1);
status = LLDnodePtr2First(self->reflectionList);
while (status == 1) {
@ -782,7 +784,9 @@ static int addReflection(ptasUB self, SicsInterp * pSics,
LLDnodeAppend(self->reflectionList, &r);
Tcl_DStringInit(&list);
snprintf(pBueffel, 255,
" QH QK QL A3 A4 SGU SGL EI EF\n");
" QH QK QL %s %s %s %s EI EF\n",
self->motname[A3], self->motname[A4], self->motname[SGU],
self->motname[SGL]);
Tcl_DStringAppend(&list, pBueffel, -1);
snprintf(pBueffel, 255,
" %6.2f %6.2f %6.2f %7.2f %7.2f %6.2f %6.2f %6.2f %6.2f\n",
@ -936,7 +940,9 @@ static void listUB(ptasUB self, SConnection * pCon)
snprintf(pBueffel, 255, "UB generated from reflections:\n");
Tcl_DStringAppend(&list, pBueffel, -1);
snprintf(pBueffel, 255,
" QH QK QL A3 A4 SGU SGL EI EF\n");
" QH QK QL %s %s %s %s EI EF\n",
self->motname[A3], self->motname[A4], self->motname[SGU],
self->motname[SGL]);
Tcl_DStringAppend(&list, pBueffel, -1);
r = self->r1;
snprintf(pBueffel, 255,
@ -976,7 +982,9 @@ static void printReflectionDiagnostik(ptasUB self, SConnection * pCon,
Tcl_DStringInit(&list);
snprintf(line, 255,
"METHOD QH QK QL A3 A4 SGU SGL EI EF\n");
"METHOD QH QK QL %s %s %s %s EI EF\n",
self->motname[A3], self->motname[A4], self->motname[SGU],
self->motname[SGL]);
Tcl_DStringAppend(&list, line, -1);
snprintf(line, 255,
"INPUT %8.4f %8.4f %8.4f %7.2f %7.2f %6.2f %6.2f %6.2f %6.2f\n",