2010252<_VersionPersist dt:dt="int">200{12E8AB49-0C43-4981-9166-4017CA0C5C09}SessionProcChronosRefreshRateAndLatencyTestEP2 (PST){10343DBD-55BE-45C7-AA62-A5239F6918AB}011002112020-03-04T16:53:31.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-10102476832white1039201NoYes125%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11001MouseMouse<_VersionPersist dt:dt="int">1-11000ChronosChronos<_VersionPersist dt:dt="int">101-13000[DataFile.BaseName]-@Device-@LogLevel-@Increment.wav-1@Auto@Device.Filename10%10%500auto0250immediatenormal1161120-200%0%0%0%33100white0white0white0white0white010.951100002012012012012010001010000000100002012011800110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename00110000010.550.45@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename40000110000010.80.4@Auto[DataFile.BaseName]-@Device-@Channel-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename000100000000@Auto[DataFile.BaseName]-@Device-Aggregate-@LogLevel-@Increment.txtRTTime\tRTTimeMicro\tSAMPLE\tSEQUENCE\tCHANNEL\t@Experiment\t@SessionDate\t@SessionTime@RTTime\t@RTTimeMicro\t@Sample\t@SEQH\t@Channel1@Device@Channel.Filename1000000.50.5-111000000.50.5-111000000.50.5-111000000.50.5-11SoundSound<_VersionPersist dt:dt="int">100DirectSound-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10101SubjectPlease enter the Subject Number (0=No Data Logging):0-1-1102147483647SessionPlease enter the Session Number (1-32767):0-1-11132767GroupPlease enter Subject's Group (0-32767):0001032767NamePlease enter Subject's Name:100255AgePlease enter Subject's Age (0-150):00000150SexPlease enter Subject's Sex:200malemalefemaleHandednessEnter Subject's Handedness:200leftleftrightResearcherIDPlease enter Researcher's ID:0001032767SessionProcProcedure{813EC1DD-E55B-47A1-B97E-D6356C83C3B0}2010254<_VersionPersist dt:dt="int">201ReadMeInitInstructionsWarningCalibrationCalibInLineBlockListShowDataInLineShowDataTroubleshootingEndOfExpLabel101022ReadMeInLineInitInLineInstructionsTextDisplayWarningTextDisplayCalibrationTextDisplayCalibInLineInLineBlockListListShowDataInLineInLineShowDataTextDisplayTroubleshootingTextDisplayEndOfExpLabelLabelReadMeInLine{A76D710F-FFB3-415B-A278-2A127E1FE9D2}2010262<_VersionPersist dt:dt="int">1/* PhotoSensor thresholds are set at 60% and 40%. You can adjust this as necessary. You can adjust the resolution and refresh rate in the Experiment Object Property Pages > Devices tab > Display properties. You can place the Photosensor at the top-left of the screen to get the general latency of the monitor. If you wish to know the latency to your stimuli, place it in the location your stimuli would be presented (e.g. center of screen). */ ' This test should be ran normally and NOT in Test Mode Debug.Assert CLogical("False" = CLogical(c.AttribExists("TestMode")))InitInLine{A2D199E7-F010-4C41-A136-4A699B528918}2010262<_VersionPersist dt:dt="int">1Set nRise = New Summation Set nFall = New Summation Set nBlack = New Summation Set nWhite = New Summation Set nBoth = New Summation Set xBlack = New Summation Set xWhite = New Summation Set xBoth = New Summation TheFlipDuration = Format(Display.CalculatedRefreshDuration, "###.##") c.SetAttrib "TheFlipDuration", TheFlipDurationInstructionsTextDisplay{B9272734-964E-4E38-A47F-885679496298}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardMouseKeyboardKeyboard{ANY}1111YesAllYesMouseMouse{ANY}1111Yes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoWelcome to the Display Test! Place the Photosensor on the screen and do not move it. Place it on the top of the screen to get the monitor delay in general. Alternatively, you can place it where your Stimuli will occur to get the delay to its position on the screen. This test will run roughly one minute. Type a key to continue...-1001WarningTextDisplay{C2D3A11E-E50C-4F79-929F-FEA2BDD48CDB}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThis test will flash black and white screens. A very small percentage of people may experience a seizure when exposed to certain visual images, including flashing lights or patterns. Even people who have no history of seizures or epilepsy may have an undiagnosed condition that can cause these “photosensitive epileptic seizures”. If you or any of your relatives have a history of seizures or epilepsy, do not observe the test after pressing a key to continue. Press any key to begin.-1001CalibrationTextDisplay{8D16CE43-9DAB-4BD6-A4C1-AFBD808879A3}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime01000050010blackblackopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1001CalibInLineInLine{07F81650-8F82-4602-8B6A-BF2279ECAF18}2010262<_VersionPersist dt:dt="int">1'Chronos.AnalogIn(4).Filter = 0 Chronos.PhotoSensorAutoGainBlockListList{19CD5AB9-7AC9-4744-9003-578644C6DE62}2010258<_VersionPersist dt:dt="int">5LatencyProcRefreshRateProc000000001100Weight117510Nested17511Procedure1BlockProc75121 LatencyProc1 RefreshRateProcLatencyProcProcedure{7ADC8A33-9E36-4AA4-A315-1404FEBC6A20}2010254<_VersionPersist dt:dt="int">201TrialList101012TrialListListTrialListList{66282942-A37E-44C8-B123-A6C70BE30B11}2010258<_VersionPersist dt:dt="int">5TestType1FixationColor1StimulusColor1StimulusResponse1TrialProc000000001100Weight117510Nested17511Procedure1TrialProc7512TestType0?75188FixationColor0?84188StimulusColor0?88188StimulusResponse0?114188100 TrialProc Rise Black White C100 TrialProc Fall White Black {-C}TrialProcProcedure{E64227B2-2A50-4E92-BDFB-681ECE5EE365}2010254<_VersionPersist dt:dt="int">201FixationStimulusLogData101022FixationTextDisplayStimulusTextDisplayLogDataInLineFixationTextDisplay{EB63575C-FD24-421A-8886-6813F4A5BBE4}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime11000-110white[FixationColor]opaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1001StimulusTextDisplay{2000BDDE-7D26-405F-A565-F71C8FE2781E}2010263<_VersionPersist dt:dt="int">100OnsetDelay1OnsetTime1DurationError1PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime1ACC1RT1RESP1CRESP1Tag0OnsetToOnsetTime1ChronosChronosChronos[StimulusResponse][StimulusResponse]1011Yes1000010black[StimulusColor]opaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1001LogDataInLine{A4A74040-9EE1-4DEA-BC91-B781CA149BCF}2010262<_VersionPersist dt:dt="int">1If Stimulus.RESP = "C" Then nRise.AddObservation Stimulus.RT ElseIf Stimulus.RESP = "{-C}" Then nFall.AddObservation Stimulus.RT End If 'Just in case we terminate early If nRise.N > 0 And nFall.N > 0 Then ValidLDataFlag = TrueRefreshRateProcProcedure{75F12DEB-AAEE-4175-B860-3234FF9BDAEB}2010254<_VersionPersist dt:dt="int">201GetReadyRefreshRateList101012GetReadyTextDisplayRefreshRateListListGetReadyTextDisplay{226B2F83-15D5-48BC-9E11-9FA1E100978E}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime010000-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNo-1001RefreshRateListList{573CA78D-0080-43A7-86CD-B68C974D2B8D}2010258<_VersionPersist dt:dt="int">5RefreshProc000000001100Weight117510Nested17511Procedure1RefreshProc75121 RefreshProcRefreshProcProcedure{0FDDD6CA-6CA3-49A7-99BC-5AC9C4A44576}2010254<_VersionPersist dt:dt="int">201CalcRRData101022CalcRRDataInLineCalcRRDataInLine{C277A0D1-D1C9-4C1A-B268-E5E26EFB5E2B}2010262<_VersionPersist dt:dt="int">1Dim theCanvasWhite As Canvas Set theCanvasWhite = Display.CreateCanvas() theCanvasWhite.FillColor = Color.White theCanvasWhite.Clear Dim theCanvasBlack As Canvas Set theCanvasBlack = Display.CreateCanvas() theCanvasBlack.FillColor = Color.Black theCanvasBlack.Clear Dim rc As Rect rc.left = 0 rc.Top = 0 rc.right = Display.XRes rc.Bottom = Display.YRes Dim whiteOn As Long Dim blackOn As Long Dim whiteDur As Long Dim blackDur As Long Sleep 1000 Chronos.AnalogIn(4).History.RemoveAll Chronos.History.RemoveAll Sleep 100 If Display.FlippingEnabled = False Then Display.WaitForVerticalBlank Display.Canvas.Copy theCanvasBlack, rc, rc blackOn = Clock.Read Dim x As Long For x = 1 To 1003 ' End on White If x Mod 2 = 0 Then If Display.FlippingEnabled = False Then Display.WaitForVerticalBlank Display.Canvas.Copy theCanvasBlack, rc, rc blackOn = Clock.Read whiteDur = blackOn - whiteOn nWhite.AddObservation whiteDur nBoth.AddObservation whiteDur Else If Display.FlippingEnabled = False Then Display.WaitForVerticalBlank Display.Canvas.Copy theCanvasWhite, rc, rc whiteOn = Clock.Read blackDur = whiteOn - blackOn nBlack.AddObservation blackDur nBoth.AddObservation blackDur End If Next x Sleep 100 Chronos.AnalogIn(4).Stop Sleep 1000 If Chronos.History.Count > 0 Then 'Just in case we terminate early ValidRRDataFlag = True 'Make sure we just have valid data in History 'Debug.Print Chronos.History.Count Dim theUBoundW() As Long Dim theUBoundWCounter As Long Dim theUBoundB() As Long Dim theUBoundBCounter As Long For x = 1 To Chronos.History.Count If Chronos.History(x).RESP = "C" Then 'Valid - increment theUBoundWCounter = theUBoundWCounter + 1 ReDim Preserve theUBoundW(1 To theUBoundWCounter) theUBoundW(theUBoundWCounter) = Chronos.History(x).RTTime 'Debug.Print "White " & ebtab & Chronos.History(x).RTTime ElseIf Chronos.History(x).RESP = "{-C}" Then 'Valid - increment theUBoundBCounter = theUBoundBCounter + 1 ReDim Preserve theUBoundB(1 To theUBoundBCounter) theUBoundB(theUBoundBCounter) = Chronos.History(x).RTTime 'Debug.Print "Black " & ebtab & Chronos.History(x).RTTime End If Next 'How many samples to look at? Dim theSampleAmount As Long If theUBoundWCounter = theUBoundBCounter Then theSampleAmount = theUBoundWCounter ElseIf theUBoundWCounter < theUBoundBCounter Then theSampleAmount = theUBoundWCounter ElseIf theUBoundBCounter < theUBoundWCounter Then theSampleAmount = theUBoundBCounter End If If theSampleAmount > 0 Then 'We have at least 2 samples to look at For x = 1 To theSampleAmount If x > 1 Then ' Time white is on to black whiteDur = theUBoundB(x) - theUBoundW(x-1) xWhite.AddObservation whiteDur xBoth.AddObservation whiteDur c.PushNewFrame c.SetAttrib "PhotoWhiteDur", whiteDur c.Log c.PopFrame End If ' Time black is on to white, first resp black blackDur = theUBoundW(x) - theUBoundB(x) xBlack.AddObservation blackDur xBoth.AddObservation blackDur c.PushNewFrame c.SetAttrib "PhotoBlackDur", blackDur c.Log c.PopFrame Next x End If End If Set theCanvasWhite = Nothing Set theCanvasBlack = NothingShowDataInLineInLine{48B03FDB-E5AF-4777-B8F0-86548B0DD527}2010262<_VersionPersist dt:dt="int">1If ValidLDataFlag = True Then 'If we have valid data, log statistics for latency of the monitor. c.SetAttrib "RiseMean", nRise.Mean c.SetAttrib "RiseMin", nRise.Min c.SetAttrib "RiseMax", nRise.Max c.SetAttrib "RiseStdev", Format(nRise.StdDevS, "##.00") c.SetAttrib "FallMean", nFall.Mean c.SetAttrib "FallMin", nFall.Min c.SetAttrib "FallMax", nFall.Max c.SetAttrib "FallStdev", Format(nFall.StdDevS, "##.00") Else 'Placeholders if invalid or no data c.SetAttrib "RiseMean", "N/A" c.SetAttrib "RiseMin", "N/A" c.SetAttrib "RiseMax", "N/A" c.SetAttrib "RiseStdev", "N/A" c.SetAttrib "FallMean", "N/A" c.SetAttrib "FallMin", "N/A" c.SetAttrib "FallMax", "N/A" c.SetAttrib "FallStdev", "N/A" c.SetAttrib "theSS", "State1" End If If ValidRRDataFlag = True Then 'If we have valid data, log statistics for refersh duration of the monitor. c.SetAttrib "nBoth", Format(nBoth.Mean, "##.00") c.SetAttrib "nBothHz", Format(((1/nBoth.Mean)*1000), "##.00") c.SetAttrib "nBothSD", Format(nBoth.StdDevP, "##.00") c.SetAttrib "nBothSDHz", Format(((1/nBoth.StdDevP)*1000), "##.00") c.SetAttrib "nBothMin", Format(nBoth.Min, "##.00") If nBoth.Min = 0 Then 'If "Unreliable" is logged, ensure the Photosensor is attached properly 'and that you have vaid video card drivers installed. c.SetAttrib "nBothMinHz", "Unreliable" Else c.SetAttrib "nBothMinHz", Format(((1/nBoth.Min)*1000), "##.00") End If c.SetAttrib "nBothMax", Format(nBoth.Max, "##.00") c.SetAttrib "nBothMaxHz", Format(((1/nBoth.Max)*1000), "##.00") c.SetAttrib "xBoth", Format(xBoth.Mean, "##.00") c.SetAttrib "xBothHz", Format(((1/xBoth.Mean)*1000), "##.00") c.SetAttrib "xBothSD", Format(xBoth.StdDevP, "##.00") If xBoth.Min = 0 Then c.SetAttrib "xBothMin", "0.00" Else c.SetAttrib "xBothMin", Format(xBoth.Min, "##.00") End If If xBoth.Min = 0 Then 'If "Unreliable" is logged, ensure the Photosensor is attached properly 'and that you have vaid video card drivers installed. c.SetAttrib "xBothMinHz", "Unreliable" Else c.SetAttrib "xBothMinHz", Format(((1/xBoth.Min)*1000), "##.00") End If c.SetAttrib "xBothMax", Format(xBoth.Max, "##.00") c.SetAttrib "xBothMaxHz", Format(((1/xBoth.Max)*1000), "##.00") Else 'Placeholders if invalid or no data c.SetAttrib "xBothHz", "N/A" c.SetAttrib "xBoth", "N/A" c.SetAttrib "nBoth", "N/A" c.SetAttrib "nBothHz", "N/A" End If Set nRise = Nothing Set nFall = Nothing Set nBoth = Nothing Set xBoth = Nothing Set nWhite = Nothing Set nBlack = Nothing Set xWhite = Nothing Set xBlack = NothingShowDataTextDisplay{C04C4227-52BD-4AF2-8E3F-012670FC2125}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboardKeyboard{SPACE}1211YesAllYesKeyboardKeyboard{F1}1111YesAllYes-1EndOfExpLabel0-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoRefresh Rate: [xBothHz] Refresh Rate Duration: [xBoth] Expected Refresh Rate: [nBothHz] Expected Refresh Rate Duration: [nBoth] Rise Mean: [RiseMean] Rise Min: [RiseMin] Rise Max: [RiseMax] Rise Stdev: [RiseStdev] Fall Mean: [FallMean] Fall Min: [FallMin] Fall Max: [FallMax] Fall Stdev: [FallStdev] If something looks unexpected press F1 for troubleshooting info. Press Spacebar to exit.-1001EndOfExpLabelLabel{0030B1CB-6E9F-4F3F-926A-4A2CB9503A45}2010263<_VersionPersist dt:dt="int">1TroubleshootingTextDisplay{6B06C6AB-97F2-4C64-946E-25028B57F124}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard{ANY}1111YesAllYes-10-110blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoAdvanced Troubleshooting: Try a test run with the photosensor placed in the top-left of your monitor. Examine if any monitor settings can be changed to improve performance if this produces Rise ([RiseMax]ms) or Fall ([FallMax]ms) values greater than the monitor's refresh duration([TheFlipDuration]ms). If the monitor cannot be improved, use a different monitor or be aware of the limitation of fast presentation. For more detailed monitor information, run the Benchmark For Graphics and Monitors (article 29932 on the Support site). Press any key to exit the experiment.-1001Dim nRise As Summation Dim nFall As Summation Dim nBlack As Summation Dim nWhite As Summation Dim nBoth As Summation Dim xBlack As Summation Dim xWhite As Summation Dim xBoth As Summation Dim ValidRRDataFlag As Boolean Dim ValidLDataFlag As Boolean Dim TheFlipDuration As Double