Neo6502: sample refactor

tebe6502 · Apr 9, 2024 · 03443db · 03443db
1 parent e58caa2
commit 03443db
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/samples/neo6502/bubbleuniverse/bubbleuniverse.pas b/samples/neo6502/bubbleuniverse/bubbleuniverse.pas
@@ -1,8 +1,8 @@
-program bubbleuniverse;
+program universe;
 
 //----------------------------------------------------------
 
-uses crt, neo6502;
+uses crt, neo6502; // neo6502math;
 
 //----------------------------------------------------------
 
@@ -40,7 +40,7 @@
     // prepare palette
     for i := 0 to n do
         for j := 0 to n do begin
-            c:=((i div 14) shl 4) or (j div 14);
+            c := ((i div 14) shl 4) or (j div 14);
             NeoSetPalette(c, i, j, 99);
             col[i,j] := c;
         end;
@@ -60,11 +60,10 @@
             a := u * s;
             b := v * s;
             NeoWritePixel(Trunc(a) + 160, Trunc(b) + 120 , col[i,j]);
-            //NeoWritePixel(Round(a) + 160, Round(b) + 120 , col[i,j]);
         end;
     time2 := NeoGetTimer;
 
     NeoSetTextColor(16, 15);
     GotoXY(1,1); write((time2 - time1) / 100);
     repeat until false;
-end.
+end.