calc: a bit more flexible GUI

git-svn-id: svn://kolibrios.org@6215 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-02-13 15:26:28 +00:00
parent c5cc4baf24
commit ceaabc7ffa
3 changed files with 35 additions and 34 deletions
--- a/programs/gui_patterns.inc
+++ b/programs/gui_patterns.inc
@@ -0,0 +1,20 @@
+macro DrawBar  x, y, width, height, color 
+{
+	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
+}
+
+macro DrawRectangle  x, y, w, h, color 
+{
+	DrawBar x,y,w,1,color
+	DrawBar x,y+h,w,1
+	DrawBar x,y,1,h
+	DrawBar x+w,y,1,h+1
+}
+
+macro DrawRectangle3D  x, y, w, h, color1, color2
+{
+	DrawBar x,y,w,1,color1
+	DrawBar x,y,1,h
+	DrawBar x,y+h,w,1,color2
+	DrawBar x+w,y,1,h+1
+}