%!PS-Adobe-1.0
%%Title: ruled-paper by Elena of Valhalla
%%Pages:1
%%BoundingBox: {{ bounding_box }}
%%DocumentPaperSizes: {{ paper_name }}
%%CreationDate: 2019-06-16
%%DocumentData: Clean7Bit
%%LanguageLevel: 1
%%EndComments
%%BeginProlog
% Copyright (C) 2005 Elena Grandi
% All rights reserved.
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are met:
%
% * Redistributions of source code must retain the above copyright
%   notice, this list of conditions and the following disclaimer.
% * Redistributions in binary form must reproduce the above copyright
%   notice, this list of conditions and the following disclaimer in the
%   documentation and/or other materials provided with the distribution.
% * Neither the name of the <organization> nor the
%   names of its contributors may be used to endorse or promote products
%   derived from this software without specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE FOR ANY
% DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
% (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
% ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
% (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

% ------ Usage ----------------------------------------------------------------
 
% To use this file either send it to a postscript printer, or use your
% favourite postscript interpreter to visualize and print it.
 
% You can customize the result by changing the values in the Settings
% section below (see the comments for details)
 
% ------ sizes ----------------------------------------------------------------
% This will allow you to give measurements in inches or millimiters
% do not change
/inch {72 mul} def
/mm {0.03937 inch mul} def
 
% ------ Settings -------------------------------------------------------------
 
% ------ Basic settings

% page size: if you change this, you should change the BoundingBox
% in line 4 accordingly (you CAN'T use mm or inch over there)
/PageWidth  {{ page_width }} def
/PageHeight {{ page_height }} def

{% if hor_distances %}
% Horizontal lines
/HorLinPat {{ hor_distances | length }} array def
{% for d in hor_distances %}
    HorLinPat {{ loop.revindex0 }} {{ d }} put
{% endfor %}
/HorLinSpac {{ hor_spacing }} def     % spacing between groups
{% endif %}

{% if ver_distances %}
% Vertical lines
/VerLinPat {{ ver_distances | length }} array def
{% for d in ver_distances %}
    VerLinPat {{ loop.revindex0 }} {{ d }} put
{% endfor %}
/VerLinSpac {{ ver_spacing }} def     % spacing between groups
{% endif %}

% line width and color for thin lines
/LineSizeThin {{ thin_line_size }} def
/LineColoThin {{ thin_line_color }} def
% line width and color for border
/LineSizeBord {{ border_line_size }} def
/LineColoBord {{ border_line_color }} def

/BackColo {{ background_color }} def  % background color

% white margins
/BorderTop {{ margin_top }} def
/BorderBottom {{ margin_bottom }} def
/BorderLeft {{ margin_left }} def
/BorderRight {{ margin_right }} def

% ------ Advanced settings

% ------ Behaviour
 
% Whether to print a line around the margins (1) or not (0)
/WillPrintBorder {{ 1 if border else 0 }} def

 
% From here on you shouldn't worry about changing or configuring anything
% ------ Variables ------------------------------------------------------------

{% if hor_distances %}
/HorGrouHeig 0 HorLinPat { add } forall def
/HorGrouNumb PageHeight BorderBottom sub BorderTop sub HorGrouHeig HorLinSpac add div def
{% endif %}

{% if ver_distances %}
/VerGrouHeig 0 VerLinPat { add } forall def
/VerGrouNumb PageHeight BorderBottom sub BorderTop sub VerGrouHeig VerLinSpac add div def
{% endif %}

% ------ Procedures -----------------------------------------------------------
 
% Describes the printable area (does NOT print anything)
/UsedArea {
  newpath
  BorderLeft BorderBottom moveto
  BorderLeft PageHeight BorderTop sub lineto
  PageWidth BorderRight sub PageHeight BorderTop sub lineto
  PageWidth BorderRight sub BorderBottom lineto
  closepath
} def

{% if hor_distances %}
/PrintHorGroup { % stk: y
  gsave
  0 exch translate
  newpath
    BorderLeft 0 moveto
    PageWidth BorderRight sub 0 lineto
    0
    HorLinPat { % forall
        add
        dup BorderLeft exch moveto
        dup PageWidth BorderRight sub exch lineto
    } forall
    LineSizeThin setlinewidth
    LineColoThin setrgbcolor
  stroke
  grestore
} def
{% endif %}

{% if ver_distances %}
/PrintVerGroup { % stk: x
  gsave
  0 translate
  newpath
    0 BorderRight moveto
    0 PageHeight BorderTop sub lineto
    0
    VerLinPat { % forall
        add
        dup BorderBottom moveto
        dup PageHeight BorderTop sub lineto
    } forall
    LineSizeThin setlinewidth
    LineColoThin setrgbcolor
  stroke
  grestore
} def
{% endif %}

%%EndProlog
%%Page: 1

% set printing area
UsedArea clip
 
% print background
BackColo setrgbcolor
UsedArea fill

{% if hor_distances %}
% print horizontal lines
0 1 HorGrouNumb { % for
    HorGrouHeig HorLinSpac add mul BorderBottom add PrintHorGroup
} for
{% endif %}

{% if ver_distances %}
% print vertical lines
0 1 VerGrouNumb { % for
    VerGrouHeig VerLinSpac add mul BorderBottom add PrintVerGroup
} for
{% endif %}

% print border (if WillPrintBorder is not 0 )
WillPrintBorder 0 ne {
  LineSizeBord setlinewidth
  LineColoBord setrgbcolor
  UsedArea stroke
} if

showpage
%%Trailer