
Lib_grad2f 1.0 2Fake

======================================================================================
   / .
======================================================================================

hgradient(c1, c2, x, y, w, h: integer); -  
c1  c2	-  
  y	-  
w  h	-   

vgradient(c1, c2, x, y, w, h: integer); -  
()

cl(r, g, b: integer): integer; -  

 :
======================================================================================
program GradientTest;
uses grad2f;
begin
 vgradient(cl(40,160,40),cl(255,255,255),0,0,getwidth, getheight);
 hgradient(cl(255,140,140),cl(140,0,0),0,0,getwidth, 20);
 drawText('!', 2, 2);
 repaint;
 repeat until false;
end.
======================================================================================
