Set up graphic output

Author: MaximDude

cccp-bender-main.bmx

@@ -10,21 +10,36 @@ Strict
 Import MaxGUI.Drivers
 Import BRL.FileSystem
 
-AppTitle = "CCCP Bender v0.1"
-
-'App quitting bool
-Global quitResult = False
+'Version
+Global appVersion:String = "0.1"
 
 'File I/O
 Global importedFile:String = Null
 Global fileFilers:String = "Image Files:png,jpg,bmp"
 
 'Output Settings
-Global SCALE:String = "1"
-Global FRAMES:String = "7"
-Global BACKGROUND_RED:String = "255"
-Global BACKGROUND_GREEN:String = "200"
-Global BACKGROUND_BLUE:String = "255"
+Global SCALE:Int = 1
+Global FRAMES:Int = 7
+Global BACKGROUND_RED:Int = 50
+Global BACKGROUND_GREEN:Int = 170
+Global BACKGROUND_BLUE:Int = 255
+Global TILESIZE:Int = 32
+
+'Bools
+Global quitResult = False
+Global mainToWork = False
+Global doDraw = False
+
+'Transition between windows
+Function FAppUpdate()
+	If mainToWork = False
+		If importedFile <> Null Then
+			FAppWork()
+			TGraphicOutput.FGraphicBoot()
+			mainToWork = True
+		EndIf
+	EndIf
+EndFunction
 
 'GUI Elements
 Type TAppGUI
@@ -62,26 +77,183 @@ Type TAppGUI
 	'Workspace Window Instructions Panel
 	Global workHelpPanel:TGadget
 	Global workHelpTextbox:TGadget
+EndType
+
+'Output Window Title
+AppTitle = "CCCP Bender v"+appVersion+" - Output"
+
+'Output Window Elements
+Type TGraphicOutput
+	'Graphic Assets
+	Global sourceImage:TImage
+	Global boneImage:TImage[BONES]
+	'sourceImage = LoadImage(importedFile,0)
 
-	'Tansition between windows bool
-	Global mainToWork = False
+	'Limb Parts
+	Global JointX:Float[BONES]
+	Global JointY:Float[BONES]
+	Global BoneLength:Float[BONES]
+
+	'Precalc for drawing
+	Global Angle[BONES,FRAMES]
+	Global XBone[BONES,FRAMES]
+	Global YBone[BONES,FRAMES]
 
-	'Transition between windows
-	Function FAppUpdate()
-		If mainToWork = False
-			If importedFile <> Null Then
-				FAppWork()
-				mainToWork = True
-			EndIf
+	'Constants
+	Const BONES = 8 
+	Const LIMBS = BONES/2
+	Const UPPER_BONE = 0
+	Const LOWER_BONE = 1
+	Const REL_ANG = 180
+	
+	'Variables
+	Global AngA:Float
+	Global AngB:Float
+	Global AngC:Float
+	
+	Function FLawOfCosines(ab,bc,ca)
+		AngA = ACos((ca^2+ab^2-bc^2)/(2*ca*ab))
+		AngB = ACos((bc^2+ab^2-ca^2)/(2*bc*ab))
+		AngC = 180-(AngA+AngB)
+	End Function	
+		
+	'Create output window and draw assets
+	Function FGraphicBoot()
+		SetGraphicsDriver GLMax2DDriver()
+		Graphics(640,480,0,0,0)
+		'SetScale(SCALE,SCALE)
+		'Window background color
+		SetClsColor(BACKGROUND_RED,BACKGROUND_GREEN,BACKGROUND_BLUE)
+		SetMaskColor(255,0,255)
+		DrawImage(sourceImage,0,0)
+		
+		For Local b = 0 To BONES-1 ' Because I can't (?) set handles on inidividial anim image frames, I must use my own frame sys.
+			boneImage[b] = CreateImage(TILESIZE, TILESIZE, 1, MASKEDIMAGE)
+			GrabImage boneImage[b], b*TILESIZE, 0
+		Next
+		
+		' Bones should be centered on image by setting up a TILESIZE grid in photoshop with a subdiv of 2.
+		' However, I rotate around the upper end of bone.
+		
+		For Local i = 0 To BONES-1		' Set up default bone sizes.
+			JointX[i] = TILESIZE/2
+			JointY[i] = TILESIZE/3.6
+			boneLength[i] = (TILESIZE/2 -JointY[i])*2
+			SetImageHandle(boneImage[i], JointX[i], JointY[i])
+		Next
+		
+		FBend()
+		FDraw()
+		doDraw = True
+		Flip(1)
+		Cls
+	EndFunction
+	
+	'Sprite rotation
+	Function FBend()
+		Local frm = 0
+		Local MaxExtend:Float = 0.99		' 1.0 is not a triangle and might cause trouble?
+		Local MinExtend:Float = 0.30		' Possibly make definable in GUI (slider)
+		Local StepSize:Float = (MaxExtend-MinExtend)/(FRAMES-1) ' -1 to make inclusive of last value (full range)
+		Local b, l, f, x, y, AirLen, UpperLen, LowerLen 
+		For Local l = 0 To LIMBS-1
+			For Local f = 0 To FRAMES-1 
+				b = l*2
+				x = f * TILESIZE + 96
+				y = l * TILESIZE * 1.5 + 200
+				UpperLen = BoneLength[b]	' e.g. upper leg
+				LowerLen = BoneLength[b+1]	' e.g. lower leg
+				AirLen = (StepSize*f + MinExtend) * (UpperLen + LowerLen)	' Sum of the two bones * step scaler for frame. (hip-ankle)
+				FLawOfCosines(AirLen, UpperLen, LowerLen)
+				Angle[b,f] = AngB					' Geez this was kinda tricky, angles upon angles. 
+				XBone[b,f] = x
+				YBone[b,f] = y
+				x:-Sin(Angle[b,f])*UpperLen			' Position of knee.
+				y:+Cos(Angle[b,f])*UpperLen			' Could just use another angle of the triangle though, but I didn't.
+				Angle[b+1,f] = AngC + AngB + 180 	' It looks correct on screen so I'm just gonna leave it at that!
+				XBone[b+1,f] = x
+				YBone[b+1,f] = y
+			Next
+		Next
+	EndFunction
+	
+	Function FSetSpot()
+		Local xm = MouseX()
+		Local ym = MouseY()
+		If ym < (TILESIZE/2-2) And ym > 0 And xm > 0 And xm < TILESIZE*BONES ' Clicked in region? Possibly dupe points for rear limbs. 
+			Local b = xm/TILESIZE
+			JointX[b] = TILESIZE/2 		' X is always at center, so kinda pointless to even bother.
+			JointY[b] = ym				' Determines length
+			boneLength[b] = (TILESIZE/2 -ym)*2
+			SetImageHandle(boneImage[b], JointX[b], JointY[b])	' Rotation handle.
 		EndIf
 	EndFunction
+	
+	'Draw bone marks
+	Function FDrawMark(x,y)
+		SetRotation(0)
+		SetColor(0,0,80)
+		x:+1 y:+1 'add a shade for clarity on bright colours
+		DrawLine(x-2,y,x+2,y)
+		DrawLine(x,y-2,x,y+2)
+		x:-1 y:-1 'Cross
+		SetColor(255,230,80)
+		DrawLine(x-2,y,x+2,y)
+		DrawLine(x,y-2,x,y+2)
+	End Function
+	
+	Function FDraw()
+		SetColor(255,255,255)
+		DrawImage(sourceImage,0,0)
+		SetColor(255,230,80)
+		'Footer text
+		DrawText("TBA",0,480-15)
+		'Draw the + marks.
+		For Local i = 0 To BONES-1
+			FDrawMark(JointX[i]+i*TILESIZE,JointY[i])
+			FDrawMark(JointX[i]+i*TILESIZE,JointY[i]+BoneLength[i])
+		Next
+		
+		SetColor(255,255,255)
+		For Local f = 0 To FRAMES-1	
+			' These might be in a specific draw-order for joint overlapping purposes
+			Local b
+			b = 0 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 1 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 2 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 3 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 4 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 5 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 6 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+			b = 7 SetRotation(Angle[b,f]) DrawImage(boneImage[b],XBone[b,f],YBone[b,f])
+		Next
+
+		SetRotation(0)
+	End Function
+	
+	Function FOutputUpdate()	
+			If MouseDown(1)	Then' Left mouse to adjust bone spots.
+				FSetSpot()
+				FBend()
+				doDraw = True
+			EndIf
+			If doDraw
+				SetClsColor(BACKGROUND_RED,BACKGROUND_GREEN,BACKGROUND_BLUE)
+				FDraw()
+				Flip(1)
+				Cls
+				doDraw = False
+			Else
+				Delay(20)
+			EndIf
+	End Function
 EndType
 
 FAppMain()
 
 Function FAppMain()
 	'Create main app window
