Commit a4ed0d8d authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

update help for mask command

parent 3921c5a8
Loading
Loading
Loading
Loading
+26 −9
Original line number Diff line number Diff line
@@ -249,6 +249,10 @@ program drspine
  istat = add_tab_expansion('mask pix ring')
  istat = add_tab_expansion('mask tau')
  istat = add_tab_expansion('mask tau set')
  istat = add_tab_expansion('mask tau clear')
  istat = add_tab_expansion('mask q')
  istat = add_tab_expansion('mask q set')
  istat = add_tab_expansion('mask q clear')
  !
  istat = add_tab_expansion('dump')
  istat = add_tab_expansion('dump file')
@@ -505,7 +509,7 @@ program drspine
     !> COMMAND: mask
     !-------------------------------------------------------------
     if(command('mask  ', &
            " mask pixel or tau"//LF//LF//&
            " mask pixel, tau or q-vector"//LF//LF//&
            " mask pix"//LF//&
            "   - show pixel mask"//LF//&
            " mask pix set [val <value>]"//LF//&
@@ -519,9 +523,17 @@ program drspine
            " "//LF//&
            " mask tau"//LF//&
            "     - show tau mask (equivalent to 'dir details')"//LF//&
            " mask tau [set|clear] <itau> [run <numor>]"//LF//&
            " mask tau set <itau> [run <numor>]"//LF//&
            "     - mask <itau> tau in a given run"//LF//&
            "       if clear is given, the tau is 'restored'"//LF//&
            " mask tau clear <itau> [run <numor>]"//LF//&
            "       restore the tau (remove the mask) "//LF//&
            " "//LF//&
            " mask q"//LF//&
            "     - show q mask "//LF//&
            " mask q set [qx <val>]  [qy <val>]  [qz <val>]  [dqx <val>]  [dqy <val>]  [dqz <val>]  [run <numor>]"//LF//&
            "     - set a q-vector mask "//LF//&
            " mask q clear  [run <numor>]"//LF//&
            "     - clears q-vector mask "//LF//&
            " "//LF//&
            " NOTE: negative value for pixel mask <value> means apply the mask to the complement"//LF//&
            "       so for example to use only the center of the detector (assuming 16x16 pixels)"//LF//&
@@ -1467,7 +1479,7 @@ CONTAINS

  !-------------------------------------------------------------
  !> COMMAND: mask
  !! mask [options]      - mask pixel or tau
  !! mask [options]      - mask pixel, tau or q-vector
  !-------------------------------------------------------------
  !! mask pix
  !!     - show pixel mask
@@ -1484,14 +1496,19 @@ CONTAINS
  !!       use: mask pix ring 8 8 0 4 val -1
  !!
  !! mask tau
  !!     - shows tau mask (equivalent to 'dir details')
  !! mask tau [set|clear] <itau> [run <numor>]
  !!     - show tau mask (equivalent to 'dir details')
  !! mask tau set <itau> [run <numor>]
  !!     - mask <itau> tau in a given run
  !!       if clear is given, the tau is "restored"
  !! mask tau clear <itau> [run <numor>]
  !!       restore the tau (remove the mask)
  !!
  !! mask q
  !!     - show q mask (.......)
  !! mask q [set|clear] <qx> <qy> <qz>
  !!     - show q mask
  !! mask q set [qx <val>]  [qy <val>]  [qz <val>]  [dqx <val>]  [dqy <val>]  [dqz <val>]  [run <numor>]
  !!     - set a q-vector mask
  !! mask q clear  [run <numor>]
  !!     - clears q-vector mask
  !!
  subroutine cmd_mask()
    !logical :: do_pix, do_tau, do_q
    integer, parameter :: E_PIX  = 1,&