Dim red%, green%, blue%
for red%=0 to 255 step 50
 for green%=0 to 255 step 50
  for blue%=0 to 255 step 50
  set hrule = new rtHRule(ONE_CM)
  hrule.RuleWidth =ONE_CM
  set hrule.Color = New rtColor(0)
  hrule.Color.setRGB red%, green%, blue%
  ctxDump.add hrule
  Next blue
 Next green
Next red
|