How do you put Data in the code?

[PakzParticipant]

In Blitz I would use Data 0,0,0 ect

In Monkey I would use the arrays to set up fields of data.

In Monkey2 I have not found a way yet on how to include/edit data for for instance a tilemap or brushes.

I also noticed that you can not use + to split strings so I was not able to create data in strings with that.

Is there already something I am missing? Or is something coming or does something need to be requested?

A small example of a 3 by 3 field of data would be cool:)

[codifiesParticipant]

I’ve just had a big array like

Monkey

global boxVerts:Float[] = New Float[]( '// vert // UV -0.5, -0.5, -0.5, 0.0, 0.0, ...snip... -0.5, -0.5, -0.5, 0.0, 0.0)

1 2 3 4 5

global boxVerts:Float[] = New Float[]( '// vert                       // UV     -0.5,  -0.5,  -0.5,            0.0, 0.0, ...snip...             -0.5,  -0.5,  -0.5,            0.0, 0.0)

just tidy it away in another file and import it

failing that you could just load the data png etc via the appropriate module see: http://monkey2.monkey-x.com/mx2-docs/std-std-graphics-pixmap-load/#comment-158

[PakzParticipant]

I just did this. Seems to work to.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field m:= New String[3] Method New() m[0] = "000" m[1] = "010" m[2] = "000" End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' canvas.Clear(Color.White) For Local y:=0 To 2 For Local x:=0 To 2 canvas.Color = Color.Black canvas.DrawRect(x*32+100,y*32+100,32,32) If m[y][x] = 48 Then canvas.Color = Color.Green canvas.DrawText("X",x*32+100,y*32+100) End If If m[y][x] = 49 Then canvas.Color = Color.Blue canvas.DrawText("X",x*32+100,y*32+100) End If Next Next ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() 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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Field m:= New String[3] Method New() m[0] = "000" m[1] = "010" m[2] = "000" End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' canvas.Clear(Color.White) For Local y:=0 To 2 For Local x:=0 To 2 canvas.Color = Color.Black canvas.DrawRect(x*32+100,y*32+100,32,32)     If m[y][x] = 48 Then      canvas.Color = Color.Green      canvas.DrawText("X",x*32+100,y*32+100) End If If m[y][x] = 49 Then canvas.Color = Color.Blue canvas.DrawText("X",x*32+100,y*32+100) End If   Next Next ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

I want to keep certain code projects in a single text file so I can put it online on blogs and github and such.

[coconParticipant]

Very cool, is there any command to parse numbers from binary? How about creating a binary array?

[Author]

Posts