example_01.bmx 469 B

123456789101112131415161718192021222324252627282930313233
  1. SuperStrict
  2. ?win32
  3. Framework SDL.d3d9sdlmax2d
  4. ?Not win32
  5. Framework SDL.gl2sdlmax2d
  6. ?
  7. Import Image.Raw
  8. Import BRL.Standardio
  9. Local pix:TPixmap = LoadPixmap("gh2.rw2")
  10. If pix Then
  11. Print pix.width + ", " + pix.height
  12. Else
  13. Throw "Unable to load file"
  14. End If
  15. Graphics 1024, 768, 0
  16. local resized:TPixmap = ResizePixmap(pix, 1024, 768)
  17. Local img:TImage = LoadImage( resized )
  18. While Not KeyDown(KEY_ESCAPE)
  19. Cls
  20. if img Then
  21. DrawImage img, 0, 0
  22. End If
  23. Flip
  24. Wend