summary(owin())  # the unit square
  data(demopat)
  W <- demopat$window  # weird polygonal window
  summary(W)           # describes it
  summary(as.mask(W))  # demonstrates current pixel resolutionRun the code above in your browser using DataLab