include ${SEPINC}/SEP.top
MAKE_DEPEND=yes
BINDIR =  ../Bin
SRCDIR = ../Src
UF90LIBS = -lgemops
UPSTEXFLAGS = invras=y
UVIEWFLAGS =-geometry 1048x724+0+0 pixmaps=y


RESDIR = ../Figs
RESULTSER = sweep
RESULTSNR = 


${RESDIR}/%.v:	%.H
	Grey < $*.H out=$@ >/dev/null wantscalebar=y title="$*" pclip=100 gainpanel=a


simple_filter.H: ${BINDIR}/filter_test.x simple.P
	${BINDIR}/filter_test.x par=simple.P >$@

RESP = >/dev/null wantaxis=n titlesz=20 label1=" " label2=" " pclip=100

${RESDIR}/response.v:	simple_filter.H ${BINDIR}/filter_test.x simple.P
	Transp < simple_filter.H >junk1.H
	${BINDIR}/filter_test.x par=simple.P nflow=1 flow=1 |Transp >junk2.H
	Window < junk2.H  f3=1 n3=1 |Grey out=j0.v ${RESP} title="Filter" 
	Window < junk1.H  f3=0 n3=1 |Grey out=j1.v ${RESP} title="Input" 
	Window < junk1.H  f3=1 n3=1 |Grey out=j2.v ${RESP} title="F"
	Window < junk1.H  f3=2 n3=1 |Grey out=j3.v ${RESP} title="F'F"
	vp_SideBySideAniso j1.v j0.v >a.v
	vp_SideBySideAniso j2.v j3.v >b.v
	vp_OverUnderAniso a.v b.v >$@
	

scale.H: ${BINDIR}/filter_test.x scale.P
	${BINDIR}/filter_test.x par=scale.P >j1.H  steer_factor=.2
	${BINDIR}/filter_test.x par=scale.P >j2.H  steer_factor=.4
	${BINDIR}/filter_test.x par=scale.P >j3.H  steer_factor=.6
	${BINDIR}/filter_test.x par=scale.P >j4.H  steer_factor=.8
	${BINDIR}/filter_test.x par=scale.P >j5.H  steer_factor=.95
	${BINDIR}/filter_test.x par=scale.P >j6.H  steer_factor=.99
	Cat j1.H j2.H j3.H j4.H j5.H j6.H  | Window f3=2 j3=3 >$@
	echo o3=.2 d3=.2 >>$@
	

angle_filter.H:	${BINDIR}/filter_test.x angle.P
	${BINDIR}/filter_test.x par=angle.P >$@

lap_angle.H:	${BINDIR}/filter_test.x lap_angle.P
	${BINDIR}/filter_test.x par=lap_angle.P >$@

dip_anhilation.H:	${BINDIR}/filter_test.x anhilate.P
	${BINDIR}/filter_test.x par=anhilate.P >j1.H  steer_lag=2
	${BINDIR}/filter_test.x par=anhilate.P >j2.H  steer_lag=3
	${BINDIR}/filter_test.x par=anhilate.P >j3.H  steer_lag=4
	${BINDIR}/filter_test.x par=anhilate.P >j4.H  steer_lag=5
	${BINDIR}/filter_test.x par=anhilate.P >j5.H  steer_lag=6
	${BINDIR}/filter_test.x par=anhilate.P >j6.H  steer_lag=7
	Cat j1.H j2.H j3.H j4.H j5.H j6.H  |Window f3=2 j3=3 >$@
	echo  o3=2 d3=1 >>$@

triangle_angle.H:	${BINDIR}/filter_test.x tri.P
	${BINDIR}/filter_test.x par=tri.P >$@

ANGLES= -40 -20 20 40 

angle.%.v:	triangle_angle.H
	Window min3=$* n3=1 < triangle_angle.H |  \
	Grey  out=$@ >/dev/null label1=" " label2=" " crowd2=.75 crowd1=.9 title="$*" \
	wantaxis=n titlesz=35
	
	
	

${RESDIR}/sweep.v:	$(addsuffix .v, $(addprefix angle.,${ANGLES} ))
	vp_SideBySideAniso angle.-40.v angle.-20.v >p1.v
	vp_SideBySideAniso angle.20.v angle.40.v  >p3.v
	vp_OverUnderAniso p1.v  p3.v >$@
	${RM}  $(addsuffix .v, $(addprefix angle.,${ANGLES} )) p1.v  p3.v



dottest: ${BINDIR}/dottest.x angles.HH
	${BINDIR}/dottest.x < angles.HH >/dev/null


clean: jclean

include ${SEPINC}/SEP.bottom