summaryrefslogtreecommitdiff
path: root/info/laan/paradigm/jvr.eps
blob: 5273a7e86f4b6a972fad96711b86e0e16c22b5e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
%!PS
%%Creator: J.V. Romanovsky
%%CreationDate: 1996?
%%BoundingBox: -200 -200 200 200
%%EndProlog
%%Page: 0 1%
/rl{rlineto}def  %  to reduce the code
/FS {gsave setgray fill grestore stroke}def
   % gsave ... grestore are used to save the graphic environment
   % it is necessary if you want to use the current path several
   % times, as here: to fill and to stroke
/s3 0.75 sqrt def /unit 40 def
   % Two constants, 'unit'  defines the size of construction
/U { unit mul 0 exch rl} def
   % Verical line for several units
/R { unit mul  % Transfer the number of units to length
     dup       % Copy it
     s3 mul    % Calculate X-offset
     exch      % Hide it
     0.5 mul   % Calculate Y-offset
     rl} def   % Draw the line with the given offset pair
/L { unit mul dup s3 mul neg  % neg is the only modificaion
     exch 0.5 mul rl}def
   % Right and left lines for several lines
/M{ s3 unit mul 0.5 unit mul translate -120 rotate} def
   % Rotation of the picture to scan the vertices of the central
   % triangle
%200 400 translate
/P1{ 0 0 moveto 2 R -1 L -2 U 4 R -1 U -9 R 4 U -1 L -2 U
     3 R 4 U -4 R 3 U -1 L -2 U -1 L} def
   % Sorry, only copying the source Escher draft
   % and no own imagination
   % Three parts of the picture are made with the same procedure
%mark origin
%0  10 moveto
%0 -10 lineto
%10  0 moveto
%-10 0 lineto
%stroke
P1 0.6 FS M
P1 0.8 FS M
P1 0.95 FS M
showpage
% End