source("http://macosa.dima.unige.it/r.R") # If I have not already loaded the library ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- S 16 Windows without the margins # boxW opens a new coordinate system with nothing, no grid or axes, filling the window # (without the space usually used for the coordinates). BOXW does the same using a # monometric scale. I can use these commands (using 0,0,0,0 as input) even before # the "persp" command to reduce whitespace. # If I want to add grids I can use, for example, gridh and gridv (see), or BOX(). BF=2; HF=2; BOXW(-1,1, -1,1) circle(0,0, 1, "red") BF=3; HF=2; boxW(-1,1, -1,1) circle(0,0, 1, "blue") # boxWW and BOXWW leave a bit of space above and on the right: BF=3; HF=2; boxWW(-1,1, -1,1); circle(0,0, 1, "blue"); abovex("xxxxx"); abovey("yyyyy") BF=2; HF=2; BOXWW(-1,1, -1,1); circle(0,0, 1, "red"); abovex("xxxxx"); abovey("yyyyy") # boxww and BOXww leave a bit of space under and on the left: BF=3; HF=2; boxww(-1,1, -1,1); circle(0,0, 1, "blue"); underx("xxxxx"); undery("yyyyy") BF=2; HF=2; BOXww(-1,1, -1,1); circle(0,0, 1, "red"); underx("xxxxx"); undery("yyyyy") # You can employ boxWW to use non-decimal scale (see here for the above picture). # house A <- c(1,4, 5,4, 5,0, 1,0, 1,4, 3,5, 5,4); xTab(A); yTab(A) # [1] 1 5 5 1 1 3 5 # [1] 4 4 0 0 4 5 4 BF=2.5; HF=2.5 PLANE(0,6, 0,6); polyline(xTab(A), yTab(A), "red") BOXW(0,6, 0,6); polyline(xTab(A), yTab(A), "red") BOXW(0,6, 0,6); polyC(xTab(A), yTab(A), "yellow") BOX() # spider P <- c( 0, 1.05, 0.1,1.05, 0.35,1, 0.8,1.3, 0.6,0.95, 1.5,0.9, 5,4, 5.55,4, 6,3, 5,1, 1.45,-1.9, 1.8,-2.4, 1.6,-2.5, 1.35,-2, 0,-2.9, -1.35,-2, -1.6,-2.5, -1.8,-2.4, -1.45,-1.9, -5,1, -6,3, -5.55,4, -5,4, -1.5,0.9, -0.6,0.95, -0.8,1.3, -0.35,1, -0.1,1.05, 0,1.05 ) X <- xTab(P); Y <- yTab(P) BOXW(-6,6, -6,6); polyC(X, Y, "grey") polyline(X, Y, "black") # type BOX() to see the grid Other examples of use