Thanks to a Spanish web page and the wonders of Google Translate... I got it now.
With Paint
.Brush = Paint.Color(&H00FFCC00)
x1 = 250
y1 = 250
.MoveTo(x1, y1)
x2 = Cos(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 0)) * 200 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 0)) * 200 + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
.LineTo(x2, y2)
.LineTo(x1, y1)
'.Stroke <---------- REM this out to only fill the shape, not draw lines.
.Fill
.End
End With
Now I can do any color i want... and what is really cool... I can use this to pick my exact colors.
https://www.w3schools.com/colors/colors_picker.asp
It also looks like I can outline things too... pretty cool... I'm sure there is a way to specify an outlined and filled line with a simpler command... but at least this is working for me.
Public Sub DrawingArea1_Draw()
Dim offset_angle As Integer = -210 ' Radians like to be at the 3-O-clock point, I want them to start someplace else.
Dim Pointer_LEN As Integer = 180
With Paint
' Make a filled shape for a pointer.
.Brush = Paint.Color(&H00FFCC00)
x1 = Cos(Rad(Slider1.value + offset_angle + 180)) * 30 + 250
y1 = Sin(Rad(Slider1.value + offset_angle + 180)) * 30 + 250
.MoveTo(x1, y1)
x2 = Cos(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 0)) * Pointer_LEN + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 0)) * Pointer_LEN + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
.LineTo(x2, y2)
.LineTo(x1, y1)
'.Stroke <---------- REM this out to only fill the shape, not draw lines.
.Fill
' Trace lines around the pointer we just made.
.Brush = Paint.Color(&H000000FF)
x1 = Cos(Rad(Slider1.value + offset_angle + 180)) * 30 + 250
y1 = Sin(Rad(Slider1.value + offset_angle + 180)) * 30 + 250
.MoveTo(x1, y1)
x2 = Cos(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 135)) * 20 + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 0)) * Pointer_LEN + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 0)) * Pointer_LEN + 250
.LineTo(x2, y2)
x2 = Cos(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
y2 = Sin(Rad(Slider1.value + offset_angle + 225)) * 20 + 250
.LineTo(x2, y2)
.LineTo(x1, y1)
.Stroke
'.Fill < - - - - - - - - - - REM this out To only draw the shape, lines not fill.
.End
End With
End
So yeah... I can load SVG backgrounds, make programmable components... very exciting to be able to build NICE graphic panels now!!! Finally... so now if I can only learn to read the ADS1115 Chip with piGPIO... I'll have everything sorted out. Well... pretty much.
