TheGameCreators - CodeBase - 2D Mathmatical drawings

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Information

Uploaded: 23rd Feb 2009 22:44

Modified: 29th Mar 2009 21:07

Author: Caleb7

Summary

These are just a bunch of mathematical drawings that I made. They are pretty simple but fun.

Full Description

These are just a bunch of mathematical drawings that I made. They are pretty simple but fun. I called them fractals, but i'm not quite sure if they can fit under that description. It's really amazing what you can do with a bit of trig, geometry, and algebra!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 1440,900,32

sync on

sync rate 100

sc#=1

c=1

cls RGB(255,255,255)

if escapekey()=1 then end

cls

Print "3d Factoral Art"

Print "Press Right and Left Key to rotate on the Y Axes"

Print "Press Up and Down Key to rotate on the X Axes"

if rightkey()=1 then ay#=Wrapvalue(ay#+5)

if leftkey()=1 then ay#=Wrapvalue(ay#-5)

if upkey()=1 then ax#=Wrapvalue(ax#-5)

if downkey()=1 then ax#=Wrapvalue(ax#+5)

if keystate(32)=1 then az#=Wrapvalue(az#+5)

if keystate(30)=1 then az#=Wrapvalue(az#-5)

if ay#=0 then ay#=1

if ay#=360 then ay#=1

for a=1 to 720

x=((cos(Wrapvalue(a+az#))*(a/10))*sc#)*cos(ay#)

y=(sin(Wrapvalue(a+az#))*(a/10))*sc#*sin(ax#)

dot -x+screen width()/2,-y+screen height()/2,color

next a

if a>1080 then a=0 : inc c

color=RGB(0,255-c,0)

if returnkey()=1 then exit

sync

loop

wait 1000

cls

c=0

sc#=1

a=0

c=1

cls RGB(255,255,255)

if escapekey()=1 then end

inc a

sca#=Wrapvalue(sca#+1)

sc#=cos(sca#)*3

x2=(cos(Wrapvalue(a))*(a/10))*(-sc#)*c

y2=(sin(Wrapvalue(a))*(a/10))*(-sc#)*c

x=(cos(Wrapvalue(a))*(a/10))*sc#*c

y=(sin(Wrapvalue(a))*(a/10))*sc#*c

dot -x+screen width()/2,-y+screen height()/2,color

dot -x2+screen width()/2,-y2+screen height()/2,color

if a>1080 then a=0 : inc c

color=RGB(0,255/c,0)

if returnkey()=1 then exit

sync

loop

wait 1000

cls

c=0

sc#=1

a=0

if escapekey()=1 then end

inc a

sca#=Wrapvalue(sca#+1)

sc#=cos(sca#)*3

x2=(cos(Wrapvalue(a))*(a/10))*(-sc#)

y2=(sin(Wrapvalue(a))*(a/10))*(-sc#)

x=(cos(Wrapvalue(a))*(a/10))*sc#

y=(sin(Wrapvalue(a))*(a/10))*sc#

dot -x+screen width()/2,-y+screen height()/2,color

dot -x2+screen width()/2,-y2+screen height()/2,color

if a>2420 then a=0 : inc c

color=RGB(0,255/((a/2420)+1),0)

if returnkey()=1 then exit

sync

loop

wait 1000

cls

a=0

c=0

sc#=1

if escapekey()=1 then end

inc a

sc#=Wrapvalue(a)/10

x=(cos(Wrapvalue(a))*(a/10))*sc#

y=(sin(Wrapvalue(a))*(a/10))*sc#

dot -x+screen width()/2,-y+screen height()/2,color

if a>2420 then a=0 : inc c

if c=0 then color=RGB(255,255,255)

if c=1 then color=RGB(128,255,255)

if c=2 then color=RGB(0,128,192)

if c=3 then color=RGB(64,0,128)

if c=4 then color=RGB(0,0,255)

if c=5 then color=RGB(0,255,255)

if c=6 then color=RGB(0,64,128)

if returnkey()=1 then exit

sync

loop

wait 1000

cls

c=0

a=0

sc#=1

if escapekey()=1 then end

inc a

x=(cos(Wrapvalue(a))*(a/10))*sc#

y=(sin(Wrapvalue(a))*(a/10))*sc#

dot -x+screen width()/2,-y+screen height()/2,color

if a>2420 then a=0 : inc sc#,0.05 : inc c

if c=0 then color=RGB(255,255,255)

if c=1 then color=RGB(128,255,255)

if c=2 then color=RGB(0,128,192)

if c=3 then color=RGB(64,0,128)

if c=4 then color=RGB(0,0,255)

if c=5 then color=RGB(0,255,255)

if c=6 then color=RGB(0,64,128)

if returnkey()=1 then exit

sync

loop

a=0

c=0

wait 1000

cls

for a=0 to 1080

x=cos(Wrapvalue(a))*(a/10)

y=sin(Wrapvalue(a))*(a/10)

dot -x+screen width()/2,-y+screen height()/2

sync

next a

sync

suspend for key

cls

for x=-40 to 40

y=(x*ABS(x))/20

dot -x+screen width()/2,-y+screen height()/2

sync

next x

sync

suspend for key

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Caleb7
CodeBase Entries:	6

CodeBase - 2D Mathmatical drawings

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments