Easily make your own animated flash movie from PB

Share your advanced PureBasic knowledge/code with the community.
Post Reply
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Easily make your own animated flash movie from PB

Post by ricardo »

Thanks to Kiffi and srod help i finally find the errors on my code and now we can make flash movies from PB, in a very easy way.

Download and register the bukoo dll (im hosting it because cant find it online anymore since the sourceforge project seams to be dead) http://yenerich.com/swfobjs.rar
*I hope this dll can be hosted on PuraArea to avoid the risk of broken links, just a suggestion.


Example:

Code: Select all

IncludePath "..\"
XIncludeFile "COMate.pbi"

Define Movie.COMateObject 
Define pic.COMateObject 
Define MyFont.COMateObject
Define Texto.COMateObject 
Define MyRectangle.COMateObject

Fname.s =  "PureBasicTest.swf" 

;Make the main movie
Movie = COMate_CreateObject("swfobjs.swfMovie") 

Movie\Invoke("SetSize(5325, 6000)") 
Movie\Invoke("SetFrameBkColor(255, 255, 255)") 
Movie\Invoke("SetFrameRate(20)") 


MyRectangle = COMate_CreateObject("swfobjs.swfObject") 
MyRectangle\Invoke("MakeRectangle(0, 0, 4000, 4680)")
MyRectangle\Invoke("SetRadialFill(255, 255, 255, 255, 255, 50, 224, 255)")
MyRectangle\Invoke("SetRadialFillCenter (3190, 1895)")
MyRectangle\Invoke("SetDepth(0)")

Debug COMate_GetLastErrorDescription() 
Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")

For i = 1 To 200
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(MyRectangle) + " As COMateObject)")
  MyRectangle\Invoke("Rotate(" + Str(655360 * i) + ")")
  Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")
Next


;We create a font
MyFont = COMate_CreateObject("swfobjs.swfObject") 

MyFont\Invoke("MakeFont('Arial')")

;We create the text 
Texto = COMate_CreateObject("swfobjs.swfObject")

Letra$ = "PureBasic"

MyFont\Invoke("AddGlyph('Arial', '" + Letra$ + "', " + Str(Asc("" + Letra$ + "")) + ")")

Texto\Invoke("MakeTextEx('" + Letra$ + "', " + Str(MyFont) + "  As COMateObject, 10, 2650, 800)")
Texto\Invoke("SetSolidFill(100, 0, 100, 100)")
Movie\Invoke("GotoFrame(20)")
Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")

For i = 50 To 400
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(Texto) + " As COMateObject)")
  Texto\Invoke("Rotate(" + Str(-655360 * i) + ")")
  Texto\Invoke("Scale(" + Str(655 * (i*2)) + "," + Str(655 * (i*2)) + ")")
  Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")
Next

Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)") 


Movie\Invoke("WriteMovie('" + Fname + "')")
I know many of you will have much fun playing with this :)
Top
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Post by ricardo »

A very small addition, that changes the color of the text on runtime

Code: Select all

IncludePath "..\"
XIncludeFile "COMate.pbi"

Define Movie.COMateObject 
Define pic.COMateObject 
Define MyFont.COMateObject
Define Texto.COMateObject 
Define MyRectangle.COMateObject

Fname.s =  "PureBasicTest.swf" 

;Make the main movie
Movie = COMate_CreateObject("swfobjs.swfMovie") 

Movie\Invoke("SetSize(5325, 6000)") 
Movie\Invoke("SetFrameBkColor(255, 255, 255)") 
Movie\Invoke("SetFrameRate(20)") 


MyRectangle = COMate_CreateObject("swfobjs.swfObject") 
MyRectangle\Invoke("MakeRectangle(0, 0, 4000, 4680)")
MyRectangle\Invoke("SetRadialFill(255, 255, 255, 255, 255, 50, 224, 255)")
MyRectangle\Invoke("SetRadialFillCenter (3190, 1895)")
MyRectangle\Invoke("SetDepth(0)")

Debug COMate_GetLastErrorDescription() 
Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")

For i = 1 To 200
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(MyRectangle) + " As COMateObject)")
  MyRectangle\Invoke("Rotate(" + Str(655360 * i) + ")")
  Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")
Next


;We create a font
MyFont = COMate_CreateObject("swfobjs.swfObject") 

MyFont\Invoke("MakeFont('Arial')")

;We create the text 
Texto = COMate_CreateObject("swfobjs.swfObject")

Letra$ = "PureBasic"

MyFont\Invoke("AddGlyph('Arial', '" + Letra$ + "', " + Str(Asc("" + Letra$ + "")) + ")")

Texto\Invoke("MakeTextEx('" + Letra$ + "', " + Str(MyFont) + "  As COMateObject, 10, 2650, 800)")
Texto\Invoke("SetSolidFill(100, 0, 100, 100)")
Movie\Invoke("GotoFrame(20)")
Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")

