Commit db8135ae authored by Jason Rhinelander's avatar Jason Rhinelander

Shaded the restriction box

parent 5429ecda
No preview for this file type
......@@ -18,7 +18,7 @@ drawrestr <- function() {
if (slope == Inf || slope == -Inf) abline(v=r[i]/R[i,1], col="gray")
else abline(rint[i,1], -R[i,1]/R[i,2], col="gray")
polygon(poly_x, poly_y, lwd=2)
polygon(poly_x, poly_y, lwd=2, col="#dddddd")
pnext <- z
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment