walking animation 3D stuff.

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

WendellM

Nice! Thanks, Yavin.

This might serve as a starting point for putting sequences together in BlitzMax:

Strict
AppTitle = "Swifty"

Const Chars = 94
DefData "`","1","2","3","4","5","6","7","8","9","0","-","="
DefData "~~","!","@","#","$","%","^","&","*","(",")","_","+"
DefData "q","w","e","r","t","y","u","i","o","p","[","]",""
DefData "Q","W","E","R","T","Y","U","I","O","P","{","}","|"
DefData "a","s","d","f","g","h","j","k","l",";","'"
DefData "z","x","c","v","b","n","m",",",".","/"
DefData "A","S","D","F","G","H","J","K","L",":","~q"
DefData "Z","X","C","V","B","N","M","<",">","?"

Local a$[Chars]
For Local n = 0 To Chars - 1
	ReadData a[n]
Next

Graphics 120,200
SetClsColor 255,255,255
SetColor 0,0,0
SetBlend ALPHABLEND

Local swifty:TImageFont = LoadImageFont("swifty.ttf", 180)
If Not swifty Then Notify "Swifty.ttf not found"; End

Repeat
	For Local n = 0 To Chars - 1
		Cls
		SetImageFont Null
		DrawText a[n],10,10
		SetImageFont swifty
		DrawText a[n],10,10
		Flip
		Delay 100
		If AppTerminate() Or KeyDown(KEY_ESCAPE) Then End
	Next
Forever

Compiled/Incbin-ed stand-alone Windows version: http://neonavis.com/swift.zip