From 24021f0b670f4d49391fc0174f140fd71147afaf Mon Sep 17 00:00:00 2001 From: Elena ``of Valhalla'' Grandi Date: Tue, 27 Jun 2017 19:43:47 +0200 Subject: Iso paper --- src/iso-paper.ps | 209 ---------------------------------------------------- src/iso-paper.ps.j2 | 197 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 197 insertions(+), 209 deletions(-) delete mode 100644 src/iso-paper.ps create mode 100644 src/iso-paper.ps.j2 (limited to 'src') diff --git a/src/iso-paper.ps b/src/iso-paper.ps deleted file mode 100644 index 799e452..0000000 --- a/src/iso-paper.ps +++ /dev/null @@ -1,209 +0,0 @@ -%!PS-Adobe-1.0 -%%Title: iso-paper by Elena of Valhalla -%%Pages:1 -%%BoundingBox: 0 0 596 842 -%%DocumentPaperSizes: a4 -%%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 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 - -/SideLen 5 mm def % spacing between lines - -/StrongStep 4 def % number of thin lines between strong ones - -% line width and color for thin lines -/LineSizeThin 0.5 def -/LineColoThin { 0.8 0.8 0.8 } def -% line width and color for strong lines -/LineSizeStro 0.5 def -/LineColoStro { 0.6 0.6 0.6 } def -% line width and color for border -/LineSizeBord 0.5 def -/LineColoBord { 0.6 0.6 0.6 } def - -/BackColo { 1.0 1.0 1.0 } def % background color - -% page size: if you change this, you should change the BoundingBox -% in line 4 accordingly (you CAN'T use mm or inch over there) -% Default is A4 paper ( BoundingBox: 0 0 596 842 ) -/PageWidth 210 mm def -/PageHeight 297 mm def -% alternate page sizes (with BoundingBox values) may be -% A3 paper ( BoundingBox: 0 0 842 1192) -%/PageWidth 297 mm def -%/PageHeight 420 mm def -% Letter paper ( BoundingBox: 0 0 612 792) -%/PageWidth 8.5 inch def -%/PageHeight 11 inch def -% landscape A4 paper ( BoundingBox: 0 0 842 596 ) - print it with -% lp -o landscape iso-paper.ps -%/PageWidth 297 mm def -%/PageHeight 210 mm def - -% white margins -/BorderTop 10 mm def -/BorderBottom 10 mm def -/BorderLeft 10 mm def -/BorderRight 10 mm def - -% ------ Advanced settings - -% translation of the starting point of the pattern -/PattTrasX 00 mm def -/PattTrasY 00 mm def - -% ------ Behaviour - -% Whether to print a line around the margins (1) or not (0) -/WillPrintBorder 1 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 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 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 -- cgit v1.2.3