図形描画(カラーパターン)

カラーパターン

--カラーパターン
require('color')
gra = f_Graphics()
--ClearFusen()
dx = f_GetClientWidth() / 25
dy = f_GetClientHeight() / 5
base = {255, 192, 128, 64, 0}
x1, y1 = 0, 0
for r =  1,5 do
  for g = 1,5 do
   for b = 1,5 do
     c = gdi:Color(base[r],base[g],base[b])
     br = gdi:Brush(c)
     x1 = (r-1) * dx * 5 + (g-1) * dx
     y1 = (b-1) * dy
     gra:FillRectangle(br, x1, y1, x1+dx, y1+dy)
   end
 end
end
x = ""