Flip Image Horizontally Code Thingy

Community Forums/Showcase/Flip Image Horizontally Code Thingy

therevills

(Posted 2009) [#1]

Ive just been doing some pixel art and drew the character facing right, I didn't want to go thru the processing of copy and flipping each frame individually, so I wrote this piece of code:

SuperStrict
Local sw%=640, sh%=480

Print "Start..."

Local ws$ = Input ("Please input width:")
Local hs$ = Input ("Please input height:")
Local fs$ = Input ("Please input number of frames:")

Local w% = ws.ToInt()
Local h% = hs.ToInt()
Local f% = fs.ToInt()	

Print "w >"+w
Print "h >"+h
Print "f >"+f
	
Local testfile$ = RequestFile("Please select your image")
If testfile ="" Print "Error..."
If testfile ="." Or testfile =".." Print "Error..."
	
' only load pngs
If Lower(ExtractExt(testfile))<> "png"
	testfile = ""
	Print "Error..."
EndIf

If w > sw Then sw = w
If h > sh Then sh = h

Graphics sw,sh,0

If testfile>"" Then
	Local fileok%
	Print "Loading.... "+testfile
	Local piximage:TPixmap = LoadPixmap (testfile)


	Local image:TImage = LoadAnimImage (testfile, w, h, 0, f)
	
	If image = Null
		Print "Error loading image..."+testfile
		fileok = False
	Else
		fileok = True
	EndIf
	
	If fileok
		Local im:TImage=CreateImage(w,h,f,DYNAMICIMAGE|MASKEDIMAGE)
		' to put the frames back to front
'		For Local i% = 0 To f - 1
'			Cls
'			DrawImage image,0,0,i
'			GrabImage im,0,0,(f - 1) - i
'		Next
		For Local i% = 0 To f - 1
			Cls
			SetScale -1,1
			DrawImage image,w,0,i
			GrabImage im,0,0,i
		Next
		SetScale 1,1
		
		Local pixmaps:TPixmap[]=im.pixmaps

		Local array%[w,h,f]
		
		Local Tmp:TPixmap=CreatePixmap:TPixmap(w * f, h, PixmapFormat(piximage))
		' store the pixels into an array
		For Local i% = 0 To f - 1
			For Local x% = 0 To w - 1
				For Local y% = 0 To h -1	
					Local argb:Int=ReadPixel(pixmaps[i],x,y)
					array[x,y,i] = argb
				Next
			Next
		Next
		For Local i% = 0 To f - 1		
			For Local x% = 0 To w - 1
				For Local y% = 0 To h -1
					Local argb% = array[x,y,i]
					WritePixel(Tmp , x + (w*i) , y ,argb)
				Next
			Next
		Next		
		SavePixmapPNG(Tmp,testfile+"_copy.png", 9)
		
	EndIf
	Print "Done..."
EndIf

Input the width, height and number of frames and it will load your image, flip each frame individually and join the image back together and saves it as filename_copy.png.

jkrankie

(Posted 2009) [#2]

what's wrong with scaleimage -1,1, or is it not suitable for your purposes?

Cheers
Charlie

Brucey

(Posted 2009) [#3]

what's wrong with scale -1,1

Heh ;-)

therevills

(Posted 2009) [#4]

Im just so use of doing this to images, I sometimes forget you can do that with setscale... although in this code I used it.

Also some languages dont have that cool feature...