diff --git a/instat/clsGgplotDefaults.vb b/instat/clsGgplotDefaults.vb
index 2c04a9b5f56..e272a0398b5 100644
--- a/instat/clsGgplotDefaults.vb
+++ b/instat/clsGgplotDefaults.vb
@@ -28,6 +28,36 @@ Public Class GgplotDefaults
         End Get
     End Property
 
+    Public Shared ReadOnly Property clsScaleColorViridisFunction As RFunction
+        Get
+            Dim clsTempFunc As New RFunction
+
+            clsTempFunc.SetPackageName("viridis")
+            clsTempFunc.SetRCommand("scale_colour_viridis")
+            clsTempFunc.AddParameter("option", Chr(34) & "viridis" & Chr(34), iPosition:=0)
+            clsTempFunc.AddParameter("alpha", "1", iPosition:=1)
+            clsTempFunc.AddParameter("begin", "0", iPosition:=2)
+            clsTempFunc.AddParameter("end", "1", iPosition:=3)
+            clsTempFunc.AddParameter("direction", "1", iPosition:=4)
+            Return clsTempFunc
+        End Get
+    End Property
+
+    Public Shared ReadOnly Property clsScaleFillViridisFunction As RFunction
+        Get
+            Dim clsTempFunc As New RFunction
+
+            clsTempFunc.SetPackageName("viridis")
+            clsTempFunc.SetRCommand("scale_fill_viridis")
+            clsTempFunc.AddParameter("option", Chr(34) & "viridis" & Chr(34), iPosition:=0)
+            clsTempFunc.AddParameter("alpha", "1", iPosition:=1)
+            clsTempFunc.AddParameter("begin", "0", iPosition:=2)
+            clsTempFunc.AddParameter("end", "1", iPosition:=3)
+            clsTempFunc.AddParameter("direction", "1", iPosition:=4)
+            Return clsTempFunc
+        End Get
+    End Property
+
     Public Shared ReadOnly Property clsDefaultThemeParameter As RParameter
         Get
             Dim clsTempParam As New RParameter
diff --git a/instat/dlgBoxPlot.vb b/instat/dlgBoxPlot.vb
index a2b56d06536..44262a02f32 100644
--- a/instat/dlgBoxPlot.vb
+++ b/instat/dlgBoxPlot.vb
@@ -36,6 +36,8 @@ Public Class dlgBoxplot
     Private clsCoordPolarFunction As New RFunction
     Private clsCoordPolarStartOperator As New ROperator
     Private clsThemeFunction As New RFunction
+    Private clsScaleFillViridisFunction As New RFunction
+    Private clsScaleColourViridisFunction As New RFunction
     Private dctThemeFunctions As Dictionary(Of String, RFunction)
     Private bResetSubdialog As Boolean = True
     Private bResetBoxLayerSubdialog As Boolean = True
@@ -257,6 +259,9 @@ Public Class dlgBoxplot
         clsCoordPolarStartOperator = GgplotDefaults.clsCoordPolarStartOperator.Clone()
         clsXScaleDateFunction = GgplotDefaults.clsXScaleDateFunction.Clone()
         clsYScaleDateFunction = GgplotDefaults.clsYScaleDateFunction.Clone()
+        clsScaleFillViridisFunction = GgplotDefaults.clsScaleFillViridisFunction
+        clsScaleColourViridisFunction = GgplotDefaults.clsScaleColorViridisFunction
+
         dctThemeFunctions = New Dictionary(Of String, RFunction)(GgplotDefaults.dctThemeFunctions)
         clsBaseOperator.SetAssignTo("last_graph", strTempDataframe:=ucrSelectorBoxPlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text, strTempGraph:="last_graph")
         ucrBase.clsRsyntax.SetBaseROperator(clsBaseOperator)
@@ -300,7 +305,11 @@ Public Class dlgBoxplot
     End Sub
 
     Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click
-        sdgPlots.SetRCode(clsBaseOperator, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsRaesFunction, clsNewXScalecontinuousFunction:=clsXScaleContinuousFunction, clsNewYScalecontinuousFunction:=clsYScaleContinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, ucrNewBaseSelector:=ucrSelectorBoxPlot, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog)
+        sdgPlots.SetRCode(clsBaseOperator, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsRaesFunction, clsNewXScalecontinuousFunction:=clsXScaleContinuousFunction,
+                          clsNewYScalecontinuousFunction:=clsYScaleContinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction,
+                          clsNewFacetFunction:=clsRFacetFunction, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction,
+                          clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction,
+                          ucrNewBaseSelector:=ucrSelectorBoxPlot, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog)
         sdgPlots.ShowDialog()
         bResetSubdialog = False
 
diff --git a/instat/sdgPlots.Designer.vb b/instat/sdgPlots.Designer.vb
index 29859d2cc8f..34c74cd3f9a 100644
--- a/instat/sdgPlots.Designer.vb
+++ b/instat/sdgPlots.Designer.vb
@@ -41,6 +41,7 @@ Partial Class sdgPlots
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(sdgPlots))
         Me.tbpPlotsOptions = New System.Windows.Forms.TabControl()
         Me.tbpFacet = New System.Windows.Forms.TabPage()
+        Me.ucrChkDrop = New instat.ucrCheck()
         Me.ucrNudNumberofRows = New instat.ucrNud()
         Me.ucrChkNoOfRowsOrColumns = New instat.ucrCheck()
         Me.ucrChkIncludeFacets = New instat.ucrCheck()
@@ -107,8 +108,33 @@ Partial Class sdgPlots
         Me.ucrInputStartingAngle = New instat.ucrInputTextBox()
         Me.ucrChkSameScale = New instat.ucrCheck()
         Me.ucrChkHorizontalPlot = New instat.ucrCheck()
