tests/bugs/vis/bug31454

   1 puts "============"
   2 puts "0031454: Visualization - perceptually uniform color scale"
   3 puts "============"
   4 puts ""
   5
   6 vclear
   7 vinit View1 -width 600
   8 #vsetcolorbg 1 1 1
   9 vaxo
  10
  11 set nbcolors 10
  12
  13 # create default color scale with 20 steps
  14 vcolorscale hsl -range 0 1 $nbcolors -xy 0 0 -title HSL
  15
  16 # create color scales with uniform lightness
  17 vcolorscale lch30 -range 0 1 $nbcolors -xy 100 0 -uniform 30 300 40 -title L=30
  18 vcolorscale lch40 -range 0 1 $nbcolors -xy 200 0 -uniform 40 300 40 -title L=40
  19 vcolorscale lch50 -range 0 1 $nbcolors -xy 300 0 -uniform 50 300 40 -title L=50
  20 vcolorscale lch60 -range 0 1 $nbcolors -xy 400 0 -uniform 60 300 40 -title L=60
  21 vcolorscale lch70 -range 0 1 $nbcolors -xy 500 0 -uniform 70 300 40 -title L=70
  22
  23 vdump ${imagedir}/${casename}.png