home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / next / software / 1150 < prev    next >
Encoding:
Internet Message Format  |  1992-08-13  |  4.4 KB
  1. Path: sparky!uunet!cimshop!rhess
  2. From: rhess@consilium.COM (Richard L. Hess)
  3. Newsgroups: comp.sys.next.software
  4. Subject: FYI... [ color version of PS wraps for TimeMon 2.2 ]
  5. Message-ID: <RHESS.92Aug13125006@consilium.COM>
  6. Date: 13 Aug 92 19:50:06 GMT
  7. Sender: root@cimshop.UUCP
  8. Organization: Consilium Inc., Mountain View, California.
  9. Lines: 132
  10. X-UserAgent: GNUS 3.13  [ NNTP-based News Reader for GNU Emacs ]
  11.  
  12.  
  13.   The following shar file contains a color version of TimeMonWraps.psw for use
  14. with the 2.2 release of TimeMon.  Here's the list of the old and new colors
  15. for the various times being measured in TimeMon;
  16.  
  17.       idle ----->    White        [ White      ]
  18.       nice ----->    Light Gray    [ Dark Green ]
  19.       user ----->    Dark Gray    [ Gold       ]
  20.     system ----->    Black        [ Red        ]
  21.  
  22.   It's probably not the greatest color scheme but it works for me.
  23.  
  24. Dick...
  25.  
  26. +----------------------------------------------------------
  27. WHO:    Richard Hess    [ Staff Engineer ]
  28. CORP:    Consilium Inc,    640 Clyde Court, Mtn View, CA 94043
  29. VOICE:    [415] 691-6342
  30. EMAIL:    rhess@consilium.COM  <-----------------[ NeXTmail ]
  31. +
  32.  
  33. #!/bin/sh
  34. # This is a shell archive (produced by shar 3.49)
  35. # To extract the files from this archive, save it to a file, remove
  36. # everything above the "!/bin/sh" line above, and type "sh file_name".
  37. #
  38. # made 08/13/1992 19:41 UTC by rhess@pleione
  39. # Source directory /Slab/rhess/new/NeXT/TimeMon-2.2+
  40. #
  41. # existing files will NOT be overwritten unless -c is specified
  42. # This format requires very little intelligence at unshar time.
  43. # "if test", "echo", "true", and "sed" may be needed.
  44. #
  45. # This shar contains:
  46. # length  mode       name
  47. # ------ ---------- ------------------------------------------
  48. #   2001 -rw------- TimeMonWraps.psw
  49. #
  50. # ============= TimeMonWraps.psw ==============
  51. if test -f 'TimeMonWraps.psw' -a X"$1" != X"-c"; then
  52.     echo 'x - skipping TimeMonWraps.psw (File already exists)'
  53. else
  54. echo 'x - extracting TimeMonWraps.psw (Text)'
  55. sed 's/^X//' << 'SHAR_EOF' > 'TimeMonWraps.psw' &&
  56. X/*
  57. X  TimeMonWraps.psw [ Color ]
  58. X
  59. X    Drawing code for use by the Percentages class.
  60. X
  61. X  Copyright 1991 Scott Hess.  Permission to use, copy, modify, and
  62. X  distribute this software and its documentation for any purpose
  63. X  and without fee is hereby granted, provided that this copyright
  64. X  notice appear in all copies.  The copyright notice need not appear
  65. X  on binary-only distributions - just in source code.
  66. X  
  67. X  Scott Hess makes no representations about the suitability of this
  68. X  software for any purpose.  It is provided "as is" without express
  69. X  or implied warranty.
  70. X*/
  71. Xdefineps drawInit()
  72. X  /_doDrawArc1 {        %% bdeg ddeg radius
  73. X    /rad exch def
  74. X
  75. X    %% Background::[ idle ] ----------------- [ white      ]
  76. X    1.0 1.0 1.0 setrgbcolor
  77. X    24 24 moveto
  78. X    24 24 rad 0 360 arc
  79. X    fill
  80. X
  81. X    %% Slice::[ user ] ---------------------- [ gold       ]
  82. X    1.0 0.5 0.05 setrgbcolor    
  83. X    24 24 moveto
  84. X    24 24 rad 90 4 index arcn
  85. X    fill
  86. X    pop
  87. X
  88. X    %% Slice::[ system ] -------------------- [ red        ]
  89. X    1.0 0.0 0.0 setrgbcolor    
  90. X    24 24 moveto
  91. X    24 24 rad 90 4 index arcn
  92. X    fill
  93. X    pop
  94. X  } bind def
  95. X  /_doDrawArc2 {        %% bdeg ddeg ldeg radius
  96. X    /rad exch def
  97. X
  98. X    %% Background::[ idle ] ----------------- [ white      ]
  99. X    1.0 1.0 1.0 setrgbcolor    
  100. X    24 24 moveto
  101. X    24 24 rad 0 360 arc
  102. X    fill
  103. X
  104. X    %% Slice::[ nice ] ---------------------- [ dark green ]
  105. X    0.0 0.4 0.0 setrgbcolor    
  106. X    24 24 moveto
  107. X    24 24 rad 90 4 index arcn
  108. X    fill
  109. X    pop
  110. X
  111. X    %% Slice::[ user ] ---------------------- [ gold       ]
  112. X    1.0 0.5 0.05 setrgbcolor    
  113. X    24 24 moveto
  114. X    24 24 rad 90 4 index arcn
  115. X    fill
  116. X    pop
  117. X
  118. X    %% Slice::[ system ] -------------------- [ red        ]
  119. X    1.0 0.0 0.0 setrgbcolor    
  120. X    24 24 moveto
  121. X    24 24 rad 90 4 index arcn
  122. X    fill
  123. X    pop
  124. X  } bind def
  125. Xendps
  126. X    /* These cover for the pre-loaded procedures. */
  127. Xdefineps drawArc1( double radius, bdeg, ddeg)
  128. X  bdeg ddeg radius _doDrawArc1
  129. Xendps
  130. Xdefineps drawArc2( double radius, bdeg, ddeg, ldeg)
  131. X  bdeg ddeg ldeg radius _doDrawArc2
  132. Xendps
  133. SHAR_EOF
  134. true || echo 'restore of TimeMonWraps.psw failed'
  135. fi
  136. exit 0
  137.   
  138. +------------------------------------------------------------------------------
  139. WHO:    Richard Hess            CORP:    Consilium
  140. TITLE:    Staff Engineer            VOICE:    [415] 691-6342
  141.     [ X-SWAT Team:  Special Projects ]    USNAIL:    640 Clyde Court
  142. EMAIL:    rhess@consilium.COM (NeXTmail)        Mountain View, CA 94043
  143. +------------------------------------------------------------------------------
  144.