Drawing objects

Following instructions show usage of functions to plot graphical objects. They produce the following picture:

• draw one rectangle with current line style

  xrect(20,120,60,60);
  

• fill one rectangle with current pattern

  xfrect(100,120,60,60);
  

• draw part of an elipsis

  xarc(20,200,50,70,0,64*(225));
  

• fill part of an elipsis

  xfarc(100,200,50,70,0,64*225);
  

• Draw a polyline with marks

  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);
  

• Draw a polyline with dashes

  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);
  

• Draw a filled polyline

  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);
  

• Draw a string

  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));