cosic.rescue
clone your own copy | download snapshot

Snapshots | iceberg

Inside this repository
cos1.ps
application/postscript

Download raw (6.7 KB)

%!PS-Adobe-3.0
%
% ********************************************************************************
%
% Figure "cos1" 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 cosinusoidal curvilinear grating:  y = 0.05*cos(2*Pi*x/2)
%
% 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 -0.00000 cm rmoveto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01545 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01545 cm rlineto
0.10000 cm -0.01394 cm rlineto
0.10000 cm -0.01106 cm rlineto
0.10000 cm -0.00710 cm rlineto
0.10000 cm -0.00245 cm rlineto
0.10000 cm 0.00245 cm rlineto
0.10000 cm 0.00710 cm rlineto
0.10000 cm 0.01106 cm rlineto
0.10000 cm 0.01394 cm rlineto
0.10000 cm 0.01545 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
(cos1) 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