improve anchor drawing (issue #66)

dankelley · Jun 11, 2024 · c38a2bb · c38a2bb
1 parent a70dc55
commit c38a2bb
Show file tree

Hide file tree

Showing 61 changed files with 78 additions and 69 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: mooring
 Title: Design and Model Oceanographic Moorings
-Version: 0.1.9
+Version: 0.1.10
 Authors@R:
     person(given = "Dan",
            family = "Kelley",
@@ -12,7 +12,7 @@ Description: Calculates the response of oceanographic moorings to horizontal cur
 Depends:
     R (>= 4.3.0), S7
 Imports:
-    bslib, 
+    bslib,
     shiny
 Suggests:
     knitr,

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# mooring 0.1.10
+
+* Improve anchor drawing (issue #66).
+
 # mooring 0.1.9
 
 * Improve `clamped()` example.

diff --git a/R/oo.R b/R/oo.R
@@ -274,7 +274,8 @@ S7::method(`plot`, mooring:::mooringS7) <- function(
     # draw anchor (only makes sense for shape diagrams)
     if (which == "shape") {
         waterDepth <- attr(m, "waterDepth")
-        A <- waterDepth - max(depth(m))
+        n <- length(m@elements)
+        A <- m@elements[[n]]@height
         anchorSymbol <- list(x = sqrt(3.0 / 4.0) * c(-A, 0, A), y = waterDepth - c(0, A, 0))
         polygon(anchorSymbol, col = colStagnant)
     }

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/articles/example.html b/docs/articles/example.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/articles/mooring.html b/docs/articles/mooring.html
diff --git a/docs/articles/mooring_elements.html b/docs/articles/mooring_elements.html
diff --git a/docs/articles/mooring_model.html b/docs/articles/mooring_model.html
diff --git a/docs/articles/object_orientation.html b/docs/articles/object_orientation.html
diff --git a/docs/articles/table_tennis.html b/docs/articles/table_tennis.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -8,5 +8,5 @@ articles:
   mooring: mooring.html
   object_orientation: object_orientation.html
   table_tennis: table_tennis.html
-last_built: 2024-06-07T22:31Z
+last_built: 2024-06-11T11:57Z
 
diff --git a/docs/reference/CD.html b/docs/reference/CD.html
diff --git a/docs/reference/RMS.html b/docs/reference/RMS.html
diff --git a/docs/reference/anchor.html b/docs/reference/anchor.html
diff --git a/docs/reference/anchorWeight.html b/docs/reference/anchorWeight.html
diff --git a/docs/reference/angle.html b/docs/reference/angle.html
diff --git a/docs/reference/app1.html b/docs/reference/app1.html
diff --git a/docs/reference/app2.html b/docs/reference/app2.html
diff --git a/docs/reference/app2bs.html b/docs/reference/app2bs.html
diff --git a/docs/reference/area.html b/docs/reference/area.html
diff --git a/docs/reference/buoyancy.html b/docs/reference/buoyancy.html
diff --git a/docs/reference/buoyancyCalculation.html b/docs/reference/buoyancyCalculation.html
diff --git a/docs/reference/chain.html b/docs/reference/chain.html
diff --git a/docs/reference/clamped.html b/docs/reference/clamped.html
diff --git a/docs/reference/connector.html b/docs/reference/connector.html
diff --git a/docs/reference/depth.html b/docs/reference/depth.html
diff --git a/docs/reference/drag.html b/docs/reference/drag.html
diff --git a/docs/reference/findElement.html b/docs/reference/findElement.html
diff --git a/docs/reference/float.html b/docs/reference/float.html
diff --git a/docs/reference/height.html b/docs/reference/height.html