load_file("nrngui.hoc")

objref grspk
proc spkplt() {localobj x, y
	clipboard_retrieve($s1)
	printf("read %d spikes\n", hoc_obj_[1].size)
	x = hoc_obj_[1]
	y = hoc_obj_[0]
	grspk.size(x.min, x.max, y.min, y.max)
	y.mark(grspk, x, "|", 5, $2, $3)
}

//spkplt("../p2c/data/out.dat",2,4)
//spkplt("out.dat", 1,2)

proc showtstspk() {
	grspk = new Graph()
	spkplt("dat/p2ctest.spk",2,4)
	spkplt("dat/nrntest.spk",1,2)
}