R and RGL draw 3D knots

Use this rgl software package , You can move the image and zoom in and out . Find this image here in interactive mode .

# Library rgl
library(rgl)

#Choose the size of the image on the output (800,650 to have 800 x 600)
r3dDefaults$windowRect <- c