[Mark SiblyKeymaster]

Nice work!

Some compiler fixes for the numeric errors above have been pushe to the develop branch.

Also, I had to do some tweaking to the code above, the main issue being that ‘Shr’ in mx2 is signed/unsigned depending on whether LHS is signed/unsigned (like C/C++) whereas in BMX Shr is signed and Sar is unsigned. So I rolled a little unsigned Shr (UShr) function which I may end up adding to the language as an operator…?

New code below, will add it to std soon (in std.digest?):

Monkey

#Import "<std>" Using std.. '====================================== TEST ====================================== Function Main() Print "" Print "==== MD5 ====" Print MD5("The quick brown fox jumps over the lazy dog") Print "9e107d9d372bb6826bd81d3542a419d6 <- Should be this" Print "" Print "===== SHA-1 =====" Print SHA1("The quick brown fox jumps over the lazy dog") Print "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12 <- Should be this" Print "" Print "===== SHA-256 =====" Print SHA256("The quick brown fox jumps over the lazy dog") Print "d7a8fbb307d7809469ca9abcb0082e4f8d5651e46d3cdb762d02d0bf37c9e592 <- Should be this" End Function ' '====================================== TEST ====================================== Function MD5:String(in:String) Local h0:Int = $67452301, h1:Int = $EFCDAB89, h2:Int = $98BADCFE, h3:Int = $10325476 Local r:Int[] = New Int[](7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, 5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20, 4, 11, 16, 23, 4, 11, 16, 23, 4, 11, 16, 23, 4, 11, 16, 23, 6, 10, 15, 21, 6, 10, 15, 21, 6, 10, 15, 21, 6, 10, 15, 21) Local k:Int[] = New Int[]($D76AA478, $E8C7B756, $242070DB, $C1BDCEEE, $F57C0FAF, $4787C62A, $A8304613, $FD469501, $698098D8, $8B44F7AF, $FFFF5BB1, $895CD7BE, $6B901122, $FD987193, $A679438E, $49B40821, $F61E2562, $C040B340, $265E5A51, $E9B6C7AA, $D62F105D, $02441453, $D8A1E681, $E7D3FBC8, $21E1CDE6, $C33707D6, $F4D50D87, $455A14ED, $A9E3E905, $FCEFA3F8, $676F02D9, $8D2A4C8A, $FFFA3942, $8771F681, $6D9D6122, $FDE5380C, $A4BEEA44, $4BDECFA9, $F6BB4B60, $BEBFBC70, $289B7EC6, $EAA127FA, $D4EF3085, $04881D05, $D9D4D039, $E6DB99E5, $1FA27CF8, $C4AC5665, $F4292244, $432AFF97, $AB9423A7, $FC93A039, $655B59C3, $8F0CCC92, $FFEFF47D, $85845DD1, $6FA87E4F, $FE2CE6E0, $A3014314, $4E0811A1, $F7537E82, $BD3AF235, $2AD7D2BB, $EB86D391) Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4 Local data:Int[] = New Int[intCount] For Local c:Int=0 Until in.Length data[c Shr 2] = data[c Shr 2] | ((in[c] & $FF) Shl ((c & 3) Shl 3)) Next data[in.Length Shr 2] = data[in.Length Shr 2] | ($80 Shl ((in.Length & 3) Shl 3)) data[data.Length - 2] = (Long(in.Length) * 8) & $FFFFFFFF data[data.Length - 1] = (Long(in.Length) * 8) Shr 32 For Local chunkStart:Int=0 Until intCount Step 16 Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3 For Local i:Int=0 To 15 Local f:Int = d ~ (b & (c ~ d)) Local t:Int = d d = c ; c = b b = Rol((a + f + k[i] + data[chunkStart + i]), r[i]) + b a = t Next For Local i:Int=16 To 31 Local f:Int = c ~ (d & (b ~ c)) Local t:Int = d d = c ; c = b b = Rol((a + f + k[i] + data[chunkStart + (((5 * i) + 1) & 15)]), r[i]) + b a = t Next For Local i:Int=32 To 47 Local f:Int = b ~ c ~ d Local t:Int = d d = c ; c = b b = Rol((a + f + k[i] + data[chunkStart + (((3 * i) + 5) & 15)]), r[i]) + b a = t Next For Local i:Int=48 To 63 Local f:Int = c ~ (b | ~d) Local t:Int = d d = c c = b b = Rol((a + f + k[i] + data[chunkStart + ((7 * i) & 15)]), r[i]) + b a = t Next h0 += a h1 += b h2 += c h3 += d Next Return (LEHex(h0) + LEHex(h1) + LEHex(h2) + LEHex(h3)).ToLower() End Function Function SHA1:String(in:String) Local h0:Int = $67452301, h1:Int = $EFCDAB89, h2:Int = $98BADCFE, h3:Int = $10325476, h4:Int = $C3D2E1F0 Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4 Local data:Int[] = New Int[intCount] For Local c:Int=0 Until in.Length data[c Shr 2] = (data[c Shr 2] Shl 8) | (in[c] & $FF) Next data[in.Length Shr 2] = ((data[in.Length Shr 2] Shl 8) | $80) Shl ((3 - (in.Length & 3)) Shl 3) data[data.Length - 2] = (Long(in.Length) * 8) Shr 32 data[data.Length - 1] = (Long(in.Length) * 8) & $FFFFFFFF For Local chunkStart:Int=0 Until intCount Step 16 Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3, e:Int = h4 Local w := data.Slice(chunkStart,chunkStart+16).Resize(80) For Local i:Int=16 To 79 w[i] = Rol(w[i - 3] ~ w[i - 8] ~ w[i - 14] ~ w[i - 16], 1) Next For Local i:Int=0 To 19 Local t:Int = Rol(a, 5) + (d ~ (b & (c ~ d))) + e + $5A827999 + w[i] e = d ; d = c c = Rol(b, 30) b = a ; a = t Next For Local i:Int=20 To 39 Local t:Int = Rol(a, 5) + (b ~ c ~ d) + e + $6ED9EBA1 + w[i] e = d ; d = c c = Rol(b, 30) b = a ; a = t Next For Local i:Int=40 To 59 Local t:Int = Rol(a, 5) + ((b & c) | (d & (b | c))) + e + $8F1BBCDC + w[i] e = d ; d = c c = Rol(b, 30) b = a ; a = t Next For Local i:Int=60 To 79 Local t:Int = Rol(a, 5) + (b ~ c ~ d) + e + $CA62C1D6 + w[i] e = d ; d = c c = Rol(b, 30) b = a ; a = t Next h0 += a h1 += b h2 += c h3 += d h4 += e Next Return (Hex(h0) + Hex(h1) + Hex(h2) + Hex(h3) + Hex(h4)).ToLower() End Function Function SHA256:String(in:String) Local h0:Int = $6A09E667, h1:Int = $BB67AE85, h2:Int = $3C6EF372, h3:Int = $A54FF53A Local h4:Int = $510E527F, h5:Int = $9B05688C, h6:Int = $1F83D9AB, h7:Int = $5BE0CD19 Local k:Int[] = New Int[]($428A2F98, $71374491, $B5C0FBCF, $E9B5DBA5, $3956C25B, $59F111F1, $923F82A4, $AB1C5ED5, $D807AA98, $12835B01, $243185BE, $550C7DC3, $72BE5D74, $80DEB1FE, $9BDC06A7, $C19BF174, $E49B69C1, $EFBE4786, $0FC19DC6, $240CA1CC, $2DE92C6F, $4A7484AA, $5CB0A9DC, $76F988DA, $983E5152, $A831C66D, $B00327C8, $BF597FC7, $C6E00BF3, $D5A79147, $06CA6351, $14292967, $27B70A85, $2E1B2138, $4D2C6DFC, $53380D13, $650A7354, $766A0ABB, $81C2C92E, $92722C85, $A2BFE8A1, $A81A664B, $C24B8B70, $C76C51A3, $D192E819, $D6990624, $F40E3585, $106AA070, $19A4C116, $1E376C08, $2748774C, $34B0BCB5, $391C0CB3, $4ED8AA4A, $5B9CCA4F, $682E6FF3, $748F82EE, $78A5636F, $84C87814, $8CC70208, $90BEFFFA, $A4506CEB, $BEF9A3F7, $C67178F2) Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4 Local data:Int[] = New Int[intCount] For Local c:Int=0 Until in.Length data[c Shr 2] = (data[c Shr 2] Shl 8) | (in[c] & $FF) Next data[in.Length Shr 2] = ((data[in.Length Shr 2] Shl 8) | $80) Shl ((3 - (in.Length & 3)) Shl 3) data[data.Length - 2] = (Long(in.Length) * 8) Shr 32 data[data.Length - 1] = (Long(in.Length) * 8) & $FFFFFFFF For Local chunkStart:Int=0 Until intCount Step 16 Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3, e:Int = h4, f:Int = h5, g:Int = h6, h:Int = h7 Local w:=data.Slice(chunkStart,chunkStart+16).Resize(64) For Local i:Int=16 To 63 w[i] = w[i - 16] + (Ror(w[i - 15], 7) ~ Ror(w[i - 15], 18) ~ ( UShr(w[i - 15],3) ))+ w[i - 7] + (Ror(w[i - 2], 17) ~ Ror(w[i - 2], 19) ~ ( UShr(w[i - 2],10) )) ' w[i] = w[i - 16] + (Ror(w[i - 15], 7) ~ Ror(w[i - 15], 18) ~ (w[i - 15] Shr 3))+ ' w[i - 7] + (Ror(w[i - 2], 17) ~ Ror(w[i - 2], 19) ~ (w[i - 2] Shr 10)) Next For Local i:Int=0 To 63 Local t0:Int = (Ror(a, 2) ~ Ror(a, 13) ~ Ror(a, 22)) + ((a & b) | (b & c) | (c & a)) Local t1:Int = h + (Ror(e, 6) ~ Ror(e, 11) ~ Ror(e, 25)) + ((e & f) | (~e & g)) + k[i] + w[i] h = g ; g = f ; f = e ; e = d + t1 d = c ; c = b ; b = a ; a = t0 + t1 Next h0 += a ; h1 += b ; h2 += c ; h3 += d h4 += e ; h5 += f ; h6 += g ; h7 += h Next Return (Hex(h0) + Hex(h1) + Hex(h2) + Hex(h3) + Hex(h4) + Hex(h5) + Hex(h6) + Hex(h7)).ToLower() End Function Function Hex:String(val:UInt) Local hex:=("00000000"+ULongToString(val,16)).Right(8) Return hex End Function Function Rol:UInt(val:UInt, shift:Int) Return (val Shl shift) | (val Shr (32 - shift)) End Function Function Ror:UInt(val:UInt, shift:Int) Return (val Shr shift) | (val Shl (32 - shift)) End Function Function UShr:UInt(val:UInt, shift:Int) Return val Shr shift End Function LEHex:String(val:UInt) Local out:String = Hex(val) Return out.Slice(6,8) + out.Slice(4,6) + out.Slice(2,4) + out.Slice(0,2) End Function

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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241

#Import "<std>" Using std.. '====================================== TEST ====================================== Function Main() Print "" Print "==== MD5 ====" Print MD5("The quick brown fox jumps over the lazy dog") Print "9e107d9d372bb6826bd81d3542a419d6 <- Should be this" Print "" Print "===== SHA-1 =====" Print SHA1("The quick brown fox jumps over the lazy dog") Print "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12 <- Should be this" Print "" Print "===== SHA-256 =====" Print SHA256("The quick brown fox jumps over the lazy dog") Print "d7a8fbb307d7809469ca9abcb0082e4f8d5651e46d3cdb762d02d0bf37c9e592 <- Should be this" End Function ' '====================================== TEST ====================================== Function MD5:String(in:String)   Local h0:Int = $67452301, h1:Int = $EFCDAB89, h2:Int = $98BADCFE, h3:Int = $10325476        Local r:Int[] = New Int[](7, 12, 17, 22,  7, 12, 17, 22,  7, 12, 17, 22,  7, 12, 17, 22,                 5,  9, 14, 20,  5,  9, 14, 20,  5,  9, 14, 20,  5,  9, 14, 20,                 4, 11, 16, 23,  4, 11, 16, 23,  4, 11, 16, 23,  4, 11, 16, 23,                 6, 10, 15, 21,  6, 10, 15, 21,  6, 10, 15, 21,  6, 10, 15, 21)                    Local k:Int[] = New Int[]($D76AA478, $E8C7B756, $242070DB, $C1BDCEEE, $F57C0FAF, $4787C62A,                 $A8304613, $FD469501, $698098D8, $8B44F7AF, $FFFF5BB1, $895CD7BE,                 $6B901122, $FD987193, $A679438E, $49B40821, $F61E2562, $C040B340,                 $265E5A51, $E9B6C7AA, $D62F105D, $02441453, $D8A1E681, $E7D3FBC8,                 $21E1CDE6, $C33707D6, $F4D50D87, $455A14ED, $A9E3E905, $FCEFA3F8,                 $676F02D9, $8D2A4C8A, $FFFA3942, $8771F681, $6D9D6122, $FDE5380C,                 $A4BEEA44, $4BDECFA9, $F6BB4B60, $BEBFBC70, $289B7EC6, $EAA127FA,                 $D4EF3085, $04881D05, $D9D4D039, $E6DB99E5, $1FA27CF8, $C4AC5665,                 $F4292244, $432AFF97, $AB9423A7, $FC93A039, $655B59C3, $8F0CCC92,                 $FFEFF47D, $85845DD1, $6FA87E4F, $FE2CE6E0, $A3014314, $4E0811A1,                 $F7537E82, $BD3AF235, $2AD7D2BB, $EB86D391)                    Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4   Local data:Int[] = New Int[intCount]      For Local c:Int=0 Until in.Length     data[c Shr 2] = data[c Shr 2] | ((in[c] & $FF) Shl ((c & 3) Shl 3))   Next   data[in.Length Shr 2] = data[in.Length Shr 2] | ($80 Shl ((in.Length & 3) Shl 3))   data[data.Length - 2] = (Long(in.Length) * 8) & $FFFFFFFF   data[data.Length - 1] = (Long(in.Length) * 8) Shr 32      For Local chunkStart:Int=0 Until intCount Step 16     Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3          For Local i:Int=0 To 15       Local f:Int = d ~ (b & (c ~ d))       Local t:Int = d              d = c ; c = b       b = Rol((a + f + k[i] + data[chunkStart + i]), r[i]) + b       a = t     Next          For Local i:Int=16 To 31       Local f:Int = c ~ (d & (b ~ c))       Local t:Int = d       d = c ; c = b       b = Rol((a + f + k[i] + data[chunkStart + (((5 * i) + 1) & 15)]), r[i]) + b       a = t     Next          For Local i:Int=32 To 47       Local f:Int = b ~ c ~ d       Local t:Int = d              d = c ; c = b       b = Rol((a + f + k[i] + data[chunkStart + (((3 * i) + 5) & 15)]), r[i]) + b       a = t     Next          For Local i:Int=48 To 63       Local f:Int = c ~ (b | ~d)       Local t:Int = d              d = c       c = b       b = Rol((a + f + k[i] + data[chunkStart + ((7 * i) & 15)]), r[i]) + b       a = t     Next          h0 += a     h1 += b     h2 += c     h3 += d     Next      Return (LEHex(h0) + LEHex(h1) + LEHex(h2) + LEHex(h3)).ToLower()   End Function Function SHA1:String(in:String)   Local h0:Int = $67452301, h1:Int = $EFCDAB89, h2:Int = $98BADCFE, h3:Int = $10325476, h4:Int = $C3D2E1F0      Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4   Local data:Int[] = New Int[intCount]      For Local c:Int=0 Until in.Length     data[c Shr 2] = (data[c Shr 2] Shl 8) | (in[c] & $FF)   Next   data[in.Length Shr 2] = ((data[in.Length Shr 2] Shl 8) | $80) Shl ((3 - (in.Length & 3)) Shl 3)   data[data.Length - 2] = (Long(in.Length) * 8) Shr 32   data[data.Length - 1] = (Long(in.Length) * 8) & $FFFFFFFF      For Local chunkStart:Int=0 Until intCount Step 16     Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3, e:Int = h4     Local w := data.Slice(chunkStart,chunkStart+16).Resize(80)          For Local i:Int=16 To 79       w[i] = Rol(w[i - 3] ~ w[i - 8] ~ w[i - 14] ~ w[i - 16], 1)     Next          For Local i:Int=0 To 19       Local t:Int = Rol(a, 5) + (d ~ (b & (c ~ d))) + e + $5A827999 + w[i]              e = d ; d = c       c = Rol(b, 30)       b = a ; a = t     Next          For Local i:Int=20 To 39       Local t:Int = Rol(a, 5) + (b ~ c ~ d) + e + $6ED9EBA1 + w[i]              e = d ; d = c       c = Rol(b, 30)       b = a ; a = t     Next          For Local i:Int=40 To 59       Local t:Int = Rol(a, 5) + ((b & c) | (d & (b | c))) + e + $8F1BBCDC + w[i]              e = d ; d = c       c = Rol(b, 30)       b = a ; a = t     Next     For Local i:Int=60 To 79       Local t:Int = Rol(a, 5) + (b ~ c ~ d) + e + $CA62C1D6 + w[i]              e = d ; d = c       c = Rol(b, 30)       b = a ; a = t     Next          h0 += a     h1 += b     h2 += c     h3 += d     h4 += e   Next      Return (Hex(h0) + Hex(h1) + Hex(h2) + Hex(h3) + Hex(h4)).ToLower()   End Function Function SHA256:String(in:String)   Local h0:Int = $6A09E667, h1:Int = $BB67AE85, h2:Int = $3C6EF372, h3:Int = $A54FF53A   Local h4:Int = $510E527F, h5:Int = $9B05688C, h6:Int = $1F83D9AB, h7:Int = $5BE0CD19      Local k:Int[] = New Int[]($428A2F98, $71374491, $B5C0FBCF, $E9B5DBA5, $3956C25B, $59F111F1,                  $923F82A4, $AB1C5ED5, $D807AA98, $12835B01, $243185BE, $550C7DC3,                  $72BE5D74, $80DEB1FE, $9BDC06A7, $C19BF174, $E49B69C1, $EFBE4786,                  $0FC19DC6, $240CA1CC, $2DE92C6F, $4A7484AA, $5CB0A9DC, $76F988DA,                  $983E5152, $A831C66D, $B00327C8, $BF597FC7, $C6E00BF3, $D5A79147,                  $06CA6351, $14292967, $27B70A85, $2E1B2138, $4D2C6DFC, $53380D13,                  $650A7354, $766A0ABB, $81C2C92E, $92722C85, $A2BFE8A1, $A81A664B,                  $C24B8B70, $C76C51A3, $D192E819, $D6990624, $F40E3585, $106AA070,                  $19A4C116, $1E376C08, $2748774C, $34B0BCB5, $391C0CB3, $4ED8AA4A,                  $5B9CCA4F, $682E6FF3, $748F82EE, $78A5636F, $84C87814, $8CC70208,                  $90BEFFFA, $A4506CEB, $BEF9A3F7, $C67178F2)   Local intCount:Int = (((in.Length + 8) Shr 6) + 1) Shl 4   Local data:Int[] = New Int[intCount]      For Local c:Int=0 Until in.Length     data[c Shr 2] = (data[c Shr 2] Shl 8) | (in[c] & $FF)   Next   data[in.Length Shr 2] = ((data[in.Length Shr 2] Shl 8) | $80) Shl ((3 - (in.Length & 3)) Shl 3)   data[data.Length - 2] = (Long(in.Length) * 8) Shr 32   data[data.Length - 1] = (Long(in.Length) * 8) & $FFFFFFFF      For Local chunkStart:Int=0 Until intCount Step 16     Local a:Int = h0, b:Int = h1, c:Int = h2, d:Int = h3, e:Int = h4, f:Int = h5, g:Int = h6, h:Int = h7     Local w:=data.Slice(chunkStart,chunkStart+16).Resize(64)          For Local i:Int=16 To 63       w[i] = w[i - 16] + (Ror(w[i - 15], 7) ~ Ror(w[i - 15], 18) ~ ( UShr(w[i - 15],3) ))+             w[i - 7] + (Ror(w[i - 2], 17) ~ Ror(w[i - 2], 19) ~ ( UShr(w[i - 2],10) )) '      w[i] = w[i - 16] + (Ror(w[i - 15], 7) ~ Ror(w[i - 15], 18) ~ (w[i - 15] Shr 3))+ '           w[i - 7] + (Ror(w[i - 2], 17) ~ Ror(w[i - 2], 19) ~ (w[i - 2] Shr 10))     Next          For Local i:Int=0 To 63       Local t0:Int = (Ror(a, 2) ~ Ror(a, 13) ~ Ror(a, 22)) + ((a & b) | (b & c) | (c & a))       Local t1:Int = h + (Ror(e, 6) ~ Ror(e, 11) ~ Ror(e, 25)) + ((e & f) | (~e & g)) + k[i] + w[i]              h = g ; g = f ; f = e ; e = d + t1       d = c ; c = b ; b = a ;  a = t0 + t1       Next          h0 += a ; h1 += b ; h2 += c ; h3 += d     h4 += e ; h5 += f ; h6 += g ; h7 += h   Next      Return (Hex(h0) + Hex(h1) + Hex(h2) + Hex(h3) + Hex(h4) + Hex(h5) + Hex(h6) + Hex(h7)).ToLower()   End Function Function Hex:String(val:UInt) Local hex:=("00000000"+ULongToString(val,16)).Right(8) Return hex End Function Function Rol:UInt(val:UInt, shift:Int)   Return (val Shl shift) | (val Shr (32 - shift)) End Function Function Ror:UInt(val:UInt, shift:Int)   Return (val Shr shift) | (val Shl (32 - shift)) End Function   Function UShr:UInt(val:UInt, shift:Int)   Return val Shr shift End Function LEHex:String(val:UInt)   Local out:String = Hex(val)   Return out.Slice(6,8) + out.Slice(4,6) + out.Slice(2,4) + out.Slice(0,2) End Function

