programs/gui_patterns.inc

   1 macro DrawBar  x, y, width, height, color \r
   2 {\r
   3         mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color\r
   4 }\r
   5 \r
   6 macro DrawRectangle  x, y, w, h, color \r
   7 {\r
   8         DrawBar x,y,w,1,color\r
   9         DrawBar x,y+h,w,1\r
  10         DrawBar x,y,1,h\r
  11         DrawBar x+w,y,1,h+1\r
  12 }\r
  13 \r
  14 macro DrawRectangle3D  x, y, w, h, color1, color2\r
  15 {\r
  16         DrawBar x,y,w,1,color1\r
  17         DrawBar x,y,1,h\r
  18         DrawBar x,y+h,w,1,color2\r
  19         DrawBar x+w,y,1,h+1\r
  20 }\r
  21 \r
  22 macro DrawWideRectangle  x, y, w, h, boder, color\r
  23 {\r
  24         DrawBar x, y, w, boder, color\r
  25         DrawBar x, y+h-boder, w, boder\r
  26         DrawBar x, y+boder, boder, h-boder-boder\r
  27         DrawBar x+w-boder, y+boder, boder, h-boder-boder\r
  28 }\r
  29 \r
  30 \r