PureBasic Forums - English

... r - *in\g ) / delta ; between magenta & cyan
EndIf
*out\h * 60.0 ; degrees
If( *out\h < 0.0 )
*out\h + 360.0;
EndIf
EndProcedure

Procedure hsv2rgb(*in.hsv, *out.rgb)

Protected.d hh, p, q, t, ff;
Protected.i i ;

If *in\s <= 0.0 ; // < is bogus, just shuts up warnings
*out\r = *in\v ...

... n2
EndProcedure
Procedure.f MaxF(n1.f, n2.f)
If n1>n2
ProcedureReturn n1
EndIf
ProcedureReturn n2
EndProcedure

Procedure.i HSV2RGB(H.f,S.f,V.f)

Define.COLOUR sat

While h < 0
h = h + 360
Wend

While h > 360
h = h - 360
Wend

If h < 120
sat\r = (120 - h ...

... c
Select *c\type
Case #COLOR_RGB : ProcedureReturn *c
;Case #COLOR_CMY : ProcedureReturn CMY2RGB(*c)
;Case #COLOR_HSV : ProcedureReturn HSV2RGB(*c)
Case #COLOR_HSL : ProcedureReturn HSL2RGB(*c)
EndSelect
EndProcedure

ProcedureDLL.l ColorRGB(*c.Color) ; converts an internal copy of ...

... if CMY is made!
*c\r = 1.0 - *c\c
*c\g = 1.0 - *c\m
*c\b = 1.0 - *c\y
*c\type = #COLOR_RGB

ProcedureReturn *c
EndProcedure

ProcedureDLL.l HSV2RGB(*c.Color) ; converts HSV-color *c to RGB and returns *c. No check if HSV is made!
Protected h.f, s.f, v.f
Protected f.f, p.f, q.f, t.f, i.l

h ...

... Procedure.f MaxF(n1.f, n2.f)
If n1>n2
ProcedureReturn n1
EndIf
ProcedureReturn n2
EndProcedure

CompilerEndIf



Procedure HSV2RGB(*c1.HSV, *rgb.COLOUR)
DefType.COLOUR sat

While *c1\h < 0
*c1\h = *c1\h + 360
Wend

While *c1\h > 360
*c1\h = *c1\h - 360
Wend ...

Hi,

I don't know how to do it with GDIPlus, but you can do it without. This code uses tinman's hsv2rgb procedures from this post:

http://forums.purebasic.com/english/viewtopic.php?t=8251


Structure COLORREF
FutureAlpha.b ;)
b.b
g.b
r.b
EndStructure

Procedure SetSaturation(ImageID ...

... all values between 0 and 1 for intensity of colour
; Hue is in degrees
; Lightness is between 0 And 1
; Saturation is between 0 And 1
Procedure HSV2RGB(*c1.HSV, *rgb.COLOUR)
DefType.COLOUR sat

While *c1\h < 0
*c1\h = *c1\h + 360
Wend

While *c1\h > 360
*c1\h = *c1\h - 360
Wend

If *c1\h ...

... all values between 0 and 1 for intensity of colour
; Hue is in degrees
; Lightness is between 0 And 1
; Saturation is between 0 And 1
Procedure HSV2RGB(*c1.HSV, *rgb.COLOUR)
DefType.COLOUR sat

While *c1\h < 0
*c1\h = *c1\h + 360
Wend

While *c1\h > 360
*c1\h = *c1\h - 360
Wend

If *c1\h ...