Add rhombi on a plot and returns areas.

rhombi(x, y = x, ldg = 1, sdg = ldg, rot = 0, add = FALSE, ...)

Arguments

x

a vector of x coordinates of the centers of the losange

y

a vector of y coordinates of the centers of the losange

ldg

vector of length of the large diagonals.

sdg

vector of length of the small diagonals.

rot

rotation angles (in degree) of the rhombi.

add

logical. If TRUE rhombi are added to the current plot (default behavior).

...

additional arguments to be passed to graphics::polygon() function.

Value

A vector including rhombi areas is returned if assigned.

Details

The number of rhombus maximal is provided by the length of the largest argument among x, y, ldg, sdg and rot. Other arguments are repeated with the largest length as the desired one (see rep_len()). Additional arguments remain the same for every rhombus.

Examples

# Example 1: plot0(asp=1)
rhombi(0) # Example 2: plot0(c(-0.4,1.4),c(-0.4,1.4))
rhombi(runif(6), runif(5), runif(2), runif(3)) # Example 3: plot0(asp=1)
rhombi(x=0, rot=seq(0,180,20), col=2, border=NA) rhombi(x=0, rot=seq(0,180,30), ldg=0.5, col=7, border=NA)