// This function creates a new graphical display and allows printing
// of graphs to eps files (slightly different outlook than basic-graphics.hoc).
// edited by Yiota Poirazi, July 2001, poirazi@LNC.usc.edu

objectvar win[20]		// max 20 graphs
ngraph = 0

proc addgraph() { 	        // define subroutine to add a new graph
				// addgraph("variable", minvalue, maxvalue)
	ngraph = ngraph+1
	windex = ngraph-1
	win[windex] = new Graph()
	win[windex].size(0,tstop,$2,$3)
//	win[windex].view(0,$2,tstop,$3-$2,0,0,600,100)	// only for printing
	win[windex].xaxis()
	win[windex].yaxis()
	win[windex].addvar($s1,1,0)
	win[windex].save_name("graphList[0].")
	graphList[0].append(win[windex])
}

if(ismenu==0) {
  nrnmainmenu()			// create main menu
  nrncontrolmenu()		// crate control menu
  ismenu=1
}

objref win[2000]
proc addgraph_2() { 	        // define subroutine to add a new graph
				// addgraph("variable", minvalue, maxvalue)
	ngraph = ngraph+1
	windex = ngraph-1
	win[windex] = new Graph()
	win[windex].size($2,$3,$4,$5)
//	win[windex].view(0,$2,tstop,$3-$2,0,0,600,100)	// only for printing
	win[windex].xaxis()
	win[windex].yaxis()
	win[windex].addvar($s1,1,0)
	win[windex].save_name("graphList[0].")
	graphList[0].append(win[windex])
}

if(ismenu==0) {
  nrnmainmenu()			// create main menu
  nrncontrolmenu()		// crate control menu
  ismenu=1
}