210 |
"title \"" (symbol-name (nth 1 ydata)) "\" " |
"title \"" (symbol-name (nth 1 ydata)) "\" " |
211 |
"with dots") |
"with dots") |
212 |
(setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle))) |
(setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle))) |
213 |
(setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle))) |
(setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle)))) |
214 |
(calc-graph-set-styles |
(calc-graph-set-styles |
215 |
(or (and (Math-num-integerp lstyle) (math-trunc lstyle)) |
(or (and (Math-num-integerp lstyle) (math-trunc lstyle)) |
216 |
0) |
0) |
217 |
(or (and (Math-num-integerp pstyle) (math-trunc pstyle)) |
(or (and (Math-num-integerp pstyle) (math-trunc pstyle)) |
218 |
(if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec) |
(if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec) |
219 |
0 -1)))))) |
0 -1))))) |
220 |
|
|
221 |
(defun calc-graph-lookup (thing) |
(defun calc-graph-lookup (thing) |
222 |
(if (and (eq (car-safe thing) 'var) |
(if (and (eq (car-safe thing) 'var) |