%!PS-Adobe-1.0
%%DocumentFonts: LubalinGraph-Demi
%%Title: Line-Spacing-Grid.PS
%%BoundingBox: 48 72 414 180
%%EndComments
         % Line spacing sample
         /pica {12 mul} def
         /lweight .25 def
         /fontsize 18 def
         /border lweight 4 mul def
         /ps 3 string def
	 /ctext {dup stringwidth pop 2 div neg 0 rmoveto show} def
                              
         % Procedure
         /draw_rule { /ydelta exch def
         	      lweight setlinewidth	
         	      0 setgray
         	      1 1 lines 1 sub
         	      {	/ypos ypos ydelta sub def
         		xpos ypos moveto
         		lwidth 0 rlineto
         		stroke
         	      } for
         	      /ypos ypos ydelta sub def
         	      xpos ypos moveto
         	      lwidth 0 rlineto
         	      border setlinewidth
         	      currentpoint /pointb exch def
         	      stroke
         	      % print pointsize in middle of lines
         	      /LubalinGraph-Demi findfont fontsize scalefont setfont
         	      xpos lwidth 2 div add
        	      pointa dup pointb sub 2 div sub fontsize 3 div sub
         	      moveto
         	      .5 setgray
         	      ydelta ps cvs
         	      ctext	
         	      /pointa pointb def
         	    } def

        % setup
	90 rotate
        /lwidth {9 pica} def		%width of line 
        /xpos 6 pica def
	/ypos -6  pica def
        /pointa ypos def 
	/xorig xpos def	/yorig ypos def
        % draw rules
        /lines 5 def
        6 draw_rule 
        /lines lines 1 sub def
        7 1 10 {draw_rule} for
        /lines lines 1 sub def
        11 1 15 {draw_rule} for
        xorig pointb moveto
	xorig yorig lineto
	lwidth 0 rlineto
        0 pointb yorig sub rlineto
	0 setgray
        border setlinewidth
        stroke
	0 setgray
	xorig lwidth 2 div add yorig 4 add moveto
	/LubalinGraph-Book findfont 10 scalefont setfont
	(Line spacing guide) ctext
showpage