グラフにオフセットをつける

Programの内容

y軸に用いられているWaveの名前を読みとり、 それが存在する場合はそのWaveをModifyGraphでオフセットをかけていく。

使用方法

1. オフセットをかけたいグラフをActiveWindowにする。
2. GraphのReorderTracesを実行し、グラフの描画の順序をオフセットをかける順序に並べ替える
3. マクロをコンパイルすると、メニューバーのMacroに"Offset"という項目が増える。 これを実行しoffsetをかけたい数値を入力するとグラフに描かれた全てのWaveにオフセットがかかる

カスタマイズ、その他

1. この作業はModifyGraph offset(wavename)={x,y}のコマンドをそれぞれのwaveにておいて実行させているものです。したがって active windowのグラフ上にあるwavenameをどのように認識させるかがが重要となります。この方法については 4. 複数のwaveをまとめて演算させるを参照してください。

/////////////////////////////////////////////////
// This procedure is for systematical offset 
// of all waves in the active graph
//    created by M. Nagai on Aug., 1996,
//    modified on Jan. 13, 2003 
/////////////////////////////////////////////////

macro Offset(offsetvalue_x,offsetvalue_y)
  Variable/D offsetvalue_x,offsetvalue_y
  Prompt offsetvalue_x, "set x offset"
  Prompt offsetvalue_y, "set y offset"
  Variable Num=0, cmp
  String W_name
  silent 1;PauseUpdate
  
  do
    W_name=WaveName("",Num,1)
    cmp=cmpstr(W_name,"")
    if (cmp!=0)
      ModifyGraph offset($W_name)={Num*offsetvalue_x,Num*offsetvalue_y}
    endif
    Num+=1
  while (cmp)
end