Bonsoir Patrick
Existe-t-il une commande pour tracer automatiquement un quadrillage à base de triangles équilatéraux ?
[//quad_triangle( long)
$d:=%1, //longueur d'un coté
$k:=0, //horizontales
$cf := sqrt(3)/2 , $ell := d*cf, $icf:=sqrt(3), $ell':=d*icf,
$y:=0,
while y<=Ymax do
Droite(i*y, i*y+1),
Inc(y,ell)
od,
$y:=-ell, ///horizontales
while y>=Ymin do
Droite(i*y, i*y+1),
Inc(y,-ell)
od,
//obliques 1
$u := Ymin+icf*Xmin,
$v := Ymax+icf*Xmax,
a :=u,
a := 0,
while a<=v do
Droite(i*a,i*(a-icf)+1),
Inc(a,ell')
od,
a := -ell',
while a>=u do
Droite(i*a,i*(a-icf)+1),
Inc(a,-ell')
od,
//obliques 2
$u := -Ymax+icf*Xmin,
$v := -Ymin+icf*Xmax,
a :=0,
while a>=u do
Droite(i*a,i*(a+icf)+1),
Inc(a,-ell')
od,
a :=ell',
while a<=v do
Droite(i*a,i*(a+icf)+1),
Inc(a,ell')
od]
[//command
Margin(0,0,0,0), size(8),
quad_triangle(1)
]
Revenir vers Questions - Réponses
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 9 invités