## On this page

  

 

 # SurfacePolygonGeneralCRI 

 Last update: 17.07.2025 

## Description

Returns the general color rendering index for the given polygon area

## Syntax

*object*.SurfacePolygonGeneralCRI(VARIANT\* vPtX, VARIANT\* vPtY, VARIANT\* vdCRI) As Short

- *object*: Virtual Photometric Lab object
- *vPtX*: array of VARIANT for the horizontal coordinate of each vertex of the polygon
- *vPtY*: vertical coordinate of the center of the ellipse
- *vdCRI*: array of VARIANT for the vertical coordinate of each vertex of the polygon

***Example***

```
Dim VirtualPhotometricLab As Object
Dim vPtx As Variant, vPty As Variant, vdCRI as Variant
Set VirtualPhotometricLab = CreateObject("XmpViewer.Application")
vPtx1 = Array(3.2, 29.8, 32.7, 3.6)
vPty1 = Array(3.7, -1.5, 19.7, 24.6)
retval = VirtualPhotometricLab.OpenFile(MyPath)
PolygonRetval = VirtualPhotometricLab.SurfacePolygonGeneralCRI(vPtx1, vPty1, vdCRI)


```