+        Me.tbpColour = New System.Windows.Forms.TabPage()
+        Me.ucrChkAddColourScale = New instat.ucrCheck()
+        Me.ucrChkAddFillScale = New instat.ucrCheck()
+        Me.grpColourScale = New System.Windows.Forms.GroupBox()
+        Me.ucrNudColourScaleTransparency = New instat.ucrNud()
+        Me.ucrInputColourScalePalette = New instat.ucrInputComboBox()
+        Me.ucrNudColourScaleMapEnds = New instat.ucrNud()
+        Me.ucrNudColourScaleMapBegins = New instat.ucrNud()
+        Me.ucrChkColourScaleReverseOrder = New instat.ucrCheck()
+        Me.ucrChkColourScaleDiscrete = New instat.ucrCheck()
+        Me.lblColourScaleMapEnds = New System.Windows.Forms.Label()
+        Me.lblColourScaleMapBegins = New System.Windows.Forms.Label()
+        Me.lblColourScalePalette = New System.Windows.Forms.Label()
+        Me.lblColourScaleTransparency = New System.Windows.Forms.Label()
+        Me.UcrChkChangeColourScale = New instat.ucrCheck()
+        Me.grpFillScale = New System.Windows.Forms.GroupBox()
+        Me.ucrNudFillScaleTransparency = New instat.ucrNud()
+        Me.ucrNudFillScaleMapEnds = New instat.ucrNud()
+        Me.ucrNudFillScaleMapBegins = New instat.ucrNud()
+        Me.ucrInputFillScaleColour = New instat.ucrInputComboBox()
+        Me.ucrChkFilLScaleReverseColourOrder = New instat.ucrCheck()
+        Me.ucrChkFillScaleDiscrete = New instat.ucrCheck()
+        Me.lblFillScaleMapEnds = New System.Windows.Forms.Label()
+        Me.lblFillScaleBeginColour = New System.Windows.Forms.Label()
+        Me.lblFillScaleColourPalettte = New System.Windows.Forms.Label()
+        Me.lblFillScaleTransparency = New System.Windows.Forms.Label()
         Me.ucrBaseSubdialog = New instat.ucrButtonsSubdialogue()
-        Me.ucrChkDrop = New instat.ucrCheck()
         Me.tbpPlotsOptions.SuspendLayout()
         Me.tbpFacet.SuspendLayout()
         Me.tbpLayers.SuspendLayout()
@@ -120,6 +146,9 @@ Partial Class sdgPlots
         Me.grpCommonOptions.SuspendLayout()
         Me.tbpCoordinates.SuspendLayout()
         Me.grpPolarCordinates.SuspendLayout()
+        Me.tbpColour.SuspendLayout()
+        Me.grpColourScale.SuspendLayout()
+        Me.grpFillScale.SuspendLayout()
         Me.SuspendLayout()
         '
         'tbpPlotsOptions
@@ -131,6 +160,7 @@ Partial Class sdgPlots
         Me.tbpPlotsOptions.Controls.Add(Me.tbpYAxis)
         Me.tbpPlotsOptions.Controls.Add(Me.tbpTheme)
         Me.tbpPlotsOptions.Controls.Add(Me.tbpCoordinates)
+        Me.tbpPlotsOptions.Controls.Add(Me.tbpColour)
         resources.ApplyResources(Me.tbpPlotsOptions, "tbpPlotsOptions")
         Me.tbpPlotsOptions.Name = "tbpPlotsOptions"
         Me.tbpPlotsOptions.SelectedIndex = 0
@@ -159,6 +189,12 @@ Partial Class sdgPlots
         Me.tbpFacet.Tag = "Facet"
         Me.tbpFacet.UseVisualStyleBackColor = True
         '
+        'ucrChkDrop
+        '
+        Me.ucrChkDrop.Checked = False
+        resources.ApplyResources(Me.ucrChkDrop, "ucrChkDrop")
+        Me.ucrChkDrop.Name = "ucrChkDrop"
+        '
         'ucrNudNumberofRows
         '
         Me.ucrNudNumberofRows.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
@@ -644,17 +680,212 @@ Partial Class sdgPlots
         resources.ApplyResources(Me.ucrChkHorizontalPlot, "ucrChkHorizontalPlot")
         Me.ucrChkHorizontalPlot.Name = "ucrChkHorizontalPlot"
         '
