%!PS-Adobe-2.0 EPSF-2.0 %%Creator: Fait main par Jean-Yves Burlett %%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