-	TAppGUI.mainWindow = CreateWindow("CCCP Bender v0.1",DesktopWidth()/2-150,DesktopHeight()/2-180,300,360,Null,WINDOW_TITLEBAR)
+	TAppGUI.mainWindow = CreateWindow("CCCP Bender v"+appVersion,DesktopWidth()/2-150,DesktopHeight()/2-180,300,360,Null,WINDOW_TITLEBAR)
 
 	'TAppGUI.mainWindowLabel = CreateLabel("",0,0,GadgetWidth(TAppGUI.mainWindow),100,TAppGUI.mainWindow,LABEL_LEFT)
 
@@ -96,7 +268,9 @@ EndFunction
 
 Function FAppWork()
 	'Create workspace window
-	TAppGUI.workWindow = CreateWindow("CCCP Bender v0.1 - Editor",DesktopWidth()/2-152,DesktopHeight()/2-222,305,455,Null,WINDOW_TITLEBAR)	
+	'TAppGUI.workWindow = CreateWindow("CCCP Bender v0.1 - Editor",DesktopWidth()/2-152,DesktopHeight()/2-222,305,455,Null,WINDOW_TITLEBAR)
+	TAppGUI.workWindow = CreateWindow("CCCP Bender v"+appversion+" - Editor",DesktopWidth()/2-640,DesktopHeight()/2-240,305,455,Null,WINDOW_TITLEBAR)
+
 	TAppGUI.workWindowButtonPanel = CreatePanel(10,7,280,57,TAppGUI.workWindow,PANEL_GROUP)	
 	TAppGUI.workLoadButton = CreateButton("Load",5,0,80,30,TAppGUI.workWindowButtonPanel,BUTTON_PUSH)
 	TAppGUI.workSaveButton = CreateButton("Save",95,0,80,30,TAppGUI.workWindowButtonPanel,BUTTON_PUSH)
@@ -133,7 +307,8 @@ Function FAppWork()
 EndFunction
 
 While True
-	TAppGUI.FAppUpdate()
+	FAppUpdate()
+	TGraphicOutput.FOutputUpdate()
 
 	'Print appState
 	'Print SCALE
@@ -145,7 +320,7 @@ While True
 
 	'Event responses
 
-	If TAppGUI.mainToWork = False Then
+	If mainToWork = False Then
 		Select EventID()
 			'Quitting
 			Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
@@ -157,10 +332,11 @@ While True
 						End
 					'Loading
 					Case TAppGUI.mainLoadButton
-						importedFile = RequestFile("Select graphic file to open",fileFilers)	
+						importedFile = RequestFile("Select graphic file to open",fileFilers)
+						TGraphicOutput.sourceImage = LoadImage(importedFile,0)	
 				EndSelect
 		EndSelect
-	ElseIf TAppGUI.mainToWork = True Then
+	ElseIf mainToWork = True Then
 
 		'Quitting
 		If quitResult Then
@@ -180,22 +356,33 @@ While True
 					'Loading
 					Case TAppGUI.workLoadButton
 						importedFile = RequestFile("Select graphic file to open",fileFilers)
-	
+							If importedFile = Null Then
+								TGraphicOutput.sourceImage = LoadImage("no-input.png",0)
+							Else
+								TGraphicOutput.sourceImage = LoadImage(importedFile,0)
+							EndIf
 					'Saving
 					Case TAppGUI.workSaveButton
 						RequestFile("Save graphic file",fileFilers,True)
 
 					'Settings textbox input
 					Case TAppGUI.settingsScaleTextbox
 						SCALE = GadgetText(TAppGUI.settingsScaleTextbox).ToInt()
+						SetScale(SCALE,SCALE)
+						TILESIZE = 32 * SCALE
+						doDraw = True
 					Case TAppGUI.settingFramesTextbox
 						FRAMES = GadgetText(TAppGUI.settingFramesTextbox).ToInt()
+						doDraw = True
 					Case TAppGUI.settingsColorRTextbox
 						BACKGROUND_RED = GadgetText(TAppGUI.settingsColorRTextbox).ToInt()
+						doDraw = True
 					Case TAppGUI.settingsColorGTextbox
 						BACKGROUND_GREEN = GadgetText(TAppGUI.settingsColorGTextbox).ToInt()
+						doDraw = True
 					Case TAppGUI.settingsColorBTextbox
 						BACKGROUND_BLUE = GadgetText(TAppGUI.settingsColorBTextbox).ToInt()
+						doDraw = True
 				EndSelect
 		EndSelect
 	EndIf