Dark Bit Factory & Gravity

GENERAL => Challenges & Competitions => Topic started by: Shockwave on June 11, 2006

Title: Short Intro Challenge Sine Dots
Post by: Shockwave on June 11, 2006

Two lines can be saved here, originally this was in 18 lines but I expanded it to 20 to get a speed gain.
This gives some really nice looking sine shade dots with a slight motion blur.

Code: [Select]

#Include Once "tinyptc.bi"
 If( ptc_open( "20 LINE SINE DOTS BY SHOCKWAVE^DBF", 640, 480 ) = 0 ) Then End
 dim shared buffer(640*481) as integer , buffer2(640*481) as integer, colours(500) as integer
 for a=1 to 500
     colours(a)=rgb(a shr 3,a shr 2,a shr 1)
 next
 do             
     gadd=gadd+1
     for a=1 to 25000         
         X=(320+(319*sin((a+gadd)/150)))+((39*sin(GADD/180))*sin((a+gadd)/190))
         Y=(240+(139*cos((a-gadd)/145))+((39*sin(GADD/99))*cos((a-gadd)/45)))                           
         buffer2(X+(Y*640)) = buffer2(X+(Y*640))+100
         if buffer2(X+(Y*640)) > 500 then buffer2(X+(Y*640)) = 500
     next
     for a=0 to 640*480
         buffer(a)=colours(buffer2(a))
         buffer2(a) = buffer2(a) * .70         
     next
 ptc_update@buffer(0)
 loop until inkey$<>""


Title: Re: Short Intro Challenge Sine Dots
Post by: Optimus on June 11, 2006

I like that one too!

Title: Re: Short Intro Challenge Sine Dots
Post by: Tetra on June 12, 2006

Looks nice, i like the cool colors used  :)

Title: Re: Short Intro Challenge Sine Dots
Post by: Shockwave on June 12, 2006

Thanks, I wasn't going to post this but I liked the movements (accidental).

Title: Re: Short Intro Challenge Sine Dots
Post by: Tetra on June 12, 2006

Looking at it again, the movement of those lines are really cool, its almost 3d  ;D

Title: Re: Short Intro Challenge Sine Dots
Post by: Rbz on June 13, 2006

Very hypnotic    8)

Title: Re: Short Intro Challenge Sine Dots
Post by: Rattrapmax6 on June 17, 2006

Nice, reminds me of one of those electric-lightning lamps....

>> 8) >> *Grabs monitor w/ demo playing* >>  O0 >> "Oops"...

Title: Re: Short Intro Challenge Sine Dots
Post by: Shockwave on June 17, 2006

Thnx peeps :)

Title: Re: Short Intro Challenge Sine Dots
Post by: Clyde on June 17, 2006

Now thats really clever. I didnt realize, the code posted was different from the attachment, wondered why people had movement and I didnt. Thats smart mate.

Title: Re: Short Intro Challenge Sine Dots
Post by: cirux on June 19, 2006

Thats really a cool effect, nice work.

Title: Re: Short Intro Challenge Sine Dots
Post by: Shockwave on June 20, 2006

Thanks guys :)

Title: Re: Short Intro Challenge Sine Dots
Post by: relsoft on June 21, 2006

Cool!! I like the motion blur effect. :*)