polar plots and data

[ijlyttle]

Need to work in CVD

# returns pth_mat
pth_mat_gamut <- function(n_point = 5, transformer = pth_to_cieluv)

# returns data frame with columns cvd (factor), severity (factor)
pth_cvd_grid <- function(cvd = c("none", "deutan", "protan", "tritan"), severity = 1)
pth_cvd_grid_full <- function(cvd = c("deutan", "protan", "tritan"), severity = c(0, 0.5, 1))

# returns data frame with luminance, chroma, hue, hex, cvd, severity 
pth_data_cvd <- function(x, cvd = pth_cvd_grid(), ...)
pth_data_cvd.pth_mat <- function(x, cvd = pth_cvd_grid(), ...)
pth_data_cvd.character <- function(x, cvd = pth_cvd_grid(), transformer = pth_to_cieluv, ...)
pth_data_cvd.pth_palette <- function(x, cvd = pth_cvd_grid(), n_point = 11, ...)

• [x] pth_mat_gamut()
• [x] pth_cvd_grid()
• [x] pth_cvd_grid_full()
• [x] pth_data_cvd()
• [x] pth_plot_polar()

# returns ggplot
pth_plot_polar <- function(x, ...)
pth_plot_polar.tbl_df <- function(x, ...)
pth_plot_polar.pth_mat <- function(x, cvd = pth_cvd_grid_none(), ...)
pth_plot_polar.character <- function(x, cvd = pth_cvd_grid_none(), transformer = pth_to_cieluv, ...)
pth_plot_polar.pth_palette <- function(x, cvd = pth_cvd_grid_none(), n_point = 11, ...)

Thinking not to do the last one since it would not offer much, if anything, beyond geom_point()

# returns geom_point
pth_layer_polar <- function(x, ...)
pth_layer_polar.tbl_df <- function(x, ...)
pth_layer_polar.pth_palette <- function(x, n_point = 11, ...)