powered by
classifyAz(sl)
SpatialLines*
list
az
q
data(build) build_seg = toSeg(build[1, ]) az = classifyAz(build_seg) plot(build_seg, col = rainbow(4)[az$q]) raster::text(rgeos::gCentroid(build_seg, byid = TRUE), round(az$az))
Run the code above in your browser using DataLab