1 files changed, 103 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/prosper/degrade-base.eps b/Master/texmf-dist/tex/latex/prosper/degrade-base.eps
new file mode 100644
index 00000000000..5c91ba723e4
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/prosper/degrade-base.eps
@@ -0,0 +1,103 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Creator: Fait main par Jean-Yves Burlett <jean-yves@burlett.org>
+%%BoundingBox: 80 80 100 100
+%%Pages: 1
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+/origstate save def
+
+42 dict begin
+
+%% --------------------------------------------------
+%%			C O N F I G 
+
+  /endcol { 1 1 1 } def
+  /startcol { .7 .7 1 } def
+
+  /startwidth 20 def
+  /endwidth 5 def
+
+  /hauteur 20 def
+
+  /nbpas 60 def
+
+%% --------------------------------------------------
+
+%   gsave
+%     1 0 0 setrgbcolor
+%     newpath
+%     80 80 moveto
+%     100 80 lineto
+%     100 100 lineto
+%     80 100 lineto
+%     80 80 lineto
+%     stroke
+%   grestore
+
+  100 100 translate
+  180 rotate
+
+%%%%%% Fonctions qui servent
+
+  /dup2 {
+    dup 3 2 roll dup 4 1 roll exch
+  } def
+
+  % params i0 if maxiter numiter
+  /onedstep {
+    1 sub exch 1 sub
+    4 2 roll exch dup 3 1 roll sub % ni-1 mi-1 i0 iD
+    4 -1 roll mul 3 -1 roll % i0 ni-1*iD mi-1
+    dup 0 eq { pop pop 0 } { div } ifelse 
+    add % I
+  } def
+
+  % params x0 y0 xf yf maxiter numiter
+  /twodstep {
+    dup2 8 5 roll exch 8 -3 roll % mi ni x0 xf y0 yf mi ni
+    onedstep 5 1 roll 4 2 roll % Y x0 xf mi ni
+    onedstep exch
+  } def
+
+  % params r0 g0 b0 rf gf bf maxiter numiter
+  /threedstep {
+    dup2 10 2 roll 5 -1 roll 10 1 roll twodstep % rf mi ni r0 C2 C3
+    6 2 roll 4 1 roll onedstep 3 1 roll % C1 C2 C3
+  } def
+
+
+  % params x0 y0 w h col^3
+  /rectplein {
+    gsave
+      newpath
+      setrgbcolor
+      4 2 roll moveto
+      dup2 dup2 dup2
+      pop 0 rlineto
+      0 exch rlineto pop
+      pop neg 0 rlineto
+      neg 0 exch rlineto pop
+      fill
+    grestore
+  } def
+
+%% Feu !
+
+  1 1 nbpas {
+    gsave
+      newpath
+      dup
+      startcol endcol nbpas 8 -1 roll threedstep setrgbcolor
+      startwidth endwidth nbpas 4 -1 roll onedstep 
+      0 0 3 2 roll hauteur rectfill
+    grestore
+  } for
+
+end
+
+origstate restore
+
+%%Trailer