Monkey 2

Forum Replies Created

Viewing 15 posts - 121 through 135 (of 202 total)

← 1 … 8 9 10 … 14 →

Author

Posts

December 5, 2016 at 8:39 pm in reply to: Emscripten performance #5603

codifies

Participant

I had a different experience expected it to be dog slow, but not so much http://bedroomcoders.co.uk/mx2Test/Mojotest.html – I was actually quite impressed!

I guess it does depend on what you are using…

December 4, 2016 at 9:29 am in reply to: Compile Sizes, An Observation. #5580

codifies

Participant

I’d kind of assumed release compile would optimise and remove any unused code anyhow…?

have you noticed that #include seems to do nothing – not even cause an error! (typo I keep doing!)

December 3, 2016 at 4:03 pm in reply to: A Few Questions About: libc #5573

codifies

Participant

@scurty I love standards – there are so many to choose from… problem is what you fix others will probably consider broken…

@abakobo personally I’m not keep on implicit declarations – makes code less readable, explicit declaration might mean more typing but its worth it in the long run!

December 3, 2016 at 2:24 pm in reply to: A Few Questions About: libc #5570

codifies

Participant

narp not here! its USER (Void Linux) let me reboot and see Antix (non systemd debian variant)… (brb)

Antix Linux also uses USER … NOT USERNAME

its login that sets the variable see also LOGNAME… just for extra confusion!

December 3, 2016 at 2:15 pm in reply to: A Few Questions About: libc #5568

codifies

Participant

@scurty are you on windows ’cause USER works for me! whereas USERNAME does not…

maybe check both and see which one isn’t empty?

December 3, 2016 at 11:19 am in reply to: A Few Questions About: libc #5561

codifies

Participant

[crayon-5cbaa002e3345466275030 inline="true" ]#import "<libc>"
Function Main()
	Local USERNAME:libc.char_t Ptr = libc.getenv("USER")
	Print(String.FromCString(USERNAME))
End

[crayon-5cbaa002e3345466275030 inline="true" ]#import "<libc>"

Function Main()

Local USERNAME:libc.char_t Ptr = libc.getenv("USER")

Print(String.FromCString(USERNAME))

End

[/crayon]

December 3, 2016 at 9:43 am in reply to: Matrix scale #5558

codifies

Participant

TLDR; I keep rotation and position in a couple of vectors – its not a waste to use an extra one for scale….

its the diagonal values… (NB code isn’t using mx2’s affine matrix but my own version)

for example if I want to create a scale matrix (to multiply with a matrix I want to scale)

[crayon-5cbaa002e6f9b985227533 inline="true" ]	Method scale(x:Float,y:Float,z:Float)
		identity()
		mat[0]   = x
		mat[5]   = y
		mat[10]  = z
	End

[crayon-5cbaa002e6f9b985227533 inline="true" ] Method scale(x:Float,y:Float,z:Float)

identity()

mat[0] = x

mat[5] = y

mat[10] = z

End

[/crayon]

however once you then rotate a matrix etc, these values are going to get lost in the aggregation

for example once you multiply it with a rotation matrix (which you could make like this)

[crayon-5cbaa002e6fa1308113773 inline="true" ]	Method rotationX(rad:Float)
		Local s:Float = Sin(rad)
		Local c:Float = Cos(rad)
		
		mat[ 0] = 1.0
		mat[ 1] = 0.0
		mat[ 2] = 0.0
		mat[ 3] = 0.0

		mat[ 4] = 0.0
		mat[ 5] = c
		mat[ 6] = s
		mat[ 7] = 0.0

		mat[ 8] = 0.0
		mat[ 9] = -s
		mat[10] = c
		mat[11] = 0.0

		mat[12] = 0.0
		mat[13] = 0.0
		mat[14] = 0.0
		mat[15] = 1.0
	End

[crayon-5cbaa002e6fa1308113773 inline="true" ] Method rotationX(rad:Float)

Local s:Float = Sin(rad)

Local c:Float = Cos(rad)

mat[ 0] = 1.0

mat[ 1] = 0.0

mat[ 2] = 0.0

