Color extensions

[nerobotParticipant]

Let’s put all useful color extensions in one place.

Monkey

Struct Color Extension ' Returns Color from hex-string. ' Hex can be: #RGB / #ARGB / #RRGGBB / #AARRGGBB ' Returns Magenta if format is incorrect ' Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End ' Returns #AARRGGBB string. ' Method ToHex:String() Local aa:=ULongToString( a*255,16 ) If aa.Length<2 Then aa="0"+aa Local rr:=ULongToString( r*255,16 ) If rr.Length<2 Then rr="0"+rr Local gg:=ULongToString( g*255,16 ) If gg.Length<2 Then gg="0"+gg Local bb:=ULongToString( b*255,16 ) If bb.Length<2 Then bb="0"+bb Return "#"+aa+rr+gg+bb End ' Returns array with [r,g,b,a] values. ' Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End ' Return Color extracted from array or from string (in hex format). ' Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

Struct Color Extension ' Returns Color from hex-string. ' Hex can be: #RGB / #ARGB / #RRGGBB / #AARRGGBB ' Returns Magenta if format is incorrect ' Function FromHex:Color( hex:String ) Local str:=hex Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End ' Returns #AARRGGBB string. ' Method ToHex:String() Local aa:=ULongToString( a*255,16 ) If aa.Length<2 Then aa="0"+aa Local rr:=ULongToString( r*255,16 ) If rr.Length<2 Then rr="0"+rr Local gg:=ULongToString( g*255,16 ) If gg.Length<2 Then gg="0"+gg Local bb:=ULongToString( b*255,16 ) If bb.Length<2 Then bb="0"+bb Return "#"+aa+rr+gg+bb End ' Returns array with [r,g,b,a] values. ' Method ToJson:JsonValue() Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) ) End ' Return Color extracted from array or from string (in hex format). ' Function FromJson:Color( json:JsonValue ) If json.IsArray Local arr:=json.ToArray() Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() ) Else Return FromHex( json.ToString() ) Endif End End

[nerobotParticipant]

If you want to make color lighter or darker, you can multiply it with float:

Local darkerPink:=Color.Pink * .8

Local lighter:=Color.FromHex("#554488") * 1.2

[HezkoreParticipant]

It’s a shame you can’t use ‘New’ with extensions.
I’d love to have

Monkey

Struct Color Extension Method New( r:UByte,g:UByte,b:UByte,a:UByte=255 ) Self.r=r/255.0 Self.g=g/255.0 Self.b=b/255.0 Self.a=a/255.0 End End

1 2 3 4 5 6 7 8 9 10

Struct Color Extension Method New( r:UByte,g:UByte,b:UByte,a:UByte=255 ) Self.r=r/255.0 Self.g=g/255.0 Self.b=b/255.0 Self.a=a/255.0 End End

Oh well, you can still do:

Monkey

Struct Color Extension Function FromByte:Color( r:UByte,g:UByte,b:UByte,a:UByte=255 ) Return New Color( r/255.0,g/255.0,b/255.0,a/255.0 ) End End

1 2 3 4 5 6 7

Struct Color Extension Function FromByte:Color( r:UByte,g:UByte,b:UByte,a:UByte=255 ) Return New Color( r/255.0,g/255.0,b/255.0,a/255.0 ) End End

[coconParticipant]

Some updates to the code as nerobot suggested.

Monkey

#Import "<std>" Using std.graphics Function Main() Local colorSample:UInt = 4294902015 Local colorPink := Color.FromARGB(colorSample) Print(colorPink) Local uintPink := Color.ToARGB(colorPink) Print(uintPink) If colorSample = uintPink Print("Success") End End Struct Color Extension Function ToARGB:UInt(color:Color) Return UInt(color.A * 255) Shl 24 | UInt(color.R * 255) Shl 16 | UInt(color.G * 255) Shl 8 | UInt(color.B * 255) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#Import "<std>" Using std.graphics   Function Main() Local colorSample:UInt = 4294902015 Local colorPink := Color.FromARGB(colorSample) Print(colorPink) Local uintPink := Color.ToARGB(colorPink) Print(uintPink) If colorSample = uintPink Print("Success") End End   Struct Color Extension Function ToARGB:UInt(color:Color) Return UInt(color.A * 255) Shl 24 | UInt(color.R * 255) Shl 16 | UInt(color.G * 255) Shl 8 | UInt(color.B * 255) End End

[nerobotParticipant]

Code is not mine but good to have it here.:)

And it’s ABGR format not RGBA. So we must rename that function to be correct.

[Author]

Posts