Für das Arbeiten mit geometrischen Figuren muß das Package geometry geladen werden.

> with(geometry):

Mit ein wenig Aufwand sind alle erdenklichen geometrischen Konstruktionen mit Maple realisierbar.

> testeq(distance(H,G) = 2*distance(G,OO));
draw([C(color='COLOR'(RGB,1.00000000,1.00000000,.8000000000),filled=true),
T(color=blue),T1,A3M3,A2M2,A1M1,A2A22,A3A33,A1A11,
dsg1(style=LINE,color=green,thickness=3),dsg2(thickness=3,color=green),OM1,
OM2,OM3],axes=NONE);

Beispiel für das Entwickeln von Kreisfiguren

> angle := table():
n := 8:
for i to n do angle[i] := 2*Pi*i/n od:
dsegment(dseg,point(A,0,0),point(B,4,0)): point(o,0,0):
circle(c,[o,1]):
homothety(c1,c,3/2,point(M,-1,0)):
homothety(c2,c,2,point(M,-1,0)):
homothety(c3,c,5/2,point(M,-1,0)):
translation(t,c,dseg):
translation(tt,c1,dseg):
translation(ttt,c2,dseg):
translation(tttt,c3,dseg):
for i from 1 to 8 do
rotation(t.i,t,angle[i],counterclockwise,o);
rotation(tt.i,tt,angle[i],counterclockwise,o);
rotation(ttt.i,ttt,angle[i],counterclockwise,o);
rotation(tttt.i,tttt,angle[i],counterclockwise,o);
od:
draw([seq(op([t.i(color=red),tt.i(color=green),ttt.i(color=blue),
tttt.i(color=plum)]),i=1..n)],printtext=false,filled=true,axes=none,
title=`An example of translation, rotation, dilatation of a circle`);

>

>

>