From a2adda516bdf790651283201a666f253a8bfcc49 Mon Sep 17 00:00:00 2001
From: uruk
Date: Mon, 17 Jun 2013 10:38:38 +0200
Subject: AVALANCHE: Initial PtoC output.

---
 engines/avalanche/plottest.cpp | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 engines/avalanche/plottest.cpp

(limited to 'engines/avalanche/plottest.cpp')

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;
+}
-- 
cgit v1.2.3