home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 4
/
AUCD4.iso
/
acornuser
/
1998
/
nov1998
/
regulars
/
StarInfo
/
Stoner
/
Cauldron
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1997-11-21
|
633b
|
36 lines
Ripple Sim
" in ";
27:step%=-6:
<>27
12:step%=-8
):max%=199:size%=320:
rx%(max%),ry%(max%),rc%(max%),rs(max%)
r%(15),g%(15):
makecolor:
a%=0
max%:rx%(a%)=
(1280):ry%(a%)=
(1024):rc%(a%)=
(15):rs(a%)=
(1)*.5+.5:
colors
s%=size%
step%:
i%=0
max%-1:
s%*rs(i%)>2
rc%(i%):
rx%(i%),ry%(i%),
(s%*rs(i%)):rc%(i%)=rc%(i%)-1+(14
rc%(i%)=-1):
colors:
colors:
makecolor:
7:g%(a%)=128+a%*15:g%(15-a%)=128+a%*15:r%(a%)=a%*31:r%(15-a%)=a%*31:
a%,r%(a%),g%(a%),0:
15-a%,r%(a%),g%(a%),0:
colors:t%=
/7.6:
(a%+t%)
15,r%(a%),g%(a%),0: