extended ascii chars

[abakoboParticipant]

I’ve noticed that no chars upon 127 would print or DrawText even though I give the canvas a .ttf font that supports extended ASCII characters.
The same happens in Ted2. I can’t write some french text in Ted2!
Having only the ANSI char set is a big issue to me..
Here is a small code to illustrate it:

Monkey

[crayon-5cba169dbe76a220272602 inline="true" ]#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field theFont:Font Method OnRender( canvas:Canvas ) Override canvas.Font = Font.Load( "C:\Windows/Fonts/comic.ttf", 18 ) Local s:String For Local i:=0 To 255 Local j:=i Local k:=15 Repeat If j>616/10 j=j-616/10 k=k+30 End Until j<=616/10 s=String.FromChar(i) Print s[0]+" "+s canvas.DrawText( s,j*10,k ) Next s="elegant" For Local i:=0 To 6 Print s[i]+" --> "+String.FromChar(s[i]) Next Print "--------" 's="ￃlￃgant" 'this contains 2 special "e" for elegant in french s="élégant" 'this contains 2 special "e" for elegant in french For Local i:=0 To 10 Print s[i]+" --> "+String.FromChar(s[i]) Next End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

[crayon-5cba169dbe76a220272602 inline="true" ]#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field theFont:Font   Method OnRender( canvas:Canvas ) Override canvas.Font = Font.Load( "C:\Windows/Fonts/comic.ttf", 18 ) Local s:String For Local i:=0 To  255 Local j:=i Local k:=15 Repeat If j>616/10 j=j-616/10 k=k+30 End Until j<=616/10 s=String.FromChar(i) Print  s[0]+" "+s canvas.DrawText( s,j*10,k ) Next s="elegant" For Local i:=0 To 6 Print s[i]+" -->  "+String.FromChar(s[i]) Next Print "--------" 's="ￃlￃgant" 'this contains 2 special "e" for elegant in french s="élégant" 'this contains 2 special "e" for elegant in french For Local i:=0 To 10 Print s[i]+" -->  "+String.FromChar(s[i]) Next End End   Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

Notice that “élégant” is taking 10 chars in the string and “é” are not visible in Ted2. And that when copy/pasted from Ted2 the char has been transformed though you can create a string containing the char(233) with String.FromChar(233) wich is “é”.

[DiffrenzyKeymaster]

I have the same problem, and created a github issue here : https://github.com/blitz-research/monkey2/issues/83

[abakoboParticipant]

@Mark: Fix working on Ted2’s text screen and mojo apps!

However the console output is still 7bit limited.. Not vital but could probably be quickly corrected after this utf8 fix.

Monkey

[crayon-5cba169dc424b695269619 inline="true" ]#Import "<std>" Using std.. Function Main() Local s:String For Local j:=0 To 3 s="" For Local i:=1+(j*63) To 63+(j*63) s=s+String.FromChar(i) Next Print s Next Print "éléphant" End

1 2 3 4 5 6 7 8 9 10 11 12 13

[crayon-5cba169dc424b695269619 inline="true" ]#Import "<std>" Using std.. Function Main() Local s:String For Local j:=0 To 3 s="" For Local i:=1+(j*63) To  63+(j*63) s=s+String.FromChar(i) Next Print s Next Print "éléphant" End

[/crayon]

[Mark SiblyKeymaster]

Should be working now.

[Author]

Posts