Displaying 1 result from an estimated 1 matches for "logoheight".
Did you mean:
log2_height
2005 Oct 06
3
playing with R: make a animated GIF file...
...---------------
############################ the code
######## reverse the STRING
strReverse <- function(x) sapply(lapply(strsplit(x, NULL), rev), paste,
collapse="")
######## logotype to animate
yourLogo = "Is Nice to play with R-package "
logoWidth = 1.5
logoHeight = 2.5
L = nchar(yourLogo)
TrigSplit = 360 / L
yourLogo = strReverse(yourLogo)
posx = numeric(L)
posy = numeric(L)
for( i in 0:L){
posx[i] = logoHeight * sin(i * TrigSplit * pi / 180)
posy[i] = logoWidth * cos(i * TrigSplit * pi / 180)
}
max_x = max(posx)*1.1
max_y = max(posy)*3
min_x = min(...