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

Originally Posted by largo_winch

... 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