Browse Source

Bug: List of images for microbit is different from implementation

Wilfried Klaas 4 years ago
parent
commit
7e99af3959
4 changed files with 11 additions and 10 deletions
  1. 2 2
      SPS_EMU.000
  2. 1 1
      SPS_Emu.lpi
  3. BIN
      SPS_Emu.lsu
  4. 8 7
      umicrobit.pas

+ 2 - 2
SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
 [LSUInfo]
-CompileDate=09.05.2021
-CompileTime=14:46:27
+CompileDate=14.05.2021
+CompileTime=13:13:11
 Name=Wilfried Klaas
 Name=Wilfried Klaas
 LSUBinFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUBinFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUTextFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.
 LSUTextFile=C:\e-platte\daten\git-sourcen\SPS_Emulator\SPS_Emu.

+ 1 - 1
SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="86"/>
+      <BuildNr Value="87"/>
       <Language Value="0407"/>
       <Language Value="0407"/>
       <StringTable CompanyName="MCS" FileDescription="TPS/SPS Emulator" InternalName="SPS_EMU" LegalCopyright="MCS (C) Wilfried Klaas" OriginalFilename="SPS_EMU.exe" ProductName="TPS/SPS Emulator" ProductVersion="0.2"/>
       <StringTable CompanyName="MCS" FileDescription="TPS/SPS Emulator" InternalName="SPS_EMU" LegalCopyright="MCS (C) Wilfried Klaas" OriginalFilename="SPS_EMU.exe" ProductName="TPS/SPS Emulator" ProductVersion="0.2"/>
     </VersionInfo>
     </VersionInfo>

BIN
SPS_Emu.lsu


+ 8 - 7
umicrobit.pas

@@ -18,12 +18,6 @@ const
     (1, 1, 1, 1, 1),
     (1, 1, 1, 1, 1),
     (0, 1, 1, 1, 0),
     (0, 1, 1, 1, 0),
     (0, 0, 1, 0, 0)),
     (0, 0, 1, 0, 0)),
-    //IMAGE_HEART_SMALL: TMBImage =
-    ((0, 0, 0, 0, 0),
-    (0, 1, 0, 1, 0),
-    (0, 1, 1, 1, 0),
-    (0, 0, 1, 0, 0),
-    (0, 0, 0, 0, 0)),
     // smilies
     // smilies
     //IMAGE_HAPPY: TMBImage = (
     //IMAGE_HAPPY: TMBImage = (
     ((0, 0, 0, 0, 0),
     ((0, 0, 0, 0, 0),
@@ -397,7 +391,14 @@ const
     (1, 1, 0, 1, 1),
     (1, 1, 0, 1, 1),
     (0, 1, 0, 1, 0),
     (0, 1, 0, 1, 0),
     (0, 1, 1, 1, 0),
     (0, 1, 1, 1, 0),
-    (0, 0, 0, 0, 0)));
+    (0, 0, 0, 0, 0)),
+    //IMAGE_HEART_SMALL: TMBImage =
+    ((0, 0, 0, 0, 0),
+    (0, 1, 0, 1, 0),
+    (0, 1, 1, 1, 0),
+    (0, 0, 1, 0, 0),
+    (0, 0, 0, 0, 0))
+);
 
 
 implementation
 implementation