[Mark SiblyKeymaster]

Numlock problem is happening here too, but NumLock doesn’t work for me here with ANY apps – it always just emits numbers. This is easy enough to hack into TextView and is the best I can do for now without a keyboard with functional NumLock, perhaps I need a ‘real’ Mac keyboard? I only have an el cheapo Windows keyboard.

Copy from console may or may not be a Ted2go thing – I’ll have a look.

As for app icons, it’ll have to wait until I next mess with the build system. There are a number of things to be done here anyway so it’ll probably be soonish.

[Mark SiblyKeymaster]

Slice (2,2) will return a 0 length string, which will cause an array index error if you try and index it.

[Mark SiblyKeymaster]

Will have a hack tomorrow/soon.

[Mark SiblyKeymaster]

I have just pushed a fix for the opengl build error to the develop branch, although weirdly I’m not getting this error myself! It is a valid error though…

[Mark SiblyKeymaster]

Initial gltf2 animation/skin support added and pushed to develop branch. Also added models and tests if that’s OK?

It’s an early attempt so there will probably be issues, but the above models seem to work OK (although walker looks quite different in mojo3d which I’ll look into).

[Mark SiblyKeymaster]

Welcome Pengwin!

[Mark SiblyKeymaster]

Try again now…

[Mark SiblyKeymaster]