mat[ 3] = 0.0

mat[ 4] = 0.0

mat[ 5] = c

mat[ 6] = s

mat[ 7] = 0.0

mat[ 8] = 0.0

mat[ 9] = -s

mat[10] = c

mat[11] = 0.0

mat[12] = 0.0

mat[13] = 0.0

mat[14] = 0.0

mat[15] = 1.0

End

[/crayon]

notice element 5 and 10….

In general what I have tended to do is use a position vector and quat rotation – stored in a 4 element vector… (if you need scale use another vector to store scale – why not its not a great waste!)

It used to be fashionable to say you should never store position and rotation ONLY in a matrix, if you only ever needed to add (or subtract!) incremental values from position and rotation, it has worked fine for me in the past – just bare in mind while you can easily extract position from a matrix BUT there are multiple axial rotations (and orders of rotation) that can give the same orientation.

December 2, 2016 at 10:37 pm in reply to: compiling with wine #5552

codifies

Participant

@dawlane, nah you just compile using wine and the mingw compiler included with the windows version of mx2 – simples…

in fact if I can be bothered I could probably nail together a Makefile that could do it

[crayon-5cbaa002eb9e7805865467 inline="true" ]make windows SRC=AAAgame.monkey2

1	[crayon-5cbaa002eb9e7805865467 inline="true" ]make windows SRC=AAAgame.monkey2

[/crayon]

[crayon-5cbaa002eb9ec585560294 inline="true" ]make linux SRC=AAAgame.monkey2

1	[crayon-5cbaa002eb9ec585560294 inline="true" ]make linux SRC=AAAgame.monkey2

[/crayon]

and so on…

December 2, 2016 at 7:36 pm in reply to: mserver install Help! #5551

codifies

Participant

check you have the mserver tools installed in the monkey directory, check that the path specified exists and it contains the mserver executable.

In linux I tried it first and then figured out where it needed to be from the error message!

also make sure that when you extracted the server, that you retained the directory hierarchy

November 30, 2016 at 9:03 am in reply to: ted21 controls #5507

codifies

Participant

what is ted21? have you forked ted ?

November 30, 2016 at 8:52 am in reply to: libxmp mod music player #5504

codifies

Participant

here’s an OpenAL version (sdl mutter mutter bag of bolts mutter mutter)

which doesn’t need to be thread safe…

because of a struct array inside the channel info struct I’ve had issues getting realtime feedback for the channels – its probably not worth taking too much further…

#import "xmp"
#import "<std>"
#import "<mojo>"
#import "<openal>"

#import "assets/"

Using xmp..
Using std..
Using mojo..
Using openal..

Global ang:Float
global ctx:xmp_context Ptr
Global paused:Bool = False
Global frameInfo:xmp_frame_info
Global modData:DataBuffer
Global buf:=New ALuint[2]
Const bSize:UInt = 1024*5
Global curBuf:Int = 0
Global bufDat1:=New UByte[bSize*4]
Global bufDat2:=New UByte[bSize*4]
Global src:ALuint

Function fillBuffer(buffer:ALuint)
	Local p:UByte Ptr
            
	If curBuf=0 Then 
		curBuf=1
		p = Varptr bufDat1[0]
	Else
		curBuf=0
		p = Varptr bufDat2[0]
	Endif
	xmp_play_buffer(ctx , p, bSize , 0)
 	alBufferData( buffer, AL_FORMAT_STEREO16, p, bSize, 22500 )
	alSourceQueueBuffers( src, 1, Varptr buffer )
End Function 

Class xmpWindow Extends Window
	Method New()
		ClearColor=New Color( 1, 0, 0 )
		
	End Method 
	
	Method OnRender( canvas:Canvas ) Override
	
		App.RequestRender()
		ang = ang + 0.01
		ClearColor= New Color((Abs(Sin(ang)/2.0)+0.5),0,0)
		canvas.Clear( ClearColor )
		
		canvas.DrawText("space to pause / restart", 20, 60 )
		canvas.DrawText("right to go forward a position", 20, 80 )
		canvas.DrawText("left to go backward a position", 20, 100 )

		local Processed:ALint
        alGetSourcei( src, AL_BUFFERS_PROCESSED, Varptr Processed )
		canvas.DrawText("processed "+Processed, 20, 200 )

        while Processed>0 
        
            Local BufID:ALuint

            alSourceUnqueueBuffers( src, 1, Varptr BufID )
			canvas.DrawText("filling buffer "+BufID, 20, 220 )

            fillBuffer(BufID)
        
	        alGetSourcei( src, AL_BUFFERS_PROCESSED, Varptr Processed )
        Wend 		
		xmp_get_frame_info(ctx, Varptr frameInfo)
		
		canvas.DrawText("pos:"+frameInfo.pos, 20, 160 )
		canvas.DrawText("pat:"+frameInfo.pattern, 80, 160 )
		canvas.DrawText("row:"+frameInfo.row, 140, 160 )
		

		
	End Method 
	
	
	
	Method OnKeyEvent( event:KeyEvent ) Override
	
		Select event.Type
		Case EventType.KeyDown
			Select event.Key
				Case Key.Key1
					ang=0
				Case Key.Escape
					' TODO release OpenAL properly here....
					xmp_end_player(ctx)
					xmp_release_module(ctx)
					xmp_free_context(ctx)
					App.Terminate()
				Case Key.Space
					paused = Not paused
					If paused Then 
						alSourcePause( src )
					Else
						alSourcePlay( src )
					End If
				Case Key.Right
					xmp_next_position(ctx)
				Case Key.Left
					xmp_prev_position(ctx)
			End
		End
	End
End Class 

Function Main()

	New AppInstance
	New xmpWindow
	
	ctx = xmp_create_context()
	If ctx = Null Then 
		Print "couldn't get an xmp context"
		Return
	End If

	modData = DataBuffer.Load( "asset::yoafrica-dia.mod" ) 
	'Local modData:DataBuffer = DataBuffer.Load( "asset::JEFF93.IT")
	If xmp_load_module_from_memory(ctx, modData.Data, modData.Length) <> 0 Then 
		Print "couldn't load module"
		Return
	End
	xmp_start_player(ctx, 22500, 0)

	Local device:=alcOpenDevice( Null )
	Assert( device,"Failed to open OpenAL device" )
	
	Local context:=alcCreateContext( device,Null )
	Assert( context,"Failed to create OpenAL context" )
	
	Assert( alcMakeContextCurrent( context ) )
		
	alGenSources( 1,Varptr src )	
	alGenBuffers( 2,Varptr buf[0] )

	fillBuffer(buf[0])
	fillBuffer(buf[1])
		
	alSourcePlay( src )
		
	App.Run()

End Function

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

#import "xmp"

#import "<std>"

#import "<mojo>"

#import "<openal>"

#import "assets/"

Using xmp..

Using std..

Using mojo..

Using openal..

Global ang:Float

global ctx:xmp_context Ptr

Global paused:Bool = False

Global frameInfo:xmp_frame_info

Global modData:DataBuffer

Global buf:=New ALuint[2]

Const bSize:UInt = 1024*5

Global curBuf:Int = 0

Global bufDat1:=New UByte[bSize*4]

Global bufDat2:=New UByte[bSize*4]

Global src:ALuint

Function fillBuffer(buffer:ALuint)

Local p:UByte Ptr

If curBuf=0 Then

curBuf=1

p = Varptr bufDat1[0]

Else

curBuf=0

p = Varptr bufDat2[0]

Endif

xmp_play_buffer(ctx , p, bSize , 0)

alBufferData( buffer, AL_FORMAT_STEREO16, p, bSize, 22500 )

alSourceQueueBuffers( src, 1, Varptr buffer )

End Function

Class xmpWindow Extends Window

Method New()

ClearColor=New Color( 1, 0, 0 )

End Method

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

ang = ang + 0.01

ClearColor= New Color((Abs(Sin(ang)/2.0)+0.5),0,0)

canvas.Clear( ClearColor )

canvas.DrawText("space to pause / restart", 20, 60 )

canvas.DrawText("right to go forward a position", 20, 80 )

