# viewdata Version. 1.03 (Sep. 23, 1999)
# Written by Hisao Kawaura
#
### description: 選択された複数の数値データファイルを順番に表示
#                既に表示したデータも遡って表示可能。
#
# Usage: このスクリプトを${TOPAZMACRODIR}にコピーし、Macro | File から実行して
#        ください。
#
# Caution: このマクロの実行により受けるいかなる損害も保証しませんので注
#          意してください。マクロを実行する前に、記述された内容を良く確
#          認の上利用してください。
#          作者は、このマクロの著作権を放棄しています。マクロ内容の修正
#          は自由です。


# 表示を行う数値ファイルの選択（複数選択可)
if (!selectfile(1, ""))
{
  print ("cancelled!\n");
  exit(1);
}

# 選択されたファイルは配列@_RETに返される
$len = @_RET;
$index = 0;
@filelist = @_RET;

# ファイルが選択されていなかったら中止
if ($len == 0)
{
  print ("No data selected!\n");
  exit(1);
}
else
{
  $len--;
}

# カレント座標軸内のデータは全てクリアし、データオブジェクトを1つ生成
# し、初期化する。
$graph->frame[$_CUR]->delete('data', $_ALL);
$dno = $graph->frame[$_CUR]->new('data') - 1;
execfile('initdata', $graph->currentframe, $dno);

while (1)
{
  # データのロード、オートスケーリング、グラフ描画
  $graph->frame[$_CUR]->data[$dno]->filename = $filelist[$index];
  $graph->frame[$_CUR]->data[$dno]->loaddata();
  $graph->frame[$_CUR]->autoscale($_ALL, 10);
  $graph->paintall(V0);

  # 以降の動作の選択
  if (selectitem(removepath($filelist[$index]), '&Next', '&Previous', '&Exit'))
  {
     if ($_RET eq '&Next')
     {
        if ($index < $len)
        {
           $index++;
        }
     }    
     elsif ($_RET eq '&Previous')
     {
        if ($index > 0)
        {
           $index--;
        }
     }    
     elsif ($_RET eq '&Exit')
     {
        exit(0);
     }    
  }
}

exit(0);