home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / mutt / color.mut < prev    next >
Text File  |  1988-02-26  |  892b  |  27 lines
  1.     ; color.mut: play with screen colors on CGA or EGA
  2.     ;    C Durland
  3. (int fg bg mfg mbg)
  4. (defun
  5.   paint HIDDEN
  6.   {
  7.     (int tcolor mcolor)
  8.     (tcolor (+ (* bg 16) fg))(mcolor (+ (* mbg 16) mfg))
  9.     (text-color tcolor)(modeline-color mcolor)(update)
  10.     (msg "foreground color: " fg " background color: " bg
  11.     "  total = " tcolor " "
  12.     "modeline: " mfg " " mbg " => " mcolor)
  13.   }
  14.   inc-color { (int x) (if (> (x (+ (arg 0) 1)) (arg 1)) (x 0)) (x) }
  15.   fgcolor {  (fg  (inc-color fg  15))(paint) }
  16.   bgcolor {  (bg  (inc-color bg   7))(paint) }
  17.   fgmcolor { (mfg (inc-color mfg 15))(paint) }
  18.   bgmcolor { (mbg (inc-color mbg  7))(paint) }
  19. )
  20. (bind-local-key "fgcolor" "F-3")
  21. (bind-local-key "bgcolor" "F-4")
  22. (bind-local-key "fgmcolor" "F-7")
  23. (bind-local-key "bgmcolor" "F-8")
  24. (fg 7)(mfg 7)
  25. (msg
  26. "f3 to change forground color, f4 to change background. f7 & f8 for modeline")
  27.