| author | Francesco Abbate <francesco.bbt@gmail.com> | 2012年06月08日 15:36:59 +0200 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2012年06月08日 15:36:59 +0200 |
| commit | d19b35f2417edb4936b642b1c5530a6dbd9b491c (patch) | |
| tree | 8e96889cda21cb1ff1e7fa340a993815f76405de /contour.lua | |
| parent | 2d17ffeb35f0cf8fdc38ca8f548983132d64cc0f (diff) | |
| parent | c11ef40405dc2f2b9368b3016f482b0a3c567a5f (diff) | |
| download | gsl-shell-d19b35f2417edb4936b642b1c5530a6dbd9b491c.tar.gz | |
| -rw-r--r-- | contour.lua | 6 |
diff --git a/contour.lua b/contour.lua index 171a4f8c..1c3fc379 100644 --- a/contour.lua +++ b/contour.lua @@ -23,7 +23,7 @@ use 'math' local insert = table.insert -local default_color_map = graph.color_function('redyellow', 0.9) +local default_color_map = graph.color_function('redyellow', 1) local function reverse(ls) local k, n = 1, #ls @@ -819,6 +819,8 @@ function contour.plot(f, x1, y1, x2, y2, options) g.find_curves() local p = graph.plot() + p:add(graph.rect(x1, y1, x2, y2), 'black') + g.draw_regions(p) if opt 'lines' then g.draw_lines(p, 'black') end @@ -841,6 +843,8 @@ function contour.polar_plot(f, R, options) g.find_curves() local p = graph.plot() + p:add(graph.ellipse(0, 0, R, R), 'black') + g.draw_regions(p) if opt 'legend' then |