require ("xfig");
public define slsh_main ()
{
   variable x = 10^[-0.5:1.5:#200];
   variable y = sin (1/x)*exp(-x);

   variable w = xfig_plot_new ();
   w.plot (x, y;logx);
   variable legend = xfig_new_legend (["Damped"], ["black"], 0, 3, 2);
   w.add_object (legend, 6, 0.37);
   w.xlabel ("Time[s]"R);
   w.ylabel ("Voltage [mV]"R);
   w.title ("Simple Example");
   w.render("simple.png");
}