plparseopts, PL_PARSE_FULL;         //Parse PLplot-style command-line arguments
plinit;
pladv,0;
plcol0,15;                    //Specify colour
plfontld,2;                  //Load extended fonts
plstick,2,2,1,1,2,1,1,1;     //Specify 2x2 plotting windows
xnum=10;
ynum=10;
plwind,1,xnum,1,ynum;        //Set up world coordinates
plbox,"bicnst",1,0,"bicnstv",1,0; //Draw box
x=array(double,xnum,ynum);        //Create arrays
y=array(double,xnum,ynum);
for (i=1;i<=xnum;i++)             //C-style for loops
  for (j=1;j<=xnum;j++)
    { x(i,j)=sin(i);
      y(i,j)=cos(i);
    }

plfont,3;                         //Select font
pllab,"X","Y","Simple Vector Field Demo"; //Draw labels
plcol0,3;                                  //Select colour
pvfield1,x,y,0.3,"#(855)";                //Draw vector field

plend;                                    //End plotting
quit;                                     //End Yorick interpreter