Strict

Import mojo
Import sedm.utils

Class Test Extends App
   Field fnt:webFont
   Field mx:Int, my:Int
   
   Method OnCreate:Int()
      Self.fnt = LoadWebFont("Grand Hotel")
      FontSize(Self.fnt, 32)
      
      SetUpdateRate(30)
      
      Return 0
   End
   
   Method OnUpdate:Int()
      Self.mx = MouseX()
      Self.my = MouseY()
      
      Return 0
   End
   
   Method OnRender:Int()
      Cls(60, 90, 120)
      
      Text(Self.fnt, "Hallo Welt", 100, 150)
      
      Shadow(5, 5, 5, 0, 0, 0, 1.0)
      Text(Self.fnt, "Hallo Welt", Self.mx, Self.my)
      Shadow() ' reset shadow
      
      Return 0
   End
End

Function Main:Int()
   New Test()
   Return 0
End