[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=69
_VersionPersist=6
Root="SessionProc"
Author="Matt Lenhart (Psychology Software Tools)"
Abstract="This sample experiment demonstrates two methods for implementing a \r\nVisual Analog Scale.\r\n\r\nThe first method utilizes multiple SlideText sub-objects placed in a line on a Slide \r\nobject. Each SlideText is named \"Text\" followed by a digit. The digit will represent the \r\nsubject's relative rating to the presented question or statement. The SlideText clicked \r\nby the subject is determined using the HitTest method and the rating is logged in the \r\ndata file.\r\n\r\nThe second method utilizes the Canvas object to draw multiple rectangles in a line on \r\nthe screen. After the subject responds, InLine script is used to determine if the \r\nsubject's click was within one of the rectangles and the rating is logged in data file \r\nappropriately. \r\n"
Notes=""
Creation=1151589624

[Device0]
_VersionPersist=1
OpenDevice=1
Width=640
Height=480
Bpp=16
Name="Display"
Class="Display"

[Device1]
_VersionPersist=1
OpenDevice=0
Channels=2
Samples=22050
Bps=16
Name="Sound"
Class="Sound"

[Device2]
_VersionPersist=1
OpenDevice=1
CollectionMode=1
EmulateDeviceName=""
CapsLock=0
NumLock=1
Name="Keyboard"
Class="Keyboard"

[Device3]
_VersionPersist=1
OpenDevice=1
CollectionMode=1
EmulateDeviceName=""
OpenMode=0
ShowCursor=0
Name="Mouse"
Class="Mouse"

[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 (1-32767, 0=No Data Logging):"
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 (1-32767):"
DataType=0
Enabled=1
PromptEnabled=1
Default="1"
Min=1
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=45
_ItemList="Intro;BlockList;Goodbye"
_VersionPersist=1
FlowLines(0).Count=3
FlowLines(0).FlowItem(0).Name="Intro"
FlowLines(0).FlowItem(1).Name="BlockList"
FlowLines(0).FlowItem(2).Name="Goodbye"
LogData=1
Name="SessionProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object1]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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)=!Data0
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
Text="This experiment will demonstrate two different methods for implementing a \"Visual Analog Scale\".\n\n\nPlease press the left mouse button 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="Intro"
TypeName="TextDisplay"
Tag=""
Notes=""

[Data0]
DeviceName="Mouse"
DeviceClass="Mouse"
AllowableInput="1"
CorrectInput=""
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""

[Object2]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="SlideProc;CanvasProc"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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=2
Levels(1).ValueString="1\t\tSlideProc\t"
Levels(2).ValueString="1\t\tCanvasProc\t"
Name="BlockList"
TypeName="List"
Tag=""
Notes=""

[Object3]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="SlideInstructions;TrialList1"
_VersionPersist=1
FlowLines(0).Count=2
FlowLines(0).FlowItem(0).Name="SlideInstructions"
FlowLines(0).FlowItem(1).Name="TrialList1"
LogData=1
Name="SlideProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object4]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="TrialProc1"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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="SlideTrialProc"
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Levels=3
Levels(1).ValueString="1\t\tTrialProc1\t"
Levels(2).ValueString="1\t\tTrialProc1\t"
Levels(3).ValueString="1\t\tTrialProc1\t"
Name="TrialList1"
TypeName="List"
Tag=""
Notes=""

[Object5]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="Init;Stimulus;DoHitTest;Feedback"
_VersionPersist=1
FlowLines(0).Count=4
FlowLines(0).FlowItem(0).Name="Init"
FlowLines(0).FlowItem(1).Name="Stimulus"
FlowLines(0).FlowItem(2).Name="DoHitTest"
FlowLines(0).FlowItem(3).Name="Feedback"
LogData=1
Name="TrialProc1"
TypeName="Procedure"
Tag=""
Notes=""

[Object6]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="TrialProc2"
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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="CanvasTrialProc"
Attributes("Procedure").Visible=1
Attributes("Procedure").Width=75
Attributes("Procedure").OrderIndex=2
Levels=3
Levels(1).ValueString="1\t\tTrialProc2\t"
Levels(2).ValueString="1\t\tTrialProc2\t"
Levels(3).ValueString="1\t\tTrialProc2\t"
Name="TrialList2"
TypeName="List"
Tag=""
Notes=""

[Object7]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="DrawScale;Stimulus2;GetRating;Feedback"
_VersionPersist=1
FlowLines(0).Count=4
FlowLines(0).FlowItem(0).Name="DrawScale"
FlowLines(0).FlowItem(1).Name="Stimulus2"
FlowLines(0).FlowItem(2).Name="GetRating"
FlowLines(0).FlowItem(3).Name="Feedback"
LogData=1
Name="TrialProc2"
TypeName="Procedure"
Tag=""
Notes=""

[Object8]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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=45
Text="This is the first method, which utilizes multiple SlideText sub-objects. The name of each SlideText corresponds to the score value that will be recorded when the subject clicks on it. The HitTest method is used to determine which SlideText was clicked.\n\n\nPlease press the left mouse button 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="SlideInstructions"
TypeName="TextDisplay"
Tag=""
Notes=""

[Data1]
DeviceName="Mouse"
DeviceClass="Mouse"
AllowableInput="1"
CorrectInput=""
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""

[Object9]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
Logging("OnsetDelay").Log=-1
Logging("OnsetTime").Log=-1
Logging("DurationError").Log=-1
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)=!Data2
_VersionPersist=2
ActiveState="Default"
States.Count=1
States(1).Name="Default"
States("Default").X="center"
States("Default").Y="center"
States("Default").Width="100%"
States("Default").Height="100%"
States("Default").XAlign="center"
States("Default").YAlign="center"
States("Default").BackColor="white"
States("Default").BackStyle="opaque"
States("Default").BorderColor="black"
States("Default").BorderWidth="0"
States("Default").ClearAfter="No"
States("Default").Enabled="Yes"
States("Default").ChildCount=6
States("Default").Objects(1).Type="Text"
States("Default").Objects(1).Text="Rate your agreement with this sentence.\r\n \r\n<- Strongly Disagree        Strongly Agree ->"
States("Default").Objects(1).Width="100%"
States("Default").Objects(1).Height="28%"
States("Default").Objects(1).X="center"
States("Default").Objects(1).Y="25%"
States("Default").Objects(1).AlignHorizontal="center"
States("Default").Objects(1).AlignVertical="center"
States("Default").Objects(1).FontName="Courier New"
States("Default").Objects(1).FontSize="18"
States("Default").Objects(1).FontBold="Yes"
States("Default").Objects(1).FontUnderline="No"
States("Default").Objects(1).FontStrikeout="No"
States("Default").Objects(1).FontItalic="No"
States("Default").Objects(1).ForeColor="black"
States("Default").Objects(1).BackColor="white"
States("Default").Objects(1).BackStyle="opaque"
States("Default").Objects(1).BorderWidth="0"
States("Default").Objects(1).BorderColor="black"
States("Default").Objects(1).XAlign="center"
States("Default").Objects(1).YAlign="center"
States("Default").Objects(1).WordWrap=1
States("Default").Objects(1).Name="Question"
States("Default").Objects(2).Type="Text"
States("Default").Objects(2).Text="1"
States("Default").Objects(2).Width="15%"
States("Default").Objects(2).Height="20%"
States("Default").Objects(2).X="20%"
States("Default").Objects(2).Y="85%"
States("Default").Objects(2).AlignHorizontal="center"
States("Default").Objects(2).AlignVertical="center"
States("Default").Objects(2).FontName="Courier New"
States("Default").Objects(2).FontSize="18"
States("Default").Objects(2).FontBold="Yes"
States("Default").Objects(2).FontUnderline="No"
States("Default").Objects(2).FontStrikeout="No"
States("Default").Objects(2).FontItalic="No"
States("Default").Objects(2).ForeColor="white"
States("Default").Objects(2).BackColor="green"
States("Default").Objects(2).BackStyle="opaque"
States("Default").Objects(2).BorderWidth="1"
States("Default").Objects(2).BorderColor="white"
States("Default").Objects(2).XAlign="center"
States("Default").Objects(2).YAlign="center"
States("Default").Objects(2).WordWrap=1
States("Default").Objects(2).Name="Text1"
States("Default").Objects(3).Type="Text"
States("Default").Objects(3).Text="2"
States("Default").Objects(3).Width="15%"
States("Default").Objects(3).Height="20%"
States("Default").Objects(3).X="35%"
States("Default").Objects(3).Y="85%"
States("Default").Objects(3).AlignHorizontal="center"
States("Default").Objects(3).AlignVertical="center"
States("Default").Objects(3).FontName="Courier New"
States("Default").Objects(3).FontSize="18"
States("Default").Objects(3).FontBold="Yes"
States("Default").Objects(3).FontUnderline="No"
States("Default").Objects(3).FontStrikeout="No"
States("Default").Objects(3).FontItalic="No"
States("Default").Objects(3).ForeColor="white"
States("Default").Objects(3).BackColor="green"
States("Default").Objects(3).BackStyle="opaque"
States("Default").Objects(3).BorderWidth="1"
States("Default").Objects(3).BorderColor="white"
States("Default").Objects(3).XAlign="center"
States("Default").Objects(3).YAlign="center"
States("Default").Objects(3).WordWrap=1
States("Default").Objects(3).Name="Text2"
States("Default").Objects(4).Type="Text"
States("Default").Objects(4).Text="3"
States("Default").Objects(4).Width="15%"
States("Default").Objects(4).Height="20%"
States("Default").Objects(4).X="50%"
States("Default").Objects(4).Y="85%"
States("Default").Objects(4).AlignHorizontal="center"
States("Default").Objects(4).AlignVertical="center"
States("Default").Objects(4).FontName="Courier New"
States("Default").Objects(4).FontSize="18"
States("Default").Objects(4).FontBold="Yes"
States("Default").Objects(4).FontUnderline="No"
States("Default").Objects(4).FontStrikeout="No"
States("Default").Objects(4).FontItalic="No"
States("Default").Objects(4).ForeColor="white"
States("Default").Objects(4).BackColor="green"
States("Default").Objects(4).BackStyle="opaque"
States("Default").Objects(4).BorderWidth="1"
States("Default").Objects(4).BorderColor="white"
States("Default").Objects(4).XAlign="center"
States("Default").Objects(4).YAlign="center"
States("Default").Objects(4).WordWrap=1
States("Default").Objects(4).Name="Text3"
States("Default").Objects(5).Type="Text"
States("Default").Objects(5).Text="4"
States("Default").Objects(5).Width="15%"
States("Default").Objects(5).Height="20%"
States("Default").Objects(5).X="65%"
States("Default").Objects(5).Y="85%"
States("Default").Objects(5).AlignHorizontal="center"
States("Default").Objects(5).AlignVertical="center"
States("Default").Objects(5).FontName="Courier New"
States("Default").Objects(5).FontSize="18"
States("Default").Objects(5).FontBold="Yes"
States("Default").Objects(5).FontUnderline="No"
States("Default").Objects(5).FontStrikeout="No"
States("Default").Objects(5).FontItalic="No"
States("Default").Objects(5).ForeColor="white"
States("Default").Objects(5).BackColor="green"
States("Default").Objects(5).BackStyle="opaque"
States("Default").Objects(5).BorderWidth="1"
States("Default").Objects(5).BorderColor="white"
States("Default").Objects(5).XAlign="center"
States("Default").Objects(5).YAlign="center"
States("Default").Objects(5).WordWrap=1
States("Default").Objects(5).Name="Text4"
States("Default").Objects(6).Type="Text"
States("Default").Objects(6).Text="5"
States("Default").Objects(6).Width="15%"
States("Default").Objects(6).Height="20%"
States("Default").Objects(6).X="80%"
States("Default").Objects(6).Y="85%"
States("Default").Objects(6).AlignHorizontal="center"
States("Default").Objects(6).AlignVertical="center"
States("Default").Objects(6).FontName="Courier New"
States("Default").Objects(6).FontSize="18"
States("Default").Objects(6).FontBold="Yes"
States("Default").Objects(6).FontUnderline="No"
States("Default").Objects(6).FontStrikeout="No"
States("Default").Objects(6).FontItalic="No"
States("Default").Objects(6).ForeColor="white"
States("Default").Objects(6).BackColor="green"
States("Default").Objects(6).BackStyle="opaque"
States("Default").Objects(6).BorderWidth="1"
States("Default").Objects(6).BorderColor="white"
States("Default").Objects(6).XAlign="center"
States("Default").Objects(6).YAlign="center"
States("Default").Objects(6).WordWrap=1
States("Default").Objects(6).Name="Text5"
Duration="-1"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Stimulus"
TypeName="Slide"
Tag=""
Notes="The Duration is set to infinite and the mouse is allowed as input.\r\nOnce the subject has responded, the DoHitTest InLine will determine if a SlideText\r\nsub-object was clicked and the rating will be logged appropriately."

[Data2]
DeviceName="Mouse"
DeviceClass="Mouse"
AllowableInput="1"
CorrectInput=""
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""

[Object10]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_ItemList="CanvasIntro;TrialList2"
_VersionPersist=1
FlowLines(0).Count=2
FlowLines(0).FlowItem(0).Name="CanvasIntro"
FlowLines(0).FlowItem(1).Name="TrialList2"
LogData=1
Name="CanvasProc"
TypeName="Procedure"
Tag=""
Notes=""

[Object11]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_VersionPersist=1
Code="'Designate \"theState\" as the Default Slide State, which is the\n'current ActiveState on the Slide object \"Stimulus\".\nDim theState As SlideState\nSet theState = Stimulus.States(\"Default\")\n\nDim theSlideText As SlideText\n\nDim strHit As String\nDim intRating As Integer\nDim theMouseResponseData As MouseResponseData\n\n'Was there a response?\nIf Stimulus.InputMasks.Responses.Count > 0 Then\n\n\t'Get the mouse response.\n\tSet theMouseResponseData = CMouseResponseData(Stimulus.InputMasks.Responses(1))\n\n\t'Determine string name of SlideText object at\n\t'mouse click coordinates. Assign that value to strHit\n\tstrHit = theState.HitTest(theMouseResponseData.CursorX, theMouseResponseData.CursorY)\n\n\t'Did the subject click one of the SlideText sub-objects?\n\tIf strHit <> \"\" And strHit <> \"Question\" Then\n\t\t\n\t\t'Gain access to the SlideText sub-object selected\n\t\t'Change appearance of selected sub-object to provide feedback to the subject.\n\t\tSet theSlideText = CSlideText(Stimulus.States.Item(\"Default\").Objects(strHit))\n\t\ttheSlideText.BackColor = CColor(\"red\")\n\n\t\t'Redraw the Slide to present changes\n\t\tStimulus.Draw\n\n\t\t'Each SlideText is named \"Text\" followed by a single digit. The Mid function is \n\t\t'instructed to return the 5th character (i.e. the digit) of strHit for logging purposes.\n\t\tintRating = CInt(Mid(strHit, 5, 1))\n\t\t\n\t\t'Log rating in the data file under the attribute \"Rating\"\n\t\tc.SetAttrib \"Rating\", intRating\n\n\t\tSleep 1000\n\t\ttheSlideText.BackColor = CColor(\"green\")\n\n\t'The subject did not click a valid sub-object.\n\tElse\n\t\tc.SetAttrib \"Rating\", \"nothing\"\n\tEnd If\n\n'The subject did not respond.\nElse\n\tc.SetAttrib \"Rating\", \"nothing\"\n\nEnd If\n\nSet theMouseResponseData = Nothing\nMouse.ShowCursor FALSE"
Name="DoHitTest"
TypeName="InLine"
Tag=""
Notes=""

[Object12]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_VersionPersist=1
Code="Mouse.ShowCursor TRUE"
Name="Init"
TypeName="InLine"
Tag=""
Notes=""

[Object13]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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=45
Text="You chose [Rating]."
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="Yes"
Duration="1000"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Feedback"
TypeName="TextDisplay"
Tag=""
Notes=""

[Object14]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_VersionPersist=1
Code="Mouse.ShowCursor TRUE\n\nDim cnvs As Canvas\nSet cnvs = Display.Canvas\n\nDim i As Integer, x As Integer, y As Integer, xWidth As Integer\n\n'Set total number of rectangles needed, and the width and height of each rectangle.\nConst totalRect As Integer = 5\nConst w As Integer = 100\nConst h As Integer = 100\n\n'Set starting X and Y coordinates for rectangles.\n'X = 50% of resolution. Y = 75% of resolution.\nx = Display.XRes * .5\ny = Display.YRes * .75\n\n'This variable holds a value that is subtracted from the starting X coordinate so that the \n'rectangles will be centered.\nxWidth = (w*(totalRect)/2)\n\ncnvs.PenColor = CColor(\"white\")\ncnvs.FillColor = CColor(\"green\")\n\ncnvs.FontSize = 18\ncnvs.TextColor = CColor(\"white\")\n\n'Draw rectangles.\nFor i = 1 to totalRect\n\tcnvs.Rectangle x - xWidth, y, w, h\n\n\t'Display number corresponding to the rating inside each box.\n\tcnvs.BackStyle = \"Transparent\"\n\tcnvs.Text x - xWidth + (w/2.5), y + (h/3), i\n\tcnvs.BackStyle = \"Opaque\"\n\n\t'Decrease pixel amount that is subtracted from starting X coordinate (i.e. next\n\t'rectangle will be drawn w pixels to the right of the last rectangle).\n\txWidth = xWidth - w\nNext i"
Name="DrawScale"
TypeName="InLine"
Tag=""
Notes=""

[Object15]
_Version=131072
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
_VersionPersist=1
Code="'Retrieve mouse click location and store in Point variable to send to PointInRect\nDim theMouseResponseData As MouseResponseData\nSet theMouseResponseData = CMouseResponseData(Stimulus2.InputMasks.Responses(1))\n\nDim ptr As Point\nptr.x = theMouseResponseData.CursorX\nptr.y = theMouseResponseData.CursorY\n\nxWidth = (w*(totalRect/2))\n\n'Compare mouse click coordinates to each rectangle and assign the appropriate\n'score to the Score attribute.\nFor i = 1 to totalRect\n\tDim rectRate As Rect\n\trectRate.Left = x - xWidth\n\trectRate.Right = x - xWidth + w\n\trectRate.Top = y\n\trectRate.Bottom = y + h\n\n\t'Was the mouse click within the defined rectangle?\n\tIf PointInRect(ptr, rectRate) Then\n\n\t\t'Present visual feedback to the user (color selected rectangle red).\n\t\tcnvs.FillColor = CColor(\"red\")\n\t\tcnvs.Rectangle x - xWidth, y, w, h\n\t\tcnvs.BackStyle = \"Transparent\"\n\t\tcnvs.Text x - xWidth + (w/2.5), y + (h/3), i\n\t\tcnvs.BackStyle = \"Opaque\"\n\n\t\tSleep 1000\n\n\t\t'Log rating in the data file under the attribute \"Rating\"\n\t\tc.SetAttrib \"Rating\", i\n\t\tExit For\n\t\n\t'Mouse click coordinates were not in any of the designated rectangles, so the \n\t'subject did not click on a rating box.\n\tElseIf i >= totalRect Then\n\t\tc.SetAttrib \"Rating\", \"nothing\"\n\t\tExit For\n\tEnd If\n\n\t'Decrease pixel amount that is subtracted from starting X coordinate.\n\txWidth = xWidth - w\nNext i\n\nSet theMouseResponseData = Nothing\nMouse.ShowCursor FALSE"
Name="GetRating"
TypeName="InLine"
Tag=""
Notes=""

[Object16]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
Logging("OnsetDelay").Log=-1
Logging("OnsetTime").Log=-1
Logging("DurationError").Log=-1
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)=!Data3
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
Text="Rate your agreement with this sentence.\n\n<- Strongly Disagree        Strongly Agree ->"
ForeColor="black"
BackColor="white"
BackStyle="transparent"
BorderColor="black"
BorderWidth="0"
X="center"
Y="25%"
Width="100%"
Height="25%"
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="Stimulus2"
TypeName="TextDisplay"
Tag=""
Notes="The Frame Height is set to 25% and the BackStyle is set to transparent so the question\r\nwill appear on screen without clearing the rectangles."

[Data3]
DeviceName="Mouse"
DeviceClass="Mouse"
AllowableInput="1"
CorrectInput=""
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""

[Object17]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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=45
Text="Thank you for participating.\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="2000"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="Goodbye"
TypeName="TextDisplay"
Tag=""
Notes=""

[Object18]
_Version=65536
_ExtentX=2646
_ExtentY=1323
_StockProps=0
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
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)=!Data4
_VersionPersist=1
VersionMajor=1
VersionMinor=2
VersionInternal=1
VersionBuild=45
Text="This is the second method, which utilizes the Canvas object. Multiple rectangles are drawn the screen, each representing an individual score on the scale. The PointInRect method is used to determine which rectangle the subject clicked and logs their score appropriately.\n\n\nPlease press the left mouse button 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="Yes"
Duration="-1"
JumpLabel=""
TimingMode=0
PreRelease="0"
OnsetSync=1
OffsetSync=0
Name="CanvasIntro"
TypeName="TextDisplay"
Tag=""
Notes=""

[Data4]
DeviceName="Mouse"
DeviceClass="Mouse"
AllowableInput="1"
CorrectInput=""
TimeLimit=""
MaxCount="1"
InputAction=1
SyncOwnerDuration=1
Enabled=1
FlushInputBuffer="Yes"
TerminationInput=""
UserTag=""

[UserScript]