--Copyright The Numerical Algorithms Group Limited 1991.

)clear all
draw(sin(x),x=0..2*%pi)
v1 := %
draw(cos(x),x=0..2*%pi,curveColor==light red())
v2 := %
graphs v1
--g1 := elt(graphs v1,1)::GraphImage
g1 := getGraph(v1,1)
putGraph(v2,g1,2)
makeViewport2D(v2)
--title(v2,"sine and cosine")
