include ${SEPINC}/SEP.top
include ../../Src/thesis.include
UF90LIBS=${BOBLIBS}
UF90INCLUDES = -I. ${BOBINCS}
UPSTEXFLAGS = invras=y
UVIEWFLAGS =-geometry 1048x724+0+0 pixmaps=y



RESDIR = ../Figs
RESULTSER = angle width distance small-response
RESULTSNR = 
ANGLES= -60 -45 -30 -15 -5 5 0 15 30 45 60
WIDTH=  1 2 3 4 5 6 7 8 9
DISTANCE= .1 .2 .4 .8 .9 .95 .98 .99 .99999

${RESDIR}/angle.v:	$(addsuffix .v, $(addprefix angle.,${ANGLES} ))
	vp_SideBySideAniso angle.-60.v angle.-45.v angle.-30.v >p1.v
	vp_SideBySideAniso angle.-15.v angle.0.v angle.15.v >p2.v
	vp_SideBySideAniso angle.30.v angle.45.v angle.60.v >p3.v
	vp_OverUnderAniso p1.v p2.v p3.v >$@

${RESDIR}/distance.v:	$(addsuffix .v, $(addprefix distance,${DISTANCE} ))
	vp_SideBySideAniso distance.1.v distance.2.v distance.4.v >p1.v
	vp_SideBySideAniso distance.8.v distance.9.v distance.95.v >p2.v
	vp_SideBySideAniso distance.98.v distance.99.v distance.99999.v >p3.v
	vp_OverUnderAniso p1.v p2.v p3.v >$@

${RESDIR}/width.v:	$(addsuffix .v, $(addprefix width.,${WIDTH} ))
	vp_SideBySideAniso width.1.v width.2.v width.3.v >p1.v
	vp_SideBySideAniso width.4.v width.5.v width.6.v >p2.v
	vp_SideBySideAniso width.7.v width.8.v width.9.v >p3.v
	vp_OverUnderAniso p1.v p2.v p3.v >$@

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

distance%.v: ${BINDIR}/filter_test.x distance.P
	${BINDIR}/filter_test.x par=distance.P steer_factor=$*   |\
	Window f3=2 n3=1 | Grey crowd2=.65 crowd1=.95 title="$*"\
 	wantaxis=n titlesz=50 out=$@ >/dev/null  allpos=y
	
width.%.v: ${BINDIR}/filter_test.x width.P
	${BINDIR}/filter_test.x par=width.P steer_lag=$*  width_tri=$* |\
	Window f3=2 n3=1 | Grey crowd2=.666666wd1=.95 title="w=$*"\
 	wantaxis=n titlesz=50 out=$@ >/dev/null  allpos=y

${RESDIR}/small-response.v: ${BINDIR}/filter_test.x small.P
	${BINDIR}/filter_test.x par=small.P  |\
	Window f3=2 n3=1 | Grey crowd2=.666666 crowd1=.95 \
 	wantaxis=n titlesz=50 out=$@ >/dev/null  allpos=y title=" "
	
	

angle.%.v:	triangle_angle.H
	Window min3=$* n3=1 < triangle_angle.H | Transp| \
	Grey  out=$@ >/dev/null label1=" " label2=" " crowd2=.65 crowd1=.95 title="$*" \
	wantaxis=n titlesz=50 allpos=y
	
${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=.60
	${BINDIR}/filter_test.x par=scale.P >j2.H  steer_factor=.70
	${BINDIR}/filter_test.x par=scale.P >j3.H  steer_factor=.80
	${BINDIR}/filter_test.x par=scale.P >j4.H  steer_factor=.90
	${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 >>$@

	

#	${RM}  $(addsuffix .v, $(addprefix angle.,${ANGLES} )) p1.v p2.v p3.v



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


clean: jclean

include ${SEPINC}/SEP.bottom