====== Dr.Laser ======
Benchmark del motore di rendering.

<code postscript>
%!PS-Adobe
%%Creator: Luigi Rosa
%%Title: Dr.Laser, Version 1.1
%%CreationDate: Sep 18 1990
%%Pages: 1
%%Portions by Jim Sullivan, January, 1989.
%%Adattato ed ampliato da Luigi Rosa, Settembre 1990.
%%EndComments
gsave
/HB  {/Helvetica-Bold} def
/CBO {/Courier-Bold} def
/C   {/Courier} def
/FF  {findfont} def
/SS  {scalefont setfont} def
/mt  {moveto} def
/s   {show} def
/fontname 30 string def
/getfont {pop fntnm cvs /fontname exch def} def
/fntnm 30 string def
/str 20 string def
/BOLD {CBO FF 10 SS} def
/NORMAL {C FF 10 SS} def
/cnt 0 def
/btime 0 def
/circleofbench
        { 15 15 345
            {gsave
               rotate 0 0 mt
               (Benchmark) oshow
             grestore
            } for
        } def
/oshow {true charpath stroke} def
%%
%%EndProlog
%%Page: 1 1

BOLD
180 756 mt
(Analisi Laser by Luigi Rosa, Versione 1.1) s       %Titolo
20 720 mt
NORMAL (Stampante ) s                               %Info stampante
BOLD statusdict/product get str cvs s
NORMAL (, versione PostScript: ) s
BOLD version str cvs s
NORMAL (       Pagine stampate: ) s
BOLD statusdict begin pagecount str cvs s
20 700 translate
0 0 mt
C NORMAL (Font nativi Disponibili: (Tipo)Nome:Esempio) s   % Font Heading
0 -10 mt
(Tipo: 0\(filled\), 1\(stroked\), 2\(outlined\),) s
0 -20 mt
(      3\(mixed\), ?\(sconosciuto\)) s
0 -30 translate

BOLD
FontDirectory {BOLD 0 0 mt                      %Push directory of fonts and
getfont                                         %get the fonts one at a time.
(\() s
{fontname cvn FF /PaintType get str cvs s} stopped {%ifelse
(?) s } {} ifelse              %Get the font's PaintType and print its value,
(\)) s                         %or if it is not supplied, print a '?'.
fontname s                     %Print the name of the font.
mark
fontname length 1 30 {(-) s} for   %Print dashes out to the font sample column.
(:) s                              %Print a colon.
{fontname cvn FF 10 SS ( ABCDEFGH abcdefgh) s } stopped {%ifelse
NORMAL (Errore nell'implementazione dei font) s } {} ifelse      %Show a sample of each
cleartomark                                         %font.  If an error is
cnt 10 add                                          %trapped, print message
/cnt exch def                                       %indicating an error
0 -10 translate} forall                             %occurred.  Use the
NORMAL                                              %variable 'cnt' to count
cnt 30 add /cnt exch def                            %the number of fonts.
350 cnt mt                       %Move back up the page 'cnt' points.
(Stato Virtual Memory:) s
0 0 translate
360 cnt 20 sub mt
(Max Bytes Disponibili:    ) s BOLD vmstatus str cvs s NORMAL
360 cnt 30 sub mt
(Bytes attualmente in uso: ) s BOLD str cvs s NORMAL
360 cnt 40 sub mt
(Levello di Save Nesting:  ) s BOLD str cvs s NORMAL
350 cnt 60 sub mt
(Cache status \(Red book p126\):) s
cachestatus
370 cnt 80 sub mt NORMAL (blimit: ) s BOLD str cvs s
370 cnt 90 sub mt NORMAL (  cmax: ) s BOLD str cvs s
370 cnt 100 sub mt NORMAL ( csize: ) s BOLD str cvs s
370 cnt 110 sub mt NORMAL (  mmax: ) s BOLD str cvs s
370 cnt 120 sub mt NORMAL ( msize: ) s BOLD str cvs s
370 cnt 130 sub mt NORMAL (  bmax: ) s BOLD str cvs s
370 cnt 140 sub mt NORMAL ( bsize: ) s BOLD str cvs s
usertime /btime exch def                %Print a graphic (circleofbench)
HB FF 12 SS                             %and time how long it takes for
430 cnt 230 sub translate               %the printer to interpret it.
.5 setlinewidth
circleofbench
0 0 moveto
(Benchmark Testing) true charpath
gsave 1 setgray fill grestore
stroke
-40 -80 mt
NORMAL
(Tempo richiesto per) s
-40 -90 mt
(stampare il grafico sopra:) s
-40 -100 mt
BOLD
usertime btime sub 0.001 mul str cvs s
NORMAL
( secondi.) s
grestore
showpage

%% The End.</code>
{{tag>Programmazione PostScript}}