Download raw (6.7 KB)

%!PS-Adobe-3.0
%
% ********************************************************************************
%
% Figure "parabol2" from the Moire Demonstration Kit accompanying the book: 
%		"The Theory of the Moire Phenomenon"
% by I. Amidror, published by Kluwer Academic Publishers, 1999.
%
%		* * *  Copyright (c) 1999 EPFL  * * *
%
% Author: I. Amidror
%
% Modified: June 14, 1999
%
% ********************************************************************************
%
% A parabolic curvilinear grating:  y = 0.10*x*x
%
% 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 700 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 5.62500 cm rmoveto
0.10000 cm -0.14900 cm rlineto
0.10000 cm -0.14700 cm rlineto
0.10000 cm -0.14500 cm rlineto
0.10000 cm -0.14300 cm rlineto
0.10000 cm -0.14100 cm rlineto
0.10000 cm -0.13900 cm rlineto
0.10000 cm -0.13700 cm rlineto
0.10000 cm -0.13500 cm rlineto
0.10000 cm -0.13300 cm rlineto
0.10000 cm -0.13100 cm rlineto
0.10000 cm -0.12900 cm rlineto
0.10000 cm -0.12700 cm rlineto
0.10000 cm -0.12500 cm rlineto
0.10000 cm -0.12300 cm rlineto
0.10000 cm -0.12100 cm rlineto
0.10000 cm -0.11900 cm rlineto
0.10000 cm -0.11700 cm rlineto
0.10000 cm -0.11500 cm rlineto
0.10000 cm -0.11300 cm rlineto
0.10000 cm -0.11100 cm rlineto
0.10000 cm -0.10900 cm rlineto
0.10000 cm -0.10700 cm rlineto
0.10000 cm -0.10500 cm rlineto
0.10000 cm -0.10300 cm rlineto
0.10000 cm -0.10100 cm rlineto
0.10000 cm -0.09900 cm rlineto
0.10000 cm -0.09700 cm rlineto
0.10000 cm -0.09500 cm rlineto
0.10000 cm -0.09300 cm rlineto
0.10000 cm -0.09100 cm rlineto
0.10000 cm -0.08900 cm rlineto
0.10000 cm -0.08700 cm rlineto
0.10000 cm -0.08500 cm rlineto
0.10000 cm -0.08300 cm rlineto
0.10000 cm -0.08100 cm rlineto
0.10000 cm -0.07900 cm rlineto
0.10000 cm -0.07700 cm rlineto
0.10000 cm -0.07500 cm rlineto
0.10000 cm -0.07300 cm rlineto
0.10000 cm -0.07100 cm rlineto
0.10000 cm -0.06900 cm rlineto
0.10000 cm -0.06700 cm rlineto
0.10000 cm -0.06500 cm rlineto
0.10000 cm -0.06300 cm rlineto
0.10000 cm -0.06100 cm rlineto
0.10000 cm -0.05900 cm rlineto
0.10000 cm -0.05700 cm rlineto
0.10000 cm -0.05500 cm rlineto
0.10000 cm -0.05300 cm rlineto
0.10000 cm -0.05100 cm rlineto
0.10000 cm -0.04900 cm rlineto
0.10000 cm -0.04700 cm rlineto
0.10000 cm -0.04500 cm rlineto
0.10000 cm -0.04300 cm rlineto
0.10000 cm -0.04100 cm rlineto
0.10000 cm -0.03900 cm rlineto
0.10000 cm -0.03700 cm rlineto
0.10000 cm -0.03500 cm rlineto
0.10000 cm -0.03300 cm rlineto
0.10000 cm -0.03100 cm rlineto
0.10000 cm -0.02900 cm rlineto
0.10000 cm -0.02700 cm rlineto
0.10000 cm -0.02500 cm rlineto
0.10000 cm -0.02300 cm rlineto
0.10000 cm -0.02100 cm rlineto
0.10000 cm -0.01900 cm rlineto
0.10000 cm -0.01700 cm rlineto
0.10000 cm -0.01500 cm rlineto
0.10000 cm -0.01300 cm rlineto
0.10000 cm -0.01100 cm rlineto
0.10000 cm -0.00900 cm rlineto
0.10000 cm -0.00700 cm rlineto
0.10000 cm -0.00500 cm rlineto
0.10000 cm -0.00300 cm rlineto
0.10000 cm -0.00100 cm rlineto
0.10000 cm 0.00100 cm rlineto
0.10000 cm 0.00300 cm rlineto
0.10000 cm 0.00500 cm rlineto
0.10000 cm 0.00700 cm rlineto
0.10000 cm 0.00900 cm rlineto
0.10000 cm 0.01100 cm rlineto
0.10000 cm 0.01300 cm rlineto
0.10000 cm 0.01500 cm rlineto
0.10000 cm 0.01700 cm rlineto
0.10000 cm 0.01900 cm rlineto
0.10000 cm 0.02100 cm rlineto
0.10000 cm 0.02300 cm rlineto
0.10000 cm 0.02500 cm rlineto
0.10000 cm 0.02700 cm rlineto
0.10000 cm 0.02900 cm rlineto
0.10000 cm 0.03100 cm rlineto
0.10000 cm 0.03300 cm rlineto
0.10000 cm 0.03500 cm rlineto
0.10000 cm 0.03700 cm rlineto
0.10000 cm 0.03900 cm rlineto
0.10000 cm 0.04100 cm rlineto
0.10000 cm 0.04300 cm rlineto
0.10000 cm 0.04500 cm rlineto
0.10000 cm 0.04700 cm rlineto
0.10000 cm 0.04900 cm rlineto
0.10000 cm 0.05100 cm rlineto
0.10000 cm 0.05300 cm rlineto
0.10000 cm 0.05500 cm rlineto
0.10000 cm 0.05700 cm rlineto
0.10000 cm 0.05900 cm rlineto
0.10000 cm 0.06100 cm rlineto
0.10000 cm 0.06300 cm rlineto
0.10000 cm 0.06500 cm rlineto
0.10000 cm 0.06700 cm rlineto
0.10000 cm 0.06900 cm rlineto
0.10000 cm 0.07100 cm rlineto
0.10000 cm 0.07300 cm rlineto
0.10000 cm 0.07500 cm rlineto
0.10000 cm 0.07700 cm rlineto
0.10000 cm 0.07900 cm rlineto
0.10000 cm 0.08100 cm rlineto
0.10000 cm 0.08300 cm rlineto
0.10000 cm 0.08500 cm rlineto
0.10000 cm 0.08700 cm rlineto
0.10000 cm 0.08900 cm rlineto
0.10000 cm 0.09100 cm rlineto
0.10000 cm 0.09300 cm rlineto
0.10000 cm 0.09500 cm rlineto
0.10000 cm 0.09700 cm rlineto
0.10000 cm 0.09900 cm rlineto
0.10000 cm 0.10100 cm rlineto
0.10000 cm 0.10300 cm rlineto
0.10000 cm 0.10500 cm rlineto
0.10000 cm 0.10700 cm rlineto
0.10000 cm 0.10900 cm rlineto
0.10000 cm 0.11100 cm rlineto
0.10000 cm 0.11300 cm rlineto
0.10000 cm 0.11500 cm rlineto
0.10000 cm 0.11700 cm rlineto
0.10000 cm 0.11900 cm rlineto
0.10000 cm 0.12100 cm rlineto
0.10000 cm 0.12300 cm rlineto
0.10000 cm 0.12500 cm rlineto
0.10000 cm 0.12700 cm rlineto
0.10000 cm 0.12900 cm rlineto
0.10000 cm 0.13100 cm rlineto
0.10000 cm 0.13300 cm rlineto
0.10000 cm 0.13500 cm rlineto
0.10000 cm 0.13700 cm rlineto
0.10000 cm 0.13900 cm rlineto
0.10000 cm 0.14100 cm rlineto
0.10000 cm 0.14300 cm rlineto
0.10000 cm 0.14500 cm rlineto
0.10000 cm 0.14700 cm rlineto
0.10000 cm 0.14900 cm rlineto
} def




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


0.2 inch 2.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 0.0 inch translate
0.5 inch 0 inch moveto
/Times-Roman findfont
12 scalefont setfont
(Figure  ) show
/Times-Bold findfont
12 scalefont setfont
(parabol2) 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, 1999.) show
grestore




showpage