1171
%!PS-Adobe-2.0
%%Title:Leather Coin Purse Layout
%%Creator:brf@mink.att.com (Bruce Fowler)
%%BoundingBox:0 0 612 792 
%%Pages:1
%%EndComments

% This code creates a pattern that can be used to make a small coin purse
% out of leather.  The raw material is circular, six inches in diameter.
% It should not be too thick, but stiff enough to hold its shape.  0.40"
% is about right.  Transfer the pattern to the leather using standard
% techniques, cut around the outline, crease as shown, then fold the flaps
% over and press wet overnight to set the shape.  You can try it quickly
% for size by folding up a copy of the pattern itself, like a paper flower.
% The result is a flat, octagonal construction that fits well in a pants
% pocket and will keep the pocket from being worn through by loose coins.

% Define some utility functions
%
/inch {72 mul} bind def

/CR {   % x_margin y_pos leading string CR => x_margin new_y_pos leading
        4 1 roll 3 copy 5 -1 roll exch sub
        4 1 roll moveto 4 -1 roll show
} bind def

% Draw one-eighth of the fold lines
%
/one_flap {
        % First draw all the construction lines
        0.0 0.0 moveto -0.207107 0.0 lineto
        -0.5 0.0 moveto -0.414214 0.0 lineto
        0.0 -0.5 moveto -0.146447 -0.146447 lineto
        -0.5 0.0 moveto -0.146447 -0.146447 lineto
        -0.146447 -0.478072 moveto -0.146447 -0.146447 lineto
        -0.478072 -0.146447 moveto -0.353554 -0.146447 lineto
        0 setlinecap [ 0.002 0.006 ] 0 setdash
        0.002 setlinewidth stroke

        % Then the "fold down" line
        -0.146447 -0.146447 moveto -0.353554 -0.146447 lineto
        1 setlinecap [ 0.02 ] 0 setdash
        0.008 setlinewidth stroke

        % Now the heavy "fold up" lines
        -0.414214 0.0 moveto -0.207107 0.0 lineto
        -0.207107 0.0 moveto -0.146477 -0.146477 lineto
        0 setlinecap [ ] 0 setdash stroke

        % Finally a quarter circle for the cut line
        -0.207107 0.0 0.207107 135.0 225.0 arc
        0.004 setlinewidth stroke
} bind def

% Puts a white dot at the fold corner, for alignment
%
/dot_it {               % X_position Y_position Size dot_it -
        0.5 mul 0 360 arc 1 setgray fill 0 setgray
} bind def

% Before scaling, add some descriptive text at the bottom of the page
%
/Helvetica findfont 10 scalefont setfont

% Legend for fold and cut lines
%
1 setlinecap
5.7 inch 2.54 inch moveto 0.7 inch 0.0 rlineto
2 setlinewidth stroke                   % "cut" sample
5.7 inch 2.34 inch moveto 0.7 inch 0.0 rlineto
4 setlinewidth stroke                   % "crease up" sample
5.7 inch 2.14 inch moveto 0.7 inch 0.0 rlineto
[ 10 ] 0 setdash stroke                 % "crease down" sample
5.7 inch 1.94 inch moveto 0.7 inch 0.0 rlineto
0 setlinecap [ 1 3 ] 0 setdash
1 setlinewidth stroke [ ] 0 setdash     % "construction" sample
%
6.5 inch 2.5 inch 0.2 inch              % Initial loc for CR macro
(Cut Outline) CR
(Fold UP) CR
(Fold DOWN) CR
(Construction Lines) CR
() CR
(Bruce Fowler) CR
(brf@mink.att.com) CR
pop pop pop                             % Remove CR state

% Motivation and instructions
%
0.75 inch 2.5 inch 0.2 inch             % Stack CR args - x, y, leading
(This pattern can be used to make a small coin purse out of leather.) CR
(The result is a flat, octagonal construction that fits well in a pants) CR
(pocket and will keep the pocket from being worn through by loose coins.) CR
(Use a piece of leather six inches in diameter, not too thick but stiff) CR
(enough to hold its shape.  0.40" is about right.  Transfer the pattern) CR
(to the leather, cut, crease, and fold as shown, and press wet overnight) CR
(to set the shape.  Make a sample by folding a copy of the pattern itself.) CR
pop pop pop                             % Remove CR state

% Place pattern on the page and scale up to actual size
%
4.25 inch 6.5 inch translate
7 inch 7 inch scale     % (2.9" purse cut from 6" circle of raw material)

% Set line parameters and draw the surrounding circle
%
0.5 0.0 moveto 0 0 0.5 0 360 arc
[ 0.002 0.006 ] 0 setdash 0.002 setlinewidth stroke [ ] 0 setdash

% Plot eight rotations of the flap fold lines
%
8 {
        one_flap
        -0.207107 0.0 0.006 dot_it
        45.0 rotate
} repeat
-0.207107 0.0 0.006 dot_it      % Covers up overlap from last pattern

% Put out the page
%
showpage

%%Trailer
.

0