AVALANCHE: Initial PtoC output.

1 files changed, 42 insertions, 0 deletions

diff --git a/engines/avalanche/plottest.cpp b/engines/avalanche/plottest.cpp
new file mode 100644
index 0000000000..80f7937ca5
--- /dev/null
+++ b/engines/avalanche/plottest.cpp
@@ -0,0 +1,42 @@
+#include "ptoc.h"
+
+
+#include "graph.h"
+
+integer gd,gm; byte fv;
+matrix<1,35,0,39,byte> a;
+array<0,3,0,4,1,35,byte> b;
+int main(int argc, const char* argv[])
+{pio_initialize(argc, argv);
+;
+ gd=3; gm=0; initgraph(gd,gm,"");
+ for( gd=0; gd <= 39; gd ++)
+  for( gm=1; gm <= 35; gm ++)
+   a[gm][gd]=(gd+gm) % 16;
+ for( gd=0; gd <= 39; gd ++)
+  for( gm=1; gm <= 35; gm ++)
+   putpixel(gd+100,gm+100,a[gm][gd]);
+
+ fillchar(b,sizeof(b),'\0');
+ for( gm=1; gm <= 35; gm ++)
+  for( gd=0; gd <= 39; gd ++)
+  {;
+   for( fv=0; fv <= 3; fv ++)
+   {;
+    b[fv][gd / 8][gm]=(b[fv][gd / 8][gm] << 1);
+    b[fv][gd / 8][gm] += ((cardinal)(a[gm][gd] & (1 << fv)) >> fv);
+   }
+  }
+
+ for( gd=1; gd <= 35; gd ++)
+  for( gm=0; gm <= 4; gm ++)
+  {;
+   for( fv=0; fv <= 3; fv ++)
+   {;
+    port[0x3c4]=2; port[0x3ce]=4;
+    port[0x3c5]=1 << fv; port[0x3cf]=fv;
+    mem[0xa000*gd*80+gm]=b[fv][gm][gd];
+   }
+  }
+return EXIT_SUCCESS;
+}