Skip to content

Files

Latest commit

cdbca1f · Feb 18, 2025

History

History

gr

Folders and files

NameName
Last commit message
Last commit date

parent directory

..
Mar 15, 2022
Sep 7, 2018
Feb 10, 2025
Jan 17, 2025
Feb 10, 2025
Mar 15, 2022
Oct 13, 2024
Apr 12, 2022
Dec 9, 2024
Mar 15, 2022
Jan 29, 2021
Feb 18, 2025
Feb 10, 2025
Jan 19, 2024
Feb 13, 2023
Sep 7, 2018
Jan 2, 2021
Feb 10, 2025

VB.NET Graphics Artist

Internal Build in ColorMaps

From left to right, the map names are:

Public Const PatternSpring As String = "Spring"
Public Const PatternSummer As String = "Summer"
Public Const PatternAutumn As String = "Autumn"
Public Const PatternWinter As String = "Winter"
Public Const PatternJet As String = "Jet"
Public Const PatternGray As String = "Gray"
Public Const PatternHot As String = "Hot"
Public Const PatternCool As String = "Cool"
Usage
Imports Microsoft.VisualBasic.Imaging

Dim maps As New ColorMap(mapLevels)
Dim clSequence As Color() = ColorSequence(maps.GetMaps("Jet"), maps).Reverse.ToArray

Color Designer

Imports System.Drawing
Imports Microsoft.VisualBasic.Imaging
Imports Microsoft.VisualBasic.Imaging.Drawing2D.Colors

Dim colors As Color() = {
    Color.DarkRed,
    Color.SkyBlue,
    Color.Orange,
    Color.Red,
    Color.Lime,
    Color.DeepSkyBlue,
    Color.DarkViolet
}

colors = Designer _
    .CubicSpline(colors, 30)
Call Legends.ColorMapLegend(
    colors, "ColorDesigner test", "minValue", "maxValue", bg:="white") _
    .SaveAs("./colordesigner.test.png")
colors = OfficeColorThemes _
    .GetAccentColors("Slipstream") _
    .CubicSpline(30)
Call Legends.ColorMapLegend(
    colors, "office_Slipstream_theme", "minValue", "maxValue", bg:="white") _
    .SaveAs("./officeSlipstream_theme.test.png")
colors = OfficeColorThemes _
    .GetAccentColors("office2016") _
    .CubicSpline(30)
Call Legends.ColorMapLegend(
    colors, "office_office2016_theme", "minValue", "maxValue", bg:="white") _
    .SaveAs("./office2016_theme.test.png")
colors = OfficeColorThemes _
    .GetAccentColors("office2010") _
    .CubicSpline(30)
Call Legends.ColorMapLegend(
    colors, "office_office2010_theme", "minValue", "maxValue", bg:="white") _
    .SaveAs("./office2010_theme.test.png")