PicoPicoGameEngine

Quick Links

ピコピココード

g=ppgraph
s=ppscreen
rand=math.random
w=s:size().width
h=s:size().height
sz=64
r={}
for i=1,400 do
  local t=pprect()
  t.dy=rand(10,40)/40
  t:pos(rand(-sz*t.dy,w),
        rand(-sz*t.dy,h))
  t:size(sz*t.dy,sz*t.dy)
  t.col={
    r=rand(0,255),
    g=rand(0,255),
    b=rand(0,255),
    a=rand(0,255),
  }
  t.dy=t.dy*t.dy
  t.a=rand(0,255)
  t.da=rand(1,4)
  t.idle=function(s)
    s:move(0,s.dy*4)
    s.col.a=s.a
    s.a=s.a+s.da
    if s.a<0 then
      s.da=-s.da
      s.a=0
    end
    if s.a>=255 then
      s.da=-s.da
      s.a=255
    end
    if s.y>h then
      s.y=-sz
    end
  end
  table.insert(r,t)
end

function start()
  for i,v in ipairs(r) do
    v:idle()
    g:fill(v,v.col)
  end
end