home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTDITHR.PRG < prev    next >
Text File  |  1989-10-03  |  3KB  |  75 lines
  1. *------------------------------------------------------------------
  2. *  DBTDITHR.PRG - DITHER demonstration
  3. *                (c) 1989 BERNATH COMPUTER
  4. *                12:45:40  10/3/1989
  5. *------------------------------------------------------------------
  6.  
  7. CALL DBTOOLS WITH "15,3"                         && store existing screen
  8. CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
  9. CALL DBTOOLS WITH "3,1,5,10,57,14,1,1,0,1"        && draw box
  10. CALL DBTOOLS WITH "1,2,15,14,1,0,D I T H E R - function 7"   && title in box
  11. SET COLOR TO W/B                                 && display box text
  12. @ 3,8 SAY "DITHER allows you to create over six hundred"
  13. @ 4,8 SAY "differently colored backdrops for your screens."
  14. @ 5,8 SAY "This is accomplished by filling the screen with"
  15. @ 6,8 SAY "the graphics characters ░ ▒ ▓ █ with various"
  16. @ 7,8 SAY "foreground and background colors to produce the"
  17. @ 8,8 SAY "desired shades."
  18. CALL DBTOOLS WITH "10,9,13,14,1"                 && pause
  19. CALL DBTOOLS WITH "3,4,7,18,74,15,3,2,0,1"      && overlay another box
  20. SET COLOR TO +W/GB                               && display box text
  21. @ 5,9 SAY "Syntax:"
  22. mPARM="CALL DBTOOLS WITH "+CHR(34)+"7,chartype,FG,BG,page"+CHR(34)
  23. @ 6,9 SAY mPARM
  24. SET COLOR TO B/GB
  25. @  8,12 SAY "where: Chartype = 0 : solid background color"
  26. @  9,30 say "1 :           ░"
  27. @  10,30 say "2 :           ▒"
  28. @  11,30 say "3 :           ▓"
  29. @  12,30 say "4 : solid foreground color"
  30. CALL DBTOOLS WITH "1,14,25,5,3,0,Watch the different shades of blue"
  31. CALL DBTOOLS WITH "1,15,25,5,3,0,in the following demo."
  32. CALL DBTOOLS WITH "10,17,30,15,3"
  33. CALL DBTOOLS WITH "4,0,0"
  34. CALL DBTOOLS WITH "7,0,9,1,0"
  35. CALL DBTOOLS WITH "6,10"
  36. CALL DBTOOLS WITH "7,1,9,1,0"
  37. CALL DBTOOLS WITH "6,10"
  38. CALL DBTOOLS WITH "7,2,9,1,0"
  39. CALL DBTOOLS WITH "6,10"
  40. CALL DBTOOLS WITH "7,3,9,1,0"
  41. CALL DBTOOLS WITH "6,10"
  42. CALL DBTOOLS WITH "7,4,9,1,0"
  43. CALL DBTOOLS WITH "6,10"
  44. CALL DBTOOLS WITH "7,1,3,1,0"
  45. CALL DBTOOLS WITH "6,10"
  46. CALL DBTOOLS WITH "7,2,3,1,0"
  47. CALL DBTOOLS WITH "6,10"
  48. CALL DBTOOLS WITH "7,3,3,1,0"
  49. CALL DBTOOLS WITH "6,10"
  50. CALL DBTOOLS WITH "7,1,11,1,0"
  51. CALL DBTOOLS WITH "6,10"
  52. CALL DBTOOLS WITH "7,2,11,1,0"
  53. CALL DBTOOLS WITH "6,10"
  54. CALL DBTOOLS WITH "7,3,11,1,0"
  55. CALL DBTOOLS WITH "6,10"
  56. CALL DBTOOLS WITH "7,4,11,1,0"
  57. CALL DBTOOLS WITH "6,10"
  58.  
  59.    mBG = 0
  60.    DO WHILE mBG < 8
  61.       mFG = 0
  62.       DO WHILE mFG < 8
  63.          mPARM = "7,2,"+STR(mFG,2)+","+STR(mBG,1)+",0"
  64.          CALL DBTOOLS WITH mPARM
  65.          CALL DBTOOLS WITH "6,5"
  66.          mFG = mFG + 1
  67.       ENDDO
  68.       mBG = mBG + 1
  69.    ENDDO
  70. CALL DBTOOLS WITH "3,9,20,11,65,15,6,1,0,1"
  71. CALL DBTOOLS WITH "1,10,23,15,6,0,And that wasn't even an eigth of 'em!"
  72. CALL DBTOOLS WITH "4,1,0"
  73. CALL DBTOOLS WITH "10,24,25,0,7"
  74. CALL DBTOOLS WITH "14,3,0"
  75. RETURN