OPI (version 3.0.4)

opiPresent_for_O600: Implementation of opiPresent for the O600 machine.

Description

This is for internal use only. Use opiPresent() with the same arguments.

Value

A list containing

• err String message or NULL for no error.

• seen 1 if seen, 0 otherwise.

• time Reaction time (if seen).

Arguments

stim

Stimulus to present which is a list with the following elements:

• x positionX (in 1/10deg)

• y positionY (in 1/10deg)

• level dLog (intensity; 0dB is 4000 apostilbs) (in 1/10 dB)

• duration Stimulus presentation duration in ms, for W/W 100ms, for pulsar 500ms

• responseWindow Maximal allowed reaction time in ms, >=500ms and <4s

• sound # Bit 1 = sound for patient response button ON; Bit2=1 sound for fixation lost ON

nextStim

The stimulus to present after stim (it is not presented, but projector can move to it during response window)

Examples

if (FALSE) {
  chooseOpi("O600")
  if (!is.null(opiInitialize()$err))
      stop("opiInitialize failed")
  s <- list(x=9, y=9, level=dbTocd(db), size=0.43, color="white",
            duration=200, responseWindow=1500, checkFixationOK=NULL)
  print(opiPresent(s, NULL))
}