+        'tbpColour
+        '
+        Me.tbpColour.Controls.Add(Me.ucrChkAddColourScale)
+        Me.tbpColour.Controls.Add(Me.ucrChkAddFillScale)
+        Me.tbpColour.Controls.Add(Me.grpColourScale)
+        Me.tbpColour.Controls.Add(Me.UcrChkChangeColourScale)
+        Me.tbpColour.Controls.Add(Me.grpFillScale)
+        resources.ApplyResources(Me.tbpColour, "tbpColour")
+        Me.tbpColour.Name = "tbpColour"
+        Me.tbpColour.UseVisualStyleBackColor = True
+        '
+        'ucrChkAddColourScale
+        '
+        Me.ucrChkAddColourScale.Checked = False
+        resources.ApplyResources(Me.ucrChkAddColourScale, "ucrChkAddColourScale")
+        Me.ucrChkAddColourScale.Name = "ucrChkAddColourScale"
+        '
+        'ucrChkAddFillScale
+        '
+        Me.ucrChkAddFillScale.Checked = False
+        resources.ApplyResources(Me.ucrChkAddFillScale, "ucrChkAddFillScale")
+        Me.ucrChkAddFillScale.Name = "ucrChkAddFillScale"
+        '
+        'grpColourScale
+        '
+        Me.grpColourScale.Controls.Add(Me.ucrNudColourScaleTransparency)
+        Me.grpColourScale.Controls.Add(Me.ucrInputColourScalePalette)
+        Me.grpColourScale.Controls.Add(Me.ucrNudColourScaleMapEnds)
+        Me.grpColourScale.Controls.Add(Me.ucrNudColourScaleMapBegins)
+        Me.grpColourScale.Controls.Add(Me.ucrChkColourScaleReverseOrder)
+        Me.grpColourScale.Controls.Add(Me.ucrChkColourScaleDiscrete)
+        Me.grpColourScale.Controls.Add(Me.lblColourScaleMapEnds)
+        Me.grpColourScale.Controls.Add(Me.lblColourScaleMapBegins)
+        Me.grpColourScale.Controls.Add(Me.lblColourScalePalette)
+        Me.grpColourScale.Controls.Add(Me.lblColourScaleTransparency)
+        resources.ApplyResources(Me.grpColourScale, "grpColourScale")
+        Me.grpColourScale.Name = "grpColourScale"
+        Me.grpColourScale.TabStop = False
+        '
+        'ucrNudColourScaleTransparency
+        '
+        Me.ucrNudColourScaleTransparency.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleTransparency.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudColourScaleTransparency, "ucrNudColourScaleTransparency")
+        Me.ucrNudColourScaleTransparency.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudColourScaleTransparency.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleTransparency.Name = "ucrNudColourScaleTransparency"
+        Me.ucrNudColourScaleTransparency.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrInputColourScalePalette
+        '
+        Me.ucrInputColourScalePalette.AddQuotesIfUnrecognised = True
+        Me.ucrInputColourScalePalette.GetSetSelectedIndex = -1
+        Me.ucrInputColourScalePalette.IsReadOnly = False
+        resources.ApplyResources(Me.ucrInputColourScalePalette, "ucrInputColourScalePalette")
+        Me.ucrInputColourScalePalette.Name = "ucrInputColourScalePalette"
+        '
+        'ucrNudColourScaleMapEnds
+        '
+        Me.ucrNudColourScaleMapEnds.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleMapEnds.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudColourScaleMapEnds, "ucrNudColourScaleMapEnds")
+        Me.ucrNudColourScaleMapEnds.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudColourScaleMapEnds.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleMapEnds.Name = "ucrNudColourScaleMapEnds"
+        Me.ucrNudColourScaleMapEnds.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrNudColourScaleMapBegins
+        '
+        Me.ucrNudColourScaleMapBegins.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleMapBegins.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudColourScaleMapBegins, "ucrNudColourScaleMapBegins")
+        Me.ucrNudColourScaleMapBegins.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudColourScaleMapBegins.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudColourScaleMapBegins.Name = "ucrNudColourScaleMapBegins"
+        Me.ucrNudColourScaleMapBegins.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrChkColourScaleReverseOrder
+        '
+        Me.ucrChkColourScaleReverseOrder.Checked = False
+        resources.ApplyResources(Me.ucrChkColourScaleReverseOrder, "ucrChkColourScaleReverseOrder")
+        Me.ucrChkColourScaleReverseOrder.Name = "ucrChkColourScaleReverseOrder"
+        '
+        'ucrChkColourScaleDiscrete
+        '
+        Me.ucrChkColourScaleDiscrete.Checked = False
+        resources.ApplyResources(Me.ucrChkColourScaleDiscrete, "ucrChkColourScaleDiscrete")
+        Me.ucrChkColourScaleDiscrete.Name = "ucrChkColourScaleDiscrete"
+        '
+        'lblColourScaleMapEnds
+        '
+        resources.ApplyResources(Me.lblColourScaleMapEnds, "lblColourScaleMapEnds")
+        Me.lblColourScaleMapEnds.Name = "lblColourScaleMapEnds"
+        '
+        'lblColourScaleMapBegins
+        '
+        resources.ApplyResources(Me.lblColourScaleMapBegins, "lblColourScaleMapBegins")
+        Me.lblColourScaleMapBegins.Name = "lblColourScaleMapBegins"
+        '
+        'lblColourScalePalette
+        '
+        resources.ApplyResources(Me.lblColourScalePalette, "lblColourScalePalette")
+        Me.lblColourScalePalette.Name = "lblColourScalePalette"
+        '
+        'lblColourScaleTransparency
+        '
+        resources.ApplyResources(Me.lblColourScaleTransparency, "lblColourScaleTransparency")
+        Me.lblColourScaleTransparency.Name = "lblColourScaleTransparency"
+        '
+        'UcrChkChangeColourScale
+        '
+        Me.UcrChkChangeColourScale.Checked = False
+        resources.ApplyResources(Me.UcrChkChangeColourScale, "UcrChkChangeColourScale")
+        Me.UcrChkChangeColourScale.Name = "UcrChkChangeColourScale"
+        '
+        'grpFillScale
+        '
+        Me.grpFillScale.Controls.Add(Me.ucrNudFillScaleTransparency)
+        Me.grpFillScale.Controls.Add(Me.ucrNudFillScaleMapEnds)
+        Me.grpFillScale.Controls.Add(Me.ucrNudFillScaleMapBegins)
+        Me.grpFillScale.Controls.Add(Me.ucrInputFillScaleColour)
+        Me.grpFillScale.Controls.Add(Me.ucrChkFilLScaleReverseColourOrder)
+        Me.grpFillScale.Controls.Add(Me.ucrChkFillScaleDiscrete)
+        Me.grpFillScale.Controls.Add(Me.lblFillScaleMapEnds)
+        Me.grpFillScale.Controls.Add(Me.lblFillScaleBeginColour)
+        Me.grpFillScale.Controls.Add(Me.lblFillScaleColourPalettte)
+        Me.grpFillScale.Controls.Add(Me.lblFillScaleTransparency)
+        resources.ApplyResources(Me.grpFillScale, "grpFillScale")
+        Me.grpFillScale.Name = "grpFillScale"
+        Me.grpFillScale.TabStop = False
+        '
+        'ucrNudFillScaleTransparency
+        '
+        Me.ucrNudFillScaleTransparency.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleTransparency.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudFillScaleTransparency, "ucrNudFillScaleTransparency")
+        Me.ucrNudFillScaleTransparency.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudFillScaleTransparency.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleTransparency.Name = "ucrNudFillScaleTransparency"
+        Me.ucrNudFillScaleTransparency.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrNudFillScaleMapEnds
+        '
+        Me.ucrNudFillScaleMapEnds.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleMapEnds.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudFillScaleMapEnds, "ucrNudFillScaleMapEnds")
+        Me.ucrNudFillScaleMapEnds.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudFillScaleMapEnds.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleMapEnds.Name = "ucrNudFillScaleMapEnds"
+        Me.ucrNudFillScaleMapEnds.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrNudFillScaleMapBegins
+        '
+        Me.ucrNudFillScaleMapBegins.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleMapBegins.Increment = New Decimal(New Integer() {1, 0, 0, 0})
+        resources.ApplyResources(Me.ucrNudFillScaleMapBegins, "ucrNudFillScaleMapBegins")
+        Me.ucrNudFillScaleMapBegins.Maximum = New Decimal(New Integer() {100, 0, 0, 0})
+        Me.ucrNudFillScaleMapBegins.Minimum = New Decimal(New Integer() {0, 0, 0, 0})
+        Me.ucrNudFillScaleMapBegins.Name = "ucrNudFillScaleMapBegins"
+        Me.ucrNudFillScaleMapBegins.Value = New Decimal(New Integer() {0, 0, 0, 0})
+        '
+        'ucrInputFillScaleColour
+        '
+        Me.ucrInputFillScaleColour.AddQuotesIfUnrecognised = True
+        Me.ucrInputFillScaleColour.GetSetSelectedIndex = -1
+        Me.ucrInputFillScaleColour.IsReadOnly = False
+        resources.ApplyResources(Me.ucrInputFillScaleColour, "ucrInputFillScaleColour")
+        Me.ucrInputFillScaleColour.Name = "ucrInputFillScaleColour"
+        '
+        'ucrChkFilLScaleReverseColourOrder
+        '
+        Me.ucrChkFilLScaleReverseColourOrder.Checked = False
+        resources.ApplyResources(Me.ucrChkFilLScaleReverseColourOrder, "ucrChkFilLScaleReverseColourOrder")
+        Me.ucrChkFilLScaleReverseColourOrder.Name = "ucrChkFilLScaleReverseColourOrder"
+        '
+        'ucrChkFillScaleDiscrete
+        '
+        Me.ucrChkFillScaleDiscrete.Checked = False
+        resources.ApplyResources(Me.ucrChkFillScaleDiscrete, "ucrChkFillScaleDiscrete")
+        Me.ucrChkFillScaleDiscrete.Name = "ucrChkFillScaleDiscrete"
+        '
+        'lblFillScaleMapEnds
+        '
+        resources.ApplyResources(Me.lblFillScaleMapEnds, "lblFillScaleMapEnds")
+        Me.lblFillScaleMapEnds.Name = "lblFillScaleMapEnds"
+        '
+        'lblFillScaleBeginColour
+        '
+        resources.ApplyResources(Me.lblFillScaleBeginColour, "lblFillScaleBeginColour")
+        Me.lblFillScaleBeginColour.Name = "lblFillScaleBeginColour"
+        '
+        'lblFillScaleColourPalettte
+        '
+        resources.ApplyResources(Me.lblFillScaleColourPalettte, "lblFillScaleColourPalettte")
+        Me.lblFillScaleColourPalettte.Name = "lblFillScaleColourPalettte"
+        '
+        'lblFillScaleTransparency
+        '
+        resources.ApplyResources(Me.lblFillScaleTransparency, "lblFillScaleTransparency")
+        Me.lblFillScaleTransparency.Name = "lblFillScaleTransparency"
+        '
         'ucrBaseSubdialog
         '
         resources.ApplyResources(Me.ucrBaseSubdialog, "ucrBaseSubdialog")
         Me.ucrBaseSubdialog.Name = "ucrBaseSubdialog"
         '
