aboutsummaryrefslogtreecommitdiff
path: root/src/iso-paper.ps
diff options
context:
space:
mode:
authorElena ``of Valhalla'' Grandi <valhalla@trueelena.org>2017-06-27 19:43:47 +0200
committerElena ``of Valhalla'' Grandi <valhalla@trueelena.org>2017-06-27 19:43:47 +0200
commit24021f0b670f4d49391fc0174f140fd71147afaf (patch)
tree5c450d1f7e5986be39c61836be219e21f76c24b4 /src/iso-paper.ps
parent9a0089b8dad6ea4214ea421fe48a097cb3458daf (diff)
Iso paper
Diffstat (limited to 'src/iso-paper.ps')
-rw-r--r--src/iso-paper.ps209
1 files changed, 0 insertions, 209 deletions
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 <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
-
-/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