creating a colour gradient?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|638\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> creating a colour gradient?
Sat, 03 May 2008, 05:20
spinal	ok, I'm trying to create a colour gradient, but I can't do it. I know this is a simple thing to do, I did it years ago, but it seems I can no longer remember, nor figure out how to do it. Here is my failed attempt, as you can see, its wrong ; Attempt at colour gradient Graphics 640,480,0,2 col1r=255 col1g=255 col1b=255 col2r=255 col2g=0 col2b=0 Color col1r,col1g,col1b Rect 0,0,10,10,1 Color col2r,col2g,col2b Rect 10,0,10,10,1 rdiff = col1r - col2r rstep = Abs(rdiff) / 6 gdiff = col1g - col2g gStep = Abs(gdiff) / 6 bdiff = col1b - col2b bStep = Abs(bdiff) / 6 Dim pal(6,2) pal(0,0) = colr1 pal(0,1) = colg1 pal(0,2) = colb1 For t=1 To 6 If rdiff>0 Then pal(t,0) = pal(t,0) + (rstept) Else pal(t,0) = pal(t,0) - (rstept) If gdiff>0 Then pal(t,1) = pal(t,1) + (gstept) Else pal(t,1) = pal(t,1) - (gStept) If bdiff>0 Then pal(t,2) = pal(t,2) + (bstept) Else pal(t,2) = pal(t,2) - (bStept) Color pal(t,0),pal(t,1),pal(t,2) Rect t*10,10,10,10,1 Next WaitKey() End --v -=-=- Check out my excellent homepage!
Sat, 03 May 2008, 05:33
Jayenkai	ColARed=255 ColAGreen=0 ColABlue=0 ColBRed=255 ColBGreen=255 ColBBlue=255 For n=0 To 10 Color GetPerc(ColARed,ColBRed,n10),GetPerc(ColAGreen,ColBGreen,n10),GetPerc(ColABlue,ColBBlue,n10) Rect n8,0,8,8,1 Next ColARed=0 ColAGreen=0 ColABlue=0 ColBRed=0 ColBGreen=0 ColBBlue=255 For n=0 To 10 Color GetPerc(ColARed,ColBRed,n10),GetPerc(ColAGreen,ColBGreen,n10),GetPerc(ColABlue,ColBBlue,n10) Rect n8,8,8,8,1 Next ColARed=255 ColAGreen=255 ColABlue=0 ColBRed=255 ColBGreen=160 ColBBlue=0 For n=0 To 10 Color GetPerc(ColARed,ColBRed,n10),GetPerc(ColAGreen,ColBGreen,n10),GetPerc(ColABlue,ColBBlue,n10) Rect n8,16,8,8,1 Next Function GetPerc(A,B,Perc) Return (((B-A)*Perc)/100)+A End Function --v -=-=- ''Load, Next List!''
Sat, 03 May 2008, 06:42
spinal	dammit JAy, your too fast! Now to convert it to palib/c -=-=- Check out my excellent homepage!
Sat, 03 May 2008, 06:48
Jayenkai	Only because I was just using something similar to fade between grass and sand color on my little racer.. -=-=- ''Load, Next List!''