Non-metric graph paper in PostScript

%!PS-Adobe-3.0
%%BoundingBox: 0 0 612 792
%%Title: (Traditional squared graph paper: GraphPaper0.ps)
%%Creator: (PM 2Ring)
%%Creationdate: (19:43:00 Apr  9 1999)
%%Pages: 1 1
%%EndComments

16 dict begin

%Page size: US letter
/XM 612 def
/YM 792 def

%One inch in PostScript points
/inch {72 mul}bind def

%Bottom left margin
/MARGIN .25 inch def

% Grid increments
/dBig 1 inch def
/dSmall .1 inch def

% Grid colour in HSB form
/Colour {.5 1 1 } bind def  %Cyan
/Colour {0 0 0.5 } bind def  %Gray

% ------------------------------------------------------------

%Grid size
/XLO MARGIN def
/YLO MARGIN def

/XR 8 inch def
/YR 10 inch def

/XHI XLO XR add def
/YHI YLO YR add def

% ------------------------------------------------------------

gsave
    Colour sethsbcolor

    %Minor gridlines
    .1 setlinewidth
    %Uncomment one of the lines below to use dashed lines for the small squares
    %[2 2] 0 setdash
    [1 1] 0 setdash

    YLO dSmall YHI
    {
        XLO exch moveto
        XR 0 rlineto stroke
    } for

    XLO dSmall XHI
    {
        YLO moveto
        0 YR rlineto stroke
    } for

    %Major gridlines
    .25 setlinewidth
    [] 0 setdash

    YLO dBig YHI
    {
        XLO exch moveto
        XR 0 rlineto stroke
    } for

    XLO dBig XHI
    {
        YLO moveto
        0 YR rlineto stroke
    } for
grestore
showpage

end
%%EOF