add working regions code into plot.R,...

not integrated into plot function yet