/* drawhsv.aml
/*    macro to draw hsv color chart
/*    Ralph Haugerud, U.S. Geological Survey
/*    April 1998
/*        rhaugerud@usgs.gov
/* to be run from arcplot
/*

clear
pagesize 30 12 
mapunits inches
mapscale 15 
mapextent hgrid
mapposition ll 0.5 0.5

gridc hsv hgrid sgrid vgrid

lineset plotter.lin
linesymbol 1
linecolor black
linesize 0.01
arcs hscov

textset font.txt
textfont Times
textsize 14 pt
textquality kern

textjustification UC
&do n = 0 &to 18
  &set hue = [calc %n% * 20]
  &set x = [calc 1.75 + %hue% / 15]
  move %x%, 1.6
  text [quote %hue%]
  &end
  
textjustification CR
&do n = 0 &to 10
  &set val = [calc %n% * 10]
  &set y = [calc 1.75 + %val% / 15] 
  move 1.6, %y%
  text [quote %val%]
  &end
  
textjustification CC  
textsize 20 pt
move 13.8, 1.0
text 'HUE'

textangle 90
move 0.8, 5.0
text 'SATURATION'
textangle 0


linecolor white
box 0.3 0.3 26 9
/* or rasterizer/plotter may trim some of lettering!

&return