# _______________________________ RETINA GRAPHICS __________________________________
#
# This is NSL code to produce the output graphics.

nsl create window_interface

nsl create display_frame .visin

nsl create display_window .visin.out -width 325 -height 325 -graph area_level_graph \
	-layer RetinaModel.retina.visin.out -wymin 0 -wymax 1 -grid NSL_ON

nsl create display_frame .amacrine

nsl create display_window .amacrine.ath -width 250 -height 200 -graph temporal_graph \
	-layer RetinaModel.retina.amacrineOff.ath -wymin -5 -wymax 5 -t1 7 -grid NSL_ON
#	-x0 20 -x1 20 -y0 20 -y1 20
nsl create display_window .amacrine.atd -width 250 -height 200 -graph temporal_graph \
	-layer RetinaModel.retina.amacrineOn.atd -wymin -5 -wymax 5 -t1 7 -grid NSL_ON
#	-x0 20 -x1 20 -y0 20 -y1 20

nsl create display_frame .retina

for { set i 2 } { $i <= 4 } { incr i 1 } {
	frame .retina.r$i 	
	pack .retina.r$i -side left	
}

for { set i 2 } { $i <= 4 } { incr i 1 } {
	nsl create display_window .retina.r$i.r$i -width 250 -height 200 -graph temporal_graph \
		-layer RetinaModel.retina.r$i.r$i -wymin -4 -wymax 4 -t1 7 -grid NSL_ON
#		-x0 0 -x1 0 -y0 0 -y1 0
	set k f ;# add the "f" ending to the layer
	nsl create display_window .retina.r$i.r$i$k -width 250 -height 200 -graph temporal_graph \
		-layer RetinaModel.retina.r$i.r$i$k -wymin 0 -wymax 100 -t1 7 -grid NSL_ON
#		-x0 0 -x1 0 -y0 0 -y1 0
}