# NOT RUN {
# Set up a Display and wait for a key press in it.
chooseOpi("Display")
if (!is.null(opiInitialize(width = 1680, height = 1050, ppi = 128, viewdist = 25)))
stop("opiInitialize failed")
opiSetBackground()
opiSetBackground(lum = 100, color = "white", fixation = "Circle")
opiSetBackground(lum = 100, color = "white", fixation = "Cross", fix_color = "red",
fix_cx = 2, fix_cy = 5, fix_sx = 1, fix_sy = 2)
opiClose()
# }
# NOT RUN {
chooseOpi("Octopus900")
oi <- opiInitialize(eyeSuiteJarLocation="c:/EyeSuite/",
eyeSuiteSettingsLocation="c:/Documents and Settings/All Users/Haag-Streit/",
eye="left")
if(!is.null(oi))
stop("opiInitialize failed")
if(!is.null(opiSetBackground(fixation=.OpiEnv$O900$FIX_CENTRE)))
stop("opiSetBackground failed")
if(!is.null(opiSetBackground(fixation=.OpiEnv$O900$FIX_RING, fixIntensity=0)))
stop("opiSetBackground failed")
if(!is.null(opiSetBackground(color=.OpiEnv$O900$MET_COL_BY)))
stop("opiSetBackground failed")
if(!is.null(opiSetBackground(lum=.OpiEnv$O900$BG_100, color=.OpiEnv$O900$MET_COL_RW)))
stop("opiSetBackground failed")
opiClose()
# }
# NOT RUN {
chooseOpi("SimGaussian")
if (!is.null(opiInitialize(sd=2)))
stop("opiInitialize failed")
if (!is.null(opiSetBackground(col="white",gridCol="grey")))
stop("opiSetBackground failed, which is very surprising!")
# }
Run the code above in your browser using DataLab