ColorTagz

[AdamStrangeParticipant]

Small app I’m working on.
Drag drop image, pick colors to make a tag

Attachments:

1. 

   Screenshot-2018-10-07-at-08.25.00.png
   

[AdamStrangeParticipant]

More or less getting finished now with added help, color spreads, ability to nudge colors up/down in tone.
Loading and saving now complete with loading of (jasc) .pal and .mx2palette files.

I’ve created a number of ‘default’ colortagz to play with and now need to work on image export 🙂

Then I’ll begin importing of the colortagz code into my other editors

[AdamStrangeParticipant]

first look at FontSprite editor with new ColorTagz loaded

[AdamStrangeParticipant]

Almost finished now:

You can see an image has been dropped and some colors picked from the image.

The toolbar has 2 extra ‘export’ icons for exporting the results as images:
the current ColorTag:

and also the colorTagz that have been defined

One the export is completely finished I will also up the loading code 🙂

[coconParticipant]

Really great design, I can get many ideas from this.

[AdamStrangeParticipant]

🙂

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

[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

[Author]

Posts