-        'ucrChkDrop
-        '
-        Me.ucrChkDrop.Checked = False
-        resources.ApplyResources(Me.ucrChkDrop, "ucrChkDrop")
-        Me.ucrChkDrop.Name = "ucrChkDrop"
-        '
         'sdgPlots
         '
         resources.ApplyResources(Me, "$this")
@@ -682,6 +913,11 @@ Partial Class sdgPlots
         Me.tbpCoordinates.ResumeLayout(False)
         Me.grpPolarCordinates.ResumeLayout(False)
         Me.grpPolarCordinates.PerformLayout()
+        Me.tbpColour.ResumeLayout(False)
+        Me.grpColourScale.ResumeLayout(False)
+        Me.grpColourScale.PerformLayout()
+        Me.grpFillScale.ResumeLayout(False)
+        Me.grpFillScale.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -758,6 +994,32 @@ Partial Class sdgPlots
     Friend WithEvents ucrInputPolarCoordinates As ucrInputComboBox
     Friend WithEvents lblPolarCoordinate As Label
     Friend WithEvents ucrChkDrop As ucrCheck
+    Friend WithEvents tbpColour As TabPage
+    Friend WithEvents grpFillScale As GroupBox
+    Friend WithEvents lblFillScaleMapEnds As Label
+    Friend WithEvents lblFillScaleBeginColour As Label
+    Friend WithEvents lblFillScaleColourPalettte As Label
+    Friend WithEvents lblFillScaleTransparency As Label
+    Friend WithEvents ucrChkFilLScaleReverseColourOrder As ucrCheck
+    Friend WithEvents ucrChkFillScaleDiscrete As ucrCheck
+    Friend WithEvents grpColourScale As GroupBox
+    Friend WithEvents ucrNudColourScaleTransparency As ucrNud
+    Friend WithEvents ucrInputColourScalePalette As ucrInputComboBox
+    Friend WithEvents ucrNudColourScaleMapEnds As ucrNud
+    Friend WithEvents ucrNudColourScaleMapBegins As ucrNud
+    Friend WithEvents ucrChkColourScaleReverseOrder As ucrCheck
+    Friend WithEvents ucrChkColourScaleDiscrete As ucrCheck
+    Friend WithEvents lblColourScaleMapEnds As Label
+    Friend WithEvents lblColourScaleMapBegins As Label
+    Friend WithEvents lblColourScalePalette As Label
+    Friend WithEvents lblColourScaleTransparency As Label
+    Friend WithEvents UcrChkChangeColourScale As ucrCheck
+    Friend WithEvents ucrNudFillScaleTransparency As ucrNud
+    Friend WithEvents ucrNudFillScaleMapEnds As ucrNud
+    Friend WithEvents ucrNudFillScaleMapBegins As ucrNud
+    Friend WithEvents ucrInputFillScaleColour As ucrInputComboBox
+    Friend WithEvents ucrChkAddFillScale As ucrCheck
+    Friend WithEvents ucrChkAddColourScale As ucrCheck
 End Class
 
 
diff --git a/instat/sdgPlots.resx b/instat/sdgPlots.resx
index 449046bbbe5..934e82618fd 100644
--- a/instat/sdgPlots.resx
+++ b/instat/sdgPlots.resx
@@ -529,7 +529,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpFacet.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpFacet.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
@@ -577,7 +577,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpLayers.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpLayers.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -928,7 +928,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpTitles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpTitles.TabIndex" type="System.Int32, mscorlib">
     <value>2</value>
@@ -976,7 +976,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpXAxis.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpXAxis.TabIndex" type="System.Int32, mscorlib">
     <value>5</value>
@@ -1024,7 +1024,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpYAxis.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpYAxis.TabIndex" type="System.Int32, mscorlib">
     <value>6</value>
@@ -1450,7 +1450,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpTheme.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpTheme.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1714,7 +1714,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="tbpCoordinates.Size" type="System.Drawing.Size, System.Drawing">
-    <value>499, 330</value>
+    <value>499, 423</value>
   </data>
   <data name="tbpCoordinates.TabIndex" type="System.Int32, mscorlib">
     <value>7</value>
@@ -1734,11 +1734,638 @@
   <data name="&gt;&gt;tbpCoordinates.ZOrder" xml:space="preserve">
     <value>6</value>
   </data>
