home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / DATA / RAST2.DAT < prev    next >
Text File  |  1987-04-22  |  2KB  |  49 lines
  1. Hi..I just want to say that I have put another raster source code in
  2. the PROGRAMM folder, this routine displays a nice rainbow type
  3. effect all the way down the screen, applications for such and
  4. effect are few and far between, but it does make dull statics
  5. picture more interesting, such as high score tables and info
  6. screens that don't require loads of processor time to move
  7. sprites around.
  8.  The source code is called RAST2.BAS. Okay.
  9.  
  10. EB20101990 Yeah........
  11.  
  12. I'm back, the date is 28 January 1991, and i must tell you about 
  13. another raster routine I have put on the disk - called raster3.bas.
  14. this is more clever than the others, because it is cycling, ie the 
  15. colours spin round and round, the only problem is that it takes almost 
  16. a whole vbl to do
  17. so theres not any time for sprites etc, put as I said above, this 
  18. type of routine is great for static screens, for instant, when I was 
  19. coding this routine
  20. I had a screen in memory that had lots of fonts on, and I had the 
  21. raster in colour index 1,($ff8242), so the colour of the font was
  22.  constantly cycling!!
  23.  
  24. The cycling is done by placing the RGB value of the colours 
  25. required into a array, from this array you can call the RGB value 
  26. into the address of the required colour index thus producing a 
  27. coloured bar. The whole colour array can then be shifted one 
  28. place along using the SWAP command, and the end value is copied 
  29. to first like this:
  30.  
  31. dim col(30) : set up array of 30 colours.
  32. .
  33. .
  34. .
  35. .
  36. for k=1 to 30
  37. swap col(k),col(k+1) : shift colour table.
  38. col(30)=col(1)
  39. next k
  40. .
  41. .
  42. to see it in action boot up STOS and load RASTER.BAS
  43. and compile the source.
  44.  You will notice that moving the mouse will interupt the rasters, 
  45. to stop this you need to compile with compiler checks OFF, this 
  46. helps but you still get the odd jerk.
  47.  
  48. }
  49.