Download raw (6.7 KB)

%!PS-Adobe-3.0
%
% ********************************************************************************
%
% Figure "argsinh2" from the Moire Demonstration Kit accompanying the book: 
%		"The Theory of the Moire Phenomenon"
% by I. Amidror, published by Kluwer Academic Publishers, 2000.
%
%		* * *  Copyright (c) 2000 EPFL  * * *
%
% Author: I. Amidror
%
% Modified: May 24, 2002
%
% ********************************************************************************
%
% A curvilinear grating:  y = asinh(x) + x/8
%
% The adjustable parameters are as follows:
% 
% theta1 - the grating angle, in degrees.
% p1 - the period of the grating along its main axis, in centiinches.
% len - the length of the grating along its main axis, in centiinches.
% lwidth - the linewidth, in centiinches.
%
% ********************************************************************************
%





% ************ Adjustable parameters for the curvilinear grating:


/theta1 0 def		% angle of the grating in degrees

/p1 3 def		% period of the grating along its main axis in centiinches

/len 600 def		% length of the grating along its main axis in centiinches

/lwidth 0.5 def		% linewidth in centiinches




% ************ Curve definition:


/inch {72 mul} def
/centiinch {0.72 mul} def
/cm {28.3465 mul} def
/mm {2.83465 mul} def
/pix {72 mul 600 div} def



