#	filtering
#--------------------------------------------------------------

*setup
noapp

*CALL	kgenr	5000	48	4	100	GAUS
EVENT   48      999     750.    -25.    1.      .0
EVENT   48      999     0.      25.     1.      .0	HYPERB
EVENT   48      999     500.    25.     1.      .0	HYPERB
EVENT   48      999     1000.   25.     1.      .0	HYPERB
EVENT   48      999     1500.   25.     1.      .0	HYPERB
EVENT   48      999     2000.   25.     1.      .0	HYPERB
EVENT   20      999     3000.   100.    -.7     .0	HYPERB
EVENT   48      999     4000.   25.     .7      .0	
 
*call	hdrmath
set	shift	float
25			chan
*call	static	shift

*call	single

*call	table	test.table
shot	chan	lasttr	shift	timstrt

*call	headput	lineup	store	float
input	chan
data	1	2800
data	48	4000

*call	slfilt	phcorr	normal	20
param	.005	.1
lineup	linear	0	lineup	-5	2	5

*call	table	test1.table
shot	chan	lineup	lasttr	timstrt

*call	plot	WGVA	up	3	1
setamp	peak
gain	1

font	16				black

ps	300	test.ps
window	6.5	9	1	1.	0	8.5	11

line	solid	.1
timlab	1000	%1.1f
timtitl		T, sec

ticks		0		0		0
margins	1.5		.8

trange	0	5000
title	test SLFILT,PHCORR 20, 0.005