summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/prosper/degrade-blanc-bleu.eps
blob: 5c91ba723e47328f73bb7f3e6c30fa95190b860e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
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