transparent png to polygon converter - solved

' to poly verts
		' Function DrawPoly:Int( verts:Float[] )
		Local tmpI:Int = 0
		For Local point:Point = Eachin points2
			verts[tmpI] = point.x
			tmpI=tmpI+1
			verts[tmpI] = point.y
			tmpI=tmpI+1
		Next

Strict

Import mojo
Import opengl.gles11

Function Main:Int()
	New MyApp()
	Return 0
End

Class MyApp Extends App
	Field thing:Sprite
		
	Method OnCreate:Int()			
		SetUpdateRate(60)
		thing = New Sprite()
		Return 0
	End
	
	Method OnUpdate:Int()
		Return 0
	End
	
	Method OnRender:Int()
		Cls(255,255,255)

		thing.Draw(0,0)
		Return 0
	End
End



Class Sprite
	Field image:Image
	Field tmp:Image
	Field points:Stack<Point> = New Stack<Point>()
	Field points2:Stack<Point> = New Stack<Point>()
	Field verts:Float[60]

	Method New()
		image = LoadImage("test-col.png")

		Local size:Int[2]
		Local data:Int[] = PixelArray.Get("test-col.png", size)

		tmp = CreateImage(size[0], size[1])
		Local x:Int = 0
		Local y:Int = 0

		Local prevX:Int = -1
		Local prevY:Int = -1
		Local testVertical:Bool = False
		Local testHorzontal:Bool = True

		For Local j:Int = 0 Until data.Length
			Local color:Int[] = PixelArray.GetARGB(data[j])

			If color[0]>0 Then
				Local r:Int = 0
				Local g:Int = 0
				Local b:Int = 255
				Local a:Int = 255
								
				Local color:Int
				color |= (a & $FF) Shl 24
				color |= (r & $FF) Shl 16
				color |= (g & $FF) Shl 8
				color |= (b & $FF)

				data[j] = color

				' transparant END

				If testHorzontal Then
					points.Push(New Point(x,y))
					testVertical = True
					testHorzontal = False
				end
			Else
				' transparant START

				If testVertical Then
					points.Push(New Point(x-1,y))
					testVertical = False
					testHorzontal = True
				End
			End

			If x=size[0]-1 Then
				x = 0
				y = y+1
			Else
				x = x+1
			End
		Next

		' REMOVE STRAIGT LINES... 
		Local xyMap:FloatMap<Float> = New FloatMap<Float>()
		Local endedWithTheSame:Bool = False
		Local lastY:Float
		Local xMap:FloatMap<Float> = New FloatMap<Float>()

		For Local point:Point = Eachin points
			If xyMap.Contains(point.x) Then
				xMap.Add(point.x,point.y)
				endedWithTheSame = True
				lastY = point.y
			Else
				For Local it:=EachIn xMap
					Print it.Key+","+it.Value
					points2.Push(New Point(it.Key,lastY))
				Next

				xyMap.Add(point.x,point.y)
				points2.Push(New Point(point.x,point.y))

				xMap.Clear()
				Print ""
			End
		Next
		If endedWithTheSame Then
			For Local it:=EachIn xMap
				points2.Push(New Point(it.Key,lastY))
			Next
		End

		' to poly verts
		' Function DrawPoly:Int( verts:Float[] )
		Local tmpI:Int = 0
		For Local point:Point = Eachin points2
			verts[tmpI] = point.x
			tmpI=tmpI+1
			verts[tmpI] = point.y
			tmpI=tmpI+1
		Next


		' Print size[1]
		tmp.WritePixels(data, 0, 0, size[0], size[1])
	End
	


	Method Draw:Void(px:Float, py:Float)
		DrawImage(tmp,250,250)

		SetColor(255,0,0)
		For Local point:Point = Eachin points
			DrawPoint(point.x,point.y)
		Next

		SetColor(0,255,0)
		For Local point:Point = Eachin points2
			DrawCircle(point.x,point.y,3)
		Next


		DrawPoly(verts)
	End
	
End

Class Point
	Field x:Float
	Field y:Float
	Method New(_x:Float,_y:Float)
		x=_x
		y=_y
	End
End

Class PixelArray
	'Summary:  Loads an ARGB image into an array of ints.
	Function Get:Int[] (path:String, info:Int[])
		Local data:Int[]
		Local db:DataBuffer = LoadImageData("monkey://data/" + path, info)
			
		'Local timeSpent:Int = Millisecs()
		
		'Copy the data buffer into an array.
		 data = data.Resize(db.Length / 4)  '32-bits = 4 bytes
	
		'We need to swap bytes of R and B channels around.
		For Local i:Int = 0 Until db.Length Step 4
			Local j:Int = db.PeekInt(i)
			
			data[i / 4] = (j & $ff000000) | ((j & $00ff0000) Shr 16) | (j & $0000ff00) | ((j & $000000ff) Shl 16)
		Next
	
		'Print "Operation took " + (Millisecs() -timeSpent) + "ms"
		
		Return data
	End Function
	
	'Summary:  Loads a section of an ARGB image into an array of ints.
	Function Get:Int[] (path:String, startX:Int, startY:Int, w:Int, h:Int)
		Local data:Int[]
		Local info:Int[2]
		Local db:DataBuffer = LoadImageData("monkey://data/" + path, info)
			
		'Local timeSpent:Int = Millisecs()
		
		'Copy the data buffer into an array.
		 data = data.Resize(w * h)
	
		'We need to swap bytes of R and B channels around.
		For Local y:Int = 0 Until h
			For Local x:Int = 0 Until w
				Local j:Int = db.PeekInt( ( (startY + y) * info[0] + (startX + x)) * 4)
				
				data[y * w + x] = (j & $ff000000) | ( (j & $00ff0000) Shr 16) | (j & $0000ff00) | ( (j & $000000ff) Shl 16)
			Next
		Next
		
		'Print "Operation took " + (Millisecs() -timeSpent) + "ms"
		
		Return data
	End Function

	'Summary:  Crops a 1d pixel array to the specified rectangle.  Width of image in data must be specified.	
	Function Crop:Int[] (pixeldata:Int[], strideWidth:Int, startX:Int, startY:Int, w:Int, h:Int)
		Local output:Int[w * h]
	
		For Local y:Int = 0 Until h
			For Local x:Int = 0 Until w
				output[y * w + x] = pixeldata[ (y + startY) * strideWidth + (x + startX)]
			Next
		Next
		
		Return output
	End Function

	'Summary:  Grabs a color from an ARGB value and returns an array [A,R,G,B].	
	Function GetARGB:Int[] (argb:Int)
		Local out:Int[4]
		out[3] = (argb) & $FF
		out[2] = (argb Shr 8) & $FF
		out[1] = (argb shr 16) & $FF
		out[0] = (argb shr 24) & $FF
		
		Return out
	End Function
	
	'Summary:  Returns an ARGB value from the colors specified.
''	Function ToARGB:Int(a, r, g, b)
''		Return (r Shl 24) + (g Shl 16) + (b Shl 8) + a
		
	'	Local color:Int
	''	color |= (a & $FF) Shl 24
	''	color |= (r & $FF) Shl 16
	''	color |= (g & $FF) Shl 8
	''	color |= (b & $FF)
	''	Return color
''	End Function
	
	Function ToARGB:Int(color:Int[])
		Local out:Int
		out |= (color[0] & $FF) Shl 24
		out |= (color[1] & $FF) Shl 16
		out |= (color[2] & $FF) Shl 8
		out |= (color[3] & $FF)
		Return color		
	End Function
End Class