Download raw (6.7 KB)

%!PS-Adobe-3.0
%
% ********************************************************************************
%
% Figure "parabol3" 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.15*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 8.43750 cm rmoveto
0.10000 cm -0.22350 cm rlineto
0.10000 cm -0.22050 cm rlineto
0.10000 cm -0.21750 cm rlineto
0.10000 cm -0.21450 cm rlineto
0.10000 cm -0.21150 cm rlineto
0.10000 cm -0.20850 cm rlineto
0.10000 cm -0.20550 cm rlineto
0.10000 cm -0.20250 cm rlineto
0.10000 cm -0.19950 cm rlineto
0.10000 cm -0.19650 cm rlineto
0.10000 cm -0.19350 cm rlineto
0.10000 cm -0.19050 cm rlineto
0.10000 cm -0.18750 cm rlineto
0.10000 cm -0.18450 cm rlineto
0.10000 cm -0.18150 cm rlineto
0.10000 cm -0.17850 cm rlineto
0.10000 cm -0.17550 cm rlineto
0.10000 cm -0.17250 cm rlineto
0.10000 cm -0.16950 cm rlineto
0.10000 cm -0.16650 cm rlineto
0.10000 cm -0.16350 cm rlineto
0.10000 cm -0.16050 cm rlineto
0.10000 cm -0.15750 cm rlineto
0.10000 cm -0.15450 cm rlineto
0.10000 cm -0.15150 cm rlineto
0.10000 cm -0.14850 cm rlineto
0.10000 cm -0.14550 cm rlineto
0.10000 cm -0.14250 cm rlineto
0.10000 cm -0.13950 cm rlineto
0.10000 cm -0.13650 cm rlineto
0.10000 cm -0.13350 cm rlineto
0.10000 cm -0.13050 cm rlineto
0.10000 cm -0.12750 cm rlineto
0.10000 cm -0.12450 cm rlineto
0.10000 cm -0.12150 cm rlineto
0.10000 cm -0.11850 cm rlineto
0.10000 cm -0.11550 cm rlineto
0.10000 cm -0.11250 cm rlineto
0.10000 cm -0.10950 cm rlineto
0.10000 cm -0.10650 cm rlineto
0.10000 cm -0.10350 cm rlineto
0.10000 cm -0.10050 cm rlineto
0.10000 cm -0.09750 cm rlineto
0.10000 cm -0.09450 cm rlineto
0.10000 cm -0.09150 cm rlineto
0.10000 cm -0.08850 cm rlineto
0.10000 cm -0.08550 cm rlineto
0.10000 cm -0.08250 cm rlineto
0.10000 cm -0.07950 cm rlineto
0.10000 cm -0.07650 cm rlineto
0.10000 cm -0.07350 cm rlineto
0.10000 cm -0.07050 cm rlineto
0.10000 cm -0.06750 cm rlineto
0.10000 cm -0.06450 cm rlineto
0.10000 cm -0.06150 cm rlineto
0.10000 cm -0.05850 cm rlineto
0.10000 cm -0.05550 cm rlineto
0.10000 cm -0.05250 cm rlineto
0.10000 cm -0.04950 cm rlineto
0.10000 cm -0.04650 cm rlineto
0.10000 cm -0.04350 cm rlineto
0.10000 cm -0.04050 cm rlineto
0.10000 cm -0.03750 cm rlineto
0.10000 cm -0.03450 cm rlineto
0.10000 cm -0.03150 cm rlineto
0.10000 cm -0.02850 cm rlineto
0.10000 cm -0.02550 cm rlineto
0.10000 cm -0.02250 cm rlineto
0.10000 cm -0.01950 cm rlineto
0.10000 cm -0.01650 cm rlineto
0.10000 cm -0.01350 cm rlineto
0.10000 cm -0.01050 cm rlineto
0.10000 cm -0.00750 cm rlineto
0.10000 cm -0.00450 cm rlineto
0.10000 cm -0.00150 cm rlineto
0.10000 cm 0.00150 cm rlineto
0.10000 cm 0.00450 cm rlineto
0.10000 cm 0.00750 cm rlineto
0.10000 cm 0.01050 cm rlineto
0.10000 cm 0.01350 cm rlineto
0.10000 cm 0.01650 cm rlineto
0.10000 cm 0.01950 cm rlineto
0.10000 cm 0.02250 cm rlineto
0.10000 cm 0.02550 cm rlineto
0.10000 cm 0.02850 cm rlineto
0.10000 cm 0.03150 cm rlineto
0.10000 cm 0.03450 cm rlineto
0.10000 cm 0.03750 cm rlineto
0.10000 cm 0.04050 cm rlineto
0.10000 cm 0.04350 cm rlineto
0.10000 cm 0.04650 cm rlineto
0.10000 cm 0.04950 cm rlineto
0.10000 cm 0.05250 cm rlineto
0.10000 cm 0.05550 cm rlineto
0.10000 cm 0.05850 cm rlineto
0.10000 cm 0.06150 cm rlineto
0.10000 cm 0.06450 cm rlineto
0.10000 cm 0.06750 cm rlineto
0.10000 cm 0.07050 cm rlineto
0.10000 cm 0.07350 cm rlineto
0.10000 cm 0.07650 cm rlineto
0.10000 cm 0.07950 cm rlineto
0.10000 cm 0.08250 cm rlineto
0.10000 cm 0.08550 cm rlineto
0.10000 cm 0.08850 cm rlineto
0.10000 cm 0.09150 cm rlineto
0.10000 cm 0.09450 cm rlineto
0.10000 cm 0.09750 cm rlineto
0.10000 cm 0.10050 cm rlineto
0.10000 cm 0.10350 cm rlineto
0.10000 cm 0.10650 cm rlineto
0.10000 cm 0.10950 cm rlineto
0.10000 cm 0.11250 cm rlineto
0.10000 cm 0.11550 cm rlineto
0.10000 cm 0.11850 cm rlineto
0.10000 cm 0.12150 cm rlineto
0.10000 cm 0.12450 cm rlineto
0.10000 cm 0.12750 cm rlineto
0.10000 cm 0.13050 cm rlineto
0.10000 cm 0.13350 cm rlineto
0.10000 cm 0.13650 cm rlineto
0.10000 cm 0.13950 cm rlineto
0.10000 cm 0.14250 cm rlineto
0.10000 cm 0.14550 cm rlineto
0.10000 cm 0.14850 cm rlineto
0.10000 cm 0.15150 cm rlineto
0.10000 cm 0.15450 cm rlineto
0.10000 cm 0.15750 cm rlineto
0.10000 cm 0.16050 cm rlineto
0.10000 cm 0.16350 cm rlineto
0.10000 cm 0.16650 cm rlineto
0.10000 cm 0.16950 cm rlineto
0.10000 cm 0.17250 cm rlineto
0.10000 cm 0.17550 cm rlineto
0.10000 cm 0.17850 cm rlineto
0.10000 cm 0.18150 cm rlineto
0.10000 cm 0.18450 cm rlineto
0.10000 cm 0.18750 cm rlineto
0.10000 cm 0.19050 cm rlineto
0.10000 cm 0.19350 cm rlineto
0.10000 cm 0.19650 cm rlineto
0.10000 cm 0.19950 cm rlineto
0.10000 cm 0.20250 cm rlineto
0.10000 cm 0.20550 cm rlineto
0.10000 cm 0.20850 cm rlineto
0.10000 cm 0.21150 cm rlineto
0.10000 cm 0.21450 cm rlineto
0.10000 cm 0.21750 cm rlineto
0.10000 cm 0.22050 cm rlineto
0.10000 cm 0.22350 cm rlineto
} def




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


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