From: rhess@consilium.COM (Richard L. Hess)
Newsgroups: comp.sys.next.software
Subject: FYI... [ color version of PS wraps for TimeMon 2.2 ]
Date: 13 Aug 92 19:50:06 GMT
Organization: Consilium Inc., Mountain View, California.
X-UserAgent: GNUS 3.13  [ NNTP-based News Reader for GNU Emacs ]


  The following shar file contains a color version of TimeMonWraps.psw for use
with the 2.2 release of TimeMon.  Here's the list of the old and new colors
for the various times being measured in TimeMon;

	  idle ----->	White		[ White      ]
	  nice ----->	Light Gray	[ Dark Green ]
	  user ----->	Dark Gray	[ Gold       ]
	system ----->	Black		[ Red        ]

  It's probably not the greatest color scheme but it works for me.

Dick...

+----------------------------------------------------------
WHO:	Richard Hess	[ Staff Engineer ]
CORP:	Consilium Inc,	640 Clyde Court, Mtn View, CA 94043
VOICE:	[415] 691-6342
EMAIL:	rhess@consilium.COM  <-----------------[ NeXTmail ]
+

#!/bin/sh
# This is a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 08/13/1992 19:41 UTC by rhess@pleione
# Source directory /Slab/rhess/new/NeXT/TimeMon-2.2+
#
# existing files will NOT be overwritten unless -c is specified
# This format requires very little intelligence at unshar time.
# "if test", "echo", "true", and "sed" may be needed.
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#   2001 -rw------- TimeMonWraps.psw
#
# ============= TimeMonWraps.psw ==============
if test -f 'TimeMonWraps.psw' -a X"$1" != X"-c"; then
	echo 'x - skipping TimeMonWraps.psw (File already exists)'
else
echo 'x - extracting TimeMonWraps.psw (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'TimeMonWraps.psw' &&
X/*
X  TimeMonWraps.psw [ Color ]
X
X	Drawing code for use by the Percentages class.
X
X  Copyright 1991 Scott Hess.  Permission to use, copy, modify, and
X  distribute this software and its documentation for any purpose
X  and without fee is hereby granted, provided that this copyright
X  notice appear in all copies.  The copyright notice need not appear
X  on binary-only distributions - just in source code.
X  
X  Scott Hess makes no representations about the suitability of this
X  software for any purpose.  It is provided "as is" without express
X  or implied warranty.
X*/
Xdefineps drawInit()
X  /_doDrawArc1 {		%% bdeg ddeg radius
X    /rad exch def
X
X	%% Background::[ idle ] ----------------- [ white      ]
X    1.0 1.0 1.0 setrgbcolor
X    24 24 moveto
X    24 24 rad 0 360 arc
X    fill
X
X	%% Slice::[ user ] ---------------------- [ gold       ]
X    1.0 0.5 0.05 setrgbcolor	
X    24 24 moveto
X    24 24 rad 90 4 index arcn
X    fill
X    pop
X
X	%% Slice::[ system ] -------------------- [ red        ]
X    1.0 0.0 0.0 setrgbcolor	
X    24 24 moveto
X    24 24 rad 90 4 index arcn
X    fill
X    pop
X  } bind def
X  /_doDrawArc2 {		%% bdeg ddeg ldeg radius
X    /rad exch def
X
X	%% Background::[ idle ] ----------------- [ white      ]
X    1.0 1.0 1.0 setrgbcolor	
X    24 24 moveto
X    24 24 rad 0 360 arc
X    fill
X
X	%% Slice::[ nice ] ---------------------- [ dark green ]
X    0.0 0.4 0.0 setrgbcolor	
X    24 24 moveto
X    24 24 rad 90 4 index arcn
X    fill
X    pop
X
X	%% Slice::[ user ] ---------------------- [ gold       ]
X    1.0 0.5 0.05 setrgbcolor	
X    24 24 moveto
X    24 24 rad 90 4 index arcn
X    fill
X    pop
X
X	%% Slice::[ system ] -------------------- [ red        ]
X    1.0 0.0 0.0 setrgbcolor	
X    24 24 moveto
X    24 24 rad 90 4 index arcn
X    fill
X    pop
X  } bind def
Xendps
X	/* These cover for the pre-loaded procedures. */
Xdefineps drawArc1( double radius, bdeg, ddeg)
X  bdeg ddeg radius _doDrawArc1
Xendps
Xdefineps drawArc2( double radius, bdeg, ddeg, ldeg)
X  bdeg ddeg ldeg radius _doDrawArc2
Xendps
SHAR_EOF
true || echo 'restore of TimeMonWraps.psw failed'
fi
exit 0
  
+------------------------------------------------------------------------------
WHO:	Richard Hess			CORP:	Consilium
TITLE:	Staff Engineer			VOICE:	[415] 691-6342
    [ X-SWAT Team:  Special Projects ]	USNAIL:	640 Clyde Court
EMAIL:	rhess@consilium.COM (NeXTmail)		Mountain View, CA 94043
+------------------------------------------------------------------------------