R/fieldPolygons.R

In Dustin-Wood/funfield: Functional Field Functions

#' Field Polygons
#' @description Provides additional shapes to be used in qgraph-generated diagrams
#'
#' @export

fieldPolygons <- function() {
  fieldPolygons<-list()
#most important shapes
  fieldPolygons$rfTriangle$x <- c(1.73,1.56,1.39,1.21,1.04,0.87,0.69,0.52,0.35,0.17,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.17,0.35,0.52,0.69,0.87,1.04,1.21,1.39,1.56)
  fieldPolygons$rfTriangle$y <- c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,0.8,0.6,0.4,0.2,0,-0.2,-0.4,-0.6,-0.8,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1)
  fieldPolygons$lfTriangle$x <- c(-1.73,-1.56,-1.39,-1.21,-1.04,-0.87,-0.69,-0.52,-0.35,-0.17,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,-0.17,-0.35,-0.52,-0.69,-0.87,-1.04,-1.21,-1.39,-1.56)
  fieldPolygons$lfTriangle$y <- c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,0.8,0.6,0.4,0.2,0,-0.2,-0.4,-0.6,-0.8,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1)
  fieldPolygons$diamond2$x <- c(-1,-.75,-.50,-.25,0,.25,.50,.75,1,.75,.50,.25,0,-.25,-.50,-.75)
  fieldPolygons$diamond2$y <- c(0,.25,.5,.75,1,.75,.5,.25,0,-.25,-.5,-.75,-1,-.75,-.5,-.25)
#less common shapes that can be used
  fieldPolygons$yfTriangle$x <- c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,0.8,0.6,0.4,0.2,0,-0.2,-0.4,-0.6,-0.8,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1)
  fieldPolygons$yfTriangle$y <- c(1.73,1.56,1.39,1.21,1.04,0.87,0.69,0.52,0.35,0.17,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.17,0.35,0.52,0.69,0.87,1.04,1.21,1.39,1.56)
  fieldPolygons$nfTriangle$x <- c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1,0.8,0.6,0.4,0.2,0,-0.2,-0.4,-0.6,-0.8,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1)
  fieldPolygons$nfTriangle$y <- c(-1.73,-1.56,-1.39,-1.21,-1.04,-0.87,-0.69,-0.52,-0.35,-0.17,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,-0.17,-0.35,-0.52,-0.69,-0.87,-1.04,-1.21,-1.39,-1.56)
  fieldPolygons$lfTriCircle$x <- c(0,0.3122499,0.435889894,0.526782688,0.6,0.661437828,0.714142843,0.759934208,0.8,0.835164654,0.866025404,0.893028555,0.916515139,0.9367497,0.953939201,0.968245837,0.979795897,0.988685997,0.994987437,0.998749218,1,0.998749218,0.994987437,0.988685997,0.979795897,0.968245837,0.953939201,0.9367497,0.916515139,0.893028555,0.866025404,0.835164654,0.8,0.759934208,0.714142843,0.661437828,0.6,0.526782688,0.435889894,0.3122499,0,-0.1,-0.2,-0.3,-0.4,-0.5,-0.6,-0.7,-0.8,-0.9,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1,0)
  fieldPolygons$lfTriCircle$y <- c(1,0.95,0.9,0.85,0.8,0.75,0.7,0.65,0.6,0.55,0.5,0.45,0.4,0.35,0.3,0.25,0.2,0.15,0.1,0.05,0,-0.05,-0.1,-0.15,-0.2,-0.25,-0.3,-0.35,-0.4,-0.45,-0.5,-0.55,-0.6,-0.65,-0.7,-0.75,-0.8,-0.85,-0.9,-0.95,-1,-0.9,-0.8,-0.7,-0.6,-0.5,-0.4,-0.3,-0.2,-0.1,0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1)
  fieldPolygons$mdiamond$x <- c(-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1,0.75,0.5,0.25,0,-0.4,-.9,-0.6)
  fieldPolygons$mdiamond$y <- c(0,0.25,0.5,0.75,1,0.75,0.5,0.25,0,-0.25,-0.5,-0.75,-1,-0.6,-.9,-0.4)
  fieldPolygons$Msquare$x <- c(-1,-0.75,-0.5,-0.5,-0.5,0,0.25,0.5,0.75,1,1,1,1,1,1,1,1,1,0.75,0.5,0.25,0,-0.25,-0.5,-0.75,-1,-1,-1,-1,-1,-1,-1,-1,-1)
  fieldPolygons$Msquare$y <- c(-1,-1,-1,-1.25,-1.5,-1,-1,-1,-1,-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1,1,1,1,1,1,1,1,1,0.75,0.5,0.25,0,-0.25,-0.5,-0.75,-1)
  fieldPolygons$eSquare$x <- c(-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1,1,1,1,1,1,1,1,1,0.75,0.5,0.25,0.25,0,-0.25,-0.25,-0.5,-0.75,-1,-1,-1,-1,-1,-1,-1,-1,-1)
  fieldPolygons$eSquare$y <- c(-1,-1,-1,-1,-1,-1,-1,-1,-1,-0.75,-0.5,-0.25,0,0.25,0.5,0.75,1,1,1,1,1.5,1.5,1.5,1,1,1,1,0.75,0.5,0.25,0,-0.25,-0.5,-0.75,-1)
  return(fieldPolygons)
}