For i = 50 To 400
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(Texto) + " As COMateObject)")
  Texto\Invoke("SetSolidFill(100, " + Str(i*2) + ", 100, 100)") ; <<<<<<<<
  Texto\Invoke("Rotate(" + Str(-655360 * i) + ")")
  Texto\Invoke("Scale(" + Str(655 * (i*2)) + "," + Str(655 * (i*2)) + ")")
  Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")
Next

Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)") 


Movie\Invoke("WriteMovie('" + Fname + "')")
Top
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Post by ricardo »

Another addition, when clicking the "purebasic" text it will open a webpage

Code: Select all

IncludePath "..\"
XIncludeFile "COMate.pbi"

Define Movie.COMateObject 
Define pic.COMateObject 
Define MyFont.COMateObject
Define Texto.COMateObject 
Define MyRectangle.COMateObject
Define ActionButton.COMateObject
Define MyAction.COMateObject

Fname.s =  "PureBasicTest.swf" 

;Make the main movie
Movie = COMate_CreateObject("swfobjs.swfMovie") 

Movie\Invoke("SetSize(5325, 6000)") 
Movie\Invoke("SetFrameBkColor(255, 255, 255)") 
Movie\Invoke("SetFrameRate(20)") 


MyRectangle = COMate_CreateObject("swfobjs.swfObject") 
MyRectangle\Invoke("MakeRectangle(0, 0, 4000, 4680)")
MyRectangle\Invoke("SetRadialFill(255, 255, 255, 255, 255, 50, 224, 255)")
MyRectangle\Invoke("SetRadialFillCenter (3190, 1895)")
MyRectangle\Invoke("SetDepth(0)")


Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")

For i = 1 To 400
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(MyRectangle) + " As COMateObject)")
  MyRectangle\Invoke("Rotate(" + Str(655360 * i) + ")")
  Movie\Invoke("AddObject(" + Str(MyRectangle) + " As COMateObject)")
Next


;We create a font
MyFont = COMate_CreateObject("swfobjs.swfObject") 

MyFont\Invoke("MakeFont('Arial')")

;We create the text 
Texto = COMate_CreateObject("swfobjs.swfObject")
Letra$ = "PureBasic"
MyFont\Invoke("AddGlyph('Arial', '" + Letra$ + "', " + Str(Asc("" + Letra$ + "")) + ")")

Texto\Invoke("MakeTextEx('" + Letra$ + "', " + Str(MyFont) + "  As COMateObject, 10, 2650, 800)")
Texto\Invoke("SetSolidFill(100, 0, 100, 100)")
Movie\Invoke("GotoFrame(20)")
Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")

;Lets add an action to a text!
ActionButton = COMate_CreateObject("swfobjs.swfObject")
MyAction = COMate_CreateObject("swfobjs.swfAction")

ActionButton\Invoke("MakeButtonSimple(" + Str(Texto) + "  As COMateObject, 0, 0, 255, 0, 128, 128, 0, 0)")
MyAction\Invoke("MakeActionGotoURL('http://www.purebasic.com')") ; Could be javascript:hello()
ActionButton\Invoke("QueueEvent(" + Str(MyAction) + "  As COMateObject, 7)") ;8 mousein, 7 mouse click
Movie\Invoke("AddObject(" + Str(ActionButton) + " As COMateObject)")


For i = 50 To 400
  Movie\Invoke("GotoFrame(" + Str(i) + ")")
  Movie\Invoke("RemoveObject(" + Str(Texto) + " As COMateObject)")
  Texto\Invoke("SetSolidFill(100, " + Str(i*2) + ", 100, 100)")
  Texto\Invoke("Rotate(" + Str(-655360 * i) + ")")
  Texto\Invoke("Scale(" + Str(655 * (i*2)) + "," + Str(655 * (i*2)) + ")")
  Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)")
Next

Movie\Invoke("AddObject(" + Str(Texto) + " As COMateObject)") 



Movie\Invoke("WriteMovie('" + Fname + "')")
Top
Mistrel
Addict
Addict
Posts: 3415
Joined: Sat Jun 30, 2007 8:04 pm

Post by Mistrel »

Is there a similar interface for making a flash player capable of playing streaming video?
Top
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Post by ricardo »

Mistrel wrote:Is there a similar interface for making a flash player capable of playing streaming video?
Not with this one.
You need to port MING.
http://www.libming.org

BTW, anyboy has any idea on how to do that about MING lib?
Top
Amundo
Enthusiast
Enthusiast
Posts: 200
Joined: Thu Feb 16, 2006 1:41 am
Location: New Zealand

Post by Amundo »

I hate to be a necroposter, but this is wicked ricardo, thanks for sharing!
Win10, PB6.x, okayish CPU, onboard video card, fuzzy monitor (or is that my eyesight?)
"When the facts change, I change my mind" - John Maynard Keynes
Top
Post Reply

Return to “Tricks 'n' Tips”