setaxesatt 'font=helvetica,bold,14 fixedfontsize minorticks'

set CDIR './'

defscript ds 
  min = 1
  max = 10
  if ( $# > 1 ) then 
    min = $1 
    max = $2
  endif
  echo "IMin = $min IMax= $max"
  for i ${min}:$max
    del spectre
    openppf $CDIR/spectre$i.ppf
    rename spectre$i spectre
    plot2d spectre 1200.+n*500./4072. val n>2 'notit'
#    plot2d spectre n val n>2
    settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'
    
    sleep 1
  end
endscript

defscript dsv 
  min = 1
  max = 10
  if ( $# > 1 ) then 
    min = $1 
    max = $2
  endif
  echo $min $max
  for i ${min}:$max
    mv spectre /autoc/spectre
    openppf $CDIR/spectre$i.ppf
    rename spectre$i spectre
    disp spectre 'notit'
    settitle "Spectre $i" ' ' 'font=helvetica,bolditalic,16'
    sleep 1
  end
endscript

defscript dsh 
  min = 1
  max = 10
  if ( $# > 1 ) then 
    min = $1 
    max = $2
  endif
  echo "IMin = $min IMax= $max"
  newh1d hspec 1199.5 1449.5 2036
  zone 1 2
  for i ${min}:$max
    del spectre
    openppf $CDIR/spectre$i.ppf
    rename spectre$i spectre
    projh1d hspec spectre 1200.+n*500./4072. val n>0&&n<2037 'nodisp'
#    disp hspec
#    disp spectre
#    settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'    
#    sleep 1
  end
zone 1
disp hspec
endscript