1 ;; implicit_plot now punts to plot2d
2 (defmfun $implicit_plot
(expr &rest optional-args
)
3 (let ((command "plot2d ("))
4 (unless (and (listp expr
) (eq 'mequal
(caar expr
)))
5 (setq expr
`((mequal) ,expr
0)))
6 (setq command
($sconcat command expr
))
8 (dolist (arg optional-args
)
9 (setq command
($sconcat command
", " arg
))))
10 (setq command
($sconcat command
")"))
11 (mtell (intl:gettext
"implicit_plot is now obsolete. Using plot2d instead:~%"))
12 (mtell "~M~%" command
)
13 (apply #'$plot2d
(cons expr optional-args
))))
