Application.CreateHLSColor method - Developer Area

API Documentation > CorelDRAW > X7.4 > Application > IVGApplication

Application.CreateHLSColor method

Creates a HLS color

Syntax:

Function CreateHLSColor(ByVal Hue As Long, ByVal Lightness As Long, ByVal Saturation As Long) As Color

Parameters:

Name	Type	Description
Hue	Long	Specifies the hue for the HLS color model. Hue is the property of a color that allows us to classify it by its name. For example, blue, green, and red are all hues. Values range from 0 to 360.
Lightness	Long	Specifies the lightness for the HLS color model. Lightness determines the intensity of the color. Values range from 0 to 255.
Saturation	Long	Specifies the saturation for the HLS color model. Saturation is the purity, vividness, or color depth (from dull to intense) of a color, expressed as the absence of white. A color that has 100% saturation contains no white. A color with 0% saturation is a shade of gray. Values range from 0 (0%) to 255 (100%).

Remarks:

The CreateHLSColor method creates a new color from the HLS color model.

Examples:

Here is a code example:

Sub CreateColorExample()
  CreateDocument
  
  Dim sFace As Shape
  Set sFace = ActiveLayer.CreateEllipse(1, 10, 8, 1.5)
  sFace.Fill.UniformColor = CreateCMYKColor(0, 0, 100, 0) 'Create a yellow fill
  
  Dim sEyeLeft As Shape
  Set sEyeLeft = ActiveLayer.CreateEllipse2(3.25, 7.25, 1, -1)
  sEyeLeft.Fill.UniformColor = CreateBWColor(True) 'Create a white fill
  
  Dim sEyeRight As Shape
  Set sEyeRight = ActiveLayer.CreateEllipse2(6, 7, 1, -1)
  sEyeRight.Fill.UniformColor = CreateRGBColor(255, 255, 255) 'Create a white fill
  
  Dim sEyeLeftPupil As Shape
  Set sEyeLeftPupil = ActiveLayer.CreateEllipse2(3.5, 7, 0.35, -0.4)
  sEyeLeftPupil.Fill.UniformColor = CreateBWColor(False)
  
  Dim sEyeRightPupil As Shape
  Set sEyeRightPupil = sEyeLeftPupil.Clone
  sEyeRightPupil.Fill.ApplyFountainFill CreateHSBColor(210, 10, 10), CreateGrayColor(72), cdrConicalFountainFill
  sEyeRightPupil.Move 2.75, -0.35
  
  Dim sNose As Shape
  Set sNose = ActiveLayer.CreateEllipse2(4.3, 5.4, -0.75, -0.5)
  sNose.Rotate -10
  sNose.Fill.ApplyFountainFill CreateCMYColor(0, 255, 255), CreateHLSColor(0, 75, 75), cdrRadialFountainFill
  
  Dim sMouth As Shape
  Set sMouth = ActiveLayer.CreateEllipse2(4.2, 3.75, 1.75, 0.75, 0, 180, True)
  sMouth.Rotate -15
  sMouth.Fill.ApplyFountainFill CreateYIQColor(97, 97, 100), CreateLabColor(215, -1, -2), cdrSquareFountainFill
  
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25