Implementado um aforma unificada de converter um caractere de fonte. [Preciso fazer um buffer para placa de Video, pois o acesso direto a memoria de video eh muito lento, para isso vou amadurecer a System.Memory do projeto HUSIX, e migrar pra este projeto]

Author: humbertotecnologia

Distro/Linux64/Plataformas/8086/Font.hfn

@@ -280,8 +280,35 @@ Module GenericVideo
         End
     End
 
-    Sub DrawEllipse(mode as VideoMode, x1 as UInt16, y1 as UInt16, x2 as UInt16, y2 as UInt16, borderColor as UInt16, backgroundColor as UInt16)
-        Throw NotImplementedError
+    Sub DrawCircle(mode as VideoMode, xm as UInt16, ym as UInt16, r as UInt16, borderColor as UInt16, backgroundColor as UInt16)
+        Dim x as UInt16
+        Dim y as UInt16
+        Dim err as UInt16
+        x = -r
+        y = 0
+        err = 2-(r shl 1)
+        Goto drawCircleStart
+        While (x < 0)
+            drawCircleStart:
+            If backgroundColor <> 0xffff Then
+                DrawLine xm-x, xm+y, xm+x, xm+y, backgroundColor
+                DrawLine xm-x, xm-y, xm+x, xm-y, backgroundColor
+            End
+            DrawPixel xm-x, ym+y, borderColor
+            DrawPixel xm-x, ym-y, borderColor
+            DrawPixel xm+x, ym+y, borderColor
+            DrawPixel xm+x, ym-y, borderColor
+            r = err
+            If r <= y Then 
+                y++
+                err = err + (y shl 1) + 1
+            End
+            If (r > x) OrElse (err > y) Then
+                x++
+                err = err + (x shl 1) + 1
+            End
+        End
+
     End
 End
 

Distro/Linux64/Plataformas/8086/System.Drawing.hcb

@@ -8,66 +8,66 @@ dw autor
 dw desconhecido
 dw espaco
 dw n0 ' 2
-dw n1
-dw n2
-dw n3
-dw n4
-dw n5
-dw n6
-dw n7
-dw n8
-dw n9
+dw n1 ' 3
+dw n2 ' 4
+dw n3 ' 5
+dw n4 ' 6
+dw n5 ' 7
+dw n6 ' 8
+dw n7 ' 9
+dw n8 ' 10
+dw n9 ' 11
 dw amai ' 12
-dw bmai
-dw cmai
-dw dmai
-dw emai
-dw fmai
-dw gmai
-dw hmai
-dw imai
-dw jmai
-dw kmai
-dw lmai
-dw mmai
-dw nmai
-dw omai
-dw pmai
-dw qmai
-dw rmai
-dw smai
-dw tmai
-dw umai
-dw vmai
-dw wmai
-dw xmai
-dw ymai
+dw bmai ' 13
+dw cmai ' 14
+dw dmai ' 15
+dw emai ' 16
+dw fmai ' 17
+dw gmai ' 18
+dw hmai ' 19
+dw imai ' 20
+dw jmai ' 21
+dw kmai ' 22
+dw lmai ' 23
+dw mmai ' 24
+dw nmai ' 25
+dw omai ' 26
+dw pmai ' 27
+dw qmai ' 28
+dw rmai ' 29
+dw smai ' 30
+dw tmai ' 31
+dw umai ' 32
+dw vmai ' 33
+dw wmai ' 34
+dw xmai ' 35
+dw ymai ' 36
 dw zmai ' 37
 dw amai ' 38
-dw bmai
-dw cmai
-dw dmai
-dw emai
-dw fmai
-dw gmai
-dw hmai
-dw imai
-dw jmai
-dw kmai
-dw lmai
-dw mmai
-dw nmai
-dw omai
-dw pmai
-dw qmai
-dw rmai
-dw smai
-dw tmai
-dw umai
-dw vmai
-dw wmai
-dw xmai
-dw ymai
+dw bmai ' 39
+dw cmai ' 40
+dw dmai ' 41
+dw emai ' 42
+dw fmai ' 43
+dw gmai ' 44
+dw hmai ' 45
+dw imai ' 46
+dw jmai ' 47
+dw kmai ' 48
+dw lmai ' 49
+dw mmai ' 50
+dw nmai ' 51
+dw omai ' 52
+dw pmai ' 53
+dw qmai ' 54
+dw rmai ' 55
+dw smai ' 56
+dw tmai ' 57
+dw umai ' 58
+dw vmai ' 59
+dw wmai ' 60
+dw xmai ' 61
+dw ymai ' 62
 dw zmai ' 63
 dw agudo ' 64
 dw grave ' 65
@@ -79,9 +79,10 @@ dw macron ' 70
 dw braquia ' 71
 dw braquia_invertida ' 72
 dw caron ' 73
-dw anel ' 74
-dw cedilha ' 75
-dw gancho_polaco ' 76
+dw trema ' 74
+dw anel ' 75
+dw cedilha ' 76
+dw gancho_polaco ' 77
 
 nome:
     db .fim - $ 

Distro/Linux64/Plataformas/Font.asm

@@ -280,8 +280,35 @@ Module GenericVideo
         End
     End
 
-    Sub DrawEllipse(mode as VideoMode, x1 as UInt16, y1 as UInt16, x2 as UInt16, y2 as UInt16, borderColor as UInt16, backgroundColor as UInt16)
-        Throw NotImplementedError
+    Sub DrawCircle(mode as VideoMode, xm as UInt16, ym as UInt16, r as UInt16, borderColor as UInt16, backgroundColor as UInt16)
+        Dim x as UInt16
+        Dim y as UInt16
+        Dim err as UInt16
+        x = -r
+        y = 0
+        err = 2-(r shl 1)
+        Goto drawCircleStart
+        While (x < 0)
+            drawCircleStart:
+            If backgroundColor <> 0xffff Then
+                DrawLine xm-x, xm+y, xm+x, xm+y, backgroundColor
+                DrawLine xm-x, xm-y, xm+x, xm-y, backgroundColor
+            End
+            DrawPixel xm-x, ym+y, borderColor
+            DrawPixel xm-x, ym-y, borderColor
+            DrawPixel xm+x, ym+y, borderColor
+            DrawPixel xm+x, ym-y, borderColor
+            r = err
+            If r <= y Then 
+                y++
+                err = err + (y shl 1) + 1
+            End
+            If (r > x) OrElse (err > y) Then
+                x++
+                err = err + (x shl 1) + 1
+            End
+        End
+
     End
 End
 

Distro/LinuxARM32/Plataformas/8086/Font.hfn

@@ -7,81 +7,82 @@ dw autor
 ; Dados
 dw desconhecido
 dw espaco
-dw n0 ' 2
-dw n1
-dw n2
-dw n3
-dw n4
-dw n5
-dw n6
-dw n7
-dw n8
-dw n9
-dw amai ' 12
-dw bmai
-dw cmai
-dw dmai
-dw emai
-dw fmai
-dw gmai
-dw hmai
-dw imai
-dw jmai
-dw kmai
-dw lmai
-dw mmai
-dw nmai
-dw omai
-dw pmai
-dw qmai
-dw rmai
-dw smai
-dw tmai
-dw umai
-dw vmai
-dw wmai
-dw xmai
-dw ymai
-dw zmai ' 37
-dw amai ' 38
-dw bmai
-dw cmai
-dw dmai
-dw emai
-dw fmai
-dw gmai
-dw hmai
-dw imai
-dw jmai
-dw kmai
-dw lmai
-dw mmai
-dw nmai
-dw omai
-dw pmai
-dw qmai
-dw rmai
-dw smai
-dw tmai
-dw umai
-dw vmai
-dw wmai
-dw xmai
-dw ymai
-dw zmai ' 63
-dw agudo ' 64
-dw grave ' 65
-dw agudo_duplo ' 66
-dw grave_duplo ' 67
-dw til ' 68
-dw circunflexo ' 69
-dw macron ' 70
-dw braquia ' 71
-dw braquia_invertida ' 72
-dw caron ' 73
-dw anel ' 74
-dw cedilha ' 75
-dw gancho_polaco ' 76
+dw n0 ; 2
+dw n1 ; 3
+dw n2 ; 4
+dw n3 ; 5
+dw n4 ; 6
+dw n5 ; 7
+dw n6 ; 8
+dw n7 ; 9
+dw n8 ; 10
+dw n9 ; 11
+dw amai ; 12
+dw bmai ; 13
+dw cmai ; 14
+dw dmai ; 15
+dw emai ; 16
+dw fmai ; 17
+dw gmai ; 18
+dw hmai ; 19
+dw imai ; 20
+dw jmai ; 21
+dw kmai ; 22
+dw lmai ; 23
+dw mmai ; 24
+dw nmai ; 25
+dw omai ; 26
+dw pmai ; 27
+dw qmai ; 28
+dw rmai ; 29
+dw smai ; 30
+dw tmai ; 31
+dw umai ; 32
+dw vmai ; 33
+dw wmai ; 34
+dw xmai ; 35
+dw ymai ; 36
+dw zmai ; 37
+dw amai ; 38
+dw bmai ; 39
+dw cmai ; 40
+dw dmai ; 41
+dw emai ; 42
+dw fmai ; 43
+dw gmai ; 44
+dw hmai ; 45
+dw imai ; 46
+dw jmai ; 47
+dw kmai ; 48
+dw lmai ; 49
+dw mmai ; 50
+dw nmai ; 51
+dw omai ; 52
+dw pmai ; 53
+dw qmai ; 54
+dw rmai ; 55
+dw smai ; 56
+dw tmai ; 57
+dw umai ; 58
+dw vmai ; 59
+dw wmai ; 60
+dw xmai ; 61
+dw ymai ; 62
+dw zmai ; 63
+dw agudo ; 64
+dw grave ; 65
+dw agudo_duplo ; 66
+dw grave_duplo ; 67
+dw til ; 68
+dw circunflexo ; 69
+dw macron ; 70
+dw braquia ; 71
+dw braquia_invertida ; 72
+dw caron ; 73
+dw trema ; 74
+dw anel ; 75
+dw cedilha ; 76
+dw gancho_polaco ; 77
 
 nome:
     db .fim - $