Agon Mode 1 plots working

Author: SlithyMatt

agon/AgonPalette.png

@@ -0,0 +1,29 @@
+10 T = TIME
+20 MODE 1: CLS
+30 FOR I% = 0 TO 15
+40   G% = (I% AND 12) / 4
+50   G% = G% * 85
+60   B% = I% AND 3
+70   B% = B% * 85
+80   COLOUR I%,0,G%,B%
+100  VDU 23,27,0,I%
+110  VDU 23,27,1,1;1;0,G%,B%,255
+120 NEXT I%
+130  FOR PY%=0 TO 383
+140    YZ = PY%*2.625/384-1.3125
+150    FOR PX%=0 TO 511
+160      XZ = PX%*3.5/512-2.5
+170      X = 0: Y = 0
+180      FOR I%=0 TO 15
+190        IF X*X+Y*Y > 4 THEN GOTO 240
+200       XT=X*X-Y*Y+XZ
+210       Y=2*X*Y+YZ
+220       X=XT
+230     NEXT I%
+240     VDU 23,27,0,I%
+250     VDU 23,27,3,PX%;PY%;
+260   NEXT PX%
+270 NEXT PY%
+280 COLOUR 15,255,255,255
+300 COLOUR 15
+310 PRINT ((TIME-T)/100); " SECONDS"

agon/M1BITMAP.BAS

@@ -0,0 +1,28 @@
+10 T = TIME
+20 MODE 1: CLS
+25 VDU 23,0,192,0
+30 FOR I% = 0 TO 15
+40   G% = (I% AND 12) / 4
+50   G% = G% * 85
+60   B% = I% AND 3
+70   B% = B% * 85
+80   COLOUR I%,0,G%,B%
+120 NEXT I%
+130  FOR PY%=0 TO 383
+140    YZ = PY%*2.625/384-1.3125
+150    FOR PX%=0 TO 511
+160      XZ = PX%*3.5/512-2.5
+170      X = 0: Y = 0
+180      FOR I%=0 TO 15
+190        IF X*X+Y*Y > 4 THEN GOTO 240
+200       XT=X*X-Y*Y+XZ
+210       Y=2*X*Y+YZ
+220       X=XT
+230     NEXT I%
+240     GCOL 0,I%
+250     PLOT 65,PX%,PY%
+260   NEXT PX%
+270 NEXT PY%
+280 COLOUR 15,255,255,255
+300 COLOUR 15
+310 PRINT ((TIME-T)/100); " SECONDS"

agon/M1PLOT.BAS

@@ -0,0 +1,19 @@
+10  MODE 1: CLS
+20  VDU 23,255,255,255,255,255,255,255,255,255
+30  FOR PY%=0 TO 47
+40    YZ = PY%*2/48-1
+50    FOR PX%=0 TO 63
+60      XZ = PX%*3.5/64-2.5
+70      X = 0: Y = 0
+80      FOR I%=0 TO 15
+90        IF X*X+Y*Y > 4 THEN GOTO 140
+100       XT=X*X-Y*Y+XZ
+110       Y=2*X*Y+YZ
+120       X=XT
+130     NEXT I%
+140     COLOUR I%
+160     PRINT CHR$(255);
+170   NEXT PX%
+190 NEXT PY%
+200 T$=GET$
+210 COLOUR 15

agon/M1PRINT.BAS

@@ -0,0 +1,30 @@
+10 T = TIME
+20 MODE 2: CLS
+25 VDU 23,0,192,0
+30 FOR I% = 0 TO 47
+40   R% = I% / 16
+50   R% = R% * 85
+60   G% = (I% AND 15) / 4
+70   G% = G% * 85
+80   B% = I% AND 3
+90   B% = B% * 85
+80   COLOUR I%,R%,G%,B%
+120 NEXT I%
+130  FOR PY%=0 TO 199
+140    YZ = PY%*2.625/200-1.3125
+150    FOR PX%=0 TO 319
+160      XZ = PX%*3.5/320-2.5
+170      X = 0: Y = 0
+180      FOR I%=0 TO 47
+190        IF X*X+Y*Y > 4 THEN GOTO 240
+200       XT=X*X-Y*Y+XZ
+210       Y=2*X*Y+YZ
+220       X=XT
+230     NEXT I%
+240     GCOL 0,I%
+250     PLOT 65,PX%,PY%
+260   NEXT PX%
+270 NEXT PY%
+280 COLOUR 15,255,255,255
+300 COLOUR 15
+310 PRINT ((TIME-T)/100); " SECONDS"

agon/M2PLOT.BAS

@@ -0,0 +1,34 @@
+#include "fabgl.h"
+
+fabgl::VGAController dc;
+fabgl::Canvas        canvas(&displayController);
+fabgl::PS2Controller ps2c;
+
+class PlotScene : public Scene {
+  PlotScene() : Scene(0,20,dc.getViewPortWidth(),dc.getViewPortHeight()) {    
+  }
+
+  if (ps2controller.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,33 @@
+10 T = TI
+20 SCREEN 3
+22 COLOR 1,0
+24 CLS
+30 POKE $9F2D,$07
+40 POKE $9F2F,$20
+50 POKE $9F29,$31
+100 FOR PY=0 TO 199
+110 YZ = PY*2.625/200-1.3125
+120 FOR PX=0 TO 319
+130 XZ = PX*3.5/320-2.5
+140 X = 0
+150 Y = 0
+160 FOR I=0 TO 47
+170 IF X*X+Y*Y > 4 THEN GOTO 215
+180 XT = X*X - Y*Y + XZ
+190 Y = 2*X*Y + YZ
+200 X = XT
+210 NEXT I
+215 I = I+80
+216 IF I=128 THEN I=0
+217 B = 0
+218 OS = $4000
+219 Y = PY
+220 IF Y < 153 THEN GOTO 230
+221 IF Y = 153 AND PX < 192 THEN GOTO 230
+222 B = 1
+223 OS = -192
+224 Y = PY-153
+230 VPOKE B,OS+Y*320+PX,I
+240 NEXT PX
+260 NEXT PY
+270 PRINT ((TI-T)/100); " SECONDS"