X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git;a=blobdiff_plain;f=doc%2Fanamorphosis.pro;fp=doc%2Fanamorphosis.pro;h=884887430934f7c1338b85afa36a7862c1651ec9;hp=698afca6460fae45701214a5889004613c90b33d;hb=3d50dcaf4523ae589de4270650d4a7b95bacd96d;hpb=55f1efea4238aaec8b4922d2454539f634b08064

diff --git a/doc/anamorphosis.pro b/doc/anamorphosis.pro
index 698afca..8848874 100644
--- a/doc/anamorphosis.pro
+++ b/doc/anamorphosis.pro
@@ -73,6 +73,28 @@ end
   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 {
@@ -146,7 +168,7 @@ end
 /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