Source PostScript (cercletransform.pps)

%% syntaxe : cercle u translatecercle --> cercle'
/translatecercle {
   3 -1 roll
   5 1 roll
   translatepoint
   3 -1 roll
} def

%% syntaxe : cercle I alpha rotatecercle --> cercle'
/rotatecercle {	 
   4 -1 roll	 
   6 1 roll
   rotatepoint
   3 -1 roll
} def

%% syntaxe : cercle I alpha homcercle --> cercle'
/homcercle {
   4 -1 roll
   2 copy pop abs mul
   6 1 roll
   hompoint
   3 -1 roll
} def

%% syntaxe : cercle I symcercle --> cercle'
/symcercle {
   3 -1 roll	 
   5 1 roll
   sympoint
   3 -1 roll
} def

%% syntaxe : cercle D axesymcercle --> cercle'
/axesymcercle {
   5 -1 roll	 
   7 1 roll
   axesympoint
   3 -1 roll
} def