
dcircle(ObjBase,Radius,NDuplic) :- dcircle2(ObjBase,Radius,NDuplic,NDuplic).

dcircle1(ObjBase,Radius,Ang,X) :- rt_duplicate(ObjBase,X),
				Sx is Radius*cos(Ang),
				Sy is Radius*sin(Ang),
				rt_translate(X,Sx,Sy,0).
				
dcircle2(ObjBase,Radius,NDuplic,0):- !.
dcircle2(ObjBase,Radius,NDuplic,Cont) :- NCont is Cont - 1,
		Ang is 2 * 3.1415 / NDuplic * Cont,
		dcircle1(ObjBase,Radius,Ang,NewName),
		dcircle2(NewName,Radius,NDuplic,NCont).
				
