Esempi

> with(plottools):

> colore:=[red,green,blue,white]:

> tetraedro:= proc(l) local i,ll; global faccia; ll:=convert(l,listlist):for i from 1 to 4 do faccia[i]:=polygon(subsop(i=NULL,ll),color=colore[i]) od; RETURN(convert(faccia,set)) end:

> disegno3d:=f->plots[display](f,scaling=CONSTRAINED,axes=NORMAL,labels=[x,y,z]):

> t0:=[[0,0,0],[1,0,0],[0,1,0],[0,0,1]]:

> disegno3d(tetraedro(t0));

> t1:=trasforma(t0,T3d(1,0,1)): traslazione

> disegno3d(tetraedro(t0) union tetraedro(t1));

> disegno3d(tetraedro(t0) union tetraedro(trasforma(t1,S3d(2,2,1)))); cambiamento di scala

> disegno3d(tetraedro(t0) union tetraedro(trasforma(t0,Roty(2*Pi/3)))); rotazione di attorno all'asse

> disegno3d(tetraedro(t0) union tetraedro(trasforma(t0,m))); riflessione rispetto al piano

>