anchor.diff:  integer :: i
   integer :: uout
   double precision :: lcheck,ccheck,hcheck
  +double precision :: hsv1,hsv2,hsv3
   
   ! Parse command line
   call gcmdln(option,hue1,hue2,light1,light2,chroma1,chroma2,ncolors,convert1,convert2,&
  
positive.code:         ! Interpolate location in CIE-LAB color space
          l = light1  + (light2  - light1 )*(i-1)/(ncolors-1)
          if (option.eq.'spiral') then
              c = chroma1 + (chroma2 - chroma1)*(i-1)/(ncolors-1)
              h = hue1    + (hue2    - hue1   )*(i-1)/(ncolors-1)
          elseif (option.eq.'linear') then
              call lch2lab(chroma1,hue1,a1,b1)
  
negative.code:     write(0,*) '    The max chroma will be limited by the program automatically to fit into RGB space'
      write(0,*)
  endif
  write(0,*) '-chroma:exp EXP           Change the chroma from linear to power law (default: 1)'
  write(0,*) '-n[colors] N              Number of colors (default: 10)'
  if (str.eq.'long') then
      write(0,*)
  