+  <data name="ucrChkAddColourScale.Location" type="System.Drawing.Point, System.Drawing">
+    <value>20, 197</value>
+  </data>
+  <data name="ucrChkAddColourScale.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 20</value>
+  </data>
+  <data name="ucrChkAddColourScale.TabIndex" type="System.Int32, mscorlib">
+    <value>27</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddColourScale.Name" xml:space="preserve">
+    <value>ucrChkAddColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddColourScale.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddColourScale.Parent" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddColourScale.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="ucrChkAddFillScale.Location" type="System.Drawing.Point, System.Drawing">
+    <value>23, 6</value>
+  </data>
+  <data name="ucrChkAddFillScale.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 20</value>
+  </data>
+  <data name="ucrChkAddFillScale.TabIndex" type="System.Int32, mscorlib">
+    <value>26</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddFillScale.Name" xml:space="preserve">
+    <value>ucrChkAddFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddFillScale.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddFillScale.Parent" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;ucrChkAddFillScale.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="ucrNudColourScaleTransparency.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 46</value>
+  </data>
+  <data name="ucrNudColourScaleTransparency.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 20</value>
+  </data>
+  <data name="ucrNudColourScaleTransparency.TabIndex" type="System.Int32, mscorlib">
+    <value>11</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleTransparency.Name" xml:space="preserve">
+    <value>ucrNudColourScaleTransparency</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleTransparency.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleTransparency.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleTransparency.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="ucrInputColourScalePalette.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 19</value>
+  </data>
+  <data name="ucrInputColourScalePalette.Size" type="System.Drawing.Size, System.Drawing">
+    <value>137, 21</value>
+  </data>
+  <data name="ucrInputColourScalePalette.TabIndex" type="System.Int32, mscorlib">
+    <value>10</value>
+  </data>
+  <data name="&gt;&gt;ucrInputColourScalePalette.Name" xml:space="preserve">
+    <value>ucrInputColourScalePalette</value>
+  </data>
+  <data name="&gt;&gt;ucrInputColourScalePalette.Type" xml:space="preserve">
+    <value>instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrInputColourScalePalette.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrInputColourScalePalette.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="ucrNudColourScaleMapEnds.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 100</value>
+  </data>
+  <data name="ucrNudColourScaleMapEnds.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 20</value>
+  </data>
+  <data name="ucrNudColourScaleMapEnds.TabIndex" type="System.Int32, mscorlib">
+    <value>9</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapEnds.Name" xml:space="preserve">
+    <value>ucrNudColourScaleMapEnds</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapEnds.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapEnds.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapEnds.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="ucrNudColourScaleMapBegins.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 73</value>
+  </data>
+  <data name="ucrNudColourScaleMapBegins.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 20</value>
+  </data>
+  <data name="ucrNudColourScaleMapBegins.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapBegins.Name" xml:space="preserve">
+    <value>ucrNudColourScaleMapBegins</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapBegins.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapBegins.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudColourScaleMapBegins.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="ucrChkColourScaleReverseOrder.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 123</value>
+  </data>
+  <data name="ucrChkColourScaleReverseOrder.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 18</value>
+  </data>
+  <data name="ucrChkColourScaleReverseOrder.TabIndex" type="System.Int32, mscorlib">
+    <value>5</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleReverseOrder.Name" xml:space="preserve">
+    <value>ucrChkColourScaleReverseOrder</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleReverseOrder.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleReverseOrder.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleReverseOrder.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="ucrChkColourScaleDiscrete.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 146</value>
+  </data>
+  <data name="ucrChkColourScaleDiscrete.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 26</value>
+  </data>
+  <data name="ucrChkColourScaleDiscrete.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleDiscrete.Name" xml:space="preserve">
+    <value>ucrChkColourScaleDiscrete</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleDiscrete.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleDiscrete.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkColourScaleDiscrete.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
+  <data name="lblColourScaleMapEnds.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblColourScaleMapEnds.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblColourScaleMapEnds.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 99</value>
+  </data>
+  <data name="lblColourScaleMapEnds.Size" type="System.Drawing.Size, System.Drawing">
+    <value>198, 13</value>
+  </data>
+  <data name="lblColourScaleMapEnds.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="lblColourScaleMapEnds.Text" xml:space="preserve">
+    <value>Corrected Hue Where Colour Map Ends:</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapEnds.Name" xml:space="preserve">
+    <value>lblColourScaleMapEnds</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapEnds.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapEnds.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapEnds.ZOrder" xml:space="preserve">
+    <value>6</value>
+  </data>
+  <data name="lblColourScaleMapBegins.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblColourScaleMapBegins.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblColourScaleMapBegins.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 75</value>
+  </data>
+  <data name="lblColourScaleMapBegins.Size" type="System.Drawing.Size, System.Drawing">
+    <value>209, 13</value>
+  </data>
+  <data name="lblColourScaleMapBegins.TabIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="lblColourScaleMapBegins.Text" xml:space="preserve">
+    <value>Corrected Hue Where Colour Map  Begins:</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapBegins.Name" xml:space="preserve">
+    <value>lblColourScaleMapBegins</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapBegins.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapBegins.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleMapBegins.ZOrder" xml:space="preserve">
+    <value>7</value>
+  </data>
+  <data name="lblColourScalePalette.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblColourScalePalette.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblColourScalePalette.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 27</value>
+  </data>
+  <data name="lblColourScalePalette.Size" type="System.Drawing.Size, System.Drawing">
+    <value>76, 13</value>
+  </data>
+  <data name="lblColourScalePalette.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="lblColourScalePalette.Text" xml:space="preserve">
+    <value>Colour Palette:</value>
+  </data>
+  <data name="&gt;&gt;lblColourScalePalette.Name" xml:space="preserve">
+    <value>lblColourScalePalette</value>
+  </data>
+  <data name="&gt;&gt;lblColourScalePalette.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblColourScalePalette.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;lblColourScalePalette.ZOrder" xml:space="preserve">
+    <value>8</value>
+  </data>
+  <data name="lblColourScaleTransparency.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblColourScaleTransparency.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblColourScaleTransparency.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 51</value>
+  </data>
+  <data name="lblColourScaleTransparency.Size" type="System.Drawing.Size, System.Drawing">
+    <value>75, 13</value>
+  </data>
+  <data name="lblColourScaleTransparency.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="lblColourScaleTransparency.Text" xml:space="preserve">
+    <value>Transparency:</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleTransparency.Name" xml:space="preserve">
+    <value>lblColourScaleTransparency</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleTransparency.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleTransparency.Parent" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;lblColourScaleTransparency.ZOrder" xml:space="preserve">
+    <value>9</value>
+  </data>
+  <data name="grpColourScale.Location" type="System.Drawing.Point, System.Drawing">
+    <value>13, 243</value>
+  </data>
+  <data name="grpColourScale.Size" type="System.Drawing.Size, System.Drawing">
+    <value>390, 172</value>
+  </data>
+  <data name="grpColourScale.TabIndex" type="System.Int32, mscorlib">
+    <value>25</value>
+  </data>
+  <data name="grpColourScale.Text" xml:space="preserve">
+    <value>Colour Scale</value>
+  </data>
+  <data name="&gt;&gt;grpColourScale.Name" xml:space="preserve">
+    <value>grpColourScale</value>
+  </data>
+  <data name="&gt;&gt;grpColourScale.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;grpColourScale.Parent" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;grpColourScale.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="UcrChkChangeColourScale.Location" type="System.Drawing.Point, System.Drawing">
+    <value>20, 217</value>
+  </data>
+  <data name="UcrChkChangeColourScale.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 20</value>
+  </data>
+  <data name="UcrChkChangeColourScale.TabIndex" type="System.Int32, mscorlib">
+    <value>24</value>
+  </data>
+  <data name="&gt;&gt;UcrChkChangeColourScale.Name" xml:space="preserve">
+    <value>UcrChkChangeColourScale</value>
+  </data>
+  <data name="&gt;&gt;UcrChkChangeColourScale.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;UcrChkChangeColourScale.Parent" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;UcrChkChangeColourScale.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="ucrNudFillScaleTransparency.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 46</value>
+  </data>
+  <data name="ucrNudFillScaleTransparency.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 21</value>
+  </data>
+  <data name="ucrNudFillScaleTransparency.TabIndex" type="System.Int32, mscorlib">
+    <value>9</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleTransparency.Name" xml:space="preserve">
+    <value>ucrNudFillScaleTransparency</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleTransparency.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleTransparency.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleTransparency.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="ucrNudFillScaleMapEnds.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 100</value>
+  </data>
+  <data name="ucrNudFillScaleMapEnds.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 22</value>
+  </data>
+  <data name="ucrNudFillScaleMapEnds.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapEnds.Name" xml:space="preserve">
+    <value>ucrNudFillScaleMapEnds</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapEnds.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapEnds.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapEnds.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="ucrNudFillScaleMapBegins.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 73</value>
+  </data>
+  <data name="ucrNudFillScaleMapBegins.Size" type="System.Drawing.Size, System.Drawing">
+    <value>50, 27</value>
+  </data>
+  <data name="ucrNudFillScaleMapBegins.TabIndex" type="System.Int32, mscorlib">
+    <value>7</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapBegins.Name" xml:space="preserve">
+    <value>ucrNudFillScaleMapBegins</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapBegins.Type" xml:space="preserve">
+    <value>instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapBegins.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrNudFillScaleMapBegins.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="ucrInputFillScaleColour.Location" type="System.Drawing.Point, System.Drawing">
+    <value>222, 19</value>
+  </data>
+  <data name="ucrInputFillScaleColour.Size" type="System.Drawing.Size, System.Drawing">
+    <value>137, 25</value>
+  </data>
+  <data name="ucrInputFillScaleColour.TabIndex" type="System.Int32, mscorlib">
+    <value>6</value>
+  </data>
+  <data name="&gt;&gt;ucrInputFillScaleColour.Name" xml:space="preserve">
+    <value>ucrInputFillScaleColour</value>
+  </data>
+  <data name="&gt;&gt;ucrInputFillScaleColour.Type" xml:space="preserve">
+    <value>instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrInputFillScaleColour.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrInputFillScaleColour.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="ucrChkFilLScaleReverseColourOrder.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 118</value>
+  </data>
+  <data name="ucrChkFilLScaleReverseColourOrder.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 20</value>
+  </data>
+  <data name="ucrChkFilLScaleReverseColourOrder.TabIndex" type="System.Int32, mscorlib">
+    <value>5</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFilLScaleReverseColourOrder.Name" xml:space="preserve">
+    <value>ucrChkFilLScaleReverseColourOrder</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFilLScaleReverseColourOrder.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFilLScaleReverseColourOrder.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFilLScaleReverseColourOrder.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="ucrChkFillScaleDiscrete.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 141</value>
+  </data>
+  <data name="ucrChkFillScaleDiscrete.Size" type="System.Drawing.Size, System.Drawing">
+    <value>100, 20</value>
+  </data>
+  <data name="ucrChkFillScaleDiscrete.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFillScaleDiscrete.Name" xml:space="preserve">
+    <value>ucrChkFillScaleDiscrete</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFillScaleDiscrete.Type" xml:space="preserve">
+    <value>instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFillScaleDiscrete.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;ucrChkFillScaleDiscrete.ZOrder" xml:space="preserve">
+    <value>5</value>
+  </data>
+  <data name="lblFillScaleMapEnds.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblFillScaleMapEnds.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblFillScaleMapEnds.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 95</value>
+  </data>
+  <data name="lblFillScaleMapEnds.Size" type="System.Drawing.Size, System.Drawing">
+    <value>198, 13</value>
+  </data>
+  <data name="lblFillScaleMapEnds.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="lblFillScaleMapEnds.Text" xml:space="preserve">
+    <value>Corrected Hue Where Colour Map Ends:</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleMapEnds.Name" xml:space="preserve">
+    <value>lblFillScaleMapEnds</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleMapEnds.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleMapEnds.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleMapEnds.ZOrder" xml:space="preserve">
+    <value>6</value>
+  </data>
+  <data name="lblFillScaleBeginColour.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblFillScaleBeginColour.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblFillScaleBeginColour.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 72</value>
+  </data>
+  <data name="lblFillScaleBeginColour.Size" type="System.Drawing.Size, System.Drawing">
+    <value>209, 13</value>
+  </data>
+  <data name="lblFillScaleBeginColour.TabIndex" type="System.Int32, mscorlib">
+    <value>2</value>
+  </data>
+  <data name="lblFillScaleBeginColour.Text" xml:space="preserve">
+    <value>Corrected Hue Where Colour Map  Begins:</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleBeginColour.Name" xml:space="preserve">
+    <value>lblFillScaleBeginColour</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleBeginColour.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleBeginColour.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleBeginColour.ZOrder" xml:space="preserve">
+    <value>7</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 26</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.Size" type="System.Drawing.Size, System.Drawing">
+    <value>76, 13</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="lblFillScaleColourPalettte.Text" xml:space="preserve">
+    <value>Colour Palette:</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleColourPalettte.Name" xml:space="preserve">
+    <value>lblFillScaleColourPalettte</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleColourPalettte.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleColourPalettte.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleColourPalettte.ZOrder" xml:space="preserve">
+    <value>8</value>
+  </data>
+  <data name="lblFillScaleTransparency.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="lblFillScaleTransparency.Location" type="System.Drawing.Point, System.Drawing">
+    <value>7, 49</value>
+  </data>
+  <data name="lblFillScaleTransparency.Size" type="System.Drawing.Size, System.Drawing">
+    <value>75, 13</value>
+  </data>
+  <data name="lblFillScaleTransparency.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="lblFillScaleTransparency.Text" xml:space="preserve">
+    <value>Transparency:</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleTransparency.Name" xml:space="preserve">
+    <value>lblFillScaleTransparency</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleTransparency.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleTransparency.Parent" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;lblFillScaleTransparency.ZOrder" xml:space="preserve">
+    <value>9</value>
+  </data>
+  <data name="grpFillScale.Location" type="System.Drawing.Point, System.Drawing">
+    <value>13, 30</value>
+  </data>
+  <data name="grpFillScale.Size" type="System.Drawing.Size, System.Drawing">
+    <value>388, 160</value>
+  </data>
+  <data name="grpFillScale.TabIndex" type="System.Int32, mscorlib">
+    <value>23</value>
+  </data>
+  <data name="grpFillScale.Text" xml:space="preserve">
+    <value>Fill Scale</value>
+  </data>
+  <data name="&gt;&gt;grpFillScale.Name" xml:space="preserve">
+    <value>grpFillScale</value>
+  </data>
+  <data name="&gt;&gt;grpFillScale.Type" xml:space="preserve">
+    <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;grpFillScale.Parent" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;grpFillScale.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="tbpColour.Location" type="System.Drawing.Point, System.Drawing">
+    <value>4, 22</value>
+  </data>
+  <data name="tbpColour.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>3, 3, 3, 3</value>
+  </data>
+  <data name="tbpColour.Size" type="System.Drawing.Size, System.Drawing">
+    <value>499, 423</value>
+  </data>
+  <data name="tbpColour.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="tbpColour.Text" xml:space="preserve">
+    <value>Colour</value>
+  </data>
+  <data name="&gt;&gt;tbpColour.Name" xml:space="preserve">
+    <value>tbpColour</value>
+  </data>
+  <data name="&gt;&gt;tbpColour.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;tbpColour.Parent" xml:space="preserve">
+    <value>tbpPlotsOptions</value>
+  </data>
+  <data name="&gt;&gt;tbpColour.ZOrder" xml:space="preserve">
+    <value>7</value>
+  </data>
   <data name="tbpPlotsOptions.Location" type="System.Drawing.Point, System.Drawing">
     <value>1, 3</value>
   </data>
   <data name="tbpPlotsOptions.Size" type="System.Drawing.Size, System.Drawing">
