home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
falcon
/
program
/
jagdem_s
/
graphics
/
jsd.gfa
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Atari
|
1994-03-31
|
1KB
|
41 lines
'
' Plasma SCROLLER y-sine data creation thingy
'
' by <Genie!> of Network trash.
'
mem#=&H30000
y#=0
x#=0
sin_height#=130-(16+2)
start#=mem#
length#=mem#
sin_height#=sin_height#/2
FOR deg#=1 TO 360 STEP 0.75
' angles in radians rather than degrees, so convert those.
theta#=(deg#/360)*(2*PI)
y#=INT(sin_height#-(COS(theta#)*sin_height#))
' y=y+(SIN(x)*5)
PLOT x#,y#
x#=x#+1
x#=x# MOD 360
' p=y MOD 64
POKE mem#,y#
mem#=mem#+1
NEXT deg#
' sin_height=sin_height*0.75
FOR deg#=1 TO 360 STEP 1
' angles in radians rather than degrees, so convert those.
theta#=(deg#/360)*(2*PI)
y#=INT(sin_height#-(COS(theta#)*sin_height#))
' y=y+(SIN(x)*5)
PLOT x#,y#
x#=x#+1
x#=x# MOD 360
' p=y MOD 64
POKE mem#,y#
mem#=mem#+1
NEXT deg#
length#=mem#-length#
PRINT length#
BSAVE "a:\graphics\jsd.dat",start#,length#