prosper

git-svn-id: svn://tug.org/texlive/trunk@1223 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 177 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/prosper/boule-base.eps b/Master/texmf-dist/tex/latex/prosper/boule-base.eps
new file mode 100644
index 00000000000..2552148c232
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/prosper/boule-base.eps
@@ -0,0 +1,177 @@
+%!PS-Adobe-2.0 EPSF-2.0
+%%Creator: Fait main par Jean-Yves Burlett <jean-yves@burlett.org>
+%%BoundingBox: 68 63 168 133
+%%Pages: 1
+%%EndComments
+%%EndProlog
+
+%%Page: 1 1
+
+% on sauve tout
+/origstate save def
+
+% on fait nos conneries dans notre \_°< ,( coin )
+42 dict begin
+
+%% --------------------------------------------------
+%%			C O N F I G 
+
+  /rayonboule 30 def 
+  % ^^^ penser à modifier la boundingbox après avoir modifié ça
+
+  /brillantboule { .8 1 .8 } def
+  /sombreboule { .2 .6 .2 } def
+  /couleurfond { 
+    1 1 1 
+    %.2 .36 .77
+  } def
+  /sombritudeombre { 
+    %.5 .5 .5 
+    0 0 0 
+  } def
+
+%% --------------------------------------------------
+
+%%%%%% 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 xf yf col0 colf t0 tf nbiter
+  /disquegrad {
+    43 dict begin % <- c'est un peu de l'abus mais bon ...
+      gsave
+	/nbiter exch def
+	/tf exch def
+	/t0 exch def
+	/colfb exch def
+	/colfg exch def
+	/colfr exch def
+	/col0b exch def
+	/col0g exch def
+	/col0r exch def
+	/yf exch def
+	/xf exch def
+	/y0 exch def
+	/x0 exch def
+
+	1 1 nbiter {
+	  gsave
+	    newpath
+	    dup dup
+	    col0r col0g col0b colfr colfg colfb 
+	    nbiter 8 -1 roll threedstep
+	    setrgbcolor
+	    x0 y0 xf yf nbiter 6 -1 roll twodstep
+	    t0 tf nbiter 6 -1 roll onedstep 0 360 arc 
+	    fill
+	  grestore
+	} for
+      grestore
+    end
+  } def
+
+%%%%%%%%% Zou !
+
+  %   gsave
+    %     1 0 0 setrgbcolor
+    %     newpath
+    %     68 63 moveto
+    %     168 63 lineto
+    %     168 133 lineto
+    %     68 133 lineto
+    %     68 63 lineto
+    %     stroke
+    %   grestore
+
+    100 100 translate
+
+    % -- fond
+    %   gsave
+      %     couleurfond setrgbcolor
+      %     newpath
+      %     -50 -50 moveto
+      %     100 0 rlineto
+      %     0 100 rlineto
+      %     -100 0 rlineto
+      %     0 -100 rlineto
+      %     fill
+      %   grestore
+
+      % -- pseudo anti-alias
+      gsave
+	couleurfond 
+	1 1 3 { pop .8 mul 3 1 roll } for
+	setrgbcolor
+	0 0 rayonboule 2 add 0 360 arc fill 
+      grestore
+
+      % -- ombre
+      gsave
+	rayonboule -3 div rayonboule neg translate
+	1 .1 scale
+	rayonboule 0 rayonboule 0
+	couleurfond
+	1 1 3 { pop .8 mul 3 1 roll } for
+	sombritudeombre
+	rayonboule 1.84 mul
+	rayonboule .84 mul
+	5 disquegrad
+      grestore
+
+      % -- remplissage
+      gsave 
+
+	% -- masquage du remplissage dans la boule
+	newpath
+	0 0 rayonboule 0 360 arc 
+	clip
+
+	30 rotate
+
+	% -- hop ! un dégradé !
+	0 0 
+	0 rayonboule 1.36 div 
+	sombreboule
+	brillantboule
+	rayonboule 5 
+	20 disquegrad
+
+	1.2 1 scale
+      grestore
+
+      % -- bord noir autour
+      gsave
+	newpath
+	0 setgray
+	0 0 30 0 360 arc stroke
+      grestore
+
+    end
+
+    origstate restore
+
+%%Trailer