TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 17th Feb 2007 12:21

Modified: 17th Feb 2007 18:53

Author: yuri_dragon 17

Summary

Some cool 2d effects using color and lines and dots.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

randomize timer()

hide mouse

for a=1 to 640

line a,0,480,a

next a

flip bitmap 0

wait 5000

cls

for a=1 to 100

ink a*1000000,0

line rnd(640),rnd(480),rnd(640),rnd(480)

next a

cls

for a=1 to 30

ink a*10000,0

for b=1 to a+1

line  a+b*a-b,a*b+a/b,a+b/a-b,a*b-a/b

next b

next a

cls

for a=1 to 30

ink a*10000,0

for b=1 to a+1

dot a+b*a-b,a*b+a/b

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

line a+b,a-b,a*b,a/b

next b

next a

cls

ss=rnd(50)

for a=1 to 640

ink a*ss+1000*2,0

circle a,240,ss

next a

cls

ss=rnd(50)

dd=rnd(50)

ff=ss*dd

for a=1 to 640

ink a*ff+1000*2,0

circle a,240,ss

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

circle a+320,b+240,tan(sqrt(a*b*(rnd(100)+1)))

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

dot atanfull(a+rnd(10),b)+320,atanfull(b+rnd(10),a)+240

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

c=tan(a*100)

d=tan(b*100)

e=c*b

dot e+320,a+240

dot b+320,e+240

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

dot tan(a*10+100)+320,tan(b*10+100)+240

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

dot tan(a*rnd(500)+100)+320,tan(b*rnd(500)+100)+240

next b

next a

cls

for a=1 to 30

ink a*10000,0

for b=1 to a+1

line rnd(a),rnd(b),rnd(b),rnd(a)

next b

next a

cls

for a=1 to 25

ink a*10000,0

for b=1 to a+1

circle 320,240,(a+b)*10

next b

next a

cls

set cursor 320,240

print "Look at the top left corner of the screen"

wait 5000

cls

for a=1 to 30

ink a*10000,0

for b=1 to a+1

dot a,b

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

dot a*10,b*20

next b

next a

cls

for a=1 to 60

ink a*10000,0

for b=1 to a+1

line sin(a*1000),b*10,a+300,b+300

next b

next a

for a=1 to 640

line a,0,a,480

ink a*1000000,0

next a

Download

Please login to download

Comments

No comments yet.

CodeBase - Cool Effects

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	yuri_dragon 17
CodeBase Entries:	6