bac à sable
Ecrivez ce que vous voulez ici !
Ca va finir par tenir dans le creux de la main...
Toujours plein de ressources !
Alain a toujours quelque chose de surprenant dans son panier, c'est ce que j'aime chez lui !
Elrik
Ouah ! Ya meme pas de filtre anti bot spammeur de lose... c'est dommageC'est quoi un anti bot spammeur de lose ?
Test de mise en forme
salut, je teste... merci pour le choix gpl.... test_lien
ok, je viens de lire la doc : test
Haaaa je trouve ce wiki merveilleux !
plop
cadre gauche
- article 1
- article 2
- article 3
cadre droit
texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, texte contenu dans le cadre droit, ...
... les mots !
#include "pFlibs.inc"
#include "golds.inc"
background { color rgb 1/4 }
light_source { < 2,2,-2 >*10 color rgb 1 }
light_source { < -2,2,-2 >*10 color rgb 1 }
light_source { < 2,0, 2 >*10 color rgb 1 }
//vue_perspective( < 1.2,0.9,-0.9 >*1.5 )
vue_axonometrique( AXO, 1/4 )
#macro surface_tendue( profil, extension )
// definition de la section de base, un demi-cercle :
#local c = demi_cercle_5( 1 )
// extension, valeurs dans [0,1/sqrt(2)] du demi-cercle au cercle complet
#local c = pFstretch( 1, c, < -extension,0,0,1>, < 1+extension,0,0,1> )
// calcul de la surface :
#local N = taille( profil );
#local pSurface = array[N]
#local i=0; #while (i< N)
#local uu = i/(N-1);
#local pSurface[i] = c
pFtranslate( 1, pSurface[i], < 0,0,-1*(1-uu)+1*uu> )
#local j=0; #while (j< taille(c))
pFtranslate( 0, pSurface[i][j], profil[i][j] )
#local j=j+1; #end
#local i=i+1; #end
pSurface
#end
#local profil = array[7]
{ array[5] { < 0, 0, 0>, <0,0,0>, <0, 0,0>, <0,0,0>, < 0,0,0> },
array[5] { < 0, 0, 0>, <0,0,0>, <0, 0,0>, <0,0,0>, < 0,0,0> },
array[5] { < 0, 0, 0>, <0,0,0>, <0, 0,0>, <0,0,0>, < 0,0,0> },
array[5] { < 3, 0, 0>, <0,0,0>, <0,-3,0>, <0,0,0>, < 3,0,0> },
array[5] { < 0, 0, 0>, <0,0,0>, <0,-3,0>, <0,0,0>, < 0,0,0> },
array[5] { < 0, 0, 0>, <0,0,0>, <0, 3,0>, <0,0,0>, < 0,0,0> },
array[5] { < 0, 0, 0>, <0,0,0>, <0, 0,0>, <0,0,0>, < 0,0,0> }
}
#local extension = 0.3; // valeurs dans [0,1/sqrt(2)] du demi-cercle au cercle complet
#local pSurface = surface_tendue( profil, extension )
// 1) affichage de la surface :
draw( 2, pSurface, finesse(<4,4>) + surface(LISSE) + ma_texture(MARBRE) )
// 2) affichage des sections :
#local N = taille(profil);
#local i=0; #while (i) )
#local i=i+1; #end
// 3) affichage d'une cubique sur la surface :
#local cubique = array[4] { <0,0,0,1>, <1/2,2,0,1>, <1/2,-1,0,1>, <0,1,0,1> }
#local icubique = courbe_in_surface( cubique, pSurface )
draw( 1, icubique, finesse(4) + courbe(0.01) + ma_couleur(<0,1,0>) )
test
truc machin ....
pageSorry les scripts ne sont plus autorisés, cf page microdraw