require 'dislin'


ivec  = [0, 1111, 1311, 1421, 1531, 1701, 1911,
          3111, 3311, 3421, 3531, 3703, 4221, 4302,
          4413, 4522, 4701, 5312, 5502, 5703]

ctit = "Vectors"

Dislin.metafl('cons')
Dislin.disini()
Dislin.pagera()
Dislin.complx()

Dislin.height(60)
nl = Dislin.nlmess(ctit)
Dislin.messag(ctit, (2970 - nl)/2, 200)

Dislin.height(50)
nx = 300
ny = 400

for i in 0..19
  if i == 10
    nx = nx + 2970 / 2
    ny = 400
  end

  nl = Dislin.nlnumb(ivec[i], -1)
  Dislin.number(ivec[i], -1, nx - nl, ny - 25)

  Dislin.vector(nx + 100, ny, nx + 1000, ny, ivec[i])
  ny = ny + 160
end

Dislin.disfin()
