```
# NOT RUN {
W <- ellipse(a=5,b=2,centre=c(5,1),phi=pi/6)
plot(W,lwd=2,border="red")
WM <- ellipse(a=5,b=2,centre=c(5,1),phi=pi/6,mask=TRUE,dimyx=512)
plot(WM,add=TRUE,box=FALSE)
# }
```

Run the code above in your browser using DataCamp Workspace