PDA

View Full Version : convertion problem for canvas



largo_winch
05-02-2013, 19:32
somebody knows how to implement such a code construct (my suggest it's a string serial) from c++ into thinbasic (ui/canvas mode) ? it's a kind of digital print / pixel print for an smiley laughing image ? thanks for help or ideas!




..


my code tags are not working here, it's only a technical problem ;)

Temp[0][0] = 16777215;
Temp[0][1] = 16777215;
Temp[0][2] = 16777215;
Temp[0][3] = 16777215;
Temp[0][4] = 16777215;
Temp[0][5] = 16777215;
Temp[0][6] = 16777215;
Temp[0][7] = 16777215;
Temp[0][8] = 16777215;
Temp[0][9] = 10066329;
Temp[0][10] = 10066329;
Temp[0][11] = 10066329;
Temp[0][12] = 10066329;
Temp[0][13] = 10066329;
Temp[0][14] = 16777215;
Temp[0][15] = 16777215;
Temp[0][16] = 16777215;
Temp[0][17] = 16777215;
Temp[0][18] = 16777215;
Temp[0][19] = 16777215;
Temp[0][20] = 16777215;
Temp[0][21] = 16777215;
Temp[0][22] = 16777215;
Temp[0][23] = 16777215;
Temp[0][24] = 16777215;
Temp[0][25] = 16777215;
Temp[0][26] = 16777215;
Temp[0][27] = 16777215;
Temp[0][28] = 10066329;
Temp[0][29] = 10066329;
Temp[0][30] = 10066329;
Temp[0][31] = 10066329;
Temp[0][32] = 10066329;
Temp[0][33] = 16777215;
Temp[0][34] = 16777215;
Temp[0][35] = 16777215;
Temp[0][36] = 16777215;
Temp[0][37] = 16777215;
Temp[1][0] = 16777215;
Temp[1][1] = 16777215;
Temp[1][2] = 16777215;
Temp[1][3] = 16777215;
Temp[1][4] = 16777215;
Temp[1][5] = 16777215;
Temp[1][6] = 16777215;
Temp[1][7] = 10066329;
Temp[1][8] = 10066329;
Temp[1][9] = 13553358;
Temp[1][10] = 13553358;
Temp[1][11] = 13553358;
Temp[1][12] = 13553358;
Temp[1][13] = 13553358;
Temp[1][14] = 10066329;
Temp[1][15] = 10066329;
Temp[1][16] = 16777215;
Temp[1][17] = 16777215;
Temp[1][18] = 16777215;
Temp[1][19] = 16777215;
Temp[1][20] = 16777215;
Temp[1][21] = 16777215;
Temp[1][22] = 16777215;
Temp[1][23] = 16777215;
Temp[1][24] = 16777215;
Temp[1][25] = 16777215;
Temp[1][26] = 10066329;
Temp[1][27] = 10066329;
Temp[1][28] = 13553358;
Temp[1][29] = 13553358;
Temp[1][30] = 13553358;
Temp[1][31] = 13553358;
Temp[1][32] = 13553358;
Temp[1][33] = 10066329;
Temp[1][34] = 10066329;
Temp[1][35] = 16777215;
Temp[1][36] = 16777215;
Temp[1][37] = 16777215;
Temp[2][0] = 16777215;
Temp[2][1] = 16777215;
Temp[2][2] = 16777215;
Temp[2][3] = 16777215;
Temp[2][4] = 16777215;
Temp[2][5] = 10066329;
Temp[2][6] = 10066329;
Temp[2][7] = 14671839;
Temp[2][8] = 14671839;
Temp[2][9] = 14671839;
Temp[2][10] = 14671839;
Temp[2][11] = 14671839;
Temp[2][12] = 14671839;
Temp[2][13] = 14671839;
Temp[2][14] = 13553358;
Temp[2][15] = 13553358;
Temp[2][16] = 10066329;



bye, largo

Petr Schreiber
05-02-2013, 23:35
Hi Largo,

I think it is image definition using classic 2D array. ThinBASIC arrays are 1 based, so you would need to shift the indices by one.
I still think you miss some data (the ones provided are just for 3x38pixels), but here is conversion of what you posted:


Uses "ui"

DWord hWin = Canvas_Window("Test", 100, 100, 320, 240 )
Canvas_Attach(hWin, 0)

Long nWidth, nHeight
String sBitmap = Canvas_BitmapGet(nWidth, nHeight)
Dim Temp(nWidth, nHeight) As Long At StrPtr(sBitmap)
Temp(1, 1) = 16777215
Temp(1, 2) = 16777215
Temp(1, 3) = 16777215
Temp(1, 4) = 16777215
Temp(1, 5) = 16777215
Temp(1, 6) = 16777215
Temp(1, 7) = 16777215
Temp(1, 8) = 16777215
Temp(1, 9) = 16777215
Temp(1, 10) = 10066329
Temp(1, 11) = 10066329
Temp(1, 12) = 10066329
Temp(1, 13) = 10066329
Temp(1, 14) = 10066329
Temp(1, 15) = 16777215
Temp(1, 16) = 16777215
Temp(1, 17) = 16777215
Temp(1, 18) = 16777215
Temp(1, 19) = 16777215
Temp(1, 20) = 16777215
Temp(1, 21) = 16777215
Temp(1, 22) = 16777215
Temp(1, 23) = 16777215
Temp(1, 24) = 16777215
Temp(1, 25) = 16777215
Temp(1, 26) = 16777215
Temp(1, 27) = 16777215
Temp(1, 28) = 16777215
Temp(1, 29) = 10066329
Temp(1, 30) = 10066329
Temp(1, 31) = 10066329
Temp(1, 32) = 10066329
Temp(1, 33) = 10066329
Temp(1, 34) = 16777215
Temp(1, 35) = 16777215
Temp(1, 36) = 16777215
Temp(1, 37) = 16777215
Temp(1, 38) = 16777215
Temp(2, 1) = 16777215
Temp(2, 2) = 16777215
Temp(2, 3) = 16777215
Temp(2, 4) = 16777215
Temp(2, 5) = 16777215
Temp(2, 6) = 16777215
Temp(2, 7) = 16777215
Temp(2, 8) = 10066329
Temp(2, 9) = 10066329
Temp(2, 10) = 13553358
Temp(2, 11) = 13553358
Temp(2, 12) = 13553358
Temp(2, 13) = 13553358
Temp(2, 14) = 13553358
Temp(2, 15) = 10066329
Temp(2, 16) = 10066329
Temp(2, 17) = 16777215
Temp(2, 18) = 16777215
Temp(2, 19) = 16777215
Temp(2, 20) = 16777215
Temp(2, 21) = 16777215
Temp(2, 22) = 16777215
Temp(2, 23) = 16777215
Temp(2, 24) = 16777215
Temp(2, 25) = 16777215
Temp(2, 26) = 16777215
Temp(2, 27) = 10066329
Temp(2, 28) = 10066329
Temp(2, 29) = 13553358
Temp(2, 30) = 13553358
Temp(2, 31) = 13553358
Temp(2, 32) = 13553358
Temp(2, 33) = 13553358
Temp(2, 34) = 10066329
Temp(2, 35) = 10066329
Temp(2, 36) = 16777215
Temp(2, 37) = 16777215
Temp(2, 38) = 16777215
Temp(3, 1) = 16777215
Temp(3, 2) = 16777215
Temp(3, 3) = 16777215
Temp(3, 4) = 16777215
Temp(3, 5) = 16777215
Temp(3, 6) = 10066329
Temp(3, 7) = 10066329
Temp(3, 8) = 14671839
Temp(3, 9) = 14671839
Temp(3, 10)= 14671839
Temp(3, 11) = 14671839
Temp(3, 12) = 14671839
Temp(3, 13) = 14671839
Temp(3, 14) = 14671839
Temp(3, 15) = 13553358
Temp(3, 16) = 13553358
Temp(3, 17) = 10066329

Canvas_BitmapSet(sBitmap, nWidth, nHeight)

Canvas_WaitKey

Canvas_Window End


This will show you part of the image in the upper left corner.


Petr

largo_winch
06-02-2013, 18:32
many thanks for your convertion help petr! these smileys (sad, happy, innocent, dead..) I've adapted in my pause this afternoon at work for thinbasic ;) that all took over one and a half hour fully work mainly concentration of find & replace and deleting and increase arrays with (0,0), (0,1) with (1,0) and so on because thinbasic doesn't like it.

all examples you can find as attachement, two pictures see below.

bye, largo

largo_winch
07-02-2013, 12:11
addendum to my last post. I hope the code tags works correct for me.

thinbasic code example:



' Empty GUI script created on 02-06-2013 15:10:03 by (thinAir)


Uses "ui"

DWord hWin = Canvas_Window("Test Smileys_ happy!", 100, 100, 320, 240 )
Canvas_Attach(hWin, 0)

Long nWidth, nHeight
String sBitmap = Canvas_BitmapGet(nWidth, nHeight)
Dim Temp(nWidth, nHeight) As Long At StrPtr(sBitmap)
'Temp(1,0) = 16777215
Temp(1,1) = 16777215
Temp(1,2) = 16777215
Temp(1,3) = 16777215
Temp(1,4) = 16777215
Temp(1,5) = 16777215
Temp(1,6) = 16777215
Temp(1,7) = 16777215
Temp(1,8) = 16777215
Temp(1,9) = 10066329
Temp(1,10) = 10066329
Temp(1,11) = 10066329
Temp(1,12) = 10066329
Temp(1,13) = 10066329
Temp(1,14) = 16777215
Temp(1,15) = 16777215
Temp(1,16) = 16777215
Temp(1,17) = 16777215
Temp(1,18) = 16777215
Temp(1,19) = 16777215
Temp(1,20) = 16777215
Temp(1,21) = 16777215
Temp(1,22) = 16777215
Temp(1,23) = 16777215
Temp(1,24) = 16777215
Temp(1,25) = 16777215
Temp(1,26) = 16777215
Temp(1,27) = 16777215
Temp(1,28) = 10066329
Temp(1,29) = 10066329
Temp(1,30) = 10066329
Temp(1,31) = 10066329
Temp(1,32) = 10066329
Temp(1,33) = 16777215
Temp(1,34) = 16777215
Temp(1,35) = 16777215
Temp(1,36) = 16777215
Temp(1,37) = 16777215


'Temp(2,0) = 16777215
Temp(2,1) = 16777215
Temp(2,2) = 16777215
Temp(2,3) = 16777215
Temp(2,4) = 16777215
Temp(2,5) = 16777215
Temp(2,6) = 16777215
Temp(2,7) = 10066329
Temp(2,8) = 10066329
Temp(2,9) = 13553358
Temp(2,10) = 13553358
Temp(2,11) = 13553358
Temp(2,12) = 13553358
Temp(2,13) = 13553358
Temp(2,14) = 10066329
Temp(2,15) = 10066329
Temp(2,16) = 16777215
Temp(2,17) = 16777215
Temp(2,18) = 16777215
Temp(2,19) = 16777215
Temp(2,20) = 16777215
Temp(2,21) = 16777215
Temp(2,22) = 16777215
Temp(2,23) = 16777215
Temp(2,24) = 16777215
Temp(2,25) = 16777215
Temp(2,26) = 10066329
Temp(2,27) = 10066329
Temp(2,28) = 13553358
Temp(2,29) = 13553358
Temp(2,30) = 13553358
Temp(2,31) = 13553358
Temp(2,32) = 13553358
Temp(2,33) = 10066329
Temp(2,34) = 10066329
Temp(2,35) = 16777215
Temp(2,36) = 16777215
Temp(2,37) = 16777215


'Temp(3,0) = 16777215
Temp(3,1) = 16777215
Temp(3,2) = 16777215
Temp(3,3) = 16777215
Temp(3,4) = 16777215
Temp(3,5) = 10066329
Temp(3,6) = 10066329
Temp(3,7) = 14671839
Temp(3,8) = 14671839
Temp(3,9) = 14671839
Temp(3,10) = 14671839
Temp(3,11) = 14671839
Temp(3,12) = 14671839
Temp(3,13) = 14671839
Temp(3,14) = 13553358
Temp(3,15) = 13553358
Temp(3,16) = 10066329
Temp(3,17) = 16777215
Temp(3,18) = 16777215
Temp(3,19) = 16777215
Temp(3,20) = 16777215
Temp(3,21) = 16777215
Temp(3,22) = 16777215
Temp(3,23) = 16777215
Temp(3,24) = 10066329
Temp(3,25) = 10066329
Temp(3,26) = 14671839
Temp(3,27) = 14671839
Temp(3,28) = 14671839
Temp(3,29) = 14671839
Temp(3,30) = 14671839
Temp(3,31) = 14671839
Temp(3,32) = 14671839
Temp(3,33) = 13553358
Temp(3,34) = 13553358
Temp(3,35) = 10066329
Temp(3,36) = 16777215
Temp(3,37) = 16777215


'Temp(4,0) = 16777215
Temp(4,1) = 16777215
Temp(4,2) = 16777215
Temp(4,3) = 16777215
Temp(4,4) = 10066329
Temp(4,5) = 14671839
Temp(4,6) = 14671839
Temp(4,7) = 15395562
Temp(4,8) = 15395562
Temp(4,9) = 15395562
Temp(4,10) = 15395562
Temp(4,11) = 15395562
Temp(4,12) = 15395562
Temp(4,13) = 15395562
Temp(4,14) = 14671839
Temp(4,15) = 14671839
Temp(4,16) = 13553358
Temp(4,17) = 10066329
Temp(4,18) = 16777215
Temp(4,19) = 16777215
Temp(4,20) = 16777215
Temp(4,21) = 16777215
Temp(4,22) = 16777215
Temp(4,23) = 10066329
Temp(4,24) = 14671839
Temp(4,25) = 14671839
Temp(4,26) = 15395562
Temp(4,27) = 15395562
Temp(4,28) = 15395562
Temp(4,29) = 15395562
Temp(4,30) = 15395562
Temp(4,31) = 15395562
Temp(4,32) = 15395562
Temp(4,33) = 14671839
Temp(4,34) = 14671839
Temp(4,35) = 13553358
Temp(4,36) = 10066329
Temp(4,37) = 16777215


'Temp(5,0) = 16777215
Temp(5,1) = 16777215
Temp(5,2) = 16777215
Temp(5,3) = 10066329
Temp(5,4) = 14671839
Temp(5,5) = 15395562
Temp(5,6) = 15395562
Temp(5,7) = 15395562
Temp(5,8) = 15395562
Temp(5,9) = 15395562
Temp(5,10) = 15395562
Temp(5,11) = 15921906
Temp(5,12) = 15921906
Temp(5,13) = 15921906
Temp(5,14) = 15395562
Temp(5,15) = 14671839
Temp(5,16) = 13553358
Temp(5,17) = 10066329
Temp(5,18) = 16777215
Temp(5,19) = 16777215
Temp(5,20) = 16777215
Temp(5,21) = 16777215
Temp(5,22) = 10066329
Temp(5,23) = 14671839
Temp(5,24) = 15395562
Temp(5,25) = 15395562
Temp(5,26) = 15395562
Temp(5,27) = 15395562
Temp(5,28) = 15395562
Temp(5,29) = 15395562
Temp(5,30) = 15921906
Temp(5,31) = 15921906
Temp(5,32) = 15921906
Temp(5,33) = 15395562
Temp(5,34) = 14671839
Temp(5,35) = 13553358
Temp(5,36) = 10066329
Temp(5,37) = 16777215


'Temp(6,0) = 16777215
Temp(6,1) = 16777215
Temp(6,2) = 10066329
Temp(6,3) = 14671839
Temp(6,4) = 14671839
Temp(6,5) = 14671839
Temp(6,6) = 14671839
Temp(6,7) = 14671839
Temp(6,8) = 14671839
Temp(6,9) = 15395562
Temp(6,10) = 15395562
Temp(6,11) = 15921906
Temp(6,12) = 15921906
Temp(6,13) = 15921906
Temp(6,14) = 6265329
Temp(6,15) = 14671839
Temp(6,16) = 13553358
Temp(6,17) = 10066329
Temp(6,18) = 16777215
Temp(6,19) = 16777215
Temp(6,20) = 16777215
Temp(6,21) = 10066329
Temp(6,22) = 14671839
Temp(6,23) = 14671839
Temp(6,24) = 14671839
Temp(6,25) = 14671839
Temp(6,26) = 14671839
Temp(6,27) = 14671839
Temp(6,28) = 15395562
Temp(6,29) = 15395562
Temp(6,30) = 15921906
Temp(6,31) = 15921906
Temp(6,32) = 15921906
Temp(6,33) = 6265329
Temp(6,34) = 14671839
Temp(6,35) = 13553358
Temp(6,36) = 10066329
Temp(6,37) = 16777215


'Temp(7,0) = 16777215
Temp(7,1) = 10066329
Temp(7,2) = 13553358
Temp(7,3) = 13553358
Temp(7,4) = 13553358
Temp(7,5) = 13553358
Temp(7,6) = 13553358
Temp(7,7) = 13553358
Temp(7,8) = 14671839
Temp(7,9) = 14671839
Temp(7,10) = 15395562
Temp(7,11) = 15921906
Temp(7,12) = 15921906
Temp(7,13) = 15921906
Temp(7,14) = 15921906
Temp(7,15) = 15395562
Temp(7,16) = 14671839
Temp(7,17) = 13553358
Temp(7,18) = 10066329
Temp(7,19) = 16777215
Temp(7,20) = 10066329
Temp(7,21) = 13553358
Temp(7,22) = 13553358
Temp(7,23) = 13553358
Temp(7,24) = 13553358
Temp(7,25) = 13553358
Temp(7,26) = 13553358
Temp(7,27) = 14671839
Temp(7,28) = 14671839
Temp(7,29) = 15395562
Temp(7,30) = 15921906
Temp(7,31) = 6579300
Temp(7,32) = 15921906
Temp(7,33) = 15921906
Temp(7,34) = 15395562
Temp(7,35) = 14671839
Temp(7,36) = 13553358
Temp(7,37) = 10066329


'Temp(8,0) = 16777215
Temp(8,1) = 6594442
Temp(8,2) = 6594442
Temp(8,3) = 6594442
Temp(8,4) = 6594442
Temp(8,5) = 6594442
Temp(8,6) = 6594442
Temp(8,7) = 6594442
Temp(8,8) = 13553358
Temp(8,9) = 14671839
Temp(8,10) = 15395562
Temp(8,11) = 8158332
Temp(8,12) = 6579300
Temp(8,13) = 15921906
Temp(8,14) = 6579300
Temp(8,15) = 15395562
Temp(8,16) = 14671839
Temp(8,17) = 13553358
Temp(8,18) = 10066329
Temp(8,19) = 16777215
Temp(8,20) = 6594442
Temp(8,21) = 6594442
Temp(8,22) = 6594442
Temp(8,23) = 6594442
Temp(8,24) = 6594442
Temp(8,25) = 6594442
Temp(8,26) = 6594442
Temp(8,27) = 13553358
Temp(8,28) = 14671839
Temp(8,29) = 15395562
Temp(8,30) = 15921906
Temp(8,31) = 6579300
Temp(8,32) = 15921906
Temp(8,33) = 6579300
Temp(8,34) = 15395562
Temp(8,35) = 14671839
Temp(8,36) = 13553358
Temp(8,37) = 10066329


'Temp(9,0) = 6594442
Temp(9,1) = 9418409
Temp(9,2) = 9418409
Temp(9,3) = 8236189
Temp(9,4) = 8236189
Temp(9,5) = 8236189
Temp(9,6) = 8236189
Temp(9,7) = 6594442
Temp(9,8) = 13553358
Temp(9,9) = 14671839
Temp(9,10) = 15395562
Temp(9,11) = 15921906
Temp(9,12) = 15921906
Temp(9,13) = 15921906
Temp(9,14) = 15921906
Temp(9,15) = 6579300
Temp(9,16) = 14671839
Temp(9,17) = 13553358
Temp(9,18) = 10066329
Temp(9,19) = 6594442
Temp(9,20) = 9418409
Temp(9,21) = 9418409
Temp(9,22) = 8236189
Temp(9,23) = 8236189
Temp(9,24) = 8236189
Temp(9,25) = 8236189
Temp(9,26) = 6594442
Temp(9,27) = 13553358
Temp(9,28) = 14671839
Temp(9,29) = 15395562
Temp(9,30) = 15921906
Temp(9,31) = 15921906
Temp(9,32) = 15921906
Temp(9,33) = 15921906
Temp(9,34) = 6579300
Temp(9,35) = 14671839
Temp(9,36) = 13553358
Temp(9,37) = 10066329


'Temp(10,0) = 6594442
Temp(10,1) = 9418409
Temp(10,2) = 8959397
Temp(10,3) = 8959397
Temp(10,4) = 8959397
Temp(10,5) = 8695970
Temp(10,6) = 8236189
Temp(10,7) = 6594442
Temp(10,8) = 13553358
Temp(10,9) = 14671839
Temp(10,10) = 15395562
Temp(10,11) = 15921906
Temp(10,12) = 15921906
Temp(10,13) = 15921906
Temp(10,14) = 15921906
Temp(10,15) = 6579300
Temp(10,16) = 14671839
Temp(10,17) = 13553358
Temp(10,18) = 10066329
Temp(10,19) = 6594442
Temp(10,20) = 9418409
Temp(10,21) = 8959397
Temp(10,22) = 8959397
Temp(10,23) = 8959397
Temp(10,24) = 8695970
Temp(10,25) = 8236189
Temp(10,26) = 6594442
Temp(10,27) = 13553358
Temp(10,28) = 14671839
Temp(10,29) = 15395562
Temp(10,30) = 15921906
Temp(10,31) = 15921906
Temp(10,32) = 15921906
Temp(10,33) = 15921906
Temp(10,34) = 6579300
Temp(10,35) = 14671839
Temp(10,36) = 13553358
Temp(10,37) = 10066329


'Temp(11,0) = 6594442
Temp(11,1) = 9418409
Temp(11,2) = 8959397
Temp(11,3) = 8959397
Temp(11,4) = 8959397
Temp(11,5) = 8695970
Temp(11,6) = 8236189
Temp(11,7) = 6594442
Temp(11,8) = 13553358
Temp(11,9) = 14671839
Temp(11,10) = 15395562
Temp(11,11) = 15921906
Temp(11,12) = 15921906
Temp(11,13) = 15921906
Temp(11,14) = 6579300
Temp(11,15) = 15395562
Temp(11,16) = 14671839
Temp(11,17) = 13553358
Temp(11,18) = 10066329
Temp(11,19) = 6594442
Temp(11,20) = 9418409
Temp(11,21) = 8959397
Temp(11,22) = 8959397
Temp(11,23) = 8959397
Temp(11,24) = 8695970
Temp(11,25) = 8236189
Temp(11,26) = 6594442
Temp(11,27) = 13553358
Temp(11,28) = 14671839
Temp(11,29) = 15395562
Temp(11,30) = 15921906
Temp(11,31) = 15921906
Temp(11,32) = 15921906
Temp(11,33) = 6579300
Temp(11,34) = 15395562
Temp(11,35) = 14671839
Temp(11,36) = 13553358
Temp(11,37) = 10066329


'Temp(12,0) = 6594442
Temp(12,1) = 9418409
Temp(12,2) = 8959397
Temp(12,3) = 8959397
Temp(12,4) = 8959397
Temp(12,5) = 8695970
Temp(12,6) = 8236189
Temp(12,7) = 6594442
Temp(12,8) = 13553358
Temp(12,9) = 14671839
Temp(12,10) = 15395562
Temp(12,11) = 15921906
Temp(12,12) = 15921906
Temp(12,13) = 15921906
Temp(12,14) = 15921906
Temp(12,15) = 6579300
Temp(12,16) = 14671839
Temp(12,17) = 13553358
Temp(12,18) = 10066329
Temp(12,19) = 6594442
Temp(12,20) = 9418409
Temp(12,21) = 8959397
Temp(12,22) = 8959397
Temp(12,23) = 8959397
Temp(12,24) = 8695970
Temp(12,25) = 8236189
Temp(12,26) = 6594442
Temp(12,27) = 13553358
Temp(12,28) = 14671839
Temp(12,29) = 15395562
Temp(12,30) = 15921906
Temp(12,31) = 15921906
Temp(12,32) = 15921906
Temp(12,33) = 15921906
Temp(12,34) = 6579300
Temp(12,35) = 14671839
Temp(12,36) = 13553358
Temp(12,37) = 10066329


'Temp(13,0) = 6594442
Temp(13,1) = 9418409
Temp(13,2) = 9418409
Temp(13,3) = 8236189
Temp(13,4) = 8236189
Temp(13,5) = 8236189
Temp(13,6) = 8236189
Temp(13,7) = 6594442
Temp(13,8) = 13553358
Temp(13,9) = 14671839
Temp(13,10) = 15395562
Temp(13,11) = 15921906
Temp(13,12) = 15921906
Temp(13,13) = 15921906
Temp(13,14) = 15921906
Temp(13,15) = 6579300
Temp(13,16) = 14671839
Temp(13,17) = 13553358
Temp(13,18) = 10066329
Temp(13,19) = 6594442
Temp(13,20) = 9418409
Temp(13,21) = 9418409
Temp(13,22) = 8236189
Temp(13,23) = 8236189
Temp(13,24) = 8236189
Temp(13,25) = 8236189
Temp(13,26) = 6594442
Temp(13,27) = 13553358
Temp(13,28) = 14671839
Temp(13,29) = 15395562
Temp(13,30) = 15921906
Temp(13,31) = 15921906
Temp(13,32) = 15921906
Temp(13,33) = 15921906
Temp(13,34) = 6579300
Temp(13,35) = 14671839
Temp(13,36) = 13553358
Temp(13,37) = 10066329


'Temp(14,38) = 16777215 '14,0
Temp(14,1) = 6594442
Temp(14,2) = 6594442
Temp(14,3) = 6594442
Temp(14,4) = 6594442
Temp(14,5) = 6594442
Temp(14,6) = 6594442
Temp(14,7) = 6594442
Temp(14,8) = 13553358
Temp(14,9) = 14671839
Temp(14,10) = 15395562
Temp(14,11) = 8158332
Temp(14,12) = 6579300
Temp(14,13) = 15921906
Temp(14,14) = 6579300
Temp(14,15) = 15395562
Temp(14,16) = 14671839
Temp(14,17) = 13553358
Temp(14,18) = 10066329
Temp(14,19) = 16777215
Temp(14,20) = 6594442
Temp(14,21) = 6594442
Temp(14,22) = 6594442
Temp(14,23) = 6594442
Temp(14,24) = 6594442
Temp(14,25) = 6594442
Temp(14,26) = 6594442
Temp(14,27) = 13553358
Temp(14,28) = 14671839
Temp(14,29) = 15395562
Temp(14,30) = 15921906
Temp(14,31) = 6579300
Temp(14,32) = 15921906
Temp(14,33) = 6579300
Temp(14,34) = 15395562
Temp(14,35) = 14671839
Temp(14,36) = 13553358
Temp(14,37) = 10066329


'Temp(15,0) = 16777215
Temp(15,1) = 10066329
Temp(15,2) = 13553358
Temp(15,3) = 13553358
Temp(15,4) = 13553358
Temp(15,5) = 13553358
Temp(15,6) = 13553358
Temp(15,7) = 13553358
Temp(15,8) = 14671839
Temp(15,9) = 14671839
Temp(15,10) = 15395562
Temp(15,11) = 15921906
Temp(15,12) = 15921906
Temp(15,13) = 15921906
Temp(15,14) = 15921906
Temp(15,15) = 15395562
Temp(15,16) = 14671839
Temp(15,17) = 13553358
Temp(15,18) = 10066329
Temp(15,19) = 16777215
Temp(15,20) = 10066329
Temp(15,21) = 13553358
Temp(15,22) = 13553358
Temp(15,23) = 13553358
Temp(15,24) = 13553358
Temp(15,25) = 13553358
Temp(15,26) = 13553358
Temp(15,27) = 14671839
Temp(15,28) = 14671839
Temp(15,29) = 15395562
Temp(15,30) = 15921906
Temp(15,31) = 6579300
Temp(15,32) = 15921906
Temp(15,33) = 15921906
Temp(15,34) = 15395562
Temp(15,35) = 14671839
Temp(15,36) = 13553358
Temp(15,37) = 10066329


'Temp(16,0) = 16777215
Temp(16,1) = 16777215
Temp(16,2) = 10066329
Temp(16,3) = 14671839
Temp(16,4) = 14671839
Temp(16,5) = 14671839
Temp(16,6) = 14671839
Temp(16,7) = 14671839
Temp(16,8) = 14671839
Temp(16,9) = 15395562
Temp(16,10) = 15395562
Temp(16,11) = 15921906
Temp(16,12) = 15921906
Temp(16,13) = 15921906
Temp(16,14) = 6265329
Temp(16,15) = 14671839
Temp(16,16) = 13553358
Temp(16,17) = 10066329
Temp(16,18) = 16777215
Temp(16,19) = 16777215
Temp(16,20) = 16777215
Temp(16,21) = 10066329
Temp(16,22) = 14671839
Temp(16,23) = 14671839
Temp(16,24) = 14671839
Temp(16,25) = 14671839
Temp(16,26) = 14671839
Temp(16,27) = 14671839
Temp(16,28) = 15395562
Temp(16,29) = 15395562
Temp(16,30) = 15921906
Temp(16,31) = 15921906
Temp(16,32) = 15921906
Temp(16,33) = 6265329
Temp(16,34) = 14671839
Temp(16,35) = 13553358
Temp(16,36) = 10066329
Temp(16,37) = 16777215


'Temp(17,0) = 16777215
Temp(17,1) = 16777215
Temp(17,2) = 16777215
Temp(17,3) = 10066329
Temp(17,4) = 14671839
Temp(17,5) = 15395562
Temp(17,6) = 15395562
Temp(17,7) = 15395562
Temp(17,8) = 15395562
Temp(17,9) = 15395562
Temp(17,10) = 15395562
Temp(17,11) = 15921906
Temp(17,12) = 15921906
Temp(17,13) = 15921906
Temp(17,14) = 15395562
Temp(17,15) = 14671839
Temp(17,16) = 13553358
Temp(17,17) = 10066329
Temp(17,18) = 16777215
Temp(17,19) = 16777215
Temp(17,20) = 16777215
Temp(17,21) = 16777215
Temp(17,22) = 10066329
Temp(17,23) = 14671839
Temp(17,24) = 15395562
Temp(17,25) = 15395562
Temp(17,26) = 15395562
Temp(17,27) = 15395562
Temp(17,28) = 15395562
Temp(17,29) = 15395562
Temp(17,30) = 15921906
Temp(17,31) = 15921906
Temp(17,32) = 15921906
Temp(17,33) = 15395562
Temp(17,34) = 14671839
Temp(17,35) = 13553358
Temp(17,36) = 10066329
Temp(17,37) = 16777215


'Temp(18,0) = 16777215
Temp(18,1) = 16777215
Temp(18,2) = 16777215
Temp(18,3) = 16777215
Temp(18,4) = 10066329
Temp(18,5) = 14671839
Temp(18,6) = 14671839
Temp(18,7) = 15395562
Temp(18,8) = 15395562
Temp(18,9) = 15395562
Temp(18,10) = 15395562
Temp(18,11) = 15395562
Temp(18,12) = 15395562
Temp(18,13) = 15395562
Temp(18,14) = 14671839
Temp(18,15) = 14671839
Temp(18,16) = 13553358
Temp(18,17) = 10066329
Temp(18,18) = 16777215
Temp(18,19) = 16777215
Temp(18,20) = 16777215
Temp(18,21) = 16777215
Temp(18,22) = 16777215
Temp(18,23) = 10066329
Temp(18,24) = 14671839
Temp(18,25) = 14671839
Temp(18,26) = 15395562
Temp(18,27) = 15395562
Temp(18,28) = 15395562
Temp(18,29) = 15395562
Temp(18,30) = 15395562
Temp(18,31) = 15395562
Temp(18,32) = 15395562
Temp(18,33) = 14671839
Temp(18,34) = 14671839
Temp(18,35) = 13553358
Temp(18,36) = 10066329
Temp(18,37) = 16777215


'Temp(19,0) = 16777215
Temp(19,1) = 16777215
Temp(19,2) = 16777215
Temp(19,3) = 16777215
Temp(19,4) = 16777215
Temp(19,5) = 10066329
Temp(19,6) = 10066329
Temp(19,7) = 14671839
Temp(19,8) = 14671839
Temp(19,9) = 14671839
Temp(19,10) = 14671839
Temp(19,11) = 14671839
Temp(19,12) = 14671839
Temp(19,13) = 14671839
Temp(19,14) = 13553358
Temp(19,15) = 13553358
Temp(19,16) = 10066329
Temp(19,17) = 16777215
Temp(19,18) = 16777215
Temp(19,19) = 16777215
Temp(19,20) = 16777215
Temp(19,21) = 16777215
Temp(19,22) = 16777215
Temp(19,23) = 16777215
Temp(19,24) = 10066329
Temp(19,25) = 10066329
Temp(19,26) = 14671839
Temp(19,27) = 14671839
Temp(19,28) = 14671839
Temp(19,29) = 14671839
Temp(19,30) = 14671839
Temp(19,31) = 14671839
Temp(19,32) = 14671839
Temp(19,33) = 13553358
Temp(19,34) = 13553358
Temp(19,35) = 10066329
Temp(19,36) = 16777215
Temp(19,37) = 16777215


'Temp(20,0) = 16777215
Temp(20,1) = 16777215
Temp(20,2) = 16777215
Temp(20,3) = 16777215
Temp(20,4) = 16777215
Temp(20,5) = 16777215
Temp(20,6) = 16777215
Temp(20,7) = 10066329
Temp(20,8) = 10066329
Temp(20,9) = 13553358
Temp(20,10) = 13553358
Temp(20,11) = 13553358
Temp(20,12) = 13553358
Temp(20,13) = 13553358
Temp(20,14) = 10066329
Temp(20,15) = 10066329
Temp(20,16) = 16777215
Temp(20,17) = 16777215
Temp(20,18) = 16777215
Temp(20,19) = 16777215
Temp(20,20) = 16777215
Temp(20,21) = 16777215
Temp(20,22) = 16777215
Temp(20,23) = 16777215
Temp(20,24) = 16777215
Temp(20,25) = 16777215
Temp(20,26) = 10066329
Temp(20,27) = 10066329
Temp(20,28) = 13553358
Temp(20,29) = 13553358
Temp(20,30) = 13553358
Temp(20,31) = 13553358
Temp(20,32) = 13553358
Temp(20,33) = 10066329
Temp(20,34) = 10066329
Temp(20,35) = 16777215
Temp(20,36) = 16777215
Temp(20,37) = 16777215


Temp(21,38) = 16777215 '21,0
Temp(21,1) = 16777215
Temp(21,2) = 16777215
Temp(21,3) = 16777215
Temp(21,4) = 16777215
Temp(21,5) = 16777215
Temp(21,6) = 16777215
Temp(21,7) = 16777215
Temp(21,8) = 16777215
Temp(21,9) = 10066329
Temp(21,10) = 10066329
Temp(21,11) = 10066329
Temp(21,12) = 10066329
Temp(21,13) = 10066329
Temp(21,14) = 16777215
Temp(21,15) = 16777215
Temp(21,16) = 16777215
Temp(21,17) = 16777215
Temp(21,18) = 16777215
Temp(21,19) = 16777215
Temp(21,20) = 16777215
Temp(21,21) = 16777215
Temp(21,22) = 16777215
Temp(21,23) = 16777215
Temp(21,24) = 16777215
Temp(21,25) = 16777215
Temp(21,26) = 16777215
Temp(21,27) = 16777215
Temp(21,28) = 10066329
Temp(21,29) = 10066329
Temp(21,30) = 10066329
Temp(21,31) = 10066329
Temp(21,32) = 10066329
Temp(21,33) = 16777215
Temp(21,34) = 16777215
Temp(21,35) = 16777215
Temp(21,36) = 16777215
Temp(21,37) = 16777215


'---------------------

Canvas_BitmapSet(sBitmap, nWidth, nHeight)

Canvas_WaitKey

Canvas_Window End




bye, largo

ReneMiner
07-02-2013, 15:59
... that all took over one and a half hour fully work mainly concentration of find & replace and deleting and increase arrays with (0,0), (0,1) with (1,0) and so on because thinbasic doesn't like it...

You did that manually? Geez, what do you have a computer for then?

It's the perfect job for an automated routine - the advantage of this is:
you have to write that routine just once- that may take a little longer in the first but might be more fun for your brains than replacing the stuff manually - but if you want to "convert" some other stuff the same way tommorow- it will take you just one or two mouse-clicks to get it done.

largo_winch
08-02-2013, 12:06
as I am working with students and school children I haven't had enough calm times in my pause to get this idea for automatism. after the second example I noticed this problem, but I can write / type very fast on my old win machine :) beside that I can learn about more thinbasic language how does the syntax work. in general I am learning more from doing mistakes and see by convertions more differences from other basic languages. bye, largo