-    <value>507, 356</value>
+    <value>507, 449</value>
   </data>
   <data name="tbpPlotsOptions.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -1756,10 +2383,10 @@
     <value>1</value>
   </data>
   <data name="ucrBaseSubdialog.Location" type="System.Drawing.Point, System.Drawing">
-    <value>164, 365</value>
+    <value>164, 458</value>
   </data>
   <data name="ucrBaseSubdialog.Size" type="System.Drawing.Size, System.Drawing">
-    <value>160, 41</value>
+    <value>160, 28</value>
   </data>
   <data name="ucrBaseSubdialog.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1783,7 +2410,7 @@
     <value>6, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>517, 399</value>
+    <value>517, 502</value>
   </data>
   <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
     <value>CenterParent</value>
diff --git a/instat/sdgPlots.vb b/instat/sdgPlots.vb
index 7d65ef46483..82e954882be 100644
--- a/instat/sdgPlots.vb
+++ b/instat/sdgPlots.vb
@@ -14,6 +14,7 @@
 ' You should have received a copy of the GNU General Public License 
 ' along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+Imports instat
 Imports instat.Translations
 Public Class sdgPlots
     'Question to be discussed (later: need to explore first)/Exploration Task: In order to uniformise the code, could create a PlotOptionsSetup where all the necessary links between specific plots and plot options are made ? For the moment all these are scattered around. Might be necessary to have this flexibility though... 
