SRL Archive - Research & Development Lounge

function calcu:boolean;
  var
   tpaz:tpointarray;
    x,k,m,a,h:integer;
begin
 SetarrayLength(tpaz,200)
  x:=createbitmap(20,10);
    for a:=0 to 9 do
      begin
        for m:=0 to 19 do
          begin
           tpaz[h].x:=m;
            tpaz[h].y:=k;
             inc(h)
              inc(r)
               drawtpabitmap(x,tpaz,claqua) ;
                DrawBitmapDebugImg(x)  ;
                 wait(200);
          end;
            if k<9 then
              begin
               inc(k)
                end;
                  end;
                    end;

begin
 calcu
end.

So basically it creates a 20X10 bitmap filled with the color claqua? What's the application of this?
What is the 'r' variable anyway?

Your standard is a bit out of the way too…

TPAFromBox

proof of concept

like a tpa index-filer/filter