xrect(20,120,60,60);
xfrect(100,120,60,60);
xarc(20,200,50,70,0,64*(225));
xfarc(100,200,50,70,0,64*225);
x=0:1:%pi; [n1,n2]=size(x); x1=50*sin(x)+40*ones(x); y1=50*cos(x)+90*ones(x); xset('mark',6,1); y1=transl(y1,200); xpoly(x1,y1,'marks',0); xset('mark',4,6); x1=transl(x1,80); xpoly(x1,y1,'marks',0);
x=0:1:%pi; [n1,n2]=size(x); x1=50*sin(x)+40*ones(x); y1=50*cos(x)+90*ones(x); x1=transl(x1,160); xpoly(x1,y1,'lines',0); //[II.3] xpoly(x,y,"lines",1) x=0:1:%pi; [n1,n2]=size(x); x1=50*sin(x)+40*ones(x); y1=50*cos(x)+90*ones(x); x1=transl(x1,240); xpoly(x1,y1,'lines',1);
x=0:1:%pi; [n1,n2]=size(x); x1=50*sin(x)+40*ones(x); y1=50*cos(x)+90*ones(x); x1=transl(x1,320); xfpoly(x1,y1,1);
xset('font',2,2); xstring(200,200,'Character string',0,0); xstring(200,250,'Character string',0,1); xstring(400,300,'Chaine ',45,0); // rect=xstringl(350,200,'Character string'); xrect(rect(1),rect(2),rect(3),rect(4));