PureBoard

Code: Alles auswählen

EnableExplicit

XIncludeFile "nautilus.pbi"

Procedure.i Main()
  Protected *engine.NAUTILUS_ENGINE
  Protected delta.f
  Protected text.s
  Protected *index.Ascii
  Protected x.f
  Protected y.f
  Protected s.f
  text = "Hello World!"
  *engine = nautilusWindow(#Null$,1080,720,#NE_WINDOW_NORMAL,200,100)
  If *engine
    *engine\DrawTextResize(8,8)
    Repeat
      *engine\RenderBegin(@delta)
      For *index = @text To @text + 22 Step 2
        y = 45 + Sin((x + s) * 50)
        x = 40 + (*index - @text) * 5 
        *engine\DrawTextMod(x - 1,y,Chr(*index\a),20 + y - 55,8,#False,#False,#Null,$FFAAFFB1)
        *engine\DrawTextMod(x,y,Chr(*index\a),20 + y - 55,8,#False,#False,#Null,$FFAAFFB1 >> Int(*index + y + x) << 8)
      Next
      s + 0.005 * delta
      *engine\RenderEnd()
    Until *engine\WindowExit()
    *engine\Release()
  EndIf
  ProcedureReturn #Null
EndProcedure

Main()

End