Sine scroller

[GwenelParticipant]

Monkey

' Sine scroller example ' Download https://opengameart.org/content/bitmap-font-pack ' Unpack and put the files in the assets folder Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "assets/" Using std.. Using mojo.. ' Main code Function Main() ' These are needed to trigger the Class we defined (actually extended by overwriting a few methods that Monkey2 already defined, very special methods; NEW and OnRender) New AppInstance New MyApp ' This triggers New App.Run() End ' Define a class, not any class but one that extends Monkey2's functionality Class MyApp Extends Window Field cnvs : Canvas Field img : Image Field Sine : Int Field ScrollText : String Field PixelPos : Int Field Pos: Int Field CharPos : Int Field Char : Int ' Overwrite a special and already-existing method in this class called new also called constructors as they are triggered whenever using the NEW keyword, it doubles as an init as it runs only once * Method New( title:String="Sine scroller",width:Int=800,height:Int=600,flags:WindowFlags=Null ) Super.New( title,width,height,flags) img = New Image(944,16) cnvs = New Canvas(img) img = Image.Load("asset::kromasky_16x16.png") ScrollText = " " ScrollText = ScrollText + "A SIMPLE SINE SCROLLER ROUTINE" ScrollText = ScrollText + " " End ' Overwrite a special and already-existing method in this class called OnRender. This is a native functionality that handles graphics which is triggered 60 times a second, this can be changed. Method OnRender( canvas:Canvas ) Override App.RequestRender() ' call standard Monkey2 code canvas.Clear(Color.Black) PixelPos = PixelPos + 2 Sine = Sine - 2 Mod 360 If PixelPos > 16 Then PixelPos = PixelPos Mod 16 ; CharPos = CharPos + 1 If CharPos > ScrollText.Length - 52 Then CharPos = 1 Local Adder : Int =0 ' Instead of defining a Field we can do this if we don't need something as a field. Pos = -16 Pos = Pos - PixelPos Repeat Char = (ScrollText.Mid(CharPos+Adder,1)[0] - 32) * 16 For Local temp:Int = 0 To 15 canvas.DrawRect(Pos+temp,256+(Sin(Deg2Rad(Sine+Pos+temp)) * 32),1,16,img,Char+temp,0,1,16) ' img is the sourceimage containing font strip Next Adder = Adder + 1 Pos = Pos + 16 Until Pos >= 800 cnvs.Flush() End ' These are just handy functions Function Rad2Deg:Double(x:Double) Const DegreeScalar := (180.0 / Pi) Return (x * DegreeScalar) End Function Deg2Rad:Double(x:Double) Const RadianScalar := (Pi / 180.0) Return (x * RadianScalar) End Function Cosd:Double(x:Double) Return Cos(Rad2Deg(x)) End Function Sind:Double(x:Double) Return Sin(Rad2Deg(x)) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

' Sine scroller example   ' Download https://opengameart.org/content/bitmap-font-pack ' Unpack and put the files in the assets folder   Namespace Myapp #Import "<std>" #Import "<mojo>" #Import "assets/" Using std.. Using mojo..   ' Main code Function Main() ' These are needed to trigger the Class we defined (actually extended by overwriting a few methods that Monkey2 already defined, very special methods; NEW and OnRender) New AppInstance New MyApp ' This triggers New App.Run() End   ' Define a class, not any class but one that extends Monkey2's functionality Class MyApp Extends Window Field cnvs : Canvas Field img : Image Field Sine : Int Field ScrollText : String Field PixelPos : Int Field Pos: Int Field CharPos : Int Field Char : Int   ' Overwrite a special and already-existing method in this class called new also called constructors as they are triggered whenever using the NEW keyword, it doubles as an init as it runs only once * Method New( title:String="Sine scroller",width:Int=800,height:Int=600,flags:WindowFlags=Null ) Super.New( title,width,height,flags) img = New Image(944,16) cnvs = New Canvas(img) img = Image.Load("asset::kromasky_16x16.png") ScrollText = "                                                   " ScrollText = ScrollText + "A SIMPLE SINE SCROLLER ROUTINE" ScrollText = ScrollText + "                                                   " End   ' Overwrite a special and already-existing method in this class called OnRender. This is a native functionality that handles graphics which is triggered 60 times a second, this can be changed. Method OnRender( canvas:Canvas ) Override App.RequestRender() ' call standard Monkey2 code canvas.Clear(Color.Black) PixelPos = PixelPos + 2 Sine = Sine - 2 Mod 360 If PixelPos > 16 Then PixelPos = PixelPos Mod 16 ; CharPos = CharPos + 1 If CharPos > ScrollText.Length - 52 Then CharPos = 1 Local Adder : Int =0 ' Instead of defining a Field we can do this if we don't need something as a field. Pos = -16 Pos = Pos - PixelPos    Repeat Char = (ScrollText.Mid(CharPos+Adder,1)[0] - 32) * 16 For Local temp:Int = 0 To 15 canvas.DrawRect(Pos+temp,256+(Sin(Deg2Rad(Sine+Pos+temp)) * 32),1,16,img,Char+temp,0,1,16) ' img is the sourceimage containing font strip Next Adder = Adder + 1 Pos = Pos + 16 Until Pos >= 800 cnvs.Flush() End ' These are just handy functions Function Rad2Deg:Double(x:Double) Const DegreeScalar := (180.0 / Pi) Return (x * DegreeScalar) End Function Deg2Rad:Double(x:Double) Const RadianScalar := (Pi / 180.0) Return (x * RadianScalar) End Function Cosd:Double(x:Double) Return Cos(Rad2Deg(x)) End Function Sind:Double(x:Double) Return Sin(Rad2Deg(x)) End End

[Author]

Posts