<!--
SPDX-FileCopyrightText: 2024 Petros Koutsolampros

SPDX-License-Identifier: GPL-3.0-only
-->

---
title: "Isovists"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Isovists}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup}
library(alcyon)

lineStringMap <- st_read(
  system.file(
    "extdata", "testdata", "gallery",
    "gallery_lines.mif",
    package = "alcyon"
  ),
  geometry_column = 1L, quiet = TRUE
)

shapeMap <- as(lineStringMap[, vector()], "ShapeMap")
```


```{r}
isovistMap <- isovist(
  shapeMap,
  x = c(3.01),
  y = c(6.70),
  angle = 0.01,
  viewAngle = 3.14,
  FALSE
)

```

```{r}
plot(isovistMap[1, 1])
```


