TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Aug 2004 18:41

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

wave forms of sin, cos and tan

Full Description

there's nothing much to say<br /> just if you please post any plug-ins or tools<br /> <br />

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: waves

Rem Created: 22/8/2004 10:58:04 Î¼Î¼

Rem ***** Main Source File *****

global deg,x,y,message$,real#,maxx,maxy,halfx,halfy,sec,time,inv#

global ampl_sin,ampl_tan,ampl_asin,ampl_acos#

maxx=screen width()

maxy=screen height()

halfx=maxx/2

halfy=maxy/2

hide mouse

initial_timer#=timer()

if (deg=0)then:line deg,0,deg,maxy  :print_xy_int(deg,halfx+20,deg)

if (deg=90)then:line deg,0,deg,maxy :print_xy_int(deg,halfx+20,deg)

if (deg=180)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

if (deg=270)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

if (deg=360)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

if (deg=450)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

if (deg=540)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

if (deg=630)then:line deg,0,deg,maxy:print_xy_int(deg,halfx+20,deg)

line 0,halfy,maxx,halfy

ampl_sin=sin(deg)*100

`ampl_asin=asin(deg)*100

ampl_cos=cos(deg)*100

`ampl_acos=acos(inv#)*100

ampl_tan=tan(deg)*100

ink rgb(255,0,0),0

dot time,halfy-ampl_sin

`dot time,halfy-ampl_asin

ink rgb(0,255,0),0

dot time,halfy-ampl_cos

`dot time,halfy-ampl_acos

ink rgb(0,0,255),0

dot time,halfy-ampl_tan

ink rgb(255,255,255),0

time=time+1

deg=deg+1

if (deg=maxx) then:deg=0:exit

`print_xy_int(halfx,halfy,deg)

fastsync

loop

sec=(timer()-initial_timer#)/1000

box 0,maxy-100,halfx,maxy,0,0,0,0

print_xy_message(5,maxy-80,"Sec: ")

print_xy_real(45,maxy-80,sec)

print_xy_message(5,maxy-60,"Red:    sin")

print_xy_message(5,maxy-40,"Green:  cos")

print_xy_message(5,maxy-20,"Blue:   tan")

wait key

end

function print_xy_real(x,y,real_)

set cursor x,y

print real_

endfunction

function print_xy_int(x,y,int_)

set cursor x,y

print int_

endfunction

function print_xy_int_message_real(x,y,message$,real#)

set cursor x,y

print message$

set cursor x,y+15

print real#

endfunction

function print_xy_message(x,y,message$)

set cursor x,y

print message$

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - waves

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments