RECT_P but without filling

[eried]

Both functions take almost the same time :O

Code:

RECT_P_NOFILL(x,y,x2,y2,col)
begin
 LINE_P(x,y,x2,y,col); //top
 LINE_P(x,y2,x2,y2,col); // bottom
 LINE_P(x,y,x,y2,col); //left
 LINE_P(x2,y,x2,y2,col); // right
end;

RECT_P_NO2FILL(x,y,x2,y2,col)
begin
 RECT_P(x,y,x+x2,y+y2,col,RGB(0,0,0,255));
end;

EXPORT test()
BEGIN
print();
local r,g,b,x,time1:=ticks;
FOR r FROM 1 TO 100 DO
FOR g FROM 1 TO 100 DO
FOR b FROM 1 TO 100 DO
FOR x FROM 1 TO 10 DO
RECT_P_NOFILL(x,x,10,50,RGB(r,g,b));
END;END;END;END;

print(ticks-time1);
time1:=ticks;
FOR r FROM 1 TO 100 DO
FOR g FROM 1 TO 100 DO
FOR b FROM 1 TO 100 DO
FOR x FROM 1 TO 10 DO
RECT_P_NO2FILL(x,x,10,50,RGB(r,g,b));
END;END;END;END;
print(ticks-time1);

END;