Re: [Syracuse] Déformation d'un texte en modulation d'amplitude

Hello,

un exemple avec modulation haute et basse (un peu dissymétrique,
semble-t-il). Inutile de dire que je n'y comprends pas grand chose...

%!PS
% Volé à Don Lancaster
/vlinemap {save /plrsnap exch def 300 mul 72 div cvi /pixelshigh exch def
300 mul 72 div cvi /pixelswide exch def 0 1 pixelswide {/slinenum exch def
save slinenum == flush /plrsnap1 exch def gsave mapproc newpath slinenum
72 mul 300 div 0 moveto 0 pixelshigh rlineto 0 0.2 rlineto 0 pixelshigh neg
rlineto closepath clip newpath imageproc grestore clear plrsnap1 restore}
for clear plrsnap restore } def

/mapproc {50 200 translate cosrange neg degreeinc slinenum mul add cos
dup /adj exch def pixelshigh 72 mul 300 div mul dipdepth mul 2 div 0 exch
translate adj cosrange cos sub dipdepth mul 1 exch sub 1 exch scale} def

/imageproc {borderfat 2 div dup moveto 0 ptshigh borderfat sub rlineto
ptswide borderfat sub 0 rlineto 0 ptshigh neg borderfat add rlineto
closepath borderfat setlinewidth stroke 10 8 moveto stretch 0 msg ashow} def

/bannerfont {cosrange 0.48 mul ptswide div /degreeinc exch def mark 10 10
setcacheparams vlinemap} def

/NewCenturySchlbk-Bold
findfont [30 0 0 44 0 0] makefont setfont
/degreeinc 0.5 def % contrôle la période de l'ondulation
/stretch 1 def
/msg (Modulation d'amplitude) def
/cosrange 60 def
/dipdepth 0.8 def
/ptswide 410 def % Longueur du message
/ptshigh 50 def
/borderfat 0 def
ptswide ptshigh vlinemap showpage

-- 
Arnaud Schmittbuhl
Montpellier, France

_______________________________________________
Liste de diffusion Syracuse
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresses alternatives du site :
http://syracuse.eu.org/syracuse/
http://193.55.139.7/syracuse/
Received on Mon Jun 5 09:34:41 2006