SRL Archive - OSR Help

program new;
  var
    buf,bmp:integer;
     h,h1:variant;
procedure resizebmp;
  begin
    h:=((h-0.5));
     h1:=((h1+1));
      (StretchBitmapResize(bmp,h1,h1));
       (drawbitmapdebugimg(buf));
        (FastDrawTransparent(h,h,bmp,buf));
         (drawbitmapdebugimg(buf));
           end;

begin
  h:=((100/2)-(10/2));
   h1:=(10);
    (writeln(h));
     (cleardebugimg);
      (displaydebugimgwindow(100,100));
       buf:=(createbitmap(100,100));
        bmp:=(createbitmap(10,10));
         (FastDrawClear(bmp,16777215));
          (FastDrawTransparent(h,h,bmp,buf));
           (DrawBitmapDebugImg(buf));
             repeat
               if(iskeydown(38))then
                 begin
                   (sleep(100));
                    (resizebmp);
                      end;
                        (sleep(10));
                          until((h=0));
                            end.

hey'o uh it looks like i am walking to the end of the tunnel, though it looks cool why is it being drawn like that and are there ways to make it more smooth???
(i was going 2 make a tutorial on drawing and give a few examples… guess ima hold off on that one for a bit…)

I am garbage with graphics and bit maps, but what's up with your standards?

lawl iono was just trying to follow srl's public standards… lawl

http://villavu.com/forum/showthread.php?t=60288
That's official standards, although your standards look pretty neat, :D

Proper standards:

program new;
var
  buf, bmp: integer;
  h, h1: variant;

procedure resizebmp;
begin
  h := (h-0.5);
  h1:=(h1+1);
  StretchBitmapResize(bmp, h1, h1);
  drawbitmapdebugimg(buf);
  FastDrawTransparent(h, h, bmp, buf);
  drawbitmapdebugimg(buf);
end;

begin
  h := 45;
  h1:= 10;
  writeln(h);
  cleardebugimg;
  displaydebugimgwindow(100, 100);
  buf := createbitmap(100, 100);
  bmp := createbitmap(10, 10);
  FastDrawClear(bmp, 16777215);
  FastDrawTransparent(h, h, bmp, buf);
  DrawBitmapDebugImg(buf);
  repeat
    if iskeydown(38)then
    begin
      sleep(100);
      resizebmp;
    end;
    sleep(10);
  until(h = 0);
end.

What exactly are you trying to do?

Why are you resizing the bitmap? And have you converted it into a string?