# _________________________________ STIMULI ________________________________ 

set learning 0
set trial 20

nsl set Preypred.world.in.dx 1     
nsl set Preypred.world.in.dy 1 
nsl set Preypred.world.in.dz 1      
nsl set Preypred.world.in.xz 0                             
nsl set Preypred.world.in.yz 0 
nsl set Preypred.world.in.zz 0 

nsl set Preypred.world.date 0102 
nsl set Preypred.world.dayhour 0723 

# learning : 0.5-1 for coherence (no learning), 0.35 for incoherence (learning)
nsl set Preypred.frog.mhm.learning $learning 
if {$learning == 0} {
	nsl set Preypred.frog.mhm.d_norm 1 
} else {
	nsl set Preypred.frog.mhm.d_norm 0.35 
}

# barrier
# 10cm: 26 pixels total (6x1 + 5x4) xb_init:117, xb_end:143
# 20cm: 51 pixels total (11x1 + 10x4) xb_init:104, xb_end:155

set xb_init 0
set xb_end 0

set xoff 100
set yoff 80

if {$trial == 10} {
	set xb_init [expr 117 - $xoff]
	set xb_end [expr 143  - $xoff]
} 
if {$trial == 20} {
	set xb_init [expr 104 - $xoff]
	set xb_end [expr 155 - $xoff]
}

set yb [expr 110 - $yoff]
set zb 0
set gap 5 ;# 1 + 4

#nsl set Preypred.world.xb_init $xb_init       
#nsl set Preypred.world.xb_end $xb_end		
#nsl set Preypred.world.yb $yb           
#nsl set Preypred.world.zb $zb         

#for {set xb $xb_init} {$xb <= $xb_end} {incr xb $gap} {
#	nsl create block_stim fence -layer Preypred.world.in -val 1 \
#		-x0 $xb -y0 $yb -z0 $zb -dx 1 -dy 1 -dz 100 \
#		-spec_view NSL_OFF -spec_type NSL_CORNER
#}

# prey

set xw 40
set yw 30
set zw 0 

nsl set Preypred.prey.xw $xw    
nsl set Preypred.prey.yw $yw
nsl set Preypred.prey.zw $zw 
nsl set Preypred.prey.boundary 100    ;# boundary not to get out of the world.
nsl set Preypred.prey.worm_speed 5     ;#2

nsl create block_stim prey -layer Preypred.world.in -val 2 \
		-xc $xw -yc $yw -zc $zw -dx 3 -dy 1 -dz 1 -spec_view NSL_OFF -spec_type NSL_CENTER

# predator 

#CambiosPredador
set xp 85
set yp  10
set zp 0 

nsl set Preypred.predator.xp $xp    
nsl set Preypred.predator.yp $yp
nsl set Preypred.predator.zp $zp 
nsl set Preypred.predator.boundary 100    ;# boundary not to get out of the world.
nsl set Preypred.predator.predator_speed 10     ;#2

nsl create block_stim predator -layer Preypred.world.in -val 3 \
		-xc $xp -yc $yp -zc $zp -dx 2 -dy 7 -dz 1 -spec_view NSL_OFF -spec_type NSL_CENTER
#FinCambiosPredador


#nsl set Preypred.frog.visual.xpr 90    ;# coordinates of the predator.
#nsl set Preypred.frog.visual.ypr 90

# frog

set xf 40
set yf 60
set zf 0

nsl set Preypred.frog.xf $xf 
nsl set Preypred.frog.yf $yf
nsl set Preypred.frog.zf $zf
#nsl set Preypred.frog.hunger 4
nsl set Preypred.frog.hunger 1

nsl create block_stim frog -layer Preypred.world.in \
	-xc $xf -yc $yf -zc $zf -dx 3 -dy 3 -dz 3 -spec_view NSL_ON -spec_type NSL_CENTER