home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / cancav1.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  2.3 KB  |  71 lines
  1. 11    Print"       I wrote this program to explore the different shades of colors";
  2. 12    Print" possible. If you see a shade that you want to use in a program";
  3. 13    Print" you can determine the RGB values. The red & green are";
  4. 14    Print" listed in window 1. The circle in the upper left corner has a blue";
  5. 15    Print" value of 1 increasing to 15 in the lower right circle. You can use";
  6. 16    Print" the right mouse button to pause the program."
  7. 17    Print"
  8. 18    Print"  Rick Parker, Sysop, Amiga BBS of Colorado, (303) 752-0247
  9. 19    Print"
  10. 20    for x=1 to 3000: next
  11. 25    scnclr:rgb 1,5,5,5
  12. 26    input "Timing delay";delay%
  13. 98    screen 0,5:scnclr
  14. 99    rgb 0,15,15,15
  15. 100   rgb 1,0,0,1
  16. 101   rgb 2,0,0,2
  17. 102   rgb 3,0,0,3
  18. 103   rgb 4,0,0,4
  19. 104   rgb 5,0,0,5
  20. 105   rgb 6,0,0,6
  21. 106   rgb 7,0,0,7
  22. 107   rgb 8,0,0,8
  23. 108   rgb 9,0,0,9
  24. 109   rgb 10,0,0,10
  25. 110   rgb 11,0,0,11
  26. 111   rgb 12,0,0,12
  27. 112   rgb 13,0,0,13
  28. 113   rgb 14,0,0,14
  29. 114   rgb 15,0,0,15
  30. 2000  pena 1:circle (25,25),24:paint (25,25)
  31. 2001  pena 2:circle (75,25),24:paint (75,25)
  32. 2002  pena 3:circle (125,25),24:paint (125,25)
  33. 2003  pena 4:circle (175,25),24:paint (175,25)
  34. 2004  pena 5:circle (225,25),24:paint (225,25)
  35. 2005  pena 6:circle (25,75),24:paint(25,75)
  36. 2006  pena 7:circle (75,75),24:paint(75,75)
  37. 2007  pena 8:circle (125,75),24:paint(125,75)
  38. 2008  pena 9:circle (175,75),24:paint(175,75)
  39. 2009  pena 10:circle (225,75),24:paint(225,75)
  40. 2010  pena 11:circle(25,125),24:paint(25,125)
  41. 2011  pena 12:circle(75,125),24:paint(75,125)
  42. 2012  pena 13:circle(125,125),24:paint(125,125)
  43. 2013  pena 14:circle(175,125),24:paint(175,125)
  44. 2014  pena 15:circle(225,125),24:paint(225,125)
  45. 2500  window 1,0,170,320,30,"Red and Green levels"
  46. 2510  cmd 1
  47. 3000  for red%=0 to 15
  48. 3010  for green%=0 to 15
  49. 3011  rgb 1,red%,green%,1
  50. 3012  rgb 2,red%,green%,2
  51. 3013  rgb 3,red%,green%,3
  52. 3014  rgb 4,red%,green%,4
  53. 3015  rgb 5,red%,green%,5
  54. 3016  rgb 6,red%,green%,6
  55. 3017  rgb 7,red%,green%,7
  56. 3018  rgb 8,red%,green%,8
  57. 3019  rgb 9,red%,green%,9
  58. 3020  rgb 10,red%,green%,10
  59. 3021  rgb 11,red%,green%,11
  60. 3022  rgb 12,red%,green%,12
  61. 3023  rgb 13,red%,green%,13
  62. 3024  rgb 14,red%,green%,14
  63. 3025  rgb 15,red%,green%,15
  64. 3030  print red%, spc(5);green%
  65. 3040  for timer%=0 to delay%:next timer%
  66. 3050  next green%
  67. 3060  next red%
  68. 4000  cmd 0
  69. 4010  close #1
  70. 4500  goto 25
  71.