qdp off
cut 140 260
read 1999289094500.00.THSB.HLN 1999289094500.00.THSB.HLE 
chnhdr cmpinc 90 
chnhdr file 1 cmpaz 0
chnhdr file 2 cmpaz 90
write HLNN HLEE 
read 1999289094500.00.THSB.HL8 1999289094500.00.THSB.HL9 
chnhdr cmpinc 90 
chnhdr file 1 cmpaz 0
chnhdr file 2 cmpaz 90
write HL8N HL9E
read 1999289094500.00.THSB.HL2 1999289094500.00.THSB.HL3 
chnhdr cmpinc 90 
chnhdr file 1 cmpaz 193 
chnhdr file 2 cmpaz 103 
rotate to 0
write HL2N HL3E
read 1999289094500.00.THSB.HL5 1999289094500.00.THSB.HL6
chnhdr cmpinc 90 
chnhdr file 1 cmpaz 79 
chnhdr file 2 cmpaz 349 
rotate to 0
write HL5N HL6E
!
xlim 140 260
ylim -10000000 10000000
read 1999289094500.00.THSB.HLZ HLNN HLEE 
read more 1999289094500.00.THSB.HL7 HL8N HL9E 
read more 1999289094500.00.THSB.HL4 HL5N HL6E 
read more 1999289094500.00.THSB.HL1 HL2N HL3E 
rmean
xlim  140 200
ylim -100000000 100000000
!bandpass butter corners 0.05 0.3
!ylim -20000000 20000000
plot1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!if you want to make radial and transverse
read HLNN HLEE HL8N HL9E HL2N HL3E HL5N HL6E
rmean
chnhdr evla 34.59 
chnhdr evlo -116.27 
chnhdr stla 32.8788
chnhdr stlo -117.2269
rotate to gcp
write RN TE R8 T9 R2 T3 R5 T6
read 1999289094500.00.THSB.HLZ RN TE
read more 1999289094500.00.THSB.HL7 R8 T9
read more 1999289094500.00.THSB.HL1 R2 T3
read more 1999289094500.00.THSB.HL4 R5 T6
rmean
plot1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!