[WARNING] WARNING: DO NOT EDIT THIS FILE DIRECTLY! Use only E-Studio to edit this file. Editing of this file from any other means is not supported and may corrupt the experiment design specification. Technical support will not be able to address any issue in regards to this file format. [Experiment] VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=94 _VersionPersist=6 Root="SessionProc" Author="PST" Abstract="This sample illustrates the use of a Canvas object. The Canvas \r\nobject is a scripting object that has no graphical user interface\r\nor Property pages. All properties and methods are accessible only\r\nthrough user written script.\r\n\r\nThe sample experiment is a basic luminence task. The InLine \r\nobject contains E-Basic script that creates a Canvas, sets \r\nPenColor, PenWidth, and FillColor, draws the appropriate shape, \r\nand then increments the changing color for the next drawing. The \r\ntime at which both shapes were the same color, and the time of the\r\nsubject's response is recorded and presented as feedback.\r\n\r\nFor more information about the Canvas object, please refer to the \r\nE-Basic OnLine Help Canvas topic." Notes="" Creation=998405166 [Device0] _VersionPersist=1 OpenDevice=1 Width=640 Height=480 Bpp=16 Name="Display" Class="Display" [Device1] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" CapsLock=0 NumLock=0 Name="Keyboard" Class="Keyboard" [Device2] _VersionPersist=1 OpenDevice=1 CollectionMode=1 EmulateDeviceName="" OpenMode=0 ShowCursor=0 Name="Mouse" Class="Mouse" [Device3] _VersionPersist=1 OpenDevice=0 Channels=2 Samples=22050 Bps=16 Name="Sound" Class="Sound" [DataFile] WarnBeforeOverwrite=1 WarnIfConvertFailed=1 RemoveERecoveryFile=0 ReceiveFeedbackDuringDataFileConversion=1 LogLevel(2).Name="Block" LogLevel(3).Name="Trial" LogLevel(4).Name="SubTrial" LogLevel(5).Name="LogLevel5" LogLevel(6).Name="LogLevel6" LogLevel(7).Name="LogLevel7" LogLevel(8).Name="LogLevel8" LogLevel(9).Name="LogLevel9" LogLevel(10).Name="LogLevel10" [StartupInfo] DisplaySummary=1 UseDefaults=0 [StartupInfo1] Name="Subject" Prompt="Please enter the Subject Number (0-32767):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=0 Max=32767 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo2] Name="Session" Prompt="Please enter the Session Number (0-32767):" DataType=0 Enabled=1 PromptEnabled=1 Default="1" Min=0 Max=32767 PrivateFlags=268435477 PrivateInfo=1 [StartupInfo3] Name="Group" Prompt="Please enter Subject's Group (0-32767):" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [StartupInfo4] Name="Name" Prompt="Please enter Subject's Name:" DataType=1 Enabled=0 PromptEnabled=0 Default="" MaxLength=255 [StartupInfo5] Name="Age" Prompt="Please enter Subject's Age (0-150):" DataType=0 Enabled=0 PromptEnabled=0 Default="0" Min=0 Max=150 [StartupInfo6] Name="Sex" Prompt="Please enter Subject's Sex:" DataType=2 Enabled=0 PromptEnabled=0 Default="male" Choice(1).Value="male" Choice(2).Value="female" [StartupInfo7] Name="Handedness" Prompt="Enter Subject's Handedness:" DataType=2 Enabled=0 PromptEnabled=0 Default="left" Choice(1).Value="left" Choice(2).Value="right" [StartupInfo8] Name="ResearcherID" Prompt="Please enter Researcher's ID:" DataType=0 Enabled=0 PromptEnabled=0 Default="1" Min=0 Max=32767 [Object0] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 _ItemList="Introduction;BlockList;TextDisplay1" _VersionPersist=1 FlowLines(0).Count=3 FlowLines(0).FlowItem(0).Name="Introduction" FlowLines(0).FlowItem(1).Name="BlockList" FlowLines(0).FlowItem(2).Name="TextDisplay1" LogData=1 Name="SessionProc" TypeName="Procedure" Tag="" Notes="" [Object1] _Version=131072 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 _VersionPersist=1 Code="'Create a Canvas and set the pen width.\nDim cnvs As Canvas\nSet cnvs = Display.Canvas\n\ncnvs.PenWidth = 5\n\n\n'String variable for holding colors.\nDim strStaticColor As String, strChangeColor As String\n\n'Integer variables for holding R, G, B values.\nDim nStatic As Integer\nnStatic = c.Getattrib(\"StartingStatic\")\n\nDim nChange As Integer\nnChange = c.GetAttrib(\"StartingChange\")\n\n'Constants for shapes.\nConst RADIUS As Integer = 50\nConst LENGTH As Integer = 100\nConst HEIGHT As Integer = 100\n\n'Constants for starting and ending X and Y positions.\nDim LEFTXPOS As Integer \nLEFTXPOS = Display.XRes * .25\n\nDim RIGHTXPOS AS Integer \nRIGHTXPOS = Display.XRes * .75\n\nDim YPOS As Integer \nYPOS = Display.YRes * .50\n\n'Loop continuously until the changing color has\n' reached the maximum (255)\nDo While nChange <= 255\n\n\t'Set colors\n\tIf c.GetAttrib(\"Color\") = \"red\" Then\n\t\tstrStaticColor = nStatic & \",\" & \"0,0\"\n\t\tstrChangeColor = nChange & \",\" & \"0,0\"\n\tElseIf c.GetAttrib(\"Color\") = \"green\" Then\n\t\tstrStaticColor = \"0,\" & nStatic & \",0\"\n\t\tstrChangeColor = \"0,\" & nChange & \",0\"\n\tElse\n\t\tstrStaticColor = \"0,0,\" & nStatic\n\t\tstrChangeColor = \"0,0,\" & nChange\n\tEnd If\n\n\t'Check if static and change colors are the same and log timestamp\n\tIf strStaticColor = strChangeColor Then\n\t\tc.SetAttrib \"SameColorTime\", Clock.Read - CollectResponse.OnsetTime\n\tEnd If\n\n\t'Set static pen and fill colors.\n\tcnvs.PenColor = CColor(strStaticColor)\n\tcnvs.FillColor = CColor(strStaticColor)\n\n\t'Draw the appropriate shapes.\n\tIf c.GetAttrib(\"Shape\") = \"Line\" Then\n\t\tcnvs.Line LEFTXPOS - LENGTH, YPOS, LEFTXPOS + LENGTH, YPOS\n\t\t\n\t\tcnvs.PenColor = CColor(strChangeColor)\n\t\tcnvs.FillColor = CColor(strChangeColor)\n\n\t\tcnvs.Line RIGHTXPOS - LENGTH, YPOS, RIGHTXPOS + LENGTH, YPOS\n\tElseIf c.GetAttrib(\"Shape\") = \"Square\" Then\n\t\tcnvs.Rectangle LEFTXPOS, YPOS, LENGTH, HEIGHT\n\t\t\n\t\tcnvs.PenColor = CColor(strChangeColor)\n\t\tcnvs.FillColor = CColor(strChangeColor)\n\n\t\tcnvs.Rectangle RIGHTXPOS, YPOS, LENGTH, HEIGHT\n\tElse\n\t\tcnvs.Circle LEFTXPOS, YPOS, RADIUS\n\n\t\tcnvs.PenColor = CColor(strChangeColor)\n\t\tcnvs.FillColor = CColor(strChangeColor)\n\n\t\tcnvs.Circle RIGHTXPOS, YPOS, RADIUS\n\tEnd If\n\n\t'Increment the changing RGB value\n\tnChange = nChange + 1\n\tSleep 5\n\nLoop\n\n'Sleep for remaining time\nSleep 5000 - (Clock.Read - CollectResponse.OnsetTime)\n\n'Log response time\nc.SetAttrib \"CollectResponse.RT\", CollectResponse.RT" Name="DrawShapes" TypeName="InLine" Tag="" Notes="" [Object2] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=-1 Logging("ACC").Log=-1 Logging("RT").Log=-1 Logging("RESP").Log=-1 Logging("CRESP").Log=-1 Logging("Tag").Log=0 Input(0)=!Data0 _VersionPersist=1 Duration="0" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="CollectResponse" TypeName="Wait" Tag="" Notes="" [Data0] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{SPACE}" CorrectInput="" TimeLimit="5000" MaxCount="1" InputAction=0 SyncOwnerDuration=0 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object3] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 Input(0)=!Data1 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Text="Welcome. This experiment demonstrates the use of various Canvas object methods and functions.\n\nPress any key to continue." ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="-1" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Introduction" TypeName="TextDisplay" Tag="" Notes="" [Data1] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{ANY}" CorrectInput="" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object4] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 _ItemList="BlockProc" _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Order=0 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=0 Filename="" UserAttributes=0 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=1 Attributes("Procedure").DefaultValue="BlockProc" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=2 Levels=1 Levels(1).ValueString="1\t\tBlockProc\t" Name="BlockList" TypeName="List" Tag="" Notes="" [Object5] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 _ItemList="Instructions;TrialList" _VersionPersist=1 FlowLines(0).Count=2 FlowLines(0).FlowItem(0).Name="Instructions" FlowLines(0).FlowItem(1).Name="TrialList" LogData=1 Name="BlockProc" TypeName="Procedure" Tag="" Notes="" [Object6] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 Input(0)=!Data2 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Text="For each trial, you will be presented with two shapes of varying colors. One of the shapes will begin changing colors.\n\nWhen the colors of the two shapes match, press the spacebar.\n\nPress any key to continue." ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="-1" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Instructions" TypeName="TextDisplay" Tag="" Notes="" [Data2] DeviceName="Keyboard" DeviceClass="Keyboard" AllowableInput="{ANY}" CorrectInput="" TimeLimit="" MaxCount="1" InputAction=1 SyncOwnerDuration=1 Enabled=1 FlushInputBuffer="Yes" TerminationInput="" UserTag="" ResponseMode="All" ProcessBackspace="Yes" [Object7] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("Shape").Log=-1 Logging("Color").Log=-1 Logging("StartingStatic").Log=-1 Logging("StartingChange").Log=-1 _ItemList="TrialProc" _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Order=0 OrderBy=0 ResetEveryRun=0 HideLevelsWithZeroWeight=0 CycleDef=0 CycleValueSamples=0 CycleValueCondition="" ExitDef=0 ExitValueCycles=1 ExitValueSamples=1 ExitValueSeconds=0 ExitValueCondition="" LoadMethod=0 Filename="" UserAttributes=4 Attributes("Weight").DefaultValue="1" Attributes("Weight").Visible=1 Attributes("Weight").Width=75 Attributes("Weight").OrderIndex=0 Attributes("Nested").DefaultValue="" Attributes("Nested").Visible=1 Attributes("Nested").Width=75 Attributes("Nested").OrderIndex=1 Attributes("Procedure").DefaultValue="TrialProc" Attributes("Procedure").Visible=1 Attributes("Procedure").Width=75 Attributes("Procedure").OrderIndex=2 Attributes(1).Name="Shape" Attributes(1).DefaultValue="?" Attributes(1).VarType=8 Attributes(1).VarTypeInternal=8 Attributes(1).Visible=1 Attributes(1).Width=75 Attributes(2).Name="Color" Attributes(2).DefaultValue="?" Attributes(2).VarType=8 Attributes(2).VarTypeInternal=8 Attributes(2).Visible=1 Attributes(2).Width=75 Attributes(3).Name="StartingStatic" Attributes(3).DefaultValue="?" Attributes(3).VarType=8 Attributes(3).VarTypeInternal=8 Attributes(3).Visible=1 Attributes(3).Width=115 Attributes(4).Name="StartingChange" Attributes(4).DefaultValue="?" Attributes(4).VarType=8 Attributes(4).VarTypeInternal=8 Attributes(4).Visible=1 Attributes(4).Width=110 Levels=3 Levels(1).ValueString="1\t\tTrialProc\tLine\tred\t200\t50\t" Levels(2).ValueString="1\t\tTrialProc\tRectangle\tgreen\t225\t0\t" Levels(3).ValueString="1\t\tTrialProc\tCircle\tblue\t150\t100\t" Name="TrialList" TypeName="List" Tag="" Notes="" [Object8] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 _ItemList="Fixation;CollectResponse;DrawShapes;Feedback" _VersionPersist=1 FlowLines(0).Count=4 FlowLines(0).FlowItem(0).Name="Fixation" FlowLines(0).FlowItem(1).Name="CollectResponse" FlowLines(0).FlowItem(2).Name="DrawShapes" FlowLines(0).FlowItem(3).Name="Feedback" LogData=1 Name="TrialProc" TypeName="Procedure" Tag="" Notes="" [Object9] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Text="+" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="1000" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Fixation" TypeName="TextDisplay" Tag="" Notes="" [Object10] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Text="Thank you for participating.\n\nGoodbye!" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="3000" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="TextDisplay1" TypeName="TextDisplay" Tag="" Notes="" [Object11] _Version=65536 _ExtentX=2646 _ExtentY=1323 _StockProps=0 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Logging("OnsetDelay").Log=0 Logging("OnsetTime").Log=0 Logging("DurationError").Log=0 Logging("PreRelease").Log=0 Logging("Duration").Log=0 Logging("StartTime").Log=0 Logging("OffsetTime").Log=0 Logging("FinishTime").Log=0 Logging("TimingMode").Log=0 Logging("CustomOnsetTime").Log=0 Logging("CustomOffsetTime").Log=0 Logging("ActionDelay").Log=0 Logging("ActionTime").Log=0 Logging("TargetOffsetTime").Log=0 Logging("TargetOnsetTime").Log=0 Logging("OffsetDelay").Log=0 Logging("RTTime").Log=0 Logging("ACC").Log=0 Logging("RT").Log=0 Logging("RESP").Log=0 Logging("CRESP").Log=0 Logging("Tag").Log=0 _VersionPersist=1 VersionMajor=1 VersionMinor=2 VersionInternal=1 VersionBuild=67 Text="Colors were the same at: [SameColorTime]\n\nYou responded at: [CollectResponse.RT]" ForeColor="black" BackColor="white" BackStyle="opaque" BorderColor="black" BorderWidth="0" X="center" Y="center" Width="100%" Height="100%" XAlign="center" YAlign="center" AlignHorizontal="center" AlignVertical="center" FontName="Courier New" FontSize="18" FontBold="Yes" FontItalic="No" FontUnderline="No" FontStrikeout="No" WordWrap=1 ClearAfter="No" Duration="2500" JumpLabel="" TimingMode=0 PreRelease="0" OnsetSync=1 OffsetSync=0 Name="Feedback" TypeName="TextDisplay" Tag="" Notes="" [UserScript]