Implement SPxx OUT function

2017-07-03 20:32:44 +09:00
parent ed2f22412c
commit 11f27a035d
3 changed files with 60 additions and 0 deletions
--- a/SMILEBASIC/petitcomputer.d
+++ b/SMILEBASIC/petitcomputer.d
@@ -250,6 +250,11 @@ class PetitComputer
        //ARGB -> ABGR
        return (color & 0xFF00FF00) | (color >> 16 & 0xFF) | ((color & 0xFF) << 16);
    }
+    uint fromGLColor(uint color)
+    {
+        //ARGB <- ABGR
+        return (color & 0xFF00FF00) | (color >> 16 & 0xFF) | ((color & 0xFF) << 16);
+    }
    struct ConsoleCharacter
    {
        wchar character;