4.11. - Four-Circle Macros
The macros below are used in setting the parameters and
selecting modes.
| Name |
Arguments |
Description |
|
setmode |
1 optional |
Choose geometry mode. |
setsector |
1 optional |
Choose sector. |
setlat |
6 optional |
Set lattice parameters. |
setaz |
3 optional |
Set azimuthal reference vector. |
setmono |
2 optional |
Set beam-line monochromator parameters. |
or0 |
3 optional |
Set primary orientation reflection. |
or1 |
3 optional |
Set secondary orientation reflection. |
setor0 |
none |
Alternative to set primary orientation reflection. |
setor1 |
none |
Alternative to set secondary orientation reflection. |
or_swap |
none |
Swap values for primary and secondary vectors. |
freeze |
none |
Turn on freeze mode. |
unfreeze |
none |
Turn freeze mode off. |
cz |
6 |
Calculate zone. |
sz |
6 |
Set zone parameters. |
mz |
6 |
Move to zone. |
cuts |
2/6 optional |
Show or set cut points. |
Most of
the macros with optional arguments will prompt for the required values
if invoked without arguments.
Using any of these macros to change a parameter will produce a comment
on the printer and in the data file.
The
or0
macro is a typical example of these macros.
1.FOURC> prdef or0
def or0 '
if ($# == 3) {
_1 = $1; _2 = $2; _3 = $3
} else if ($# == 0) {
print "\nEnter primary-reflection HKL coordinates:"
_1 = getval(" H", g_h0)
_2 = getval(" K", g_k0)
_3 = getval(" L", g_l0)
} else {
print "Usage: or0 or or0 H K L"
exit
}
waitmove; get_angles
gpset _1 g_h0 # gpset documents the change
gpset _2 g_k0
gpset _3 g_l0
gpset A[mA[0]] g_u00
gpset A[mA[1]] g_u01
gpset A[mA[2]] g_u02
if (_numgeo > 3) { gpset A[mA[3]] g_u03 }
if (_numgeo > 4) { gpset A[mA[4]] g_u04 }
if (_numgeo > 5) { gpset A[mA[5]] g_u05 }
gpset LAMBDA g_lambda0
calcG
'
2.FOURC>
|
Prev | Next 