You can try the rgeos::gBuffer() with capStyle='SQUARE' p<-SpatialPoints(matrix(c(1,1), ncol=2)) plot(p) plot(gBuffer(p, capStyle="SQUARE",width=0.1), add=T) Would that fit you ? regards Alex [[alternative HTML version deleted]]