Pavages hyperboliques

Quelques exemples de pavages hyperboliques. Le fichier est joint en fin de message. En modifiant l'élément graphique pavage on peut obtenir différents exemples (attention, ça peut être très long!!):
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0,0,0,0), size(9),
FillStyle:=full, FillColor:=darkblue, Width:=8, Cercle(0,1),
$n:=4, p:=12, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=7, FillColor:= gold, Color:=FillColor, Hpavage2([0,T1],0,niv),
FillStyle:=none, Color:=crimson, BordPavage([0,T1],0,niv),
]
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0,0,0,0), size(9),
FillStyle:=full, FillColor:=darkblue, Width:=8, Cercle(0,1),
$n:=6, p:=4, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=4, FillColor:= gold, Color:=FillColor, Hpavage1([0,T1],0,niv),
FillStyle:=none, Color:=black, BordPavage([0,T1],0,niv),
]
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0.1,0.1,0.1,0.1), size(9),
FillStyle:=full, FillColor:=beige, Width:=8, Cercle(0,1),
$n:=5, p:=4, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=6, FillColor:= seagreen, Color:=FillColor, Hpavage2([0,T1],0,niv),
FillStyle:=none, Color:=brown, Width:=12, hLigne(T1,1)
]