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

0 Members and 1 Guest are viewing this topic.

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17375
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
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:

Offline Optimus

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

Offline Tetra

  • DBF Aficionado
  • ******
  • Posts: 2532
  • Karma: 83
  • Pirate Monkey!
    • View Profile
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:

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17375
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
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:

Offline Tetra

  • DBF Aficionado
  • ******
  • Posts: 2532
  • Karma: 83
  • Pirate Monkey!
    • View Profile
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  ;D
Challenge Trophies Won:

Offline Rbz

  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 2715
  • Karma: 484
    • View Profile
    • http://www.rbraz.com/
Re: Short Intro Challenge Sine Dots
« Reply #5 on: June 13, 2006 »
Very hypnotic    8)
Challenge Trophies Won:

Offline Rattrapmax6

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

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

Offline Shockwave

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

Offline Clyde

  • A Little Fuzzy Wuzzy
  • DBF Aficionado
  • ******
  • Posts: 7271
  • Karma: 71
    • View Profile
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:

Offline cirux

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

Offline Shockwave

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

Offline relsoft

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