Published:
Colour affects people differently in virtual reality than in the real world, according to a new study.
An expert from Heriot-Watt University says the differences could be used by virtual reality designers to make the experience more immersive.
Guobin Xia, assistant professor of digital design and innovation at Heriot-Watt's School of Textile and Design, set up experiments with 70 people.
They were asked to carry out cognitive tasks, which measure things like memory, reasoning and decision making, in real life and in a virtual reality setting.
Xia measured how they performed the tasks when faced with different coloured backgrounds.
Xia said: “We know colour affects people's emotions and behaviour - blues are calming, yellows are cheering, for example.
“We established that some colours affect people very differently in virtual reality settings.
“In the real world, red makes people most impulsive. But in virtual reality, orange gives the highest state of impulsivity.
“Green has the most positive effects on people's logical and lateral thinking abilities, and their attention to detail in the real world and in VR.”
The pandemic led to a global boom in VR, says Xia, with retailers, workplaces, educators and travel companies all using more VR experiences for their users.
“Better designed VR experiences will mean better customer and user engagement.
“Colour can trigger positive engagement and improve cognitive performance - so designers could use this information to trigger buying behaviours or deep concentration.
“This proves that an immersive colour experience is a critical tool that needs to be fully considered in the creation of VR applications.”
The research was published in the journal Brain Sciences.
<% if "Key info - Contact" = "Key info" then %> <% ADname = "" if ADname <> "" then %> <% if ADname <> "" then Set oCon = Server.CreateObject("ADODB.Connection") sUser = "cn=opentextuser,cn=Users,dc=hw,dc=ac,dc=uk" sPassword = "Fr56+Mx" oCon.Provider = "ADsDSOObject" oCon.Open "ADProvider", sUser, sPassword Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = oCon 'sDomainADsPath = "LDAP://dc06.hw.ac.uk:389/DC=hw,DC=ac,DC=uk" sDomainADsPath = "LDAP://LDAP-ED.hw.ac.uk:389/DC=hw,DC=ac,DC=uk" sProperties = "givenName,SN,displayName,title,mail,telephoneNumber,facsimileTelephoneNumber,department,physicalDeliveryOfficeName,hwCampus" oCmd.CommandText = "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & ADname & "));" & sProperties & ";subtree" oCmd.Properties("Page Size") = 100 Set rs = oCmd.Execute While Not rs.EOF fullName = rs("givenName") & " " & rs("SN") displayName = rs("displayName") email = rs("mail") phone = rs("telephoneNumber") jobTitle = rs("title") department = rs("department") roomNumber = rs("physicalDeliveryOfficeName") campusName = rs("hwCampus") rs.MoveNext Wend rs.Close oCon.Close Set rs = Nothing Set oCon = Nothing end if %> <% else fullName = "Sarah McDaid" email = "sarah@mcdaidpr.co.uk" phone = "" jobTitle = "" end if ' international phone format if phone <> "" then if Left(phone,2) = "01" then phone = Replace(phone,"01","+44 1") end if end if ' lower-case email if email <> "" then email = LCase(email) end if %> <% if fullName <> "" then if template = "course" then %>-
Contact
<%=fullName%>
-
Telephone
<%=phone%>
<%=fullName%>
-
<% if jobTitle <> "" and jobTitle <> name then %>
- Job title
- <%=jobTitle%> <% end if if phone <> "" then %>
- Phone
- <%=phone%> <% end if if email <> "" then %>
- <%=email%> <% end if %>