/LargePicture/Scaling Speed Test
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /LargePicture/Scaling Speed Test
This example is the version from Sat, 6th Mar 2009.
Notes: Last modified: Sat, 6th Mar 2009

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = &Beenden
  Const kEditClear =
End Class

Class Window1
Inherits Window
  // Event implementations
  Sub Open()
    dim l as Picture = LogoMBS(500)
    
    // original
    dim p as new PictureMBS(l)
    
    // destination
    dim q as new PictureMBS(20000,20000,PictureMBS.ImageFormatRGB, 150000000, SpecialFolder.Temporary.Child("q.data"))
    
    // temporary
    dim t as new PictureMBS(20000,20000,PictureMBS.ImageFormatScaling, 150000000, SpecialFolder.Temporary.Child("t.data"))
    
    dim n as integer=ticks
    dim b as Boolean= q.Scale(p, t, q.ScaleBox, 20000,20000)
    n=ticks-n
    
    if b then
      MsgBox "OK "+str(n/60/60)+" minutes"
    else
      MsgBox "Failed "+str(n/60/60)+" minutes"
    end if
    
    
  End Sub
End Class