canvas.DrawText("left to go backward a position", 20, 100 )

local Processed:ALint

alGetSourcei( src, AL_BUFFERS_PROCESSED, Varptr Processed )

canvas.DrawText("processed "+Processed, 20, 200 )

while Processed>0

Local BufID:ALuint

alSourceUnqueueBuffers( src, 1, Varptr BufID )

canvas.DrawText("filling buffer "+BufID, 20, 220 )

fillBuffer(BufID)

alGetSourcei( src, AL_BUFFERS_PROCESSED, Varptr Processed )

Wend

xmp_get_frame_info(ctx, Varptr frameInfo)

canvas.DrawText("pos:"+frameInfo.pos, 20, 160 )

canvas.DrawText("pat:"+frameInfo.pattern, 80, 160 )

canvas.DrawText("row:"+frameInfo.row, 140, 160 )

End Method

Method OnKeyEvent( event:KeyEvent ) Override

Select event.Type

Case EventType.KeyDown

Select event.Key

Case Key.Key1

ang=0

Case Key.Escape

' TODO release OpenAL properly here....

xmp_end_player(ctx)

xmp_release_module(ctx)

xmp_free_context(ctx)

App.Terminate()

Case Key.Space

paused = Not paused

If paused Then

alSourcePause( src )

Else

alSourcePlay( src )

End If

Case Key.Right

xmp_next_position(ctx)

Case Key.Left

xmp_prev_position(ctx)

End

End Class

Function Main()

New AppInstance

New xmpWindow

ctx = xmp_create_context()

If ctx = Null Then

Print "couldn't get an xmp context"

Return

End If

modData = DataBuffer.Load( "asset::yoafrica-dia.mod" )

'Local modData:DataBuffer = DataBuffer.Load( "asset::JEFF93.IT")

If xmp_load_module_from_memory(ctx, modData.Data, modData.Length) <> 0 Then

Print "couldn't load module"

Return

End

xmp_start_player(ctx, 22500, 0)

Local device:=alcOpenDevice( Null )

Assert( device,"Failed to open OpenAL device" )

Local context:=alcCreateContext( device,Null )

Assert( context,"Failed to create OpenAL context" )

Assert( alcMakeContextCurrent( context ) )

alGenSources( 1,Varptr src )

alGenBuffers( 2,Varptr buf[0] )

fillBuffer(buf[0])

fillBuffer(buf[1])

alSourcePlay( src )

App.Run()

End Function

enjoy!

November 29, 2016 at 4:39 pm in reply to: possible to turn bbGCNode * into class decl #5488

codifies

Participant

guessing you don’t approve of finalisers then? pity would be handy to clean up none GC resources…

November 29, 2016 at 4:24 pm in reply to: libxmp mod music player #5487

codifies

Participant

so there is no way to safely use the sdl callback?

I assume then that openAL is the way to go?

November 23, 2016 at 6:13 pm in reply to: libxmp mod music player #5389

codifies

Participant

in principle yes, there is actually not too much complication, but if you wanted to make a complete tracker it would probably be fairly time consuming, while many of the “mod” formats are documented (to various levels) it would probably be better to create a custom format.

The place to start would be to write a multi channel mixer/pitch bender… SDL makes it reasonably easy, as it provides a callback when it needs a new buffer, (see the callback in the demo)

anyhow bed soon and away for a little while

just to mention if you run in debug mode you’ll get a seg fault, tried to pin it down with gdb but its corrupting stack frames so difficult to see, “seems” ok in release mode, but I’ve even seen behaviour like that with and without gcc’s -g switch so I’d lean to there being some issue for sure…

might look at the “full” libxmp (as opposed to lite) source when I get back…

November 23, 2016 at 8:26 am in reply to: libxmp mod music player #5372

codifies

Participant

@adamstrange ta

@pakz I’ll most likely have a squint again when I get back off my jollies…

Author

Posts

Viewing 15 posts - 121 through 135 (of 202 total)

← 1 … 8 9 10 … 14 →

codifies

Forum Replies Created

Archives

Recent Replies

What is this?