gsl-shell.git - gsl-shell

diff --git a/module/draw.lua b/module/draw.lua
deleted file mode 100644
index 5ac83be0..00000000
--- a/module/draw.lua
+++ /dev/null

@@ -1,75 +0,0 @@

-

-require 'module/igsl'

-

-draw = {}

-

-function draw.ipath(f)

- local ln = gsl.path()

- ln:move_to(f())

- for x, y in f do

- ln:line_to(x, y)

- end

- return ln

-end

-

-function draw.ipathp(f)

- local ln = gsl.path()

- local success = false

- local x, y

- repeat

- local cont = success

- success, x, y = pcall(f)

- if success and x and y then

- if cont then

- ln:line_to(x, y)

- else

- ln:move_to(x, y)

- end

- end

- until success and (not x or not y)

- return ln

-end

-

-function draw.fxline(f, xi, xs, n)

- n = n and n or 512

- return draw.ipath(gsl.sample(f, xi, xs, n))

-end

-

-function draw.fxplot(f, xi, xs, color, n)

- n = n and n or 512

- color = color and color or 'red'

- local p = gsl.plot()

- p:add_line(draw.ipathp(gsl.sample(f, xi, xs, n)), color)

- p:show()

- return p

-end

-

-local function add_bar(p, lx, rx, y)

- p:move_to(lx, 0)

- p:line_to(rx, 0)

- p:line_to(rx, y)

- p:line_to(lx, y)

- p:close()

-end

-

-function draw.ibars(f)

- local b = gsl.path()

- local lx, ly = f()

- local first = true

- for rx, ry in f do

- local dx = (rx-lx)/2

- if first then add_bar(b, lx-dx, lx+dx, ly); first = false end

- add_bar(b, lx+dx, rx+dx, ry)

- lx, ly = rx, ry

- end

- return b

-end

-

-local bcolors = {'red', 'green', 'blue', 'cyan', 'magenta', 'yellow'}

-local mcolors = {'dark', '', 'light'}

-

-function draw.rainbow(n)

- local p = #bcolors

- local q = floor(n/p) % #mcolors

- return mcolors[q+1] .. bcolors[n % p + 1]

-end