Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Accueil
Albums
Formulaires
Banque d'images
Papiers
Documentation
Téléchargement
Chimie
Édition de test_texte3d.jps
[
retour
]
Édition de
test_texte3d.jps
.
%% Pour passer en pur postscript, decommenter la ligne suivante %% 294 420 translate %% puis commenter les 3 suivantes -20 20 setxrange -10 10 setyrange 20 setxunit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Manuel Luque %% %% juin 2006 %% %% poour le dessin de l'icosaedre et du ballon %% %% c'est une adaptation du fichier MatLab de Jean-Bernard ROUX :%% %% http://hypo.ge-dip.etat-ge.ch/www/math/html/node45.html %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /cm {28.45 mul} def %% les transformations de l'objet %% translation /CX 0 def % centre du ballon /CY 0 def /CZ 10 def %% rotation autour des axes /RotX 0 def /RotY -72 def /RotZ 144 def /c2 {RotY cos} bind def /s2 {RotY sin} bind def /c3 {RotZ cos} bind def /s3 {RotZ sin} bind def /c1 {RotX cos} bind def /s1 {RotX sin} bind def %% les coefficients de la matrice de transformation %% de l'objet /M11 {c2 c3 mul} bind def /M12 {c3 s1 mul s2 mul c1 s3 mul sub} bind def /M13 {c1 c3 mul s2 mul s1 s3 mul add} bind def /M21 {c2 s3 mul} bind def /M22 {s1 s2 mul s3 mul c1 c3 mul add} bind def /M23 {s3 s2 mul c1 mul c3 s1 mul sub} bind def /M31 {s2 neg} bind def /M32 {s1 c2 mul} bind def /M33 {c1 c2 mul} bind def %% définir le point de vue %% par ses coordonnées sphériques /THETA -30 def /PHI 20 def /Dobs 60 def % distance observateur /Decran 30 def % distance de l'écran %% calcul des coefficients de la matrice %% de transformation /Sin1 {THETA sin} bind def /Sin2 {PHI sin} bind def /Cos1 {THETA cos} bind def /Cos2 {PHI cos} bind def /Cos1Sin2 {Cos1 Sin2 mul} bind def /Sin1Sin2 {Sin1 Sin2 mul} bind def /Cos1Cos2 {Cos1 Cos2 mul} bind def /Sin1Cos2 {Sin1 Cos2 mul} bind def %% /CalculsPointsAfterTransformations{% /Xabscisse M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add CX add def /Yordonnee M21 Xpoint mul M22 Ypoint mul add M23 Zpoint mul add CY add def /Zcote M31 Xpoint mul M32 Ypoint mul add M33 Zpoint mul add CZ add def } def %% pour la 3D conventionnelle %% Dony : graphisme scientifique : page 187 /formulesTroisD{% /xObservateur Xabscisse Sin1 mul neg Yordonnee Cos1 mul add def /yObservateur Xabscisse Cos1Sin2 mul neg Yordonnee Sin1Sin2 mul sub Zcote Cos2 mul add def /zObservateur Xabscisse neg Cos1Cos2 mul Yordonnee Sin1Cos2 mul sub Zcote Sin2 mul sub Dobs add def /Xi Decran xObservateur mul zObservateur div def /Yi Decran yObservateur mul zObservateur div def } def /XpointVue {Dobs Cos1Cos2 mul} bind def /YpointVue {Dobs Sin1Cos2 mul} bind def /ZpointVue {Dobs Sin2 mul} bind def %% dessin de l'icosaedre et du ballon %% C'est une adaptation du fichier MatLab de Jean-Bernard ROUX : %% http://hypo.ge-dip.etat-ge.ch/www/math/html/node45.html /radius 3 def % rayon de la sphère circonscrite /m 5 def % nombre d'arêtes sur un sommet /n 3 def % nombre de côtés de chaque face /sina {180 m div cos 180 n div sin div} bind def /cosa {1 sina dup mul sub sqrt} bind def /al {sina cosa atan} bind def /l {radius 2 mul 180 m div cos mul al cos mul 180 m div sin al sin mul div} bind def /K {2 radius dup mul mul l dup mul sub 2 radius mul div} bind def /r {radius dup mul K dup mul sub sqrt} bind def %% les sommets %% abscisses /x1 {r 0 cos mul} bind def /x2 {r 72 cos mul} bind def /x3 {r 144 cos mul} bind def /x4 {r 216 cos mul} bind def /x5 {r 288 cos mul} bind def /x6 0 def /x7 0 def /x8 {x1 neg} bind def /x9 {x2 neg} bind def /x10 {x3 neg} bind def /x11 {x4 neg} bind def /x12 {x5 neg} bind def %% ordonnées /y1 {r 0 sin mul} bind def /y2 {r 72 sin mul} bind def /y3 {r 144 sin mul} bind def /y4 {r 216 sin mul} bind def /y5 {r 288 sin mul} bind def /y6 0 def /y7 0 def /y8 {y1 neg} bind def /y9 {y2 neg} bind def /y10 {y3 neg} bind def /y11 {y4 neg} bind def /y12 {y5 neg} bind def %% les cotes /z1 K def /z2 K def /z3 K def /z4 K def /z5 K def /z6 radius def /z7 radius neg def /z8 K neg def /z9 K neg def /z10 K neg def /z11 K neg def /z12 K neg def %% les sommets : 12 sommets = 36 coordonnées /S [x1 y1 z1 % 0->2 x2 y2 z2 % 3->5 x3 y3 z3 % 6->8 x4 y4 z4 % 9->11 x5 y5 z5 % 12->14 x6 y6 z6 % 15->17 x7 y7 z7 % 18->20 x8 y8 z8 % 21->23 x9 y9 z9 % 24->26 x10 y10 z10 % 27->29 x11 y11 z11 % 30->32 x12 y12 z12 % 33-->35 ] def %% les 20 faces %% tableau des faces /FacesIco [ % No 2 6 1 % 0 2 3 6 % 1 6 3 4 % 2 4 5 6 % 3 5 1 6 % 4 1 5 10 % 5 1 10 11 % 6 11 2 1 % 7 11 12 2 % 8 2 12 3 % 9 3 12 8 % 10 8 4 3 % 11 8 9 4 % 12 9 5 4 % 13 5 9 10 % 14 12 11 7 % 15 12 7 8 % 16 9 8 7 % 17 7 10 9 % 18 7 11 10 % 19 ] def %% indice des autres sommets voisins de chaque sommet /co [ 6 2 11 10 5 % voisins du sommet 1 3 6 1 11 12 % " de 2 2 8 12 4 6 % " de 3 6 5 9 8 3 % " de 4 6 4 10 9 1 % " de 5 1 2 3 4 5 % " de 6 10 9 8 12 11 % " de 7 12 3 4 9 7 % " de 8 8 4 5 10 7 % " de 9 11 7 9 5 1 % " de 10 1 2 12 7 10 % " de 11 11 2 3 8 7 % " de 12 ] def %% dessin de l'icosaedre tronqué 1 setlinejoin %% le quadrillage /Zcote 0 def -20 1 20 { % /Xabscisse exch def /Yordonnee -10 def formulesTroisD Xi cm Yi cm moveto -10 1 10 { /Yordonnee exch def formulesTroisD Xi cm Yi cm lineto } for stroke }for % -10 1 10 { % /Xabscisse -20 def /Yordonnee exch def /Zcote 0 def formulesTroisD Xi cm Yi cm moveto -20 1 20 { /Xabscisse exch def formulesTroisD Xi cm Yi cm lineto } for stroke }for %% les axes gsave 0 0 moveto /Zcote 0 def /Yordonnee 0 def /Xabscisse 20 def formulesTroisD Xi cm Yi cm lineto 2 setlinewidth 1 0 0 setrgbcolor stroke 0 0 moveto /Zcote 0 def /Yordonnee 10 def /Xabscisse 0 def formulesTroisD Xi cm Yi cm lineto 2 setlinewidth 0 1 0 setrgbcolor stroke 0 0 moveto /Zcote 10 def /Yordonnee 0 def /Xabscisse 0 def formulesTroisD Xi cm Yi cm lineto 2 setlinewidth 0 0 1 setrgbcolor stroke grestore % %% dessin de l'icosaedre tronqué %% paramètre pour tronquer %% de différentes façons l'icosaèdre %% 2<d<8 ou plus /d 2 def % fraction sur l'arete S1S=S1Si/2 /dd {d 1 sub} bind def /i 0 def /Sico [ % les coordonnées des sommets de % l'icosaèdre tronqué 0 5 co length 5 sub { /j exch def S i get /xt1 exch def S i 1 add get /yt1 exch def S i 2 add get /zt1 exch def % co j get 1 sub 3 mul /k exch def S k get /xt2 exch def xt1 dd mul xt2 add d div % S k 1 add get /yt2 exch def yt1 dd mul yt2 add d div % S k 2 add get /zt2 exch def zt1 dd mul zt2 add d div %% co j 1 add get 1 sub 3 mul /k exch def S k get /xt2 exch def xt1 dd mul xt2 add d div % S k 1 add get /yt2 exch def yt1 dd mul yt2 add d div % S k 2 add get /zt2 exch def zt1 dd mul zt2 add d div %% co j 2 add get 1 sub 3 mul /k exch def S k get /xt2 exch def xt1 dd mul xt2 add d div % S k 1 add get /yt2 exch def yt1 dd mul yt2 add d div % S k 2 add get /zt2 exch def zt1 dd mul zt2 add d div %% co j 3 add get 1 sub 3 mul /k exch def S k get /xt2 exch def xt1 dd mul xt2 add d div % S k 1 add get /yt2 exch def yt1 dd mul yt2 add d div % S k 2 add get /zt2 exch def zt1 dd mul zt2 add d div %% co j 4 add get 1 sub 3 mul /k exch def S k get /xt2 exch def xt1 dd mul xt2 add d div % S k 1 add get /yt2 exch def yt1 dd mul yt2 add d div % S k 2 add get /zt2 exch def zt1 dd mul zt2 add d div /i i 3 add def } for ] def % %% les sommets des faces pentagonales /FP [ % 12 pentagones 1 5 4 3 2 6 7 8 9 10 15 11 13 12 14 16 17 18 19 20 23 25 21 22 24 26 27 28 29 30 35 31 32 33 34 36 37 38 39 40 41 42 43 44 45 46 50 49 48 47 51 52 53 54 55 56 57 58 59 60 ] def /FH [ % 20 hexagones 14 15 28 29 16 20 17 16 29 30 21 22 11 15 28 27 7 6 27 26 1 2 8 7 26 30 21 25 5 1 4 5 25 23 49 50 55 51 3 4 50 46 9 8 2 3 51 52 56 57 10 9 52 53 13 11 6 10 57 58 36 37 12 13 58 59 19 20 14 12 37 38 41 42 18 19 38 39 24 22 17 18 42 43 48 49 23 24 43 44 53 54 35 34 60 56 59 60 34 33 40 36 39 40 33 32 45 41 44 45 32 31 47 48 46 47 31 35 54 55] def /RED 0 def 0 5 FP length 5 sub { % le dessin des pentagones /i exch def FP i get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X1 Xabscisse def /Y1 Yordonnee def /Z1 Zcote def %% FP i 1 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X2 Xabscisse def /Y2 Yordonnee def /Z2 Zcote def %% FP i 2 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X3 Xabscisse def /Y3 Yordonnee def /Z3 Zcote def %% FP i 3 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X4 Xabscisse def /Y4 Yordonnee def /Z4 Zcote def %% FP i 4 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X5 Xabscisse def /Y5 Yordonnee def /Z5 Zcote def %% centre de la face /xF {X1 X2 add X3 add X4 add X5 add 5 div} bind def /yF {Y1 Y2 Y3 Y4 Y5 add add add add 5 div} bind def /zF {Z1 Z2 Z3 Z4 Z5 add add add add 5 div} bind def %% vecteur : centre de la face -> point de vue /xV {XpointVue xF sub } bind def /yV {YpointVue yF sub } bind def /zV {ZpointVue zF sub } bind def %% normale /xN xF CX sub def /yN yF CY sub def /zN zF CZ sub def % le produit scalaire des 2 vecteurs /PS xV xN mul yV yN mul add zV zN mul add def PS 0 ge { newpath % tracé de la facette /Zcote Z1 def /Yordonnee Y1 def /Xabscisse X1 def formulesTroisD Xi cm Yi cm moveto /Zcote Z2 def /Yordonnee Y2 def /Xabscisse X2 def formulesTroisD Xi cm Yi cm lineto /Zcote Z3 def /Yordonnee Y3 def /Xabscisse X3 def formulesTroisD Xi cm Yi cm lineto /Zcote Z4 def /Yordonnee Y4 def /Xabscisse X4 def formulesTroisD Xi cm Yi cm lineto /Zcote Z5 def /Yordonnee Y5 def /Xabscisse X5 def formulesTroisD Xi cm Yi cm lineto closepath gsave % 0 RED RED 0 setcmykcolor 0 0.5 0.5 0 setcmykcolor fill grestore % 2 setlinewidth 0 setgray stroke } if /RED RED 0.06 add store } for /RED 1 def 0 6 FH length 6 sub { % le dessin des hexagones /i exch def FH i get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X1 Xabscisse def /Y1 Yordonnee def /Z1 Zcote def %% FH i 1 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X2 Xabscisse def /Y2 Yordonnee def /Z2 Zcote def %% FH i 2 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X3 Xabscisse def /Y3 Yordonnee def /Z3 Zcote def %% FH i 3 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X4 Xabscisse def /Y4 Yordonnee def /Z4 Zcote def %% FH i 4 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X5 Xabscisse def /Y5 Yordonnee def /Z5 Zcote def %% FH i 5 add get 1 sub 3 mul /k exch def Sico k get /Xpoint exch def Sico k 1 add get /Ypoint exch def Sico k 2 add get /Zpoint exch def CalculsPointsAfterTransformations /X6 Xabscisse def /Y6 Yordonnee def /Z6 Zcote def %% centre de la face /xF {X1 X2 add X3 add X4 add X5 add X6 add 6 div} bind def /yF {Y1 Y2 Y3 Y4 Y5 Y6 add add add add add 6 div} bind def /zF {Z1 Z2 Z3 Z4 Z5 Z6 add add add add add 6 div} bind def %% vecteur : centre de la face -> point de vue /xV {XpointVue xF sub } bind def /yV {YpointVue yF sub } bind def /zV {ZpointVue zF sub } bind def %% normale /xN xF CX sub def /yN yF CY sub def /zN zF CZ sub def % le produit scalaire des 2 vecteurs /PS xV xN mul yV yN mul add zV zN mul add def PS 0 ge { newpath % tracé de la facette /Zcote Z1 def /Yordonnee Y1 def /Xabscisse X1 def formulesTroisD Xi cm Yi cm moveto /Zcote Z2 def /Yordonnee Y2 def /Xabscisse X2 def formulesTroisD Xi cm Yi cm lineto /Zcote Z3 def /Yordonnee Y3 def /Xabscisse X3 def formulesTroisD Xi cm Yi cm lineto /Zcote Z4 def /Yordonnee Y4 def /Xabscisse X4 def formulesTroisD Xi cm Yi cm lineto /Zcote Z5 def /Yordonnee Y5 def /Xabscisse X5 def formulesTroisD Xi cm Yi cm lineto /Zcote Z6 def /Yordonnee Y6 def /Xabscisse X6 def formulesTroisD Xi cm Yi cm lineto closepath gsave 0 0 0.2 0 setcmykcolor fill grestore 1 setlinewidth stroke } if } for /decalage_vertical 0 def %% decalage en picas du texte en %% dessous de la ligne y=0 /Font /Times-Roman def Font findfont 7 scalefont setfont %% le texte a deformer (les x sont dans [-warphalf ; warphalf]) /warptxt (La perspective) def %% Jean-Paul Vignault %% la procedure de base pour la transformation des points du chemin %% (x, y) --> (X, Y) %% cette fonction peut utiliser les variables warpwidth et warphalf /Zcote 0 def /warp { 3 dict begin /Yordonnee exch def /Xabscisse exch def formulesTroisD Xi cm Yi cm % passage aux cm sur l'écran end } bind def /warpwidth warptxt stringwidth pop def %% largeur horizontale du texte /warphalf warpwidth 2 div def %% demi-largeur horizontale %% pour remplacer 'move' /warpmove{ %% on teste le booleen place 2 tokens plus en avant sur la pile %% si c'est 'true', alors on en est au 1er appel => on initialise %% le chemin 2 index { newpath } if %% puis on applique warp a notre point warp moveto %% on enleve le 'true' pour mettre un 'false' a la place pop false } bind def %% pour remplacer 'lineto /warpline { warp lineto } bind def %% pour remplacer 'curveto' /warpcurve { 6 2 roll warp 6 2 roll warp 6 2 roll warp curveto } bind def %% 'warpit' declenche la transformation du chemin courant /warpit { true { warpmove } { warpline } { warpcurve } { closepath } pathforall pop } bind def newpath %% on se deplace (init chemin) de facon a %% centrer la ligne de base du texte en (0 , - decalage_vertical) %%warphalf neg decalage_vertical neg moveto /Zcote 0 def /Yordonnee 0 def /Xabscisse -3 def formulesTroisD Xi cm 0 moveto warptxt true charpath %% on cree le chemin %% maintenant on y va warpit %% on applique le pathforall gsave 0.5 setgray fill grestore stroke %% puis on encre
Tapez les 3 lettres : AWE