diff options
| author | Karl Berry <karl@freefriends.org> | 2010-04-07 22:53:16 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2010-04-07 22:53:16 +0000 |
| commit | 02ee0bf5eb8da8fea316401a3553a2148b788fe9 (patch) | |
| tree | 42bdc29a1dac8f91fcae402ea176efb3ce6f6a05 | |
| parent | 90bcff130081e791fd1f5c7f2ba5d8a46fd49c4c (diff) | |
pst-geo update (7apr10)
git-svn-id: svn://tug.org/texlive/trunk@17747 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/texmf-dist/doc/generic/pst-geo/index.phtml | 62 | ||||
| -rw-r--r-- | Master/texmf-dist/dvips/pst-geo/map3d.pro | 216 | ||||
| -rw-r--r-- | Master/texmf-dist/dvips/pst-geo/map3dII.pro | 205 |
3 files changed, 0 insertions, 483 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-geo/index.phtml b/Master/texmf-dist/doc/generic/pst-geo/index.phtml deleted file mode 100644 index 95f59054ef3..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/index.phtml +++ /dev/null @@ -1,62 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><html><head> -<html> -<head> - <title>my LaTeX pages</title> -</head> -<body bgcolor="#ffffff" text="#000000" link="#aa0000" alink="#ff3300" vlink="#330099"> - <hr noshade="noshade"> - <h1>pst-geo by Manuel Luque, Giuseppe Mattarazzi, Herbert Voß</h1> -<h4> All the files have a <strong>Beta-Status</strong>! For a stable version look at <a href="ftp://ftp.dante -.de/pub/tex/graphics/pstricks/contrib/pst-3dplot/">CTAN</a></h4> - <hr noshade="noshade"> - <div class=text> -<? -$cdir = dir("./"); - -$entries=array(); -while ($entry = $cdir->read()) - $entries[] = $entry; - -echo "Files in this directory:"; -echo " <hr noshade=\"noshade\">"; -echo "<table>"; - -asort($entries); -reset($entries); - -//foreach($entries as $entry) { -while (list(, $entry) = each($entries)) { -// if (!is_dir($entry) && ($entry != "index.phtml") && ($entry != ".htaccess")) { - if (($entry != ".") && ($entry != "index.phtml") && ($entry != ".htaccess")) { - echo "<tr>"; - echo "<td><a href=\"$entry\">$entry</a></td>"; - if (is_dir($entry)) - echo "<td><Dir></td>"; - else - echo "<td></td>"; - echo "<td align=\"right\"> ".filesize($entry)." Byte </td>"; - echo "<td align=\"right\"> ".date("D, j F Y, H:i:s",filemtime($entry))." </td>"; - echo "</tr>"; - } -} -echo "</table>"; - -?> -<hr noshade="noshade"> -Page last updated on <?php echo date("d.m.Y", getlastmod() ); ?> -</p> -</div> -<hr> -<? -if (file_exists("README")) { - $fp = fopen("README","r"); - echo "<pre>"; - while ($line=fgets($fp,1000)) { - echo "$line"; - } - echo "</pre>"; - fclose($fp); -} -?> -</body> -</html> diff --git a/Master/texmf-dist/dvips/pst-geo/map3d.pro b/Master/texmf-dist/dvips/pst-geo/map3d.pro deleted file mode 100644 index f65513ce4bf..00000000000 --- a/Master/texmf-dist/dvips/pst-geo/map3d.pro +++ /dev/null @@ -1,216 +0,0 @@ -%version 29 novembre 2003 -% modification 11/05/2004 -% allégée de 3D.pro -/tx@map3DDict 100 dict def -tx@map3DDict begin -% - /CalculsPoints{% - /region exch def - newpath - /nbr region length def % nombre de régions - 0 1 nbr 1 sub { - /counter exch def % pour mémoriser le premier point vu - counter - region exch get aload pop - /Y exch def /X exch def - /Xpoint { Y cos X cos mul Rsphere mul } def - /Ypoint { Y cos X sin mul Rsphere mul } def - /Zpoint { Y sin Rsphere mul } def - CalculsPointsAfterTransformations - CalcCoordinates - Test - PS 0 lt {% marque le point - /X1 X def - /Y1 Y def - moveto - exit % termine - }{ pop pop } ifelse - } for - nbr counter sub 1 gt { - /ncount 0 def % hv 2004-05-04 - counter 1 nbr 1 sub { - /ctrl exch def - /ncount ncount 1 add def - region ctrl get aload pop - ncount step mod 0 eq ctrl nbr sub 1 eq or { % hv 2004-05-11 - /Y exch def /X exch def - /Xpoint { Y cos X cos mul Rsphere mul } def - /Ypoint { Y cos X sin mul Rsphere mul } def - /Zpoint { Y sin Rsphere mul } def - CalculsPointsAfterTransformations - CalcCoordinates - Test - PS 0 le { lineto } if - PS 0 gt { /Angle Yi Xi atan def - RsphereScreen Angle cos mul - RsphereScreen Angle sin mul - lineto - } if - }{ pop pop } ifelse % hv 2004-05-11 - } for - } if -} def -% -/MatriceTransformation{% - /Sin1 THETA sin def - /Sin2 PHI sin def - /Cos1 THETA cos def - /Cos2 PHI cos def - /Cos1Sin2 Cos1 Sin2 mul def - /Sin1Sin2 Sin1 Sin2 mul def - /Cos1Cos2 Cos1 Cos2 mul def - /Sin1Cos2 Sin1 Cos2 mul def - /XpointVue Dobs Cos1Cos2 mul def - /YpointVue Dobs Sin1Cos2 mul def - /ZpointVue Dobs Sin2 mul def - /M11 RotZ cos RotY cos mul def - /M12 RotZ cos RotY sin mul RotX sin mul - RotZ sin RotX cos mul sub def - /M13 RotZ cos RotY sin mul RotX cos mul - RotZ sin RotX sin mul add def - /M21 RotZ sin RotY cos mul def - /M22 RotZ sin RotY sin RotX sin mul mul - RotZ cos RotX cos mul add def - /M23 RotZ sin RotY sin mul RotX cos mul - RotZ cos RotX sin mul sub def - /M31 RotY sin neg def - /M32 RotX sin RotY cos mul def - /M33 RotX cos RotY cos mul def - } def -/CalcCoordinates{% - formulesTroisD - Xi xunit Yi yunit - } - def -% pour la 3D conventionnelle -/formulesTroisD{% - /xObservateur Xabscisse Sin1 mul neg Yordonnee Cos1 mul add def - /yObservateur Xabscisse Cos1Sin2 mul neg Yordonnee Sin1Sin2 mul sub Zcote Cos2 mul add def - /zObservateur Xabscisse neg Cos1Cos2 mul Yordonnee Sin1Cos2 mul sub Zcote Sin2 mul sub Dobs add def - /Xi DScreen xObservateur mul zObservateur div def - /Yi DScreen yObservateur mul zObservateur div def - } -def -% -/CalculsPointsAfterTransformations{% - /Xabscisse M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add def - /Yordonnee M21 Xpoint mul M22 Ypoint mul add M23 Zpoint mul add def - /Zcote M31 Xpoint mul M32 Ypoint mul add M33 Zpoint mul add def - } -def -% -/Test { % test de visibilité d'un point -% rayon vers point de vue - /RXvue Xabscisse XpointVue sub def - /RYvue Yordonnee YpointVue sub def - /RZvue Zcote ZpointVue sub def -% test de visibilité - /PS RXvue Xabscisse mul % produit scalaire - RYvue Yordonnee mul add - RZvue Zcote mul add - def -} def -% -/MaillageSphere { -gsave -maillageColor setrgbcolor -0.25 setlinewidth -0 increment 360 increment sub {% - /theta exch def -departPhi increment 90 increment sub {% - /phi exch def -% newpath - /Xpoint Rsphere theta cos mul phi cos mul def - /Ypoint Rsphere theta sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - moveto -% Centre de la facette - /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul def - /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul def - /Zpoint Rsphere phi increment 2 div add sin mul def -CalculsPointsAfterTransformations - /xCentreFacette Xabscisse def - /yCentreFacette Yordonnee def - /zCentreFacette Zcote def -% normale à la facette - /nXfacette xCentreFacette def - /nYfacette yCentreFacette def - /nZfacette zCentreFacette def -% rayon vers point de vue - /RXvue xCentreFacette XpointVue sub def - /RYvue yCentreFacette YpointVue sub def - /RZvue zCentreFacette ZpointVue sub def -% test de visibilité - /PSfacette RXvue nXfacette mul - RYvue nYfacette mul add - RZvue nZfacette mul add - def -condition { -theta 1 theta increment add {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi cos mul def - /Ypoint Rsphere theta1 sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi 1 phi increment add { - /phi1 exch def - /Xpoint Rsphere theta increment add cos mul phi1 cos mul def - /Ypoint Rsphere theta increment add sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -theta increment add -1 theta {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi increment add cos mul def - /Ypoint Rsphere theta1 sin mul phi increment add cos mul def - /Zpoint Rsphere phi increment add sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi increment add -1 phi { - /phi1 exch def - /Xpoint Rsphere theta cos mul phi1 cos mul def - /Ypoint Rsphere theta sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -} if -} for -} for -stroke -} def -% -/DrawCitys { -/CITY exch def -/Rayon exch def -/nbr CITY length def % nombre de villes -0 1 nbr 1 sub { - /compteur exch def - CITY compteur get aload pop - /X exch def /Y exch def - /Xpoint {% - Y cos X cos mul Rsphere mul - } def - /Ypoint {% - Y cos X sin mul Rsphere mul - } def - /Zpoint { Y sin Rsphere mul } def -CalculsPointsAfterTransformations - CalcCoordinates -Test -PS 0 lt % - {1 0 0 setrgbcolor newpath Rayon 0 360 arc closepath fill}{pop pop} - ifelse -} for -} def -end diff --git a/Master/texmf-dist/dvips/pst-geo/map3dII.pro b/Master/texmf-dist/dvips/pst-geo/map3dII.pro deleted file mode 100644 index 1652adb185c..00000000000 --- a/Master/texmf-dist/dvips/pst-geo/map3dII.pro +++ /dev/null @@ -1,205 +0,0 @@ -%version 14 May 2004 -% allégée de 3D.pro -/tx@mapII3DDict 100 dict def -tx@mapII3DDict begin -% - /CalculsPoints{% - /region exch def - newpath - /nbr region length def % nombre de régions - nbr 2 sub -2 2 { - /Counter exch def - region Counter get - /Y exch def - region Counter 1 add get - /X exch def - /Xpoint { Y cos X cos mul Rsphere mul } def - /Ypoint { Y cos X sin mul Rsphere mul } def - /Zpoint { Y sin Rsphere mul } def - CalculsPointsAfterTransformations - CalcCoordinates - Test - PS 0 lt {% marque le point - moveto - exit % termine - } {pop pop} ifelse - } for - /ncount 0 def % hv 2004-05-04 - /stepPoint Counter step div 2 lt { 1 }{ step } ifelse def % hv 2004-05-04 - Counter 2 sub -2 2 { - /Counter exch def - /ncount ncount 1 add def % hv 2004-05-04 - ncount stepPoint ge Counter 2 le or { % hv 2004-05-04 - region Counter get - /Y exch def - region Counter 1 add get - /X exch def - /Xpoint { Y cos X cos mul Rsphere mul } def - /Ypoint { Y cos X sin mul Rsphere mul } def - /Zpoint { Y sin Rsphere mul } def - CalculsPointsAfterTransformations - CalcCoordinates - Test - PS 0 lt { lineto }{ pop pop } ifelse - /ncount 0 def % hv 2004-05-04 - }{ /ncount ncount 1 add def } ifelse % hv 2004-05-04 - } for -} def -% -/MatriceTransformation{% - /Sin1 THETA sin def - /Sin2 PHI sin def - /Cos1 THETA cos def - /Cos2 PHI cos def - /Cos1Sin2 Cos1 Sin2 mul def - /Sin1Sin2 Sin1 Sin2 mul def - /Cos1Cos2 Cos1 Cos2 mul def - /Sin1Cos2 Sin1 Cos2 mul def - /XpointVue Dobs Cos1Cos2 mul def - /YpointVue Dobs Sin1Cos2 mul def - /ZpointVue Dobs Sin2 mul def - /M11 RotZ cos RotY cos mul def - /M12 RotZ cos RotY sin mul RotX sin mul - RotZ sin RotX cos mul sub def - /M13 RotZ cos RotY sin mul RotX cos mul - RotZ sin RotX sin mul add def - /M21 RotZ sin RotY cos mul def - /M22 RotZ sin RotY sin RotX sin mul mul - RotZ cos RotX cos mul add def - /M23 RotZ sin RotY sin mul RotX cos mul - RotZ cos RotX sin mul sub def - /M31 RotY sin neg def - /M32 RotX sin RotY cos mul def - /M33 RotX cos RotY cos mul def - } def -/CalcCoordinates{% - formulesTroisD - Xi xunit Yi yunit -} def -% pour la 3D conventionnelle -/formulesTroisD{% - /xObservateur Xabscisse Sin1 mul neg Yordonnee Cos1 mul add def - /yObservateur Xabscisse Cos1Sin2 mul neg Yordonnee Sin1Sin2 mul sub Zcote Cos2 mul add def - /zObservateur Xabscisse neg Cos1Cos2 mul Yordonnee Sin1Cos2 mul sub Zcote Sin2 mul sub Dobs add def - /Xi DScreen xObservateur mul zObservateur div def - /Yi DScreen yObservateur mul zObservateur div def - } -def -% -/CalculsPointsAfterTransformations{% - /Xabscisse M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add def - /Yordonnee M21 Xpoint mul M22 Ypoint mul add M23 Zpoint mul add def - /Zcote M31 Xpoint mul M32 Ypoint mul add M33 Zpoint mul add def - } -def -% -/Test { % test de visibilité d'un point -% rayon vers point de vue - /RXvue Xabscisse XpointVue sub def - /RYvue Yordonnee YpointVue sub def - /RZvue Zcote ZpointVue sub def -% test de visibilité - /PS RXvue Xabscisse mul % produit scalaire - RYvue Yordonnee mul add - RZvue Zcote mul add - def -} def -% -/MaillageSphere { -0 increment 360 increment sub {% - /theta exch def -departPhi increment 90 increment sub {% - /phi exch def -% newpath - /Xpoint Rsphere theta cos mul phi cos mul def - /Ypoint Rsphere theta sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - moveto -% Centre de la facette - /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul def - /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul def - /Zpoint Rsphere phi increment 2 div add sin mul def -CalculsPointsAfterTransformations - /xCentreFacette Xabscisse def - /yCentreFacette Yordonnee def - /zCentreFacette Zcote def -% normale à la facette - /nXfacette xCentreFacette def - /nYfacette yCentreFacette def - /nZfacette zCentreFacette def -% rayon vers point de vue - /RXvue xCentreFacette XpointVue sub def - /RYvue yCentreFacette YpointVue sub def - /RZvue zCentreFacette ZpointVue sub def -% test de visibilité - /PSfacette RXvue nXfacette mul - RYvue nYfacette mul add - RZvue nZfacette mul add - def -condition { -theta 1 theta increment add {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi cos mul def - /Ypoint Rsphere theta1 sin mul phi cos mul def - /Zpoint Rsphere phi sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi 1 phi increment add { - /phi1 exch def - /Xpoint Rsphere theta increment add cos mul phi1 cos mul def - /Ypoint Rsphere theta increment add sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -theta increment add -1 theta {% - /theta1 exch def - /Xpoint Rsphere theta1 cos mul phi increment add cos mul def - /Ypoint Rsphere theta1 sin mul phi increment add cos mul def - /Zpoint Rsphere phi increment add sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -phi increment add -1 phi { - /phi1 exch def - /Xpoint Rsphere theta cos mul phi1 cos mul def - /Ypoint Rsphere theta sin mul phi1 cos mul def - /Zpoint Rsphere phi1 sin mul def -CalculsPointsAfterTransformations - CalcCoordinates - lineto - } for -} if -} for -} for -gsave -0 setgray -stroke -grestore -} def -% -/DrawCitys { - /CITY exch def - /Rayon exch def - /nbr CITY length def % nombre de villes - 0 1 nbr 1 sub { - /compteur exch def - CITY compteur get aload pop - /X exch def /Y exch def - /Xpoint { Y cos X cos mul Rsphere mul } def - /Ypoint { Y cos X sin mul Rsphere mul } def - /Zpoint { Y sin Rsphere mul } def - CalculsPointsAfterTransformations - CalcCoordinates - Test - PS 0 lt % - { 1 0 0 setrgbcolor newpath Rayon 0 360 arc closepath fill }{ pop pop } ifelse - } for -} def -end |