"SfR Fresh" - the SfR Freeware/Shareware Archive

Member "vil96w32/palettes.rc" of archive vile-w32.zip:

As a special service "SfR Fresh" has tried to format the requested source page into HTML format using source code syntax highlighting with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field. 
    1 ; $Header: /usr/build/vile/vile/macros/RCS/palettes.rc,v 1.7 2001/04/07 15:02:22 tom Exp $
    2 ; Sample color schemes.
    3 
    4 ~if &not &error $ncolors
    5 ; Note that while the palette strings reference up to 16 colors, you will have
    6 ; only 8 available if vile is linked with termcap.  To get 16 colors, you need
    7 ; terminfo (e.g., ncurses), and a terminal emulator that supports 16 colors.
    8 
    9 ~local %palette
   10 ~local %dark-palette
   11 ~local %light-palette
   12 
   13 set color-scheme=default
   14 setv %dark-palette " "
   15 setv %light-palette ""
   16 setv %palette 0
   17 ~while &less %palette $ncolors
   18 	~if &or &equal %palette 3 &equal %palette 11
   19 		setv %light-palette &cat %light-palette &cat " " &word &add 1 %palette $palette
   20 		setv %dark-palette  &cat %dark-palette  &cat " " &word %palette $palette
   21 	~elseif &or &equal %palette 4 &equal %palette 12
   22 		setv %light-palette &cat %light-palette &cat " " &word %palette $palette
   23 		setv %dark-palette  &cat %dark-palette  &cat " " &word &sub %palette 1 $palette
   24 	~else
   25 		setv %light-palette &cat %light-palette &cat " " &word %palette $palette
   26 		setv %dark-palette  &cat %dark-palette  &cat " " &word %palette $palette
   27 	~endif
   28 	setv %palette &add %palette 1
   29 ~endwhile
   30 
   31 ; Note: if we are using the default, or system colors, it is generally not possible
   32 ; to determine what their values are.  The "light" and "dark" schemes use default
   33 ; colors.
   34 
   35 ; on a light background, we don't like to use yellow - map it to blue
   36 define-color-scheme light use=default palette=%light-palette
   37 
   38 ; on a dark background, we don't like to use blue - map it to yellow
   39 define-color-scheme dark  use=default palette=%dark-palette
   40 
   41 ; FIXME - implement "&isa"
   42 ;~if &isa color default
   43 ;	define-color-scheme light fcolor=default bcolor=default
   44 ;	define-color-scheme dark  fcolor=default bcolor=default
   45 ;~endif
   46 
   47 define-color-scheme reverse video-attr=rev
   48 
   49 define-color-scheme white use=dark fcolor=white bcolor=black
   50 
   51 define-color-scheme black use=light bcolor=white fcolor=black
   52 
   53 ~endif