|
@@ -0,0 +1,53 @@
|
|
|
+SuperStrict
|
|
|
+
|
|
|
+Framework SDL.SDLRenderMax2D
|
|
|
+Import Image.PNM
|
|
|
+
|
|
|
+Local w:Int = DesktopWidth() * .75
|
|
|
+Local h:Int = DeskTopHeight() * .75
|
|
|
+
|
|
|
+Graphics w, h, 0
|
|
|
+
|
|
|
+AutoMidHandle(True)
|
|
|
+
|
|
|
+Local img1:TImage = Loader("rays2.pnm", w, h)
|
|
|
+Local img2:TImage = Loader("snail2.pnm", w, h)
|
|
|
+
|
|
|
+If Not img1 Or Not img2 Then
|
|
|
+ Print "Failed to load image"
|
|
|
+ End
|
|
|
+End If
|
|
|
+
|
|
|
+Local image:Int
|
|
|
+Local img:TImage = img1
|
|
|
+
|
|
|
+While Not KeyDown(Key_ESCAPE)
|
|
|
+
|
|
|
+ Cls
|
|
|
+
|
|
|
+ If KeyHit(KEY_SPACE) Then
|
|
|
+ image = Not image
|
|
|
+ If image Then
|
|
|
+ img = img2
|
|
|
+ Else
|
|
|
+ img = img1
|
|
|
+ End If
|
|
|
+ End If
|
|
|
+
|
|
|
+ DrawImage img, w / 2, h / 2
|
|
|
+
|
|
|
+ Flip
|
|
|
+
|
|
|
+Wend
|
|
|
+
|
|
|
+Function Loader:TImage(path:String, maxWidth:Int, maxHeight:Int)
|
|
|
+ Local pix:TPixmap = LoadPixmap( path )
|
|
|
+ If pix Then
|
|
|
+ If pix.width > maxWidth Or pix.height > maxHeight Then
|
|
|
+ Local ratio:Float = Min(maxWidth / Float(pix.width), maxHeight / Float(pix.height))
|
|
|
+ pix = ResizePixmap(pix, Int(pix.width * ratio), Int(pix.height * ratio))
|
|
|
+ End If
|
|
|
+ Return LoadImage(pix)
|
|
|
+ End If
|
|
|
+End Function
|
|
|
+
|