Dessin à main lévée

Bonjour,

Suite à une discussion sur un autre forum je me suis amusé à faire quelques macros TeXgraph pour imiter le dessin à main levée, qui sont:

tCercle( [A,R] <,ecart en cm pour un rayon de 1cm> )
ou
tCercle( [A,B,C] <,ecart en cm pour un rayon de 1cm> )

tDroite( [A,B], <,ecart en cm> ) ou tDroite( [a,b,c], <,ecart en cm> )

tLigne(<commande graphique ou liste de points>, open/close <, ecart en cm>)

tCourbe( <commande graphique>, open/close +i*clip/noclip <, ecart en cm>)

Exemples:

Avec le code:

Code:


[Fenetre(-0.1+1.1*i,1.1-0.1*i,10*(1+i)),
 tCourbe(Courbe(t+i*4*t*(1-t)),0+i),
 Color:=black, Width:=4,
 tDroite( [0,1+i]),
 tLigne(Get(axes(0,2*(1+i))),0),
 Width:=6, Color:=blue,
 tLigne( Get(suite(4*t*(1-t),0.33,10)), 0,0.05),
 LineStyle:=noline, Color:=black,
 axes(0,0.25*(1+i))
]


On obtient:

Avec le code:

Code:


[A:=-3+3*i, B:=3+1.5*i, C:=-2-2*i, I:=bissec(B,A,C,1) Inter bissec(A,C,B,1),
 Fenetre(-5+5*i,5-5*i,1+i),
 Width:=8, Color:=gray, tCercle([I, abs(I- proj(I,A,B))]),

 Color:=red, tCercle([A,B,C]),

 Color:=blue, tLigne( [A,B,C],1),

 Color:=Rgb(0.48,0.76,0.64),

 tCourbe( Arc(C,A,B,1),0),

 tCourbe( Arc(B,C,A,1),0),
 
 tCourbe( Arc(A,B,C,1),0),

 Color:=black,
 tLigne ( markangle(I,A,B,1,2,0.1,0.35), 0),
 tLigne ( markangle(I,A,C,1,2,0.1,0.35), 0),
 
 tLigne ( markangle(I,B,C,1,1,0.1,0.35), 0),
 tLigne ( markangle(I,B,A,1,1,0.1,0.35), 0),

 tLigne ( markangle(I,C,B,1,3,0.1,0.35), 0),
 tLigne ( markangle(I,C,A,1,3,0.1,0.35), 0),
 
 tDroite([A,I]), tDroite([B,I]), tDroite([C,I]),
 
 LabelDot(A, "$A$", "O",1), LabelDot(B, "$B$", "NE",1),
 LabelDot(C, "$C$", "SO",1), LabelDot(I, "$I$", "N",1)
 ]


On obtient:

En enfin avec le code:

Code:


[NewMac("inv","C+sqr(R)/bar(z-C)",C,R,z),
 view(-1.1,1.1,-1.1,1.1), size(11,1),

 A:=-2, B:=-1, C:=1, R:=2, r:=1/2, FillStyle:=full,
 FillColor:=Rgb(1,0.8,0.48),tCercle([(B+C)/2,R/2]),
 
 for k from 1 to 3 do
    FillColor:=Rgb(Rand(256)/255,Rand(256)/255,Rand(256)/255),
    M:=inv(C,R,A), tCercle([(M+C)/2, abs(M-C)/2]),
    for k from -10 to 10 do
        FillColor:=Rgb(Rand(256)/255,Rand(256)/255,Rand(256)/255),
        M:=(A+B)/2+2*r*k*i, D1:=M+r*(M-C)/abs(M-C), D2:=M-r*(M-C)/abs(M-C),
        D1':=inv(C,R,D1), D2':=inv(C,R,D2),
        tCercle([(D1'+D2')/2,abs(D1'-D2')/2])
    od,
    B:=A, Inc(r,0.25), A:=B-2*r
 od
 ]


On obtient:

Le fichier modèle [TeXgraph1.93] s'appelle trembling.mod.

Réponse de Samuel

Bonsoir Patrick,

j'avais déjà vu sur mathematex et c'est vraiment réussi. Ces figures sont utiles en géométrie en fait car elles obligent à lire le codage et le texte....mais surtout elles font de jolis dessins !

A plus

Samuel