spec

Contents → FOUR-CIRCLE REFERENCE → Four-Circle Macros

← Prev | Next →

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 '{
      local   _1 _2 _3

      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 }
      if (_numgeo > 6) { gpset A[mA[6]] g_u06 }
      gpset LAMBDA g_lambda0
      calcG
}'

2.FOURC> 

Top ↑

← Prev | Next →