## On this page

  

 

 # CreateImmersiveView 

 Last update: 17.07.2025 

## Description

Allows you to create an Speos360 Immersive View from a set of .xmp files. Returns 1 if the call has succeeded, 0 otherwise.

## Syntax

*object*.CreateImmersiveView(VARIANT\* *pInputListXMPmap*, VARIANT\* *pInputListRotation*, BSTR *strOutputFileName*, \[optional\] double *dLuminanceMax*) As Int

- *object*: Virtual Reality Lab object
- *pInputListXMPmap*: tab including the absolute filename strings of the .xmp files to create the Immersive View.
    
    
    - Index 0: Right
    - Index 1: Left
    - Index 2: Bottom
    - Index 3: Top
    - Index 4: Front
    - Index 5: Back
- *pInputListRotation*: tab including the rotation angle values (Int) of the .xmp files to create the Immersive View, 0, 90, 180 or 270.
    
    
    - Index 0: Right
    - Index 1: Left
    - Index 2: Bottom
    - Index 3: Top
    - Index 4: Front
    - Index 5: Back
- *strOutputFileName*: absolute filename string for the result of the Immersive View Speos360 file.
- \[optional\] *dLuminanceMax*: maximum luminance value in Cd/m². If the parameter is not filled, the default value is used to create the Immersive View.

## Example

```
Sub main()
 Dim MyFolder As String
MyFolder = "PathWorkSpeace"
 Set HDRIViewer = CreateObject("HDRIViewer.Application")
 ReDim XmpMap(5)
XmpMap(0) = MyFolder & "NameOfXmpMap0.xmp"
XmpMap(1) = MyFolder & "NameOfXmpMap1.xmp"
XmpMap(2) = MyFolder & "NameOfXmpMap2.xmp"
XmpMap(3) = MyFolder & "NameOfXmpMap3.xmp"
XmpMap(4) = MyFolder & "NameOfXmpMap4.xmp"
XmpMap(5) = MyFolder & "NameOfXmpMap5.xmp"
 ReDim Rotation(5)
Rotation(0) = ValueOfRotation°
Rotation(1) = ValueOfRotation°
Rotation(2) = ValueOfRotation°
Rotation(3) = ValueOfRotation°
Rotation(4) = ValueOfRotation°
Rotation(5) = ValueOfRotation°
 retval = HDRIViewer.CreateImmersiveView(XmpMap, Rotation, MyFolder & "NameOfOutSpeos360.speos360") 'or \(with the last optional parameter\) retval = HDRIViewer.CreateImmersiveView(XmpMap, Rotation, MyFolder & "NameOfOutSpeos360.speos360", 160)
 retval = HDRIViewer.Show(1)
 End Sub


```