🚀 go-pugleaf

$@Iw4V!w#N#T#T%=%U%H8&$G$9!#(J

$@!!:G6a(Jcomp.lang.postscript$@$G$O(JPPST$@$H8@$o$l$k%Y%s%A%^!<%/$r$d(J$@$C$F$$$^$9(J
$@$,!";dC#$b$3$N%Y%s%A%^!<%/$r$7$F$_$^$;$s$+!)(J

$@!!$3$NEj9F$N8eH>$K%W%m%0%i%`$r$D$1$^$9$+$i!"(J$@$3$l$r%W%j%s%?$K=PNO$7$F$_(J
$@$k$@$1$GB,Dj$G$-$^$9!#(J

$@!!$H$j$"$($:!";d$N6a$/$N(JOKI Microline 801PS$@!"(JQMS PS-2000$@!"(JApple
LaserWriter NTX-J$@$K$D$$$F!"$3$N%W%m%0%i%`$rF0:n$5$;$F$_$?7k2L$r<!$N$h(J
$@$&$JI=$K$7$^$7$?(J(QMS PS-2000$@$O$^$@F|K\8l$KBP1~$7$F$$$^$;$s(J;-()$@!#(J

$@!!$3$N%Y%s%A%^!<%/$NCM$O!"%0%i%U%#%C%/(J(PPST-G)$@!"(JRAM$@$H(J$@%U%)%s%H(J(PPST-R)$@!"(J
$@?tCM7W;;(J(PPST-M)$@!"Am9g(J(PPST)$@$=$l$>$l$K$D$$$F!"(JLaserWriter$@$NCM$r(J1$@$H$7$F(J
$@7W;;$7$F$$$k(J$@$h$&$G$9!#(J

$@!!<B:]$K$O$b$C$HJ#;($J>r7o$,$+$i$s$G$/$k$N$G!"$3$N%Y%s%A%^!<%/$N:Y$+$$(J
$@?tCM$NHf3S$O0UL#$,(J$@$J$$$H;W$$$^$9$,!":G6a$N9bB.$J%W%j%s%?$N798~$OB*$($i(J
$@$l$k$s$8$c$J$$$+$J!)$H;W$$$^$9!#(J

$@!!6=L#$"$k?M$O(J$@!"(JPS$@%P!<%8%g%s!"(JPPST$@$N?tCM$O=PNO$K0u:~$5$l$F$$$^$9$N$G!"(J
$@$"$H%a!<%+!&@=IJL>$H!"%Y%s%A%^!<%/$K4X78$"$j(J$@$=$&$J%a%b%j!"(JCPU$@!"%/%m%C(J
$@%/!"2rA|EY$rF1$8$h$&$K5-F~$7$F$3$N%K%e!<%9%0%k!<%W$KEj9F$7$F$/$@$5$$!#(J

------------------------+---------------------------------------+-------+
$@%a!<%+!<!&@=IJL>(J	|$@%a%b%j(J, CPU, $@%/%m%C%/(J, $@2rA|EY(J		|	|
PS$@%P!<%8%g%s(J		|PPST-G	PPST-R	PPST-M			| PPST	|
------------------------+---------------------------------------+-------+
OKI Microline 801PS	|8MB, MC68020, 16MHz, 400dpi		|	|
52.3			|   2.2	   4.5	   2.8			|   3.0	|
------------------------+---------------------------------------+-------+
QMS PS-2000		|16MB, R3000, 25MHz, 300dpi		|	|
52.4			| 118.2	  13.1	  74.8			|  26.7	|
------------------------+---------------------------------------+-------+
Apple LaserWriter NTX-J	|4MB, MC68020, 16.666MHz, 300dpi	|	|
50.5			|   2.6	   2.4	   3.0			|   2.6	|
------------------------+---------------------------------------+-------+

--- cut here --- cut here --- cut here --- cut here --- cut here ---
%!
%From: gagnon@Panda1.UOttawa.CA (Jean-Serge Gagnon 564-7183)
%Newsgroups: comp.lang.postscript
%Subject: PPST 3.1 (was Re: WANTED: Postscript benchmark/printer an...)
%Date: 30 Jan 92 14:15:20 GMT
%Organization: Computing & Comm. Services, University of Ottawa
%Nntp-Posting-Host: panda1
%
%Hi again,
%	After getting about 10 requests for the file in e-mail, I thought
%that you might want it on the net. It's about 28K in size.
%	
%	For those who didn't read the last few messages on this, this is my	PostScript Processing Speed Test program that I wrote. It will give you the
%speed of a PostScript capable device (printer, screen, etc...) as a relative
%index to the Apple LaserWriter.
%
%
%--------------------------------- Starts here ---------------------------
%! PS-Adobe-1.0
%%Title: Adobe PostScript Processing Speed Test
%%Creator: Jean-Serge Gagnon
%%User: Jean-Serge Gagnon
%%CreationDate: January 27th, 1992
%%DocumentFonts: Times-Roman Times-Bold Courier Helvetica-Bold
%%Pages: 1
%%EndProlog
% --------------------------------------------------------------------
%     Adobe PostScript Processing Speed Test version 3.1 (PPST)
% --------------------------------------------------------------------
%         by:   Jean-Serge Gagnon
%               Computer Hardware Maintenance Specialist
%               Ottawa University
%               Montpetit hall, room 144A
%               125 University private
%               Ottawa, Ontario, Canada
%               K1N 6N5
% --------------------------------------------------------------------
%                       E-mail addresses
%
%              BITNET:   JSG8A@UOTTAWA
%            internet:   JSG8A@ACADVM1.UOTTAWA.CA
%
% ====================================================================
%
%    I would like to here from you about this program. Please let
% me know of any bugs, problems with your printer or fixes that you
% would recommend. I am always open to new ideas. A future release
% will include a few of the more popular printers with a relative
% index comparing your printer to them, but I need your input.
%
%    Please send info including the manufacturer of the printer, the
% model number and/or name, and the results from this test. I would
% also appreciate getting your name and e-mail (or regular) address
% and/or phone so that I can reach you should it be necessary. I would
% also be interested in knowing your occupation and interest in this
% matter.
%
%                                 Thanking you for your replies
%                                     Jean-Serge Gagnon
%
% ====================================================================
%                         -SHAREWEAR NOTE-
% --------------------------------------------------------------------
%
%    If you would like to support the ongoing efforts in this field
% by the author, please send $20, your name and adress:
%
%                      Jean-Serge Gagnon
%                      P.O. Box 441, Station "A"
%                      Hull, Quebec, Canada
%                      J8Y 6P2
%
% ====================================================================
%
% --------------------------------------------------------------------
%                 Set and define all working variables
% --------------------------------------------------------------------
%     Please note that if you wish the program to stay acurate,
% you musn't change any of these variables, as they would have
% an effect of changing the value of the PPST index.
% --------------------------------------------------------------------
 
/test_version (3.1) def                % This program version number.
/last_update (January 27th, 1992) def  % Last programming update.
/stdp2st-g 53.5479 def                 % PPST-G for Apple LaserWriter.
/stdp2st-r 64.0723 def                 % PPST-R for Apple LaserWriter.
/stdp2st-m 38.5698 def                 % PPST-M for Apple LaserWriter.
/stdp2st 156.19 def                    % PPST for Apple LaserWriter.
/testmult 1 def                        % A smaller value prints faster.
72 72 scale                            % Work with inches.
/numberoflines 90 testmult mul def     % Number of lines for graphics.
 
% ====================================================================
%                         Define user functions
% ====================================================================
 
% --------------------------------------------------------------------
%                       Get printer name
% --------------------------------------------------------------------
 
/getname {
    statusdict /product known          % Check if variable exists.
    { /statusdict load                 % Load the proper dictionary.
      /product get                     % Get the product name.
    }{ (Unknown device) } ifelse       % If unknown.
    /printername exch def              % Define the variable.
} def
 
% --------------------------------------------------------------------
%                  Get user time in seconds.
% --------------------------------------------------------------------
 
/gettime {
    usertime                           % Get timer value.
    1000 div                           % Convert to seconds.
} def
 
% --------------------------------------------------------------------
%                  Print text centered on current point
% --------------------------------------------------------------------
 
/centershow {
    dup stringwidth pop                % Find point size of string.
    2 div neg 0 rmoveto                % Divide it by two and move to
    show                               % there. Then print it.
} def
 
% --------------------------------------------------------------------
%                  Print text centered on decimal place.
% --------------------------------------------------------------------
 
/decimalshow {
    dup dup (.) atstr dup              % Find position of decimal.
    -1 eq                              % Is there a decimal?
    { pop pop show }                   % No? Then print it all.
    { 0 exch getinterval               % Get begining of string.
    rightshow                          % Show left of decimal.
    (.) show                           % Show decimal point.
    dup length exch                    % Get length of string.
    dup (.) atstr 1 add dup            % Get position of decimal.
    4 -1 roll exch sub                 % Calc. remainder of string.
    getinterval show } ifelse          % Print the remainder.
} def
 
% --------------------------------------------------------------------
%                  Print text with right justification
% --------------------------------------------------------------------
 
/rightshow {
    dup stringwidth pop                % Find point size of string.
    neg 0 rmoveto                      % Move to correct start point.
    show                               % Then print it.
} def
 
% --------------------------------------------------------------------
%            Find location of a character in a string
% --------------------------------------------------------------------
 
/atstr {
    0 get cvi                          % Convert character to integer.
    /searchchar exch def               % Define search character.
    /searchstr exch def                % Define search string.
    /atstrcounter 0 def                % This is where we're at.
    { atstrcounter 1 add               % Go to next position.
        searchstr length               % Are we past end of string?
        ge { /atstrcounter                 % Yes?
            -1 def exit                    % Then exit with -1
           } if                            % as the "at" code.
        searchstr atstrcounter         % If we found the
        get cvi searchchar                 % character, then
        eq { exit } if                     % exit with location.
        /atstrcounter atstrcounter     % Otherwise,
        1 add def                          % go to next location.
    } loop                             % Check another time.
    atstrcounter                       % Put result on stack.
} def
 
% --------------------------------------------------------------------
%                 Add two strings together.
% --------------------------------------------------------------------
 
/addstr {
   /stringtwo exch def                 % Get both strings off
   /stringone exch def                     % of the stack.
   /exitstr stringone length           % Define empty string the
   stringtwo length add string def         % length of both.
   exitstr 0 stringone putinterval     % Put first string in.
   exitstr stringone length            % And then,
   stringtwo putinterval                   % put the second string.
   exitstr                             % Leave it on stack.
} def
 
% --------------------------------------------------------------------
%         Calculate and print difference between two times
% --------------------------------------------------------------------
 
/showtime {
    20 string                          % Put empty string on stack.
    cvs                                % Convert to a string
    3 4 addzeros                       % Add lead. blanks & trail. zeros.
    decimalshow                        % Then print it.
} def
 
% --------------------------------------------------------------------
%                      Show PPST index values
% --------------------------------------------------------------------
 
/showp2st {
    div testmult mul                   % Get index value.
    .05 add                            % Round value.
    20 string cvs                      % Convert to a string.
    3 1 addzeros                       % Add zeros and spaces.
    decimalshow                        % Show the new string.
} def
 
% --------------------------------------------------------------------
%         Add leading blanks and trailing zeros to string.
% --------------------------------------------------------------------
 
/addzeros {
    /rightdec exch def                 % Define no. of num. bef. decimal.
    /leftdec exch def                  % Define sign. dig. after decimal.
    /totalength rightdec leftdec add   % Calculate maximum length
    1 add def                              % of string.
    dup (.) atstr                      % Find out if there is decimal.
    -1 eq { (.) addstr } if            % Yes? Add decimal.
    { dup                              % Make sure we don't loose string.
        (.) atstr                      % Now where is the decimal?
        leftdec                        % Get where decimal place.
        ge { exit } if                 % Exit if in right spot.
        ( ) exch addstr                % Add space in front of string.
    } loop                             % Check again until done.
    { dup                              % Make sure we don't loose string.
        length                         % Get length of string.
        totalength                     % Get total length of string.
        ge { exit } if                 % Exit if right length.
        (0) addstr                     % Add 0 at end of string.
    } loop                             % Do it until done.
    dup (.) atstr                      % Where is decimal at?
    rightdec add 1 add                 % What is new length of string?
    0 exch getinterval                 % Make sure string isn't too long.
} def
 
% --------------------------------------------------------------------
%                Calculate all the times of tests.
% --------------------------------------------------------------------
 
/calctimes {
    /graphtime                         % Calculate
        rambegin graphbegin                % the graphics
    sub def                                % time.
    /ramtime                           % Calculate
        mathbegin rambegin                 % the ram speed
    sub def                                % time.
    /mathtime                          % Calculate
        endtime mathbegin                  % the mathematics
    sub def                                % time.
    /totaltime                         % Calculate
        endtime graphbegin                 % the total
    sub def                                % time.
} def
% --------------------------------------------------------------------
%                     Draw a circle of lines
% --------------------------------------------------------------------
 
/circleoflines {
    save 3 1 roll                      % Save current coordinate settings.
    translate                          % Change origin point.
    /turned 0 def                      % Start at 0 degrees rotation.
    degrees neg rotate                 % Make sure first line is at 0.
    .0001 setlinewidth                 % Make the smallest lines possible.
    newpath                            % Start with a new drawing path.
    { /turned turned degrees add def   % Turn by "degrees" degrees.
        turned 360 gt { exit } if      % Check if all done.
        degrees rotate                 % Rotate coordinate system.
        0 0 moveto                     % Do a line of 1 inch from
        0 1 lineto                         % center of coordinate system.
    } loop                             % Do next line.
    stroke                             % Set ink on page.
    restore                            % Restore old coordinate settings.
} def
 
% --------------------------------------------------------------------
%                         Draw the main border
% --------------------------------------------------------------------
 
/border {
    1 setlinewidth                     % Set width of border.
    newpath                            % Start a new drawing path.
    0 0 moveto                         % Draw a box starting here
    8.5 0 lineto                           % right
    8.5 11 lineto                          % back to
    0 11 lineto                            % the first
    closepath                              % point.
    stroke                             % And print it on page.
} def
 
% --------------------------------------------------------------------
%                       Add the graphics to the page
% --------------------------------------------------------------------
 
/graphics {
    .0001 setlinewidth                 % Make sure lines are small.
    newpath                            % Start a new drawing path.
    /yjump 10 numberoflines div def    % Distance for y axis.
    /xjump 7.5 numberoflines div def   % Distance for x axis.
    /curx .5 def                       % Start of x axis.
    /cury 10.5 def                     % Start of y axis.
    { curx .5 moveto                   % Draw the lines
        .5 cury lineto                     % on the left
        /curx curx xjump add def           % and bottom
        curx 8 gt { exit } if              % of the
        /cury cury yjump sub def           % page.
    } loop                             % Keep drawing until done.
    /curx .5 def                       % Start of x axis.
    /cury .5 def                       % Start of y axis.
    { curx .5 moveto                   % Draw the lines
        8 cury lineto                      % on the right
        /curx curx xjump add def           % and bottom
        curx 8 gt { exit } if              % of the
        /cury cury yjump add def           % page.
    } loop                             % Keep drawing until done.
    /curx .5 def                       % Start of x axis.
    /cury .5 def                       % Start of y axis.
    { curx 10.5 moveto                 % Draw the lines
        .5 cury lineto                     % on the left
        /curx curx xjump add def           % and top
        curx 8 gt { exit } if              % of the
        /cury cury yjump add def           % page.
    } loop                             % Keep drawing until done.
    /curx .5 def                       % Start of x axis.
    /cury 10.5 def                     % Start of y axis.
    { curx 10.5 moveto                 % Draw the lines
        8 cury lineto                      % on the right
        /curx curx xjump add def           % and top
        curx 8 gt { exit } if              % of the
        /cury cury yjump sub def           % page.
    } loop                             % Keep drawing until done.
    stroke                             % Set ink on the page.
    /degrees 360 numberoflines         % Degrees between lines
        4 mul div def                      % for circle.
    1.7 1.7 circleoflines              % Do a circle in bottom-left.
    6.8 1.7 circleoflines              % Do another in bottom-right.
    1.7 9.3 circleoflines              % Again in top-left.
    6.8 9.3 circleoflines              % Lastly in top-right.
} def
 
% --------------------------------------------------------------------
%                      Do the graphics test
% --------------------------------------------------------------------
 
/graphtest {
    0                                  % Define the loop counter.
    { dup 1 ge {exit} if               % Exit if test done.
        1 testmult div add             % Increase the loop counter.
        newpath                        % Clear any current path.
        1 100 200 20 30 arc            % Make counterclockwise arc.
        1 100 200 20 30 arcn           % Make clockwise arc.
        0 0 500 800 300 arcto          % Append arc to.
        pop pop pop                    % Clear stack.
        50 50 750 1000 0 0 curveto     % Make a curve.
        gsave                          % Save current graphics state.
        1.897 2.345 scale              % Modify scalling.
        500 500 translate              % Move coordinate 0,0.
        .9878 .7656 scale              % Change scale.
        28.777 7.777 scale             % again.
        grestore                       % Restore graphics state.
        reversepath                    % Reverse direction of path.
        stroke                         % Draw lines along path.
        newpath                        % Clear path.
        50 50 moveto 800 50 lineto     % Draw a box
        800 1050 lineto 50 1050 lineto     % on entire page.
        .75 setgray                    % Set color to gray.
        fill                           % Paint entire page.
        erasepage                      % Clear the page.
    } loop pop                         % Loop until done.
} def
 
% --------------------------------------------------------------------
%                      Get fonts to test RAM speed
%
%     This test simply fetches a series of four different fonts
% from the device's ROM, scales them and then calculates the width
% of a long string using the DRAM, SRAM and/or cache RAM of the
% device. This has the effect of giving almost a RAM only
% test du to the enormous RAM read/write that has to be done.
% --------------------------------------------------------------------
 
/ramtest {
 
        /Times-Roman findfont 3.3 testmult mul scalefont setfont
        (abcdefghijklmnopqrstuvwxyz1234567890)
        stringwidth
 
        /Times-Bold findfont 5.5 testmult mul scalefont setfont
        (ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()_-+=\|)
        stringwidth
 
        /Courier findfont 8.8 testmult mul scalefont setfont
        (abcdefghijklmnopqrstuvwxyz1234567890)
        stringwidth
 
        /Helvetica-Bold findfont 10.1 testmult mul scalefont setfont
        (ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()_-+=\|)
        stringwidth
 
} def
 
% --------------------------------------------------------------------
%                        Do the math test
% --------------------------------------------------------------------
 
/mathtest {
    0                                  % Start the loop counter.
    { dup 1000 ge {exit} if            % Exit if all done.
        1 testmult div add             % Increase the loops counter.
        2.1 9.9 add pop                % Addition function.
        5.5 1.1 div pop                % Division function.
        5 3 idiv pop                   % Integer division function.
        2 3 mod pop                    % Modulo function.
        4.5 5.4 mul pop                % Multiplication function.
        3.3 1.9 sub pop                % Subtraction function.
        -999.31 abs pop                % Absolut value function.
        7343.43 neg pop                % Negation function.
        1.5673 ceiling pop             % Ceiling function.
        -1.2323 floor pop              % Floor function.
        675.2432 round pop             % Rounding function.
        1.21121 truncate pop           % Truncation function.
        4.5 sqrt pop                   % Square root function.
        1 0 atan pop                   % Arc Tangeant function.
        65 cos pop                     % Cosinus function.
        89 sin pop                     % Sinus function.
        10 3 exp pop                   % Exponentiation function.
        4 ln pop                       % Natural logarithmic function.
        5 log pop                      % Base 10 logarithmic function.
        rand pop                       % Random function.
        2 srand rrand pop              % More random function.
    } loop pop                         % Do the functions again.
} def
 
% --------------------------------------------------------------------
%                      Print the results of the test
%
%     This section prints the results of the different tests with
% the times in seconds for each.
% --------------------------------------------------------------------
 
/result {
    /Times-Bold findfont 18 72 div scalefont setfont
    4.25 8.75 moveto (PostScript) centershow
    4.25 8.50 moveto (Processing speed test) centershow
    4.25 8.25 moveto (version      ) centershow
    test_version rightshow
    4.25 7.75 moveto (Test executed on:) centershow
    4.25 7.50 moveto printername centershow
    4.25 7 moveto
    (Adobe PostScript version number         )
    centershow version rightshow
    4.25 6.5 moveto (Speed results) centershow
    .001 setlinewidth
    3.5 6.48 moveto 1.5 0 rlineto stroke
    /Times-Bold findfont 18 72 div scalefont setfont
    4.5 6 moveto (Graphics:         ) rightshow
    graphtime showtime
    4.5 5.75 moveto (RAM & fonts:         ) rightshow
    ramtime showtime
    4.5 5.5 moveto (Mathematics:         ) rightshow
    mathtime showtime
    4.5 5.25 moveto (Total:         ) rightshow
    totaltime showtime
    /Times-Bold findfont 10 72 div scalefont setfont
    4.25 3.3 moveto
    (The white area around the border shows your printer's dead-zone.)
    centershow
    /Times-Bold findfont 6 72 div scalefont setfont
    4.25 6.38 moveto (These numbers are in seconds) centershow
    4.25 2.3 moveto
    (by Jean-Serge Gagnon <JSG8A@ACADVM1.UOTTAWA.CA>)
    centershow 4.25 2.2 moveto
    (Computer Hardware Maintenance Specialist)
    centershow 4.25 2.1 moveto
    (Ottawa University, Montpetit hall, room 144A)
    centershow 4.25 2 moveto
    (125 University private)
    centershow 4.25 1.9 moveto
    (Ottawa, Ontario, Canada)
    centershow 4.25 1.8 moveto
    (K1N 6N5) centershow
    4.25 1.7 moveto last_update centershow
} def
 
% --------------------------------------------------------------------
%                  Print the PPST index values
%
%    This section displays a small box at the bottom of the page
% indicating all the Printer Speed Test results with indexes.
% --------------------------------------------------------------------
 
/p2stindex {
    .02 setlinewidth                   % Regular lines.
    newpath                            % Start a new drawing path.
    2.100 4.500 moveto                 % Draw
    6.400 4.500 lineto                     % the
    6.400 3.500 lineto                     % lines
    2.100 3.500 lineto                     % for
    closepath                              % the
    2.600 4.500 moveto                     % processing
    2.600 3.500 lineto                     % speed
    2.100 4.200 moveto                     % test
    6.400 4.200 lineto                     % index
    stroke newpath                         % results
    .001 setlinewidth                      % box.
    3.500 4.500 moveto
    3.500 3.500 lineto
    4.550 4.500 moveto
    4.550 3.500 lineto
    5.450 4.500 moveto                 % Draw
    5.450 3.500 lineto                     % the
    2.100 3.740 moveto                     % smaller
    6.400 3.740 lineto                     % lines.
    2.100 3.720 moveto                 % The next part displays
    6.400 3.720 lineto                     % all the relevant text
    stroke                                 % for the tests.
    4.250 4.580 moveto
    /Times-Bold findfont 35 72 div scalefont setfont
    (P ST index results) centershow
    /Times-Bold findfont 18 72 div scalefont setfont
    2.67 4.8 moveto (2) show
    /Times-Bold findfont 4 72 div scalefont setfont
    2.27 4.12 moveto (2) show
    2.27 3.99 moveto (2) show
    2.27 3.85 moveto (2) show
    2.27 3.62 moveto (2) show
    /Times-Bold findfont 8 72 div scalefont setfont
    1 testmult
    ne { 5.6 5.7 moveto (Warning:) centershow
        5.45 5.55 moveto (The variable "testmult") show
        5.45 5.45 moveto (was changed to ) show
        testmult 20 string cvs show (.) show
    } if
    2.350 4.260 moveto (index) centershow
    2.200 4.070 moveto (P ST-G) show
    2.200 3.940 moveto (P ST-R) show
    2.200 3.800 moveto (P ST-M) show
    2.200 3.570 moveto (P ST) show
    3.075 4.385 moveto (Apple) centershow
    3.075 4.260 moveto (LaserWriter) centershow
    3.075 4.070 moveto (1.0) centershow
    3.075 3.940 moveto (1.0) centershow
    3.075 3.800 moveto (1.0) centershow
    3.075 3.570 moveto (1.0) centershow
    4.025 4.385 moveto (Apple) centershow
    4.025 4.260 moveto (LaserWriter II NTX) centershow
    4.000 4.070 moveto (2.8) decimalshow
    4.000 3.940 moveto (3.0) decimalshow
    4.000 3.800 moveto (3.1) decimalshow
    4.000 3.570 moveto (2.9) decimalshow
    4.975 4.385 moveto (QMS) centershow
    4.975 4.260 moveto (PS 2000) centershow
    4.950 4.070 moveto (122.0) decimalshow
    4.950 3.940 moveto (13.4) decimalshow
    4.950 3.800 moveto (73.9) decimalshow
    4.950 3.570 moveto (27.2) decimalshow
    5.925 4.385 moveto (This) centershow
    5.925 4.260 moveto (printer) centershow
    5.925 4.070 moveto
    stdp2st-g graphtime showp2st
    5.925 3.940 moveto
    stdp2st-r ramtime showp2st
    5.925 3.800 moveto
    stdp2st-m mathtime showp2st
    5.925 3.570 moveto
    stdp2st totaltime showp2st
} def
 
% --------------------------------------------------------------------
%                         Main program
%
%     Must be executed only once the whole PostScript file has been
% loaded into the printer. Otherwise, transmission to the printer
% would render the test un-precise. An example would be the difference
% between parallel and serial transmission speed, or problems with
% delays on a LAN spooler.
% --------------------------------------------------------------------
 
 
/speed_test {
    /graphbegin gettime def            % Get start time.
    graphtest                          % Do the graphics test
    /rambegin gettime def              % Get time for graphics.
    ramtest                            % Do RAM and font tests.
    /mathbegin gettime def             % Get time for fonts.
    mathtest                           % Do math test.
    /endtime gettime def               % Get end time.
    0 setgray                          % Set color back to black.
    border                             % Draw the border.
    graphics                           % Do the graphics around page.
    getname                            % Get the printer name.
    calctimes                          % Calculate all speed times.
    result                             % Print result of tests.
    p2stindex                          % Show PPST index results.
    showpage                           % Outpage full page.
} def
 
% --------------------------------------------------------------------
%                    Do the Processing Speed Test
% --------------------------------------------------------------------
 
speed_test
%-- 
%Jean-Serge Gagnon                       EMAIL: jsg8a@acadvm1.uottawa.ca OR
%Hardware Maintenance Specialist                gagnon@panda1.uottawa.ca OR
%Ottawa,University, Ontario, Canada             jsg8a@uottawa.BITNET
%voice: (613) 564-7517    fax: (613) 564-7819
--- cut here --- cut here --- cut here --- cut here --- cut here ---
--
	$@Iw4V0lMN(J (kazama@square.ntt.jp)
	NTT$@%=%U%H%&%'%"8&5f=j(J $@%=%U%H%&%'%"4pAC(J$@5;=Q8&5fIt(J
	$@J,;67?%=%U%H%&%'%"8&5f%0%k!<%W(J