require "numru/dcl"
require "colorbar.rb"

include NumRu


DCL::gropn(1)


x = NArray.int(11).indgen(-5)

ipat = NArray.int(10).indgen(9999,10000)

#x[-1]=DCL::glrget("rmiss")

DCL::uestln(x,ipat)

DCL::Util::color_bar_options

DCL::Util::color_bar

DCL::Util::color_bar("levels"=>x,"colors"=>ipat,"vx0"=>0.3,"vxlength"=>0.5,"vy0"=>0.3,"label_size"=>0.02)

DCL::Util::color_bar("vx0"=>0.5,"vy0"=>0.5,"tick1"=>1,"tick2"=>5)



x = NArray.float(10)

for i in 0..x.length-1
  x[i]=10**i
end

ipat = NArray.int(9).indgen(9999,10000)

DCL::ueitlv
DCL::uestln(x,ipat)

DCL::Util::color_bar("portrait"=>true,"vx0"=>0.5,"vxlength"=>0.02,"vylength"=>0.18,"log"=>true)




DCL::grcls