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) }