### Author Topic: Short Intro Challenge Sine Dots  (Read 3248 times)

0 Members and 1 Guest are viewing this topic.

#### Shockwave

• good/evil
• Founder Member
• DBF Aficionado
• Posts: 17376
• Karma: 497
• evil/good
##### Short Intro Challenge Sine Dots
« 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\$<>""`
Shockwave ^ Codigos
Challenge Trophies Won:

#### Optimus

• DBF Aficionado
• Posts: 2452
• Karma: 128
##### Re: Short Intro Challenge Sine Dots
« Reply #1 on: June 11, 2006 »
I like that one too!
Challenge Trophies Won:

#### Tetra

• DBF Aficionado
• Posts: 2532
• Karma: 83
• Pirate Monkey!
##### Re: Short Intro Challenge Sine Dots
« Reply #2 on: June 12, 2006 »
Looks nice, i like the cool colors usedÂ
« Last Edit: June 12, 2006 by Tetra »
Challenge Trophies Won:

#### Shockwave

• good/evil
• Founder Member
• DBF Aficionado
• Posts: 17376
• Karma: 497
• evil/good
##### Re: Short Intro Challenge Sine Dots
« Reply #3 on: June 12, 2006 »
Thanks, I wasn't going to post this but I liked the movements (accidental).
Shockwave ^ Codigos
Challenge Trophies Won:

#### Tetra

• DBF Aficionado
• Posts: 2532
• Karma: 83
• Pirate Monkey!
##### Re: Short Intro Challenge Sine Dots
« Reply #4 on: June 12, 2006 »
Looking at it again, the movement of those lines are really cool, its almost 3dÂ
Challenge Trophies Won:

#### Rbz

• Founder Member
• DBF Aficionado
• Posts: 2721
• Karma: 484
##### Re: Short Intro Challenge Sine Dots
« Reply #5 on: June 13, 2006 »
Very hypnotic
Challenge Trophies Won:

#### Rattrapmax6

• Atari ST
• Posts: 131
• Karma: 5
• World Wild Web Stallion
##### Re: Short Intro Challenge Sine Dots
« Reply #6 on: June 17, 2006 »
Nice, reminds me of one of those electric-lightning lamps....

>> >> *Grabs monitor w/ demo playing* >>  >> "Oops"...
-Rattra (x.t.r.GRAPHICS)

#### Shockwave

• good/evil
• Founder Member
• DBF Aficionado
• Posts: 17376
• Karma: 497
• evil/good
##### Re: Short Intro Challenge Sine Dots
« Reply #7 on: June 17, 2006 »
Thnx peeps
Shockwave ^ Codigos
Challenge Trophies Won:

#### Clyde

• A Little Fuzzy Wuzzy
• DBF Aficionado
• Posts: 7271
• Karma: 71
##### Re: Short Intro Challenge Sine Dots
« Reply #8 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.
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.

Challenge Trophies Won:

#### cirux

• Atari ST
• Posts: 129
• Karma: 4
##### Re: Short Intro Challenge Sine Dots
« Reply #9 on: June 19, 2006 »
Thats really a cool effect, nice work.

#### Shockwave

• good/evil
• Founder Member
• DBF Aficionado
• Posts: 17376
• Karma: 497
• evil/good
##### Re: Short Intro Challenge Sine Dots
« Reply #10 on: June 20, 2006 »
Thanks guys
Shockwave ^ Codigos
Challenge Trophies Won:

#### relsoft

• DBF Aficionado
• Posts: 3303
• Karma: 47
##### Re: Short Intro Challenge Sine Dots
« Reply #11 on: June 21, 2006 »
Cool!! I like the motion blur effect. :*)
Challenge Trophies Won: