export(plot, Function2d, Scene2d):

Object1 := Function2d(sin(3*x), x=-PI..PI,

   Color = [0.2, 0.2, 0.2],

   LineWidth = 0.8

):

Object2 := Function2d(x, x = -PI..PI,

   Color = [0, 0, 0],

   LineWidth = 0.15

):

MyScene := Scene2d(Object1, Object2,

   BackgroundColor = [0.8, 0.8, 1.0],

   Scaling = Constrained

):

plot(MyScene)