plotsetup(ps,plotoutput=`myplot.eps`,
          plotoptions=`portrait,noborder,color,width=5in,height=5in`);

plot( [cos(t)/t,sin(t)/t,t=1..20*Pi], numpoints=2000, color=black, thickness=1);

# The PostScript file "myplot.eps" has been created. 
# We can display it by getting Maple to open it with the viewer "ggv":

system(`ggv myplot.eps&`);


# ____________________________________________________________________
# If for some reason you want to generate graphics in an image format
# such as GIF, you can do it similarly:

plotsetup(gif,plotoutput=`myplot.gif`,
          plotoptions=`portrait,noborder,color,width=800,height=700`);

plot( [cos(t)/t,sin(t)/t,t=1..20*Pi], numpoints=2000, color=black, thickness=1);

# The GIF image file "myplot.gif" has been created. 
# We can display it by getting Maple to open it with the viewer "eog" (or any other
# image viewer of your choice):

system(`eog myplot.gif&`);