arma-thesis

commit e879a0b4b2d29cd63e58274addb163459e77a53e
parent 98bc5b8f177db21064efe3870d0a3787cdff3b1b
Author: Ivan Gankevich <igankevich@ya.ru>
Date:   Wed, 15 Nov 2017 10:30:31 +0300

Remove artefacts from velocity potential plots.

Diffstat:
R/velocity-potentials.R
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/velocity-potentials.R b/R/velocity-potentials.R
@@ -53,7 +53,7 @@ arma.plot_velocity_potential_field <- function (dir, ...) {
 
   top_area_x <- c(left_top_x*0.99, zeta_slice$x, right_top_x*1.01)
   top_area_z <- c(left_top_z*1.10, zeta_slice$z, right_top_z*1.10)
-  polygon(top_area_x, top_area_z, lwd=4, border=NA, col='white')
+  polygon(top_area_x, top_area_z, lwd=4, border='white', col='white')
   lines(zeta_slice$x, zeta_slice$z, lwd=4)
   box()
   title(xlab="x", ylab="z")