@verb #1409:"makeplot" this none this rxdo #8084
@program #1409:"makeplot" this none this
return
caller_perms().wizard || raise(E_PERM)
{?symbol = "SMFO"} = args
`this:filedelete($su:lowercase(symbol), ".gif") ! ANY'
if (!$gnuplot:request_use())
  suspend()
endif
spec = this.makeplot
spec = strsub(toliteral(spec), "$CNAME$", symbol)
spec = strsub(spec, "$DIM$", "")
spec = strsub(spec, "$OUTFILE$", tostr("/home/moo/MOO/files/1/4/0/9/", $su:lowercase(symbol), ".gif"))
spec = strsub(spec, "$INDEX$", tostr(listiassoc(symbol, this.quotes) + 1))
if (listassoc(symbol, this.quotes)[2] == -1)
  spec = strsub(spec, "$IVAL$", "500.0")
else
  spec = strsub(spec, "$IVAL$", tostr(this.initial_prices[listiassoc(symbol, this.quotes)]))
endif
spec = $su:to_value(spec)[2]
$gnuplot:write_spec(@spec)
player:tell($gnuplot:run())
"Last modified by Lao-Tzu (#8084) on Mon Jul  9 11:37:25 2001 MDT."
.