Changeset 101

Show
Ignore:
Timestamp:
07/21/08 12:19:19 (4 months ago)
Author:
jpv
Message:

Modif de solidnumsommets

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/solides.pro

    r99 r101  
    11%! 
    22% PostScript prologue for pst-solides3d.tex. 
    3 % Version 4.06, 2008/07/15 
     3% Version 4.07, 2008/07/21 
    44% 
    55%% COPYRIGHT 2008 by Jean-Paul Vignault 
    …… 
    50915091         } if 
    50925092      } for 
    5093       %% le sommet i est dans la face j 
    5094       sol j solidcentreface /G defpoint3d 
    50955093      sol i solidgetsommet /S defpoint3d 
    50965094      i (   ) cvs 
    5097       G S vecteur3d normalize3d 
    5098       15 dup ptojpoint pop 
    5099       mulv3d 
    5100       S addv3d 
    5101       3dto2d cctext  
     5095      m 0 ne { 
     5096         %% le sommet i est dans la face j 
     5097         sol j solidcentreface /G defpoint3d 
     5098         G S vecteur3d normalize3d 
     5099         15 dup ptojpoint pop 
     5100         mulv3d 
     5101         S addv3d 
     5102         3dto2d cctext  
     5103      } { 
     5104         S 3dto2d uctext 
     5105      } ifelse 
    51025106   } for 
    51035107end