using Winston

x = linspace(0., 2pi, 30)
y = sin(x)

p = FramedArray(2, 2,
        title="title",
        aspect_ratio=0.75,
        xlabel="x label",
        ylabel="y label",
        uniform_limits=true,
        cellspacing=1.)

add(p, LineY(0, kind="dot"))

add(p[1,1], Curve(x, .25*y))
add(p[1,2], Curve(x, .50*y))
add(p[2,1], Curve(x, .75*y))
add(p[2,2], Curve(x, y))

file(p, "example5.png")
