Changeset 26
- Timestamp:
- 03/08/08 06:18:08 (10 months ago)
- Files:
-
- trunk/pst-map3d/map3d.pro (modified) (2 diffs)
- trunk/pst-map3d/paris_tellure_noir_blanc.pdf (added)
- trunk/pst-map3d/paris_tellure_noir_blanc.tex (added)
- trunk/pst-map3d/pst-map3d.tex (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/pst-map3d/map3d.pro
r21 r26 586 586 } for 587 587 phi0 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 588 RsphereScreen t cos mul 589 RsphereScreen t sin mul 593 590 lineto 594 591 } for … … 626 623 } for 627 624 phi0 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 625 RsphereScreen t cos mul 626 RsphereScreen t sin mul 633 627 lineto 634 628 } for trunk/pst-map3d/pst-map3d.tex
r23 r26 290 290 MatriceTransformationZXY 291 291 % 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 % 292 301 \ifPst@WorldMap@visibility 293 302 /condition { 0 ge } def … … 299 308 the_night 300 309 \fi 301 %302 /GrandCercle {303 % cercle vu par l'observateur304 /RsphereScreen Rsphere DScreen mul Dobs div305 1 Rsphere dup mul Dobs dup mul div sub sqrt div runit def306 0 0 RsphereScreen 0 360 arc307 closepath308 } def309 310 % 310 311 \ifPst@WorldMap@blueEarth … … 678 679 \begin@SpecialObj% 679 680 \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}% 681 682 {\psset{RotX=#2 90 sub,RotZ=90 #1 add} 682 683 \WorldMapThreeD[style=\psk@styleGlobe,daynight=false]% … … 686 687 rivers=false,lakes=false, 687 688 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) 689 690 \rput(! 0 \psk@TroisD@Radius\space neg -1 add){\white\psk@WorldMap@hour h le \psk@WorldMap@J/\psk@WorldMap@M/\psk@WorldMap@A} 690 691 \end@SpecialObj%
