home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w055 / 4.ddi / SOURCES.LIF / COLORS.PEL < prev    next >
Encoding:
Text File  |  1990-09-27  |  6.8 KB  |  256 lines
  1. # $Header:   P:/source/ppee/macros/colors.pev   1.19   12 Jun 1990 15:15:04   skipr  $
  2.  
  3. ##############################################################################
  4. #
  5. #           Sage Software - POLYTRON Division
  6. #             1700 NW 167th Place
  7. #               Beaverton, OR 97006
  8. #
  9. #   Copyright 1990, Sage Software, Inc.
  10. #
  11. #   Permission is hereby granted for licensed users of Sage Professional
  12. #   Editor and PolyAwk to copy and modify this source code for their own
  13. #   personal use.  These derivative works may be distributed only to other
  14. #   licensed Sage Professional Editor and PolyAwk users.  All other usage
  15. #   is prohibited without express written permission from Sage Software.
  16. #
  17. ##############################################################################
  18.  
  19. #### $Workfile:   colors.pel  $: 
  20. #
  21. # colors for windows:
  22. #
  23. # These colors are accessed via select_color(), which returns color
  24. # codes compatible with color_text, color_messages, etc.
  25. #
  26. # For compatibility with mono displays, select_color() always returns
  27. # codes for black on white unless/until initColors() is called.
  28. #
  29.  
  30. local A_BLACK        = 0    # foreground or background
  31. local A_BLUE        = 1
  32. local A_GREEN        = 2
  33. #local A_CYAN        = 3
  34. local A_RED        = 4
  35. #local A_MAGENTA    = 5
  36. #local A_BROWN        = 6
  37. #local A_LIGHTGREY     = 7
  38. local A_WHITE        = 7
  39.  
  40. #local A_GREY        = 8    # high-intensity foreground 
  41. #local A_DARKGREY    = 8    # or blinking background
  42. #local A_LIGHTBLUE    = 9
  43. #local A_LIGHTGREEN    = 10
  44. #local A_LIGHTCYAN    = 11
  45. #local A_LIGHTRED    = 12
  46. #local A_LIGHTMAGENTA    = 13
  47. #local A_LIGHTBROWN    = 14
  48. #local A_YELLOW        = 14
  49. #local A_LIGHTWHITE     = 15
  50. #local A_BRIGHTWHITE     = 15
  51.  
  52. local nextNice = 0
  53. local maxNice = 0
  54. local niceColor
  55. local colorNames
  56.  
  57. function ATTR( fg, bg ){
  58.     return fg + bg*16 
  59. }
  60.  
  61. function foreground( c ){
  62.     return and( c, 15 )
  63. }
  64.  
  65. function background( c ){
  66.     return and( c/16, 7 )
  67. }
  68.  
  69. function reverseVideo( c ){
  70.     return ATTR( background( c ), and( foreground( c ), 7 ))
  71. }
  72.  
  73.  
  74. function color_current_window(){
  75.     local c = select_color()
  76.  
  77.     if( c ){
  78.         color_text = color_border = c
  79.         color_highlight = reverseVideo( c )
  80.     }
  81. }
  82.  
  83.  
  84. function select_color(){
  85.     local c 
  86.  
  87.     if( maxNice <= 0 )
  88.         return 0    # signal error with bad color combo
  89.     
  90.     c = niceColor[ nextNice ]
  91.     # message( " color[ %d ] = %s", nextNice, colorName( c ))
  92.     nextNice = ( nextNice + 1 ) % maxNice
  93.  
  94.     return c
  95. } 
  96.  
  97.  
  98. function init_colors( cancel ){
  99.  
  100.     if( cancel ){
  101.         maxNice = 0
  102.         return
  103.     }
  104.  
  105.     # pleasing (high contrast) color combinations:
  106.     
  107.     # brown and red are nearly indistinguishable on my VGA display
  108.     # they might look nice on someone else's
  109.  
  110.                            #         FG              BG
  111.  
  112.     niceColor[ maxNice++ ] = ATTR( A_BLACK,        A_GREEN    )
  113.     niceColor[ maxNice++ ] = ATTR( A_BLACK,        A_RED    )
  114. #    niceColor[ maxNice++ ] = ATTR( A_BLACK,        A_BLUE    )
  115.     niceColor[ maxNice++ ] = ATTR( A_BLACK,        A_WHITE    )
  116.  
  117.     niceColor[ maxNice++ ] = ATTR( A_BLUE,        A_WHITE    )
  118. #    niceColor[ maxNice++ ] = ATTR( A_BLUE,        A_BLACK    )
  119.  
  120. #    niceColor[ maxNice++ ] = ATTR( A_DARKGREY,    A_WHITE    )
  121. #    niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_DARKGREY )
  122.  
  123.     niceColor[ maxNice++ ] = ATTR( A_GREEN,        A_BLACK    )
  124. #    niceColor[ maxNice++ ] = ATTR( A_GREEN,        A_WHITE    )
  125.  
  126.     niceColor[ maxNice++ ] = ATTR( A_RED,        A_BLACK    )
  127.     niceColor[ maxNice++ ] = ATTR( A_RED,        A_WHITE    )
  128.  
  129.     niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_BLUE    )
  130. #    niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_BROWN    )
  131.     niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_BLACK    )
  132.     niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_RED    )
  133.     niceColor[ maxNice++ ] = ATTR( A_WHITE,        A_GREEN    )
  134.  
  135. #    niceColor[ maxNice++ ] = ATTR( A_YELLOW,    A_BROWN    )
  136. #    niceColor[ maxNice++ ] = ATTR( A_YELLOW,    A_BLACK    )
  137. #    niceColor[ maxNice++ ] = ATTR( A_YELLOW,    A_RED    )
  138. #    niceColor[ maxNice++ ] = ATTR( A_YELLOW,    A_GREEN )
  139. #    niceColor[ maxNice++ ] = ATTR( A_YELLOW,    A_BLUE    )
  140.  
  141.     # the yellows do look nice, but the current border colors
  142.     # use the reverse of yellow which is, like, red.  Some good
  143.     # combinations would utilize the above yellows foregrounds,
  144.     # and something other than brown for the window borders.
  145.  
  146.     colorNames[ 0 ] = "black(0)"
  147.     colorNames[ 1 ] = "blue(1)"
  148.     colorNames[ 2 ] = "green(2)"
  149.     colorNames[ 3 ] = "cyan(3)"
  150.     colorNames[ 4 ] = "red(4)"
  151.     colorNames[ 5 ] = "magenta(5)"
  152.     colorNames[ 6 ] = "brown(6)"
  153.     colorNames[ 7 ] = "white(7)"
  154. }
  155.  
  156. function colorName( c ){
  157.     local s = " on " colorNames[ and( 7, c/16 )]
  158.     s = colorNames[ and( 7, c )] s
  159.     if( and( 8, c ))
  160.         s = "bright " s
  161.     if( and( 128, c ))
  162.         s = "blink " s
  163.     return s
  164. }
  165.  
  166.  
  167. # a crude way to adjust color variables
  168.  
  169.  
  170. local cur_attr
  171. local color_attr
  172. local adjust_keymap
  173. local max_attr = 10
  174.  
  175. function adjust_colors(){
  176.     local prev_keymap = current_keymap
  177.  
  178.     if( !adjust_keymap ){
  179.         current_keymap = adjust_keymap = create_keymap( empty_keymap )
  180.         assign_key( "<Up>",        "adjust_color 0xF0  16" )
  181.         assign_key( "<Down>",        "adjust_color 0xF0 -16" )
  182.         assign_key( "<Right>",        "adjust_color 0x0F   1" )
  183.         assign_key( "<Left>",        "adjust_color 0x0F  -1" )
  184.         assign_key( "<PgUp>",        "adjust_color_key  1" )
  185.         assign_key( "<PgDn>",        "adjust_color_key  2" )
  186.         assign_key( "<Keypad-+>",    "adjust_color_key  3" )
  187.         assign_key( "<Keypad-Minus>",    "adjust_color_key  4" )
  188.         assign_key( "<Keypad-Enter>",    "process_end 0" )
  189.         assign_key( "<Enter>",        "process_end 0" )
  190.         assign_key( "<Esc>",        "process_end 1" )
  191.     } else
  192.         current_keymap = adjust_keymap
  193.  
  194.     cur_attr = 0
  195.     color_attr[ 0 ] = "color_window"
  196.     color_attr[ 1 ] = "color_highlight"
  197.     color_attr[ 2 ] = "color_linenumbers"
  198.     color_attr[ 3 ] = "color_text"
  199.     color_attr[ 4 ] = "color_border"
  200.     color_attr[ 5 ] = "color_title"
  201.     color_attr[ 6 ] = "color_errors"
  202.     color_attr[ 7 ] = "color_warnings"
  203.     color_attr[ 8 ] = "color_messages"
  204.     color_attr[ 9 ] = "color_background"
  205.     
  206.     adjust_color_notice()
  207.     
  208.     if( process_begin()){             # canceled...
  209.         message( "Color adjustments canceled.")
  210.     } else {                 # accepted...
  211.         message("")
  212.     }
  213.  
  214.     current_keymap = prev_keymap
  215. }
  216.  
  217.  
  218. function adjust_color_key( s ){
  219.         if( 0+s == 1 )        # "<PgUp>"
  220.             cur_attr = ( cur_attr + max_attr - 1 ) % max_attr
  221.     else    if( 0+s == 2 )        # "<PgDn>"
  222.             cur_attr = ( cur_attr + 1 ) % max_attr
  223.  
  224.     adjust_color_notice()
  225. }
  226.  
  227. function adjust_color( mask, inc ){
  228.     local col = color_attr[ cur_attr ]
  229.     local val = execute_function(( cur_attr == 0 ? "color_text" : col ))
  230.     local val2
  231.  
  232.     mask = 0+mask
  233.     inc = 0+inc
  234.  
  235.     val = or( and( mask, val + inc ), and( val, not( mask )))
  236.  
  237.     if( cur_attr != 0 )
  238.         execute_function( col "=" val )
  239.     else {
  240.         # "color_window":
  241.         val2 = or( and( val, 15 )*16, and( val/16, 15 ))
  242.         color_text = color_border = val
  243.         color_highlight = color_title = val2
  244.     }
  245.  
  246.     adjust_color_notice( )
  247. }
  248.  
  249.  
  250. local function adjust_color_notice(){
  251.     local col = color_attr[ cur_attr ]
  252.     local val = execute_function(( cur_attr == 0 ? "color_text" : col ))
  253.  
  254.     message( "%s = %d / 0x%2X", col, val, val )
  255. }
  256.