le 21/03/01 17:30, Yariv Alter Fin à [EMAIL PROTECTED] a écrit :
> Hi all, just sent it to Christèle and thought the rest of the 3000
> are entitled for a peak too.
>
> here is the extracted HSV to RGB formula:
>
> ---- <snip> -------
> on HSV2RGB hue,sat,val -- tint degrees / saturation / value (0-360,0-1,0-1)
> mymod=1.0000*((10000*hue) mod (10000*60))/10000 -- special thanx to
> Roy Crisman for the feedback...
> posval=integer(1.0000*(mymod)/60*255)
> negval=integer(1.0000*(60-(mymod))/60*255)
> if hue<60 then col=rgb(255,posval,0)
> if hue>=60 then col=rgb(negval,255,0)
> if hue>=120 then col=rgb(0,255,posval)
> if hue>=180 then col=rgb(0,negval,255)
> if hue>=240 then col=rgb(posval,0,255)
> if hue>=300 then col=rgb(255,0,negval)
> wcol=rgb((255*(1-sat)+col.red*sat), (255*(1-sat)+col.green*sat),
> (255*(1-sat)+col.blue*sat))
> return
> rgb((0*(1-val)+wcol.red*val),(0*(1-val)+wcol.green*val),(0*(1-val)+wcol.blue*v
> al))
> end
> ---- <snap> --------
>
> Currently working on the same formula, only the other way around.
> this will allow sending color objects back to the ColorWheel and have
> it set itself to these colors.
>
> Ciao,
>
> Yariv
>
> -- <snoop> --
>> Hi Christèle,
>>
>>>> If TSL is the same as HSV then you might ask Yariv.
>> It is
>>
>>>>
>>> What is his E-mail?
>>
>> try : Yariv Alter Fin <[EMAIL PROTECTED]>
>>
>>
>> HTH,
>> Séb
>>
>>
>> [To remove yourself from this list, or to change to digest mode, go to
>> http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
>> email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
>> Lingo-L is for learning and helping with programming Lingo. Thanks!]
>
>
> [To remove yourself from this list, or to change to digest mode, go to
> http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
> email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
> Lingo-L is for learning and helping with programming Lingo. Thanks!]
>
Thanks
Christèle
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
