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

pointMap<-makeVGAPointMap(    galleryMap,fillX =3.01,fillY =6.7,gridSize =0.06)plot(pointMap["Connectivity"])

linkedPointMap<-linkCoords(pointMap,1.74,6.7,5.05,5.24)

vgaMap<-allToAllTraverse(    pointMap,traversalType = TraversalType$Metric,radii =-1,radiusTraversalType = TraversalType$None)plot(vgaMap["Metric Mean Shortest-Path Angle"])

vgaMap<-allToAllTraverse(    vgaMap,traversalType = TraversalType$Angular,radii =-1,radiusTraversalType = TraversalType$None)plot(vgaMap["Angular Mean Depth"])

vgaMap<-allToAllTraverse(    vgaMap,traversalType = TraversalType$Topological,radii =-1,radiusTraversalType = TraversalType$None)plot(vgaMap["Visual Integration [HH]"])

vgaMap<-vgaThroughVision(vgaMap)plot(vgaMap["Through vision"])

vgaMap<-vgaVisualLocal(vgaMap,FALSE)plot(vgaMap["Visual Control"])

boundaryMap<-as(galleryMap[,vector()],"ShapeMap")vgaMap<-vgaIsovist(vgaMap, boundaryMap)plot(vgaMap["Isovist Area"])

vgaMap<-oneToAllTraverse(    vgaMap,traversalType = TraversalType$Metric,fromX =3.01,fromY =6.7)plot(vgaMap["Metric Step Shortest-Path Angle"])

vgaMap<-oneToAllTraverse(    vgaMap,traversalType = TraversalType$Angular,fromX =3.01,fromY =6.7)plot(vgaMap["Angular Step Depth"])

vgaMap<-oneToAllTraverse(    vgaMap,traversalType = TraversalType$Topological,fromX =3.01,fromY =6.7)plot(vgaMap["Visual Step Depth"])

vgaMap<-oneToOneTraverse(    vgaMap,traversalType = TraversalType$Topological,fromX =4.86,fromY =5.25,toX =1.27,toY =7.60)nuv<-length(unique(unlist(vgaMap["Visual Shortest Path"])))plot(vgaMap["Visual Shortest Path"],breaks ="equal",nbreaks = nuv,col =c("lightgray",depthmap.axmanesque.colour(nuv-2)))

vgaMap<-oneToOneTraverse(    vgaMap,traversalType = TraversalType$Topological,fromX =4.86,fromY =5.25,toX =1.27,toY =7.60)nuv<-length(unique(unlist(vgaMap["Visual Shortest Path Visual Zone"])))plot(vgaMap["Visual Shortest Path Visual Zone"],breaks ="equal",nbreaks = nuv,col =c("lightgray",depthmap.axmanesque.colour(nuv-2)))

vgaMap<-oneToOneTraverse(    vgaMap,traversalType = TraversalType$Metric,fromX =4.86,fromY =5.25,toX =1.27,toY =7.60)nuv<-length(unique(unlist(vgaMap["Metric Shortest Path"])))plot(vgaMap["Metric Shortest Path"],breaks ="equal",nbreaks = nuv,col =c("lightgray",depthmap.axmanesque.colour(nuv-2)))

vgaMap<-oneToOneTraverse(    vgaMap,traversalType = TraversalType$Angular,fromX =4.86,fromY =5.25,toX =1.27,toY =7.60)nuv<-length(unique(unlist(vgaMap["Angular Shortest Path"])))plot(vgaMap["Angular Shortest Path"],breaks ="equal",nbreaks = nuv,col =c("lightgray",depthmap.axmanesque.colour(nuv-2)))

vgaMap<-oneToOneTraverse(    vgaMap,traversalType = TraversalType$Angular,fromX =4.86,fromY =5.25,toX =1.27,toY =7.60)nuv<-length(unique(unlist(vgaMap["Angular Shortest Path Metric Zone"])))plot(vgaMap["Angular Shortest Path Metric Zone"],breaks ="equal",nbreaks = nuv,col =c("lightgray",depthmap.classic.colour(nuv-2)))