-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathmandelbrot.minimal.ps
44 lines (40 loc) · 940 Bytes
/
mandelbrot.minimal.ps
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-Adobe-3.0
%%Creator: Leeron Shalev
%%Orientation: Landscape
%%DocumentMedia: a4 595 842 80 () ()
%%Pages: 1
%%EndComments
%%EndProlog
%%BeginSetup
% A4, rotated 90 degrees ACW
<< /PageSize [595 842] /Orientation 3 >> setpagedevice
%%EndSetup
%%Page: 1 1
%%BeginPageSetup
90 rotate 0 -595 translate
%%EndPageSetup
2 setlinewidth
0 1 595 1 sub{
/j exch def
0 1 842 1 sub {
/i exch def
/cx i 842 div 3.5 mul 2.5 sub def
/cy j 57 sub 595 div 2.474 mul 1 sub def
/x 0 def /y 0 def
0 1 100{
/time exch def
x x mul y y mul add 4 lt
{
/temp_x x x mul y y mul sub cx add def
/y 2 x mul y mul cy add def
/x temp_x def
}
{exit} ifelse
}for
i j moveto 1 0 rlineto
1 time 100 div sub setgray stroke
} for
} for
showpage
%%Trailer
%%EOF