## -----------------------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(ggseg.meshes)

## -----------------------------------------------------------------------------
available_cortical_surfaces()

## -----------------------------------------------------------------------------
available_cerebellar_surfaces()

## -----------------------------------------------------------------------------
mesh <- get_cortical_mesh("lh", "pial")
head(mesh$vertices)
head(mesh$faces)

## -----------------------------------------------------------------------------
flat <- get_cerebellar_flatmap()
nrow(flat$vertices)
nrow(flat$faces)

## -----------------------------------------------------------------------------
# library(ggseg3d)
# 
# ggseg3d(atlas = dk(), surface = "pial") |>
#   pan_camera("left lateral")
# 
# ggseg3d(atlas = dk(), surface = "white") |>
#   pan_camera("left lateral")

## -----------------------------------------------------------------------------
vapply(
  available_cortical_surfaces(),
  function(s) {
    mesh <- get_cortical_mesh("lh", s)
    c(vertices = nrow(mesh$vertices), faces = nrow(mesh$faces))
  },
  integer(2)
)