Monkey 2

Forum Replies Created

Viewing 15 posts - 31 through 45 (of 145 total)

← 1 2 3 4 … 10 →

Author

Posts

January 2, 2019 at 12:59 am in reply to: Minimal mojo3d torus example #15827

Danilo

Participant

It’s pretty interesting.

Running on iPad Pro:

January 2, 2019 at 12:58 am in reply to: 3D Animation in Monkey-X2 #15826

Danilo

Participant

Here is another test for loading animated 3d models:
– http://monkeycoder.co.nz/forums/topic/loading-animated-3d-models/

January 1, 2019 at 9:50 am in reply to: 3D Animation in Monkey-X2 #15818

Danilo

Participant

Hello En929,

Monkey2 supports animations. Download latest Monkey2 and run the following examples:
– Monkey2/modules/mojo3d-loaders/tests/ninja.monkey2
– Monkey2/modules/mojo3d-loaders/tests/turtle.monkey2

Monkey2 is using Assimp for import/export 3D models/scenes. See HERE for supported file formats.

Also look at the other examples:
– Monkey2/modules/mojo3d/tests

December 18, 2018 at 5:42 am in reply to: possible virus #15706

Danilo

Participant

In many virus scanners you can add a folder (“C:\Monkey2-v2018.09\”) for exclusion from scanning.

Exlude folder in BitDefender

If your development tools (C++ compiler, linker, libs) or system could be infected, this could infect your compiled programs as well. If that’s not the case, you can exclude your source folders.

December 17, 2018 at 5:56 am in reply to: Monkey2 blog posts: Behaviours #15702

Danilo

Participant

Really nice, @druggedbunny!

November 23, 2018 at 7:23 am in reply to: macOS requirements #15614

Danilo

Participant

Thanks @sekaichi! Sounds a bit complicated…

October 31, 2017 at 6:09 am in reply to: How is it going? #11378

Danilo

Participant

Sounds good. I‘m glad everything is going well…

July 2, 2017 at 9:56 am in reply to: the first thing I plan with mojo3d is #9082

Danilo

Participant

@gfk: Patreon supporters got e-mail with the download link, 5 days ago.

June 26, 2017 at 1:58 am in reply to: Multidimensional Arrays and Copyto? #8930

Danilo

Participant

So @abakobo was right with his way of copying everything.

We can make this for 3 dimensions:

'
' http://monkeycoder.co.nz/forums/topic/multidimensional-arrays-and-copyto/
'
Function CloneArray<T>:T[](Arr:T[])      ' 1 dimension
	
	Local x := Arr.GetSize(0)
	Local newArr := New T[x]
	
	For local i:=0 Until x
        newArr[i] = Arr[i]
	Next
	
	Return newArr
End

Function CloneArray<T>:T[,](Arr:T[,])    ' 2 dimensions
	
	Local x := Arr.GetSize(0)
	Local y := Arr.GetSize(1)
	Local newArr := New T[x,y]
	
	For local i:=0 Until x
		For Local j:=0 Until y
			newArr[i,j]=Arr[i,j]
		Next
	Next
	
	Return newArr	
End

Function CloneArray<T>:T[,,](Arr:T[,,])  ' 3 dimensions
	
	Local x := Arr.GetSize(0)
	Local y := Arr.GetSize(1)
	Local z := Arr.GetSize(2)
	Local newArr:=New T[x,y,z]
	
	For local i:=0 Until x
		For Local j:=0 Until y
		    For Local k:=0 Until z
			    newArr[i,j,k]=Arr[i,j,k]
			Next
		Next
	Next
	
	Return newArr
End

'===================================

Function Main()
    Print "1 dimension:"
    Test1D()
    Print "2 dimensions:"
    Test2D()
    Print "3 dimensions:"
    Test3D()
End

Function Test1D()
    Local arr1D := New String[]( "a", "b", "c" )

    Local copy1D := CloneArray(arr1D)
    
    copy1D[1] = "d"
    
    Print arr1D[0]
    Print arr1D[1]
    Print arr1D[2]
    Print "==="
    Print copy1D[0]
    Print copy1D[1]
    Print copy1D[2]
End

Function Test2D()
     Local arr2D := New Int[5,5]
     
     arr2D[3,3] = 33
          
     Local copy2D := CloneArray(arr2D)

     Print copy2D[3,3]
     Print copy2D[4,4]

     arr2D[4,4] = 44

     Print copy2D[3,3]
     Print copy2D[4,4]
End

Function Test3D()
    Local arr3D := New Float[3,3,3]
    
    arr3D[0,1,2] = 1.5

    Local copy3D := CloneArray(arr3D)

    Print arr3D[0,1,2]
    Print copy3D[0,1,2]
    
    copy3D[0,1,2] = 2.5

    Print arr3D[0,1,2]
    Print copy3D[0,1,2]
End

100

101

102

103

104

105

106

107

' http://monkeycoder.co.nz/forums/topic/multidimensional-arrays-and-copyto/

Function CloneArray<T>:T[](Arr:T[]) ' 1 dimension

Local x := Arr.GetSize(0)

Local newArr := New T[x]

For local i:=0 Until x

newArr[i] = Arr[i]

Return newArr

End

Function CloneArray<T>:T[,](Arr:T[,]) ' 2 dimensions

Local x := Arr.GetSize(0)

Local y := Arr.GetSize(1)

Local newArr := New T[x,y]

For local i:=0 Until x

For Local j:=0 Until y

newArr[i,j]=Arr[i,j]

Return newArr

End

Function CloneArray<T>:T[,,](Arr:T[,,]) ' 3 dimensions

Local x := Arr.GetSize(0)

Local y := Arr.GetSize(1)

Local z := Arr.GetSize(2)

Local newArr:=New T[x,y,z]

For local i:=0 Until x

For Local j:=0 Until y

For Local k:=0 Until z

newArr[i,j,k]=Arr[i,j,k]

Return newArr

End

'===================================

Function Main()

Print "1 dimension:"

Test1D()

Print "2 dimensions:"

Test2D()

Print "3 dimensions:"

Test3D()

End

Function Test1D()

Local arr1D := New String[]( "a", "b", "c" )

Local copy1D := CloneArray(arr1D)

copy1D[1] = "d"

Print arr1D[0]

Print arr1D[1]

Print arr1D[2]

Print "==="

Print copy1D[0]

Print copy1D[1]

Print copy1D[2]

End

Function Test2D()

Local arr2D := New Int[5,5]

arr2D[3,3] = 33

Local copy2D := CloneArray(arr2D)

Print copy2D[3,3]

Print copy2D[4,4]

arr2D[4,4] = 44

Print copy2D[3,3]

Print copy2D[4,4]

End

Function Test3D()

Local arr3D := New Float[3,3,3]

arr3D[0,1,2] = 1.5

Local copy3D := CloneArray(arr3D)

Print arr3D[0,1,2]

Print copy3D[0,1,2]

copy3D[0,1,2] = 2.5

Print arr3D[0,1,2]

Print copy3D[0,1,2]

End

June 26, 2017 at 1:10 am in reply to: Multidimensional Arrays and Copyto? #8926

Danilo

Participant

@pakz:
Looks like this is not a real copy:

#Import  "<std>"

Using std..

Function Copy2DArray<T>:T[,](in:T[,])
    Return in
End

Function Main()
     Local arr1 := New Int[5,5]
     
     arr1[3,3] = 33
     
     Print arr1[3,3]
     
     Local arr2 := Copy2DArray(arr1)

     Print arr2[3,3]
     Print arr2[4,4]

     arr1[4,4] = 44   ' change arr1...

     Print arr2[3,3]
     Print arr2[4,4]  ' ...arr2 is also changed
End

#Import "<std>"

Using std..

Function Copy2DArray<T>:T[,](in:T[,])

Return in

End

Function Main()

Local arr1 := New Int[5,5]

arr1[3,3] = 33

Print arr1[3,3]

Local arr2 := Copy2DArray(arr1)

Print arr2[3,3]

Print arr2[4,4]

arr1[4,4] = 44 ' change arr1...

Print arr2[3,3]

Print arr2[4,4] ' ...arr2 is also changed

End

June 26, 2017 at 12:34 am in reply to: Structs and foreach loops #8923

Danilo

Participant

List extension ‘ForEach’ & ‘ForEachBackwards’ for use with structs:

#Import  "<std>"

Using std..

Class List<T> Extension

    Method ForEach:Void( func:T(item:T) )
        Local iterator := Self.All()
        While Not iterator.AtEnd
            iterator.Current = func(iterator.Current)
            iterator.Bump()
        Wend
    End

    Method ForEachBackwards:Void( func:T(item:T) )
        Local iterator := Self.Backwards()
        While Not iterator.AtEnd
            iterator.Current = func(iterator.Current)
            iterator.Bump()
        Wend
    End

End


Function Main()
    '
    ' Randomize Rnd values
    '
    Sleep( Rnd(1.0) )
    SeedRnd( Microsecs() )
    
    '
    ' Create a linked list using Vec2f type
    '
    Local lst := New List< Vec2f >
    
    '
    ' Add elememts to the list
    '
    For Local n := 0 Until 10
        lst.Add( New Vec2f )
    Next
    
    '
    ' Set values
    '
    lst.ForEach( Lambda:Vec2f( element:Vec2f )
       Global count:Int = 0
       count += 1

       element.x = count
       element.y = Rnd( 100.0 )

       Return element
    End )

    '
    ' print values
    '
    For Local item := Eachin lst
        Print item.x + "~t" + item.y
    End

    Print "----------"

    '
    ' Change all 'x' values in the list
    '
    lst.ForEachBackwards( Lambda:Vec2f( element:Vec2f )
       element.x += 100
       Return element
    End )

    '
    ' print values
    '
    For Local item := Eachin lst
        Print item.x + "~t" + item.y
    End

End

#Import "<std>"

Using std..

Class List<T> Extension

Method ForEach:Void( func:T(item:T) )

Local iterator := Self.All()

While Not iterator.AtEnd

iterator.Current = func(iterator.Current)

iterator.Bump()

Wend

End

Method ForEachBackwards:Void( func:T(item:T) )

Local iterator := Self.Backwards()

While Not iterator.AtEnd

iterator.Current = func(iterator.Current)

iterator.Bump()

Wend

End

Function Main()

' Randomize Rnd values

Sleep( Rnd(1.0) )

SeedRnd( Microsecs() )

' Create a linked list using Vec2f type

Local lst := New List< Vec2f >

' Add elememts to the list

For Local n := 0 Until 10

lst.Add( New Vec2f )

' Set values

lst.ForEach( Lambda:Vec2f( element:Vec2f )

Global count:Int = 0

count += 1

element.x = count

element.y = Rnd( 100.0 )

Return element

End )

' print values

For Local item := Eachin lst

Print item.x + "~t" + item.y

End

Print "----------"

' Change all 'x' values in the list

lst.ForEachBackwards( Lambda:Vec2f( element:Vec2f )

element.x += 100

Return element

End )

' print values

For Local item := Eachin lst

Print item.x + "~t" + item.y

End

June 25, 2017 at 7:26 am in reply to: Returning a list from method #8908

Danilo

Participant

Both should use the same node class, yes.

June 25, 2017 at 7:20 am in reply to: Returning a list from method #8906

Danilo

Participant

How is the type of i.path declared? It should use same, List<Node> or NodeList alias.

Because the type of i.path is already known, you can’t use operator := there.

'Local lst := mypath.getpath()
i.path = mypath.getpath()

1 2	'Local lst := mypath.getpath() i.path = mypath.getpath()

EDIT:
Looks like you are using 2 different Classes! pathfinder.pathnode and unit.pathnode –
can’t you use one pathnode for both?

June 25, 2017 at 7:10 am in reply to: Multidimensional Arrays and Copyto? #8904

Danilo

Participant

Could you use this?

#Import "<std>"

Using std..

Function Main()

    Local arr := New Int[][10]

    For Local i := 0 Until 10
        arr[i] = New Int[10]
    Next

    arr[3][3] = 33
    arr[4][4] = 44
    arr[5][5] = 55

    Local arr2 := New Int[][10]
    
    arr.CopyTo(arr2,0,0,arr.Length)
    
    Print arr2[3][3]
    Print arr2[4][4]
    Print arr2[5][5]

End

#Import "<std>"

Using std..

Function Main()

Local arr := New Int[][10]

For Local i := 0 Until 10

arr[i] = New Int[10]

arr[3][3] = 33

arr[4][4] = 44

arr[5][5] = 55

Local arr2 := New Int[][10]

arr.CopyTo(arr2,0,0,arr.Length)

Print arr2[3][3]

Print arr2[4][4]

Print arr2[5][5]

End

If you mean multimensional [10,10] arrays, I don’t know.

June 25, 2017 at 6:57 am in reply to: Returning a list from method #8903

Danilo

Participant

Using List<Node> directly:

#Import  "<std>"

Using std..

Class Node
    Field x:Int

    Method New(num:Int)
        x = num
    End
End

Class Test

    Field path:List<Node> = New List<Node>
    
    Method New()
        path.AddLast( New Node(101) )
        path.AddLast( New Node(102) )
        path.AddLast( New Node(103) )
    End

    Method GetPath:List<Node>()
        Return path
    End
End
 
Function Main()

    Local tst := New Test
    Local lst := tst.GetPath()

    For Local item := Eachin lst
        Print item.x
    End

End

#Import "<std>"

Using std..

Class Node

Field x:Int

Method New(num:Int)

x = num

End

Class Test

Field path:List<Node> = New List<Node>

Method New()

path.AddLast( New Node(101) )

path.AddLast( New Node(102) )

path.AddLast( New Node(103) )

End

Method GetPath:List<Node>()

Return path

End

Function Main()

Local tst := New Test

Local lst := tst.GetPath()

For Local item := Eachin lst

Print item.x

End

Using an Alias:

#Import  "<std>"

Using std..

Alias NodeList:List<Node>

Class Node
    Field x:Int

    Method New(num:Int)
        x = num
    End
End

Class Test

    Field path:NodeList = New NodeList
    
    Method New()
        path.AddLast( New Node(101) )
        path.AddLast( New Node(102) )
        path.AddLast( New Node(103) )
    End

    Method GetPath:NodeList()
        Return path
    End
End
 
Function Main()

    Local tst := New Test
    Local lst := tst.GetPath()


    For Local item := Eachin lst
        Print item.x
    End
 
End

#Import "<std>"

Using std..

Alias NodeList:List<Node>

Class Node

Field x:Int

Method New(num:Int)

x = num

End

Class Test

Field path:NodeList = New NodeList

Method New()

path.AddLast( New Node(101) )

path.AddLast( New Node(102) )

path.AddLast( New Node(103) )

End

Method GetPath:NodeList()

Return path

End

Function Main()

Local tst := New Test

Local lst := tst.GetPath()

For Local item := Eachin lst

Print item.x

End

Author

Posts

Viewing 15 posts - 31 through 45 (of 145 total)

← 1 2 3 4 … 10 →

Danilo

Forum Replies Created

Archives

Recent Replies

What is this?