In an attempt to obtain a smooth color generation, I am presently with this code:

lcHtml=lcHtml+'<TABLE CELLSPACING=0 CELLPADDING=0 ID=FournierTransformationList><TR>'
lnPerRow = 32
Store 255/15 to lnRedInc, lnGreenInc
lnBlueInc = 255/15
lnShp=0
For Blue = 0 to 31
For green = 0 to 31
   For red = 0 to 0
      lnShp  = lnShp+1
      lnRed = round(red * lnRedInc,0)
      lnGreen = round(green * lnGreenInc,0)
      lnBlue = round(blue * lnBlueInc,0)
      lcWebColor = right(trans(rgb(lnBlue,lnGreen,lnRed),'@0'),6)  
      lcHtml=lcHtml+iif((lnShp-1)%lnPerRow=0,'<TR>','')+;
       '<TD bgcolor=#'+lcWebColor+[><A HREF="javascript:Assignation(']+;
       lcWebColor+[')" Class=List TITLE="#]+lcWebColor+;
       '"><IMG SRC=/Point.gif WIDTH=15 HEIGHT=15 BORDER=0></A>'
   Endfor
Endfor
Next
lcHtml=lcHtml+'</TABLE>'

That generates a smooth color picker but that only includes blue to green. How would I go about this to obtain a smooth color picker to also include the red palette?

I need to have 32 items per row and I would like to obtain approx. 32 items vertically.