OPI (version 3.0.4)

opiPresent_for_KowaAP7000: Implementation of opiPresent for the KowaAP7000 machine.

Description

This is for internal use only. Use opiPresent() with the same arguments and the class of stim as one of opiStaticStimulus, opiTemporalStimulus, or opiKineticStimulus.

Value

See kowa.presentStatic, kowa.presentTemporal, or kowa.presentKinetic.

Arguments

stim

Stimulus to present (a list, see kowa.* for details).

nextStim

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

See Also

kowa.presentStatic, kowa.presentTemporal, kowa.presentKinetic

Examples

if (FALSE) {
  chooseOpi("KowaAP7000")
  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)
  class(s) <- "opiStaticStimulus"
  print(opiPresent(s, NULL))
}