/curve {
-7.50000 cm -3.64997 cm rmoveto
0.10000 cm 0.02580 cm rlineto
0.10000 cm 0.02598 cm rlineto
0.10000 cm 0.02616 cm rlineto
0.10000 cm 0.02635 cm rlineto
0.10000 cm 0.02654 cm rlineto
0.10000 cm 0.02674 cm rlineto
0.10000 cm 0.02695 cm rlineto
0.10000 cm 0.02716 cm rlineto
0.10000 cm 0.02737 cm rlineto
0.10000 cm 0.02759 cm rlineto
0.10000 cm 0.02782 cm rlineto
0.10000 cm 0.02806 cm rlineto
0.10000 cm 0.02830 cm rlineto
0.10000 cm 0.02855 cm rlineto
0.10000 cm 0.02881 cm rlineto
0.10000 cm 0.02907 cm rlineto
0.10000 cm 0.02935 cm rlineto
0.10000 cm 0.02963 cm rlineto
0.10000 cm 0.02993 cm rlineto
0.10000 cm 0.03023 cm rlineto
0.10000 cm 0.03055 cm rlineto
0.10000 cm 0.03087 cm rlineto
0.10000 cm 0.03121 cm rlineto
0.10000 cm 0.03156 cm rlineto
0.10000 cm 0.03193 cm rlineto
0.10000 cm 0.03230 cm rlineto
0.10000 cm 0.03269 cm rlineto
0.10000 cm 0.03310 cm rlineto
0.10000 cm 0.03353 cm rlineto
0.10000 cm 0.03397 cm rlineto
0.10000 cm 0.03443 cm rlineto
0.10000 cm 0.03490 cm rlineto
0.10000 cm 0.03540 cm rlineto
0.10000 cm 0.03593 cm rlineto
0.10000 cm 0.03647 cm rlineto
0.10000 cm 0.03704 cm rlineto
0.10000 cm 0.03764 cm rlineto
0.10000 cm 0.03827 cm rlineto
0.10000 cm 0.03892 cm rlineto
0.10000 cm 0.03962 cm rlineto
0.10000 cm 0.04034 cm rlineto
0.10000 cm 0.04111 cm rlineto
0.10000 cm 0.04191 cm rlineto
0.10000 cm 0.04276 cm rlineto
0.10000 cm 0.04366 cm rlineto
0.10000 cm 0.04461 cm rlineto
0.10000 cm 0.04561 cm rlineto
0.10000 cm 0.04668 cm rlineto
0.10000 cm 0.04781 cm rlineto
0.10000 cm 0.04901 cm rlineto
0.10000 cm 0.05029 cm rlineto
0.10000 cm 0.05166 cm rlineto
0.10000 cm 0.05312 cm rlineto
0.10000 cm 0.05468 cm rlineto
0.10000 cm 0.05635 cm rlineto
0.10000 cm 0.05814 cm rlineto
0.10000 cm 0.06006 cm rlineto
0.10000 cm 0.06212 cm rlineto
0.10000 cm 0.06434 cm rlineto
0.10000 cm 0.06672 cm rlineto
0.10000 cm 0.06928 cm rlineto
0.10000 cm 0.07203 cm rlineto
0.10000 cm 0.07498 cm rlineto
0.10000 cm 0.07813 cm rlineto
0.10000 cm 0.08147 cm rlineto
0.10000 cm 0.08501 cm rlineto
0.10000 cm 0.08870 cm rlineto
0.10000 cm 0.09250 cm rlineto
0.10000 cm 0.09634 cm rlineto
0.10000 cm 0.10011 cm rlineto
0.10000 cm 0.10368 cm rlineto
0.10000 cm 0.10686 cm rlineto
0.10000 cm 0.10948 cm rlineto
0.10000 cm 0.11136 cm rlineto
0.10000 cm 0.11233 cm rlineto
0.10000 cm 0.11233 cm rlineto
0.10000 cm 0.11136 cm rlineto
0.10000 cm 0.10948 cm rlineto
0.10000 cm 0.10686 cm rlineto
0.10000 cm 0.10368 cm rlineto
0.10000 cm 0.10011 cm rlineto
0.10000 cm 0.09634 cm rlineto
0.10000 cm 0.09250 cm rlineto
0.10000 cm 0.08870 cm rlineto
0.10000 cm 0.08501 cm rlineto
0.10000 cm 0.08147 cm rlineto
0.10000 cm 0.07813 cm rlineto
0.10000 cm 0.07498 cm rlineto
0.10000 cm 0.07203 cm rlineto
0.10000 cm 0.06928 cm rlineto
0.10000 cm 0.06672 cm rlineto
0.10000 cm 0.06434 cm rlineto
0.10000 cm 0.06212 cm rlineto
0.10000 cm 0.06006 cm rlineto
0.10000 cm 0.05814 cm rlineto
0.10000 cm 0.05635 cm rlineto
0.10000 cm 0.05468 cm rlineto
0.10000 cm 0.05312 cm rlineto
0.10000 cm 0.05166 cm rlineto
0.10000 cm 0.05029 cm rlineto
0.10000 cm 0.04901 cm rlineto
0.10000 cm 0.04781 cm rlineto
0.10000 cm 0.04668 cm rlineto
0.10000 cm 0.04561 cm rlineto
0.10000 cm 0.04461 cm rlineto
0.10000 cm 0.04366 cm rlineto
0.10000 cm 0.04276 cm rlineto
0.10000 cm 0.04191 cm rlineto
0.10000 cm 0.04111 cm rlineto
0.10000 cm 0.04034 cm rlineto
0.10000 cm 0.03962 cm rlineto
0.10000 cm 0.03892 cm rlineto
0.10000 cm 0.03827 cm rlineto
0.10000 cm 0.03764 cm rlineto
0.10000 cm 0.03704 cm rlineto
0.10000 cm 0.03647 cm rlineto
0.10000 cm 0.03593 cm rlineto
0.10000 cm 0.03540 cm rlineto
0.10000 cm 0.03490 cm rlineto
0.10000 cm 0.03443 cm rlineto
0.10000 cm 0.03397 cm rlineto
0.10000 cm 0.03353 cm rlineto
0.10000 cm 0.03310 cm rlineto
0.10000 cm 0.03269 cm rlineto
0.10000 cm 0.03230 cm rlineto
0.10000 cm 0.03193 cm rlineto
0.10000 cm 0.03156 cm rlineto
0.10000 cm 0.03121 cm rlineto
0.10000 cm 0.03087 cm rlineto
0.10000 cm 0.03055 cm rlineto
0.10000 cm 0.03023 cm rlineto
0.10000 cm 0.02993 cm rlineto
0.10000 cm 0.02963 cm rlineto
0.10000 cm 0.02935 cm rlineto
0.10000 cm 0.02907 cm rlineto
0.10000 cm 0.02881 cm rlineto
0.10000 cm 0.02855 cm rlineto
0.10000 cm 0.02830 cm rlineto
0.10000 cm 0.02806 cm rlineto
0.10000 cm 0.02782 cm rlineto
0.10000 cm 0.02759 cm rlineto
0.10000 cm 0.02737 cm rlineto
0.10000 cm 0.02716 cm rlineto
0.10000 cm 0.02695 cm rlineto
0.10000 cm 0.02674 cm rlineto
0.10000 cm 0.02654 cm rlineto
0.10000 cm 0.02635 cm rlineto
0.10000 cm 0.02616 cm rlineto
0.10000 cm 0.02598 cm rlineto
0.10000 cm 0.02580 cm rlineto
} def




% ************ Draw the curvilinear grating:


0.2 inch 3.0 inch translate


/len2 len 2 div def
lwidth centiinch setlinewidth


gsave
4 inch 4.0 inch translate
theta1 rotate
0 p1 len		% draw curves
{newpath len2 sub centiinch 0 centiinch exch moveto
	curve
	stroke
} for
grestore



gsave
1.75 inch -1.0 inch translate
0.5 inch 0 inch moveto
/Times-Roman findfont
12 scalefont setfont
(Figure  ) show
/Times-Bold findfont
12 scalefont setfont
(argsinh2) show
/Times-Roman findfont
12 scalefont setfont
(  from the Moire) show
-0.06 inch 0 inch rmoveto
(\302 Demonstration Kit) show
0.1 inch -0.25 inch moveto
(accompanying the book:  ) show
/Times-Italic findfont
12 scalefont setfont
(The Theory of the Moire) show
-0.06 inch 0 inch rmoveto
(\302 Phenomenon) show
/Times-Roman findfont
12 scalefont setfont
0.1 inch -0.5 inch moveto
(by I. Amidror, published by Kluwer Academic Publishers, 2000.) show
grestore




showpage