home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
falcon
/
program
/
jagdem_s
/
graphics
/
jpr.gfa
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Atari
|
1994-03-31
|
1KB
|
40 lines
'
' Plasma RED bit y-sine data creation thingy
'
' by <Genie!> of Network trash.
'
mem#=&H30000
y#=0
x#=0
sin_height#=130
start#=mem#
length#=mem#
sin_height#=sin_height#/2
FOR deg#=1 TO 360 STEP 0.2
' 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#,p#
mem#=mem#+1
NEXT deg#
FOR deg#=1 TO 360 STEP 0.4
' 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#,p#
mem#=mem#+1
NEXT deg#
length#=mem#-length#
PRINT length#
BSAVE "a:\graphics\jpr.dat",start#,length#