Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
20
Task/Sierpinski-carpet/PostScript/sierpinski-carpet.ps
Normal file
20
Task/Sierpinski-carpet/PostScript/sierpinski-carpet.ps
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
%!PS-Adobe-3.0
|
||||
%%BoundingBox 0 0 300 300
|
||||
|
||||
/r { moveto 0 -1 1 0 0 1 3 { rlineto } repeat closepath fill } def
|
||||
/serp { gsave
|
||||
3 1 roll translate
|
||||
1 3 div dup scale
|
||||
1 1 r
|
||||
dup 1 sub dup 0 eq not {
|
||||
0 0 0 1 0 2 1 0 1 2 2 0 2 1 2 2 17 -1 roll 8 { serp } repeat
|
||||
} if pop
|
||||
grestore
|
||||
} def
|
||||
|
||||
300 300 scale 0 0 r 1 setgray
|
||||
|
||||
0 0 5 serp
|
||||
|
||||
pop showpage
|
||||
%%EOF
|
||||
Loading…
Add table
Add a link
Reference in a new issue