Oops, broke non-android builds a bit…fixed now.

[Mark SiblyKeymaster]

Excellent, thank you.

[edit]Nice find too: https://pissang.github.io/qtek-model-viewer/editor/

[Mark SiblyKeymaster]

…also, I should probably mention that I updated the default android studio project for android products to android studio 3.0.1, so android users should probably do the same. Ditto upgrade all installed tools/sdks/ndks etc to the latest versions.

[Mark SiblyKeymaster]

Some fixes for this are now up in the develop branch.

It was mostly working already except there was an issue with sdl that meant the app wasn’t initally being given focus properly so key events weren’t getting sent to it. If you hit ‘home’ and refocus app, key events started working. I’ve hacked around this a bit and it should work now.

The other issue is that the back key wasn’t even include in the Key enum. This has been fixed too, so you can now go:

If Keyboard.KeyHit( Key.ACBack) App.Terminate()

(Anyone know what the ‘AC’ in ‘ACBack’ stands for?)

Here’s a little runnable demo which is working fine on my API15 emulator and nvidia shield.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown Print "KeyDown: "+Keyboard.KeyName( event.Key ) If event.Type=EventType.KeyUp Print "KeyUp: "+Keyboard.KeyName( event.Key ) End Method OnRender( canvas:Canvas ) Override RequestRender() ' If Keyboard.KeyHit( Key.ACBack ) App.Terminate() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown Print "KeyDown: "+Keyboard.KeyName( event.Key ) If event.Type=EventType.KeyUp Print "KeyUp: "+Keyboard.KeyName( event.Key ) End   Method OnRender( canvas:Canvas ) Override RequestRender() ' If Keyboard.KeyHit( Key.ACBack ) App.Terminate() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[Mark SiblyKeymaster]

Monkey2 only currently supports a single window. Multiple windows may or may not work to varying degrees depending on target – they are totally untested. By all means feel free to get in there and try to get them working – the basic framework is there –  but I wont be able to address this myself for a while yet.

[Mark SiblyKeymaster]

I believe it saves in GLTF 2.0 (with an additional .bin file, if that makes any difference)

Cool, this is standard gltf format – have you got any actual animations for me to play with?

[Mark SiblyKeymaster]

I will eventually update the gltf2 loader to load skinned animations, probably soon if anyone actually has a need for it!

Can you export or gltf2, or just gltf1? Needs to be gltf2…

[Author]

Posts