qtlc (version 1.0)

showtlc3D: Shows 3D plot of the TLC matrix.

Description

The function uses TLC matrix width, height and intensity values to make 3D plot.

Usage

showtlc3D(object, spot = NULL, ogl = FALSE, RGB = NULL, grey = FALSE, ...)

Arguments

object

S3 object of the working TLC.

spot

If the specific spot should be represented in 3D, but not entire TLC matrix. (Spot number is given as value, and spots are counted from left to right.)

ogl

If TLC 3D plot use OpenGL library for fast and interactive 3D plot. (This functionality is based on the rgl package.) Otherwise the function is based on the plot3D package.

RGB

If RGB matrices are present in the object, choose between R, G, or B.

grey

Boolean, if TRUE, then tlc is greyscaled. Default value is FALSE.

...

Additional graphics parameters.

Value

None.

Examples

# Tests 3D plot of the entire matrix
fname01 <- system.file("extdata", "test025to100sp.tiff", package="qtlc")
testTLC <- createTLC(fname01, RGB=FALSE)

# now we'll imitate interactive spot2D function,
# and create spots coordinates automatically,
# for interactive version run testTLC <- spot2D(testTLC)
testTLC$spots$x <- c(40.93354, 83.18687, 121.59899, 160.01111, 203.54485,
                     239.39616, 280.36909, 320.06161, 362.31494, 399.44666,
                     439.13919, 480.11211, 518.52423, 559.49716, 599.18969)
testTLC$spots$y <- c(198.3160, 198.3160, 199.2833, 198.3160, 198.3160,
                     198.3160, 198.3160, 198.3160, 197.3487, 198.3160,
                     199.2833, 198.3160, 199.2833, 199.2833, 199.2833)

testTLC <- select2D(testTLC, 30, 30)
testTLC <- matrices2D(testTLC)
testTLC <- summat2D(testTLC)

# 3D without OpenGL, shows only spot 13
showtlc3D(testTLC, spot=13, ogl=FALSE, grey=FALSE)
# without openGL and greyscaled
showtlc3D(testTLC, spot=13, ogl=FALSE, grey=TRUE)
#openGL showtime
showtlc3D(testTLC, spot=13, ogl=TRUE)