@@ -33,6 +34,8 @@ Public Class sdgPlots
     Public clsXScaleDateFunction As New RFunction
     Public clsYScaleDateFunction As New RFunction
     Public clsYLabFunction As New RFunction
+    Public clsScaleColourViridisFunction As New RFunction
+    Public clsScaleFillViridisFunction As New RFunction
     Public clsBaseOperator As New ROperator
     Private bControlsInitialised As Boolean = False
     'All the previous RFunctions will eventually be stored as parameters (or parameters of parameters) within the RSyntax building the big Ggplot command "ggplot(...) + geom_..(..) + ... + theme(...) + scales(...) ..."
@@ -71,6 +74,8 @@ Public Class sdgPlots
     Public Sub InitialiseControls()
         Dim dctThemes As New Dictionary(Of String, String)
         Dim dctLegendPosition As New Dictionary(Of String, String)
+        Dim dctOptions As New Dictionary(Of String, String)
+
         Dim strThemes As String()
 
         Dim clsCoordFlipFunc As New RFunction
@@ -331,9 +336,54 @@ Public Class sdgPlots
         ucrChkDrop.SetValuesCheckedAndUnchecked("TRUE", "FALSE")
         ucrChkDrop.SetText("Drop empty factor levels")
         ucrChkDrop.SetRDefault("TRUE")
-    End Sub
 
