[DarkBASIC Professional] Ah. Ah. Ah code snippet that ruined my desktop. Until I refreshed the screen.

Author

Message

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 31st Oct 2007 22:57

Link

+ Code Snippet

Randomize Timer()

Dim Cent(255,359) as Integer
Centx = 25
Centy = 25

For rad = 0 to 255
For ang = 0 to 359
col = int(rnd(rad))
Dot sin(ang)*rad,-cos(ang)*rad,RGB(col,col,col)
Next ang
Next rad

Wait Key

This isn't a sig. It's me disguised a sig. Can you get me out?

Back to top

Profile PM Email Website

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 2nd Nov 2007 18:05

Link

Funny effect. But you shouldn't use this trigonometric angle-algorithm but rather calculate the distance of each point within the draw-range to the center, that should be a bit faster... and apart from that use lock pixels or memblocks.

Changed it a bit.. really just a bit.

+ Code Snippet

Randomize Timer()

sync on
sync rate 30

Dim Cent(255,359) as Integer
Centx = 25
Centy = 25


For rad = 0 to 255
   lock pixels
   For ang = 0 to 359
      col = rnd(rad)
      Dot sin(ang)*rad+320,240-cos(ang)*rad,RGB(col,col,col)
      if escapekey() then end
   Next ang
   unlock pixels
   sync
   if escapekey() then end
Next rad


Wait Key

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Nov 2007 18:26

Link

What's the array for? Looks cool anyway.

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 5th Nov 2007 17:59

Link

Zotoaster - Good point. It isn't called again in the program, so it hasn't got any real use (apart from slowing the program down tremendously)

Your signature has been erased by a hyper-intelligent pan-dimensional being (a mod)

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 26th Nov 2007 01:25

Link

quite cool.

More DBC-friendly version though:

+ Code Snippet

Randomize Timer()

sync on
sync rate 30

Centx = 25
Centy = 25


For rad = 0 to 255
   For ang = 0 to 359
      col = rnd(rad)
		ink rgb(col,col,col),0
      Dot sin(ang)*rad+320,240-cos(ang)*rad
      if escapekey() then end
   Next ang
   sync
   if escapekey() then end
Next rad


Wait Key

what does lock pixels do? I got rid of it but I'm not sure what it actually got rid of...

Back to top

Profile PM Website

MonoCoder

18

Years of Service

User Offline

Joined: 4th Dec 2005

Location: england

Posted: 26th Nov 2007 20:15

Link

Behold, a tunnel carved in thy name.

+ Code Snippet

Set display mode 1024, 768, 32
Randomize Timer()

sync on
sync rate 0

Centx# = 0


For rad = 0 to 800
   lock pixels
   For ang = 0 to 1436
      col = 128 + rnd(rad/4.00)
      Dot sin(ang/4.0)*rad+512+(cos(centx#)*200),384-cos(ang/4.0)*rad,RGB(col,col,col)
   Next ang
   unlock pixels
   sync
   centx# =wrapvalue( centx# + 1.4 )
Next rad

Sync : Sync
Wait Key

@db: locking pixels speeds up 2d drawing.

EBA; FUI; Mario Land Ripoff.
Every time you post a joke in the form of code, mace yourself.

Back to top

Profile PM Email

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 29th Nov 2007 15:19

Link

uh..woo

I suck at trig cause I haven't used it a lot, but its very fun.

+ Code Snippet

Randomize Timer()

  sync on:sync rate 30

   Centx=20
   Centy=25

   for rad=0 to 300
    for ang= 0 to 350
     col= rnd(rad)
    ink rgb(col,col,col),0
     Dot sin(ang)*rad+350,250-cos(ang)*rad
     Dot sin(ang)*rad+200,340-cos(ang)*rad
     Dot sin(ang)*rad+200,200-cos(ang)*rad/20
      if escapekey() then end
       Next ang
        sync
       if escapekey() then end
         Next rad

Coffee coffee coffee coffee coffee coffee cappacino, JAVA!

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DarkBASIC Professional] Ah. Ah. Ah code snippet that ruined my desktop. Until I refreshed the screen.