copied from temp.plot2.R