yv dup yi sub alpha mul sub
} def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% === L'image est verticale --------------------------------------------------
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/pst-cylindricalV {
+ /Zp exch s@@y mul t@@y add def /Xp exch s@@x mul t@@x add def
+ /a Xv Xp sub dup mul Yv dup mul add def
+ /b Xv Xp mul Xv dup mul sub Yv dup mul sub def
+ /c R neg Xv dup mul add Yv dup mul add def
+ /d b dup mul a c mul sub 0.5 exp def
+ /rho1 b neg d sub a div def
+ /rho2 b neg d add a div def
+ rho2 rho1 ge {/rho rho1 def}{/rho rho2 def} ifelse
+% /alpha 2 1 rho div sub Zv mul Zv Zp add div def
+ /xi Xv dup Xp sub rho mul sub def
+ /yi Yv 1 rho sub mul def
+ /zi Zv dup Zp sub rho mul sub def
+ /alpha 2 zi mul Zv sub zi Zv sub div def
+ /k 2 Xv xi mul Yv yi mul add mul R div def
+ /xv k xi mul Xv sub def
+ /yv k yi mul Yv sub def
+ xv dup xi sub alpha mul sub
+ yv dup yi sub alpha mul sub
+} def
%% === L'anamorphose conique ---------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/pst-conical {
/Image {
gsave
/showpage {} def
- t@@x t@@y translate s@@x s@@y scale
+ t@@x t@@y translate s@@x s@@y scale
fichier run
grestore
} def