Changeset 104

Timestamp:

07/22/08 18:27:06 (4 months ago)

Author:

jpv

Message:

Gestion des fontes

Files:

• trunk/pst-solides3d.tex (modified) (4 diffs)
• trunk/solides.pro (modified) (7 diffs)
• trunk/tests/index.txt (modified) (1 diff)
• trunk/tests/test_24.pdf (added)
• trunk/tests/test_24.tex (added)

trunk/pst-solides3d.tex

@@ -21 +21 @@
-\ifx\MultidoLoaded\endinput\else\input multido.tex \fi 
-% JPV & ML & AS & HV
-6
+7
-\def\filedate{2008/07/22}
-\message{`PSTSOLIDESIIID' v\fileversion, \filedate}
@@ -143 +143 @@
-%\psset{SphericalCoor=false} 
-%
+\define@boolkey[psset]{pst-solides3d}[Pst@]{isolatin}[false]{}
+\psset{isolatin=true}
-\define@boolkey[psset]{pst-solides3d}[Pst@]{affinagerm}[false]{}
-\psset{affinagerm=true}
@@ -543 +545 @@
-/ngrid [\pst@solides@ngrid] def
-%
+/isolatin \ifPst@isolatin true \else false \fi def
-/affinagerm \ifPst@affinagerm true \else false \fi def
-/chanfrein \ifPst@chanfrein true \else false \fi def
@@ -864 +867 @@
-   /projectionsifacevisible false def
-\fi
+/isolatin \ifPst@isolatin true \else false \fi def
-/solidlinewidth {\pst@number\pslinewidth} def
-/PSfont {\pst@solides@PSfont} def

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-8, 2008/07/22
+9, 2008/07/23
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault
@@ -5671 +5671 @@
-      /bool true def
-   } ifelse
-
+%
-   dup issolid not {
-      %% on a un argument
@@ -10048 +10048 @@
-} def
-
+/gere_pstfont {
+   fontsize mul setfontsize
+   %setTimes
+   PSfont dup /Symbol ne isolatin and {
+      /ISO-Font ReEncode /ISO-Font
+   } if
+   findfont fontsize scalefont setfont
+} def
+
-/gere_pstricks_opt {
-%   /CourbeR2 {CourbeR2+} def
-PSfont findfont fontsize scalefont se
+1 gere_ps
-   linecolor
-   linestyle
@@ -10205 +10214 @@
-   solidnum length 0 ne {
-      solidnum 0 get isstring {
+         .8 gere_pstfont
-         dup solidnumsommets
-      } {
@@ -10742 +10752 @@
-   l@pl@n RotX RotY RotZ rotateOplan
-%   l@pl@n CX CY CZ plantranslate
-
-
+
+
+
-   solidplanmarks {l@pl@n projectionsifacevisible planmarks} if
-   solidplangrid {linecolor l@pl@n projectionsifacevisible planquadrillage} if
@@ -10797 +10808 @@
-/pst-point {
-gsave
-   fontsize setfontsize
-   %setTimes
-   PSfont findfont fontsize scalefont setfont
-   linecolor
+   1 gere_pstfont
-   action (none) eqstring not {
-      args definition cvx exec point3d
@@ -11106 +11115 @@
-2 dict begin
-   proj-fontsize setfontsize
-
+
+
-   solidlinewidth setlinewidth
-   newpath

trunk/tests/index.txt

@@ -22 +22 @@
-test_22 : axesIIID
-test_23 : pie
+test_24 : gestion des fontes