summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/prosper/boule-base.eps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/prosper/boule-base.eps')
-rw-r--r--Master/texmf-dist/tex/latex/prosper/boule-base.eps177
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