% -*-postscript-*- % PostScript Prologue for a2ps (Colored) % % $Id: color.pro,v 1.5 1998/01/19 17:39:47 demaille Exp $ % % % This file is part of a2ps. % % This program is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by % the Free Software Foundation; either version 2, or (at your option) % any later version. % % This program is distributed in the hope that it will be useful, % but WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the % GNU General Public License for more details. % % You should have received a copy of the GNU General Public License % along with this program; see the file COPYING. If not, write to % the Free Software Foundation, 59 Temple Place - Suite 330, % Boston, MA 02111-1307, USA. % Documentation Colors are used to highlight the keywords. EndDocumentation % -- code follows this line -- %%IncludeResource: file base.ps %%IncludeResource: file color.hdr %%BeginResource: procset a2ps-color-prolog 2.0 1 %%DocumentProcessColors: Red Green Blue %% Definition of the color faces. /p { 0 0 0 FG false BG false UL false BX %Face: Plain Courier bfs Show } bind def /sy { 0 0 0 FG false BG %Face: Symbol Symbol bfs Show } bind def /k { false BG false UL false BX 0 0 0.9 FG %Face: Keyword Courier bfs Show } bind def /K { false BG false UL false BX 0 0 0.8 FG %Face: Keyword_strong Courier-Bold bfs Show } bind def /c { false BG false UL false BX 0 0.5 0 FG %Face: Comment Courier bfs Show } bind def /C { false BG false UL false BX 0 0.5 0 FG %Face: Comment_strong Courier-Bold bfs Show } bind def /l { 0 0 0 FG 0.8 0.8 0 true BG false UL false BX %Face: Label Courier bfs Show } bind def /L { 0 0 0 FG 1 1 0 true BG false UL false BX %Face: Label_strong Courier-Bold bfs Show } bind def /str { false BG false UL false BX 0.7 0 0.7 FG %Face: String Courier bfs Show } bind def /e{ 1 0 0 true BG false UL true BX 1 1 1 FG %Face: Error Helvetica-Bold bfs Show } bind def % Function print line number ( # -) /# { gsave sx cw mul 2 div neg 0 rmoveto f# setfont 0.8 0.1 0.1 FG c-show grestore } bind def %%EndResource %%BeginSetup % The font for line numbering /f# /Helvetica findfont bfs .6 mul scalefont def %%EndSetup