Output file problem with Tobii extensions

[carlacont at libero.it]

Hi everybody, 
we have just started using e-prime with Tobii in our lab and it seems we have some problems with our output files. 
We started with a very basic pilot script. Two animal pictures are shown in the screen, and then a sound with the name of one of the two animals is presented. The two pictures remain on the screen during the sound and for 2000 ms after the sound. The script is constructed with a Slide (Name: Slide3; two areas of interest), a sound, and another slide (which is the same as Slide3, previously presented). There is no interruption between the presentation of the pictures and the sound. The task does not involve any response, only eye-movements are recorded and analysed.
At the moment, the SaveGazedata inline contains instructions only for recording eye-movements on Slide3. However, our output file does not show any value for the AOI (area of interest) variable, nor for the AOISlide3 variable, which are actually the crucial ones!

In writing the SaveGazedata inline, we followed carefully the E-prime extensions for Tobii manual, but our output file does not provide the relevant information, hence where the participant is looking at during the experiment (AOI column, and AOISlide3column in the output file). 
We copy here our SaveGazedata inline, in case any of you can tell us where the mistake is. We couldn't figure it out from the manual.We would be happy to have any comment/suggestion! Cheers, Carla. 


Dim theGazeData As TobiiEyeTrackerResponseData
Dim theUserEyeGazeData As UserEyeGazeData
Dim nMaxHistoryCount As Long
Dim n As Long

' Get access to the critical stimulus object and the slide state that contains the AOIs
Dim theSlide As Slide
Dim theState As SlideState
Set theSlide = Slide3     
Set theState = theSlide.States(theSlide.ActiveState)

' Set defaults for the user defined data
theUserEyeGazeData.TrialId = c.GetAttrib( c.GetAttrib("Running") & ".Sample" ) ' obtain the sequential sample number from the currently running List
theUserEyeGazeData.AOI1 = c.GetAttrib( "picture1" )
theUserEyeGazeData.AOI2 = c.GetAttrib( "picture0" )
theUserEyeGazeData.AOI = ""
theUserEyeGazeData.Sound1 = c.GetAttrib( "Sound1" )
theUserEyeGazeData.SentenceType = c.GetAttrib( "SentenceType" )
theUserEyeGazeData.ItemID = c.GetAttrib( "ItemID" )
theUserEyeGazeData.AOISlide3 = ""
theUserEyeGazeData.CRESP = Slide3.CRESP
theUserEyeGazeData.RESP = Slide3.RESP
theUserEyeGazeData.ACC = Slide3.ACC
theUserEyeGazeData.RT = Slide3.RT


' See how many samples are currently saved in the history
nMaxHistoryCount = TobiiEyeTracker.History.Count

' Write out all the accumulated gaze data
For n = 1 To nMaxHistoryCount

    ' Get the next gaze data point
    Set theGazeData = CTobiiEyeTrackerResponseData( TobiiEyeTracker.History( n ) )
    If Not theGazeData Is Nothing Then

        ' If the critical stimulus is on screen then determine which sub object on the slide that the user 
        ' was looking at during this time
        If theGazeData.RTTime >= Slide3.OnsetTime Then
            Select Case theState.HitTest( theGazeData.CursorX, theGazeData.CursorY )
                Case "AOI1"
                    theUserEyeGazeData.AOI = "1"
                    theUserEyeGazeData.AOISlide3 = theUserEyeGazeData.AOI1
                Case "AOI2"
                    theUserEyeGazeData.AOI = "2"
                    theUserEyeGazeData.AOISlide3 = theUserEyeGazeData.AOI2
                Case Else
                    theUserEyeGazeData.AOI = ""
                    theUserEyeGazeData.AOISlide3 = ""
            End Select
        End If
        'get the sound that is playing
    
        If theGazeData.RTTime >= Sound1.OnsetTime Then theUserEyeGazeData.SoundPlaying=Sound1.Buffers(1).Filename

        ' Write this sample to the user defined gaze data file.
        UserWriteGazeDataFile c, theGazeData, theUserEyeGazeData
    End If

Next n

' Release references
Set theState = Nothing
Set theSlide = Nothing




 

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com.
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com.
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listserv.linguistlist.org/pipermail/eprime/attachments/20111101/86b9f573/attachment.htm>