!******************************************************************************!
! Test some of the special features of Layer2D.
!
! Arguments: None
!
! Issue    NXM-1461 PLOT: skipping
! Since    NeXtMidas 2.7.0
! Author:  J. Czechowski
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE  SDEF=TRUE
  switch BASELINE    baseline GET DEF=FALSE SDEF=TRUE

  if interAct then
    set instructions "Should see:\n&
                      1) a single Raster plot that\n&
                      2) terminates precisely at the 299.5 mark\n\n&
                      *****************************\n&
                      Note: Prior to NXM-1461 fix there would be a break (black space) in the plot."

    pipe init
      panel/msgid=MAIN/setup/controls=gc

      waveform ram:wave form=sf elem=300000 shape=white
      plot ram:wave{fs=1000} /READOUT="-DateString"

      gcontrol label  macro   "MACRO"
        gcontrol menu main "Exit with Status = " "PASS,FAIL" /tleft
        set gc.main.itemColors {PASS=GREEN,FAIL=RED}
        gcontrol text idtext "Instructions" "^instructions" 24 10 /title

    pipe off
  endif

endmacro

!******************************************************************************!
procedure processMessage m:msg

  !say "msg.name ^msg.name, data ^msg.data"

  if msg.name eqs "MAIN" then
    assert/text="^reg.main.name: User indicated tests" msg.data eqss "PASS"
    pipe stop

  else
    ! do nothing
    say "Unhandled message name: ^msg.name from fid: ^msg.fid dats: ^msg.data"
  endif

return
