MST

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# jukebox labels

j_list  <- read.csv2('Mappe1.csv', skip = 2)

j_list[ 1, ]

j_list[ , 1 ]
length( j_list[ , 1 ] )

ceiling( length( j_list[ , 1 ] ) / 8 )


g <- 1

for( f in 1:ceiling( length( j_list[ , 1 ] ) / 8 ) ) {

  jpeg( paste( "jukebox_" , f, ".jpg", sep = "") , width = 800, height = 800 )

  #jpeg("test2.jpg", width=800, height=800)

  #par( mar = rep( 1, 4 ), bg = "white")
  #par( mfrow = c( 1, 1 ), bg = "white")

  par( mfrow = c( 4, 2 ), bg = "white")

  print( g )
  
  #for( e in 1:8 ){
  for( e in g:(g+7) ){
  
    plot.new()
    plot.window(xlim = c(0, 800), ylim = c(0, 250))
    #lines(c(0, 800, 800, 0,0), c(0, 0, 250, 250,0), type = "l", lwd = 6, col = "red") # data frame with points to connect

    lines(c(0, 800), c(0, 0), type = "l", lwd = 6, col = "red")
    lines(c(0, 800), c(250, 250), type = "l", lwd = 6, col = "red")

    #lines(c(0, 100), c(131, 131), type = "l", lwd = 4, col = "red") 
    #lines(c(0, 100), c(129, 130), type = "l", lwd = 4, col = "red")
    #lines(c(0, 100), c(129, 129), type = "l", lwd = 4, col = "red")

    for(i in 119:131){ lines(c(0, 100), c(i, i), type = "l", lwd = 4, col = "red") }

    #lines(c(700, 800), c(123, 123), type = "l", lwd = 4, col = "red")
    #lines(c(700, 800), c(121, 121), type = "l", lwd = 4, col = "red")
    #lines(c(700, 800), c(119, 119), type = "l", lwd = 4, col = "red")

    for(i in 119:131){ lines(c(700, 800), c(i, i), type = "l", lwd = 4, col = "red") }

    #lines(c(0, 100, 100, 700,700,800), c(125, 125, 150, 150,125,125), type = "l", lwd = 7, col = "red") # data frame with points to connect
    #lines(c(0, 100, 100, 700,700,800), c(125, 125, 100, 100,125,125), type = "l", lwd = 7, col = "red") # data frame with points to connect

    #lines(c(100, 100, 100, 700,700,700), c(125, 125, 150, 150,125,125), type = "l", lwd = 7, col = "black") # data frame with points to connect
    #lines(c(100, 100, 100, 700,700,700), c(125, 125, 100, 100,125,125), type = "l", lwd = 7, col = "black") # data frame with points to connect

    #lines(c(100, 100, 100, 700,700,700), c(125, 125, 150, 150,125,125), type = "l", lwd = 3, col = "red") # data frame with points to connect
    #lines(c(100, 100, 100, 700,700,700), c(125, 125, 100, 100,125,125), type = "l", lwd = 3, col = "red") # data frame with points to connect

    lines(c(105, 105, 105, 695,695,695), c(125, 125, 150, 150,125,125), type = "l", lwd = 3, col = "red") # data frame with points to connect
    lines(c(105, 105, 105, 695,695,695), c(125, 125, 100, 100,125,125), type = "l", lwd = 3, col = "red") # data frame with points to connect

    c <- "black"
    f <- "Times New Roman"
    ce <- 2

    #text(400,125,"Rock",cex = 3, col = c, family=f)
    #text(400,200,"Side A",cex = 3, col = "Black")
    #text(400,50,"Side B",cex = 3, col = "Black")

    text( 400, 200, j_list[ e, 1 ], cex = ce, col = c, family = f )
    text( 400, 125, j_list[ e, 2 ] ,cex = ce, col = c, family = f )
    text( 400, 50, j_list[ e, 3 ], cex = ce, col = c, family = f )

  }

  g <- g + 8
  
  graphics.off()
  #browseURL("test.jpg")
  #browseURL("test2.jpg")
  #browseURL( paste( "jukebox_" , f, ".jpg", sep = "") )

}

# Martin Stoppacher                                                             #
# office@martinstoppacher.com                                                   #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#################################################################################

Original:

Created: