Eli tämä funktio ottaa kolme arvoa väliltä 0-255, värin sävy, värikylläisyys sekä kirkkaus.
Koodi + esimerkki:
Code: Select all
SCREEN 255, 100
For i = 0 To 255
ColorHSL(i, 255, 128)
Line i, 0, i, 100
DrawScreen OFF
Next i
WaitKey
Function ColorHSL(Hue#, Saturation#, Luminance#)
Hue = (Hue/255.0)*360
Saturation = Saturation / 2.0
Color Min(255, Max(0, Luminance + (Cos(Hue)*Saturation))), Min(255, Max(0, Luminance + (Cos(Hue - 120)*Saturation))), Min(255, Max(0, Luminance + (Cos(Hue + 120)*Saturation)))
End Function
Miten ihmeessä aina kun minä kirjoitan esimerkkeihin ja tutoihin jotain niin koko alue lamaantuu tämänkin viestin jälkeen on ollu hiljasta melkee 3 viikkoa XD