Changeset 87

Show
Ignore:
Timestamp:
07/11/08 14:20:02 (6 months ago)
Author:
jpv
Message:

Correction bug du clipping sur projection + recup fillstyle de PSTricks

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/doc/par-projectioncourbe.tex

    r82 r87  
    3030 
    3131Les limites de la variable sont définies dans l'option 
    32 \Cadre{range=$xmin$ $xmax$}, et l'option \Cadre{argument=$n$} permet 
     32\Cadre{range=$xmin$ $xmax$}, et l'option \Cadre{resolution=$n$} permet 
    3333de préciser le nombre de points calculés pour le dessin de la courbe. 
    3434 

  • trunk/doc/par-projectiondroite.tex

    r82 r87  
    8686 
    8787\item \Cadre {[definition=perp]} ;  
    88 \verb+args=+ $d$ $A$. La droite parallèle à la droite $d$ passant par 
     88\verb+args=+ $d$ $A$. La droite perpendiculaire à la droite $d$ passant par 
    8989le point $A$. 
    9090 

  • trunk/pst-solides3d.sty

    r80 r87  
    77\IfFileExists{solides.pro}{% 
    88   \ProvidesFile{solides.pro} 
    9      [2008/07/06 v. 4.0,  PostScript prologue file] 
     9     [2008/07/11 v. 4.02,  PostScript prologue file] 
    1010     \@addtofilelist{solides.pro}}{}% 
    1111\endinput 

  • trunk/pst-solides3d.tex

    r84 r87  
    1 %% COPYRIGHT 2008 by Manuel Luque, Arnaud Schmittbuhl, Jean-Paul Vignault 
     1%% COPYRIGHT 2008 by Manuel Luque, Arnaud Schmittbuhl,  
     2%% Jean-Paul Vignault, Herbert Voss. 
    23%% This program can be redistributed and/or modified under the terms 
    34%% of the LaTeX Project Public License Distributed from CTAN 
    …… 
    2021\ifx\MultidoLoaded\endinput\else\input multido.tex \fi  
    2122% JPV & ML & AS & HV 
    22 \def\fileversion{4.01} 
    23 \def\filedate{2008/07/09} 
     23\def\fileversion{4.02} 
     24\def\filedate{2008/07/11} 
    2425\message{`PSTSOLIDESIIID' v\fileversion, \filedate} 
    2526% 
    …… 
    10131014\def\psProjection@ii(#1){\expandafter\psProjection@iii#1,,\@nil} 
    10141015\def\psProjection@iii#1,#2,#3\@nil{{% 
     1016  \addbefore@par{pos=cc,range=0 360}% 
    10151017  \def\pst@tempA{#2}% 
    10161018  \ifPst@solidmemory\use@par\else\begin@ClosedObj\fi 
    …… 
    10341036  \psk@fillstyle 
    10351037  \pst@stroke 
     1038  \addto@pscode{newpath}% 
    10361039  \ifPst@solidmemory\else\end@ClosedObj\fi 
    10371040}}% 

  • trunk/solides.pro

    r86 r87  
    11%! 
    22% PostScript prologue for pst-solides3d.tex. 
    3 % Version 4.01, 2008/07/09 
     3% Version 4.02, 2008/07/11 
    44% 
    55%% COPYRIGHT 2008 by Jean-Paul Vignault 
    …… 
    1084110841 
    1084210842/proj-pst-courbeR2 { 
     10843   l@pl@n plangetrange aload pop  
     10844   setyrange setxrange 
     10845   newpath 
     10846      xmin ymin l@pl@n pointplan smoveto 
     10847      xmin ymax l@pl@n pointplan slineto 
     10848      xmax ymax l@pl@n pointplan slineto 
     10849      xmax ymin l@pl@n pointplan slineto 
     10850      xmin ymin l@pl@n pointplan smoveto 
     10851      planprojpst projpath 
     10852   clip 
    1084310853   solidlinewidth setlinewidth 
    1084410854   newpath 
    …… 
    1084910859 
    1085010860/proj-pst-courbe { 
    10851    planprojpst bprojscene eprojscene 
     10861   l@pl@n plangetrange aload pop  
     10862   setyrange setxrange 
     10863   newpath 
     10864      xmin ymin l@pl@n pointplan smoveto 
     10865      xmin ymax l@pl@n pointplan slineto 
     10866      xmax ymax l@pl@n pointplan slineto 
     10867      xmax ymin l@pl@n pointplan slineto 
     10868      xmin ymin l@pl@n pointplan smoveto 
     10869      planprojpst projpath 
     10870   clip 
    1085210871   solidlinewidth setlinewidth 
    1085310872   newpath 
    …… 
    1091810937/proj-pst-droite { 
    1091910938   proj-action (none) eqstring not { 
     10939      l@pl@n plangetrange aload pop  
     10940      setyrange setxrange 
     10941      newpath 
     10942         xmin ymin l@pl@n pointplan smoveto 
     10943         xmin ymax l@pl@n pointplan slineto 
     10944         xmax ymax l@pl@n pointplan slineto 
     10945         xmax ymin l@pl@n pointplan slineto 
     10946         xmin ymin l@pl@n pointplan smoveto 
     10947         planprojpst projpath 
     10948      clip 
    1092010949      planprojpst bprojscene 
    1092110950      solidlinewidth setlinewidth 
    …… 
    1093410963/proj-pst-polygone { 
    1093510964   proj-action (none) eqstring not { 
    10936 %      planprojpst bprojscene 
     10965      l@pl@n plangetrange aload pop  
     10966      setyrange setxrange 
     10967      newpath 
     10968         xmin ymin l@pl@n pointplan smoveto 
     10969         xmin ymax l@pl@n pointplan slineto 
     10970         xmax ymax l@pl@n pointplan slineto 
     10971         xmax ymin l@pl@n pointplan slineto 
     10972         xmin ymin l@pl@n pointplan smoveto 
     10973         planprojpst projpath 
     10974      clip 
    1093710975      solidlinewidth setlinewidth 
    1093810976      linestyle 
    …… 
    1094510983      proj-definition cvx exec polygone_ 
    1094610984      planprojpst projectionsifacevisible projpath 
    10947 %      eprojscene 
    1094810985   } if 
    1094910986   /projname where { 
    …… 
    1096611003   } if 
    1096711004   proj-action (none) eqstring not { 
    10968       gsave 
    1096911005      l@pl@n plangetrange aload pop  
    1097011006      setyrange setxrange 
    10971 %%       newpath 
    10972 %%          xmin ymin l@pl@n pointplan smoveto 
    10973 %%          xmin ymax l@pl@n pointplan slineto 
    10974 %%          xmax ymax l@pl@n pointplan slineto 
    10975 %%          xmax ymin l@pl@n pointplan slineto 
    10976 %%          xmin ymin l@pl@n pointplan smoveto 
    10977 %%       clip 
    10978       planprojpst bprojscene 
     11007      newpath 
     11008         xmin ymin l@pl@n pointplan smoveto 
     11009         xmin ymax l@pl@n pointplan slineto 
     11010         xmax ymax l@pl@n pointplan slineto 
     11011         xmax ymin l@pl@n pointplan slineto 
     11012         xmin ymin l@pl@n pointplan smoveto 
     11013         planprojpst projpath 
     11014      clip 
    1097911015      solidlinewidth setlinewidth 
    1098011016      linestyle 
    1098111017      linecolor 
    10982 %      /fillstyle {pst@fill} def 
    1098311018      newpath 
    1098411019      range aload pop proj-args 
    10985       proj-definition cvx exec Cercle 
     11020      proj-definition cvx exec Cercle_ 
    1098611021      planprojpst projectionsifacevisible projpath 
    10987       eprojscene 
    10988       grestore 
    1098911022   } if 
    1099011023} def 
    …… 
    1099211025/proj-pst-line { 
    1099311026   proj-action (none) eqstring not { 
     11027      l@pl@n plangetrange aload pop  
     11028      setyrange setxrange 
     11029      newpath 
     11030         xmin ymin l@pl@n pointplan smoveto 
     11031         xmin ymax l@pl@n pointplan slineto 
     11032         xmax ymax l@pl@n pointplan slineto 
     11033         xmax ymin l@pl@n pointplan slineto 
     11034         xmin ymin l@pl@n pointplan smoveto 
     11035         planprojpst projpath 
     11036      clip 
    1099411037      planprojpst bprojscene 
    1099511038      solidlinewidth setlinewidth