home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PROG / RMAST37.ZIP / DEMO3.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-04  |  1.3 KB  |  54 lines
  1. '* ************************************************************* *
  2. '* demo3.bas For QuickBASIC - Demonstrates how to set palettes   *
  3. '*                                                               *
  4. '* Use the RM to create palette tables.                          *
  5. '* ************************************************************* *
  6.  
  7. DEFINT A-Z
  8. DECLARE SUB SETRGB (C%, r%, g%, b%)
  9. DECLARE SUB DRAWBARS ()
  10. DECLARE SUB WAITFORKEY ()
  11.  
  12. SCREEN 12
  13.  
  14. DRAWBARS
  15. WAITFORKEY
  16.  
  17. FOR i = 0 TO 15
  18.    READ r, g, b
  19.    SETRGB i, r, g, b
  20. NEXT
  21.  
  22. LOCATE 20, 40
  23. PRINT "NEW PALETTE"
  24.  
  25. WAITFORKEY
  26.  
  27. ' BASIC Palette Source, 16 Colors (RGB)
  28.  
  29. DATA &H00,&H00,&H00,&H3F,&H15,&H15,&H3F,&H18,&H18,&H3F,&H1B,&H1B
  30. DATA &H3F,&H1E,&H1E,&H3F,&H21,&H21,&H3F,&H24,&H24,&H3F,&H27,&H27
  31. DATA &H3F,&H2A,&H2A,&H3F,&H2D,&H2D,&H3F,&H30,&H30,&H3F,&H33,&H33
  32. DATA &H3F,&H36,&H36,&H3F,&H39,&H39,&H3F,&H3C,&H3C,&H3F,&H3F,&H3F
  33.  
  34. SUB DRAWBARS STATIC
  35.  numcolors = 16
  36.  barwidth = 640 / numcolors
  37.  barheight = 480 / 2
  38.  FOR i = 0 TO 15 STEP 1
  39.     LINE (i * barwidth, 0)-(i * barwidth + barwidth, barheight), i, BF
  40.  NEXT i
  41. END SUB
  42.  
  43. DEFSNG A-Z
  44. SUB SETRGB (C%, r%, g%, b%) STATIC
  45.   PALETTE C%, 65536 * b% + 256 * g% + r%
  46. END SUB
  47.  
  48. DEFINT A-Z
  49. SUB WAITFORKEY STATIC
  50.   DO
  51.   LOOP WHILE INKEY$ = ""
  52. END SUB
  53.  
  54.