Changeset 14

Show
Ignore:
Timestamp:
04/10/08 14:04:57 (8 months ago)
Author:
jpv
Message:

Modif des boucles for en boucles repeat dans newtube

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/solides.pro

    r13 r14  
    11%! 
    22% PostScript prologue for pst-solides3d.tex. 
    3 % Version 3.08, 2008/04/08 
     3% Version 3.09, 2008/04/10 
    44% 
    55%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque 
    …… 
    61956195   /table exch def 
    61966196   /K table 0 get def %% nb d etages 
    6197    /N table 1 get def         %% nb de points sur le perimetre 
     6197   /N table 1 get def %% nb de points sur le perimetre 
    61986198   /@r exch def       %% le rayon du tube 
    61996199   /str exch def 
    …… 
    62076207   %% definition des sommets 
    62086208   [ 
    6209    tmin pas tmax { 
    6210       /a0 exch def 
     6209   /@k 0 def 
     6210   K { 
     6211      /a0 tmin @k pas mul add def 
    62116212    
    62126213      %% definition du repere de Frenet (k1, k2, k3) au point f(a) 
    6213       a0 lafonction pstrickactionR3 /M defpoint3d 
    6214       a0 laderivee normalize3d pstrickactionR3 /k1 defpoint3d 
    6215       a0 laderivee2nd normalize3d pstrickactionR3 /k2 defpoint3d 
     6214      a0 lafonction /M defpoint3d 
     6215      a0 laderivee normalize3d /k1 defpoint3d 
     6216      a0 laderivee2nd normalize3d /k2 defpoint3d 
    62166217      k1 norme3d 0 eq { 
    6217          tub@dernierk1 aload pop pstrickactionR3 /k1 defpoint3d 
     6218         tub@dernierk1 aload pop /k1 defpoint3d 
    62186219      } { 
    62196220         /tub@dernierk1 [k1] store 
    62206221      } ifelse 
    62216222      k2 norme3d 0 eq { 
    6222          tub@dernierk2 aload pop pstrickactionR3 /k2 defpoint3d 
     6223         tub@dernierk2 aload pop /k2 defpoint3d 
    62236224      } { 
    62246225         /tub@dernierk2 [k2] store 
    62256226      } ifelse 
    6226       k1 k2 vectprod3d normalize3d pstrickactionR3 /k3 defpoint3d 
     6227      k1 k2 vectprod3d normalize3d /k3 defpoint3d 
    62276228      k3 norme3d 0 eq { 
    6228           tub@dernierk3 aload pop pstrickactionR3 /k3 defpoint3d 
     6229          tub@dernierk3 aload pop /k3 defpoint3d 
    62296230      } { 
    62306231         /tub@dernierk3 [k3] store 
    62316232      } ifelse 
    6232       k3 k1 vectprod3d normalize3d pstrickactionR3 /k2 defpoint3d 
     6233      k3 k1 vectprod3d normalize3d /k2 defpoint3d 
    62336234      /tub@dernierk2 [k2] store 
    62346235      /@n 360 N div def %% le pas angulaire 
    …… 
    62396240         k3 @i sin @r mul mulv3d addv3d 
    62406241      } for 
    6241    } for 
     6242      /@k @k 1 add store 
     6243   } repeat 
    62426244   ] 
    62436245 
    …… 
    62526254      %% les etages 
    62536255      /j 0 def 
    6254       tmin pas tmax pas sub { 
    6255          pop  
     6256      K 1 sub { 
     6257%         pop  
    62566258         0 1 N 1 sub { 
    62576259            /i exch def 
    …… 
    62646266         } for 
    62656267         /j j 1 add store 
    6266       } for 
     6268      } repeat 
    62676269   ] 
    62686270   generesolid