TempleOSTS_130315.ISO

TempleOS/Adam/Gr/GrChar.CPP

@@ -0,0 +1,106 @@
+#help_index "Graphics/Char;Char/Graphics"
+public U0 PlotScreenStr(U8 *s,I64 attr,I64 x,I64 y)
+{
+  U8 ch;
+  attr<<=8;
+  while (ch=*s++) {
+    PlotScreenU8(ch+attr,x,y);
+    x++;
+  }
+}
+
+public U0 PlotWinStr(CTask *task,U8 *s,I64 attr,I64 x,I64 y)
+{
+  U8 ch;
+  attr<<=8;
+  while (ch=*s++) {
+    PlotWinU8(task,ch+attr,x,y);
+    x++;
+  }
+}
+
+public U0 PlotBorderStr(CTask *task,U8 *s,I64 attr,I64 x,I64 y)
+{
+  U8 ch;
+  attr<<=8;
+  while (ch=*s++) {
+    PlotBorderU8(task,ch+attr,x,y);
+    x++;
+  }
+}
+
+public U0 DrawBorder(CTask *task,Bool solid,I64 l,I64 r,I64 t,I64 b,I64 attr,Bool clip_to_win)
+{
+  I64 i;
+  attr<<=8;
+  if (clip_to_win) {
+    if (solid) {
+      PlotWinU8(task,'É'+attr,l-1,t-1);
+      PlotWinU8(task,'»'+attr,r+1,t-1);
+      PlotWinU8(task,'È'+attr,l-1,b+1);
+      PlotWinU8(task,'¼'+attr,r+1,b+1);
+      for (i=l;i<=r;i++) {
+	PlotWinU8(task,'Í'+attr,i,t-1);
+	PlotWinU8(task,'Í'+attr,i,b+1);
+      }
+      for (i=t;i<=b;i++) {
+	PlotWinU8(task,'º'+attr,l-1,i);
+	PlotWinU8(task,'º'+attr,r+1,i);
+      }
+    } else {
+      PlotWinU8(task,'Ú'+attr,l-1,t-1);
+      PlotWinU8(task,'¿'+attr,r+1,t-1);
+      PlotWinU8(task,'À'+attr,l-1,b+1);
+      PlotWinU8(task,'Ù'+attr,r+1,b+1);
+      for (i=l;i<=r;i++) {
+	PlotWinU8(task,'Ä'+attr,i,t-1);
+	PlotWinU8(task,'Ä'+attr,i,b+1);
+      }
+      for (i=t;i<=b;i++) {
+	PlotWinU8(task,'³'+attr,l-1,i);
+	PlotWinU8(task,'³'+attr,r+1,i);
+      }
+    }
+  } else {
+    if (solid) {
+      PlotScreenU8('É'+attr,l-1,t-1);
+      PlotScreenU8('»'+attr,r+1,t-1);
+      PlotScreenU8('È'+attr,l-1,b+1);
+      PlotScreenU8('¼'+attr,r+1,b+1);
+      for (i=l;i<=r;i++) {
+	PlotScreenU8('Í'+attr,i,t-1);
+	PlotScreenU8('Í'+attr,i,b+1);
+      }
+      for (i=t;i<=b;i++) {
+	PlotScreenU8('º'+attr,l-1,i);
+	PlotScreenU8('º'+attr,r+1,i);
+      }
+    } else {
+      PlotScreenU8('Ú'+attr,l-1,t-1);
+      PlotScreenU8('¿'+attr,r+1,t-1);
+      PlotScreenU8('À'+attr,l-1,b+1);
+      PlotScreenU8('Ù'+attr,r+1,b+1);
+      for (i=l;i<=r;i++) {
+	PlotScreenU8('Ä'+attr,i,t-1);
+	PlotScreenU8('Ä'+attr,i,b+1);
+      }
+      for (i=t;i<=b;i++) {
+	PlotScreenU8('³'+attr,l-1,i);
+	PlotScreenU8('³'+attr,r+1,i);
+      }
+    }
+  }
+}
+
+U0 DrawTaskBorder(CTask *task)
+{
+  PushFD;
+  Cli;
+  DrawBorder(task,task==sys_focus_task,
+    task->win_left,task->win_right,
+    task->win_top,task->win_bottom,
+    task->border_attr,FALSE);
+  PopFD;
+}
+
+#help_index "Graphics"