Import mojo

Extern
   Function Rescale:Int()="(function(){var canvas=document.getElementById('GameCanvas'); canvas.width=window.innerWidth; canvas.height=window.innerHeight;})"
Public

Function Main:Int()
   New Fullscreen
End Function

Global wscale:Float, hscale:Float, scale:Float
Global width:Int, height:Int
Global offx:Int, offy:Int

Class Fullscreen Extends App
   Method OnCreate()
      SetUpdateRate(50)
   End Method
   
   Method OnUpdate:Int()

   End Method
   Method OnRender()
      Rescale()
   
      wscale = DeviceWidth / 640.0
      hscale = DeviceHeight / 480.0
      scale = Min(wscale, hscale)
      width = 640*scale
      height = 480*scale
      offx = (DeviceWidth-width)/2
      offy = (DeviceHeight-height)/2
   
      Cls(0,0,0)
      
      PushMatrix()
      Translate(offx, offy)
      Scale(scale, scale)
      
      SetScissor(0,0, 640,480)
      Cls(255,128,128)
      
      DrawRect(20,20,600,440)

      DrawText(DeviceWidth,20,200)
      DrawText(DeviceHeight,20,220)

      SetScissor(20,20,100,100)
      Cls(128,128,255)
      
      PopMatrix()
   End Method
End Class

Function SetScissor(pX:Int, pY:Int, pW:Int, pH:Int)
   ' Opera-Version
   'graphics.SetScissor(pX*scale +offx, pY*scale +offy, pW*scale, pH*scale)
   ' Chrome-Version
   graphics.SetScissor(pX, pY, pW, pH)
End Function

if (typeof opera == "undefined") {
// normaler Code
} else {
// spezieller Opera-Code
}

var a = 0.1, b = -0.3, c = 7.0, d = 3.1, e = 99, f = -2;
for (var i = 0; i < 100000; i++) {
    var x = 5, y = 5;
    var x_ = x * a + y * b + c;
    y = x * d + y * e + f;
    x = x_;
}

Function DrawImage(...)
    graphics.DrawImage(pImg, x*scale+transx, y*scale+transy, 0, scale, scale, pFrame)
End Function