[AdamStrangeParticipant]

what sort of collision issues are you having? Might be able to help

[AdamStrangeParticipant]

YAY. Viva Mortis come second in the SyntaxBomb competition.

 

Jack Deadly (by TheRevills) comes a close third.

[AdamStrangeParticipant]

My personal view is: some people do not like chat or live communication – or any direct communication. Forums provide and nice way to think and store things – provide feedback and code.

[AdamStrangeParticipant]

Nope, not operational

Mojo3d works, so there must be something to do with the GLWindow and the GL stuff that’s not correct anymore

[AdamStrangeParticipant]

That’s very helpful information

I’ll do a quick hack and report back…

[AdamStrangeParticipant]

Thanks. Which version (machine os) did you play?

Any bugs – suggestions?

[AdamStrangeParticipant]

On safari, both don’t work

[AdamStrangeParticipant]

It’s been on the go for a few months, but faithfully replicates the famous system:

This includes directly loading most sample formats from heaps of sources (emu, yamaha, korg, wav, aif and more)

waveform drawing, manipulation, etc and also direct control over parameters as playing and recording.

[AdamStrangeParticipant]

I’m not active on SyntaxBomb anymore after having issues with one of the members, so can’t really help you there. but I am in direct contact with Derron who wishes you all the best

[AdamStrangeParticipant]

Hi John,

Congratulations on finishing your studies. I really hope something comes from it, You deserve every happiness for you and your family.

It was a pleasure to provide some support for you

(I’ll pass on your message to Derron)

Feliz Navidad xx

[AdamStrangeParticipant]

OK. Here’s the core colorTagz code with the loading routines:

Monkey

class ColorTagzCore field Path:string = "" field Count:int = -1 field Active:bool[, ] = New bool[256, 5] field Red:ubyte[, ] = New ubyte[256, 5] field Green:ubyte[, ] = New ubyte[256, 5] field Blue:ubyte[, ] = New ubyte[256, 5] field CurrentColor:int = 0 method AddTagColor:bool( tag:int, col:int, r:ubyte, g:ubyte, b:ubyte ) If tag < 0 or tag > 255 Then Return False If col < 0 or col > 4 Then Return false CurrentColor = col If tag > Count Then Count = tag End If Active[ tag, col ] = true Red[ tag, col ] = r Green[ tag, col ] = g Blue[ tag, col ] = b ' Print tag+" "+r+" "+g+" "+b If r = 0 And g = 0 And b = 0 Then Return False return True End method method Load:bool( path:string ) Local file := Stream.Open( path, "r" ) If Not file Then Return false Local header:string = file.ReadCString() If header = "mx2tagz" Then Path = path Local count:int = file.ReadUInt() Local check1:int = file.ReadUInt() Local check2:int = file.ReadUInt() If check1 <> 9947 or check2 <> 8873 Then Return false ' Print count+" Colors" Count = count If count < 256 Then Local k:int Local red:Ubyte Local green:Ubyte Local blue:Ubyte For k = 0 to count red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 0, red, green, blue ) red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 1, red, green, blue ) red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 2, red, green, blue ) red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 3, red, green, blue ) red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 4, red, green, blue ) next End If End if file.Close() Return true End method End Class

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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

class ColorTagzCore field Path:string = "" field Count:int = -1 field Active:bool[, ] = New bool[256, 5] field Red:ubyte[, ] = New ubyte[256, 5] field Green:ubyte[, ] = New ubyte[256, 5] field Blue:ubyte[, ] = New ubyte[256, 5]   field CurrentColor:int = 0   method AddTagColor:bool( tag:int, col:int, r:ubyte, g:ubyte, b:ubyte ) If tag < 0 or tag > 255 Then Return False If col < 0 or col > 4 Then Return false CurrentColor = col If tag > Count Then Count = tag End If Active[ tag, col ] = true Red[ tag, col ] = r Green[ tag, col ] = g Blue[ tag, col ] = b ' Print tag+"  "+r+" "+g+" "+b   If r = 0 And g = 0 And b = 0 Then Return False return True End method   method Load:bool( path:string ) Local file := Stream.Open( path, "r" ) If Not file Then Return false   Local header:string = file.ReadCString() If header = "mx2tagz" Then Path = path Local count:int = file.ReadUInt() Local check1:int = file.ReadUInt() Local check2:int = file.ReadUInt() If check1 <> 9947 or check2 <> 8873 Then Return false   ' Print count+" Colors" Count = count If count < 256 Then Local k:int Local red:Ubyte Local green:Ubyte Local blue:Ubyte   For k = 0 to count red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 0, red, green, blue )   red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 1, red, green, blue )   red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 2, red, green, blue )   red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 3, red, green, blue )   red = file.ReadUByte() green = file.ReadUByte() blue = file.ReadUByte() AddTagColor( k, 4, red, green, blue ) next End If End if file.Close() Return true End method End Class

[AdamStrangeParticipant]

I’ll up the loading code in the next few days

[AdamStrangeParticipant]

Whilst I agree that making web apps actually work is a good idea. I’m definitely with My Bunny: web based apps are terrible – period!

[AdamStrangeParticipant]

Hola Yue
you have a file called mystuff.monkey

at the top of the main file just:
#Import “mystuff”

[AdamStrangeParticipant]

linux version of ColorTagz is upped as well

[Author]

Posts