funcgeo

The goal of funcgeo is to reproduce, using R, all pictures from the following two papers of Peter Henderson:

• Henderson, P. (1982). Functional Geometry.
• Henderson, P. (2002). Functional Geometry.

Installation

You can install funcgeo from Github

remotes::install_github("MHenderson/funcgeo")

Examples

library(funcgeo)

t <- quartet(fish_p, fish_q, fish_r, fish_s)
u <- cycle(rot(fish_q))

side1 <- quartet(nil, nil, rot(t), t)
side2 <- quartet(side1, side1, rot(t), t)

corner1 <- quartet(nil, nil, nil, u)
corner2 <- quartet(corner1, side1, rot(side1), u)

corner <- nonet(
  corner2, side2, side2,
  rot(side2), u, rot(t),
  rot(side2), rot(t), rot(fish_q)
)

squarelimit <- cycle(corner)
plot(squarelimit)

To save a picture as SVG, use the svg device.

svg("fish.svg", width = 3, height = 3)
plot(quartet(fish_p, fish_q, fish_r, fish_s))
dev.off()

Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.