Sprite editor 16x16 10 colors

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|643\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Editors

Pakz	Created : 23 April 2016 Edited : 23 April 2016 System : Windows Language : Blitz Sprite editor 16x16 10 colors Outputs monkeyX array to textarea
In Monkey it is not easy to modify the data. (No overwrite) I wrote this to speed up the process. In the code you can see how to turn monkey array code into a blitz array and how to write a monkeyx array. Create your sprite and paste it into your project. It also can be pasted back into the sprite editor. The program reads the code and puts it in the visual editor. at : https://github.com/Pakz001/blitzplusexamples you can find more of my blitz plus code. Global win = CreateWindow("Sprite Edit to Monkey array 16x16 Example",100,100,800,600,0,1) Global txt = Createtext area(0,20,800,600,win) Global tab = CreateTabber(0,0,800,20,win) Global can = CreateCanvas(0,20,800,600,win) Global tw = 640/16 Global th = 480/16 Global mw = 16 Global mh = 16 Dim map(mw,mh) Global canim = CreateImage(800,600) Global brushindex=0 Global cmx Global cmy Global tileim = CreateImage(tw,th,11) For i = 0 To 10 SetBuffer ImageBuffer(tileim,i) Color 200+i3,10+i20,10 Rect 0,0,tw,th,True For x=-1 To 1 For y=-1 To 1 Color 4,4,4 Text tw/2+x,th/2+y,i,1,1 Next Next Color 255,255,255 Text tw/2,th/2,i,1,1 Next InsertGadgetItem tab,0,"text area",0 InsertGadgetItem tab,1,"Canvas",1 Global mytxt$ makemonkeycode Global timer = CreateTimer(60) updateinterface Repeat we = WaitEvent() If we=$201 If EventSource() = can If EventData() = 1 End If End If End If If we=$202 If EventSource() = can If EventData() = 1 If RectsOverlap(cmx,cmy,1,1,680,0,32,11th) brushindex=cmy/th updateinterface End If End If End If End If If we=$203 If EventSource()=can cmx = EventX() cmy = EventY() If MouseDown(1) = True If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)tw,(mh+1)th) map(cmx/tw,cmy/th) = brushindex updateinterface End If End If If MouseDown(2) = True If RectsOverlap(cmx,cmy,1,1,0,0,(mw+1)tw,(mh+1)th) map(cmx/tw,cmy/th) = 0 updateinterface End If End If End If End If If we=$401 If EventSource() = tab sg = SelectedGadgetItem(tab) If sg = 0 makemonkeycode HideGadget can ShowGadget txt End If If sg = 1 readmonkeycode HideGadget txt ShowGadget can updateinterface FlipCanvas can End If End If End If If we=$4001 End If If we=$803 Then Exit Forever End Function updateinterface() SetBuffer ImageBuffer(canim) Cls Color 255,255,255 For y=0 To mh-1 For x=0 To mw-1 DrawImage tileim,xtw,yth,map(x,y) Next Next For y=0 To 10 DrawImage tileim,680,yth,y If brushindex = y Rect 681,yth,31,31,False End If Next SetBuffer CanvasBuffer(can) Cls DrawImage canim,0,0 FlipCanvas can End Function Function makemonkeycode() mytxt$="Global sprite:Int[][] = ["+Chr(13)+Chr(10) For y=0 To mh-1 mytxt$=mytxt$+"[" For x=0 To mw-1 mytxt$=mytxt$+map(x,y) mytxt$=mytxt$+"," Next mytxt$=Left(mytxt$,Len(mytxt$)-1) mytxt$=mytxt$+"]" mytxt$=mytxt$+"," mytxt$=mytxt$+Chr(13)+Chr(10) Next mytxt$=Left(mytxt$,Len(mytxt$)-3) mytxt$=mytxt$+"]" Settext areaText txt,mytxt$ End Function Function readmonkeycode() mytxt$ = text areaText(txt) Local cnt=0 Local stp=1 Local exitloop=False While exitloop=False stp=Instr(mytxt$,",",stp) If stp=0 Then exitloop=True stp=stp+1 cnt=cnt+1 Wend If cnt <> ((mw)(mh)) Then Notify "Not valid map data" Local mytxt2$ Local a$="" Local b$="" Local c$="" For i = 1 To Len(mytxt$) a$=Mid(mytxt$,i,1) If a$="," Then b$=b$+a$ If Asc(a$) >= 48 And Asc(a$)<= 57 Then b$=b$+a$ Next For i=1 To Len(b$) a$=Mid(b$,i,1) If Asc(a$)>=48 And Asc(a$)<=57 c$=c$+a$ End If If a$="," Then map(x,y) = Int(c) c$="" x=x+1 If x>=mw Then x=0:y=y+1 End If Next End Function --v

Comments
Saturday, 23 April 2016, 12:50
Jayenkai	Kewly! You might also want to take a look at my JNKrunch to help "compress" the data a little. Whether it's useful or not, no idea, but it's there if you want to have a play. https://socoder.net/?snippet=35382

Sprite editor 16x16 10 colors

Comments