!
! Test the plotting of Type 1000 files with the /ALL switch.
!
! @Author:       J. Bauer
! @Bug;          892,2367

startmacro l:num[500k]


  set instructions "Expected:\n&
                    - 2 identical plots\n&
                    - line BL corner to TR corner\n\n&
                    Note: Bottom plot has framesize=#elem"
  pipe on
    wave test_1d_all elem=^num shape=ramp amp=^num
    panel/msgid=main/setup/controls=gc
      gcontrol label macro "Test MACRO"
        gcontrol menu  main "Exit with Status =" "PASS,FAIL" TABLE={ItemColors={PASS="GREEN",FAIL="RED"}} /tleft
        gcontrol text   idtext "Instructions" "^{instructions}" 24 12 /title
   

    plot/id=plot_all/all test_1d_all type=line 
    plot/id=plot_all_fs/all test_1d_all type=line  /fs=^num

  pipe off


endmacro

procedure processMessage m:msg
  if msg.name eqs "MAIN" then
    assert/text="TEST_PLOT_LAYER1D_ALL tests" msg.data eqss "PASS" 
    pipe stop
  endif

return