-    Public Sub SetRCode(clsNewOperator As ROperator, clsNewCoordPolarFunction As RFunction, clsNewCoordPolarStartOperator As ROperator, clsNewYScalecontinuousFunction As RFunction, clsNewXScalecontinuousFunction As RFunction, clsNewLabsFunction As RFunction, clsNewXLabsTitleFunction As RFunction, clsNewYLabTitleFunction As RFunction, clsNewFacetFunction As RFunction, clsNewThemeFunction As RFunction, dctNewThemeFunctions As Dictionary(Of String, RFunction), ucrNewBaseSelector As ucrSelector, bReset As Boolean, Optional clsNewGlobalAesFunction As RFunction = Nothing, Optional clsNewXScaleDateFunction As RFunction = Nothing, Optional clsNewYScaleDateFunction As RFunction = Nothing, Optional strMainDialogGeomParameterNames() As String = Nothing)
+        'Colour
+        ucrInputFillScaleColour.SetParameter(New RParameter("option", iNewPosition:=0))
+        dctOptions.Add("viridis", Chr(34) & "viridis" & Chr(34))
+        dctOptions.Add("magma", Chr(34) & "magma" & Chr(34))
+        dctOptions.Add("inferno", Chr(34) & "inferno" & Chr(34))
+        dctOptions.Add("plasma", Chr(34) & "plasma" & Chr(34))
+        dctOptions.Add("cividis", Chr(34) & "cividis" & Chr(34))
+        ucrInputFillScaleColour.SetItems(dctOptions)
+        ucrInputFillScaleColour.SetLinkedDisplayControl(lblFillScaleColourPalettte)
+
+        ucrNudFillScaleTransparency.SetParameter(New RParameter("alpha", iNewPosition:=1))
+        ucrNudFillScaleTransparency.SetMinMax(0, 1)
+        ucrNudFillScaleTransparency.DecimalPlaces = 2
+        ucrNudFillScaleTransparency.Increment = 0.01
+        ucrNudFillScaleTransparency.SetLinkedDisplayControl(lblFillScaleTransparency)
+
+        ucrNudFillScaleMapBegins.SetParameter(New RParameter("begin", iNewPosition:=2))
+        ucrNudFillScaleMapBegins.SetMinMax(0, 1)
+        ucrNudFillScaleMapBegins.DecimalPlaces = 2
+        ucrNudFillScaleMapBegins.Increment = 0.01
+        ucrNudFillScaleMapBegins.SetLinkedDisplayControl(lblFillScaleBeginColour)
+
+        ucrNudFillScaleMapEnds.SetParameter(New RParameter("end", iNewPosition:=3))
+        ucrNudFillScaleMapEnds.SetMinMax(0, 1)
+        ucrNudFillScaleMapEnds.DecimalPlaces = 2
+        ucrNudFillScaleMapEnds.Increment = 0.01
+        ucrNudFillScaleMapEnds.SetLinkedDisplayControl(lblFillScaleMapEnds)
+
+        ucrChkFilLScaleReverseColourOrder.SetParameter(New RParameter("direction", iNewPosition:=4))
+        ucrChkFilLScaleReverseColourOrder.SetText("Reverse Order Of Colours")
+        ucrChkFilLScaleReverseColourOrder.SetValuesCheckedAndUnchecked("1", "-1")
+
+        ucrChkAddFillScale.SetText("Add Fill Scale")
+        ucrChkAddFillScale.AddParameterPresentCondition(True, "scale_fill", True)
+        ucrChkAddFillScale.AddParameterPresentCondition(False, "scale_fill", False)
+
+        ucrChkAddColourScale.SetText("Add Colour Scale")
+        ucrChkAddColourScale.AddParameterPresentCondition(True, "scale_colour", True)
+        ucrChkAddColourScale.AddParameterPresentCondition(False, "scale_colour", False)
+
+        grpFillScale.Visible = False
+        grpColourScale.Visible = False
+
+    End Sub
+
+    Public Sub SetRCode(clsNewOperator As ROperator, clsNewCoordPolarFunction As RFunction, clsNewCoordPolarStartOperator As ROperator, clsNewYScalecontinuousFunction As RFunction, clsNewXScalecontinuousFunction As RFunction, clsNewLabsFunction As RFunction, clsNewXLabsTitleFunction As RFunction, clsNewYLabTitleFunction As RFunction, clsNewFacetFunction As RFunction, clsNewThemeFunction As RFunction, dctNewThemeFunctions As Dictionary(Of String, RFunction), ucrNewBaseSelector As ucrSelector, bReset As Boolean, Optional clsNewGlobalAesFunction As RFunction = Nothing, Optional clsNewXScaleDateFunction As RFunction = Nothing, Optional clsNewYScaleDateFunction As RFunction = Nothing,
+                        Optional clsNewScaleFillViridisFunction As RFunction = Nothing, Optional clsNewScaleColourViridisFunction As RFunction = Nothing, Optional strMainDialogGeomParameterNames() As String = Nothing)
         Dim clsTempParam As RParameter
 
         bRCodeSet = False
@@ -360,6 +410,9 @@ Public Class sdgPlots
         clsThemeFunction = clsNewThemeFunction
         clsCoordPolarFunc = clsNewCoordPolarFunction
         clsCoordPolarStartOperator = clsNewCoordPolarStartOperator
+        clsScaleFillViridisFunction = clsNewScaleFillViridisFunction
+        clsScaleColourViridisFunction = clsNewScaleColourViridisFunction
+
         If Not IsNothing(clsCoordPolarStartOperator) Then
             clsCoordPolarFunc.AddParameter("start", clsROperatorParameter:=clsCoordPolarStartOperator, iPosition:=1)
         End If
@@ -426,6 +479,15 @@ Public Class sdgPlots
         ucrInputStartingAngle.SetRCode(clsCoordPolarStartOperator, bReset, bCloneIfNeeded:=True)
         ucrInputPolarCoordinates.SetRCode(clsCoordPolarFunc, bReset:=True, bCloneIfNeeded:=True)
 
+        'colour
+        ucrInputFillScaleColour.SetRCode(clsScaleFillViridisFunction, bReset, bCloneIfNeeded:=True)
+        ucrNudFillScaleTransparency.SetRCode(clsScaleFillViridisFunction, bReset, bCloneIfNeeded:=True)
+        ucrNudFillScaleMapBegins.SetRCode(clsScaleFillViridisFunction, bReset, bCloneIfNeeded:=True)
+        ucrNudFillScaleMapEnds.SetRCode(clsScaleFillViridisFunction, bReset, bCloneIfNeeded:=True)
+        ucrChkFilLScaleReverseColourOrder.SetRCode(clsScaleFillViridisFunction, bReset, bCloneIfNeeded:=True)
+        ucrChkAddFillScale.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True)
+        ucrChkAddColourScale.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True)
+
         ucrPlotsAdditionalLayers.SetRCodeForControl(clsNewBaseOperator:=clsBaseOperator, clsRNewggplotFunc:=clsRggplotFunction, clsNewAesFunc:=clsGlobalAesFunction, strNewGlobalDataFrame:=strDataFrame, strMainDialogGeomParameterNames:=strMainDialogGeomParameterNames, bReset:=bReset)
         bRCodeSet = True
         AddRemoveLabs()
@@ -787,4 +849,23 @@ Public Class sdgPlots
         End If
     End Sub
 
+    Private Sub ucrChkAddColoutPalette_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkAddFillScale.ControlValueChanged
+        If ucrChkAddFillScale.Checked Then
+            clsBaseOperator.AddParameter("scale_fill", clsRFunctionParameter:=clsScaleFillViridisFunction, iPosition:=3)
+            grpFillScale.Visible = True
+        Else
+            clsBaseOperator.RemoveParameterByName("scale_fill")
+            grpFillScale.Visible = False
+        End If
+    End Sub
+
+    Private Sub ucrChkAddColourScale_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkAddColourScale.ControlValueChanged
+        If ucrChkAddColourScale.Checked Then
+            clsBaseOperator.AddParameter("scale_colour", clsRFunctionParameter:=clsScaleColourViridisFunction, iPosition:=4)
+            grpColourScale.Visible = True
+        Else
+            clsBaseOperator.RemoveParameterByName("scale_colour")
+            grpColourScale.Visible = False
+        End If
+    End Sub
 End Class
\ No newline at end of file