Download raw (6.7 KB)

%!PS-Adobe-3.0
%
% ********************************************************************************
%
% Figure "parabol1" 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.05*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 650 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 2.81250 cm rmoveto
0.10000 cm -0.07450 cm rlineto
0.10000 cm -0.07350 cm rlineto
0.10000 cm -0.07250 cm rlineto
0.10000 cm -0.07150 cm rlineto
0.10000 cm -0.07050 cm rlineto
0.10000 cm -0.06950 cm rlineto
0.10000 cm -0.06850 cm rlineto
0.10000 cm -0.06750 cm rlineto
0.10000 cm -0.06650 cm rlineto
0.10000 cm -0.06550 cm rlineto
0.10000 cm -0.06450 cm rlineto
0.10000 cm -0.06350 cm rlineto
0.10000 cm -0.06250 cm rlineto
0.10000 cm -0.06150 cm rlineto
0.10000 cm -0.06050 cm rlineto
0.10000 cm -0.05950 cm rlineto
0.10000 cm -0.05850 cm rlineto
0.10000 cm -0.05750 cm rlineto
0.10000 cm -0.05650 cm rlineto
0.10000 cm -0.05550 cm rlineto
0.10000 cm -0.05450 cm rlineto
0.10000 cm -0.05350 cm rlineto
0.10000 cm -0.05250 cm rlineto
0.10000 cm -0.05150 cm rlineto
0.10000 cm -0.05050 cm rlineto
0.10000 cm -0.04950 cm rlineto
0.10000 cm -0.04850 cm rlineto
0.10000 cm -0.04750 cm rlineto
0.10000 cm -0.04650 cm rlineto
0.10000 cm -0.04550 cm rlineto
0.10000 cm -0.04450 cm rlineto
0.10000 cm -0.04350 cm rlineto
0.10000 cm -0.04250 cm rlineto
0.10000 cm -0.04150 cm rlineto
0.10000 cm -0.04050 cm rlineto
0.10000 cm -0.03950 cm rlineto
0.10000 cm -0.03850 cm rlineto
0.10000 cm -0.03750 cm rlineto
0.10000 cm -0.03650 cm rlineto
0.10000 cm -0.03550 cm rlineto
0.10000 cm -0.03450 cm rlineto
0.10000 cm -0.03350 cm rlineto
0.10000 cm -0.03250 cm rlineto
0.10000 cm -0.03150 cm rlineto
0.10000 cm -0.03050 cm rlineto
0.10000 cm -0.02950 cm rlineto
0.10000 cm -0.02850 cm rlineto
0.10000 cm -0.02750 cm rlineto
0.10000 cm -0.02650 cm rlineto
0.10000 cm -0.02550 cm rlineto
0.10000 cm -0.02450 cm rlineto
0.10000 cm -0.02350 cm rlineto
0.10000 cm -0.02250 cm rlineto
0.10000 cm -0.02150 cm rlineto
0.10000 cm -0.02050 cm rlineto
0.10000 cm -0.01950 cm rlineto
0.10000 cm -0.01850 cm rlineto
0.10000 cm -0.01750 cm rlineto
0.10000 cm -0.01650 cm rlineto
0.10000 cm -0.01550 cm rlineto
0.10000 cm -0.01450 cm rlineto
0.10000 cm -0.01350 cm rlineto
0.10000 cm -0.01250 cm rlineto
0.10000 cm -0.01150 cm rlineto
0.10000 cm -0.01050 cm rlineto
0.10000 cm -0.00950 cm rlineto
0.10000 cm -0.00850 cm rlineto
0.10000 cm -0.00750 cm rlineto
0.10000 cm -0.00650 cm rlineto
0.10000 cm -0.00550 cm rlineto
0.10000 cm -0.00450 cm rlineto
0.10000 cm -0.00350 cm rlineto
0.10000 cm -0.00250 cm rlineto
0.10000 cm -0.00150 cm rlineto
0.10000 cm -0.00050 cm rlineto
0.10000 cm 0.00050 cm rlineto
0.10000 cm 0.00150 cm rlineto
0.10000 cm 0.00250 cm rlineto
0.10000 cm 0.00350 cm rlineto
0.10000 cm 0.00450 cm rlineto
0.10000 cm 0.00550 cm rlineto
0.10000 cm 0.00650 cm rlineto
0.10000 cm 0.00750 cm rlineto
0.10000 cm 0.00850 cm rlineto
0.10000 cm 0.00950 cm rlineto
0.10000 cm 0.01050 cm rlineto
0.10000 cm 0.01150 cm rlineto
0.10000 cm 0.01250 cm rlineto
0.10000 cm 0.01350 cm rlineto
0.10000 cm 0.01450 cm rlineto
0.10000 cm 0.01550 cm rlineto
0.10000 cm 0.01650 cm rlineto
0.10000 cm 0.01750 cm rlineto
0.10000 cm 0.01850 cm rlineto
0.10000 cm 0.01950 cm rlineto
0.10000 cm 0.02050 cm rlineto
0.10000 cm 0.02150 cm rlineto
0.10000 cm 0.02250 cm rlineto
0.10000 cm 0.02350 cm rlineto
0.10000 cm 0.02450 cm rlineto
0.10000 cm 0.02550 cm rlineto
0.10000 cm 0.02650 cm rlineto
0.10000 cm 0.02750 cm rlineto
0.10000 cm 0.02850 cm rlineto
0.10000 cm 0.02950 cm rlineto
0.10000 cm 0.03050 cm rlineto
0.10000 cm 0.03150 cm rlineto
0.10000 cm 0.03250 cm rlineto
0.10000 cm 0.03350 cm rlineto
0.10000 cm 0.03450 cm rlineto
0.10000 cm 0.03550 cm rlineto
0.10000 cm 0.03650 cm rlineto
0.10000 cm 0.03750 cm rlineto
0.10000 cm 0.03850 cm rlineto
0.10000 cm 0.03950 cm rlineto
0.10000 cm 0.04050 cm rlineto
0.10000 cm 0.04150 cm rlineto
0.10000 cm 0.04250 cm rlineto
0.10000 cm 0.04350 cm rlineto
0.10000 cm 0.04450 cm rlineto
0.10000 cm 0.04550 cm rlineto
0.10000 cm 0.04650 cm rlineto
0.10000 cm 0.04750 cm rlineto
0.10000 cm 0.04850 cm rlineto
0.10000 cm 0.04950 cm rlineto
0.10000 cm 0.05050 cm rlineto
0.10000 cm 0.05150 cm rlineto
0.10000 cm 0.05250 cm rlineto
0.10000 cm 0.05350 cm rlineto
0.10000 cm 0.05450 cm rlineto
0.10000 cm 0.05550 cm rlineto
0.10000 cm 0.05650 cm rlineto
0.10000 cm 0.05750 cm rlineto
0.10000 cm 0.05850 cm rlineto
0.10000 cm 0.05950 cm rlineto
0.10000 cm 0.06050 cm rlineto
0.10000 cm 0.06150 cm rlineto
0.10000 cm 0.06250 cm rlineto
0.10000 cm 0.06350 cm rlineto
0.10000 cm 0.06450 cm rlineto
0.10000 cm 0.06550 cm rlineto
0.10000 cm 0.06650 cm rlineto
0.10000 cm 0.06750 cm rlineto
0.10000 cm 0.06850 cm rlineto
0.10000 cm 0.06950 cm rlineto
0.10000 cm 0.07050 cm rlineto
0.10000 cm 0.07150 cm rlineto
0.10000 cm 0.07250 cm rlineto
0.10000 cm 0.07350 cm rlineto
0.10000 cm 0.07450 cm rlineto
} def




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


0.2 inch 2.5 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.5 inch translate
0.5 inch 0 inch moveto
/Times-Roman findfont
12 scalefont setfont
(Figure  ) show
/Times-Bold findfont
12 scalefont setfont
(parabol1) 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