Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

/Inch {72 mul} bind def
/misc 50 string def
/vshowdict 4 dict def
/Vshow { % Vshow from Adobe Cookbook
    vshowdict begin
    /vstr exch def
    /lnsk exch def
    vstr
     {
      /ccode exch def
      /vchar ( ) dup 0 ccode put def
      0 lnsk neg rmoveto
      gsave
      vchar stringwidth pop 2 div neg 0 rmoveto
      vchar show
      grestore
     } forall
    end
} def
/LA {
    /Helvetica findfont 12 scalefont setfont
    27 492 moveto 11 (LOAD AVERAGE) Vshow
} bind def
/TD {
    288 18 moveto (TIME OF DAY) show
} bind def
/TI {
    /Helvetica findfont 18 scalefont setfont
    (Average 5 Min. Load Average on SRI-NIC) dup stringwidth pop
      612 exch sub 2 div 10.5 Inch moveto show
} bind def
/STI {
    /misc exch def
    /Helvetica findfont 16 scalefont setfont
    0 -18 rmoveto
    612 misc stringwidth pop sub 2 div currentpoint exch pop moveto
    misc show
} bind def
/VSP {
    currentpoint 16 sub moveto
    /Helvetica findfont 12 scalefont setfont
    2 setlinewidth
} bind def
/Leg {
    setgray
    3 Inch currentpoint exch pop
    newpath
       moveto
       0.25 Inch 0 rlineto
       currentpoint
    stroke
    exch 10 add exch moveto
    0 setgray
    show
    0 -13 rmoveto
} bind def
/TR {
    /cl exch def
    dup
    /mx exch def
    9 Inch exch div /dY exch def
    81 72 translate
    newpath
      -30 -30 moveto
      cl Y 5 add dup -30 exch lineto
      47.2 X exch lineto
      47.2 X -30 lineto
      closepath
    clip
} bind def
/X {9.9 mul} bind def
/Y {dY mul} bind def
/VTK {
    /tk exch def
    tk 0 ne {
        newpath
          -2 tk Y moveto
           2 tk Y lineto
          0.5 setlinewidth
        stroke
    } if
    tk 5 mod 0 eq {
        tk misc cvs dup
        stringwidth pop neg 5 sub tk Y 4 sub moveto show
    } if
} def
/HTK {
    /tk exch def
    tk 0 ne { %if
        newpath
          tk X -2 moveto
          tk X  2 lineto
          0.5 setlinewidth
        stroke
    } if
    tk 2 mod 0 eq { %if
        tk 2 idiv misc cvs dup
        stringwidth pop tk X exch 2 div sub -12 moveto show
    } if
} def
/VLN {
    newpath
      Y dup 0 exch moveto
      47.2 X exch lineto
    stroke
} bind def
/HLN {
    newpath
      X dup 0 moveto
      mx Y 2 add lineto
    stroke
} bind def
/Grid {
    0.1 setlinewidth
    1 1 47 {HLN} for
    1 1 mx {VLN} for
} bind def
/Axes {
    0.8 setlinewidth
    newpath
      0 mx Y 2 add moveto
      0 0 lineto
      47.2 X 0 lineto
    stroke
    /Helvetica findfont 11 scalefont setfont
    0 1 mx {VTK} for
    0 1 47 {HTK} for
} bind def
/BPLT {
    setgray
    1 setlinecap
    1 setlinejoin
    2 setlinewidth
    gsave
} bind def
/EPLT {
    grestore
} bind def
/Plot {
    /h 47 def
    { %loop
        /p 0 def
        newpath
        { %loop
            h 0 ge { %ifelse
                dup 0 lt { %ifelse
                    pop /h h 1 sub def
                }{
                    exit
                } ifelse
            }{
                exit
            } ifelse
        } loop
        h 0 ge { %if
            Y h X exch moveto
            /p p 1 add def
            /h h 1 sub def
        } if
        { %loop
            h 0 ge { %ifelse
                dup 0 ge { %ifelse
                    Y h X exch lineto
                    /h h 1 sub def
                    /p p 1 add def
                }{
                    exit
                } ifelse
            }{
                exit
            } ifelse
        } loop
        p 0 gt { %if
            p 1 eq { %if
                closepath
            } if
            stroke
        } if
        /h h 1 sub def
        h 0 lt {exit} if
    } loop
} bind def