home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / acornuser / 1998 / nov1998 / regulars / StarInfo / Stoner / Cauldron (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1997-11-21  |  633b  |  36 lines
  1.  Ripple Sim
  2. " in ";
  3. 27:step%=-6:
  4. <>27 
  5. 12:step%=-8
  6. ):max%=199:size%=320:
  7.  rx%(max%),ry%(max%),rc%(max%),rs(max%)
  8.  r%(15),g%(15):
  9. makecolor:
  10.  a%=0 
  11. max%:rx%(a%)=
  12. (1280):ry%(a%)=
  13. (1024):rc%(a%)=
  14. (15):rs(a%)=
  15. (1)*.5+.5:
  16. colors
  17.  s%=size% 
  18.  step%:
  19.  i%=0 
  20.  max%-1:
  21.  s%*rs(i%)>2 
  22. rc%(i%):
  23. rx%(i%),ry%(i%),
  24. (s%*rs(i%)):rc%(i%)=rc%(i%)-1+(14
  25. rc%(i%)=-1):
  26. colors:
  27. colors:
  28. makecolor:
  29. 7:g%(a%)=128+a%*15:g%(15-a%)=128+a%*15:r%(a%)=a%*31:r%(15-a%)=a%*31:
  30. a%,r%(a%),g%(a%),0:
  31. 15-a%,r%(a%),g%(a%),0:
  32. colors:t%=
  33. /7.6:
  34. (a%+t%)
  35. 15,r%(a%),g%(a%),0:
  36.