Iso paper

1 files changed, 197 insertions, 0 deletions

diff --git a/src/iso-paper.ps.j2 b/src/iso-paper.ps.j2
new file mode 100644
index 0000000..7f4d7ba
--- /dev/null
+++ b/src/iso-paper.ps.j2
@@ -0,0 +1,197 @@
+%!PS-Adobe-1.0
+%%Title: iso-paper by Elena of Valhalla
+%%Pages:1
+%%BoundingBox: {{ bounding_box }}
+%%DocumentPaperSizes: {{ paper_name }}
+%%CreationDate: 2011/05/25
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 1
+%%EndComments
+%%BeginProlog
+% Copyright (C) 2011 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
+
+/SideLen   {{ side }} def         % spacing between lines
+
+/StrongStep   {{ count }} def        % number of thin lines between strong ones
+
+% line width and color for thin lines
+/LineSizeThin {{ thin_line_size }} def
+/LineColoThin {{ thin_line_color }} def
+% line width and color for strong lines
+/LineSizeStro {{ heavy_line_size }} def
+/LineColoStro {{ heavy_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
+
+% translation of the starting point of the pattern
+/PattTrasX {{ x_trasl }} def
+/PattTrasY {{ y_trasl }} def
+
+% ------ 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 ------------------------------------------------------------
+
+/Sin 30 sin def 
+/Cos 30 cos def 
+
+/AreaHeight PageHeight BorderTop sub BorderBottom sub def
+/AreaWidth PageWidth BorderLeft sub BorderRight sub def
+/DiaHor AreaHeight Sin mul Cos div def
+
+% number of diagonal lines
+/DiaNum AreaWidth SideLen div AreaHeight SideLen Sin mul div 2 mul add def
+/HorNum AreaHeight SideLen Sin mul div def
+
+% starting vert and hor line num
+/DiaSta PattTrasX SideLen div cvi neg AreaHeight SideLen Sin mul div sub cvi def
+/HorSta PattTrasY SideLen Sin mul div cvi neg def
+
+% ending vert and hor line num
+/DiaEnd DiaNum DiaSta add def
+/HorEnd DiaNum HorSta add def
+
+% ------ 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
+
+%%EndProlog
+%%Page: 1 1
+
+% set printing area
+UsedArea clip
+ 
+% print background
+BackColo setrgbcolor
+UsedArea fill
+
+% print diagonal thin line pattern
+newpath
+  DiaSta 1 DiaEnd { %for
+    dup SideLen mul BorderLeft add PattTrasX add PattTrasY Cos div add 
+      BorderBottom moveto
+    DiaHor neg AreaHeight rlineto
+    SideLen mul BorderLeft add PattTrasX add BorderBottom moveto
+    DiaHor AreaHeight rlineto
+  } for
+  LineSizeThin setlinewidth
+  LineColoThin setrgbcolor
+stroke
+
+% print diagonal strong line pattern
+newpath
+  DiaSta 1 DiaEnd { %for
+    dup
+    StrongStep mod 0 eq { %if
+        dup SideLen mul BorderLeft add PattTrasX add PattTrasY Cos div add 
+          BorderBottom moveto
+        DiaHor neg AreaHeight rlineto
+        SideLen mul BorderLeft add PattTrasX add BorderBottom moveto
+        DiaHor AreaHeight rlineto
+    } if
+  } for
+  LineSizeStro setlinewidth
+  LineColoStro setrgbcolor
+stroke
+
+% print horizontal thin line pattern
+newpath
+  HorSta 1 HorEnd { %for
+    SideLen Cos mul mul BorderBottom add PattTrasY add BorderLeft exch moveto
+    AreaWidth 0 rlineto
+  } for
+  LineSizeThin setlinewidth
+  LineColoThin setrgbcolor
+stroke
+
+% print horizontal strong line pattern
+newpath
+  HorSta 1 HorEnd { %for
+    dup
+    StrongStep mod 0 eq { %if
+      SideLen Cos mul mul BorderBottom add PattTrasY add BorderLeft exch moveto
+      AreaWidth 0 rlineto
+    } if
+  } for
+  LineSizeStro setlinewidth
+  LineColoStro setrgbcolor
+stroke
+
+% print border (if WillPrintBorder is not 0 )
+WillPrintBorder 0 ne {
+  LineSizeBord setlinewidth
+  LineColoBord setrgbcolor
+  UsedArea stroke
+} if
+
+showpage
+%%Trailer