Changeset 93

Show
Ignore:
Timestamp:
07/13/08 22:01:25 (5 months ago)
Author:
jpv
Message:

Modif lecture/ecriture fichiers off

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/solides.pro

    r90 r93  
    11%! 
    22% PostScript prologue for pst-solides3d.tex. 
    3 % Version 4.04, 2008/07/13 
     3% Version 4.05, 2008/07/13 
    44% 
    55%% COPYRIGHT 2008 by Jean-Paul Vignault 
     
    58715871         /lignedeniveau [] def 
    58725872         gsave 
    5873             pointilles 
     5873            solidintersectiontype 0 eq { 
     5874               pointilles 
     5875            } { 
     5876               continu 
     5877            } ifelse 
    58745878            k solidintersectionlinewidth length lt { 
    58755879               solidintersectionlinewidth k get setlinewidth 
     
    60196023            %% dessin de la ligne 
    60206024            lignedeniveau length 4 ge { 
    6021                solid i solidisinface
     6025               solid i solidisinface solidintersectiontype 0 eq and
    60226026                  pointilles  
    60236027               } if 
     
    96309634      /y exch def 
    96319635      /x exch def 
    9632       lefichier z chaine cvs writestring 
     9636      lefichier x chaine cvs writestring 
    96339637      lefichier 32 write %% espace 
    96349638      lefichier y chaine cvs writestring 
    96359639      lefichier 32 write %% espace 
    9636       lefichier x chaine cvs writestring 
     9640      lefichier z chaine cvs writestring 
    96379641      lefichier 10 write %% CR 
    96389642   } for 
     
    96969700   [ns { 
    96979701      offfile str readline pop numstr2array aload pop 
    9698       3 1 roll 
     9702%      3 1 roll 
    96999703   } repeat] 
    97009704   /S exch def