diff vg.h @ 0:e0bbaa717f41 draft default tip

lol J
author Jordi GutiƩrrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500 (2013-11-25)
parents
children
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/vg.h
@@ -0,0 +1,56 @@
+/* Copyright 1990-2011, Jsoftware Inc.  All rights reserved. */
+/* License in license.txt.                                   */
+/*                                                                         */
+/* Grades                                                                  */
+
+
+extern F1(jtgr1);
+extern F2(jtgr2);
+extern F1(jtgrd1sp);
+extern F2(jtgrd2sp);
+
+extern int  compa(J,I,I);
+extern int  compc(J,I,I);
+extern int  compd(J,I,I);
+extern int  compd1(J,I,I);
+extern int  compi(J,I,I);
+extern int  compi1(J,I,I);
+extern int  compp(J,I,I);
+extern int  compq(J,I,I);
+extern int  compr(J,I,I);
+extern int  compu(J,I,I);
+extern int  compx(J,I,I);
+
+extern int  compspdsB(J,I,I);
+extern int  compspdsD(J,I,I);
+extern int  compspdsI(J,I,I);
+extern int  compspdsZ(J,I,I);
+
+extern int  compspssB(J,I,I);
+extern int  compspssD(J,I,I);
+extern int  compspssI(J,I,I);
+extern int  compspssZ(J,I,I);
+
+extern void grcol(I,I,I*,I,I*,I*,const I,US*,int,int,int);
+
+extern void jtmsort(J,I,I*,I*);
+
+#define IND2(x)  \
+  switch(x){                \
+   case BS00: ii=0; break;  \
+   case BS01: ii=1; break;  \
+   case BS10: ii=2; break;  \
+   case BS11: ii=3;         \
+  }
+
+#define IND4(x)  \
+  switch(x){                                            \
+   case B0000: ii=0; break;  case B1000: ii= 8; break;  \
+   case B0001: ii=1; break;  case B1001: ii= 9; break;  \
+   case B0010: ii=2; break;  case B1010: ii=10; break;  \
+   case B0011: ii=3; break;  case B1011: ii=11; break;  \
+   case B0100: ii=4; break;  case B1100: ii=12; break;  \
+   case B0101: ii=5; break;  case B1101: ii=13; break;  \
+   case B0110: ii=6; break;  case B1110: ii=14; break;  \
+   case B0111: ii=7; break;  case B1111: ii=15;         \
+  }