Comme annoncé, voici quelques exemples d'anamorphose cylindrique avec image vue verti...

[pst-anamorphosis.git] / doc / anamorphosis.pro

diff --git a/doc/anamorphosis.pro b/doc/anamorphosis.pro
index 698afca..8848874 100644 (file)
--- 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