Changeset 26

Show
Ignore:
Timestamp:
03/08/08 06:18:08 (10 months ago)
Author:
manuel
Message:

Correction d'un bug dans l'affichage de l'ombre qui apparaissait lorsque l'observateur était à une faible distance de la Terre.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/pst-map3d/map3d.pro

    r21 r26  
    586586   } for 
    587587phi0 1 phi0 180 add { /t exch def 
    588     /Xpoint 0 def 
    589     /Ypoint Rsphere t cos mul def 
    590     /Zpoint Rsphere t sin mul def 
    591    CalculsPointsAfterTransformations 
    592    CalcCoordinates 
     588RsphereScreen t cos mul  
     589RsphereScreen t sin mul  
    593590   lineto 
    594591   } for 
     
    626623   } for 
    627624phi0 1 phi0 180 add { /t exch def 
    628     /Xpoint 0 def 
    629     /Ypoint Rsphere t cos mul def 
    630     /Zpoint Rsphere t sin mul def 
    631    CalculsPointsAfterTransformations 
    632    CalcCoordinates 
     625RsphereScreen t cos mul  
     626RsphereScreen t sin mul  
    633627   lineto 
    634628   } for 
  • trunk/pst-map3d/pst-map3d.tex

    r23 r26  
    290290 MatriceTransformationZXY 
    291291% 
     292  /RsphereScreen Rsphere DScreen mul Dobs div 
     293    1 Rsphere dup mul Dobs dup mul div sub sqrt div runit def 
     294% 
     295/GrandCercle { 
     296  % cercle vu par l'observateur 
     297  0 0 RsphereScreen 0 360 arc 
     298  closepath 
     299} def 
     300% 
    292301\ifPst@WorldMap@visibility 
    293302  /condition { 0 ge } def 
     
    299308    the_night 
    300309\fi 
    301 % 
    302 /GrandCercle { 
    303   % cercle vu par l'observateur 
    304   /RsphereScreen Rsphere DScreen mul Dobs div 
    305     1 Rsphere dup mul Dobs dup mul div sub sqrt div runit def 
    306   0 0 RsphereScreen 0 360 arc 
    307   closepath 
    308 } def 
    309310% 
    310311\ifPst@WorldMap@blueEarth 
     
    678679   \begin@SpecialObj% 
    679680    \pnode(!/ux 0 def /uy 90 #2 sub sin def /uz 90 #2 sub cos def 0 0){ttt}% 
    680     \psset{PHI=0,THETA=0}% 
     681    \psset{THETA=0,PHI=0}% 
    681682    {\psset{RotX=#2 90 sub,RotZ=90 #1 add} 
    682683    \WorldMapThreeD[style=\psk@styleGlobe,daynight=false]% 
     
    686687                         rivers=false,lakes=false, 
    687688                         gridmap=false,latitudeParallel=#2]% 
    688    \psframe*(-3,-6.5)(3,-5.5
     689   \psframe*(! -3 \psk@TroisD@Radius\space neg -1.5 add)(!3 \psk@TroisD@Radius\space neg -0.5 add
    689690   \rput(! 0 \psk@TroisD@Radius\space neg -1 add){\white\psk@WorldMap@hour h le \psk@WorldMap@J/\psk@WorldMap@M/\psk@WorldMap@A} 
    690691   \end@SpecialObj%