package Ġpl . kar ol 2 0 2 . uran ium . ark ade . html canvas . values Ċ Ċ import Ġpl . kar ol 2 0 2 . uran ium . ark ade . html canvas . dom . values . Native Fill Style Ċ import Ġpl . kar ol 2 0 2 . uran ium . ark ade . html canvas . draw . Draw Context Ċ Ċ sealed Ġclass ĠColor ( val Ġas Text : ĠString ) Ġ: ĠFill Style () Ċ { Ċ ĉ comp anion Ġobject Ċ ĉ { Ċĉ ĉ fun Ġraw ( value : ĠString ) Ġ= ĠRaw Color ( value ) ĊĊĉ ĉ fun Ġrgb ( red : ĠInt , Ġgreen : ĠInt , Ġblue : ĠInt ) Ġ= ĠRGB Color ( red , Ġgreen , Ġblue ) ĊĊĉ ĉ fun Ġrgba ( red : ĠInt , Ġgreen : ĠInt , Ġblue : ĠInt , Ġalpha : ĠDouble ) Ġ= ĠRGBA Color ( red , Ġgreen , Ġblue , Ġalpha ) ĊĊĉ ĉ fun Ġh sl ( hue : ĠInt , Ġsat uration : ĠDouble , Ġlight ness : ĠDouble ) Ġ= ĠH SL Color ( hue , Ġsat uration , Ġlight ness ) ĊĊĉ ĉ fun Ġh sla ( hue : ĠInt , Ġsat uration : ĠDouble , Ġlight ness : ĠDouble , Ġalpha : ĠDouble ) Ġ= ĠH SL A Color ( hue , Ġsat uration , Ġlight ness , Ġalpha ) Ċ ĉ } ĊĊ ĉ data Ġclass ĠRaw Color ( val Ġname : ĠString ) Ġ: ĠColor ( name ) ĊĊ ĉ data Ġclass ĠRGB Color ( val Ġred : ĠInt , ĊĉĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġgreen : ĠInt , ĊĉĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġblue : ĠInt ) Ġ: ĠColor (" rgb ($ red ,$ green ,$ blue )") ĊĊ ĉ data Ġclass ĠRGBA Color ( val Ġred : ĠInt , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġgreen : ĠInt , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġblue : ĠInt , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġalpha : ĠDouble ) Ġ: ĠColor (" rgba ($ red ,$ green ,$ blue ,$ alpha )") ĊĊ ĉ data Ġclass ĠH SL Color ( val Ġhue : ĠInt , ĊĉĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġsat uration : ĠDouble , ĊĉĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġlight ness : ĠDouble ) Ġ: ĠColor (" h sl ($ hue , ${ sat uration Ġ* Ġ 1 0 0 } %, ${ light ness Ġ* Ġ 1 0 0 }% )") ĊĊ ĉ data Ġclass ĠH SL A Color ( val Ġhue : ĠInt , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġsat uration : ĠDouble , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġlight ness : ĠDouble , Ċĉ ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġalpha : ĠDouble ) Ġ: ĠColor (" h sla ($ hue , ${ sat uration Ġ* Ġ 1 0 0 } %, ${ light ness Ġ* Ġ 1 0 0 }% ,$ alpha )") ĊĊ ĉ override Ġfun Ġcreate Native Style ( context : ĠDraw Context ) Ġ= ĠNative Fill Style . fromString ( as Text ) Ċ } Ċ