Ooops, sorry, not exactly the wanted result. This is what happens when working
on 3 things at the same time. ;)
These 2 solutions should give the correct result :
get-random-pastel: does [to-issue enbase/base to-binary 255.255.255 - random/secure
15.15.15 16]
get-random-pastel: does [skip to-hex to-integer to-binary 255.255.255 - random/secure
15.15.15 2]
Regards,
-DocKimbel.
Nenad Rakocevic wrote:
>
> KIS (Keep It Simple):
>
> get-random-pastel: does [mold to-binary 255.255.255 - random/secure 15.15.15]
>
> HTH,
> -DocKimbel.
>
> [EMAIL PROTECTED] wrote:
> >
> > I recently "needed" (as in wanted on a whim) a varying range of pastel colors
> > for a HTML table.
> >
> > The code I came up with to convert a rebol tuple (eg 255.0.255) into a HTML
> > color spec (#FF00FF) is ungainly to say the least.
> >
> > Any ideas for a better way? Thanks,
> > Sunanda.
> >
> > ;; ==================
> > get-random-pastel: func [/local t1 t2] [
> > ;; ==================
> >
> > t1: 255.255.255 - random/secure 15.15.15
> > t2: mold to-binary join to-char t1/1 [to-char t1/2 to-char t1/3]
> > replace t2 "{" ""
> > replace t2 "}" ""
> > return t2
> > ]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
