random leftovers

Author: SlithyMatt

.gitignore

@@ -51,6 +51,8 @@ Module.symvers
 Mkfile.old
 dkms.conf
 
+**/.finf/**
+
 *.PRG
 *.prg
 *.list

agon/AgonPalette.png

@@ -1,34 +1,28 @@
 #include "fabgl.h"
 
 fabgl::VGAController dc;
-fabgl::Canvas        canvas(&displayController);
+fabgl::Canvas        canvas(&dc);
 fabgl::PS2Controller ps2c;
+bool written = false;
 
-class PlotScene : public Scene {
-  PlotScene() : Scene(0,20,dc.getViewPortWidth(),dc.getViewPortHeight()) {    
-  }
 
-  if (ps2controller.keyboard()->isVKDown(fabgl::VK_RETURN)) {
+void setup() {
+  ps2c.begin(PS2Preset::KeyboardPort0_MousePort1, KbdMode::GenerateVirtualKeys);
+
+  dc.begin();
+  dc.setResolution(VGA_320x200_75Hz);
+  canvas.setBrushColor(0,0,2);
+  canvas.selectFont(&fabgl::FONT_8x8);
+  canvas.setPenColor(2,2,2);
+}
+
+void loop() {
+  if (ps2c.keyboard()->isVKDown(fabgl::VK_RETURN)) {
     canvas.clear();
     written = false;
   } else if (!written) {
-    canvas.setBrushColor(0,0,2);
     canvas.clear();
-    canvas.selectFont(&fabgl::FONT_8x8);
-    canvas.setPenColor(2,2,2);
     canvas.drawText(100,80,"Hit ENTER when ready...");
     written = true;
   }
 }
-
-void setup() {
-  ps2controller.begin(PS2Preset::KeyboardPort0_MousePort1, KbdMode::GenerateVirtualKeys);
-
-  displayController.begin();
-  displayController.setResolution(VGA_320x200_75Hz);
-}
-
-void loop() {
-   PlotScene scene;
-   scene.start();
-}

agon/mand320.data

@@ -0,0 +1 @@
+mand

fabgl/mandelbrot_320_200/mandelbrot_320_200.ino

@@ -0,0 +1,40 @@
+5 T=TI
+10 REM SETUP 6-BIT PALETTE
+20 DATA 0,0,5,0,$0A,0,$0F,0,$50,0,$55,0,$5A,0,$5F,0
+21 DATA $A0,0,$A5,0,$AA,0,$AF,0,$F0,0,$F5,0,$FA,0,$FF,0
+22 DATA 0,5,5,5,$0A,5,$0F,5,$50,5,$55,5,$5A,5,$5F,5
+23 DATA $A0,5,$A5,5,$AA,5,$AF,5,$F0,5,$F5,5,$FA,5,$FF,5
+24 DATA 0,$A,5,$A,$0A,$A,$0F,$A,$50,$A,$55,$A,$5A,$A,$5F,$A
+25 DATA $A0,$A,$A5,$A,$AA,$A,$AF,$A,$F0,$A,$F5,$A,$FA,$A,$FF,$A
+26 DATA 0,$F,5,$F,$0A,$F,$0F,$F,$50,$F,$55,$F,$5A,$F,$5F,$F
+27 DATA $A0,$F,$A5,$F,$AA,$F,$AF,$F,$F0,$F,$F5,$F,$FA,$F,$FF,$F
+30 SCREEN $80
+40 CLS
+100 FOR I=0 TO 127
+110 READ C
+120 VPOKE 1,$FA00+I,C
+130 NEXT I
+140 REM LOAD RGB BITMAP TO BANKED RAM
+150 BLOAD "MAND320.BIN",8,1,$A000
+160 FOR PX = 0 TO 63999
+170 CA = PX*3
+180 BK = INT(CA / $2000) + 1
+190 BA = $A000 + CA - (BK-1)*$2000
+200 POKE 0,BK
+210 R = PEEK(BA)
+220 BA = BA+1
+230 IF BA < $C000 THEN GOTO 270
+240 BA = $A000
+250 BK = BK+1
+260 POKE 0,BK
+270 G = PEEK(BA+1)
+280 BA = BA+1
+290 IF BA < $C000 THEN GOTO 330
+300 BA = $A000
+310 BK = BK+1
+320 POKE 0,BK
+330 B = PEEK(BA+2)
+340 C = (R AND $C0)/4 + (G AND $C0)/16 + (B AND $C0)/64
+350 VPOKE 0,PX,C
+360 NEXT PX
+370 PRINT (TI-T)/100; " SECONDS"