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
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier geom3D_02.jps
Retour
%% auteur : %% auteur : %% trace d'un cube de cubes %% les parametres -3 5 setxrange -1 6 setyrange /alpha 30 def %% angle de la perspective cavaliere /beta 90 def %% angle que fait l'arete (BC) avec l'horizontale /L .5 def /l L def /h L def /A {0 .5} def /n 5 def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% vecteur pour la translation verticale /u { h beta cos mul h beta sin mul } def %% vecteur pour la translation sur la profondeur /v { l alpha cos mul 1.5 div l alpha sin mul 1.5 div } def %% vecteur pour la translation horizontale /w { L 1.5 mul 0 } def %% syntaxe : M cube /cube { 20 dict begin /A defpoint %% le coin inférieur gauche de la face avant %% la face avant, obtenue par translations du point A /B {A L 0 addv} def /C {B u addv} def /D {A u addv} def %% on translate la face avant vers l'arriere [A B C D] %% le tableau de la face avant %% dup points %% on le duplique puis on marque les sommets %% (pendant la mise au point) {v addv} papply %% on additionne le vecteur v (que les matheux %% me pardonnent) a tous les points du tableau aload pop %% on vide le tableau sur la pile /H defpoint %% et on recupere les points en les nommant /G defpoint /F defpoint /E defpoint %% on dessine les faces /fillstyle {bleu fill} def [A B C D] polygone* /fillstyle {jaune fill} def [C G F B] polygone* /fillstyle {orange fill} def [D H G C] polygone* %% %% les aretes en pointille %% gsave %% jpegmode %% pointilles %% [A E H] ligne %% [F E] ligne %% grestore end } def %% syntaxe : A rangee /rangee { [ 3 1 roll n { dupp w addv } repeat ] {cube} papply } def %A rangee %% syntaxe : A plan /plan { [ 3 1 roll n { dupp v -1.5 mulv addv } repeat ] {rangee} papply } def %A plan %% syntaxe : A groscube /groscube { [ 3 1 roll n { dupp u 1.5 mulv addv } repeat ] {plan} papply } def A groscube
Tapez les 3 lettres : AWE