Import existing postscript files

1 files changed, 190 insertions, 0 deletions

diff --git a/src/pointed-paper.ps b/src/pointed-paper.ps
new file mode 100644
index 0000000..6bda92b
--- /dev/null
+++ b/src/pointed-paper.ps
@@ -0,0 +1,190 @@
+%!PS-Adobe-1.0
+%%Title: pointed-paper
+%%Pages:1
+%%BoundingBox: 0 0 596 842
+%%DocumentPaperSizes: a4
+%%CreationDate: 2010/10/08
+%%DocumentData: Clean7Bit
+%%LanguageLevel: 1
+%%EndComments
+%%BeginProlog
+% Copyright (C) 2010 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 author 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
+
+/SquaXLen   0.1 inch def           % hor spacing between points
+/SquaYLen   0.1 inch  def           % ver spacing between points
+
+/SquaXStr   4 def              % hor number of thin points between strong ones
+/SquaYStr   4 def              % ver number of thin points  between strong ones
+
+/PointSizeThin 1 def
+/PointSizeStro 1 def
+
+% 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
+ 
+% white margins
+/BorderTop 14 mm def
+/BorderBottom 12 mm def
+/BorderLeft 10 mm def
+/BorderRight 10 mm def
+
+% ------ Advanced settings
+
+% translation of the starting point of the pattern
+/PattTrasX 0.05 inch def
+/PattTrasY 0.05 inch def
+
+% ------ Behaviour
+ 
+% Whether to print a line around the margins (1) or not (0)
+/WillPrintBorder 0 def
+ 
+% From here on you shouldn't worry about changing or configuring anything
+% ------ 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
+
+/PrintPointThin { %stk: x y
+    newpath
+        1 index
+        1 index
+        moveto
+        PointSizeThin 0 rmoveto
+        PointSizeThin 0 360 arc
+    closepath
+    LineSizeThin setlinewidth
+    LineColoThin setrgbcolor
+    stroke
+} def
+
+/PrintPointStro { %stk: x y
+    newpath
+        1 index
+        1 index
+        moveto
+        PointSizeStro 0 rmoveto
+        PointSizeStro 0 360 arc
+    closepath
+    LineSizeStro setlinewidth
+    LineColoStro setrgbcolor
+    stroke
+} def
+
+%%EndProlog
+%%Page: 1
+
+% set printing area
+UsedArea clip
+ 
+% print background
+BackColo setrgbcolor
+UsedArea fill
+
+% Print thin points
+BorderLeft PattTrasX add SquaXLen sub % x starting position
+SquaXLen % step
+PageWidth % stop
+{ % for
+    BorderBottom PattTrasY add SquaYLen sub % y starting position
+    SquaYLen % step
+    PageHeight % stop
+    { %for
+        1 index exch PrintPointThin
+    } for
+} for
+
+% Print strong points
+BorderLeft PattTrasX add SquaXLen sub % x starting position
+SquaXLen SquaXStr mul % step
+PageWidth % stop
+{ % for
+    BorderBottom PattTrasY add SquaYLen sub % y starting position
+    SquaYLen SquaYStr mul % step
+    PageHeight % stop
+    { %for
+        1 index exch PrintPointStro
+    } for
+} for
+
+% print border (if WillPrintBorder is not 0 )
+WillPrintBorder 0 ne {
+  LineSizeBord setlinewidth
+  LineColoBord setrgbcolor
+  UsedArea stroke
+} if
+
+showpage
+%%Trailer