Changeset 93
- Timestamp:
- 07/13/08 22:01:25 (5 months ago)
- Files:
-
- trunk/solides.pro (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/solides.pro
r90 r93 1 1 %! 2 2 % PostScript prologue for pst-solides3d.tex. 3 % Version 4.0 4, 2008/07/133 % Version 4.05, 2008/07/13 4 4 % 5 5 %% COPYRIGHT 2008 by Jean-Paul Vignault … … 5871 5871 /lignedeniveau [] def 5872 5872 gsave 5873 pointilles 5873 solidintersectiontype 0 eq { 5874 pointilles 5875 } { 5876 continu 5877 } ifelse 5874 5878 k solidintersectionlinewidth length lt { 5875 5879 solidintersectionlinewidth k get setlinewidth … … 6019 6023 %% dessin de la ligne 6020 6024 lignedeniveau length 4 ge { 6021 solid i solidisinface {6025 solid i solidisinface solidintersectiontype 0 eq and { 6022 6026 pointilles 6023 6027 } if … … 9630 9634 /y exch def 9631 9635 /x exch def 9632 lefichier zchaine cvs writestring9636 lefichier x chaine cvs writestring 9633 9637 lefichier 32 write %% espace 9634 9638 lefichier y chaine cvs writestring 9635 9639 lefichier 32 write %% espace 9636 lefichier xchaine cvs writestring9640 lefichier z chaine cvs writestring 9637 9641 lefichier 10 write %% CR 9638 9642 } for … … 9696 9700 [ns { 9697 9701 offfile str readline pop numstr2array aload pop 9698 3 1 roll9702 % 3 1 roll 9699 9703 } repeat] 9700 9704 /S exch def
