Mark Sibly 8 سال پیش
والد
کامیت
c6c4f71ced
3فایلهای تغییر یافته به همراه24 افزوده شده و 13 حذف شده
  1. 0 1
      bananas/commanche/commanche.monkey2
  2. 2 0
      bananas/rendertoimage/rendertoimage.monkey2
  3. 22 12
      bananas/spacechimps/spacechimps.monkey2

+ 0 - 1
bananas/commanche/commanche.monkey2

@@ -45,7 +45,6 @@ Class MyWindow Extends Window
 	End Method
 	'-----------------------------------------------------------------------------------------------------------
 	Method OnRender( canvas:Canvas ) Override
-		GCCollect()
 		PmapDest.Clear(Color.Black)
 		App.RequestRender()
 		UpdateCamera()

+ 2 - 0
bananas/rendertoimage/rendertoimage.monkey2

@@ -23,6 +23,8 @@ Class MyWindow Extends mojo.app.Window
 	
 		image=New Image( 256,256,PixelFormat.RGBA8,Dynamic ? TextureFlags.Dynamic Else Null )
 		
+		image.Texture.Flags|=TextureFlags.Filter
+		
 		image.Handle=New Vec2f( .5,.5 )
 		
 		icanvas=New Canvas( image )

+ 22 - 12
bananas/spacechimps/spacechimps.monkey2

@@ -38,18 +38,10 @@ Class MyWindow Extends Window
 		'		
 		ClearColor=New Color( .03,.03,.03 )
 		
-		'Load laser sound effect
-		'		
-		laser=Sound.Load( "asset::bang.wav" )
-		
-		'Load spaceship image.
-		'
-		'Note: scaling image here is faster than scaling via Canvas matrix.
+		'load audio/images
 		'
-		image=Image.Load( "asset::spaceship_32.png" )
-		image.Scale=New Vec2f( 2 )
-		image.Handle=New Vec2f( .5 )
-
+		LoadResources()
+		
 		'Set initial image pos
 		'
 		pos=New Vec2f( VirtualWidth/2,VirtualHeight/2 )
@@ -63,6 +55,21 @@ Class MyWindow Extends Window
 		SwapInterval=1
 	End
 	
+	Method LoadResources()
+		
+		'Load laser sound effect
+		'		
+		laser=Sound.Load( "asset::bang.wav" )
+		
+		'Load spaceship image.
+		'
+		'Note: scaling image here via Image.Scale is faster than scaling via Canvas matrix.
+		'
+		image=Image.Load( "asset::spaceship_32.png" )
+		image.Scale=New Vec2f( 2 )
+		image.Handle=New Vec2f( .5 )
+	End
+	
 	Method OnKeyEvent( event:KeyEvent ) Override
 		Select event.Type
 		Case EventType.KeyDown
@@ -109,6 +116,10 @@ Class MyWindow Extends Window
 	
 		RequestRender()
 		
+		'give GC a bit of a thrash....
+		'
+		'LoadResources()
+		
 		'rotate
 		'
 		If Keyboard.KeyDown( Key.Left )
@@ -194,7 +205,6 @@ Class MyWindow Extends Window
 	Method OnMeasure:Vec2i() Override
 	
 		Return New Vec2i( VirtualWidth,VirtualHeight )
-		
 	End
 	
 End