Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. macro DrawBar  x, y, width, height, color
  2. {
  3.         mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
  4. }
  5.  
  6. macro DrawRectangle  x, y, w, h, color
  7. {
  8.         DrawBar x,y,w,1,color
  9.         DrawBar x,y+h,w,1
  10.         DrawBar x,y,1,h
  11.         DrawBar x+w,y,1,h+1
  12. }
  13.  
  14. macro DrawRectangle3D  x, y, w, h, color1, color2
  15. {
  16.         DrawBar x,y,w,1,color1
  17.         DrawBar x,y,1,h
  18.         DrawBar x,y+h,w,1,color2
  19.         DrawBar x+w,y,1,h+1
  20. }