Sprite System Demo 1 Update

BlitzMax Forums/BlitzMax Programming/Sprite System Demo 1 Update

sswift

(Posted 2009) [#1]

If you bought my sprite system recently, and were unable to get the demos to run because they're so out of date, I took a moment to update demo 1 to use the latest version of the sprite system.

Here's the code for that:

	Include "Swift Sprite System-131.bmx"


	Graphics 800, 600, 32
	SetBlend(ALPHABLEND)
	
	AutoMidHandle True

	Marble:TImage = LoadImage("marble-001.png")
	
	If Marble = Null 
		DebugLog("Could not load sprite image!")
		End
	EndIf
	
	S1:Sprite = Sprite.Create(Marble)
	S2:Sprite = Sprite.Create(Marble)
	S3:Sprite = Sprite.Create(Marble)
		
	S2.SetParent(S1)
	S3.SetParent(S2)

	S1.SetPosition(400, 300)
	S1.Rotate(45)
					
	S2.SetPosition(64, 0)
	S2.SetScale(0.5)
	S2.SetAlpha(0.5)
	S2.Rotate(45)
	
	S3.SetPosition(64, 0)
	S3.SetScale(0.5)
	S3.SetAlpha(0.5)	
	S3.Rotate(45)
	
	' Test to see if unparent while retaining position, and reparenting while retaining position work properly.
	' If the resulting image after commenting this out is the same as when it is not commented out, things are working properly.
	
	'	Parent:Sprite = S3.Parent()
	'	S3.SetParent(Null, True)						
	'	S3.SetParent(Parent, True)
										
	Current_Time	 = MilliSecs()
	Game_Start_Time  = Current_Time
						
	Repeat
		
		Repeat 
			Time_Old		= Current_Time						' Store start time of last frame.
			Current_Time 	= MilliSecs()						' Get the current time.  Use this instead of Millisecs() from here on if you need the time.
			Time_Delta 	= Current_Time - Time_Old			' Calculate how long last frame took to render, in milliseconds.
			Time_Delta_Sec# = Float(Time_Delta)/1000.0			' Convert frame time to seconds.
		Until (Time_Delta > 0) And (Time_Delta < 250)			' Handle unnaturally long pauses between frames gracefully.

		Sprite.SetTimeStep(Time_Delta)									' Set the timestep for the sprites this frame.
	
		S1.Rotate(360.0*Time_Delta_Sec#)
		S2.Rotate(90.0*Time_Delta_Sec#)
		
		Sprite.Update() 												' Animate sprites, do physics.

		SetClsColor 0, 0, 0												' Clear screen and draw sprites.
		Cls
			
		Sprite.DrawAll()												' Draw the sprites.

		FPS = 1000.0 / Float(Time_Delta)
		DrawText FPS, 16, 16
	
		Flip 
	
	Until KeyHit(KEY_ESCAPE)

Also, if you're missing mergesort-002.bmx, that function is no longer neccessary as merge sorts were implemented in the latest version of BlitzMax.

Just comment out the line that calls MergeSort() in Sprite.DrawAll() and uncomment the line above it which calls the standard list sort, and everything will be fine.

popcade

(Posted 2009) [#2]

Hi, SSwift

The last version I got is Swift_Sprite_System-121.bmx, how do I get the latest version?

sswift

(Posted 2009) [#3]

Email me at the address in my profile.

Kanati

(Posted 2011) [#4]

Holy thread resurrection, Batman!

Anyone still use swift's system and have any demos other than this one that work with v131?

I manged to cobble the other demos into a working order but nothing with animate or physics actually WORK.