!******************************************************************************!
! Tests ProvisionalUseOnly /STRIPCHART option on multiplot
!
! @bug      NXM-3410 Jay's strip chart via multiplot
! @since    3.9.1
! @author:  Jeanette McCall
!******************************************************************************!
startmacro
  switch INTERACTIVE interAct GET DEF=TRUE  SDEF=TRUE

  if interAct then
    waveform OUT=myramp.tmp{AUX=RAM} FORM=SF ELEM=100 SHAPE=RAMP START=-1
    waveform OUT=mysin.tmp{AUX=RAM}  FORM=SF ELEM=100 SHAPE=SIN START=0
    waveform OUT=mysaw.tmp{AUX=RAM}  FORM=SF ELEM=100 SHAPE=SAW START=30
    waveform OUT=mycos.tmp{AUX=RAM}  FORM=SF ELEM=100 SHAPE=COS START=-1 ! make -1.2 for testing

    pipe on

      panel/msgid=MAIN/setup/controls=gc
      gcontrol label macro "MACRO"
      gcontrol menu main "Exit with Status = " "PASS,FAIL" /tleft
      set gc.main.itemColors {PASS=GREEN,FAIL=RED}

      set myInstructions "Plots should show up as strip chart"

      gcontrol text idtext "Instructions" "^myInstructions" 24 20 /title
      gcontrol button addplot      "" "AddPlot" ""

      multiplot/id=multiplot/IDPREFIX="MP_P_"/autoscale files=myramp.tmp{AUX=RAM}|mysaw.tmp{AUX=RAM}|mysin.tmp{AUX=RAM} &
                   params=^params /STRIPCHART /MIMIC

    pipe off
  endif

endmacro

procedure processMessage
  if msg.name eqs "MAIN" then
    assert/text="^reg.main.name: User indicated tests" msg.data eqss "PASS"
    pipe stop
  elseif msg.name eqs "ADDPLOT"
    mess send multiplot ,,openfile,,mycos.tmp
  endif
return

