Changeset 36

Show
Ignore:
Timestamp:
06/04/08 00:47:16 (7 months ago)
Author:
jpv
Message:

Ajout de newcourbe

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/solides.pro

    r34 r36  
    11%! 
    22% PostScript prologue for pst-solides3d.tex. 
    3 % Version 3.21, 2008/06/02 
     3% Version 3.22, 2008/06/03 
    44% 
    55%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque 
    …… 
    80548054} def 
    80558055 
     8056%%%%% ### newcourbe ### 
     8057%% syntaxe : a b {f} array newcourbe --> solid 
     8058/newcourbe { 
     805910 dict begin 
     8060   dup xcheck not { 
     8061      0 get /n exch def 
     8062   } { 
     8063      /n 80 def 
     8064   } ifelse 
     8065   /l@f@nct exch def 
     8066   /b exch def 
     8067   /a exch def 
     8068   /pas b a sub n 1 sub div def 
     8069   /S [ 
     8070   0 1 n 1 sub { 
     8071      /@i exch def 
     8072      a @i pas mul add 
     8073      l@f@nct 
     8074      pstrickactionR3 
     8075   } for 
     8076   ] def 
     8077   /@F [ 
     8078      0 1 n 2 sub { 
     8079         /@i exch def 
     8080         [@i @i 1 add] 
     8081      } for 
     8082   ] def 
     8083   S @F generesolid 
     8084end 
     8085} def 
     8086 
    80568087%%%%% ### baseplannormal ### 
    80578088%% syntaxe : x y z baseplannormal -> x1 y1 z1 x2 y2 z2 
    …… 
    86128643   solidlinewidth setlinewidth 
    86138644   r 0 eq { 
    8614       range aload pop {function cvx exec} CourbeR3 
     8645      range aload pop function cvx [resolution] newcourbe 
     8646      gere_pstricks_opt 
    86158647   } { 
    86168648      range aload pop function r ngrid newtube 

  • trunk/tests/test_07.tex

    r8 r36  
    9999   {2.065260000*cos(t)-2.065260000*cos(3*t)*cos(t)+.8624533334*sin(3*t)*sin(t)} 
    100100   {2/3*sin(1.668)*(1-cos(3*t))} 
    101 \defFunction[algebraic]{F'}(t) 
    102    {-2.065260000*cos(t)-7.058233333*sin(3*t)*sin(t)+4.652620000*cos(3*t)*cos(t)} 
    103    {-2.065260000*sin(t)+7.058233333*cos(t)*sin(3*t)+4.652620000*cos(3*t)*sin(t)} 
    104    {2*sin(1.668)*sin(3*t)} 
    105 \defFunction[algebraic]{F''}(t) 
    106    {2.065260000*sin(t)-25.82732000*cos(3*t)*sin(t)-21.01609333*cos(t)*sin(3*t)} 
    107    {-2.065260000*cos(t)-21.01609333*sin(3*t)*sin(t)+25.82732000*cos(3*t)*cos(t)} 
    108    {6*sin(1.668)*cos(3*t)} 
     101%% \defFunction[algebraic]{F'}(t) 
     102%%    {-2.065260000*cos(t)-7.058233333*sin(3*t)*sin(t)+4.652620000*cos(3*t)*cos(t)} 
     103%%    {-2.065260000*sin(t)+7.058233333*cos(t)*sin(3*t)+4.652620000*cos(3*t)*sin(t)} 
     104%%    {2*sin(1.668)*sin(3*t)} 
     105%% \defFunction[algebraic]{F''}(t) 
     106%%    {2.065260000*sin(t)-25.82732000*cos(3*t)*sin(t)-21.01609333*cos(t)*sin(3*t)} 
     107%%    {-2.065260000*cos(t)-21.01609333*sin(3*t)*sin(t)+25.82732000*cos(3*t)*cos(t)} 
     108%%    {6*sin(1.668)*cos(3*t)} 
    109109\psSolid[object=courbe, 
    110110   range=0 6.28, 
    111111   function=F, 
     112   linecolor=blue, 
    112113   r=0] 
     114%% \codejps{ 
     115%% %0 6.28 {F} newcourbe drawsolid* 
     116%% 0 6.28 {F} [20] newcourbe drawsolid* 
     117%% } 
    113118\end{pspicture} 
    114119