summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-04-07 22:53:16 +0000
committerKarl Berry <karl@freefriends.org>2010-04-07 22:53:16 +0000
commit02ee0bf5eb8da8fea316401a3553a2148b788fe9 (patch)
tree42bdc29a1dac8f91fcae402ea176efb3ce6f6a05
parent90bcff130081e791fd1f5c7f2ba5d8a46fd49c4c (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.phtml62
-rw-r--r--Master/texmf-dist/dvips/pst-geo/map3d.pro216
-rw-r--r--Master/texmf-dist/dvips/pst-geo/map3dII.pro205
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>&lt;Dir&gt;</td>";
- else
- echo "<td></td>";
- echo "<td align=\"right\">&nbsp;".filesize($entry)." Byte&nbsp;</td>";
- echo "<td align=\"right\">&nbsp;".date("D, j F Y, H:i:s",filemtime($entry))."&nbsp;</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