opiPresent_for_O600 {OPI}

Implementation of opiPresent for the O600 machine.

Description

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

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)

Value

A list containing

• err String message or NULL for no error.

• seen 1 if seen, 0 otherwise.

• time Reaction time (if seen).

Examples

## Not run: 
  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))

## End(Not run)