// $Id: spike.g,v 16.1 2000/03/02 14:43:39 ajay Exp $
//genesis

// spike.g  HIPPO Model  -GW
// Spike generator

//========================================================================
//                         Spike generator
//========================================================================
function make_spike
        if ({exists spike})
                return
        end

        create  spikegen        spike
	setfield spike     \
                thresh          -10e-3    \        //      V
                abs_refract     {5e-3}   \        //      Sec
                output_amp      1
end

function make_pulse

        if ({exists pulse})
                return
        end

	create pulsegen pulse
	setfield pulse \
		level1		0.0e-9 \  // Amps
		delay1		5.0e-3 \ 
		width1		300.0e-3 \ 
		baselevel	0.0 \
		level2		0.0 \
		delay2		0 \
		width2		1000 \	// long to avoid another pulse
		trig_mode	0	// free run
end