summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/boites/ligne_qui_ondule_sur_la_gauche.eps
blob: f4aef6bbb109760c6e4048076ad7800024a1048a (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
%!PS-ADOBE-3.0
%%BoundingBox: 0 0 10 2400
%%Title: vague.eps
%%Creator: Vincent Zoonekynd
%%CreationDate: June 1998
%%EndComments

/vz@Dict 20 dict def vz@Dict begin
/une_vague { 
  /y exch def /x exch def
  gsave 
  x y moveto
  x 4 sub y 2 add lineto
  x y 4 add lineto
  stroke
  grestore
} bind def
/deux_vagues {
  gsave 
  1 setlinecap 
  1 setlinejoin 
  2 copy 
  une_vague
  exch 4 add exch une_vague
  grestore
} bind def
/do_it {
  0 4 2400 { 5 exch deux_vagues } for
} bind def
end

vz@Dict begin do_it end