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

- Added reflection generation for symmetriqally missing reflections

Browse Source 
to fourmess
- Fixed hdbtable, reflist and tasub up to work with GTSE
- Made TRICS do fast scans again
- Added support for SANS beam center calculations
- Fixed a bug where SICS apparently did double counting but in fact
  just omitted an error message and did not
- Added the harray command
This commit is contained in:
koennecke
2009-08-13 07:28:44 +00:00
parent eb5025ab3b
commit 98009be4c3
22 changed files with 653 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
reflist.c
View File

@ -111,7 +111,7 @@ pSICSOBJ MakeReflectionListInt(char *name)
priv->idxCount = 3;
v = MakeHdbText("stt,om,chi,phi");
node = MakeSICSHdbPar("anglesheader", usMugger, v);
node = MakeSICSHdbPar("anglesheader", usUser, v);
AppendHipadabaCallback(node, MakeHipadabaCallback(CalcConfiguration,
pNew, NULL));
AddHipadabaChild(pNew->objectNode, node, NULL);
@ -455,6 +455,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd =
AddSICSHdbPar(pNew->objectNode, "addx", usUser,
MakeSICSFunc(AddIndexCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "h", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "k", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "l", usUser, MakeHdbFloat(.0));
@ -462,6 +464,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd =
AddSICSHdbPar(pNew->objectNode, "setx", usUser,
MakeSICSFunc(SetIndexCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "id", usUser, MakeHdbText(""));
AddSICSHdbPar(cmd, "h", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "k", usUser, MakeHdbFloat(.0));
@ -470,6 +474,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd =
AddSICSHdbPar(pNew->objectNode, "adda", usUser,
MakeSICSFunc(AddAnglesCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "stt", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "om", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "chi", usUser, MakeHdbFloat(.0));
@ -478,6 +484,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd =
AddSICSHdbPar(pNew->objectNode, "seta", usUser,
MakeSICSFunc(SetAnglesCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "id", usUser, MakeHdbText(""));
AddSICSHdbPar(cmd, "stt", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "om", usUser, MakeHdbFloat(.0));
@ -487,6 +495,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd = AddSICSHdbPar(pNew->objectNode, "addax", usUser,
MakeSICSFunc(AddIndexesAnglesCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "h", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "k", usUser, MakeHdbFloat(.0));
AddSICSHdbPar(cmd, "l", usUser, MakeHdbFloat(.0));
@ -498,6 +508,8 @@ pSICSOBJ CreateReflectionList(SConnection * pCon, SicsInterp * pSics,
cmd = AddSICSHdbPar(pNew->objectNode, "show", usUser,
MakeSICSFunc(ShowCmd));
SetHdbProperty(cmd,"type","command");
SetHdbProperty(cmd,"priv","user");
AddSICSHdbPar(cmd, "id", usUser, MakeHdbText(""));
AddCommand(pSics, name, InterInvokeSICSOBJ, KillSICSOBJ, pNew);