#Color wheel 360 picker mod#
#Color wheel 360 picker code#

With CreateRingSrf.CreateContext 'now we can enter drawing-mode on the Srf-Context Set CreateRingSrf = Cairo.CreateSurface(Size, Size) 'create the return-value of this function Pat.AddColorStop i / UBound(ColorStops), ColorStops(i) Set Pat = Cairo.CreateLinearPattern(0, 0, Steps, 0)įor i = 0 To UBound(ColorStops) 'now add the Color-Stops for this gradient-pattern (to interpolate between)

Steps = 2 * Cairo.PI * RadiusOuter 'calculate the amount of pixel-steps on the outer radius (2*PI*r) 'create a linear (horizontal) gradient-pattern that matches the amount of 'unrolled outer-ring-pixel-steps' Set Picture = CreateRingSrf(200, 50, 100, ColorStops).Pictureįunction CreateRingSrf(Size, RadiusInner, RadiusOuter, ColorStops) As cCairoSurfaceĭim Steps As Long, Pat As cCairoPattern, i As Long

#Color wheel 360 picker code#

I've already studied the code of you, Olaf and ColinE66, but I still can't draw a smooth Color Wheel with Cairo, which makes me very depressed.ĭrawing algorithms always make me a headache.ĭim ColorStops 'define the Colors the 'Conical-Gradient will span and interpolate-between'ĬolorStops = Array(vbRed, vbYellow, vbGreen, vbCyan, vbBlue, vbMagenta, vbRed) But I don't know why, I can't understand Cairo. Cairo can always achieve very cool effects. RotateDrawingsDeg 0.25 'rotate by one quarter of a degree (360 / (1440 steps in the LUT))Įnd FunctionHi reexre, thank you for your reply. With CreateRingSpectrumSurface.CreateContext Set CreateRingSpectrumSurface = Cairo.CreateSurface(Size, Size)

Set Lst = New_c.ArrayList(vbLong, vbRed, vbYellow, vbGreen, vbCyan, vbBlue, vbMagenta, vbRed) With Cairo.CreateLinearPattern(0, 0, LUTSrf.Width - 1, 0) Private Sub W_Paint(CC As cCairoContext, ByVal xAbs As Single, ByVal yAbs As Single, ByVal dx_Aligned As Single, ByVal dy_Aligned As Single, UserObj As Object)ĭrawBorderAndBackGround CC, dx_Aligned, dy_AlignedĬC.Arc xCenter, 圜enter, 0.4 * RingRadius 'the centered Circle-Fill with the current colorĬC.ColorSplit ColorLut(CurRingIdx), RR, GG, BB

#Color wheel 360 picker mod#

Code: Option Explicit 'a circular ColorChooser (implemented as an RC5 cwWidget-Class)Ĭonst RingSurfaceSize& = 384, RingWidth& = 42 ' 1 Then Exit SubĬurRingIdx = (Cairo.CalcArc(圜enter - Y, xCenter - X) * 720 / Cairo.PI + 1080) Mod 1440ĬurLUM = Sqr((xCenter - X) * (xCenter - X) + (圜enter - Y) * (圜enter - Y))