The affect of achohol on RGB values

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|529\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> The affect of achohol on RGB values
Fri, 04 May 2007, 16:23
Blitz3Dman	Creepy! Well, I wrote it so why am I saying that? Const gw=800,gh=600 Graphics gw,gh,0,1 SeedRnd MilliSecs() Global x,y,min=0,total=17,c Repeat Color 0,0,0 Rect 0,0,gw,gh set1=Rand(min,total) set2=Rand(min,total) set3=Rand(min,total) For x=0 To gw For y=0 To gh If KeyDown(1) Then End r=do(set1) g=do(set2) b=do(set3) Color r,g,b Plot x,y Next Next WaitKey If KeyDown(1) Then End FlushKeys Forever End Function Do(set) Select set Case 0:c=y:If c>255 Then c=255 Case 1:c=Sin(x-y)255 Case 2:c=xy Case 3:c=x255/gw Case 4:c=Sin(x)Cos(y)255 Case 5:c=50+(y/6) Case 6:c=Cos(x)Cos(y)255 Case 7:c=Cos(x)Sin(y)255 Case 8:c=Cos(x)Cos(y)Sin(x)Sin(y)255 Case 9:c=Sin(xy)255 Case 10:c=y Shr x255 Case 11:SeedRnd MilliSecs():c=Rand(0,255) Case 12:c=Sqr(xy)-50 Case 13:c=xySqr(x)Pi Case 14:c=y*Sqr(y)+x Case 15:c=y+x Case 16:c=c+Pi Case 17:c=c^1.8:If c=<1 Then c=2 End Select Return c End Function --v funky screenies coming soon! -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Fri, 04 May 2007, 16:26
steve_ancell	It looks more like the effects of alcohol with camera flash blindness thrown in for good measure.
Fri, 04 May 2007, 16:27
mike_g	Nice one
Fri, 04 May 2007, 16:29
Blitz3Dman	(screens scaled down to half size) -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Fri, 04 May 2007, 16:30
JL235	I found a similar effect years ago and was working on using it with images. It was quite good, and wanted to attempt to make it into a full screen effect to use in real-time.
Fri, 04 May 2007, 18:10
Jayenkai	Sorry, couldn't resist fiddling! Now with added BrainMelt. Don't stare too long. The Right/Left thing messes with your head!! Const gw=800,gh=600 Graphics gw,gh,0,1 SeedRnd MilliSecs() SetBuffer BackBuffer() Global x,y,min=0,total=17,c Repeat Color 0,0,0 Rect 0,0,gw,gh set1=Rand(min,total) set2=Rand(min,total) set3=Rand(min,total) splithigh=Rand(10,gh-10) splitgot=Rand(-1,1) Repeat x=x+1 For y=0 To gh If KeyDown(1) Then End r=do(set1) g=do(set2) b=do(set3) Color r,g,b Plot gw-1,y Next splithigh=splithigh+splitgo If Rand(1,50)=1 Then splitgo=Rand(-2,2) If splithigh<10 Then splithigh=10:splitgo=1 If splithigh>gh-10 Then splithigh=gh-10:splitgo=-1 CopyRect 1,0,gw-1,gh,0,0,BackBuffer(),BackBuffer() CopyRect 1,1,gw/2,splithigh,0,0,BackBuffer(),BackBuffer() CopyRect 1,splithigh-1,gw/2,gh-splithigh,0,splithigh,BackBuffer(),BackBuffer() Flip If KeyDown(1) Then End Until KeyDown(57) FlushKeys Forever End Function Do(set) Select set Case 0:c=y:If c>255 Then c=255 Case 1:c=Sin(x-y)255 Case 2:c=xy Case 3:c=x255/gw Case 4:c=Sin(x)Cos(y)255 Case 5:c=50+(y/6) Case 6:c=Cos(x)Cos(y)255 Case 7:c=Cos(x)Sin(y)255 Case 8:c=Cos(x)Cos(y)Sin(x)Sin(y)255 Case 9:c=Sin(xy)255 Case 10:c=y Shr x255 Case 11:SeedRnd MilliSecs():c=Rand(0,255) Case 12:c=Sqr(xy)-50 Case 13:c=xySqr(x)Pi Case 14:c=y*Sqr(y)+x Case 15:c=y+x Case 16:c=c+Pi Case 17:c=c^1.8:If c=<1 Then c=2 End Select Return c End Function --v -=-=- ''Load, Next List!''
Fri, 04 May 2007, 18:13
Blitz3Dman	Eh... where's the Livda...? ... ... Unghh.... my daeh.... guh? ... hiccup -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Fri, 04 May 2007, 19:33
blanko1324	Cool, now I know what an acid trip feels like. Very nice B3Dman. -=-=- My Twitter
Sat, 05 May 2007, 04:32
bram32	Looks cool, this
Sat, 05 May 2007, 10:56
Blitz3Dman	Hey, people, no using the images unless you have my permission. My mum says some of them would be good to sell to these online image peoples . -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sat, 05 May 2007, 11:13
Paul	Nice Blitz3Dman, pretty cool effect.
Sat, 05 May 2007, 21:47
Nolan	Hey, people, no using the images unless you have my permission. My mum says some of them would be good to sell to these online image peoples . You're joking, right? -=-=- nolandc.com
Sat, 05 May 2007, 22:02
blanko1324	I don't think your mom knows what people are after in this kind of business. -=-=- My Twitter
Sun, 06 May 2007, 07:49
Blitz3Dman	She says there's these online image people who sell backgrounds for a couple dollars and you can sell them more backgrounds and I think you gain part of the sale price for every buyer. No, I'm not kidding; her job involves a lot of stuff like this so I think she probably knows what she's doing. And she said to make it better, to also add a random mask with a random trasparency to it. And she thinks we can use a white mask to make Easter themed images. @Nolan Just want to be safe so some fool doesn't put them on himself. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 06 May 2007, 08:57
JL235	If you don't want people to distribute these images (and their pretty easy to re-create), do not put them into the public domain. But I really don't think it's an issue.
Sun, 06 May 2007, 09:13
mike_g	Don't worry B3Dman, I don't think any of us is going to try and sell them